diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..8abd12e --- /dev/null +++ b/.gitattributes @@ -0,0 +1,2 @@ +Metropolis_Launcher/moby.db filter=lfs diff=lfs merge=lfs -text +Metropolis_Launcher/rombase.db filter=lfs diff=lfs merge=lfs -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..d84595b --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.vs/**/* +Metropolis_Launcher/bin/**/* +Metropolis_Launcher/obj/**/* +Metropolis_Launcher/Metropolis_Launcher.vbproj.user \ No newline at end of file diff --git a/COMPILING.md b/COMPILING.md new file mode 100644 index 0000000..c67655e --- /dev/null +++ b/COMPILING.md @@ -0,0 +1,9 @@ +# Compiling Metropolis Launcher + +You need Visual Studio 2015 or higher (VS14) as well as DevExpress 15.2 (both commercial products *duh*) in order to compile Metropolis Launcher from source. + +Anything else is provided in the project on this github. + +# Target CPU + +Currently, only x86 is supported, you should switch from "Any CPU" to the "x86" profile when compiling. \ No newline at end of file diff --git a/Metropolis_Launcher.sln b/Metropolis_Launcher.sln new file mode 100644 index 0000000..475ed15 --- /dev/null +++ b/Metropolis_Launcher.sln @@ -0,0 +1,51 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 14 +VisualStudioVersion = 14.0.25123.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Metropolis_Launcher", "Metropolis_Launcher\Metropolis_Launcher.vbproj", "{FAFBA71A-26CF-4A0D-B880-F467C92BF104}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Debug|x64 = Debug|x64 + Debug|x86 = Debug|x86 + DebugTEST|Any CPU = DebugTEST|Any CPU + DebugTEST|x64 = DebugTEST|x64 + DebugTEST|x86 = DebugTEST|x86 + PreRelease|Any CPU = PreRelease|Any CPU + PreRelease|x64 = PreRelease|x64 + PreRelease|x86 = PreRelease|x86 + Release|Any CPU = Release|Any CPU + Release|x64 = Release|x64 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|Any CPU.ActiveCfg = Debug|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|Any CPU.Build.0 = Debug|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|x64.ActiveCfg = Debug|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|x64.Build.0 = Debug|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|x86.ActiveCfg = Debug|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Debug|x86.Build.0 = Debug|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|Any CPU.ActiveCfg = DebugTEST|Any CPU + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|Any CPU.Build.0 = DebugTEST|Any CPU + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|x64.ActiveCfg = DebugTEST|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|x64.Build.0 = DebugTEST|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|x86.ActiveCfg = DebugTEST|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.DebugTEST|x86.Build.0 = DebugTEST|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|Any CPU.ActiveCfg = PreRelease|Any CPU + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|Any CPU.Build.0 = PreRelease|Any CPU + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|x64.ActiveCfg = PreRelease|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|x64.Build.0 = PreRelease|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|x86.ActiveCfg = PreRelease|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.PreRelease|x86.Build.0 = PreRelease|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Release|Any CPU.ActiveCfg = Release|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Release|x64.ActiveCfg = Release|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Release|x64.Build.0 = Release|x64 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Release|x86.ActiveCfg = Release|x86 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Metropolis_Launcher/App.config b/Metropolis_Launcher/App.config new file mode 100644 index 0000000..3d2e627 --- /dev/null +++ b/Metropolis_Launcher/App.config @@ -0,0 +1,13 @@ + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Classes/cls_3IntVec.vb b/Metropolis_Launcher/Classes/cls_3IntVec.vb new file mode 100644 index 0000000..e824bfe --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_3IntVec.vb @@ -0,0 +1,17 @@ +Public Class cls_3IntVec + Public _x As Integer + Public _y As Integer + Public _z As Integer + + Public Sub New(Optional ByVal x As Integer = 0, Optional ByVal y As Integer = 0, Optional ByVal z As Integer = 0) + Me._x = x + Me._y = y + Me._z = z + End Sub + + Public Sub Add(ByVal vec As cls_3IntVec) + Me._x += vec._x + Me._y += vec._y + Me._z += vec._z + End Sub +End Class diff --git a/Metropolis_Launcher/Classes/cls_3ObjVec.vb b/Metropolis_Launcher/Classes/cls_3ObjVec.vb new file mode 100644 index 0000000..b2c4384 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_3ObjVec.vb @@ -0,0 +1,11 @@ +Public Class cls_3ObjVec + Public _x As Object + Public _y As Object + Public _z As Object + + Public Sub New(Optional ByVal x As Object = Nothing, Optional ByVal y As Object = Nothing, Optional ByVal z As Object = Nothing) + Me._x = x + Me._y = y + Me._z = z + End Sub +End Class diff --git a/Metropolis_Launcher/Classes/cls_AddGameStats.vb b/Metropolis_Launcher/Classes/cls_AddGameStats.vb new file mode 100644 index 0000000..24095ba --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_AddGameStats.vb @@ -0,0 +1,23 @@ +Public Class cls_AddGameStats + Public _new As Integer + Public _links As Integer + Public _duplicates_added As Integer + Public _duplicates_replaced As Integer + Public _duplicates_ignored As Integer + + Public Sub New(Optional ByVal [new] As Integer = 0, Optional ByVal links As Integer = 0, Optional ByVal duplicates_added As Integer = 0, Optional ByVal duplicates_replaced As Integer = 0, Optional ByVal duplicates_ignored As Integer = 0) + Me._new = [new] + Me._links = [links] + Me._duplicates_added = duplicates_added + Me._duplicates_replaced = duplicates_replaced + Me._duplicates_ignored = duplicates_ignored + End Sub + + Public Sub Add(ByVal addGameStats As cls_AddGameStats) + Me._new += addGameStats._new + Me._links += addGameStats._links + Me._duplicates_added += addGameStats._duplicates_added + Me._duplicates_replaced += addGameStats._duplicates_replaced + Me._duplicates_ignored += addGameStats._duplicates_ignored + End Sub +End Class diff --git a/Metropolis_Launcher/Classes/cls_Extras.vb b/Metropolis_Launcher/Classes/cls_Extras.vb new file mode 100644 index 0000000..233d673 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_Extras.vb @@ -0,0 +1,215 @@ +Public Class cls_Extras + Public Class cls_Extras_Result + Public _Path As String = "" + Public _ExtraNum As Integer = 0 + Public _NoExtraFound As Boolean = True + Public _ExtraType As Object = Nothing + + Public Sub New(ByVal Path As String, ByVal ExtraNum As Integer, ByVal NoExtraFound As Boolean, ByVal ExtraType As Object) + _Path = Path + _ExtraNum = ExtraNum + _NoExtraFound = NoExtraFound + _ExtraType = ExtraType + End Sub + End Class + + Public Shared _SupportedExtensions As String() = {".png", ".jpg", ".bmp"} + Public Shared _SupportedExtensions_Masks As String() = {"*.png", "*.jpg", "*.bmp"} + + Public Shared Function FindNextExtraFromSupportedExtensions(ByVal PathWithoutExtension) As String + For Each ext As String In _SupportedExtensions + If Alphaleonis.Win32.Filesystem.File.Exists(PathWithoutExtension & ext) Then + Return PathWithoutExtension & ext + End If + Next + + Return "" + End Function + + Public Shared Function getExtraSuffix(ExtraNum) As String + If ExtraNum = 0 Then + Return "" + Else + Return "_" & ExtraNum.ToString.PadLeft(3, "0") + End If + End Function + + Public Shared Function FindNextExtra(ByVal id_Emu_Games As Integer, ByVal ExtraNum As Integer, ByVal SkipToNextImmediately As Boolean, ByVal ExtraType As Object, Optional ByVal IgnoreHiddenExtraCategories As Boolean = False, Optional ByVal LimitToExtraType As Boolean = False) As cls_Extras_Result + Dim dt_Emu_Games As New DS_ML.src_ucr_Emulation_GamesDataTable + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Emu_Games, Nothing, Nothing, Nothing, id_Emu_Games) + End Using + + If dt_Emu_Games.Rows.Count <> 1 Then Return New cls_Extras_Result("", 0, True, Nothing) + Dim row_Emu_Games As DataRow = dt_Emu_Games.Rows(0) + + Dim Platform_Short As String = TC.NZ(row_Emu_Games("Platform_Short"), "") + Dim id_Moby_Platforms As Integer = row_Emu_Games("id_Moby_Platforms") + Dim Game As String = TC.NZ(row_Emu_Games("Game"), "") + + Dim FileName As String = "" + If TC.NZ(row_Emu_Games("InnerFile"), "") <> "" Then + FileName = row_Emu_Games("InnerFile") + Else + FileName = row_Emu_Games("File") + End If + + Return FindNextExtra(Platform_Short, id_Moby_Platforms, Game, FileName, ExtraNum, SkipToNextImmediately, ExtraType, IgnoreHiddenExtraCategories, LimitToExtraType) + End Function + + Public Shared Function FindNextExtra(ByVal Platform_Short As String, ByVal id_Moby_Platforms As Integer, ByVal Game As String, ByVal FileName As String, ByVal ExtraNum As Integer, ByVal SkipToNextImmediately As Boolean, ByVal ExtraType As Object, Optional ByVal IgnoreHiddenExtraCategories As Boolean = False, Optional ByVal LimitToExtraType As Boolean = False) As cls_Extras_Result + If TC.NZ(ExtraType, "").Length = 0 Then Return New cls_Extras_Result("", 0, True, Nothing) + + If SkipToNextImmediately Then + ExtraNum = ExtraNum + 1 + End If + + Dim bDone As Boolean = False + Dim iNext As Integer = 0 + + Dim sPlatform As String = Platform_Short + Dim sRom As String = "" + + Dim NoExtraFound As Boolean = False + + Select Case TC.NZ(id_Moby_Platforms, 0) + Case cls_Globals.enm_Moby_Platforms.win + sRom = GetExtraFilename(Game, FileName) + Case Else + sRom = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(TC.NZ(FileName, "")) + End Select + + Dim sNextExtra As String = "" + + While Not bDone AndAlso iNext < 2 + Dim sFileName As String = FindNextExtraFromSupportedExtensions(cls_Globals.Dir_Extras & "\emulation\" & sPlatform & "\" & ExtraType & "\" & sRom & getExtraSuffix(ExtraNum)) 'IIf(ExtraNum = 0, "", " [image" & (ExtraNum + 1) & "]") + + If Alphaleonis.Win32.Filesystem.File.Exists(sFileName) Then + sNextExtra = sFileName + bDone = True + Else + If Not LimitToExtraType Then + ExtraType = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE Sort = (SELECT MIN(Sort) FROM tbl_Emu_Extras WHERE" & IIf(IgnoreHiddenExtraCategories, "", " IFNULL(Hide, 0) = 0 AND ") & " Sort > (SELECT Sort FROM tbl_Emu_Extras WHERE Name = '" & ExtraType & "')) LIMIT 1") + Else + iNext = iNext + 1 + End If + ExtraNum = 0 + + If TC.NZ(ExtraType, "").Length = 0 Then + ExtraType = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE Sort = (SELECT MIN(Sort) from tbl_Emu_Extras " & IIf(IgnoreHiddenExtraCategories, "", "WHERE IFNULL(Hide, 0) = 0") & ") LIMIT 1") + iNext = iNext + 1 + End If + End If + End While + + If iNext = 2 Then + NoExtraFound = True + End If + + Return New cls_Extras_Result(sNextExtra, ExtraNum, NoExtraFound, ExtraType) + End Function + + ''' + ''' Find all Extras according to FileName + ''' + ''' + ''' + ''' + ''' + ''' ArrayList of cls_Extras_Result + Public Shared Function FindAllExtras(ByVal Platform_Short As String, ByVal id_Moby_Platforms As Integer, ByVal Game As String, ByVal FileName As String) As ArrayList + Dim Result As New ArrayList + + Dim bDone As Boolean = False + + Dim ExtraType As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE Sort = (SELECT MIN(Sort) from tbl_Emu_Extras LIMIT 1)") + + Dim ExtraNum As Integer = 0 + + Dim bFirst As Boolean = True + + While Not bDone + Dim res As cls_Extras_Result = FindNextExtra(Platform_Short, id_Moby_Platforms, Game, FileName, ExtraNum, Not bFirst, ExtraType, True) + + If bFirst Then bFirst = False + + If res._NoExtraFound Then + bDone = True + Exit While + Else + If Not ExtrasListContains(Result, res) Then + Result.Add(res) + Else + bDone = True + Exit While + End If + End If + + ExtraNum = res._ExtraNum + ExtraType = res._ExtraType + End While + + Return Result + End Function + + Public Shared Function ExtrasListContains(ByRef ExtrasList As ArrayList, ByRef Extra As cls_Extras_Result) As Boolean + For Each item As cls_Extras_Result In ExtrasList + If item._Path.ToLower = Extra._Path.ToLower Then + Return True + End If + Next + + Return False + End Function + + Public Shared Function ExtrasListsEqual(ByRef ExtrasList1 As ArrayList, ByRef ExtrasList2 As ArrayList) As Boolean + If ExtrasList1.Count <> ExtrasList2.Count Then Return False + + For Each item As cls_Extras_Result In ExtrasList1 + If Not ExtrasListContains(ExtrasList2, item) Then Return False + Next + + Return True + End Function + + ''' + ''' Get the next free extra filename without extension (for later save) + ''' + ''' The short name for the platform, e.g. snes, gen, win etc. + ''' The extra category + ''' The ROM filename without its extension + ''' + ''' + Public Shared Function FindNextFreeExtraFilename(ByVal Platform_Short As String, ByVal ExtraCategory As String, ByVal FileName As String) As String + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(cls_Globals.Dir_Extras & "\emulation\" & Platform_Short & "\" & ExtraCategory) Then + Try + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(cls_Globals.Dir_Extras & "\emulation\" & Platform_Short & "\" & ExtraCategory) + Catch ex As Exception + Return "" + End Try + End If + + Dim ExtraNum As Integer = 0 + + Dim bDone As Boolean = False + + While Not bDone + If Alphaleonis.Win32.Filesystem.File.Exists(FindNextExtraFromSupportedExtensions(cls_Globals.Dir_Extras & "\emulation\" & Platform_Short & "\" & ExtraCategory & "\" & FileName & getExtraSuffix(ExtraNum))) Then 'IIf(ExtraNum = 0, "", " [image" & (ExtraNum + 1) & "]") + ExtraNum += 1 + Else + bDone = True + End If + End While + + Return FileName & getExtraSuffix(ExtraNum) ' IIf(ExtraNum = 0, "", " [image" & (ExtraNum + 1) & "]") + End Function + + Public Shared Function GetExtraFilename(ByVal Game As String, ByVal FileName As String) As String + If Game.ToLower = FileName.ToLower Then + Return Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(MKNetLib.cls_MKStringSupport.GetCleanFileName(TC.NZ(Game, ""))) + Else + Return MKNetLib.cls_MKStringSupport.GetCleanFileName(TC.NZ(Game, "")) + End If + End Function +End Class diff --git a/Metropolis_Launcher/Classes/cls_FilteringModel_Emulation_Games.vb b/Metropolis_Launcher/Classes/cls_FilteringModel_Emulation_Games.vb new file mode 100644 index 0000000..e020538 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_FilteringModel_Emulation_Games.vb @@ -0,0 +1,89 @@ +Imports DevExpress.Utils.Filtering +Imports System.ComponentModel.DataAnnotations + +Public Class cls_FilteringModel_Emulation_Games + + Public Property Rank As Int32 + + + Public Property Score As Decimal + + + Public Property Year As String + + + Public Property Favourite As Boolean + + + Public Property Platform As String + + + Public Property Age_Pessimistic As Int32 + + + Public Property Age_Optimistic As Int32 + + + Public Property Basic_Genres As String + + + Public Property Perspectives As String + + + Public Property Sports_Themes As String + + + Public Property Educational_Categories As String + + + Public Property Visual_Presentation As String + + + Public Property Pacing As String + + + Public Property Gameplay As String + + + Public Property Interface_Control As String + + + Public Property Vehicular_Themes As String + + + Public Property Setting As String + + + Public Property Narrative_Theme_Topic As String + + + Public Property DLC_Addon As String + + + Public Property Special_Edition As String + + + Public Property Other_Attributes As String + + + Public Property MinPlayers As Int32 + + + Public Property MaxPlayers As Int32 + + + Public Property Rating As Int32 + + + Public Property Regions As String + + + Public Property Languages As String + + + Public Property MP_GameModes As String + + + Public Property MP_Options As String + +End Class diff --git a/Metropolis_Launcher/Classes/cls_Globals.vb b/Metropolis_Launcher/Classes/cls_Globals.vb new file mode 100644 index 0000000..5e52ec8 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_Globals.vb @@ -0,0 +1,245 @@ +Public Class cls_Globals + Public Shared Suppress_MetroUINavigationBarsShowing As Boolean = False + Public Shared Conn As SQLite.SQLiteConnection + Public Shared ISO_8859_1_Replace As New MKNetLib.cls_MKISO_8859_1_Replace + 'Public Shared DataDir As String = "g:\Frontends\MetropolisLauncher\" + Public Shared Dir_Extras As String = Application.StartupPath & "\extras" + Public Shared Dir_Screenshot As String = "" + + Public Shared MLSettingHandler As New cls_PDSettingHandler(Nothing) + + Public Shared StartupTime As DateTime = DateTime.Now + + Public Shared MultiUserMode As Boolean = False + Public Shared Admin As Boolean = True + Public Shared Restricted As Boolean = False + Public Shared id_Users As Integer = 0 + + Public Shared Logging As Boolean = False + Public Shared Logfile As String = "" + + Public Shared Function GetLogfile() As String + If Alphaleonis.Win32.Filesystem.File.Exists(Logfile) Then + Return Logfile + Else + Logfile = System.Windows.Forms.Application.StartupPath & "\" & "ml.log" + Return Logfile + End If + End Function + + Public Shared Sub AddLog(ByVal text As String, Optional ByVal Timestamp As Boolean = True, Optional ByVal Endline As Boolean = True) + If Not Logging Then Return + + MKNetLib.cls_MKFileSupport.SaveTextToFile(IIf(Timestamp, DateTime.Now.ToString("yyyyMMdd HHmmss") & " ", "") & text & IIf(Endline, ControlChars.CrLf, ""), GetLogfile) + End Sub + + Public Shared Function Encode_Password(ByVal Password As String) As String + If Password IsNot Nothing Then + Return MKNetLib.cls_MKCryptography.Get_MD5("ML4EVAR" & Password & "RAVE4LM") + Else + Return Nothing + End If + End Function + + 'id_Moby_Platforms of tbl_Moby_Platforms + Public Enum enm_Moby_Platforms + mame = -2 + ALL = -1 + linux = 1 + dos = 2 + win = 3 + pcboot = 4 + win3x = 5 + ps1 = 6 + ps2 = 7 + dc = 8 + n64 = 9 + gb = 10 + gbc = 11 + gba = 12 + xbox = 13 + gc = 14 + snes = 15 + gen = 16 + jag = 17 + lynx = 18 + amiga = 19 + scd = 20 + _32x = 21 + nes = 22 + sat = 23 + st = 24 + gg = 25 + sms = 26 + c64 = 27 + a26 = 28 + cv = 29 + iv = 30 + aii = 31 + ngage = 32 + a52 = 33 + a78 = 34 + _3do = 35 + ng = 36 + vec = 37 + vb = 38 + a8bit = 39 + tgfx = 40 + zxspec = 41 + vsmile = 42 + vic20 = 43 + nds = 44 + tgfxcd = 45 + psp = 46 + ti994a = 47 + ws = 48 + wsc = 49 + gamecom = 50 + a2gs = 51 + ngp = 52 + ngpc = 53 + ngcd = 54 + giz = 55 + cd32 = 56 + msx = 57 + trs80 = 58 + pcfx = 59 + cpc = 60 + c128 = 61 + coco = 62 + brew = 63 + j2me = 64 + palm = 65 + winmob = 66 + symbian = 67 + zod = 68 + x360 = 69 + exen = 70 + mophun = 71 + doja = 72 + cdi = 73 + mac = 74 + ody = 75 + chanf = 76 + cbmpet = 77 + ody2 = 78 + dragon = 79 + ipod = 80 + ps3 = 81 + wii = 82 + cdtv = 83 + browser = 84 + spectravid = 85 + iphone = 86 + dsi = 87 + zeebo = 88 + ngage2 = 89 + bb = 90 + android = 91 + bbc = 92 + electron = 93 + pc88 = 94 + pc98 = 95 + ipad = 96 + mv = 97 + winphone = 98 + bada = 99 + webos = 100 + _3ds = 101 + fmtowns = 102 + pico = 103 + gw = 104 + vita = 105 + x68k = 106 + playdia = 107 + gp32 = 108 + sv = 109 + superacan = 110 + oric = 111 + pippin = 112 + rca = 113 + sg1000 = 114 + c16 = 115 + nuon = 116 + acorn = 117 + zx80 = 118 + zx81 = 119 + samcoupe = 120 + sharpx1 = 121 + gp2x = 122 + wiz = 123 + loopy = 124 + pv1000 = 125 + fm7 = 126 + sgfx = 127 + g7400 = 128 + atom = 129 + _to = 130 + ql = 131 + wiiu = 132 + End Enum + + Public Enum enm_Rombase_DOSBox_Filetypes + zip = 1 + cwd = 2 + exe = 3 + iso = 4 + img = 5 + img_boot = 6 + int = 7 + End Enum + + Public Enum enm_Rombase_DOSBox_Exe_Types + inst = 1 + main = 2 + setup = 3 + ignore = 4 + End Enum + + 'id_Moby_Genres_Categories of tbl_Moby_Genres_Categories + Public Enum enm_Moby_Genres_Categories + Basic_Genres = 1 + Perspective = 2 + Visual_Presentation = 3 + Pacing = 4 + Gameplay = 5 + Interface_Control = 6 + Sports_Themes = 7 + Educational_Categories = 8 + Vehicular_Themes = 9 + Setting = 10 + Narrative_Theme_Topic = 11 + DLC_Addon = 12 + Special_Edition = 13 + Other_Attributes = 14 + End Enum + + Public Shared Function TempDir(tran As SQLite.SQLiteTransaction) As String + Dim sTempDir As String = TC.NZ(cls_Settings.GetSetting("Dir_Temp", tran:=tran), "") + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sTempDir) Then + sTempDir = Application.StartupPath & "\temp" + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sTempDir) Then + sTempDir = Alphaleonis.Win32.Filesystem.Path.GetTempPath + End If + + MKNetLib.cls_MKFileSupport.TempDirRoot = sTempDir + Return sTempDir + End Function + + Public Shared Function BackupsDir(tran As SQLite.SQLiteTransaction) As String + Dim sBackupDir As String = TC.NZ(cls_Settings.GetSetting("Dir_Backup", tran:=tran), "") + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sBackupDir) Then + sBackupDir = Application.StartupPath & "\backups" + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sBackupDir) Then + sBackupDir = "" + End If + + Return sBackupDir + End Function +End Class diff --git a/Metropolis_Launcher/Classes/cls_PDSettingHandler.vb b/Metropolis_Launcher/Classes/cls_PDSettingHandler.vb new file mode 100644 index 0000000..6772300 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_PDSettingHandler.vb @@ -0,0 +1,155 @@ +Public Class cls_PDSettingHandler + Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXGrid) + Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitter) + Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitPanel) + + Private _cnn As SqlClient.SqlConnection + + Public Shared MainScreen As Screen = Screen.PrimaryScreen 'Aktuell zu verwendender Hauptbildschirm (auf dem neue Fenster zentriert geöffnet werden sollen), wird von frm_Main festgesetzt bei LocationChanged + +#Region "MKDXGrid" + Private Function SaveSettingsDDDataGridView(ByVal grd As MKNetDXLib.ctl_MKDXGrid) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXGrid).SaveSettings + Try + If cls_Globals.Conn IsNot Nothing Then + Dim sIdent As String = grd.Ident + If grd.MainView IsNot Nothing Then + Dim sSetting As Object = MKNetDXLib.cls_MKDXGrid_Serializer.SaveLayoutBase64(grd.MainView, MKNetDXLib.enm_MKDXGrid_Serialize_Options.Columns) + If sSetting IsNot Nothing Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_ControlSettings(tran, sIdent, "GridLayout", sSetting) + tran.Commit() + End Using + + + Return True + End If + End If + End If + Catch ex As Exception + + End Try + + Return False + End Function + + Private Function LoadSettingsDDDataGridView(ByVal grd As MKNetDXLib.ctl_MKDXGrid) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXGrid).LoadSettings + Try + If cls_Globals.Conn IsNot Nothing Then + Dim sIdent As String = grd.Ident + If grd.MainView IsNot Nothing Then + Dim sSetting As Object = MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Setting FROM tbl_ControlSettings WHERE HostName = " & TC.getSQLFormat(System.Environment.MachineName) & " AND ControlID = " & TC.getSQLFormat(sIdent) & " AND " & " SettingID = " & TC.getSQLFormat("GridLayout") & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL")) + + If sSetting IsNot Nothing AndAlso sSetting.Length > 0 Then + grd.MainView.RestoreLayoutFromStream(New System.IO.MemoryStream(Convert.FromBase64String(sSetting))) + Return True + End If + End If + End If + Catch ex As Exception + + End Try + + Return False + End Function + +#End Region + +#Region "MKDXColorSplitter" + Private Function LoadSettingsMKDXSplitter(ByVal obj As MKNetDXLib.ctl_MKDXSplitter) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitter).LoadSettings + Dim i As Integer + Dim sIdent = obj.Ident + + Try + i = TC.NZ(MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Setting FROM tbl_ControlSettings WHERE HostName = " & TC.getSQLFormat(System.Environment.MachineName) & " AND ControlID = " & TC.getSQLFormat(sIdent) & " AND " & " SettingID = " & TC.getSQLFormat("SplitPosition") & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), "") & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL")), 0) + If i > 0 Then + obj.SplitPosition = i + End If + Return True + Catch + Return False + End Try + End Function + + Private Function SaveSettingsMKDXSplitter(ByVal obj As MKNetDXLib.ctl_MKDXSplitter) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitter).SaveSettings + Try + 'Return DataAccess.FireProcedure(cls_Globals.Conn, 0, "EXEC dbo.gp_SetControlProperties " & TC.getSQLParameter(obj.Ident, obj.SplitPosition)) + Dim sIdent = obj.Ident + Dim sSetting As String = obj.SplitPosition + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_ControlSettings(tran, sIdent, "SplitPosition", sSetting) + tran.Commit() + End Using + + + Return True + Catch + Return False + End Try + End Function +#End Region + +#Region "MKDXSplitPanel" + Private Function LoadSettingsMKDXSplitPanel(ByVal obj As MKNetDXLib.ctl_MKDXSplitPanel) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitPanel).LoadSettings + Dim i As Integer + Dim sIdent = obj.Ident + + Try + i = TC.NZ(MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Setting FROM tbl_ControlSettings WHERE HostName = " & TC.getSQLFormat(System.Environment.MachineName) & " AND ControlID = " & TC.getSQLFormat(sIdent) & " AND " & " SettingID = " & TC.getSQLFormat("SplitterPosition") & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL")), 0) + If i > 0 Then + obj.SplitterPosition = i + End If + + obj.Collapsed = TC.NZ(MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Setting FROM tbl_ControlSettings WHERE HostName = " & TC.getSQLFormat(System.Environment.MachineName) & " AND ControlID = " & TC.getSQLFormat(sIdent) & " AND " & " SettingID = " & TC.getSQLFormat("Collapsed") & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL")), obj.Collapsed) + + Return True + Catch + Return False + End Try + End Function + + Private Function SaveSettingsMKDXSplitPanel(ByVal obj As MKNetDXLib.ctl_MKDXSplitPanel) As Boolean Implements MKNetDXLib.IDDSettings(Of MKNetDXLib.ctl_MKDXSplitPanel).SaveSettings + Try + Dim sIdent = obj.Ident + Dim sSetting As String = obj.SplitterPosition + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_ControlSettings(tran, sIdent, "SplitterPosition", sSetting) + + sSetting = TC.getSQLFormat(obj.Collapsed) + DS_ML.Upsert_tbl_ControlSettings(tran, sIdent, "Collapsed", sSetting) + + tran.Commit() + End Using + + Return True + Catch + Return False + End Try + End Function +#End Region + + Public Sub New(ByVal cnn As SqlClient.SqlConnection) + _cnn = cnn + If _cnn IsNot Nothing AndAlso _cnn.State = ConnectionState.Closed Then + _cnn.Open() + End If + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXGrid).SaveSettingsFunction = AddressOf SaveSettingsDDDataGridView + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXGrid).LoadSettingsFunction = AddressOf LoadSettingsDDDataGridView + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXSplitter).SaveSettingsFunction = AddressOf SaveSettingsMKDXSplitter + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXSplitter).LoadSettingsFunction = AddressOf LoadSettingsMKDXSplitter + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXSplitPanel).SaveSettingsFunction = AddressOf SaveSettingsMKDXSplitPanel + MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXSplitPanel).LoadSettingsFunction = AddressOf LoadSettingsMKDXSplitPanel + End Sub + + Protected Overrides Sub Finalize() + MyBase.Finalize() + Try + _cnn.Close() + Catch + ' + Finally + _cnn = Nothing + End Try + End Sub +End Class diff --git a/Metropolis_Launcher/Classes/cls_PermDecision.vb b/Metropolis_Launcher/Classes/cls_PermDecision.vb new file mode 100644 index 0000000..b1f8e45 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_PermDecision.vb @@ -0,0 +1,70 @@ +Public Class cls_PermDecision + + Public Class PermDecisionButton + Private _Text As String + Private _Result As DialogResult + Private _Tooltip As String + + Public ReadOnly Property Text As String + Get + Return _Text + End Get + End Property + + Public ReadOnly Property Result As DialogResult + Get + Return _Result + End Get + End Property + + Public ReadOnly Property Tooltip As String + Get + Return _Tooltip + End Get + End Property + + Public Sub New(ByVal Text As String, ByVal Result As DialogResult, Optional ByVal Tooltip As String = "") + _Text = Text + _Result = Result + _Tooltip = Tooltip + End Sub + End Class + + Private _Buttons() As PermDecisionButton + Private _LastDecision As DialogResult + Private _Caption As String + Private _Prompt As String + Private _ApplyAll As Boolean = False + Private _ParentForm As Windows.Forms.Form = Nothing + + Public Property ApplyAll As Boolean + Get + Return _ApplyAll + End Get + Set(ByVal value As Boolean) + Me._ApplyAll = value + End Set + End Property + + Public Sub New(ByVal ParentForm As Windows.Forms.Form, ByVal Caption As String, ByVal Prompt As String, ByRef Buttons() As PermDecisionButton) + _Caption = Caption + _Prompt = Prompt + _Buttons = Buttons + _ParentForm = ParentForm + End Sub + + Public Function Show(Optional ByVal Caption As String = "", Optional ByVal Prompt As String = "") As DialogResult + If _ApplyAll Then + Return _LastDecision + End If + + If Caption.Length > 0 Then _Caption = Caption + If Prompt.Length > 0 Then _Prompt = Prompt + Using frm As New frm_PermDecision(_Caption, _Prompt, _Buttons) + Dim res = frm.ShowDialog(_ParentForm) + _LastDecision = res + _ApplyAll = frm.ApplyAll + Return res + End Using + End Function +End Class diff --git a/Metropolis_Launcher/Classes/cls_Settings.vb b/Metropolis_Launcher/Classes/cls_Settings.vb new file mode 100644 index 0000000..2494b58 --- /dev/null +++ b/Metropolis_Launcher/Classes/cls_Settings.vb @@ -0,0 +1,166 @@ +Public Class cls_Settings + Public Enum enm_Settingmodes + Same_for_All = 0 + Per_User = 1 + End Enum + + Public Shared Function GetSetting(ByVal SettingName As String, Optional ByVal Settingmode As enm_Settingmodes = enm_Settingmodes.Same_for_All, Optional ByRef tran As SQLite.SQLiteTransaction = Nothing) As Object + If Settingmode = enm_Settingmodes.Per_User AndAlso cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 Then + SettingName = SettingName & "_User_" & cls_Globals.id_Users.ToString + End If + + Dim bCloseTran As Boolean = False + + If tran Is Nothing Then + tran = cls_Globals.Conn.BeginTransaction + bCloseTran = True + End If + + Dim oRes As Object = DataAccess.GetSetting(tran.Connection, 0, SettingName, tran) + + If bCloseTran Then + Try + tran.Dispose() + Catch ex As Exception + + End Try + End If + Return oRes + End Function + + Public Shared Sub SetSetting(ByVal SettingName As String, ByVal SettingValue As Object, Optional ByVal Settingmode As enm_Settingmodes = enm_Settingmodes.Same_for_All, Optional ByRef tran As SQLite.SQLiteTransaction = Nothing) + If Settingmode = enm_Settingmodes.Per_User AndAlso cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 Then + SettingName = SettingName & "_User_" & cls_Globals.id_Users.ToString + End If + + Dim bCloseTran As Boolean = False + + If tran Is Nothing Then + tran = cls_Globals.Conn.BeginTransaction + bCloseTran = True + End If + + DataAccess.SetSetting(tran.Connection, 0, SettingName, SettingValue, tran) + + If bCloseTran Then + tran.Commit() + tran.Dispose() + End If + End Sub + + ''' + ''' Apply the Settings to the current runtime instance + ''' + ''' + Public Shared Sub Apply_Settings() + cls_Skins.LoadSkin(TC.NZ(cls_Settings.GetSetting("Skin", enm_Settingmodes.Per_User), 4)) + cls_Fonts.ApplyFont(TC.NZ(cls_Settings.GetSetting("Font", enm_Settingmodes.Per_User), "Segoe UI"), TC.NZ(cls_Settings.GetSetting("FontSize", enm_Settingmodes.Per_User), 8)) + cls_Globals.Dir_Extras = Get_Extras_Directory() + + If Alphaleonis.Win32.Filesystem.Directory.Exists(TC.NZ(cls_Settings.GetSetting("Dir_Screenshot"), "")) Then + cls_Globals.Dir_Screenshot = TC.NZ(cls_Settings.GetSetting("Dir_Screenshot"), "") + End If + + MKNetLib.cls_MKFileSupport.TempDirRoot = cls_Globals.TempDir(Nothing) + End Sub + + Public Shared Function Get_Extras_Directory() + Dim dir_extras As String = TC.NZ(cls_Settings.GetSetting("Dir_Extras"), "") + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(dir_extras) Then + dir_extras = Application.StartupPath & "\extras" + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(dir_extras) Then + dir_extras = "" + End If + End If + + Return dir_extras + End Function + + Public Shared Function Get_DOSBox_CWD(Optional ByRef tran As SQLite.SQLiteTransaction = Nothing) As String + Dim dosbox_cwd As String = TC.NZ(cls_Settings.GetSetting("Dir_DOSBox_CWD", enm_Settingmodes.Same_for_All, tran), "") + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(dosbox_cwd) Then + dosbox_cwd = Application.StartupPath & "\dosbox" + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(dosbox_cwd) Then + dosbox_cwd = "" + End If + End If + + Return dosbox_cwd + End Function + + Public Shared Function Check_DOSBox_CWD(Optional ByRef tran As SQLite.SQLiteTransaction = Nothing) As Boolean + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(Get_DOSBox_CWD(tran)) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The DOSBox Working Directory cannot be found, please set one up in the Settings section!", "DOSBox Working Directory not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Return True + End Function + + Public Shared Sub Fill_J2K_DS(ByVal DS As DataSet, ByVal j2k_path As String) + If Alphaleonis.Win32.Filesystem.File.Exists(j2k_path) Then + If Alphaleonis.Win32.Filesystem.File.Exists(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(j2k_path) & "\default.j2k") Then + 'DS.Tables.Clear() + 'DS.ReadXmlSchema(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(j2k_path) & "\default.j2k") + DS.ReadXml(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(j2k_path) & "\default.j2k", XmlReadMode.InferSchema) + ElseIf Alphaleonis.Win32.Filesystem.File.Exists(MKNetLib.cls_MKFileSupport.Get_SpecialFolder(Environment.SpecialFolder.MyDocuments) & "\J2K\" & "default.j2k") Then + DS.ReadXml(MKNetLib.cls_MKFileSupport.Get_SpecialFolder(Environment.SpecialFolder.MyDocuments) & "\J2K\" & "default.j2k") + End If + End If + End Sub +End Class + +Public Class cls_Skins + ''' + ''' Internal Skin Array, Fields are: DevExpress Skin Name, Displayname, Seasonal Flag + ''' + ''' When adding new skins, always add at the bottom! + Public Shared Skins(,) As String = { + {"Blueprint", "Draft - Blue", "0"}, + {"Metropolis", "Metropolis", "0"}, + {"Metropolis Dark", "Metropolis Dark", "0"}, + {"Pumpkin", "Halloween", "1"}, + {"Sharp Plus", "Sharp Plus", "0"}, + {"Springtime", "Spring", "1"}, + {"Summer 2008", "Summer", "1"}, + {"Valentine", "Valentine's Day", "1"}, + {"Whiteprint", "Draft - White", "0"}, + {"Xmas 2008 Blue", "X-Mas", "1"}, + {"DevExpress Style", "DX", "0"}, + {"DevExpress Dark Style", "DX Dark", "0"}, + {"Office 2013", "Flat", "0"}, + {"Office 2013 Dark Gray", "Flat Gray", "0"}, + {"Visual Studio 2013 Blue", "Metropolis Blue", "0"}, + {"Visual Studio 2013 Light", "Metropolis Light Gray", "0"}, + {"High Contrast", "High Contrast", "0"}, + {"Sharp", "Sharp", "0"} + } + + Public Shared Sub LoadSkin(ByVal index As Integer) + Try + MKNetDXLib.cls_MKDXSkin.LoadSkin(Skins(index, 0)) + Catch ex As Exception + + End Try + End Sub + + Public Shared Function GetCurrentSkinname(ByVal tran As SQLite.SQLiteTransaction) As String + Return Skins(TC.NZ(cls_Settings.GetSetting("Skin", cls_Settings.enm_Settingmodes.Per_User, tran), 4), 0) + End Function +End Class + +Public Class cls_Fonts + ''' + ''' Apply a Standard Font for all Controls + ''' + ''' + ''' + ''' + Public Shared Sub ApplyFont(ByVal FontName As String, ByVal FontSize As Integer) + 'DevExpress.Utils.AppearanceObject.DefaultFont = New Font(FontName, FontSize) + MKNetDXLib.ctl_MKDXGrid.Default_GridFont = New Font(FontName, FontSize) + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_IMDB.Designer.vb b/Metropolis_Launcher/DataSets/DS_IMDB.Designer.vb new file mode 100644 index 0000000..52df9c2 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_IMDB.Designer.vb @@ -0,0 +1,7094 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_IMDB + Inherits Global.System.Data.DataSet + + Private tabletbl_Categories As tbl_CategoriesDataTable + + Private tabletbl_ContentRating As tbl_ContentRatingDataTable + + Private tabletbl_Episodes As tbl_EpisodesDataTable + + Private tabletbl_Genres As tbl_GenresDataTable + + Private tabletbl_Jobs As tbl_JobsDataTable + + Private tabletbl_Movies As tbl_MoviesDataTable + + Private tabletbl_Movies_Episodes_Genres As tbl_Movies_Episodes_GenresDataTable + + Private tabletbl_Movies_Episodes_PlotKeywords As tbl_Movies_Episodes_PlotKeywordsDataTable + + Private tabletbl_Persons As tbl_PersonsDataTable + + Private tabletbl_Persons_Jobs As tbl_Persons_JobsDataTable + + Private tabletbl_PlotKeywords As tbl_PlotKeywordsDataTable + + Private tabletbl_Seasons As tbl_SeasonsDataTable + + Private tabletbl_Series As tbl_SeriesDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("tbl_Categories")) Is Nothing) Then + MyBase.Tables.Add(New tbl_CategoriesDataTable(ds.Tables("tbl_Categories"))) + End If + If (Not (ds.Tables("tbl_ContentRating")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ContentRatingDataTable(ds.Tables("tbl_ContentRating"))) + End If + If (Not (ds.Tables("tbl_Episodes")) Is Nothing) Then + MyBase.Tables.Add(New tbl_EpisodesDataTable(ds.Tables("tbl_Episodes"))) + End If + If (Not (ds.Tables("tbl_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_GenresDataTable(ds.Tables("tbl_Genres"))) + End If + If (Not (ds.Tables("tbl_Jobs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_JobsDataTable(ds.Tables("tbl_Jobs"))) + End If + If (Not (ds.Tables("tbl_Movies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_MoviesDataTable(ds.Tables("tbl_Movies"))) + End If + If (Not (ds.Tables("tbl_Movies_Episodes_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Movies_Episodes_GenresDataTable(ds.Tables("tbl_Movies_Episodes_Genres"))) + End If + If (Not (ds.Tables("tbl_Movies_Episodes_PlotKeywords")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Movies_Episodes_PlotKeywordsDataTable(ds.Tables("tbl_Movies_Episodes_PlotKeywords"))) + End If + If (Not (ds.Tables("tbl_Persons")) Is Nothing) Then + MyBase.Tables.Add(New tbl_PersonsDataTable(ds.Tables("tbl_Persons"))) + End If + If (Not (ds.Tables("tbl_Persons_Jobs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Persons_JobsDataTable(ds.Tables("tbl_Persons_Jobs"))) + End If + If (Not (ds.Tables("tbl_PlotKeywords")) Is Nothing) Then + MyBase.Tables.Add(New tbl_PlotKeywordsDataTable(ds.Tables("tbl_PlotKeywords"))) + End If + If (Not (ds.Tables("tbl_Seasons")) Is Nothing) Then + MyBase.Tables.Add(New tbl_SeasonsDataTable(ds.Tables("tbl_Seasons"))) + End If + If (Not (ds.Tables("tbl_Series")) Is Nothing) Then + MyBase.Tables.Add(New tbl_SeriesDataTable(ds.Tables("tbl_Series"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property tbl_Categories() As tbl_CategoriesDataTable + Get + Return Me.tabletbl_Categories + End Get + End Property + + _ + Public ReadOnly Property tbl_ContentRating() As tbl_ContentRatingDataTable + Get + Return Me.tabletbl_ContentRating + End Get + End Property + + _ + Public ReadOnly Property tbl_Episodes() As tbl_EpisodesDataTable + Get + Return Me.tabletbl_Episodes + End Get + End Property + + _ + Public ReadOnly Property tbl_Genres() As tbl_GenresDataTable + Get + Return Me.tabletbl_Genres + End Get + End Property + + _ + Public ReadOnly Property tbl_Jobs() As tbl_JobsDataTable + Get + Return Me.tabletbl_Jobs + End Get + End Property + + _ + Public ReadOnly Property tbl_Movies() As tbl_MoviesDataTable + Get + Return Me.tabletbl_Movies + End Get + End Property + + _ + Public ReadOnly Property tbl_Movies_Episodes_Genres() As tbl_Movies_Episodes_GenresDataTable + Get + Return Me.tabletbl_Movies_Episodes_Genres + End Get + End Property + + _ + Public ReadOnly Property tbl_Movies_Episodes_PlotKeywords() As tbl_Movies_Episodes_PlotKeywordsDataTable + Get + Return Me.tabletbl_Movies_Episodes_PlotKeywords + End Get + End Property + + _ + Public ReadOnly Property tbl_Persons() As tbl_PersonsDataTable + Get + Return Me.tabletbl_Persons + End Get + End Property + + _ + Public ReadOnly Property tbl_Persons_Jobs() As tbl_Persons_JobsDataTable + Get + Return Me.tabletbl_Persons_Jobs + End Get + End Property + + _ + Public ReadOnly Property tbl_PlotKeywords() As tbl_PlotKeywordsDataTable + Get + Return Me.tabletbl_PlotKeywords + End Get + End Property + + _ + Public ReadOnly Property tbl_Seasons() As tbl_SeasonsDataTable + Get + Return Me.tabletbl_Seasons + End Get + End Property + + _ + Public ReadOnly Property tbl_Series() As tbl_SeriesDataTable + Get + Return Me.tabletbl_Series + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_IMDB = CType(MyBase.Clone,DS_IMDB) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("tbl_Categories")) Is Nothing) Then + MyBase.Tables.Add(New tbl_CategoriesDataTable(ds.Tables("tbl_Categories"))) + End If + If (Not (ds.Tables("tbl_ContentRating")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ContentRatingDataTable(ds.Tables("tbl_ContentRating"))) + End If + If (Not (ds.Tables("tbl_Episodes")) Is Nothing) Then + MyBase.Tables.Add(New tbl_EpisodesDataTable(ds.Tables("tbl_Episodes"))) + End If + If (Not (ds.Tables("tbl_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_GenresDataTable(ds.Tables("tbl_Genres"))) + End If + If (Not (ds.Tables("tbl_Jobs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_JobsDataTable(ds.Tables("tbl_Jobs"))) + End If + If (Not (ds.Tables("tbl_Movies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_MoviesDataTable(ds.Tables("tbl_Movies"))) + End If + If (Not (ds.Tables("tbl_Movies_Episodes_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Movies_Episodes_GenresDataTable(ds.Tables("tbl_Movies_Episodes_Genres"))) + End If + If (Not (ds.Tables("tbl_Movies_Episodes_PlotKeywords")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Movies_Episodes_PlotKeywordsDataTable(ds.Tables("tbl_Movies_Episodes_PlotKeywords"))) + End If + If (Not (ds.Tables("tbl_Persons")) Is Nothing) Then + MyBase.Tables.Add(New tbl_PersonsDataTable(ds.Tables("tbl_Persons"))) + End If + If (Not (ds.Tables("tbl_Persons_Jobs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Persons_JobsDataTable(ds.Tables("tbl_Persons_Jobs"))) + End If + If (Not (ds.Tables("tbl_PlotKeywords")) Is Nothing) Then + MyBase.Tables.Add(New tbl_PlotKeywordsDataTable(ds.Tables("tbl_PlotKeywords"))) + End If + If (Not (ds.Tables("tbl_Seasons")) Is Nothing) Then + MyBase.Tables.Add(New tbl_SeasonsDataTable(ds.Tables("tbl_Seasons"))) + End If + If (Not (ds.Tables("tbl_Series")) Is Nothing) Then + MyBase.Tables.Add(New tbl_SeriesDataTable(ds.Tables("tbl_Series"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tabletbl_Categories = CType(MyBase.Tables("tbl_Categories"),tbl_CategoriesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Categories) Is Nothing) Then + Me.tabletbl_Categories.InitVars + End If + End If + Me.tabletbl_ContentRating = CType(MyBase.Tables("tbl_ContentRating"),tbl_ContentRatingDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_ContentRating) Is Nothing) Then + Me.tabletbl_ContentRating.InitVars + End If + End If + Me.tabletbl_Episodes = CType(MyBase.Tables("tbl_Episodes"),tbl_EpisodesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Episodes) Is Nothing) Then + Me.tabletbl_Episodes.InitVars + End If + End If + Me.tabletbl_Genres = CType(MyBase.Tables("tbl_Genres"),tbl_GenresDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Genres) Is Nothing) Then + Me.tabletbl_Genres.InitVars + End If + End If + Me.tabletbl_Jobs = CType(MyBase.Tables("tbl_Jobs"),tbl_JobsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Jobs) Is Nothing) Then + Me.tabletbl_Jobs.InitVars + End If + End If + Me.tabletbl_Movies = CType(MyBase.Tables("tbl_Movies"),tbl_MoviesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Movies) Is Nothing) Then + Me.tabletbl_Movies.InitVars + End If + End If + Me.tabletbl_Movies_Episodes_Genres = CType(MyBase.Tables("tbl_Movies_Episodes_Genres"),tbl_Movies_Episodes_GenresDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Movies_Episodes_Genres) Is Nothing) Then + Me.tabletbl_Movies_Episodes_Genres.InitVars + End If + End If + Me.tabletbl_Movies_Episodes_PlotKeywords = CType(MyBase.Tables("tbl_Movies_Episodes_PlotKeywords"),tbl_Movies_Episodes_PlotKeywordsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Movies_Episodes_PlotKeywords) Is Nothing) Then + Me.tabletbl_Movies_Episodes_PlotKeywords.InitVars + End If + End If + Me.tabletbl_Persons = CType(MyBase.Tables("tbl_Persons"),tbl_PersonsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Persons) Is Nothing) Then + Me.tabletbl_Persons.InitVars + End If + End If + Me.tabletbl_Persons_Jobs = CType(MyBase.Tables("tbl_Persons_Jobs"),tbl_Persons_JobsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Persons_Jobs) Is Nothing) Then + Me.tabletbl_Persons_Jobs.InitVars + End If + End If + Me.tabletbl_PlotKeywords = CType(MyBase.Tables("tbl_PlotKeywords"),tbl_PlotKeywordsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_PlotKeywords) Is Nothing) Then + Me.tabletbl_PlotKeywords.InitVars + End If + End If + Me.tabletbl_Seasons = CType(MyBase.Tables("tbl_Seasons"),tbl_SeasonsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Seasons) Is Nothing) Then + Me.tabletbl_Seasons.InitVars + End If + End If + Me.tabletbl_Series = CType(MyBase.Tables("tbl_Series"),tbl_SeriesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Series) Is Nothing) Then + Me.tabletbl_Series.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_IMDB" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_IMDB.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbl_Categories = New tbl_CategoriesDataTable() + MyBase.Tables.Add(Me.tabletbl_Categories) + Me.tabletbl_ContentRating = New tbl_ContentRatingDataTable() + MyBase.Tables.Add(Me.tabletbl_ContentRating) + Me.tabletbl_Episodes = New tbl_EpisodesDataTable() + MyBase.Tables.Add(Me.tabletbl_Episodes) + Me.tabletbl_Genres = New tbl_GenresDataTable() + MyBase.Tables.Add(Me.tabletbl_Genres) + Me.tabletbl_Jobs = New tbl_JobsDataTable() + MyBase.Tables.Add(Me.tabletbl_Jobs) + Me.tabletbl_Movies = New tbl_MoviesDataTable() + MyBase.Tables.Add(Me.tabletbl_Movies) + Me.tabletbl_Movies_Episodes_Genres = New tbl_Movies_Episodes_GenresDataTable() + MyBase.Tables.Add(Me.tabletbl_Movies_Episodes_Genres) + Me.tabletbl_Movies_Episodes_PlotKeywords = New tbl_Movies_Episodes_PlotKeywordsDataTable() + MyBase.Tables.Add(Me.tabletbl_Movies_Episodes_PlotKeywords) + Me.tabletbl_Persons = New tbl_PersonsDataTable() + MyBase.Tables.Add(Me.tabletbl_Persons) + Me.tabletbl_Persons_Jobs = New tbl_Persons_JobsDataTable() + MyBase.Tables.Add(Me.tabletbl_Persons_Jobs) + Me.tabletbl_PlotKeywords = New tbl_PlotKeywordsDataTable() + MyBase.Tables.Add(Me.tabletbl_PlotKeywords) + Me.tabletbl_Seasons = New tbl_SeasonsDataTable() + MyBase.Tables.Add(Me.tabletbl_Seasons) + Me.tabletbl_Series = New tbl_SeriesDataTable() + MyBase.Tables.Add(Me.tabletbl_Series) + End Sub + + _ + Private Function ShouldSerializetbl_Categories() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_ContentRating() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Episodes() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Genres() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Jobs() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Movies() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Movies_Episodes_Genres() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Movies_Episodes_PlotKeywords() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Persons() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Persons_Jobs() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_PlotKeywords() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Seasons() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Series() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_IMDB = New DS_IMDB() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub tbl_CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_CategoriesRowChangeEvent) + + _ + Public Delegate Sub tbl_ContentRatingRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ContentRatingRowChangeEvent) + + _ + Public Delegate Sub tbl_EpisodesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_EpisodesRowChangeEvent) + + _ + Public Delegate Sub tbl_GenresRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_GenresRowChangeEvent) + + _ + Public Delegate Sub tbl_JobsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_JobsRowChangeEvent) + + _ + Public Delegate Sub tbl_MoviesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_MoviesRowChangeEvent) + + _ + Public Delegate Sub tbl_Movies_Episodes_GenresRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Movies_Episodes_GenresRowChangeEvent) + + _ + Public Delegate Sub tbl_Movies_Episodes_PlotKeywordsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Movies_Episodes_PlotKeywordsRowChangeEvent) + + _ + Public Delegate Sub tbl_PersonsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_PersonsRowChangeEvent) + + _ + Public Delegate Sub tbl_Persons_JobsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Persons_JobsRowChangeEvent) + + _ + Public Delegate Sub tbl_PlotKeywordsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_PlotKeywordsRowChangeEvent) + + _ + Public Delegate Sub tbl_SeasonsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_SeasonsRowChangeEvent) + + _ + Public Delegate Sub tbl_SeriesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_SeriesRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_CategoriesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_CategoriesRow) + + Private columnid_Categories As Global.System.Data.DataColumn + + Private columnCategoryName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Categories" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Categories + End Get + End Property + + _ + Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategoryName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_CategoriesRow + Get + Return CType(Me.Rows(index),tbl_CategoriesRow) + End Get + End Property + + _ + Public Event tbl_CategoriesRowChanging As tbl_CategoriesRowChangeEventHandler + + _ + Public Event tbl_CategoriesRowChanged As tbl_CategoriesRowChangeEventHandler + + _ + Public Event tbl_CategoriesRowDeleting As tbl_CategoriesRowChangeEventHandler + + _ + Public Event tbl_CategoriesRowDeleted As tbl_CategoriesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_CategoriesRow(ByVal row As tbl_CategoriesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_CategoriesRow(ByVal CategoryName As String) As tbl_CategoriesRow + Dim rowtbl_CategoriesRow As tbl_CategoriesRow = CType(Me.NewRow,tbl_CategoriesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CategoryName} + rowtbl_CategoriesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_CategoriesRow) + Return rowtbl_CategoriesRow + End Function + + _ + Public Function FindByid_Categories(ByVal id_Categories As Long) As tbl_CategoriesRow + Return CType(Me.Rows.Find(New Object() {id_Categories}),tbl_CategoriesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_CategoriesDataTable = CType(MyBase.Clone,tbl_CategoriesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_CategoriesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Categories = MyBase.Columns("id_Categories") + Me.columnCategoryName = MyBase.Columns("CategoryName") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Categories = New Global.System.Data.DataColumn("id_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Categories) + Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategoryName) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Categories}, true)) + Me.columnid_Categories.AutoIncrement = true + Me.columnid_Categories.AutoIncrementSeed = -1 + Me.columnid_Categories.AutoIncrementStep = -1 + Me.columnid_Categories.AllowDBNull = false + Me.columnid_Categories.Unique = true + Me.columnCategoryName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_CategoriesRow() As tbl_CategoriesRow + Return CType(Me.NewRow,tbl_CategoriesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_CategoriesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_CategoriesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_CategoriesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_CategoriesRowChanged(Me, New tbl_CategoriesRowChangeEvent(CType(e.Row,tbl_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_CategoriesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_CategoriesRowChanging(Me, New tbl_CategoriesRowChangeEvent(CType(e.Row,tbl_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_CategoriesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_CategoriesRowDeleted(Me, New tbl_CategoriesRowChangeEvent(CType(e.Row,tbl_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_CategoriesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_CategoriesRowDeleting(Me, New tbl_CategoriesRowChangeEvent(CType(e.Row,tbl_CategoriesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_CategoriesRow(ByVal row As tbl_CategoriesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_CategoriesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_ContentRatingDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_ContentRatingRow) + + Private columnid_ContentRating As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + Private columnAge As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_ContentRating" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_ContentRatingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_ContentRating + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property AgeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAge + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ContentRatingRow + Get + Return CType(Me.Rows(index),tbl_ContentRatingRow) + End Get + End Property + + _ + Public Event tbl_ContentRatingRowChanging As tbl_ContentRatingRowChangeEventHandler + + _ + Public Event tbl_ContentRatingRowChanged As tbl_ContentRatingRowChangeEventHandler + + _ + Public Event tbl_ContentRatingRowDeleting As tbl_ContentRatingRowChangeEventHandler + + _ + Public Event tbl_ContentRatingRowDeleted As tbl_ContentRatingRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_ContentRatingRow(ByVal row As tbl_ContentRatingRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_ContentRatingRow(ByVal Title As String, ByVal Age As Long) As tbl_ContentRatingRow + Dim rowtbl_ContentRatingRow As tbl_ContentRatingRow = CType(Me.NewRow,tbl_ContentRatingRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Title, Age} + rowtbl_ContentRatingRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_ContentRatingRow) + Return rowtbl_ContentRatingRow + End Function + + _ + Public Function FindByid_ContentRating(ByVal id_ContentRating As Long) As tbl_ContentRatingRow + Return CType(Me.Rows.Find(New Object() {id_ContentRating}),tbl_ContentRatingRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_ContentRatingDataTable = CType(MyBase.Clone,tbl_ContentRatingDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_ContentRatingDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_ContentRating = MyBase.Columns("id_ContentRating") + Me.columnTitle = MyBase.Columns("Title") + Me.columnAge = MyBase.Columns("Age") + End Sub + + _ + Private Sub InitClass() + Me.columnid_ContentRating = New Global.System.Data.DataColumn("id_ContentRating", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_ContentRating) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnAge = New Global.System.Data.DataColumn("Age", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAge) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_ContentRating}, true)) + Me.columnid_ContentRating.AutoIncrement = true + Me.columnid_ContentRating.AutoIncrementSeed = -1 + Me.columnid_ContentRating.AutoIncrementStep = -1 + Me.columnid_ContentRating.AllowDBNull = false + Me.columnid_ContentRating.Unique = true + Me.columnTitle.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_ContentRatingRow() As tbl_ContentRatingRow + Return CType(Me.NewRow,tbl_ContentRatingRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_ContentRatingRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_ContentRatingRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_ContentRatingRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_ContentRatingRowChanged(Me, New tbl_ContentRatingRowChangeEvent(CType(e.Row,tbl_ContentRatingRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_ContentRatingRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_ContentRatingRowChanging(Me, New tbl_ContentRatingRowChangeEvent(CType(e.Row,tbl_ContentRatingRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_ContentRatingRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_ContentRatingRowDeleted(Me, New tbl_ContentRatingRowChangeEvent(CType(e.Row,tbl_ContentRatingRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_ContentRatingRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_ContentRatingRowDeleting(Me, New tbl_ContentRatingRowChangeEvent(CType(e.Row,tbl_ContentRatingRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_ContentRatingRow(ByVal row As tbl_ContentRatingRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_ContentRatingDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_EpisodesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_EpisodesRow) + + Private columnid_Episodes As Global.System.Data.DataColumn + + Private columnid_Seasons As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnRating As Global.System.Data.DataColumn + + Private columnRatingUsers As Global.System.Data.DataColumn + + Private columnMetaScore As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnLength As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Episodes" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_EpisodesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Episodes + End Get + End Property + + _ + Public ReadOnly Property id_SeasonsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Seasons + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating + End Get + End Property + + _ + Public ReadOnly Property RatingUsersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRatingUsers + End Get + End Property + + _ + Public ReadOnly Property MetaScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMetaScore + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property LengthColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLength + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_EpisodesRow + Get + Return CType(Me.Rows(index),tbl_EpisodesRow) + End Get + End Property + + _ + Public Event tbl_EpisodesRowChanging As tbl_EpisodesRowChangeEventHandler + + _ + Public Event tbl_EpisodesRowChanged As tbl_EpisodesRowChangeEventHandler + + _ + Public Event tbl_EpisodesRowDeleting As tbl_EpisodesRowChangeEventHandler + + _ + Public Event tbl_EpisodesRowDeleted As tbl_EpisodesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_EpisodesRow(ByVal row As tbl_EpisodesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_EpisodesRow(ByVal id_Seasons As Long, ByVal IMDBid As String, ByVal Title As String, ByVal Year As Long, ByVal Rating As Single, ByVal RatingUsers As Long, ByVal MetaScore As Long, ByVal Description As String, ByVal Length As Long) As tbl_EpisodesRow + Dim rowtbl_EpisodesRow As tbl_EpisodesRow = CType(Me.NewRow,tbl_EpisodesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Seasons, IMDBid, Title, Year, Rating, RatingUsers, MetaScore, Description, Length} + rowtbl_EpisodesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_EpisodesRow) + Return rowtbl_EpisodesRow + End Function + + _ + Public Function FindByid_Episodes(ByVal id_Episodes As Long) As tbl_EpisodesRow + Return CType(Me.Rows.Find(New Object() {id_Episodes}),tbl_EpisodesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_EpisodesDataTable = CType(MyBase.Clone,tbl_EpisodesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_EpisodesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Episodes = MyBase.Columns("id_Episodes") + Me.columnid_Seasons = MyBase.Columns("id_Seasons") + Me.columnIMDBid = MyBase.Columns("IMDBid") + Me.columnTitle = MyBase.Columns("Title") + Me.columnYear = MyBase.Columns("Year") + Me.columnRating = MyBase.Columns("Rating") + Me.columnRatingUsers = MyBase.Columns("RatingUsers") + Me.columnMetaScore = MyBase.Columns("MetaScore") + Me.columnDescription = MyBase.Columns("Description") + Me.columnLength = MyBase.Columns("Length") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Episodes = New Global.System.Data.DataColumn("id_Episodes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Episodes) + Me.columnid_Seasons = New Global.System.Data.DataColumn("id_Seasons", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Seasons) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Single), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating) + Me.columnRatingUsers = New Global.System.Data.DataColumn("RatingUsers", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRatingUsers) + Me.columnMetaScore = New Global.System.Data.DataColumn("MetaScore", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMetaScore) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnLength = New Global.System.Data.DataColumn("Length", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLength) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Episodes}, true)) + Me.columnid_Episodes.AutoIncrement = true + Me.columnid_Episodes.AutoIncrementSeed = -1 + Me.columnid_Episodes.AutoIncrementStep = -1 + Me.columnid_Episodes.AllowDBNull = false + Me.columnid_Episodes.Unique = true + Me.columnIMDBid.MaxLength = 2147483647 + Me.columnTitle.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_EpisodesRow() As tbl_EpisodesRow + Return CType(Me.NewRow,tbl_EpisodesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_EpisodesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_EpisodesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_EpisodesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_EpisodesRowChanged(Me, New tbl_EpisodesRowChangeEvent(CType(e.Row,tbl_EpisodesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_EpisodesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_EpisodesRowChanging(Me, New tbl_EpisodesRowChangeEvent(CType(e.Row,tbl_EpisodesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_EpisodesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_EpisodesRowDeleted(Me, New tbl_EpisodesRowChangeEvent(CType(e.Row,tbl_EpisodesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_EpisodesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_EpisodesRowDeleting(Me, New tbl_EpisodesRowChangeEvent(CType(e.Row,tbl_EpisodesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_EpisodesRow(ByVal row As tbl_EpisodesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_EpisodesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_GenresDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_GenresRow) + + Private columnid_Genres As Global.System.Data.DataColumn + + Private columnGenreName As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Genres" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Genres + End Get + End Property + + _ + Public ReadOnly Property GenreNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGenreName + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_GenresRow + Get + Return CType(Me.Rows(index),tbl_GenresRow) + End Get + End Property + + _ + Public Event tbl_GenresRowChanging As tbl_GenresRowChangeEventHandler + + _ + Public Event tbl_GenresRowChanged As tbl_GenresRowChangeEventHandler + + _ + Public Event tbl_GenresRowDeleting As tbl_GenresRowChangeEventHandler + + _ + Public Event tbl_GenresRowDeleted As tbl_GenresRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_GenresRow(ByVal row As tbl_GenresRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_GenresRow(ByVal GenreName As String, ByVal URLPart As String) As tbl_GenresRow + Dim rowtbl_GenresRow As tbl_GenresRow = CType(Me.NewRow,tbl_GenresRow) + Dim columnValuesArray() As Object = New Object() {Nothing, GenreName, URLPart} + rowtbl_GenresRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_GenresRow) + Return rowtbl_GenresRow + End Function + + _ + Public Function FindByid_Genres(ByVal id_Genres As Long) As tbl_GenresRow + Return CType(Me.Rows.Find(New Object() {id_Genres}),tbl_GenresRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_GenresDataTable = CType(MyBase.Clone,tbl_GenresDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_GenresDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Genres = MyBase.Columns("id_Genres") + Me.columnGenreName = MyBase.Columns("GenreName") + Me.columnURLPart = MyBase.Columns("URLPart") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Genres = New Global.System.Data.DataColumn("id_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Genres) + Me.columnGenreName = New Global.System.Data.DataColumn("GenreName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGenreName) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Genres}, true)) + Me.columnid_Genres.AutoIncrement = true + Me.columnid_Genres.AutoIncrementSeed = -1 + Me.columnid_Genres.AutoIncrementStep = -1 + Me.columnid_Genres.AllowDBNull = false + Me.columnid_Genres.Unique = true + Me.columnGenreName.MaxLength = 2147483647 + Me.columnURLPart.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_GenresRow() As tbl_GenresRow + Return CType(Me.NewRow,tbl_GenresRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_GenresRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_GenresRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_GenresRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_GenresRowChanged(Me, New tbl_GenresRowChangeEvent(CType(e.Row,tbl_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_GenresRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_GenresRowChanging(Me, New tbl_GenresRowChangeEvent(CType(e.Row,tbl_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_GenresRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_GenresRowDeleted(Me, New tbl_GenresRowChangeEvent(CType(e.Row,tbl_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_GenresRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_GenresRowDeleting(Me, New tbl_GenresRowChangeEvent(CType(e.Row,tbl_GenresRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_GenresRow(ByVal row As tbl_GenresRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_GenresDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_JobsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_JobsRow) + + Private columnid_Jobs As Global.System.Data.DataColumn + + Private columnJobTitle As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Jobs" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_JobsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Jobs + End Get + End Property + + _ + Public ReadOnly Property JobTitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJobTitle + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_JobsRow + Get + Return CType(Me.Rows(index),tbl_JobsRow) + End Get + End Property + + _ + Public Event tbl_JobsRowChanging As tbl_JobsRowChangeEventHandler + + _ + Public Event tbl_JobsRowChanged As tbl_JobsRowChangeEventHandler + + _ + Public Event tbl_JobsRowDeleting As tbl_JobsRowChangeEventHandler + + _ + Public Event tbl_JobsRowDeleted As tbl_JobsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_JobsRow(ByVal row As tbl_JobsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_JobsRow(ByVal JobTitle As String) As tbl_JobsRow + Dim rowtbl_JobsRow As tbl_JobsRow = CType(Me.NewRow,tbl_JobsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, JobTitle} + rowtbl_JobsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_JobsRow) + Return rowtbl_JobsRow + End Function + + _ + Public Function FindByid_Jobs(ByVal id_Jobs As Long) As tbl_JobsRow + Return CType(Me.Rows.Find(New Object() {id_Jobs}),tbl_JobsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_JobsDataTable = CType(MyBase.Clone,tbl_JobsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_JobsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Jobs = MyBase.Columns("id_Jobs") + Me.columnJobTitle = MyBase.Columns("JobTitle") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Jobs = New Global.System.Data.DataColumn("id_Jobs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Jobs) + Me.columnJobTitle = New Global.System.Data.DataColumn("JobTitle", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJobTitle) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Jobs}, true)) + Me.columnid_Jobs.AutoIncrement = true + Me.columnid_Jobs.AutoIncrementSeed = -1 + Me.columnid_Jobs.AutoIncrementStep = -1 + Me.columnid_Jobs.AllowDBNull = false + Me.columnid_Jobs.Unique = true + Me.columnJobTitle.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_JobsRow() As tbl_JobsRow + Return CType(Me.NewRow,tbl_JobsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_JobsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_JobsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_JobsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_JobsRowChanged(Me, New tbl_JobsRowChangeEvent(CType(e.Row,tbl_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_JobsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_JobsRowChanging(Me, New tbl_JobsRowChangeEvent(CType(e.Row,tbl_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_JobsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_JobsRowDeleted(Me, New tbl_JobsRowChangeEvent(CType(e.Row,tbl_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_JobsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_JobsRowDeleting(Me, New tbl_JobsRowChangeEvent(CType(e.Row,tbl_JobsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_JobsRow(ByVal row As tbl_JobsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_JobsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_MoviesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_MoviesRow) + + Private columnid_Movies As Global.System.Data.DataColumn + + Private columnid_Categories As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnRating As Global.System.Data.DataColumn + + Private columnRatingUsers As Global.System.Data.DataColumn + + Private columnMetaScore As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnLength As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Movies" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_MoviesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies + End Get + End Property + + _ + Public ReadOnly Property id_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Categories + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating + End Get + End Property + + _ + Public ReadOnly Property RatingUsersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRatingUsers + End Get + End Property + + _ + Public ReadOnly Property MetaScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMetaScore + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property LengthColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLength + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_MoviesRow + Get + Return CType(Me.Rows(index),tbl_MoviesRow) + End Get + End Property + + _ + Public Event tbl_MoviesRowChanging As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowChanged As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowDeleting As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowDeleted As tbl_MoviesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_MoviesRow(ByVal row As tbl_MoviesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_MoviesRow(ByVal id_Categories As Long, ByVal IMDBid As String, ByVal Title As String, ByVal Year As Long, ByVal Rating As Single, ByVal RatingUsers As Long, ByVal MetaScore As Long, ByVal Description As String, ByVal Length As Long) As tbl_MoviesRow + Dim rowtbl_MoviesRow As tbl_MoviesRow = CType(Me.NewRow,tbl_MoviesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Categories, IMDBid, Title, Year, Rating, RatingUsers, MetaScore, Description, Length} + rowtbl_MoviesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_MoviesRow) + Return rowtbl_MoviesRow + End Function + + _ + Public Function FindByid_Movies(ByVal id_Movies As Long) As tbl_MoviesRow + Return CType(Me.Rows.Find(New Object() {id_Movies}),tbl_MoviesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_MoviesDataTable = CType(MyBase.Clone,tbl_MoviesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_MoviesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Movies = MyBase.Columns("id_Movies") + Me.columnid_Categories = MyBase.Columns("id_Categories") + Me.columnIMDBid = MyBase.Columns("IMDBid") + Me.columnTitle = MyBase.Columns("Title") + Me.columnYear = MyBase.Columns("Year") + Me.columnRating = MyBase.Columns("Rating") + Me.columnRatingUsers = MyBase.Columns("RatingUsers") + Me.columnMetaScore = MyBase.Columns("MetaScore") + Me.columnDescription = MyBase.Columns("Description") + Me.columnLength = MyBase.Columns("Length") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Movies = New Global.System.Data.DataColumn("id_Movies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies) + Me.columnid_Categories = New Global.System.Data.DataColumn("id_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Categories) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Single), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating) + Me.columnRatingUsers = New Global.System.Data.DataColumn("RatingUsers", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRatingUsers) + Me.columnMetaScore = New Global.System.Data.DataColumn("MetaScore", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMetaScore) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnLength = New Global.System.Data.DataColumn("Length", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLength) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Movies}, true)) + Me.columnid_Movies.AutoIncrement = true + Me.columnid_Movies.AutoIncrementSeed = -1 + Me.columnid_Movies.AutoIncrementStep = -1 + Me.columnid_Movies.AllowDBNull = false + Me.columnid_Movies.Unique = true + Me.columnIMDBid.MaxLength = 2147483647 + Me.columnTitle.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_MoviesRow() As tbl_MoviesRow + Return CType(Me.NewRow,tbl_MoviesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_MoviesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_MoviesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_MoviesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowChanged(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_MoviesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowChanging(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_MoviesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowDeleted(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_MoviesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowDeleting(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_MoviesRow(ByVal row As tbl_MoviesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_MoviesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Movies_Episodes_GenresDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Movies_Episodes_GenresRow) + + Private columnid_Movies_Episodes_Genres As Global.System.Data.DataColumn + + Private columnid_Movies As Global.System.Data.DataColumn + + Private columnid_Episodes As Global.System.Data.DataColumn + + Private columnid_Genres As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Movies_Episodes_Genres" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Movies_Episodes_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies_Episodes_Genres + End Get + End Property + + _ + Public ReadOnly Property id_MoviesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies + End Get + End Property + + _ + Public ReadOnly Property id_EpisodesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Episodes + End Get + End Property + + _ + Public ReadOnly Property id_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Genres + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Movies_Episodes_GenresRow + Get + Return CType(Me.Rows(index),tbl_Movies_Episodes_GenresRow) + End Get + End Property + + _ + Public Event tbl_Movies_Episodes_GenresRowChanging As tbl_Movies_Episodes_GenresRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_GenresRowChanged As tbl_Movies_Episodes_GenresRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_GenresRowDeleting As tbl_Movies_Episodes_GenresRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_GenresRowDeleted As tbl_Movies_Episodes_GenresRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Movies_Episodes_GenresRow(ByVal row As tbl_Movies_Episodes_GenresRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Movies_Episodes_GenresRow(ByVal id_Movies As Long, ByVal id_Episodes As Long, ByVal id_Genres As Long) As tbl_Movies_Episodes_GenresRow + Dim rowtbl_Movies_Episodes_GenresRow As tbl_Movies_Episodes_GenresRow = CType(Me.NewRow,tbl_Movies_Episodes_GenresRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Movies, id_Episodes, id_Genres} + rowtbl_Movies_Episodes_GenresRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Movies_Episodes_GenresRow) + Return rowtbl_Movies_Episodes_GenresRow + End Function + + _ + Public Function FindByid_Movies_Episodes_Genres(ByVal id_Movies_Episodes_Genres As Long) As tbl_Movies_Episodes_GenresRow + Return CType(Me.Rows.Find(New Object() {id_Movies_Episodes_Genres}),tbl_Movies_Episodes_GenresRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Movies_Episodes_GenresDataTable = CType(MyBase.Clone,tbl_Movies_Episodes_GenresDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Movies_Episodes_GenresDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Movies_Episodes_Genres = MyBase.Columns("id_Movies_Episodes_Genres") + Me.columnid_Movies = MyBase.Columns("id_Movies") + Me.columnid_Episodes = MyBase.Columns("id_Episodes") + Me.columnid_Genres = MyBase.Columns("id_Genres") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Movies_Episodes_Genres = New Global.System.Data.DataColumn("id_Movies_Episodes_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies_Episodes_Genres) + Me.columnid_Movies = New Global.System.Data.DataColumn("id_Movies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies) + Me.columnid_Episodes = New Global.System.Data.DataColumn("id_Episodes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Episodes) + Me.columnid_Genres = New Global.System.Data.DataColumn("id_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Genres) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Movies_Episodes_Genres}, true)) + Me.columnid_Movies_Episodes_Genres.AutoIncrement = true + Me.columnid_Movies_Episodes_Genres.AutoIncrementSeed = -1 + Me.columnid_Movies_Episodes_Genres.AutoIncrementStep = -1 + Me.columnid_Movies_Episodes_Genres.AllowDBNull = false + Me.columnid_Movies_Episodes_Genres.Unique = true + End Sub + + _ + Public Function Newtbl_Movies_Episodes_GenresRow() As tbl_Movies_Episodes_GenresRow + Return CType(Me.NewRow,tbl_Movies_Episodes_GenresRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Movies_Episodes_GenresRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Movies_Episodes_GenresRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Movies_Episodes_GenresRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_GenresRowChanged(Me, New tbl_Movies_Episodes_GenresRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Movies_Episodes_GenresRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_GenresRowChanging(Me, New tbl_Movies_Episodes_GenresRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Movies_Episodes_GenresRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_GenresRowDeleted(Me, New tbl_Movies_Episodes_GenresRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Movies_Episodes_GenresRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_GenresRowDeleting(Me, New tbl_Movies_Episodes_GenresRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_GenresRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Movies_Episodes_GenresRow(ByVal row As tbl_Movies_Episodes_GenresRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Movies_Episodes_GenresDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Movies_Episodes_PlotKeywordsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Movies_Episodes_PlotKeywordsRow) + + Private columnid_Movies_Episodes_PlotKeywords As Global.System.Data.DataColumn + + Private columnid_Movies As Global.System.Data.DataColumn + + Private columnid_Episodes As Global.System.Data.DataColumn + + Private columnid_PlotKeywords As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Movies_Episodes_PlotKeywords" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Movies_Episodes_PlotKeywordsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies_Episodes_PlotKeywords + End Get + End Property + + _ + Public ReadOnly Property id_MoviesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies + End Get + End Property + + _ + Public ReadOnly Property id_EpisodesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Episodes + End Get + End Property + + _ + Public ReadOnly Property id_PlotKeywordsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_PlotKeywords + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Movies_Episodes_PlotKeywordsRow + Get + Return CType(Me.Rows(index),tbl_Movies_Episodes_PlotKeywordsRow) + End Get + End Property + + _ + Public Event tbl_Movies_Episodes_PlotKeywordsRowChanging As tbl_Movies_Episodes_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_PlotKeywordsRowChanged As tbl_Movies_Episodes_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_PlotKeywordsRowDeleting As tbl_Movies_Episodes_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_Movies_Episodes_PlotKeywordsRowDeleted As tbl_Movies_Episodes_PlotKeywordsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Movies_Episodes_PlotKeywordsRow(ByVal row As tbl_Movies_Episodes_PlotKeywordsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Movies_Episodes_PlotKeywordsRow(ByVal id_Movies As Long, ByVal id_Episodes As Long, ByVal id_PlotKeywords As Long) As tbl_Movies_Episodes_PlotKeywordsRow + Dim rowtbl_Movies_Episodes_PlotKeywordsRow As tbl_Movies_Episodes_PlotKeywordsRow = CType(Me.NewRow,tbl_Movies_Episodes_PlotKeywordsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Movies, id_Episodes, id_PlotKeywords} + rowtbl_Movies_Episodes_PlotKeywordsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Movies_Episodes_PlotKeywordsRow) + Return rowtbl_Movies_Episodes_PlotKeywordsRow + End Function + + _ + Public Function FindByid_Movies_Episodes_PlotKeywords(ByVal id_Movies_Episodes_PlotKeywords As Long) As tbl_Movies_Episodes_PlotKeywordsRow + Return CType(Me.Rows.Find(New Object() {id_Movies_Episodes_PlotKeywords}),tbl_Movies_Episodes_PlotKeywordsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Movies_Episodes_PlotKeywordsDataTable = CType(MyBase.Clone,tbl_Movies_Episodes_PlotKeywordsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Movies_Episodes_PlotKeywordsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Movies_Episodes_PlotKeywords = MyBase.Columns("id_Movies_Episodes_PlotKeywords") + Me.columnid_Movies = MyBase.Columns("id_Movies") + Me.columnid_Episodes = MyBase.Columns("id_Episodes") + Me.columnid_PlotKeywords = MyBase.Columns("id_PlotKeywords") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Movies_Episodes_PlotKeywords = New Global.System.Data.DataColumn("id_Movies_Episodes_PlotKeywords", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies_Episodes_PlotKeywords) + Me.columnid_Movies = New Global.System.Data.DataColumn("id_Movies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies) + Me.columnid_Episodes = New Global.System.Data.DataColumn("id_Episodes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Episodes) + Me.columnid_PlotKeywords = New Global.System.Data.DataColumn("id_PlotKeywords", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_PlotKeywords) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Movies_Episodes_PlotKeywords}, true)) + Me.columnid_Movies_Episodes_PlotKeywords.AutoIncrement = true + Me.columnid_Movies_Episodes_PlotKeywords.AutoIncrementSeed = -1 + Me.columnid_Movies_Episodes_PlotKeywords.AutoIncrementStep = -1 + Me.columnid_Movies_Episodes_PlotKeywords.AllowDBNull = false + Me.columnid_Movies_Episodes_PlotKeywords.Unique = true + End Sub + + _ + Public Function Newtbl_Movies_Episodes_PlotKeywordsRow() As tbl_Movies_Episodes_PlotKeywordsRow + Return CType(Me.NewRow,tbl_Movies_Episodes_PlotKeywordsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Movies_Episodes_PlotKeywordsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Movies_Episodes_PlotKeywordsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Movies_Episodes_PlotKeywordsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_PlotKeywordsRowChanged(Me, New tbl_Movies_Episodes_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Movies_Episodes_PlotKeywordsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_PlotKeywordsRowChanging(Me, New tbl_Movies_Episodes_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Movies_Episodes_PlotKeywordsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_PlotKeywordsRowDeleted(Me, New tbl_Movies_Episodes_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Movies_Episodes_PlotKeywordsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Movies_Episodes_PlotKeywordsRowDeleting(Me, New tbl_Movies_Episodes_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_Movies_Episodes_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Movies_Episodes_PlotKeywordsRow(ByVal row As tbl_Movies_Episodes_PlotKeywordsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Movies_Episodes_PlotKeywordsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_PersonsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_PersonsRow) + + Private columnid_Persons As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Persons" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_PersonsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Persons + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_PersonsRow + Get + Return CType(Me.Rows(index),tbl_PersonsRow) + End Get + End Property + + _ + Public Event tbl_PersonsRowChanging As tbl_PersonsRowChangeEventHandler + + _ + Public Event tbl_PersonsRowChanged As tbl_PersonsRowChangeEventHandler + + _ + Public Event tbl_PersonsRowDeleting As tbl_PersonsRowChangeEventHandler + + _ + Public Event tbl_PersonsRowDeleted As tbl_PersonsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_PersonsRow(ByVal row As tbl_PersonsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_PersonsRow(ByVal IMDBid As String, ByVal Name As String, ByVal Description As String) As tbl_PersonsRow + Dim rowtbl_PersonsRow As tbl_PersonsRow = CType(Me.NewRow,tbl_PersonsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, IMDBid, Name, Description} + rowtbl_PersonsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_PersonsRow) + Return rowtbl_PersonsRow + End Function + + _ + Public Function FindByid_Persons(ByVal id_Persons As Long) As tbl_PersonsRow + Return CType(Me.Rows.Find(New Object() {id_Persons}),tbl_PersonsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_PersonsDataTable = CType(MyBase.Clone,tbl_PersonsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_PersonsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Persons = MyBase.Columns("id_Persons") + Me.columnIMDBid = MyBase.Columns("IMDBid") + Me.columnName = MyBase.Columns("Name") + Me.columnDescription = MyBase.Columns("Description") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Persons = New Global.System.Data.DataColumn("id_Persons", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Persons) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Persons}, true)) + Me.columnid_Persons.AutoIncrement = true + Me.columnid_Persons.AutoIncrementSeed = -1 + Me.columnid_Persons.AutoIncrementStep = -1 + Me.columnid_Persons.AllowDBNull = false + Me.columnid_Persons.Unique = true + Me.columnIMDBid.MaxLength = 2147483647 + Me.columnName.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_PersonsRow() As tbl_PersonsRow + Return CType(Me.NewRow,tbl_PersonsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_PersonsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_PersonsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_PersonsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_PersonsRowChanged(Me, New tbl_PersonsRowChangeEvent(CType(e.Row,tbl_PersonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_PersonsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_PersonsRowChanging(Me, New tbl_PersonsRowChangeEvent(CType(e.Row,tbl_PersonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_PersonsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_PersonsRowDeleted(Me, New tbl_PersonsRowChangeEvent(CType(e.Row,tbl_PersonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_PersonsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_PersonsRowDeleting(Me, New tbl_PersonsRowChangeEvent(CType(e.Row,tbl_PersonsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_PersonsRow(ByVal row As tbl_PersonsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_PersonsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Persons_JobsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Persons_JobsRow) + + Private columnid_Persons_Jobs As Global.System.Data.DataColumn + + Private columnid_Persons As Global.System.Data.DataColumn + + Private columnid_Movies As Global.System.Data.DataColumn + + Private columnid_Episodes As Global.System.Data.DataColumn + + Private columnid_Jobs As Global.System.Data.DataColumn + + Private columnNotes As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Persons_Jobs" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Persons_JobsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Persons_Jobs + End Get + End Property + + _ + Public ReadOnly Property id_PersonsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Persons + End Get + End Property + + _ + Public ReadOnly Property id_MoviesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies + End Get + End Property + + _ + Public ReadOnly Property id_EpisodesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Episodes + End Get + End Property + + _ + Public ReadOnly Property id_JobsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Jobs + End Get + End Property + + _ + Public ReadOnly Property NotesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNotes + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Persons_JobsRow + Get + Return CType(Me.Rows(index),tbl_Persons_JobsRow) + End Get + End Property + + _ + Public Event tbl_Persons_JobsRowChanging As tbl_Persons_JobsRowChangeEventHandler + + _ + Public Event tbl_Persons_JobsRowChanged As tbl_Persons_JobsRowChangeEventHandler + + _ + Public Event tbl_Persons_JobsRowDeleting As tbl_Persons_JobsRowChangeEventHandler + + _ + Public Event tbl_Persons_JobsRowDeleted As tbl_Persons_JobsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Persons_JobsRow(ByVal row As tbl_Persons_JobsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Persons_JobsRow(ByVal id_Persons As Long, ByVal id_Movies As Long, ByVal id_Episodes As Long, ByVal id_Jobs As Long, ByVal Notes As String) As tbl_Persons_JobsRow + Dim rowtbl_Persons_JobsRow As tbl_Persons_JobsRow = CType(Me.NewRow,tbl_Persons_JobsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Persons, id_Movies, id_Episodes, id_Jobs, Notes} + rowtbl_Persons_JobsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Persons_JobsRow) + Return rowtbl_Persons_JobsRow + End Function + + _ + Public Function FindByid_Persons_Jobs(ByVal id_Persons_Jobs As Long) As tbl_Persons_JobsRow + Return CType(Me.Rows.Find(New Object() {id_Persons_Jobs}),tbl_Persons_JobsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Persons_JobsDataTable = CType(MyBase.Clone,tbl_Persons_JobsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Persons_JobsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Persons_Jobs = MyBase.Columns("id_Persons_Jobs") + Me.columnid_Persons = MyBase.Columns("id_Persons") + Me.columnid_Movies = MyBase.Columns("id_Movies") + Me.columnid_Episodes = MyBase.Columns("id_Episodes") + Me.columnid_Jobs = MyBase.Columns("id_Jobs") + Me.columnNotes = MyBase.Columns("Notes") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Persons_Jobs = New Global.System.Data.DataColumn("id_Persons_Jobs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Persons_Jobs) + Me.columnid_Persons = New Global.System.Data.DataColumn("id_Persons", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Persons) + Me.columnid_Movies = New Global.System.Data.DataColumn("id_Movies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies) + Me.columnid_Episodes = New Global.System.Data.DataColumn("id_Episodes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Episodes) + Me.columnid_Jobs = New Global.System.Data.DataColumn("id_Jobs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Jobs) + Me.columnNotes = New Global.System.Data.DataColumn("Notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNotes) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Persons_Jobs}, true)) + Me.columnid_Persons_Jobs.AutoIncrement = true + Me.columnid_Persons_Jobs.AutoIncrementSeed = -1 + Me.columnid_Persons_Jobs.AutoIncrementStep = -1 + Me.columnid_Persons_Jobs.AllowDBNull = false + Me.columnid_Persons_Jobs.Unique = true + Me.columnNotes.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Persons_JobsRow() As tbl_Persons_JobsRow + Return CType(Me.NewRow,tbl_Persons_JobsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Persons_JobsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Persons_JobsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Persons_JobsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Persons_JobsRowChanged(Me, New tbl_Persons_JobsRowChangeEvent(CType(e.Row,tbl_Persons_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Persons_JobsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Persons_JobsRowChanging(Me, New tbl_Persons_JobsRowChangeEvent(CType(e.Row,tbl_Persons_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Persons_JobsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Persons_JobsRowDeleted(Me, New tbl_Persons_JobsRowChangeEvent(CType(e.Row,tbl_Persons_JobsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Persons_JobsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Persons_JobsRowDeleting(Me, New tbl_Persons_JobsRowChangeEvent(CType(e.Row,tbl_Persons_JobsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Persons_JobsRow(ByVal row As tbl_Persons_JobsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Persons_JobsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_PlotKeywordsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_PlotKeywordsRow) + + Private columnid_PlotKeywords As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_PlotKeywords" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_PlotKeywordsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_PlotKeywords + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_PlotKeywordsRow + Get + Return CType(Me.Rows(index),tbl_PlotKeywordsRow) + End Get + End Property + + _ + Public Event tbl_PlotKeywordsRowChanging As tbl_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_PlotKeywordsRowChanged As tbl_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_PlotKeywordsRowDeleting As tbl_PlotKeywordsRowChangeEventHandler + + _ + Public Event tbl_PlotKeywordsRowDeleted As tbl_PlotKeywordsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_PlotKeywordsRow(ByVal row As tbl_PlotKeywordsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_PlotKeywordsRow(ByVal Name As String) As tbl_PlotKeywordsRow + Dim rowtbl_PlotKeywordsRow As tbl_PlotKeywordsRow = CType(Me.NewRow,tbl_PlotKeywordsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name} + rowtbl_PlotKeywordsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_PlotKeywordsRow) + Return rowtbl_PlotKeywordsRow + End Function + + _ + Public Function FindByid_PlotKeywords(ByVal id_PlotKeywords As Long) As tbl_PlotKeywordsRow + Return CType(Me.Rows.Find(New Object() {id_PlotKeywords}),tbl_PlotKeywordsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_PlotKeywordsDataTable = CType(MyBase.Clone,tbl_PlotKeywordsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_PlotKeywordsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_PlotKeywords = MyBase.Columns("id_PlotKeywords") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_PlotKeywords = New Global.System.Data.DataColumn("id_PlotKeywords", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_PlotKeywords) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_PlotKeywords}, true)) + Me.columnid_PlotKeywords.AutoIncrement = true + Me.columnid_PlotKeywords.AutoIncrementSeed = -1 + Me.columnid_PlotKeywords.AutoIncrementStep = -1 + Me.columnid_PlotKeywords.AllowDBNull = false + Me.columnid_PlotKeywords.Unique = true + Me.columnName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_PlotKeywordsRow() As tbl_PlotKeywordsRow + Return CType(Me.NewRow,tbl_PlotKeywordsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_PlotKeywordsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_PlotKeywordsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_PlotKeywordsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_PlotKeywordsRowChanged(Me, New tbl_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_PlotKeywordsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_PlotKeywordsRowChanging(Me, New tbl_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_PlotKeywordsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_PlotKeywordsRowDeleted(Me, New tbl_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_PlotKeywordsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_PlotKeywordsRowDeleting(Me, New tbl_PlotKeywordsRowChangeEvent(CType(e.Row,tbl_PlotKeywordsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_PlotKeywordsRow(ByVal row As tbl_PlotKeywordsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_PlotKeywordsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_SeasonsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_SeasonsRow) + + Private columnid_Seasons As Global.System.Data.DataColumn + + Private columnid_Series As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + Private columnSeason As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Seasons" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_SeasonsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Seasons + End Get + End Property + + _ + Public ReadOnly Property id_SeriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Series + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property SeasonColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSeason + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_SeasonsRow + Get + Return CType(Me.Rows(index),tbl_SeasonsRow) + End Get + End Property + + _ + Public Event tbl_SeasonsRowChanging As tbl_SeasonsRowChangeEventHandler + + _ + Public Event tbl_SeasonsRowChanged As tbl_SeasonsRowChangeEventHandler + + _ + Public Event tbl_SeasonsRowDeleting As tbl_SeasonsRowChangeEventHandler + + _ + Public Event tbl_SeasonsRowDeleted As tbl_SeasonsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_SeasonsRow(ByVal row As tbl_SeasonsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_SeasonsRow(ByVal id_Series As Long, ByVal IMDBid As String, ByVal Title As String, ByVal Season As Long, ByVal Year As Long) As tbl_SeasonsRow + Dim rowtbl_SeasonsRow As tbl_SeasonsRow = CType(Me.NewRow,tbl_SeasonsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Series, IMDBid, Title, Season, Year} + rowtbl_SeasonsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_SeasonsRow) + Return rowtbl_SeasonsRow + End Function + + _ + Public Function FindByid_Seasons(ByVal id_Seasons As Long) As tbl_SeasonsRow + Return CType(Me.Rows.Find(New Object() {id_Seasons}),tbl_SeasonsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_SeasonsDataTable = CType(MyBase.Clone,tbl_SeasonsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_SeasonsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Seasons = MyBase.Columns("id_Seasons") + Me.columnid_Series = MyBase.Columns("id_Series") + Me.columnIMDBid = MyBase.Columns("IMDBid") + Me.columnTitle = MyBase.Columns("Title") + Me.columnSeason = MyBase.Columns("Season") + Me.columnYear = MyBase.Columns("Year") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Seasons = New Global.System.Data.DataColumn("id_Seasons", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Seasons) + Me.columnid_Series = New Global.System.Data.DataColumn("id_Series", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Series) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnSeason = New Global.System.Data.DataColumn("Season", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSeason) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Seasons}, true)) + Me.columnid_Seasons.AutoIncrement = true + Me.columnid_Seasons.AutoIncrementSeed = -1 + Me.columnid_Seasons.AutoIncrementStep = -1 + Me.columnid_Seasons.AllowDBNull = false + Me.columnid_Seasons.Unique = true + Me.columnIMDBid.MaxLength = 2147483647 + Me.columnTitle.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_SeasonsRow() As tbl_SeasonsRow + Return CType(Me.NewRow,tbl_SeasonsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_SeasonsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_SeasonsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_SeasonsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_SeasonsRowChanged(Me, New tbl_SeasonsRowChangeEvent(CType(e.Row,tbl_SeasonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_SeasonsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_SeasonsRowChanging(Me, New tbl_SeasonsRowChangeEvent(CType(e.Row,tbl_SeasonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_SeasonsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_SeasonsRowDeleted(Me, New tbl_SeasonsRowChangeEvent(CType(e.Row,tbl_SeasonsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_SeasonsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_SeasonsRowDeleting(Me, New tbl_SeasonsRowChangeEvent(CType(e.Row,tbl_SeasonsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_SeasonsRow(ByVal row As tbl_SeasonsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_SeasonsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_SeriesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_SeriesRow) + + Private columnid_Series As Global.System.Data.DataColumn + + Private columnid_Categories As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + Private columnCategory As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnRating As Global.System.Data.DataColumn + + Private columnRatingUsers As Global.System.Data.DataColumn + + Private columnMetaScore As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Series" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_SeriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Series + End Get + End Property + + _ + Public ReadOnly Property id_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Categories + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategory + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating + End Get + End Property + + _ + Public ReadOnly Property RatingUsersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRatingUsers + End Get + End Property + + _ + Public ReadOnly Property MetaScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMetaScore + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_SeriesRow + Get + Return CType(Me.Rows(index),tbl_SeriesRow) + End Get + End Property + + _ + Public Event tbl_SeriesRowChanging As tbl_SeriesRowChangeEventHandler + + _ + Public Event tbl_SeriesRowChanged As tbl_SeriesRowChangeEventHandler + + _ + Public Event tbl_SeriesRowDeleting As tbl_SeriesRowChangeEventHandler + + _ + Public Event tbl_SeriesRowDeleted As tbl_SeriesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_SeriesRow(ByVal row As tbl_SeriesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_SeriesRow(ByVal id_Categories As Long, ByVal IMDBid As String, ByVal Title As String, ByVal Category As String, ByVal Year As Long, ByVal Rating As Single, ByVal RatingUsers As Long, ByVal MetaScore As Long, ByVal Description As String) As tbl_SeriesRow + Dim rowtbl_SeriesRow As tbl_SeriesRow = CType(Me.NewRow,tbl_SeriesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Categories, IMDBid, Title, Category, Year, Rating, RatingUsers, MetaScore, Description} + rowtbl_SeriesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_SeriesRow) + Return rowtbl_SeriesRow + End Function + + _ + Public Function FindByid_Series(ByVal id_Series As Long) As tbl_SeriesRow + Return CType(Me.Rows.Find(New Object() {id_Series}),tbl_SeriesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_SeriesDataTable = CType(MyBase.Clone,tbl_SeriesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_SeriesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Series = MyBase.Columns("id_Series") + Me.columnid_Categories = MyBase.Columns("id_Categories") + Me.columnIMDBid = MyBase.Columns("IMDBid") + Me.columnTitle = MyBase.Columns("Title") + Me.columnCategory = MyBase.Columns("Category") + Me.columnYear = MyBase.Columns("Year") + Me.columnRating = MyBase.Columns("Rating") + Me.columnRatingUsers = MyBase.Columns("RatingUsers") + Me.columnMetaScore = MyBase.Columns("MetaScore") + Me.columnDescription = MyBase.Columns("Description") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Series = New Global.System.Data.DataColumn("id_Series", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Series) + Me.columnid_Categories = New Global.System.Data.DataColumn("id_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Categories) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategory) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Single), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating) + Me.columnRatingUsers = New Global.System.Data.DataColumn("RatingUsers", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRatingUsers) + Me.columnMetaScore = New Global.System.Data.DataColumn("MetaScore", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMetaScore) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Series}, true)) + Me.columnid_Series.AutoIncrement = true + Me.columnid_Series.AutoIncrementSeed = -1 + Me.columnid_Series.AutoIncrementStep = -1 + Me.columnid_Series.AllowDBNull = false + Me.columnid_Series.Unique = true + Me.columnIMDBid.MaxLength = 2147483647 + Me.columnTitle.MaxLength = 2147483647 + Me.columnCategory.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_SeriesRow() As tbl_SeriesRow + Return CType(Me.NewRow,tbl_SeriesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_SeriesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_SeriesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_SeriesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_SeriesRowChanged(Me, New tbl_SeriesRowChangeEvent(CType(e.Row,tbl_SeriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_SeriesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_SeriesRowChanging(Me, New tbl_SeriesRowChangeEvent(CType(e.Row,tbl_SeriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_SeriesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_SeriesRowDeleted(Me, New tbl_SeriesRowChangeEvent(CType(e.Row,tbl_SeriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_SeriesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_SeriesRowDeleting(Me, New tbl_SeriesRowChangeEvent(CType(e.Row,tbl_SeriesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_SeriesRow(ByVal row As tbl_SeriesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_IMDB = New DS_IMDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_SeriesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_CategoriesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Categories As tbl_CategoriesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Categories = CType(Me.Table,tbl_CategoriesDataTable) + End Sub + + _ + Public Property id_Categories() As Long + Get + Return CType(Me(Me.tabletbl_Categories.id_CategoriesColumn),Long) + End Get + Set + Me(Me.tabletbl_Categories.id_CategoriesColumn) = value + End Set + End Property + + _ + Public Property CategoryName() As String + Get + Try + Return CType(Me(Me.tabletbl_Categories.CategoryNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CategoryName in Tabelle tbl_Categories ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Categories.CategoryNameColumn) = value + End Set + End Property + + _ + Public Function IsCategoryNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Categories.CategoryNameColumn) + End Function + + _ + Public Sub SetCategoryNameNull() + Me(Me.tabletbl_Categories.CategoryNameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ContentRatingRow + Inherits Global.System.Data.DataRow + + Private tabletbl_ContentRating As tbl_ContentRatingDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ContentRating = CType(Me.Table,tbl_ContentRatingDataTable) + End Sub + + _ + Public Property id_ContentRating() As Long + Get + Return CType(Me(Me.tabletbl_ContentRating.id_ContentRatingColumn),Long) + End Get + Set + Me(Me.tabletbl_ContentRating.id_ContentRatingColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_ContentRating.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_ContentRating ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ContentRating.TitleColumn) = value + End Set + End Property + + _ + Public Property Age() As Long + Get + Try + Return CType(Me(Me.tabletbl_ContentRating.AgeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Age in Tabelle tbl_ContentRating ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ContentRating.AgeColumn) = value + End Set + End Property + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_ContentRating.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_ContentRating.TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAgeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ContentRating.AgeColumn) + End Function + + _ + Public Sub SetAgeNull() + Me(Me.tabletbl_ContentRating.AgeColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_EpisodesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Episodes As tbl_EpisodesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Episodes = CType(Me.Table,tbl_EpisodesDataTable) + End Sub + + _ + Public Property id_Episodes() As Long + Get + Return CType(Me(Me.tabletbl_Episodes.id_EpisodesColumn),Long) + End Get + Set + Me(Me.tabletbl_Episodes.id_EpisodesColumn) = value + End Set + End Property + + _ + Public Property id_Seasons() As Long + Get + Try + Return CType(Me(Me.tabletbl_Episodes.id_SeasonsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Seasons in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.id_SeasonsColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Episodes.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.IMDBidColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_Episodes.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.TitleColumn) = value + End Set + End Property + + _ + Public Property Year() As Long + Get + Try + Return CType(Me(Me.tabletbl_Episodes.YearColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.YearColumn) = value + End Set + End Property + + _ + Public Property Rating() As Single + Get + Try + Return CType(Me(Me.tabletbl_Episodes.RatingColumn),Single) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.RatingColumn) = value + End Set + End Property + + _ + Public Property RatingUsers() As Long + Get + Try + Return CType(Me(Me.tabletbl_Episodes.RatingUsersColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RatingUsers in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.RatingUsersColumn) = value + End Set + End Property + + _ + Public Property MetaScore() As Long + Get + Try + Return CType(Me(Me.tabletbl_Episodes.MetaScoreColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MetaScore in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.MetaScoreColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Episodes.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Length() As Long + Get + Try + Return CType(Me(Me.tabletbl_Episodes.LengthColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Length in Tabelle tbl_Episodes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Episodes.LengthColumn) = value + End Set + End Property + + _ + Public Function Isid_SeasonsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.id_SeasonsColumn) + End Function + + _ + Public Sub Setid_SeasonsNull() + Me(Me.tabletbl_Episodes.id_SeasonsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Episodes.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_Episodes.TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Episodes.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.RatingColumn) + End Function + + _ + Public Sub SetRatingNull() + Me(Me.tabletbl_Episodes.RatingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingUsersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.RatingUsersColumn) + End Function + + _ + Public Sub SetRatingUsersNull() + Me(Me.tabletbl_Episodes.RatingUsersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMetaScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.MetaScoreColumn) + End Function + + _ + Public Sub SetMetaScoreNull() + Me(Me.tabletbl_Episodes.MetaScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Episodes.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLengthNull() As Boolean + Return Me.IsNull(Me.tabletbl_Episodes.LengthColumn) + End Function + + _ + Public Sub SetLengthNull() + Me(Me.tabletbl_Episodes.LengthColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_GenresRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Genres As tbl_GenresDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Genres = CType(Me.Table,tbl_GenresDataTable) + End Sub + + _ + Public Property id_Genres() As Long + Get + Return CType(Me(Me.tabletbl_Genres.id_GenresColumn),Long) + End Get + Set + Me(Me.tabletbl_Genres.id_GenresColumn) = value + End Set + End Property + + _ + Public Property GenreName() As String + Get + Try + Return CType(Me(Me.tabletbl_Genres.GenreNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GenreName in Tabelle tbl_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Genres.GenreNameColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Genres.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle tbl_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Genres.URLPartColumn) = value + End Set + End Property + + _ + Public Function IsGenreNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Genres.GenreNameColumn) + End Function + + _ + Public Sub SetGenreNameNull() + Me(Me.tabletbl_Genres.GenreNameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Genres.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tabletbl_Genres.URLPartColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_JobsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Jobs As tbl_JobsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Jobs = CType(Me.Table,tbl_JobsDataTable) + End Sub + + _ + Public Property id_Jobs() As Long + Get + Return CType(Me(Me.tabletbl_Jobs.id_JobsColumn),Long) + End Get + Set + Me(Me.tabletbl_Jobs.id_JobsColumn) = value + End Set + End Property + + _ + Public Property JobTitle() As String + Get + Try + Return CType(Me(Me.tabletbl_Jobs.JobTitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte JobTitle in Tabelle tbl_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Jobs.JobTitleColumn) = value + End Set + End Property + + _ + Public Function IsJobTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Jobs.JobTitleColumn) + End Function + + _ + Public Sub SetJobTitleNull() + Me(Me.tabletbl_Jobs.JobTitleColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_MoviesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Movies As tbl_MoviesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Movies = CType(Me.Table,tbl_MoviesDataTable) + End Sub + + _ + Public Property id_Movies() As Long + Get + Return CType(Me(Me.tabletbl_Movies.id_MoviesColumn),Long) + End Get + Set + Me(Me.tabletbl_Movies.id_MoviesColumn) = value + End Set + End Property + + _ + Public Property id_Categories() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies.id_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Categories in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.id_CategoriesColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.IMDBidColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.TitleColumn) = value + End Set + End Property + + _ + Public Property Year() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies.YearColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.YearColumn) = value + End Set + End Property + + _ + Public Property Rating() As Single + Get + Try + Return CType(Me(Me.tabletbl_Movies.RatingColumn),Single) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.RatingColumn) = value + End Set + End Property + + _ + Public Property RatingUsers() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies.RatingUsersColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RatingUsers in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.RatingUsersColumn) = value + End Set + End Property + + _ + Public Property MetaScore() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies.MetaScoreColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MetaScore in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.MetaScoreColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Length() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies.LengthColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Length in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.LengthColumn) = value + End Set + End Property + + _ + Public Function Isid_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.id_CategoriesColumn) + End Function + + _ + Public Sub Setid_CategoriesNull() + Me(Me.tabletbl_Movies.id_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Movies.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_Movies.TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Movies.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.RatingColumn) + End Function + + _ + Public Sub SetRatingNull() + Me(Me.tabletbl_Movies.RatingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingUsersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.RatingUsersColumn) + End Function + + _ + Public Sub SetRatingUsersNull() + Me(Me.tabletbl_Movies.RatingUsersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMetaScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.MetaScoreColumn) + End Function + + _ + Public Sub SetMetaScoreNull() + Me(Me.tabletbl_Movies.MetaScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Movies.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLengthNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.LengthColumn) + End Function + + _ + Public Sub SetLengthNull() + Me(Me.tabletbl_Movies.LengthColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Movies_Episodes_GenresRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Movies_Episodes_Genres As tbl_Movies_Episodes_GenresDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Movies_Episodes_Genres = CType(Me.Table,tbl_Movies_Episodes_GenresDataTable) + End Sub + + _ + Public Property id_Movies_Episodes_Genres() As Long + Get + Return CType(Me(Me.tabletbl_Movies_Episodes_Genres.id_Movies_Episodes_GenresColumn),Long) + End Get + Set + Me(Me.tabletbl_Movies_Episodes_Genres.id_Movies_Episodes_GenresColumn) = value + End Set + End Property + + _ + Public Property id_Movies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_Genres.id_MoviesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Movies in Tabelle tbl_Movies_Episodes_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_Genres.id_MoviesColumn) = value + End Set + End Property + + _ + Public Property id_Episodes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_Genres.id_EpisodesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Episodes in Tabelle tbl_Movies_Episodes_Genres ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_Genres.id_EpisodesColumn) = value + End Set + End Property + + _ + Public Property id_Genres() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_Genres.id_GenresColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Genres in Tabelle tbl_Movies_Episodes_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_Genres.id_GenresColumn) = value + End Set + End Property + + _ + Public Function Isid_MoviesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_Genres.id_MoviesColumn) + End Function + + _ + Public Sub Setid_MoviesNull() + Me(Me.tabletbl_Movies_Episodes_Genres.id_MoviesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_EpisodesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_Genres.id_EpisodesColumn) + End Function + + _ + Public Sub Setid_EpisodesNull() + Me(Me.tabletbl_Movies_Episodes_Genres.id_EpisodesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_Genres.id_GenresColumn) + End Function + + _ + Public Sub Setid_GenresNull() + Me(Me.tabletbl_Movies_Episodes_Genres.id_GenresColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Movies_Episodes_PlotKeywordsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Movies_Episodes_PlotKeywords As tbl_Movies_Episodes_PlotKeywordsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Movies_Episodes_PlotKeywords = CType(Me.Table,tbl_Movies_Episodes_PlotKeywordsDataTable) + End Sub + + _ + Public Property id_Movies_Episodes_PlotKeywords() As Long + Get + Return CType(Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_Movies_Episodes_PlotKeywordsColumn),Long) + End Get + Set + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_Movies_Episodes_PlotKeywordsColumn) = value + End Set + End Property + + _ + Public Property id_Movies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_MoviesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Movies in Tabelle tbl_Movies_Episodes_PlotKeywords ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_MoviesColumn) = value + End Set + End Property + + _ + Public Property id_Episodes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_EpisodesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Episodes in Tabelle tbl_Movies_Episodes_PlotKeywords ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_EpisodesColumn) = value + End Set + End Property + + _ + Public Property id_PlotKeywords() As Long + Get + Try + Return CType(Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_PlotKeywordsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_PlotKeywords in Tabelle tbl_Movies_Episodes_PlotKeywords i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_PlotKeywordsColumn) = value + End Set + End Property + + _ + Public Function Isid_MoviesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_PlotKeywords.id_MoviesColumn) + End Function + + _ + Public Sub Setid_MoviesNull() + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_MoviesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_EpisodesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_PlotKeywords.id_EpisodesColumn) + End Function + + _ + Public Sub Setid_EpisodesNull() + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_EpisodesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_PlotKeywordsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies_Episodes_PlotKeywords.id_PlotKeywordsColumn) + End Function + + _ + Public Sub Setid_PlotKeywordsNull() + Me(Me.tabletbl_Movies_Episodes_PlotKeywords.id_PlotKeywordsColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_PersonsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Persons As tbl_PersonsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Persons = CType(Me.Table,tbl_PersonsDataTable) + End Sub + + _ + Public Property id_Persons() As Long + Get + Return CType(Me(Me.tabletbl_Persons.id_PersonsColumn),Long) + End Get + Set + Me(Me.tabletbl_Persons.id_PersonsColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Persons.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Persons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons.IMDBidColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Persons.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Persons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons.NameColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Persons.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Persons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons.DescriptionColumn) = value + End Set + End Property + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Persons.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Persons.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Persons.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Persons_JobsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Persons_Jobs As tbl_Persons_JobsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Persons_Jobs = CType(Me.Table,tbl_Persons_JobsDataTable) + End Sub + + _ + Public Property id_Persons_Jobs() As Long + Get + Return CType(Me(Me.tabletbl_Persons_Jobs.id_Persons_JobsColumn),Long) + End Get + Set + Me(Me.tabletbl_Persons_Jobs.id_Persons_JobsColumn) = value + End Set + End Property + + _ + Public Property id_Persons() As Long + Get + Try + Return CType(Me(Me.tabletbl_Persons_Jobs.id_PersonsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Persons in Tabelle tbl_Persons_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons_Jobs.id_PersonsColumn) = value + End Set + End Property + + _ + Public Property id_Movies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Persons_Jobs.id_MoviesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Movies in Tabelle tbl_Persons_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons_Jobs.id_MoviesColumn) = value + End Set + End Property + + _ + Public Property id_Episodes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Persons_Jobs.id_EpisodesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Episodes in Tabelle tbl_Persons_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons_Jobs.id_EpisodesColumn) = value + End Set + End Property + + _ + Public Property id_Jobs() As Long + Get + Try + Return CType(Me(Me.tabletbl_Persons_Jobs.id_JobsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Jobs in Tabelle tbl_Persons_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons_Jobs.id_JobsColumn) = value + End Set + End Property + + _ + Public Property Notes() As String + Get + Try + Return CType(Me(Me.tabletbl_Persons_Jobs.NotesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Notes in Tabelle tbl_Persons_Jobs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Persons_Jobs.NotesColumn) = value + End Set + End Property + + _ + Public Function Isid_PersonsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons_Jobs.id_PersonsColumn) + End Function + + _ + Public Sub Setid_PersonsNull() + Me(Me.tabletbl_Persons_Jobs.id_PersonsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_MoviesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons_Jobs.id_MoviesColumn) + End Function + + _ + Public Sub Setid_MoviesNull() + Me(Me.tabletbl_Persons_Jobs.id_MoviesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_EpisodesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons_Jobs.id_EpisodesColumn) + End Function + + _ + Public Sub Setid_EpisodesNull() + Me(Me.tabletbl_Persons_Jobs.id_EpisodesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_JobsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons_Jobs.id_JobsColumn) + End Function + + _ + Public Sub Setid_JobsNull() + Me(Me.tabletbl_Persons_Jobs.id_JobsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNotesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Persons_Jobs.NotesColumn) + End Function + + _ + Public Sub SetNotesNull() + Me(Me.tabletbl_Persons_Jobs.NotesColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_PlotKeywordsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_PlotKeywords As tbl_PlotKeywordsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_PlotKeywords = CType(Me.Table,tbl_PlotKeywordsDataTable) + End Sub + + _ + Public Property id_PlotKeywords() As Long + Get + Return CType(Me(Me.tabletbl_PlotKeywords.id_PlotKeywordsColumn),Long) + End Get + Set + Me(Me.tabletbl_PlotKeywords.id_PlotKeywordsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_PlotKeywords.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_PlotKeywords ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_PlotKeywords.NameColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_PlotKeywords.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_PlotKeywords.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_SeasonsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Seasons As tbl_SeasonsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Seasons = CType(Me.Table,tbl_SeasonsDataTable) + End Sub + + _ + Public Property id_Seasons() As Long + Get + Return CType(Me(Me.tabletbl_Seasons.id_SeasonsColumn),Long) + End Get + Set + Me(Me.tabletbl_Seasons.id_SeasonsColumn) = value + End Set + End Property + + _ + Public Property id_Series() As Long + Get + Try + Return CType(Me(Me.tabletbl_Seasons.id_SeriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Series in Tabelle tbl_Seasons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Seasons.id_SeriesColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Seasons.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Seasons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Seasons.IMDBidColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_Seasons.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_Seasons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Seasons.TitleColumn) = value + End Set + End Property + + _ + Public Property Season() As Long + Get + Try + Return CType(Me(Me.tabletbl_Seasons.SeasonColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Season in Tabelle tbl_Seasons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Seasons.SeasonColumn) = value + End Set + End Property + + _ + Public Property Year() As Long + Get + Try + Return CType(Me(Me.tabletbl_Seasons.YearColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Seasons ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Seasons.YearColumn) = value + End Set + End Property + + _ + Public Function Isid_SeriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Seasons.id_SeriesColumn) + End Function + + _ + Public Sub Setid_SeriesNull() + Me(Me.tabletbl_Seasons.id_SeriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Seasons.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Seasons.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Seasons.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_Seasons.TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSeasonNull() As Boolean + Return Me.IsNull(Me.tabletbl_Seasons.SeasonColumn) + End Function + + _ + Public Sub SetSeasonNull() + Me(Me.tabletbl_Seasons.SeasonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Seasons.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Seasons.YearColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_SeriesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Series As tbl_SeriesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Series = CType(Me.Table,tbl_SeriesDataTable) + End Sub + + _ + Public Property id_Series() As Long + Get + Return CType(Me(Me.tabletbl_Series.id_SeriesColumn),Long) + End Get + Set + Me(Me.tabletbl_Series.id_SeriesColumn) = value + End Set + End Property + + _ + Public Property id_Categories() As Long + Get + Try + Return CType(Me(Me.tabletbl_Series.id_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Categories in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.id_CategoriesColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Series.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.IMDBidColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_Series.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.TitleColumn) = value + End Set + End Property + + _ + Public Property Category() As String + Get + Try + Return CType(Me(Me.tabletbl_Series.CategoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Category in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.CategoryColumn) = value + End Set + End Property + + _ + Public Property Year() As Long + Get + Try + Return CType(Me(Me.tabletbl_Series.YearColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.YearColumn) = value + End Set + End Property + + _ + Public Property Rating() As Single + Get + Try + Return CType(Me(Me.tabletbl_Series.RatingColumn),Single) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.RatingColumn) = value + End Set + End Property + + _ + Public Property RatingUsers() As Long + Get + Try + Return CType(Me(Me.tabletbl_Series.RatingUsersColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RatingUsers in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.RatingUsersColumn) = value + End Set + End Property + + _ + Public Property MetaScore() As Long + Get + Try + Return CType(Me(Me.tabletbl_Series.MetaScoreColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MetaScore in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.MetaScoreColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Series.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Series ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Series.DescriptionColumn) = value + End Set + End Property + + _ + Public Function Isid_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.id_CategoriesColumn) + End Function + + _ + Public Sub Setid_CategoriesNull() + Me(Me.tabletbl_Series.id_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Series.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_Series.TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.CategoryColumn) + End Function + + _ + Public Sub SetCategoryNull() + Me(Me.tabletbl_Series.CategoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Series.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.RatingColumn) + End Function + + _ + Public Sub SetRatingNull() + Me(Me.tabletbl_Series.RatingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingUsersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.RatingUsersColumn) + End Function + + _ + Public Sub SetRatingUsersNull() + Me(Me.tabletbl_Series.RatingUsersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMetaScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.MetaScoreColumn) + End Function + + _ + Public Sub SetMetaScoreNull() + Me(Me.tabletbl_Series.MetaScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Series.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Series.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_CategoriesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_CategoriesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_CategoriesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_CategoriesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_ContentRatingRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_ContentRatingRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_ContentRatingRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_ContentRatingRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_EpisodesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_EpisodesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_EpisodesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_EpisodesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_GenresRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_GenresRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_GenresRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_GenresRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_JobsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_JobsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_JobsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_JobsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_MoviesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_MoviesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_MoviesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_MoviesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Movies_Episodes_GenresRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Movies_Episodes_GenresRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Movies_Episodes_GenresRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Movies_Episodes_GenresRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Movies_Episodes_PlotKeywordsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Movies_Episodes_PlotKeywordsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Movies_Episodes_PlotKeywordsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Movies_Episodes_PlotKeywordsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_PersonsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_PersonsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_PersonsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_PersonsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Persons_JobsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Persons_JobsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Persons_JobsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Persons_JobsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_PlotKeywordsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_PlotKeywordsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_PlotKeywordsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_PlotKeywordsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_SeasonsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_SeasonsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_SeasonsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_SeasonsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_SeriesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_SeriesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_SeriesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_SeriesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Metropolis_Launcher/DataSets/DS_IMDB.vb b/Metropolis_Launcher/DataSets/DS_IMDB.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_IMDB.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_IMDB.xsc b/Metropolis_Launcher/DataSets/DS_IMDB.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_IMDB.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_IMDB.xsd b/Metropolis_Launcher/DataSets/DS_IMDB.xsd new file mode 100644 index 0000000..48abeb9 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_IMDB.xsd @@ -0,0 +1,346 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_IMDB.xss b/Metropolis_Launcher/DataSets/DS_IMDB.xss new file mode 100644 index 0000000..d95cbc2 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_IMDB.xss @@ -0,0 +1,24 @@ + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_ML.Designer.vb b/Metropolis_Launcher/DataSets/DS_ML.Designer.vb new file mode 100644 index 0000000..7f7a143 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_ML.Designer.vb @@ -0,0 +1,41278 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_ML + Inherits Global.System.Data.DataSet + + Private tabletbl_Emulators As tbl_EmulatorsDataTable + + Private tabletbl_Emulators_Moby_Platforms As tbl_Emulators_Moby_PlatformsDataTable + + Private tablesrc_frm_Emulators_Moby_Platforms As src_frm_Emulators_Moby_PlatformsDataTable + + Private tablesrc_ucr_Emulation_Platforms As src_ucr_Emulation_PlatformsDataTable + + Private tablesrc_ucr_Emulation_Games As src_ucr_Emulation_GamesDataTable + + Private tabletbl_Technical_Specs As tbl_Technical_SpecsDataTable + + Private tabletbl_ControlSettings As tbl_ControlSettingsDataTable + + Private tabletbl_FilterSets As tbl_FilterSetsDataTable + + Private tabletbl_Movies As tbl_MoviesDataTable + + Private tabletbl_Emu_Extras As tbl_Emu_ExtrasDataTable + + Private tabletbl_Emu_Games_Rating_Weights As tbl_Emu_Games_Rating_WeightsDataTable + + Private tablesrc_frm_Emu_Game_Edit_Genres As src_frm_Emu_Game_Edit_GenresDataTable + + Private tablesrc_frm_Emu_Game_Edit_Attributes As src_frm_Emu_Game_Edit_AttributesDataTable + + Private tabletbl_Tag_Parser As tbl_Tag_ParserDataTable + + Private tabletbl_Emu_Games As tbl_Emu_GamesDataTable + + Private tabletbl_Emu_Games_Languages As tbl_Emu_Games_LanguagesDataTable + + Private tabletbl_Emu_Games_Regions As tbl_Emu_Games_RegionsDataTable + + Private tabletbl_Emu_Games_Edit_Languages As tbl_Emu_Games_Edit_LanguagesDataTable + + Private tabletbl_Emu_Games_Edit_Regions As tbl_Emu_Games_Edit_RegionsDataTable + + Private tabletbl_Emu_Games_Edit_Default_Emulator As tbl_Emu_Games_Edit_Default_EmulatorDataTable + + Private tabletbl_History As tbl_HistoryDataTable + + Private tabletbl_ImageEditorTemplates As tbl_ImageEditorTemplatesDataTable + + Private tablesrc_ucr_Emulation_GameGroups As src_ucr_Emulation_GameGroupsDataTable + + Private tablesrc_ucr_Emulation_cmb_Groups As src_ucr_Emulation_cmb_GroupsDataTable + + Private tabletbl_Mame_Roms As tbl_Mame_RomsDataTable + + Private tablettb_Tag_Parser_Volumes As ttb_Tag_Parser_VolumesDataTable + + Private tabletbl_Emulators_Multivolume_Parameters As tbl_Emulators_Multivolume_ParametersDataTable + + Private tabletbl_DOSBox_Configs As tbl_DOSBox_ConfigsDataTable + + Private tabletbl_Moby_Platforms_Settings As tbl_Moby_Platforms_SettingsDataTable + + Private tablesrc_frm_Emulators_DOSBox_Patches As src_frm_Emulators_DOSBox_PatchesDataTable + + Private tablesrc_frm_Emulators_DOSBox_Patches_Categories As src_frm_Emulators_DOSBox_Patches_CategoriesDataTable + + Private tabletbl_Users As tbl_UsersDataTable + + Private tablesrc_ucr_Emulation_Moby_Releases_Staff As src_ucr_Emulation_Moby_Releases_StaffDataTable + + Private tablesrc_ucr_Emulation_cmb_Staff As src_ucr_Emulation_cmb_StaffDataTable + + Private tabletbl_Similarity_Calculation As tbl_Similarity_CalculationDataTable + + Private tabletbl_Similarity_Calculation_Config As tbl_Similarity_Calculation_ConfigDataTable + + Private tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable + + Private tabletbl_Emu_Games_Have_Want_List_Items As tbl_Emu_Games_Have_Want_List_ItemsDataTable + + Private tabletbl_Moby_Auto_Link As tbl_Moby_Auto_LinkDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("tbl_Emulators")) Is Nothing) Then + MyBase.Tables.Add(New tbl_EmulatorsDataTable(ds.Tables("tbl_Emulators"))) + End If + If (Not (ds.Tables("tbl_Emulators_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emulators_Moby_PlatformsDataTable(ds.Tables("tbl_Emulators_Moby_Platforms"))) + End If + If (Not (ds.Tables("src_frm_Emulators_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_Moby_PlatformsDataTable(ds.Tables("src_frm_Emulators_Moby_Platforms"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_PlatformsDataTable(ds.Tables("src_ucr_Emulation_Platforms"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Games")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_GamesDataTable(ds.Tables("src_ucr_Emulation_Games"))) + End If + If (Not (ds.Tables("tbl_Technical_Specs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Technical_SpecsDataTable(ds.Tables("tbl_Technical_Specs"))) + End If + If (Not (ds.Tables("tbl_ControlSettings")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ControlSettingsDataTable(ds.Tables("tbl_ControlSettings"))) + End If + If (Not (ds.Tables("tbl_FilterSets")) Is Nothing) Then + MyBase.Tables.Add(New tbl_FilterSetsDataTable(ds.Tables("tbl_FilterSets"))) + End If + If (Not (ds.Tables("tbl_Movies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_MoviesDataTable(ds.Tables("tbl_Movies"))) + End If + If (Not (ds.Tables("tbl_Emu_Extras")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_ExtrasDataTable(ds.Tables("tbl_Emu_Extras"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Rating_Weights")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Rating_WeightsDataTable(ds.Tables("tbl_Emu_Games_Rating_Weights"))) + End If + If (Not (ds.Tables("src_frm_Emu_Game_Edit_Genres")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emu_Game_Edit_GenresDataTable(ds.Tables("src_frm_Emu_Game_Edit_Genres"))) + End If + If (Not (ds.Tables("src_frm_Emu_Game_Edit_Attributes")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emu_Game_Edit_AttributesDataTable(ds.Tables("src_frm_Emu_Game_Edit_Attributes"))) + End If + If (Not (ds.Tables("tbl_Tag_Parser")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Tag_ParserDataTable(ds.Tables("tbl_Tag_Parser"))) + End If + If (Not (ds.Tables("tbl_Emu_Games")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_GamesDataTable(ds.Tables("tbl_Emu_Games"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Languages")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_LanguagesDataTable(ds.Tables("tbl_Emu_Games_Languages"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Regions")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_RegionsDataTable(ds.Tables("tbl_Emu_Games_Regions"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Languages")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_LanguagesDataTable(ds.Tables("tbl_Emu_Games_Edit_Languages"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Regions")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_RegionsDataTable(ds.Tables("tbl_Emu_Games_Edit_Regions"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Default_Emulator")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_Default_EmulatorDataTable(ds.Tables("tbl_Emu_Games_Edit_Default_Emulator"))) + End If + If (Not (ds.Tables("tbl_History")) Is Nothing) Then + MyBase.Tables.Add(New tbl_HistoryDataTable(ds.Tables("tbl_History"))) + End If + If (Not (ds.Tables("tbl_ImageEditorTemplates")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ImageEditorTemplatesDataTable(ds.Tables("tbl_ImageEditorTemplates"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_GameGroups")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_GameGroupsDataTable(ds.Tables("src_ucr_Emulation_GameGroups"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Groups")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_GroupsDataTable(ds.Tables("src_ucr_Emulation_cmb_Groups"))) + End If + If (Not (ds.Tables("tbl_Mame_Roms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Mame_RomsDataTable(ds.Tables("tbl_Mame_Roms"))) + End If + If (Not (ds.Tables("ttb_Tag_Parser_Volumes")) Is Nothing) Then + MyBase.Tables.Add(New ttb_Tag_Parser_VolumesDataTable(ds.Tables("ttb_Tag_Parser_Volumes"))) + End If + If (Not (ds.Tables("tbl_Emulators_Multivolume_Parameters")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emulators_Multivolume_ParametersDataTable(ds.Tables("tbl_Emulators_Multivolume_Parameters"))) + End If + If (Not (ds.Tables("tbl_DOSBox_Configs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_DOSBox_ConfigsDataTable(ds.Tables("tbl_DOSBox_Configs"))) + End If + If (Not (ds.Tables("tbl_Moby_Platforms_Settings")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Platforms_SettingsDataTable(ds.Tables("tbl_Moby_Platforms_Settings"))) + End If + If (Not (ds.Tables("src_frm_Emulators_DOSBox_Patches")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_DOSBox_PatchesDataTable(ds.Tables("src_frm_Emulators_DOSBox_Patches"))) + End If + If (Not (ds.Tables("src_frm_Emulators_DOSBox_Patches_Categories")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_DOSBox_Patches_CategoriesDataTable(ds.Tables("src_frm_Emulators_DOSBox_Patches_Categories"))) + End If + If (Not (ds.Tables("tbl_Users")) Is Nothing) Then + MyBase.Tables.Add(New tbl_UsersDataTable(ds.Tables("tbl_Users"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Moby_Releases_Staff")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_Moby_Releases_StaffDataTable(ds.Tables("src_ucr_Emulation_Moby_Releases_Staff"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Staff")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_StaffDataTable(ds.Tables("src_ucr_Emulation_cmb_Staff"))) + End If + If (Not (ds.Tables("tbl_Similarity_Calculation")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Similarity_CalculationDataTable(ds.Tables("tbl_Similarity_Calculation"))) + End If + If (Not (ds.Tables("tbl_Similarity_Calculation_Config")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Similarity_Calculation_ConfigDataTable(ds.Tables("tbl_Similarity_Calculation_Config"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Similarity_Calculation_Results")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable(ds.Tables("src_ucr_Emulation_cmb_Similarity_Calculation_Results"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Have_Want_List_Items")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Have_Want_List_ItemsDataTable(ds.Tables("tbl_Emu_Games_Have_Want_List_Items"))) + End If + If (Not (ds.Tables("tbl_Moby_Auto_Link")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Auto_LinkDataTable(ds.Tables("tbl_Moby_Auto_Link"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property tbl_Emulators() As tbl_EmulatorsDataTable + Get + Return Me.tabletbl_Emulators + End Get + End Property + + _ + Public ReadOnly Property tbl_Emulators_Moby_Platforms() As tbl_Emulators_Moby_PlatformsDataTable + Get + Return Me.tabletbl_Emulators_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property src_frm_Emulators_Moby_Platforms() As src_frm_Emulators_Moby_PlatformsDataTable + Get + Return Me.tablesrc_frm_Emulators_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_Platforms() As src_ucr_Emulation_PlatformsDataTable + Get + Return Me.tablesrc_ucr_Emulation_Platforms + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_Games() As src_ucr_Emulation_GamesDataTable + Get + Return Me.tablesrc_ucr_Emulation_Games + End Get + End Property + + _ + Public ReadOnly Property tbl_Technical_Specs() As tbl_Technical_SpecsDataTable + Get + Return Me.tabletbl_Technical_Specs + End Get + End Property + + _ + Public ReadOnly Property tbl_ControlSettings() As tbl_ControlSettingsDataTable + Get + Return Me.tabletbl_ControlSettings + End Get + End Property + + _ + Public ReadOnly Property tbl_FilterSets() As tbl_FilterSetsDataTable + Get + Return Me.tabletbl_FilterSets + End Get + End Property + + _ + Public ReadOnly Property tbl_Movies() As tbl_MoviesDataTable + Get + Return Me.tabletbl_Movies + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Extras() As tbl_Emu_ExtrasDataTable + Get + Return Me.tabletbl_Emu_Extras + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Rating_Weights() As tbl_Emu_Games_Rating_WeightsDataTable + Get + Return Me.tabletbl_Emu_Games_Rating_Weights + End Get + End Property + + _ + Public ReadOnly Property src_frm_Emu_Game_Edit_Genres() As src_frm_Emu_Game_Edit_GenresDataTable + Get + Return Me.tablesrc_frm_Emu_Game_Edit_Genres + End Get + End Property + + _ + Public ReadOnly Property src_frm_Emu_Game_Edit_Attributes() As src_frm_Emu_Game_Edit_AttributesDataTable + Get + Return Me.tablesrc_frm_Emu_Game_Edit_Attributes + End Get + End Property + + _ + Public ReadOnly Property tbl_Tag_Parser() As tbl_Tag_ParserDataTable + Get + Return Me.tabletbl_Tag_Parser + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games() As tbl_Emu_GamesDataTable + Get + Return Me.tabletbl_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Languages() As tbl_Emu_Games_LanguagesDataTable + Get + Return Me.tabletbl_Emu_Games_Languages + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Regions() As tbl_Emu_Games_RegionsDataTable + Get + Return Me.tabletbl_Emu_Games_Regions + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Edit_Languages() As tbl_Emu_Games_Edit_LanguagesDataTable + Get + Return Me.tabletbl_Emu_Games_Edit_Languages + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Edit_Regions() As tbl_Emu_Games_Edit_RegionsDataTable + Get + Return Me.tabletbl_Emu_Games_Edit_Regions + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Edit_Default_Emulator() As tbl_Emu_Games_Edit_Default_EmulatorDataTable + Get + Return Me.tabletbl_Emu_Games_Edit_Default_Emulator + End Get + End Property + + _ + Public ReadOnly Property tbl_History() As tbl_HistoryDataTable + Get + Return Me.tabletbl_History + End Get + End Property + + _ + Public ReadOnly Property tbl_ImageEditorTemplates() As tbl_ImageEditorTemplatesDataTable + Get + Return Me.tabletbl_ImageEditorTemplates + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_GameGroups() As src_ucr_Emulation_GameGroupsDataTable + Get + Return Me.tablesrc_ucr_Emulation_GameGroups + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_cmb_Groups() As src_ucr_Emulation_cmb_GroupsDataTable + Get + Return Me.tablesrc_ucr_Emulation_cmb_Groups + End Get + End Property + + _ + Public ReadOnly Property tbl_Mame_Roms() As tbl_Mame_RomsDataTable + Get + Return Me.tabletbl_Mame_Roms + End Get + End Property + + _ + Public ReadOnly Property ttb_Tag_Parser_Volumes() As ttb_Tag_Parser_VolumesDataTable + Get + Return Me.tablettb_Tag_Parser_Volumes + End Get + End Property + + _ + Public ReadOnly Property tbl_Emulators_Multivolume_Parameters() As tbl_Emulators_Multivolume_ParametersDataTable + Get + Return Me.tabletbl_Emulators_Multivolume_Parameters + End Get + End Property + + _ + Public ReadOnly Property tbl_DOSBox_Configs() As tbl_DOSBox_ConfigsDataTable + Get + Return Me.tabletbl_DOSBox_Configs + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Platforms_Settings() As tbl_Moby_Platforms_SettingsDataTable + Get + Return Me.tabletbl_Moby_Platforms_Settings + End Get + End Property + + _ + Public ReadOnly Property src_frm_Emulators_DOSBox_Patches() As src_frm_Emulators_DOSBox_PatchesDataTable + Get + Return Me.tablesrc_frm_Emulators_DOSBox_Patches + End Get + End Property + + _ + Public ReadOnly Property src_frm_Emulators_DOSBox_Patches_Categories() As src_frm_Emulators_DOSBox_Patches_CategoriesDataTable + Get + Return Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories + End Get + End Property + + _ + Public ReadOnly Property tbl_Users() As tbl_UsersDataTable + Get + Return Me.tabletbl_Users + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_Moby_Releases_Staff() As src_ucr_Emulation_Moby_Releases_StaffDataTable + Get + Return Me.tablesrc_ucr_Emulation_Moby_Releases_Staff + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_cmb_Staff() As src_ucr_Emulation_cmb_StaffDataTable + Get + Return Me.tablesrc_ucr_Emulation_cmb_Staff + End Get + End Property + + _ + Public ReadOnly Property tbl_Similarity_Calculation() As tbl_Similarity_CalculationDataTable + Get + Return Me.tabletbl_Similarity_Calculation + End Get + End Property + + _ + Public ReadOnly Property tbl_Similarity_Calculation_Config() As tbl_Similarity_Calculation_ConfigDataTable + Get + Return Me.tabletbl_Similarity_Calculation_Config + End Get + End Property + + _ + Public ReadOnly Property src_ucr_Emulation_cmb_Similarity_Calculation_Results() As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable + Get + Return Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results + End Get + End Property + + _ + Public ReadOnly Property tbl_Emu_Games_Have_Want_List_Items() As tbl_Emu_Games_Have_Want_List_ItemsDataTable + Get + Return Me.tabletbl_Emu_Games_Have_Want_List_Items + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Auto_Link() As tbl_Moby_Auto_LinkDataTable + Get + Return Me.tabletbl_Moby_Auto_Link + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_ML = CType(MyBase.Clone,DS_ML) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("tbl_Emulators")) Is Nothing) Then + MyBase.Tables.Add(New tbl_EmulatorsDataTable(ds.Tables("tbl_Emulators"))) + End If + If (Not (ds.Tables("tbl_Emulators_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emulators_Moby_PlatformsDataTable(ds.Tables("tbl_Emulators_Moby_Platforms"))) + End If + If (Not (ds.Tables("src_frm_Emulators_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_Moby_PlatformsDataTable(ds.Tables("src_frm_Emulators_Moby_Platforms"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_PlatformsDataTable(ds.Tables("src_ucr_Emulation_Platforms"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Games")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_GamesDataTable(ds.Tables("src_ucr_Emulation_Games"))) + End If + If (Not (ds.Tables("tbl_Technical_Specs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Technical_SpecsDataTable(ds.Tables("tbl_Technical_Specs"))) + End If + If (Not (ds.Tables("tbl_ControlSettings")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ControlSettingsDataTable(ds.Tables("tbl_ControlSettings"))) + End If + If (Not (ds.Tables("tbl_FilterSets")) Is Nothing) Then + MyBase.Tables.Add(New tbl_FilterSetsDataTable(ds.Tables("tbl_FilterSets"))) + End If + If (Not (ds.Tables("tbl_Movies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_MoviesDataTable(ds.Tables("tbl_Movies"))) + End If + If (Not (ds.Tables("tbl_Emu_Extras")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_ExtrasDataTable(ds.Tables("tbl_Emu_Extras"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Rating_Weights")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Rating_WeightsDataTable(ds.Tables("tbl_Emu_Games_Rating_Weights"))) + End If + If (Not (ds.Tables("src_frm_Emu_Game_Edit_Genres")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emu_Game_Edit_GenresDataTable(ds.Tables("src_frm_Emu_Game_Edit_Genres"))) + End If + If (Not (ds.Tables("src_frm_Emu_Game_Edit_Attributes")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emu_Game_Edit_AttributesDataTable(ds.Tables("src_frm_Emu_Game_Edit_Attributes"))) + End If + If (Not (ds.Tables("tbl_Tag_Parser")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Tag_ParserDataTable(ds.Tables("tbl_Tag_Parser"))) + End If + If (Not (ds.Tables("tbl_Emu_Games")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_GamesDataTable(ds.Tables("tbl_Emu_Games"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Languages")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_LanguagesDataTable(ds.Tables("tbl_Emu_Games_Languages"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Regions")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_RegionsDataTable(ds.Tables("tbl_Emu_Games_Regions"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Languages")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_LanguagesDataTable(ds.Tables("tbl_Emu_Games_Edit_Languages"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Regions")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_RegionsDataTable(ds.Tables("tbl_Emu_Games_Edit_Regions"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Edit_Default_Emulator")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Edit_Default_EmulatorDataTable(ds.Tables("tbl_Emu_Games_Edit_Default_Emulator"))) + End If + If (Not (ds.Tables("tbl_History")) Is Nothing) Then + MyBase.Tables.Add(New tbl_HistoryDataTable(ds.Tables("tbl_History"))) + End If + If (Not (ds.Tables("tbl_ImageEditorTemplates")) Is Nothing) Then + MyBase.Tables.Add(New tbl_ImageEditorTemplatesDataTable(ds.Tables("tbl_ImageEditorTemplates"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_GameGroups")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_GameGroupsDataTable(ds.Tables("src_ucr_Emulation_GameGroups"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Groups")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_GroupsDataTable(ds.Tables("src_ucr_Emulation_cmb_Groups"))) + End If + If (Not (ds.Tables("tbl_Mame_Roms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Mame_RomsDataTable(ds.Tables("tbl_Mame_Roms"))) + End If + If (Not (ds.Tables("ttb_Tag_Parser_Volumes")) Is Nothing) Then + MyBase.Tables.Add(New ttb_Tag_Parser_VolumesDataTable(ds.Tables("ttb_Tag_Parser_Volumes"))) + End If + If (Not (ds.Tables("tbl_Emulators_Multivolume_Parameters")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emulators_Multivolume_ParametersDataTable(ds.Tables("tbl_Emulators_Multivolume_Parameters"))) + End If + If (Not (ds.Tables("tbl_DOSBox_Configs")) Is Nothing) Then + MyBase.Tables.Add(New tbl_DOSBox_ConfigsDataTable(ds.Tables("tbl_DOSBox_Configs"))) + End If + If (Not (ds.Tables("tbl_Moby_Platforms_Settings")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Platforms_SettingsDataTable(ds.Tables("tbl_Moby_Platforms_Settings"))) + End If + If (Not (ds.Tables("src_frm_Emulators_DOSBox_Patches")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_DOSBox_PatchesDataTable(ds.Tables("src_frm_Emulators_DOSBox_Patches"))) + End If + If (Not (ds.Tables("src_frm_Emulators_DOSBox_Patches_Categories")) Is Nothing) Then + MyBase.Tables.Add(New src_frm_Emulators_DOSBox_Patches_CategoriesDataTable(ds.Tables("src_frm_Emulators_DOSBox_Patches_Categories"))) + End If + If (Not (ds.Tables("tbl_Users")) Is Nothing) Then + MyBase.Tables.Add(New tbl_UsersDataTable(ds.Tables("tbl_Users"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_Moby_Releases_Staff")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_Moby_Releases_StaffDataTable(ds.Tables("src_ucr_Emulation_Moby_Releases_Staff"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Staff")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_StaffDataTable(ds.Tables("src_ucr_Emulation_cmb_Staff"))) + End If + If (Not (ds.Tables("tbl_Similarity_Calculation")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Similarity_CalculationDataTable(ds.Tables("tbl_Similarity_Calculation"))) + End If + If (Not (ds.Tables("tbl_Similarity_Calculation_Config")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Similarity_Calculation_ConfigDataTable(ds.Tables("tbl_Similarity_Calculation_Config"))) + End If + If (Not (ds.Tables("src_ucr_Emulation_cmb_Similarity_Calculation_Results")) Is Nothing) Then + MyBase.Tables.Add(New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable(ds.Tables("src_ucr_Emulation_cmb_Similarity_Calculation_Results"))) + End If + If (Not (ds.Tables("tbl_Emu_Games_Have_Want_List_Items")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Emu_Games_Have_Want_List_ItemsDataTable(ds.Tables("tbl_Emu_Games_Have_Want_List_Items"))) + End If + If (Not (ds.Tables("tbl_Moby_Auto_Link")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Auto_LinkDataTable(ds.Tables("tbl_Moby_Auto_Link"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tabletbl_Emulators = CType(MyBase.Tables("tbl_Emulators"),tbl_EmulatorsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emulators) Is Nothing) Then + Me.tabletbl_Emulators.InitVars + End If + End If + Me.tabletbl_Emulators_Moby_Platforms = CType(MyBase.Tables("tbl_Emulators_Moby_Platforms"),tbl_Emulators_Moby_PlatformsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emulators_Moby_Platforms) Is Nothing) Then + Me.tabletbl_Emulators_Moby_Platforms.InitVars + End If + End If + Me.tablesrc_frm_Emulators_Moby_Platforms = CType(MyBase.Tables("src_frm_Emulators_Moby_Platforms"),src_frm_Emulators_Moby_PlatformsDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_frm_Emulators_Moby_Platforms) Is Nothing) Then + Me.tablesrc_frm_Emulators_Moby_Platforms.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_Platforms = CType(MyBase.Tables("src_ucr_Emulation_Platforms"),src_ucr_Emulation_PlatformsDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_Platforms) Is Nothing) Then + Me.tablesrc_ucr_Emulation_Platforms.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_Games = CType(MyBase.Tables("src_ucr_Emulation_Games"),src_ucr_Emulation_GamesDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_Games) Is Nothing) Then + Me.tablesrc_ucr_Emulation_Games.InitVars + End If + End If + Me.tabletbl_Technical_Specs = CType(MyBase.Tables("tbl_Technical_Specs"),tbl_Technical_SpecsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Technical_Specs) Is Nothing) Then + Me.tabletbl_Technical_Specs.InitVars + End If + End If + Me.tabletbl_ControlSettings = CType(MyBase.Tables("tbl_ControlSettings"),tbl_ControlSettingsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_ControlSettings) Is Nothing) Then + Me.tabletbl_ControlSettings.InitVars + End If + End If + Me.tabletbl_FilterSets = CType(MyBase.Tables("tbl_FilterSets"),tbl_FilterSetsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_FilterSets) Is Nothing) Then + Me.tabletbl_FilterSets.InitVars + End If + End If + Me.tabletbl_Movies = CType(MyBase.Tables("tbl_Movies"),tbl_MoviesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Movies) Is Nothing) Then + Me.tabletbl_Movies.InitVars + End If + End If + Me.tabletbl_Emu_Extras = CType(MyBase.Tables("tbl_Emu_Extras"),tbl_Emu_ExtrasDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Extras) Is Nothing) Then + Me.tabletbl_Emu_Extras.InitVars + End If + End If + Me.tabletbl_Emu_Games_Rating_Weights = CType(MyBase.Tables("tbl_Emu_Games_Rating_Weights"),tbl_Emu_Games_Rating_WeightsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Rating_Weights) Is Nothing) Then + Me.tabletbl_Emu_Games_Rating_Weights.InitVars + End If + End If + Me.tablesrc_frm_Emu_Game_Edit_Genres = CType(MyBase.Tables("src_frm_Emu_Game_Edit_Genres"),src_frm_Emu_Game_Edit_GenresDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_frm_Emu_Game_Edit_Genres) Is Nothing) Then + Me.tablesrc_frm_Emu_Game_Edit_Genres.InitVars + End If + End If + Me.tablesrc_frm_Emu_Game_Edit_Attributes = CType(MyBase.Tables("src_frm_Emu_Game_Edit_Attributes"),src_frm_Emu_Game_Edit_AttributesDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_frm_Emu_Game_Edit_Attributes) Is Nothing) Then + Me.tablesrc_frm_Emu_Game_Edit_Attributes.InitVars + End If + End If + Me.tabletbl_Tag_Parser = CType(MyBase.Tables("tbl_Tag_Parser"),tbl_Tag_ParserDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Tag_Parser) Is Nothing) Then + Me.tabletbl_Tag_Parser.InitVars + End If + End If + Me.tabletbl_Emu_Games = CType(MyBase.Tables("tbl_Emu_Games"),tbl_Emu_GamesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games) Is Nothing) Then + Me.tabletbl_Emu_Games.InitVars + End If + End If + Me.tabletbl_Emu_Games_Languages = CType(MyBase.Tables("tbl_Emu_Games_Languages"),tbl_Emu_Games_LanguagesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Languages) Is Nothing) Then + Me.tabletbl_Emu_Games_Languages.InitVars + End If + End If + Me.tabletbl_Emu_Games_Regions = CType(MyBase.Tables("tbl_Emu_Games_Regions"),tbl_Emu_Games_RegionsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Regions) Is Nothing) Then + Me.tabletbl_Emu_Games_Regions.InitVars + End If + End If + Me.tabletbl_Emu_Games_Edit_Languages = CType(MyBase.Tables("tbl_Emu_Games_Edit_Languages"),tbl_Emu_Games_Edit_LanguagesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Edit_Languages) Is Nothing) Then + Me.tabletbl_Emu_Games_Edit_Languages.InitVars + End If + End If + Me.tabletbl_Emu_Games_Edit_Regions = CType(MyBase.Tables("tbl_Emu_Games_Edit_Regions"),tbl_Emu_Games_Edit_RegionsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Edit_Regions) Is Nothing) Then + Me.tabletbl_Emu_Games_Edit_Regions.InitVars + End If + End If + Me.tabletbl_Emu_Games_Edit_Default_Emulator = CType(MyBase.Tables("tbl_Emu_Games_Edit_Default_Emulator"),tbl_Emu_Games_Edit_Default_EmulatorDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Edit_Default_Emulator) Is Nothing) Then + Me.tabletbl_Emu_Games_Edit_Default_Emulator.InitVars + End If + End If + Me.tabletbl_History = CType(MyBase.Tables("tbl_History"),tbl_HistoryDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_History) Is Nothing) Then + Me.tabletbl_History.InitVars + End If + End If + Me.tabletbl_ImageEditorTemplates = CType(MyBase.Tables("tbl_ImageEditorTemplates"),tbl_ImageEditorTemplatesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_ImageEditorTemplates) Is Nothing) Then + Me.tabletbl_ImageEditorTemplates.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_GameGroups = CType(MyBase.Tables("src_ucr_Emulation_GameGroups"),src_ucr_Emulation_GameGroupsDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_GameGroups) Is Nothing) Then + Me.tablesrc_ucr_Emulation_GameGroups.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_cmb_Groups = CType(MyBase.Tables("src_ucr_Emulation_cmb_Groups"),src_ucr_Emulation_cmb_GroupsDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_cmb_Groups) Is Nothing) Then + Me.tablesrc_ucr_Emulation_cmb_Groups.InitVars + End If + End If + Me.tabletbl_Mame_Roms = CType(MyBase.Tables("tbl_Mame_Roms"),tbl_Mame_RomsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Mame_Roms) Is Nothing) Then + Me.tabletbl_Mame_Roms.InitVars + End If + End If + Me.tablettb_Tag_Parser_Volumes = CType(MyBase.Tables("ttb_Tag_Parser_Volumes"),ttb_Tag_Parser_VolumesDataTable) + If (initTable = true) Then + If (Not (Me.tablettb_Tag_Parser_Volumes) Is Nothing) Then + Me.tablettb_Tag_Parser_Volumes.InitVars + End If + End If + Me.tabletbl_Emulators_Multivolume_Parameters = CType(MyBase.Tables("tbl_Emulators_Multivolume_Parameters"),tbl_Emulators_Multivolume_ParametersDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emulators_Multivolume_Parameters) Is Nothing) Then + Me.tabletbl_Emulators_Multivolume_Parameters.InitVars + End If + End If + Me.tabletbl_DOSBox_Configs = CType(MyBase.Tables("tbl_DOSBox_Configs"),tbl_DOSBox_ConfigsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_DOSBox_Configs) Is Nothing) Then + Me.tabletbl_DOSBox_Configs.InitVars + End If + End If + Me.tabletbl_Moby_Platforms_Settings = CType(MyBase.Tables("tbl_Moby_Platforms_Settings"),tbl_Moby_Platforms_SettingsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Platforms_Settings) Is Nothing) Then + Me.tabletbl_Moby_Platforms_Settings.InitVars + End If + End If + Me.tablesrc_frm_Emulators_DOSBox_Patches = CType(MyBase.Tables("src_frm_Emulators_DOSBox_Patches"),src_frm_Emulators_DOSBox_PatchesDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_frm_Emulators_DOSBox_Patches) Is Nothing) Then + Me.tablesrc_frm_Emulators_DOSBox_Patches.InitVars + End If + End If + Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories = CType(MyBase.Tables("src_frm_Emulators_DOSBox_Patches_Categories"),src_frm_Emulators_DOSBox_Patches_CategoriesDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories) Is Nothing) Then + Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.InitVars + End If + End If + Me.tabletbl_Users = CType(MyBase.Tables("tbl_Users"),tbl_UsersDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Users) Is Nothing) Then + Me.tabletbl_Users.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_Moby_Releases_Staff = CType(MyBase.Tables("src_ucr_Emulation_Moby_Releases_Staff"),src_ucr_Emulation_Moby_Releases_StaffDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_Moby_Releases_Staff) Is Nothing) Then + Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_cmb_Staff = CType(MyBase.Tables("src_ucr_Emulation_cmb_Staff"),src_ucr_Emulation_cmb_StaffDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_cmb_Staff) Is Nothing) Then + Me.tablesrc_ucr_Emulation_cmb_Staff.InitVars + End If + End If + Me.tabletbl_Similarity_Calculation = CType(MyBase.Tables("tbl_Similarity_Calculation"),tbl_Similarity_CalculationDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Similarity_Calculation) Is Nothing) Then + Me.tabletbl_Similarity_Calculation.InitVars + End If + End If + Me.tabletbl_Similarity_Calculation_Config = CType(MyBase.Tables("tbl_Similarity_Calculation_Config"),tbl_Similarity_Calculation_ConfigDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Similarity_Calculation_Config) Is Nothing) Then + Me.tabletbl_Similarity_Calculation_Config.InitVars + End If + End If + Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results = CType(MyBase.Tables("src_ucr_Emulation_cmb_Similarity_Calculation_Results"),src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results) Is Nothing) Then + Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.InitVars + End If + End If + Me.tabletbl_Emu_Games_Have_Want_List_Items = CType(MyBase.Tables("tbl_Emu_Games_Have_Want_List_Items"),tbl_Emu_Games_Have_Want_List_ItemsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Emu_Games_Have_Want_List_Items) Is Nothing) Then + Me.tabletbl_Emu_Games_Have_Want_List_Items.InitVars + End If + End If + Me.tabletbl_Moby_Auto_Link = CType(MyBase.Tables("tbl_Moby_Auto_Link"),tbl_Moby_Auto_LinkDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Auto_Link) Is Nothing) Then + Me.tabletbl_Moby_Auto_Link.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_ML" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_ML.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbl_Emulators = New tbl_EmulatorsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emulators) + Me.tabletbl_Emulators_Moby_Platforms = New tbl_Emulators_Moby_PlatformsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emulators_Moby_Platforms) + Me.tablesrc_frm_Emulators_Moby_Platforms = New src_frm_Emulators_Moby_PlatformsDataTable() + MyBase.Tables.Add(Me.tablesrc_frm_Emulators_Moby_Platforms) + Me.tablesrc_ucr_Emulation_Platforms = New src_ucr_Emulation_PlatformsDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_Platforms) + Me.tablesrc_ucr_Emulation_Games = New src_ucr_Emulation_GamesDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_Games) + Me.tabletbl_Technical_Specs = New tbl_Technical_SpecsDataTable() + MyBase.Tables.Add(Me.tabletbl_Technical_Specs) + Me.tabletbl_ControlSettings = New tbl_ControlSettingsDataTable() + MyBase.Tables.Add(Me.tabletbl_ControlSettings) + Me.tabletbl_FilterSets = New tbl_FilterSetsDataTable() + MyBase.Tables.Add(Me.tabletbl_FilterSets) + Me.tabletbl_Movies = New tbl_MoviesDataTable() + MyBase.Tables.Add(Me.tabletbl_Movies) + Me.tabletbl_Emu_Extras = New tbl_Emu_ExtrasDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Extras) + Me.tabletbl_Emu_Games_Rating_Weights = New tbl_Emu_Games_Rating_WeightsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Rating_Weights) + Me.tablesrc_frm_Emu_Game_Edit_Genres = New src_frm_Emu_Game_Edit_GenresDataTable() + MyBase.Tables.Add(Me.tablesrc_frm_Emu_Game_Edit_Genres) + Me.tablesrc_frm_Emu_Game_Edit_Attributes = New src_frm_Emu_Game_Edit_AttributesDataTable() + MyBase.Tables.Add(Me.tablesrc_frm_Emu_Game_Edit_Attributes) + Me.tabletbl_Tag_Parser = New tbl_Tag_ParserDataTable() + MyBase.Tables.Add(Me.tabletbl_Tag_Parser) + Me.tabletbl_Emu_Games = New tbl_Emu_GamesDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games) + Me.tabletbl_Emu_Games_Languages = New tbl_Emu_Games_LanguagesDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Languages) + Me.tabletbl_Emu_Games_Regions = New tbl_Emu_Games_RegionsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Regions) + Me.tabletbl_Emu_Games_Edit_Languages = New tbl_Emu_Games_Edit_LanguagesDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Edit_Languages) + Me.tabletbl_Emu_Games_Edit_Regions = New tbl_Emu_Games_Edit_RegionsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Edit_Regions) + Me.tabletbl_Emu_Games_Edit_Default_Emulator = New tbl_Emu_Games_Edit_Default_EmulatorDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Edit_Default_Emulator) + Me.tabletbl_History = New tbl_HistoryDataTable() + MyBase.Tables.Add(Me.tabletbl_History) + Me.tabletbl_ImageEditorTemplates = New tbl_ImageEditorTemplatesDataTable() + MyBase.Tables.Add(Me.tabletbl_ImageEditorTemplates) + Me.tablesrc_ucr_Emulation_GameGroups = New src_ucr_Emulation_GameGroupsDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_GameGroups) + Me.tablesrc_ucr_Emulation_cmb_Groups = New src_ucr_Emulation_cmb_GroupsDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_cmb_Groups) + Me.tabletbl_Mame_Roms = New tbl_Mame_RomsDataTable() + MyBase.Tables.Add(Me.tabletbl_Mame_Roms) + Me.tablettb_Tag_Parser_Volumes = New ttb_Tag_Parser_VolumesDataTable() + MyBase.Tables.Add(Me.tablettb_Tag_Parser_Volumes) + Me.tabletbl_Emulators_Multivolume_Parameters = New tbl_Emulators_Multivolume_ParametersDataTable() + MyBase.Tables.Add(Me.tabletbl_Emulators_Multivolume_Parameters) + Me.tabletbl_DOSBox_Configs = New tbl_DOSBox_ConfigsDataTable() + MyBase.Tables.Add(Me.tabletbl_DOSBox_Configs) + Me.tabletbl_Moby_Platforms_Settings = New tbl_Moby_Platforms_SettingsDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Platforms_Settings) + Me.tablesrc_frm_Emulators_DOSBox_Patches = New src_frm_Emulators_DOSBox_PatchesDataTable() + MyBase.Tables.Add(Me.tablesrc_frm_Emulators_DOSBox_Patches) + Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories = New src_frm_Emulators_DOSBox_Patches_CategoriesDataTable() + MyBase.Tables.Add(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories) + Me.tabletbl_Users = New tbl_UsersDataTable() + MyBase.Tables.Add(Me.tabletbl_Users) + Me.tablesrc_ucr_Emulation_Moby_Releases_Staff = New src_ucr_Emulation_Moby_Releases_StaffDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff) + Me.tablesrc_ucr_Emulation_cmb_Staff = New src_ucr_Emulation_cmb_StaffDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_cmb_Staff) + Me.tabletbl_Similarity_Calculation = New tbl_Similarity_CalculationDataTable() + MyBase.Tables.Add(Me.tabletbl_Similarity_Calculation) + Me.tabletbl_Similarity_Calculation_Config = New tbl_Similarity_Calculation_ConfigDataTable() + MyBase.Tables.Add(Me.tabletbl_Similarity_Calculation_Config) + Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results = New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable() + MyBase.Tables.Add(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results) + Me.tabletbl_Emu_Games_Have_Want_List_Items = New tbl_Emu_Games_Have_Want_List_ItemsDataTable() + MyBase.Tables.Add(Me.tabletbl_Emu_Games_Have_Want_List_Items) + Me.tabletbl_Moby_Auto_Link = New tbl_Moby_Auto_LinkDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Auto_Link) + End Sub + + _ + Private Function ShouldSerializetbl_Emulators() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emulators_Moby_Platforms() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_frm_Emulators_Moby_Platforms() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_Platforms() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_Games() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Technical_Specs() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_ControlSettings() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_FilterSets() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Movies() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Extras() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Rating_Weights() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_frm_Emu_Game_Edit_Genres() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_frm_Emu_Game_Edit_Attributes() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Tag_Parser() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Languages() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Regions() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Edit_Languages() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Edit_Regions() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Edit_Default_Emulator() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_History() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_ImageEditorTemplates() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_GameGroups() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_cmb_Groups() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Mame_Roms() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Tag_Parser_Volumes() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emulators_Multivolume_Parameters() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_DOSBox_Configs() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Platforms_Settings() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_frm_Emulators_DOSBox_Patches() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_frm_Emulators_DOSBox_Patches_Categories() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Users() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_Moby_Releases_Staff() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_cmb_Staff() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Similarity_Calculation() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Similarity_Calculation_Config() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_ucr_Emulation_cmb_Similarity_Calculation_Results() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Emu_Games_Have_Want_List_Items() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Auto_Link() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_ML = New DS_ML() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub tbl_EmulatorsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_EmulatorsRowChangeEvent) + + _ + Public Delegate Sub tbl_Emulators_Moby_PlatformsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emulators_Moby_PlatformsRowChangeEvent) + + _ + Public Delegate Sub src_frm_Emulators_Moby_PlatformsRowChangeEventHandler(ByVal sender As Object, ByVal e As src_frm_Emulators_Moby_PlatformsRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_PlatformsRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_PlatformsRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_GamesRowChangeEvent) + + _ + Public Delegate Sub tbl_Technical_SpecsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Technical_SpecsRowChangeEvent) + + _ + Public Delegate Sub tbl_ControlSettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ControlSettingsRowChangeEvent) + + _ + Public Delegate Sub tbl_FilterSetsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_FilterSetsRowChangeEvent) + + _ + Public Delegate Sub tbl_MoviesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_MoviesRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_ExtrasRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_ExtrasRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_Rating_WeightsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_Rating_WeightsRowChangeEvent) + + _ + Public Delegate Sub src_frm_Emu_Game_Edit_GenresRowChangeEventHandler(ByVal sender As Object, ByVal e As src_frm_Emu_Game_Edit_GenresRowChangeEvent) + + _ + Public Delegate Sub src_frm_Emu_Game_Edit_AttributesRowChangeEventHandler(ByVal sender As Object, ByVal e As src_frm_Emu_Game_Edit_AttributesRowChangeEvent) + + _ + Public Delegate Sub tbl_Tag_ParserRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Tag_ParserRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_GamesRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_LanguagesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_LanguagesRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_RegionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_RegionsRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_Edit_LanguagesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_Edit_LanguagesRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_Edit_RegionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_Edit_RegionsRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_Edit_Default_EmulatorRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent) + + _ + Public Delegate Sub tbl_HistoryRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_HistoryRowChangeEvent) + + _ + Public Delegate Sub tbl_ImageEditorTemplatesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_ImageEditorTemplatesRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_GameGroupsRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_GameGroupsRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_cmb_GroupsRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_cmb_GroupsRowChangeEvent) + + _ + Public Delegate Sub tbl_Mame_RomsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Mame_RomsRowChangeEvent) + + _ + Public Delegate Sub ttb_Tag_Parser_VolumesRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Tag_Parser_VolumesRowChangeEvent) + + _ + Public Delegate Sub tbl_Emulators_Multivolume_ParametersRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emulators_Multivolume_ParametersRowChangeEvent) + + _ + Public Delegate Sub tbl_DOSBox_ConfigsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_DOSBox_ConfigsRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_Platforms_SettingsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_Platforms_SettingsRowChangeEvent) + + _ + Public Delegate Sub src_frm_Emulators_DOSBox_PatchesRowChangeEventHandler(ByVal sender As Object, ByVal e As src_frm_Emulators_DOSBox_PatchesRowChangeEvent) + + _ + Public Delegate Sub src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent) + + _ + Public Delegate Sub tbl_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_UsersRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_Moby_Releases_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_cmb_StaffRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_cmb_StaffRowChangeEvent) + + _ + Public Delegate Sub tbl_Similarity_CalculationRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Similarity_CalculationRowChangeEvent) + + _ + Public Delegate Sub tbl_Similarity_Calculation_ConfigRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Similarity_Calculation_ConfigRowChangeEvent) + + _ + Public Delegate Sub src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEventHandler(ByVal sender As Object, ByVal e As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent) + + _ + Public Delegate Sub tbl_Emu_Games_Have_Want_List_ItemsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_Auto_LinkRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_Auto_LinkRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_EmulatorsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_EmulatorsRow) + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnDisplayname As Global.System.Data.DataColumn + + Private columnInstallDirectory As Global.System.Data.DataColumn + + Private columnExecutable As Global.System.Data.DataColumn + + Private columnStartupParameter As Global.System.Data.DataColumn + + Private columnAutoItScript As Global.System.Data.DataColumn + + Private columnJ2KPreset As Global.System.Data.DataColumn + + Private columnScreenshotDirectory As Global.System.Data.DataColumn + + Private columnLibretro_Core As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emulators" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property + + _ + Public ReadOnly Property DisplaynameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayname + End Get + End Property + + _ + Public ReadOnly Property InstallDirectoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnInstallDirectory + End Get + End Property + + _ + Public ReadOnly Property ExecutableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnExecutable + End Get + End Property + + _ + Public ReadOnly Property StartupParameterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStartupParameter + End Get + End Property + + _ + Public ReadOnly Property AutoItScriptColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAutoItScript + End Get + End Property + + _ + Public ReadOnly Property J2KPresetColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJ2KPreset + End Get + End Property + + _ + Public ReadOnly Property ScreenshotDirectoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScreenshotDirectory + End Get + End Property + + _ + Public ReadOnly Property Libretro_CoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLibretro_Core + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_EmulatorsRow + Get + Return CType(Me.Rows(index),tbl_EmulatorsRow) + End Get + End Property + + _ + Public Event tbl_EmulatorsRowChanging As tbl_EmulatorsRowChangeEventHandler + + _ + Public Event tbl_EmulatorsRowChanged As tbl_EmulatorsRowChangeEventHandler + + _ + Public Event tbl_EmulatorsRowDeleting As tbl_EmulatorsRowChangeEventHandler + + _ + Public Event tbl_EmulatorsRowDeleted As tbl_EmulatorsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_EmulatorsRow(ByVal row As tbl_EmulatorsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_EmulatorsRow(ByVal Displayname As String, ByVal InstallDirectory As String, ByVal Executable As String, ByVal StartupParameter As String, ByVal AutoItScript As String, ByVal J2KPreset As String, ByVal ScreenshotDirectory As String, ByVal Libretro_Core As String) As tbl_EmulatorsRow + Dim rowtbl_EmulatorsRow As tbl_EmulatorsRow = CType(Me.NewRow,tbl_EmulatorsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core} + rowtbl_EmulatorsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_EmulatorsRow) + Return rowtbl_EmulatorsRow + End Function + + _ + Public Function FindByid_Emulators(ByVal id_Emulators As Long) As tbl_EmulatorsRow + Return CType(Me.Rows.Find(New Object() {id_Emulators}),tbl_EmulatorsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_EmulatorsDataTable = CType(MyBase.Clone,tbl_EmulatorsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_EmulatorsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnDisplayname = MyBase.Columns("Displayname") + Me.columnInstallDirectory = MyBase.Columns("InstallDirectory") + Me.columnExecutable = MyBase.Columns("Executable") + Me.columnStartupParameter = MyBase.Columns("StartupParameter") + Me.columnAutoItScript = MyBase.Columns("AutoItScript") + Me.columnJ2KPreset = MyBase.Columns("J2KPreset") + Me.columnScreenshotDirectory = MyBase.Columns("ScreenshotDirectory") + Me.columnLibretro_Core = MyBase.Columns("Libretro_Core") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emulators = New Global.System.Data.DataColumn("id_Emulators", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators) + Me.columnDisplayname = New Global.System.Data.DataColumn("Displayname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayname) + Me.columnInstallDirectory = New Global.System.Data.DataColumn("InstallDirectory", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnInstallDirectory) + Me.columnExecutable = New Global.System.Data.DataColumn("Executable", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnExecutable) + Me.columnStartupParameter = New Global.System.Data.DataColumn("StartupParameter", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStartupParameter) + Me.columnAutoItScript = New Global.System.Data.DataColumn("AutoItScript", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAutoItScript) + Me.columnJ2KPreset = New Global.System.Data.DataColumn("J2KPreset", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJ2KPreset) + Me.columnScreenshotDirectory = New Global.System.Data.DataColumn("ScreenshotDirectory", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnScreenshotDirectory) + Me.columnLibretro_Core = New Global.System.Data.DataColumn("Libretro_Core", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLibretro_Core) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emulators}, true)) + Me.columnid_Emulators.AutoIncrement = true + Me.columnid_Emulators.AutoIncrementSeed = -1 + Me.columnid_Emulators.AutoIncrementStep = -1 + Me.columnid_Emulators.AllowDBNull = false + Me.columnid_Emulators.Unique = true + Me.columnDisplayname.MaxLength = 2147483647 + Me.columnInstallDirectory.MaxLength = 2147483647 + Me.columnExecutable.MaxLength = 2147483647 + Me.columnStartupParameter.DefaultValue = CType("""%romfullpath%""",String) + Me.columnStartupParameter.MaxLength = 2147483647 + Me.columnAutoItScript.MaxLength = 2147483647 + Me.columnJ2KPreset.MaxLength = 2147483647 + Me.columnScreenshotDirectory.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_EmulatorsRow() As tbl_EmulatorsRow + Return CType(Me.NewRow,tbl_EmulatorsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_EmulatorsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_EmulatorsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_EmulatorsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_EmulatorsRowChanged(Me, New tbl_EmulatorsRowChangeEvent(CType(e.Row,tbl_EmulatorsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_EmulatorsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_EmulatorsRowChanging(Me, New tbl_EmulatorsRowChangeEvent(CType(e.Row,tbl_EmulatorsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_EmulatorsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_EmulatorsRowDeleted(Me, New tbl_EmulatorsRowChangeEvent(CType(e.Row,tbl_EmulatorsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_EmulatorsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_EmulatorsRowDeleting(Me, New tbl_EmulatorsRowChangeEvent(CType(e.Row,tbl_EmulatorsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_EmulatorsRow(ByVal row As tbl_EmulatorsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_EmulatorsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emulators_Moby_PlatformsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emulators_Moby_PlatformsRow) + + Private columnid_Emulators_Moby_Platforms As Global.System.Data.DataColumn + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emulators_Moby_Platforms" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emulators_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emulators_Moby_PlatformsRow + Get + Return CType(Me.Rows(index),tbl_Emulators_Moby_PlatformsRow) + End Get + End Property + + _ + Public Event tbl_Emulators_Moby_PlatformsRowChanging As tbl_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Emulators_Moby_PlatformsRowChanged As tbl_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Emulators_Moby_PlatformsRowDeleting As tbl_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Emulators_Moby_PlatformsRowDeleted As tbl_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emulators_Moby_PlatformsRow(ByVal row As tbl_Emulators_Moby_PlatformsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emulators_Moby_PlatformsRow(ByVal id_Emulators As Long, ByVal id_Moby_Platforms As Long) As tbl_Emulators_Moby_PlatformsRow + Dim rowtbl_Emulators_Moby_PlatformsRow As tbl_Emulators_Moby_PlatformsRow = CType(Me.NewRow,tbl_Emulators_Moby_PlatformsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emulators, id_Moby_Platforms} + rowtbl_Emulators_Moby_PlatformsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emulators_Moby_PlatformsRow) + Return rowtbl_Emulators_Moby_PlatformsRow + End Function + + _ + Public Function FindByid_Emulators_Moby_Platforms(ByVal id_Emulators_Moby_Platforms As Long) As tbl_Emulators_Moby_PlatformsRow + Return CType(Me.Rows.Find(New Object() {id_Emulators_Moby_Platforms}),tbl_Emulators_Moby_PlatformsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emulators_Moby_PlatformsDataTable = CType(MyBase.Clone,tbl_Emulators_Moby_PlatformsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emulators_Moby_PlatformsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emulators_Moby_Platforms = MyBase.Columns("id_Emulators_Moby_Platforms") + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emulators_Moby_Platforms = New Global.System.Data.DataColumn("id_Emulators_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators_Moby_Platforms) + Me.columnid_Emulators = New Global.System.Data.DataColumn("id_Emulators", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emulators_Moby_Platforms}, true)) + Me.columnid_Emulators_Moby_Platforms.AutoIncrement = true + Me.columnid_Emulators_Moby_Platforms.AutoIncrementSeed = -1 + Me.columnid_Emulators_Moby_Platforms.AutoIncrementStep = -1 + Me.columnid_Emulators_Moby_Platforms.AllowDBNull = false + Me.columnid_Emulators_Moby_Platforms.Unique = true + Me.columnid_Emulators.AllowDBNull = false + Me.columnid_Moby_Platforms.AllowDBNull = false + End Sub + + _ + Public Function Newtbl_Emulators_Moby_PlatformsRow() As tbl_Emulators_Moby_PlatformsRow + Return CType(Me.NewRow,tbl_Emulators_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emulators_Moby_PlatformsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emulators_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emulators_Moby_PlatformsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Moby_PlatformsRowChanged(Me, New tbl_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emulators_Moby_PlatformsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Moby_PlatformsRowChanging(Me, New tbl_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emulators_Moby_PlatformsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Moby_PlatformsRowDeleted(Me, New tbl_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emulators_Moby_PlatformsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Moby_PlatformsRowDeleting(Me, New tbl_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emulators_Moby_PlatformsRow(ByVal row As tbl_Emulators_Moby_PlatformsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emulators_Moby_PlatformsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_frm_Emulators_Moby_PlatformsDataTable + Inherits Global.System.Data.TypedTableBase(Of src_frm_Emulators_Moby_PlatformsRow) + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnSupported As Global.System.Data.DataColumn + + Private columnDefaultEmulator As Global.System.Data.DataColumn + + Private columnDisplay_Name As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_frm_Emulators_Moby_Platforms" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property SupportedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSupported + End Get + End Property + + _ + Public ReadOnly Property DefaultEmulatorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDefaultEmulator + End Get + End Property + + _ + Public ReadOnly Property Display_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplay_Name + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_frm_Emulators_Moby_PlatformsRow + Get + Return CType(Me.Rows(index),src_frm_Emulators_Moby_PlatformsRow) + End Get + End Property + + _ + Public Event src_frm_Emulators_Moby_PlatformsRowChanging As src_frm_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event src_frm_Emulators_Moby_PlatformsRowChanged As src_frm_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event src_frm_Emulators_Moby_PlatformsRowDeleting As src_frm_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Event src_frm_Emulators_Moby_PlatformsRowDeleted As src_frm_Emulators_Moby_PlatformsRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_frm_Emulators_Moby_PlatformsRow(ByVal row As src_frm_Emulators_Moby_PlatformsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_frm_Emulators_Moby_PlatformsRow(ByVal id_Moby_Platforms As Integer, ByVal Supported As Boolean, ByVal DefaultEmulator As Boolean, ByVal Display_Name As String) As src_frm_Emulators_Moby_PlatformsRow + Dim rowsrc_frm_Emulators_Moby_PlatformsRow As src_frm_Emulators_Moby_PlatformsRow = CType(Me.NewRow,src_frm_Emulators_Moby_PlatformsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Platforms, Supported, DefaultEmulator, Display_Name} + rowsrc_frm_Emulators_Moby_PlatformsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_frm_Emulators_Moby_PlatformsRow) + Return rowsrc_frm_Emulators_Moby_PlatformsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_frm_Emulators_Moby_PlatformsDataTable = CType(MyBase.Clone,src_frm_Emulators_Moby_PlatformsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_frm_Emulators_Moby_PlatformsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnSupported = MyBase.Columns("Supported") + Me.columnDefaultEmulator = MyBase.Columns("DefaultEmulator") + Me.columnDisplay_Name = MyBase.Columns("Display_Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnSupported = New Global.System.Data.DataColumn("Supported", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSupported) + Me.columnDefaultEmulator = New Global.System.Data.DataColumn("DefaultEmulator", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDefaultEmulator) + Me.columnDisplay_Name = New Global.System.Data.DataColumn("Display_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplay_Name) + End Sub + + _ + Public Function Newsrc_frm_Emulators_Moby_PlatformsRow() As src_frm_Emulators_Moby_PlatformsRow + Return CType(Me.NewRow,src_frm_Emulators_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_frm_Emulators_Moby_PlatformsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_frm_Emulators_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_frm_Emulators_Moby_PlatformsRowChangedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_Moby_PlatformsRowChanged(Me, New src_frm_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,src_frm_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_frm_Emulators_Moby_PlatformsRowChangingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_Moby_PlatformsRowChanging(Me, New src_frm_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,src_frm_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_frm_Emulators_Moby_PlatformsRowDeletedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_Moby_PlatformsRowDeleted(Me, New src_frm_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,src_frm_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_frm_Emulators_Moby_PlatformsRowDeletingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_Moby_PlatformsRowDeleting(Me, New src_frm_Emulators_Moby_PlatformsRowChangeEvent(CType(e.Row,src_frm_Emulators_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_frm_Emulators_Moby_PlatformsRow(ByVal row As src_frm_Emulators_Moby_PlatformsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_frm_Emulators_Moby_PlatformsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_PlatformsDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_PlatformsRow) + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnShortName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_Platforms" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property ShortNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnShortName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_PlatformsRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_PlatformsRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_PlatformsRowChanging As src_ucr_Emulation_PlatformsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_PlatformsRowChanged As src_ucr_Emulation_PlatformsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_PlatformsRowDeleting As src_ucr_Emulation_PlatformsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_PlatformsRowDeleted As src_ucr_Emulation_PlatformsRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_PlatformsRow(ByVal row As src_ucr_Emulation_PlatformsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_PlatformsRow(ByVal id_Moby_Platforms As Integer, ByVal Name As String, ByVal ShortName As String) As src_ucr_Emulation_PlatformsRow + Dim rowsrc_ucr_Emulation_PlatformsRow As src_ucr_Emulation_PlatformsRow = CType(Me.NewRow,src_ucr_Emulation_PlatformsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Platforms, Name, ShortName} + rowsrc_ucr_Emulation_PlatformsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_PlatformsRow) + Return rowsrc_ucr_Emulation_PlatformsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_PlatformsDataTable = CType(MyBase.Clone,src_ucr_Emulation_PlatformsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_PlatformsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnName = MyBase.Columns("Name") + Me.columnShortName = MyBase.Columns("ShortName") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnShortName = New Global.System.Data.DataColumn("ShortName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnShortName) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_PlatformsRow() As src_ucr_Emulation_PlatformsRow + Return CType(Me.NewRow,src_ucr_Emulation_PlatformsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_PlatformsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_PlatformsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_PlatformsRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_PlatformsRowChanged(Me, New src_ucr_Emulation_PlatformsRowChangeEvent(CType(e.Row,src_ucr_Emulation_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_PlatformsRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_PlatformsRowChanging(Me, New src_ucr_Emulation_PlatformsRowChangeEvent(CType(e.Row,src_ucr_Emulation_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_PlatformsRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_PlatformsRowDeleted(Me, New src_ucr_Emulation_PlatformsRowChangeEvent(CType(e.Row,src_ucr_Emulation_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_PlatformsRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_PlatformsRowDeleting(Me, New src_ucr_Emulation_PlatformsRowChangeEvent(CType(e.Row,src_ucr_Emulation_PlatformsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_PlatformsRow(ByVal row As src_ucr_Emulation_PlatformsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_PlatformsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_GamesDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_GamesRow) + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columntmp_Highlighted As Global.System.Data.DataColumn + + Private columnid_DOSBox_Configs_Template As Global.System.Data.DataColumn + + Private columnid_DOSBox_Configs As Global.System.Data.DataColumn + + Private columnGame As Global.System.Data.DataColumn + + Private columnFolder As Global.System.Data.DataColumn + + Private columnFile As Global.System.Data.DataColumn + + Private columnInnerFile As Global.System.Data.DataColumn + + Private columnWant As Global.System.Data.DataColumn + + Private columnHave As Global.System.Data.DataColumn + + Private columnTrade As Global.System.Data.DataColumn + + Private columnRank As Global.System.Data.DataColumn + + Private columnScore As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnNum_Played As Global.System.Data.DataColumn + + Private columnNum_Runtime As Global.System.Data.DataColumn + + Private columnRating_Gameplay As Global.System.Data.DataColumn + + Private columnRating_Graphics As Global.System.Data.DataColumn + + Private columnRating_Personal As Global.System.Data.DataColumn + + Private columnRating_Sound As Global.System.Data.DataColumn + + Private columnRating_Story As Global.System.Data.DataColumn + + Private columnFavourite As Global.System.Data.DataColumn + + Private columnPlatform As Global.System.Data.DataColumn + + Private columnGame_NoPrefix As Global.System.Data.DataColumn + + Private columnAge_Pessimistic As Global.System.Data.DataColumn + + Private columnAge_Optimistic As Global.System.Data.DataColumn + + Private columnPublisher As Global.System.Data.DataColumn + + Private columnDeveloper As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnTechnical_Notes As Global.System.Data.DataColumn + + Private columnAlternate_Titles As Global.System.Data.DataColumn + + Private columnBasic_Genres As Global.System.Data.DataColumn + + Private columnPerspectives As Global.System.Data.DataColumn + + Private columnSports_Themes As Global.System.Data.DataColumn + + Private columnEducational_Categories As Global.System.Data.DataColumn + + Private columnOther_Attributes As Global.System.Data.DataColumn + + Private columnVisual_Presentation As Global.System.Data.DataColumn + + Private columnPacing As Global.System.Data.DataColumn + + Private columnGameplay As Global.System.Data.DataColumn + + Private columnInterface_Control As Global.System.Data.DataColumn + + Private columnVehicular_Themes As Global.System.Data.DataColumn + + Private columnSetting As Global.System.Data.DataColumn + + Private columnNarrative_Theme_Topic As Global.System.Data.DataColumn + + Private columnDLC_Addon As Global.System.Data.DataColumn + + Private columnSpecial_Edition As Global.System.Data.DataColumn + + Private columnPlatform_Short As Global.System.Data.DataColumn + + Private columnMoby_URL As Global.System.Data.DataColumn + + Private columnMoby_Platforms_URLPart As Global.System.Data.DataColumn + + Private columnMoby_Games_URLPart As Global.System.Data.DataColumn + + Private columnMinPlayers As Global.System.Data.DataColumn + + Private columnMaxPlayers As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnRating As Global.System.Data.DataColumn + + Private columnVersion As Global.System.Data.DataColumn + + Private columnAlt As Global.System.Data.DataColumn + + Private columnTrainer As Global.System.Data.DataColumn + + Private columnTranslation As Global.System.Data.DataColumn + + Private columnHack As Global.System.Data.DataColumn + + Private columnBios As Global.System.Data.DataColumn + + Private columnPrototype As Global.System.Data.DataColumn + + Private columnAlpha As Global.System.Data.DataColumn + + Private columnBeta As Global.System.Data.DataColumn + + Private columnSample As Global.System.Data.DataColumn + + Private columnKiosk As Global.System.Data.DataColumn + + Private columnUnlicensed As Global.System.Data.DataColumn + + Private columnFixed As Global.System.Data.DataColumn + + Private columnPirated As Global.System.Data.DataColumn + + Private columnGood As Global.System.Data.DataColumn + + Private columnBad As Global.System.Data.DataColumn + + Private columnOverdump As Global.System.Data.DataColumn + + Private columnPublicDomain As Global.System.Data.DataColumn + + Private columnRegions As Global.System.Data.DataColumn + + Private columnLanguages As Global.System.Data.DataColumn + + Private columnMP_GameModes As Global.System.Data.DataColumn + + Private columnMP_Options As Global.System.Data.DataColumn + + Private columnSpecialInfo As Global.System.Data.DataColumn + + Private columnid_Moby_Games As Global.System.Data.DataColumn + + Private columnLast_Played As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnMultiVolume As Global.System.Data.DataColumn + + Private columnVolume_Number As Global.System.Data.DataColumn + + Private columnPlatform_Exclusive As Global.System.Data.DataColumn + + Private columnJ2KPreset As Global.System.Data.DataColumn + + Private columnid_Moby_Releases As Global.System.Data.DataColumn + + Private columnSimilarity As Global.System.Data.DataColumn + + Private column001_Platform As Global.System.Data.DataColumn + + Private column002_MobyRank As Global.System.Data.DataColumn + + Private column003_MobyScore As Global.System.Data.DataColumn + + Private column004_Publisher As Global.System.Data.DataColumn + + Private column005_Developer As Global.System.Data.DataColumn + + Private column006_Year As Global.System.Data.DataColumn + + Private column101_Basic_Genres As Global.System.Data.DataColumn + + Private column102_Perspectives As Global.System.Data.DataColumn + + Private column103_Sports_Themes As Global.System.Data.DataColumn + + Private column104_Non_Sports_Themes As Global.System.Data.DataColumn + + Private column105_Educational_Categories As Global.System.Data.DataColumn + + Private column106_Other_Attributes As Global.System.Data.DataColumn + + Private column107_Visual_Presentation As Global.System.Data.DataColumn + + Private column108_Gameplay As Global.System.Data.DataColumn + + Private column109_Pacing As Global.System.Data.DataColumn + + Private column110_Narrative_Theme_Topic As Global.System.Data.DataColumn + + Private column111_Setting As Global.System.Data.DataColumn + + Private column112_Vehicular_Themes As Global.System.Data.DataColumn + + Private column113_Interface_Control As Global.System.Data.DataColumn + + Private column114_DLC_Addon As Global.System.Data.DataColumn + + Private column115_Special_Edition As Global.System.Data.DataColumn + + Private column201_MinPlayers As Global.System.Data.DataColumn + + Private column202_MaxPlayers As Global.System.Data.DataColumn + + Private column203_AgeO As Global.System.Data.DataColumn + + Private column204_AgeP As Global.System.Data.DataColumn + + Private column205_Rating_Descriptors As Global.System.Data.DataColumn + + Private column206_Other_Attributes As Global.System.Data.DataColumn + + Private column207_Multiplayer_Attributes As Global.System.Data.DataColumn + + Private column301_Group_Membership As Global.System.Data.DataColumn + + Private column401_Staff As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_Games" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property tmp_HighlightedColumn() As Global.System.Data.DataColumn + Get + Return Me.columntmp_Highlighted + End Get + End Property + + _ + Public ReadOnly Property id_DOSBox_Configs_TemplateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Configs_Template + End Get + End Property + + _ + Public ReadOnly Property id_DOSBox_ConfigsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Configs + End Get + End Property + + _ + Public ReadOnly Property GameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGame + End Get + End Property + + _ + Public ReadOnly Property FolderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFolder + End Get + End Property + + _ + Public ReadOnly Property FileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFile + End Get + End Property + + _ + Public ReadOnly Property InnerFileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnInnerFile + End Get + End Property + + _ + Public ReadOnly Property WantColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWant + End Get + End Property + + _ + Public ReadOnly Property HaveColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHave + End Get + End Property + + _ + Public ReadOnly Property TradeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTrade + End Get + End Property + + _ + Public ReadOnly Property RankColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRank + End Get + End Property + + _ + Public ReadOnly Property ScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScore + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property Num_PlayedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNum_Played + End Get + End Property + + _ + Public ReadOnly Property Num_RuntimeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNum_Runtime + End Get + End Property + + _ + Public ReadOnly Property Rating_GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Gameplay + End Get + End Property + + _ + Public ReadOnly Property Rating_GraphicsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Graphics + End Get + End Property + + _ + Public ReadOnly Property Rating_PersonalColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Personal + End Get + End Property + + _ + Public ReadOnly Property Rating_SoundColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Sound + End Get + End Property + + _ + Public ReadOnly Property Rating_StoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Story + End Get + End Property + + _ + Public ReadOnly Property FavouriteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFavourite + End Get + End Property + + _ + Public ReadOnly Property PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPlatform + End Get + End Property + + _ + Public ReadOnly Property Game_NoPrefixColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGame_NoPrefix + End Get + End Property + + _ + Public ReadOnly Property Age_PessimisticColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAge_Pessimistic + End Get + End Property + + _ + Public ReadOnly Property Age_OptimisticColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAge_Optimistic + End Get + End Property + + _ + Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher + End Get + End Property + + _ + Public ReadOnly Property DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Technical_NotesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTechnical_Notes + End Get + End Property + + _ + Public ReadOnly Property Alternate_TitlesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlternate_Titles + End Get + End Property + + _ + Public ReadOnly Property Basic_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBasic_Genres + End Get + End Property + + _ + Public ReadOnly Property PerspectivesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPerspectives + End Get + End Property + + _ + Public ReadOnly Property Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSports_Themes + End Get + End Property + + _ + Public ReadOnly Property Educational_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEducational_Categories + End Get + End Property + + _ + Public ReadOnly Property Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOther_Attributes + End Get + End Property + + _ + Public ReadOnly Property Visual_PresentationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVisual_Presentation + End Get + End Property + + _ + Public ReadOnly Property PacingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPacing + End Get + End Property + + _ + Public ReadOnly Property GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGameplay + End Get + End Property + + _ + Public ReadOnly Property Interface_ControlColumn() As Global.System.Data.DataColumn + Get + Return Me.columnInterface_Control + End Get + End Property + + _ + Public ReadOnly Property Vehicular_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVehicular_Themes + End Get + End Property + + _ + Public ReadOnly Property SettingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSetting + End Get + End Property + + _ + Public ReadOnly Property Narrative_Theme_TopicColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNarrative_Theme_Topic + End Get + End Property + + _ + Public ReadOnly Property DLC_AddonColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDLC_Addon + End Get + End Property + + _ + Public ReadOnly Property Special_EditionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpecial_Edition + End Get + End Property + + _ + Public ReadOnly Property Platform_ShortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPlatform_Short + End Get + End Property + + _ + Public ReadOnly Property Moby_URLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_URL + End Get + End Property + + _ + Public ReadOnly Property Moby_Platforms_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Platforms_URLPart + End Get + End Property + + _ + Public ReadOnly Property Moby_Games_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Games_URLPart + End Get + End Property + + _ + Public ReadOnly Property MinPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMinPlayers + End Get + End Property + + _ + Public ReadOnly Property MaxPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMaxPlayers + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property RatingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating + End Get + End Property + + _ + Public ReadOnly Property VersionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVersion + End Get + End Property + + _ + Public ReadOnly Property AltColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlt + End Get + End Property + + _ + Public ReadOnly Property TrainerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTrainer + End Get + End Property + + _ + Public ReadOnly Property TranslationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTranslation + End Get + End Property + + _ + Public ReadOnly Property HackColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHack + End Get + End Property + + _ + Public ReadOnly Property BiosColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBios + End Get + End Property + + _ + Public ReadOnly Property PrototypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrototype + End Get + End Property + + _ + Public ReadOnly Property AlphaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlpha + End Get + End Property + + _ + Public ReadOnly Property BetaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBeta + End Get + End Property + + _ + Public ReadOnly Property SampleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSample + End Get + End Property + + _ + Public ReadOnly Property KioskColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKiosk + End Get + End Property + + _ + Public ReadOnly Property UnlicensedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUnlicensed + End Get + End Property + + _ + Public ReadOnly Property FixedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFixed + End Get + End Property + + _ + Public ReadOnly Property PiratedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPirated + End Get + End Property + + _ + Public ReadOnly Property GoodColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGood + End Get + End Property + + _ + Public ReadOnly Property BadColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBad + End Get + End Property + + _ + Public ReadOnly Property OverdumpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOverdump + End Get + End Property + + _ + Public ReadOnly Property PublicDomainColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublicDomain + End Get + End Property + + _ + Public ReadOnly Property RegionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRegions + End Get + End Property + + _ + Public ReadOnly Property LanguagesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLanguages + End Get + End Property + + _ + Public ReadOnly Property MP_GameModesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMP_GameModes + End Get + End Property + + _ + Public ReadOnly Property MP_OptionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMP_Options + End Get + End Property + + _ + Public ReadOnly Property SpecialInfoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpecialInfo + End Get + End Property + + _ + Public ReadOnly Property id_Moby_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property Last_PlayedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLast_Played + End Get + End Property + + _ + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn + Get + Return Me.columncreated + End Get + End Property + + _ + Public ReadOnly Property MultiVolumeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMultiVolume + End Get + End Property + + _ + Public ReadOnly Property Volume_NumberColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVolume_Number + End Get + End Property + + _ + Public ReadOnly Property Platform_ExclusiveColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPlatform_Exclusive + End Get + End Property + + _ + Public ReadOnly Property J2KPresetColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJ2KPreset + End Get + End Property + + _ + Public ReadOnly Property id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property SimilarityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSimilarity + End Get + End Property + + _ + Public ReadOnly Property _001_PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.column001_Platform + End Get + End Property + + _ + Public ReadOnly Property _002_MobyRankColumn() As Global.System.Data.DataColumn + Get + Return Me.column002_MobyRank + End Get + End Property + + _ + Public ReadOnly Property _003_MobyScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.column003_MobyScore + End Get + End Property + + _ + Public ReadOnly Property _004_PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.column004_Publisher + End Get + End Property + + _ + Public ReadOnly Property _005_DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.column005_Developer + End Get + End Property + + _ + Public ReadOnly Property _006_YearColumn() As Global.System.Data.DataColumn + Get + Return Me.column006_Year + End Get + End Property + + _ + Public ReadOnly Property _101_Basic_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.column101_Basic_Genres + End Get + End Property + + _ + Public ReadOnly Property _102_PerspectivesColumn() As Global.System.Data.DataColumn + Get + Return Me.column102_Perspectives + End Get + End Property + + _ + Public ReadOnly Property _103_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column103_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property _104_Non_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column104_Non_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property _105_Educational_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.column105_Educational_Categories + End Get + End Property + + _ + Public ReadOnly Property _106_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column106_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property _107_Visual_PresentationColumn() As Global.System.Data.DataColumn + Get + Return Me.column107_Visual_Presentation + End Get + End Property + + _ + Public ReadOnly Property _108_GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.column108_Gameplay + End Get + End Property + + _ + Public ReadOnly Property _109_PacingColumn() As Global.System.Data.DataColumn + Get + Return Me.column109_Pacing + End Get + End Property + + _ + Public ReadOnly Property _110_Narrative_Theme_TopicColumn() As Global.System.Data.DataColumn + Get + Return Me.column110_Narrative_Theme_Topic + End Get + End Property + + _ + Public ReadOnly Property _111_SettingColumn() As Global.System.Data.DataColumn + Get + Return Me.column111_Setting + End Get + End Property + + _ + Public ReadOnly Property _112_Vehicular_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column112_Vehicular_Themes + End Get + End Property + + _ + Public ReadOnly Property _113_Interface_ControlColumn() As Global.System.Data.DataColumn + Get + Return Me.column113_Interface_Control + End Get + End Property + + _ + Public ReadOnly Property _114_DLC_AddonColumn() As Global.System.Data.DataColumn + Get + Return Me.column114_DLC_Addon + End Get + End Property + + _ + Public ReadOnly Property _115_Special_EditionColumn() As Global.System.Data.DataColumn + Get + Return Me.column115_Special_Edition + End Get + End Property + + _ + Public ReadOnly Property _201_MinPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.column201_MinPlayers + End Get + End Property + + _ + Public ReadOnly Property _202_MaxPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.column202_MaxPlayers + End Get + End Property + + _ + Public ReadOnly Property _203_AgeOColumn() As Global.System.Data.DataColumn + Get + Return Me.column203_AgeO + End Get + End Property + + _ + Public ReadOnly Property _204_AgePColumn() As Global.System.Data.DataColumn + Get + Return Me.column204_AgeP + End Get + End Property + + _ + Public ReadOnly Property _205_Rating_DescriptorsColumn() As Global.System.Data.DataColumn + Get + Return Me.column205_Rating_Descriptors + End Get + End Property + + _ + Public ReadOnly Property _206_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column206_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property _207_Multiplayer_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column207_Multiplayer_Attributes + End Get + End Property + + _ + Public ReadOnly Property _301_Group_MembershipColumn() As Global.System.Data.DataColumn + Get + Return Me.column301_Group_Membership + End Get + End Property + + _ + Public ReadOnly Property _401_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.column401_Staff + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_GamesRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_GamesRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_GamesRowChanging As src_ucr_Emulation_GamesRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GamesRowChanged As src_ucr_Emulation_GamesRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GamesRowDeleting As src_ucr_Emulation_GamesRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GamesRowDeleted As src_ucr_Emulation_GamesRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_GamesRow(ByVal row As src_ucr_Emulation_GamesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_GamesRow( _ + ByVal id_Emu_Games As Integer, _ + ByVal tmp_Highlighted As Boolean, _ + ByVal id_DOSBox_Configs_Template As Long, _ + ByVal id_DOSBox_Configs As Long, _ + ByVal Game As String, _ + ByVal Folder As String, _ + ByVal File As String, _ + ByVal InnerFile As String, _ + ByVal Want As Boolean, _ + ByVal Have As Boolean, _ + ByVal Trade As Boolean, _ + ByVal Rank As Integer, _ + ByVal Score As Decimal, _ + ByVal Year As String, _ + ByVal Num_Played As Integer, _ + ByVal Num_Runtime As Integer, _ + ByVal Rating_Gameplay As Integer, _ + ByVal Rating_Graphics As Integer, _ + ByVal Rating_Personal As Integer, _ + ByVal Rating_Sound As Integer, _ + ByVal Rating_Story As Integer, _ + ByVal Favourite As Boolean, _ + ByVal Platform As String, _ + ByVal Game_NoPrefix As String, _ + ByVal Age_Pessimistic As Integer, _ + ByVal Age_Optimistic As Integer, _ + ByVal Publisher As String, _ + ByVal Developer As String, _ + ByVal Description As String, _ + ByVal Technical_Notes As String, _ + ByVal Alternate_Titles As String, _ + ByVal Basic_Genres As String, _ + ByVal Perspectives As String, _ + ByVal Sports_Themes As String, _ + ByVal Educational_Categories As String, _ + ByVal Other_Attributes As String, _ + ByVal Visual_Presentation As String, _ + ByVal Pacing As String, _ + ByVal Gameplay As String, _ + ByVal Interface_Control As String, _ + ByVal Vehicular_Themes As String, _ + ByVal Setting As String, _ + ByVal Narrative_Theme_Topic As String, _ + ByVal DLC_Addon As String, _ + ByVal Special_Edition As String, _ + ByVal Platform_Short As String, _ + ByVal Moby_URL As String, _ + ByVal Moby_Platforms_URLPart As String, _ + ByVal Moby_Games_URLPart As String, _ + ByVal MinPlayers As Integer, _ + ByVal MaxPlayers As Integer, _ + ByVal id_Moby_Platforms As Integer, _ + ByVal Rating As Integer, _ + ByVal Version As String, _ + ByVal Alt As String, _ + ByVal Trainer As Boolean, _ + ByVal Translation As Boolean, _ + ByVal Hack As Boolean, _ + ByVal Bios As Boolean, _ + ByVal Prototype As Boolean, _ + ByVal Alpha As Boolean, _ + ByVal Beta As Boolean, _ + ByVal Sample As Boolean, _ + ByVal Kiosk As Boolean, _ + ByVal Unlicensed As Boolean, _ + ByVal Fixed As Boolean, _ + ByVal Pirated As Boolean, _ + ByVal Good As Boolean, _ + ByVal Bad As Boolean, _ + ByVal Overdump As Boolean, _ + ByVal PublicDomain As Boolean, _ + ByVal Regions As String, _ + ByVal Languages As String, _ + ByVal MP_GameModes As String, _ + ByVal MP_Options As String, _ + ByVal SpecialInfo As String, _ + ByVal id_Moby_Games As Long, _ + ByVal Last_Played As Date, _ + ByVal created As Date, _ + ByVal MultiVolume As Boolean, _ + ByVal Volume_Number As Long, _ + ByVal Platform_Exclusive As Boolean, _ + ByVal J2KPreset As String, _ + ByVal id_Moby_Releases As Integer, _ + ByVal Similarity As Integer, _ + ByVal _001_Platform As Integer, _ + ByVal _002_MobyRank As Integer, _ + ByVal _003_MobyScore As Integer, _ + ByVal _004_Publisher As Integer, _ + ByVal _005_Developer As Integer, _ + ByVal _006_Year As Integer, _ + ByVal _101_Basic_Genres As Integer, _ + ByVal _102_Perspectives As Integer, _ + ByVal _103_Sports_Themes As Integer, _ + ByVal _104_Non_Sports_Themes As Integer, _ + ByVal _105_Educational_Categories As Integer, _ + ByVal _106_Other_Attributes As Integer, _ + ByVal _107_Visual_Presentation As Integer, _ + ByVal _108_Gameplay As Integer, _ + ByVal _109_Pacing As Integer, _ + ByVal _110_Narrative_Theme_Topic As Integer, _ + ByVal _111_Setting As Integer, _ + ByVal _112_Vehicular_Themes As Integer, _ + ByVal _113_Interface_Control As Integer, _ + ByVal _114_DLC_Addon As Integer, _ + ByVal _115_Special_Edition As Integer, _ + ByVal _201_MinPlayers As Integer, _ + ByVal _202_MaxPlayers As Integer, _ + ByVal _203_AgeO As Integer, _ + ByVal _204_AgeP As Integer, _ + ByVal _205_Rating_Descriptors As Integer, _ + ByVal _206_Other_Attributes As Integer, _ + ByVal _207_Multiplayer_Attributes As Integer, _ + ByVal _301_Group_Membership As Integer, _ + ByVal _401_Staff As Integer) As src_ucr_Emulation_GamesRow + Dim rowsrc_ucr_Emulation_GamesRow As src_ucr_Emulation_GamesRow = CType(Me.NewRow,src_ucr_Emulation_GamesRow) + Dim columnValuesArray() As Object = New Object() {id_Emu_Games, tmp_Highlighted, id_DOSBox_Configs_Template, id_DOSBox_Configs, Game, Folder, File, InnerFile, Want, Have, Trade, Rank, Score, Year, Num_Played, Num_Runtime, Rating_Gameplay, Rating_Graphics, Rating_Personal, Rating_Sound, Rating_Story, Favourite, Platform, Game_NoPrefix, Age_Pessimistic, Age_Optimistic, Publisher, Developer, Description, Technical_Notes, Alternate_Titles, Basic_Genres, Perspectives, Sports_Themes, Educational_Categories, Other_Attributes, Visual_Presentation, Pacing, Gameplay, Interface_Control, Vehicular_Themes, Setting, Narrative_Theme_Topic, DLC_Addon, Special_Edition, Platform_Short, Moby_URL, Moby_Platforms_URLPart, Moby_Games_URLPart, MinPlayers, MaxPlayers, id_Moby_Platforms, Rating, Version, Alt, Trainer, Translation, Hack, Bios, Prototype, Alpha, Beta, Sample, Kiosk, Unlicensed, Fixed, Pirated, Good, Bad, Overdump, PublicDomain, Regions, Languages, MP_GameModes, MP_Options, SpecialInfo, id_Moby_Games, Last_Played, created, MultiVolume, Volume_Number, Platform_Exclusive, J2KPreset, id_Moby_Releases, Similarity, _001_Platform, _002_MobyRank, _003_MobyScore, _004_Publisher, _005_Developer, _006_Year, _101_Basic_Genres, _102_Perspectives, _103_Sports_Themes, _104_Non_Sports_Themes, _105_Educational_Categories, _106_Other_Attributes, _107_Visual_Presentation, _108_Gameplay, _109_Pacing, _110_Narrative_Theme_Topic, _111_Setting, _112_Vehicular_Themes, _113_Interface_Control, _114_DLC_Addon, _115_Special_Edition, _201_MinPlayers, _202_MaxPlayers, _203_AgeO, _204_AgeP, _205_Rating_Descriptors, _206_Other_Attributes, _207_Multiplayer_Attributes, _301_Group_Membership, _401_Staff} + rowsrc_ucr_Emulation_GamesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_GamesRow) + Return rowsrc_ucr_Emulation_GamesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_GamesDataTable = CType(MyBase.Clone,src_ucr_Emulation_GamesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_GamesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columntmp_Highlighted = MyBase.Columns("tmp_Highlighted") + Me.columnid_DOSBox_Configs_Template = MyBase.Columns("id_DOSBox_Configs_Template") + Me.columnid_DOSBox_Configs = MyBase.Columns("id_DOSBox_Configs") + Me.columnGame = MyBase.Columns("Game") + Me.columnFolder = MyBase.Columns("Folder") + Me.columnFile = MyBase.Columns("File") + Me.columnInnerFile = MyBase.Columns("InnerFile") + Me.columnWant = MyBase.Columns("Want") + Me.columnHave = MyBase.Columns("Have") + Me.columnTrade = MyBase.Columns("Trade") + Me.columnRank = MyBase.Columns("Rank") + Me.columnScore = MyBase.Columns("Score") + Me.columnYear = MyBase.Columns("Year") + Me.columnNum_Played = MyBase.Columns("Num_Played") + Me.columnNum_Runtime = MyBase.Columns("Num_Runtime") + Me.columnRating_Gameplay = MyBase.Columns("Rating_Gameplay") + Me.columnRating_Graphics = MyBase.Columns("Rating_Graphics") + Me.columnRating_Personal = MyBase.Columns("Rating_Personal") + Me.columnRating_Sound = MyBase.Columns("Rating_Sound") + Me.columnRating_Story = MyBase.Columns("Rating_Story") + Me.columnFavourite = MyBase.Columns("Favourite") + Me.columnPlatform = MyBase.Columns("Platform") + Me.columnGame_NoPrefix = MyBase.Columns("Game_NoPrefix") + Me.columnAge_Pessimistic = MyBase.Columns("Age_Pessimistic") + Me.columnAge_Optimistic = MyBase.Columns("Age_Optimistic") + Me.columnPublisher = MyBase.Columns("Publisher") + Me.columnDeveloper = MyBase.Columns("Developer") + Me.columnDescription = MyBase.Columns("Description") + Me.columnTechnical_Notes = MyBase.Columns("Technical_Notes") + Me.columnAlternate_Titles = MyBase.Columns("Alternate_Titles") + Me.columnBasic_Genres = MyBase.Columns("Basic_Genres") + Me.columnPerspectives = MyBase.Columns("Perspectives") + Me.columnSports_Themes = MyBase.Columns("Sports_Themes") + Me.columnEducational_Categories = MyBase.Columns("Educational_Categories") + Me.columnOther_Attributes = MyBase.Columns("Other_Attributes") + Me.columnVisual_Presentation = MyBase.Columns("Visual_Presentation") + Me.columnPacing = MyBase.Columns("Pacing") + Me.columnGameplay = MyBase.Columns("Gameplay") + Me.columnInterface_Control = MyBase.Columns("Interface_Control") + Me.columnVehicular_Themes = MyBase.Columns("Vehicular_Themes") + Me.columnSetting = MyBase.Columns("Setting") + Me.columnNarrative_Theme_Topic = MyBase.Columns("Narrative_Theme_Topic") + Me.columnDLC_Addon = MyBase.Columns("DLC_Addon") + Me.columnSpecial_Edition = MyBase.Columns("Special_Edition") + Me.columnPlatform_Short = MyBase.Columns("Platform_Short") + Me.columnMoby_URL = MyBase.Columns("Moby_URL") + Me.columnMoby_Platforms_URLPart = MyBase.Columns("Moby_Platforms_URLPart") + Me.columnMoby_Games_URLPart = MyBase.Columns("Moby_Games_URLPart") + Me.columnMinPlayers = MyBase.Columns("MinPlayers") + Me.columnMaxPlayers = MyBase.Columns("MaxPlayers") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnRating = MyBase.Columns("Rating") + Me.columnVersion = MyBase.Columns("Version") + Me.columnAlt = MyBase.Columns("Alt") + Me.columnTrainer = MyBase.Columns("Trainer") + Me.columnTranslation = MyBase.Columns("Translation") + Me.columnHack = MyBase.Columns("Hack") + Me.columnBios = MyBase.Columns("Bios") + Me.columnPrototype = MyBase.Columns("Prototype") + Me.columnAlpha = MyBase.Columns("Alpha") + Me.columnBeta = MyBase.Columns("Beta") + Me.columnSample = MyBase.Columns("Sample") + Me.columnKiosk = MyBase.Columns("Kiosk") + Me.columnUnlicensed = MyBase.Columns("Unlicensed") + Me.columnFixed = MyBase.Columns("Fixed") + Me.columnPirated = MyBase.Columns("Pirated") + Me.columnGood = MyBase.Columns("Good") + Me.columnBad = MyBase.Columns("Bad") + Me.columnOverdump = MyBase.Columns("Overdump") + Me.columnPublicDomain = MyBase.Columns("PublicDomain") + Me.columnRegions = MyBase.Columns("Regions") + Me.columnLanguages = MyBase.Columns("Languages") + Me.columnMP_GameModes = MyBase.Columns("MP_GameModes") + Me.columnMP_Options = MyBase.Columns("MP_Options") + Me.columnSpecialInfo = MyBase.Columns("SpecialInfo") + Me.columnid_Moby_Games = MyBase.Columns("id_Moby_Games") + Me.columnLast_Played = MyBase.Columns("Last_Played") + Me.columncreated = MyBase.Columns("created") + Me.columnMultiVolume = MyBase.Columns("MultiVolume") + Me.columnVolume_Number = MyBase.Columns("Volume_Number") + Me.columnPlatform_Exclusive = MyBase.Columns("Platform_Exclusive") + Me.columnJ2KPreset = MyBase.Columns("J2KPreset") + Me.columnid_Moby_Releases = MyBase.Columns("id_Moby_Releases") + Me.columnSimilarity = MyBase.Columns("Similarity") + Me.column001_Platform = MyBase.Columns("001_Platform") + Me.column002_MobyRank = MyBase.Columns("002_MobyRank") + Me.column003_MobyScore = MyBase.Columns("003_MobyScore") + Me.column004_Publisher = MyBase.Columns("004_Publisher") + Me.column005_Developer = MyBase.Columns("005_Developer") + Me.column006_Year = MyBase.Columns("006_Year") + Me.column101_Basic_Genres = MyBase.Columns("101_Basic_Genres") + Me.column102_Perspectives = MyBase.Columns("102_Perspectives") + Me.column103_Sports_Themes = MyBase.Columns("103_Sports_Themes") + Me.column104_Non_Sports_Themes = MyBase.Columns("104_Non_Sports_Themes") + Me.column105_Educational_Categories = MyBase.Columns("105_Educational_Categories") + Me.column106_Other_Attributes = MyBase.Columns("106_Other_Attributes") + Me.column107_Visual_Presentation = MyBase.Columns("107_Visual_Presentation") + Me.column108_Gameplay = MyBase.Columns("108_Gameplay") + Me.column109_Pacing = MyBase.Columns("109_Pacing") + Me.column110_Narrative_Theme_Topic = MyBase.Columns("110_Narrative_Theme_Topic") + Me.column111_Setting = MyBase.Columns("111_Setting") + Me.column112_Vehicular_Themes = MyBase.Columns("112_Vehicular_Themes") + Me.column113_Interface_Control = MyBase.Columns("113_Interface_Control") + Me.column114_DLC_Addon = MyBase.Columns("114_DLC_Addon") + Me.column115_Special_Edition = MyBase.Columns("115_Special_Edition") + Me.column201_MinPlayers = MyBase.Columns("201_MinPlayers") + Me.column202_MaxPlayers = MyBase.Columns("202_MaxPlayers") + Me.column203_AgeO = MyBase.Columns("203_AgeO") + Me.column204_AgeP = MyBase.Columns("204_AgeP") + Me.column205_Rating_Descriptors = MyBase.Columns("205_Rating_Descriptors") + Me.column206_Other_Attributes = MyBase.Columns("206_Other_Attributes") + Me.column207_Multiplayer_Attributes = MyBase.Columns("207_Multiplayer_Attributes") + Me.column301_Group_Membership = MyBase.Columns("301_Group_Membership") + Me.column401_Staff = MyBase.Columns("401_Staff") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columntmp_Highlighted = New Global.System.Data.DataColumn("tmp_Highlighted", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Highlighted) + Me.columnid_DOSBox_Configs_Template = New Global.System.Data.DataColumn("id_DOSBox_Configs_Template", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Configs_Template) + Me.columnid_DOSBox_Configs = New Global.System.Data.DataColumn("id_DOSBox_Configs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Configs) + Me.columnGame = New Global.System.Data.DataColumn("Game", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGame) + Me.columnFolder = New Global.System.Data.DataColumn("Folder", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFolder) + Me.columnFile = New Global.System.Data.DataColumn("File", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFile) + Me.columnInnerFile = New Global.System.Data.DataColumn("InnerFile", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnInnerFile) + Me.columnWant = New Global.System.Data.DataColumn("Want", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWant) + Me.columnHave = New Global.System.Data.DataColumn("Have", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHave) + Me.columnTrade = New Global.System.Data.DataColumn("Trade", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTrade) + Me.columnRank = New Global.System.Data.DataColumn("Rank", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRank) + Me.columnScore = New Global.System.Data.DataColumn("Score", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnScore) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnNum_Played = New Global.System.Data.DataColumn("Num_Played", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNum_Played) + Me.columnNum_Runtime = New Global.System.Data.DataColumn("Num_Runtime", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNum_Runtime) + Me.columnRating_Gameplay = New Global.System.Data.DataColumn("Rating_Gameplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Gameplay) + Me.columnRating_Graphics = New Global.System.Data.DataColumn("Rating_Graphics", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Graphics) + Me.columnRating_Personal = New Global.System.Data.DataColumn("Rating_Personal", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Personal) + Me.columnRating_Sound = New Global.System.Data.DataColumn("Rating_Sound", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Sound) + Me.columnRating_Story = New Global.System.Data.DataColumn("Rating_Story", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Story) + Me.columnFavourite = New Global.System.Data.DataColumn("Favourite", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFavourite) + Me.columnPlatform = New Global.System.Data.DataColumn("Platform", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPlatform) + Me.columnGame_NoPrefix = New Global.System.Data.DataColumn("Game_NoPrefix", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGame_NoPrefix) + Me.columnAge_Pessimistic = New Global.System.Data.DataColumn("Age_Pessimistic", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAge_Pessimistic) + Me.columnAge_Optimistic = New Global.System.Data.DataColumn("Age_Optimistic", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAge_Optimistic) + Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher) + Me.columnDeveloper = New Global.System.Data.DataColumn("Developer", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnTechnical_Notes = New Global.System.Data.DataColumn("Technical_Notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTechnical_Notes) + Me.columnAlternate_Titles = New Global.System.Data.DataColumn("Alternate_Titles", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlternate_Titles) + Me.columnBasic_Genres = New Global.System.Data.DataColumn("Basic_Genres", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBasic_Genres) + Me.columnPerspectives = New Global.System.Data.DataColumn("Perspectives", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPerspectives) + Me.columnSports_Themes = New Global.System.Data.DataColumn("Sports_Themes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSports_Themes) + Me.columnEducational_Categories = New Global.System.Data.DataColumn("Educational_Categories", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEducational_Categories) + Me.columnOther_Attributes = New Global.System.Data.DataColumn("Other_Attributes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOther_Attributes) + Me.columnVisual_Presentation = New Global.System.Data.DataColumn("Visual_Presentation", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVisual_Presentation) + Me.columnPacing = New Global.System.Data.DataColumn("Pacing", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPacing) + Me.columnGameplay = New Global.System.Data.DataColumn("Gameplay", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGameplay) + Me.columnInterface_Control = New Global.System.Data.DataColumn("Interface_Control", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnInterface_Control) + Me.columnVehicular_Themes = New Global.System.Data.DataColumn("Vehicular_Themes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVehicular_Themes) + Me.columnSetting = New Global.System.Data.DataColumn("Setting", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSetting) + Me.columnNarrative_Theme_Topic = New Global.System.Data.DataColumn("Narrative_Theme_Topic", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNarrative_Theme_Topic) + Me.columnDLC_Addon = New Global.System.Data.DataColumn("DLC_Addon", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDLC_Addon) + Me.columnSpecial_Edition = New Global.System.Data.DataColumn("Special_Edition", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpecial_Edition) + Me.columnPlatform_Short = New Global.System.Data.DataColumn("Platform_Short", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPlatform_Short) + Me.columnMoby_URL = New Global.System.Data.DataColumn("Moby_URL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_URL) + Me.columnMoby_Platforms_URLPart = New Global.System.Data.DataColumn("Moby_Platforms_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Platforms_URLPart) + Me.columnMoby_Games_URLPart = New Global.System.Data.DataColumn("Moby_Games_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Games_URLPart) + Me.columnMinPlayers = New Global.System.Data.DataColumn("MinPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMinPlayers) + Me.columnMaxPlayers = New Global.System.Data.DataColumn("MaxPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMaxPlayers) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnRating = New Global.System.Data.DataColumn("Rating", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating) + Me.columnVersion = New Global.System.Data.DataColumn("Version", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVersion) + Me.columnAlt = New Global.System.Data.DataColumn("Alt", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlt) + Me.columnTrainer = New Global.System.Data.DataColumn("Trainer", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTrainer) + Me.columnTranslation = New Global.System.Data.DataColumn("Translation", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTranslation) + Me.columnHack = New Global.System.Data.DataColumn("Hack", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHack) + Me.columnBios = New Global.System.Data.DataColumn("Bios", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBios) + Me.columnPrototype = New Global.System.Data.DataColumn("Prototype", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrototype) + Me.columnAlpha = New Global.System.Data.DataColumn("Alpha", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlpha) + Me.columnBeta = New Global.System.Data.DataColumn("Beta", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBeta) + Me.columnSample = New Global.System.Data.DataColumn("Sample", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSample) + Me.columnKiosk = New Global.System.Data.DataColumn("Kiosk", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKiosk) + Me.columnUnlicensed = New Global.System.Data.DataColumn("Unlicensed", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlicensed) + Me.columnFixed = New Global.System.Data.DataColumn("Fixed", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFixed) + Me.columnPirated = New Global.System.Data.DataColumn("Pirated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPirated) + Me.columnGood = New Global.System.Data.DataColumn("Good", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGood) + Me.columnBad = New Global.System.Data.DataColumn("Bad", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBad) + Me.columnOverdump = New Global.System.Data.DataColumn("Overdump", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOverdump) + Me.columnPublicDomain = New Global.System.Data.DataColumn("PublicDomain", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublicDomain) + Me.columnRegions = New Global.System.Data.DataColumn("Regions", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRegions) + Me.columnLanguages = New Global.System.Data.DataColumn("Languages", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLanguages) + Me.columnMP_GameModes = New Global.System.Data.DataColumn("MP_GameModes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMP_GameModes) + Me.columnMP_Options = New Global.System.Data.DataColumn("MP_Options", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMP_Options) + Me.columnSpecialInfo = New Global.System.Data.DataColumn("SpecialInfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpecialInfo) + Me.columnid_Moby_Games = New Global.System.Data.DataColumn("id_Moby_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games) + Me.columnLast_Played = New Global.System.Data.DataColumn("Last_Played", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLast_Played) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnMultiVolume = New Global.System.Data.DataColumn("MultiVolume", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMultiVolume) + Me.columnVolume_Number = New Global.System.Data.DataColumn("Volume_Number", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVolume_Number) + Me.columnPlatform_Exclusive = New Global.System.Data.DataColumn("Platform_Exclusive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPlatform_Exclusive) + Me.columnJ2KPreset = New Global.System.Data.DataColumn("J2KPreset", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJ2KPreset) + Me.columnid_Moby_Releases = New Global.System.Data.DataColumn("id_Moby_Releases", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases) + Me.columnSimilarity = New Global.System.Data.DataColumn("Similarity", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSimilarity) + Me.column001_Platform = New Global.System.Data.DataColumn("001_Platform", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column001_Platform.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column001_Platform") + Me.column001_Platform.ExtendedProperties.Add("Generator_UserColumnName", "001_Platform") + MyBase.Columns.Add(Me.column001_Platform) + Me.column002_MobyRank = New Global.System.Data.DataColumn("002_MobyRank", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column002_MobyRank.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column002_MobyRank") + Me.column002_MobyRank.ExtendedProperties.Add("Generator_UserColumnName", "002_MobyRank") + MyBase.Columns.Add(Me.column002_MobyRank) + Me.column003_MobyScore = New Global.System.Data.DataColumn("003_MobyScore", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column003_MobyScore.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column003_MobyScore") + Me.column003_MobyScore.ExtendedProperties.Add("Generator_UserColumnName", "003_MobyScore") + MyBase.Columns.Add(Me.column003_MobyScore) + Me.column004_Publisher = New Global.System.Data.DataColumn("004_Publisher", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column004_Publisher.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column004_Publisher") + Me.column004_Publisher.ExtendedProperties.Add("Generator_UserColumnName", "004_Publisher") + MyBase.Columns.Add(Me.column004_Publisher) + Me.column005_Developer = New Global.System.Data.DataColumn("005_Developer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column005_Developer.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column005_Developer") + Me.column005_Developer.ExtendedProperties.Add("Generator_UserColumnName", "005_Developer") + MyBase.Columns.Add(Me.column005_Developer) + Me.column006_Year = New Global.System.Data.DataColumn("006_Year", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column006_Year.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column006_Year") + Me.column006_Year.ExtendedProperties.Add("Generator_UserColumnName", "006_Year") + MyBase.Columns.Add(Me.column006_Year) + Me.column101_Basic_Genres = New Global.System.Data.DataColumn("101_Basic_Genres", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column101_Basic_Genres.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column101_Basic_Genres") + Me.column101_Basic_Genres.ExtendedProperties.Add("Generator_UserColumnName", "101_Basic_Genres") + MyBase.Columns.Add(Me.column101_Basic_Genres) + Me.column102_Perspectives = New Global.System.Data.DataColumn("102_Perspectives", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column102_Perspectives.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column102_Perspectives") + Me.column102_Perspectives.ExtendedProperties.Add("Generator_UserColumnName", "102_Perspectives") + MyBase.Columns.Add(Me.column102_Perspectives) + Me.column103_Sports_Themes = New Global.System.Data.DataColumn("103_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column103_Sports_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column103_Sports_Themes") + Me.column103_Sports_Themes.ExtendedProperties.Add("Generator_UserColumnName", "103_Sports_Themes") + MyBase.Columns.Add(Me.column103_Sports_Themes) + Me.column104_Non_Sports_Themes = New Global.System.Data.DataColumn("104_Non_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column104_Non_Sports_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column104_Non_Sports_Themes") + Me.column104_Non_Sports_Themes.ExtendedProperties.Add("Generator_UserColumnName", "104_Non_Sports_Themes") + MyBase.Columns.Add(Me.column104_Non_Sports_Themes) + Me.column105_Educational_Categories = New Global.System.Data.DataColumn("105_Educational_Categories", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column105_Educational_Categories.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column105_Educational_Categories") + Me.column105_Educational_Categories.ExtendedProperties.Add("Generator_UserColumnName", "105_Educational_Categories") + MyBase.Columns.Add(Me.column105_Educational_Categories) + Me.column106_Other_Attributes = New Global.System.Data.DataColumn("106_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column106_Other_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column106_Other_Attributes") + Me.column106_Other_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "106_Other_Attributes") + MyBase.Columns.Add(Me.column106_Other_Attributes) + Me.column107_Visual_Presentation = New Global.System.Data.DataColumn("107_Visual_Presentation", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column107_Visual_Presentation.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column107_Visual_Presentation") + Me.column107_Visual_Presentation.ExtendedProperties.Add("Generator_UserColumnName", "107_Visual_Presentation") + MyBase.Columns.Add(Me.column107_Visual_Presentation) + Me.column108_Gameplay = New Global.System.Data.DataColumn("108_Gameplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column108_Gameplay.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column108_Gameplay") + Me.column108_Gameplay.ExtendedProperties.Add("Generator_UserColumnName", "108_Gameplay") + MyBase.Columns.Add(Me.column108_Gameplay) + Me.column109_Pacing = New Global.System.Data.DataColumn("109_Pacing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column109_Pacing.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column109_Pacing") + Me.column109_Pacing.ExtendedProperties.Add("Generator_UserColumnName", "109_Pacing") + MyBase.Columns.Add(Me.column109_Pacing) + Me.column110_Narrative_Theme_Topic = New Global.System.Data.DataColumn("110_Narrative_Theme_Topic", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column110_Narrative_Theme_Topic.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column110_Narrative_Theme_Topic") + Me.column110_Narrative_Theme_Topic.ExtendedProperties.Add("Generator_UserColumnName", "110_Narrative_Theme_Topic") + MyBase.Columns.Add(Me.column110_Narrative_Theme_Topic) + Me.column111_Setting = New Global.System.Data.DataColumn("111_Setting", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column111_Setting.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column111_Setting") + Me.column111_Setting.ExtendedProperties.Add("Generator_UserColumnName", "111_Setting") + MyBase.Columns.Add(Me.column111_Setting) + Me.column112_Vehicular_Themes = New Global.System.Data.DataColumn("112_Vehicular_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column112_Vehicular_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column112_Vehicular_Themes") + Me.column112_Vehicular_Themes.ExtendedProperties.Add("Generator_UserColumnName", "112_Vehicular_Themes") + MyBase.Columns.Add(Me.column112_Vehicular_Themes) + Me.column113_Interface_Control = New Global.System.Data.DataColumn("113_Interface_Control", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column113_Interface_Control.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column113_Interface_Control") + Me.column113_Interface_Control.ExtendedProperties.Add("Generator_UserColumnName", "113_Interface_Control") + MyBase.Columns.Add(Me.column113_Interface_Control) + Me.column114_DLC_Addon = New Global.System.Data.DataColumn("114_DLC_Addon", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column114_DLC_Addon.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column114_DLC_Addon") + Me.column114_DLC_Addon.ExtendedProperties.Add("Generator_UserColumnName", "114_DLC_Addon") + MyBase.Columns.Add(Me.column114_DLC_Addon) + Me.column115_Special_Edition = New Global.System.Data.DataColumn("115_Special_Edition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column115_Special_Edition.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column115_Special_Edition") + Me.column115_Special_Edition.ExtendedProperties.Add("Generator_UserColumnName", "115_Special_Edition") + MyBase.Columns.Add(Me.column115_Special_Edition) + Me.column201_MinPlayers = New Global.System.Data.DataColumn("201_MinPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column201_MinPlayers.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column201_MinPlayers") + Me.column201_MinPlayers.ExtendedProperties.Add("Generator_UserColumnName", "201_MinPlayers") + MyBase.Columns.Add(Me.column201_MinPlayers) + Me.column202_MaxPlayers = New Global.System.Data.DataColumn("202_MaxPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column202_MaxPlayers.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column202_MaxPlayers") + Me.column202_MaxPlayers.ExtendedProperties.Add("Generator_UserColumnName", "202_MaxPlayers") + MyBase.Columns.Add(Me.column202_MaxPlayers) + Me.column203_AgeO = New Global.System.Data.DataColumn("203_AgeO", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column203_AgeO.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column203_AgeO") + Me.column203_AgeO.ExtendedProperties.Add("Generator_UserColumnName", "203_AgeO") + MyBase.Columns.Add(Me.column203_AgeO) + Me.column204_AgeP = New Global.System.Data.DataColumn("204_AgeP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column204_AgeP.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column204_AgeP") + Me.column204_AgeP.ExtendedProperties.Add("Generator_UserColumnName", "204_AgeP") + MyBase.Columns.Add(Me.column204_AgeP) + Me.column205_Rating_Descriptors = New Global.System.Data.DataColumn("205_Rating_Descriptors", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column205_Rating_Descriptors.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column205_Rating_Descriptors") + Me.column205_Rating_Descriptors.ExtendedProperties.Add("Generator_UserColumnName", "205_Rating_Descriptors") + MyBase.Columns.Add(Me.column205_Rating_Descriptors) + Me.column206_Other_Attributes = New Global.System.Data.DataColumn("206_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column206_Other_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column206_Other_Attributes") + Me.column206_Other_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "206_Other_Attributes") + MyBase.Columns.Add(Me.column206_Other_Attributes) + Me.column207_Multiplayer_Attributes = New Global.System.Data.DataColumn("207_Multiplayer_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column207_Multiplayer_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column207_Multiplayer_Attributes") + Me.column207_Multiplayer_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "207_Multiplayer_Attributes") + MyBase.Columns.Add(Me.column207_Multiplayer_Attributes) + Me.column301_Group_Membership = New Global.System.Data.DataColumn("301_Group_Membership", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column301_Group_Membership.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column301_Group_Membership") + Me.column301_Group_Membership.ExtendedProperties.Add("Generator_UserColumnName", "301_Group_Membership") + MyBase.Columns.Add(Me.column301_Group_Membership) + Me.column401_Staff = New Global.System.Data.DataColumn("401_Staff", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column401_Staff.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column401_Staff") + Me.column401_Staff.ExtendedProperties.Add("Generator_UserColumnName", "401_Staff") + MyBase.Columns.Add(Me.column401_Staff) + Me.columntmp_Highlighted.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_GamesRow() As src_ucr_Emulation_GamesRow + Return CType(Me.NewRow,src_ucr_Emulation_GamesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_GamesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_GamesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_GamesRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GamesRowChanged(Me, New src_ucr_Emulation_GamesRowChangeEvent(CType(e.Row,src_ucr_Emulation_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_GamesRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GamesRowChanging(Me, New src_ucr_Emulation_GamesRowChangeEvent(CType(e.Row,src_ucr_Emulation_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_GamesRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GamesRowDeleted(Me, New src_ucr_Emulation_GamesRowChangeEvent(CType(e.Row,src_ucr_Emulation_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_GamesRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GamesRowDeleting(Me, New src_ucr_Emulation_GamesRowChangeEvent(CType(e.Row,src_ucr_Emulation_GamesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_GamesRow(ByVal row As src_ucr_Emulation_GamesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_GamesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Technical_SpecsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Technical_SpecsRow) + + Private columnCategory As Global.System.Data.DataColumn + + Private columnAttribute As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Technical_Specs" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategory + End Get + End Property + + _ + Public ReadOnly Property AttributeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAttribute + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Technical_SpecsRow + Get + Return CType(Me.Rows(index),tbl_Technical_SpecsRow) + End Get + End Property + + _ + Public Event tbl_Technical_SpecsRowChanging As tbl_Technical_SpecsRowChangeEventHandler + + _ + Public Event tbl_Technical_SpecsRowChanged As tbl_Technical_SpecsRowChangeEventHandler + + _ + Public Event tbl_Technical_SpecsRowDeleting As tbl_Technical_SpecsRowChangeEventHandler + + _ + Public Event tbl_Technical_SpecsRowDeleted As tbl_Technical_SpecsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Technical_SpecsRow(ByVal row As tbl_Technical_SpecsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Technical_SpecsRow(ByVal Category As String, ByVal Attribute As String, ByVal Description As String) As tbl_Technical_SpecsRow + Dim rowtbl_Technical_SpecsRow As tbl_Technical_SpecsRow = CType(Me.NewRow,tbl_Technical_SpecsRow) + Dim columnValuesArray() As Object = New Object() {Category, Attribute, Description} + rowtbl_Technical_SpecsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Technical_SpecsRow) + Return rowtbl_Technical_SpecsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Technical_SpecsDataTable = CType(MyBase.Clone,tbl_Technical_SpecsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Technical_SpecsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnCategory = MyBase.Columns("Category") + Me.columnAttribute = MyBase.Columns("Attribute") + Me.columnDescription = MyBase.Columns("Description") + End Sub + + _ + Private Sub InitClass() + Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategory) + Me.columnAttribute = New Global.System.Data.DataColumn("Attribute", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAttribute) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + End Sub + + _ + Public Function Newtbl_Technical_SpecsRow() As tbl_Technical_SpecsRow + Return CType(Me.NewRow,tbl_Technical_SpecsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Technical_SpecsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Technical_SpecsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Technical_SpecsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Technical_SpecsRowChanged(Me, New tbl_Technical_SpecsRowChangeEvent(CType(e.Row,tbl_Technical_SpecsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Technical_SpecsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Technical_SpecsRowChanging(Me, New tbl_Technical_SpecsRowChangeEvent(CType(e.Row,tbl_Technical_SpecsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Technical_SpecsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Technical_SpecsRowDeleted(Me, New tbl_Technical_SpecsRowChangeEvent(CType(e.Row,tbl_Technical_SpecsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Technical_SpecsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Technical_SpecsRowDeleting(Me, New tbl_Technical_SpecsRowChangeEvent(CType(e.Row,tbl_Technical_SpecsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Technical_SpecsRow(ByVal row As tbl_Technical_SpecsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Technical_SpecsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_ControlSettingsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_ControlSettingsRow) + + Private columnid_ControlSettings As Global.System.Data.DataColumn + + Private columnControlID As Global.System.Data.DataColumn + + Private columnSettingID As Global.System.Data.DataColumn + + Private columnSetting As Global.System.Data.DataColumn + + Private columnid_Users As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_ControlSettings" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_ControlSettingsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_ControlSettings + End Get + End Property + + _ + Public ReadOnly Property ControlIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnControlID + End Get + End Property + + _ + Public ReadOnly Property SettingIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSettingID + End Get + End Property + + _ + Public ReadOnly Property SettingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSetting + End Get + End Property + + _ + Public ReadOnly Property id_UsersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Users + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ControlSettingsRow + Get + Return CType(Me.Rows(index),tbl_ControlSettingsRow) + End Get + End Property + + _ + Public Event tbl_ControlSettingsRowChanging As tbl_ControlSettingsRowChangeEventHandler + + _ + Public Event tbl_ControlSettingsRowChanged As tbl_ControlSettingsRowChangeEventHandler + + _ + Public Event tbl_ControlSettingsRowDeleting As tbl_ControlSettingsRowChangeEventHandler + + _ + Public Event tbl_ControlSettingsRowDeleted As tbl_ControlSettingsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_ControlSettingsRow(ByVal row As tbl_ControlSettingsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_ControlSettingsRow(ByVal ControlID As String, ByVal SettingID As String, ByVal Setting As String, ByVal id_Users As Integer) As tbl_ControlSettingsRow + Dim rowtbl_ControlSettingsRow As tbl_ControlSettingsRow = CType(Me.NewRow,tbl_ControlSettingsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ControlID, SettingID, Setting, id_Users} + rowtbl_ControlSettingsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_ControlSettingsRow) + Return rowtbl_ControlSettingsRow + End Function + + _ + Public Function FindByid_ControlSettings(ByVal id_ControlSettings As Long) As tbl_ControlSettingsRow + Return CType(Me.Rows.Find(New Object() {id_ControlSettings}),tbl_ControlSettingsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_ControlSettingsDataTable = CType(MyBase.Clone,tbl_ControlSettingsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_ControlSettingsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_ControlSettings = MyBase.Columns("id_ControlSettings") + Me.columnControlID = MyBase.Columns("ControlID") + Me.columnSettingID = MyBase.Columns("SettingID") + Me.columnSetting = MyBase.Columns("Setting") + Me.columnid_Users = MyBase.Columns("id_Users") + End Sub + + _ + Private Sub InitClass() + Me.columnid_ControlSettings = New Global.System.Data.DataColumn("id_ControlSettings", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_ControlSettings) + Me.columnControlID = New Global.System.Data.DataColumn("ControlID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnControlID) + Me.columnSettingID = New Global.System.Data.DataColumn("SettingID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSettingID) + Me.columnSetting = New Global.System.Data.DataColumn("Setting", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSetting) + Me.columnid_Users = New Global.System.Data.DataColumn("id_Users", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Users) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_ControlSettings}, true)) + Me.columnid_ControlSettings.AutoIncrement = true + Me.columnid_ControlSettings.AutoIncrementSeed = -1 + Me.columnid_ControlSettings.AutoIncrementStep = -1 + Me.columnid_ControlSettings.AllowDBNull = false + Me.columnid_ControlSettings.Unique = true + Me.columnControlID.MaxLength = 2147483647 + Me.columnSettingID.MaxLength = 2147483647 + Me.columnSetting.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_ControlSettingsRow() As tbl_ControlSettingsRow + Return CType(Me.NewRow,tbl_ControlSettingsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_ControlSettingsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_ControlSettingsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_ControlSettingsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_ControlSettingsRowChanged(Me, New tbl_ControlSettingsRowChangeEvent(CType(e.Row,tbl_ControlSettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_ControlSettingsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_ControlSettingsRowChanging(Me, New tbl_ControlSettingsRowChangeEvent(CType(e.Row,tbl_ControlSettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_ControlSettingsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_ControlSettingsRowDeleted(Me, New tbl_ControlSettingsRowChangeEvent(CType(e.Row,tbl_ControlSettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_ControlSettingsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_ControlSettingsRowDeleting(Me, New tbl_ControlSettingsRowChangeEvent(CType(e.Row,tbl_ControlSettingsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_ControlSettingsRow(ByVal row As tbl_ControlSettingsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_ControlSettingsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_FilterSetsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_FilterSetsRow) + + Private columnid_FilterSets As Global.System.Data.DataColumn + + Private columnType As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnApplyGridFilter As Global.System.Data.DataColumn + + Private columnGridFilter As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_FilterSets" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_FilterSetsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_FilterSets + End Get + End Property + + _ + Public ReadOnly Property TypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnType + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property ApplyGridFilterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnApplyGridFilter + End Get + End Property + + _ + Public ReadOnly Property GridFilterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGridFilter + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_FilterSetsRow + Get + Return CType(Me.Rows(index),tbl_FilterSetsRow) + End Get + End Property + + _ + Public Event tbl_FilterSetsRowChanging As tbl_FilterSetsRowChangeEventHandler + + _ + Public Event tbl_FilterSetsRowChanged As tbl_FilterSetsRowChangeEventHandler + + _ + Public Event tbl_FilterSetsRowDeleting As tbl_FilterSetsRowChangeEventHandler + + _ + Public Event tbl_FilterSetsRowDeleted As tbl_FilterSetsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_FilterSetsRow(ByVal row As tbl_FilterSetsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_FilterSetsRow(ByVal Type As Long, ByVal Name As String, ByVal ApplyGridFilter As Long, ByVal GridFilter As String) As tbl_FilterSetsRow + Dim rowtbl_FilterSetsRow As tbl_FilterSetsRow = CType(Me.NewRow,tbl_FilterSetsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Type, Name, ApplyGridFilter, GridFilter} + rowtbl_FilterSetsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_FilterSetsRow) + Return rowtbl_FilterSetsRow + End Function + + _ + Public Function FindByid_FilterSets(ByVal id_FilterSets As Long) As tbl_FilterSetsRow + Return CType(Me.Rows.Find(New Object() {id_FilterSets}),tbl_FilterSetsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_FilterSetsDataTable = CType(MyBase.Clone,tbl_FilterSetsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_FilterSetsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_FilterSets = MyBase.Columns("id_FilterSets") + Me.columnType = MyBase.Columns("Type") + Me.columnName = MyBase.Columns("Name") + Me.columnApplyGridFilter = MyBase.Columns("ApplyGridFilter") + Me.columnGridFilter = MyBase.Columns("GridFilter") + End Sub + + _ + Private Sub InitClass() + Me.columnid_FilterSets = New Global.System.Data.DataColumn("id_FilterSets", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_FilterSets) + Me.columnType = New Global.System.Data.DataColumn("Type", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnType) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnApplyGridFilter = New Global.System.Data.DataColumn("ApplyGridFilter", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnApplyGridFilter) + Me.columnGridFilter = New Global.System.Data.DataColumn("GridFilter", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGridFilter) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_FilterSets}, true)) + Me.columnid_FilterSets.AutoIncrement = true + Me.columnid_FilterSets.AutoIncrementSeed = -1 + Me.columnid_FilterSets.AutoIncrementStep = -1 + Me.columnid_FilterSets.AllowDBNull = false + Me.columnid_FilterSets.Unique = true + Me.columnName.MaxLength = 2147483647 + Me.columnGridFilter.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_FilterSetsRow() As tbl_FilterSetsRow + Return CType(Me.NewRow,tbl_FilterSetsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_FilterSetsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_FilterSetsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_FilterSetsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_FilterSetsRowChanged(Me, New tbl_FilterSetsRowChangeEvent(CType(e.Row,tbl_FilterSetsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_FilterSetsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_FilterSetsRowChanging(Me, New tbl_FilterSetsRowChangeEvent(CType(e.Row,tbl_FilterSetsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_FilterSetsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_FilterSetsRowDeleted(Me, New tbl_FilterSetsRowChangeEvent(CType(e.Row,tbl_FilterSetsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_FilterSetsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_FilterSetsRowDeleting(Me, New tbl_FilterSetsRowChangeEvent(CType(e.Row,tbl_FilterSetsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_FilterSetsRow(ByVal row As tbl_FilterSetsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_FilterSetsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_MoviesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_MoviesRow) + + Private columnid_Movies As Global.System.Data.DataColumn + + Private columnFolder As Global.System.Data.DataColumn + + Private columnFile As Global.System.Data.DataColumn + + Private columnIMDBid As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Movies" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_MoviesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Movies + End Get + End Property + + _ + Public ReadOnly Property FolderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFolder + End Get + End Property + + _ + Public ReadOnly Property FileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFile + End Get + End Property + + _ + Public ReadOnly Property IMDBidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMDBid + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_MoviesRow + Get + Return CType(Me.Rows(index),tbl_MoviesRow) + End Get + End Property + + _ + Public Event tbl_MoviesRowChanging As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowChanged As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowDeleting As tbl_MoviesRowChangeEventHandler + + _ + Public Event tbl_MoviesRowDeleted As tbl_MoviesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_MoviesRow(ByVal row As tbl_MoviesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_MoviesRow(ByVal Folder As String, ByVal File As String, ByVal IMDBid As String) As tbl_MoviesRow + Dim rowtbl_MoviesRow As tbl_MoviesRow = CType(Me.NewRow,tbl_MoviesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Folder, File, IMDBid} + rowtbl_MoviesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_MoviesRow) + Return rowtbl_MoviesRow + End Function + + _ + Public Function FindByid_Movies(ByVal id_Movies As Long) As tbl_MoviesRow + Return CType(Me.Rows.Find(New Object() {id_Movies}),tbl_MoviesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_MoviesDataTable = CType(MyBase.Clone,tbl_MoviesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_MoviesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Movies = MyBase.Columns("id_Movies") + Me.columnFolder = MyBase.Columns("Folder") + Me.columnFile = MyBase.Columns("File") + Me.columnIMDBid = MyBase.Columns("IMDBid") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Movies = New Global.System.Data.DataColumn("id_Movies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Movies) + Me.columnFolder = New Global.System.Data.DataColumn("Folder", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFolder) + Me.columnFile = New Global.System.Data.DataColumn("File", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFile) + Me.columnIMDBid = New Global.System.Data.DataColumn("IMDBid", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMDBid) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Movies}, true)) + Me.columnid_Movies.AutoIncrement = true + Me.columnid_Movies.AutoIncrementSeed = -1 + Me.columnid_Movies.AutoIncrementStep = -1 + Me.columnid_Movies.AllowDBNull = false + Me.columnid_Movies.Unique = true + Me.columnFolder.MaxLength = 2147483647 + Me.columnFile.MaxLength = 2147483647 + Me.columnIMDBid.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_MoviesRow() As tbl_MoviesRow + Return CType(Me.NewRow,tbl_MoviesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_MoviesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_MoviesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_MoviesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowChanged(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_MoviesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowChanging(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_MoviesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowDeleted(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_MoviesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_MoviesRowDeleting(Me, New tbl_MoviesRowChangeEvent(CType(e.Row,tbl_MoviesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_MoviesRow(ByVal row As tbl_MoviesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_MoviesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_ExtrasDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_ExtrasRow) + + Private columnid_Emu_Extras As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnSort As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnHide As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Extras" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_ExtrasColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Extras + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property SortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSort + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property HideColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHide + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_ExtrasRow + Get + Return CType(Me.Rows(index),tbl_Emu_ExtrasRow) + End Get + End Property + + _ + Public Event tbl_Emu_ExtrasRowChanging As tbl_Emu_ExtrasRowChangeEventHandler + + _ + Public Event tbl_Emu_ExtrasRowChanged As tbl_Emu_ExtrasRowChangeEventHandler + + _ + Public Event tbl_Emu_ExtrasRowDeleting As tbl_Emu_ExtrasRowChangeEventHandler + + _ + Public Event tbl_Emu_ExtrasRowDeleted As tbl_Emu_ExtrasRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_ExtrasRow(ByVal row As tbl_Emu_ExtrasRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_ExtrasRow(ByVal Name As String, ByVal Sort As Long, ByVal Description As String, ByVal Hide As Boolean) As tbl_Emu_ExtrasRow + Dim rowtbl_Emu_ExtrasRow As tbl_Emu_ExtrasRow = CType(Me.NewRow,tbl_Emu_ExtrasRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name, Sort, Description, Hide} + rowtbl_Emu_ExtrasRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_ExtrasRow) + Return rowtbl_Emu_ExtrasRow + End Function + + _ + Public Function FindByid_Emu_Extras(ByVal id_Emu_Extras As Long) As tbl_Emu_ExtrasRow + Return CType(Me.Rows.Find(New Object() {id_Emu_Extras}),tbl_Emu_ExtrasRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_ExtrasDataTable = CType(MyBase.Clone,tbl_Emu_ExtrasDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_ExtrasDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Extras = MyBase.Columns("id_Emu_Extras") + Me.columnName = MyBase.Columns("Name") + Me.columnSort = MyBase.Columns("Sort") + Me.columnDescription = MyBase.Columns("Description") + Me.columnHide = MyBase.Columns("Hide") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Extras = New Global.System.Data.DataColumn("id_Emu_Extras", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Extras) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnSort = New Global.System.Data.DataColumn("Sort", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSort) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnHide = New Global.System.Data.DataColumn("Hide", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHide) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emu_Extras}, true)) + Me.columnid_Emu_Extras.AutoIncrement = true + Me.columnid_Emu_Extras.AutoIncrementSeed = -1 + Me.columnid_Emu_Extras.AutoIncrementStep = -1 + Me.columnid_Emu_Extras.AllowDBNull = false + Me.columnid_Emu_Extras.Unique = true + Me.columnName.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Emu_ExtrasRow() As tbl_Emu_ExtrasRow + Return CType(Me.NewRow,tbl_Emu_ExtrasRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_ExtrasRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_ExtrasRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_ExtrasRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_ExtrasRowChanged(Me, New tbl_Emu_ExtrasRowChangeEvent(CType(e.Row,tbl_Emu_ExtrasRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_ExtrasRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_ExtrasRowChanging(Me, New tbl_Emu_ExtrasRowChangeEvent(CType(e.Row,tbl_Emu_ExtrasRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_ExtrasRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_ExtrasRowDeleted(Me, New tbl_Emu_ExtrasRowChangeEvent(CType(e.Row,tbl_Emu_ExtrasRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_ExtrasRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_ExtrasRowDeleting(Me, New tbl_Emu_ExtrasRowChangeEvent(CType(e.Row,tbl_Emu_ExtrasRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_ExtrasRow(ByVal row As tbl_Emu_ExtrasRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_ExtrasDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_Rating_WeightsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_Rating_WeightsRow) + + Private columnid_Emu_Games_Rating_Weights As Global.System.Data.DataColumn + + Private columnRating_Category As Global.System.Data.DataColumn + + Private columnWeight As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Rating_Weights" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_Games_Rating_WeightsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Rating_Weights + End Get + End Property + + _ + Public ReadOnly Property Rating_CategoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Category + End Get + End Property + + _ + Public ReadOnly Property WeightColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_Rating_WeightsRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_Rating_WeightsRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_Rating_WeightsRowChanging As tbl_Emu_Games_Rating_WeightsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Rating_WeightsRowChanged As tbl_Emu_Games_Rating_WeightsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Rating_WeightsRowDeleting As tbl_Emu_Games_Rating_WeightsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Rating_WeightsRowDeleted As tbl_Emu_Games_Rating_WeightsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_Rating_WeightsRow(ByVal row As tbl_Emu_Games_Rating_WeightsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_Rating_WeightsRow(ByVal Rating_Category As String, ByVal Weight As Long) As tbl_Emu_Games_Rating_WeightsRow + Dim rowtbl_Emu_Games_Rating_WeightsRow As tbl_Emu_Games_Rating_WeightsRow = CType(Me.NewRow,tbl_Emu_Games_Rating_WeightsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Rating_Category, Weight} + rowtbl_Emu_Games_Rating_WeightsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_Rating_WeightsRow) + Return rowtbl_Emu_Games_Rating_WeightsRow + End Function + + _ + Public Function FindByid_Emu_Games_Rating_Weights(ByVal id_Emu_Games_Rating_Weights As Long) As tbl_Emu_Games_Rating_WeightsRow + Return CType(Me.Rows.Find(New Object() {id_Emu_Games_Rating_Weights}),tbl_Emu_Games_Rating_WeightsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_Rating_WeightsDataTable = CType(MyBase.Clone,tbl_Emu_Games_Rating_WeightsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_Rating_WeightsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games_Rating_Weights = MyBase.Columns("id_Emu_Games_Rating_Weights") + Me.columnRating_Category = MyBase.Columns("Rating_Category") + Me.columnWeight = MyBase.Columns("Weight") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games_Rating_Weights = New Global.System.Data.DataColumn("id_Emu_Games_Rating_Weights", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Rating_Weights) + Me.columnRating_Category = New Global.System.Data.DataColumn("Rating_Category", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Category) + Me.columnWeight = New Global.System.Data.DataColumn("Weight", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emu_Games_Rating_Weights}, true)) + Me.columnid_Emu_Games_Rating_Weights.AutoIncrement = true + Me.columnid_Emu_Games_Rating_Weights.AutoIncrementSeed = -1 + Me.columnid_Emu_Games_Rating_Weights.AutoIncrementStep = -1 + Me.columnid_Emu_Games_Rating_Weights.AllowDBNull = false + Me.columnid_Emu_Games_Rating_Weights.Unique = true + Me.columnRating_Category.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Emu_Games_Rating_WeightsRow() As tbl_Emu_Games_Rating_WeightsRow + Return CType(Me.NewRow,tbl_Emu_Games_Rating_WeightsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_Rating_WeightsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_Rating_WeightsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_Rating_WeightsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Rating_WeightsRowChanged(Me, New tbl_Emu_Games_Rating_WeightsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Rating_WeightsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_Rating_WeightsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Rating_WeightsRowChanging(Me, New tbl_Emu_Games_Rating_WeightsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Rating_WeightsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_Rating_WeightsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Rating_WeightsRowDeleted(Me, New tbl_Emu_Games_Rating_WeightsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Rating_WeightsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_Rating_WeightsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Rating_WeightsRowDeleting(Me, New tbl_Emu_Games_Rating_WeightsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Rating_WeightsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_Rating_WeightsRow(ByVal row As tbl_Emu_Games_Rating_WeightsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_Rating_WeightsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_frm_Emu_Game_Edit_GenresDataTable + Inherits Global.System.Data.TypedTableBase(Of src_frm_Emu_Game_Edit_GenresRow) + + Private columnid_Moby_Genres As Global.System.Data.DataColumn + + Private columnid_Moby_Genres_Categories As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + Private columnUsed As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_frm_Emu_Game_Edit_Genres" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Genres + End Get + End Property + + _ + Public ReadOnly Property id_Moby_Genres_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Genres_Categories + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property UsedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsed + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_frm_Emu_Game_Edit_GenresRow + Get + Return CType(Me.Rows(index),src_frm_Emu_Game_Edit_GenresRow) + End Get + End Property + + _ + Public Event src_frm_Emu_Game_Edit_GenresRowChanging As src_frm_Emu_Game_Edit_GenresRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_GenresRowChanged As src_frm_Emu_Game_Edit_GenresRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_GenresRowDeleting As src_frm_Emu_Game_Edit_GenresRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_GenresRowDeleted As src_frm_Emu_Game_Edit_GenresRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_frm_Emu_Game_Edit_GenresRow(ByVal row As src_frm_Emu_Game_Edit_GenresRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_frm_Emu_Game_Edit_GenresRow(ByVal id_Moby_Genres As Long, ByVal id_Moby_Genres_Categories As String, ByVal Name As String, ByVal URLPart As String, ByVal Used As Boolean) As src_frm_Emu_Game_Edit_GenresRow + Dim rowsrc_frm_Emu_Game_Edit_GenresRow As src_frm_Emu_Game_Edit_GenresRow = CType(Me.NewRow,src_frm_Emu_Game_Edit_GenresRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Genres, id_Moby_Genres_Categories, Name, URLPart, Used} + rowsrc_frm_Emu_Game_Edit_GenresRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_frm_Emu_Game_Edit_GenresRow) + Return rowsrc_frm_Emu_Game_Edit_GenresRow + End Function + + _ + Public Function FindByid_Moby_Genres(ByVal id_Moby_Genres As Long) As src_frm_Emu_Game_Edit_GenresRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Genres}),src_frm_Emu_Game_Edit_GenresRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_frm_Emu_Game_Edit_GenresDataTable = CType(MyBase.Clone,src_frm_Emu_Game_Edit_GenresDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_frm_Emu_Game_Edit_GenresDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Genres = MyBase.Columns("id_Moby_Genres") + Me.columnid_Moby_Genres_Categories = MyBase.Columns("id_Moby_Genres_Categories") + Me.columnName = MyBase.Columns("Name") + Me.columnURLPart = MyBase.Columns("URLPart") + Me.columnUsed = MyBase.Columns("Used") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Genres = New Global.System.Data.DataColumn("id_Moby_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Genres) + Me.columnid_Moby_Genres_Categories = New Global.System.Data.DataColumn("id_Moby_Genres_Categories", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Genres_Categories) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.columnUsed = New Global.System.Data.DataColumn("Used", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsed) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Genres}, true)) + Me.columnid_Moby_Genres.AllowDBNull = false + Me.columnid_Moby_Genres.Unique = true + Me.columnName.MaxLength = 2147483647 + Me.columnURLPart.MaxLength = 2147483647 + End Sub + + _ + Public Function Newsrc_frm_Emu_Game_Edit_GenresRow() As src_frm_Emu_Game_Edit_GenresRow + Return CType(Me.NewRow,src_frm_Emu_Game_Edit_GenresRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_frm_Emu_Game_Edit_GenresRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_frm_Emu_Game_Edit_GenresRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_frm_Emu_Game_Edit_GenresRowChangedEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_GenresRowChanged(Me, New src_frm_Emu_Game_Edit_GenresRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_frm_Emu_Game_Edit_GenresRowChangingEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_GenresRowChanging(Me, New src_frm_Emu_Game_Edit_GenresRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_frm_Emu_Game_Edit_GenresRowDeletedEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_GenresRowDeleted(Me, New src_frm_Emu_Game_Edit_GenresRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_frm_Emu_Game_Edit_GenresRowDeletingEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_GenresRowDeleting(Me, New src_frm_Emu_Game_Edit_GenresRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_GenresRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_frm_Emu_Game_Edit_GenresRow(ByVal row As src_frm_Emu_Game_Edit_GenresRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_frm_Emu_Game_Edit_GenresDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_frm_Emu_Game_Edit_AttributesDataTable + Inherits Global.System.Data.TypedTableBase(Of src_frm_Emu_Game_Edit_AttributesRow) + + Private columnid_Moby_Attributes As Global.System.Data.DataColumn + + Private columnCategoryGroup As Global.System.Data.DataColumn + + Private columnCategory As Global.System.Data.DataColumn + + Private columnAttribute As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnRating_Age_From As Global.System.Data.DataColumn + + Private columnRatingSystem As Global.System.Data.DataColumn + + Private columnRatingDescriptor As Global.System.Data.DataColumn + + Private columnUsed As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_frm_Emu_Game_Edit_Attributes" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Attributes + End Get + End Property + + _ + Public ReadOnly Property CategoryGroupColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategoryGroup + End Get + End Property + + _ + Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategory + End Get + End Property + + _ + Public ReadOnly Property AttributeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAttribute + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Rating_Age_FromColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Age_From + End Get + End Property + + _ + Public ReadOnly Property RatingSystemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRatingSystem + End Get + End Property + + _ + Public ReadOnly Property RatingDescriptorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRatingDescriptor + End Get + End Property + + _ + Public ReadOnly Property UsedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsed + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_frm_Emu_Game_Edit_AttributesRow + Get + Return CType(Me.Rows(index),src_frm_Emu_Game_Edit_AttributesRow) + End Get + End Property + + _ + Public Event src_frm_Emu_Game_Edit_AttributesRowChanging As src_frm_Emu_Game_Edit_AttributesRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_AttributesRowChanged As src_frm_Emu_Game_Edit_AttributesRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_AttributesRowDeleting As src_frm_Emu_Game_Edit_AttributesRowChangeEventHandler + + _ + Public Event src_frm_Emu_Game_Edit_AttributesRowDeleted As src_frm_Emu_Game_Edit_AttributesRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_frm_Emu_Game_Edit_AttributesRow(ByVal row As src_frm_Emu_Game_Edit_AttributesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_frm_Emu_Game_Edit_AttributesRow(ByVal id_Moby_Attributes As Integer, ByVal CategoryGroup As String, ByVal Category As String, ByVal Attribute As String, ByVal Description As String, ByVal Rating_Age_From As String, ByVal RatingSystem As String, ByVal RatingDescriptor As String, ByVal Used As Boolean) As src_frm_Emu_Game_Edit_AttributesRow + Dim rowsrc_frm_Emu_Game_Edit_AttributesRow As src_frm_Emu_Game_Edit_AttributesRow = CType(Me.NewRow,src_frm_Emu_Game_Edit_AttributesRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Attributes, CategoryGroup, Category, Attribute, Description, Rating_Age_From, RatingSystem, RatingDescriptor, Used} + rowsrc_frm_Emu_Game_Edit_AttributesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_frm_Emu_Game_Edit_AttributesRow) + Return rowsrc_frm_Emu_Game_Edit_AttributesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_frm_Emu_Game_Edit_AttributesDataTable = CType(MyBase.Clone,src_frm_Emu_Game_Edit_AttributesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_frm_Emu_Game_Edit_AttributesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Attributes = MyBase.Columns("id_Moby_Attributes") + Me.columnCategoryGroup = MyBase.Columns("CategoryGroup") + Me.columnCategory = MyBase.Columns("Category") + Me.columnAttribute = MyBase.Columns("Attribute") + Me.columnDescription = MyBase.Columns("Description") + Me.columnRating_Age_From = MyBase.Columns("Rating_Age_From") + Me.columnRatingSystem = MyBase.Columns("RatingSystem") + Me.columnRatingDescriptor = MyBase.Columns("RatingDescriptor") + Me.columnUsed = MyBase.Columns("Used") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Attributes = New Global.System.Data.DataColumn("id_Moby_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Attributes) + Me.columnCategoryGroup = New Global.System.Data.DataColumn("CategoryGroup", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategoryGroup) + Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategory) + Me.columnAttribute = New Global.System.Data.DataColumn("Attribute", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAttribute) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnRating_Age_From = New Global.System.Data.DataColumn("Rating_Age_From", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Age_From) + Me.columnRatingSystem = New Global.System.Data.DataColumn("RatingSystem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRatingSystem) + Me.columnRatingDescriptor = New Global.System.Data.DataColumn("RatingDescriptor", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRatingDescriptor) + Me.columnUsed = New Global.System.Data.DataColumn("Used", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsed) + End Sub + + _ + Public Function Newsrc_frm_Emu_Game_Edit_AttributesRow() As src_frm_Emu_Game_Edit_AttributesRow + Return CType(Me.NewRow,src_frm_Emu_Game_Edit_AttributesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_frm_Emu_Game_Edit_AttributesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_frm_Emu_Game_Edit_AttributesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_frm_Emu_Game_Edit_AttributesRowChangedEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_AttributesRowChanged(Me, New src_frm_Emu_Game_Edit_AttributesRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_frm_Emu_Game_Edit_AttributesRowChangingEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_AttributesRowChanging(Me, New src_frm_Emu_Game_Edit_AttributesRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_frm_Emu_Game_Edit_AttributesRowDeletedEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_AttributesRowDeleted(Me, New src_frm_Emu_Game_Edit_AttributesRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_frm_Emu_Game_Edit_AttributesRowDeletingEvent) Is Nothing) Then + RaiseEvent src_frm_Emu_Game_Edit_AttributesRowDeleting(Me, New src_frm_Emu_Game_Edit_AttributesRowChangeEvent(CType(e.Row,src_frm_Emu_Game_Edit_AttributesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_frm_Emu_Game_Edit_AttributesRow(ByVal row As src_frm_Emu_Game_Edit_AttributesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_frm_Emu_Game_Edit_AttributesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Tag_ParserDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Tag_ParserRow) + + Private columnid_Tag_Parser As Global.System.Data.DataColumn + + Private columnid_Rombase_Tag_Parser As Global.System.Data.DataColumn + + Private columnApply As Global.System.Data.DataColumn + + Private columnContent As Global.System.Data.DataColumn + + Private columnNote As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnBios As Global.System.Data.DataColumn + + Private columnHack As Global.System.Data.DataColumn + + Private columnTrainer As Global.System.Data.DataColumn + + Private columnVersion As Global.System.Data.DataColumn + + Private columnPrototype As Global.System.Data.DataColumn + + Private columnBeta As Global.System.Data.DataColumn + + Private columnTranslation As Global.System.Data.DataColumn + + Private columnAlt As Global.System.Data.DataColumn + + Private columnUnlicensed As Global.System.Data.DataColumn + + Private columnGood As Global.System.Data.DataColumn + + Private columnBad As Global.System.Data.DataColumn + + Private columnFixed As Global.System.Data.DataColumn + + Private columnOverdump As Global.System.Data.DataColumn + + Private columnPirated As Global.System.Data.DataColumn + + Private columnAlpha As Global.System.Data.DataColumn + + Private columnKiosk As Global.System.Data.DataColumn + + Private columnSample As Global.System.Data.DataColumn + + Private columnEn As Global.System.Data.DataColumn + + Private columnJa As Global.System.Data.DataColumn + + Private columnFr As Global.System.Data.DataColumn + + Private columnDe As Global.System.Data.DataColumn + + Private columnEs As Global.System.Data.DataColumn + + Private columnIt As Global.System.Data.DataColumn + + Private columnNl As Global.System.Data.DataColumn + + Private columnPt As Global.System.Data.DataColumn + + Private columnSv As Global.System.Data.DataColumn + + Private columnNo As Global.System.Data.DataColumn + + Private columnDa As Global.System.Data.DataColumn + + Private columnFi As Global.System.Data.DataColumn + + Private columnZh As Global.System.Data.DataColumn + + Private columnKo As Global.System.Data.DataColumn + + Private columnPl As Global.System.Data.DataColumn + + Private columnWorld As Global.System.Data.DataColumn + + Private columnEurope As Global.System.Data.DataColumn + + Private columnUSA As Global.System.Data.DataColumn + + Private columnAustralia As Global.System.Data.DataColumn + + Private columnJapan As Global.System.Data.DataColumn + + Private columnKorea As Global.System.Data.DataColumn + + Private columnChina As Global.System.Data.DataColumn + + Private columnAsia As Global.System.Data.DataColumn + + Private columnBrazil As Global.System.Data.DataColumn + + Private columnCanada As Global.System.Data.DataColumn + + Private columnFrance As Global.System.Data.DataColumn + + Private columnGermany As Global.System.Data.DataColumn + + Private columnHongKong As Global.System.Data.DataColumn + + Private columnItaly As Global.System.Data.DataColumn + + Private columnNetherlands As Global.System.Data.DataColumn + + Private columnSpain As Global.System.Data.DataColumn + + Private columnSweden As Global.System.Data.DataColumn + + Private columnRussia As Global.System.Data.DataColumn + + Private columnTaiwan As Global.System.Data.DataColumn + + Private columnNTSC As Global.System.Data.DataColumn + + Private columnPAL As Global.System.Data.DataColumn + + Private columnNote_HighPriority As Global.System.Data.DataColumn + + Private columnMV_Group_Criteria As Global.System.Data.DataColumn + + Private columnMV_Volume_Number As Global.System.Data.DataColumn + + Private columnPublisher As Global.System.Data.DataColumn + + Private columnGr As Global.System.Data.DataColumn + + Private columnHu As Global.System.Data.DataColumn + + Private columnFound_In As Global.System.Data.DataColumn + + Private columnAr As Global.System.Data.DataColumn + + Private columnBe As Global.System.Data.DataColumn + + Private columnCz As Global.System.Data.DataColumn + + Private columnSl As Global.System.Data.DataColumn + + Private columnSr As Global.System.Data.DataColumn + + Private columnRu As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Tag_Parser" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Tag_ParserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Tag_Parser + End Get + End Property + + _ + Public ReadOnly Property id_Rombase_Tag_ParserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Rombase_Tag_Parser + End Get + End Property + + _ + Public ReadOnly Property ApplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnApply + End Get + End Property + + _ + Public ReadOnly Property ContentColumn() As Global.System.Data.DataColumn + Get + Return Me.columnContent + End Get + End Property + + _ + Public ReadOnly Property NoteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNote + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property BiosColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBios + End Get + End Property + + _ + Public ReadOnly Property HackColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHack + End Get + End Property + + _ + Public ReadOnly Property TrainerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTrainer + End Get + End Property + + _ + Public ReadOnly Property VersionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVersion + End Get + End Property + + _ + Public ReadOnly Property PrototypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrototype + End Get + End Property + + _ + Public ReadOnly Property BetaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBeta + End Get + End Property + + _ + Public ReadOnly Property TranslationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTranslation + End Get + End Property + + _ + Public ReadOnly Property AltColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlt + End Get + End Property + + _ + Public ReadOnly Property UnlicensedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUnlicensed + End Get + End Property + + _ + Public ReadOnly Property GoodColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGood + End Get + End Property + + _ + Public ReadOnly Property BadColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBad + End Get + End Property + + _ + Public ReadOnly Property FixedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFixed + End Get + End Property + + _ + Public ReadOnly Property OverdumpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOverdump + End Get + End Property + + _ + Public ReadOnly Property PiratedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPirated + End Get + End Property + + _ + Public ReadOnly Property AlphaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlpha + End Get + End Property + + _ + Public ReadOnly Property KioskColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKiosk + End Get + End Property + + _ + Public ReadOnly Property SampleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSample + End Get + End Property + + _ + Public ReadOnly Property EnColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEn + End Get + End Property + + _ + Public ReadOnly Property JaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJa + End Get + End Property + + _ + Public ReadOnly Property FrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFr + End Get + End Property + + _ + Public ReadOnly Property DeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDe + End Get + End Property + + _ + Public ReadOnly Property EsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEs + End Get + End Property + + _ + Public ReadOnly Property ItColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIt + End Get + End Property + + _ + Public ReadOnly Property NlColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNl + End Get + End Property + + _ + Public ReadOnly Property PtColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPt + End Get + End Property + + _ + Public ReadOnly Property SvColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSv + End Get + End Property + + _ + Public ReadOnly Property NoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNo + End Get + End Property + + _ + Public ReadOnly Property DaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDa + End Get + End Property + + _ + Public ReadOnly Property FiColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFi + End Get + End Property + + _ + Public ReadOnly Property ZhColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZh + End Get + End Property + + _ + Public ReadOnly Property KoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKo + End Get + End Property + + _ + Public ReadOnly Property PlColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPl + End Get + End Property + + _ + Public ReadOnly Property WorldColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWorld + End Get + End Property + + _ + Public ReadOnly Property EuropeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEurope + End Get + End Property + + _ + Public ReadOnly Property USAColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSA + End Get + End Property + + _ + Public ReadOnly Property AustraliaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAustralia + End Get + End Property + + _ + Public ReadOnly Property JapanColumn() As Global.System.Data.DataColumn + Get + Return Me.columnJapan + End Get + End Property + + _ + Public ReadOnly Property KoreaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKorea + End Get + End Property + + _ + Public ReadOnly Property ChinaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnChina + End Get + End Property + + _ + Public ReadOnly Property AsiaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAsia + End Get + End Property + + _ + Public ReadOnly Property BrazilColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBrazil + End Get + End Property + + _ + Public ReadOnly Property CanadaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCanada + End Get + End Property + + _ + Public ReadOnly Property FranceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFrance + End Get + End Property + + _ + Public ReadOnly Property GermanyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGermany + End Get + End Property + + _ + Public ReadOnly Property HongKongColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHongKong + End Get + End Property + + _ + Public ReadOnly Property ItalyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnItaly + End Get + End Property + + _ + Public ReadOnly Property NetherlandsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNetherlands + End Get + End Property + + _ + Public ReadOnly Property SpainColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpain + End Get + End Property + + _ + Public ReadOnly Property SwedenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSweden + End Get + End Property + + _ + Public ReadOnly Property RussiaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRussia + End Get + End Property + + _ + Public ReadOnly Property TaiwanColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTaiwan + End Get + End Property + + _ + Public ReadOnly Property NTSCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNTSC + End Get + End Property + + _ + Public ReadOnly Property PALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAL + End Get + End Property + + _ + Public ReadOnly Property Note_HighPriorityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNote_HighPriority + End Get + End Property + + _ + Public ReadOnly Property MV_Group_CriteriaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMV_Group_Criteria + End Get + End Property + + _ + Public ReadOnly Property MV_Volume_NumberColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMV_Volume_Number + End Get + End Property + + _ + Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher + End Get + End Property + + _ + Public ReadOnly Property GrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGr + End Get + End Property + + _ + Public ReadOnly Property HuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHu + End Get + End Property + + _ + Public ReadOnly Property Found_InColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFound_In + End Get + End Property + + _ + Public ReadOnly Property ArColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAr + End Get + End Property + + _ + Public ReadOnly Property BeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBe + End Get + End Property + + _ + Public ReadOnly Property CzColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCz + End Get + End Property + + _ + Public ReadOnly Property SlColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSl + End Get + End Property + + _ + Public ReadOnly Property SrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSr + End Get + End Property + + _ + Public ReadOnly Property RuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRu + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Tag_ParserRow + Get + Return CType(Me.Rows(index),tbl_Tag_ParserRow) + End Get + End Property + + _ + Public Event tbl_Tag_ParserRowChanging As tbl_Tag_ParserRowChangeEventHandler + + _ + Public Event tbl_Tag_ParserRowChanged As tbl_Tag_ParserRowChangeEventHandler + + _ + Public Event tbl_Tag_ParserRowDeleting As tbl_Tag_ParserRowChangeEventHandler + + _ + Public Event tbl_Tag_ParserRowDeleted As tbl_Tag_ParserRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Tag_ParserRow(ByVal row As tbl_Tag_ParserRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Tag_ParserRow( _ + ByVal id_Rombase_Tag_Parser As Long, _ + ByVal Apply As Boolean, _ + ByVal Content As String, _ + ByVal Note As String, _ + ByVal Year As Boolean, _ + ByVal Bios As Boolean, _ + ByVal Hack As Boolean, _ + ByVal Trainer As Boolean, _ + ByVal Version As Boolean, _ + ByVal Prototype As Boolean, _ + ByVal Beta As Boolean, _ + ByVal Translation As Boolean, _ + ByVal Alt As Boolean, _ + ByVal Unlicensed As Boolean, _ + ByVal Good As Boolean, _ + ByVal Bad As Boolean, _ + ByVal Fixed As Boolean, _ + ByVal Overdump As Boolean, _ + ByVal Pirated As Boolean, _ + ByVal Alpha As Boolean, _ + ByVal Kiosk As Boolean, _ + ByVal Sample As Boolean, _ + ByVal En As Boolean, _ + ByVal Ja As Boolean, _ + ByVal Fr As Boolean, _ + ByVal De As Boolean, _ + ByVal Es As Boolean, _ + ByVal It As Boolean, _ + ByVal Nl As Boolean, _ + ByVal Pt As Boolean, _ + ByVal Sv As Boolean, _ + ByVal No As Boolean, _ + ByVal Da As Boolean, _ + ByVal Fi As Boolean, _ + ByVal Zh As Boolean, _ + ByVal Ko As Boolean, _ + ByVal Pl As Boolean, _ + ByVal World As Boolean, _ + ByVal Europe As Boolean, _ + ByVal USA As Boolean, _ + ByVal Australia As Boolean, _ + ByVal Japan As Boolean, _ + ByVal Korea As Boolean, _ + ByVal China As Boolean, _ + ByVal Asia As Boolean, _ + ByVal Brazil As Boolean, _ + ByVal Canada As Boolean, _ + ByVal France As Boolean, _ + ByVal Germany As Boolean, _ + ByVal HongKong As Boolean, _ + ByVal Italy As Boolean, _ + ByVal Netherlands As Boolean, _ + ByVal Spain As Boolean, _ + ByVal Sweden As Boolean, _ + ByVal Russia As Boolean, _ + ByVal Taiwan As Boolean, _ + ByVal NTSC As Boolean, _ + ByVal PAL As Boolean, _ + ByVal Note_HighPriority As Boolean, _ + ByVal MV_Group_Criteria As Boolean, _ + ByVal MV_Volume_Number As Long, _ + ByVal Publisher As Boolean, _ + ByVal Gr As Boolean, _ + ByVal Hu As Boolean, _ + ByVal Found_In As String, _ + ByVal Ar As Boolean, _ + ByVal Be As Boolean, _ + ByVal Cz As Boolean, _ + ByVal Sl As Boolean, _ + ByVal Sr As Boolean, _ + ByVal Ru As Boolean) As tbl_Tag_ParserRow + Dim rowtbl_Tag_ParserRow As tbl_Tag_ParserRow = CType(Me.NewRow,tbl_Tag_ParserRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Rombase_Tag_Parser, Apply, Content, Note, Year, Bios, Hack, Trainer, Version, Prototype, Beta, Translation, Alt, Unlicensed, Good, Bad, Fixed, Overdump, Pirated, Alpha, Kiosk, Sample, En, Ja, Fr, De, Es, It, Nl, Pt, Sv, No, Da, Fi, Zh, Ko, Pl, World, Europe, USA, Australia, Japan, Korea, China, Asia, Brazil, Canada, France, Germany, HongKong, Italy, Netherlands, Spain, Sweden, Russia, Taiwan, NTSC, PAL, Note_HighPriority, MV_Group_Criteria, MV_Volume_Number, Publisher, Gr, Hu, Found_In, Ar, Be, Cz, Sl, Sr, Ru} + rowtbl_Tag_ParserRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Tag_ParserRow) + Return rowtbl_Tag_ParserRow + End Function + + _ + Public Function FindByid_Tag_Parser(ByVal id_Tag_Parser As Long) As tbl_Tag_ParserRow + Return CType(Me.Rows.Find(New Object() {id_Tag_Parser}),tbl_Tag_ParserRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Tag_ParserDataTable = CType(MyBase.Clone,tbl_Tag_ParserDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Tag_ParserDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Tag_Parser = MyBase.Columns("id_Tag_Parser") + Me.columnid_Rombase_Tag_Parser = MyBase.Columns("id_Rombase_Tag_Parser") + Me.columnApply = MyBase.Columns("Apply") + Me.columnContent = MyBase.Columns("Content") + Me.columnNote = MyBase.Columns("Note") + Me.columnYear = MyBase.Columns("Year") + Me.columnBios = MyBase.Columns("Bios") + Me.columnHack = MyBase.Columns("Hack") + Me.columnTrainer = MyBase.Columns("Trainer") + Me.columnVersion = MyBase.Columns("Version") + Me.columnPrototype = MyBase.Columns("Prototype") + Me.columnBeta = MyBase.Columns("Beta") + Me.columnTranslation = MyBase.Columns("Translation") + Me.columnAlt = MyBase.Columns("Alt") + Me.columnUnlicensed = MyBase.Columns("Unlicensed") + Me.columnGood = MyBase.Columns("Good") + Me.columnBad = MyBase.Columns("Bad") + Me.columnFixed = MyBase.Columns("Fixed") + Me.columnOverdump = MyBase.Columns("Overdump") + Me.columnPirated = MyBase.Columns("Pirated") + Me.columnAlpha = MyBase.Columns("Alpha") + Me.columnKiosk = MyBase.Columns("Kiosk") + Me.columnSample = MyBase.Columns("Sample") + Me.columnEn = MyBase.Columns("En") + Me.columnJa = MyBase.Columns("Ja") + Me.columnFr = MyBase.Columns("Fr") + Me.columnDe = MyBase.Columns("De") + Me.columnEs = MyBase.Columns("Es") + Me.columnIt = MyBase.Columns("It") + Me.columnNl = MyBase.Columns("Nl") + Me.columnPt = MyBase.Columns("Pt") + Me.columnSv = MyBase.Columns("Sv") + Me.columnNo = MyBase.Columns("No") + Me.columnDa = MyBase.Columns("Da") + Me.columnFi = MyBase.Columns("Fi") + Me.columnZh = MyBase.Columns("Zh") + Me.columnKo = MyBase.Columns("Ko") + Me.columnPl = MyBase.Columns("Pl") + Me.columnWorld = MyBase.Columns("World") + Me.columnEurope = MyBase.Columns("Europe") + Me.columnUSA = MyBase.Columns("USA") + Me.columnAustralia = MyBase.Columns("Australia") + Me.columnJapan = MyBase.Columns("Japan") + Me.columnKorea = MyBase.Columns("Korea") + Me.columnChina = MyBase.Columns("China") + Me.columnAsia = MyBase.Columns("Asia") + Me.columnBrazil = MyBase.Columns("Brazil") + Me.columnCanada = MyBase.Columns("Canada") + Me.columnFrance = MyBase.Columns("France") + Me.columnGermany = MyBase.Columns("Germany") + Me.columnHongKong = MyBase.Columns("HongKong") + Me.columnItaly = MyBase.Columns("Italy") + Me.columnNetherlands = MyBase.Columns("Netherlands") + Me.columnSpain = MyBase.Columns("Spain") + Me.columnSweden = MyBase.Columns("Sweden") + Me.columnRussia = MyBase.Columns("Russia") + Me.columnTaiwan = MyBase.Columns("Taiwan") + Me.columnNTSC = MyBase.Columns("NTSC") + Me.columnPAL = MyBase.Columns("PAL") + Me.columnNote_HighPriority = MyBase.Columns("Note_HighPriority") + Me.columnMV_Group_Criteria = MyBase.Columns("MV_Group_Criteria") + Me.columnMV_Volume_Number = MyBase.Columns("MV_Volume_Number") + Me.columnPublisher = MyBase.Columns("Publisher") + Me.columnGr = MyBase.Columns("Gr") + Me.columnHu = MyBase.Columns("Hu") + Me.columnFound_In = MyBase.Columns("Found_In") + Me.columnAr = MyBase.Columns("Ar") + Me.columnBe = MyBase.Columns("Be") + Me.columnCz = MyBase.Columns("Cz") + Me.columnSl = MyBase.Columns("Sl") + Me.columnSr = MyBase.Columns("Sr") + Me.columnRu = MyBase.Columns("Ru") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Tag_Parser = New Global.System.Data.DataColumn("id_Tag_Parser", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Tag_Parser) + Me.columnid_Rombase_Tag_Parser = New Global.System.Data.DataColumn("id_Rombase_Tag_Parser", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Rombase_Tag_Parser) + Me.columnApply = New Global.System.Data.DataColumn("Apply", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnApply) + Me.columnContent = New Global.System.Data.DataColumn("Content", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnContent) + Me.columnNote = New Global.System.Data.DataColumn("Note", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNote) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnBios = New Global.System.Data.DataColumn("Bios", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBios) + Me.columnHack = New Global.System.Data.DataColumn("Hack", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHack) + Me.columnTrainer = New Global.System.Data.DataColumn("Trainer", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTrainer) + Me.columnVersion = New Global.System.Data.DataColumn("Version", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVersion) + Me.columnPrototype = New Global.System.Data.DataColumn("Prototype", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrototype) + Me.columnBeta = New Global.System.Data.DataColumn("Beta", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBeta) + Me.columnTranslation = New Global.System.Data.DataColumn("Translation", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTranslation) + Me.columnAlt = New Global.System.Data.DataColumn("Alt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlt) + Me.columnUnlicensed = New Global.System.Data.DataColumn("Unlicensed", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlicensed) + Me.columnGood = New Global.System.Data.DataColumn("Good", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGood) + Me.columnBad = New Global.System.Data.DataColumn("Bad", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBad) + Me.columnFixed = New Global.System.Data.DataColumn("Fixed", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFixed) + Me.columnOverdump = New Global.System.Data.DataColumn("Overdump", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOverdump) + Me.columnPirated = New Global.System.Data.DataColumn("Pirated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPirated) + Me.columnAlpha = New Global.System.Data.DataColumn("Alpha", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlpha) + Me.columnKiosk = New Global.System.Data.DataColumn("Kiosk", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKiosk) + Me.columnSample = New Global.System.Data.DataColumn("Sample", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSample) + Me.columnEn = New Global.System.Data.DataColumn("En", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEn) + Me.columnJa = New Global.System.Data.DataColumn("Ja", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJa) + Me.columnFr = New Global.System.Data.DataColumn("Fr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFr) + Me.columnDe = New Global.System.Data.DataColumn("De", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDe) + Me.columnEs = New Global.System.Data.DataColumn("Es", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEs) + Me.columnIt = New Global.System.Data.DataColumn("It", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIt) + Me.columnNl = New Global.System.Data.DataColumn("Nl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNl) + Me.columnPt = New Global.System.Data.DataColumn("Pt", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPt) + Me.columnSv = New Global.System.Data.DataColumn("Sv", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSv) + Me.columnNo = New Global.System.Data.DataColumn("No", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNo) + Me.columnDa = New Global.System.Data.DataColumn("Da", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDa) + Me.columnFi = New Global.System.Data.DataColumn("Fi", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFi) + Me.columnZh = New Global.System.Data.DataColumn("Zh", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZh) + Me.columnKo = New Global.System.Data.DataColumn("Ko", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKo) + Me.columnPl = New Global.System.Data.DataColumn("Pl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPl) + Me.columnWorld = New Global.System.Data.DataColumn("World", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWorld) + Me.columnEurope = New Global.System.Data.DataColumn("Europe", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEurope) + Me.columnUSA = New Global.System.Data.DataColumn("USA", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSA) + Me.columnAustralia = New Global.System.Data.DataColumn("Australia", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAustralia) + Me.columnJapan = New Global.System.Data.DataColumn("Japan", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnJapan) + Me.columnKorea = New Global.System.Data.DataColumn("Korea", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKorea) + Me.columnChina = New Global.System.Data.DataColumn("China", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnChina) + Me.columnAsia = New Global.System.Data.DataColumn("Asia", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAsia) + Me.columnBrazil = New Global.System.Data.DataColumn("Brazil", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBrazil) + Me.columnCanada = New Global.System.Data.DataColumn("Canada", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCanada) + Me.columnFrance = New Global.System.Data.DataColumn("France", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFrance) + Me.columnGermany = New Global.System.Data.DataColumn("Germany", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGermany) + Me.columnHongKong = New Global.System.Data.DataColumn("HongKong", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHongKong) + Me.columnItaly = New Global.System.Data.DataColumn("Italy", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnItaly) + Me.columnNetherlands = New Global.System.Data.DataColumn("Netherlands", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNetherlands) + Me.columnSpain = New Global.System.Data.DataColumn("Spain", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpain) + Me.columnSweden = New Global.System.Data.DataColumn("Sweden", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSweden) + Me.columnRussia = New Global.System.Data.DataColumn("Russia", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRussia) + Me.columnTaiwan = New Global.System.Data.DataColumn("Taiwan", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTaiwan) + Me.columnNTSC = New Global.System.Data.DataColumn("NTSC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNTSC) + Me.columnPAL = New Global.System.Data.DataColumn("PAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAL) + Me.columnNote_HighPriority = New Global.System.Data.DataColumn("Note_HighPriority", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNote_HighPriority) + Me.columnMV_Group_Criteria = New Global.System.Data.DataColumn("MV_Group_Criteria", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMV_Group_Criteria) + Me.columnMV_Volume_Number = New Global.System.Data.DataColumn("MV_Volume_Number", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMV_Volume_Number) + Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher) + Me.columnGr = New Global.System.Data.DataColumn("Gr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGr) + Me.columnHu = New Global.System.Data.DataColumn("Hu", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHu) + Me.columnFound_In = New Global.System.Data.DataColumn("Found_In", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFound_In) + Me.columnAr = New Global.System.Data.DataColumn("Ar", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAr) + Me.columnBe = New Global.System.Data.DataColumn("Be", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBe) + Me.columnCz = New Global.System.Data.DataColumn("Cz", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCz) + Me.columnSl = New Global.System.Data.DataColumn("Sl", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSl) + Me.columnSr = New Global.System.Data.DataColumn("Sr", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSr) + Me.columnRu = New Global.System.Data.DataColumn("Ru", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRu) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Tag_Parser}, true)) + Me.columnid_Tag_Parser.AutoIncrement = true + Me.columnid_Tag_Parser.AutoIncrementSeed = -1 + Me.columnid_Tag_Parser.AutoIncrementStep = -1 + Me.columnid_Tag_Parser.AllowDBNull = false + Me.columnid_Tag_Parser.Unique = true + Me.columnContent.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Tag_ParserRow() As tbl_Tag_ParserRow + Return CType(Me.NewRow,tbl_Tag_ParserRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Tag_ParserRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Tag_ParserRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Tag_ParserRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Tag_ParserRowChanged(Me, New tbl_Tag_ParserRowChangeEvent(CType(e.Row,tbl_Tag_ParserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Tag_ParserRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Tag_ParserRowChanging(Me, New tbl_Tag_ParserRowChangeEvent(CType(e.Row,tbl_Tag_ParserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Tag_ParserRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Tag_ParserRowDeleted(Me, New tbl_Tag_ParserRowChangeEvent(CType(e.Row,tbl_Tag_ParserRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Tag_ParserRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Tag_ParserRowDeleting(Me, New tbl_Tag_ParserRowChangeEvent(CType(e.Row,tbl_Tag_ParserRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Tag_ParserRow(ByVal row As tbl_Tag_ParserRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Tag_ParserDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_GamesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_GamesRow) + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnid_DOSBox_Configs_Template As Global.System.Data.DataColumn + + Private columnid_DOSBox_Configs As Global.System.Data.DataColumn + + Private columnid_Rombase_DOSBox_Filetypes As Global.System.Data.DataColumn + + Private columnid_Rombase_DOSBox_Exe_Types As Global.System.Data.DataColumn + + Private columnDOSBox_Mount_Destination As Global.System.Data.DataColumn + + Private columnHidden As Global.System.Data.DataColumn + + Private columnMoby_Games_URLPart As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnFolder As Global.System.Data.DataColumn + + Private columnFile As Global.System.Data.DataColumn + + Private columnInnerFile As Global.System.Data.DataColumn + + Private columnSize As Global.System.Data.DataColumn + + Private columnCustomIdentifier As Global.System.Data.DataColumn + + Private columnCRC32 As Global.System.Data.DataColumn + + Private columnSHA1 As Global.System.Data.DataColumn + + Private columnMD5 As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnName_Prefix As Global.System.Data.DataColumn + + Private columnNote As Global.System.Data.DataColumn + + Private columnPublisher As Global.System.Data.DataColumn + + Private columnPublisher_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnDeveloper As Global.System.Data.DataColumn + + Private columnDeveloper_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnFavourite As Global.System.Data.DataColumn + + Private columnRating_Gameplay As Global.System.Data.DataColumn + + Private columnRating_Graphics As Global.System.Data.DataColumn + + Private columnRating_Sound As Global.System.Data.DataColumn + + Private columnRating_Story As Global.System.Data.DataColumn + + Private columnRating_Personal As Global.System.Data.DataColumn + + Private columnNum_Played As Global.System.Data.DataColumn + + Private columnNum_Runtime As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columnVersion As Global.System.Data.DataColumn + + Private columnAlt As Global.System.Data.DataColumn + + Private columnTrainer As Global.System.Data.DataColumn + + Private columnTranslation As Global.System.Data.DataColumn + + Private columnHack As Global.System.Data.DataColumn + + Private columnBios As Global.System.Data.DataColumn + + Private columnPrototype As Global.System.Data.DataColumn + + Private columnAlpha As Global.System.Data.DataColumn + + Private columnBeta As Global.System.Data.DataColumn + + Private columnSample As Global.System.Data.DataColumn + + Private columnKiosk As Global.System.Data.DataColumn + + Private columnUnlicensed As Global.System.Data.DataColumn + + Private columnFixed As Global.System.Data.DataColumn + + Private columnPirated As Global.System.Data.DataColumn + + Private columnGood As Global.System.Data.DataColumn + + Private columnBad As Global.System.Data.DataColumn + + Private columnOverdump As Global.System.Data.DataColumn + + Private columnPublicDomain As Global.System.Data.DataColumn + + Private columnROMBASE_id_Moby_Platforms As Global.System.Data.DataColumn + + Private columnid_Rombase As Global.System.Data.DataColumn + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnPublisher_USR As Global.System.Data.DataColumn + + Private columnPublisher_id_Moby_Companies_USR As Global.System.Data.DataColumn + + Private columnDeveloper_USR As Global.System.Data.DataColumn + + Private columnDeveloper_id_Moby_Companies_USR As Global.System.Data.DataColumn + + Private columnDescription_USR As Global.System.Data.DataColumn + + Private columnYear_USR As Global.System.Data.DataColumn + + Private columnVersion_USR As Global.System.Data.DataColumn + + Private columnAlt_USR As Global.System.Data.DataColumn + + Private columnTrainer_USR As Global.System.Data.DataColumn + + Private columnTranslation_USR As Global.System.Data.DataColumn + + Private columnHack_USR As Global.System.Data.DataColumn + + Private columnBios_USR As Global.System.Data.DataColumn + + Private columnPrototype_USR As Global.System.Data.DataColumn + + Private columnAlpha_USR As Global.System.Data.DataColumn + + Private columnBeta_USR As Global.System.Data.DataColumn + + Private columnSample_USR As Global.System.Data.DataColumn + + Private columnKiosk_USR As Global.System.Data.DataColumn + + Private columnUnlicensed_USR As Global.System.Data.DataColumn + + Private columnFixed_USR As Global.System.Data.DataColumn + + Private columnPirated_USR As Global.System.Data.DataColumn + + Private columnGood_USR As Global.System.Data.DataColumn + + Private columnBad_USR As Global.System.Data.DataColumn + + Private columnOverdump_USR As Global.System.Data.DataColumn + + Private columnPublicDomain_USR As Global.System.Data.DataColumn + + Private columnName_USR As Global.System.Data.DataColumn + + Private columnName_Prefix_USR As Global.System.Data.DataColumn + + Private columnNote_USR As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnVolume_Number As Global.System.Data.DataColumn + + Private columnid_Emu_Games_Owner As Global.System.Data.DataColumn + + Private columnFiltered_Name As Global.System.Data.DataColumn + + Private columndeprecated As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property id_DOSBox_Configs_TemplateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Configs_Template + End Get + End Property + + _ + Public ReadOnly Property id_DOSBox_ConfigsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Configs + End Get + End Property + + _ + Public ReadOnly Property id_Rombase_DOSBox_FiletypesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Rombase_DOSBox_Filetypes + End Get + End Property + + _ + Public ReadOnly Property id_Rombase_DOSBox_Exe_TypesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Rombase_DOSBox_Exe_Types + End Get + End Property + + _ + Public ReadOnly Property DOSBox_Mount_DestinationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOSBox_Mount_Destination + End Get + End Property + + _ + Public ReadOnly Property HiddenColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHidden + End Get + End Property + + _ + Public ReadOnly Property Moby_Games_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Games_URLPart + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property FolderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFolder + End Get + End Property + + _ + Public ReadOnly Property FileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFile + End Get + End Property + + _ + Public ReadOnly Property InnerFileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnInnerFile + End Get + End Property + + _ + Public ReadOnly Property SizeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSize + End Get + End Property + + _ + Public ReadOnly Property CustomIdentifierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCustomIdentifier + End Get + End Property + + _ + Public ReadOnly Property CRC32Column() As Global.System.Data.DataColumn + Get + Return Me.columnCRC32 + End Get + End Property + + _ + Public ReadOnly Property SHA1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSHA1 + End Get + End Property + + _ + Public ReadOnly Property MD5Column() As Global.System.Data.DataColumn + Get + Return Me.columnMD5 + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Name_PrefixColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName_Prefix + End Get + End Property + + _ + Public ReadOnly Property NoteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNote + End Get + End Property + + _ + Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher + End Get + End Property + + _ + Public ReadOnly Property Publisher_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper + End Get + End Property + + _ + Public ReadOnly Property Developer_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property FavouriteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFavourite + End Get + End Property + + _ + Public ReadOnly Property Rating_GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Gameplay + End Get + End Property + + _ + Public ReadOnly Property Rating_GraphicsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Graphics + End Get + End Property + + _ + Public ReadOnly Property Rating_SoundColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Sound + End Get + End Property + + _ + Public ReadOnly Property Rating_StoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Story + End Get + End Property + + _ + Public ReadOnly Property Rating_PersonalColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRating_Personal + End Get + End Property + + _ + Public ReadOnly Property Num_PlayedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNum_Played + End Get + End Property + + _ + Public ReadOnly Property Num_RuntimeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNum_Runtime + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property VersionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVersion + End Get + End Property + + _ + Public ReadOnly Property AltColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlt + End Get + End Property + + _ + Public ReadOnly Property TrainerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTrainer + End Get + End Property + + _ + Public ReadOnly Property TranslationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTranslation + End Get + End Property + + _ + Public ReadOnly Property HackColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHack + End Get + End Property + + _ + Public ReadOnly Property BiosColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBios + End Get + End Property + + _ + Public ReadOnly Property PrototypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrototype + End Get + End Property + + _ + Public ReadOnly Property AlphaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlpha + End Get + End Property + + _ + Public ReadOnly Property BetaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBeta + End Get + End Property + + _ + Public ReadOnly Property SampleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSample + End Get + End Property + + _ + Public ReadOnly Property KioskColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKiosk + End Get + End Property + + _ + Public ReadOnly Property UnlicensedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUnlicensed + End Get + End Property + + _ + Public ReadOnly Property FixedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFixed + End Get + End Property + + _ + Public ReadOnly Property PiratedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPirated + End Get + End Property + + _ + Public ReadOnly Property GoodColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGood + End Get + End Property + + _ + Public ReadOnly Property BadColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBad + End Get + End Property + + _ + Public ReadOnly Property OverdumpColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOverdump + End Get + End Property + + _ + Public ReadOnly Property PublicDomainColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublicDomain + End Get + End Property + + _ + Public ReadOnly Property ROMBASE_id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnROMBASE_id_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property id_RombaseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Rombase + End Get + End Property + + _ + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property + + _ + Public ReadOnly Property Publisher_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher_USR + End Get + End Property + + _ + Public ReadOnly Property Publisher_id_Moby_Companies_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher_id_Moby_Companies_USR + End Get + End Property + + _ + Public ReadOnly Property Developer_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper_USR + End Get + End Property + + _ + Public ReadOnly Property Developer_id_Moby_Companies_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper_id_Moby_Companies_USR + End Get + End Property + + _ + Public ReadOnly Property Description_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription_USR + End Get + End Property + + _ + Public ReadOnly Property Year_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear_USR + End Get + End Property + + _ + Public ReadOnly Property Version_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVersion_USR + End Get + End Property + + _ + Public ReadOnly Property Alt_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlt_USR + End Get + End Property + + _ + Public ReadOnly Property Trainer_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTrainer_USR + End Get + End Property + + _ + Public ReadOnly Property Translation_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTranslation_USR + End Get + End Property + + _ + Public ReadOnly Property Hack_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHack_USR + End Get + End Property + + _ + Public ReadOnly Property Bios_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBios_USR + End Get + End Property + + _ + Public ReadOnly Property Prototype_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrototype_USR + End Get + End Property + + _ + Public ReadOnly Property Alpha_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlpha_USR + End Get + End Property + + _ + Public ReadOnly Property Beta_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBeta_USR + End Get + End Property + + _ + Public ReadOnly Property Sample_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSample_USR + End Get + End Property + + _ + Public ReadOnly Property Kiosk_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKiosk_USR + End Get + End Property + + _ + Public ReadOnly Property Unlicensed_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUnlicensed_USR + End Get + End Property + + _ + Public ReadOnly Property Fixed_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFixed_USR + End Get + End Property + + _ + Public ReadOnly Property Pirated_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPirated_USR + End Get + End Property + + _ + Public ReadOnly Property Good_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGood_USR + End Get + End Property + + _ + Public ReadOnly Property Bad_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBad_USR + End Get + End Property + + _ + Public ReadOnly Property Overdump_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOverdump_USR + End Get + End Property + + _ + Public ReadOnly Property PublicDomain_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublicDomain_USR + End Get + End Property + + _ + Public ReadOnly Property Name_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName_USR + End Get + End Property + + _ + Public ReadOnly Property Name_Prefix_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName_Prefix_USR + End Get + End Property + + _ + Public ReadOnly Property Note_USRColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNote_USR + End Get + End Property + + _ + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn + Get + Return Me.columncreated + End Get + End Property + + _ + Public ReadOnly Property Volume_NumberColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVolume_Number + End Get + End Property + + _ + Public ReadOnly Property id_Emu_Games_OwnerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Owner + End Get + End Property + + _ + Public ReadOnly Property Filtered_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFiltered_Name + End Get + End Property + + _ + Public ReadOnly Property deprecatedColumn() As Global.System.Data.DataColumn + Get + Return Me.columndeprecated + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_GamesRow + Get + Return CType(Me.Rows(index),tbl_Emu_GamesRow) + End Get + End Property + + _ + Public Event tbl_Emu_GamesRowChanging As tbl_Emu_GamesRowChangeEventHandler + + _ + Public Event tbl_Emu_GamesRowChanged As tbl_Emu_GamesRowChangeEventHandler + + _ + Public Event tbl_Emu_GamesRowDeleting As tbl_Emu_GamesRowChangeEventHandler + + _ + Public Event tbl_Emu_GamesRowDeleted As tbl_Emu_GamesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_GamesRow(ByVal row As tbl_Emu_GamesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_GamesRow( _ + ByVal id_DOSBox_Configs_Template As Long, _ + ByVal id_DOSBox_Configs As Long, _ + ByVal id_Rombase_DOSBox_Filetypes As Long, _ + ByVal id_Rombase_DOSBox_Exe_Types As Long, _ + ByVal DOSBox_Mount_Destination As String, _ + ByVal Hidden As Boolean, _ + ByVal Moby_Games_URLPart As String, _ + ByVal id_Moby_Platforms As Long, _ + ByVal Folder As String, _ + ByVal File As String, _ + ByVal InnerFile As String, _ + ByVal Size As Long, _ + ByVal CustomIdentifier As String, _ + ByVal CRC32 As String, _ + ByVal SHA1 As String, _ + ByVal MD5 As String, _ + ByVal Name As String, _ + ByVal Name_Prefix As String, _ + ByVal Note As String, _ + ByVal Publisher As String, _ + ByVal Publisher_id_Moby_Companies As Long, _ + ByVal Developer As String, _ + ByVal Developer_id_Moby_Companies As Long, _ + ByVal Description As String, _ + ByVal Favourite As Long, _ + ByVal Rating_Gameplay As Long, _ + ByVal Rating_Graphics As Long, _ + ByVal Rating_Sound As Long, _ + ByVal Rating_Story As Long, _ + ByVal Rating_Personal As Long, _ + ByVal Num_Played As Long, _ + ByVal Num_Runtime As Long, _ + ByVal Year As String, _ + ByVal Version As String, _ + ByVal Alt As String, _ + ByVal Trainer As Long, _ + ByVal Translation As Long, _ + ByVal Hack As Long, _ + ByVal Bios As Long, _ + ByVal Prototype As Long, _ + ByVal Alpha As Long, _ + ByVal Beta As Long, _ + ByVal Sample As Long, _ + ByVal Kiosk As Long, _ + ByVal Unlicensed As Long, _ + ByVal Fixed As Long, _ + ByVal Pirated As Long, _ + ByVal Good As Long, _ + ByVal Bad As Long, _ + ByVal Overdump As Long, _ + ByVal PublicDomain As Long, _ + ByVal ROMBASE_id_Moby_Platforms As Long, _ + ByVal id_Rombase As Long, _ + ByVal id_Emulators As Long, _ + ByVal Publisher_USR As String, _ + ByVal Publisher_id_Moby_Companies_USR As Long, _ + ByVal Developer_USR As String, _ + ByVal Developer_id_Moby_Companies_USR As Long, _ + ByVal Description_USR As String, _ + ByVal Year_USR As Long, _ + ByVal Version_USR As String, _ + ByVal Alt_USR As String, _ + ByVal Trainer_USR As Boolean, _ + ByVal Translation_USR As Boolean, _ + ByVal Hack_USR As Boolean, _ + ByVal Bios_USR As Boolean, _ + ByVal Prototype_USR As Boolean, _ + ByVal Alpha_USR As Boolean, _ + ByVal Beta_USR As Boolean, _ + ByVal Sample_USR As Boolean, _ + ByVal Kiosk_USR As Boolean, _ + ByVal Unlicensed_USR As Boolean, _ + ByVal Fixed_USR As Boolean, _ + ByVal Pirated_USR As Boolean, _ + ByVal Good_USR As Boolean, _ + ByVal Bad_USR As Boolean, _ + ByVal Overdump_USR As Boolean, _ + ByVal PublicDomain_USR As Boolean, _ + ByVal Name_USR As String, _ + ByVal Name_Prefix_USR As String, _ + ByVal Note_USR As String, _ + ByVal created As Date, _ + ByVal Volume_Number As Long, _ + ByVal id_Emu_Games_Owner As Long, _ + ByVal Filtered_Name As String, _ + ByVal deprecated As Boolean) As tbl_Emu_GamesRow + Dim rowtbl_Emu_GamesRow As tbl_Emu_GamesRow = CType(Me.NewRow,tbl_Emu_GamesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_DOSBox_Configs_Template, id_DOSBox_Configs, id_Rombase_DOSBox_Filetypes, id_Rombase_DOSBox_Exe_Types, DOSBox_Mount_Destination, Hidden, Moby_Games_URLPart, id_Moby_Platforms, Folder, File, InnerFile, Size, CustomIdentifier, CRC32, SHA1, MD5, Name, Name_Prefix, Note, Publisher, Publisher_id_Moby_Companies, Developer, Developer_id_Moby_Companies, Description, Favourite, Rating_Gameplay, Rating_Graphics, Rating_Sound, Rating_Story, Rating_Personal, Num_Played, Num_Runtime, Year, Version, Alt, Trainer, Translation, Hack, Bios, Prototype, Alpha, Beta, Sample, Kiosk, Unlicensed, Fixed, Pirated, Good, Bad, Overdump, PublicDomain, ROMBASE_id_Moby_Platforms, id_Rombase, id_Emulators, Publisher_USR, Publisher_id_Moby_Companies_USR, Developer_USR, Developer_id_Moby_Companies_USR, Description_USR, Year_USR, Version_USR, Alt_USR, Trainer_USR, Translation_USR, Hack_USR, Bios_USR, Prototype_USR, Alpha_USR, Beta_USR, Sample_USR, Kiosk_USR, Unlicensed_USR, Fixed_USR, Pirated_USR, Good_USR, Bad_USR, Overdump_USR, PublicDomain_USR, Name_USR, Name_Prefix_USR, Note_USR, created, Volume_Number, id_Emu_Games_Owner, Filtered_Name, deprecated} + rowtbl_Emu_GamesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_GamesRow) + Return rowtbl_Emu_GamesRow + End Function + + _ + Public Function FindByid_Emu_Games(ByVal id_Emu_Games As Long) As tbl_Emu_GamesRow + Return CType(Me.Rows.Find(New Object() {id_Emu_Games}),tbl_Emu_GamesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_GamesDataTable = CType(MyBase.Clone,tbl_Emu_GamesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_GamesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnid_DOSBox_Configs_Template = MyBase.Columns("id_DOSBox_Configs_Template") + Me.columnid_DOSBox_Configs = MyBase.Columns("id_DOSBox_Configs") + Me.columnid_Rombase_DOSBox_Filetypes = MyBase.Columns("id_Rombase_DOSBox_Filetypes") + Me.columnid_Rombase_DOSBox_Exe_Types = MyBase.Columns("id_Rombase_DOSBox_Exe_Types") + Me.columnDOSBox_Mount_Destination = MyBase.Columns("DOSBox_Mount_Destination") + Me.columnHidden = MyBase.Columns("Hidden") + Me.columnMoby_Games_URLPart = MyBase.Columns("Moby_Games_URLPart") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnFolder = MyBase.Columns("Folder") + Me.columnFile = MyBase.Columns("File") + Me.columnInnerFile = MyBase.Columns("InnerFile") + Me.columnSize = MyBase.Columns("Size") + Me.columnCustomIdentifier = MyBase.Columns("CustomIdentifier") + Me.columnCRC32 = MyBase.Columns("CRC32") + Me.columnSHA1 = MyBase.Columns("SHA1") + Me.columnMD5 = MyBase.Columns("MD5") + Me.columnName = MyBase.Columns("Name") + Me.columnName_Prefix = MyBase.Columns("Name_Prefix") + Me.columnNote = MyBase.Columns("Note") + Me.columnPublisher = MyBase.Columns("Publisher") + Me.columnPublisher_id_Moby_Companies = MyBase.Columns("Publisher_id_Moby_Companies") + Me.columnDeveloper = MyBase.Columns("Developer") + Me.columnDeveloper_id_Moby_Companies = MyBase.Columns("Developer_id_Moby_Companies") + Me.columnDescription = MyBase.Columns("Description") + Me.columnFavourite = MyBase.Columns("Favourite") + Me.columnRating_Gameplay = MyBase.Columns("Rating_Gameplay") + Me.columnRating_Graphics = MyBase.Columns("Rating_Graphics") + Me.columnRating_Sound = MyBase.Columns("Rating_Sound") + Me.columnRating_Story = MyBase.Columns("Rating_Story") + Me.columnRating_Personal = MyBase.Columns("Rating_Personal") + Me.columnNum_Played = MyBase.Columns("Num_Played") + Me.columnNum_Runtime = MyBase.Columns("Num_Runtime") + Me.columnYear = MyBase.Columns("Year") + Me.columnVersion = MyBase.Columns("Version") + Me.columnAlt = MyBase.Columns("Alt") + Me.columnTrainer = MyBase.Columns("Trainer") + Me.columnTranslation = MyBase.Columns("Translation") + Me.columnHack = MyBase.Columns("Hack") + Me.columnBios = MyBase.Columns("Bios") + Me.columnPrototype = MyBase.Columns("Prototype") + Me.columnAlpha = MyBase.Columns("Alpha") + Me.columnBeta = MyBase.Columns("Beta") + Me.columnSample = MyBase.Columns("Sample") + Me.columnKiosk = MyBase.Columns("Kiosk") + Me.columnUnlicensed = MyBase.Columns("Unlicensed") + Me.columnFixed = MyBase.Columns("Fixed") + Me.columnPirated = MyBase.Columns("Pirated") + Me.columnGood = MyBase.Columns("Good") + Me.columnBad = MyBase.Columns("Bad") + Me.columnOverdump = MyBase.Columns("Overdump") + Me.columnPublicDomain = MyBase.Columns("PublicDomain") + Me.columnROMBASE_id_Moby_Platforms = MyBase.Columns("ROMBASE_id_Moby_Platforms") + Me.columnid_Rombase = MyBase.Columns("id_Rombase") + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnPublisher_USR = MyBase.Columns("Publisher_USR") + Me.columnPublisher_id_Moby_Companies_USR = MyBase.Columns("Publisher_id_Moby_Companies_USR") + Me.columnDeveloper_USR = MyBase.Columns("Developer_USR") + Me.columnDeveloper_id_Moby_Companies_USR = MyBase.Columns("Developer_id_Moby_Companies_USR") + Me.columnDescription_USR = MyBase.Columns("Description_USR") + Me.columnYear_USR = MyBase.Columns("Year_USR") + Me.columnVersion_USR = MyBase.Columns("Version_USR") + Me.columnAlt_USR = MyBase.Columns("Alt_USR") + Me.columnTrainer_USR = MyBase.Columns("Trainer_USR") + Me.columnTranslation_USR = MyBase.Columns("Translation_USR") + Me.columnHack_USR = MyBase.Columns("Hack_USR") + Me.columnBios_USR = MyBase.Columns("Bios_USR") + Me.columnPrototype_USR = MyBase.Columns("Prototype_USR") + Me.columnAlpha_USR = MyBase.Columns("Alpha_USR") + Me.columnBeta_USR = MyBase.Columns("Beta_USR") + Me.columnSample_USR = MyBase.Columns("Sample_USR") + Me.columnKiosk_USR = MyBase.Columns("Kiosk_USR") + Me.columnUnlicensed_USR = MyBase.Columns("Unlicensed_USR") + Me.columnFixed_USR = MyBase.Columns("Fixed_USR") + Me.columnPirated_USR = MyBase.Columns("Pirated_USR") + Me.columnGood_USR = MyBase.Columns("Good_USR") + Me.columnBad_USR = MyBase.Columns("Bad_USR") + Me.columnOverdump_USR = MyBase.Columns("Overdump_USR") + Me.columnPublicDomain_USR = MyBase.Columns("PublicDomain_USR") + Me.columnName_USR = MyBase.Columns("Name_USR") + Me.columnName_Prefix_USR = MyBase.Columns("Name_Prefix_USR") + Me.columnNote_USR = MyBase.Columns("Note_USR") + Me.columncreated = MyBase.Columns("created") + Me.columnVolume_Number = MyBase.Columns("Volume_Number") + Me.columnid_Emu_Games_Owner = MyBase.Columns("id_Emu_Games_Owner") + Me.columnFiltered_Name = MyBase.Columns("Filtered_Name") + Me.columndeprecated = MyBase.Columns("deprecated") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnid_DOSBox_Configs_Template = New Global.System.Data.DataColumn("id_DOSBox_Configs_Template", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Configs_Template) + Me.columnid_DOSBox_Configs = New Global.System.Data.DataColumn("id_DOSBox_Configs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Configs) + Me.columnid_Rombase_DOSBox_Filetypes = New Global.System.Data.DataColumn("id_Rombase_DOSBox_Filetypes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Rombase_DOSBox_Filetypes) + Me.columnid_Rombase_DOSBox_Exe_Types = New Global.System.Data.DataColumn("id_Rombase_DOSBox_Exe_Types", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Rombase_DOSBox_Exe_Types) + Me.columnDOSBox_Mount_Destination = New Global.System.Data.DataColumn("DOSBox_Mount_Destination", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOSBox_Mount_Destination) + Me.columnHidden = New Global.System.Data.DataColumn("Hidden", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHidden) + Me.columnMoby_Games_URLPart = New Global.System.Data.DataColumn("Moby_Games_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Games_URLPart) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnFolder = New Global.System.Data.DataColumn("Folder", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFolder) + Me.columnFile = New Global.System.Data.DataColumn("File", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFile) + Me.columnInnerFile = New Global.System.Data.DataColumn("InnerFile", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnInnerFile) + Me.columnSize = New Global.System.Data.DataColumn("Size", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSize) + Me.columnCustomIdentifier = New Global.System.Data.DataColumn("CustomIdentifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCustomIdentifier) + Me.columnCRC32 = New Global.System.Data.DataColumn("CRC32", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCRC32) + Me.columnSHA1 = New Global.System.Data.DataColumn("SHA1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHA1) + Me.columnMD5 = New Global.System.Data.DataColumn("MD5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMD5) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnName_Prefix = New Global.System.Data.DataColumn("Name_Prefix", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName_Prefix) + Me.columnNote = New Global.System.Data.DataColumn("Note", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNote) + Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher) + Me.columnPublisher_id_Moby_Companies = New Global.System.Data.DataColumn("Publisher_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher_id_Moby_Companies) + Me.columnDeveloper = New Global.System.Data.DataColumn("Developer", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper) + Me.columnDeveloper_id_Moby_Companies = New Global.System.Data.DataColumn("Developer_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper_id_Moby_Companies) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnFavourite = New Global.System.Data.DataColumn("Favourite", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFavourite) + Me.columnRating_Gameplay = New Global.System.Data.DataColumn("Rating_Gameplay", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Gameplay) + Me.columnRating_Graphics = New Global.System.Data.DataColumn("Rating_Graphics", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Graphics) + Me.columnRating_Sound = New Global.System.Data.DataColumn("Rating_Sound", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Sound) + Me.columnRating_Story = New Global.System.Data.DataColumn("Rating_Story", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Story) + Me.columnRating_Personal = New Global.System.Data.DataColumn("Rating_Personal", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRating_Personal) + Me.columnNum_Played = New Global.System.Data.DataColumn("Num_Played", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNum_Played) + Me.columnNum_Runtime = New Global.System.Data.DataColumn("Num_Runtime", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNum_Runtime) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columnVersion = New Global.System.Data.DataColumn("Version", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVersion) + Me.columnAlt = New Global.System.Data.DataColumn("Alt", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlt) + Me.columnTrainer = New Global.System.Data.DataColumn("Trainer", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTrainer) + Me.columnTranslation = New Global.System.Data.DataColumn("Translation", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTranslation) + Me.columnHack = New Global.System.Data.DataColumn("Hack", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHack) + Me.columnBios = New Global.System.Data.DataColumn("Bios", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBios) + Me.columnPrototype = New Global.System.Data.DataColumn("Prototype", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrototype) + Me.columnAlpha = New Global.System.Data.DataColumn("Alpha", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlpha) + Me.columnBeta = New Global.System.Data.DataColumn("Beta", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBeta) + Me.columnSample = New Global.System.Data.DataColumn("Sample", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSample) + Me.columnKiosk = New Global.System.Data.DataColumn("Kiosk", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKiosk) + Me.columnUnlicensed = New Global.System.Data.DataColumn("Unlicensed", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlicensed) + Me.columnFixed = New Global.System.Data.DataColumn("Fixed", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFixed) + Me.columnPirated = New Global.System.Data.DataColumn("Pirated", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPirated) + Me.columnGood = New Global.System.Data.DataColumn("Good", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGood) + Me.columnBad = New Global.System.Data.DataColumn("Bad", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBad) + Me.columnOverdump = New Global.System.Data.DataColumn("Overdump", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOverdump) + Me.columnPublicDomain = New Global.System.Data.DataColumn("PublicDomain", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublicDomain) + Me.columnROMBASE_id_Moby_Platforms = New Global.System.Data.DataColumn("ROMBASE_id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnROMBASE_id_Moby_Platforms) + Me.columnid_Rombase = New Global.System.Data.DataColumn("id_Rombase", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Rombase) + Me.columnid_Emulators = New Global.System.Data.DataColumn("id_Emulators", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators) + Me.columnPublisher_USR = New Global.System.Data.DataColumn("Publisher_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher_USR) + Me.columnPublisher_id_Moby_Companies_USR = New Global.System.Data.DataColumn("Publisher_id_Moby_Companies_USR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher_id_Moby_Companies_USR) + Me.columnDeveloper_USR = New Global.System.Data.DataColumn("Developer_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper_USR) + Me.columnDeveloper_id_Moby_Companies_USR = New Global.System.Data.DataColumn("Developer_id_Moby_Companies_USR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper_id_Moby_Companies_USR) + Me.columnDescription_USR = New Global.System.Data.DataColumn("Description_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription_USR) + Me.columnYear_USR = New Global.System.Data.DataColumn("Year_USR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear_USR) + Me.columnVersion_USR = New Global.System.Data.DataColumn("Version_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVersion_USR) + Me.columnAlt_USR = New Global.System.Data.DataColumn("Alt_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlt_USR) + Me.columnTrainer_USR = New Global.System.Data.DataColumn("Trainer_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTrainer_USR) + Me.columnTranslation_USR = New Global.System.Data.DataColumn("Translation_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTranslation_USR) + Me.columnHack_USR = New Global.System.Data.DataColumn("Hack_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHack_USR) + Me.columnBios_USR = New Global.System.Data.DataColumn("Bios_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBios_USR) + Me.columnPrototype_USR = New Global.System.Data.DataColumn("Prototype_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrototype_USR) + Me.columnAlpha_USR = New Global.System.Data.DataColumn("Alpha_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlpha_USR) + Me.columnBeta_USR = New Global.System.Data.DataColumn("Beta_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBeta_USR) + Me.columnSample_USR = New Global.System.Data.DataColumn("Sample_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSample_USR) + Me.columnKiosk_USR = New Global.System.Data.DataColumn("Kiosk_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKiosk_USR) + Me.columnUnlicensed_USR = New Global.System.Data.DataColumn("Unlicensed_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlicensed_USR) + Me.columnFixed_USR = New Global.System.Data.DataColumn("Fixed_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFixed_USR) + Me.columnPirated_USR = New Global.System.Data.DataColumn("Pirated_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPirated_USR) + Me.columnGood_USR = New Global.System.Data.DataColumn("Good_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGood_USR) + Me.columnBad_USR = New Global.System.Data.DataColumn("Bad_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBad_USR) + Me.columnOverdump_USR = New Global.System.Data.DataColumn("Overdump_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOverdump_USR) + Me.columnPublicDomain_USR = New Global.System.Data.DataColumn("PublicDomain_USR", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublicDomain_USR) + Me.columnName_USR = New Global.System.Data.DataColumn("Name_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName_USR) + Me.columnName_Prefix_USR = New Global.System.Data.DataColumn("Name_Prefix_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName_Prefix_USR) + Me.columnNote_USR = New Global.System.Data.DataColumn("Note_USR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNote_USR) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnVolume_Number = New Global.System.Data.DataColumn("Volume_Number", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVolume_Number) + Me.columnid_Emu_Games_Owner = New Global.System.Data.DataColumn("id_Emu_Games_Owner", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Owner) + Me.columnFiltered_Name = New Global.System.Data.DataColumn("Filtered_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFiltered_Name) + Me.columndeprecated = New Global.System.Data.DataColumn("deprecated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndeprecated) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emu_Games}, true)) + Me.columnid_Emu_Games.AutoIncrement = true + Me.columnid_Emu_Games.AutoIncrementSeed = -1 + Me.columnid_Emu_Games.AutoIncrementStep = -1 + Me.columnid_Emu_Games.AllowDBNull = false + Me.columnid_Emu_Games.Unique = true + Me.columnMoby_Games_URLPart.MaxLength = 2147483647 + Me.columnFile.MaxLength = 255 + Me.columnInnerFile.MaxLength = 255 + Me.columnCRC32.MaxLength = 2147483647 + Me.columnSHA1.MaxLength = 2147483647 + Me.columnMD5.MaxLength = 2147483647 + Me.columnName.MaxLength = 255 + Me.columnName_Prefix.MaxLength = 2147483647 + Me.columnNote.MaxLength = 2147483647 + Me.columnPublisher.MaxLength = 2147483647 + Me.columnDeveloper.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + Me.columnVersion.MaxLength = 2147483647 + Me.columnAlt.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Emu_GamesRow() As tbl_Emu_GamesRow + Return CType(Me.NewRow,tbl_Emu_GamesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_GamesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_GamesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_GamesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_GamesRowChanged(Me, New tbl_Emu_GamesRowChangeEvent(CType(e.Row,tbl_Emu_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_GamesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_GamesRowChanging(Me, New tbl_Emu_GamesRowChangeEvent(CType(e.Row,tbl_Emu_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_GamesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_GamesRowDeleted(Me, New tbl_Emu_GamesRowChangeEvent(CType(e.Row,tbl_Emu_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_GamesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_GamesRowDeleting(Me, New tbl_Emu_GamesRowChangeEvent(CType(e.Row,tbl_Emu_GamesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_GamesRow(ByVal row As tbl_Emu_GamesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_GamesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_LanguagesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_LanguagesRow) + + Private columnid_Emu_Games_Languages As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnid_Languages As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Languages" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_Games_LanguagesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Languages + End Get + End Property + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property id_LanguagesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Languages + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_LanguagesRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_LanguagesRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_LanguagesRowChanging As tbl_Emu_Games_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_LanguagesRowChanged As tbl_Emu_Games_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_LanguagesRowDeleting As tbl_Emu_Games_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_LanguagesRowDeleted As tbl_Emu_Games_LanguagesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_LanguagesRow(ByVal row As tbl_Emu_Games_LanguagesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_LanguagesRow(ByVal id_Emu_Games As Long, ByVal id_Languages As Long) As tbl_Emu_Games_LanguagesRow + Dim rowtbl_Emu_Games_LanguagesRow As tbl_Emu_Games_LanguagesRow = CType(Me.NewRow,tbl_Emu_Games_LanguagesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emu_Games, id_Languages} + rowtbl_Emu_Games_LanguagesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_LanguagesRow) + Return rowtbl_Emu_Games_LanguagesRow + End Function + + _ + Public Function FindByid_Emu_Games_Languages(ByVal id_Emu_Games_Languages As Long) As tbl_Emu_Games_LanguagesRow + Return CType(Me.Rows.Find(New Object() {id_Emu_Games_Languages}),tbl_Emu_Games_LanguagesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_LanguagesDataTable = CType(MyBase.Clone,tbl_Emu_Games_LanguagesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_LanguagesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games_Languages = MyBase.Columns("id_Emu_Games_Languages") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnid_Languages = MyBase.Columns("id_Languages") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games_Languages = New Global.System.Data.DataColumn("id_Emu_Games_Languages", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Languages) + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnid_Languages = New Global.System.Data.DataColumn("id_Languages", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Languages) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emu_Games_Languages}, true)) + Me.columnid_Emu_Games_Languages.AutoIncrement = true + Me.columnid_Emu_Games_Languages.AutoIncrementSeed = -1 + Me.columnid_Emu_Games_Languages.AutoIncrementStep = -1 + Me.columnid_Emu_Games_Languages.AllowDBNull = false + Me.columnid_Emu_Games_Languages.Unique = true + End Sub + + _ + Public Function Newtbl_Emu_Games_LanguagesRow() As tbl_Emu_Games_LanguagesRow + Return CType(Me.NewRow,tbl_Emu_Games_LanguagesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_LanguagesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_LanguagesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_LanguagesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_LanguagesRowChanged(Me, New tbl_Emu_Games_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_LanguagesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_LanguagesRowChanging(Me, New tbl_Emu_Games_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_LanguagesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_LanguagesRowDeleted(Me, New tbl_Emu_Games_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_LanguagesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_LanguagesRowDeleting(Me, New tbl_Emu_Games_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_LanguagesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_LanguagesRow(ByVal row As tbl_Emu_Games_LanguagesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_LanguagesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_RegionsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_RegionsRow) + + Private columnid_Emu_Games_Regions As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnid_Regions As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Regions" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_Games_RegionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Regions + End Get + End Property + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property id_RegionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Regions + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_RegionsRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_RegionsRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_RegionsRowChanging As tbl_Emu_Games_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_RegionsRowChanged As tbl_Emu_Games_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_RegionsRowDeleting As tbl_Emu_Games_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_RegionsRowDeleted As tbl_Emu_Games_RegionsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_RegionsRow(ByVal row As tbl_Emu_Games_RegionsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_RegionsRow(ByVal id_Emu_Games As Long, ByVal id_Regions As Long) As tbl_Emu_Games_RegionsRow + Dim rowtbl_Emu_Games_RegionsRow As tbl_Emu_Games_RegionsRow = CType(Me.NewRow,tbl_Emu_Games_RegionsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emu_Games, id_Regions} + rowtbl_Emu_Games_RegionsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_RegionsRow) + Return rowtbl_Emu_Games_RegionsRow + End Function + + _ + Public Function FindByid_Emu_Games_Regions(ByVal id_Emu_Games_Regions As Long) As tbl_Emu_Games_RegionsRow + Return CType(Me.Rows.Find(New Object() {id_Emu_Games_Regions}),tbl_Emu_Games_RegionsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_RegionsDataTable = CType(MyBase.Clone,tbl_Emu_Games_RegionsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_RegionsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games_Regions = MyBase.Columns("id_Emu_Games_Regions") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnid_Regions = MyBase.Columns("id_Regions") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games_Regions = New Global.System.Data.DataColumn("id_Emu_Games_Regions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Regions) + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnid_Regions = New Global.System.Data.DataColumn("id_Regions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Regions) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Emu_Games_Regions}, true)) + Me.columnid_Emu_Games_Regions.AutoIncrement = true + Me.columnid_Emu_Games_Regions.AutoIncrementSeed = -1 + Me.columnid_Emu_Games_Regions.AutoIncrementStep = -1 + Me.columnid_Emu_Games_Regions.AllowDBNull = false + Me.columnid_Emu_Games_Regions.Unique = true + End Sub + + _ + Public Function Newtbl_Emu_Games_RegionsRow() As tbl_Emu_Games_RegionsRow + Return CType(Me.NewRow,tbl_Emu_Games_RegionsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_RegionsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_RegionsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_RegionsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_RegionsRowChanged(Me, New tbl_Emu_Games_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_RegionsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_RegionsRowChanging(Me, New tbl_Emu_Games_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_RegionsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_RegionsRowDeleted(Me, New tbl_Emu_Games_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_RegionsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_RegionsRowDeleting(Me, New tbl_Emu_Games_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_RegionsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_RegionsRow(ByVal row As tbl_Emu_Games_RegionsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_RegionsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_Edit_LanguagesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_Edit_LanguagesRow) + + Private columnid_Languages As Global.System.Data.DataColumn + + Private columnLanguage_Short As Global.System.Data.DataColumn + + Private columnLanguage As Global.System.Data.DataColumn + + Private columnUsed As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Edit_Languages" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_LanguagesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Languages + End Get + End Property + + _ + Public ReadOnly Property Language_ShortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLanguage_Short + End Get + End Property + + _ + Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLanguage + End Get + End Property + + _ + Public ReadOnly Property UsedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsed + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_Edit_LanguagesRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_Edit_LanguagesRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_Edit_LanguagesRowChanging As tbl_Emu_Games_Edit_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_LanguagesRowChanged As tbl_Emu_Games_Edit_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_LanguagesRowDeleting As tbl_Emu_Games_Edit_LanguagesRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_LanguagesRowDeleted As tbl_Emu_Games_Edit_LanguagesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_Edit_LanguagesRow(ByVal row As tbl_Emu_Games_Edit_LanguagesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_Edit_LanguagesRow(ByVal id_Languages As Long, ByVal Language_Short As String, ByVal Language As String, ByVal Used As Boolean) As tbl_Emu_Games_Edit_LanguagesRow + Dim rowtbl_Emu_Games_Edit_LanguagesRow As tbl_Emu_Games_Edit_LanguagesRow = CType(Me.NewRow,tbl_Emu_Games_Edit_LanguagesRow) + Dim columnValuesArray() As Object = New Object() {id_Languages, Language_Short, Language, Used} + rowtbl_Emu_Games_Edit_LanguagesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_Edit_LanguagesRow) + Return rowtbl_Emu_Games_Edit_LanguagesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_Edit_LanguagesDataTable = CType(MyBase.Clone,tbl_Emu_Games_Edit_LanguagesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_Edit_LanguagesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Languages = MyBase.Columns("id_Languages") + Me.columnLanguage_Short = MyBase.Columns("Language_Short") + Me.columnLanguage = MyBase.Columns("Language") + Me.columnUsed = MyBase.Columns("Used") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Languages = New Global.System.Data.DataColumn("id_Languages", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Languages) + Me.columnLanguage_Short = New Global.System.Data.DataColumn("Language_Short", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLanguage_Short) + Me.columnLanguage = New Global.System.Data.DataColumn("Language", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLanguage) + Me.columnUsed = New Global.System.Data.DataColumn("Used", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsed) + End Sub + + _ + Public Function Newtbl_Emu_Games_Edit_LanguagesRow() As tbl_Emu_Games_Edit_LanguagesRow + Return CType(Me.NewRow,tbl_Emu_Games_Edit_LanguagesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_Edit_LanguagesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_Edit_LanguagesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_Edit_LanguagesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_LanguagesRowChanged(Me, New tbl_Emu_Games_Edit_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_Edit_LanguagesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_LanguagesRowChanging(Me, New tbl_Emu_Games_Edit_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_Edit_LanguagesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_LanguagesRowDeleted(Me, New tbl_Emu_Games_Edit_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_LanguagesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_Edit_LanguagesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_LanguagesRowDeleting(Me, New tbl_Emu_Games_Edit_LanguagesRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_LanguagesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_Edit_LanguagesRow(ByVal row As tbl_Emu_Games_Edit_LanguagesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_Edit_LanguagesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_Edit_RegionsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_Edit_RegionsRow) + + Private columnid_Regions As Global.System.Data.DataColumn + + Private columnRegion As Global.System.Data.DataColumn + + Private columnUsed As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Edit_Regions" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_RegionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Regions + End Get + End Property + + _ + Public ReadOnly Property RegionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRegion + End Get + End Property + + _ + Public ReadOnly Property UsedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsed + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_Edit_RegionsRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_Edit_RegionsRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_Edit_RegionsRowChanging As tbl_Emu_Games_Edit_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_RegionsRowChanged As tbl_Emu_Games_Edit_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_RegionsRowDeleting As tbl_Emu_Games_Edit_RegionsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_RegionsRowDeleted As tbl_Emu_Games_Edit_RegionsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_Edit_RegionsRow(ByVal row As tbl_Emu_Games_Edit_RegionsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_Edit_RegionsRow(ByVal id_Regions As Long, ByVal _Region As String, ByVal Used As Boolean) As tbl_Emu_Games_Edit_RegionsRow + Dim rowtbl_Emu_Games_Edit_RegionsRow As tbl_Emu_Games_Edit_RegionsRow = CType(Me.NewRow,tbl_Emu_Games_Edit_RegionsRow) + Dim columnValuesArray() As Object = New Object() {id_Regions, _Region, Used} + rowtbl_Emu_Games_Edit_RegionsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_Edit_RegionsRow) + Return rowtbl_Emu_Games_Edit_RegionsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_Edit_RegionsDataTable = CType(MyBase.Clone,tbl_Emu_Games_Edit_RegionsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_Edit_RegionsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Regions = MyBase.Columns("id_Regions") + Me.columnRegion = MyBase.Columns("Region") + Me.columnUsed = MyBase.Columns("Used") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Regions = New Global.System.Data.DataColumn("id_Regions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Regions) + Me.columnRegion = New Global.System.Data.DataColumn("Region", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnRegion.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "RegionColumn") + Me.columnRegion.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnRegion") + Me.columnRegion.ExtendedProperties.Add("Generator_UserColumnName", "Region") + MyBase.Columns.Add(Me.columnRegion) + Me.columnUsed = New Global.System.Data.DataColumn("Used", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsed) + End Sub + + _ + Public Function Newtbl_Emu_Games_Edit_RegionsRow() As tbl_Emu_Games_Edit_RegionsRow + Return CType(Me.NewRow,tbl_Emu_Games_Edit_RegionsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_Edit_RegionsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_Edit_RegionsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_Edit_RegionsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_RegionsRowChanged(Me, New tbl_Emu_Games_Edit_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_Edit_RegionsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_RegionsRowChanging(Me, New tbl_Emu_Games_Edit_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_Edit_RegionsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_RegionsRowDeleted(Me, New tbl_Emu_Games_Edit_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_RegionsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_Edit_RegionsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_RegionsRowDeleting(Me, New tbl_Emu_Games_Edit_RegionsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_RegionsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_Edit_RegionsRow(ByVal row As tbl_Emu_Games_Edit_RegionsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_Edit_RegionsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_Edit_Default_EmulatorDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_Edit_Default_EmulatorRow) + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnDisplayname As Global.System.Data.DataColumn + + Private columnUsed As Global.System.Data.DataColumn + + Private columnIsGlobalDefault As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Edit_Default_Emulator" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property + + _ + Public ReadOnly Property DisplaynameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayname + End Get + End Property + + _ + Public ReadOnly Property UsedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsed + End Get + End Property + + _ + Public ReadOnly Property IsGlobalDefaultColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIsGlobalDefault + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_Edit_Default_EmulatorRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_Edit_Default_EmulatorRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_Edit_Default_EmulatorRowChanging As tbl_Emu_Games_Edit_Default_EmulatorRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_Default_EmulatorRowChanged As tbl_Emu_Games_Edit_Default_EmulatorRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_Default_EmulatorRowDeleting As tbl_Emu_Games_Edit_Default_EmulatorRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Edit_Default_EmulatorRowDeleted As tbl_Emu_Games_Edit_Default_EmulatorRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_Edit_Default_EmulatorRow(ByVal row As tbl_Emu_Games_Edit_Default_EmulatorRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_Edit_Default_EmulatorRow(ByVal id_Emulators As Long, ByVal Displayname As String, ByVal Used As String, ByVal IsGlobalDefault As Boolean) As tbl_Emu_Games_Edit_Default_EmulatorRow + Dim rowtbl_Emu_Games_Edit_Default_EmulatorRow As tbl_Emu_Games_Edit_Default_EmulatorRow = CType(Me.NewRow,tbl_Emu_Games_Edit_Default_EmulatorRow) + Dim columnValuesArray() As Object = New Object() {id_Emulators, Displayname, Used, IsGlobalDefault} + rowtbl_Emu_Games_Edit_Default_EmulatorRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_Edit_Default_EmulatorRow) + Return rowtbl_Emu_Games_Edit_Default_EmulatorRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_Edit_Default_EmulatorDataTable = CType(MyBase.Clone,tbl_Emu_Games_Edit_Default_EmulatorDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_Edit_Default_EmulatorDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnDisplayname = MyBase.Columns("Displayname") + Me.columnUsed = MyBase.Columns("Used") + Me.columnIsGlobalDefault = MyBase.Columns("IsGlobalDefault") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emulators = New Global.System.Data.DataColumn("id_Emulators", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators) + Me.columnDisplayname = New Global.System.Data.DataColumn("Displayname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayname) + Me.columnUsed = New Global.System.Data.DataColumn("Used", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsed) + Me.columnIsGlobalDefault = New Global.System.Data.DataColumn("IsGlobalDefault", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIsGlobalDefault) + End Sub + + _ + Public Function Newtbl_Emu_Games_Edit_Default_EmulatorRow() As tbl_Emu_Games_Edit_Default_EmulatorRow + Return CType(Me.NewRow,tbl_Emu_Games_Edit_Default_EmulatorRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_Edit_Default_EmulatorRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_Edit_Default_EmulatorRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_Edit_Default_EmulatorRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_Default_EmulatorRowChanged(Me, New tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_Default_EmulatorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_Edit_Default_EmulatorRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_Default_EmulatorRowChanging(Me, New tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_Default_EmulatorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_Edit_Default_EmulatorRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_Default_EmulatorRowDeleted(Me, New tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_Default_EmulatorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_Edit_Default_EmulatorRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Edit_Default_EmulatorRowDeleting(Me, New tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent(CType(e.Row,tbl_Emu_Games_Edit_Default_EmulatorRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_Edit_Default_EmulatorRow(ByVal row As tbl_Emu_Games_Edit_Default_EmulatorRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_Edit_Default_EmulatorDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_HistoryDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_HistoryRow) + + Private columnid_History As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnStart As Global.System.Data.DataColumn + + Private columnEnd As Global.System.Data.DataColumn + + Private columnRuntime As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_History" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_HistoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_History + End Get + End Property + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property StartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStart + End Get + End Property + + _ + Public ReadOnly Property EndColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEnd + End Get + End Property + + _ + Public ReadOnly Property RuntimeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRuntime + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_HistoryRow + Get + Return CType(Me.Rows(index),tbl_HistoryRow) + End Get + End Property + + _ + Public Event tbl_HistoryRowChanging As tbl_HistoryRowChangeEventHandler + + _ + Public Event tbl_HistoryRowChanged As tbl_HistoryRowChangeEventHandler + + _ + Public Event tbl_HistoryRowDeleting As tbl_HistoryRowChangeEventHandler + + _ + Public Event tbl_HistoryRowDeleted As tbl_HistoryRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_HistoryRow(ByVal row As tbl_HistoryRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_HistoryRow(ByVal id_History As Long, ByVal id_Emu_Games As Long, ByVal Start As Date, ByVal _End As Date, ByVal Runtime As Long) As tbl_HistoryRow + Dim rowtbl_HistoryRow As tbl_HistoryRow = CType(Me.NewRow,tbl_HistoryRow) + Dim columnValuesArray() As Object = New Object() {id_History, id_Emu_Games, Start, _End, Runtime} + rowtbl_HistoryRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_HistoryRow) + Return rowtbl_HistoryRow + End Function + + _ + Public Function FindByid_History(ByVal id_History As Long) As tbl_HistoryRow + Return CType(Me.Rows.Find(New Object() {id_History}),tbl_HistoryRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_HistoryDataTable = CType(MyBase.Clone,tbl_HistoryDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_HistoryDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_History = MyBase.Columns("id_History") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnStart = MyBase.Columns("Start") + Me.columnEnd = MyBase.Columns("End") + Me.columnRuntime = MyBase.Columns("Runtime") + End Sub + + _ + Private Sub InitClass() + Me.columnid_History = New Global.System.Data.DataColumn("id_History", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_History) + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnStart = New Global.System.Data.DataColumn("Start", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStart) + Me.columnEnd = New Global.System.Data.DataColumn("End", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + Me.columnEnd.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "EndColumn") + Me.columnEnd.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnEnd") + Me.columnEnd.ExtendedProperties.Add("Generator_UserColumnName", "End") + MyBase.Columns.Add(Me.columnEnd) + Me.columnRuntime = New Global.System.Data.DataColumn("Runtime", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRuntime) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_History}, true)) + Me.columnid_History.AllowDBNull = false + Me.columnid_History.Unique = true + End Sub + + _ + Public Function Newtbl_HistoryRow() As tbl_HistoryRow + Return CType(Me.NewRow,tbl_HistoryRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_HistoryRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_HistoryRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_HistoryRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_HistoryRowChanged(Me, New tbl_HistoryRowChangeEvent(CType(e.Row,tbl_HistoryRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_HistoryRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_HistoryRowChanging(Me, New tbl_HistoryRowChangeEvent(CType(e.Row,tbl_HistoryRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_HistoryRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_HistoryRowDeleted(Me, New tbl_HistoryRowChangeEvent(CType(e.Row,tbl_HistoryRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_HistoryRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_HistoryRowDeleting(Me, New tbl_HistoryRowChangeEvent(CType(e.Row,tbl_HistoryRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_HistoryRow(ByVal row As tbl_HistoryRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_HistoryDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_ImageEditorTemplatesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_ImageEditorTemplatesRow) + + Private columnid_ImageEditorTemplates As Global.System.Data.DataColumn + + Private columnTop As Global.System.Data.DataColumn + + Private columnBottom As Global.System.Data.DataColumn + + Private columnLeft As Global.System.Data.DataColumn + + Private columnRight As Global.System.Data.DataColumn + + Private columnTitle As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_ImageEditorTemplates" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_ImageEditorTemplatesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_ImageEditorTemplates + End Get + End Property + + _ + Public ReadOnly Property TopColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTop + End Get + End Property + + _ + Public ReadOnly Property BottomColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBottom + End Get + End Property + + _ + Public ReadOnly Property LeftColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLeft + End Get + End Property + + _ + Public ReadOnly Property RightColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRight + End Get + End Property + + _ + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTitle + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_ImageEditorTemplatesRow + Get + Return CType(Me.Rows(index),tbl_ImageEditorTemplatesRow) + End Get + End Property + + _ + Public Event tbl_ImageEditorTemplatesRowChanging As tbl_ImageEditorTemplatesRowChangeEventHandler + + _ + Public Event tbl_ImageEditorTemplatesRowChanged As tbl_ImageEditorTemplatesRowChangeEventHandler + + _ + Public Event tbl_ImageEditorTemplatesRowDeleting As tbl_ImageEditorTemplatesRowChangeEventHandler + + _ + Public Event tbl_ImageEditorTemplatesRowDeleted As tbl_ImageEditorTemplatesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_ImageEditorTemplatesRow(ByVal row As tbl_ImageEditorTemplatesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_ImageEditorTemplatesRow(ByVal Top As Long, ByVal Bottom As Long, ByVal Left As Long, ByVal Right As Long, ByVal Title As String) As tbl_ImageEditorTemplatesRow + Dim rowtbl_ImageEditorTemplatesRow As tbl_ImageEditorTemplatesRow = CType(Me.NewRow,tbl_ImageEditorTemplatesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Top, Bottom, Left, Right, Title} + rowtbl_ImageEditorTemplatesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_ImageEditorTemplatesRow) + Return rowtbl_ImageEditorTemplatesRow + End Function + + _ + Public Function FindByid_ImageEditorTemplates(ByVal id_ImageEditorTemplates As Long) As tbl_ImageEditorTemplatesRow + Return CType(Me.Rows.Find(New Object() {id_ImageEditorTemplates}),tbl_ImageEditorTemplatesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_ImageEditorTemplatesDataTable = CType(MyBase.Clone,tbl_ImageEditorTemplatesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_ImageEditorTemplatesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_ImageEditorTemplates = MyBase.Columns("id_ImageEditorTemplates") + Me.columnTop = MyBase.Columns("Top") + Me.columnBottom = MyBase.Columns("Bottom") + Me.columnLeft = MyBase.Columns("Left") + Me.columnRight = MyBase.Columns("Right") + Me.columnTitle = MyBase.Columns("Title") + End Sub + + _ + Private Sub InitClass() + Me.columnid_ImageEditorTemplates = New Global.System.Data.DataColumn("id_ImageEditorTemplates", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_ImageEditorTemplates) + Me.columnTop = New Global.System.Data.DataColumn("Top", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTop) + Me.columnBottom = New Global.System.Data.DataColumn("Bottom", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBottom) + Me.columnLeft = New Global.System.Data.DataColumn("Left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLeft) + Me.columnRight = New Global.System.Data.DataColumn("Right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRight) + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_ImageEditorTemplates}, true)) + Me.columnid_ImageEditorTemplates.AutoIncrement = true + Me.columnid_ImageEditorTemplates.AutoIncrementSeed = -1 + Me.columnid_ImageEditorTemplates.AutoIncrementStep = -1 + Me.columnid_ImageEditorTemplates.AllowDBNull = false + Me.columnid_ImageEditorTemplates.Unique = true + Me.columnid_ImageEditorTemplates.Caption = "id_ImageEditorSettings" + Me.columnTitle.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_ImageEditorTemplatesRow() As tbl_ImageEditorTemplatesRow + Return CType(Me.NewRow,tbl_ImageEditorTemplatesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_ImageEditorTemplatesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_ImageEditorTemplatesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_ImageEditorTemplatesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_ImageEditorTemplatesRowChanged(Me, New tbl_ImageEditorTemplatesRowChangeEvent(CType(e.Row,tbl_ImageEditorTemplatesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_ImageEditorTemplatesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_ImageEditorTemplatesRowChanging(Me, New tbl_ImageEditorTemplatesRowChangeEvent(CType(e.Row,tbl_ImageEditorTemplatesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_ImageEditorTemplatesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_ImageEditorTemplatesRowDeleted(Me, New tbl_ImageEditorTemplatesRowChangeEvent(CType(e.Row,tbl_ImageEditorTemplatesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_ImageEditorTemplatesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_ImageEditorTemplatesRowDeleting(Me, New tbl_ImageEditorTemplatesRowChangeEvent(CType(e.Row,tbl_ImageEditorTemplatesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_ImageEditorTemplatesRow(ByVal row As tbl_ImageEditorTemplatesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_ImageEditorTemplatesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_GameGroupsDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_GameGroupsRow) + + Private columnid_Moby_Game_Groups As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnGameCount As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_GameGroups" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Game_GroupsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Game_Groups + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property GameCountColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGameCount + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_GameGroupsRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_GameGroupsRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_GameGroupsRowChanging As src_ucr_Emulation_GameGroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GameGroupsRowChanged As src_ucr_Emulation_GameGroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GameGroupsRowDeleting As src_ucr_Emulation_GameGroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_GameGroupsRowDeleted As src_ucr_Emulation_GameGroupsRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_GameGroupsRow(ByVal row As src_ucr_Emulation_GameGroupsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_GameGroupsRow(ByVal id_Moby_Game_Groups As Long, ByVal Name As String, ByVal GameCount As Integer) As src_ucr_Emulation_GameGroupsRow + Dim rowsrc_ucr_Emulation_GameGroupsRow As src_ucr_Emulation_GameGroupsRow = CType(Me.NewRow,src_ucr_Emulation_GameGroupsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Game_Groups, Name, GameCount} + rowsrc_ucr_Emulation_GameGroupsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_GameGroupsRow) + Return rowsrc_ucr_Emulation_GameGroupsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_GameGroupsDataTable = CType(MyBase.Clone,src_ucr_Emulation_GameGroupsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_GameGroupsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Game_Groups = MyBase.Columns("id_Moby_Game_Groups") + Me.columnName = MyBase.Columns("Name") + Me.columnGameCount = MyBase.Columns("GameCount") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Game_Groups = New Global.System.Data.DataColumn("id_Moby_Game_Groups", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Game_Groups) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnGameCount = New Global.System.Data.DataColumn("GameCount", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGameCount) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_GameGroupsRow() As src_ucr_Emulation_GameGroupsRow + Return CType(Me.NewRow,src_ucr_Emulation_GameGroupsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_GameGroupsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_GameGroupsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_GameGroupsRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GameGroupsRowChanged(Me, New src_ucr_Emulation_GameGroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_GameGroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_GameGroupsRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GameGroupsRowChanging(Me, New src_ucr_Emulation_GameGroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_GameGroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_GameGroupsRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GameGroupsRowDeleted(Me, New src_ucr_Emulation_GameGroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_GameGroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_GameGroupsRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_GameGroupsRowDeleting(Me, New src_ucr_Emulation_GameGroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_GameGroupsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_GameGroupsRow(ByVal row As src_ucr_Emulation_GameGroupsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_GameGroupsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_cmb_GroupsDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_cmb_GroupsRow) + + Private columnid_Moby_Game_Groups As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_cmb_Groups" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Game_GroupsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Game_Groups + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_cmb_GroupsRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_cmb_GroupsRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_cmb_GroupsRowChanging As src_ucr_Emulation_cmb_GroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_GroupsRowChanged As src_ucr_Emulation_cmb_GroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_GroupsRowDeleting As src_ucr_Emulation_cmb_GroupsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_GroupsRowDeleted As src_ucr_Emulation_cmb_GroupsRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_cmb_GroupsRow(ByVal row As src_ucr_Emulation_cmb_GroupsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_cmb_GroupsRow(ByVal id_Moby_Game_Groups As Long, ByVal Name As String) As src_ucr_Emulation_cmb_GroupsRow + Dim rowsrc_ucr_Emulation_cmb_GroupsRow As src_ucr_Emulation_cmb_GroupsRow = CType(Me.NewRow,src_ucr_Emulation_cmb_GroupsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Game_Groups, Name} + rowsrc_ucr_Emulation_cmb_GroupsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_cmb_GroupsRow) + Return rowsrc_ucr_Emulation_cmb_GroupsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_cmb_GroupsDataTable = CType(MyBase.Clone,src_ucr_Emulation_cmb_GroupsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_cmb_GroupsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Game_Groups = MyBase.Columns("id_Moby_Game_Groups") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Game_Groups = New Global.System.Data.DataColumn("id_Moby_Game_Groups", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Game_Groups) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_cmb_GroupsRow() As src_ucr_Emulation_cmb_GroupsRow + Return CType(Me.NewRow,src_ucr_Emulation_cmb_GroupsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_cmb_GroupsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_cmb_GroupsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_cmb_GroupsRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_GroupsRowChanged(Me, New src_ucr_Emulation_cmb_GroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_cmb_GroupsRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_GroupsRowChanging(Me, New src_ucr_Emulation_cmb_GroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_cmb_GroupsRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_GroupsRowDeleted(Me, New src_ucr_Emulation_cmb_GroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_cmb_GroupsRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_GroupsRowDeleting(Me, New src_ucr_Emulation_cmb_GroupsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_GroupsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_cmb_GroupsRow(ByVal row As src_ucr_Emulation_cmb_GroupsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_cmb_GroupsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Mame_RomsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Mame_RomsRow) + + Private columnid_Mame_Roms As Global.System.Data.DataColumn + + Private columnname As Global.System.Data.DataColumn + + Private columndescription As Global.System.Data.DataColumn + + Private columnyear As Global.System.Data.DataColumn + + Private columnmanufacturer As Global.System.Data.DataColumn + + Private columnsourcefile As Global.System.Data.DataColumn + + Private columnisbios As Global.System.Data.DataColumn + + Private columnisdevice As Global.System.Data.DataColumn + + Private columnismechanical As Global.System.Data.DataColumn + + Private columnissoftwarelist As Global.System.Data.DataColumn + + Private columnhasdisplay As Global.System.Data.DataColumn + + Private columnrunnable As Global.System.Data.DataColumn + + Private columncloneof As Global.System.Data.DataColumn + + Private columnromof As Global.System.Data.DataColumn + + Private columnsampleof As Global.System.Data.DataColumn + + Private columnmameinfo As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Mame_Roms" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Mame_RomsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Mame_Roms + End Get + End Property + + _ + Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnname + End Get + End Property + + _ + Public ReadOnly Property descriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columndescription + End Get + End Property + + _ + Public ReadOnly Property yearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnyear + End Get + End Property + + _ + Public ReadOnly Property manufacturerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmanufacturer + End Get + End Property + + _ + Public ReadOnly Property sourcefileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsourcefile + End Get + End Property + + _ + Public ReadOnly Property isbiosColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisbios + End Get + End Property + + _ + Public ReadOnly Property isdeviceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisdevice + End Get + End Property + + _ + Public ReadOnly Property ismechanicalColumn() As Global.System.Data.DataColumn + Get + Return Me.columnismechanical + End Get + End Property + + _ + Public ReadOnly Property issoftwarelistColumn() As Global.System.Data.DataColumn + Get + Return Me.columnissoftwarelist + End Get + End Property + + _ + Public ReadOnly Property hasdisplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnhasdisplay + End Get + End Property + + _ + Public ReadOnly Property runnableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrunnable + End Get + End Property + + _ + Public ReadOnly Property cloneofColumn() As Global.System.Data.DataColumn + Get + Return Me.columncloneof + End Get + End Property + + _ + Public ReadOnly Property romofColumn() As Global.System.Data.DataColumn + Get + Return Me.columnromof + End Get + End Property + + _ + Public ReadOnly Property sampleofColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsampleof + End Get + End Property + + _ + Public ReadOnly Property mameinfoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnmameinfo + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Mame_RomsRow + Get + Return CType(Me.Rows(index),tbl_Mame_RomsRow) + End Get + End Property + + _ + Public Event tbl_Mame_RomsRowChanging As tbl_Mame_RomsRowChangeEventHandler + + _ + Public Event tbl_Mame_RomsRowChanged As tbl_Mame_RomsRowChangeEventHandler + + _ + Public Event tbl_Mame_RomsRowDeleting As tbl_Mame_RomsRowChangeEventHandler + + _ + Public Event tbl_Mame_RomsRowDeleted As tbl_Mame_RomsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Mame_RomsRow(ByVal row As tbl_Mame_RomsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Mame_RomsRow(ByVal name As String, ByVal description As String, ByVal year As String, ByVal manufacturer As String, ByVal sourcefile As String, ByVal isbios As Boolean, ByVal isdevice As Boolean, ByVal ismechanical As Boolean, ByVal issoftwarelist As Boolean, ByVal hasdisplay As Boolean, ByVal runnable As Boolean, ByVal cloneof As String, ByVal romof As String, ByVal sampleof As String, ByVal mameinfo As String) As tbl_Mame_RomsRow + Dim rowtbl_Mame_RomsRow As tbl_Mame_RomsRow = CType(Me.NewRow,tbl_Mame_RomsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, name, description, year, manufacturer, sourcefile, isbios, isdevice, ismechanical, issoftwarelist, hasdisplay, runnable, cloneof, romof, sampleof, mameinfo} + rowtbl_Mame_RomsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Mame_RomsRow) + Return rowtbl_Mame_RomsRow + End Function + + _ + Public Function FindByid_Mame_Roms(ByVal id_Mame_Roms As Long) As tbl_Mame_RomsRow + Return CType(Me.Rows.Find(New Object() {id_Mame_Roms}),tbl_Mame_RomsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Mame_RomsDataTable = CType(MyBase.Clone,tbl_Mame_RomsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Mame_RomsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Mame_Roms = MyBase.Columns("id_Mame_Roms") + Me.columnname = MyBase.Columns("name") + Me.columndescription = MyBase.Columns("description") + Me.columnyear = MyBase.Columns("year") + Me.columnmanufacturer = MyBase.Columns("manufacturer") + Me.columnsourcefile = MyBase.Columns("sourcefile") + Me.columnisbios = MyBase.Columns("isbios") + Me.columnisdevice = MyBase.Columns("isdevice") + Me.columnismechanical = MyBase.Columns("ismechanical") + Me.columnissoftwarelist = MyBase.Columns("issoftwarelist") + Me.columnhasdisplay = MyBase.Columns("hasdisplay") + Me.columnrunnable = MyBase.Columns("runnable") + Me.columncloneof = MyBase.Columns("cloneof") + Me.columnromof = MyBase.Columns("romof") + Me.columnsampleof = MyBase.Columns("sampleof") + Me.columnmameinfo = MyBase.Columns("mameinfo") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Mame_Roms = New Global.System.Data.DataColumn("id_Mame_Roms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Mame_Roms) + Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnname) + Me.columndescription = New Global.System.Data.DataColumn("description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndescription) + Me.columnyear = New Global.System.Data.DataColumn("year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnyear) + Me.columnmanufacturer = New Global.System.Data.DataColumn("manufacturer", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmanufacturer) + Me.columnsourcefile = New Global.System.Data.DataColumn("sourcefile", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsourcefile) + Me.columnisbios = New Global.System.Data.DataColumn("isbios", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisbios) + Me.columnisdevice = New Global.System.Data.DataColumn("isdevice", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisdevice) + Me.columnismechanical = New Global.System.Data.DataColumn("ismechanical", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnismechanical) + Me.columnissoftwarelist = New Global.System.Data.DataColumn("issoftwarelist", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnissoftwarelist) + Me.columnhasdisplay = New Global.System.Data.DataColumn("hasdisplay", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnhasdisplay) + Me.columnrunnable = New Global.System.Data.DataColumn("runnable", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrunnable) + Me.columncloneof = New Global.System.Data.DataColumn("cloneof", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncloneof) + Me.columnromof = New Global.System.Data.DataColumn("romof", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnromof) + Me.columnsampleof = New Global.System.Data.DataColumn("sampleof", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsampleof) + Me.columnmameinfo = New Global.System.Data.DataColumn("mameinfo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmameinfo) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Mame_Roms}, true)) + Me.columnid_Mame_Roms.AutoIncrement = true + Me.columnid_Mame_Roms.AutoIncrementSeed = -1 + Me.columnid_Mame_Roms.AutoIncrementStep = -1 + Me.columnid_Mame_Roms.AllowDBNull = false + Me.columnid_Mame_Roms.Unique = true + Me.columnname.MaxLength = 2147483647 + Me.columndescription.MaxLength = 2147483647 + Me.columnyear.MaxLength = 2147483647 + Me.columnmanufacturer.MaxLength = 2147483647 + Me.columnsourcefile.MaxLength = 2147483647 + Me.columncloneof.MaxLength = 2147483647 + Me.columnromof.MaxLength = 2147483647 + Me.columnsampleof.MaxLength = 2147483647 + Me.columnmameinfo.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Mame_RomsRow() As tbl_Mame_RomsRow + Return CType(Me.NewRow,tbl_Mame_RomsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Mame_RomsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Mame_RomsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Mame_RomsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Mame_RomsRowChanged(Me, New tbl_Mame_RomsRowChangeEvent(CType(e.Row,tbl_Mame_RomsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Mame_RomsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Mame_RomsRowChanging(Me, New tbl_Mame_RomsRowChangeEvent(CType(e.Row,tbl_Mame_RomsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Mame_RomsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Mame_RomsRowDeleted(Me, New tbl_Mame_RomsRowChangeEvent(CType(e.Row,tbl_Mame_RomsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Mame_RomsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Mame_RomsRowDeleting(Me, New tbl_Mame_RomsRowChangeEvent(CType(e.Row,tbl_Mame_RomsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Mame_RomsRow(ByVal row As tbl_Mame_RomsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Mame_RomsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class ttb_Tag_Parser_VolumesDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Tag_Parser_VolumesRow) + + Private columnid_Tag_Parser_Volumes As Global.System.Data.DataColumn + + Private columnDisplayText As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "ttb_Tag_Parser_Volumes" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Tag_Parser_VolumesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Tag_Parser_Volumes + End Get + End Property + + _ + Public ReadOnly Property DisplayTextColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayText + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Tag_Parser_VolumesRow + Get + Return CType(Me.Rows(index),ttb_Tag_Parser_VolumesRow) + End Get + End Property + + _ + Public Event ttb_Tag_Parser_VolumesRowChanging As ttb_Tag_Parser_VolumesRowChangeEventHandler + + _ + Public Event ttb_Tag_Parser_VolumesRowChanged As ttb_Tag_Parser_VolumesRowChangeEventHandler + + _ + Public Event ttb_Tag_Parser_VolumesRowDeleting As ttb_Tag_Parser_VolumesRowChangeEventHandler + + _ + Public Event ttb_Tag_Parser_VolumesRowDeleted As ttb_Tag_Parser_VolumesRowChangeEventHandler + + _ + Public Overloads Sub Addttb_Tag_Parser_VolumesRow(ByVal row As ttb_Tag_Parser_VolumesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addttb_Tag_Parser_VolumesRow(ByVal id_Tag_Parser_Volumes As Long, ByVal DisplayText As String) As ttb_Tag_Parser_VolumesRow + Dim rowttb_Tag_Parser_VolumesRow As ttb_Tag_Parser_VolumesRow = CType(Me.NewRow,ttb_Tag_Parser_VolumesRow) + Dim columnValuesArray() As Object = New Object() {id_Tag_Parser_Volumes, DisplayText} + rowttb_Tag_Parser_VolumesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Tag_Parser_VolumesRow) + Return rowttb_Tag_Parser_VolumesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Tag_Parser_VolumesDataTable = CType(MyBase.Clone,ttb_Tag_Parser_VolumesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Tag_Parser_VolumesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Tag_Parser_Volumes = MyBase.Columns("id_Tag_Parser_Volumes") + Me.columnDisplayText = MyBase.Columns("DisplayText") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Tag_Parser_Volumes = New Global.System.Data.DataColumn("id_Tag_Parser_Volumes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Tag_Parser_Volumes) + Me.columnDisplayText = New Global.System.Data.DataColumn("DisplayText", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayText) + End Sub + + _ + Public Function Newttb_Tag_Parser_VolumesRow() As ttb_Tag_Parser_VolumesRow + Return CType(Me.NewRow,ttb_Tag_Parser_VolumesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Tag_Parser_VolumesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Tag_Parser_VolumesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Tag_Parser_VolumesRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Tag_Parser_VolumesRowChanged(Me, New ttb_Tag_Parser_VolumesRowChangeEvent(CType(e.Row,ttb_Tag_Parser_VolumesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Tag_Parser_VolumesRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Tag_Parser_VolumesRowChanging(Me, New ttb_Tag_Parser_VolumesRowChangeEvent(CType(e.Row,ttb_Tag_Parser_VolumesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Tag_Parser_VolumesRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Tag_Parser_VolumesRowDeleted(Me, New ttb_Tag_Parser_VolumesRowChangeEvent(CType(e.Row,ttb_Tag_Parser_VolumesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Tag_Parser_VolumesRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Tag_Parser_VolumesRowDeleting(Me, New ttb_Tag_Parser_VolumesRowChangeEvent(CType(e.Row,ttb_Tag_Parser_VolumesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removettb_Tag_Parser_VolumesRow(ByVal row As ttb_Tag_Parser_VolumesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "ttb_Tag_Parser_VolumesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emulators_Multivolume_ParametersDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emulators_Multivolume_ParametersRow) + + Private columnid_Emulators_Multivolume_Parameters As Global.System.Data.DataColumn + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnVolume_Number As Global.System.Data.DataColumn + + Private columnParameter As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emulators_Multivolume_Parameters" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emulators_Multivolume_ParametersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators_Multivolume_Parameters + End Get + End Property + + _ + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property + + _ + Public ReadOnly Property Volume_NumberColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVolume_Number + End Get + End Property + + _ + Public ReadOnly Property ParameterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnParameter + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emulators_Multivolume_ParametersRow + Get + Return CType(Me.Rows(index),tbl_Emulators_Multivolume_ParametersRow) + End Get + End Property + + _ + Public Event tbl_Emulators_Multivolume_ParametersRowChanging As tbl_Emulators_Multivolume_ParametersRowChangeEventHandler + + _ + Public Event tbl_Emulators_Multivolume_ParametersRowChanged As tbl_Emulators_Multivolume_ParametersRowChangeEventHandler + + _ + Public Event tbl_Emulators_Multivolume_ParametersRowDeleting As tbl_Emulators_Multivolume_ParametersRowChangeEventHandler + + _ + Public Event tbl_Emulators_Multivolume_ParametersRowDeleted As tbl_Emulators_Multivolume_ParametersRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emulators_Multivolume_ParametersRow(ByVal row As tbl_Emulators_Multivolume_ParametersRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emulators_Multivolume_ParametersRow(ByVal id_Emulators As Long, ByVal Volume_Number As Long, ByVal Parameter As String) As tbl_Emulators_Multivolume_ParametersRow + Dim rowtbl_Emulators_Multivolume_ParametersRow As tbl_Emulators_Multivolume_ParametersRow = CType(Me.NewRow,tbl_Emulators_Multivolume_ParametersRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emulators, Volume_Number, Parameter} + rowtbl_Emulators_Multivolume_ParametersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emulators_Multivolume_ParametersRow) + Return rowtbl_Emulators_Multivolume_ParametersRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emulators_Multivolume_ParametersDataTable = CType(MyBase.Clone,tbl_Emulators_Multivolume_ParametersDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emulators_Multivolume_ParametersDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emulators_Multivolume_Parameters = MyBase.Columns("id_Emulators_Multivolume_Parameters") + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnVolume_Number = MyBase.Columns("Volume_Number") + Me.columnParameter = MyBase.Columns("Parameter") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emulators_Multivolume_Parameters = New Global.System.Data.DataColumn("id_Emulators_Multivolume_Parameters", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators_Multivolume_Parameters) + Me.columnid_Emulators = New Global.System.Data.DataColumn("id_Emulators", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators) + Me.columnVolume_Number = New Global.System.Data.DataColumn("Volume_Number", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVolume_Number) + Me.columnParameter = New Global.System.Data.DataColumn("Parameter", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnParameter) + Me.columnid_Emulators_Multivolume_Parameters.AutoIncrement = true + Me.columnid_Emulators_Multivolume_Parameters.AutoIncrementSeed = -1 + Me.columnid_Emulators_Multivolume_Parameters.AutoIncrementStep = -1 + Me.columnid_Emulators_Multivolume_Parameters.AllowDBNull = false + End Sub + + _ + Public Function Newtbl_Emulators_Multivolume_ParametersRow() As tbl_Emulators_Multivolume_ParametersRow + Return CType(Me.NewRow,tbl_Emulators_Multivolume_ParametersRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emulators_Multivolume_ParametersRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emulators_Multivolume_ParametersRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emulators_Multivolume_ParametersRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Multivolume_ParametersRowChanged(Me, New tbl_Emulators_Multivolume_ParametersRowChangeEvent(CType(e.Row,tbl_Emulators_Multivolume_ParametersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emulators_Multivolume_ParametersRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Multivolume_ParametersRowChanging(Me, New tbl_Emulators_Multivolume_ParametersRowChangeEvent(CType(e.Row,tbl_Emulators_Multivolume_ParametersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emulators_Multivolume_ParametersRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Multivolume_ParametersRowDeleted(Me, New tbl_Emulators_Multivolume_ParametersRowChangeEvent(CType(e.Row,tbl_Emulators_Multivolume_ParametersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emulators_Multivolume_ParametersRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emulators_Multivolume_ParametersRowDeleting(Me, New tbl_Emulators_Multivolume_ParametersRowChangeEvent(CType(e.Row,tbl_Emulators_Multivolume_ParametersRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emulators_Multivolume_ParametersRow(ByVal row As tbl_Emulators_Multivolume_ParametersRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emulators_Multivolume_ParametersDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_DOSBox_ConfigsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_DOSBox_ConfigsRow) + + Private columnid_DOSBox_Configs As Global.System.Data.DataColumn + + Private columnid_Rombase_DOSBox_Configs As Global.System.Data.DataColumn + + Private columnisTemplate As Global.System.Data.DataColumn + + Private columnDisplayname As Global.System.Data.DataColumn + + Private _columnsdl_fullscreen As Global.System.Data.DataColumn + + Private _columnsdl_fulldouble As Global.System.Data.DataColumn + + Private _columnsdl_fullresolution As Global.System.Data.DataColumn + + Private _columnsdl_windowresolution As Global.System.Data.DataColumn + + Private _columnsdl_output As Global.System.Data.DataColumn + + Private _columnsdl_autolock As Global.System.Data.DataColumn + + Private _columnsdl_sensitivity As Global.System.Data.DataColumn + + Private _columnsdl_waitonerror As Global.System.Data.DataColumn + + Private _columnsdl_priority_1 As Global.System.Data.DataColumn + + Private _columnsdl_priority_2 As Global.System.Data.DataColumn + + Private _columnsdl_mapperfile As Global.System.Data.DataColumn + + Private _columnsdl_usescancodes As Global.System.Data.DataColumn + + Private _columndosbox_language As Global.System.Data.DataColumn + + Private _columndosbox_machine As Global.System.Data.DataColumn + + Private _columndosbox_memsize As Global.System.Data.DataColumn + + Private _columnrender_frameskip As Global.System.Data.DataColumn + + Private _columnrender_aspect As Global.System.Data.DataColumn + + Private _columnrender_scaler As Global.System.Data.DataColumn + + Private _columnrender_scaler_forced As Global.System.Data.DataColumn + + Private _columncpu_core As Global.System.Data.DataColumn + + Private _columncpu_cputype As Global.System.Data.DataColumn + + Private _columncpu_cycles As Global.System.Data.DataColumn + + Private _columncpu_cycleup As Global.System.Data.DataColumn + + Private _columncpu_cycledown As Global.System.Data.DataColumn + + Private _columnmixer_nosound As Global.System.Data.DataColumn + + Private _columnmixer_rate As Global.System.Data.DataColumn + + Private _columnmixer_blocksize As Global.System.Data.DataColumn + + Private _columnmixer_prebuffer As Global.System.Data.DataColumn + + Private _columnmidi_mpu401 As Global.System.Data.DataColumn + + Private _columnmidi_mididevice As Global.System.Data.DataColumn + + Private _columnmidi_midiconfig As Global.System.Data.DataColumn + + Private _columnsblaster_sbtype As Global.System.Data.DataColumn + + Private _columnsblaster_sbbase As Global.System.Data.DataColumn + + Private _columnsblaster_irq As Global.System.Data.DataColumn + + Private _columnsblaster_dma As Global.System.Data.DataColumn + + Private _columnsblaster_hdma As Global.System.Data.DataColumn + + Private _columnsblaster_sbmixer As Global.System.Data.DataColumn + + Private _columnsblaster_oplmode As Global.System.Data.DataColumn + + Private _columnsblaster_oplemu As Global.System.Data.DataColumn + + Private _columnsblaster_oplrate As Global.System.Data.DataColumn + + Private _columngus_gus As Global.System.Data.DataColumn + + Private _columngus_gusrate As Global.System.Data.DataColumn + + Private _columngus_gusbase As Global.System.Data.DataColumn + + Private _columngus_gusirq As Global.System.Data.DataColumn + + Private _columngus_gusdma As Global.System.Data.DataColumn + + Private _columngus_ultradir As Global.System.Data.DataColumn + + Private _columnspeaker_pcspeaker As Global.System.Data.DataColumn + + Private _columnspeaker_pcrate As Global.System.Data.DataColumn + + Private _columnspeaker_tandy As Global.System.Data.DataColumn + + Private _columnspeaker_tandyrate As Global.System.Data.DataColumn + + Private _columnspeaker_disney As Global.System.Data.DataColumn + + Private _columnjoystick_joysticktype As Global.System.Data.DataColumn + + Private _columnjoystick_timed As Global.System.Data.DataColumn + + Private _columnjoystick_autofire As Global.System.Data.DataColumn + + Private _columnjoystick_swap34 As Global.System.Data.DataColumn + + Private _columnjoystick_buttonwrap As Global.System.Data.DataColumn + + Private _columnserial_serial1 As Global.System.Data.DataColumn + + Private _columnserial_serial2 As Global.System.Data.DataColumn + + Private _columnserial_serial3 As Global.System.Data.DataColumn + + Private _columnserial_serial4 As Global.System.Data.DataColumn + + Private _columndos_xms As Global.System.Data.DataColumn + + Private _columndos_ems As Global.System.Data.DataColumn + + Private _columndos_umb As Global.System.Data.DataColumn + + Private _columndos_keyboardlayout As Global.System.Data.DataColumn + + Private _columnipx_ipx As Global.System.Data.DataColumn + + Private _columnautoexec_before As Global.System.Data.DataColumn + + Private _columnautoexec_after As Global.System.Data.DataColumn + + Private _columnml_autoclose As Global.System.Data.DataColumn + + Private _columnml_showconsole As Global.System.Data.DataColumn + + Private _columnml_customsettings As Global.System.Data.DataColumn + + Private _columnml_useloadfix As Global.System.Data.DataColumn + + Private _columnml_loadfix As Global.System.Data.DataColumn + + Private _columnml_volume_master_left As Global.System.Data.DataColumn + + Private _columnml_volume_master_right As Global.System.Data.DataColumn + + Private _columnml_volume_spkr_left As Global.System.Data.DataColumn + + Private _columnml_volume_spkr_right As Global.System.Data.DataColumn + + Private _columnml_volume_sb_left As Global.System.Data.DataColumn + + Private _columnml_volume_sb_right As Global.System.Data.DataColumn + + Private _columnml_volume_disney_left As Global.System.Data.DataColumn + + Private _columnml_volume_disney_right As Global.System.Data.DataColumn + + Private _columnml_volume_gus_left As Global.System.Data.DataColumn + + Private _columnml_volume_gus_right As Global.System.Data.DataColumn + + Private _columnml_volume_fm_left As Global.System.Data.DataColumn + + Private _columnml_volume_fm_right As Global.System.Data.DataColumn + + Private _columnml_volume_cdaudio_left As Global.System.Data.DataColumn + + Private _columnml_volume_cdaudio_right As Global.System.Data.DataColumn + + Private columnp_sdl_pixelshader As Global.System.Data.DataColumn + + Private columnp_sdl_pixelshader_forced As Global.System.Data.DataColumn + + Private columnp_sdl_output As Global.System.Data.DataColumn + + Private columnp_dosbox_vmemsize As Global.System.Data.DataColumn + + Private columnp_dosbox_memsizekb As Global.System.Data.DataColumn + + Private columnp_dosbox_forcerate As Global.System.Data.DataColumn + + Private columnp_dosbox_pit_hack As Global.System.Data.DataColumn + + Private columnp_render_scaler As Global.System.Data.DataColumn + + Private columnp_render_autofit As Global.System.Data.DataColumn + + Private columnp_vsync_vsyncmode As Global.System.Data.DataColumn + + Private columnp_vsync_vsyncrate As Global.System.Data.DataColumn + + Private columnp_cpu_cputype As Global.System.Data.DataColumn + + Private columnp_keyboard_aux As Global.System.Data.DataColumn + + Private columnp_keyboard_auxdevice As Global.System.Data.DataColumn + + Private columnp_voodoo As Global.System.Data.DataColumn + + Private columnp_mixer_swapstereo As Global.System.Data.DataColumn + + Private columnp_midi_mididevice As Global.System.Data.DataColumn + + Private columnp_midi_mt32_reverse_stereo As Global.System.Data.DataColumn + + Private columnp_midi_mt32_verbose As Global.System.Data.DataColumn + + Private columnp_midi_mt32_thread As Global.System.Data.DataColumn + + Private columnp_midi_mt32_dac As Global.System.Data.DataColumn + + Private columnp_midi_mt32_reverb_mode As Global.System.Data.DataColumn + + Private columnp_midi_mt32_reverb_time As Global.System.Data.DataColumn + + Private columnp_midi_mt32_reverb_level As Global.System.Data.DataColumn + + Private columnp_midi_mt32_partials As Global.System.Data.DataColumn + + Private columnp_sblaster_oplmode As Global.System.Data.DataColumn + + Private columnp_sblaster_hardwarebase As Global.System.Data.DataColumn + + Private columnp_sblaster_goldplay As Global.System.Data.DataColumn + + Private columnp_innova_innova As Global.System.Data.DataColumn + + Private columnp_innova_samplerate As Global.System.Data.DataColumn + + Private columnp_innova_sidbase As Global.System.Data.DataColumn + + Private columnp_innova_quality As Global.System.Data.DataColumn + + Private columnp_speaker_ps1audio As Global.System.Data.DataColumn + + Private columnp_speaker_ps1audiorate As Global.System.Data.DataColumn + + Private columnp_printer_printer As Global.System.Data.DataColumn + + Private columnp_printer_dpi As Global.System.Data.DataColumn + + Private columnp_printer_width As Global.System.Data.DataColumn + + Private columnp_printer_height As Global.System.Data.DataColumn + + Private columnp_printer_printoutput As Global.System.Data.DataColumn + + Private columnp_printer_multipage As Global.System.Data.DataColumn + + Private columnp_printer_docpath As Global.System.Data.DataColumn + + Private columnp_printer_timeout As Global.System.Data.DataColumn + + Private columnp_parallel_parallel1 As Global.System.Data.DataColumn + + Private columnp_parallel_parallel2 As Global.System.Data.DataColumn + + Private columnp_parallel_parallel3 As Global.System.Data.DataColumn + + Private columnp_parallel_dongle As Global.System.Data.DataColumn + + Private columnp_glide_glide As Global.System.Data.DataColumn + + Private columnp_glide_lfb As Global.System.Data.DataColumn + + Private columnp_glide_splash As Global.System.Data.DataColumn + + Private columnp_ne2000_ne2000 As Global.System.Data.DataColumn + + Private columnp_ne2000_nicbase As Global.System.Data.DataColumn + + Private columnp_ne2000_nicirq As Global.System.Data.DataColumn + + Private columnp_ne2000_macaddr As Global.System.Data.DataColumn + + Private columnp_ne2000_realnic As Global.System.Data.DataColumn + + Private columnp_ide1_enable As Global.System.Data.DataColumn + + Private columnp_ide1_int13fakeio As Global.System.Data.DataColumn + + Private columnp_ide1_int13fakev86io As Global.System.Data.DataColumn + + Private columnp_ide2_enable As Global.System.Data.DataColumn + + Private columnp_ide2_int13fakeio As Global.System.Data.DataColumn + + Private columnp_ide2_int13fakev86io As Global.System.Data.DataColumn + + Private columnp_ide3_enable As Global.System.Data.DataColumn + + Private columnp_ide3_int13fakeio As Global.System.Data.DataColumn + + Private columnp_ide3_int13fakev86io As Global.System.Data.DataColumn + + Private columnp_ide4_enable As Global.System.Data.DataColumn + + Private columnp_ide4_int13fakeio As Global.System.Data.DataColumn + + Private columnp_ide4_int13fakev86io As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_DOSBox_Configs" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_DOSBox_ConfigsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Configs + End Get + End Property + + _ + Public ReadOnly Property id_Rombase_DOSBox_ConfigsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Rombase_DOSBox_Configs + End Get + End Property + + _ + Public ReadOnly Property isTemplateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisTemplate + End Get + End Property + + _ + Public ReadOnly Property DisplaynameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayname + End Get + End Property + + _ + Public ReadOnly Property _sdl_fullscreenColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_fullscreen + End Get + End Property + + _ + Public ReadOnly Property _sdl_fulldoubleColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_fulldouble + End Get + End Property + + _ + Public ReadOnly Property _sdl_fullresolutionColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_fullresolution + End Get + End Property + + _ + Public ReadOnly Property _sdl_windowresolutionColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_windowresolution + End Get + End Property + + _ + Public ReadOnly Property _sdl_outputColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_output + End Get + End Property + + _ + Public ReadOnly Property _sdl_autolockColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_autolock + End Get + End Property + + _ + Public ReadOnly Property _sdl_sensitivityColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_sensitivity + End Get + End Property + + _ + Public ReadOnly Property _sdl_waitonerrorColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_waitonerror + End Get + End Property + + _ + Public ReadOnly Property _sdl_priority_1Column() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_priority_1 + End Get + End Property + + _ + Public ReadOnly Property _sdl_priority_2Column() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_priority_2 + End Get + End Property + + _ + Public ReadOnly Property _sdl_mapperfileColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_mapperfile + End Get + End Property + + _ + Public ReadOnly Property _sdl_usescancodesColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsdl_usescancodes + End Get + End Property + + _ + Public ReadOnly Property _dosbox_languageColumn() As Global.System.Data.DataColumn + Get + Return Me._columndosbox_language + End Get + End Property + + _ + Public ReadOnly Property _dosbox_machineColumn() As Global.System.Data.DataColumn + Get + Return Me._columndosbox_machine + End Get + End Property + + _ + Public ReadOnly Property _dosbox_memsizeColumn() As Global.System.Data.DataColumn + Get + Return Me._columndosbox_memsize + End Get + End Property + + _ + Public ReadOnly Property _render_frameskipColumn() As Global.System.Data.DataColumn + Get + Return Me._columnrender_frameskip + End Get + End Property + + _ + Public ReadOnly Property _render_aspectColumn() As Global.System.Data.DataColumn + Get + Return Me._columnrender_aspect + End Get + End Property + + _ + Public ReadOnly Property _render_scalerColumn() As Global.System.Data.DataColumn + Get + Return Me._columnrender_scaler + End Get + End Property + + _ + Public ReadOnly Property _render_scaler_forcedColumn() As Global.System.Data.DataColumn + Get + Return Me._columnrender_scaler_forced + End Get + End Property + + _ + Public ReadOnly Property _cpu_coreColumn() As Global.System.Data.DataColumn + Get + Return Me._columncpu_core + End Get + End Property + + _ + Public ReadOnly Property _cpu_cputypeColumn() As Global.System.Data.DataColumn + Get + Return Me._columncpu_cputype + End Get + End Property + + _ + Public ReadOnly Property _cpu_cyclesColumn() As Global.System.Data.DataColumn + Get + Return Me._columncpu_cycles + End Get + End Property + + _ + Public ReadOnly Property _cpu_cycleupColumn() As Global.System.Data.DataColumn + Get + Return Me._columncpu_cycleup + End Get + End Property + + _ + Public ReadOnly Property _cpu_cycledownColumn() As Global.System.Data.DataColumn + Get + Return Me._columncpu_cycledown + End Get + End Property + + _ + Public ReadOnly Property _mixer_nosoundColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmixer_nosound + End Get + End Property + + _ + Public ReadOnly Property _mixer_rateColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmixer_rate + End Get + End Property + + _ + Public ReadOnly Property _mixer_blocksizeColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmixer_blocksize + End Get + End Property + + _ + Public ReadOnly Property _mixer_prebufferColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmixer_prebuffer + End Get + End Property + + _ + Public ReadOnly Property _midi_mpu401Column() As Global.System.Data.DataColumn + Get + Return Me._columnmidi_mpu401 + End Get + End Property + + _ + Public ReadOnly Property _midi_midideviceColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmidi_mididevice + End Get + End Property + + _ + Public ReadOnly Property _midi_midiconfigColumn() As Global.System.Data.DataColumn + Get + Return Me._columnmidi_midiconfig + End Get + End Property + + _ + Public ReadOnly Property _sblaster_sbtypeColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_sbtype + End Get + End Property + + _ + Public ReadOnly Property _sblaster_sbbaseColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_sbbase + End Get + End Property + + _ + Public ReadOnly Property _sblaster_irqColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_irq + End Get + End Property + + _ + Public ReadOnly Property _sblaster_dmaColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_dma + End Get + End Property + + _ + Public ReadOnly Property _sblaster_hdmaColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_hdma + End Get + End Property + + _ + Public ReadOnly Property _sblaster_sbmixerColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_sbmixer + End Get + End Property + + _ + Public ReadOnly Property _sblaster_oplmodeColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_oplmode + End Get + End Property + + _ + Public ReadOnly Property _sblaster_oplemuColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_oplemu + End Get + End Property + + _ + Public ReadOnly Property _sblaster_oplrateColumn() As Global.System.Data.DataColumn + Get + Return Me._columnsblaster_oplrate + End Get + End Property + + _ + Public ReadOnly Property _gus_gusColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_gus + End Get + End Property + + _ + Public ReadOnly Property _gus_gusrateColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_gusrate + End Get + End Property + + _ + Public ReadOnly Property _gus_gusbaseColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_gusbase + End Get + End Property + + _ + Public ReadOnly Property _gus_gusirqColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_gusirq + End Get + End Property + + _ + Public ReadOnly Property _gus_gusdmaColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_gusdma + End Get + End Property + + _ + Public ReadOnly Property _gus_ultradirColumn() As Global.System.Data.DataColumn + Get + Return Me._columngus_ultradir + End Get + End Property + + _ + Public ReadOnly Property _speaker_pcspeakerColumn() As Global.System.Data.DataColumn + Get + Return Me._columnspeaker_pcspeaker + End Get + End Property + + _ + Public ReadOnly Property _speaker_pcrateColumn() As Global.System.Data.DataColumn + Get + Return Me._columnspeaker_pcrate + End Get + End Property + + _ + Public ReadOnly Property _speaker_tandyColumn() As Global.System.Data.DataColumn + Get + Return Me._columnspeaker_tandy + End Get + End Property + + _ + Public ReadOnly Property _speaker_tandyrateColumn() As Global.System.Data.DataColumn + Get + Return Me._columnspeaker_tandyrate + End Get + End Property + + _ + Public ReadOnly Property _speaker_disneyColumn() As Global.System.Data.DataColumn + Get + Return Me._columnspeaker_disney + End Get + End Property + + _ + Public ReadOnly Property _joystick_joysticktypeColumn() As Global.System.Data.DataColumn + Get + Return Me._columnjoystick_joysticktype + End Get + End Property + + _ + Public ReadOnly Property _joystick_timedColumn() As Global.System.Data.DataColumn + Get + Return Me._columnjoystick_timed + End Get + End Property + + _ + Public ReadOnly Property _joystick_autofireColumn() As Global.System.Data.DataColumn + Get + Return Me._columnjoystick_autofire + End Get + End Property + + _ + Public ReadOnly Property _joystick_swap34Column() As Global.System.Data.DataColumn + Get + Return Me._columnjoystick_swap34 + End Get + End Property + + _ + Public ReadOnly Property _joystick_buttonwrapColumn() As Global.System.Data.DataColumn + Get + Return Me._columnjoystick_buttonwrap + End Get + End Property + + _ + Public ReadOnly Property _serial_serial1Column() As Global.System.Data.DataColumn + Get + Return Me._columnserial_serial1 + End Get + End Property + + _ + Public ReadOnly Property _serial_serial2Column() As Global.System.Data.DataColumn + Get + Return Me._columnserial_serial2 + End Get + End Property + + _ + Public ReadOnly Property _serial_serial3Column() As Global.System.Data.DataColumn + Get + Return Me._columnserial_serial3 + End Get + End Property + + _ + Public ReadOnly Property _serial_serial4Column() As Global.System.Data.DataColumn + Get + Return Me._columnserial_serial4 + End Get + End Property + + _ + Public ReadOnly Property _dos_xmsColumn() As Global.System.Data.DataColumn + Get + Return Me._columndos_xms + End Get + End Property + + _ + Public ReadOnly Property _dos_emsColumn() As Global.System.Data.DataColumn + Get + Return Me._columndos_ems + End Get + End Property + + _ + Public ReadOnly Property _dos_umbColumn() As Global.System.Data.DataColumn + Get + Return Me._columndos_umb + End Get + End Property + + _ + Public ReadOnly Property _dos_keyboardlayoutColumn() As Global.System.Data.DataColumn + Get + Return Me._columndos_keyboardlayout + End Get + End Property + + _ + Public ReadOnly Property _ipx_ipxColumn() As Global.System.Data.DataColumn + Get + Return Me._columnipx_ipx + End Get + End Property + + _ + Public ReadOnly Property _autoexec_beforeColumn() As Global.System.Data.DataColumn + Get + Return Me._columnautoexec_before + End Get + End Property + + _ + Public ReadOnly Property _autoexec_afterColumn() As Global.System.Data.DataColumn + Get + Return Me._columnautoexec_after + End Get + End Property + + _ + Public ReadOnly Property _ml_autocloseColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_autoclose + End Get + End Property + + _ + Public ReadOnly Property _ml_showconsoleColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_showconsole + End Get + End Property + + _ + Public ReadOnly Property _ml_customsettingsColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_customsettings + End Get + End Property + + _ + Public ReadOnly Property _ml_useloadfixColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_useloadfix + End Get + End Property + + _ + Public ReadOnly Property _ml_loadfixColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_loadfix + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_master_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_master_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_master_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_master_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_spkr_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_spkr_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_spkr_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_spkr_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_sb_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_sb_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_sb_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_sb_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_disney_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_disney_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_disney_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_disney_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_gus_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_gus_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_gus_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_gus_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_fm_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_fm_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_fm_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_fm_right + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_cdaudio_leftColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_cdaudio_left + End Get + End Property + + _ + Public ReadOnly Property _ml_volume_cdaudio_rightColumn() As Global.System.Data.DataColumn + Get + Return Me._columnml_volume_cdaudio_right + End Get + End Property + + _ + Public ReadOnly Property p_sdl_pixelshaderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sdl_pixelshader + End Get + End Property + + _ + Public ReadOnly Property p_sdl_pixelshader_forcedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sdl_pixelshader_forced + End Get + End Property + + _ + Public ReadOnly Property p_sdl_outputColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sdl_output + End Get + End Property + + _ + Public ReadOnly Property p_dosbox_vmemsizeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_dosbox_vmemsize + End Get + End Property + + _ + Public ReadOnly Property p_dosbox_memsizekbColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_dosbox_memsizekb + End Get + End Property + + _ + Public ReadOnly Property p_dosbox_forcerateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_dosbox_forcerate + End Get + End Property + + _ + Public ReadOnly Property p_dosbox_pit_hackColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_dosbox_pit_hack + End Get + End Property + + _ + Public ReadOnly Property p_render_scalerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_render_scaler + End Get + End Property + + _ + Public ReadOnly Property p_render_autofitColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_render_autofit + End Get + End Property + + _ + Public ReadOnly Property p_vsync_vsyncmodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_vsync_vsyncmode + End Get + End Property + + _ + Public ReadOnly Property p_vsync_vsyncrateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_vsync_vsyncrate + End Get + End Property + + _ + Public ReadOnly Property p_cpu_cputypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_cpu_cputype + End Get + End Property + + _ + Public ReadOnly Property p_keyboard_auxColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_keyboard_aux + End Get + End Property + + _ + Public ReadOnly Property p_keyboard_auxdeviceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_keyboard_auxdevice + End Get + End Property + + _ + Public ReadOnly Property p_voodooColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_voodoo + End Get + End Property + + _ + Public ReadOnly Property p_mixer_swapstereoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_mixer_swapstereo + End Get + End Property + + _ + Public ReadOnly Property p_midi_midideviceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mididevice + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_reverse_stereoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_reverse_stereo + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_verboseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_verbose + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_threadColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_thread + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_dacColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_dac + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_reverb_modeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_reverb_mode + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_reverb_timeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_reverb_time + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_reverb_levelColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_reverb_level + End Get + End Property + + _ + Public ReadOnly Property p_midi_mt32_partialsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_midi_mt32_partials + End Get + End Property + + _ + Public ReadOnly Property p_sblaster_oplmodeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sblaster_oplmode + End Get + End Property + + _ + Public ReadOnly Property p_sblaster_hardwarebaseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sblaster_hardwarebase + End Get + End Property + + _ + Public ReadOnly Property p_sblaster_goldplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_sblaster_goldplay + End Get + End Property + + _ + Public ReadOnly Property p_innova_innovaColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_innova_innova + End Get + End Property + + _ + Public ReadOnly Property p_innova_samplerateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_innova_samplerate + End Get + End Property + + _ + Public ReadOnly Property p_innova_sidbaseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_innova_sidbase + End Get + End Property + + _ + Public ReadOnly Property p_innova_qualityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_innova_quality + End Get + End Property + + _ + Public ReadOnly Property p_speaker_ps1audioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_speaker_ps1audio + End Get + End Property + + _ + Public ReadOnly Property p_speaker_ps1audiorateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_speaker_ps1audiorate + End Get + End Property + + _ + Public ReadOnly Property p_printer_printerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_printer + End Get + End Property + + _ + Public ReadOnly Property p_printer_dpiColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_dpi + End Get + End Property + + _ + Public ReadOnly Property p_printer_widthColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_width + End Get + End Property + + _ + Public ReadOnly Property p_printer_heightColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_height + End Get + End Property + + _ + Public ReadOnly Property p_printer_printoutputColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_printoutput + End Get + End Property + + _ + Public ReadOnly Property p_printer_multipageColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_multipage + End Get + End Property + + _ + Public ReadOnly Property p_printer_docpathColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_docpath + End Get + End Property + + _ + Public ReadOnly Property p_printer_timeoutColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_printer_timeout + End Get + End Property + + _ + Public ReadOnly Property p_parallel_parallel1Column() As Global.System.Data.DataColumn + Get + Return Me.columnp_parallel_parallel1 + End Get + End Property + + _ + Public ReadOnly Property p_parallel_parallel2Column() As Global.System.Data.DataColumn + Get + Return Me.columnp_parallel_parallel2 + End Get + End Property + + _ + Public ReadOnly Property p_parallel_parallel3Column() As Global.System.Data.DataColumn + Get + Return Me.columnp_parallel_parallel3 + End Get + End Property + + _ + Public ReadOnly Property p_parallel_dongleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_parallel_dongle + End Get + End Property + + _ + Public ReadOnly Property p_glide_glideColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_glide_glide + End Get + End Property + + _ + Public ReadOnly Property p_glide_lfbColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_glide_lfb + End Get + End Property + + _ + Public ReadOnly Property p_glide_splashColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_glide_splash + End Get + End Property + + _ + Public ReadOnly Property p_ne2000_ne2000Column() As Global.System.Data.DataColumn + Get + Return Me.columnp_ne2000_ne2000 + End Get + End Property + + _ + Public ReadOnly Property p_ne2000_nicbaseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ne2000_nicbase + End Get + End Property + + _ + Public ReadOnly Property p_ne2000_nicirqColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ne2000_nicirq + End Get + End Property + + _ + Public ReadOnly Property p_ne2000_macaddrColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ne2000_macaddr + End Get + End Property + + _ + Public ReadOnly Property p_ne2000_realnicColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ne2000_realnic + End Get + End Property + + _ + Public ReadOnly Property p_ide1_enableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide1_enable + End Get + End Property + + _ + Public ReadOnly Property p_ide1_int13fakeioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide1_int13fakeio + End Get + End Property + + _ + Public ReadOnly Property p_ide1_int13fakev86ioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide1_int13fakev86io + End Get + End Property + + _ + Public ReadOnly Property p_ide2_enableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide2_enable + End Get + End Property + + _ + Public ReadOnly Property p_ide2_int13fakeioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide2_int13fakeio + End Get + End Property + + _ + Public ReadOnly Property p_ide2_int13fakev86ioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide2_int13fakev86io + End Get + End Property + + _ + Public ReadOnly Property p_ide3_enableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide3_enable + End Get + End Property + + _ + Public ReadOnly Property p_ide3_int13fakeioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide3_int13fakeio + End Get + End Property + + _ + Public ReadOnly Property p_ide3_int13fakev86ioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide3_int13fakev86io + End Get + End Property + + _ + Public ReadOnly Property p_ide4_enableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide4_enable + End Get + End Property + + _ + Public ReadOnly Property p_ide4_int13fakeioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide4_int13fakeio + End Get + End Property + + _ + Public ReadOnly Property p_ide4_int13fakev86ioColumn() As Global.System.Data.DataColumn + Get + Return Me.columnp_ide4_int13fakev86io + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_DOSBox_ConfigsRow + Get + Return CType(Me.Rows(index),tbl_DOSBox_ConfigsRow) + End Get + End Property + + _ + Public Event tbl_DOSBox_ConfigsRowChanging As tbl_DOSBox_ConfigsRowChangeEventHandler + + _ + Public Event tbl_DOSBox_ConfigsRowChanged As tbl_DOSBox_ConfigsRowChangeEventHandler + + _ + Public Event tbl_DOSBox_ConfigsRowDeleting As tbl_DOSBox_ConfigsRowChangeEventHandler + + _ + Public Event tbl_DOSBox_ConfigsRowDeleted As tbl_DOSBox_ConfigsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_DOSBox_ConfigsRow(ByVal row As tbl_DOSBox_ConfigsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_DOSBox_ConfigsRow( _ + ByVal id_DOSBox_Configs As Long, _ + ByVal id_Rombase_DOSBox_Configs As Long, _ + ByVal isTemplate As Boolean, _ + ByVal Displayname As String, _ + ByVal _sdl_fullscreen As Boolean, _ + ByVal _sdl_fulldouble As Boolean, _ + ByVal _sdl_fullresolution As String, _ + ByVal _sdl_windowresolution As String, _ + ByVal _sdl_output As String, _ + ByVal _sdl_autolock As Boolean, _ + ByVal _sdl_sensitivity As Long, _ + ByVal _sdl_waitonerror As Boolean, _ + ByVal _sdl_priority_1 As String, _ + ByVal _sdl_priority_2 As String, _ + ByVal _sdl_mapperfile As String, _ + ByVal _sdl_usescancodes As Boolean, _ + ByVal _dosbox_language As String, _ + ByVal _dosbox_machine As String, _ + ByVal _dosbox_memsize As Long, _ + ByVal _render_frameskip As Long, _ + ByVal _render_aspect As Boolean, _ + ByVal _render_scaler As String, _ + ByVal _render_scaler_forced As Boolean, _ + ByVal _cpu_core As String, _ + ByVal _cpu_cputype As String, _ + ByVal _cpu_cycles As String, _ + ByVal _cpu_cycleup As Long, _ + ByVal _cpu_cycledown As Long, _ + ByVal _mixer_nosound As Boolean, _ + ByVal _mixer_rate As String, _ + ByVal _mixer_blocksize As String, _ + ByVal _mixer_prebuffer As Long, _ + ByVal _midi_mpu401 As String, _ + ByVal _midi_mididevice As String, _ + ByVal _midi_midiconfig As String, _ + ByVal _sblaster_sbtype As String, _ + ByVal _sblaster_sbbase As String, _ + ByVal _sblaster_irq As String, _ + ByVal _sblaster_dma As String, _ + ByVal _sblaster_hdma As String, _ + ByVal _sblaster_sbmixer As Boolean, _ + ByVal _sblaster_oplmode As String, _ + ByVal _sblaster_oplemu As String, _ + ByVal _sblaster_oplrate As String, _ + ByVal _gus_gus As Boolean, _ + ByVal _gus_gusrate As String, _ + ByVal _gus_gusbase As String, _ + ByVal _gus_gusirq As String, _ + ByVal _gus_gusdma As String, _ + ByVal _gus_ultradir As String, _ + ByVal _speaker_pcspeaker As Boolean, _ + ByVal _speaker_pcrate As String, _ + ByVal _speaker_tandy As String, _ + ByVal _speaker_tandyrate As String, _ + ByVal _speaker_disney As Boolean, _ + ByVal _joystick_joysticktype As String, _ + ByVal _joystick_timed As Boolean, _ + ByVal _joystick_autofire As Boolean, _ + ByVal _joystick_swap34 As Boolean, _ + ByVal _joystick_buttonwrap As Boolean, _ + ByVal _serial_serial1 As String, _ + ByVal _serial_serial2 As String, _ + ByVal _serial_serial3 As String, _ + ByVal _serial_serial4 As String, _ + ByVal _dos_xms As Boolean, _ + ByVal _dos_ems As Boolean, _ + ByVal _dos_umb As Boolean, _ + ByVal _dos_keyboardlayout As String, _ + ByVal _ipx_ipx As Boolean, _ + ByVal _autoexec_before As String, _ + ByVal _autoexec_after As String, _ + ByVal _ml_autoclose As Boolean, _ + ByVal _ml_showconsole As Boolean, _ + ByVal _ml_customsettings As String, _ + ByVal _ml_useloadfix As Boolean, _ + ByVal _ml_loadfix As Long, _ + ByVal _ml_volume_master_left As String, _ + ByVal _ml_volume_master_right As String, _ + ByVal _ml_volume_spkr_left As Long, _ + ByVal _ml_volume_spkr_right As Long, _ + ByVal _ml_volume_sb_left As Long, _ + ByVal _ml_volume_sb_right As Long, _ + ByVal _ml_volume_disney_left As Long, _ + ByVal _ml_volume_disney_right As Long, _ + ByVal _ml_volume_gus_left As Long, _ + ByVal _ml_volume_gus_right As Long, _ + ByVal _ml_volume_fm_left As Long, _ + ByVal _ml_volume_fm_right As Long, _ + ByVal _ml_volume_cdaudio_left As Long, _ + ByVal _ml_volume_cdaudio_right As Long, _ + ByVal p_sdl_pixelshader As String, _ + ByVal p_sdl_pixelshader_forced As Boolean, _ + ByVal p_sdl_output As String, _ + ByVal p_dosbox_vmemsize As Integer, _ + ByVal p_dosbox_memsizekb As Integer, _ + ByVal p_dosbox_forcerate As String, _ + ByVal p_dosbox_pit_hack As String, _ + ByVal p_render_scaler As String, _ + ByVal p_render_autofit As Boolean, _ + ByVal p_vsync_vsyncmode As String, _ + ByVal p_vsync_vsyncrate As Integer, _ + ByVal p_cpu_cputype As String, _ + ByVal p_keyboard_aux As Boolean, _ + ByVal p_keyboard_auxdevice As String, _ + ByVal p_voodoo As String, _ + ByVal p_mixer_swapstereo As Boolean, _ + ByVal p_midi_mididevice As String, _ + ByVal p_midi_mt32_reverse_stereo As Boolean, _ + ByVal p_midi_mt32_verbose As Boolean, _ + ByVal p_midi_mt32_thread As Boolean, _ + ByVal p_midi_mt32_dac As String, _ + ByVal p_midi_mt32_reverb_mode As String, _ + ByVal p_midi_mt32_reverb_time As Integer, _ + ByVal p_midi_mt32_reverb_level As Integer, _ + ByVal p_midi_mt32_partials As Integer, _ + ByVal p_sblaster_oplmode As String, _ + ByVal p_sblaster_hardwarebase As String, _ + ByVal p_sblaster_goldplay As Boolean, _ + ByVal p_innova_innova As Boolean, _ + ByVal p_innova_samplerate As String, _ + ByVal p_innova_sidbase As String, _ + ByVal p_innova_quality As Integer, _ + ByVal p_speaker_ps1audio As Boolean, _ + ByVal p_speaker_ps1audiorate As String, _ + ByVal p_printer_printer As Boolean, _ + ByVal p_printer_dpi As Integer, _ + ByVal p_printer_width As Integer, _ + ByVal p_printer_height As Integer, _ + ByVal p_printer_printoutput As String, _ + ByVal p_printer_multipage As Boolean, _ + ByVal p_printer_docpath As String, _ + ByVal p_printer_timeout As Integer, _ + ByVal p_parallel_parallel1 As String, _ + ByVal p_parallel_parallel2 As String, _ + ByVal p_parallel_parallel3 As String, _ + ByVal p_parallel_dongle As Boolean, _ + ByVal p_glide_glide As String, _ + ByVal p_glide_lfb As String, _ + ByVal p_glide_splash As Boolean, _ + ByVal p_ne2000_ne2000 As Boolean, _ + ByVal p_ne2000_nicbase As String, _ + ByVal p_ne2000_nicirq As String, _ + ByVal p_ne2000_macaddr As String, _ + ByVal p_ne2000_realnic As String, _ + ByVal p_ide1_enable As Boolean, _ + ByVal p_ide1_int13fakeio As Boolean, _ + ByVal p_ide1_int13fakev86io As Boolean, _ + ByVal p_ide2_enable As Boolean, _ + ByVal p_ide2_int13fakeio As Boolean, _ + ByVal p_ide2_int13fakev86io As Boolean, _ + ByVal p_ide3_enable As Boolean, _ + ByVal p_ide3_int13fakeio As Boolean, _ + ByVal p_ide3_int13fakev86io As Boolean, _ + ByVal p_ide4_enable As Boolean, _ + ByVal p_ide4_int13fakeio As Boolean, _ + ByVal p_ide4_int13fakev86io As Boolean) As tbl_DOSBox_ConfigsRow + Dim rowtbl_DOSBox_ConfigsRow As tbl_DOSBox_ConfigsRow = CType(Me.NewRow,tbl_DOSBox_ConfigsRow) + Dim columnValuesArray() As Object = New Object() {id_DOSBox_Configs, id_Rombase_DOSBox_Configs, isTemplate, Displayname, _sdl_fullscreen, _sdl_fulldouble, _sdl_fullresolution, _sdl_windowresolution, _sdl_output, _sdl_autolock, _sdl_sensitivity, _sdl_waitonerror, _sdl_priority_1, _sdl_priority_2, _sdl_mapperfile, _sdl_usescancodes, _dosbox_language, _dosbox_machine, _dosbox_memsize, _render_frameskip, _render_aspect, _render_scaler, _render_scaler_forced, _cpu_core, _cpu_cputype, _cpu_cycles, _cpu_cycleup, _cpu_cycledown, _mixer_nosound, _mixer_rate, _mixer_blocksize, _mixer_prebuffer, _midi_mpu401, _midi_mididevice, _midi_midiconfig, _sblaster_sbtype, _sblaster_sbbase, _sblaster_irq, _sblaster_dma, _sblaster_hdma, _sblaster_sbmixer, _sblaster_oplmode, _sblaster_oplemu, _sblaster_oplrate, _gus_gus, _gus_gusrate, _gus_gusbase, _gus_gusirq, _gus_gusdma, _gus_ultradir, _speaker_pcspeaker, _speaker_pcrate, _speaker_tandy, _speaker_tandyrate, _speaker_disney, _joystick_joysticktype, _joystick_timed, _joystick_autofire, _joystick_swap34, _joystick_buttonwrap, _serial_serial1, _serial_serial2, _serial_serial3, _serial_serial4, _dos_xms, _dos_ems, _dos_umb, _dos_keyboardlayout, _ipx_ipx, _autoexec_before, _autoexec_after, _ml_autoclose, _ml_showconsole, _ml_customsettings, _ml_useloadfix, _ml_loadfix, _ml_volume_master_left, _ml_volume_master_right, _ml_volume_spkr_left, _ml_volume_spkr_right, _ml_volume_sb_left, _ml_volume_sb_right, _ml_volume_disney_left, _ml_volume_disney_right, _ml_volume_gus_left, _ml_volume_gus_right, _ml_volume_fm_left, _ml_volume_fm_right, _ml_volume_cdaudio_left, _ml_volume_cdaudio_right, p_sdl_pixelshader, p_sdl_pixelshader_forced, p_sdl_output, p_dosbox_vmemsize, p_dosbox_memsizekb, p_dosbox_forcerate, p_dosbox_pit_hack, p_render_scaler, p_render_autofit, p_vsync_vsyncmode, p_vsync_vsyncrate, p_cpu_cputype, p_keyboard_aux, p_keyboard_auxdevice, p_voodoo, p_mixer_swapstereo, p_midi_mididevice, p_midi_mt32_reverse_stereo, p_midi_mt32_verbose, p_midi_mt32_thread, p_midi_mt32_dac, p_midi_mt32_reverb_mode, p_midi_mt32_reverb_time, p_midi_mt32_reverb_level, p_midi_mt32_partials, p_sblaster_oplmode, p_sblaster_hardwarebase, p_sblaster_goldplay, p_innova_innova, p_innova_samplerate, p_innova_sidbase, p_innova_quality, p_speaker_ps1audio, p_speaker_ps1audiorate, p_printer_printer, p_printer_dpi, p_printer_width, p_printer_height, p_printer_printoutput, p_printer_multipage, p_printer_docpath, p_printer_timeout, p_parallel_parallel1, p_parallel_parallel2, p_parallel_parallel3, p_parallel_dongle, p_glide_glide, p_glide_lfb, p_glide_splash, p_ne2000_ne2000, p_ne2000_nicbase, p_ne2000_nicirq, p_ne2000_macaddr, p_ne2000_realnic, p_ide1_enable, p_ide1_int13fakeio, p_ide1_int13fakev86io, p_ide2_enable, p_ide2_int13fakeio, p_ide2_int13fakev86io, p_ide3_enable, p_ide3_int13fakeio, p_ide3_int13fakev86io, p_ide4_enable, p_ide4_int13fakeio, p_ide4_int13fakev86io} + rowtbl_DOSBox_ConfigsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_DOSBox_ConfigsRow) + Return rowtbl_DOSBox_ConfigsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_DOSBox_ConfigsDataTable = CType(MyBase.Clone,tbl_DOSBox_ConfigsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_DOSBox_ConfigsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_DOSBox_Configs = MyBase.Columns("id_DOSBox_Configs") + Me.columnid_Rombase_DOSBox_Configs = MyBase.Columns("id_Rombase_DOSBox_Configs") + Me.columnisTemplate = MyBase.Columns("isTemplate") + Me.columnDisplayname = MyBase.Columns("Displayname") + Me._columnsdl_fullscreen = MyBase.Columns("sdl-fullscreen") + Me._columnsdl_fulldouble = MyBase.Columns("sdl-fulldouble") + Me._columnsdl_fullresolution = MyBase.Columns("sdl-fullresolution") + Me._columnsdl_windowresolution = MyBase.Columns("sdl-windowresolution") + Me._columnsdl_output = MyBase.Columns("sdl-output") + Me._columnsdl_autolock = MyBase.Columns("sdl-autolock") + Me._columnsdl_sensitivity = MyBase.Columns("sdl-sensitivity") + Me._columnsdl_waitonerror = MyBase.Columns("sdl-waitonerror") + Me._columnsdl_priority_1 = MyBase.Columns("sdl-priority_1") + Me._columnsdl_priority_2 = MyBase.Columns("sdl-priority_2") + Me._columnsdl_mapperfile = MyBase.Columns("sdl-mapperfile") + Me._columnsdl_usescancodes = MyBase.Columns("sdl-usescancodes") + Me._columndosbox_language = MyBase.Columns("dosbox-language") + Me._columndosbox_machine = MyBase.Columns("dosbox-machine") + Me._columndosbox_memsize = MyBase.Columns("dosbox-memsize") + Me._columnrender_frameskip = MyBase.Columns("render-frameskip") + Me._columnrender_aspect = MyBase.Columns("render-aspect") + Me._columnrender_scaler = MyBase.Columns("render-scaler") + Me._columnrender_scaler_forced = MyBase.Columns("render-scaler_forced") + Me._columncpu_core = MyBase.Columns("cpu-core") + Me._columncpu_cputype = MyBase.Columns("cpu-cputype") + Me._columncpu_cycles = MyBase.Columns("cpu-cycles") + Me._columncpu_cycleup = MyBase.Columns("cpu-cycleup") + Me._columncpu_cycledown = MyBase.Columns("cpu-cycledown") + Me._columnmixer_nosound = MyBase.Columns("mixer-nosound") + Me._columnmixer_rate = MyBase.Columns("mixer-rate") + Me._columnmixer_blocksize = MyBase.Columns("mixer-blocksize") + Me._columnmixer_prebuffer = MyBase.Columns("mixer-prebuffer") + Me._columnmidi_mpu401 = MyBase.Columns("midi-mpu401") + Me._columnmidi_mididevice = MyBase.Columns("midi-mididevice") + Me._columnmidi_midiconfig = MyBase.Columns("midi-midiconfig") + Me._columnsblaster_sbtype = MyBase.Columns("sblaster-sbtype") + Me._columnsblaster_sbbase = MyBase.Columns("sblaster-sbbase") + Me._columnsblaster_irq = MyBase.Columns("sblaster-irq") + Me._columnsblaster_dma = MyBase.Columns("sblaster-dma") + Me._columnsblaster_hdma = MyBase.Columns("sblaster-hdma") + Me._columnsblaster_sbmixer = MyBase.Columns("sblaster-sbmixer") + Me._columnsblaster_oplmode = MyBase.Columns("sblaster-oplmode") + Me._columnsblaster_oplemu = MyBase.Columns("sblaster-oplemu") + Me._columnsblaster_oplrate = MyBase.Columns("sblaster-oplrate") + Me._columngus_gus = MyBase.Columns("gus-gus") + Me._columngus_gusrate = MyBase.Columns("gus-gusrate") + Me._columngus_gusbase = MyBase.Columns("gus-gusbase") + Me._columngus_gusirq = MyBase.Columns("gus-gusirq") + Me._columngus_gusdma = MyBase.Columns("gus-gusdma") + Me._columngus_ultradir = MyBase.Columns("gus-ultradir") + Me._columnspeaker_pcspeaker = MyBase.Columns("speaker-pcspeaker") + Me._columnspeaker_pcrate = MyBase.Columns("speaker-pcrate") + Me._columnspeaker_tandy = MyBase.Columns("speaker-tandy") + Me._columnspeaker_tandyrate = MyBase.Columns("speaker-tandyrate") + Me._columnspeaker_disney = MyBase.Columns("speaker-disney") + Me._columnjoystick_joysticktype = MyBase.Columns("joystick-joysticktype") + Me._columnjoystick_timed = MyBase.Columns("joystick-timed") + Me._columnjoystick_autofire = MyBase.Columns("joystick-autofire") + Me._columnjoystick_swap34 = MyBase.Columns("joystick-swap34") + Me._columnjoystick_buttonwrap = MyBase.Columns("joystick-buttonwrap") + Me._columnserial_serial1 = MyBase.Columns("serial-serial1") + Me._columnserial_serial2 = MyBase.Columns("serial-serial2") + Me._columnserial_serial3 = MyBase.Columns("serial-serial3") + Me._columnserial_serial4 = MyBase.Columns("serial-serial4") + Me._columndos_xms = MyBase.Columns("dos-xms") + Me._columndos_ems = MyBase.Columns("dos-ems") + Me._columndos_umb = MyBase.Columns("dos-umb") + Me._columndos_keyboardlayout = MyBase.Columns("dos-keyboardlayout") + Me._columnipx_ipx = MyBase.Columns("ipx-ipx") + Me._columnautoexec_before = MyBase.Columns("autoexec-before") + Me._columnautoexec_after = MyBase.Columns("autoexec-after") + Me._columnml_autoclose = MyBase.Columns("ml-autoclose") + Me._columnml_showconsole = MyBase.Columns("ml-showconsole") + Me._columnml_customsettings = MyBase.Columns("ml-customsettings") + Me._columnml_useloadfix = MyBase.Columns("ml-useloadfix") + Me._columnml_loadfix = MyBase.Columns("ml-loadfix") + Me._columnml_volume_master_left = MyBase.Columns("ml-volume_master_left") + Me._columnml_volume_master_right = MyBase.Columns("ml-volume_master_right") + Me._columnml_volume_spkr_left = MyBase.Columns("ml-volume_spkr_left") + Me._columnml_volume_spkr_right = MyBase.Columns("ml-volume_spkr_right") + Me._columnml_volume_sb_left = MyBase.Columns("ml-volume_sb_left") + Me._columnml_volume_sb_right = MyBase.Columns("ml-volume_sb_right") + Me._columnml_volume_disney_left = MyBase.Columns("ml-volume_disney_left") + Me._columnml_volume_disney_right = MyBase.Columns("ml-volume_disney_right") + Me._columnml_volume_gus_left = MyBase.Columns("ml-volume_gus_left") + Me._columnml_volume_gus_right = MyBase.Columns("ml-volume_gus_right") + Me._columnml_volume_fm_left = MyBase.Columns("ml-volume_fm_left") + Me._columnml_volume_fm_right = MyBase.Columns("ml-volume_fm_right") + Me._columnml_volume_cdaudio_left = MyBase.Columns("ml-volume_cdaudio_left") + Me._columnml_volume_cdaudio_right = MyBase.Columns("ml-volume_cdaudio_right") + Me.columnp_sdl_pixelshader = MyBase.Columns("p_sdl_pixelshader") + Me.columnp_sdl_pixelshader_forced = MyBase.Columns("p_sdl_pixelshader_forced") + Me.columnp_sdl_output = MyBase.Columns("p_sdl_output") + Me.columnp_dosbox_vmemsize = MyBase.Columns("p_dosbox_vmemsize") + Me.columnp_dosbox_memsizekb = MyBase.Columns("p_dosbox_memsizekb") + Me.columnp_dosbox_forcerate = MyBase.Columns("p_dosbox_forcerate") + Me.columnp_dosbox_pit_hack = MyBase.Columns("p_dosbox_pit_hack") + Me.columnp_render_scaler = MyBase.Columns("p_render_scaler") + Me.columnp_render_autofit = MyBase.Columns("p_render_autofit") + Me.columnp_vsync_vsyncmode = MyBase.Columns("p_vsync_vsyncmode") + Me.columnp_vsync_vsyncrate = MyBase.Columns("p_vsync_vsyncrate") + Me.columnp_cpu_cputype = MyBase.Columns("p_cpu_cputype") + Me.columnp_keyboard_aux = MyBase.Columns("p_keyboard_aux") + Me.columnp_keyboard_auxdevice = MyBase.Columns("p_keyboard_auxdevice") + Me.columnp_voodoo = MyBase.Columns("p_voodoo") + Me.columnp_mixer_swapstereo = MyBase.Columns("p_mixer_swapstereo") + Me.columnp_midi_mididevice = MyBase.Columns("p_midi_mididevice") + Me.columnp_midi_mt32_reverse_stereo = MyBase.Columns("p_midi_mt32_reverse_stereo") + Me.columnp_midi_mt32_verbose = MyBase.Columns("p_midi_mt32_verbose") + Me.columnp_midi_mt32_thread = MyBase.Columns("p_midi_mt32_thread") + Me.columnp_midi_mt32_dac = MyBase.Columns("p_midi_mt32_dac") + Me.columnp_midi_mt32_reverb_mode = MyBase.Columns("p_midi_mt32_reverb_mode") + Me.columnp_midi_mt32_reverb_time = MyBase.Columns("p_midi_mt32_reverb_time") + Me.columnp_midi_mt32_reverb_level = MyBase.Columns("p_midi_mt32_reverb_level") + Me.columnp_midi_mt32_partials = MyBase.Columns("p_midi_mt32_partials") + Me.columnp_sblaster_oplmode = MyBase.Columns("p_sblaster_oplmode") + Me.columnp_sblaster_hardwarebase = MyBase.Columns("p_sblaster_hardwarebase") + Me.columnp_sblaster_goldplay = MyBase.Columns("p_sblaster_goldplay") + Me.columnp_innova_innova = MyBase.Columns("p_innova_innova") + Me.columnp_innova_samplerate = MyBase.Columns("p_innova_samplerate") + Me.columnp_innova_sidbase = MyBase.Columns("p_innova_sidbase") + Me.columnp_innova_quality = MyBase.Columns("p_innova_quality") + Me.columnp_speaker_ps1audio = MyBase.Columns("p_speaker_ps1audio") + Me.columnp_speaker_ps1audiorate = MyBase.Columns("p_speaker_ps1audiorate") + Me.columnp_printer_printer = MyBase.Columns("p_printer_printer") + Me.columnp_printer_dpi = MyBase.Columns("p_printer_dpi") + Me.columnp_printer_width = MyBase.Columns("p_printer_width") + Me.columnp_printer_height = MyBase.Columns("p_printer_height") + Me.columnp_printer_printoutput = MyBase.Columns("p_printer_printoutput") + Me.columnp_printer_multipage = MyBase.Columns("p_printer_multipage") + Me.columnp_printer_docpath = MyBase.Columns("p_printer_docpath") + Me.columnp_printer_timeout = MyBase.Columns("p_printer_timeout") + Me.columnp_parallel_parallel1 = MyBase.Columns("p_parallel_parallel1") + Me.columnp_parallel_parallel2 = MyBase.Columns("p_parallel_parallel2") + Me.columnp_parallel_parallel3 = MyBase.Columns("p_parallel_parallel3") + Me.columnp_parallel_dongle = MyBase.Columns("p_parallel_dongle") + Me.columnp_glide_glide = MyBase.Columns("p_glide_glide") + Me.columnp_glide_lfb = MyBase.Columns("p_glide_lfb") + Me.columnp_glide_splash = MyBase.Columns("p_glide_splash") + Me.columnp_ne2000_ne2000 = MyBase.Columns("p_ne2000_ne2000") + Me.columnp_ne2000_nicbase = MyBase.Columns("p_ne2000_nicbase") + Me.columnp_ne2000_nicirq = MyBase.Columns("p_ne2000_nicirq") + Me.columnp_ne2000_macaddr = MyBase.Columns("p_ne2000_macaddr") + Me.columnp_ne2000_realnic = MyBase.Columns("p_ne2000_realnic") + Me.columnp_ide1_enable = MyBase.Columns("p_ide1_enable") + Me.columnp_ide1_int13fakeio = MyBase.Columns("p_ide1_int13fakeio") + Me.columnp_ide1_int13fakev86io = MyBase.Columns("p_ide1_int13fakev86io") + Me.columnp_ide2_enable = MyBase.Columns("p_ide2_enable") + Me.columnp_ide2_int13fakeio = MyBase.Columns("p_ide2_int13fakeio") + Me.columnp_ide2_int13fakev86io = MyBase.Columns("p_ide2_int13fakev86io") + Me.columnp_ide3_enable = MyBase.Columns("p_ide3_enable") + Me.columnp_ide3_int13fakeio = MyBase.Columns("p_ide3_int13fakeio") + Me.columnp_ide3_int13fakev86io = MyBase.Columns("p_ide3_int13fakev86io") + Me.columnp_ide4_enable = MyBase.Columns("p_ide4_enable") + Me.columnp_ide4_int13fakeio = MyBase.Columns("p_ide4_int13fakeio") + Me.columnp_ide4_int13fakev86io = MyBase.Columns("p_ide4_int13fakev86io") + End Sub + + _ + Private Sub InitClass() + Me.columnid_DOSBox_Configs = New Global.System.Data.DataColumn("id_DOSBox_Configs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Configs) + Me.columnid_Rombase_DOSBox_Configs = New Global.System.Data.DataColumn("id_Rombase_DOSBox_Configs", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Rombase_DOSBox_Configs) + Me.columnisTemplate = New Global.System.Data.DataColumn("isTemplate", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisTemplate) + Me.columnDisplayname = New Global.System.Data.DataColumn("Displayname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayname) + Me._columnsdl_fullscreen = New Global.System.Data.DataColumn("sdl-fullscreen", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_fullscreen.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_fullscreen") + Me._columnsdl_fullscreen.ExtendedProperties.Add("Generator_UserColumnName", "sdl-fullscreen") + MyBase.Columns.Add(Me._columnsdl_fullscreen) + Me._columnsdl_fulldouble = New Global.System.Data.DataColumn("sdl-fulldouble", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_fulldouble.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_fulldouble") + Me._columnsdl_fulldouble.ExtendedProperties.Add("Generator_UserColumnName", "sdl-fulldouble") + MyBase.Columns.Add(Me._columnsdl_fulldouble) + Me._columnsdl_fullresolution = New Global.System.Data.DataColumn("sdl-fullresolution", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_fullresolution.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_fullresolution") + Me._columnsdl_fullresolution.ExtendedProperties.Add("Generator_UserColumnName", "sdl-fullresolution") + MyBase.Columns.Add(Me._columnsdl_fullresolution) + Me._columnsdl_windowresolution = New Global.System.Data.DataColumn("sdl-windowresolution", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_windowresolution.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_windowresolution") + Me._columnsdl_windowresolution.ExtendedProperties.Add("Generator_UserColumnName", "sdl-windowresolution") + MyBase.Columns.Add(Me._columnsdl_windowresolution) + Me._columnsdl_output = New Global.System.Data.DataColumn("sdl-output", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_output.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_output") + Me._columnsdl_output.ExtendedProperties.Add("Generator_UserColumnName", "sdl-output") + MyBase.Columns.Add(Me._columnsdl_output) + Me._columnsdl_autolock = New Global.System.Data.DataColumn("sdl-autolock", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_autolock.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_autolock") + Me._columnsdl_autolock.ExtendedProperties.Add("Generator_UserColumnName", "sdl-autolock") + MyBase.Columns.Add(Me._columnsdl_autolock) + Me._columnsdl_sensitivity = New Global.System.Data.DataColumn("sdl-sensitivity", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_sensitivity.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_sensitivity") + Me._columnsdl_sensitivity.ExtendedProperties.Add("Generator_UserColumnName", "sdl-sensitivity") + MyBase.Columns.Add(Me._columnsdl_sensitivity) + Me._columnsdl_waitonerror = New Global.System.Data.DataColumn("sdl-waitonerror", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_waitonerror.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_waitonerror") + Me._columnsdl_waitonerror.ExtendedProperties.Add("Generator_UserColumnName", "sdl-waitonerror") + MyBase.Columns.Add(Me._columnsdl_waitonerror) + Me._columnsdl_priority_1 = New Global.System.Data.DataColumn("sdl-priority_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_priority_1.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_priority_1") + Me._columnsdl_priority_1.ExtendedProperties.Add("Generator_UserColumnName", "sdl-priority_1") + MyBase.Columns.Add(Me._columnsdl_priority_1) + Me._columnsdl_priority_2 = New Global.System.Data.DataColumn("sdl-priority_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_priority_2.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_priority_2") + Me._columnsdl_priority_2.ExtendedProperties.Add("Generator_UserColumnName", "sdl-priority_2") + MyBase.Columns.Add(Me._columnsdl_priority_2) + Me._columnsdl_mapperfile = New Global.System.Data.DataColumn("sdl-mapperfile", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_mapperfile.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_mapperfile") + Me._columnsdl_mapperfile.ExtendedProperties.Add("Generator_UserColumnName", "sdl-mapperfile") + MyBase.Columns.Add(Me._columnsdl_mapperfile) + Me._columnsdl_usescancodes = New Global.System.Data.DataColumn("sdl-usescancodes", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsdl_usescancodes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsdl_usescancodes") + Me._columnsdl_usescancodes.ExtendedProperties.Add("Generator_UserColumnName", "sdl-usescancodes") + MyBase.Columns.Add(Me._columnsdl_usescancodes) + Me._columndosbox_language = New Global.System.Data.DataColumn("dosbox-language", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columndosbox_language.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndosbox_language") + Me._columndosbox_language.ExtendedProperties.Add("Generator_UserColumnName", "dosbox-language") + MyBase.Columns.Add(Me._columndosbox_language) + Me._columndosbox_machine = New Global.System.Data.DataColumn("dosbox-machine", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columndosbox_machine.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndosbox_machine") + Me._columndosbox_machine.ExtendedProperties.Add("Generator_UserColumnName", "dosbox-machine") + MyBase.Columns.Add(Me._columndosbox_machine) + Me._columndosbox_memsize = New Global.System.Data.DataColumn("dosbox-memsize", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columndosbox_memsize.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndosbox_memsize") + Me._columndosbox_memsize.ExtendedProperties.Add("Generator_UserColumnName", "dosbox-memsize") + MyBase.Columns.Add(Me._columndosbox_memsize) + Me._columnrender_frameskip = New Global.System.Data.DataColumn("render-frameskip", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnrender_frameskip.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnrender_frameskip") + Me._columnrender_frameskip.ExtendedProperties.Add("Generator_UserColumnName", "render-frameskip") + MyBase.Columns.Add(Me._columnrender_frameskip) + Me._columnrender_aspect = New Global.System.Data.DataColumn("render-aspect", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnrender_aspect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnrender_aspect") + Me._columnrender_aspect.ExtendedProperties.Add("Generator_UserColumnName", "render-aspect") + MyBase.Columns.Add(Me._columnrender_aspect) + Me._columnrender_scaler = New Global.System.Data.DataColumn("render-scaler", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnrender_scaler.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnrender_scaler") + Me._columnrender_scaler.ExtendedProperties.Add("Generator_UserColumnName", "render-scaler") + MyBase.Columns.Add(Me._columnrender_scaler) + Me._columnrender_scaler_forced = New Global.System.Data.DataColumn("render-scaler_forced", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnrender_scaler_forced.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnrender_scaler_forced") + Me._columnrender_scaler_forced.ExtendedProperties.Add("Generator_UserColumnName", "render-scaler_forced") + MyBase.Columns.Add(Me._columnrender_scaler_forced) + Me._columncpu_core = New Global.System.Data.DataColumn("cpu-core", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columncpu_core.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columncpu_core") + Me._columncpu_core.ExtendedProperties.Add("Generator_UserColumnName", "cpu-core") + MyBase.Columns.Add(Me._columncpu_core) + Me._columncpu_cputype = New Global.System.Data.DataColumn("cpu-cputype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columncpu_cputype.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columncpu_cputype") + Me._columncpu_cputype.ExtendedProperties.Add("Generator_UserColumnName", "cpu-cputype") + MyBase.Columns.Add(Me._columncpu_cputype) + Me._columncpu_cycles = New Global.System.Data.DataColumn("cpu-cycles", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columncpu_cycles.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columncpu_cycles") + Me._columncpu_cycles.ExtendedProperties.Add("Generator_UserColumnName", "cpu-cycles") + MyBase.Columns.Add(Me._columncpu_cycles) + Me._columncpu_cycleup = New Global.System.Data.DataColumn("cpu-cycleup", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columncpu_cycleup.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columncpu_cycleup") + Me._columncpu_cycleup.ExtendedProperties.Add("Generator_UserColumnName", "cpu-cycleup") + MyBase.Columns.Add(Me._columncpu_cycleup) + Me._columncpu_cycledown = New Global.System.Data.DataColumn("cpu-cycledown", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columncpu_cycledown.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columncpu_cycledown") + Me._columncpu_cycledown.ExtendedProperties.Add("Generator_UserColumnName", "cpu-cycledown") + MyBase.Columns.Add(Me._columncpu_cycledown) + Me._columnmixer_nosound = New Global.System.Data.DataColumn("mixer-nosound", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnmixer_nosound.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmixer_nosound") + Me._columnmixer_nosound.ExtendedProperties.Add("Generator_UserColumnName", "mixer-nosound") + MyBase.Columns.Add(Me._columnmixer_nosound) + Me._columnmixer_rate = New Global.System.Data.DataColumn("mixer-rate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnmixer_rate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmixer_rate") + Me._columnmixer_rate.ExtendedProperties.Add("Generator_UserColumnName", "mixer-rate") + MyBase.Columns.Add(Me._columnmixer_rate) + Me._columnmixer_blocksize = New Global.System.Data.DataColumn("mixer-blocksize", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnmixer_blocksize.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmixer_blocksize") + Me._columnmixer_blocksize.ExtendedProperties.Add("Generator_UserColumnName", "mixer-blocksize") + MyBase.Columns.Add(Me._columnmixer_blocksize) + Me._columnmixer_prebuffer = New Global.System.Data.DataColumn("mixer-prebuffer", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnmixer_prebuffer.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmixer_prebuffer") + Me._columnmixer_prebuffer.ExtendedProperties.Add("Generator_UserColumnName", "mixer-prebuffer") + MyBase.Columns.Add(Me._columnmixer_prebuffer) + Me._columnmidi_mpu401 = New Global.System.Data.DataColumn("midi-mpu401", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnmidi_mpu401.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmidi_mpu401") + Me._columnmidi_mpu401.ExtendedProperties.Add("Generator_UserColumnName", "midi-mpu401") + MyBase.Columns.Add(Me._columnmidi_mpu401) + Me._columnmidi_mididevice = New Global.System.Data.DataColumn("midi-mididevice", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnmidi_mididevice.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmidi_mididevice") + Me._columnmidi_mididevice.ExtendedProperties.Add("Generator_UserColumnName", "midi-mididevice") + MyBase.Columns.Add(Me._columnmidi_mididevice) + Me._columnmidi_midiconfig = New Global.System.Data.DataColumn("midi-midiconfig", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnmidi_midiconfig.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnmidi_midiconfig") + Me._columnmidi_midiconfig.ExtendedProperties.Add("Generator_UserColumnName", "midi-midiconfig") + MyBase.Columns.Add(Me._columnmidi_midiconfig) + Me._columnsblaster_sbtype = New Global.System.Data.DataColumn("sblaster-sbtype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_sbtype.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_sbtype") + Me._columnsblaster_sbtype.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-sbtype") + MyBase.Columns.Add(Me._columnsblaster_sbtype) + Me._columnsblaster_sbbase = New Global.System.Data.DataColumn("sblaster-sbbase", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_sbbase.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_sbbase") + Me._columnsblaster_sbbase.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-sbbase") + MyBase.Columns.Add(Me._columnsblaster_sbbase) + Me._columnsblaster_irq = New Global.System.Data.DataColumn("sblaster-irq", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_irq.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_irq") + Me._columnsblaster_irq.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-irq") + MyBase.Columns.Add(Me._columnsblaster_irq) + Me._columnsblaster_dma = New Global.System.Data.DataColumn("sblaster-dma", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_dma.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_dma") + Me._columnsblaster_dma.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-dma") + MyBase.Columns.Add(Me._columnsblaster_dma) + Me._columnsblaster_hdma = New Global.System.Data.DataColumn("sblaster-hdma", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_hdma.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_hdma") + Me._columnsblaster_hdma.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-hdma") + MyBase.Columns.Add(Me._columnsblaster_hdma) + Me._columnsblaster_sbmixer = New Global.System.Data.DataColumn("sblaster-sbmixer", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_sbmixer.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_sbmixer") + Me._columnsblaster_sbmixer.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-sbmixer") + MyBase.Columns.Add(Me._columnsblaster_sbmixer) + Me._columnsblaster_oplmode = New Global.System.Data.DataColumn("sblaster-oplmode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_oplmode.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_oplmode") + Me._columnsblaster_oplmode.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-oplmode") + MyBase.Columns.Add(Me._columnsblaster_oplmode) + Me._columnsblaster_oplemu = New Global.System.Data.DataColumn("sblaster-oplemu", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_oplemu.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_oplemu") + Me._columnsblaster_oplemu.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-oplemu") + MyBase.Columns.Add(Me._columnsblaster_oplemu) + Me._columnsblaster_oplrate = New Global.System.Data.DataColumn("sblaster-oplrate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnsblaster_oplrate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnsblaster_oplrate") + Me._columnsblaster_oplrate.ExtendedProperties.Add("Generator_UserColumnName", "sblaster-oplrate") + MyBase.Columns.Add(Me._columnsblaster_oplrate) + Me._columngus_gus = New Global.System.Data.DataColumn("gus-gus", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_gus.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_gus") + Me._columngus_gus.ExtendedProperties.Add("Generator_UserColumnName", "gus-gus") + MyBase.Columns.Add(Me._columngus_gus) + Me._columngus_gusrate = New Global.System.Data.DataColumn("gus-gusrate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_gusrate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_gusrate") + Me._columngus_gusrate.ExtendedProperties.Add("Generator_UserColumnName", "gus-gusrate") + MyBase.Columns.Add(Me._columngus_gusrate) + Me._columngus_gusbase = New Global.System.Data.DataColumn("gus-gusbase", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_gusbase.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_gusbase") + Me._columngus_gusbase.ExtendedProperties.Add("Generator_UserColumnName", "gus-gusbase") + MyBase.Columns.Add(Me._columngus_gusbase) + Me._columngus_gusirq = New Global.System.Data.DataColumn("gus-gusirq", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_gusirq.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_gusirq") + Me._columngus_gusirq.ExtendedProperties.Add("Generator_UserColumnName", "gus-gusirq") + MyBase.Columns.Add(Me._columngus_gusirq) + Me._columngus_gusdma = New Global.System.Data.DataColumn("gus-gusdma", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_gusdma.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_gusdma") + Me._columngus_gusdma.ExtendedProperties.Add("Generator_UserColumnName", "gus-gusdma") + MyBase.Columns.Add(Me._columngus_gusdma) + Me._columngus_ultradir = New Global.System.Data.DataColumn("gus-ultradir", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columngus_ultradir.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columngus_ultradir") + Me._columngus_ultradir.ExtendedProperties.Add("Generator_UserColumnName", "gus-ultradir") + MyBase.Columns.Add(Me._columngus_ultradir) + Me._columnspeaker_pcspeaker = New Global.System.Data.DataColumn("speaker-pcspeaker", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnspeaker_pcspeaker.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnspeaker_pcspeaker") + Me._columnspeaker_pcspeaker.ExtendedProperties.Add("Generator_UserColumnName", "speaker-pcspeaker") + MyBase.Columns.Add(Me._columnspeaker_pcspeaker) + Me._columnspeaker_pcrate = New Global.System.Data.DataColumn("speaker-pcrate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnspeaker_pcrate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnspeaker_pcrate") + Me._columnspeaker_pcrate.ExtendedProperties.Add("Generator_UserColumnName", "speaker-pcrate") + MyBase.Columns.Add(Me._columnspeaker_pcrate) + Me._columnspeaker_tandy = New Global.System.Data.DataColumn("speaker-tandy", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnspeaker_tandy.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnspeaker_tandy") + Me._columnspeaker_tandy.ExtendedProperties.Add("Generator_UserColumnName", "speaker-tandy") + MyBase.Columns.Add(Me._columnspeaker_tandy) + Me._columnspeaker_tandyrate = New Global.System.Data.DataColumn("speaker-tandyrate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnspeaker_tandyrate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnspeaker_tandyrate") + Me._columnspeaker_tandyrate.ExtendedProperties.Add("Generator_UserColumnName", "speaker-tandyrate") + MyBase.Columns.Add(Me._columnspeaker_tandyrate) + Me._columnspeaker_disney = New Global.System.Data.DataColumn("speaker-disney", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnspeaker_disney.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnspeaker_disney") + Me._columnspeaker_disney.ExtendedProperties.Add("Generator_UserColumnName", "speaker-disney") + MyBase.Columns.Add(Me._columnspeaker_disney) + Me._columnjoystick_joysticktype = New Global.System.Data.DataColumn("joystick-joysticktype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnjoystick_joysticktype.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnjoystick_joysticktype") + Me._columnjoystick_joysticktype.ExtendedProperties.Add("Generator_UserColumnName", "joystick-joysticktype") + MyBase.Columns.Add(Me._columnjoystick_joysticktype) + Me._columnjoystick_timed = New Global.System.Data.DataColumn("joystick-timed", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnjoystick_timed.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnjoystick_timed") + Me._columnjoystick_timed.ExtendedProperties.Add("Generator_UserColumnName", "joystick-timed") + MyBase.Columns.Add(Me._columnjoystick_timed) + Me._columnjoystick_autofire = New Global.System.Data.DataColumn("joystick-autofire", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnjoystick_autofire.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnjoystick_autofire") + Me._columnjoystick_autofire.ExtendedProperties.Add("Generator_UserColumnName", "joystick-autofire") + MyBase.Columns.Add(Me._columnjoystick_autofire) + Me._columnjoystick_swap34 = New Global.System.Data.DataColumn("joystick-swap34", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnjoystick_swap34.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnjoystick_swap34") + Me._columnjoystick_swap34.ExtendedProperties.Add("Generator_UserColumnName", "joystick-swap34") + MyBase.Columns.Add(Me._columnjoystick_swap34) + Me._columnjoystick_buttonwrap = New Global.System.Data.DataColumn("joystick-buttonwrap", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnjoystick_buttonwrap.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnjoystick_buttonwrap") + Me._columnjoystick_buttonwrap.ExtendedProperties.Add("Generator_UserColumnName", "joystick-buttonwrap") + MyBase.Columns.Add(Me._columnjoystick_buttonwrap) + Me._columnserial_serial1 = New Global.System.Data.DataColumn("serial-serial1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnserial_serial1.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnserial_serial1") + Me._columnserial_serial1.ExtendedProperties.Add("Generator_UserColumnName", "serial-serial1") + MyBase.Columns.Add(Me._columnserial_serial1) + Me._columnserial_serial2 = New Global.System.Data.DataColumn("serial-serial2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnserial_serial2.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnserial_serial2") + Me._columnserial_serial2.ExtendedProperties.Add("Generator_UserColumnName", "serial-serial2") + MyBase.Columns.Add(Me._columnserial_serial2) + Me._columnserial_serial3 = New Global.System.Data.DataColumn("serial-serial3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnserial_serial3.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnserial_serial3") + Me._columnserial_serial3.ExtendedProperties.Add("Generator_UserColumnName", "serial-serial3") + MyBase.Columns.Add(Me._columnserial_serial3) + Me._columnserial_serial4 = New Global.System.Data.DataColumn("serial-serial4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnserial_serial4.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnserial_serial4") + Me._columnserial_serial4.ExtendedProperties.Add("Generator_UserColumnName", "serial-serial4") + MyBase.Columns.Add(Me._columnserial_serial4) + Me._columndos_xms = New Global.System.Data.DataColumn("dos-xms", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columndos_xms.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndos_xms") + Me._columndos_xms.ExtendedProperties.Add("Generator_UserColumnName", "dos-xms") + MyBase.Columns.Add(Me._columndos_xms) + Me._columndos_ems = New Global.System.Data.DataColumn("dos-ems", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columndos_ems.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndos_ems") + Me._columndos_ems.ExtendedProperties.Add("Generator_UserColumnName", "dos-ems") + MyBase.Columns.Add(Me._columndos_ems) + Me._columndos_umb = New Global.System.Data.DataColumn("dos-umb", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columndos_umb.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndos_umb") + Me._columndos_umb.ExtendedProperties.Add("Generator_UserColumnName", "dos-umb") + MyBase.Columns.Add(Me._columndos_umb) + Me._columndos_keyboardlayout = New Global.System.Data.DataColumn("dos-keyboardlayout", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columndos_keyboardlayout.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columndos_keyboardlayout") + Me._columndos_keyboardlayout.ExtendedProperties.Add("Generator_UserColumnName", "dos-keyboardlayout") + MyBase.Columns.Add(Me._columndos_keyboardlayout) + Me._columnipx_ipx = New Global.System.Data.DataColumn("ipx-ipx", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnipx_ipx.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnipx_ipx") + Me._columnipx_ipx.ExtendedProperties.Add("Generator_UserColumnName", "ipx-ipx") + MyBase.Columns.Add(Me._columnipx_ipx) + Me._columnautoexec_before = New Global.System.Data.DataColumn("autoexec-before", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnautoexec_before.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnautoexec_before") + Me._columnautoexec_before.ExtendedProperties.Add("Generator_UserColumnName", "autoexec-before") + MyBase.Columns.Add(Me._columnautoexec_before) + Me._columnautoexec_after = New Global.System.Data.DataColumn("autoexec-after", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnautoexec_after.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnautoexec_after") + Me._columnautoexec_after.ExtendedProperties.Add("Generator_UserColumnName", "autoexec-after") + MyBase.Columns.Add(Me._columnautoexec_after) + Me._columnml_autoclose = New Global.System.Data.DataColumn("ml-autoclose", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_autoclose.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_autoclose") + Me._columnml_autoclose.ExtendedProperties.Add("Generator_UserColumnName", "ml-autoclose") + MyBase.Columns.Add(Me._columnml_autoclose) + Me._columnml_showconsole = New Global.System.Data.DataColumn("ml-showconsole", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_showconsole.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_showconsole") + Me._columnml_showconsole.ExtendedProperties.Add("Generator_UserColumnName", "ml-showconsole") + MyBase.Columns.Add(Me._columnml_showconsole) + Me._columnml_customsettings = New Global.System.Data.DataColumn("ml-customsettings", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_customsettings.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_customsettings") + Me._columnml_customsettings.ExtendedProperties.Add("Generator_UserColumnName", "ml-customsettings") + MyBase.Columns.Add(Me._columnml_customsettings) + Me._columnml_useloadfix = New Global.System.Data.DataColumn("ml-useloadfix", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_useloadfix.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_useloadfix") + Me._columnml_useloadfix.ExtendedProperties.Add("Generator_UserColumnName", "ml-useloadfix") + MyBase.Columns.Add(Me._columnml_useloadfix) + Me._columnml_loadfix = New Global.System.Data.DataColumn("ml-loadfix", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_loadfix.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_loadfix") + Me._columnml_loadfix.ExtendedProperties.Add("Generator_UserColumnName", "ml-loadfix") + MyBase.Columns.Add(Me._columnml_loadfix) + Me._columnml_volume_master_left = New Global.System.Data.DataColumn("ml-volume_master_left", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_master_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_master_left") + Me._columnml_volume_master_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_master_left") + MyBase.Columns.Add(Me._columnml_volume_master_left) + Me._columnml_volume_master_right = New Global.System.Data.DataColumn("ml-volume_master_right", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_master_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_master_right") + Me._columnml_volume_master_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_master_right") + MyBase.Columns.Add(Me._columnml_volume_master_right) + Me._columnml_volume_spkr_left = New Global.System.Data.DataColumn("ml-volume_spkr_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_spkr_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_spkr_left") + Me._columnml_volume_spkr_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_spkr_left") + MyBase.Columns.Add(Me._columnml_volume_spkr_left) + Me._columnml_volume_spkr_right = New Global.System.Data.DataColumn("ml-volume_spkr_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_spkr_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_spkr_right") + Me._columnml_volume_spkr_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_spkr_right") + MyBase.Columns.Add(Me._columnml_volume_spkr_right) + Me._columnml_volume_sb_left = New Global.System.Data.DataColumn("ml-volume_sb_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_sb_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_sb_left") + Me._columnml_volume_sb_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_sb_left") + MyBase.Columns.Add(Me._columnml_volume_sb_left) + Me._columnml_volume_sb_right = New Global.System.Data.DataColumn("ml-volume_sb_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_sb_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_sb_right") + Me._columnml_volume_sb_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_sb_right") + MyBase.Columns.Add(Me._columnml_volume_sb_right) + Me._columnml_volume_disney_left = New Global.System.Data.DataColumn("ml-volume_disney_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_disney_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_disney_left") + Me._columnml_volume_disney_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_disney_left") + MyBase.Columns.Add(Me._columnml_volume_disney_left) + Me._columnml_volume_disney_right = New Global.System.Data.DataColumn("ml-volume_disney_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_disney_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_disney_right") + Me._columnml_volume_disney_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_disney_right") + MyBase.Columns.Add(Me._columnml_volume_disney_right) + Me._columnml_volume_gus_left = New Global.System.Data.DataColumn("ml-volume_gus_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_gus_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_gus_left") + Me._columnml_volume_gus_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_gus_left") + MyBase.Columns.Add(Me._columnml_volume_gus_left) + Me._columnml_volume_gus_right = New Global.System.Data.DataColumn("ml-volume_gus_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_gus_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_gus_right") + Me._columnml_volume_gus_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_gus_right") + MyBase.Columns.Add(Me._columnml_volume_gus_right) + Me._columnml_volume_fm_left = New Global.System.Data.DataColumn("ml-volume_fm_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_fm_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_fm_left") + Me._columnml_volume_fm_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_fm_left") + MyBase.Columns.Add(Me._columnml_volume_fm_left) + Me._columnml_volume_fm_right = New Global.System.Data.DataColumn("ml-volume_fm_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_fm_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_fm_right") + Me._columnml_volume_fm_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_fm_right") + MyBase.Columns.Add(Me._columnml_volume_fm_right) + Me._columnml_volume_cdaudio_left = New Global.System.Data.DataColumn("ml-volume_cdaudio_left", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_cdaudio_left.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_cdaudio_left") + Me._columnml_volume_cdaudio_left.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_cdaudio_left") + MyBase.Columns.Add(Me._columnml_volume_cdaudio_left) + Me._columnml_volume_cdaudio_right = New Global.System.Data.DataColumn("ml-volume_cdaudio_right", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + Me._columnml_volume_cdaudio_right.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnml_volume_cdaudio_right") + Me._columnml_volume_cdaudio_right.ExtendedProperties.Add("Generator_UserColumnName", "ml-volume_cdaudio_right") + MyBase.Columns.Add(Me._columnml_volume_cdaudio_right) + Me.columnp_sdl_pixelshader = New Global.System.Data.DataColumn("p_sdl_pixelshader", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sdl_pixelshader) + Me.columnp_sdl_pixelshader_forced = New Global.System.Data.DataColumn("p_sdl_pixelshader_forced", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sdl_pixelshader_forced) + Me.columnp_sdl_output = New Global.System.Data.DataColumn("p_sdl_output", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sdl_output) + Me.columnp_dosbox_vmemsize = New Global.System.Data.DataColumn("p_dosbox_vmemsize", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_dosbox_vmemsize) + Me.columnp_dosbox_memsizekb = New Global.System.Data.DataColumn("p_dosbox_memsizekb", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_dosbox_memsizekb) + Me.columnp_dosbox_forcerate = New Global.System.Data.DataColumn("p_dosbox_forcerate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_dosbox_forcerate) + Me.columnp_dosbox_pit_hack = New Global.System.Data.DataColumn("p_dosbox_pit_hack", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_dosbox_pit_hack) + Me.columnp_render_scaler = New Global.System.Data.DataColumn("p_render_scaler", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_render_scaler) + Me.columnp_render_autofit = New Global.System.Data.DataColumn("p_render_autofit", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_render_autofit) + Me.columnp_vsync_vsyncmode = New Global.System.Data.DataColumn("p_vsync_vsyncmode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_vsync_vsyncmode) + Me.columnp_vsync_vsyncrate = New Global.System.Data.DataColumn("p_vsync_vsyncrate", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_vsync_vsyncrate) + Me.columnp_cpu_cputype = New Global.System.Data.DataColumn("p_cpu_cputype", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_cpu_cputype) + Me.columnp_keyboard_aux = New Global.System.Data.DataColumn("p_keyboard_aux", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_keyboard_aux) + Me.columnp_keyboard_auxdevice = New Global.System.Data.DataColumn("p_keyboard_auxdevice", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_keyboard_auxdevice) + Me.columnp_voodoo = New Global.System.Data.DataColumn("p_voodoo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_voodoo) + Me.columnp_mixer_swapstereo = New Global.System.Data.DataColumn("p_mixer_swapstereo", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_mixer_swapstereo) + Me.columnp_midi_mididevice = New Global.System.Data.DataColumn("p_midi_mididevice", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mididevice) + Me.columnp_midi_mt32_reverse_stereo = New Global.System.Data.DataColumn("p_midi_mt32_reverse_stereo", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_reverse_stereo) + Me.columnp_midi_mt32_verbose = New Global.System.Data.DataColumn("p_midi_mt32_verbose", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_verbose) + Me.columnp_midi_mt32_thread = New Global.System.Data.DataColumn("p_midi_mt32_thread", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_thread) + Me.columnp_midi_mt32_dac = New Global.System.Data.DataColumn("p_midi_mt32_dac", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_dac) + Me.columnp_midi_mt32_reverb_mode = New Global.System.Data.DataColumn("p_midi_mt32_reverb_mode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_reverb_mode) + Me.columnp_midi_mt32_reverb_time = New Global.System.Data.DataColumn("p_midi_mt32_reverb_time", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_reverb_time) + Me.columnp_midi_mt32_reverb_level = New Global.System.Data.DataColumn("p_midi_mt32_reverb_level", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_reverb_level) + Me.columnp_midi_mt32_partials = New Global.System.Data.DataColumn("p_midi_mt32_partials", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_midi_mt32_partials) + Me.columnp_sblaster_oplmode = New Global.System.Data.DataColumn("p_sblaster_oplmode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sblaster_oplmode) + Me.columnp_sblaster_hardwarebase = New Global.System.Data.DataColumn("p_sblaster_hardwarebase", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sblaster_hardwarebase) + Me.columnp_sblaster_goldplay = New Global.System.Data.DataColumn("p_sblaster_goldplay", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_sblaster_goldplay) + Me.columnp_innova_innova = New Global.System.Data.DataColumn("p_innova_innova", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_innova_innova) + Me.columnp_innova_samplerate = New Global.System.Data.DataColumn("p_innova_samplerate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_innova_samplerate) + Me.columnp_innova_sidbase = New Global.System.Data.DataColumn("p_innova_sidbase", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_innova_sidbase) + Me.columnp_innova_quality = New Global.System.Data.DataColumn("p_innova_quality", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_innova_quality) + Me.columnp_speaker_ps1audio = New Global.System.Data.DataColumn("p_speaker_ps1audio", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_speaker_ps1audio) + Me.columnp_speaker_ps1audiorate = New Global.System.Data.DataColumn("p_speaker_ps1audiorate", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_speaker_ps1audiorate) + Me.columnp_printer_printer = New Global.System.Data.DataColumn("p_printer_printer", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_printer) + Me.columnp_printer_dpi = New Global.System.Data.DataColumn("p_printer_dpi", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_dpi) + Me.columnp_printer_width = New Global.System.Data.DataColumn("p_printer_width", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_width) + Me.columnp_printer_height = New Global.System.Data.DataColumn("p_printer_height", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_height) + Me.columnp_printer_printoutput = New Global.System.Data.DataColumn("p_printer_printoutput", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_printoutput) + Me.columnp_printer_multipage = New Global.System.Data.DataColumn("p_printer_multipage", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_multipage) + Me.columnp_printer_docpath = New Global.System.Data.DataColumn("p_printer_docpath", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_docpath) + Me.columnp_printer_timeout = New Global.System.Data.DataColumn("p_printer_timeout", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_printer_timeout) + Me.columnp_parallel_parallel1 = New Global.System.Data.DataColumn("p_parallel_parallel1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_parallel_parallel1) + Me.columnp_parallel_parallel2 = New Global.System.Data.DataColumn("p_parallel_parallel2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_parallel_parallel2) + Me.columnp_parallel_parallel3 = New Global.System.Data.DataColumn("p_parallel_parallel3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_parallel_parallel3) + Me.columnp_parallel_dongle = New Global.System.Data.DataColumn("p_parallel_dongle", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_parallel_dongle) + Me.columnp_glide_glide = New Global.System.Data.DataColumn("p_glide_glide", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_glide_glide) + Me.columnp_glide_lfb = New Global.System.Data.DataColumn("p_glide_lfb", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_glide_lfb) + Me.columnp_glide_splash = New Global.System.Data.DataColumn("p_glide_splash", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_glide_splash) + Me.columnp_ne2000_ne2000 = New Global.System.Data.DataColumn("p_ne2000_ne2000", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ne2000_ne2000) + Me.columnp_ne2000_nicbase = New Global.System.Data.DataColumn("p_ne2000_nicbase", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ne2000_nicbase) + Me.columnp_ne2000_nicirq = New Global.System.Data.DataColumn("p_ne2000_nicirq", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ne2000_nicirq) + Me.columnp_ne2000_macaddr = New Global.System.Data.DataColumn("p_ne2000_macaddr", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ne2000_macaddr) + Me.columnp_ne2000_realnic = New Global.System.Data.DataColumn("p_ne2000_realnic", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ne2000_realnic) + Me.columnp_ide1_enable = New Global.System.Data.DataColumn("p_ide1_enable", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide1_enable) + Me.columnp_ide1_int13fakeio = New Global.System.Data.DataColumn("p_ide1_int13fakeio", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide1_int13fakeio) + Me.columnp_ide1_int13fakev86io = New Global.System.Data.DataColumn("p_ide1_int13fakev86io", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide1_int13fakev86io) + Me.columnp_ide2_enable = New Global.System.Data.DataColumn("p_ide2_enable", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide2_enable) + Me.columnp_ide2_int13fakeio = New Global.System.Data.DataColumn("p_ide2_int13fakeio", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide2_int13fakeio) + Me.columnp_ide2_int13fakev86io = New Global.System.Data.DataColumn("p_ide2_int13fakev86io", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide2_int13fakev86io) + Me.columnp_ide3_enable = New Global.System.Data.DataColumn("p_ide3_enable", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide3_enable) + Me.columnp_ide3_int13fakeio = New Global.System.Data.DataColumn("p_ide3_int13fakeio", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide3_int13fakeio) + Me.columnp_ide3_int13fakev86io = New Global.System.Data.DataColumn("p_ide3_int13fakev86io", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide3_int13fakev86io) + Me.columnp_ide4_enable = New Global.System.Data.DataColumn("p_ide4_enable", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide4_enable) + Me.columnp_ide4_int13fakeio = New Global.System.Data.DataColumn("p_ide4_int13fakeio", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide4_int13fakeio) + Me.columnp_ide4_int13fakev86io = New Global.System.Data.DataColumn("p_ide4_int13fakev86io", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnp_ide4_int13fakev86io) + End Sub + + _ + Public Function Newtbl_DOSBox_ConfigsRow() As tbl_DOSBox_ConfigsRow + Return CType(Me.NewRow,tbl_DOSBox_ConfigsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_DOSBox_ConfigsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_DOSBox_ConfigsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_DOSBox_ConfigsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_DOSBox_ConfigsRowChanged(Me, New tbl_DOSBox_ConfigsRowChangeEvent(CType(e.Row,tbl_DOSBox_ConfigsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_DOSBox_ConfigsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_DOSBox_ConfigsRowChanging(Me, New tbl_DOSBox_ConfigsRowChangeEvent(CType(e.Row,tbl_DOSBox_ConfigsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_DOSBox_ConfigsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_DOSBox_ConfigsRowDeleted(Me, New tbl_DOSBox_ConfigsRowChangeEvent(CType(e.Row,tbl_DOSBox_ConfigsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_DOSBox_ConfigsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_DOSBox_ConfigsRowDeleting(Me, New tbl_DOSBox_ConfigsRowChangeEvent(CType(e.Row,tbl_DOSBox_ConfigsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_DOSBox_ConfigsRow(ByVal row As tbl_DOSBox_ConfigsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_DOSBox_ConfigsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_Platforms_SettingsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_Platforms_SettingsRow) + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnShortname As Global.System.Data.DataColumn + + Private columnVisible As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Platforms_Settings" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property ShortnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnShortname + End Get + End Property + + _ + Public ReadOnly Property VisibleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVisible + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_Platforms_SettingsRow + Get + Return CType(Me.Rows(index),tbl_Moby_Platforms_SettingsRow) + End Get + End Property + + _ + Public Event tbl_Moby_Platforms_SettingsRowChanging As tbl_Moby_Platforms_SettingsRowChangeEventHandler + + _ + Public Event tbl_Moby_Platforms_SettingsRowChanged As tbl_Moby_Platforms_SettingsRowChangeEventHandler + + _ + Public Event tbl_Moby_Platforms_SettingsRowDeleting As tbl_Moby_Platforms_SettingsRowChangeEventHandler + + _ + Public Event tbl_Moby_Platforms_SettingsRowDeleted As tbl_Moby_Platforms_SettingsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_Platforms_SettingsRow(ByVal row As tbl_Moby_Platforms_SettingsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_Platforms_SettingsRow(ByVal id_Moby_Platforms As Integer, ByVal Name As String, ByVal Shortname As String, ByVal Visible As Boolean) As tbl_Moby_Platforms_SettingsRow + Dim rowtbl_Moby_Platforms_SettingsRow As tbl_Moby_Platforms_SettingsRow = CType(Me.NewRow,tbl_Moby_Platforms_SettingsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Platforms, Name, Shortname, Visible} + rowtbl_Moby_Platforms_SettingsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_Platforms_SettingsRow) + Return rowtbl_Moby_Platforms_SettingsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_Platforms_SettingsDataTable = CType(MyBase.Clone,tbl_Moby_Platforms_SettingsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_Platforms_SettingsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnName = MyBase.Columns("Name") + Me.columnShortname = MyBase.Columns("Shortname") + Me.columnVisible = MyBase.Columns("Visible") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnShortname = New Global.System.Data.DataColumn("Shortname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnShortname) + Me.columnVisible = New Global.System.Data.DataColumn("Visible", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVisible) + End Sub + + _ + Public Function Newtbl_Moby_Platforms_SettingsRow() As tbl_Moby_Platforms_SettingsRow + Return CType(Me.NewRow,tbl_Moby_Platforms_SettingsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_Platforms_SettingsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_Platforms_SettingsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_Platforms_SettingsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Platforms_SettingsRowChanged(Me, New tbl_Moby_Platforms_SettingsRowChangeEvent(CType(e.Row,tbl_Moby_Platforms_SettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_Platforms_SettingsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Platforms_SettingsRowChanging(Me, New tbl_Moby_Platforms_SettingsRowChangeEvent(CType(e.Row,tbl_Moby_Platforms_SettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_Platforms_SettingsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Platforms_SettingsRowDeleted(Me, New tbl_Moby_Platforms_SettingsRowChangeEvent(CType(e.Row,tbl_Moby_Platforms_SettingsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_Platforms_SettingsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Platforms_SettingsRowDeleting(Me, New tbl_Moby_Platforms_SettingsRowChangeEvent(CType(e.Row,tbl_Moby_Platforms_SettingsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_Platforms_SettingsRow(ByVal row As tbl_Moby_Platforms_SettingsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_Platforms_SettingsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_frm_Emulators_DOSBox_PatchesDataTable + Inherits Global.System.Data.TypedTableBase(Of src_frm_Emulators_DOSBox_PatchesRow) + + Private columnid_DOSBox_Patches As Global.System.Data.DataColumn + + Private columnid_DOSBox_Patches_Categories As Global.System.Data.DataColumn + + Private columnCategoryname As Global.System.Data.DataColumn + + Private columnPatchname As Global.System.Data.DataColumn + + Private columnIdentifier As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnActivated As Global.System.Data.DataColumn + + Private columnDAUM_Supported As Global.System.Data.DataColumn + + Private columnMB_Supported As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_frm_Emulators_DOSBox_Patches" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_DOSBox_PatchesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Patches + End Get + End Property + + _ + Public ReadOnly Property id_DOSBox_Patches_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Patches_Categories + End Get + End Property + + _ + Public ReadOnly Property CategorynameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategoryname + End Get + End Property + + _ + Public ReadOnly Property PatchnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPatchname + End Get + End Property + + _ + Public ReadOnly Property IdentifierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIdentifier + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property ActivatedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnActivated + End Get + End Property + + _ + Public ReadOnly Property DAUM_SupportedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDAUM_Supported + End Get + End Property + + _ + Public ReadOnly Property MB_SupportedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMB_Supported + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_frm_Emulators_DOSBox_PatchesRow + Get + Return CType(Me.Rows(index),src_frm_Emulators_DOSBox_PatchesRow) + End Get + End Property + + _ + Public Event src_frm_Emulators_DOSBox_PatchesRowChanging As src_frm_Emulators_DOSBox_PatchesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_PatchesRowChanged As src_frm_Emulators_DOSBox_PatchesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_PatchesRowDeleting As src_frm_Emulators_DOSBox_PatchesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_PatchesRowDeleted As src_frm_Emulators_DOSBox_PatchesRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_frm_Emulators_DOSBox_PatchesRow(ByVal row As src_frm_Emulators_DOSBox_PatchesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_frm_Emulators_DOSBox_PatchesRow(ByVal id_DOSBox_Patches As Integer, ByVal id_DOSBox_Patches_Categories As Integer, ByVal Categoryname As String, ByVal Patchname As String, ByVal Identifier As String, ByVal Description As String, ByVal Activated As Boolean, ByVal DAUM_Supported As Boolean, ByVal MB_Supported As Boolean) As src_frm_Emulators_DOSBox_PatchesRow + Dim rowsrc_frm_Emulators_DOSBox_PatchesRow As src_frm_Emulators_DOSBox_PatchesRow = CType(Me.NewRow,src_frm_Emulators_DOSBox_PatchesRow) + Dim columnValuesArray() As Object = New Object() {id_DOSBox_Patches, id_DOSBox_Patches_Categories, Categoryname, Patchname, Identifier, Description, Activated, DAUM_Supported, MB_Supported} + rowsrc_frm_Emulators_DOSBox_PatchesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_frm_Emulators_DOSBox_PatchesRow) + Return rowsrc_frm_Emulators_DOSBox_PatchesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_frm_Emulators_DOSBox_PatchesDataTable = CType(MyBase.Clone,src_frm_Emulators_DOSBox_PatchesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_frm_Emulators_DOSBox_PatchesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_DOSBox_Patches = MyBase.Columns("id_DOSBox_Patches") + Me.columnid_DOSBox_Patches_Categories = MyBase.Columns("id_DOSBox_Patches_Categories") + Me.columnCategoryname = MyBase.Columns("Categoryname") + Me.columnPatchname = MyBase.Columns("Patchname") + Me.columnIdentifier = MyBase.Columns("Identifier") + Me.columnDescription = MyBase.Columns("Description") + Me.columnActivated = MyBase.Columns("Activated") + Me.columnDAUM_Supported = MyBase.Columns("DAUM_Supported") + Me.columnMB_Supported = MyBase.Columns("MB_Supported") + End Sub + + _ + Private Sub InitClass() + Me.columnid_DOSBox_Patches = New Global.System.Data.DataColumn("id_DOSBox_Patches", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Patches) + Me.columnid_DOSBox_Patches_Categories = New Global.System.Data.DataColumn("id_DOSBox_Patches_Categories", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Patches_Categories) + Me.columnCategoryname = New Global.System.Data.DataColumn("Categoryname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategoryname) + Me.columnPatchname = New Global.System.Data.DataColumn("Patchname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPatchname) + Me.columnIdentifier = New Global.System.Data.DataColumn("Identifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIdentifier) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnActivated = New Global.System.Data.DataColumn("Activated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnActivated) + Me.columnDAUM_Supported = New Global.System.Data.DataColumn("DAUM_Supported", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDAUM_Supported) + Me.columnMB_Supported = New Global.System.Data.DataColumn("MB_Supported", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMB_Supported) + End Sub + + _ + Public Function Newsrc_frm_Emulators_DOSBox_PatchesRow() As src_frm_Emulators_DOSBox_PatchesRow + Return CType(Me.NewRow,src_frm_Emulators_DOSBox_PatchesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_frm_Emulators_DOSBox_PatchesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_frm_Emulators_DOSBox_PatchesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_frm_Emulators_DOSBox_PatchesRowChangedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_PatchesRowChanged(Me, New src_frm_Emulators_DOSBox_PatchesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_PatchesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_frm_Emulators_DOSBox_PatchesRowChangingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_PatchesRowChanging(Me, New src_frm_Emulators_DOSBox_PatchesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_PatchesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_frm_Emulators_DOSBox_PatchesRowDeletedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_PatchesRowDeleted(Me, New src_frm_Emulators_DOSBox_PatchesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_PatchesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_frm_Emulators_DOSBox_PatchesRowDeletingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_PatchesRowDeleting(Me, New src_frm_Emulators_DOSBox_PatchesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_PatchesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_frm_Emulators_DOSBox_PatchesRow(ByVal row As src_frm_Emulators_DOSBox_PatchesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_frm_Emulators_DOSBox_PatchesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_frm_Emulators_DOSBox_Patches_CategoriesDataTable + Inherits Global.System.Data.TypedTableBase(Of src_frm_Emulators_DOSBox_Patches_CategoriesRow) + + Private columnid_DOSBox_Patches_Categories As Global.System.Data.DataColumn + + Private columnCategoryname As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_frm_Emulators_DOSBox_Patches_Categories" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_DOSBox_Patches_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_DOSBox_Patches_Categories + End Get + End Property + + _ + Public ReadOnly Property CategorynameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategoryname + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_frm_Emulators_DOSBox_Patches_CategoriesRow + Get + Return CType(Me.Rows(index),src_frm_Emulators_DOSBox_Patches_CategoriesRow) + End Get + End Property + + _ + Public Event src_frm_Emulators_DOSBox_Patches_CategoriesRowChanging As src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_Patches_CategoriesRowChanged As src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_Patches_CategoriesRowDeleting As src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEventHandler + + _ + Public Event src_frm_Emulators_DOSBox_Patches_CategoriesRowDeleted As src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_frm_Emulators_DOSBox_Patches_CategoriesRow(ByVal row As src_frm_Emulators_DOSBox_Patches_CategoriesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_frm_Emulators_DOSBox_Patches_CategoriesRow(ByVal id_DOSBox_Patches_Categories As Integer, ByVal Categoryname As String) As src_frm_Emulators_DOSBox_Patches_CategoriesRow + Dim rowsrc_frm_Emulators_DOSBox_Patches_CategoriesRow As src_frm_Emulators_DOSBox_Patches_CategoriesRow = CType(Me.NewRow,src_frm_Emulators_DOSBox_Patches_CategoriesRow) + Dim columnValuesArray() As Object = New Object() {id_DOSBox_Patches_Categories, Categoryname} + rowsrc_frm_Emulators_DOSBox_Patches_CategoriesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_frm_Emulators_DOSBox_Patches_CategoriesRow) + Return rowsrc_frm_Emulators_DOSBox_Patches_CategoriesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_frm_Emulators_DOSBox_Patches_CategoriesDataTable = CType(MyBase.Clone,src_frm_Emulators_DOSBox_Patches_CategoriesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_frm_Emulators_DOSBox_Patches_CategoriesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_DOSBox_Patches_Categories = MyBase.Columns("id_DOSBox_Patches_Categories") + Me.columnCategoryname = MyBase.Columns("Categoryname") + End Sub + + _ + Private Sub InitClass() + Me.columnid_DOSBox_Patches_Categories = New Global.System.Data.DataColumn("id_DOSBox_Patches_Categories", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_DOSBox_Patches_Categories) + Me.columnCategoryname = New Global.System.Data.DataColumn("Categoryname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategoryname) + End Sub + + _ + Public Function Newsrc_frm_Emulators_DOSBox_Patches_CategoriesRow() As src_frm_Emulators_DOSBox_Patches_CategoriesRow + Return CType(Me.NewRow,src_frm_Emulators_DOSBox_Patches_CategoriesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_frm_Emulators_DOSBox_Patches_CategoriesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_frm_Emulators_DOSBox_Patches_CategoriesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_frm_Emulators_DOSBox_Patches_CategoriesRowChangedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_Patches_CategoriesRowChanged(Me, New src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_Patches_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_frm_Emulators_DOSBox_Patches_CategoriesRowChangingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_Patches_CategoriesRowChanging(Me, New src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_Patches_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_frm_Emulators_DOSBox_Patches_CategoriesRowDeletedEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_Patches_CategoriesRowDeleted(Me, New src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_Patches_CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_frm_Emulators_DOSBox_Patches_CategoriesRowDeletingEvent) Is Nothing) Then + RaiseEvent src_frm_Emulators_DOSBox_Patches_CategoriesRowDeleting(Me, New src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent(CType(e.Row,src_frm_Emulators_DOSBox_Patches_CategoriesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_frm_Emulators_DOSBox_Patches_CategoriesRow(ByVal row As src_frm_Emulators_DOSBox_Patches_CategoriesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_frm_Emulators_DOSBox_Patches_CategoriesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_UsersRow) + + Private columnid_Users As Global.System.Data.DataColumn + + Private columnAdmin As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPassword As Global.System.Data.DataColumn + + Private columnRestricted As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Users" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_UsersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Users + End Get + End Property + + _ + Public ReadOnly Property AdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdmin + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPassword + End Get + End Property + + _ + Public ReadOnly Property RestrictedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRestricted + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_UsersRow + Get + Return CType(Me.Rows(index),tbl_UsersRow) + End Get + End Property + + _ + Public Event tbl_UsersRowChanging As tbl_UsersRowChangeEventHandler + + _ + Public Event tbl_UsersRowChanged As tbl_UsersRowChangeEventHandler + + _ + Public Event tbl_UsersRowDeleting As tbl_UsersRowChangeEventHandler + + _ + Public Event tbl_UsersRowDeleted As tbl_UsersRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_UsersRow(ByVal row As tbl_UsersRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_UsersRow(ByVal Admin As Boolean, ByVal Username As String, ByVal Password As String, ByVal Restricted As Boolean) As tbl_UsersRow + Dim rowtbl_UsersRow As tbl_UsersRow = CType(Me.NewRow,tbl_UsersRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Admin, Username, Password, Restricted} + rowtbl_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_UsersRow) + Return rowtbl_UsersRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_UsersDataTable = CType(MyBase.Clone,tbl_UsersDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_UsersDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Users = MyBase.Columns("id_Users") + Me.columnAdmin = MyBase.Columns("Admin") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPassword = MyBase.Columns("Password") + Me.columnRestricted = MyBase.Columns("Restricted") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Users = New Global.System.Data.DataColumn("id_Users", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Users) + Me.columnAdmin = New Global.System.Data.DataColumn("Admin", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdmin) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPassword) + Me.columnRestricted = New Global.System.Data.DataColumn("Restricted", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRestricted) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Users}, false)) + Me.columnid_Users.AutoIncrement = true + Me.columnid_Users.AutoIncrementSeed = -1 + Me.columnid_Users.AutoIncrementStep = -1 + Me.columnid_Users.AllowDBNull = false + Me.columnid_Users.Unique = true + End Sub + + _ + Public Function Newtbl_UsersRow() As tbl_UsersRow + Return CType(Me.NewRow,tbl_UsersRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_UsersRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_UsersRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_UsersRowChanged(Me, New tbl_UsersRowChangeEvent(CType(e.Row,tbl_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_UsersRowChanging(Me, New tbl_UsersRowChangeEvent(CType(e.Row,tbl_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_UsersRowDeleted(Me, New tbl_UsersRowChangeEvent(CType(e.Row,tbl_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_UsersRowDeleting(Me, New tbl_UsersRowChangeEvent(CType(e.Row,tbl_UsersRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_UsersRow(ByVal row As tbl_UsersRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_UsersDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_Moby_Releases_StaffDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_Moby_Releases_StaffRow) + + Private columnid_Moby_Releases_Staff As Global.System.Data.DataColumn + + Private columnid_Moby_Staff As Global.System.Data.DataColumn + + Private columnPosition As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnSort As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_Moby_Releases_Staff" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Releases_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases_Staff + End Get + End Property + + _ + Public ReadOnly Property id_Moby_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Staff + End Get + End Property + + _ + Public ReadOnly Property PositionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPosition + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property SortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSort + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_Moby_Releases_StaffRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_Moby_Releases_StaffRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_Moby_Releases_StaffRowChanging As src_ucr_Emulation_Moby_Releases_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_Moby_Releases_StaffRowChanged As src_ucr_Emulation_Moby_Releases_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_Moby_Releases_StaffRowDeleting As src_ucr_Emulation_Moby_Releases_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_Moby_Releases_StaffRowDeleted As src_ucr_Emulation_Moby_Releases_StaffRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_Moby_Releases_StaffRow(ByVal row As src_ucr_Emulation_Moby_Releases_StaffRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_Moby_Releases_StaffRow(ByVal id_Moby_Releases_Staff As Long, ByVal id_Moby_Staff As Long, ByVal Position As String, ByVal Name As String, ByVal Sort As Long) As src_ucr_Emulation_Moby_Releases_StaffRow + Dim rowsrc_ucr_Emulation_Moby_Releases_StaffRow As src_ucr_Emulation_Moby_Releases_StaffRow = CType(Me.NewRow,src_ucr_Emulation_Moby_Releases_StaffRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Releases_Staff, id_Moby_Staff, Position, Name, Sort} + rowsrc_ucr_Emulation_Moby_Releases_StaffRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_Moby_Releases_StaffRow) + Return rowsrc_ucr_Emulation_Moby_Releases_StaffRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_Moby_Releases_StaffDataTable = CType(MyBase.Clone,src_ucr_Emulation_Moby_Releases_StaffDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_Moby_Releases_StaffDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Releases_Staff = MyBase.Columns("id_Moby_Releases_Staff") + Me.columnid_Moby_Staff = MyBase.Columns("id_Moby_Staff") + Me.columnPosition = MyBase.Columns("Position") + Me.columnName = MyBase.Columns("Name") + Me.columnSort = MyBase.Columns("Sort") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Releases_Staff = New Global.System.Data.DataColumn("id_Moby_Releases_Staff", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases_Staff) + Me.columnid_Moby_Staff = New Global.System.Data.DataColumn("id_Moby_Staff", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Staff) + Me.columnPosition = New Global.System.Data.DataColumn("Position", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPosition) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnSort = New Global.System.Data.DataColumn("Sort", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSort) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_Moby_Releases_StaffRow() As src_ucr_Emulation_Moby_Releases_StaffRow + Return CType(Me.NewRow,src_ucr_Emulation_Moby_Releases_StaffRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_Moby_Releases_StaffRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_Moby_Releases_StaffRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_Moby_Releases_StaffRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_Moby_Releases_StaffRowChanged(Me, New src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_Moby_Releases_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_Moby_Releases_StaffRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_Moby_Releases_StaffRowChanging(Me, New src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_Moby_Releases_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_Moby_Releases_StaffRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_Moby_Releases_StaffRowDeleted(Me, New src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_Moby_Releases_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_Moby_Releases_StaffRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_Moby_Releases_StaffRowDeleting(Me, New src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_Moby_Releases_StaffRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_Moby_Releases_StaffRow(ByVal row As src_ucr_Emulation_Moby_Releases_StaffRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_Moby_Releases_StaffDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_cmb_StaffDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_cmb_StaffRow) + + Private columnid_Moby_Staff As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_cmb_Staff" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Staff + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_cmb_StaffRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_cmb_StaffRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_cmb_StaffRowChanging As src_ucr_Emulation_cmb_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_StaffRowChanged As src_ucr_Emulation_cmb_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_StaffRowDeleting As src_ucr_Emulation_cmb_StaffRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_StaffRowDeleted As src_ucr_Emulation_cmb_StaffRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_cmb_StaffRow(ByVal row As src_ucr_Emulation_cmb_StaffRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_cmb_StaffRow(ByVal id_Moby_Staff As Long, ByVal Name As String) As src_ucr_Emulation_cmb_StaffRow + Dim rowsrc_ucr_Emulation_cmb_StaffRow As src_ucr_Emulation_cmb_StaffRow = CType(Me.NewRow,src_ucr_Emulation_cmb_StaffRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Staff, Name} + rowsrc_ucr_Emulation_cmb_StaffRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_cmb_StaffRow) + Return rowsrc_ucr_Emulation_cmb_StaffRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_cmb_StaffDataTable = CType(MyBase.Clone,src_ucr_Emulation_cmb_StaffDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_cmb_StaffDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Staff = MyBase.Columns("id_Moby_Staff") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Staff = New Global.System.Data.DataColumn("id_Moby_Staff", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Staff) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_cmb_StaffRow() As src_ucr_Emulation_cmb_StaffRow + Return CType(Me.NewRow,src_ucr_Emulation_cmb_StaffRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_cmb_StaffRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_cmb_StaffRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_cmb_StaffRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_StaffRowChanged(Me, New src_ucr_Emulation_cmb_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_cmb_StaffRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_StaffRowChanging(Me, New src_ucr_Emulation_cmb_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_cmb_StaffRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_StaffRowDeleted(Me, New src_ucr_Emulation_cmb_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_StaffRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_cmb_StaffRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_StaffRowDeleting(Me, New src_ucr_Emulation_cmb_StaffRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_StaffRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_cmb_StaffRow(ByVal row As src_ucr_Emulation_cmb_StaffRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_cmb_StaffDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Similarity_CalculationDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Similarity_CalculationRow) + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnid_Moby_Releases As Global.System.Data.DataColumn + + Private columnGame As Global.System.Data.DataColumn + + Private columnPlatform As Global.System.Data.DataColumn + + Private columnFolder As Global.System.Data.DataColumn + + Private columnFile As Global.System.Data.DataColumn + + Private columnInnerFile As Global.System.Data.DataColumn + + Private columnHave As Global.System.Data.DataColumn + + Private column001_Platform As Global.System.Data.DataColumn + + Private column002_MobyRank As Global.System.Data.DataColumn + + Private column003_MobyScore As Global.System.Data.DataColumn + + Private column004_Publisher As Global.System.Data.DataColumn + + Private column005_Developer As Global.System.Data.DataColumn + + Private column006_Year As Global.System.Data.DataColumn + + Private column101_Basic_Genres As Global.System.Data.DataColumn + + Private column102_Perspectives As Global.System.Data.DataColumn + + Private column103_Sports_Themes As Global.System.Data.DataColumn + + Private column104_Non_Sports_Themes As Global.System.Data.DataColumn + + Private column105_Educational_Categories As Global.System.Data.DataColumn + + Private column106_Other_Attributes As Global.System.Data.DataColumn + + Private column107_Visual_Presentation As Global.System.Data.DataColumn + + Private column108_Gameplay As Global.System.Data.DataColumn + + Private column109_Pacing As Global.System.Data.DataColumn + + Private column110_Narrative_Theme_Topic As Global.System.Data.DataColumn + + Private column111_Setting As Global.System.Data.DataColumn + + Private column112_Vehicular_Themes As Global.System.Data.DataColumn + + Private column113_Interface_Control As Global.System.Data.DataColumn + + Private column114_DLC_Addon As Global.System.Data.DataColumn + + Private column115_Special_Edition As Global.System.Data.DataColumn + + Private column201_MinPlayers As Global.System.Data.DataColumn + + Private column202_MaxPlayers As Global.System.Data.DataColumn + + Private column203_AgeO As Global.System.Data.DataColumn + + Private column204_AgeP As Global.System.Data.DataColumn + + Private column205_Rating_Descriptors As Global.System.Data.DataColumn + + Private column206_Other_Attributes As Global.System.Data.DataColumn + + Private column207_Multiplayer_Attributes As Global.System.Data.DataColumn + + Private column301_Group_Membership As Global.System.Data.DataColumn + + Private column401_Staff As Global.System.Data.DataColumn + + Private columnSimilarity As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Similarity_Calculation" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property GameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGame + End Get + End Property + + _ + Public ReadOnly Property PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPlatform + End Get + End Property + + _ + Public ReadOnly Property FolderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFolder + End Get + End Property + + _ + Public ReadOnly Property FileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFile + End Get + End Property + + _ + Public ReadOnly Property InnerFileColumn() As Global.System.Data.DataColumn + Get + Return Me.columnInnerFile + End Get + End Property + + _ + Public ReadOnly Property HaveColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHave + End Get + End Property + + _ + Public ReadOnly Property _001_PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.column001_Platform + End Get + End Property + + _ + Public ReadOnly Property _002_MobyRankColumn() As Global.System.Data.DataColumn + Get + Return Me.column002_MobyRank + End Get + End Property + + _ + Public ReadOnly Property _003_MobyScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.column003_MobyScore + End Get + End Property + + _ + Public ReadOnly Property _004_PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.column004_Publisher + End Get + End Property + + _ + Public ReadOnly Property _005_DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.column005_Developer + End Get + End Property + + _ + Public ReadOnly Property _006_YearColumn() As Global.System.Data.DataColumn + Get + Return Me.column006_Year + End Get + End Property + + _ + Public ReadOnly Property _101_Basic_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.column101_Basic_Genres + End Get + End Property + + _ + Public ReadOnly Property _102_PerspectivesColumn() As Global.System.Data.DataColumn + Get + Return Me.column102_Perspectives + End Get + End Property + + _ + Public ReadOnly Property _103_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column103_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property _104_Non_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column104_Non_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property _105_Educational_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.column105_Educational_Categories + End Get + End Property + + _ + Public ReadOnly Property _106_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column106_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property _107_Visual_PresentationColumn() As Global.System.Data.DataColumn + Get + Return Me.column107_Visual_Presentation + End Get + End Property + + _ + Public ReadOnly Property _108_GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.column108_Gameplay + End Get + End Property + + _ + Public ReadOnly Property _109_PacingColumn() As Global.System.Data.DataColumn + Get + Return Me.column109_Pacing + End Get + End Property + + _ + Public ReadOnly Property _110_Narrative_Theme_TopicColumn() As Global.System.Data.DataColumn + Get + Return Me.column110_Narrative_Theme_Topic + End Get + End Property + + _ + Public ReadOnly Property _111_SettingColumn() As Global.System.Data.DataColumn + Get + Return Me.column111_Setting + End Get + End Property + + _ + Public ReadOnly Property _112_Vehicular_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.column112_Vehicular_Themes + End Get + End Property + + _ + Public ReadOnly Property _113_Interface_ControlColumn() As Global.System.Data.DataColumn + Get + Return Me.column113_Interface_Control + End Get + End Property + + _ + Public ReadOnly Property _114_DLC_AddonColumn() As Global.System.Data.DataColumn + Get + Return Me.column114_DLC_Addon + End Get + End Property + + _ + Public ReadOnly Property _115_Special_EditionColumn() As Global.System.Data.DataColumn + Get + Return Me.column115_Special_Edition + End Get + End Property + + _ + Public ReadOnly Property _201_MinPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.column201_MinPlayers + End Get + End Property + + _ + Public ReadOnly Property _202_MaxPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.column202_MaxPlayers + End Get + End Property + + _ + Public ReadOnly Property _203_AgeOColumn() As Global.System.Data.DataColumn + Get + Return Me.column203_AgeO + End Get + End Property + + _ + Public ReadOnly Property _204_AgePColumn() As Global.System.Data.DataColumn + Get + Return Me.column204_AgeP + End Get + End Property + + _ + Public ReadOnly Property _205_Rating_DescriptorsColumn() As Global.System.Data.DataColumn + Get + Return Me.column205_Rating_Descriptors + End Get + End Property + + _ + Public ReadOnly Property _206_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column206_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property _207_Multiplayer_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.column207_Multiplayer_Attributes + End Get + End Property + + _ + Public ReadOnly Property _301_Group_MembershipColumn() As Global.System.Data.DataColumn + Get + Return Me.column301_Group_Membership + End Get + End Property + + _ + Public ReadOnly Property _401_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.column401_Staff + End Get + End Property + + _ + Public ReadOnly Property SimilarityColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSimilarity + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Similarity_CalculationRow + Get + Return CType(Me.Rows(index),tbl_Similarity_CalculationRow) + End Get + End Property + + _ + Public Event tbl_Similarity_CalculationRowChanging As tbl_Similarity_CalculationRowChangeEventHandler + + _ + Public Event tbl_Similarity_CalculationRowChanged As tbl_Similarity_CalculationRowChangeEventHandler + + _ + Public Event tbl_Similarity_CalculationRowDeleting As tbl_Similarity_CalculationRowChangeEventHandler + + _ + Public Event tbl_Similarity_CalculationRowDeleted As tbl_Similarity_CalculationRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Similarity_CalculationRow(ByVal row As tbl_Similarity_CalculationRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Similarity_CalculationRow( _ + ByVal id_Emu_Games As Integer, _ + ByVal id_Moby_Releases As Integer, _ + ByVal Game As String, _ + ByVal Platform As String, _ + ByVal Folder As String, _ + ByVal File As String, _ + ByVal InnerFile As String, _ + ByVal Have As Boolean, _ + ByVal _001_Platform As Integer, _ + ByVal _002_MobyRank As Integer, _ + ByVal _003_MobyScore As Integer, _ + ByVal _004_Publisher As Integer, _ + ByVal _005_Developer As Integer, _ + ByVal _006_Year As Integer, _ + ByVal _101_Basic_Genres As Integer, _ + ByVal _102_Perspectives As Integer, _ + ByVal _103_Sports_Themes As Integer, _ + ByVal _104_Non_Sports_Themes As Integer, _ + ByVal _105_Educational_Categories As Integer, _ + ByVal _106_Other_Attributes As Integer, _ + ByVal _107_Visual_Presentation As Integer, _ + ByVal _108_Gameplay As Integer, _ + ByVal _109_Pacing As Integer, _ + ByVal _110_Narrative_Theme_Topic As Integer, _ + ByVal _111_Setting As Integer, _ + ByVal _112_Vehicular_Themes As Integer, _ + ByVal _113_Interface_Control As Integer, _ + ByVal _114_DLC_Addon As Integer, _ + ByVal _115_Special_Edition As Integer, _ + ByVal _201_MinPlayers As Integer, _ + ByVal _202_MaxPlayers As Integer, _ + ByVal _203_AgeO As Integer, _ + ByVal _204_AgeP As Integer, _ + ByVal _205_Rating_Descriptors As Integer, _ + ByVal _206_Other_Attributes As Integer, _ + ByVal _207_Multiplayer_Attributes As String, _ + ByVal _301_Group_Membership As Integer, _ + ByVal _401_Staff As Integer, _ + ByVal Similarity As Integer) As tbl_Similarity_CalculationRow + Dim rowtbl_Similarity_CalculationRow As tbl_Similarity_CalculationRow = CType(Me.NewRow,tbl_Similarity_CalculationRow) + Dim columnValuesArray() As Object = New Object() {id_Emu_Games, id_Moby_Releases, Game, Platform, Folder, File, InnerFile, Have, _001_Platform, _002_MobyRank, _003_MobyScore, _004_Publisher, _005_Developer, _006_Year, _101_Basic_Genres, _102_Perspectives, _103_Sports_Themes, _104_Non_Sports_Themes, _105_Educational_Categories, _106_Other_Attributes, _107_Visual_Presentation, _108_Gameplay, _109_Pacing, _110_Narrative_Theme_Topic, _111_Setting, _112_Vehicular_Themes, _113_Interface_Control, _114_DLC_Addon, _115_Special_Edition, _201_MinPlayers, _202_MaxPlayers, _203_AgeO, _204_AgeP, _205_Rating_Descriptors, _206_Other_Attributes, _207_Multiplayer_Attributes, _301_Group_Membership, _401_Staff, Similarity} + rowtbl_Similarity_CalculationRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Similarity_CalculationRow) + Return rowtbl_Similarity_CalculationRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Similarity_CalculationDataTable = CType(MyBase.Clone,tbl_Similarity_CalculationDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Similarity_CalculationDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnid_Moby_Releases = MyBase.Columns("id_Moby_Releases") + Me.columnGame = MyBase.Columns("Game") + Me.columnPlatform = MyBase.Columns("Platform") + Me.columnFolder = MyBase.Columns("Folder") + Me.columnFile = MyBase.Columns("File") + Me.columnInnerFile = MyBase.Columns("InnerFile") + Me.columnHave = MyBase.Columns("Have") + Me.column001_Platform = MyBase.Columns("001_Platform") + Me.column002_MobyRank = MyBase.Columns("002_MobyRank") + Me.column003_MobyScore = MyBase.Columns("003_MobyScore") + Me.column004_Publisher = MyBase.Columns("004_Publisher") + Me.column005_Developer = MyBase.Columns("005_Developer") + Me.column006_Year = MyBase.Columns("006_Year") + Me.column101_Basic_Genres = MyBase.Columns("101_Basic_Genres") + Me.column102_Perspectives = MyBase.Columns("102_Perspectives") + Me.column103_Sports_Themes = MyBase.Columns("103_Sports_Themes") + Me.column104_Non_Sports_Themes = MyBase.Columns("104_Non_Sports_Themes") + Me.column105_Educational_Categories = MyBase.Columns("105_Educational_Categories") + Me.column106_Other_Attributes = MyBase.Columns("106_Other_Attributes") + Me.column107_Visual_Presentation = MyBase.Columns("107_Visual_Presentation") + Me.column108_Gameplay = MyBase.Columns("108_Gameplay") + Me.column109_Pacing = MyBase.Columns("109_Pacing") + Me.column110_Narrative_Theme_Topic = MyBase.Columns("110_Narrative_Theme_Topic") + Me.column111_Setting = MyBase.Columns("111_Setting") + Me.column112_Vehicular_Themes = MyBase.Columns("112_Vehicular_Themes") + Me.column113_Interface_Control = MyBase.Columns("113_Interface_Control") + Me.column114_DLC_Addon = MyBase.Columns("114_DLC_Addon") + Me.column115_Special_Edition = MyBase.Columns("115_Special_Edition") + Me.column201_MinPlayers = MyBase.Columns("201_MinPlayers") + Me.column202_MaxPlayers = MyBase.Columns("202_MaxPlayers") + Me.column203_AgeO = MyBase.Columns("203_AgeO") + Me.column204_AgeP = MyBase.Columns("204_AgeP") + Me.column205_Rating_Descriptors = MyBase.Columns("205_Rating_Descriptors") + Me.column206_Other_Attributes = MyBase.Columns("206_Other_Attributes") + Me.column207_Multiplayer_Attributes = MyBase.Columns("207_Multiplayer_Attributes") + Me.column301_Group_Membership = MyBase.Columns("301_Group_Membership") + Me.column401_Staff = MyBase.Columns("401_Staff") + Me.columnSimilarity = MyBase.Columns("Similarity") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnid_Moby_Releases = New Global.System.Data.DataColumn("id_Moby_Releases", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases) + Me.columnGame = New Global.System.Data.DataColumn("Game", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGame) + Me.columnPlatform = New Global.System.Data.DataColumn("Platform", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPlatform) + Me.columnFolder = New Global.System.Data.DataColumn("Folder", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFolder) + Me.columnFile = New Global.System.Data.DataColumn("File", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFile) + Me.columnInnerFile = New Global.System.Data.DataColumn("InnerFile", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnInnerFile) + Me.columnHave = New Global.System.Data.DataColumn("Have", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHave) + Me.column001_Platform = New Global.System.Data.DataColumn("001_Platform", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column001_Platform.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column001_Platform") + Me.column001_Platform.ExtendedProperties.Add("Generator_UserColumnName", "001_Platform") + MyBase.Columns.Add(Me.column001_Platform) + Me.column002_MobyRank = New Global.System.Data.DataColumn("002_MobyRank", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column002_MobyRank.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column002_MobyRank") + Me.column002_MobyRank.ExtendedProperties.Add("Generator_UserColumnName", "002_MobyRank") + MyBase.Columns.Add(Me.column002_MobyRank) + Me.column003_MobyScore = New Global.System.Data.DataColumn("003_MobyScore", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column003_MobyScore.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column003_MobyScore") + Me.column003_MobyScore.ExtendedProperties.Add("Generator_UserColumnName", "003_MobyScore") + MyBase.Columns.Add(Me.column003_MobyScore) + Me.column004_Publisher = New Global.System.Data.DataColumn("004_Publisher", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column004_Publisher.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column004_Publisher") + Me.column004_Publisher.ExtendedProperties.Add("Generator_UserColumnName", "004_Publisher") + MyBase.Columns.Add(Me.column004_Publisher) + Me.column005_Developer = New Global.System.Data.DataColumn("005_Developer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column005_Developer.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column005_Developer") + Me.column005_Developer.ExtendedProperties.Add("Generator_UserColumnName", "005_Developer") + MyBase.Columns.Add(Me.column005_Developer) + Me.column006_Year = New Global.System.Data.DataColumn("006_Year", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column006_Year.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column006_Year") + Me.column006_Year.ExtendedProperties.Add("Generator_UserColumnName", "006_Year") + MyBase.Columns.Add(Me.column006_Year) + Me.column101_Basic_Genres = New Global.System.Data.DataColumn("101_Basic_Genres", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column101_Basic_Genres.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column101_Basic_Genres") + Me.column101_Basic_Genres.ExtendedProperties.Add("Generator_UserColumnName", "101_Basic_Genres") + MyBase.Columns.Add(Me.column101_Basic_Genres) + Me.column102_Perspectives = New Global.System.Data.DataColumn("102_Perspectives", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column102_Perspectives.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column102_Perspectives") + Me.column102_Perspectives.ExtendedProperties.Add("Generator_UserColumnName", "102_Perspectives") + MyBase.Columns.Add(Me.column102_Perspectives) + Me.column103_Sports_Themes = New Global.System.Data.DataColumn("103_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column103_Sports_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column103_Sports_Themes") + Me.column103_Sports_Themes.ExtendedProperties.Add("Generator_UserColumnName", "103_Sports_Themes") + MyBase.Columns.Add(Me.column103_Sports_Themes) + Me.column104_Non_Sports_Themes = New Global.System.Data.DataColumn("104_Non_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column104_Non_Sports_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column104_Non_Sports_Themes") + Me.column104_Non_Sports_Themes.ExtendedProperties.Add("Generator_UserColumnName", "104_Non_Sports_Themes") + MyBase.Columns.Add(Me.column104_Non_Sports_Themes) + Me.column105_Educational_Categories = New Global.System.Data.DataColumn("105_Educational_Categories", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column105_Educational_Categories.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column105_Educational_Categories") + Me.column105_Educational_Categories.ExtendedProperties.Add("Generator_UserColumnName", "105_Educational_Categories") + MyBase.Columns.Add(Me.column105_Educational_Categories) + Me.column106_Other_Attributes = New Global.System.Data.DataColumn("106_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column106_Other_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column106_Other_Attributes") + Me.column106_Other_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "106_Other_Attributes") + MyBase.Columns.Add(Me.column106_Other_Attributes) + Me.column107_Visual_Presentation = New Global.System.Data.DataColumn("107_Visual_Presentation", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column107_Visual_Presentation.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column107_Visual_Presentation") + Me.column107_Visual_Presentation.ExtendedProperties.Add("Generator_UserColumnName", "107_Visual_Presentation") + MyBase.Columns.Add(Me.column107_Visual_Presentation) + Me.column108_Gameplay = New Global.System.Data.DataColumn("108_Gameplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column108_Gameplay.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column108_Gameplay") + Me.column108_Gameplay.ExtendedProperties.Add("Generator_UserColumnName", "108_Gameplay") + MyBase.Columns.Add(Me.column108_Gameplay) + Me.column109_Pacing = New Global.System.Data.DataColumn("109_Pacing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column109_Pacing.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column109_Pacing") + Me.column109_Pacing.ExtendedProperties.Add("Generator_UserColumnName", "109_Pacing") + MyBase.Columns.Add(Me.column109_Pacing) + Me.column110_Narrative_Theme_Topic = New Global.System.Data.DataColumn("110_Narrative_Theme_Topic", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column110_Narrative_Theme_Topic.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column110_Narrative_Theme_Topic") + Me.column110_Narrative_Theme_Topic.ExtendedProperties.Add("Generator_UserColumnName", "110_Narrative_Theme_Topic") + MyBase.Columns.Add(Me.column110_Narrative_Theme_Topic) + Me.column111_Setting = New Global.System.Data.DataColumn("111_Setting", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column111_Setting.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column111_Setting") + Me.column111_Setting.ExtendedProperties.Add("Generator_UserColumnName", "111_Setting") + MyBase.Columns.Add(Me.column111_Setting) + Me.column112_Vehicular_Themes = New Global.System.Data.DataColumn("112_Vehicular_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column112_Vehicular_Themes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column112_Vehicular_Themes") + Me.column112_Vehicular_Themes.ExtendedProperties.Add("Generator_UserColumnName", "112_Vehicular_Themes") + MyBase.Columns.Add(Me.column112_Vehicular_Themes) + Me.column113_Interface_Control = New Global.System.Data.DataColumn("113_Interface_Control", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column113_Interface_Control.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column113_Interface_Control") + Me.column113_Interface_Control.ExtendedProperties.Add("Generator_UserColumnName", "113_Interface_Control") + MyBase.Columns.Add(Me.column113_Interface_Control) + Me.column114_DLC_Addon = New Global.System.Data.DataColumn("114_DLC_Addon", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column114_DLC_Addon.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column114_DLC_Addon") + Me.column114_DLC_Addon.ExtendedProperties.Add("Generator_UserColumnName", "114_DLC_Addon") + MyBase.Columns.Add(Me.column114_DLC_Addon) + Me.column115_Special_Edition = New Global.System.Data.DataColumn("115_Special_Edition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column115_Special_Edition.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column115_Special_Edition") + Me.column115_Special_Edition.ExtendedProperties.Add("Generator_UserColumnName", "115_Special_Edition") + MyBase.Columns.Add(Me.column115_Special_Edition) + Me.column201_MinPlayers = New Global.System.Data.DataColumn("201_MinPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column201_MinPlayers.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column201_MinPlayers") + Me.column201_MinPlayers.ExtendedProperties.Add("Generator_UserColumnName", "201_MinPlayers") + MyBase.Columns.Add(Me.column201_MinPlayers) + Me.column202_MaxPlayers = New Global.System.Data.DataColumn("202_MaxPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column202_MaxPlayers.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column202_MaxPlayers") + Me.column202_MaxPlayers.ExtendedProperties.Add("Generator_UserColumnName", "202_MaxPlayers") + MyBase.Columns.Add(Me.column202_MaxPlayers) + Me.column203_AgeO = New Global.System.Data.DataColumn("203_AgeO", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column203_AgeO.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column203_AgeO") + Me.column203_AgeO.ExtendedProperties.Add("Generator_UserColumnName", "203_AgeO") + MyBase.Columns.Add(Me.column203_AgeO) + Me.column204_AgeP = New Global.System.Data.DataColumn("204_AgeP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column204_AgeP.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column204_AgeP") + Me.column204_AgeP.ExtendedProperties.Add("Generator_UserColumnName", "204_AgeP") + MyBase.Columns.Add(Me.column204_AgeP) + Me.column205_Rating_Descriptors = New Global.System.Data.DataColumn("205_Rating_Descriptors", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column205_Rating_Descriptors.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column205_Rating_Descriptors") + Me.column205_Rating_Descriptors.ExtendedProperties.Add("Generator_UserColumnName", "205_Rating_Descriptors") + MyBase.Columns.Add(Me.column205_Rating_Descriptors) + Me.column206_Other_Attributes = New Global.System.Data.DataColumn("206_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column206_Other_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column206_Other_Attributes") + Me.column206_Other_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "206_Other_Attributes") + MyBase.Columns.Add(Me.column206_Other_Attributes) + Me.column207_Multiplayer_Attributes = New Global.System.Data.DataColumn("207_Multiplayer_Attributes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.column207_Multiplayer_Attributes.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column207_Multiplayer_Attributes") + Me.column207_Multiplayer_Attributes.ExtendedProperties.Add("Generator_UserColumnName", "207_Multiplayer_Attributes") + MyBase.Columns.Add(Me.column207_Multiplayer_Attributes) + Me.column301_Group_Membership = New Global.System.Data.DataColumn("301_Group_Membership", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column301_Group_Membership.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column301_Group_Membership") + Me.column301_Group_Membership.ExtendedProperties.Add("Generator_UserColumnName", "301_Group_Membership") + MyBase.Columns.Add(Me.column301_Group_Membership) + Me.column401_Staff = New Global.System.Data.DataColumn("401_Staff", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.column401_Staff.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "column401_Staff") + Me.column401_Staff.ExtendedProperties.Add("Generator_UserColumnName", "401_Staff") + MyBase.Columns.Add(Me.column401_Staff) + Me.columnSimilarity = New Global.System.Data.DataColumn("Similarity", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSimilarity) + End Sub + + _ + Public Function Newtbl_Similarity_CalculationRow() As tbl_Similarity_CalculationRow + Return CType(Me.NewRow,tbl_Similarity_CalculationRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Similarity_CalculationRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Similarity_CalculationRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Similarity_CalculationRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_CalculationRowChanged(Me, New tbl_Similarity_CalculationRowChangeEvent(CType(e.Row,tbl_Similarity_CalculationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Similarity_CalculationRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_CalculationRowChanging(Me, New tbl_Similarity_CalculationRowChangeEvent(CType(e.Row,tbl_Similarity_CalculationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Similarity_CalculationRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_CalculationRowDeleted(Me, New tbl_Similarity_CalculationRowChangeEvent(CType(e.Row,tbl_Similarity_CalculationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Similarity_CalculationRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_CalculationRowDeleting(Me, New tbl_Similarity_CalculationRowChangeEvent(CType(e.Row,tbl_Similarity_CalculationRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Similarity_CalculationRow(ByVal row As tbl_Similarity_CalculationRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Similarity_CalculationDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Similarity_Calculation_ConfigDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Similarity_Calculation_ConfigRow) + + Private columnid_Similarity_Calculation_Config As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnWeight_001_Platform As Global.System.Data.DataColumn + + Private columnWeight_002_MobyRank As Global.System.Data.DataColumn + + Private columnWeight_003_MobyScore As Global.System.Data.DataColumn + + Private columnWeight_004_Publisher As Global.System.Data.DataColumn + + Private columnWeight_005_Developer As Global.System.Data.DataColumn + + Private columnWeight_006_Year As Global.System.Data.DataColumn + + Private columnWeight_101_Basic_Genres As Global.System.Data.DataColumn + + Private columnWeight_102_Perspectives As Global.System.Data.DataColumn + + Private columnWeight_103_Sports_Themes As Global.System.Data.DataColumn + + Private columnWeight_104_Non_Sports_Themes As Global.System.Data.DataColumn + + Private columnWeight_105_Educational_Categories As Global.System.Data.DataColumn + + Private columnWeight_106_Other_Attributes As Global.System.Data.DataColumn + + Private columnWeight_107_Visual_Presentation As Global.System.Data.DataColumn + + Private columnWeight_108_Gameplay As Global.System.Data.DataColumn + + Private columnWeight_109_Pacing As Global.System.Data.DataColumn + + Private columnWeight_110_Narrative_Theme_Topic As Global.System.Data.DataColumn + + Private columnWeight_111_Setting As Global.System.Data.DataColumn + + Private columnWeight_112_Vehicular_Themes As Global.System.Data.DataColumn + + Private columnWeight_113_Interface_Control As Global.System.Data.DataColumn + + Private columnWeight_114_DLC_Addon As Global.System.Data.DataColumn + + Private columnWeight_115_Special_Edition As Global.System.Data.DataColumn + + Private columnWeight_201_MinPlayers As Global.System.Data.DataColumn + + Private columnWeight_202_MaxPlayers As Global.System.Data.DataColumn + + Private columnWeight_203_AgeO As Global.System.Data.DataColumn + + Private columnWeight_204_AgeP As Global.System.Data.DataColumn + + Private columnWeight_205_Rating_Descriptors As Global.System.Data.DataColumn + + Private columnWeight_206_Other_Attributes As Global.System.Data.DataColumn + + Private columnWeight_207_Multiplayer_Attributes As Global.System.Data.DataColumn + + Private columnWeight_301_Group_Membership As Global.System.Data.DataColumn + + Private columnWeight_401_Staff As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Similarity_Calculation_Config" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Similarity_Calculation_ConfigColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Similarity_Calculation_Config + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Weight_001_PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_001_Platform + End Get + End Property + + _ + Public ReadOnly Property Weight_002_MobyRankColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_002_MobyRank + End Get + End Property + + _ + Public ReadOnly Property Weight_003_MobyScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_003_MobyScore + End Get + End Property + + _ + Public ReadOnly Property Weight_004_PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_004_Publisher + End Get + End Property + + _ + Public ReadOnly Property Weight_005_DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_005_Developer + End Get + End Property + + _ + Public ReadOnly Property Weight_006_YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_006_Year + End Get + End Property + + _ + Public ReadOnly Property Weight_101_Basic_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_101_Basic_Genres + End Get + End Property + + _ + Public ReadOnly Property Weight_102_PerspectivesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_102_Perspectives + End Get + End Property + + _ + Public ReadOnly Property Weight_103_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_103_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property Weight_104_Non_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_104_Non_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property Weight_105_Educational_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_105_Educational_Categories + End Get + End Property + + _ + Public ReadOnly Property Weight_106_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_106_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property Weight_107_Visual_PresentationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_107_Visual_Presentation + End Get + End Property + + _ + Public ReadOnly Property Weight_108_GameplayColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_108_Gameplay + End Get + End Property + + _ + Public ReadOnly Property Weight_109_PacingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_109_Pacing + End Get + End Property + + _ + Public ReadOnly Property Weight_110_Narrative_Theme_TopicColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_110_Narrative_Theme_Topic + End Get + End Property + + _ + Public ReadOnly Property Weight_111_SettingColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_111_Setting + End Get + End Property + + _ + Public ReadOnly Property Weight_112_Vehicular_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_112_Vehicular_Themes + End Get + End Property + + _ + Public ReadOnly Property Weight_113_Interface_ControlColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_113_Interface_Control + End Get + End Property + + _ + Public ReadOnly Property Weight_114_DLC_AddonColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_114_DLC_Addon + End Get + End Property + + _ + Public ReadOnly Property Weight_115_Special_EditionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_115_Special_Edition + End Get + End Property + + _ + Public ReadOnly Property Weight_201_MinPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_201_MinPlayers + End Get + End Property + + _ + Public ReadOnly Property Weight_202_MaxPlayersColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_202_MaxPlayers + End Get + End Property + + _ + Public ReadOnly Property Weight_203_AgeOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_203_AgeO + End Get + End Property + + _ + Public ReadOnly Property Weight_204_AgePColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_204_AgeP + End Get + End Property + + _ + Public ReadOnly Property Weight_205_Rating_DescriptorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_205_Rating_Descriptors + End Get + End Property + + _ + Public ReadOnly Property Weight_206_Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_206_Other_Attributes + End Get + End Property + + _ + Public ReadOnly Property Weight_207_Multiplayer_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_207_Multiplayer_Attributes + End Get + End Property + + _ + Public ReadOnly Property Weight_301_Group_MembershipColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_301_Group_Membership + End Get + End Property + + _ + Public ReadOnly Property Weight_401_StaffColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWeight_401_Staff + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Similarity_Calculation_ConfigRow + Get + Return CType(Me.Rows(index),tbl_Similarity_Calculation_ConfigRow) + End Get + End Property + + _ + Public Event tbl_Similarity_Calculation_ConfigRowChanging As tbl_Similarity_Calculation_ConfigRowChangeEventHandler + + _ + Public Event tbl_Similarity_Calculation_ConfigRowChanged As tbl_Similarity_Calculation_ConfigRowChangeEventHandler + + _ + Public Event tbl_Similarity_Calculation_ConfigRowDeleting As tbl_Similarity_Calculation_ConfigRowChangeEventHandler + + _ + Public Event tbl_Similarity_Calculation_ConfigRowDeleted As tbl_Similarity_Calculation_ConfigRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Similarity_Calculation_ConfigRow(ByVal row As tbl_Similarity_Calculation_ConfigRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Similarity_Calculation_ConfigRow( _ + ByVal Name As String, _ + ByVal Weight_001_Platform As Integer, _ + ByVal Weight_002_MobyRank As Integer, _ + ByVal Weight_003_MobyScore As Integer, _ + ByVal Weight_004_Publisher As Integer, _ + ByVal Weight_005_Developer As Integer, _ + ByVal Weight_006_Year As Integer, _ + ByVal Weight_101_Basic_Genres As Integer, _ + ByVal Weight_102_Perspectives As Integer, _ + ByVal Weight_103_Sports_Themes As Integer, _ + ByVal Weight_104_Non_Sports_Themes As Integer, _ + ByVal Weight_105_Educational_Categories As Integer, _ + ByVal Weight_106_Other_Attributes As Integer, _ + ByVal Weight_107_Visual_Presentation As Integer, _ + ByVal Weight_108_Gameplay As Integer, _ + ByVal Weight_109_Pacing As Integer, _ + ByVal Weight_110_Narrative_Theme_Topic As Integer, _ + ByVal Weight_111_Setting As Integer, _ + ByVal Weight_112_Vehicular_Themes As Integer, _ + ByVal Weight_113_Interface_Control As Integer, _ + ByVal Weight_114_DLC_Addon As Integer, _ + ByVal Weight_115_Special_Edition As Integer, _ + ByVal Weight_201_MinPlayers As Integer, _ + ByVal Weight_202_MaxPlayers As Integer, _ + ByVal Weight_203_AgeO As Integer, _ + ByVal Weight_204_AgeP As Integer, _ + ByVal Weight_205_Rating_Descriptors As Integer, _ + ByVal Weight_206_Other_Attributes As Integer, _ + ByVal Weight_207_Multiplayer_Attributes As Integer, _ + ByVal Weight_301_Group_Membership As Integer, _ + ByVal Weight_401_Staff As Integer) As tbl_Similarity_Calculation_ConfigRow + Dim rowtbl_Similarity_Calculation_ConfigRow As tbl_Similarity_Calculation_ConfigRow = CType(Me.NewRow,tbl_Similarity_Calculation_ConfigRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name, Weight_001_Platform, Weight_002_MobyRank, Weight_003_MobyScore, Weight_004_Publisher, Weight_005_Developer, Weight_006_Year, Weight_101_Basic_Genres, Weight_102_Perspectives, Weight_103_Sports_Themes, Weight_104_Non_Sports_Themes, Weight_105_Educational_Categories, Weight_106_Other_Attributes, Weight_107_Visual_Presentation, Weight_108_Gameplay, Weight_109_Pacing, Weight_110_Narrative_Theme_Topic, Weight_111_Setting, Weight_112_Vehicular_Themes, Weight_113_Interface_Control, Weight_114_DLC_Addon, Weight_115_Special_Edition, Weight_201_MinPlayers, Weight_202_MaxPlayers, Weight_203_AgeO, Weight_204_AgeP, Weight_205_Rating_Descriptors, Weight_206_Other_Attributes, Weight_207_Multiplayer_Attributes, Weight_301_Group_Membership, Weight_401_Staff} + rowtbl_Similarity_Calculation_ConfigRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Similarity_Calculation_ConfigRow) + Return rowtbl_Similarity_Calculation_ConfigRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Similarity_Calculation_ConfigDataTable = CType(MyBase.Clone,tbl_Similarity_Calculation_ConfigDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Similarity_Calculation_ConfigDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Similarity_Calculation_Config = MyBase.Columns("id_Similarity_Calculation_Config") + Me.columnName = MyBase.Columns("Name") + Me.columnWeight_001_Platform = MyBase.Columns("Weight_001_Platform") + Me.columnWeight_002_MobyRank = MyBase.Columns("Weight_002_MobyRank") + Me.columnWeight_003_MobyScore = MyBase.Columns("Weight_003_MobyScore") + Me.columnWeight_004_Publisher = MyBase.Columns("Weight_004_Publisher") + Me.columnWeight_005_Developer = MyBase.Columns("Weight_005_Developer") + Me.columnWeight_006_Year = MyBase.Columns("Weight_006_Year") + Me.columnWeight_101_Basic_Genres = MyBase.Columns("Weight_101_Basic_Genres") + Me.columnWeight_102_Perspectives = MyBase.Columns("Weight_102_Perspectives") + Me.columnWeight_103_Sports_Themes = MyBase.Columns("Weight_103_Sports_Themes") + Me.columnWeight_104_Non_Sports_Themes = MyBase.Columns("Weight_104_Non_Sports_Themes") + Me.columnWeight_105_Educational_Categories = MyBase.Columns("Weight_105_Educational_Categories") + Me.columnWeight_106_Other_Attributes = MyBase.Columns("Weight_106_Other_Attributes") + Me.columnWeight_107_Visual_Presentation = MyBase.Columns("Weight_107_Visual_Presentation") + Me.columnWeight_108_Gameplay = MyBase.Columns("Weight_108_Gameplay") + Me.columnWeight_109_Pacing = MyBase.Columns("Weight_109_Pacing") + Me.columnWeight_110_Narrative_Theme_Topic = MyBase.Columns("Weight_110_Narrative_Theme_Topic") + Me.columnWeight_111_Setting = MyBase.Columns("Weight_111_Setting") + Me.columnWeight_112_Vehicular_Themes = MyBase.Columns("Weight_112_Vehicular_Themes") + Me.columnWeight_113_Interface_Control = MyBase.Columns("Weight_113_Interface_Control") + Me.columnWeight_114_DLC_Addon = MyBase.Columns("Weight_114_DLC_Addon") + Me.columnWeight_115_Special_Edition = MyBase.Columns("Weight_115_Special_Edition") + Me.columnWeight_201_MinPlayers = MyBase.Columns("Weight_201_MinPlayers") + Me.columnWeight_202_MaxPlayers = MyBase.Columns("Weight_202_MaxPlayers") + Me.columnWeight_203_AgeO = MyBase.Columns("Weight_203_AgeO") + Me.columnWeight_204_AgeP = MyBase.Columns("Weight_204_AgeP") + Me.columnWeight_205_Rating_Descriptors = MyBase.Columns("Weight_205_Rating_Descriptors") + Me.columnWeight_206_Other_Attributes = MyBase.Columns("Weight_206_Other_Attributes") + Me.columnWeight_207_Multiplayer_Attributes = MyBase.Columns("Weight_207_Multiplayer_Attributes") + Me.columnWeight_301_Group_Membership = MyBase.Columns("Weight_301_Group_Membership") + Me.columnWeight_401_Staff = MyBase.Columns("Weight_401_Staff") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Similarity_Calculation_Config = New Global.System.Data.DataColumn("id_Similarity_Calculation_Config", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Similarity_Calculation_Config) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnWeight_001_Platform = New Global.System.Data.DataColumn("Weight_001_Platform", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_001_Platform) + Me.columnWeight_002_MobyRank = New Global.System.Data.DataColumn("Weight_002_MobyRank", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_002_MobyRank) + Me.columnWeight_003_MobyScore = New Global.System.Data.DataColumn("Weight_003_MobyScore", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_003_MobyScore) + Me.columnWeight_004_Publisher = New Global.System.Data.DataColumn("Weight_004_Publisher", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_004_Publisher) + Me.columnWeight_005_Developer = New Global.System.Data.DataColumn("Weight_005_Developer", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_005_Developer) + Me.columnWeight_006_Year = New Global.System.Data.DataColumn("Weight_006_Year", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_006_Year) + Me.columnWeight_101_Basic_Genres = New Global.System.Data.DataColumn("Weight_101_Basic_Genres", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_101_Basic_Genres) + Me.columnWeight_102_Perspectives = New Global.System.Data.DataColumn("Weight_102_Perspectives", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_102_Perspectives) + Me.columnWeight_103_Sports_Themes = New Global.System.Data.DataColumn("Weight_103_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_103_Sports_Themes) + Me.columnWeight_104_Non_Sports_Themes = New Global.System.Data.DataColumn("Weight_104_Non_Sports_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_104_Non_Sports_Themes) + Me.columnWeight_105_Educational_Categories = New Global.System.Data.DataColumn("Weight_105_Educational_Categories", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_105_Educational_Categories) + Me.columnWeight_106_Other_Attributes = New Global.System.Data.DataColumn("Weight_106_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_106_Other_Attributes) + Me.columnWeight_107_Visual_Presentation = New Global.System.Data.DataColumn("Weight_107_Visual_Presentation", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_107_Visual_Presentation) + Me.columnWeight_108_Gameplay = New Global.System.Data.DataColumn("Weight_108_Gameplay", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_108_Gameplay) + Me.columnWeight_109_Pacing = New Global.System.Data.DataColumn("Weight_109_Pacing", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_109_Pacing) + Me.columnWeight_110_Narrative_Theme_Topic = New Global.System.Data.DataColumn("Weight_110_Narrative_Theme_Topic", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_110_Narrative_Theme_Topic) + Me.columnWeight_111_Setting = New Global.System.Data.DataColumn("Weight_111_Setting", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_111_Setting) + Me.columnWeight_112_Vehicular_Themes = New Global.System.Data.DataColumn("Weight_112_Vehicular_Themes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_112_Vehicular_Themes) + Me.columnWeight_113_Interface_Control = New Global.System.Data.DataColumn("Weight_113_Interface_Control", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_113_Interface_Control) + Me.columnWeight_114_DLC_Addon = New Global.System.Data.DataColumn("Weight_114_DLC_Addon", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_114_DLC_Addon) + Me.columnWeight_115_Special_Edition = New Global.System.Data.DataColumn("Weight_115_Special_Edition", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_115_Special_Edition) + Me.columnWeight_201_MinPlayers = New Global.System.Data.DataColumn("Weight_201_MinPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_201_MinPlayers) + Me.columnWeight_202_MaxPlayers = New Global.System.Data.DataColumn("Weight_202_MaxPlayers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_202_MaxPlayers) + Me.columnWeight_203_AgeO = New Global.System.Data.DataColumn("Weight_203_AgeO", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_203_AgeO) + Me.columnWeight_204_AgeP = New Global.System.Data.DataColumn("Weight_204_AgeP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_204_AgeP) + Me.columnWeight_205_Rating_Descriptors = New Global.System.Data.DataColumn("Weight_205_Rating_Descriptors", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_205_Rating_Descriptors) + Me.columnWeight_206_Other_Attributes = New Global.System.Data.DataColumn("Weight_206_Other_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_206_Other_Attributes) + Me.columnWeight_207_Multiplayer_Attributes = New Global.System.Data.DataColumn("Weight_207_Multiplayer_Attributes", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_207_Multiplayer_Attributes) + Me.columnWeight_301_Group_Membership = New Global.System.Data.DataColumn("Weight_301_Group_Membership", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_301_Group_Membership) + Me.columnWeight_401_Staff = New Global.System.Data.DataColumn("Weight_401_Staff", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWeight_401_Staff) + Me.columnid_Similarity_Calculation_Config.AutoIncrement = true + Me.columnid_Similarity_Calculation_Config.AutoIncrementSeed = -1 + Me.columnid_Similarity_Calculation_Config.AutoIncrementStep = -1 + Me.columnName.DefaultValue = CType("",String) + Me.columnWeight_001_Platform.DefaultValue = CType(1,Integer) + Me.columnWeight_002_MobyRank.DefaultValue = CType(1,Integer) + Me.columnWeight_003_MobyScore.DefaultValue = CType(1,Integer) + Me.columnWeight_004_Publisher.DefaultValue = CType(1,Integer) + Me.columnWeight_005_Developer.DefaultValue = CType(1,Integer) + Me.columnWeight_006_Year.DefaultValue = CType(1,Integer) + Me.columnWeight_101_Basic_Genres.DefaultValue = CType(1,Integer) + Me.columnWeight_102_Perspectives.DefaultValue = CType(1,Integer) + Me.columnWeight_103_Sports_Themes.DefaultValue = CType(1,Integer) + Me.columnWeight_104_Non_Sports_Themes.DefaultValue = CType(1,Integer) + Me.columnWeight_105_Educational_Categories.DefaultValue = CType(1,Integer) + Me.columnWeight_106_Other_Attributes.DefaultValue = CType(1,Integer) + Me.columnWeight_107_Visual_Presentation.DefaultValue = CType(1,Integer) + Me.columnWeight_108_Gameplay.DefaultValue = CType(1,Integer) + Me.columnWeight_109_Pacing.DefaultValue = CType(1,Integer) + Me.columnWeight_110_Narrative_Theme_Topic.DefaultValue = CType(1,Integer) + Me.columnWeight_111_Setting.DefaultValue = CType(1,Integer) + Me.columnWeight_112_Vehicular_Themes.DefaultValue = CType(1,Integer) + Me.columnWeight_113_Interface_Control.DefaultValue = CType(1,Integer) + Me.columnWeight_114_DLC_Addon.DefaultValue = CType(1,Integer) + Me.columnWeight_115_Special_Edition.DefaultValue = CType(1,Integer) + Me.columnWeight_201_MinPlayers.DefaultValue = CType(1,Integer) + Me.columnWeight_202_MaxPlayers.DefaultValue = CType(1,Integer) + Me.columnWeight_203_AgeO.DefaultValue = CType(1,Integer) + Me.columnWeight_204_AgeP.DefaultValue = CType(1,Integer) + Me.columnWeight_205_Rating_Descriptors.DefaultValue = CType(1,Integer) + Me.columnWeight_206_Other_Attributes.DefaultValue = CType(1,Integer) + Me.columnWeight_207_Multiplayer_Attributes.DefaultValue = CType(1,Integer) + Me.columnWeight_301_Group_Membership.DefaultValue = CType(1,Integer) + Me.columnWeight_401_Staff.DefaultValue = CType(1,Integer) + End Sub + + _ + Public Function Newtbl_Similarity_Calculation_ConfigRow() As tbl_Similarity_Calculation_ConfigRow + Return CType(Me.NewRow,tbl_Similarity_Calculation_ConfigRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Similarity_Calculation_ConfigRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Similarity_Calculation_ConfigRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Similarity_Calculation_ConfigRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_Calculation_ConfigRowChanged(Me, New tbl_Similarity_Calculation_ConfigRowChangeEvent(CType(e.Row,tbl_Similarity_Calculation_ConfigRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Similarity_Calculation_ConfigRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_Calculation_ConfigRowChanging(Me, New tbl_Similarity_Calculation_ConfigRowChangeEvent(CType(e.Row,tbl_Similarity_Calculation_ConfigRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Similarity_Calculation_ConfigRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_Calculation_ConfigRowDeleted(Me, New tbl_Similarity_Calculation_ConfigRowChangeEvent(CType(e.Row,tbl_Similarity_Calculation_ConfigRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Similarity_Calculation_ConfigRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Similarity_Calculation_ConfigRowDeleting(Me, New tbl_Similarity_Calculation_ConfigRowChangeEvent(CType(e.Row,tbl_Similarity_Calculation_ConfigRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Similarity_Calculation_ConfigRow(ByVal row As tbl_Similarity_Calculation_ConfigRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Similarity_Calculation_ConfigDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable + Inherits Global.System.Data.TypedTableBase(Of src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + + Private columnid_Similarity_Calculation_Results As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_ucr_Emulation_cmb_Similarity_Calculation_Results" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Similarity_Calculation_ResultsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Similarity_Calculation_Results + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + Get + Return CType(Me.Rows(index),src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + End Get + End Property + + _ + Public Event src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChanging As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChanged As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeleting As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEventHandler + + _ + Public Event src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeleted As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow(ByVal row As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow(ByVal id_Similarity_Calculation_Results As Integer, ByVal Name As String) As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + Dim rowsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow = CType(Me.NewRow,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + Dim columnValuesArray() As Object = New Object() {id_Similarity_Calculation_Results, Name} + rowsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + Return rowsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable = CType(MyBase.Clone,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Similarity_Calculation_Results = MyBase.Columns("id_Similarity_Calculation_Results") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Similarity_Calculation_Results = New Global.System.Data.DataColumn("id_Similarity_Calculation_Results", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Similarity_Calculation_Results) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + End Sub + + _ + Public Function Newsrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow() As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + Return CType(Me.NewRow,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChanged(Me, New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChanging(Me, New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeletedEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeleted(Me, New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeletingEvent) Is Nothing) Then + RaiseEvent src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowDeleting(Me, New src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent(CType(e.Row,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow(ByVal row As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Emu_Games_Have_Want_List_ItemsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Emu_Games_Have_Want_List_ItemsRow) + + Private columnid_Emu_Games_Have_Want_List_Items As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnid_Emu_Games_Have_Want_Lists As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnComments As Global.System.Data.DataColumn + + Private columnPurchase_Date As Global.System.Data.DataColumn + + Private columnPurchase_Price As Global.System.Data.DataColumn + + Private columnCurrency As Global.System.Data.DataColumn + + Private columnPurchase_Location As Global.System.Data.DataColumn + + Private columnWilling_to_Trade As Global.System.Data.DataColumn + + Private columnLocation As Global.System.Data.DataColumn + + Private columnBox_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnBox_Comments As Global.System.Data.DataColumn + + Private columnMedia_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnMedia_Comments As Global.System.Data.DataColumn + + Private columnManual_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnManual_Comments As Global.System.Data.DataColumn + + Private columnCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnCatalog_Comments As Global.System.Data.DataColumn + + Private columnReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnReference_Card_Comments As Global.System.Data.DataColumn + + Private columnAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions As Global.System.Data.DataColumn + + Private columnAdditional_Items_Comments As Global.System.Data.DataColumn + + Private columntmp_Game As Global.System.Data.DataColumn + + Private columntmp_Platform As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Emu_Games_Have_Want_List_Items" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Emu_Games_Have_Want_List_ItemsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Have_Want_List_Items + End Get + End Property + + _ + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games + End Get + End Property + + _ + Public ReadOnly Property id_Emu_Games_Have_Want_ListsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emu_Games_Have_Want_Lists + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnComments + End Get + End Property + + _ + Public ReadOnly Property Purchase_DateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPurchase_Date + End Get + End Property + + _ + Public ReadOnly Property Purchase_PriceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPurchase_Price + End Get + End Property + + _ + Public ReadOnly Property CurrencyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCurrency + End Get + End Property + + _ + Public ReadOnly Property Purchase_LocationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPurchase_Location + End Get + End Property + + _ + Public ReadOnly Property Willing_to_TradeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWilling_to_Trade + End Get + End Property + + _ + Public ReadOnly Property LocationColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation + End Get + End Property + + _ + Public ReadOnly Property Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBox_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Box_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBox_Comments + End Get + End Property + + _ + Public ReadOnly Property Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMedia_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Media_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMedia_Comments + End Get + End Property + + _ + Public ReadOnly Property Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnManual_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Manual_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnManual_Comments + End Get + End Property + + _ + Public ReadOnly Property Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Catalog_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCatalog_Comments + End Get + End Property + + _ + Public ReadOnly Property Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Reference_Card_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnReference_Card_Comments + End Get + End Property + + _ + Public ReadOnly Property Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions + End Get + End Property + + _ + Public ReadOnly Property Additional_Items_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdditional_Items_Comments + End Get + End Property + + _ + Public ReadOnly Property tmp_GameColumn() As Global.System.Data.DataColumn + Get + Return Me.columntmp_Game + End Get + End Property + + _ + Public ReadOnly Property tmp_PlatformColumn() As Global.System.Data.DataColumn + Get + Return Me.columntmp_Platform + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Emu_Games_Have_Want_List_ItemsRow + Get + Return CType(Me.Rows(index),tbl_Emu_Games_Have_Want_List_ItemsRow) + End Get + End Property + + _ + Public Event tbl_Emu_Games_Have_Want_List_ItemsRowChanging As tbl_Emu_Games_Have_Want_List_ItemsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Have_Want_List_ItemsRowChanged As tbl_Emu_Games_Have_Want_List_ItemsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Have_Want_List_ItemsRowDeleting As tbl_Emu_Games_Have_Want_List_ItemsRowChangeEventHandler + + _ + Public Event tbl_Emu_Games_Have_Want_List_ItemsRowDeleted As tbl_Emu_Games_Have_Want_List_ItemsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Emu_Games_Have_Want_List_ItemsRow(ByVal row As tbl_Emu_Games_Have_Want_List_ItemsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Emu_Games_Have_Want_List_ItemsRow( _ + ByVal id_Emu_Games_Have_Want_List_Items As Long, _ + ByVal id_Emu_Games As Long, _ + ByVal id_Emu_Games_Have_Want_Lists As Long, _ + ByVal Description As String, _ + ByVal Comments As String, _ + ByVal Purchase_Date As Date, _ + ByVal Purchase_Price As Decimal, _ + ByVal Currency As String, _ + ByVal Purchase_Location As String, _ + ByVal Willing_to_Trade As Boolean, _ + ByVal Location As String, _ + ByVal Box_id_Moby_Have_Want_List_Item_Detail_Conditions As String, _ + ByVal Box_Comments As String, _ + ByVal Media_id_Moby_Have_Want_List_Item_Detail_Conditions As Long, _ + ByVal Media_Comments As String, _ + ByVal Manual_id_Moby_Have_Want_List_Item_Detail_Conditions As Long, _ + ByVal Manual_Comments As String, _ + ByVal Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions As Long, _ + ByVal Catalog_Comments As String, _ + ByVal Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions As Long, _ + ByVal Reference_Card_Comments As String, _ + ByVal Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions As Long, _ + ByVal Additional_Items_Comments As String, _ + ByVal tmp_Game As String, _ + ByVal tmp_Platform As String) As tbl_Emu_Games_Have_Want_List_ItemsRow + Dim rowtbl_Emu_Games_Have_Want_List_ItemsRow As tbl_Emu_Games_Have_Want_List_ItemsRow = CType(Me.NewRow,tbl_Emu_Games_Have_Want_List_ItemsRow) + Dim columnValuesArray() As Object = New Object() {id_Emu_Games_Have_Want_List_Items, id_Emu_Games, id_Emu_Games_Have_Want_Lists, Description, Comments, Purchase_Date, Purchase_Price, Currency, Purchase_Location, Willing_to_Trade, Location, Box_id_Moby_Have_Want_List_Item_Detail_Conditions, Box_Comments, Media_id_Moby_Have_Want_List_Item_Detail_Conditions, Media_Comments, Manual_id_Moby_Have_Want_List_Item_Detail_Conditions, Manual_Comments, Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions, Catalog_Comments, Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions, Reference_Card_Comments, Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions, Additional_Items_Comments, tmp_Game, tmp_Platform} + rowtbl_Emu_Games_Have_Want_List_ItemsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Emu_Games_Have_Want_List_ItemsRow) + Return rowtbl_Emu_Games_Have_Want_List_ItemsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Emu_Games_Have_Want_List_ItemsDataTable = CType(MyBase.Clone,tbl_Emu_Games_Have_Want_List_ItemsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Emu_Games_Have_Want_List_ItemsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Emu_Games_Have_Want_List_Items = MyBase.Columns("id_Emu_Games_Have_Want_List_Items") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnid_Emu_Games_Have_Want_Lists = MyBase.Columns("id_Emu_Games_Have_Want_Lists") + Me.columnDescription = MyBase.Columns("Description") + Me.columnComments = MyBase.Columns("Comments") + Me.columnPurchase_Date = MyBase.Columns("Purchase_Date") + Me.columnPurchase_Price = MyBase.Columns("Purchase_Price") + Me.columnCurrency = MyBase.Columns("Currency") + Me.columnPurchase_Location = MyBase.Columns("Purchase_Location") + Me.columnWilling_to_Trade = MyBase.Columns("Willing_to_Trade") + Me.columnLocation = MyBase.Columns("Location") + Me.columnBox_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Box_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnBox_Comments = MyBase.Columns("Box_Comments") + Me.columnMedia_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Media_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnMedia_Comments = MyBase.Columns("Media_Comments") + Me.columnManual_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Manual_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnManual_Comments = MyBase.Columns("Manual_Comments") + Me.columnCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnCatalog_Comments = MyBase.Columns("Catalog_Comments") + Me.columnReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnReference_Card_Comments = MyBase.Columns("Reference_Card_Comments") + Me.columnAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions = MyBase.Columns("Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions") + Me.columnAdditional_Items_Comments = MyBase.Columns("Additional_Items_Comments") + Me.columntmp_Game = MyBase.Columns("tmp_Game") + Me.columntmp_Platform = MyBase.Columns("tmp_Platform") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Emu_Games_Have_Want_List_Items = New Global.System.Data.DataColumn("id_Emu_Games_Have_Want_List_Items", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Have_Want_List_Items) + Me.columnid_Emu_Games = New Global.System.Data.DataColumn("id_Emu_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games) + Me.columnid_Emu_Games_Have_Want_Lists = New Global.System.Data.DataColumn("id_Emu_Games_Have_Want_Lists", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emu_Games_Have_Want_Lists) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnComments = New Global.System.Data.DataColumn("Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnComments) + Me.columnPurchase_Date = New Global.System.Data.DataColumn("Purchase_Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPurchase_Date) + Me.columnPurchase_Price = New Global.System.Data.DataColumn("Purchase_Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPurchase_Price) + Me.columnCurrency = New Global.System.Data.DataColumn("Currency", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCurrency) + Me.columnPurchase_Location = New Global.System.Data.DataColumn("Purchase_Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPurchase_Location) + Me.columnWilling_to_Trade = New Global.System.Data.DataColumn("Willing_to_Trade", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWilling_to_Trade) + Me.columnLocation = New Global.System.Data.DataColumn("Location", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation) + Me.columnBox_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Box_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBox_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnBox_Comments = New Global.System.Data.DataColumn("Box_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBox_Comments) + Me.columnMedia_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Media_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMedia_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnMedia_Comments = New Global.System.Data.DataColumn("Media_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMedia_Comments) + Me.columnManual_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Manual_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnManual_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnManual_Comments = New Global.System.Data.DataColumn("Manual_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnManual_Comments) + Me.columnCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnCatalog_Comments = New Global.System.Data.DataColumn("Catalog_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCatalog_Comments) + Me.columnReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnReference_Card_Comments = New Global.System.Data.DataColumn("Reference_Card_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnReference_Card_Comments) + Me.columnAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions = New Global.System.Data.DataColumn("Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions) + Me.columnAdditional_Items_Comments = New Global.System.Data.DataColumn("Additional_Items_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdditional_Items_Comments) + Me.columntmp_Game = New Global.System.Data.DataColumn("tmp_Game", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Game) + Me.columntmp_Platform = New Global.System.Data.DataColumn("tmp_Platform", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Platform) + End Sub + + _ + Public Function Newtbl_Emu_Games_Have_Want_List_ItemsRow() As tbl_Emu_Games_Have_Want_List_ItemsRow + Return CType(Me.NewRow,tbl_Emu_Games_Have_Want_List_ItemsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Emu_Games_Have_Want_List_ItemsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Emu_Games_Have_Want_List_ItemsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Emu_Games_Have_Want_List_ItemsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Have_Want_List_ItemsRowChanged(Me, New tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Have_Want_List_ItemsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Emu_Games_Have_Want_List_ItemsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Have_Want_List_ItemsRowChanging(Me, New tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Have_Want_List_ItemsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Emu_Games_Have_Want_List_ItemsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Have_Want_List_ItemsRowDeleted(Me, New tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Have_Want_List_ItemsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Emu_Games_Have_Want_List_ItemsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Emu_Games_Have_Want_List_ItemsRowDeleting(Me, New tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent(CType(e.Row,tbl_Emu_Games_Have_Want_List_ItemsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Emu_Games_Have_Want_List_ItemsRow(ByVal row As tbl_Emu_Games_Have_Want_List_ItemsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Emu_Games_Have_Want_List_ItemsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_Auto_LinkDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_Auto_LinkRow) + + Private columnid As Global.System.Data.DataColumn + + Private columnIdentifier As Global.System.Data.DataColumn + + Private columnGameName As Global.System.Data.DataColumn + + Private columnGameName_Filtered As Global.System.Data.DataColumn + + Private columnDeveloper As Global.System.Data.DataColumn + + Private columnPublisher As Global.System.Data.DataColumn + + Private columnMatch_Accuracy As Global.System.Data.DataColumn + + Private columnMatch_id_Moby_Releases As Global.System.Data.DataColumn + + Private columnMatch_Moby_Games_URLPart As Global.System.Data.DataColumn + + Private columnMatch_Moby_Gamename As Global.System.Data.DataColumn + + Private columnMatch_Moby_Gamename_Filtered As Global.System.Data.DataColumn + + Private columnMatch_Moby_Year As Global.System.Data.DataColumn + + Private columnMatch_Moby_created As Global.System.Data.DataColumn + + Private columnApply As Global.System.Data.DataColumn + + Private columndeprecated As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Auto_Link" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property idColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid + End Get + End Property + + _ + Public ReadOnly Property IdentifierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIdentifier + End Get + End Property + + _ + Public ReadOnly Property GameNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGameName + End Get + End Property + + _ + Public ReadOnly Property GameName_FilteredColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGameName_Filtered + End Get + End Property + + _ + Public ReadOnly Property DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper + End Get + End Property + + _ + Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher + End Get + End Property + + _ + Public ReadOnly Property Match_AccuracyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Accuracy + End Get + End Property + + _ + Public ReadOnly Property Match_id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_id_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property Match_Moby_Games_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Moby_Games_URLPart + End Get + End Property + + _ + Public ReadOnly Property Match_Moby_GamenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Moby_Gamename + End Get + End Property + + _ + Public ReadOnly Property Match_Moby_Gamename_FilteredColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Moby_Gamename_Filtered + End Get + End Property + + _ + Public ReadOnly Property Match_Moby_YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Moby_Year + End Get + End Property + + _ + Public ReadOnly Property Match_Moby_createdColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMatch_Moby_created + End Get + End Property + + _ + Public ReadOnly Property ApplyColumn() As Global.System.Data.DataColumn + Get + Return Me.columnApply + End Get + End Property + + _ + Public ReadOnly Property deprecatedColumn() As Global.System.Data.DataColumn + Get + Return Me.columndeprecated + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_Auto_LinkRow + Get + Return CType(Me.Rows(index),tbl_Moby_Auto_LinkRow) + End Get + End Property + + _ + Public Event tbl_Moby_Auto_LinkRowChanging As tbl_Moby_Auto_LinkRowChangeEventHandler + + _ + Public Event tbl_Moby_Auto_LinkRowChanged As tbl_Moby_Auto_LinkRowChangeEventHandler + + _ + Public Event tbl_Moby_Auto_LinkRowDeleting As tbl_Moby_Auto_LinkRowChangeEventHandler + + _ + Public Event tbl_Moby_Auto_LinkRowDeleted As tbl_Moby_Auto_LinkRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_Auto_LinkRow(ByVal row As tbl_Moby_Auto_LinkRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_Auto_LinkRow(ByVal Identifier As String, ByVal GameName As String, ByVal GameName_Filtered As String, ByVal Developer As String, ByVal Publisher As String, ByVal Match_Accuracy As Integer, ByVal Match_id_Moby_Releases As Long, ByVal Match_Moby_Games_URLPart As String, ByVal Match_Moby_Gamename As String, ByVal Match_Moby_Gamename_Filtered As String, ByVal Match_Moby_Year As String, ByVal Match_Moby_created As Date, ByVal Apply As Boolean, ByVal deprecated As Boolean) As tbl_Moby_Auto_LinkRow + Dim rowtbl_Moby_Auto_LinkRow As tbl_Moby_Auto_LinkRow = CType(Me.NewRow,tbl_Moby_Auto_LinkRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Identifier, GameName, GameName_Filtered, Developer, Publisher, Match_Accuracy, Match_id_Moby_Releases, Match_Moby_Games_URLPart, Match_Moby_Gamename, Match_Moby_Gamename_Filtered, Match_Moby_Year, Match_Moby_created, Apply, deprecated} + rowtbl_Moby_Auto_LinkRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_Auto_LinkRow) + Return rowtbl_Moby_Auto_LinkRow + End Function + + _ + Public Function FindByid(ByVal id As Long) As tbl_Moby_Auto_LinkRow + Return CType(Me.Rows.Find(New Object() {id}),tbl_Moby_Auto_LinkRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_Auto_LinkDataTable = CType(MyBase.Clone,tbl_Moby_Auto_LinkDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_Auto_LinkDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid = MyBase.Columns("id") + Me.columnIdentifier = MyBase.Columns("Identifier") + Me.columnGameName = MyBase.Columns("GameName") + Me.columnGameName_Filtered = MyBase.Columns("GameName_Filtered") + Me.columnDeveloper = MyBase.Columns("Developer") + Me.columnPublisher = MyBase.Columns("Publisher") + Me.columnMatch_Accuracy = MyBase.Columns("Match_Accuracy") + Me.columnMatch_id_Moby_Releases = MyBase.Columns("Match_id_Moby_Releases") + Me.columnMatch_Moby_Games_URLPart = MyBase.Columns("Match_Moby_Games_URLPart") + Me.columnMatch_Moby_Gamename = MyBase.Columns("Match_Moby_Gamename") + Me.columnMatch_Moby_Gamename_Filtered = MyBase.Columns("Match_Moby_Gamename_Filtered") + Me.columnMatch_Moby_Year = MyBase.Columns("Match_Moby_Year") + Me.columnMatch_Moby_created = MyBase.Columns("Match_Moby_created") + Me.columnApply = MyBase.Columns("Apply") + Me.columndeprecated = MyBase.Columns("deprecated") + End Sub + + _ + Private Sub InitClass() + Me.columnid = New Global.System.Data.DataColumn("id", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid) + Me.columnIdentifier = New Global.System.Data.DataColumn("Identifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIdentifier) + Me.columnGameName = New Global.System.Data.DataColumn("GameName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGameName) + Me.columnGameName_Filtered = New Global.System.Data.DataColumn("GameName_Filtered", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGameName_Filtered) + Me.columnDeveloper = New Global.System.Data.DataColumn("Developer", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper) + Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher) + Me.columnMatch_Accuracy = New Global.System.Data.DataColumn("Match_Accuracy", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Accuracy) + Me.columnMatch_id_Moby_Releases = New Global.System.Data.DataColumn("Match_id_Moby_Releases", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_id_Moby_Releases) + Me.columnMatch_Moby_Games_URLPart = New Global.System.Data.DataColumn("Match_Moby_Games_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Moby_Games_URLPart) + Me.columnMatch_Moby_Gamename = New Global.System.Data.DataColumn("Match_Moby_Gamename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Moby_Gamename) + Me.columnMatch_Moby_Gamename_Filtered = New Global.System.Data.DataColumn("Match_Moby_Gamename_Filtered", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Moby_Gamename_Filtered) + Me.columnMatch_Moby_Year = New Global.System.Data.DataColumn("Match_Moby_Year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Moby_Year) + Me.columnMatch_Moby_created = New Global.System.Data.DataColumn("Match_Moby_created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMatch_Moby_created) + Me.columnApply = New Global.System.Data.DataColumn("Apply", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnApply) + Me.columndeprecated = New Global.System.Data.DataColumn("deprecated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndeprecated) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true)) + Me.columnid.AutoIncrement = true + Me.columnid.AutoIncrementSeed = -1 + Me.columnid.AutoIncrementStep = -1 + Me.columnid.AllowDBNull = false + Me.columnid.Unique = true + Me.columnApply.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function Newtbl_Moby_Auto_LinkRow() As tbl_Moby_Auto_LinkRow + Return CType(Me.NewRow,tbl_Moby_Auto_LinkRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_Auto_LinkRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_Auto_LinkRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_Auto_LinkRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Auto_LinkRowChanged(Me, New tbl_Moby_Auto_LinkRowChangeEvent(CType(e.Row,tbl_Moby_Auto_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_Auto_LinkRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Auto_LinkRowChanging(Me, New tbl_Moby_Auto_LinkRowChangeEvent(CType(e.Row,tbl_Moby_Auto_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_Auto_LinkRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Auto_LinkRowDeleted(Me, New tbl_Moby_Auto_LinkRowChangeEvent(CType(e.Row,tbl_Moby_Auto_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_Auto_LinkRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Auto_LinkRowDeleting(Me, New tbl_Moby_Auto_LinkRowChangeEvent(CType(e.Row,tbl_Moby_Auto_LinkRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_Auto_LinkRow(ByVal row As tbl_Moby_Auto_LinkRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ML = New DS_ML() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_Auto_LinkDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_EmulatorsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emulators As tbl_EmulatorsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emulators = CType(Me.Table,tbl_EmulatorsDataTable) + End Sub + + _ + Public Property id_Emulators() As Long + Get + Return CType(Me(Me.tabletbl_Emulators.id_EmulatorsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emulators.id_EmulatorsColumn) = value + End Set + End Property + + _ + Public Property Displayname() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.DisplaynameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Displayname in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.DisplaynameColumn) = value + End Set + End Property + + _ + Public Property InstallDirectory() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.InstallDirectoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InstallDirectory in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.InstallDirectoryColumn) = value + End Set + End Property + + _ + Public Property Executable() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.ExecutableColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Executable in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.ExecutableColumn) = value + End Set + End Property + + _ + Public Property StartupParameter() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.StartupParameterColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte StartupParameter in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.StartupParameterColumn) = value + End Set + End Property + + _ + Public Property AutoItScript() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.AutoItScriptColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AutoItScript in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.AutoItScriptColumn) = value + End Set + End Property + + _ + Public Property J2KPreset() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.J2KPresetColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte J2KPreset in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.J2KPresetColumn) = value + End Set + End Property + + _ + Public Property ScreenshotDirectory() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ScreenshotDirectory in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) = value + End Set + End Property + + _ + Public Property Libretro_Core() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.Libretro_CoreColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Libretro_Core in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.Libretro_CoreColumn) = value + End Set + End Property + + _ + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.DisplaynameColumn) + End Function + + _ + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_Emulators.DisplaynameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsInstallDirectoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.InstallDirectoryColumn) + End Function + + _ + Public Sub SetInstallDirectoryNull() + Me(Me.tabletbl_Emulators.InstallDirectoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsExecutableNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ExecutableColumn) + End Function + + _ + Public Sub SetExecutableNull() + Me(Me.tabletbl_Emulators.ExecutableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStartupParameterNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.StartupParameterColumn) + End Function + + _ + Public Sub SetStartupParameterNull() + Me(Me.tabletbl_Emulators.StartupParameterColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAutoItScriptNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.AutoItScriptColumn) + End Function + + _ + Public Sub SetAutoItScriptNull() + Me(Me.tabletbl_Emulators.AutoItScriptColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsJ2KPresetNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.J2KPresetColumn) + End Function + + _ + Public Sub SetJ2KPresetNull() + Me(Me.tabletbl_Emulators.J2KPresetColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsScreenshotDirectoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) + End Function + + _ + Public Sub SetScreenshotDirectoryNull() + Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLibretro_CoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.Libretro_CoreColumn) + End Function + + _ + Public Sub SetLibretro_CoreNull() + Me(Me.tabletbl_Emulators.Libretro_CoreColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emulators_Moby_PlatformsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emulators_Moby_Platforms As tbl_Emulators_Moby_PlatformsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emulators_Moby_Platforms = CType(Me.Table,tbl_Emulators_Moby_PlatformsDataTable) + End Sub + + _ + Public Property id_Emulators_Moby_Platforms() As Long + Get + Return CType(Me(Me.tabletbl_Emulators_Moby_Platforms.id_Emulators_Moby_PlatformsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emulators_Moby_Platforms.id_Emulators_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property id_Emulators() As Long + Get + Return CType(Me(Me.tabletbl_Emulators_Moby_Platforms.id_EmulatorsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emulators_Moby_Platforms.id_EmulatorsColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Long + Get + Return CType(Me(Me.tabletbl_Emulators_Moby_Platforms.id_Moby_PlatformsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = value + End Set + End Property + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_Emulators_Moby_PlatformsRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_Emulators_Moby_Platforms As src_frm_Emulators_Moby_PlatformsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_Emulators_Moby_Platforms = CType(Me.Table,src_frm_Emulators_Moby_PlatformsDataTable) + End Sub + + _ + Public Property id_Moby_Platforms() As Integer + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle src_frm_Emulators_Moby_Platforms"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Supported() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Supported in Tabelle src_frm_Emulators_Moby_Platforms ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) = value + End Set + End Property + + _ + Public Property DefaultEmulator() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DefaultEmulator in Tabelle src_frm_Emulators_Moby_Platforms i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) = value + End Set + End Property + + _ + Public Property Display_Name() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Display_Name in Tabelle src_frm_Emulators_Moby_Platforms ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSupportedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) + End Function + + _ + Public Sub SetSupportedNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDefaultEmulatorNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) + End Function + + _ + Public Sub SetDefaultEmulatorNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplay_NameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) + End Function + + _ + Public Sub SetDisplay_NameNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_PlatformsRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_Platforms As src_ucr_Emulation_PlatformsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_Platforms = CType(Me.Table,src_ucr_Emulation_PlatformsDataTable) + End Sub + + _ + Public Property id_Moby_Platforms() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle src_ucr_Emulation_Platforms ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Platforms.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) = value + End Set + End Property + + _ + Public Property ShortName() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ShortName in Tabelle src_ucr_Emulation_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsShortNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) + End Function + + _ + Public Sub SetShortNameNull() + Me(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_GamesRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_Games As src_ucr_Emulation_GamesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_Games = CType(Me.Table,src_ucr_Emulation_GamesDataTable) + End Sub + + _ + Public Property id_Emu_Games() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property tmp_Highlighted() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Highlighted in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) = value + End Set + End Property + + _ + Public Property id_DOSBox_Configs_Template() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Configs_Template in Tabelle src_ucr_Emulation_Games"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) = value + End Set + End Property + + _ + Public Property id_DOSBox_Configs() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Configs in Tabelle src_ucr_Emulation_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) = value + End Set + End Property + + _ + Public Property Game() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.GameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Game in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.GameColumn) = value + End Set + End Property + + _ + Public Property Folder() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Folder in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn) = value + End Set + End Property + + _ + Public Property File() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.FileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.FileColumn) = value + End Set + End Property + + _ + Public Property InnerFile() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InnerFile in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) = value + End Set + End Property + + _ + Public Property Want() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.WantColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Want in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.WantColumn) = value + End Set + End Property + + _ + Public Property Have() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.HaveColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Have in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.HaveColumn) = value + End Set + End Property + + _ + Public Property Trade() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Trade in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn) = value + End Set + End Property + + _ + Public Property Rank() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.RankColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rank in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.RankColumn) = value + End Set + End Property + + _ + Public Property Score() As Decimal + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Score in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) = value + End Set + End Property + + _ + Public Property Year() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.YearColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.YearColumn) = value + End Set + End Property + + _ + Public Property Num_Played() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Num_Played in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) = value + End Set + End Property + + _ + Public Property Num_Runtime() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Num_Runtime in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) = value + End Set + End Property + + _ + Public Property Rating_Gameplay() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Gameplay in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) = value + End Set + End Property + + _ + Public Property Rating_Graphics() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Graphics in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) = value + End Set + End Property + + _ + Public Property Rating_Personal() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Personal in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) = value + End Set + End Property + + _ + Public Property Rating_Sound() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Sound in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) = value + End Set + End Property + + _ + Public Property Rating_Story() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Story in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) = value + End Set + End Property + + _ + Public Property Favourite() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Favourite in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) = value + End Set + End Property + + _ + Public Property Platform() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PlatformColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Platform in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) = value + End Set + End Property + + _ + Public Property Game_NoPrefix() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Game_NoPrefix in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn) = value + End Set + End Property + + _ + Public Property Age_Pessimistic() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Age_Pessimistic in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) = value + End Set + End Property + + _ + Public Property Age_Optimistic() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Age_Optimistic in Tabelle src_ucr_Emulation_Games ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) = value + End Set + End Property + + _ + Public Property Publisher() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PublisherColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) = value + End Set + End Property + + _ + Public Property Developer() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Technical_Notes() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Technical_Notes in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) = value + End Set + End Property + + _ + Public Property Alternate_Titles() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alternate_Titles in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) = value + End Set + End Property + + _ + Public Property Basic_Genres() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Basic_Genres in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) = value + End Set + End Property + + _ + Public Property Perspectives() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Perspectives in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) = value + End Set + End Property + + _ + Public Property Sports_Themes() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sports_Themes in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property Educational_Categories() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Educational_Categories in Tabelle src_ucr_Emulation_Games ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Other_Attributes() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Other_Attributes in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property Visual_Presentation() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Visual_Presentation in Tabelle src_ucr_Emulation_Games ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) = value + End Set + End Property + + _ + Public Property Pacing() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pacing in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn) = value + End Set + End Property + + _ + Public Property Gameplay() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gameplay in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = value + End Set + End Property + + _ + Public Property Interface_Control() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Interface_Control in Tabelle src_ucr_Emulation_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = value + End Set + End Property + + _ + Public Property Vehicular_Themes() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Vehicular_Themes in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = value + End Set + End Property + + _ + Public Property Setting() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Setting in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = value + End Set + End Property + + _ + Public Property Narrative_Theme_Topic() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Narrative_Theme_Topic in Tabelle src_ucr_Emulation_Games ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) = value + End Set + End Property + + _ + Public Property DLC_Addon() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DLC_Addon in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = value + End Set + End Property + + _ + Public Property Special_Edition() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Special_Edition in Tabelle src_ucr_Emulation_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = value + End Set + End Property + + _ + Public Property Platform_Short() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Platform_Short in Tabelle src_ucr_Emulation_Games ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = value + End Set + End Property + + _ + Public Property Moby_URL() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_URL in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = value + End Set + End Property + + _ + Public Property Moby_Platforms_URLPart() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Platforms_URLPart in Tabelle src_ucr_Emulation_Games ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) = value + End Set + End Property + + _ + Public Property Moby_Games_URLPart() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Games_URLPart in Tabelle src_ucr_Emulation_Games ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) = value + End Set + End Property + + _ + Public Property MinPlayers() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MinPlayers in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) = value + End Set + End Property + + _ + Public Property MaxPlayers() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MaxPlayers in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle src_ucr_Emulation_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Rating() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn) = value + End Set + End Property + + _ + Public Property Version() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Version in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn) = value + End Set + End Property + + _ + Public Property Alt() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.AltColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alt in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.AltColumn) = value + End Set + End Property + + _ + Public Property Trainer() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Trainer in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) = value + End Set + End Property + + _ + Public Property Translation() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Translation in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) = value + End Set + End Property + + _ + Public Property Hack() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.HackColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hack in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.HackColumn) = value + End Set + End Property + + _ + Public Property Bios() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bios in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn) = value + End Set + End Property + + _ + Public Property Prototype() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prototype in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) = value + End Set + End Property + + _ + Public Property Alpha() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alpha in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) = value + End Set + End Property + + _ + Public Property Beta() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.BetaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beta in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.BetaColumn) = value + End Set + End Property + + _ + Public Property Sample() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sample in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn) = value + End Set + End Property + + _ + Public Property Kiosk() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kiosk in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn) = value + End Set + End Property + + _ + Public Property Unlicensed() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlicensed in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = value + End Set + End Property + + _ + Public Property Fixed() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fixed in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn) = value + End Set + End Property + + _ + Public Property Pirated() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pirated in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = value + End Set + End Property + + _ + Public Property Good() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Good in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn) = value + End Set + End Property + + _ + Public Property Bad() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.BadColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bad in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.BadColumn) = value + End Set + End Property + + _ + Public Property Overdump() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Overdump in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) = value + End Set + End Property + + _ + Public Property PublicDomain() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PublicDomain in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) = value + End Set + End Property + + _ + Public Property Regions() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.RegionsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Regions in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) = value + End Set + End Property + + _ + Public Property Languages() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Languages in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) = value + End Set + End Property + + _ + Public Property MP_GameModes() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MP_GameModes in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) = value + End Set + End Property + + _ + Public Property MP_Options() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MP_Options in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) = value + End Set + End Property + + _ + Public Property SpecialInfo() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SpecialInfo in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Games() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Games in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) = value + End Set + End Property + + _ + Public Property Last_Played() As Date + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Last_Played in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) = value + End Set + End Property + + _ + Public Property created() As Date + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.createdColumn) = value + End Set + End Property + + _ + Public Property MultiVolume() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MultiVolume in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) = value + End Set + End Property + + _ + Public Property Volume_Number() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Volume_Number in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) = value + End Set + End Property + + _ + Public Property Platform_Exclusive() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Platform_Exclusive in Tabelle src_ucr_Emulation_Games ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) = value + End Set + End Property + + _ + Public Property J2KPreset() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte J2KPreset in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Releases() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property Similarity() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Similarity in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) = value + End Set + End Property + + _ + Public Property _001_Platform() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 001_Platform in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) = value + End Set + End Property + + _ + Public Property _002_MobyRank() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 002_MobyRank in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) = value + End Set + End Property + + _ + Public Property _003_MobyScore() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 003_MobyScore in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) = value + End Set + End Property + + _ + Public Property _004_Publisher() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 004_Publisher in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) = value + End Set + End Property + + _ + Public Property _005_Developer() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 005_Developer in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) = value + End Set + End Property + + _ + Public Property _006_Year() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 006_Year in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = value + End Set + End Property + + _ + Public Property _101_Basic_Genres() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 101_Basic_Genres in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = value + End Set + End Property + + _ + Public Property _102_Perspectives() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 102_Perspectives in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = value + End Set + End Property + + _ + Public Property _103_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 103_Sports_Themes in Tabelle src_ucr_Emulation_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property _104_Non_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 104_Non_Sports_Themes in Tabelle src_ucr_Emulation_Games ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property _105_Educational_Categories() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 105_Educational_Categories in Tabelle src_ucr_Emulation_Games"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = value + End Set + End Property + + _ + Public Property _106_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 106_Other_Attributes in Tabelle src_ucr_Emulation_Games ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property _107_Visual_Presentation() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 107_Visual_Presentation in Tabelle src_ucr_Emulation_Games is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = value + End Set + End Property + + _ + Public Property _108_Gameplay() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 108_Gameplay in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = value + End Set + End Property + + _ + Public Property _109_Pacing() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 109_Pacing in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = value + End Set + End Property + + _ + Public Property _110_Narrative_Theme_Topic() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 110_Narrative_Theme_Topic in Tabelle src_ucr_Emulation_Games "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = value + End Set + End Property + + _ + Public Property _111_Setting() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 111_Setting in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = value + End Set + End Property + + _ + Public Property _112_Vehicular_Themes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 112_Vehicular_Themes in Tabelle src_ucr_Emulation_Games ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) = value + End Set + End Property + + _ + Public Property _113_Interface_Control() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 113_Interface_Control in Tabelle src_ucr_Emulation_Games ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) = value + End Set + End Property + + _ + Public Property _114_DLC_Addon() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 114_DLC_Addon in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) = value + End Set + End Property + + _ + Public Property _115_Special_Edition() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 115_Special_Edition in Tabelle src_ucr_Emulation_Games ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) = value + End Set + End Property + + _ + Public Property _201_MinPlayers() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 201_MinPlayers in Tabelle src_ucr_Emulation_Games ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn) = value + End Set + End Property + + _ + Public Property _202_MaxPlayers() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._202_MaxPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 202_MaxPlayers in Tabelle src_ucr_Emulation_Games ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._202_MaxPlayersColumn) = value + End Set + End Property + + _ + Public Property _203_AgeO() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._203_AgeOColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 203_AgeO in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._203_AgeOColumn) = value + End Set + End Property + + _ + Public Property _204_AgeP() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._204_AgePColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 204_AgeP in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._204_AgePColumn) = value + End Set + End Property + + _ + Public Property _205_Rating_Descriptors() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._205_Rating_DescriptorsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 205_Rating_Descriptors in Tabelle src_ucr_Emulation_Games ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._205_Rating_DescriptorsColumn) = value + End Set + End Property + + _ + Public Property _206_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._206_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 206_Other_Attributes in Tabelle src_ucr_Emulation_Games ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._206_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property _207_Multiplayer_Attributes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._207_Multiplayer_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 207_Multiplayer_Attributes in Tabelle src_ucr_Emulation_Games"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._207_Multiplayer_AttributesColumn) = value + End Set + End Property + + _ + Public Property _301_Group_Membership() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._301_Group_MembershipColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 301_Group_Membership in Tabelle src_ucr_Emulation_Games ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._301_Group_MembershipColumn) = value + End Set + End Property + + _ + Public Property _401_Staff() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games._401_StaffColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 401_Staff in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games._401_StaffColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_HighlightedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) + End Function + + _ + Public Sub Settmp_HighlightedNull() + Me(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_DOSBox_Configs_TemplateNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) + End Function + + _ + Public Sub Setid_DOSBox_Configs_TemplateNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) + End Function + + _ + Public Sub Setid_DOSBox_ConfigsNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameColumn) + End Function + + _ + Public Sub SetGameNull() + Me(Me.tablesrc_ucr_Emulation_Games.GameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FolderColumn) + End Function + + _ + Public Sub SetFolderNull() + Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFileNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FileColumn) + End Function + + _ + Public Sub SetFileNull() + Me(Me.tablesrc_ucr_Emulation_Games.FileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) + End Function + + _ + Public Sub SetInnerFileNull() + Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWantNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.WantColumn) + End Function + + _ + Public Sub SetWantNull() + Me(Me.tablesrc_ucr_Emulation_Games.WantColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHaveNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.HaveColumn) + End Function + + _ + Public Sub SetHaveNull() + Me(Me.tablesrc_ucr_Emulation_Games.HaveColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTradeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TradeColumn) + End Function + + _ + Public Sub SetTradeNull() + Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRankNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RankColumn) + End Function + + _ + Public Sub SetRankNull() + Me(Me.tablesrc_ucr_Emulation_Games.RankColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsScoreNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) + End Function + + _ + Public Sub SetScoreNull() + Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tablesrc_ucr_Emulation_Games.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNum_PlayedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) + End Function + + _ + Public Sub SetNum_PlayedNull() + Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNum_RuntimeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) + End Function + + _ + Public Sub SetNum_RuntimeNull() + Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_GameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) + End Function + + _ + Public Sub SetRating_GameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_GraphicsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) + End Function + + _ + Public Sub SetRating_GraphicsNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_PersonalNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) + End Function + + _ + Public Sub SetRating_PersonalNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_SoundNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) + End Function + + _ + Public Sub SetRating_SoundNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_StoryNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) + End Function + + _ + Public Sub SetRating_StoryNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFavouriteNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) + End Function + + _ + Public Sub SetFavouriteNull() + Me(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPlatformNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) + End Function + + _ + Public Sub SetPlatformNull() + Me(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGame_NoPrefixNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn) + End Function + + _ + Public Sub SetGame_NoPrefixNull() + Me(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAge_PessimisticNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) + End Function + + _ + Public Sub SetAge_PessimisticNull() + Me(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAge_OptimisticNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) + End Function + + _ + Public Sub SetAge_OptimisticNull() + Me(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) + End Function + + _ + Public Sub SetPublisherNull() + Me(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) + End Function + + _ + Public Sub SetDeveloperNull() + Me(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTechnical_NotesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) + End Function + + _ + Public Sub SetTechnical_NotesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlternate_TitlesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) + End Function + + _ + Public Sub SetAlternate_TitlesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBasic_GenresNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) + End Function + + _ + Public Sub SetBasic_GenresNull() + Me(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPerspectivesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) + End Function + + _ + Public Sub SetPerspectivesNull() + Me(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) + End Function + + _ + Public Sub SetSports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEducational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) + End Function + + _ + Public Sub SetEducational_CategoriesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOther_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) + End Function + + _ + Public Sub SetOther_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVisual_PresentationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) + End Function + + _ + Public Sub SetVisual_PresentationNull() + Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPacingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PacingColumn) + End Function + + _ + Public Sub SetPacingNull() + Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) + End Function + + _ + Public Sub SetGameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsInterface_ControlNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) + End Function + + _ + Public Sub SetInterface_ControlNull() + Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) + End Function + + _ + Public Sub SetVehicular_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSettingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SettingColumn) + End Function + + _ + Public Sub SetSettingNull() + Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNarrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) + End Function + + _ + Public Sub SetNarrative_Theme_TopicNull() + Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDLC_AddonNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) + End Function + + _ + Public Sub SetDLC_AddonNull() + Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSpecial_EditionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) + End Function + + _ + Public Sub SetSpecial_EditionNull() + Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPlatform_ShortNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) + End Function + + _ + Public Sub SetPlatform_ShortNull() + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_URLNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) + End Function + + _ + Public Sub SetMoby_URLNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Platforms_URLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Platforms_URLPartNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Games_URLPartNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMinPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) + End Function + + _ + Public Sub SetMinPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMaxPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) + End Function + + _ + Public Sub SetMaxPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RatingColumn) + End Function + + _ + Public Sub SetRatingNull() + Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVersionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.VersionColumn) + End Function + + _ + Public Sub SetVersionNull() + Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAltNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AltColumn) + End Function + + _ + Public Sub SetAltNull() + Me(Me.tablesrc_ucr_Emulation_Games.AltColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) + End Function + + _ + Public Sub SetTrainerNull() + Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTranslationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) + End Function + + _ + Public Sub SetTranslationNull() + Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.HackColumn) + End Function + + _ + Public Sub SetHackNull() + Me(Me.tablesrc_ucr_Emulation_Games.HackColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BiosColumn) + End Function + + _ + Public Sub SetBiosNull() + Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) + End Function + + _ + Public Sub SetPrototypeNull() + Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) + End Function + + _ + Public Sub SetAlphaNull() + Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BetaColumn) + End Function + + _ + Public Sub SetBetaNull() + Me(Me.tablesrc_ucr_Emulation_Games.BetaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SampleColumn) + End Function + + _ + Public Sub SetSampleNull() + Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.KioskColumn) + End Function + + _ + Public Sub SetKioskNull() + Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) + End Function + + _ + Public Sub SetUnlicensedNull() + Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FixedColumn) + End Function + + _ + Public Sub SetFixedNull() + Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) + End Function + + _ + Public Sub SetPiratedNull() + Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GoodColumn) + End Function + + _ + Public Sub SetGoodNull() + Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BadColumn) + End Function + + _ + Public Sub SetBadNull() + Me(Me.tablesrc_ucr_Emulation_Games.BadColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) + End Function + + _ + Public Sub SetOverdumpNull() + Me(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublicDomainNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) + End Function + + _ + Public Sub SetPublicDomainNull() + Me(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRegionsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) + End Function + + _ + Public Sub SetRegionsNull() + Me(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLanguagesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) + End Function + + _ + Public Sub SetLanguagesNull() + Me(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMP_GameModesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) + End Function + + _ + Public Sub SetMP_GameModesNull() + Me(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMP_OptionsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) + End Function + + _ + Public Sub SetMP_OptionsNull() + Me(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSpecialInfoNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn) + End Function + + _ + Public Sub SetSpecialInfoNull() + Me(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_GamesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) + End Function + + _ + Public Sub Setid_Moby_GamesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLast_PlayedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) + End Function + + _ + Public Sub SetLast_PlayedNull() + Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.createdColumn) + End Function + + _ + Public Sub SetcreatedNull() + Me(Me.tablesrc_ucr_Emulation_Games.createdColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMultiVolumeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) + End Function + + _ + Public Sub SetMultiVolumeNull() + Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) + End Function + + _ + Public Sub SetVolume_NumberNull() + Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPlatform_ExclusiveNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) + End Function + + _ + Public Sub SetPlatform_ExclusiveNull() + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsJ2KPresetNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) + End Function + + _ + Public Sub SetJ2KPresetNull() + Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) + End Function + + _ + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSimilarityNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) + End Function + + _ + Public Sub SetSimilarityNull() + Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) + End Function + + _ + Public Sub Set_001_PlatformNull() + Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) + End Function + + _ + Public Sub Set_002_MobyRankNull() + Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) + End Function + + _ + Public Sub Set_003_MobyScoreNull() + Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) + End Function + + _ + Public Sub Set_004_PublisherNull() + Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) + End Function + + _ + Public Sub Set_005_DeveloperNull() + Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_006_YearNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) + End Function + + _ + Public Sub Set_006_YearNull() + Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) + End Function + + _ + Public Sub Set_101_Basic_GenresNull() + Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) + End Function + + _ + Public Sub Set_102_PerspectivesNull() + Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) + End Function + + _ + Public Sub Set_103_Sports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) + End Function + + _ + Public Sub Set_104_Non_Sports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_105_Educational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) + End Function + + _ + Public Sub Set_105_Educational_CategoriesNull() + Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_106_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) + End Function + + _ + Public Sub Set_106_Other_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) + End Function + + _ + Public Sub Set_107_Visual_PresentationNull() + Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) + End Function + + _ + Public Sub Set_108_GameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_109_PacingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) + End Function + + _ + Public Sub Set_109_PacingNull() + Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) + End Function + + _ + Public Sub Set_110_Narrative_Theme_TopicNull() + Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_111_SettingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) + End Function + + _ + Public Sub Set_111_SettingNull() + Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) + End Function + + _ + Public Sub Set_112_Vehicular_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) + End Function + + _ + Public Sub Set_113_Interface_ControlNull() + Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) + End Function + + _ + Public Sub Set_114_DLC_AddonNull() + Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) + End Function + + _ + Public Sub Set_115_Special_EditionNull() + Me(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_201_MinPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn) + End Function + + _ + Public Sub Set_201_MinPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_202_MaxPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._202_MaxPlayersColumn) + End Function + + _ + Public Sub Set_202_MaxPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games._202_MaxPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_203_AgeONull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._203_AgeOColumn) + End Function + + _ + Public Sub Set_203_AgeONull() + Me(Me.tablesrc_ucr_Emulation_Games._203_AgeOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_204_AgePNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._204_AgePColumn) + End Function + + _ + Public Sub Set_204_AgePNull() + Me(Me.tablesrc_ucr_Emulation_Games._204_AgePColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_205_Rating_DescriptorsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._205_Rating_DescriptorsColumn) + End Function + + _ + Public Sub Set_205_Rating_DescriptorsNull() + Me(Me.tablesrc_ucr_Emulation_Games._205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_206_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._206_Other_AttributesColumn) + End Function + + _ + Public Sub Set_206_Other_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games._206_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_207_Multiplayer_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._207_Multiplayer_AttributesColumn) + End Function + + _ + Public Sub Set_207_Multiplayer_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games._207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_301_Group_MembershipNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._301_Group_MembershipColumn) + End Function + + _ + Public Sub Set_301_Group_MembershipNull() + Me(Me.tablesrc_ucr_Emulation_Games._301_Group_MembershipColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_401_StaffNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._401_StaffColumn) + End Function + + _ + Public Sub Set_401_StaffNull() + Me(Me.tablesrc_ucr_Emulation_Games._401_StaffColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Technical_SpecsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Technical_Specs As tbl_Technical_SpecsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Technical_Specs = CType(Me.Table,tbl_Technical_SpecsDataTable) + End Sub + + _ + Public Property Category() As String + Get + Try + Return CType(Me(Me.tabletbl_Technical_Specs.CategoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Category in Tabelle tbl_Technical_Specs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Technical_Specs.CategoryColumn) = value + End Set + End Property + + _ + Public Property Attribute() As String + Get + Try + Return CType(Me(Me.tabletbl_Technical_Specs.AttributeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Attribute in Tabelle tbl_Technical_Specs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Technical_Specs.AttributeColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Technical_Specs.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Technical_Specs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Technical_Specs.DescriptionColumn) = value + End Set + End Property + + _ + Public Function IsCategoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Technical_Specs.CategoryColumn) + End Function + + _ + Public Sub SetCategoryNull() + Me(Me.tabletbl_Technical_Specs.CategoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAttributeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Technical_Specs.AttributeColumn) + End Function + + _ + Public Sub SetAttributeNull() + Me(Me.tabletbl_Technical_Specs.AttributeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Technical_Specs.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Technical_Specs.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ControlSettingsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_ControlSettings As tbl_ControlSettingsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ControlSettings = CType(Me.Table,tbl_ControlSettingsDataTable) + End Sub + + _ + Public Property id_ControlSettings() As Long + Get + Return CType(Me(Me.tabletbl_ControlSettings.id_ControlSettingsColumn),Long) + End Get + Set + Me(Me.tabletbl_ControlSettings.id_ControlSettingsColumn) = value + End Set + End Property + + _ + Public Property ControlID() As String + Get + Try + Return CType(Me(Me.tabletbl_ControlSettings.ControlIDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ControlID in Tabelle tbl_ControlSettings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ControlSettings.ControlIDColumn) = value + End Set + End Property + + _ + Public Property SettingID() As String + Get + Try + Return CType(Me(Me.tabletbl_ControlSettings.SettingIDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SettingID in Tabelle tbl_ControlSettings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ControlSettings.SettingIDColumn) = value + End Set + End Property + + _ + Public Property Setting() As String + Get + Try + Return CType(Me(Me.tabletbl_ControlSettings.SettingColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Setting in Tabelle tbl_ControlSettings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ControlSettings.SettingColumn) = value + End Set + End Property + + _ + Public Property id_Users() As Integer + Get + Try + Return CType(Me(Me.tabletbl_ControlSettings.id_UsersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Users in Tabelle tbl_ControlSettings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ControlSettings.id_UsersColumn) = value + End Set + End Property + + _ + Public Function IsControlIDNull() As Boolean + Return Me.IsNull(Me.tabletbl_ControlSettings.ControlIDColumn) + End Function + + _ + Public Sub SetControlIDNull() + Me(Me.tabletbl_ControlSettings.ControlIDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSettingIDNull() As Boolean + Return Me.IsNull(Me.tabletbl_ControlSettings.SettingIDColumn) + End Function + + _ + Public Sub SetSettingIDNull() + Me(Me.tabletbl_ControlSettings.SettingIDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSettingNull() As Boolean + Return Me.IsNull(Me.tabletbl_ControlSettings.SettingColumn) + End Function + + _ + Public Sub SetSettingNull() + Me(Me.tabletbl_ControlSettings.SettingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_UsersNull() As Boolean + Return Me.IsNull(Me.tabletbl_ControlSettings.id_UsersColumn) + End Function + + _ + Public Sub Setid_UsersNull() + Me(Me.tabletbl_ControlSettings.id_UsersColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_FilterSetsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_FilterSets As tbl_FilterSetsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_FilterSets = CType(Me.Table,tbl_FilterSetsDataTable) + End Sub + + _ + Public Property id_FilterSets() As Long + Get + Return CType(Me(Me.tabletbl_FilterSets.id_FilterSetsColumn),Long) + End Get + Set + Me(Me.tabletbl_FilterSets.id_FilterSetsColumn) = value + End Set + End Property + + _ + Public Property Type() As Long + Get + Try + Return CType(Me(Me.tabletbl_FilterSets.TypeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Type in Tabelle tbl_FilterSets ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_FilterSets.TypeColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_FilterSets.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_FilterSets ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_FilterSets.NameColumn) = value + End Set + End Property + + _ + Public Property ApplyGridFilter() As Long + Get + Try + Return CType(Me(Me.tabletbl_FilterSets.ApplyGridFilterColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ApplyGridFilter in Tabelle tbl_FilterSets ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_FilterSets.ApplyGridFilterColumn) = value + End Set + End Property + + _ + Public Property GridFilter() As String + Get + Try + Return CType(Me(Me.tabletbl_FilterSets.GridFilterColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GridFilter in Tabelle tbl_FilterSets ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_FilterSets.GridFilterColumn) = value + End Set + End Property + + _ + Public Function IsTypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_FilterSets.TypeColumn) + End Function + + _ + Public Sub SetTypeNull() + Me(Me.tabletbl_FilterSets.TypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_FilterSets.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_FilterSets.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsApplyGridFilterNull() As Boolean + Return Me.IsNull(Me.tabletbl_FilterSets.ApplyGridFilterColumn) + End Function + + _ + Public Sub SetApplyGridFilterNull() + Me(Me.tabletbl_FilterSets.ApplyGridFilterColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGridFilterNull() As Boolean + Return Me.IsNull(Me.tabletbl_FilterSets.GridFilterColumn) + End Function + + _ + Public Sub SetGridFilterNull() + Me(Me.tabletbl_FilterSets.GridFilterColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_MoviesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Movies As tbl_MoviesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Movies = CType(Me.Table,tbl_MoviesDataTable) + End Sub + + _ + Public Property id_Movies() As Long + Get + Return CType(Me(Me.tabletbl_Movies.id_MoviesColumn),Long) + End Get + Set + Me(Me.tabletbl_Movies.id_MoviesColumn) = value + End Set + End Property + + _ + Public Property Folder() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.FolderColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Folder in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.FolderColumn) = value + End Set + End Property + + _ + Public Property File() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.FileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.FileColumn) = value + End Set + End Property + + _ + Public Property IMDBid() As String + Get + Try + Return CType(Me(Me.tabletbl_Movies.IMDBidColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMDBid in Tabelle tbl_Movies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Movies.IMDBidColumn) = value + End Set + End Property + + _ + Public Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.FolderColumn) + End Function + + _ + Public Sub SetFolderNull() + Me(Me.tabletbl_Movies.FolderColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.FileColumn) + End Function + + _ + Public Sub SetFileNull() + Me(Me.tabletbl_Movies.FileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIMDBidNull() As Boolean + Return Me.IsNull(Me.tabletbl_Movies.IMDBidColumn) + End Function + + _ + Public Sub SetIMDBidNull() + Me(Me.tabletbl_Movies.IMDBidColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_ExtrasRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Extras As tbl_Emu_ExtrasDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Extras = CType(Me.Table,tbl_Emu_ExtrasDataTable) + End Sub + + _ + Public Property id_Emu_Extras() As Long + Get + Return CType(Me(Me.tabletbl_Emu_Extras.id_Emu_ExtrasColumn),Long) + End Get + Set + Me(Me.tabletbl_Emu_Extras.id_Emu_ExtrasColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Extras.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Emu_Extras ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Extras.NameColumn) = value + End Set + End Property + + _ + Public Property Sort() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Extras.SortColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle tbl_Emu_Extras ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Extras.SortColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Extras.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Emu_Extras ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Extras.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Hide() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Extras.HideColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hide in Tabelle tbl_Emu_Extras ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Extras.HideColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Extras.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Emu_Extras.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSortNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Extras.SortColumn) + End Function + + _ + Public Sub SetSortNull() + Me(Me.tabletbl_Emu_Extras.SortColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Extras.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Emu_Extras.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHideNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Extras.HideColumn) + End Function + + _ + Public Sub SetHideNull() + Me(Me.tabletbl_Emu_Extras.HideColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_Rating_WeightsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Rating_Weights As tbl_Emu_Games_Rating_WeightsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Rating_Weights = CType(Me.Table,tbl_Emu_Games_Rating_WeightsDataTable) + End Sub + + _ + Public Property id_Emu_Games_Rating_Weights() As Long + Get + Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn) = value + End Set + End Property + + _ + Public Property Rating_Category() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Category in Tabelle tbl_Emu_Games_Rating_Weights ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn) = value + End Set + End Property + + _ + Public Property Weight() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight in Tabelle tbl_Emu_Games_Rating_Weights ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn) = value + End Set + End Property + + _ + Public Function IsRating_CategoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn) + End Function + + _ + Public Sub SetRating_CategoryNull() + Me(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeightNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn) + End Function + + _ + Public Sub SetWeightNull() + Me(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_Emu_Game_Edit_GenresRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_Emu_Game_Edit_Genres As src_frm_Emu_Game_Edit_GenresDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_Emu_Game_Edit_Genres = CType(Me.Table,src_frm_Emu_Game_Edit_GenresDataTable) + End Sub + + _ + Public Property id_Moby_Genres() As Long + Get + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn),Long) + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Genres_Categories() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Genres_Categories in Tabelle src_frm_Emu_Game_Edit_Ge"& _ + "nres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) = value + End Set + End Property + + _ + Public Property Used() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Used in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_Genres_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) + End Function + + _ + Public Sub Setid_Moby_Genres_CategoriesNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn) + End Function + + _ + Public Sub SetUsedNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_Emu_Game_Edit_AttributesRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_Emu_Game_Edit_Attributes As src_frm_Emu_Game_Edit_AttributesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_Emu_Game_Edit_Attributes = CType(Me.Table,src_frm_Emu_Game_Edit_AttributesDataTable) + End Sub + + _ + Public Property id_Moby_Attributes() As Integer + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Attributes in Tabelle src_frm_Emu_Game_Edit_Attribute"& _ + "s ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn) = value + End Set + End Property + + _ + Public Property CategoryGroup() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CategoryGroup in Tabelle src_frm_Emu_Game_Edit_Attributes ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn) = value + End Set + End Property + + _ + Public Property Category() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Category in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn) = value + End Set + End Property + + _ + Public Property Attribute() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Attribute in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle src_frm_Emu_Game_Edit_Attributes ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Rating_Age_From() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Age_From in Tabelle src_frm_Emu_Game_Edit_Attributes i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn) = value + End Set + End Property + + _ + Public Property RatingSystem() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RatingSystem in Tabelle src_frm_Emu_Game_Edit_Attributes ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn) = value + End Set + End Property + + _ + Public Property RatingDescriptor() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RatingDescriptor in Tabelle src_frm_Emu_Game_Edit_Attributes "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn) = value + End Set + End Property + + _ + Public Property Used() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Used in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn) + End Function + + _ + Public Sub Setid_Moby_AttributesNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategoryGroupNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn) + End Function + + _ + Public Sub SetCategoryGroupNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategoryNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn) + End Function + + _ + Public Sub SetCategoryNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAttributeNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn) + End Function + + _ + Public Sub SetAttributeNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_Age_FromNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn) + End Function + + _ + Public Sub SetRating_Age_FromNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingSystemNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn) + End Function + + _ + Public Sub SetRatingSystemNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRatingDescriptorNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn) + End Function + + _ + Public Sub SetRatingDescriptorNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn) + End Function + + _ + Public Sub SetUsedNull() + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Tag_ParserRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Tag_Parser As tbl_Tag_ParserDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Tag_Parser = CType(Me.Table,tbl_Tag_ParserDataTable) + End Sub + + _ + Public Property id_Tag_Parser() As Long + Get + Return CType(Me(Me.tabletbl_Tag_Parser.id_Tag_ParserColumn),Long) + End Get + Set + Me(Me.tabletbl_Tag_Parser.id_Tag_ParserColumn) = value + End Set + End Property + + _ + Public Property id_Rombase_Tag_Parser() As Long + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_Tag_Parser in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = value + End Set + End Property + + _ + Public Property Apply() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ApplyColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Apply in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ApplyColumn) = value + End Set + End Property + + _ + Public Property Content() As String + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ContentColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Content in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ContentColumn) = value + End Set + End Property + + _ + Public Property Note() As String + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.NoteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Note in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.NoteColumn) = value + End Set + End Property + + _ + Public Property Year() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.YearColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.YearColumn) = value + End Set + End Property + + _ + Public Property Bios() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.BiosColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bios in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.BiosColumn) = value + End Set + End Property + + _ + Public Property Hack() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.HackColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hack in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.HackColumn) = value + End Set + End Property + + _ + Public Property Trainer() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.TrainerColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Trainer in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.TrainerColumn) = value + End Set + End Property + + _ + Public Property Version() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.VersionColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Version in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.VersionColumn) = value + End Set + End Property + + _ + Public Property Prototype() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PrototypeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prototype in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PrototypeColumn) = value + End Set + End Property + + _ + Public Property Beta() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.BetaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beta in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.BetaColumn) = value + End Set + End Property + + _ + Public Property Translation() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.TranslationColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Translation in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.TranslationColumn) = value + End Set + End Property + + _ + Public Property Alt() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.AltColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alt in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.AltColumn) = value + End Set + End Property + + _ + Public Property Unlicensed() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.UnlicensedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlicensed in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.UnlicensedColumn) = value + End Set + End Property + + _ + Public Property Good() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.GoodColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Good in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.GoodColumn) = value + End Set + End Property + + _ + Public Property Bad() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.BadColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bad in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.BadColumn) = value + End Set + End Property + + _ + Public Property Fixed() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.FixedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fixed in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.FixedColumn) = value + End Set + End Property + + _ + Public Property Overdump() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.OverdumpColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Overdump in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.OverdumpColumn) = value + End Set + End Property + + _ + Public Property Pirated() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PiratedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pirated in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PiratedColumn) = value + End Set + End Property + + _ + Public Property Alpha() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.AlphaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alpha in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.AlphaColumn) = value + End Set + End Property + + _ + Public Property Kiosk() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.KioskColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kiosk in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.KioskColumn) = value + End Set + End Property + + _ + Public Property Sample() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SampleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sample in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SampleColumn) = value + End Set + End Property + + _ + Public Property En() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.EnColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte En in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.EnColumn) = value + End Set + End Property + + _ + Public Property Ja() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.JaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ja in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.JaColumn) = value + End Set + End Property + + _ + Public Property Fr() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.FrColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fr in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.FrColumn) = value + End Set + End Property + + _ + Public Property De() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.DeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte De in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.DeColumn) = value + End Set + End Property + + _ + Public Property Es() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.EsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Es in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.EsColumn) = value + End Set + End Property + + _ + Public Property It() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ItColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte It in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ItColumn) = value + End Set + End Property + + _ + Public Property Nl() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.NlColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Nl in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.NlColumn) = value + End Set + End Property + + _ + Public Property Pt() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PtColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pt in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PtColumn) = value + End Set + End Property + + _ + Public Property Sv() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SvColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sv in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SvColumn) = value + End Set + End Property + + _ + Public Property No() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.NoColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte No in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.NoColumn) = value + End Set + End Property + + _ + Public Property Da() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.DaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Da in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.DaColumn) = value + End Set + End Property + + _ + Public Property Fi() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.FiColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fi in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.FiColumn) = value + End Set + End Property + + _ + Public Property Zh() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ZhColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Zh in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ZhColumn) = value + End Set + End Property + + _ + Public Property Ko() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.KoColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ko in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.KoColumn) = value + End Set + End Property + + _ + Public Property Pl() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PlColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pl in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PlColumn) = value + End Set + End Property + + _ + Public Property World() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.WorldColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte World in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.WorldColumn) = value + End Set + End Property + + _ + Public Property Europe() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.EuropeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Europe in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.EuropeColumn) = value + End Set + End Property + + _ + Public Property USA() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.USAColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USA in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.USAColumn) = value + End Set + End Property + + _ + Public Property Australia() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.AustraliaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Australia in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.AustraliaColumn) = value + End Set + End Property + + _ + Public Property Japan() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.JapanColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Japan in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.JapanColumn) = value + End Set + End Property + + _ + Public Property Korea() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.KoreaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Korea in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.KoreaColumn) = value + End Set + End Property + + _ + Public Property China() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ChinaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte China in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ChinaColumn) = value + End Set + End Property + + _ + Public Property Asia() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.AsiaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Asia in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.AsiaColumn) = value + End Set + End Property + + _ + Public Property Brazil() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.BrazilColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Brazil in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.BrazilColumn) = value + End Set + End Property + + _ + Public Property Canada() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.CanadaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Canada in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.CanadaColumn) = value + End Set + End Property + + _ + Public Property France() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.FranceColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte France in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.FranceColumn) = value + End Set + End Property + + _ + Public Property Germany() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.GermanyColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Germany in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.GermanyColumn) = value + End Set + End Property + + _ + Public Property HongKong() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.HongKongColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HongKong in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.HongKongColumn) = value + End Set + End Property + + _ + Public Property Italy() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ItalyColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Italy in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ItalyColumn) = value + End Set + End Property + + _ + Public Property Netherlands() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.NetherlandsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Netherlands in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.NetherlandsColumn) = value + End Set + End Property + + _ + Public Property Spain() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SpainColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Spain in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SpainColumn) = value + End Set + End Property + + _ + Public Property Sweden() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SwedenColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sweden in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SwedenColumn) = value + End Set + End Property + + _ + Public Property Russia() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.RussiaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Russia in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.RussiaColumn) = value + End Set + End Property + + _ + Public Property Taiwan() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.TaiwanColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Taiwan in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.TaiwanColumn) = value + End Set + End Property + + _ + Public Property NTSC() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.NTSCColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NTSC in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.NTSCColumn) = value + End Set + End Property + + _ + Public Property PAL() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PALColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PAL in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PALColumn) = value + End Set + End Property + + _ + Public Property Note_HighPriority() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Note_HighPriority in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) = value + End Set + End Property + + _ + Public Property MV_Group_Criteria() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MV_Group_Criteria in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) = value + End Set + End Property + + _ + Public Property MV_Volume_Number() As Long + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MV_Volume_Number in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) = value + End Set + End Property + + _ + Public Property Publisher() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.PublisherColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.PublisherColumn) = value + End Set + End Property + + _ + Public Property Gr() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.GrColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gr in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.GrColumn) = value + End Set + End Property + + _ + Public Property Hu() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.HuColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hu in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.HuColumn) = value + End Set + End Property + + _ + Public Property Found_In() As String + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.Found_InColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Found_In in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.Found_InColumn) = value + End Set + End Property + + _ + Public Property Ar() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.ArColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ar in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.ArColumn) = value + End Set + End Property + + _ + Public Property Be() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.BeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Be in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.BeColumn) = value + End Set + End Property + + _ + Public Property Cz() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.CzColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cz in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.CzColumn) = value + End Set + End Property + + _ + Public Property Sl() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SlColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sl in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SlColumn) = value + End Set + End Property + + _ + Public Property Sr() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.SrColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sr in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.SrColumn) = value + End Set + End Property + + _ + Public Property Ru() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Tag_Parser.RuColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Ru in Tabelle tbl_Tag_Parser ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Tag_Parser.RuColumn) = value + End Set + End Property + + _ + Public Function Isid_Rombase_Tag_ParserNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) + End Function + + _ + Public Sub Setid_Rombase_Tag_ParserNull() + Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsApplyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ApplyColumn) + End Function + + _ + Public Sub SetApplyNull() + Me(Me.tabletbl_Tag_Parser.ApplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsContentNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ContentColumn) + End Function + + _ + Public Sub SetContentNull() + Me(Me.tabletbl_Tag_Parser.ContentColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNoteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NoteColumn) + End Function + + _ + Public Sub SetNoteNull() + Me(Me.tabletbl_Tag_Parser.NoteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Tag_Parser.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BiosColumn) + End Function + + _ + Public Sub SetBiosNull() + Me(Me.tabletbl_Tag_Parser.BiosColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HackColumn) + End Function + + _ + Public Sub SetHackNull() + Me(Me.tabletbl_Tag_Parser.HackColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.TrainerColumn) + End Function + + _ + Public Sub SetTrainerNull() + Me(Me.tabletbl_Tag_Parser.TrainerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVersionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.VersionColumn) + End Function + + _ + Public Sub SetVersionNull() + Me(Me.tabletbl_Tag_Parser.VersionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PrototypeColumn) + End Function + + _ + Public Sub SetPrototypeNull() + Me(Me.tabletbl_Tag_Parser.PrototypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BetaColumn) + End Function + + _ + Public Sub SetBetaNull() + Me(Me.tabletbl_Tag_Parser.BetaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTranslationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.TranslationColumn) + End Function + + _ + Public Sub SetTranslationNull() + Me(Me.tabletbl_Tag_Parser.TranslationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAltNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AltColumn) + End Function + + _ + Public Sub SetAltNull() + Me(Me.tabletbl_Tag_Parser.AltColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.UnlicensedColumn) + End Function + + _ + Public Sub SetUnlicensedNull() + Me(Me.tabletbl_Tag_Parser.UnlicensedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GoodColumn) + End Function + + _ + Public Sub SetGoodNull() + Me(Me.tabletbl_Tag_Parser.GoodColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BadColumn) + End Function + + _ + Public Sub SetBadNull() + Me(Me.tabletbl_Tag_Parser.BadColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FixedColumn) + End Function + + _ + Public Sub SetFixedNull() + Me(Me.tabletbl_Tag_Parser.FixedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.OverdumpColumn) + End Function + + _ + Public Sub SetOverdumpNull() + Me(Me.tabletbl_Tag_Parser.OverdumpColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PiratedColumn) + End Function + + _ + Public Sub SetPiratedNull() + Me(Me.tabletbl_Tag_Parser.PiratedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AlphaColumn) + End Function + + _ + Public Sub SetAlphaNull() + Me(Me.tabletbl_Tag_Parser.AlphaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KioskColumn) + End Function + + _ + Public Sub SetKioskNull() + Me(Me.tabletbl_Tag_Parser.KioskColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SampleColumn) + End Function + + _ + Public Sub SetSampleNull() + Me(Me.tabletbl_Tag_Parser.SampleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEnNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EnColumn) + End Function + + _ + Public Sub SetEnNull() + Me(Me.tabletbl_Tag_Parser.EnColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsJaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.JaColumn) + End Function + + _ + Public Sub SetJaNull() + Me(Me.tabletbl_Tag_Parser.JaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FrColumn) + End Function + + _ + Public Sub SetFrNull() + Me(Me.tabletbl_Tag_Parser.FrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.DeColumn) + End Function + + _ + Public Sub SetDeNull() + Me(Me.tabletbl_Tag_Parser.DeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EsColumn) + End Function + + _ + Public Sub SetEsNull() + Me(Me.tabletbl_Tag_Parser.EsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsItNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ItColumn) + End Function + + _ + Public Sub SetItNull() + Me(Me.tabletbl_Tag_Parser.ItColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NlColumn) + End Function + + _ + Public Sub SetNlNull() + Me(Me.tabletbl_Tag_Parser.NlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPtNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PtColumn) + End Function + + _ + Public Sub SetPtNull() + Me(Me.tabletbl_Tag_Parser.PtColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSvNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SvColumn) + End Function + + _ + Public Sub SetSvNull() + Me(Me.tabletbl_Tag_Parser.SvColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NoColumn) + End Function + + _ + Public Sub SetNoNull() + Me(Me.tabletbl_Tag_Parser.NoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.DaColumn) + End Function + + _ + Public Sub SetDaNull() + Me(Me.tabletbl_Tag_Parser.DaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFiNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FiColumn) + End Function + + _ + Public Sub SetFiNull() + Me(Me.tabletbl_Tag_Parser.FiColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsZhNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ZhColumn) + End Function + + _ + Public Sub SetZhNull() + Me(Me.tabletbl_Tag_Parser.ZhColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KoColumn) + End Function + + _ + Public Sub SetKoNull() + Me(Me.tabletbl_Tag_Parser.KoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PlColumn) + End Function + + _ + Public Sub SetPlNull() + Me(Me.tabletbl_Tag_Parser.PlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWorldNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.WorldColumn) + End Function + + _ + Public Sub SetWorldNull() + Me(Me.tabletbl_Tag_Parser.WorldColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEuropeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EuropeColumn) + End Function + + _ + Public Sub SetEuropeNull() + Me(Me.tabletbl_Tag_Parser.EuropeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSANull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.USAColumn) + End Function + + _ + Public Sub SetUSANull() + Me(Me.tabletbl_Tag_Parser.USAColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAustraliaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AustraliaColumn) + End Function + + _ + Public Sub SetAustraliaNull() + Me(Me.tabletbl_Tag_Parser.AustraliaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsJapanNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.JapanColumn) + End Function + + _ + Public Sub SetJapanNull() + Me(Me.tabletbl_Tag_Parser.JapanColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKoreaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KoreaColumn) + End Function + + _ + Public Sub SetKoreaNull() + Me(Me.tabletbl_Tag_Parser.KoreaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsChinaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ChinaColumn) + End Function + + _ + Public Sub SetChinaNull() + Me(Me.tabletbl_Tag_Parser.ChinaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAsiaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AsiaColumn) + End Function + + _ + Public Sub SetAsiaNull() + Me(Me.tabletbl_Tag_Parser.AsiaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBrazilNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BrazilColumn) + End Function + + _ + Public Sub SetBrazilNull() + Me(Me.tabletbl_Tag_Parser.BrazilColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCanadaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.CanadaColumn) + End Function + + _ + Public Sub SetCanadaNull() + Me(Me.tabletbl_Tag_Parser.CanadaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFranceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FranceColumn) + End Function + + _ + Public Sub SetFranceNull() + Me(Me.tabletbl_Tag_Parser.FranceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGermanyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GermanyColumn) + End Function + + _ + Public Sub SetGermanyNull() + Me(Me.tabletbl_Tag_Parser.GermanyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHongKongNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HongKongColumn) + End Function + + _ + Public Sub SetHongKongNull() + Me(Me.tabletbl_Tag_Parser.HongKongColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsItalyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ItalyColumn) + End Function + + _ + Public Sub SetItalyNull() + Me(Me.tabletbl_Tag_Parser.ItalyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNetherlandsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NetherlandsColumn) + End Function + + _ + Public Sub SetNetherlandsNull() + Me(Me.tabletbl_Tag_Parser.NetherlandsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSpainNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SpainColumn) + End Function + + _ + Public Sub SetSpainNull() + Me(Me.tabletbl_Tag_Parser.SpainColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSwedenNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SwedenColumn) + End Function + + _ + Public Sub SetSwedenNull() + Me(Me.tabletbl_Tag_Parser.SwedenColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRussiaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.RussiaColumn) + End Function + + _ + Public Sub SetRussiaNull() + Me(Me.tabletbl_Tag_Parser.RussiaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTaiwanNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.TaiwanColumn) + End Function + + _ + Public Sub SetTaiwanNull() + Me(Me.tabletbl_Tag_Parser.TaiwanColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNTSCNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NTSCColumn) + End Function + + _ + Public Sub SetNTSCNull() + Me(Me.tabletbl_Tag_Parser.NTSCColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPALNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PALColumn) + End Function + + _ + Public Sub SetPALNull() + Me(Me.tabletbl_Tag_Parser.PALColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNote_HighPriorityNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) + End Function + + _ + Public Sub SetNote_HighPriorityNull() + Me(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMV_Group_CriteriaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) + End Function + + _ + Public Sub SetMV_Group_CriteriaNull() + Me(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMV_Volume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) + End Function + + _ + Public Sub SetMV_Volume_NumberNull() + Me(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PublisherColumn) + End Function + + _ + Public Sub SetPublisherNull() + Me(Me.tabletbl_Tag_Parser.PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GrColumn) + End Function + + _ + Public Sub SetGrNull() + Me(Me.tabletbl_Tag_Parser.GrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHuNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HuColumn) + End Function + + _ + Public Sub SetHuNull() + Me(Me.tabletbl_Tag_Parser.HuColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFound_InNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.Found_InColumn) + End Function + + _ + Public Sub SetFound_InNull() + Me(Me.tabletbl_Tag_Parser.Found_InColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsArNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ArColumn) + End Function + + _ + Public Sub SetArNull() + Me(Me.tabletbl_Tag_Parser.ArColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BeColumn) + End Function + + _ + Public Sub SetBeNull() + Me(Me.tabletbl_Tag_Parser.BeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCzNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.CzColumn) + End Function + + _ + Public Sub SetCzNull() + Me(Me.tabletbl_Tag_Parser.CzColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SlColumn) + End Function + + _ + Public Sub SetSlNull() + Me(Me.tabletbl_Tag_Parser.SlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SrColumn) + End Function + + _ + Public Sub SetSrNull() + Me(Me.tabletbl_Tag_Parser.SrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRuNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.RuColumn) + End Function + + _ + Public Sub SetRuNull() + Me(Me.tabletbl_Tag_Parser.RuColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_GamesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games As tbl_Emu_GamesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games = CType(Me.Table,tbl_Emu_GamesDataTable) + End Sub + + _ + Public Property id_Emu_Games() As Long + Get + Return CType(Me(Me.tabletbl_Emu_Games.id_Emu_GamesColumn),Long) + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property id_DOSBox_Configs_Template() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Configs_Template in Tabelle tbl_Emu_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) = value + End Set + End Property + + _ + Public Property id_DOSBox_Configs() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Configs in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) = value + End Set + End Property + + _ + Public Property id_Rombase_DOSBox_Filetypes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_DOSBox_Filetypes in Tabelle tbl_Emu_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) = value + End Set + End Property + + _ + Public Property id_Rombase_DOSBox_Exe_Types() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_DOSBox_Exe_Types in Tabelle tbl_Emu_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) = value + End Set + End Property + + _ + Public Property DOSBox_Mount_Destination() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOSBox_Mount_Destination in Tabelle tbl_Emu_Games ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) = value + End Set + End Property + + _ + Public Property Hidden() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.HiddenColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hidden in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.HiddenColumn) = value + End Set + End Property + + _ + Public Property Moby_Games_URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Games_URLPart in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Folder() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.FolderColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Folder in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.FolderColumn) = value + End Set + End Property + + _ + Public Property File() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.FileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.FileColumn) = value + End Set + End Property + + _ + Public Property InnerFile() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.InnerFileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InnerFile in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.InnerFileColumn) = value + End Set + End Property + + _ + Public Property Size() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.SizeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Size in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.SizeColumn) = value + End Set + End Property + + _ + Public Property CustomIdentifier() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomIdentifier in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn) = value + End Set + End Property + + _ + Public Property CRC32() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.CRC32Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CRC32 in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.CRC32Column) = value + End Set + End Property + + _ + Public Property SHA1() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.SHA1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHA1 in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.SHA1Column) = value + End Set + End Property + + _ + Public Property MD5() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.MD5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MD5 in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.MD5Column) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.NameColumn) = value + End Set + End Property + + _ + Public Property Name_Prefix() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Name_PrefixColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name_Prefix in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Name_PrefixColumn) = value + End Set + End Property + + _ + Public Property Note() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.NoteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Note in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.NoteColumn) = value + End Set + End Property + + _ + Public Property Publisher() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.PublisherColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.PublisherColumn) = value + End Set + End Property + + _ + Public Property Publisher_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher_id_Moby_Companies in Tabelle tbl_Emu_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property Developer() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.DeveloperColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.DeveloperColumn) = value + End Set + End Property + + _ + Public Property Developer_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer_id_Moby_Companies in Tabelle tbl_Emu_Games ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Favourite() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.FavouriteColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Favourite in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.FavouriteColumn) = value + End Set + End Property + + _ + Public Property Rating_Gameplay() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Gameplay in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn) = value + End Set + End Property + + _ + Public Property Rating_Graphics() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Graphics in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) = value + End Set + End Property + + _ + Public Property Rating_Sound() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Rating_SoundColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Sound in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Rating_SoundColumn) = value + End Set + End Property + + _ + Public Property Rating_Story() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Rating_StoryColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Story in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Rating_StoryColumn) = value + End Set + End Property + + _ + Public Property Rating_Personal() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Rating_Personal in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn) = value + End Set + End Property + + _ + Public Property Num_Played() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Num_PlayedColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Num_Played in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Num_PlayedColumn) = value + End Set + End Property + + _ + Public Property Num_Runtime() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Num_Runtime in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn) = value + End Set + End Property + + _ + Public Property Year() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.YearColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.YearColumn) = value + End Set + End Property + + _ + Public Property Version() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.VersionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Version in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.VersionColumn) = value + End Set + End Property + + _ + Public Property Alt() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.AltColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alt in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.AltColumn) = value + End Set + End Property + + _ + Public Property Trainer() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.TrainerColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Trainer in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.TrainerColumn) = value + End Set + End Property + + _ + Public Property Translation() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.TranslationColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Translation in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.TranslationColumn) = value + End Set + End Property + + _ + Public Property Hack() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.HackColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hack in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.HackColumn) = value + End Set + End Property + + _ + Public Property Bios() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.BiosColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bios in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.BiosColumn) = value + End Set + End Property + + _ + Public Property Prototype() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.PrototypeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prototype in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.PrototypeColumn) = value + End Set + End Property + + _ + Public Property Alpha() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.AlphaColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alpha in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.AlphaColumn) = value + End Set + End Property + + _ + Public Property Beta() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.BetaColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beta in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.BetaColumn) = value + End Set + End Property + + _ + Public Property Sample() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.SampleColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sample in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.SampleColumn) = value + End Set + End Property + + _ + Public Property Kiosk() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.KioskColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kiosk in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.KioskColumn) = value + End Set + End Property + + _ + Public Property Unlicensed() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.UnlicensedColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlicensed in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = value + End Set + End Property + + _ + Public Property Fixed() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.FixedColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fixed in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.FixedColumn) = value + End Set + End Property + + _ + Public Property Pirated() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.PiratedColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pirated in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.PiratedColumn) = value + End Set + End Property + + _ + Public Property Good() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.GoodColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Good in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.GoodColumn) = value + End Set + End Property + + _ + Public Property Bad() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.BadColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bad in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.BadColumn) = value + End Set + End Property + + _ + Public Property Overdump() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.OverdumpColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Overdump in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.OverdumpColumn) = value + End Set + End Property + + _ + Public Property PublicDomain() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.PublicDomainColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PublicDomain in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.PublicDomainColumn) = value + End Set + End Property + + _ + Public Property ROMBASE_id_Moby_Platforms() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ROMBASE_id_Moby_Platforms in Tabelle tbl_Emu_Games ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property id_Rombase() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_RombaseColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_RombaseColumn) = value + End Set + End Property + + _ + Public Property id_Emulators() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emulators in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = value + End Set + End Property + + _ + Public Property Publisher_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Publisher_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Publisher_USRColumn) = value + End Set + End Property + + _ + Public Property Publisher_id_Moby_Companies_USR() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher_id_Moby_Companies_USR in Tabelle tbl_Emu_Games ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) = value + End Set + End Property + + _ + Public Property Developer_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Developer_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Developer_USRColumn) = value + End Set + End Property + + _ + Public Property Developer_id_Moby_Companies_USR() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer_id_Moby_Companies_USR in Tabelle tbl_Emu_Games ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) = value + End Set + End Property + + _ + Public Property Description_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Description_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Description_USRColumn) = value + End Set + End Property + + _ + Public Property Year_USR() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Year_USRColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Year_USRColumn) = value + End Set + End Property + + _ + Public Property Version_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Version_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Version_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Version_USRColumn) = value + End Set + End Property + + _ + Public Property Alt_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Alt_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alt_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = value + End Set + End Property + + _ + Public Property Trainer_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Trainer_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Trainer_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Trainer_USRColumn) = value + End Set + End Property + + _ + Public Property Translation_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Translation_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Translation_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Translation_USRColumn) = value + End Set + End Property + + _ + Public Property Hack_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Hack_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hack_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Hack_USRColumn) = value + End Set + End Property + + _ + Public Property Bios_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Bios_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bios_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Bios_USRColumn) = value + End Set + End Property + + _ + Public Property Prototype_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Prototype_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prototype_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Prototype_USRColumn) = value + End Set + End Property + + _ + Public Property Alpha_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Alpha_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alpha_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Alpha_USRColumn) = value + End Set + End Property + + _ + Public Property Beta_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Beta_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Beta_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Beta_USRColumn) = value + End Set + End Property + + _ + Public Property Sample_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Sample_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sample_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Sample_USRColumn) = value + End Set + End Property + + _ + Public Property Kiosk_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Kiosk_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn) = value + End Set + End Property + + _ + Public Property Unlicensed_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlicensed_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) = value + End Set + End Property + + _ + Public Property Fixed_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Fixed_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Fixed_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Fixed_USRColumn) = value + End Set + End Property + + _ + Public Property Pirated_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Pirated_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Pirated_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Pirated_USRColumn) = value + End Set + End Property + + _ + Public Property Good_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Good_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Good_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Good_USRColumn) = value + End Set + End Property + + _ + Public Property Bad_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Bad_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bad_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Bad_USRColumn) = value + End Set + End Property + + _ + Public Property Overdump_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Overdump_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Overdump_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Overdump_USRColumn) = value + End Set + End Property + + _ + Public Property PublicDomain_USR() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PublicDomain_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) = value + End Set + End Property + + _ + Public Property Name_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Name_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Name_USRColumn) = value + End Set + End Property + + _ + Public Property Name_Prefix_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name_Prefix_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) = value + End Set + End Property + + _ + Public Property Note_USR() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Note_USRColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Note_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Note_USRColumn) = value + End Set + End Property + + _ + Public Property created() As Date + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.createdColumn) = value + End Set + End Property + + _ + Public Property Volume_Number() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Volume_NumberColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Volume_Number in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Volume_NumberColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games_Owner() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games_Owner in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) = value + End Set + End Property + + _ + Public Property Filtered_Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.Filtered_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filtered_Name in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.Filtered_NameColumn) = value + End Set + End Property + + _ + Public Property deprecated() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.deprecatedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte deprecated in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.deprecatedColumn) = value + End Set + End Property + + _ + Public Function Isid_DOSBox_Configs_TemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) + End Function + + _ + Public Sub Setid_DOSBox_Configs_TemplateNull() + Me(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) + End Function + + _ + Public Sub Setid_DOSBox_ConfigsNull() + Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Rombase_DOSBox_FiletypesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) + End Function + + _ + Public Sub Setid_Rombase_DOSBox_FiletypesNull() + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Rombase_DOSBox_Exe_TypesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) + End Function + + _ + Public Sub Setid_Rombase_DOSBox_Exe_TypesNull() + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDOSBox_Mount_DestinationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) + End Function + + _ + Public Sub SetDOSBox_Mount_DestinationNull() + Me(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHiddenNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.HiddenColumn) + End Function + + _ + Public Sub SetHiddenNull() + Me(Me.tabletbl_Emu_Games.HiddenColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Games_URLPartNull() + Me(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FolderColumn) + End Function + + _ + Public Sub SetFolderNull() + Me(Me.tabletbl_Emu_Games.FolderColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FileColumn) + End Function + + _ + Public Sub SetFileNull() + Me(Me.tabletbl_Emu_Games.FileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.InnerFileColumn) + End Function + + _ + Public Sub SetInnerFileNull() + Me(Me.tabletbl_Emu_Games.InnerFileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SizeColumn) + End Function + + _ + Public Sub SetSizeNull() + Me(Me.tabletbl_Emu_Games.SizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCustomIdentifierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.CustomIdentifierColumn) + End Function + + _ + Public Sub SetCustomIdentifierNull() + Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCRC32Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.CRC32Column) + End Function + + _ + Public Sub SetCRC32Null() + Me(Me.tabletbl_Emu_Games.CRC32Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHA1Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SHA1Column) + End Function + + _ + Public Sub SetSHA1Null() + Me(Me.tabletbl_Emu_Games.SHA1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMD5Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.MD5Column) + End Function + + _ + Public Sub SetMD5Null() + Me(Me.tabletbl_Emu_Games.MD5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Emu_Games.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsName_PrefixNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_PrefixColumn) + End Function + + _ + Public Sub SetName_PrefixNull() + Me(Me.tabletbl_Emu_Games.Name_PrefixColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNoteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.NoteColumn) + End Function + + _ + Public Sub SetNoteNull() + Me(Me.tabletbl_Emu_Games.NoteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublisherColumn) + End Function + + _ + Public Sub SetPublisherNull() + Me(Me.tabletbl_Emu_Games.PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisher_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetPublisher_id_Moby_CompaniesNull() + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DeveloperColumn) + End Function + + _ + Public Sub SetDeveloperNull() + Me(Me.tabletbl_Emu_Games.DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloper_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetDeveloper_id_Moby_CompaniesNull() + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Emu_Games.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFavouriteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FavouriteColumn) + End Function + + _ + Public Sub SetFavouriteNull() + Me(Me.tabletbl_Emu_Games.FavouriteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GameplayColumn) + End Function + + _ + Public Sub SetRating_GameplayNull() + Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_GraphicsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) + End Function + + _ + Public Sub SetRating_GraphicsNull() + Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_SoundNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_SoundColumn) + End Function + + _ + Public Sub SetRating_SoundNull() + Me(Me.tabletbl_Emu_Games.Rating_SoundColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_StoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_StoryColumn) + End Function + + _ + Public Sub SetRating_StoryNull() + Me(Me.tabletbl_Emu_Games.Rating_StoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRating_PersonalNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_PersonalColumn) + End Function + + _ + Public Sub SetRating_PersonalNull() + Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNum_PlayedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Num_PlayedColumn) + End Function + + _ + Public Sub SetNum_PlayedNull() + Me(Me.tabletbl_Emu_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNum_RuntimeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Num_RuntimeColumn) + End Function + + _ + Public Sub SetNum_RuntimeNull() + Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tabletbl_Emu_Games.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVersionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.VersionColumn) + End Function + + _ + Public Sub SetVersionNull() + Me(Me.tabletbl_Emu_Games.VersionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAltNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.AltColumn) + End Function + + _ + Public Sub SetAltNull() + Me(Me.tabletbl_Emu_Games.AltColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TrainerColumn) + End Function + + _ + Public Sub SetTrainerNull() + Me(Me.tabletbl_Emu_Games.TrainerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTranslationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TranslationColumn) + End Function + + _ + Public Sub SetTranslationNull() + Me(Me.tabletbl_Emu_Games.TranslationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.HackColumn) + End Function + + _ + Public Sub SetHackNull() + Me(Me.tabletbl_Emu_Games.HackColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BiosColumn) + End Function + + _ + Public Sub SetBiosNull() + Me(Me.tabletbl_Emu_Games.BiosColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PrototypeColumn) + End Function + + _ + Public Sub SetPrototypeNull() + Me(Me.tabletbl_Emu_Games.PrototypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.AlphaColumn) + End Function + + _ + Public Sub SetAlphaNull() + Me(Me.tabletbl_Emu_Games.AlphaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BetaColumn) + End Function + + _ + Public Sub SetBetaNull() + Me(Me.tabletbl_Emu_Games.BetaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SampleColumn) + End Function + + _ + Public Sub SetSampleNull() + Me(Me.tabletbl_Emu_Games.SampleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.KioskColumn) + End Function + + _ + Public Sub SetKioskNull() + Me(Me.tabletbl_Emu_Games.KioskColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.UnlicensedColumn) + End Function + + _ + Public Sub SetUnlicensedNull() + Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FixedColumn) + End Function + + _ + Public Sub SetFixedNull() + Me(Me.tabletbl_Emu_Games.FixedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PiratedColumn) + End Function + + _ + Public Sub SetPiratedNull() + Me(Me.tabletbl_Emu_Games.PiratedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.GoodColumn) + End Function + + _ + Public Sub SetGoodNull() + Me(Me.tabletbl_Emu_Games.GoodColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BadColumn) + End Function + + _ + Public Sub SetBadNull() + Me(Me.tabletbl_Emu_Games.BadColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.OverdumpColumn) + End Function + + _ + Public Sub SetOverdumpNull() + Me(Me.tabletbl_Emu_Games.OverdumpColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublicDomainNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomainColumn) + End Function + + _ + Public Sub SetPublicDomainNull() + Me(Me.tabletbl_Emu_Games.PublicDomainColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsROMBASE_id_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) + End Function + + _ + Public Sub SetROMBASE_id_Moby_PlatformsNull() + Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_RombaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_RombaseColumn) + End Function + + _ + Public Sub Setid_RombaseNull() + Me(Me.tabletbl_Emu_Games.id_RombaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_EmulatorsColumn) + End Function + + _ + Public Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisher_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_USRColumn) + End Function + + _ + Public Sub SetPublisher_USRNull() + Me(Me.tabletbl_Emu_Games.Publisher_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisher_id_Moby_Companies_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) + End Function + + _ + Public Sub SetPublisher_id_Moby_Companies_USRNull() + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloper_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_USRColumn) + End Function + + _ + Public Sub SetDeveloper_USRNull() + Me(Me.tabletbl_Emu_Games.Developer_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloper_id_Moby_Companies_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) + End Function + + _ + Public Sub SetDeveloper_id_Moby_Companies_USRNull() + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescription_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Description_USRColumn) + End Function + + _ + Public Sub SetDescription_USRNull() + Me(Me.tabletbl_Emu_Games.Description_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYear_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Year_USRColumn) + End Function + + _ + Public Sub SetYear_USRNull() + Me(Me.tabletbl_Emu_Games.Year_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVersion_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Version_USRColumn) + End Function + + _ + Public Sub SetVersion_USRNull() + Me(Me.tabletbl_Emu_Games.Version_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlt_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Alt_USRColumn) + End Function + + _ + Public Sub SetAlt_USRNull() + Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTrainer_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Trainer_USRColumn) + End Function + + _ + Public Sub SetTrainer_USRNull() + Me(Me.tabletbl_Emu_Games.Trainer_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTranslation_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Translation_USRColumn) + End Function + + _ + Public Sub SetTranslation_USRNull() + Me(Me.tabletbl_Emu_Games.Translation_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHack_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Hack_USRColumn) + End Function + + _ + Public Sub SetHack_USRNull() + Me(Me.tabletbl_Emu_Games.Hack_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBios_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Bios_USRColumn) + End Function + + _ + Public Sub SetBios_USRNull() + Me(Me.tabletbl_Emu_Games.Bios_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPrototype_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Prototype_USRColumn) + End Function + + _ + Public Sub SetPrototype_USRNull() + Me(Me.tabletbl_Emu_Games.Prototype_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlpha_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Alpha_USRColumn) + End Function + + _ + Public Sub SetAlpha_USRNull() + Me(Me.tabletbl_Emu_Games.Alpha_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBeta_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Beta_USRColumn) + End Function + + _ + Public Sub SetBeta_USRNull() + Me(Me.tabletbl_Emu_Games.Beta_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSample_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Sample_USRColumn) + End Function + + _ + Public Sub SetSample_USRNull() + Me(Me.tabletbl_Emu_Games.Sample_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsKiosk_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Kiosk_USRColumn) + End Function + + _ + Public Sub SetKiosk_USRNull() + Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUnlicensed_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) + End Function + + _ + Public Sub SetUnlicensed_USRNull() + Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFixed_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Fixed_USRColumn) + End Function + + _ + Public Sub SetFixed_USRNull() + Me(Me.tabletbl_Emu_Games.Fixed_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPirated_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Pirated_USRColumn) + End Function + + _ + Public Sub SetPirated_USRNull() + Me(Me.tabletbl_Emu_Games.Pirated_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGood_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Good_USRColumn) + End Function + + _ + Public Sub SetGood_USRNull() + Me(Me.tabletbl_Emu_Games.Good_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBad_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Bad_USRColumn) + End Function + + _ + Public Sub SetBad_USRNull() + Me(Me.tabletbl_Emu_Games.Bad_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOverdump_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Overdump_USRColumn) + End Function + + _ + Public Sub SetOverdump_USRNull() + Me(Me.tabletbl_Emu_Games.Overdump_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublicDomain_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) + End Function + + _ + Public Sub SetPublicDomain_USRNull() + Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsName_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_USRColumn) + End Function + + _ + Public Sub SetName_USRNull() + Me(Me.tabletbl_Emu_Games.Name_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsName_Prefix_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) + End Function + + _ + Public Sub SetName_Prefix_USRNull() + Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNote_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Note_USRColumn) + End Function + + _ + Public Sub SetNote_USRNull() + Me(Me.tabletbl_Emu_Games.Note_USRColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.createdColumn) + End Function + + _ + Public Sub SetcreatedNull() + Me(Me.tabletbl_Emu_Games.createdColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Volume_NumberColumn) + End Function + + _ + Public Sub SetVolume_NumberNull() + Me(Me.tabletbl_Emu_Games.Volume_NumberColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Emu_Games_OwnerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) + End Function + + _ + Public Sub Setid_Emu_Games_OwnerNull() + Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFiltered_NameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Filtered_NameColumn) + End Function + + _ + Public Sub SetFiltered_NameNull() + Me(Me.tabletbl_Emu_Games.Filtered_NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.deprecatedColumn) + End Function + + _ + Public Sub SetdeprecatedNull() + Me(Me.tabletbl_Emu_Games.deprecatedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_LanguagesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Languages As tbl_Emu_Games_LanguagesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Languages = CType(Me.Table,tbl_Emu_Games_LanguagesDataTable) + End Sub + + _ + Public Property id_Emu_Games_Languages() As Long + Get + Return CType(Me(Me.tabletbl_Emu_Games_Languages.id_Emu_Games_LanguagesColumn),Long) + End Get + Set + Me(Me.tabletbl_Emu_Games_Languages.id_Emu_Games_LanguagesColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_Emu_Games_Languages ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Languages() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Languages in Tabelle tbl_Emu_Games_Languages ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_LanguagesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) + End Function + + _ + Public Sub Setid_LanguagesNull() + Me(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_RegionsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Regions As tbl_Emu_Games_RegionsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Regions = CType(Me.Table,tbl_Emu_Games_RegionsDataTable) + End Sub + + _ + Public Property id_Emu_Games_Regions() As Long + Get + Return CType(Me(Me.tabletbl_Emu_Games_Regions.id_Emu_Games_RegionsColumn),Long) + End Get + Set + Me(Me.tabletbl_Emu_Games_Regions.id_Emu_Games_RegionsColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_Emu_Games_Regions ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Regions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Regions in Tabelle tbl_Emu_Games_Regions ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_RegionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) + End Function + + _ + Public Sub Setid_RegionsNull() + Me(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_Edit_LanguagesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Edit_Languages As tbl_Emu_Games_Edit_LanguagesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Edit_Languages = CType(Me.Table,tbl_Emu_Games_Edit_LanguagesDataTable) + End Sub + + _ + Public Property id_Languages() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Languages in Tabelle tbl_Emu_Games_Edit_Languages ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) = value + End Set + End Property + + _ + Public Property Language_Short() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Language_Short in Tabelle tbl_Emu_Games_Edit_Languages ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn) = value + End Set + End Property + + _ + Public Property Language() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Language in Tabelle tbl_Emu_Games_Edit_Languages ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn) = value + End Set + End Property + + _ + Public Property Used() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Used in Tabelle tbl_Emu_Games_Edit_Languages ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn) = value + End Set + End Property + + _ + Public Function Isid_LanguagesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) + End Function + + _ + Public Sub Setid_LanguagesNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLanguage_ShortNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn) + End Function + + _ + Public Sub SetLanguage_ShortNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLanguageNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn) + End Function + + _ + Public Sub SetLanguageNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn) + End Function + + _ + Public Sub SetUsedNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_Edit_RegionsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Edit_Regions As tbl_Emu_Games_Edit_RegionsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Edit_Regions = CType(Me.Table,tbl_Emu_Games_Edit_RegionsDataTable) + End Sub + + _ + Public Property id_Regions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Regions in Tabelle tbl_Emu_Games_Edit_Regions ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) = value + End Set + End Property + + _ + Public Property _Region() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Region in Tabelle tbl_Emu_Games_Edit_Regions ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) = value + End Set + End Property + + _ + Public Property Used() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Used in Tabelle tbl_Emu_Games_Edit_Regions ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn) = value + End Set + End Property + + _ + Public Function Isid_RegionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) + End Function + + _ + Public Sub Setid_RegionsNull() + Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_RegionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) + End Function + + _ + Public Sub Set_RegionNull() + Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn) + End Function + + _ + Public Sub SetUsedNull() + Me(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_Edit_Default_EmulatorRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Edit_Default_Emulator As tbl_Emu_Games_Edit_Default_EmulatorDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Edit_Default_Emulator = CType(Me.Table,tbl_Emu_Games_Edit_Default_EmulatorDataTable) + End Sub + + _ + Public Property id_Emulators() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emulators in Tabelle tbl_Emu_Games_Edit_Default_Emulator i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn) = value + End Set + End Property + + _ + Public Property Displayname() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Displayname in Tabelle tbl_Emu_Games_Edit_Default_Emulator is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn) = value + End Set + End Property + + _ + Public Property Used() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Used in Tabelle tbl_Emu_Games_Edit_Default_Emulator ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn) = value + End Set + End Property + + _ + Public Property IsGlobalDefault() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IsGlobalDefault in Tabelle tbl_Emu_Games_Edit_Default_Emulato"& _ + "r ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn) = value + End Set + End Property + + _ + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn) + End Function + + _ + Public Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn) + End Function + + _ + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn) + End Function + + _ + Public Sub SetUsedNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIsGlobalDefaultNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn) + End Function + + _ + Public Sub SetIsGlobalDefaultNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_HistoryRow + Inherits Global.System.Data.DataRow + + Private tabletbl_History As tbl_HistoryDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_History = CType(Me.Table,tbl_HistoryDataTable) + End Sub + + _ + Public Property id_History() As Long + Get + Return CType(Me(Me.tabletbl_History.id_HistoryColumn),Long) + End Get + Set + Me(Me.tabletbl_History.id_HistoryColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_History.id_Emu_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_History ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_History.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property Start() As Date + Get + Try + Return CType(Me(Me.tabletbl_History.StartColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Start in Tabelle tbl_History ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_History.StartColumn) = value + End Set + End Property + + _ + Public Property _End() As Date + Get + Try + Return CType(Me(Me.tabletbl_History.EndColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte End in Tabelle tbl_History ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_History.EndColumn) = value + End Set + End Property + + _ + Public Property Runtime() As Long + Get + Try + Return CType(Me(Me.tabletbl_History.RuntimeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Runtime in Tabelle tbl_History ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_History.RuntimeColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_History.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStartNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.StartColumn) + End Function + + _ + Public Sub SetStartNull() + Me(Me.tabletbl_History.StartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_EndNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.EndColumn) + End Function + + _ + Public Sub Set_EndNull() + Me(Me.tabletbl_History.EndColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRuntimeNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.RuntimeColumn) + End Function + + _ + Public Sub SetRuntimeNull() + Me(Me.tabletbl_History.RuntimeColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ImageEditorTemplatesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_ImageEditorTemplates As tbl_ImageEditorTemplatesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ImageEditorTemplates = CType(Me.Table,tbl_ImageEditorTemplatesDataTable) + End Sub + + _ + Public Property id_ImageEditorTemplates() As Long + Get + Return CType(Me(Me.tabletbl_ImageEditorTemplates.id_ImageEditorTemplatesColumn),Long) + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.id_ImageEditorTemplatesColumn) = value + End Set + End Property + + _ + Public Property Top() As Long + Get + Try + Return CType(Me(Me.tabletbl_ImageEditorTemplates.TopColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Top in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.TopColumn) = value + End Set + End Property + + _ + Public Property Bottom() As Long + Get + Try + Return CType(Me(Me.tabletbl_ImageEditorTemplates.BottomColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Bottom in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.BottomColumn) = value + End Set + End Property + + _ + Public Property Left() As Long + Get + Try + Return CType(Me(Me.tabletbl_ImageEditorTemplates.LeftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Left in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.LeftColumn) = value + End Set + End Property + + _ + Public Property Right() As Long + Get + Try + Return CType(Me(Me.tabletbl_ImageEditorTemplates.RightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Right in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.RightColumn) = value + End Set + End Property + + _ + Public Property Title() As String + Get + Try + Return CType(Me(Me.tabletbl_ImageEditorTemplates.TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Title in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ImageEditorTemplates.TitleColumn) = value + End Set + End Property + + _ + Public Function IsTopNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.TopColumn) + End Function + + _ + Public Sub SetTopNull() + Me(Me.tabletbl_ImageEditorTemplates.TopColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBottomNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.BottomColumn) + End Function + + _ + Public Sub SetBottomNull() + Me(Me.tabletbl_ImageEditorTemplates.BottomColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLeftNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.LeftColumn) + End Function + + _ + Public Sub SetLeftNull() + Me(Me.tabletbl_ImageEditorTemplates.LeftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRightNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.RightColumn) + End Function + + _ + Public Sub SetRightNull() + Me(Me.tabletbl_ImageEditorTemplates.RightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.TitleColumn) + End Function + + _ + Public Sub SetTitleNull() + Me(Me.tabletbl_ImageEditorTemplates.TitleColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_GameGroupsRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_GameGroups As src_ucr_Emulation_GameGroupsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_GameGroups = CType(Me.Table,src_ucr_Emulation_GameGroupsDataTable) + End Sub + + _ + Public Property id_Moby_Game_Groups() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Game_Groups in Tabelle src_ucr_Emulation_GameGroups i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_GameGroups ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn) = value + End Set + End Property + + _ + Public Property GameCount() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GameCount in Tabelle src_ucr_Emulation_GameGroups ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_Game_GroupsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) + End Function + + _ + Public Sub Setid_Moby_Game_GroupsNull() + Me(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameCountNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn) + End Function + + _ + Public Sub SetGameCountNull() + Me(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_cmb_GroupsRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_cmb_Groups As src_ucr_Emulation_cmb_GroupsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_cmb_Groups = CType(Me.Table,src_ucr_Emulation_cmb_GroupsDataTable) + End Sub + + _ + Public Property id_Moby_Game_Groups() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Game_Groups in Tabelle src_ucr_Emulation_cmb_Groups i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_cmb_Groups ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_Game_GroupsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn) + End Function + + _ + Public Sub Setid_Moby_Game_GroupsNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Mame_RomsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Mame_Roms As tbl_Mame_RomsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Mame_Roms = CType(Me.Table,tbl_Mame_RomsDataTable) + End Sub + + _ + Public Property id_Mame_Roms() As Long + Get + Return CType(Me(Me.tabletbl_Mame_Roms.id_Mame_RomsColumn),Long) + End Get + Set + Me(Me.tabletbl_Mame_Roms.id_Mame_RomsColumn) = value + End Set + End Property + + _ + Public Property name() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.nameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte name in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.nameColumn) = value + End Set + End Property + + _ + Public Property description() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.descriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte description in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.descriptionColumn) = value + End Set + End Property + + _ + Public Property year() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.yearColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte year in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.yearColumn) = value + End Set + End Property + + _ + Public Property manufacturer() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.manufacturerColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte manufacturer in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.manufacturerColumn) = value + End Set + End Property + + _ + Public Property sourcefile() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.sourcefileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sourcefile in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.sourcefileColumn) = value + End Set + End Property + + _ + Public Property isbios() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.isbiosColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isbios in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.isbiosColumn) = value + End Set + End Property + + _ + Public Property isdevice() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.isdeviceColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isdevice in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.isdeviceColumn) = value + End Set + End Property + + _ + Public Property ismechanical() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.ismechanicalColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ismechanical in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.ismechanicalColumn) = value + End Set + End Property + + _ + Public Property issoftwarelist() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.issoftwarelistColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte issoftwarelist in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.issoftwarelistColumn) = value + End Set + End Property + + _ + Public Property hasdisplay() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.hasdisplayColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte hasdisplay in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.hasdisplayColumn) = value + End Set + End Property + + _ + Public Property runnable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.runnableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte runnable in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.runnableColumn) = value + End Set + End Property + + _ + Public Property cloneof() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.cloneofColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cloneof in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.cloneofColumn) = value + End Set + End Property + + _ + Public Property romof() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.romofColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte romof in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.romofColumn) = value + End Set + End Property + + _ + Public Property sampleof() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.sampleofColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sampleof in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.sampleofColumn) = value + End Set + End Property + + _ + Public Property mameinfo() As String + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.mameinfoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mameinfo in Tabelle tbl_Mame_Roms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.mameinfoColumn) = value + End Set + End Property + + _ + Public Function IsnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.nameColumn) + End Function + + _ + Public Sub SetnameNull() + Me(Me.tabletbl_Mame_Roms.nameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.descriptionColumn) + End Function + + _ + Public Sub SetdescriptionNull() + Me(Me.tabletbl_Mame_Roms.descriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsyearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.yearColumn) + End Function + + _ + Public Sub SetyearNull() + Me(Me.tabletbl_Mame_Roms.yearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsmanufacturerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.manufacturerColumn) + End Function + + _ + Public Sub SetmanufacturerNull() + Me(Me.tabletbl_Mame_Roms.manufacturerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssourcefileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.sourcefileColumn) + End Function + + _ + Public Sub SetsourcefileNull() + Me(Me.tabletbl_Mame_Roms.sourcefileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisbiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.isbiosColumn) + End Function + + _ + Public Sub SetisbiosNull() + Me(Me.tabletbl_Mame_Roms.isbiosColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisdeviceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.isdeviceColumn) + End Function + + _ + Public Sub SetisdeviceNull() + Me(Me.tabletbl_Mame_Roms.isdeviceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsismechanicalNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.ismechanicalColumn) + End Function + + _ + Public Sub SetismechanicalNull() + Me(Me.tabletbl_Mame_Roms.ismechanicalColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsissoftwarelistNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.issoftwarelistColumn) + End Function + + _ + Public Sub SetissoftwarelistNull() + Me(Me.tabletbl_Mame_Roms.issoftwarelistColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IshasdisplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.hasdisplayColumn) + End Function + + _ + Public Sub SethasdisplayNull() + Me(Me.tabletbl_Mame_Roms.hasdisplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrunnableNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.runnableColumn) + End Function + + _ + Public Sub SetrunnableNull() + Me(Me.tabletbl_Mame_Roms.runnableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscloneofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.cloneofColumn) + End Function + + _ + Public Sub SetcloneofNull() + Me(Me.tabletbl_Mame_Roms.cloneofColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsromofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.romofColumn) + End Function + + _ + Public Sub SetromofNull() + Me(Me.tabletbl_Mame_Roms.romofColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssampleofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.sampleofColumn) + End Function + + _ + Public Sub SetsampleofNull() + Me(Me.tabletbl_Mame_Roms.sampleofColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsmameinfoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.mameinfoColumn) + End Function + + _ + Public Sub SetmameinfoNull() + Me(Me.tabletbl_Mame_Roms.mameinfoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class ttb_Tag_Parser_VolumesRow + Inherits Global.System.Data.DataRow + + Private tablettb_Tag_Parser_Volumes As ttb_Tag_Parser_VolumesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablettb_Tag_Parser_Volumes = CType(Me.Table,ttb_Tag_Parser_VolumesDataTable) + End Sub + + _ + Public Property id_Tag_Parser_Volumes() As Long + Get + Try + Return CType(Me(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Tag_Parser_Volumes in Tabelle ttb_Tag_Parser_Volumes ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) = value + End Set + End Property + + _ + Public Property DisplayText() As String + Get + Try + Return CType(Me(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DisplayText in Tabelle ttb_Tag_Parser_Volumes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn) = value + End Set + End Property + + _ + Public Function Isid_Tag_Parser_VolumesNull() As Boolean + Return Me.IsNull(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) + End Function + + _ + Public Sub Setid_Tag_Parser_VolumesNull() + Me(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplayTextNull() As Boolean + Return Me.IsNull(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn) + End Function + + _ + Public Sub SetDisplayTextNull() + Me(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emulators_Multivolume_ParametersRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emulators_Multivolume_Parameters As tbl_Emulators_Multivolume_ParametersDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emulators_Multivolume_Parameters = CType(Me.Table,tbl_Emulators_Multivolume_ParametersDataTable) + End Sub + + _ + Public Property id_Emulators_Multivolume_Parameters() As Long + Get + Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_Emulators_Multivolume_ParametersColumn),Long) + End Get + Set + Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_Emulators_Multivolume_ParametersColumn) = value + End Set + End Property + + _ + Public Property id_Emulators() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emulators in Tabelle tbl_Emulators_Multivolume_Parameters "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn) = value + End Set + End Property + + _ + Public Property Volume_Number() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Volume_Number in Tabelle tbl_Emulators_Multivolume_Parameters"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn) = value + End Set + End Property + + _ + Public Property Parameter() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Parameter in Tabelle tbl_Emulators_Multivolume_Parameters ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn) = value + End Set + End Property + + _ + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn) + End Function + + _ + Public Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn) + End Function + + _ + Public Sub SetVolume_NumberNull() + Me(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsParameterNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn) + End Function + + _ + Public Sub SetParameterNull() + Me(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_DOSBox_ConfigsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_DOSBox_Configs As tbl_DOSBox_ConfigsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_DOSBox_Configs = CType(Me.Table,tbl_DOSBox_ConfigsDataTable) + End Sub + + _ + Public Property id_DOSBox_Configs() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Configs in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn) = value + End Set + End Property + + _ + Public Property id_Rombase_DOSBox_Configs() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_DOSBox_Configs in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn) = value + End Set + End Property + + _ + Public Property isTemplate() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.isTemplateColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isTemplate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.isTemplateColumn) = value + End Set + End Property + + _ + Public Property Displayname() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.DisplaynameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Displayname in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.DisplaynameColumn) = value + End Set + End Property + + _ + Public Property _sdl_fullscreen() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-fullscreen in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn) = value + End Set + End Property + + _ + Public Property _sdl_fulldouble() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-fulldouble in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn) = value + End Set + End Property + + _ + Public Property _sdl_fullresolution() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-fullresolution in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn) = value + End Set + End Property + + _ + Public Property _sdl_windowresolution() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-windowresolution in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn) = value + End Set + End Property + + _ + Public Property _sdl_output() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_outputColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-output in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_outputColumn) = value + End Set + End Property + + _ + Public Property _sdl_autolock() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-autolock in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn) = value + End Set + End Property + + _ + Public Property _sdl_sensitivity() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-sensitivity in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn) = value + End Set + End Property + + _ + Public Property _sdl_waitonerror() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-waitonerror in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn) = value + End Set + End Property + + _ + Public Property _sdl_priority_1() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-priority_1 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column) = value + End Set + End Property + + _ + Public Property _sdl_priority_2() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-priority_2 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column) = value + End Set + End Property + + _ + Public Property _sdl_mapperfile() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-mapperfile in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn) = value + End Set + End Property + + _ + Public Property _sdl_usescancodes() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sdl-usescancodes in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn) = value + End Set + End Property + + _ + Public Property _dosbox_language() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dosbox-language in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn) = value + End Set + End Property + + _ + Public Property _dosbox_machine() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dosbox-machine in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn) = value + End Set + End Property + + _ + Public Property _dosbox_memsize() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dosbox-memsize in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn) = value + End Set + End Property + + _ + Public Property _render_frameskip() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._render_frameskipColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte render-frameskip in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._render_frameskipColumn) = value + End Set + End Property + + _ + Public Property _render_aspect() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._render_aspectColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte render-aspect in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._render_aspectColumn) = value + End Set + End Property + + _ + Public Property _render_scaler() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._render_scalerColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte render-scaler in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._render_scalerColumn) = value + End Set + End Property + + _ + Public Property _render_scaler_forced() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte render-scaler_forced in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn) = value + End Set + End Property + + _ + Public Property _cpu_core() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_coreColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpu-core in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._cpu_coreColumn) = value + End Set + End Property + + _ + Public Property _cpu_cputype() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpu-cputype in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn) = value + End Set + End Property + + _ + Public Property _cpu_cycles() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpu-cycles in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn) = value + End Set + End Property + + _ + Public Property _cpu_cycleup() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpu-cycleup in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn) = value + End Set + End Property + + _ + Public Property _cpu_cycledown() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cpu-cycledown in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn) = value + End Set + End Property + + _ + Public Property _mixer_nosound() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mixer-nosound in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn) = value + End Set + End Property + + _ + Public Property _mixer_rate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_rateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mixer-rate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._mixer_rateColumn) = value + End Set + End Property + + _ + Public Property _mixer_blocksize() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mixer-blocksize in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn) = value + End Set + End Property + + _ + Public Property _mixer_prebuffer() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mixer-prebuffer in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn) = value + End Set + End Property + + _ + Public Property _midi_mpu401() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_mpu401Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte midi-mpu401 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._midi_mpu401Column) = value + End Set + End Property + + _ + Public Property _midi_mididevice() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte midi-mididevice in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn) = value + End Set + End Property + + _ + Public Property _midi_midiconfig() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte midi-midiconfig in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn) = value + End Set + End Property + + _ + Public Property _sblaster_sbtype() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-sbtype in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) = value + End Set + End Property + + _ + Public Property _sblaster_sbbase() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-sbbase in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) = value + End Set + End Property + + _ + Public Property _sblaster_irq() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-irq in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) = value + End Set + End Property + + _ + Public Property _sblaster_dma() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-dma in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) = value + End Set + End Property + + _ + Public Property _sblaster_hdma() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-hdma in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) = value + End Set + End Property + + _ + Public Property _sblaster_sbmixer() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-sbmixer in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) = value + End Set + End Property + + _ + Public Property _sblaster_oplmode() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-oplmode in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn) = value + End Set + End Property + + _ + Public Property _sblaster_oplemu() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-oplemu in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn) = value + End Set + End Property + + _ + Public Property _sblaster_oplrate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sblaster-oplrate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn) = value + End Set + End Property + + _ + Public Property _gus_gus() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_gusColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-gus in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_gusColumn) = value + End Set + End Property + + _ + Public Property _gus_gusrate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-gusrate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn) = value + End Set + End Property + + _ + Public Property _gus_gusbase() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-gusbase in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn) = value + End Set + End Property + + _ + Public Property _gus_gusirq() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-gusirq in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn) = value + End Set + End Property + + _ + Public Property _gus_gusdma() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-gusdma in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn) = value + End Set + End Property + + _ + Public Property _gus_ultradir() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gus-ultradir in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn) = value + End Set + End Property + + _ + Public Property _speaker_pcspeaker() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speaker-pcspeaker in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn) = value + End Set + End Property + + _ + Public Property _speaker_pcrate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speaker-pcrate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn) = value + End Set + End Property + + _ + Public Property _speaker_tandy() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._speaker_tandyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speaker-tandy in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._speaker_tandyColumn) = value + End Set + End Property + + _ + Public Property _speaker_tandyrate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speaker-tandyrate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn) = value + End Set + End Property + + _ + Public Property _speaker_disney() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speaker-disney in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn) = value + End Set + End Property + + _ + Public Property _joystick_joysticktype() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick-joysticktype in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn) = value + End Set + End Property + + _ + Public Property _joystick_timed() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._joystick_timedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick-timed in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._joystick_timedColumn) = value + End Set + End Property + + _ + Public Property _joystick_autofire() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick-autofire in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn) = value + End Set + End Property + + _ + Public Property _joystick_swap34() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._joystick_swap34Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick-swap34 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._joystick_swap34Column) = value + End Set + End Property + + _ + Public Property _joystick_buttonwrap() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick-buttonwrap in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn) = value + End Set + End Property + + _ + Public Property _serial_serial1() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._serial_serial1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte serial-serial1 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._serial_serial1Column) = value + End Set + End Property + + _ + Public Property _serial_serial2() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._serial_serial2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte serial-serial2 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._serial_serial2Column) = value + End Set + End Property + + _ + Public Property _serial_serial3() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._serial_serial3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte serial-serial3 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._serial_serial3Column) = value + End Set + End Property + + _ + Public Property _serial_serial4() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._serial_serial4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte serial-serial4 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._serial_serial4Column) = value + End Set + End Property + + _ + Public Property _dos_xms() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dos_xmsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dos-xms in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dos_xmsColumn) = value + End Set + End Property + + _ + Public Property _dos_ems() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dos_emsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dos-ems in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dos_emsColumn) = value + End Set + End Property + + _ + Public Property _dos_umb() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dos_umbColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dos-umb in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dos_umbColumn) = value + End Set + End Property + + _ + Public Property _dos_keyboardlayout() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte dos-keyboardlayout in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn) = value + End Set + End Property + + _ + Public Property _ipx_ipx() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ipx-ipx in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn) = value + End Set + End Property + + _ + Public Property _autoexec_before() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte autoexec-before in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn) = value + End Set + End Property + + _ + Public Property _autoexec_after() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte autoexec-after in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn) = value + End Set + End Property + + _ + Public Property _ml_autoclose() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-autoclose in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn) = value + End Set + End Property + + _ + Public Property _ml_showconsole() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-showconsole in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn) = value + End Set + End Property + + _ + Public Property _ml_customsettings() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-customsettings in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn) = value + End Set + End Property + + _ + Public Property _ml_useloadfix() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-useloadfix in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn) = value + End Set + End Property + + _ + Public Property _ml_loadfix() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-loadfix in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_master_left() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_master_left in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_master_right() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_master_right in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_spkr_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_spkr_left in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_spkr_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_spkr_right in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_sb_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_sb_left in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_sb_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_sb_right in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_disney_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_disney_left in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_disney_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_disney_right in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_gus_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_gus_left in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_gus_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_gus_right in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_fm_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_fm_left in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_fm_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_fm_right in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_cdaudio_left() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_cdaudio_left in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn) = value + End Set + End Property + + _ + Public Property _ml_volume_cdaudio_right() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_rightColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ml-volume_cdaudio_right in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_rightColumn) = value + End Set + End Property + + _ + Public Property p_sdl_pixelshader() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_pixelshader in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn) = value + End Set + End Property + + _ + Public Property p_sdl_pixelshader_forced() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshader_forcedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_pixelshader_forced in Tabelle tbl_DOSBox_Configs ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshader_forcedColumn) = value + End Set + End Property + + _ + Public Property p_sdl_output() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_output in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn) = value + End Set + End Property + + _ + Public Property p_dosbox_vmemsize() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_dosbox_vmemsize in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn) = value + End Set + End Property + + _ + Public Property p_dosbox_memsizekb() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_dosbox_memsizekb in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn) = value + End Set + End Property + + _ + Public Property p_dosbox_forcerate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_dosbox_forcerate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn) = value + End Set + End Property + + _ + Public Property p_dosbox_pit_hack() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_dosbox_pit_hackColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_dosbox_pit_hack in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_pit_hackColumn) = value + End Set + End Property + + _ + Public Property p_render_scaler() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_render_scaler in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn) = value + End Set + End Property + + _ + Public Property p_render_autofit() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_render_autofit in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn) = value + End Set + End Property + + _ + Public Property p_vsync_vsyncmode() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_vsync_vsyncmode in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn) = value + End Set + End Property + + _ + Public Property p_vsync_vsyncrate() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_vsync_vsyncrate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn) = value + End Set + End Property + + _ + Public Property p_cpu_cputype() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_cpu_cputype in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn) = value + End Set + End Property + + _ + Public Property p_keyboard_aux() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_keyboard_aux in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn) = value + End Set + End Property + + _ + Public Property p_keyboard_auxdevice() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_keyboard_auxdevice in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn) = value + End Set + End Property + + _ + Public Property p_voodoo() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_voodooColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_voodoo in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_voodooColumn) = value + End Set + End Property + + _ + Public Property p_mixer_swapstereo() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_mixer_swapstereo in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn) = value + End Set + End Property + + _ + Public Property p_midi_mididevice() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mididevice in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_reverse_stereo() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_reverse_stereo in Tabelle tbl_DOSBox_Configs ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_verbose() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_verbose in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_thread() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_threadColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_thread in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_threadColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_dac() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_dacColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_dac in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_dacColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_reverb_mode() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_reverb_mode in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_reverb_time() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_reverb_time in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_reverb_level() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_reverb_level in Tabelle tbl_DOSBox_Configs ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_partials() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_partials in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn) = value + End Set + End Property + + _ + Public Property p_sblaster_oplmode() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sblaster_oplmode in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn) = value + End Set + End Property + + _ + Public Property p_sblaster_hardwarebase() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sblaster_hardwarebase in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn) = value + End Set + End Property + + _ + Public Property p_sblaster_goldplay() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sblaster_goldplay in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn) = value + End Set + End Property + + _ + Public Property p_innova_innova() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_innova_innova in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn) = value + End Set + End Property + + _ + Public Property p_innova_samplerate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_innova_samplerate in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn) = value + End Set + End Property + + _ + Public Property p_innova_sidbase() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_innova_sidbase in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn) = value + End Set + End Property + + _ + Public Property p_innova_quality() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_innova_quality in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn) = value + End Set + End Property + + _ + Public Property p_speaker_ps1audio() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_speaker_ps1audio in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn) = value + End Set + End Property + + _ + Public Property p_speaker_ps1audiorate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_speaker_ps1audiorate in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn) = value + End Set + End Property + + _ + Public Property p_printer_printer() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_printer in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn) = value + End Set + End Property + + _ + Public Property p_printer_dpi() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_dpi in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn) = value + End Set + End Property + + _ + Public Property p_printer_width() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_width in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn) = value + End Set + End Property + + _ + Public Property p_printer_height() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_height in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn) = value + End Set + End Property + + _ + Public Property p_printer_printoutput() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_printoutput in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn) = value + End Set + End Property + + _ + Public Property p_printer_multipage() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_multipage in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn) = value + End Set + End Property + + _ + Public Property p_printer_docpath() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_docpath in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn) = value + End Set + End Property + + _ + Public Property p_printer_timeout() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_printer_timeout in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn) = value + End Set + End Property + + _ + Public Property p_parallel_parallel1() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_parallel_parallel1 in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column) = value + End Set + End Property + + _ + Public Property p_parallel_parallel2() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_parallel_parallel2 in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column) = value + End Set + End Property + + _ + Public Property p_parallel_parallel3() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_parallel_parallel3 in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column) = value + End Set + End Property + + _ + Public Property p_parallel_dongle() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_parallel_dongle in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn) = value + End Set + End Property + + _ + Public Property p_glide_glide() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_glide_glide in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn) = value + End Set + End Property + + _ + Public Property p_glide_lfb() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_glide_lfb in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn) = value + End Set + End Property + + _ + Public Property p_glide_splash() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_glide_splash in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn) = value + End Set + End Property + + _ + Public Property p_ne2000_ne2000() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ne2000_ne2000 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column) = value + End Set + End Property + + _ + Public Property p_ne2000_nicbase() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ne2000_nicbase in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn) = value + End Set + End Property + + _ + Public Property p_ne2000_nicirq() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ne2000_nicirq in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn) = value + End Set + End Property + + _ + Public Property p_ne2000_macaddr() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ne2000_macaddr in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn) = value + End Set + End Property + + _ + Public Property p_ne2000_realnic() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ne2000_realnic in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn) = value + End Set + End Property + + _ + Public Property p_ide1_enable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide1_enable in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn) = value + End Set + End Property + + _ + Public Property p_ide1_int13fakeio() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide1_int13fakeio in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn) = value + End Set + End Property + + _ + Public Property p_ide1_int13fakev86io() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide1_int13fakev86io in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn) = value + End Set + End Property + + _ + Public Property p_ide2_enable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide2_enable in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn) = value + End Set + End Property + + _ + Public Property p_ide2_int13fakeio() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide2_int13fakeio in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn) = value + End Set + End Property + + _ + Public Property p_ide2_int13fakev86io() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide2_int13fakev86io in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn) = value + End Set + End Property + + _ + Public Property p_ide3_enable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide3_enable in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn) = value + End Set + End Property + + _ + Public Property p_ide3_int13fakeio() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide3_int13fakeio in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn) = value + End Set + End Property + + _ + Public Property p_ide3_int13fakev86io() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakev86ioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide3_int13fakev86io in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakev86ioColumn) = value + End Set + End Property + + _ + Public Property p_ide4_enable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide4_enable in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn) = value + End Set + End Property + + _ + Public Property p_ide4_int13fakeio() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide4_int13fakeio in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn) = value + End Set + End Property + + _ + Public Property p_ide4_int13fakev86io() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakev86ioColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_ide4_int13fakev86io in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakev86ioColumn) = value + End Set + End Property + + _ + Public Function Isid_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn) + End Function + + _ + Public Sub Setid_DOSBox_ConfigsNull() + Me(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Rombase_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn) + End Function + + _ + Public Sub Setid_Rombase_DOSBox_ConfigsNull() + Me(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisTemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.isTemplateColumn) + End Function + + _ + Public Sub SetisTemplateNull() + Me(Me.tabletbl_DOSBox_Configs.isTemplateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.DisplaynameColumn) + End Function + + _ + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_DOSBox_Configs.DisplaynameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_fullscreenNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn) + End Function + + _ + Public Sub Set_sdl_fullscreenNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_fulldoubleNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn) + End Function + + _ + Public Sub Set_sdl_fulldoubleNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_fullresolutionNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn) + End Function + + _ + Public Sub Set_sdl_fullresolutionNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_windowresolutionNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn) + End Function + + _ + Public Sub Set_sdl_windowresolutionNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_outputNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_outputColumn) + End Function + + _ + Public Sub Set_sdl_outputNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_outputColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_autolockNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn) + End Function + + _ + Public Sub Set_sdl_autolockNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_sensitivityNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn) + End Function + + _ + Public Sub Set_sdl_sensitivityNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_waitonerrorNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn) + End Function + + _ + Public Sub Set_sdl_waitonerrorNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_priority_1Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column) + End Function + + _ + Public Sub Set_sdl_priority_1Null() + Me(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_priority_2Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column) + End Function + + _ + Public Sub Set_sdl_priority_2Null() + Me(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_mapperfileNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn) + End Function + + _ + Public Sub Set_sdl_mapperfileNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sdl_usescancodesNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn) + End Function + + _ + Public Sub Set_sdl_usescancodesNull() + Me(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dosbox_languageNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn) + End Function + + _ + Public Sub Set_dosbox_languageNull() + Me(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dosbox_machineNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn) + End Function + + _ + Public Sub Set_dosbox_machineNull() + Me(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dosbox_memsizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn) + End Function + + _ + Public Sub Set_dosbox_memsizeNull() + Me(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_render_frameskipNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_frameskipColumn) + End Function + + _ + Public Sub Set_render_frameskipNull() + Me(Me.tabletbl_DOSBox_Configs._render_frameskipColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_render_aspectNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_aspectColumn) + End Function + + _ + Public Sub Set_render_aspectNull() + Me(Me.tabletbl_DOSBox_Configs._render_aspectColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_render_scalerNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_scalerColumn) + End Function + + _ + Public Sub Set_render_scalerNull() + Me(Me.tabletbl_DOSBox_Configs._render_scalerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_render_scaler_forcedNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn) + End Function + + _ + Public Sub Set_render_scaler_forcedNull() + Me(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_cpu_coreNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_coreColumn) + End Function + + _ + Public Sub Set_cpu_coreNull() + Me(Me.tabletbl_DOSBox_Configs._cpu_coreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_cpu_cputypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn) + End Function + + _ + Public Sub Set_cpu_cputypeNull() + Me(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_cpu_cyclesNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn) + End Function + + _ + Public Sub Set_cpu_cyclesNull() + Me(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_cpu_cycleupNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn) + End Function + + _ + Public Sub Set_cpu_cycleupNull() + Me(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_cpu_cycledownNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn) + End Function + + _ + Public Sub Set_cpu_cycledownNull() + Me(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_mixer_nosoundNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn) + End Function + + _ + Public Sub Set_mixer_nosoundNull() + Me(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_mixer_rateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_rateColumn) + End Function + + _ + Public Sub Set_mixer_rateNull() + Me(Me.tabletbl_DOSBox_Configs._mixer_rateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_mixer_blocksizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn) + End Function + + _ + Public Sub Set_mixer_blocksizeNull() + Me(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_mixer_prebufferNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn) + End Function + + _ + Public Sub Set_mixer_prebufferNull() + Me(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_midi_mpu401Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_mpu401Column) + End Function + + _ + Public Sub Set_midi_mpu401Null() + Me(Me.tabletbl_DOSBox_Configs._midi_mpu401Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_midi_midideviceNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn) + End Function + + _ + Public Sub Set_midi_midideviceNull() + Me(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_midi_midiconfigNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn) + End Function + + _ + Public Sub Set_midi_midiconfigNull() + Me(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_sbtypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) + End Function + + _ + Public Sub Set_sblaster_sbtypeNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_sbbaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) + End Function + + _ + Public Sub Set_sblaster_sbbaseNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_irqNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) + End Function + + _ + Public Sub Set_sblaster_irqNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_dmaNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) + End Function + + _ + Public Sub Set_sblaster_dmaNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_hdmaNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) + End Function + + _ + Public Sub Set_sblaster_hdmaNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_sbmixerNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) + End Function + + _ + Public Sub Set_sblaster_sbmixerNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_oplmodeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn) + End Function + + _ + Public Sub Set_sblaster_oplmodeNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_oplemuNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn) + End Function + + _ + Public Sub Set_sblaster_oplemuNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_sblaster_oplrateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn) + End Function + + _ + Public Sub Set_sblaster_oplrateNull() + Me(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_gusNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusColumn) + End Function + + _ + Public Sub Set_gus_gusNull() + Me(Me.tabletbl_DOSBox_Configs._gus_gusColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_gusrateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn) + End Function + + _ + Public Sub Set_gus_gusrateNull() + Me(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_gusbaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn) + End Function + + _ + Public Sub Set_gus_gusbaseNull() + Me(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_gusirqNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn) + End Function + + _ + Public Sub Set_gus_gusirqNull() + Me(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_gusdmaNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn) + End Function + + _ + Public Sub Set_gus_gusdmaNull() + Me(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_gus_ultradirNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn) + End Function + + _ + Public Sub Set_gus_ultradirNull() + Me(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_speaker_pcspeakerNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn) + End Function + + _ + Public Sub Set_speaker_pcspeakerNull() + Me(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_speaker_pcrateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn) + End Function + + _ + Public Sub Set_speaker_pcrateNull() + Me(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_speaker_tandyNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_tandyColumn) + End Function + + _ + Public Sub Set_speaker_tandyNull() + Me(Me.tabletbl_DOSBox_Configs._speaker_tandyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_speaker_tandyrateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn) + End Function + + _ + Public Sub Set_speaker_tandyrateNull() + Me(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_speaker_disneyNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn) + End Function + + _ + Public Sub Set_speaker_disneyNull() + Me(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_joystick_joysticktypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn) + End Function + + _ + Public Sub Set_joystick_joysticktypeNull() + Me(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_joystick_timedNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_timedColumn) + End Function + + _ + Public Sub Set_joystick_timedNull() + Me(Me.tabletbl_DOSBox_Configs._joystick_timedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_joystick_autofireNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn) + End Function + + _ + Public Sub Set_joystick_autofireNull() + Me(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_joystick_swap34Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_swap34Column) + End Function + + _ + Public Sub Set_joystick_swap34Null() + Me(Me.tabletbl_DOSBox_Configs._joystick_swap34Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_joystick_buttonwrapNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn) + End Function + + _ + Public Sub Set_joystick_buttonwrapNull() + Me(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_serial_serial1Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial1Column) + End Function + + _ + Public Sub Set_serial_serial1Null() + Me(Me.tabletbl_DOSBox_Configs._serial_serial1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_serial_serial2Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial2Column) + End Function + + _ + Public Sub Set_serial_serial2Null() + Me(Me.tabletbl_DOSBox_Configs._serial_serial2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_serial_serial3Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial3Column) + End Function + + _ + Public Sub Set_serial_serial3Null() + Me(Me.tabletbl_DOSBox_Configs._serial_serial3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_serial_serial4Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial4Column) + End Function + + _ + Public Sub Set_serial_serial4Null() + Me(Me.tabletbl_DOSBox_Configs._serial_serial4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dos_xmsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_xmsColumn) + End Function + + _ + Public Sub Set_dos_xmsNull() + Me(Me.tabletbl_DOSBox_Configs._dos_xmsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dos_emsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_emsColumn) + End Function + + _ + Public Sub Set_dos_emsNull() + Me(Me.tabletbl_DOSBox_Configs._dos_emsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dos_umbNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_umbColumn) + End Function + + _ + Public Sub Set_dos_umbNull() + Me(Me.tabletbl_DOSBox_Configs._dos_umbColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_dos_keyboardlayoutNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn) + End Function + + _ + Public Sub Set_dos_keyboardlayoutNull() + Me(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ipx_ipxNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn) + End Function + + _ + Public Sub Set_ipx_ipxNull() + Me(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_autoexec_beforeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn) + End Function + + _ + Public Sub Set_autoexec_beforeNull() + Me(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_autoexec_afterNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn) + End Function + + _ + Public Sub Set_autoexec_afterNull() + Me(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_autocloseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn) + End Function + + _ + Public Sub Set_ml_autocloseNull() + Me(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_showconsoleNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn) + End Function + + _ + Public Sub Set_ml_showconsoleNull() + Me(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_customsettingsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn) + End Function + + _ + Public Sub Set_ml_customsettingsNull() + Me(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_useloadfixNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn) + End Function + + _ + Public Sub Set_ml_useloadfixNull() + Me(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_loadfixNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn) + End Function + + _ + Public Sub Set_ml_loadfixNull() + Me(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_master_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_master_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_master_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_master_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_spkr_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_spkr_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_spkr_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_spkr_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_sb_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_sb_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_sb_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_sb_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_sb_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_disney_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_disney_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_disney_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_disney_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_disney_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_gus_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_gus_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_gus_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_gus_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_fm_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_fm_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_fm_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_fm_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_cdaudio_leftNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn) + End Function + + _ + Public Sub Set_ml_volume_cdaudio_leftNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_ml_volume_cdaudio_rightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_rightColumn) + End Function + + _ + Public Sub Set_ml_volume_cdaudio_rightNull() + Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_rightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sdl_pixelshaderNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn) + End Function + + _ + Public Sub Setp_sdl_pixelshaderNull() + Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sdl_pixelshader_forcedNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshader_forcedColumn) + End Function + + _ + Public Sub Setp_sdl_pixelshader_forcedNull() + Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshader_forcedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sdl_outputNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn) + End Function + + _ + Public Sub Setp_sdl_outputNull() + Me(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_dosbox_vmemsizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn) + End Function + + _ + Public Sub Setp_dosbox_vmemsizeNull() + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_dosbox_memsizekbNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn) + End Function + + _ + Public Sub Setp_dosbox_memsizekbNull() + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_dosbox_forcerateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn) + End Function + + _ + Public Sub Setp_dosbox_forcerateNull() + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_dosbox_pit_hackNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_pit_hackColumn) + End Function + + _ + Public Sub Setp_dosbox_pit_hackNull() + Me(Me.tabletbl_DOSBox_Configs.p_dosbox_pit_hackColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_render_scalerNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn) + End Function + + _ + Public Sub Setp_render_scalerNull() + Me(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_render_autofitNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn) + End Function + + _ + Public Sub Setp_render_autofitNull() + Me(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_vsync_vsyncmodeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn) + End Function + + _ + Public Sub Setp_vsync_vsyncmodeNull() + Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_vsync_vsyncrateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn) + End Function + + _ + Public Sub Setp_vsync_vsyncrateNull() + Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_cpu_cputypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn) + End Function + + _ + Public Sub Setp_cpu_cputypeNull() + Me(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_keyboard_auxNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn) + End Function + + _ + Public Sub Setp_keyboard_auxNull() + Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_keyboard_auxdeviceNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn) + End Function + + _ + Public Sub Setp_keyboard_auxdeviceNull() + Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_voodooNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_voodooColumn) + End Function + + _ + Public Sub Setp_voodooNull() + Me(Me.tabletbl_DOSBox_Configs.p_voodooColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_mixer_swapstereoNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn) + End Function + + _ + Public Sub Setp_mixer_swapstereoNull() + Me(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_midideviceNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn) + End Function + + _ + Public Sub Setp_midi_midideviceNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_reverse_stereoNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn) + End Function + + _ + Public Sub Setp_midi_mt32_reverse_stereoNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_verboseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn) + End Function + + _ + Public Sub Setp_midi_mt32_verboseNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_threadNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_threadColumn) + End Function + + _ + Public Sub Setp_midi_mt32_threadNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_threadColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_dacNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_dacColumn) + End Function + + _ + Public Sub Setp_midi_mt32_dacNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_dacColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_reverb_modeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn) + End Function + + _ + Public Sub Setp_midi_mt32_reverb_modeNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_reverb_timeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn) + End Function + + _ + Public Sub Setp_midi_mt32_reverb_timeNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_reverb_levelNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn) + End Function + + _ + Public Sub Setp_midi_mt32_reverb_levelNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_partialsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn) + End Function + + _ + Public Sub Setp_midi_mt32_partialsNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sblaster_oplmodeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn) + End Function + + _ + Public Sub Setp_sblaster_oplmodeNull() + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sblaster_hardwarebaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn) + End Function + + _ + Public Sub Setp_sblaster_hardwarebaseNull() + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_sblaster_goldplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn) + End Function + + _ + Public Sub Setp_sblaster_goldplayNull() + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_innova_innovaNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn) + End Function + + _ + Public Sub Setp_innova_innovaNull() + Me(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_innova_samplerateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn) + End Function + + _ + Public Sub Setp_innova_samplerateNull() + Me(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_innova_sidbaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn) + End Function + + _ + Public Sub Setp_innova_sidbaseNull() + Me(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_innova_qualityNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn) + End Function + + _ + Public Sub Setp_innova_qualityNull() + Me(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_speaker_ps1audioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn) + End Function + + _ + Public Sub Setp_speaker_ps1audioNull() + Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_speaker_ps1audiorateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn) + End Function + + _ + Public Sub Setp_speaker_ps1audiorateNull() + Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_printerNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn) + End Function + + _ + Public Sub Setp_printer_printerNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_dpiNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn) + End Function + + _ + Public Sub Setp_printer_dpiNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_widthNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn) + End Function + + _ + Public Sub Setp_printer_widthNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_heightNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn) + End Function + + _ + Public Sub Setp_printer_heightNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_printoutputNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn) + End Function + + _ + Public Sub Setp_printer_printoutputNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_multipageNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn) + End Function + + _ + Public Sub Setp_printer_multipageNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_docpathNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn) + End Function + + _ + Public Sub Setp_printer_docpathNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_printer_timeoutNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn) + End Function + + _ + Public Sub Setp_printer_timeoutNull() + Me(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_parallel_parallel1Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column) + End Function + + _ + Public Sub Setp_parallel_parallel1Null() + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_parallel_parallel2Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column) + End Function + + _ + Public Sub Setp_parallel_parallel2Null() + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_parallel_parallel3Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column) + End Function + + _ + Public Sub Setp_parallel_parallel3Null() + Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_parallel_dongleNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn) + End Function + + _ + Public Sub Setp_parallel_dongleNull() + Me(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_glide_glideNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn) + End Function + + _ + Public Sub Setp_glide_glideNull() + Me(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_glide_lfbNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn) + End Function + + _ + Public Sub Setp_glide_lfbNull() + Me(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_glide_splashNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn) + End Function + + _ + Public Sub Setp_glide_splashNull() + Me(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ne2000_ne2000Null() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column) + End Function + + _ + Public Sub Setp_ne2000_ne2000Null() + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ne2000_nicbaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn) + End Function + + _ + Public Sub Setp_ne2000_nicbaseNull() + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ne2000_nicirqNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn) + End Function + + _ + Public Sub Setp_ne2000_nicirqNull() + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ne2000_macaddrNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn) + End Function + + _ + Public Sub Setp_ne2000_macaddrNull() + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ne2000_realnicNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn) + End Function + + _ + Public Sub Setp_ne2000_realnicNull() + Me(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide1_enableNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn) + End Function + + _ + Public Sub Setp_ide1_enableNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide1_int13fakeioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn) + End Function + + _ + Public Sub Setp_ide1_int13fakeioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide1_int13fakev86ioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn) + End Function + + _ + Public Sub Setp_ide1_int13fakev86ioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide2_enableNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn) + End Function + + _ + Public Sub Setp_ide2_enableNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide2_int13fakeioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn) + End Function + + _ + Public Sub Setp_ide2_int13fakeioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide2_int13fakev86ioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn) + End Function + + _ + Public Sub Setp_ide2_int13fakev86ioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide3_enableNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn) + End Function + + _ + Public Sub Setp_ide3_enableNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide3_int13fakeioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn) + End Function + + _ + Public Sub Setp_ide3_int13fakeioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide3_int13fakev86ioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakev86ioColumn) + End Function + + _ + Public Sub Setp_ide3_int13fakev86ioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakev86ioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide4_enableNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn) + End Function + + _ + Public Sub Setp_ide4_enableNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide4_int13fakeioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn) + End Function + + _ + Public Sub Setp_ide4_int13fakeioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_ide4_int13fakev86ioNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakev86ioColumn) + End Function + + _ + Public Sub Setp_ide4_int13fakev86ioNull() + Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakev86ioColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_Platforms_SettingsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Platforms_Settings As tbl_Moby_Platforms_SettingsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Platforms_Settings = CType(Me.Table,tbl_Moby_Platforms_SettingsDataTable) + End Sub + + _ + Public Property id_Moby_Platforms() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle tbl_Moby_Platforms_Settings ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms_Settings.NameColumn) = value + End Set + End Property + + _ + Public Property Shortname() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Shortname in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn) = value + End Set + End Property + + _ + Public Property Visible() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Visible in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Platforms_Settings.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsShortnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn) + End Function + + _ + Public Sub SetShortnameNull() + Me(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVisibleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn) + End Function + + _ + Public Sub SetVisibleNull() + Me(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_Emulators_DOSBox_PatchesRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_Emulators_DOSBox_Patches As src_frm_Emulators_DOSBox_PatchesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_Emulators_DOSBox_Patches = CType(Me.Table,src_frm_Emulators_DOSBox_PatchesDataTable) + End Sub + + _ + Public Property id_DOSBox_Patches() As Integer + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Patches in Tabelle src_frm_Emulators_DOSBox_Patches"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) = value + End Set + End Property + + _ + Public Property id_DOSBox_Patches_Categories() As Integer + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Patches_Categories in Tabelle src_frm_Emulators_DOS"& _ + "Box_Patches ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Categoryname() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Categoryname in Tabelle src_frm_Emulators_DOSBox_Patches ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) = value + End Set + End Property + + _ + Public Property Patchname() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Patchname in Tabelle src_frm_Emulators_DOSBox_Patches ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) = value + End Set + End Property + + _ + Public Property Identifier() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Identifier in Tabelle src_frm_Emulators_DOSBox_Patches ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle src_frm_Emulators_DOSBox_Patches ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Activated() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Activated in Tabelle src_frm_Emulators_DOSBox_Patches ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) = value + End Set + End Property + + _ + Public Property DAUM_Supported() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DAUM_Supported in Tabelle src_frm_Emulators_DOSBox_Patches is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) = value + End Set + End Property + + _ + Public Property MB_Supported() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MB_Supported in Tabelle src_frm_Emulators_DOSBox_Patches ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) = value + End Set + End Property + + _ + Public Function Isid_DOSBox_PatchesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) + End Function + + _ + Public Sub Setid_DOSBox_PatchesNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_DOSBox_Patches_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn) + End Function + + _ + Public Sub Setid_DOSBox_Patches_CategoriesNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategorynameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) + End Function + + _ + Public Sub SetCategorynameNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPatchnameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) + End Function + + _ + Public Sub SetPatchnameNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIdentifierNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) + End Function + + _ + Public Sub SetIdentifierNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsActivatedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) + End Function + + _ + Public Sub SetActivatedNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDAUM_SupportedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) + End Function + + _ + Public Sub SetDAUM_SupportedNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMB_SupportedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) + End Function + + _ + Public Sub SetMB_SupportedNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_Emulators_DOSBox_Patches_CategoriesRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_Emulators_DOSBox_Patches_Categories As src_frm_Emulators_DOSBox_Patches_CategoriesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories = CType(Me.Table,src_frm_Emulators_DOSBox_Patches_CategoriesDataTable) + End Sub + + _ + Public Property id_DOSBox_Patches_Categories() As Integer + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_DOSBox_Patches_Categories in Tabelle src_frm_Emulators_DOS"& _ + "Box_Patches_Categories ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Categoryname() As String + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Categoryname in Tabelle src_frm_Emulators_DOSBox_Patches_Cate"& _ + "gories ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn) = value + End Set + End Property + + _ + Public Function Isid_DOSBox_Patches_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn) + End Function + + _ + Public Sub Setid_DOSBox_Patches_CategoriesNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategorynameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn) + End Function + + _ + Public Sub SetCategorynameNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_UsersRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Users As tbl_UsersDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Users = CType(Me.Table,tbl_UsersDataTable) + End Sub + + _ + Public Property id_Users() As Integer + Get + Return CType(Me(Me.tabletbl_Users.id_UsersColumn),Integer) + End Get + Set + Me(Me.tabletbl_Users.id_UsersColumn) = value + End Set + End Property + + _ + Public Property Admin() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Users.AdminColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Admin in Tabelle tbl_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users.AdminColumn) = value + End Set + End Property + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tabletbl_Users.UsernameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle tbl_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users.UsernameColumn) = value + End Set + End Property + + _ + Public Property Password() As String + Get + Try + Return CType(Me(Me.tabletbl_Users.PasswordColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Password in Tabelle tbl_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users.PasswordColumn) = value + End Set + End Property + + _ + Public Property Restricted() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Users.RestrictedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Restricted in Tabelle tbl_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users.RestrictedColumn) = value + End Set + End Property + + _ + Public Function IsAdminNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users.AdminColumn) + End Function + + _ + Public Sub SetAdminNull() + Me(Me.tabletbl_Users.AdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tabletbl_Users.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPasswordNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users.PasswordColumn) + End Function + + _ + Public Sub SetPasswordNull() + Me(Me.tabletbl_Users.PasswordColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRestrictedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users.RestrictedColumn) + End Function + + _ + Public Sub SetRestrictedNull() + Me(Me.tabletbl_Users.RestrictedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_Moby_Releases_StaffRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_Moby_Releases_Staff As src_ucr_Emulation_Moby_Releases_StaffDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_Moby_Releases_Staff = CType(Me.Table,src_ucr_Emulation_Moby_Releases_StaffDataTable) + End Sub + + _ + Public Property id_Moby_Releases_Staff() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Staff in Tabelle src_ucr_Emulation_Moby_Rele"& _ + "ases_Staff ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Staff() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_StaffColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Staff in Tabelle src_ucr_Emulation_Moby_Releases_Staf"& _ + "f ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_StaffColumn) = value + End Set + End Property + + _ + Public Property Position() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Position in Tabelle src_ucr_Emulation_Moby_Releases_Staff ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_Moby_Releases_Staff ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn) = value + End Set + End Property + + _ + Public Property Sort() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle src_ucr_Emulation_Moby_Releases_Staff ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_Releases_StaffNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn) + End Function + + _ + Public Sub Setid_Moby_Releases_StaffNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_StaffNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_StaffColumn) + End Function + + _ + Public Sub Setid_Moby_StaffNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_StaffColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPositionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn) + End Function + + _ + Public Sub SetPositionNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSortNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn) + End Function + + _ + Public Sub SetSortNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_cmb_StaffRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_cmb_Staff As src_ucr_Emulation_cmb_StaffDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_cmb_Staff = CType(Me.Table,src_ucr_Emulation_cmb_StaffDataTable) + End Sub + + _ + Public Property id_Moby_Staff() As Long + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Staff in Tabelle src_ucr_Emulation_cmb_Staff ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_cmb_Staff ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_StaffNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn) + End Function + + _ + Public Sub Setid_Moby_StaffNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Similarity_CalculationRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Similarity_Calculation As tbl_Similarity_CalculationDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Similarity_Calculation = CType(Me.Table,tbl_Similarity_CalculationDataTable) + End Sub + + _ + Public Property id_Emu_Games() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_Similarity_Calculation ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Releases() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases in Tabelle tbl_Similarity_Calculation ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property Game() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.GameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Game in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.GameColumn) = value + End Set + End Property + + _ + Public Property Platform() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.PlatformColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Platform in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.PlatformColumn) = value + End Set + End Property + + _ + Public Property Folder() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.FolderColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Folder in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.FolderColumn) = value + End Set + End Property + + _ + Public Property File() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.FileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.FileColumn) = value + End Set + End Property + + _ + Public Property InnerFile() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.InnerFileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte InnerFile in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.InnerFileColumn) = value + End Set + End Property + + _ + Public Property Have() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.HaveColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Have in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.HaveColumn) = value + End Set + End Property + + _ + Public Property _001_Platform() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._001_PlatformColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 001_Platform in Tabelle tbl_Similarity_Calculation ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) = value + End Set + End Property + + _ + Public Property _002_MobyRank() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 002_MobyRank in Tabelle tbl_Similarity_Calculation ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) = value + End Set + End Property + + _ + Public Property _003_MobyScore() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 003_MobyScore in Tabelle tbl_Similarity_Calculation ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) = value + End Set + End Property + + _ + Public Property _004_Publisher() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._004_PublisherColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 004_Publisher in Tabelle tbl_Similarity_Calculation ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) = value + End Set + End Property + + _ + Public Property _005_Developer() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 005_Developer in Tabelle tbl_Similarity_Calculation ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) = value + End Set + End Property + + _ + Public Property _006_Year() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._006_YearColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 006_Year in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._006_YearColumn) = value + End Set + End Property + + _ + Public Property _101_Basic_Genres() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 101_Basic_Genres in Tabelle tbl_Similarity_Calculation ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) = value + End Set + End Property + + _ + Public Property _102_Perspectives() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 102_Perspectives in Tabelle tbl_Similarity_Calculation ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) = value + End Set + End Property + + _ + Public Property _103_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 103_Sports_Themes in Tabelle tbl_Similarity_Calculation ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property _104_Non_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 104_Non_Sports_Themes in Tabelle tbl_Similarity_Calculation i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property _105_Educational_Categories() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 105_Educational_Categories in Tabelle tbl_Similarity_Calculat"& _ + "ion ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) = value + End Set + End Property + + _ + Public Property _106_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 106_Other_Attributes in Tabelle tbl_Similarity_Calculation is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property _107_Visual_Presentation() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 107_Visual_Presentation in Tabelle tbl_Similarity_Calculation"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) = value + End Set + End Property + + _ + Public Property _108_Gameplay() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 108_Gameplay in Tabelle tbl_Similarity_Calculation ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) = value + End Set + End Property + + _ + Public Property _109_Pacing() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 109_Pacing in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn) = value + End Set + End Property + + _ + Public Property _110_Narrative_Theme_Topic() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 110_Narrative_Theme_Topic in Tabelle tbl_Similarity_Calculati"& _ + "on ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) = value + End Set + End Property + + _ + Public Property _111_Setting() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 111_Setting in Tabelle tbl_Similarity_Calculation ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn) = value + End Set + End Property + + _ + Public Property _112_Vehicular_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 112_Vehicular_Themes in Tabelle tbl_Similarity_Calculation is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) = value + End Set + End Property + + _ + Public Property _113_Interface_Control() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 113_Interface_Control in Tabelle tbl_Similarity_Calculation i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) = value + End Set + End Property + + _ + Public Property _114_DLC_Addon() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 114_DLC_Addon in Tabelle tbl_Similarity_Calculation ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) = value + End Set + End Property + + _ + Public Property _115_Special_Edition() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 115_Special_Edition in Tabelle tbl_Similarity_Calculation ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) = value + End Set + End Property + + _ + Public Property _201_MinPlayers() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 201_MinPlayers in Tabelle tbl_Similarity_Calculation ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) = value + End Set + End Property + + _ + Public Property _202_MaxPlayers() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 202_MaxPlayers in Tabelle tbl_Similarity_Calculation ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) = value + End Set + End Property + + _ + Public Property _203_AgeO() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 203_AgeO in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) = value + End Set + End Property + + _ + Public Property _204_AgeP() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 204_AgeP in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn) = value + End Set + End Property + + _ + Public Property _205_Rating_Descriptors() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 205_Rating_Descriptors in Tabelle tbl_Similarity_Calculation "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) = value + End Set + End Property + + _ + Public Property _206_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 206_Other_Attributes in Tabelle tbl_Similarity_Calculation is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property _207_Multiplayer_Attributes() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 207_Multiplayer_Attributes in Tabelle tbl_Similarity_Calculat"& _ + "ion ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) = value + End Set + End Property + + _ + Public Property _301_Group_Membership() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 301_Group_Membership in Tabelle tbl_Similarity_Calculation is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) = value + End Set + End Property + + _ + Public Property _401_Staff() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation._401_StaffColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte 401_Staff in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation._401_StaffColumn) = value + End Set + End Property + + _ + Public Property Similarity() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation.SimilarityColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Similarity in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation.SimilarityColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) + End Function + + _ + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.GameColumn) + End Function + + _ + Public Sub SetGameNull() + Me(Me.tabletbl_Similarity_Calculation.GameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.PlatformColumn) + End Function + + _ + Public Sub SetPlatformNull() + Me(Me.tabletbl_Similarity_Calculation.PlatformColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FolderColumn) + End Function + + _ + Public Sub SetFolderNull() + Me(Me.tabletbl_Similarity_Calculation.FolderColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FileColumn) + End Function + + _ + Public Sub SetFileNull() + Me(Me.tabletbl_Similarity_Calculation.FileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.InnerFileColumn) + End Function + + _ + Public Sub SetInnerFileNull() + Me(Me.tabletbl_Similarity_Calculation.InnerFileColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHaveNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.HaveColumn) + End Function + + _ + Public Sub SetHaveNull() + Me(Me.tabletbl_Similarity_Calculation.HaveColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) + End Function + + _ + Public Sub Set_001_PlatformNull() + Me(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) + End Function + + _ + Public Sub Set_002_MobyRankNull() + Me(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) + End Function + + _ + Public Sub Set_003_MobyScoreNull() + Me(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) + End Function + + _ + Public Sub Set_004_PublisherNull() + Me(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) + End Function + + _ + Public Sub Set_005_DeveloperNull() + Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_006_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._006_YearColumn) + End Function + + _ + Public Sub Set_006_YearNull() + Me(Me.tabletbl_Similarity_Calculation._006_YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) + End Function + + _ + Public Sub Set_101_Basic_GenresNull() + Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) + End Function + + _ + Public Sub Set_102_PerspectivesNull() + Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) + End Function + + _ + Public Sub Set_103_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) + End Function + + _ + Public Sub Set_104_Non_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_105_Educational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) + End Function + + _ + Public Sub Set_105_Educational_CategoriesNull() + Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_106_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) + End Function + + _ + Public Sub Set_106_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) + End Function + + _ + Public Sub Set_107_Visual_PresentationNull() + Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) + End Function + + _ + Public Sub Set_108_GameplayNull() + Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_109_PacingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._109_PacingColumn) + End Function + + _ + Public Sub Set_109_PacingNull() + Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) + End Function + + _ + Public Sub Set_110_Narrative_Theme_TopicNull() + Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_111_SettingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._111_SettingColumn) + End Function + + _ + Public Sub Set_111_SettingNull() + Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) + End Function + + _ + Public Sub Set_112_Vehicular_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) + End Function + + _ + Public Sub Set_113_Interface_ControlNull() + Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) + End Function + + _ + Public Sub Set_114_DLC_AddonNull() + Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) + End Function + + _ + Public Sub Set_115_Special_EditionNull() + Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_201_MinPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) + End Function + + _ + Public Sub Set_201_MinPlayersNull() + Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_202_MaxPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) + End Function + + _ + Public Sub Set_202_MaxPlayersNull() + Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_203_AgeONull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) + End Function + + _ + Public Sub Set_203_AgeONull() + Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_204_AgePNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._204_AgePColumn) + End Function + + _ + Public Sub Set_204_AgePNull() + Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_205_Rating_DescriptorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) + End Function + + _ + Public Sub Set_205_Rating_DescriptorsNull() + Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_206_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) + End Function + + _ + Public Sub Set_206_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_207_Multiplayer_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) + End Function + + _ + Public Sub Set_207_Multiplayer_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_301_Group_MembershipNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) + End Function + + _ + Public Sub Set_301_Group_MembershipNull() + Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_401_StaffNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._401_StaffColumn) + End Function + + _ + Public Sub Set_401_StaffNull() + Me(Me.tabletbl_Similarity_Calculation._401_StaffColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSimilarityNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.SimilarityColumn) + End Function + + _ + Public Sub SetSimilarityNull() + Me(Me.tabletbl_Similarity_Calculation.SimilarityColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Similarity_Calculation_ConfigRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Similarity_Calculation_Config As tbl_Similarity_Calculation_ConfigDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Similarity_Calculation_Config = CType(Me.Table,tbl_Similarity_Calculation_ConfigDataTable) + End Sub + + _ + Public Property id_Similarity_Calculation_Config() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Similarity_Calculation_Config in Tabelle tbl_Similarity_Ca"& _ + "lculation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Similarity_Calculation_Config ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn) = value + End Set + End Property + + _ + Public Property Weight_001_Platform() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_001_Platform in Tabelle tbl_Similarity_Calculation_Con"& _ + "fig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) = value + End Set + End Property + + _ + Public Property Weight_002_MobyRank() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_002_MobyRank in Tabelle tbl_Similarity_Calculation_Con"& _ + "fig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) = value + End Set + End Property + + _ + Public Property Weight_003_MobyScore() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_003_MobyScore in Tabelle tbl_Similarity_Calculation_Co"& _ + "nfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) = value + End Set + End Property + + _ + Public Property Weight_004_Publisher() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_004_Publisher in Tabelle tbl_Similarity_Calculation_Co"& _ + "nfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn) = value + End Set + End Property + + _ + Public Property Weight_005_Developer() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_005_Developer in Tabelle tbl_Similarity_Calculation_Co"& _ + "nfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn) = value + End Set + End Property + + _ + Public Property Weight_006_Year() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_006_Year in Tabelle tbl_Similarity_Calculation_Config "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn) = value + End Set + End Property + + _ + Public Property Weight_101_Basic_Genres() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_101_Basic_Genres in Tabelle tbl_Similarity_Calculation"& _ + "_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) = value + End Set + End Property + + _ + Public Property Weight_102_Perspectives() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_102_Perspectives in Tabelle tbl_Similarity_Calculation"& _ + "_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) = value + End Set + End Property + + _ + Public Property Weight_103_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_103_Sports_Themes in Tabelle tbl_Similarity_Calculatio"& _ + "n_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property Weight_104_Non_Sports_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_104_Non_Sports_Themes in Tabelle tbl_Similarity_Calcul"& _ + "ation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property Weight_105_Educational_Categories() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_105_Educational_CategoriesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_105_Educational_Categories in Tabelle tbl_Similarity_C"& _ + "alculation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_105_Educational_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Weight_106_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_106_Other_Attributes in Tabelle tbl_Similarity_Calcula"& _ + "tion_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property Weight_107_Visual_Presentation() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_107_Visual_Presentation in Tabelle tbl_Similarity_Calc"& _ + "ulation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) = value + End Set + End Property + + _ + Public Property Weight_108_Gameplay() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_108_Gameplay in Tabelle tbl_Similarity_Calculation_Con"& _ + "fig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) = value + End Set + End Property + + _ + Public Property Weight_109_Pacing() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_109_Pacing in Tabelle tbl_Similarity_Calculation_Confi"& _ + "g ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) = value + End Set + End Property + + _ + Public Property Weight_110_Narrative_Theme_Topic() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_110_Narrative_Theme_Topic in Tabelle tbl_Similarity_Ca"& _ + "lculation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) = value + End Set + End Property + + _ + Public Property Weight_111_Setting() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_111_Setting in Tabelle tbl_Similarity_Calculation_Conf"& _ + "ig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) = value + End Set + End Property + + _ + Public Property Weight_112_Vehicular_Themes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_112_Vehicular_Themes in Tabelle tbl_Similarity_Calcula"& _ + "tion_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) = value + End Set + End Property + + _ + Public Property Weight_113_Interface_Control() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_113_Interface_Control in Tabelle tbl_Similarity_Calcul"& _ + "ation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) = value + End Set + End Property + + _ + Public Property Weight_114_DLC_Addon() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_114_DLC_Addon in Tabelle tbl_Similarity_Calculation_Co"& _ + "nfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) = value + End Set + End Property + + _ + Public Property Weight_115_Special_Edition() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_115_Special_Edition in Tabelle tbl_Similarity_Calculat"& _ + "ion_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) = value + End Set + End Property + + _ + Public Property Weight_201_MinPlayers() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_201_MinPlayers in Tabelle tbl_Similarity_Calculation_C"& _ + "onfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) = value + End Set + End Property + + _ + Public Property Weight_202_MaxPlayers() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_202_MaxPlayers in Tabelle tbl_Similarity_Calculation_C"& _ + "onfig ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = value + End Set + End Property + + _ + Public Property Weight_203_AgeO() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_203_AgeO in Tabelle tbl_Similarity_Calculation_Config "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = value + End Set + End Property + + _ + Public Property Weight_204_AgeP() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_204_AgeP in Tabelle tbl_Similarity_Calculation_Config "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) = value + End Set + End Property + + _ + Public Property Weight_205_Rating_Descriptors() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_205_Rating_Descriptors in Tabelle tbl_Similarity_Calcu"& _ + "lation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = value + End Set + End Property + + _ + Public Property Weight_206_Other_Attributes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_206_Other_Attributes in Tabelle tbl_Similarity_Calcula"& _ + "tion_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = value + End Set + End Property + + _ + Public Property Weight_207_Multiplayer_Attributes() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_207_Multiplayer_Attributes in Tabelle tbl_Similarity_C"& _ + "alculation_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = value + End Set + End Property + + _ + Public Property Weight_301_Group_Membership() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_301_Group_Membership in Tabelle tbl_Similarity_Calcula"& _ + "tion_Config ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = value + End Set + End Property + + _ + Public Property Weight_401_Staff() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Weight_401_Staff in Tabelle tbl_Similarity_Calculation_Config"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) = value + End Set + End Property + + _ + Public Function Isid_Similarity_Calculation_ConfigNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn) + End Function + + _ + Public Sub Setid_Similarity_Calculation_ConfigNull() + Me(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) + End Function + + _ + Public Sub SetWeight_001_PlatformNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) + End Function + + _ + Public Sub SetWeight_002_MobyRankNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) + End Function + + _ + Public Sub SetWeight_003_MobyScoreNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn) + End Function + + _ + Public Sub SetWeight_004_PublisherNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn) + End Function + + _ + Public Sub SetWeight_005_DeveloperNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_006_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn) + End Function + + _ + Public Sub SetWeight_006_YearNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) + End Function + + _ + Public Sub SetWeight_101_Basic_GenresNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) + End Function + + _ + Public Sub SetWeight_102_PerspectivesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) + End Function + + _ + Public Sub SetWeight_103_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn) + End Function + + _ + Public Sub SetWeight_104_Non_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_105_Educational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_105_Educational_CategoriesColumn) + End Function + + _ + Public Sub SetWeight_105_Educational_CategoriesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_105_Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_106_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn) + End Function + + _ + Public Sub SetWeight_106_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) + End Function + + _ + Public Sub SetWeight_107_Visual_PresentationNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) + End Function + + _ + Public Sub SetWeight_108_GameplayNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_109_PacingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) + End Function + + _ + Public Sub SetWeight_109_PacingNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) + End Function + + _ + Public Sub SetWeight_110_Narrative_Theme_TopicNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_111_SettingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) + End Function + + _ + Public Sub SetWeight_111_SettingNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) + End Function + + _ + Public Sub SetWeight_112_Vehicular_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) + End Function + + _ + Public Sub SetWeight_113_Interface_ControlNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) + End Function + + _ + Public Sub SetWeight_114_DLC_AddonNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) + End Function + + _ + Public Sub SetWeight_115_Special_EditionNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_201_MinPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) + End Function + + _ + Public Sub SetWeight_201_MinPlayersNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_202_MaxPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) + End Function + + _ + Public Sub SetWeight_202_MaxPlayersNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_203_AgeONull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) + End Function + + _ + Public Sub SetWeight_203_AgeONull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_204_AgePNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) + End Function + + _ + Public Sub SetWeight_204_AgePNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_205_Rating_DescriptorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) + End Function + + _ + Public Sub SetWeight_205_Rating_DescriptorsNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_206_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) + End Function + + _ + Public Sub SetWeight_206_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_207_Multiplayer_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) + End Function + + _ + Public Sub SetWeight_207_Multiplayer_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_301_Group_MembershipNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) + End Function + + _ + Public Sub SetWeight_301_Group_MembershipNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWeight_401_StaffNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) + End Function + + _ + Public Sub SetWeight_401_StaffNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + Inherits Global.System.Data.DataRow + + Private tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results = CType(Me.Table,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable) + End Sub + + _ + Public Property id_Similarity_Calculation_Results() As Integer + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Similarity_Calculation_Results in Tabelle src_ucr_Emulatio"& _ + "n_cmb_Similarity_Calculation_Results ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle src_ucr_Emulation_cmb_Similarity_Calculation_"& _ + "Results ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) = value + End Set + End Property + + _ + Public Function Isid_Similarity_Calculation_ResultsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn) + End Function + + _ + Public Sub Setid_Similarity_Calculation_ResultsNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Emu_Games_Have_Want_List_ItemsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Emu_Games_Have_Want_List_Items As tbl_Emu_Games_Have_Want_List_ItemsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emu_Games_Have_Want_List_Items = CType(Me.Table,tbl_Emu_Games_Have_Want_List_ItemsDataTable) + End Sub + + _ + Public Property id_Emu_Games_Have_Want_List_Items() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games_Have_Want_List_Items in Tabelle tbl_Emu_Games_Ha"& _ + "ve_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_Emu_Games_Have_Want_List_Items is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Emu_Games_Have_Want_Lists() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games_Have_Want_Lists in Tabelle tbl_Emu_Games_Have_Wa"& _ + "nt_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Emu_Games_Have_Want_List_Items ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = value + End Set + End Property + + _ + Public Property Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Comments in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = value + End Set + End Property + + _ + Public Property Purchase_Date() As Date + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Purchase_Date in Tabelle tbl_Emu_Games_Have_Want_List_Items i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = value + End Set + End Property + + _ + Public Property Purchase_Price() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Purchase_Price in Tabelle tbl_Emu_Games_Have_Want_List_Items "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = value + End Set + End Property + + _ + Public Property Currency() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Currency in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = value + End Set + End Property + + _ + Public Property Purchase_Location() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Purchase_Location in Tabelle tbl_Emu_Games_Have_Want_List_Ite"& _ + "ms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = value + End Set + End Property + + _ + Public Property Willing_to_Trade() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Willing_to_Trade in Tabelle tbl_Emu_Games_Have_Want_List_Item"& _ + "s ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) = value + End Set + End Property + + _ + Public Property Location() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Location in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = value + End Set + End Property + + _ + Public Property Box_id_Moby_Have_Want_List_Item_Detail_Conditions() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Box_id_Moby_Have_Want_List_Item_Detail_Conditions in Tabelle "& _ + "tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Box_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Box_Comments in Tabelle tbl_Emu_Games_Have_Want_List_Items is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = value + End Set + End Property + + _ + Public Property Media_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Media_id_Moby_Have_Want_List_Item_Detail_Conditions in Tabell"& _ + "e tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Media_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Media_Comments in Tabelle tbl_Emu_Games_Have_Want_List_Items "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = value + End Set + End Property + + _ + Public Property Manual_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Manual_id_Moby_Have_Want_List_Item_Detail_Conditions in Tabel"& _ + "le tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Manual_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Manual_Comments in Tabelle tbl_Emu_Games_Have_Want_List_Items"& _ + " ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = value + End Set + End Property + + _ + Public Property Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions in Tabe"& _ + "lle tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Catalog_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Catalog_Comments in Tabelle tbl_Emu_Games_Have_Want_List_Item"& _ + "s ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = value + End Set + End Property + + _ + Public Property Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions "& _ + "in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Reference_Card_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Reference_Card_Comments in Tabelle tbl_Emu_Games_Have_Want_Li"& _ + "st_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) = value + End Set + End Property + + _ + Public Property Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Additional_Items_id_Moby_Have_Want_List_Item_Detail_Condition"& _ + "s in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = value + End Set + End Property + + _ + Public Property Additional_Items_Comments() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Additional_Items_Comments in Tabelle tbl_Emu_Games_Have_Want_"& _ + "List_Items ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) = value + End Set + End Property + + _ + Public Property tmp_Game() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Game in Tabelle tbl_Emu_Games_Have_Want_List_Items ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) = value + End Set + End Property + + _ + Public Property tmp_Platform() As String + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Platform in Tabelle tbl_Emu_Games_Have_Want_List_Items is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) = value + End Set + End Property + + _ + Public Function Isid_Emu_Games_Have_Want_List_ItemsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn) + End Function + + _ + Public Sub Setid_Emu_Games_Have_Want_List_ItemsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) + End Function + + _ + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Emu_Games_Have_Want_ListsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn) + End Function + + _ + Public Sub Setid_Emu_Games_Have_Want_ListsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) + End Function + + _ + Public Sub SetCommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPurchase_DateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) + End Function + + _ + Public Sub SetPurchase_DateNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPurchase_PriceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) + End Function + + _ + Public Sub SetPurchase_PriceNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCurrencyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) + End Function + + _ + Public Sub SetCurrencyNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPurchase_LocationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) + End Function + + _ + Public Sub SetPurchase_LocationNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWilling_to_TradeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) + End Function + + _ + Public Sub SetWilling_to_TradeNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLocationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) + End Function + + _ + Public Sub SetLocationNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBox_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetBox_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBox_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) + End Function + + _ + Public Sub SetBox_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMedia_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetMedia_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMedia_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) + End Function + + _ + Public Sub SetMedia_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsManual_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetManual_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsManual_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) + End Function + + _ + Public Sub SetManual_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCatalog_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetCatalog_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCatalog_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) + End Function + + _ + Public Sub SetCatalog_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsReference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetReference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsReference_Card_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) + End Function + + _ + Public Sub SetReference_Card_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAdditional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) + End Function + + _ + Public Sub SetAdditional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAdditional_Items_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) + End Function + + _ + Public Sub SetAdditional_Items_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_GameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) + End Function + + _ + Public Sub Settmp_GameNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_PlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) + End Function + + _ + Public Sub Settmp_PlatformNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_Auto_LinkRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Auto_Link As tbl_Moby_Auto_LinkDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Auto_Link = CType(Me.Table,tbl_Moby_Auto_LinkDataTable) + End Sub + + _ + Public Property id() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Auto_Link.idColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.idColumn) = value + End Set + End Property + + _ + Public Property Identifier() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.IdentifierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Identifier in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) = value + End Set + End Property + + _ + Public Property GameName() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.GameNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GameName in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.GameNameColumn) = value + End Set + End Property + + _ + Public Property GameName_Filtered() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GameName_Filtered in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) = value + End Set + End Property + + _ + Public Property Developer() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.DeveloperColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) = value + End Set + End Property + + _ + Public Property Publisher() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.PublisherColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.PublisherColumn) = value + End Set + End Property + + _ + Public Property Match_Accuracy() As Integer + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Accuracy in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) = value + End Set + End Property + + _ + Public Property Match_id_Moby_Releases() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_id_Moby_Releases in Tabelle tbl_Moby_Auto_Link ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property Match_Moby_Games_URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Moby_Games_URLPart in Tabelle tbl_Moby_Auto_Link ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) = value + End Set + End Property + + _ + Public Property Match_Moby_Gamename() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Moby_Gamename in Tabelle tbl_Moby_Auto_Link ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) = value + End Set + End Property + + _ + Public Property Match_Moby_Gamename_Filtered() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Moby_Gamename_Filtered in Tabelle tbl_Moby_Auto_Link is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) = value + End Set + End Property + + _ + Public Property Match_Moby_Year() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Moby_Year in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) = value + End Set + End Property + + _ + Public Property Match_Moby_created() As Date + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Match_Moby_created in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) = value + End Set + End Property + + _ + Public Property Apply() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.ApplyColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Apply in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.ApplyColumn) = value + End Set + End Property + + _ + Public Property deprecated() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Moby_Auto_Link.deprecatedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte deprecated in Tabelle tbl_Moby_Auto_Link ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) = value + End Set + End Property + + _ + Public Function IsIdentifierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) + End Function + + _ + Public Sub SetIdentifierNull() + Me(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameNameColumn) + End Function + + _ + Public Sub SetGameNameNull() + Me(Me.tabletbl_Moby_Auto_Link.GameNameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGameName_FilteredNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) + End Function + + _ + Public Sub SetGameName_FilteredNull() + Me(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) + End Function + + _ + Public Sub SetDeveloperNull() + Me(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.PublisherColumn) + End Function + + _ + Public Sub SetPublisherNull() + Me(Me.tabletbl_Moby_Auto_Link.PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_AccuracyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) + End Function + + _ + Public Sub SetMatch_AccuracyNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_id_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) + End Function + + _ + Public Sub SetMatch_id_Moby_ReleasesNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_Moby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) + End Function + + _ + Public Sub SetMatch_Moby_Games_URLPartNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_Moby_GamenameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) + End Function + + _ + Public Sub SetMatch_Moby_GamenameNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_Moby_Gamename_FilteredNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) + End Function + + _ + Public Sub SetMatch_Moby_Gamename_FilteredNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_Moby_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) + End Function + + _ + Public Sub SetMatch_Moby_YearNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMatch_Moby_createdNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) + End Function + + _ + Public Sub SetMatch_Moby_createdNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsApplyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.ApplyColumn) + End Function + + _ + Public Sub SetApplyNull() + Me(Me.tabletbl_Moby_Auto_Link.ApplyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) + End Function + + _ + Public Sub SetdeprecatedNull() + Me(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_EmulatorsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_EmulatorsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_EmulatorsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_EmulatorsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emulators_Moby_PlatformsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emulators_Moby_PlatformsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emulators_Moby_PlatformsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emulators_Moby_PlatformsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_frm_Emulators_Moby_PlatformsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_frm_Emulators_Moby_PlatformsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_frm_Emulators_Moby_PlatformsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_frm_Emulators_Moby_PlatformsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_PlatformsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_PlatformsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_PlatformsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_PlatformsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_GamesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_GamesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_GamesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_GamesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Technical_SpecsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Technical_SpecsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Technical_SpecsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Technical_SpecsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_ControlSettingsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_ControlSettingsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_ControlSettingsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_ControlSettingsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_FilterSetsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_FilterSetsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_FilterSetsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_FilterSetsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_MoviesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_MoviesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_MoviesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_MoviesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_ExtrasRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_ExtrasRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_ExtrasRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_ExtrasRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_Rating_WeightsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_Rating_WeightsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_Rating_WeightsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_Rating_WeightsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_frm_Emu_Game_Edit_GenresRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_frm_Emu_Game_Edit_GenresRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_frm_Emu_Game_Edit_GenresRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_frm_Emu_Game_Edit_GenresRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_frm_Emu_Game_Edit_AttributesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_frm_Emu_Game_Edit_AttributesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_frm_Emu_Game_Edit_AttributesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_frm_Emu_Game_Edit_AttributesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Tag_ParserRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Tag_ParserRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Tag_ParserRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Tag_ParserRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_GamesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_GamesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_GamesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_GamesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_LanguagesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_LanguagesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_LanguagesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_LanguagesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_RegionsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_RegionsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_RegionsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_RegionsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_Edit_LanguagesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_Edit_LanguagesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_Edit_LanguagesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_Edit_LanguagesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_Edit_RegionsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_Edit_RegionsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_Edit_RegionsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_Edit_RegionsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_Edit_Default_EmulatorRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_Edit_Default_EmulatorRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_Edit_Default_EmulatorRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_Edit_Default_EmulatorRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_HistoryRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_HistoryRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_HistoryRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_HistoryRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_ImageEditorTemplatesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_ImageEditorTemplatesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_ImageEditorTemplatesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_ImageEditorTemplatesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_GameGroupsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_GameGroupsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_GameGroupsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_GameGroupsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_cmb_GroupsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_cmb_GroupsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_cmb_GroupsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_cmb_GroupsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Mame_RomsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Mame_RomsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Mame_RomsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Mame_RomsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class ttb_Tag_Parser_VolumesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Tag_Parser_VolumesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Tag_Parser_VolumesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Tag_Parser_VolumesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emulators_Multivolume_ParametersRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emulators_Multivolume_ParametersRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emulators_Multivolume_ParametersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emulators_Multivolume_ParametersRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_DOSBox_ConfigsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_DOSBox_ConfigsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_DOSBox_ConfigsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_DOSBox_ConfigsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_Platforms_SettingsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_Platforms_SettingsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_Platforms_SettingsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_Platforms_SettingsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_frm_Emulators_DOSBox_PatchesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_frm_Emulators_DOSBox_PatchesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_frm_Emulators_DOSBox_PatchesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_frm_Emulators_DOSBox_PatchesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_frm_Emulators_DOSBox_Patches_CategoriesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_frm_Emulators_DOSBox_Patches_CategoriesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_frm_Emulators_DOSBox_Patches_CategoriesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_frm_Emulators_DOSBox_Patches_CategoriesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_UsersRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_UsersRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_UsersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_UsersRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_Moby_Releases_StaffRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_Moby_Releases_StaffRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_Moby_Releases_StaffRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_Moby_Releases_StaffRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_cmb_StaffRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_cmb_StaffRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_cmb_StaffRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_cmb_StaffRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Similarity_CalculationRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Similarity_CalculationRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Similarity_CalculationRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Similarity_CalculationRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Similarity_Calculation_ConfigRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Similarity_Calculation_ConfigRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Similarity_Calculation_ConfigRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Similarity_Calculation_ConfigRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Emu_Games_Have_Want_List_ItemsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Emu_Games_Have_Want_List_ItemsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Emu_Games_Have_Want_List_ItemsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Emu_Games_Have_Want_List_ItemsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_Auto_LinkRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_Auto_LinkRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_Auto_LinkRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_Auto_LinkRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Metropolis_Launcher/DataSets/DS_ML.vb b/Metropolis_Launcher/DataSets/DS_ML.vb new file mode 100644 index 0000000..66b6747 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_ML.vb @@ -0,0 +1,5473 @@ +Partial Class DS_ML + + Public Enum enm_FilterSetTypes + All = 0 + Emulation = 1 + End Enum + +#Region "Select Statements" + Public Function Select_src_ucr_Emulation_Games_Rating(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Emu_Games As Integer) As Object + Dim sSQL As String = _ + " SELECT" & ControlChars.CrLf & _ + " CAST" & ControlChars.CrLf & _ + " (" & ControlChars.CrLf & _ + " CAST(" & ControlChars.CrLf & _ + " CAST(IFNULL(Rating_Gameplay * RW1.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Graphics * RW2.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Personal * RW5.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Sound * RW3.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Story * RW4.Weight, 0) AS REAL) / 5 AS REAL" & ControlChars.CrLf & _ + " )" & ControlChars.CrLf & _ + " /" & ControlChars.CrLf & _ + " (" & ControlChars.CrLf & _ + " CAST(" & ControlChars.CrLf & _ + " CASE WHEN Rating_Gameplay IS NOT NULL THEN RW1.Weight ELSE 0 END" & ControlChars.CrLf & _ + " + CASE WHEN Rating_Graphics IS NOT NULL THEN RW2.Weight ELSE 0 END" & ControlChars.CrLf & _ + " + CASE WHEN Rating_Personal IS NOT NULL THEN RW5.Weight ELSE 0 END" & ControlChars.CrLf & _ + " + CASE WHEN Rating_Sound IS NOT NULL THEN RW3.Weight ELSE 0 END" & ControlChars.CrLf & _ + " + CASE WHEN Rating_Story IS NOT NULL THEN RW4.Weight ELSE 0 END" & ControlChars.CrLf & _ + " AS REAL)" & ControlChars.CrLf & _ + " )" & ControlChars.CrLf & _ + " * 100" & ControlChars.CrLf & _ + " AS INTEGER" & ControlChars.CrLf & _ + " )" & ControlChars.CrLf & _ + " AS Rating" & ControlChars.CrLf & _ + " FROM tbl_Emu_Games EMUGAME" & ControlChars.CrLf & _ + " LEFT JOIN tbl_Emu_Games_Rating_Weights RW1 ON RW1.id_Emu_Games_Rating_Weights = 1" & ControlChars.CrLf & _ + " LEFT JOIN tbl_Emu_Games_Rating_Weights RW2 ON RW2.id_Emu_Games_Rating_Weights = 2" & ControlChars.CrLf & _ + " LEFT JOIN tbl_Emu_Games_Rating_Weights RW3 ON RW3.id_Emu_Games_Rating_Weights = 3" & ControlChars.CrLf & _ + " LEFT JOIN tbl_Emu_Games_Rating_Weights RW4 ON RW4.id_Emu_Games_Rating_Weights = 4" & ControlChars.CrLf & _ + " LEFT JOIN tbl_Emu_Games_Rating_Weights RW5 ON RW5.id_Emu_Games_Rating_Weights = 5" & ControlChars.CrLf & _ + " WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + Return MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran) + End Function + + Public Shared Function Select_tbl_Tag_Parser(ByRef tran As SQLite.SQLiteTransaction, ByVal Content As String) + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Tag_Parser FROM tbl_Tag_Parser WHERE Content = " & TC.getSQLFormat(Content), tran), 0) + End Function + + Public Shared Function Select_Genres_By_id_Emu_Games(ByVal id_Emu_Games As Integer, ByVal Genre_Type As cls_Globals.enm_Moby_Genres_Categories) As DataTable + Dim sSQL As String = "" + sSQL &= " SELECT G.Name AS Name" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & "))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " ) ORDER BY G.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Genres_By_id_Moby_Releases(ByVal id_Moby_Releases As Integer, ByVal Genre_Type As cls_Globals.enm_Moby_Genres_Categories) As DataTable + Dim sSQL As String = "" + sSQL &= " SELECT DISTINCT" & ControlChars.CrLf + sSQL &= " MGEN.Name AS Name" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Games_Genres MGG" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Games MG ON MGG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases MR ON MG.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Genres MGEN ON MGG.id_Moby_Genres = MGEN.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE MGEN.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= " AND MR.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & ControlChars.CrLf + sSQL &= " ORDER BY MGEN.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Genres_AB_By_id_Emu_Games(ByVal id_Emu_Games_A As Integer, ByVal id_Emu_Games_B As Integer, ByVal Genre_Type As cls_Globals.enm_Moby_Genres_Categories) As DataTable + Dim sSQL As String = "" + sSQL &= " SELECT G.Name AS Name" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "AND G.id_Moby_Genres IN" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= " SELECT temp_GenresC.id_Moby_Genres FROM" & ControlChars.CrLf + sSQL &= " ( SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = (SELECT id_Moby_Games FROM tbl_Moby_Games WHERE URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & "))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMGC" & ControlChars.CrLf + sSQL &= " WHERE EGMGC.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ControlChars.CrLf + sSQL &= " ) AS temp_GenresC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_GenresC.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= " AND GC.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + sSQL &= " ORDER BY G.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Genres_AB_By_id_Moby_Releases(ByVal id_Emu_Games_A As Integer, ByVal id_Moby_Releases_B As Integer, ByVal Genre_Type As cls_Globals.enm_Moby_Genres_Categories) As DataTable + Dim sSQL As String = "" + sSQL &= " SELECT G.Name AS Name" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "AND G.id_Moby_Genres IN" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= " SELECT temp_GenresC.id_Moby_Genres FROM" & ControlChars.CrLf + sSQL &= " ( SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = (SELECT id_Moby_Games FROM tbl_Moby_Releases WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_B) & ")" & ControlChars.CrLf + sSQL &= " ) AS temp_GenresC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_GenresC.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(Genre_Type) + + sSQL &= ")" & ControlChars.CrLf + sSQL &= " ORDER BY G.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Enum enm_Attributes_Types + Rating_Descriptors = 0 + Other_Attributes = 1 + Multiplayer_Attributes = 2 + End Enum + + Public Shared Function Select_Attributes_By_id_Emu_Games(ByVal id_Emu_Games As Integer, ByVal Attributes_Type As enm_Attributes_Types) As DataTable + Dim sSQL As String = "" + sSQL &= " SELECT A.Name AS Name FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ")))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY A.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Attributes_By_id_Moby_Releases(ByVal id_Moby_Releases As Integer, ByVal Attributes_Type As enm_Attributes_Types) As DataTable + Dim sSQL As String = "" + + sSQL &= " SELECT A.Name AS Name FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " ORDER BY A.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Attributes_AB_By_id_Emu_Games(ByVal id_Emu_Games_A As Integer, ByVal id_Emu_Games_B As Integer, ByVal Attributes_Type As enm_Attributes_Types) As DataTable + Dim sSQL As String = "" + + sSQL &= " SELECT A.Name AS Name FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ")))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT A.id_Moby_Attributes FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ")))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_B) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY A.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + Public Shared Function Select_Attributes_AB_By_Moby_Releases(ByVal id_Emu_Games_A As Integer, ByVal id_Moby_Releases_B As Integer, ByVal Attributes_Type As enm_Attributes_Types) As DataTable + Dim sSQL As String = "" + + sSQL &= " SELECT A.Name AS Name FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ")))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT A.id_Moby_Attributes FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_B) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + + Select Case Attributes_Type + Case enm_Attributes_Types.Rating_Descriptors + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + Case enm_Attributes_Types.Other_Attributes + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + Case enm_Attributes_Types.Multiplayer_Attributes + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + End Select + + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY A.Name" & ControlChars.CrLf + + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End Function + + ''' + ''' + ''' + ''' + ''' + ''' Use only if you want to impersonate a restricted! user + ''' + Public Shared Function Select_id_Moby_Platforms_Caches(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Platforms As Int64, Optional ByVal id_Users As Int64 = 0) As Int64 + If id_Users = 0 AndAlso cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 AndAlso cls_Globals.Restricted Then + id_Users = cls_Globals.id_Users + End If + + Dim sSQL As String = "" + sSQL &= "SELECT id_Moby_Platforms_Caches FROM tbl_Moby_Platforms_Caches WHERE id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & " AND id_Users " & IIf(id_Users > 0, " = " & TC.getSQLFormat(id_Users), " IS NULL") + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0L) + End Function +#End Region + +#Region "Fill Statements" + Public Sub Fill_src_frm_Emulators(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_EmulatorsDataTable) + dt.Clear() + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emulators, Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core FROM tbl_Emulators ORDER BY Displayname", dt, tran) + End Sub + + Public Sub Fill_src_frm_Emulators_Moby_Platforms(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As src_frm_Emulators_Moby_PlatformsDataTable, ByVal id_Emulators As Integer) + dt.Clear() + Dim sSQL As String = _ + " SELECT" & _ + " PLTFM.id_Moby_Platforms" & _ + " , PLTFM.Display_Name" & _ + " , CASE WHEN EMUPLTFM.id_Moby_Platforms IS NOT NULL THEN 1 ELSE 0 END AS Supported" & _ + " , IFNULL(EMUPLTFM.DefaultEmulator, 0) AS DefaultEmulator" & _ + " FROM moby.tbl_Moby_Platforms PLTFM" & _ + " LEFT JOIN main.tbl_Emulators_Moby_Platforms EMUPLTFM ON PLTFM.id_Moby_Platforms = EMUPLTFM.id_Moby_Platforms AND EMUPLTFM.id_Emulators = " & TC.getSQLFormat(id_Emulators) & _ + " LEFT JOIN main.tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms " & _ + " WHERE PLTFM.Visible = 1" & _ + " AND PLTFM.GenericEmulated = 1" & _ + " AND PLTFM.id_Moby_Platforms_Owner IS NULL" & _ + " AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1)" & _ + " ORDER BY Display_Name" + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Sub Fill_src_frm_Emulators_Multivolume_Parameters(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emulators_Multivolume_ParametersDataTable, ByVal id_Emulators As Integer) + dt.Clear() + Dim sSQL As String = _ + " SELECT" & _ + " id_Emulators_Multivolume_Parameters" & _ + " , id_Emulators" & _ + " , Volume_Number" & _ + " , Parameter" & _ + " FROM tbl_Emulators_Multivolume_Parameters" & _ + " WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators) & _ + " ORDER BY Volume_Number" + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Ensure_Moby_Platform_Caches(ByRef tran As SQLite.SQLiteTransaction) + Dim id_Users As Int64 = 0 + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 AndAlso cls_Globals.Restricted Then + id_Users = cls_Globals.id_Users + End If + + Dim sSQL As String = "" + sSQL &= "SELECT PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Platforms PLTFM" & ControlChars.CrLf + sSQL &= " WHERE PLTFM.id_Moby_Platforms NOT IN (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Platforms FROM tbl_Moby_Platforms_Caches WHERE id_Users " & IIf(id_Users > 0, " = " & TC.getSQLFormat(id_Users), " IS NULL") + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND (" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms IN (-1, -2)" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " PLTFM.Visible = 1" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms_Owner IS NULL" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + + Dim dt_Platforms As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, Nothing, tran) + + For Each row As DataRow In dt_Platforms.Rows + Update_Platform_NumGames_Cache(tran, row("id_Moby_Platforms")) + Next + End Sub + + Public Sub Fill_src_ucr_Emulators_Platforms(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As src_ucr_Emulation_PlatformsDataTable) + Dim id_Users As Int64 = 0 + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 AndAlso cls_Globals.Restricted Then + id_Users = cls_Globals.id_Users + End If + + dt.Clear() + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , PLTFM.Display_Name || ' (' || IFNULL(MPC.NumGames, 0) || ')' AS Name" & ControlChars.CrLf + sSQL &= " , CASE WHEN PLTFM.id_Moby_Platforms = -1 THEN 0 ELSE 1 END AS Sort" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Platforms PLTFM" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Platforms_Caches MPC ON MPC.id_Moby_Platforms = PLTFM.id_Moby_Platforms AND MPC.id_Users " & IIf(id_Users > 0, " = " & TC.getSQLFormat(id_Users), " IS NULL") & ControlChars.CrLf + sSQL &= " WHERE (" + sSQL &= " PLTFM.id_Moby_Platforms IN (-1, -2)" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " PLTFM.Visible = 1" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms_Owner Is NULL" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " PLTFMS.Visible Is NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " PLTFMS.Visible = 1" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + If id_Users > 0 Then + sSQL &= " AND IFNULL(MPC.NumGames, 0) > 0" + End If + sSQL &= " ORDER BY Sort, Name" + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_Games(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As src_ucr_Emulation_GamesDataTable, Optional ByVal id_Moby_Platforms As Object = Nothing, Optional ByVal SearchText As Object = Nothing, Optional ByVal id_FilterSets As Object = Nothing, Optional ByVal id_Emu_Games As Object = Nothing, Optional ByVal ShowHidden As Boolean = True, Optional ByVal id_Moby_Game_Groups As Object = CLng(0), Optional ByVal ShowVolumes As Boolean = False, Optional ByVal id_Moby_Staff As Object = CLng(0), Optional ByVal id_Similarity_Calculation_Results As Object = CLng(0)) + If dt Is Nothing Then dt = New src_ucr_Emulation_GamesDataTable + + dt.Clear() + + If id_Emu_Games Is Nothing AndAlso TC.NZ(id_Similarity_Calculation_Results, 0) <> 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM ttb_Emu_Games_Similarity_Calculation; INSERT INTO ttb_Emu_Games_Similarity_Calculation (id_Emu_Games, Similarity, [001_Platform], [002_MobyRank], [003_MobyScore], [004_Publisher], [005_Developer], [006_Year], [101_Basic_Genres], [102_Perspectives], [103_Sports_Themes], [105_Educational_Categories], [106_Other_Attributes], [107_Visual_Presentation], [108_Gameplay], [109_Pacing], [110_Narrative_Theme_Topic], [111_Setting], [112_Vehicular_Themes], [113_Interface_Control], [114_DLC_Addon], [115_Special_Edition], [201_MinPlayers], [202_MaxPlayers], [203_AgeO], [204_AgeP], [205_Rating_Descriptors], [206_Other_Attributes], [207_Multiplayer_Attributes], [301_Group_Membership], [401_Staff]) SELECT id_Emu_Games, Similarity, [001_Platform], [002_MobyRank], [003_MobyScore], [004_Publisher], [005_Developer], [006_Year], [101_Basic_Genres], [102_Perspectives], [103_Sports_Themes], [105_Educational_Categories], [106_Other_Attributes], [107_Visual_Presentation], [108_Gameplay], [109_Pacing], [110_Narrative_Theme_Topic], [111_Setting], [112_Vehicular_Themes], [113_Interface_Control], [114_DLC_Addon], [115_Special_Edition], [201_MinPlayers], [202_MaxPlayers], [203_AgeO], [204_AgeP], [205_Rating_Descriptors], [206_Other_Attributes], [207_Multiplayer_Attributes], [301_Group_Membership], [401_Staff] FROM tbl_Similarity_Calculation_Results_Entries WHERE id_Emu_Games Is Not NULL And id_Similarity_Calculation_Results = " & TC.getSQLFormat(id_Similarity_Calculation_Results), tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM ttb_Moby_Releases_Similarity_Calculation; INSERT INTO ttb_Moby_Releases_Similarity_Calculation (id_Moby_Releases, Similarity, [001_Platform], [002_MobyRank], [003_MobyScore], [004_Publisher], [005_Developer], [006_Year], [101_Basic_Genres], [102_Perspectives], [103_Sports_Themes], [105_Educational_Categories], [106_Other_Attributes], [107_Visual_Presentation], [108_Gameplay], [109_Pacing], [110_Narrative_Theme_Topic], [111_Setting], [112_Vehicular_Themes], [113_Interface_Control], [114_DLC_Addon], [115_Special_Edition], [201_MinPlayers], [202_MaxPlayers], [203_AgeO], [204_AgeP], [205_Rating_Descriptors], [206_Other_Attributes], [207_Multiplayer_Attributes], [301_Group_Membership], [401_Staff]) SELECT id_Moby_Releases, Similarity, [001_Platform], [002_MobyRank], [003_MobyScore], [004_Publisher], [005_Developer], [006_Year], [101_Basic_Genres], [102_Perspectives], [103_Sports_Themes], [105_Educational_Categories], [106_Other_Attributes], [107_Visual_Presentation], [108_Gameplay], [109_Pacing], [110_Narrative_Theme_Topic], [111_Setting], [112_Vehicular_Themes], [113_Interface_Control], [114_DLC_Addon], [115_Special_Edition], [201_MinPlayers], [202_MaxPlayers], [203_AgeO], [204_AgeP], [205_Rating_Descriptors], [206_Other_Attributes], [207_Multiplayer_Attributes], [301_Group_Membership], [401_Staff] FROM tbl_Similarity_Calculation_Results_Entries WHERE id_Emu_Games Is NULL And id_Similarity_Calculation_Results = " & TC.getSQLFormat(id_Similarity_Calculation_Results), tran) + End If + + Dim sSQL As String = "" + + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " EMUGAME.id_Emu_Games" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_Emu_Games_Owner" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_DOSBox_Configs_Template" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_DOSBox_Configs" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_Rombase_DOSBox_Filetypes" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_Rombase_DOSBox_Exe_Types" & ControlChars.CrLf + sSQL &= " , EMUGAME.DOSBox_Mount_Destination" & ControlChars.CrLf + 'sSQL &= " , REPLACE(" & ControlChars.CrLf + sSQL &= " , CASE WHEN EMUGAME.Name Is NULL" & ControlChars.CrLf + sSQL &= " THEN CASE WHEN GAME.Name Is NULL " & ControlChars.CrLf + sSQL &= " THEN IFNULL(EMUGAME.InnerFile, EMUGAME.File)" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EMUGAME.Name_Prefix || ' ', IFNULL(GAME.Name_Prefix || ' ', '')) || IFNULL(GAME.Name, '') || IFNULL(' (' || EMUGAME.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EMUGAME.Name_Prefix || ' ', '') || IFNULL(EMUGAME.Name, '') || IFNULL(' (' || EMUGAME.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + ' sSQL &= " , ':', '>')" & ControlChars.CrLf + sSQL &= " AS Game" & ControlChars.CrLf + sSQL &= " , EMUGAME.Folder" & ControlChars.CrLf + sSQL &= " , EMUGAME.File" & ControlChars.CrLf + sSQL &= " , EMUGAME.InnerFile" & ControlChars.CrLf + sSQL &= " , EMUGAME.J2KPreset" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , EMUGAME.Cache_Regions AS Regions" & ControlChars.CrLf + sSQL &= " , EMUGAME.Cache_Languages AS Languages" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , REL.MobyRank AS Rank" & ControlChars.CrLf + sSQL &= " , REL.MobyScore AS Score" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Year, REL.Year) AS Year" & ControlChars.CrLf + + If cls_Globals.Admin Then + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Num_Played ELSE USREG.Num_Played END, 0) AS Num_Played" & ControlChars.CrLf + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Num_Runtime ELSE USREG.Num_Runtime END, 0) AS Num_Runtime" & ControlChars.CrLf + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Favourite ELSE USREG.Favourite END, 0) AS Favourite" & ControlChars.CrLf + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Want ELSE USREG.Want END, 0) AS Want" & ControlChars.CrLf + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Have ELSE USREG.Have END, 0) AS Have" & ControlChars.CrLf + sSQL &= " , IFNULL(CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Trade ELSE USREG.Trade END, 0) AS Trade" & ControlChars.CrLf + sSQL &= " , CASE WHEN USREG.id_Users_Emu_Games IS NULL THEN EMUGAME.Last_Played ELSE USREG.Last_Played END AS Last_Played" & ControlChars.CrLf + Else + sSQL &= " , IFNULL(USREG.Num_Played, 0) AS Num_Played" & ControlChars.CrLf + sSQL &= " , IFNULL(USREG.Num_Runtime, 0) AS Num_Runtime" & ControlChars.CrLf + sSQL &= " , IFNULL(USREG.Favourite, 0) AS Favourite" & ControlChars.CrLf + sSQL &= " , IFNULL(USREG.Want, 0) AS Want" & ControlChars.CrLf + sSQL &= " , IFNULL(USREG.Have, 0) AS Have" & ControlChars.CrLf + sSQL &= " , IFNULL(USREG.Trade, 0) AS Trade" & ControlChars.CrLf + sSQL &= " , USREG.Last_Played AS Last_Played" & ControlChars.CrLf + End If + + sSQL &= " , IFNULL(EMUGAME.Rating_Gameplay, 0) AS Rating_Gameplay" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Rating_Graphics, 0) AS Rating_Graphics" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Rating_Personal, 0) AS Rating_Personal" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Rating_Sound, 0) AS Rating_Sound" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Rating_Story, 0) AS Rating_Story" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , PF.Name AS Platform" & ControlChars.CrLf + sSQL &= " , PF.ShortName AS Platform_Short" & ControlChars.CrLf + sSQL &= " , GAME.Name AS Game_NoPrefix" & ControlChars.CrLf + sSQL &= " , EMUGAME.created" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " -- Optional Main Table" & ControlChars.CrLf + sSQL &= " , Cache_Age_Pessimistic AS Age_Pessimistic" & ControlChars.CrLf + sSQL &= " , Cache_Age_Optimistic AS Age_Optimistic" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Publisher, C1.Name) AS Publisher" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Developer, C2.Name) AS Developer" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " -- Details" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Description, GAME.Description) AS Description" & ControlChars.CrLf + sSQL &= " , EMUGAME.SpecialInfo" & ControlChars.CrLf + sSQL &= " , REL.Technical_Notes" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_Alternate_Titles AS Alternate_Titles" & ControlChars.CrLf + sSQL &= " , Cache_Basic_Genres AS Basic_Genres" & ControlChars.CrLf + sSQL &= " , Cache_Perspectives AS Perspectives" & ControlChars.CrLf + sSQL &= " , Cache_Sports_Themes AS Sports_Themes" & ControlChars.CrLf + sSQL &= " , Cache_Educational_Categories AS Educational_Categories" & ControlChars.CrLf + sSQL &= " , Cache_Other_Attributes AS Other_Attributes" & ControlChars.CrLf + sSQL &= " , Cache_Visual_Presentation AS Visual_Presentation" & ControlChars.CrLf + sSQL &= " , Cache_Pacing AS Pacing" & ControlChars.CrLf + sSQL &= " , Cache_Gameplay AS Gameplay" & ControlChars.CrLf + sSQL &= " , Cache_Interface_Control AS Interface_Control" & ControlChars.CrLf + sSQL &= " , Cache_Vehicular_Themes AS Vehicular_Themes" & ControlChars.CrLf + sSQL &= " , Cache_Setting AS Setting" & ControlChars.CrLf + sSQL &= " , Cache_Narrative_Theme_Topic AS Narrative_Theme_Topic" & ControlChars.CrLf + sSQL &= " , Cache_DLC_Addon AS DLC_Addon" & ControlChars.CrLf + sSQL &= " , Cache_Special_Edition AS Special_Edition" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , REL.URL AS Moby_URL" & ControlChars.CrLf + sSQL &= " , PF.URLPart AS Moby_Platforms_URLPart" & ControlChars.CrLf + sSQL &= " , EMUGAME.Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , IFNULL(GAME.Platform_Exclusive, 0) AS Platform_Exclusive" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_MinPlayers AS MinPlayers" & ControlChars.CrLf + sSQL &= " , Cache_MaxPlayers AS MaxPlayers" & ControlChars.CrLf + sSQL &= " , IFNULL(PF.MultiVolume, 0) AS MultiVolume" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " -- Attributes" & ControlChars.CrLf + sSQL &= " , EMUGAME.Version" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Alt, 0) AS Alt" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Trainer, 0) AS Trainer" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Translation, 0) AS Translation" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Hack, 0) AS Hack" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Bios, 0) AS Bios" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Prototype, 0) AS Prototype" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Alpha, 0) AS Alpha" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Beta, 0) AS Beta" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Sample, 0) AS Sample" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Kiosk, 0) AS Kiosk" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Unlicensed, 0) AS Unlicensed" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Fixed, 0) AS Fixed" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Pirated, 0) AS Pirated" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Good, 0) AS Good" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Bad, 0) AS Bad" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.Overdump, 0) AS Overdump" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.PublicDomain, 0) AS PublicDomain" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " -- Derived Attributes FROM Moby/Emu_Games_Attributes" & ControlChars.CrLf + sSQL &= " , Cache_MP_GameModes AS MP_GameModes" & ControlChars.CrLf + sSQL &= " , Cache_MP_Options AS MP_Options" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " -- ids" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , GAME.id_Moby_Games" & ControlChars.CrLf + sSQL &= " , EMUGAME.id_Rombase" & ControlChars.CrLf + sSQL &= " , EMUGAME.Volume_Number" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST(" & ControlChars.CrLf + sSQL &= " CAST(IFNULL(Rating_Gameplay * RW1.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Graphics * RW2.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Personal * RW5.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Sound * RW3.Weight, 0) AS REAL) / 5 + CAST(IFNULL(Rating_Story * RW4.Weight, 0) AS REAL) / 5 AS REAL" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST(" & ControlChars.CrLf + sSQL &= " CASE WHEN Rating_Gameplay IS NOT NULL THEN RW1.Weight ELSE 0 END" & ControlChars.CrLf + sSQL &= " + CASE WHEN Rating_Graphics IS NOT NULL THEN RW2.Weight ELSE 0 END" & ControlChars.CrLf + sSQL &= " + CASE WHEN Rating_Personal IS NOT NULL THEN RW5.Weight ELSE 0 END" & ControlChars.CrLf + sSQL &= " + CASE WHEN Rating_Sound IS NOT NULL THEN RW3.Weight ELSE 0 END" & ControlChars.CrLf + sSQL &= " + CASE WHEN Rating_Story IS NOT NULL THEN RW4.Weight ELSE 0 END" & ControlChars.CrLf + sSQL &= " AS REAL)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS Rating" & ControlChars.CrLf + sSQL &= " , REL.id_Moby_Releases" + + If id_Similarity_Calculation_Results <> 0 Then + sSQL &= " -- Similarity Calculation" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.Similarity ELSE EGS.Similarity END AS Similarity" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[001_Platform] ELSE EGS.[001_Platform] END AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[002_MobyRank] ELSE EGS.[002_MobyRank] END AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[003_MobyScore] ELSE EGS.[003_MobyScore] END AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[004_Publisher] ELSE EGS.[004_Publisher] END AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[005_Developer] ELSE EGS.[005_Developer] END AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[006_Year] ELSE EGS.[006_Year] END AS [006_Year]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[101_Basic_Genres] ELSE EGS.[101_Basic_Genres] END AS [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[102_Perspectives] ELSE EGS.[102_Perspectives] END AS [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[103_Sports_Themes] ELSE EGS.[103_Sports_Themes] END AS [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[105_Educational_Categories] ELSE EGS.[105_Educational_Categories] END AS [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[106_Other_Attributes] ELSE EGS.[106_Other_Attributes] END AS [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[107_Visual_Presentation] ELSE EGS.[107_Visual_Presentation] END AS [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[108_Gameplay] ELSE EGS.[108_Gameplay] END AS [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[109_Pacing] ELSE EGS.[109_Pacing] END AS [109_Pacing]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[110_Narrative_Theme_Topic] ELSE EGS.[110_Narrative_Theme_Topic] END AS [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[111_Setting] ELSE EGS.[111_Setting] END AS [111_Setting]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[112_Vehicular_Themes] ELSE EGS.[112_Vehicular_Themes] END AS [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[113_Interface_Control] ELSE EGS.[113_Interface_Control] END AS [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[114_DLC_Addon] ELSE EGS.[114_DLC_Addon] END AS [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[115_Special_Edition] ELSE EGS.[115_Special_Edition] END AS [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[201_MinPlayers] ELSE EGS.[201_MinPlayers] END AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[202_MaxPlayers] ELSE EGS.[202_MaxPlayers] END AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[203_AgeO] ELSE EGS.[203_AgeO] END AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[204_AgeP] ELSE EGS.[204_AgeP] END AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[205_Rating_Descriptors] ELSE EGS.[205_Rating_Descriptors] END AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[206_Other_Attributes] ELSE EGS.[206_Other_Attributes] END AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[207_Multiplayer_Attributes] ELSE EGS.[207_Multiplayer_Attributes] END AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[301_Group_Membership] ELSE EGS.[301_Group_Membership] END AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , CASE WHEN EGS.id_Emu_Games IS NULL THEN MRS.[401_Staff] ELSE EGS.[401_Staff] END AS [401_Staff]" & ControlChars.CrLf + End If + + sSQL &= " FROM tbl_Emu_Games EMUGAME" & ControlChars.CrLf + sSQL &= " " & IIf(cls_Globals.Restricted AndAlso Not ShowVolumes, "INNER", "LEFT") & " JOIN tbl_Users_Emu_Games USREG ON id_Users = " & cls_Globals.id_Users & " AND EMUGAME.id_Emu_Games = USREG.id_Emu_Games" + sSQL &= " LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Platforms PF ON EMUGAME.id_Moby_Platforms = PF.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Platforms_Settings PFS ON EMUGAME.id_Moby_Platforms = PFS.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C1 ON REL.Publisher_id_Moby_Companies = C1.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C2 ON REL.Developer_id_Moby_Companies = C2.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games_Rating_Weights RW1 ON RW1.id_Emu_Games_Rating_Weights = 1" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games_Rating_Weights RW2 ON RW2.id_Emu_Games_Rating_Weights = 2" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games_Rating_Weights RW3 ON RW3.id_Emu_Games_Rating_Weights = 3" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games_Rating_Weights RW4 ON RW4.id_Emu_Games_Rating_Weights = 4" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games_Rating_Weights RW5 ON RW5.id_Emu_Games_Rating_Weights = 5" & ControlChars.CrLf + If id_Similarity_Calculation_Results <> 0 Then + sSQL &= " LEFT JOIN ttb_Emu_Games_Similarity_Calculation EGS ON EMUGAME.id_Emu_Games = EGS.id_Emu_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN ttb_Moby_Releases_Similarity_Calculation MRS ON REL.id_Moby_Releases = MRS.id_Moby_Releases" & ControlChars.CrLf + End If + + If id_Similarity_Calculation_Results <> 0 Then + 'sSQL &= " LEFT JOIN tbl_Similarity_Calculation_Results SCR ON SCR.id_Similarity_Calculation_Results = " & TC.getSQLFormat(id_Similarity_Calculation_Results) & ControlChars.CrLf + 'sSQL &= " LEFT JOIN tbl_Similarity_Calculation_Results_Entries SCRE ON SCRE.id_Similarity_Calculation_Results = SCR.id_Similarity_Calculation_Results AND (SCRE.id_Emu_Games = EMUGAME.id_Emu_Games OR (SCRE.id_Emu_Games IS NULL AND SCRE.id_Moby_Releases = REL.id_Moby_Releases))" & ControlChars.CrLf + + 'sSQL &= " LEFT JOIN tbl_Similarity_Calculation_Results_Entries SCRE ON SCRE.id_Similarity_Calculation_Results = " & TC.getSQLFormat(id_Similarity_Calculation_Results) & " AND SCRE.id_Emu_Games = EMUGAME.id_Emu_Games" & ControlChars.CrLf + End If + + sSQL &= " WHERE " & IIf(ShowHidden, " 1=1", " (EMUGAME.Hidden IS NULL OR EMUGAME.Hidden = 0)") + + sSQL &= " AND (PFS.Visible IS NULL OR PFS.Visible = 1)" + + If Not ShowVolumes AndAlso id_Emu_Games Is Nothing Then + sSQL &= " AND EMUGAME.id_Emu_Games_Owner IS NULL" & ControlChars.CrLf + End If + + If TC.NZ(id_Emu_Games, 0) <> 0 Then + If ShowVolumes Then + sSQL &= " AND (EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR EMUGAME.id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")" & ControlChars.CrLf + Else + sSQL &= " AND EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + End If + + Else + sSQL &= " AND EMUGAME.id_Emu_Games > 0" 'Prevent Emu_Mapping entries from showing up + End If + + If TC.NZ(id_Moby_Platforms, 0) > 0 OrElse TC.NZ(id_Moby_Platforms, 0) = cls_Globals.enm_Moby_Platforms.mame Then + sSQL &= " AND EMUGAME.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + End If + + If TC.NZ(SearchText, "").Length > 0 Then + SearchText = TC.getSQLParameter("%" & SearchText & "%") + + sSQL &= " AND" & ControlChars.CrLf & + "( " & ControlChars.CrLf & + " EMUGAME.Name LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.File LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.InnerFile LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.Description LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.Note LIKE " & SearchText & ControlChars.CrLf & + " OR GAME.Name LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.Name LIKE " & SearchText & ControlChars.CrLf & + " OR GAME.Description LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.Description LIKE " & SearchText & ControlChars.CrLf & + " OR EMUGAME.SpecialInfo LIKE " & SearchText & ControlChars.CrLf & + " OR Alternate_Titles LIKE " & SearchText & ControlChars.CrLf & + ") " & ControlChars.CrLf + End If + + If TC.NZ(id_Moby_Game_Groups, 0) > 0 Then + sSQL &= " AND GAME.id_Moby_Games IN (" + sSQL &= " SELECT SQGroup_MR.id_Moby_Games" + sSQL &= " FROM moby.tbl_Moby_Game_Groups_Moby_Releases SQGroup_MGGMR" + sSQL &= " INNER JOIN moby.tbl_Moby_Releases SQGroup_MR ON SQGroup_MGGMR.id_Moby_Releases = SQGroup_MR.id_Moby_Releases" + sSQL &= " WHERE SQGroup_MGGMR.id_Moby_Game_Groups = " & TC.getSQLFormat(id_Moby_Game_Groups) + sSQL &= " )" + End If + + If TC.NZ(id_Moby_Staff, 0) > 0 Then + sSQL &= " AND GAME.id_Moby_Games IN (" + sSQL &= " SELECT SQStaff_MR.id_Moby_Games" + sSQL &= " FROM moby.tbl_Moby_Releases_Staff SQStaff_MRS" + sSQL &= " INNER JOIN moby.tbl_Moby_Releases SQStaff_MR ON SQStaff_MRS.id_Moby_Releases = SQStaff_MR.id_Moby_Releases" + sSQL &= " WHERE SQStaff_MRS.id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) + sSQL &= " )" + End If + + If TC.NZ(id_FilterSets, 0) > 0 Then + sSQL &= " AND 1 = 1" + End If + + If ShowVolumes Then + sSQL &= " ORDER BY Volume_Number" + End If + + 'sSQL &= " ORDER BY GAME.Name" + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Sub Fill_tbl_FilterSets(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_FilterSetsDataTable, Optional ByVal FilterSetType As enm_FilterSetTypes = enm_FilterSetTypes.All) + dt.Clear() + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_FilterSets, Type, Name, ApplyGridFilter, GridFilter, 1 AS Sort FROM tbl_FilterSets WHERE 1=1 " & IIf(FilterSetType = 0, "", " AND Type = " & TC.getSQLFormat(FilterSetType)) & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL") & " UNION SELECT 0 AS id_FilterSets, 0 AS Type, 'None' AS Name, 0 AS ApplyGridFilter, NULL AS GridFilter, 0 AS Sort ORDER BY Sort, Name", dt, tran) + End Sub + + Public Sub Fill_tbl_Emu_Extras(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emu_ExtrasDataTable, Optional ByVal bShowAny As Boolean = False) + dt.Clear() + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, IIf(bShowAny, "SELECT 0 AS id_Emu_Extras, 'any' as Name, 0 AS Sort, 'Search for any missing extra' AS Description, 0 AS Hide UNION ", "") & "SELECT id_Emu_Extras, Name, Sort, Description, Hide FROM tbl_Emu_Extras", dt, tran) + End Sub + + Public Sub Fill_tbl_Emu_Games_Rating_Weights(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emu_Games_Rating_WeightsDataTable) + dt.Clear() + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emu_Games_Rating_Weights, Rating_Category, Weight FROM tbl_Emu_Games_Rating_Weights", dt, tran) + End Sub + + Public Sub Fill_src_frm_Emu_Game_Edit_Genres(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As src_frm_Emu_Game_Edit_GenresDataTable, ByVal id_Emu_Games As Integer, ByVal id_Rombase As Integer, ByVal MultiEdit As Boolean) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " MG.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " , MG.id_Moby_Genres_Categories" & ControlChars.CrLf + sSQL &= " , MG.Name" & ControlChars.CrLf + sSQL &= " , MG.URLPart" & ControlChars.CrLf + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Moby_Genres EGMG WHERE EGMG.Used = 1 AND EGMG.id_Moby_Genres = MG.id_Moby_Genres AND EGMG.id_Emu_Games = EMUGAME.id_Emu_Games) THEN 1" & ControlChars.CrLf + sSQL &= " WHEN NOT EXISTS(SELECT 1 FROM tbl_Emu_Games_Moby_Genres EGMG WHERE EGMG.Used = 0 AND EGMG.id_Moby_Genres = MG.id_Moby_Genres AND EGMG.id_Emu_Games = EMUGAME.id_Emu_Games) AND EXISTS(SELECT 1 FROM moby.tbl_Moby_Games_Genres MGG WHERE MGG.id_Moby_Genres = MG.id_Moby_Genres AND MGG.id_Moby_Games = GAME.id_Moby_Games) THEN 1" & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " WHEN EXISTS(SELECT 1 FROM tbl_Rombase_Moby_Genres RBMG WHERE RBMG.Used = 1 AND RBMG.id_Moby_Genres = MG.id_Moby_Genres AND RBMG.id_Rombase = RB.id_Rombase) THEN 1", "") & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " WHEN NOT EXISTS(SELECT 1 FROM tbl_Rombase_Moby_Genres RBMG WHERE RBMG.Used = 0 AND RBMG.id_Moby_Genres = MG.id_Moby_Genres AND RBMG.id_Rombase = RB.id_Rombase) AND EXISTS(SELECT 1 FROM moby.tbl_Moby_Games_Genres MGG WHERE MGG.id_Moby_Genres = MG.id_Moby_Genres AND MGG.id_Moby_Games = GAME.id_Moby_Games) THEN 1", "") & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " ELSE NULL" & ControlChars.CrLf, " ELSE 0" & ControlChars.CrLf) + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS Used" & ControlChars.CrLf + sSQL &= " , EMUGAME.Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Genres MG" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games EMUGAME ON EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN rombase.tbl_Rombase RB ON RB.id_Rombase = " & TC.getSQLFormat(id_Rombase) & ControlChars.CrLf + sSQL &= " ORDER BY MG.Name" + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Sub Fill_src_frm_Emu_Game_Edit_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As src_frm_Emu_Game_Edit_AttributesDataTable, ByVal id_Emu_Games As Integer, ByVal id_Rombase As Integer, ByVal MultiEdit As Boolean) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " , CASE WHEN ATTC.RatingSystem = 1 OR ATTC.RatingDescriptor = 1 THEN 'Rating Systems'" & ControlChars.CrLf + sSQL &= " WHEN ATTC.Name = 'Multiplayer Game Modes' OR ATTC.Name = 'Multiplayer Options' OR ATTC.Name = 'Number of Players Supported' THEN 'Multiplayer Attributes'" & ControlChars.CrLf + sSQL &= " ELSE 'Tech Info'" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS CategoryGroup" & ControlChars.CrLf + sSQL &= " , ATTC.Name As Category" & ControlChars.CrLf + sSQL &= " , ATT.Name AS Attribute" & ControlChars.CrLf + sSQL &= " , ATT.Description" & ControlChars.CrLf + sSQL &= " , ATT.Rating_Age_From" & ControlChars.CrLf + sSQL &= " , ATTC.RatingSystem" & ControlChars.CrLf + sSQL &= " , ATTC.RatingDescriptor" & ControlChars.CrLf + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.Used = 1 AND EGMA.id_Moby_Attributes = ATT.id_Moby_Attributes AND EGMA.id_Emu_Games = EMUGAME.id_Emu_Games) THEN 1" & ControlChars.CrLf + sSQL &= " WHEN NOT EXISTS(SELECT 1 FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.Used = 0 AND EGMA.id_Moby_Attributes = ATT.id_Moby_Attributes AND EGMA.id_Emu_Games = EMUGAME.id_Emu_Games) AND EXISTS(SELECT 1 FROM moby.tbl_Moby_Releases_Attributes MRA WHERE REL.id_Moby_Releases = MRA.id_Moby_Releases AND ATT.id_Moby_Attributes = MRA.id_Moby_Attributes) THEN 1" & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " WHEN EXISTS(SELECT 1 FROM tbl_Rombase_Moby_Attributes RBMA WHERE RBMA.Used = 1 AND RBMA.id_Moby_Attributes = ATT.id_Moby_Attributes AND RBMA.id_Rombase = RB.id_Rombase) THEN 1", "") & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " WHEN NOT EXISTS(SELECT 1 FROM tbl_Rombase_Moby_Attributes RBMA WHERE RBMA.Used = 0 AND RBMA.id_Moby_Attributes = ATT.id_Moby_Attributes AND RBMA.id_Rombase = RB.id_Rombase) AND EXISTS(SELECT 1 FROM moby.tbl_Moby_Releases_Attributes MRA WHERE REL.id_Moby_Releases = MRA.id_Moby_Releases AND ATT.id_Moby_Attributes = MRA.id_Moby_Attributes) THEN 1", "") & ControlChars.CrLf + sSQL &= IIf(MultiEdit, " ELSE NULL" & ControlChars.CrLf, " ELSE 0" & ControlChars.CrLf) + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS Used" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Attributes ATT" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Attributes_Categories ATTC ON ATT.id_Moby_Attributes_Categories = ATTC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games EMUGAME ON EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN rombase.tbl_Rombase RB ON RB.id_Rombase = " & TC.getSQLFormat(id_Rombase) & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " ORDER BY CategoryGroup, ATTC.Name, ATT.Name" & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_tbl_Tag_Parser(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Tag_ParserDataTable, Optional ByVal id_Tag_Parser As Integer = 0, Optional ByVal New_Found_In_Value As Object = Nothing) + Dim sSQL As String = "SELECT" & ControlChars.CrLf + sSQL &= " id_Tag_Parser" & ControlChars.CrLf + sSQL &= " , Found_In" & ControlChars.CrLf + sSQL &= " , Apply" & ControlChars.CrLf + sSQL &= " , Content" & ControlChars.CrLf + sSQL &= " , IFNULL(MV_Group_Criteria, 1) AS MV_Group_Criteria" & ControlChars.CrLf + sSQL &= " , MV_Volume_Number" & ControlChars.CrLf + sSQL &= " , Note" & ControlChars.CrLf + sSQL &= " , Note_HighPriority" & ControlChars.CrLf + sSQL &= " , Publisher" & ControlChars.CrLf + sSQL &= " , Year" & ControlChars.CrLf + sSQL &= " , Bios" & ControlChars.CrLf + sSQL &= " , Hack" & ControlChars.CrLf + sSQL &= " , Trainer" & ControlChars.CrLf + sSQL &= " , Version" & ControlChars.CrLf + sSQL &= " , Prototype" & ControlChars.CrLf + sSQL &= " , Beta" & ControlChars.CrLf + sSQL &= " , Translation" & ControlChars.CrLf + sSQL &= " , Alt" & ControlChars.CrLf + sSQL &= " , Unlicensed" & ControlChars.CrLf + sSQL &= " , Good" & ControlChars.CrLf + sSQL &= " , Bad" & ControlChars.CrLf + sSQL &= " , Fixed" & ControlChars.CrLf + sSQL &= " , Overdump" & ControlChars.CrLf + sSQL &= " , Pirated" & ControlChars.CrLf + sSQL &= " , Alpha" & ControlChars.CrLf + sSQL &= " , Kiosk" & ControlChars.CrLf + sSQL &= " , Sample" & ControlChars.CrLf + sSQL &= " , En" & ControlChars.CrLf + sSQL &= " , Ja" & ControlChars.CrLf + sSQL &= " , Fr" & ControlChars.CrLf + sSQL &= " , De" & ControlChars.CrLf + sSQL &= " , Es" & ControlChars.CrLf + sSQL &= " , It" & ControlChars.CrLf + sSQL &= " , Nl" & ControlChars.CrLf + sSQL &= " , Pt" & ControlChars.CrLf + sSQL &= " , Sv" & ControlChars.CrLf + sSQL &= " , No" & ControlChars.CrLf + sSQL &= " , Da" & ControlChars.CrLf + sSQL &= " , Fi" & ControlChars.CrLf + sSQL &= " , Zh" & ControlChars.CrLf + sSQL &= " , Ko" & ControlChars.CrLf + sSQL &= " , Pl" & ControlChars.CrLf + sSQL &= " , Hu" & ControlChars.CrLf + sSQL &= " , Gr" & ControlChars.CrLf + sSQL &= " , Ar" & ControlChars.CrLf + sSQL &= " , Be" & ControlChars.CrLf + sSQL &= " , Cz" & ControlChars.CrLf + sSQL &= " , Ru" & ControlChars.CrLf + sSQL &= " , Sl" & ControlChars.CrLf + sSQL &= " , Sr" & ControlChars.CrLf + sSQL &= " , NTSC" & ControlChars.CrLf + sSQL &= " , PAL" & ControlChars.CrLf + sSQL &= " , World" & ControlChars.CrLf + sSQL &= " , Europe" & ControlChars.CrLf + sSQL &= " , USA" & ControlChars.CrLf + sSQL &= " , Asia" & ControlChars.CrLf + sSQL &= " , Australia" & ControlChars.CrLf + sSQL &= " , Japan" & ControlChars.CrLf + sSQL &= " , Korea" & ControlChars.CrLf + sSQL &= " , China" & ControlChars.CrLf + sSQL &= " , Brazil" & ControlChars.CrLf + sSQL &= " , Canada" & ControlChars.CrLf + sSQL &= " , France" & ControlChars.CrLf + sSQL &= " , Germany" & ControlChars.CrLf + sSQL &= " , HongKong" & ControlChars.CrLf + sSQL &= " , Italy" & ControlChars.CrLf + sSQL &= " , Netherlands" & ControlChars.CrLf + sSQL &= " , Russia" & ControlChars.CrLf + sSQL &= " , Spain" & ControlChars.CrLf + sSQL &= " , Sweden" & ControlChars.CrLf + sSQL &= " , Taiwan" & ControlChars.CrLf + sSQL &= " FROM tbl_Tag_Parser" & ControlChars.CrLf + sSQL &= " WHERE 1 = 1" + + If id_Tag_Parser <> 0 Then + sSQL &= " AND id_Tag_Parser = " & TC.getSQLFormat(id_Tag_Parser) & ControlChars.CrLf + End If + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + + If New_Found_In_Value IsNot Nothing Then + Dim rows As DataRow() = dt.Select("id_Tag_Parser = " & TC.getSQLFormat(id_Tag_Parser)) + If rows.Length = 1 Then + rows(0)("Found_In") = New_Found_In_Value + End If + End If + End Sub + + Public Shared Sub Fill_tbl_Rombase_Tag_Parser(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Tag_ParserDataTable, Optional ByVal id_Rombase_Tag_Parser As Integer = 0, Optional ByVal New_Found_In_Value As Object = Nothing) + Dim sSQL As String = "SELECT" & ControlChars.CrLf + sSQL &= " id_Rombase_Tag_Parser" & ControlChars.CrLf + sSQL &= " , Found_In" & ControlChars.CrLf + sSQL &= " , Apply" & ControlChars.CrLf + sSQL &= " , Content" & ControlChars.CrLf + sSQL &= " , IFNULL(MV_Group_Criteria, 1) AS MV_Group_Criteria" & ControlChars.CrLf + sSQL &= " , MV_Volume_Number" & ControlChars.CrLf + sSQL &= " , Note" & ControlChars.CrLf + sSQL &= " , Note_HighPriority" & ControlChars.CrLf + sSQL &= " , Publisher" & ControlChars.CrLf + sSQL &= " , Year" & ControlChars.CrLf + sSQL &= " , Bios" & ControlChars.CrLf + sSQL &= " , Hack" & ControlChars.CrLf + sSQL &= " , Trainer" & ControlChars.CrLf + sSQL &= " , Version" & ControlChars.CrLf + sSQL &= " , Prototype" & ControlChars.CrLf + sSQL &= " , Beta" & ControlChars.CrLf + sSQL &= " , Translation" & ControlChars.CrLf + sSQL &= " , Alt" & ControlChars.CrLf + sSQL &= " , Unlicensed" & ControlChars.CrLf + sSQL &= " , Good" & ControlChars.CrLf + sSQL &= " , Bad" & ControlChars.CrLf + sSQL &= " , Fixed" & ControlChars.CrLf + sSQL &= " , Overdump" & ControlChars.CrLf + sSQL &= " , Pirated" & ControlChars.CrLf + sSQL &= " , Alpha" & ControlChars.CrLf + sSQL &= " , Kiosk" & ControlChars.CrLf + sSQL &= " , Sample" & ControlChars.CrLf + sSQL &= " , En" & ControlChars.CrLf + sSQL &= " , Ja" & ControlChars.CrLf + sSQL &= " , Fr" & ControlChars.CrLf + sSQL &= " , De" & ControlChars.CrLf + sSQL &= " , Es" & ControlChars.CrLf + sSQL &= " , It" & ControlChars.CrLf + sSQL &= " , Nl" & ControlChars.CrLf + sSQL &= " , Pt" & ControlChars.CrLf + sSQL &= " , Sv" & ControlChars.CrLf + sSQL &= " , No" & ControlChars.CrLf + sSQL &= " , Da" & ControlChars.CrLf + sSQL &= " , Fi" & ControlChars.CrLf + sSQL &= " , Zh" & ControlChars.CrLf + sSQL &= " , Ko" & ControlChars.CrLf + sSQL &= " , Pl" & ControlChars.CrLf + sSQL &= " , Hu" & ControlChars.CrLf + sSQL &= " , Gr" & ControlChars.CrLf + sSQL &= " , Ar" & ControlChars.CrLf + sSQL &= " , Be" & ControlChars.CrLf + sSQL &= " , Cz" & ControlChars.CrLf + sSQL &= " , Ru" & ControlChars.CrLf + sSQL &= " , Sl" & ControlChars.CrLf + sSQL &= " , Sr" & ControlChars.CrLf + sSQL &= " , NTSC" & ControlChars.CrLf + sSQL &= " , PAL" & ControlChars.CrLf + sSQL &= " , World" & ControlChars.CrLf + sSQL &= " , Europe" & ControlChars.CrLf + sSQL &= " , USA" & ControlChars.CrLf + sSQL &= " , Asia" & ControlChars.CrLf + sSQL &= " , Australia" & ControlChars.CrLf + sSQL &= " , Japan" & ControlChars.CrLf + sSQL &= " , Korea" & ControlChars.CrLf + sSQL &= " , China" & ControlChars.CrLf + sSQL &= " , Brazil" & ControlChars.CrLf + sSQL &= " , Canada" & ControlChars.CrLf + sSQL &= " , France" & ControlChars.CrLf + sSQL &= " , Germany" & ControlChars.CrLf + sSQL &= " , HongKong" & ControlChars.CrLf + sSQL &= " , Italy" & ControlChars.CrLf + sSQL &= " , Netherlands" & ControlChars.CrLf + sSQL &= " , Russia" & ControlChars.CrLf + sSQL &= " , Spain" & ControlChars.CrLf + sSQL &= " , Sweden" & ControlChars.CrLf + sSQL &= " , Taiwan" & ControlChars.CrLf + sSQL &= " FROM tbl_Rombase_Tag_Parser" & ControlChars.CrLf + sSQL &= " WHERE 1 = 1" + + If id_Rombase_Tag_Parser <> 0 Then + sSQL &= " AND id_Rombase_Tag_Parser = " & TC.getSQLFormat(id_Rombase_Tag_Parser) & ControlChars.CrLf + End If + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + + If New_Found_In_Value IsNot Nothing Then + Dim rows As DataRow() = dt.Select("id_Rombase_Tag_Parser = " & TC.getSQLFormat(id_Rombase_Tag_Parser)) + If rows.Length = 1 Then + rows(0)("Found_In") = New_Found_In_Value + End If + End If + End Sub + + Public Shared Sub Fill_tbl_Emu_Games_Languages(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emu_Games_LanguagesDataTable, Optional ByVal id_Moby_Platforms As Integer = 0, Optional ByVal id_Emu_Games As Integer = 0) + Dim sSQL As String = "" + sSQL &= " SELECT id_Emu_Games_Languages" + sSQL &= ", id_Emu_Games" + sSQL &= ", id_Languages" + sSQL &= " FROM tbl_Emu_Games_Languages" + + If id_Emu_Games = 0 And id_Moby_Platforms > 0 Then + sSQL &= " WHERE id_Emu_Games IN (SELECT id_Emu_Games FROM tbl_Emu_Games WHERE id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ")" + End If + + If id_Emu_Games > 0 Then + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + End If + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_tbl_Emu_Games_Regions(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emu_Games_RegionsDataTable, Optional ByVal id_Moby_Platforms As Integer = 0, Optional ByVal id_Emu_Games As Integer = 0) + Dim sSQL As String = "" + sSQL &= "SELECT" + sSQL &= " id_Emu_Games_Regions" + sSQL &= ", id_Emu_Games" + sSQL &= ", id_Regions" + sSQL &= " FROM tbl_Emu_Games_Regions" + + If id_Emu_Games = 0 And id_Moby_Platforms > 0 Then + sSQL &= " WHERE id_Emu_Games IN (SELECT id_Emu_Games FROM tbl_Emu_Games WHERE id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ")" + End If + + If id_Emu_Games > 0 Then + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + End If + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_src_frm_Rom_Manager_Emu_Games(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Emu_GamesDataTable, ByVal id_Moby_Platforms As Integer, Optional ByVal id_Emu_Games As Integer = 0, Optional ByVal id_Emu_Games_Owner As Integer = 0) + sSQL = "" + sSQL &= "SELECT" + sSQL &= " EMUGAMES.id_Emu_Games" + sSQL &= " , EMUGAMES.id_Emu_Games_Owner" + sSQL &= " , EMUGAMES.id_DOSBox_Configs_Template" + sSQL &= " , EMUGAMES.id_DOSBox_Configs" + sSQL &= " , EMUGAMES.id_Rombase_DOSBox_Filetypes" + sSQL &= " , EMUGAMES.id_Rombase_DOSBox_Exe_Types" + sSQL &= " , EMUGAMES.DOSBox_Mount_Destination" + sSQL &= " , EMUGAMES.Volume_Number" + sSQL &= " , EMUGAMES.Filtered_Name" + sSQL &= " , EMUGAMES.Hidden" + sSQL &= " , EMUGAMES.Moby_Games_URLPart" + sSQL &= " , EMUGAMES.id_Moby_Platforms" + sSQL &= " , EMUGAMES.id_Rombase" + sSQL &= " , EMUGAMES.id_Emulators" + sSQL &= " , EMUGAMES.Folder" + sSQL &= " , EMUGAMES.File" + sSQL &= " , EMUGAMES.InnerFile" + sSQL &= " , EMUGAMES.Size" + sSQL &= " , EMUGAMES.CRC32" + sSQL &= " , EMUGAMES.SHA1" + sSQL &= " , EMUGAMES.MD5" + sSQL &= " , EMUGAMES.Name" + sSQL &= " , EMUGAMES.Name_USR" + sSQL &= " , EMUGAMES.Name_Prefix" + sSQL &= " , EMUGAMES.Name_Prefix_USR" + sSQL &= " , EMUGAMES.Note" + sSQL &= " , EMUGAMES.Note_USR" + sSQL &= " , EMUGAMES.Publisher" + sSQL &= " , EMUGAMES.Publisher_USR" + sSQL &= " , EMUGAMES.Publisher_id_Moby_Companies" + sSQL &= " , EMUGAMES.Publisher_id_Moby_Companies_USR" + sSQL &= " , EMUGAMES.Developer" + sSQL &= " , EMUGAMES.Developer_USR" + sSQL &= " , EMUGAMES.Developer_id_Moby_Companies" + sSQL &= " , EMUGAMES.Developer_id_Moby_Companies_USR" + sSQL &= " , EMUGAMES.Description" + sSQL &= " , EMUGAMES.Description_USR" + sSQL &= " , EMUGAMES.Favourite" + sSQL &= " , EMUGAMES.Rating_Gameplay" + sSQL &= " , EMUGAMES.Rating_Graphics" + sSQL &= " , EMUGAMES.Rating_Sound" + sSQL &= " , EMUGAMES.Rating_Story" + sSQL &= " , EMUGAMES.Rating_Personal" + sSQL &= " , EMUGAMES.Num_Played" + sSQL &= " , EMUGAMES.Num_Runtime" + sSQL &= " , EMUGAMES.Year" + sSQL &= " , EMUGAMES.Year_USR" + sSQL &= " , EMUGAMES.Version" + sSQL &= " , EMUGAMES.Version_USR" + sSQL &= " , EMUGAMES.Alt" + sSQL &= " , EMUGAMES.Alt_USR" + sSQL &= " , EMUGAMES.Trainer" + sSQL &= " , EMUGAMES.Trainer_USR" + sSQL &= " , EMUGAMES.Translation" + sSQL &= " , EMUGAMES.Translation_USR" + sSQL &= " , EMUGAMES.Hack" + sSQL &= " , EMUGAMES.Hack_USR" + sSQL &= " , EMUGAMES.Bios" + sSQL &= " , EMUGAMES.Bios_USR" + sSQL &= " , EMUGAMES.Prototype" + sSQL &= " , EMUGAMES.Prototype_USR" + sSQL &= " , EMUGAMES.Alpha" + sSQL &= " , EMUGAMES.Alpha_USR" + sSQL &= " , EMUGAMES.Beta" + sSQL &= " , EMUGAMES.Beta_USR" + sSQL &= " , EMUGAMES.Sample" + sSQL &= " , EMUGAMES.Sample_USR" + sSQL &= " , EMUGAMES.Kiosk" + sSQL &= " , EMUGAMES.Kiosk_USR" + sSQL &= " , EMUGAMES.Unlicensed" + sSQL &= " , EMUGAMES.Unlicensed_USR" + sSQL &= " , EMUGAMES.Fixed" + sSQL &= " , EMUGAMES.Fixed_USR" + sSQL &= " , EMUGAMES.Pirated" + sSQL &= " , EMUGAMES.Pirated_USR" + sSQL &= " , EMUGAMES.Good" + sSQL &= " , EMUGAMES.Good_USR" + sSQL &= " , EMUGAMES.Bad" + sSQL &= " , EMUGAMES.Bad_USR" + sSQL &= " , EMUGAMES.Overdump" + sSQL &= " , EMUGAMES.Overdump_USR" + sSQL &= " , EMUGAMES.PublicDomain" + sSQL &= " , EMUGAMES.PublicDomain_USR" + sSQL &= " , ROMBASE.id_Moby_Platforms AS ROMBASE_id_Moby_Platforms" + sSQL &= " , EMUGAMES.created" + sSQL &= " , MG.deprecated" + sSQL &= " FROM tbl_Emu_Games EMUGAMES" + sSQL &= " LEFT JOIN tbl_Rombase ROMBASE ON EMUGAMES.id_Rombase = ROMBASE.id_Rombase" + sSQL &= " LEFT JOIN tbl_Moby_Games MG ON EMUGAMES.Moby_Games_URLPart = MG.URLPart" + + If id_Emu_Games = 0 Then + sSQL &= " WHERE EMUGAMES.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + End If + + If id_Emu_Games > 0 Then + sSQL &= " WHERE EMUGAMES.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + If id_Emu_Games_Owner > 0 Then + sSQL &= " OR EMUGAMES.id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) + End If + End If + + sSQL &= " ORDER BY File, InnerFile" + + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_src_frm_Rom_Manager_Moby_Releases(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_MobyDB.src_Moby_ReleasesDataTable, ByVal id_Moby_Platforms As Integer) + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " REL.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , IFNULL(GAME.Name_Prefix || ' ', '') || GAME.Name AS GameName" & ControlChars.CrLf + sSQL &= " , REL.id_Moby_Platforms AS id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , soundex(GAME.Name) AS Soundex" & ControlChars.CrLf + sSQL &= " , GAME.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , REL.Year AS Year" & ControlChars.CrLf + sSQL &= " , REL.created AS created" & ControlChars.CrLf + sSQL &= " , REL.Developer_id_Moby_Companies AS Developer_id_Moby_Companies" & ControlChars.CrLf + sSQL &= " , DEV.Name AS Developer" & ControlChars.CrLf + sSQL &= " , REL.Publisher_id_Moby_Companies AS Publisher_id_Moby_Companies" & ControlChars.CrLf + sSQL &= " , PUB.Name AS Publisher" & ControlChars.CrLf + sSQL &= " , GAME.deprecated AS deprecated" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Releases REL" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Games GAME ON REL.id_Moby_Games = GAME.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Companies DEV ON REL.Developer_id_Moby_Companies = DEV.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Companies PUB ON REL.Publisher_id_Moby_Companies = PUB.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " WHERE REL.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " -REL.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , MGAT.Alternate_Title || ' [' || IFNULL(MGAT.Description, 'NODESCRIPTION') || '; ' || IFNULL(GAME.Name_Prefix || ' ', '') || GAME.Name || ']' AS GameName" & ControlChars.CrLf + sSQL &= " , REL.id_Moby_Platforms AS id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , NULL AS Soundex" & ControlChars.CrLf + sSQL &= " , '\' || GAME.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , REL.Year AS Year" & ControlChars.CrLf + sSQL &= " , REL.created AS created" & ControlChars.CrLf + sSQL &= " , REL.Developer_id_Moby_Companies AS Developer_id_Moby_Companies" & ControlChars.CrLf + sSQL &= " , DEV.Name AS Developer" & ControlChars.CrLf + sSQL &= " , REL.Publisher_id_Moby_Companies AS Publisher_id_Moby_Companies" & ControlChars.CrLf + sSQL &= " , PUB.Name AS Publisher" & ControlChars.CrLf + sSQL &= " , GAME.deprecated AS deprecated" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Games_Alternate_Titles MGAT" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Games GAME ON MGAT.id_Moby_Games = GAME.id_Moby_Games" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases REL ON REL.id_Moby_Games = GAME.id_Moby_Games AND REL.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Companies DEV ON REL.Developer_id_Moby_Companies = DEV.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Companies PUB ON REL.Publisher_id_Moby_Companies = PUB.id_Moby_Companies" & ControlChars.CrLf + + sSQL &= " ORDER BY GameName" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + + End Sub + + Public Shared Sub Fill_tbl_History(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_HistoryDataTable, Optional ByVal id_Emu_Games As Object = Nothing) + dt.Clear() + + Dim conn As SQLite.SQLiteConnection + + If tran IsNot Nothing Then + conn = tran.Connection + Else + conn = cls_Globals.Conn + End If + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " id_History" + sSQL &= " , id_Emu_Games" + sSQL &= " , Start" + sSQL &= " , End" + sSQL &= " , strftime('%s', End) - strftime('%s', Start) AS Runtime" + sSQL &= " FROM tbl_History" + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + If Not cls_Globals.Admin Then + sSQL &= " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users) + Else + sSQL &= " AND id_Users IS NULL" + End If + + DataAccess.FireProcedureReturnDT(conn, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_tbl_ImageEditorSettings(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_ImageEditorTemplatesDataTable) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " 0 AS Sort, 0 AS id_ImageEditorTemplates, 'Default' AS Title, 0 AS Top, 0 AS Bottom, 0 AS Left, 0 AS Right" + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 1 AS Sort" + sSQL &= " , id_ImageEditorTemplates" + sSQL &= " , IFNULL(Title, '') || ' (' || Top || '; ' || Bottom || '; ' || Left || '; ' || Right || ')' As Title" + sSQL &= " , Top" + sSQL &= " , Bottom" + sSQL &= " , Left" + sSQL &= " , Right" + sSQL &= " FROM tbl_ImageEditorTemplates ORDER BY Sort, Title" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_Game_Groups(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_ucr_Emulation_GameGroupsDataTable, ByVal id_Moby_Games As Object, ByVal id_Moby_Platforms As Object) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " MGGMR.id_Moby_Game_Groups" + sSQL &= " , MGG.Name" + sSQL &= " , (SELECT COUNT(1) FROM tbl_Moby_Game_Groups_Moby_Releases WHERE id_Moby_Game_Groups = MGGMR.id_Moby_Game_Groups) AS GameCount" + sSQL &= " FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" + sSQL &= " INNER JOIN tbl_Moby_Game_Groups MGG ON MGGMR.id_Moby_Game_Groups = MGG.id_Moby_Game_Groups" + sSQL &= " INNER JOIN tbl_Moby_Releases MR ON MGGMR.id_Moby_Releases = MR.id_Moby_Releases" + sSQL &= " INNER JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" + sSQL &= " WHERE MR.id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND MR.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + sSQL &= " AND MGG.Name <> """"" + sSQL &= " ORDER BY MGG.Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_Moby_Releases_Staff(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_ucr_Emulation_Moby_Releases_StaffDataTable, ByVal id_Moby_Games As Object, ByVal id_Moby_Platforms As Object) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " MRS.id_Moby_Releases_Staff" + sSQL &= " , MS.id_Moby_Staff" + sSQL &= " , MRS.Position" + sSQL &= " , MS.Name" + sSQL &= " , MRS.Sort" + sSQL &= " FROM tbl_Moby_Releases_Staff MRS" + sSQL &= " INNER JOIN tbl_Moby_Staff MS ON MRS.id_Moby_Staff = MS.id_Moby_Staff" + sSQL &= " INNER JOIN tbl_Moby_Releases MR ON MRS.id_Moby_Releases = MR.id_Moby_Releases" + sSQL &= " INNER JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" + sSQL &= " WHERE MR.id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) + sSQL &= " AND MR.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + sSQL &= " AND MS.Name <> """"" + sSQL &= " ORDER BY MRS.Sort" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_cmb_Groups(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_ucr_Emulation_cmb_GroupsDataTable) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " id_Moby_Game_Groups" + sSQL &= " , Name" + sSQL &= " , 1 AS Sort" + sSQL &= " FROM tbl_Moby_Game_Groups MGG" + sSQL &= " WHERE Name <> """"" + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 0 AS id_Moby_Game_Groups" + sSQL &= " , 'None' AS Name" + sSQL &= " , 0 AS Sort" + sSQL &= " ORDER BY Sort, MGG.Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_cmb_Staff(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_ucr_Emulation_cmb_StaffDataTable) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " id_Moby_Staff" + sSQL &= " , Name" + sSQL &= " , 1 AS Sort" + sSQL &= " FROM tbl_Moby_Staff MS" + sSQL &= " WHERE Name <> """"" + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 0 AS id_Moby_Staff" + sSQL &= " , 'None' AS Name" + sSQL &= " , 0 AS Sort" + sSQL &= " ORDER BY Sort, MS.Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_ucr_Emulation_cmb_Similarity_Calculation_Results(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " id_Similarity_Calculation_Results" + sSQL &= " , Name" + sSQL &= " , 1 AS Sort" + sSQL &= " FROM tbl_Similarity_Calculation_Results SCR" + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 0 AS id_Similarity_Calculation_Results" + sSQL &= " , 'None' AS Name" + sSQL &= " , 0 AS Sort" + sSQL &= " ORDER BY Sort, SCR.Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_tbl_Rombase_DOSBox_Template_Configs(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_DOSBox_ConfigsDataTable, Optional ByVal id_Rombase_DOSBox_Configs As Long = 0) + If dt Is Nothing Then + dt = New DS_ML.tbl_DOSBox_ConfigsDataTable + End If + + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " RBDBC.[id_Rombase_DOSBox_Configs] AS [id_DOSBox_Configs]" + sSQL &= " , 1 AS [isTemplate]" + sSQL &= " , RBDBC.[id_Rombase_DOSBox_Configs] AS [id_Rombase_DOSBox_Configs]" + sSQL &= " , RBDBC.[Displayname] AS [Displayname]" + sSQL &= " , RBDBC.[sdl-fullscreen] AS [sdl-fullscreen]" + sSQL &= " , RBDBC.[sdl-fulldouble] AS [sdl-fulldouble]" + sSQL &= " , RBDBC.[sdl-fullresolution] AS [sdl-fullresolution]" + sSQL &= " , RBDBC.[sdl-windowresolution] AS [sdl-windowresolution]" + sSQL &= " , RBDBC.[sdl-output] AS [sdl-output]" + sSQL &= " , RBDBC.[sdl-autolock] AS [sdl-autolock]" + sSQL &= " , RBDBC.[sdl-sensitivity] AS [sdl-sensitivity]" + sSQL &= " , RBDBC.[sdl-waitonerror] AS [sdl-waitonerror]" + sSQL &= " , RBDBC.[sdl-priority_1] AS [sdl-priority_1]" + sSQL &= " , RBDBC.[sdl-priority_2] AS [sdl-priority_2]" + sSQL &= " , RBDBC.[sdl-mapperfile] AS [sdl-mapperfile]" + sSQL &= " , RBDBC.[sdl-usescancodes] AS [sdl-usescancodes]" + sSQL &= " , RBDBC.[dosbox-language] AS [dosbox-language]" + sSQL &= " , RBDBC.[dosbox-machine] AS [dosbox-machine]" + sSQL &= " , RBDBC.[dosbox-memsize] AS [dosbox-memsize]" + sSQL &= " , RBDBC.[render-frameskip] AS [render-frameskip]" + sSQL &= " , RBDBC.[render-aspect] AS [render-aspect]" + sSQL &= " , RBDBC.[render-scaler] AS [render-scaler]" + sSQL &= " , RBDBC.[render-scaler_forced] AS [render-scaler_forced]" + sSQL &= " , RBDBC.[cpu-core] AS [cpu-core]" + sSQL &= " , RBDBC.[cpu-cputype] AS [cpu-cputype]" + sSQL &= " , RBDBC.[cpu-cycles] AS [cpu-cycles]" + sSQL &= " , RBDBC.[cpu-cycleup] AS [cpu-cycleup]" + sSQL &= " , RBDBC.[cpu-cycledown] AS [cpu-cycledown]" + sSQL &= " , RBDBC.[mixer-nosound] AS [mixer-nosound]" + sSQL &= " , RBDBC.[mixer-rate] AS [mixer-rate]" + sSQL &= " , RBDBC.[mixer-blocksize] AS [mixer-blocksize]" + sSQL &= " , RBDBC.[mixer-prebuffer] AS [mixer-prebuffer]" + sSQL &= " , RBDBC.[midi-mpu401] AS [midi-mpu401]" + sSQL &= " , RBDBC.[midi-mididevice] AS [midi-mididevice]" + sSQL &= " , RBDBC.[midi-midiconfig] AS [midi-midiconfig]" + sSQL &= " , RBDBC.[sblaster-sbtype] AS [sblaster-sbtype]" + sSQL &= " , RBDBC.[sblaster-sbbase] AS [sblaster-sbbase]" + sSQL &= " , RBDBC.[sblaster-irq] AS [sblaster-irq]" + sSQL &= " , RBDBC.[sblaster-dma] AS [sblaster-dma]" + sSQL &= " , RBDBC.[sblaster-hdma] AS [sblaster-hdma]" + sSQL &= " , RBDBC.[sblaster-sbmixer] AS [sblaster-sbmixer]" + sSQL &= " , RBDBC.[sblaster-oplmode] AS [sblaster-oplmode]" + sSQL &= " , RBDBC.[sblaster-oplemu] AS [sblaster-oplemu]" + sSQL &= " , RBDBC.[sblaster-oplrate] AS [sblaster-oplrate]" + sSQL &= " , RBDBC.[gus-gus] AS [gus-gus]" + sSQL &= " , RBDBC.[gus-gusrate] AS [gus-gusrate]" + sSQL &= " , RBDBC.[gus-gusbase] AS [gus-gusbase]" + sSQL &= " , RBDBC.[gus-gusirq] AS [gus-gusirq]" + sSQL &= " , RBDBC.[gus-gusdma] AS [gus-gusdma]" + sSQL &= " , RBDBC.[gus-ultradir] AS [gus-ultradir]" + sSQL &= " , RBDBC.[speaker-pcspeaker] AS [speaker-pcspeaker]" + sSQL &= " , RBDBC.[speaker-pcrate] AS [speaker-pcrate]" + sSQL &= " , RBDBC.[speaker-tandy] AS [speaker-tandy]" + sSQL &= " , RBDBC.[speaker-tandyrate] AS [speaker-tandyrate]" + sSQL &= " , RBDBC.[speaker-disney] AS [speaker-disney]" + sSQL &= " , RBDBC.[joystick-joysticktype] AS [joystick-joysticktype]" + sSQL &= " , RBDBC.[joystick-timed] AS [joystick-timed]" + sSQL &= " , RBDBC.[joystick-autofire] AS [joystick-autofire]" + sSQL &= " , RBDBC.[joystick-swap34] AS [joystick-swap34]" + sSQL &= " , RBDBC.[joystick-buttonwrap] AS [joystick-buttonwrap]" + sSQL &= " , RBDBC.[serial-serial1] AS [serial-serial1]" + sSQL &= " , RBDBC.[serial-serial2] AS [serial-serial2]" + sSQL &= " , RBDBC.[serial-serial3] AS [serial-serial3]" + sSQL &= " , RBDBC.[serial-serial4] AS [serial-serial4]" + sSQL &= " , RBDBC.[dos-xms] AS [dos-xms]" + sSQL &= " , RBDBC.[dos-ems] AS [dos-ems]" + sSQL &= " , RBDBC.[dos-umb] AS [dos-umb]" + sSQL &= " , RBDBC.[dos-keyboardlayout] AS [dos-keyboardlayout]" + sSQL &= " , RBDBC.[ipx-ipx] AS [ipx-ipx]" + sSQL &= " , RBDBC.[autoexec-before] AS [autoexec-before]" + sSQL &= " , RBDBC.[autoexec-after] AS [autoexec-after]" + sSQL &= " , RBDBC.[ml-autoclose] AS [ml-autoclose]" + sSQL &= " , RBDBC.[ml-showconsole] AS [ml-showconsole]" + sSQL &= " , RBDBC.[ml-customsettings] AS [ml-customsettings]" + sSQL &= " , RBDBC.[ml-useloadfix] AS [ml-useloadfix]" + sSQL &= " , RBDBC.[ml-loadfix] AS [ml-loadfix]" + sSQL &= " , RBDBC.[ml-volume_master_left] AS [ml-volume_master_left]" + sSQL &= " , RBDBC.[ml-volume_master_right] AS [ml-volume_master_right]" + sSQL &= " , RBDBC.[ml-volume_spkr_left] AS [ml-volume_spkr_left]" + sSQL &= " , RBDBC.[ml-volume_spkr_right] AS [ml-volume_spkr_right]" + sSQL &= " , RBDBC.[ml-volume_sb_left] AS [ml-volume_sb_left]" + sSQL &= " , RBDBC.[ml-volume_sb_right] AS [ml-volume_sb_right]" + sSQL &= " , RBDBC.[ml-volume_disney_left] AS [ml-volume_disney_left]" + sSQL &= " , RBDBC.[ml-volume_disney_right] AS [ml-volume_disney_right]" + sSQL &= " , RBDBC.[ml-volume_gus_left] AS [ml-volume_gus_left]" + sSQL &= " , RBDBC.[ml-volume_gus_right] AS [ml-volume_gus_right]" + sSQL &= " , RBDBC.[ml-volume_fm_left] AS [ml-volume_fm_left]" + sSQL &= " , RBDBC.[ml-volume_fm_right] AS [ml-volume_fm_right]" + sSQL &= " , RBDBC.[ml-volume_cdaudio_left] AS [ml-volume_cdaudio_left]" + sSQL &= " , RBDBC.[ml-volume_cdaudio_right] AS [ml-volume_cdaudio_right]" + sSQL &= " , RBDBC.[p_sdl_pixelshader] AS [p_sdl_pixelshader]" + sSQL &= " , RBDBC.[p_sdl_pixelshader_forced] AS [p_sdl_pixelshader_forced]" + sSQL &= " , RBDBC.[p_sdl_output] AS [p_sdl_output]" + sSQL &= " , RBDBC.[p_dosbox_vmemsize] AS [p_dosbox_vmemsize]" + sSQL &= " , RBDBC.[p_dosbox_memsizekb] AS [p_dosbox_memsizekb]" + sSQL &= " , RBDBC.[p_dosbox_forcerate] AS [p_dosbox_forcerate]" + sSQL &= " , RBDBC.[p_dosbox_pit_hack] AS [p_dosbox_pit_hack]" + sSQL &= " , RBDBC.[p_render_scaler] AS [p_render_scaler]" + sSQL &= " , RBDBC.[p_render_autofit] AS [p_render_autofit]" + sSQL &= " , RBDBC.[p_vsync_vsyncmode] AS [p_vsync_vsyncmode]" + sSQL &= " , RBDBC.[p_vsync_vsyncrate] AS [p_vsync_vsyncrate]" + sSQL &= " , RBDBC.[p_cpu_cputype] AS [p_cpu_cputype]" + sSQL &= " , RBDBC.[p_keyboard_aux] AS [p_keyboard_aux]" + sSQL &= " , RBDBC.[p_keyboard_auxdevice] AS [p_keyboard_auxdevice]" + sSQL &= " , RBDBC.[p_voodoo] AS [p_voodoo]" + sSQL &= " , RBDBC.[p_mixer_swapstereo] AS [p_mixer_swapstereo]" + sSQL &= " , RBDBC.[p_midi_mididevice] AS [p_midi_mididevice]" + sSQL &= " , RBDBC.[p_midi_mt32_reverse_stereo] AS [p_midi_mt32_reverse_stereo]" + sSQL &= " , RBDBC.[p_midi_mt32_verbose] AS [p_midi_mt32_verbose]" + sSQL &= " , RBDBC.[p_midi_mt32_thread] AS [p_midi_mt32_thread]" + sSQL &= " , RBDBC.[p_midi_mt32_dac] AS [p_midi_mt32_dac]" + sSQL &= " , RBDBC.[p_midi_mt32_reverb_mode] AS [p_midi_mt32_reverb_mode]" + sSQL &= " , RBDBC.[p_midi_mt32_reverb_time] AS [p_midi_mt32_reverb_time]" + sSQL &= " , RBDBC.[p_midi_mt32_reverb_level] AS [p_midi_mt32_reverb_level]" + sSQL &= " , RBDBC.[p_midi_mt32_partials] AS [p_midi_mt32_partials]" + sSQL &= " , RBDBC.[p_sblaster_oplmode] AS [p_sblaster_oplmode]" + sSQL &= " , RBDBC.[p_sblaster_hardwarebase] AS [p_sblaster_hardwarebase]" + sSQL &= " , RBDBC.[p_sblaster_goldplay] AS [p_sblaster_goldplay]" + sSQL &= " , RBDBC.[p_innova_innova] AS [p_innova_innova]" + sSQL &= " , RBDBC.[p_innova_samplerate] AS [p_innova_samplerate]" + sSQL &= " , RBDBC.[p_innova_sidbase] AS [p_innova_sidbase]" + sSQL &= " , RBDBC.[p_innova_quality] AS [p_innova_quality]" + sSQL &= " , RBDBC.[p_speaker_ps1audio] AS [p_speaker_ps1audio]" + sSQL &= " , RBDBC.[p_speaker_ps1audiorate] AS [p_speaker_ps1audiorate]" + sSQL &= " , RBDBC.[p_printer_printer] AS [p_printer_printer]" + sSQL &= " , RBDBC.[p_printer_dpi] AS [p_printer_dpi]" + sSQL &= " , RBDBC.[p_printer_width] AS [p_printer_width]" + sSQL &= " , RBDBC.[p_printer_height] AS [p_printer_height]" + sSQL &= " , RBDBC.[p_printer_printoutput] AS [p_printer_printoutput]" + sSQL &= " , RBDBC.[p_printer_multipage] AS [p_printer_multipage]" + sSQL &= " , RBDBC.[p_printer_docpath] AS [p_printer_docpath]" + sSQL &= " , RBDBC.[p_printer_timeout] AS [p_printer_timeout]" + sSQL &= " , RBDBC.[p_parallel_parallel1] AS [p_parallel_parallel1]" + sSQL &= " , RBDBC.[p_parallel_parallel2] AS [p_parallel_parallel2]" + sSQL &= " , RBDBC.[p_parallel_parallel3] AS [p_parallel_parallel3]" + sSQL &= " , RBDBC.[p_parallel_dongle] AS [p_parallel_dongle]" + sSQL &= " , RBDBC.[p_glide_glide] AS [p_glide_glide]" + sSQL &= " , RBDBC.[p_glide_lfb] AS [p_glide_lfb]" + sSQL &= " , RBDBC.[p_glide_splash] AS [p_glide_splash]" + sSQL &= " , RBDBC.[p_ne2000_ne2000] AS [p_ne2000_ne2000]" + sSQL &= " , RBDBC.[p_ne2000_nicbase] AS [p_ne2000_nicbase]" + sSQL &= " , RBDBC.[p_ne2000_nicirq] AS [p_ne2000_nicirq]" + sSQL &= " , RBDBC.[p_ne2000_macaddr] AS [p_ne2000_macaddr]" + sSQL &= " , RBDBC.[p_ne2000_realnic] AS [p_ne2000_realnic]" + sSQL &= " , RBDBC.[p_ide1_enable] AS [p_ide1_enable]" + sSQL &= " , RBDBC.[p_ide1_int13fakeio] AS [p_ide1_int13fakeio]" + sSQL &= " , RBDBC.[p_ide1_int13fakev86io] AS [p_ide1_int13fakev86io]" + sSQL &= " , RBDBC.[p_ide2_enable] AS [p_ide2_enable]" + sSQL &= " , RBDBC.[p_ide2_int13fakeio] AS [p_ide2_int13fakeio]" + sSQL &= " , RBDBC.[p_ide2_int13fakev86io] AS [p_ide2_int13fakev86io]" + sSQL &= " , RBDBC.[p_ide3_enable] AS [p_ide3_enable]" + sSQL &= " , RBDBC.[p_ide3_int13fakeio] AS [p_ide3_int13fakeio]" + sSQL &= " , RBDBC.[p_ide3_int13fakev86io] AS [p_ide3_int13fakev86io]" + sSQL &= " , RBDBC.[p_ide4_enable] AS [p_ide4_enable]" + sSQL &= " , RBDBC.[p_ide4_int13fakeio] AS [p_ide4_int13fakeio]" + sSQL &= " , RBDBC.[p_ide4_int13fakev86io] AS [p_ide4_int13fakev86io]" + sSQL &= " FROM rombase.tbl_Rombase_DOSBox_Configs RBDBC" + If id_Rombase_DOSBox_Configs <> 0 Then sSQL &= " WHERE RBDBC.id_Rombase_DOSBox_Configs = " & TC.getSQLFormat(id_Rombase_DOSBox_Configs) + sSQL &= " ORDER BY [Displayname]" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_tbl_DOSBox_Template_Configs(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_DOSBox_ConfigsDataTable, Optional ByVal id_DOSBox_Configs As Long = 0) + If dt Is Nothing Then + dt = New DS_ML.tbl_DOSBox_ConfigsDataTable + End If + + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" + sSQL &= " DBC.[id_DOSBox_Configs] AS [id_DOSBox_Configs]" + sSQL &= " , DBC.[isTemplate] AS [isTemplate]" + sSQL &= " , IFNULL(DBC.[id_Rombase_DOSBox_Configs], RBDBC.[id_Rombase_DOSBox_Configs]) AS [id_Rombase_DOSBox_Configs]" + sSQL &= " , IFNULL(DBC.[Displayname], RBDBC.[Displayname]) AS [Displayname]" + sSQL &= " , IFNULL(DBC.[sdl-fullscreen], RBDBC.[sdl-fullscreen]) AS [sdl-fullscreen]" + sSQL &= " , IFNULL(DBC.[sdl-fulldouble], RBDBC.[sdl-fulldouble]) AS [sdl-fulldouble]" + sSQL &= " , IFNULL(DBC.[sdl-fullresolution], RBDBC.[sdl-fullresolution]) AS [sdl-fullresolution]" + sSQL &= " , IFNULL(DBC.[sdl-windowresolution], RBDBC.[sdl-windowresolution]) AS [sdl-windowresolution]" + sSQL &= " , IFNULL(DBC.[sdl-output], RBDBC.[sdl-output]) AS [sdl-output]" + sSQL &= " , IFNULL(DBC.[sdl-autolock], RBDBC.[sdl-autolock]) AS [sdl-autolock]" + sSQL &= " , IFNULL(DBC.[sdl-sensitivity], RBDBC.[sdl-sensitivity]) AS [sdl-sensitivity]" + sSQL &= " , IFNULL(DBC.[sdl-waitonerror], RBDBC.[sdl-waitonerror]) AS [sdl-waitonerror]" + sSQL &= " , IFNULL(DBC.[sdl-priority_1], RBDBC.[sdl-priority_1]) AS [sdl-priority_1]" + sSQL &= " , IFNULL(DBC.[sdl-priority_2], RBDBC.[sdl-priority_2]) AS [sdl-priority_2]" + sSQL &= " , IFNULL(DBC.[sdl-mapperfile], RBDBC.[sdl-mapperfile]) AS [sdl-mapperfile]" + sSQL &= " , IFNULL(DBC.[sdl-usescancodes], RBDBC.[sdl-usescancodes]) AS [sdl-usescancodes]" + sSQL &= " , IFNULL(DBC.[dosbox-language], RBDBC.[dosbox-language]) AS [dosbox-language]" + sSQL &= " , IFNULL(DBC.[dosbox-machine], RBDBC.[dosbox-machine]) AS [dosbox-machine]" + sSQL &= " , IFNULL(DBC.[dosbox-memsize], RBDBC.[dosbox-memsize]) AS [dosbox-memsize]" + sSQL &= " , IFNULL(DBC.[render-frameskip], RBDBC.[render-frameskip]) AS [render-frameskip]" + sSQL &= " , IFNULL(DBC.[render-aspect], RBDBC.[render-aspect]) AS [render-aspect]" + sSQL &= " , IFNULL(DBC.[render-scaler], RBDBC.[render-scaler]) AS [render-scaler]" + sSQL &= " , IFNULL(DBC.[render-scaler_forced], RBDBC.[render-scaler_forced]) AS [render-scaler_forced]" + sSQL &= " , IFNULL(DBC.[cpu-core], RBDBC.[cpu-core]) AS [cpu-core]" + sSQL &= " , IFNULL(DBC.[cpu-cputype], RBDBC.[cpu-cputype]) AS [cpu-cputype]" + sSQL &= " , IFNULL(DBC.[cpu-cycles], RBDBC.[cpu-cycles]) AS [cpu-cycles]" + sSQL &= " , IFNULL(DBC.[cpu-cycleup], RBDBC.[cpu-cycleup]) AS [cpu-cycleup]" + sSQL &= " , IFNULL(DBC.[cpu-cycledown], RBDBC.[cpu-cycledown]) AS [cpu-cycledown]" + sSQL &= " , IFNULL(DBC.[mixer-nosound], RBDBC.[mixer-nosound]) AS [mixer-nosound]" + sSQL &= " , IFNULL(DBC.[mixer-rate], RBDBC.[mixer-rate]) AS [mixer-rate]" + sSQL &= " , IFNULL(DBC.[mixer-blocksize], RBDBC.[mixer-blocksize]) AS [mixer-blocksize]" + sSQL &= " , IFNULL(DBC.[mixer-prebuffer], RBDBC.[mixer-prebuffer]) AS [mixer-prebuffer]" + sSQL &= " , IFNULL(DBC.[midi-mpu401], RBDBC.[midi-mpu401]) AS [midi-mpu401]" + sSQL &= " , IFNULL(DBC.[midi-mididevice], RBDBC.[midi-mididevice]) AS [midi-mididevice]" + sSQL &= " , IFNULL(DBC.[midi-midiconfig], RBDBC.[midi-midiconfig]) AS [midi-midiconfig]" + sSQL &= " , IFNULL(DBC.[sblaster-sbtype], RBDBC.[sblaster-sbtype]) AS [sblaster-sbtype]" + sSQL &= " , IFNULL(DBC.[sblaster-sbbase], RBDBC.[sblaster-sbbase]) AS [sblaster-sbbase]" + sSQL &= " , IFNULL(DBC.[sblaster-irq], RBDBC.[sblaster-irq]) AS [sblaster-irq]" + sSQL &= " , IFNULL(DBC.[sblaster-dma], RBDBC.[sblaster-dma]) AS [sblaster-dma]" + sSQL &= " , IFNULL(DBC.[sblaster-hdma], RBDBC.[sblaster-hdma]) AS [sblaster-hdma]" + sSQL &= " , IFNULL(DBC.[sblaster-sbmixer], RBDBC.[sblaster-sbmixer]) AS [sblaster-sbmixer]" + sSQL &= " , IFNULL(DBC.[sblaster-oplmode], RBDBC.[sblaster-oplmode]) AS [sblaster-oplmode]" + sSQL &= " , IFNULL(DBC.[sblaster-oplemu], RBDBC.[sblaster-oplemu]) AS [sblaster-oplemu]" + sSQL &= " , IFNULL(DBC.[sblaster-oplrate], RBDBC.[sblaster-oplrate]) AS [sblaster-oplrate]" + sSQL &= " , IFNULL(DBC.[gus-gus], RBDBC.[gus-gus]) AS [gus-gus]" + sSQL &= " , IFNULL(DBC.[gus-gusrate], RBDBC.[gus-gusrate]) AS [gus-gusrate]" + sSQL &= " , IFNULL(DBC.[gus-gusbase], RBDBC.[gus-gusbase]) AS [gus-gusbase]" + sSQL &= " , IFNULL(DBC.[gus-gusirq], RBDBC.[gus-gusirq]) AS [gus-gusirq]" + sSQL &= " , IFNULL(DBC.[gus-gusdma], RBDBC.[gus-gusdma]) AS [gus-gusdma]" + sSQL &= " , IFNULL(DBC.[gus-ultradir], RBDBC.[gus-ultradir]) AS [gus-ultradir]" + sSQL &= " , IFNULL(DBC.[speaker-pcspeaker], RBDBC.[speaker-pcspeaker]) AS [speaker-pcspeaker]" + sSQL &= " , IFNULL(DBC.[speaker-pcrate], RBDBC.[speaker-pcrate]) AS [speaker-pcrate]" + sSQL &= " , IFNULL(DBC.[speaker-tandy], RBDBC.[speaker-tandy]) AS [speaker-tandy]" + sSQL &= " , IFNULL(DBC.[speaker-tandyrate], RBDBC.[speaker-tandyrate]) AS [speaker-tandyrate]" + sSQL &= " , IFNULL(DBC.[speaker-disney], RBDBC.[speaker-disney]) AS [speaker-disney]" + sSQL &= " , IFNULL(DBC.[joystick-joysticktype], RBDBC.[joystick-joysticktype]) AS [joystick-joysticktype]" + sSQL &= " , IFNULL(DBC.[joystick-timed], RBDBC.[joystick-timed]) AS [joystick-timed]" + sSQL &= " , IFNULL(DBC.[joystick-autofire], RBDBC.[joystick-autofire]) AS [joystick-autofire]" + sSQL &= " , IFNULL(DBC.[joystick-swap34], RBDBC.[joystick-swap34]) AS [joystick-swap34]" + sSQL &= " , IFNULL(DBC.[joystick-buttonwrap], RBDBC.[joystick-buttonwrap]) AS [joystick-buttonwrap]" + sSQL &= " , IFNULL(DBC.[serial-serial1], RBDBC.[serial-serial1]) AS [serial-serial1]" + sSQL &= " , IFNULL(DBC.[serial-serial2], RBDBC.[serial-serial2]) AS [serial-serial2]" + sSQL &= " , IFNULL(DBC.[serial-serial3], RBDBC.[serial-serial3]) AS [serial-serial3]" + sSQL &= " , IFNULL(DBC.[serial-serial4], RBDBC.[serial-serial4]) AS [serial-serial4]" + sSQL &= " , IFNULL(DBC.[dos-xms], RBDBC.[dos-xms]) AS [dos-xms]" + sSQL &= " , IFNULL(DBC.[dos-ems], RBDBC.[dos-ems]) AS [dos-ems]" + sSQL &= " , IFNULL(DBC.[dos-umb], RBDBC.[dos-umb]) AS [dos-umb]" + sSQL &= " , IFNULL(DBC.[dos-keyboardlayout], RBDBC.[dos-keyboardlayout]) AS [dos-keyboardlayout]" + sSQL &= " , IFNULL(DBC.[ipx-ipx], RBDBC.[ipx-ipx]) AS [ipx-ipx]" + sSQL &= " , IFNULL(DBC.[autoexec-before], RBDBC.[autoexec-before]) AS [autoexec-before]" + sSQL &= " , IFNULL(DBC.[autoexec-after], RBDBC.[autoexec-after]) AS [autoexec-after]" + sSQL &= " , IFNULL(DBC.[ml-autoclose], RBDBC.[ml-autoclose]) AS [ml-autoclose]" + sSQL &= " , IFNULL(DBC.[ml-showconsole], RBDBC.[ml-showconsole]) AS [ml-showconsole]" + sSQL &= " , IFNULL(DBC.[ml-customsettings], RBDBC.[ml-customsettings]) AS [ml-customsettings]" + sSQL &= " , IFNULL(DBC.[ml-useloadfix], RBDBC.[ml-useloadfix]) AS [ml-useloadfix]" + sSQL &= " , IFNULL(DBC.[ml-loadfix], RBDBC.[ml-loadfix]) AS [ml-loadfix]" + sSQL &= " , IFNULL(DBC.[ml-volume_master_left], RBDBC.[ml-volume_master_left]) AS [ml-volume_master_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_master_right], RBDBC.[ml-volume_master_right]) AS [ml-volume_master_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_spkr_left], RBDBC.[ml-volume_spkr_left]) AS [ml-volume_spkr_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_spkr_right], RBDBC.[ml-volume_spkr_right]) AS [ml-volume_spkr_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_sb_left], RBDBC.[ml-volume_sb_left]) AS [ml-volume_sb_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_sb_right], RBDBC.[ml-volume_sb_right]) AS [ml-volume_sb_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_disney_left], RBDBC.[ml-volume_disney_left]) AS [ml-volume_disney_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_disney_right], RBDBC.[ml-volume_disney_right]) AS [ml-volume_disney_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_gus_left], RBDBC.[ml-volume_gus_left]) AS [ml-volume_gus_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_gus_right], RBDBC.[ml-volume_gus_right]) AS [ml-volume_gus_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_fm_left], RBDBC.[ml-volume_fm_left]) AS [ml-volume_fm_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_fm_right], RBDBC.[ml-volume_fm_right]) AS [ml-volume_fm_right]" + sSQL &= " , IFNULL(DBC.[ml-volume_cdaudio_left], RBDBC.[ml-volume_cdaudio_left]) AS [ml-volume_cdaudio_left]" + sSQL &= " , IFNULL(DBC.[ml-volume_cdaudio_right], RBDBC.[ml-volume_cdaudio_right]) AS [ml-volume_cdaudio_right]" + sSQL &= " , IFNULL(DBC.[p_sdl_pixelshader], RBDBC.[p_sdl_pixelshader]) AS [p_sdl_pixelshader]" + sSQL &= " , IFNULL(DBC.[p_sdl_pixelshader_forced], RBDBC.[p_sdl_pixelshader_forced]) AS [p_sdl_pixelshader_forced]" + sSQL &= " , IFNULL(DBC.[p_sdl_output], RBDBC.[p_sdl_output]) AS [p_sdl_output]" + sSQL &= " , IFNULL(DBC.[p_dosbox_vmemsize], RBDBC.[p_dosbox_vmemsize]) AS [p_dosbox_vmemsize]" + sSQL &= " , IFNULL(DBC.[p_dosbox_memsizekb], RBDBC.[p_dosbox_memsizekb]) AS [p_dosbox_memsizekb]" + sSQL &= " , IFNULL(DBC.[p_dosbox_forcerate], RBDBC.[p_dosbox_forcerate]) AS [p_dosbox_forcerate]" + sSQL &= " , IFNULL(DBC.[p_dosbox_pit_hack], RBDBC.[p_dosbox_pit_hack]) AS [p_dosbox_pit_hack]" + sSQL &= " , IFNULL(DBC.[p_render_scaler], RBDBC.[p_render_scaler]) AS [p_render_scaler]" + sSQL &= " , IFNULL(DBC.[p_render_autofit], RBDBC.[p_render_autofit]) AS [p_render_autofit]" + sSQL &= " , IFNULL(DBC.[p_vsync_vsyncmode], RBDBC.[p_vsync_vsyncmode]) AS [p_vsync_vsyncmode]" + sSQL &= " , IFNULL(DBC.[p_vsync_vsyncrate], RBDBC.[p_vsync_vsyncrate]) AS [p_vsync_vsyncrate]" + sSQL &= " , IFNULL(DBC.[p_cpu_cputype], RBDBC.[p_cpu_cputype]) AS [p_cpu_cputype]" + sSQL &= " , IFNULL(DBC.[p_keyboard_aux], RBDBC.[p_keyboard_aux]) AS [p_keyboard_aux]" + sSQL &= " , IFNULL(DBC.[p_keyboard_auxdevice], RBDBC.[p_keyboard_auxdevice]) AS [p_keyboard_auxdevice]" + sSQL &= " , IFNULL(DBC.[p_voodoo], RBDBC.[p_voodoo]) AS [p_voodoo]" + sSQL &= " , IFNULL(DBC.[p_mixer_swapstereo], RBDBC.[p_mixer_swapstereo]) AS [p_mixer_swapstereo]" + sSQL &= " , IFNULL(DBC.[p_midi_mididevice], RBDBC.[p_midi_mididevice]) AS [p_midi_mididevice]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverse_stereo], RBDBC.[p_midi_mt32_reverse_stereo]) AS [p_midi_mt32_reverse_stereo]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_verbose], RBDBC.[p_midi_mt32_verbose]) AS [p_midi_mt32_verbose]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_thread], RBDBC.[p_midi_mt32_thread]) AS [p_midi_mt32_thread]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_dac], RBDBC.[p_midi_mt32_dac]) AS [p_midi_mt32_dac]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_mode], RBDBC.[p_midi_mt32_reverb_mode]) AS [p_midi_mt32_reverb_mode]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_time], RBDBC.[p_midi_mt32_reverb_time]) AS [p_midi_mt32_reverb_time]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_level], RBDBC.[p_midi_mt32_reverb_level]) AS [p_midi_mt32_reverb_level]" + sSQL &= " , IFNULL(DBC.[p_midi_mt32_partials], RBDBC.[p_midi_mt32_partials]) AS [p_midi_mt32_partials]" + sSQL &= " , IFNULL(DBC.[p_sblaster_oplmode], RBDBC.[p_sblaster_oplmode]) AS [p_sblaster_oplmode]" + sSQL &= " , IFNULL(DBC.[p_sblaster_hardwarebase], RBDBC.[p_sblaster_hardwarebase]) AS [p_sblaster_hardwarebase]" + sSQL &= " , IFNULL(DBC.[p_sblaster_goldplay], RBDBC.[p_sblaster_goldplay]) AS [p_sblaster_goldplay]" + sSQL &= " , IFNULL(DBC.[p_innova_innova], RBDBC.[p_innova_innova]) AS [p_innova_innova]" + sSQL &= " , IFNULL(DBC.[p_innova_samplerate], RBDBC.[p_innova_samplerate]) AS [p_innova_samplerate]" + sSQL &= " , IFNULL(DBC.[p_innova_sidbase], RBDBC.[p_innova_sidbase]) AS [p_innova_sidbase]" + sSQL &= " , IFNULL(DBC.[p_innova_quality], RBDBC.[p_innova_quality]) AS [p_innova_quality]" + sSQL &= " , IFNULL(DBC.[p_speaker_ps1audio], RBDBC.[p_speaker_ps1audio]) AS [p_speaker_ps1audio]" + sSQL &= " , IFNULL(DBC.[p_speaker_ps1audiorate], RBDBC.[p_speaker_ps1audiorate]) AS [p_speaker_ps1audiorate]" + sSQL &= " , IFNULL(DBC.[p_printer_printer], RBDBC.[p_printer_printer]) AS [p_printer_printer]" + sSQL &= " , IFNULL(DBC.[p_printer_dpi], RBDBC.[p_printer_dpi]) AS [p_printer_dpi]" + sSQL &= " , IFNULL(DBC.[p_printer_width], RBDBC.[p_printer_width]) AS [p_printer_width]" + sSQL &= " , IFNULL(DBC.[p_printer_height], RBDBC.[p_printer_height]) AS [p_printer_height]" + sSQL &= " , IFNULL(DBC.[p_printer_printoutput], RBDBC.[p_printer_printoutput]) AS [p_printer_printoutput]" + sSQL &= " , IFNULL(DBC.[p_printer_multipage], RBDBC.[p_printer_multipage]) AS [p_printer_multipage]" + sSQL &= " , IFNULL(DBC.[p_printer_docpath], RBDBC.[p_printer_docpath]) AS [p_printer_docpath]" + sSQL &= " , IFNULL(DBC.[p_printer_timeout], RBDBC.[p_printer_timeout]) AS [p_printer_timeout]" + sSQL &= " , IFNULL(DBC.[p_parallel_parallel1], RBDBC.[p_parallel_parallel1]) AS [p_parallel_parallel1]" + sSQL &= " , IFNULL(DBC.[p_parallel_parallel2], RBDBC.[p_parallel_parallel2]) AS [p_parallel_parallel2]" + sSQL &= " , IFNULL(DBC.[p_parallel_parallel3], RBDBC.[p_parallel_parallel3]) AS [p_parallel_parallel3]" + sSQL &= " , IFNULL(DBC.[p_parallel_dongle], RBDBC.[p_parallel_dongle]) AS [p_parallel_dongle]" + sSQL &= " , IFNULL(DBC.[p_glide_glide], RBDBC.[p_glide_glide]) AS [p_glide_glide]" + sSQL &= " , IFNULL(DBC.[p_glide_lfb], RBDBC.[p_glide_lfb]) AS [p_glide_lfb]" + sSQL &= " , IFNULL(DBC.[p_glide_splash], RBDBC.[p_glide_splash]) AS [p_glide_splash]" + sSQL &= " , IFNULL(DBC.[p_ne2000_ne2000], RBDBC.[p_ne2000_ne2000]) AS [p_ne2000_ne2000]" + sSQL &= " , IFNULL(DBC.[p_ne2000_nicbase], RBDBC.[p_ne2000_nicbase]) AS [p_ne2000_nicbase]" + sSQL &= " , IFNULL(DBC.[p_ne2000_nicirq], RBDBC.[p_ne2000_nicirq]) AS [p_ne2000_nicirq]" + sSQL &= " , IFNULL(DBC.[p_ne2000_macaddr], RBDBC.[p_ne2000_macaddr]) AS [p_ne2000_macaddr]" + sSQL &= " , IFNULL(DBC.[p_ne2000_realnic], RBDBC.[p_ne2000_realnic]) AS [p_ne2000_realnic]" + sSQL &= " , IFNULL(DBC.[p_ide1_enable], RBDBC.[p_ide1_enable]) AS [p_ide1_enable]" + sSQL &= " , IFNULL(DBC.[p_ide1_int13fakeio], RBDBC.[p_ide1_int13fakeio]) AS [p_ide1_int13fakeio]" + sSQL &= " , IFNULL(DBC.[p_ide1_int13fakev86io], RBDBC.[p_ide1_int13fakev86io]) AS [p_ide1_int13fakev86io]" + sSQL &= " , IFNULL(DBC.[p_ide2_enable], RBDBC.[p_ide2_enable]) AS [p_ide2_enable]" + sSQL &= " , IFNULL(DBC.[p_ide2_int13fakeio], RBDBC.[p_ide2_int13fakeio]) AS [p_ide2_int13fakeio]" + sSQL &= " , IFNULL(DBC.[p_ide2_int13fakev86io], RBDBC.[p_ide2_int13fakev86io]) AS [p_ide2_int13fakev86io]" + sSQL &= " , IFNULL(DBC.[p_ide3_enable], RBDBC.[p_ide3_enable]) AS [p_ide3_enable]" + sSQL &= " , IFNULL(DBC.[p_ide3_int13fakeio], RBDBC.[p_ide3_int13fakeio]) AS [p_ide3_int13fakeio]" + sSQL &= " , IFNULL(DBC.[p_ide3_int13fakev86io], RBDBC.[p_ide3_int13fakev86io]) AS [p_ide3_int13fakev86io]" + sSQL &= " , IFNULL(DBC.[p_ide4_enable], RBDBC.[p_ide4_enable]) AS [p_ide4_enable]" + sSQL &= " , IFNULL(DBC.[p_ide4_int13fakeio], RBDBC.[p_ide4_int13fakeio]) AS [p_ide4_int13fakeio]" + sSQL &= " , IFNULL(DBC.[p_ide4_int13fakev86io], RBDBC.[p_ide4_int13fakev86io]) AS [p_ide4_int13fakev86io]" + sSQL &= " FROM main.tbl_DOSBox_Configs DBC" + sSQL &= " LEFT JOIN rombase.tbl_Rombase_DOSBox_Configs RBDBC ON DBC.id_Rombase_DOSBox_Configs = RBDBC.id_Rombase_DOSBox_Configs" + sSQL &= " WHERE DBC.isTemplate = 1" + If id_DOSBox_Configs <> 0 Then sSQL &= " AND DBC.id_DOSBox_Configs = " & TC.getSQLFormat(id_DOSBox_Configs) + sSQL &= " ORDER BY [Displayname]" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_tbl_DOSBox_Configs(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_DOSBox_ConfigsDataTable, Optional ByVal id_Emu_Games As Long = 0) + If dt Is Nothing Then dt = New DS_ML.tbl_DOSBox_ConfigsDataTable + dt.Clear() + + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " IFNULL(DBC.[id_DOSBox_Configs], DBCT.[id_DOSBox_Configs]) AS [id_DOSBox_Configs]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[id_Rombase_DOSBox_Configs], IFNULL(DBCT.[id_Rombase_DOSBox_Configs], RBDBC.[id_Rombase_DOSBox_Configs])) AS [id_Rombase_DOSBox_Configs]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[Displayname], IFNULL(DBCT.[Displayname], RBDBC.[Displayname])) AS [Displayname]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-fullscreen], IFNULL(DBCT.[sdl-fullscreen], RBDBC.[sdl-fullscreen])) AS [sdl-fullscreen]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-fulldouble], IFNULL(DBCT.[sdl-fulldouble], RBDBC.[sdl-fulldouble])) AS [sdl-fulldouble]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-fullresolution], IFNULL(DBCT.[sdl-fullresolution], RBDBC.[sdl-fullresolution])) AS [sdl-fullresolution]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-windowresolution], IFNULL(DBCT.[sdl-windowresolution], RBDBC.[sdl-windowresolution])) AS [sdl-windowresolution]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-output], IFNULL(DBCT.[sdl-output], RBDBC.[sdl-output])) AS [sdl-output]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-autolock], IFNULL(DBCT.[sdl-autolock], RBDBC.[sdl-autolock])) AS [sdl-autolock]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-sensitivity], IFNULL(DBCT.[sdl-sensitivity], RBDBC.[sdl-sensitivity])) AS [sdl-sensitivity]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-waitonerror], IFNULL(DBCT.[sdl-waitonerror], RBDBC.[sdl-waitonerror])) AS [sdl-waitonerror]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-priority_1], IFNULL(DBCT.[sdl-priority_1], RBDBC.[sdl-priority_1])) AS [sdl-priority_1]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-priority_2], IFNULL(DBCT.[sdl-priority_2], RBDBC.[sdl-priority_2])) AS [sdl-priority_2]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-mapperfile], IFNULL(DBCT.[sdl-mapperfile], RBDBC.[sdl-mapperfile])) AS [sdl-mapperfile]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sdl-usescancodes], IFNULL(DBCT.[sdl-usescancodes], RBDBC.[sdl-usescancodes])) AS [sdl-usescancodes]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dosbox-language], IFNULL(DBCT.[dosbox-language], RBDBC.[dosbox-language])) AS [dosbox-language]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dosbox-machine], IFNULL(DBCT.[dosbox-machine], RBDBC.[dosbox-machine])) AS [dosbox-machine]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dosbox-memsize], IFNULL(DBCT.[dosbox-memsize], RBDBC.[dosbox-memsize])) AS [dosbox-memsize]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[render-frameskip], IFNULL(DBCT.[render-frameskip], RBDBC.[render-frameskip])) AS [render-frameskip]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[render-aspect], IFNULL(DBCT.[render-aspect], RBDBC.[render-aspect])) AS [render-aspect]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[render-scaler], IFNULL(DBCT.[render-scaler], RBDBC.[render-scaler])) AS [render-scaler]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[render-scaler_forced], IFNULL(DBCT.[render-scaler_forced], RBDBC.[render-scaler_forced])) AS [render-scaler_forced]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[cpu-core], IFNULL(DBCT.[cpu-core], RBDBC.[cpu-core])) AS [cpu-core]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[cpu-cputype], IFNULL(DBCT.[cpu-cputype], RBDBC.[cpu-cputype])) AS [cpu-cputype]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[cpu-cycles], IFNULL(DBCT.[cpu-cycles], RBDBC.[cpu-cycles])) AS [cpu-cycles]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[cpu-cycleup], IFNULL(DBCT.[cpu-cycleup], RBDBC.[cpu-cycleup])) AS [cpu-cycleup]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[cpu-cycledown], IFNULL(DBCT.[cpu-cycledown], RBDBC.[cpu-cycledown])) AS [cpu-cycledown]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[mixer-nosound], IFNULL(DBCT.[mixer-nosound], RBDBC.[mixer-nosound])) AS [mixer-nosound]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[mixer-rate], IFNULL(DBCT.[mixer-rate], RBDBC.[mixer-rate])) AS [mixer-rate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[mixer-blocksize], IFNULL(DBCT.[mixer-blocksize], RBDBC.[mixer-blocksize])) AS [mixer-blocksize]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[mixer-prebuffer], IFNULL(DBCT.[mixer-prebuffer], RBDBC.[mixer-prebuffer])) AS [mixer-prebuffer]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[midi-mpu401], IFNULL(DBCT.[midi-mpu401], RBDBC.[midi-mpu401])) AS [midi-mpu401]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[midi-mididevice], IFNULL(DBCT.[midi-mididevice], RBDBC.[midi-mididevice])) AS [midi-mididevice]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[midi-midiconfig], IFNULL(DBCT.[midi-midiconfig], RBDBC.[midi-midiconfig])) AS [midi-midiconfig]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-sbtype], IFNULL(DBCT.[sblaster-sbtype], RBDBC.[sblaster-sbtype])) AS [sblaster-sbtype]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-sbbase], IFNULL(DBCT.[sblaster-sbbase], RBDBC.[sblaster-sbbase])) AS [sblaster-sbbase]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-irq], IFNULL(DBCT.[sblaster-irq], RBDBC.[sblaster-irq])) AS [sblaster-irq]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-dma], IFNULL(DBCT.[sblaster-dma], RBDBC.[sblaster-dma])) AS [sblaster-dma]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-hdma], IFNULL(DBCT.[sblaster-hdma], RBDBC.[sblaster-hdma])) AS [sblaster-hdma]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-sbmixer], IFNULL(DBCT.[sblaster-sbmixer], RBDBC.[sblaster-sbmixer])) AS [sblaster-sbmixer]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-oplmode], IFNULL(DBCT.[sblaster-oplmode], RBDBC.[sblaster-oplmode])) AS [sblaster-oplmode]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-oplemu], IFNULL(DBCT.[sblaster-oplemu], RBDBC.[sblaster-oplemu])) AS [sblaster-oplemu]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[sblaster-oplrate], IFNULL(DBCT.[sblaster-oplrate], RBDBC.[sblaster-oplrate])) AS [sblaster-oplrate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-gus], IFNULL(DBCT.[gus-gus], RBDBC.[gus-gus])) AS [gus-gus]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-gusrate], IFNULL(DBCT.[gus-gusrate], RBDBC.[gus-gusrate])) AS [gus-gusrate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-gusbase], IFNULL(DBCT.[gus-gusbase], RBDBC.[gus-gusbase])) AS [gus-gusbase]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-gusirq], IFNULL(DBCT.[gus-gusirq], RBDBC.[gus-gusirq])) AS [gus-gusirq]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-gusdma], IFNULL(DBCT.[gus-gusdma], RBDBC.[gus-gusdma])) AS [gus-gusdma]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[gus-ultradir], IFNULL(DBCT.[gus-ultradir], RBDBC.[gus-ultradir])) AS [gus-ultradir]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[speaker-pcspeaker], IFNULL(DBCT.[speaker-pcspeaker], RBDBC.[speaker-pcspeaker])) AS [speaker-pcspeaker]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[speaker-pcrate], IFNULL(DBCT.[speaker-pcrate], RBDBC.[speaker-pcrate])) AS [speaker-pcrate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[speaker-tandy], IFNULL(DBCT.[speaker-tandy], RBDBC.[speaker-tandy])) AS [speaker-tandy]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[speaker-tandyrate], IFNULL(DBCT.[speaker-tandyrate], RBDBC.[speaker-tandyrate])) AS [speaker-tandyrate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[speaker-disney], IFNULL(DBCT.[speaker-disney], RBDBC.[speaker-disney])) AS [speaker-disney]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[joystick-joysticktype], IFNULL(DBCT.[joystick-joysticktype], RBDBC.[joystick-joysticktype])) AS [joystick-joysticktype]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[joystick-timed], IFNULL(DBCT.[joystick-timed], RBDBC.[joystick-timed])) AS [joystick-timed]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[joystick-autofire], IFNULL(DBCT.[joystick-autofire], RBDBC.[joystick-autofire])) AS [joystick-autofire]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[joystick-swap34], IFNULL(DBCT.[joystick-swap34], RBDBC.[joystick-swap34])) AS [joystick-swap34]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[joystick-buttonwrap], IFNULL(DBCT.[joystick-buttonwrap], RBDBC.[joystick-buttonwrap])) AS [joystick-buttonwrap]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[serial-serial1], IFNULL(DBCT.[serial-serial1], RBDBC.[serial-serial1])) AS [serial-serial1]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[serial-serial2], IFNULL(DBCT.[serial-serial2], RBDBC.[serial-serial2])) AS [serial-serial2]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[serial-serial3], IFNULL(DBCT.[serial-serial3], RBDBC.[serial-serial3])) AS [serial-serial3]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[serial-serial4], IFNULL(DBCT.[serial-serial4], RBDBC.[serial-serial4])) AS [serial-serial4]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dos-xms], IFNULL(DBCT.[dos-xms], RBDBC.[dos-xms])) AS [dos-xms]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dos-ems], IFNULL(DBCT.[dos-ems], RBDBC.[dos-ems])) AS [dos-ems]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dos-umb], IFNULL(DBCT.[dos-umb], RBDBC.[dos-umb])) AS [dos-umb]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[dos-keyboardlayout], IFNULL(DBCT.[dos-keyboardlayout], RBDBC.[dos-keyboardlayout])) AS [dos-keyboardlayout]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ipx-ipx], IFNULL(DBCT.[ipx-ipx], RBDBC.[ipx-ipx])) AS [ipx-ipx]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[autoexec-before], IFNULL(DBCT.[autoexec-before], RBDBC.[autoexec-before])) AS [autoexec-before]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[autoexec-after], IFNULL(DBCT.[autoexec-after], RBDBC.[autoexec-after])) AS [autoexec-after]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-autoclose], IFNULL(DBCT.[ml-autoclose], RBDBC.[ml-autoclose])) AS [ml-autoclose]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-showconsole], IFNULL(DBCT.[ml-showconsole], RBDBC.[ml-showconsole])) AS [ml-showconsole]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-customsettings], IFNULL(DBCT.[ml-customsettings], RBDBC.[ml-customsettings])) AS [ml-customsettings]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-useloadfix], IFNULL(DBCT.[ml-useloadfix], RBDBC.[ml-useloadfix])) AS [ml-useloadfix]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-loadfix], IFNULL(DBCT.[ml-loadfix], RBDBC.[ml-loadfix])) AS [ml-loadfix]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_master_left], IFNULL(DBCT.[ml-volume_master_left], RBDBC.[ml-volume_master_left])) AS [ml-volume_master_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_master_right], IFNULL(DBCT.[ml-volume_master_right], RBDBC.[ml-volume_master_right])) AS [ml-volume_master_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_spkr_left], IFNULL(DBCT.[ml-volume_spkr_left], RBDBC.[ml-volume_spkr_left])) AS [ml-volume_spkr_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_spkr_right], IFNULL(DBCT.[ml-volume_spkr_right], RBDBC.[ml-volume_spkr_right])) AS [ml-volume_spkr_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_sb_left], IFNULL(DBCT.[ml-volume_sb_left], RBDBC.[ml-volume_sb_left])) AS [ml-volume_sb_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_sb_right], IFNULL(DBCT.[ml-volume_sb_right], RBDBC.[ml-volume_sb_right])) AS [ml-volume_sb_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_disney_left], IFNULL(DBCT.[ml-volume_disney_left], RBDBC.[ml-volume_disney_left])) AS [ml-volume_disney_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_disney_right], IFNULL(DBCT.[ml-volume_disney_right], RBDBC.[ml-volume_disney_right])) AS [ml-volume_disney_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_gus_left], IFNULL(DBCT.[ml-volume_gus_left], RBDBC.[ml-volume_gus_left])) AS [ml-volume_gus_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_gus_right], IFNULL(DBCT.[ml-volume_gus_right], RBDBC.[ml-volume_gus_right])) AS [ml-volume_gus_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_fm_left], IFNULL(DBCT.[ml-volume_fm_left], RBDBC.[ml-volume_fm_left])) AS [ml-volume_fm_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_fm_right], IFNULL(DBCT.[ml-volume_fm_right], RBDBC.[ml-volume_fm_right])) AS [ml-volume_fm_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_cdaudio_left], IFNULL(DBCT.[ml-volume_cdaudio_left], RBDBC.[ml-volume_cdaudio_left])) AS [ml-volume_cdaudio_left]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[ml-volume_cdaudio_right], IFNULL(DBCT.[ml-volume_cdaudio_right], RBDBC.[ml-volume_cdaudio_right])) AS [ml-volume_cdaudio_right]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sdl_pixelshader], IFNULL(DBCT.[p_sdl_pixelshader], RBDBC.[p_sdl_pixelshader])) AS [p_sdl_pixelshader]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sdl_pixelshader_forced], IFNULL(DBCT.[p_sdl_pixelshader_forced], RBDBC.[p_sdl_pixelshader_forced])) AS [p_sdl_pixelshader_forced]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sdl_output], IFNULL(DBCT.[p_sdl_output], RBDBC.[p_sdl_output])) AS [p_sdl_output]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_dosbox_vmemsize], IFNULL(DBCT.[p_dosbox_vmemsize], RBDBC.[p_dosbox_vmemsize])) AS [p_dosbox_vmemsize]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_dosbox_memsizekb], IFNULL(DBCT.[p_dosbox_memsizekb], RBDBC.[p_dosbox_memsizekb])) AS [p_dosbox_memsizekb]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_dosbox_forcerate], IFNULL(DBCT.[p_dosbox_forcerate], RBDBC.[p_dosbox_forcerate])) AS [p_dosbox_forcerate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_dosbox_pit_hack], IFNULL(DBCT.[p_dosbox_pit_hack], RBDBC.[p_dosbox_pit_hack])) AS [p_dosbox_pit_hack]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_render_scaler], IFNULL(DBCT.[p_render_scaler], RBDBC.[p_render_scaler])) AS [p_render_scaler]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_render_autofit], IFNULL(DBCT.[p_render_autofit], RBDBC.[p_render_autofit])) AS [p_render_autofit]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_vsync_vsyncmode], IFNULL(DBCT.[p_vsync_vsyncmode], RBDBC.[p_vsync_vsyncmode])) AS [p_vsync_vsyncmode]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_vsync_vsyncrate], IFNULL(DBCT.[p_vsync_vsyncrate], RBDBC.[p_vsync_vsyncrate])) AS [p_vsync_vsyncrate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_cpu_cputype], IFNULL(DBCT.[p_cpu_cputype], RBDBC.[p_cpu_cputype])) AS [p_cpu_cputype]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_keyboard_aux], IFNULL(DBCT.[p_keyboard_aux], RBDBC.[p_keyboard_aux])) AS [p_keyboard_aux]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_keyboard_auxdevice], IFNULL(DBCT.[p_keyboard_auxdevice], RBDBC.[p_keyboard_auxdevice])) AS [p_keyboard_auxdevice]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_voodoo], IFNULL(DBCT.[p_voodoo], RBDBC.[p_voodoo])) AS [p_voodoo]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_mixer_swapstereo], IFNULL(DBCT.[p_mixer_swapstereo], RBDBC.[p_mixer_swapstereo])) AS [p_mixer_swapstereo]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mididevice], IFNULL(DBCT.[p_midi_mididevice], RBDBC.[p_midi_mididevice])) AS [p_midi_mididevice]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverse_stereo], IFNULL(DBCT.[p_midi_mt32_reverse_stereo], RBDBC.[p_midi_mt32_reverse_stereo])) AS [p_midi_mt32_reverse_stereo]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_verbose], IFNULL(DBCT.[p_midi_mt32_verbose], RBDBC.[p_midi_mt32_verbose])) AS [p_midi_mt32_verbose]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_thread], IFNULL(DBCT.[p_midi_mt32_thread], RBDBC.[p_midi_mt32_thread])) AS [p_midi_mt32_thread]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_dac], IFNULL(DBCT.[p_midi_mt32_dac], RBDBC.[p_midi_mt32_dac])) AS [p_midi_mt32_dac]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_mode], IFNULL(DBCT.[p_midi_mt32_reverb_mode], RBDBC.[p_midi_mt32_reverb_mode])) AS [p_midi_mt32_reverb_mode]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_time], IFNULL(DBCT.[p_midi_mt32_reverb_time], RBDBC.[p_midi_mt32_reverb_time])) AS [p_midi_mt32_reverb_time]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_reverb_level], IFNULL(DBCT.[p_midi_mt32_reverb_level], RBDBC.[p_midi_mt32_reverb_level])) AS [p_midi_mt32_reverb_level]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_midi_mt32_partials], IFNULL(DBCT.[p_midi_mt32_partials], RBDBC.[p_midi_mt32_partials])) AS [p_midi_mt32_partials]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sblaster_oplmode], IFNULL(DBCT.[p_sblaster_oplmode], RBDBC.[p_sblaster_oplmode])) AS [p_sblaster_oplmode]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sblaster_hardwarebase], IFNULL(DBCT.[p_sblaster_hardwarebase], RBDBC.[p_sblaster_hardwarebase])) AS [p_sblaster_hardwarebase]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_sblaster_goldplay], IFNULL(DBCT.[p_sblaster_goldplay], RBDBC.[p_sblaster_goldplay])) AS [p_sblaster_goldplay]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_innova_innova], IFNULL(DBCT.[p_innova_innova], RBDBC.[p_innova_innova])) AS [p_innova_innova]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_innova_samplerate], IFNULL(DBCT.[p_innova_samplerate], RBDBC.[p_innova_samplerate])) AS [p_innova_samplerate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_innova_sidbase], IFNULL(DBCT.[p_innova_sidbase], RBDBC.[p_innova_sidbase])) AS [p_innova_sidbase]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_innova_quality], IFNULL(DBCT.[p_innova_quality], RBDBC.[p_innova_quality])) AS [p_innova_quality]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_speaker_ps1audio], IFNULL(DBCT.[p_speaker_ps1audio], RBDBC.[p_speaker_ps1audio])) AS [p_speaker_ps1audio]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_speaker_ps1audiorate], IFNULL(DBCT.[p_speaker_ps1audiorate], RBDBC.[p_speaker_ps1audiorate])) AS [p_speaker_ps1audiorate]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_printer], IFNULL(DBCT.[p_printer_printer], RBDBC.[p_printer_printer])) AS [p_printer_printer]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_dpi], IFNULL(DBCT.[p_printer_dpi], RBDBC.[p_printer_dpi])) AS [p_printer_dpi]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_width], IFNULL(DBCT.[p_printer_width], RBDBC.[p_printer_width])) AS [p_printer_width]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_height], IFNULL(DBCT.[p_printer_height], RBDBC.[p_printer_height])) AS [p_printer_height]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_printoutput], IFNULL(DBCT.[p_printer_printoutput], RBDBC.[p_printer_printoutput])) AS [p_printer_printoutput]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_multipage], IFNULL(DBCT.[p_printer_multipage], RBDBC.[p_printer_multipage])) AS [p_printer_multipage]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_docpath], IFNULL(DBCT.[p_printer_docpath], RBDBC.[p_printer_docpath])) AS [p_printer_docpath]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_printer_timeout], IFNULL(DBCT.[p_printer_timeout], RBDBC.[p_printer_timeout])) AS [p_printer_timeout]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_parallel_parallel1], IFNULL(DBCT.[p_parallel_parallel1], RBDBC.[p_parallel_parallel1])) AS [p_parallel_parallel1]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_parallel_parallel2], IFNULL(DBCT.[p_parallel_parallel2], RBDBC.[p_parallel_parallel2])) AS [p_parallel_parallel2]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_parallel_parallel3], IFNULL(DBCT.[p_parallel_parallel3], RBDBC.[p_parallel_parallel3])) AS [p_parallel_parallel3]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_parallel_dongle], IFNULL(DBCT.[p_parallel_dongle], RBDBC.[p_parallel_dongle])) AS [p_parallel_dongle]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_glide_glide], IFNULL(DBCT.[p_glide_glide], RBDBC.[p_glide_glide])) AS [p_glide_glide]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_glide_lfb], IFNULL(DBCT.[p_glide_lfb], RBDBC.[p_glide_lfb])) AS [p_glide_lfb]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_glide_splash], IFNULL(DBCT.[p_glide_splash], RBDBC.[p_glide_splash])) AS [p_glide_splash]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ne2000_ne2000], IFNULL(DBCT.[p_ne2000_ne2000], RBDBC.[p_ne2000_ne2000])) AS [p_ne2000_ne2000]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ne2000_nicbase], IFNULL(DBCT.[p_ne2000_nicbase], RBDBC.[p_ne2000_nicbase])) AS [p_ne2000_nicbase]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ne2000_nicirq], IFNULL(DBCT.[p_ne2000_nicirq], RBDBC.[p_ne2000_nicirq])) AS [p_ne2000_nicirq]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ne2000_macaddr], IFNULL(DBCT.[p_ne2000_macaddr], RBDBC.[p_ne2000_macaddr])) AS [p_ne2000_macaddr]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ne2000_realnic], IFNULL(DBCT.[p_ne2000_realnic], RBDBC.[p_ne2000_realnic])) AS [p_ne2000_realnic]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide1_enable], IFNULL(DBCT.[p_ide1_enable], RBDBC.[p_ide1_enable])) AS [p_ide1_enable]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide1_int13fakeio], IFNULL(DBCT.[p_ide1_int13fakeio], RBDBC.[p_ide1_int13fakeio])) AS [p_ide1_int13fakeio]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide1_int13fakev86io], IFNULL(DBCT.[p_ide1_int13fakev86io], RBDBC.[p_ide1_int13fakev86io])) AS [p_ide1_int13fakev86io]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide2_enable], IFNULL(DBCT.[p_ide2_enable], RBDBC.[p_ide2_enable])) AS [p_ide2_enable]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide2_int13fakeio], IFNULL(DBCT.[p_ide2_int13fakeio], RBDBC.[p_ide2_int13fakeio])) AS [p_ide2_int13fakeio]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide2_int13fakev86io], IFNULL(DBCT.[p_ide2_int13fakev86io], RBDBC.[p_ide2_int13fakev86io])) AS [p_ide2_int13fakev86io]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide3_enable], IFNULL(DBCT.[p_ide3_enable], RBDBC.[p_ide3_enable])) AS [p_ide3_enable]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide3_int13fakeio], IFNULL(DBCT.[p_ide3_int13fakeio], RBDBC.[p_ide3_int13fakeio])) AS [p_ide3_int13fakeio]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide3_int13fakev86io], IFNULL(DBCT.[p_ide3_int13fakev86io], RBDBC.[p_ide3_int13fakev86io])) AS [p_ide3_int13fakev86io]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide4_enable], IFNULL(DBCT.[p_ide4_enable], RBDBC.[p_ide4_enable])) AS [p_ide4_enable]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide4_int13fakeio], IFNULL(DBCT.[p_ide4_int13fakeio], RBDBC.[p_ide4_int13fakeio])) AS [p_ide4_int13fakeio]" & ControlChars.CrLf + sSQL &= " , IFNULL(DBC.[p_ide4_int13fakev86io], IFNULL(DBCT.[p_ide4_int13fakev86io], RBDBC.[p_ide4_int13fakev86io])) AS [p_ide4_int13fakev86io]" & ControlChars.CrLf + sSQL &= " FROM main.tbl_Emu_Games EG " & ControlChars.CrLf + sSQL &= " LEFT JOIN main.tbl_DOSBox_Configs DBC ON DBC.id_DOSBox_Configs = EG.id_DOSBox_Configs" & ControlChars.CrLf + sSQL &= " LEFT JOIN main.tbl_DOSBox_Configs DBCT ON DBCT.id_DOSBox_Configs = EG.id_DOSBox_Configs_Template" & ControlChars.CrLf + sSQL &= " LEFT JOIN rombase.tbl_Rombase_DOSBox_Configs RBDBC ON DBCT.id_Rombase_DOSBox_Configs = RBDBC.id_Rombase_DOSBox_Configs" & ControlChars.CrLf + sSQL &= " WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_src_frm_Emulators_DOSBox_Patches(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_frm_Emulators_DOSBox_PatchesDataTable, Optional ByVal id_Emulators As Integer = 0) + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " P.id_DOSBox_Patches" & ControlChars.CrLf + sSQL &= " , PC.id_DOSBox_Patches_Categories" & ControlChars.CrLf + sSQL &= " , PC.Categoryname" & ControlChars.CrLf + sSQL &= " , P.Identifier" & ControlChars.CrLf + sSQL &= " , P.Patchname" & ControlChars.CrLf + sSQL &= " , P.Description" & ControlChars.CrLf + sSQL &= " , EP.Activated" & ControlChars.CrLf + sSQL &= " , P.DAUM_Supported" & ControlChars.CrLf + sSQL &= " , P.MB_Supported" & ControlChars.CrLf + sSQL &= " FROM tbl_DOSBox_Patches P" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_DOSBox_Patches_Categories PC ON P.id_DOSBox_Patches_Categories = PC.id_DOSBox_Patches_Categories" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emulators_DOSBox_Patches EP ON P.id_DOSBox_Patches = EP.id_DOSBox_Patches AND EP.id_Emulators = " & TC.getSQLFormat(id_Emulators) & ControlChars.CrLf + sSQL &= " ORDER BY PC.Sort, P.Sort" & ControlChars.CrLf + + dt.Clear() + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_src_frm_Emulators_DOSBox_Patches_Categories(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.src_frm_Emulators_DOSBox_Patches_CategoriesDataTable) + Dim sSQL As String = "" + sSQL &= " SELECT DISTINCT" & ControlChars.CrLf + sSQL &= " PC.id_DOSBox_Patches_Categories" & ControlChars.CrLf + sSQL &= " , PC.Categoryname" & ControlChars.CrLf + sSQL &= " FROM tbl_DOSBox_Patches P" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_DOSBox_Patches_Categories PC ON P.id_DOSBox_Patches_Categories = PC.id_DOSBox_Patches_Categories" & ControlChars.CrLf + sSQL &= " ORDER BY PC.Sort, P.Sort" & ControlChars.CrLf + dt.Clear() + + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_tbl_Users(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_UsersDataTable, ByVal id_Users As Integer, ByVal ShowOnlyRestricted As Boolean) + dt.Clear() + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Users, Admin, Username, Password, Restricted FROM tbl_Users WHERE 1=1 " & IIf(id_Users > 0, " AND id_Users = " & TC.getSQLFormat(id_Users), "") & IIf(ShowOnlyRestricted, " AND Restricted = 1", "") & " ORDER BY Username", dt, tran) + End Sub + + Public Shared Sub Fill_tbl_Similarity_Calculation_Config(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Similarity_Calculation_ConfigDataTable, Optional ByVal id_Similarity_Calculation_Config As Object = Nothing) + dt.Clear() + + Dim sSQL As String = "" + + If Not IsNumeric(id_Similarity_Calculation_Config) Then + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " 0 AS id_Similarity_Calculation_Config" & ControlChars.CrLf + sSQL &= " , 'Default' AS Name" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_001_Platform" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_002_MobyRank" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_003_MobyScore" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_004_Publisher" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_005_Developer" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_006_Year" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_101_Basic_Genres" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_102_Perspectives" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_103_Sports_Themes" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_105_Educational_Categories" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_106_Other_Attributes" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_107_Visual_Presentation" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_108_Gameplay" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_109_Pacing" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_110_Narrative_Theme_Topic" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_111_Setting" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_112_Vehicular_Themes" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_113_Interface_Control" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_114_DLC_Addon" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_115_Special_Edition" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_201_MinPlayers" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_202_MaxPlayers" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_203_AgeO" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_204_AgeP" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_205_Rating_Descriptors" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_206_Other_Attributes" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_207_Multiplayer_Attributes" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_301_Group_Membership" & ControlChars.CrLf + sSQL &= " , 1 AS Weight_401_Staff" & ControlChars.CrLf + sSQL &= " , 0 AS Sort" & ControlChars.CrLf + sSQL &= "UNION" & ControlChars.CrLf + End If + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " id_Similarity_Calculation_Config" & ControlChars.CrLf + sSQL &= " , Name" & ControlChars.CrLf + sSQL &= " , Weight_001_Platform" & ControlChars.CrLf + sSQL &= " , Weight_002_MobyRank" & ControlChars.CrLf + sSQL &= " , Weight_003_MobyScore" & ControlChars.CrLf + sSQL &= " , Weight_004_Publisher" & ControlChars.CrLf + sSQL &= " , Weight_005_Developer" & ControlChars.CrLf + sSQL &= " , Weight_006_Year" & ControlChars.CrLf + sSQL &= " , Weight_101_Basic_Genres" & ControlChars.CrLf + sSQL &= " , Weight_102_Perspectives" & ControlChars.CrLf + sSQL &= " , Weight_103_Sports_Themes" & ControlChars.CrLf + sSQL &= " , Weight_105_Educational_Categories" & ControlChars.CrLf + sSQL &= " , Weight_106_Other_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_107_Visual_Presentation" & ControlChars.CrLf + sSQL &= " , Weight_108_Gameplay" & ControlChars.CrLf + sSQL &= " , Weight_109_Pacing" & ControlChars.CrLf + sSQL &= " , Weight_110_Narrative_Theme_Topic" & ControlChars.CrLf + sSQL &= " , Weight_111_Setting" & ControlChars.CrLf + sSQL &= " , Weight_112_Vehicular_Themes" & ControlChars.CrLf + sSQL &= " , Weight_113_Interface_Control" & ControlChars.CrLf + sSQL &= " , Weight_114_DLC_Addon" & ControlChars.CrLf + sSQL &= " , Weight_115_Special_Edition" & ControlChars.CrLf + sSQL &= " , Weight_201_MinPlayers" & ControlChars.CrLf + sSQL &= " , Weight_202_MaxPlayers" & ControlChars.CrLf + sSQL &= " , Weight_203_AgeO" & ControlChars.CrLf + sSQL &= " , Weight_204_AgeP" & ControlChars.CrLf + sSQL &= " , Weight_205_Rating_Descriptors" & ControlChars.CrLf + sSQL &= " , Weight_206_Other_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_207_Multiplayer_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_301_Group_Membership" & ControlChars.CrLf + sSQL &= " , Weight_401_Staff" & ControlChars.CrLf + sSQL &= " , 1 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Similarity_Calculation_Config" & ControlChars.CrLf + + If IsNumeric(id_Similarity_Calculation_Config) Then + sSQL &= "WHERE id_Similarity_Calculation_Config = " & TC.getSQLFormat(id_Similarity_Calculation_Config) & ControlChars.CrLf + End If + + sSQL &= "ORDER BY Sort, Name" & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Function GenSQL_Fill_tbl_Similarity_Calculation_Genre(ByVal id_Moby_Genres_Categories, ByVal ColumnName) + Dim sSQL As String = "" + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0 " & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMGC" & ControlChars.CrLf + sSQL &= " WHERE EGMGC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_Genres.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND GC.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT temp_GenresC.id_Moby_Genres FROM" & ControlChars.CrLf + sSQL &= " ( SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMGC" & ControlChars.CrLf + sSQL &= " WHERE EGMGC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_GenresC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_GenresC.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND GC.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) " & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMGC" & ControlChars.CrLf + sSQL &= " WHERE EGMGC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " INNER JOIN tbl_Moby_Genres G" & ControlChars.CrLf + sSQL &= " ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " INTERSECT" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS " & ColumnName & ControlChars.CrLf + Return sSQL + End Function + + Public Shared Function GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(ByVal id_Moby_Genres_Categories, ByVal ColumnName) + Dim sSQL As String = "" + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0 " & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_Genres.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT temp_GenresC.id_Moby_Genres FROM" & ControlChars.CrLf + sSQL &= " ( SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_GenresC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres GC ON temp_GenresC.id_Moby_Genres = GC.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE GC.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) " & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres FROM tbl_Moby_Games_Genres GGC" & ControlChars.CrLf + sSQL &= " WHERE GGC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " INNER JOIN tbl_Moby_Genres G" & ControlChars.CrLf + sSQL &= " ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres_Categories = " & TC.getSQLFormat(id_Moby_Genres_Categories) & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS " & ColumnName & ControlChars.CrLf + Return sSQL + End Function + + Public Shared Sub Fill_tbl_Similarity_Calculation(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Similarity_CalculationDataTable, ByVal id_Emu_Games As Integer, ByVal id_Similarity_Calculation_Config As Integer, ByVal Only_Show_Haves As Boolean) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= "-- Cleanup Temp. Tables" & ControlChars.CrLf + sSQL &= "DELETE FROM ttb_Emu_Games_Similarity_Calculation;" & ControlChars.CrLf + sSQL &= "DELETE FROM ttb_Moby_Releases_Similarity_Calculation;" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Calculate Similarity for Emu_Games" & ControlChars.CrLf + sSQL &= "INSERT INTO ttb_Emu_Games_Similarity_Calculation" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= " id_Emu_Games" & ControlChars.CrLf + sSQL &= " , id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , [001_Platform]" & ControlChars.CrLf + sSQL &= " , [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , [004_Publisher]" & ControlChars.CrLf + sSQL &= " , [005_Developer]" & ControlChars.CrLf + sSQL &= " , [006_Year]" & ControlChars.CrLf + sSQL &= " , [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , [109_Pacing]" & ControlChars.CrLf + sSQL &= " , [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , [111_Setting]" & ControlChars.CrLf + sSQL &= " , [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , [203_AgeO]" & ControlChars.CrLf + sSQL &= " , [204_AgeP]" & ControlChars.CrLf + sSQL &= " , [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , [401_Staff]" & ControlChars.CrLf + sSQL &= " , Similarity" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + sSQL &= "SELECT " & ControlChars.CrLf + sSQL &= " SubSim.id_Emu_Games AS id_Emu_Games" & ControlChars.CrLf + sSQL &= " , SubSim.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , SubSim.[001_Platform] AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , SubSim.[002_MobyRank] AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , SubSim.[003_MobyScore] AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , SubSim.[004_Publisher] AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , SubSim.[005_Developer] AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , SubSim.[006_Year] AS [006_Year]" & ControlChars.CrLf + sSQL &= " , SubSim.[101_Basic_Genres] AS [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , SubSim.[102_Perspectives] AS [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , SubSim.[103_Sports_Themes] AS [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , SubSim.[105_Educational_Categories] AS [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , SubSim.[106_Other_Attributes] AS [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , SubSim.[107_Visual_Presentation] AS [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , SubSim.[108_Gameplay] AS [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , SubSim.[109_Pacing] AS [109_Pacing]" & ControlChars.CrLf + sSQL &= " , SubSim.[110_Narrative_Theme_Topic] AS [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , SubSim.[111_Setting] AS [111_Setting]" & ControlChars.CrLf + sSQL &= " , SubSim.[112_Vehicular_Themes] AS [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , SubSim.[113_Interface_Control] AS [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , SubSim.[114_DLC_Addon] AS [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , SubSim.[115_Special_Edition] AS [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , SubSim.[201_MinPlayers] AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , SubSim.[202_MaxPlayers] AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , SubSim.[203_AgeO] AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , SubSim.[204_AgeP] AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , SubSim.[205_Rating_Descriptors] AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , SubSim.[206_Other_Attributes] AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , SubSim.[207_Multiplayer_Attributes] AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , SubSim.[301_Group_Membership] AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , SubSim.[401_Staff] AS [401_Staff]" & ControlChars.CrLf + sSQL &= " , CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[001_Platform], 0) * IFNULL(SimConf.[Weight_001_Platform], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[002_MobyRank], 0) * IFNULL(SimConf.[Weight_002_MobyRank], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[003_MobyScore], 0) * IFNULL(SimConf.[Weight_003_MobyScore], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[004_Publisher], 0) * IFNULL(SimConf.[Weight_004_Publisher], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[005_Developer], 0) * IFNULL(SimConf.[Weight_005_Developer], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[006_Year], 0) * IFNULL(SimConf.[Weight_006_Year], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[101_Basic_Genres], 0) * IFNULL(SimConf.[Weight_101_Basic_Genres], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[102_Perspectives], 0) * IFNULL(SimConf.[Weight_102_Perspectives], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[103_Sports_Themes], 0) * IFNULL(SimConf.[Weight_103_Sports_Themes], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[105_Educational_Categories], 0) * IFNULL(SimConf.[Weight_105_Educational_Categories], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[106_Other_Attributes], 0) * IFNULL(SimConf.[Weight_106_Other_Attributes], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[107_Visual_Presentation], 0) * IFNULL(SimConf.[Weight_107_Visual_Presentation], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[108_Gameplay], 0) * IFNULL(SimConf.[Weight_108_Gameplay], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[109_Pacing], 0) * IFNULL(SimConf.[Weight_109_Pacing], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[110_Narrative_Theme_Topic], 0) * IFNULL(SimConf.[Weight_110_Narrative_Theme_Topic], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[111_Setting], 0) * IFNULL(SimConf.[Weight_111_Setting], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[112_Vehicular_Themes], 0) * IFNULL(SimConf.[Weight_112_Vehicular_Themes], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[113_Interface_Control], 0) * IFNULL(SimConf.[Weight_113_Interface_Control], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[114_DLC_Addon], 0) * IFNULL(SimConf.[Weight_114_DLC_Addon], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[115_Special_Edition], 0) * IFNULL(SimConf.[Weight_115_Special_Edition], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[201_MinPlayers], 0) * IFNULL(SimConf.[Weight_201_MinPlayers], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[202_MaxPlayers], 0) * IFNULL(SimConf.[Weight_202_MaxPlayers], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[203_AgeO], 0) * IFNULL(SimConf.[Weight_203_AgeO], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[204_AgeP], 0) * IFNULL(SimConf.[Weight_204_AgeP], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[205_Rating_Descriptors], 0) * IFNULL(SimConf.[Weight_205_Rating_Descriptors], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[206_Other_Attributes], 0) * IFNULL(SimConf.[Weight_206_Other_Attributes], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[207_Multiplayer_Attributes], 0) * IFNULL(SimConf.[Weight_207_Multiplayer_Attributes], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[301_Group_Membership], 0) * IFNULL(SimConf.[Weight_301_Group_Membership], 1)" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL(SubSim.[401_Staff], 0) * IFNULL(SimConf.[Weight_401_Staff], 1)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " ( MAX" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[001_Platform] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_001_Platform], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[002_MobyRank] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_002_MobyRank], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[003_MobyScore] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_003_MobyScore], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[004_Publisher] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_004_Publisher], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[005_Developer] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_005_Developer], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[006_Year] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_006_Year], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[101_Basic_Genres] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_101_Basic_Genres], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[102_Perspectives] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_102_Perspectives], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[103_Sports_Themes] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_103_Sports_Themes], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[105_Educational_Categories] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_105_Educational_Categories], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[106_Other_Attributes] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_106_Other_Attributes], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[107_Visual_Presentation] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_107_Visual_Presentation], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[108_Gameplay] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_108_Gameplay], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[109_Pacing] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_109_Pacing], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[110_Narrative_Theme_Topic] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_110_Narrative_Theme_Topic], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[111_Setting] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_111_Setting], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[112_Vehicular_Themes] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_112_Vehicular_Themes], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[113_Interface_Control] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_113_Interface_Control], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[114_DLC_Addon] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_114_DLC_Addon], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[115_Special_Edition] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_115_Special_Edition], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[201_MinPlayers] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_201_MinPlayers], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[202_MaxPlayers] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_202_MaxPlayers], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[203_AgeO] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_203_AgeO], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[204_AgeP] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_204_AgeP], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[205_Rating_Descriptors] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_205_Rating_Descriptors], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[206_Other_Attributes] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_206_Other_Attributes], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[207_Multiplayer_Attributes] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_207_Multiplayer_Attributes], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[301_Group_Membership] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_301_Group_Membership], 1) END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN SubSim.[401_Staff] IS NULL THEN 0 ELSE IFNULL(SimConf.[Weight_401_Staff], 1) END * 100" & ControlChars.CrLf + sSQL &= " , 1" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS [Similarity]" & ControlChars.CrLf + sSQL &= "FROM" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= " SELECT EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " , MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , CASE WHEN EG.id_Moby_Platforms = EGC.id_Moby_Platforms THEN 100 ELSE 0 END AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , CASE WHEN MR.MobyRank IS NOT NULL OR MRC.MobyRank IS NOT NULL" & ControlChars.CrLf + sSQL &= " THEN 100 - ABS(IFNULL(MR.MobyRank, 0) - IFNULL(MRC.MobyRank, 0))" & ControlChars.CrLf + sSQL &= " ELSE NULL" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , CASE WHEN MR.MobyScore IS NOT NULL OR MRC.MobyScore IS NOT NULL" & ControlChars.CrLf + sSQL &= " THEN CAST(100 - ABS(20.0*IFNULL(MR.MobyScore, 0) - 20.0*IFNULL(MRC.MobyScore, 0)) AS INTEGER)" & ControlChars.CrLf + sSQL &= " ELSE NULL" & ControlChars.CrLf + sSQL &= " END AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , CASE WHEN IFNULL(EG.Publisher, C1.Name) IS NULL AND IFNULL(EGC.Publisher, C1C.Name) IS NULL THEN NULL" & ControlChars.CrLf + sSQL &= " WHEN IFNULL(EG.Publisher, C1.Name) = IFNULL(EGC.Publisher, C1C.Name) THEN 100" & ControlChars.CrLf + sSQL &= " ELSE 0" & ControlChars.CrLf + sSQL &= " END AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , CASE WHEN IFNULL(EG.Developer, C2.Name) IS NULL AND IFNULL(EGC.Developer, C2C.Name) IS NULL THEN NULL" & ControlChars.CrLf + sSQL &= " WHEN IFNULL(EG.Developer, C2.Name) = IFNULL(EGC.Developer, C2C.Name) THEN 100" & ControlChars.CrLf + sSQL &= " ELSE 0 " & ControlChars.CrLf + sSQL &= " END AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , CASE WHEN (IFNULL(EG.Year, MR.Year) IS NULL OR IFNULL(EG.Year, MR.Year) < 1950) AND (IFNULL(EGC.Year, MRC.Year) IS NULL OR IFNULL(EGC.Year, MRC.Year) < 1950) THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE MAX(100 - (10 * CAST(ABS(IFNULL(EG.Year, MR.Year) - IFNULL(EGC.Year, MRC.Year)) / 2 AS INTEGER)), 0)" & ControlChars.CrLf + sSQL &= " END AS [006_Year]" & ControlChars.CrLf + + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Basic_Genres, "[101_Basic_Genres]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Perspective, "[102_Perspectives]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Sports_Themes, "[103_Sports_Themes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Educational_Categories, "[105_Educational_Categories]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Other_Attributes, "[106_Other_Attributes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Visual_Presentation, "[107_Visual_Presentation]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Gameplay, "[108_Gameplay]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Pacing, "[109_Pacing]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Narrative_Theme_Topic, "[110_Narrative_Theme_Topic]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Setting, "[111_Setting]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Vehicular_Themes, "[112_Vehicular_Themes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Interface_Control, "[113_Interface_Control]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.DLC_Addon, "[114_DLC_Addon]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_Genre(cls_Globals.enm_Moby_Genres_Categories.Special_Edition, "[115_Special_Edition]") + + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE ACC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " INTERSECT" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(ACC.RatingDescriptor, 0) = 0 AND IFNULL(ACC.RatingSystem, 0) = 0 AND IFNULL(ACC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " WHERE temp_AttributesC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " INTERSECT" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND AC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " WHERE temp_AttributesC.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMAC" & ControlChars.CrLf + sSQL &= " WHERE EGMAC.id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " INTERSECT" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EGC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INTERSECT SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INTERSECT SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [401_Staff]" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games EG" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Games MG ON EG.Moby_Games_URLPart = MG.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases MR ON EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C1 ON MR.Publisher_id_Moby_Companies = C1.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C2 ON MR.Developer_id_Moby_Companies = C2.id_Moby_Companies" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games EGC ON EGC.id_Emu_Games_Owner IS NULL AND EGC.id_Emu_Games > 0" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Games MGC ON EGC.Moby_Games_URLPart = MGC.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases MRC ON EGC.id_Moby_Platforms = MRC.id_Moby_Platforms AND MGC.id_Moby_Games = MRC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C1C ON MRC.Publisher_id_Moby_Companies = C1C.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C2C ON MRC.Developer_id_Moby_Companies = C2C.id_Moby_Companies" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " -- variable" & ControlChars.CrLf + sSQL &= ") SubSim" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Similarity_Calculation_Config SimConf ON SimConf.id_Similarity_Calculation_Config = " & TC.getSQLFormat(id_Similarity_Calculation_Config) & " -- variable" & ControlChars.CrLf + sSQL &= ";" & ControlChars.CrLf + + If Not Only_Show_Haves Then + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Calculate Similarity for Moby Releases (that are not already calculated through Emu Games)" & ControlChars.CrLf + sSQL &= " INSERT INTO ttb_Moby_Releases_Similarity_Calculation" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , [001_Platform]" & ControlChars.CrLf + sSQL &= " , [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , [004_Publisher]" & ControlChars.CrLf + sSQL &= " , [005_Developer]" & ControlChars.CrLf + sSQL &= " , [006_Year]" & ControlChars.CrLf + sSQL &= " , [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , [109_Pacing]" & ControlChars.CrLf + sSQL &= " , [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , [111_Setting]" & ControlChars.CrLf + sSQL &= " , [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , [203_AgeO]" & ControlChars.CrLf + sSQL &= " , [204_AgeP]" & ControlChars.CrLf + sSQL &= " , [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , [401_Staff]" & ControlChars.CrLf + sSQL &= " , Weight_001_Platform" & ControlChars.CrLf + sSQL &= " , Weight_002_MobyRank" & ControlChars.CrLf + sSQL &= " , Weight_003_MobyScore" & ControlChars.CrLf + sSQL &= " , Weight_004_Publisher" & ControlChars.CrLf + sSQL &= " , Weight_005_Developer" & ControlChars.CrLf + sSQL &= " , Weight_006_Year" & ControlChars.CrLf + sSQL &= " , Weight_101_Basic_Genres" & ControlChars.CrLf + sSQL &= " , Weight_102_Perspectives" & ControlChars.CrLf + sSQL &= " , Weight_103_Sports_Themes" & ControlChars.CrLf + sSQL &= " , Weight_105_Educational_Categories" & ControlChars.CrLf + sSQL &= " , Weight_106_Other_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_107_Visual_Presentation" & ControlChars.CrLf + sSQL &= " , Weight_108_Gameplay" & ControlChars.CrLf + sSQL &= " , Weight_109_Pacing" & ControlChars.CrLf + sSQL &= " , Weight_110_Narrative_Theme_Topic" & ControlChars.CrLf + sSQL &= " , Weight_111_Setting" & ControlChars.CrLf + sSQL &= " , Weight_112_Vehicular_Themes" & ControlChars.CrLf + sSQL &= " , Weight_113_Interface_Control" & ControlChars.CrLf + sSQL &= " , Weight_114_DLC_Addon" & ControlChars.CrLf + sSQL &= " , Weight_115_Special_Edition" & ControlChars.CrLf + sSQL &= " , Weight_201_MinPlayers" & ControlChars.CrLf + sSQL &= " , Weight_202_MaxPlayers" & ControlChars.CrLf + sSQL &= " , Weight_203_AgeO" & ControlChars.CrLf + sSQL &= " , Weight_204_AgeP" & ControlChars.CrLf + sSQL &= " , Weight_205_Rating_Descriptors" & ControlChars.CrLf + sSQL &= " , Weight_206_Other_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_207_Multiplayer_Attributes" & ControlChars.CrLf + sSQL &= " , Weight_301_Group_Membership" & ControlChars.CrLf + sSQL &= " , Weight_401_Staff" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " SELECT MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , CASE WHEN EG.id_Moby_Platforms = MRC.id_Moby_Platforms THEN 100 ELSE 0 END AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , CASE WHEN MR.MobyRank IS NOT NULL OR MRC.MobyRank IS NOT NULL" & ControlChars.CrLf + sSQL &= " THEN 100 - ABS(IFNULL(MR.MobyRank, 0) - IFNULL(MRC.MobyRank, 0))" & ControlChars.CrLf + sSQL &= " ELSE NULL" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , CASE WHEN MR.MobyScore IS NOT NULL OR MRC.MobyScore IS NOT NULL" & ControlChars.CrLf + sSQL &= " THEN CAST(100 - ABS(20.0*IFNULL(MR.MobyScore, 0) - 20.0*IFNULL(MRC.MobyScore, 0)) AS INTEGER)" & ControlChars.CrLf + sSQL &= " ELSE NULL" & ControlChars.CrLf + sSQL &= " END AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , CASE WHEN IFNULL(EG.Publisher, C1.Name) IS NULL AND C1C.Name IS NULL THEN NULL" & ControlChars.CrLf + sSQL &= " WHEN IFNULL(EG.Publisher, C1.Name) = C1C.Name THEN 100" & ControlChars.CrLf + sSQL &= " ELSE 0" & ControlChars.CrLf + sSQL &= " END AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , CASE WHEN IFNULL(EG.Developer, C2.Name) IS NULL AND C2C.Name IS NULL THEN NULL" & ControlChars.CrLf + sSQL &= " WHEN IFNULL(EG.Developer, C2.Name) = C2C.Name THEN 100" & ControlChars.CrLf + sSQL &= " ELSE 0 " & ControlChars.CrLf + sSQL &= " END AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , CASE WHEN (IFNULL(EG.Year, MR.Year) IS NULL OR IFNULL(EG.Year, MR.Year) < 1950) AND (MRC.Year IS NULL OR MRC.Year < 1950) THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE MAX(100 - (10 * CAST(ABS(IFNULL(EG.Year, MR.Year) - MRC.Year) / 2 AS INTEGER)), 0)" & ControlChars.CrLf + sSQL &= " END AS [006_Year]" & ControlChars.CrLf + + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Basic_Genres, "[101_Basic_Genres]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Perspective, "[102_Perspectives]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Sports_Themes, "[103_Sports_Themes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Educational_Categories, "[105_Educational_Categories]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Other_Attributes, "[106_Other_Attributes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Visual_Presentation, "[107_Visual_Presentation]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Gameplay, "[108_Gameplay]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Pacing, "[109_Pacing]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Narrative_Theme_Topic, "[110_Narrative_Theme_Topic]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Setting, "[111_Setting]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Vehicular_Themes, "[112_Vehicular_Themes]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Interface_Control, "[113_Interface_Control]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.DLC_Addon, "[114_DLC_Addon]") + sSQL &= GenSQL_Fill_tbl_Similarity_Calculation_MobyReleases_Genre(cls_Globals.enm_Moby_Genres_Categories.Special_Edition, "[115_Special_Edition]") + + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.MinPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.MaxPlayers) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " ) IS NULL" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " MAX(0," & ControlChars.CrLf + sSQL &= " 100 - " & ControlChars.CrLf + sSQL &= " 10 * ABS" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " -" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(AC.Rating_Age_From) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE ACC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = MRC.id_Moby_Releases) -- HERE!" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.RatingDescriptor = 1" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(ACC.RatingDescriptor, 0) = 0 AND IFNULL(ACC.RatingSystem, 0) = 0 AND IFNULL(ACC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = MRC.id_Moby_Releases) -- HERE!" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE IFNULL(AC.RatingDescriptor, 0) = 0 AND IFNULL(AC.RatingSystem, 0) = 0 AND IFNULL(AC.NumPlayersCategory, 0) = 0 AND AC.id_Moby_Attributes_Categories NOT IN (12, 16)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_AttributesC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes AC ON temp_AttributesC.id_Moby_Attributes = AC.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories ACC ON AC.id_Moby_Attributes_Categories = ACC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes IN (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = MRC.id_Moby_Releases) -- HERE!" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RAC" & ControlChars.CrLf + sSQL &= " WHERE RAC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes_Categories AC ON A.id_Moby_Attributes_Categories = AC.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE AC.id_Moby_Attributes_Categories IN (12, 16)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INTERSECT SELECT DISTINCT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMR" & ControlChars.CrLf + sSQL &= " WHERE MGGMR.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups_Moby_Releases MGGMRC" & ControlChars.CrLf + sSQL &= " WHERE MGGMRC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , CASE WHEN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) = 0" & ControlChars.CrLf + sSQL &= " THEN NULL" & ControlChars.CrLf + sSQL &= " ELSE" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INTERSECT SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT COUNT(1) FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " UNION SELECT DISTINCT id_Moby_Staff FROM tbl_Moby_Releases_Staff MRSC" & ControlChars.CrLf + sSQL &= " WHERE MRSC.id_Moby_Releases = MRC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS [401_Staff]" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_001_Platform, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_002_MobyRank, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_003_MobyScore, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_004_Publisher, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_005_Developer, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_006_Year, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_101_Basic_Genres, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_102_Perspectives, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_103_Sports_Themes, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_105_Educational_Categories, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_106_Other_Attributes, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_107_Visual_Presentation, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_108_Gameplay, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_109_Pacing, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_110_Narrative_Theme_Topic, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_111_Setting, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_112_Vehicular_Themes, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_113_Interface_Control, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_114_DLC_Addon, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_115_Special_Edition, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_201_MinPlayers, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_202_MaxPlayers, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_203_AgeO, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_204_AgeP, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_205_Rating_Descriptors, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_206_Other_Attributes, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_207_Multiplayer_Attributes, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_301_Group_Membership, 1)" & ControlChars.CrLf + sSQL &= " , IFNULL(SimConf.Weight_401_Staff, 1)" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games EG" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Games MG ON EG.Moby_Games_URLPart = MG.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases MR ON EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C1 ON MR.Publisher_id_Moby_Companies = C1.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C2 ON MR.Developer_id_Moby_Companies = C2.id_Moby_Companies" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases MRC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Games MGC ON MRC.id_Moby_Games = MGC.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C1C ON MRC.Publisher_id_Moby_Companies = C1C.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Companies C2C ON MRC.Developer_id_Moby_Companies = C2C.id_Moby_Companies" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Similarity_Calculation_Config SimConf ON SimConf.id_Similarity_Calculation_Config = " & TC.getSQLFormat(id_Similarity_Calculation_Config) & " -- variable" & ControlChars.CrLf + sSQL &= " WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " -- variable" & ControlChars.CrLf + sSQL &= " AND MRC.id_Moby_Releases NOT IN (SELECT id_Moby_Releases FROM ttb_Emu_Games_Similarity_Calculation WHERE id_Moby_Releases IS NOT NULL)" & ControlChars.CrLf + sSQL &= ";" & ControlChars.CrLf + sSQL &= "UPDATE ttb_Moby_Releases_Similarity_Calculation" & ControlChars.CrLf + sSQL &= "SET Similarity =" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " IFNULL([001_Platform], 0) * [Weight_001_Platform]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([002_MobyRank], 0) * [Weight_002_MobyRank]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([003_MobyScore], 0) * [Weight_003_MobyScore]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([004_Publisher], 0) * [Weight_004_Publisher]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([005_Developer], 0) * [Weight_005_Developer]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([006_Year], 0) * [Weight_006_Year]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([101_Basic_Genres], 0) * [Weight_101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([102_Perspectives], 0) * [Weight_102_Perspectives]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([103_Sports_Themes], 0) * [Weight_103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([105_Educational_Categories], 0) * [Weight_105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([106_Other_Attributes], 0) * [Weight_106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([107_Visual_Presentation], 0) * [Weight_107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([108_Gameplay], 0) * [Weight_108_Gameplay]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([109_Pacing], 0) * [Weight_109_Pacing]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([110_Narrative_Theme_Topic], 0) * [Weight_110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([111_Setting], 0) * [Weight_111_Setting]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([112_Vehicular_Themes], 0) * [Weight_112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([113_Interface_Control], 0) * [Weight_113_Interface_Control]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([114_DLC_Addon], 0) * [Weight_114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([115_Special_Edition], 0) * [Weight_115_Special_Edition]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([201_MinPlayers], 0) * [Weight_201_MinPlayers]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([202_MaxPlayers], 0) * [Weight_202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([203_AgeO], 0) * [Weight_203_AgeO]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([204_AgeP], 0) * [Weight_204_AgeP]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([205_Rating_Descriptors], 0) * [Weight_205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([206_Other_Attributes], 0) * [Weight_206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([207_Multiplayer_Attributes], 0) * [Weight_207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([301_Group_Membership], 0) * [Weight_301_Group_Membership]" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " IFNULL([401_Staff], 0) * [Weight_401_Staff]" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " /" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " CAST" & ControlChars.CrLf + sSQL &= " ( MAX" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " CASE WHEN [001_Platform] IS NULL THEN 0 ELSE [Weight_001_Platform] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [002_MobyRank] IS NULL THEN 0 ELSE [Weight_002_MobyRank] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [003_MobyScore] IS NULL THEN 0 ELSE [Weight_003_MobyScore] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [004_Publisher] IS NULL THEN 0 ELSE [Weight_004_Publisher] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [005_Developer] IS NULL THEN 0 ELSE [Weight_005_Developer] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [006_Year] IS NULL THEN 0 ELSE [Weight_006_Year] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [101_Basic_Genres] IS NULL THEN 0 ELSE [Weight_101_Basic_Genres] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [102_Perspectives] IS NULL THEN 0 ELSE [Weight_102_Perspectives] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [103_Sports_Themes] IS NULL THEN 0 ELSE [Weight_103_Sports_Themes] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [105_Educational_Categories] IS NULL THEN 0 ELSE [Weight_105_Educational_Categories] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [106_Other_Attributes] IS NULL THEN 0 ELSE [Weight_106_Other_Attributes] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [107_Visual_Presentation] IS NULL THEN 0 ELSE [Weight_107_Visual_Presentation] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [108_Gameplay] IS NULL THEN 0 ELSE [Weight_108_Gameplay] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [109_Pacing] IS NULL THEN 0 ELSE [Weight_109_Pacing] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [110_Narrative_Theme_Topic] IS NULL THEN 0 ELSE [Weight_110_Narrative_Theme_Topic] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [111_Setting] IS NULL THEN 0 ELSE [Weight_111_Setting] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [112_Vehicular_Themes] IS NULL THEN 0 ELSE [Weight_112_Vehicular_Themes] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [113_Interface_Control] IS NULL THEN 0 ELSE [Weight_113_Interface_Control] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [114_DLC_Addon] IS NULL THEN 0 ELSE [Weight_114_DLC_Addon] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [115_Special_Edition] IS NULL THEN 0 ELSE [Weight_115_Special_Edition] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [201_MinPlayers] IS NULL THEN 0 ELSE [Weight_201_MinPlayers] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [202_MaxPlayers] IS NULL THEN 0 ELSE [Weight_202_MaxPlayers] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [203_AgeO] IS NULL THEN 0 ELSE [Weight_203_AgeO] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [204_AgeP] IS NULL THEN 0 ELSE [Weight_204_AgeP] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [205_Rating_Descriptors] IS NULL THEN 0 ELSE [Weight_205_Rating_Descriptors] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [206_Other_Attributes] IS NULL THEN 0 ELSE [Weight_206_Other_Attributes] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [207_Multiplayer_Attributes] IS NULL THEN 0 ELSE [Weight_207_Multiplayer_Attributes] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [301_Group_Membership] IS NULL THEN 0 ELSE [Weight_301_Group_Membership] END * 100" & ControlChars.CrLf + sSQL &= " +" & ControlChars.CrLf + sSQL &= " CASE WHEN [401_Staff] IS NULL THEN 0 ELSE [Weight_401_Staff] END * 100" & ControlChars.CrLf + sSQL &= " , 1" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS FLOAT" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " * 100" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= " AS INTEGER" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= "; " & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + End If + + sSQL &= "-- Output" & ControlChars.CrLf + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " EGSC.id_Emu_Games AS id_Emu_Games" & ControlChars.CrLf + sSQL &= " , EGSC.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , CASE WHEN EG.Name IS NULL" & ControlChars.CrLf + sSQL &= " THEN CASE WHEN MG.Name IS NULL " & ControlChars.CrLf + sSQL &= " THEN IFNULL(EG.InnerFile, EG.File)" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EG.Name_Prefix || ' ', IFNULL(MG.Name_Prefix || ' ', '')) || IFNULL(MG.Name, '') || IFNULL(' (' || EG.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EG.Name_Prefix || ' ', '') || IFNULL(EG.Name, '') || IFNULL(' (' || EG.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS Game" & ControlChars.CrLf + sSQL &= " , PLTFM.Name AS Platform" & ControlChars.CrLf + sSQL &= " , EG.Folder AS Folder" & ControlChars.CrLf + sSQL &= " , EG.File AS File" & ControlChars.CrLf + sSQL &= " , EG.InnerFile AS InnerFile" & ControlChars.CrLf + sSQL &= " , 1 AS Have" & ControlChars.CrLf + sSQL &= " , Similarity" & ControlChars.CrLf + sSQL &= " , EGSC.[001_Platform] AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , EGSC.[002_MobyRank] AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , EGSC.[003_MobyScore] AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , EGSC.[004_Publisher] AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , EGSC.[005_Developer] AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , EGSC.[006_Year] AS [006_Year]" & ControlChars.CrLf + sSQL &= " , EGSC.[101_Basic_Genres] AS [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , EGSC.[102_Perspectives] AS [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , EGSC.[103_Sports_Themes] AS [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , EGSC.[105_Educational_Categories] AS [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , EGSC.[106_Other_Attributes] AS [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , EGSC.[107_Visual_Presentation] AS [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , EGSC.[108_Gameplay] AS [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , EGSC.[109_Pacing] AS [109_Pacing]" & ControlChars.CrLf + sSQL &= " , EGSC.[110_Narrative_Theme_Topic] AS [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , EGSC.[111_Setting] AS [111_Setting]" & ControlChars.CrLf + sSQL &= " , EGSC.[112_Vehicular_Themes] AS [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , EGSC.[113_Interface_Control] AS [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , EGSC.[114_DLC_Addon] AS [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , EGSC.[115_Special_Edition] AS [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , EGSC.[201_MinPlayers] AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , EGSC.[202_MaxPlayers] AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , EGSC.[203_AgeO] AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , EGSC.[204_AgeP] AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , EGSC.[205_Rating_Descriptors] AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , EGSC.[206_Other_Attributes] AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , EGSC.[207_Multiplayer_Attributes] AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , EGSC.[301_Group_Membership] AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , EGSC.[401_Staff] AS [401_Staff]" & ControlChars.CrLf + sSQL &= "FROM ttb_Emu_Games_Similarity_Calculation EGSC" & ControlChars.CrLf + sSQL &= "INNER JOIN tbl_Emu_Games EG ON EGSC.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Games MG ON EG.Moby_Games_URLPart = MG.URLPart" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Releases MR ON EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms" & ControlChars.CrLf + + If Not Only_Show_Haves Then + sSQL &= "UNION" & ControlChars.CrLf + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " NULL AS id_Emu_Games" & ControlChars.CrLf + sSQL &= " , MRSC.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , IFNULL(MG.Name_Prefix || ' ', '') || IFNULL(MG.Name, '') AS Game" & ControlChars.CrLf + sSQL &= " , PLTFM.Name AS Platform" & ControlChars.CrLf + sSQL &= " , NULL AS Folder" & ControlChars.CrLf + sSQL &= " , NULL AS File" & ControlChars.CrLf + sSQL &= " , NULL AS InnerFile" & ControlChars.CrLf + sSQL &= " , 0 AS Have" & ControlChars.CrLf + sSQL &= " , Similarity" & ControlChars.CrLf + sSQL &= " , MRSC.[001_Platform] AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , MRSC.[002_MobyRank] AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , MRSC.[003_MobyScore] AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , MRSC.[004_Publisher] AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , MRSC.[005_Developer] AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , MRSC.[006_Year] AS [006_Year]" & ControlChars.CrLf + sSQL &= " , MRSC.[101_Basic_Genres] AS [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , MRSC.[102_Perspectives] AS [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , MRSC.[103_Sports_Themes] AS [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , MRSC.[105_Educational_Categories] AS [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , MRSC.[106_Other_Attributes] AS [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , MRSC.[107_Visual_Presentation] AS [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , MRSC.[108_Gameplay] AS [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , MRSC.[109_Pacing] AS [109_Pacing]" & ControlChars.CrLf + sSQL &= " , MRSC.[110_Narrative_Theme_Topic] AS [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , MRSC.[111_Setting] AS [111_Setting]" & ControlChars.CrLf + sSQL &= " , MRSC.[112_Vehicular_Themes] AS [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , MRSC.[113_Interface_Control] AS [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , MRSC.[114_DLC_Addon] AS [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , MRSC.[115_Special_Edition] AS [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , MRSC.[201_MinPlayers] AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , MRSC.[202_MaxPlayers] AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , MRSC.[203_AgeO] AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , MRSC.[204_AgeP] AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , MRSC.[205_Rating_Descriptors] AS [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL &= " , MRSC.[206_Other_Attributes] AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , MRSC.[207_Multiplayer_Attributes] AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , MRSC.[301_Group_Membership] AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , MRSC.[401_Staff] AS [401_Staff]" & ControlChars.CrLf + sSQL &= "FROM ttb_Moby_Releases_Similarity_Calculation MRSC" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Releases MR ON MRSC.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Moby_Platforms PLTFM ON MR.id_Moby_Platforms = PLTFM.id_Moby_Platforms" & ControlChars.CrLf + End If + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + + Public Shared Sub Fill_tbl_Similarity_Calculation_From_Results(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Similarity_CalculationDataTable, ByVal id_Similarity_Calculation_Results As Integer) + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " SCRE.id_Emu_Games AS id_Emu_Games" & ControlChars.CrLf + sSQL &= " , SCRE.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , CASE WHEN SCRE.id_Emu_Games IS NULL THEN IFNULL(MG.Name_Prefix || ' ', '') || IFNULL(MG.Name, '')" & ControlChars.CrLf + sSQL &= " WHEN EG.Name IS NULL" & ControlChars.CrLf + sSQL &= " THEN CASE WHEN MG.Name IS NULL " & ControlChars.CrLf + sSQL &= " THEN IFNULL(EG.InnerFile, EG.File)" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EG.Name_Prefix || ' ', IFNULL(MG.Name_Prefix || ' ', '')) || IFNULL(MG.Name, '') || IFNULL(' (' || EG.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " ELSE IFNULL(EG.Name_Prefix || ' ', '') || IFNULL(EG.Name, '') || IFNULL(' (' || EG.Note || ')', '')" & ControlChars.CrLf + sSQL &= " END" & ControlChars.CrLf + sSQL &= " AS Game" & ControlChars.CrLf + sSQL &= " , PLTFM.Name AS Platform" & ControlChars.CrLf + sSQL &= " , EG.Folder AS Folder" & ControlChars.CrLf + sSQL &= " , EG.File AS File" & ControlChars.CrLf + sSQL &= " , EG.InnerFile AS InnerFile" & ControlChars.CrLf + sSQL &= " , CASE WHEN SCRE.id_Emu_Games IS NULL THEN 0 ELSE 1 END AS Have" & ControlChars.CrLf + sSQL &= " , SCRE.Similarity" & ControlChars.CrLf + sSQL &= " , SCRE.[001_Platform] AS [001_Platform]" & ControlChars.CrLf + sSQL &= " , SCRE.[002_MobyRank] AS [002_MobyRank]" & ControlChars.CrLf + sSQL &= " , SCRE.[003_MobyScore] AS [003_MobyScore]" & ControlChars.CrLf + sSQL &= " , SCRE.[004_Publisher] AS [004_Publisher]" & ControlChars.CrLf + sSQL &= " , SCRE.[005_Developer] AS [005_Developer]" & ControlChars.CrLf + sSQL &= " , SCRE.[006_Year] AS [006_Year]" & ControlChars.CrLf + sSQL &= " , SCRE.[101_Basic_Genres] AS [101_Basic_Genres]" & ControlChars.CrLf + sSQL &= " , SCRE.[102_Perspectives] AS [102_Perspectives]" & ControlChars.CrLf + sSQL &= " , SCRE.[103_Sports_Themes] AS [103_Sports_Themes]" & ControlChars.CrLf + sSQL &= " , SCRE.[105_Educational_Categories] AS [105_Educational_Categories]" & ControlChars.CrLf + sSQL &= " , SCRE.[106_Other_Attributes] AS [106_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , SCRE.[107_Visual_Presentation] AS [107_Visual_Presentation]" & ControlChars.CrLf + sSQL &= " , SCRE.[108_Gameplay] AS [108_Gameplay]" & ControlChars.CrLf + sSQL &= " , SCRE.[109_Pacing] AS [109_Pacing]" & ControlChars.CrLf + sSQL &= " , SCRE.[110_Narrative_Theme_Topic] AS [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL &= " , SCRE.[111_Setting] AS [111_Setting]" & ControlChars.CrLf + sSQL &= " , SCRE.[112_Vehicular_Themes] AS [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL &= " , SCRE.[113_Interface_Control] AS [113_Interface_Control]" & ControlChars.CrLf + sSQL &= " , SCRE.[114_DLC_Addon] AS [114_DLC_Addon]" & ControlChars.CrLf + sSQL &= " , SCRE.[115_Special_Edition] AS [115_Special_Edition]" & ControlChars.CrLf + sSQL &= " , SCRE.[201_MinPlayers] AS [201_MinPlayers]" & ControlChars.CrLf + sSQL &= " , SCRE.[202_MaxPlayers] AS [202_MaxPlayers]" & ControlChars.CrLf + sSQL &= " , SCRE.[203_AgeO] AS [203_AgeO]" & ControlChars.CrLf + sSQL &= " , SCRE.[204_AgeP] AS [204_AgeP]" & ControlChars.CrLf + sSQL &= " , SCRE.[205_Rating_Descriptors] AS [205_Rating_DeSCREiptors]" & ControlChars.CrLf + sSQL &= " , SCRE.[206_Other_Attributes] AS [206_Other_Attributes]" & ControlChars.CrLf + sSQL &= " , SCRE.[207_Multiplayer_Attributes] AS [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL &= " , SCRE.[301_Group_Membership] AS [301_Group_Membership]" & ControlChars.CrLf + sSQL &= " , SCRE.[401_Staff] AS [401_Staff]" & ControlChars.CrLf + sSQL &= " FROM tbl_Similarity_Calculation_Results_Entries SCRE" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Emu_Games EG ON SCRE.id_Emu_Games = EG.id_Emu_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Releases MR ON SCRE.id_Moby_Releases = MR.id_Moby_Releases --EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Platforms PLTFM ON MR.id_Moby_Platforms = PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " WHERE SCRE.id_Similarity_Calculation_Results = " & TC.getSQLFormat(id_Similarity_Calculation_Results) & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + +#End Region + +#Region "Upsert Statements" + ''' + ''' INSERT or UPDATE tbl_Emu_Games, on INSERT the id_Emu_Games will be overwritten by the correct value from DB + ''' + ''' + ''' + ''' + Public Sub Upsert_Rom_Manager_tbl_Emu_Games(ByRef tran As SQLite.SQLiteTransaction, ByRef row As DataRow) + Dim Column_Blacklist As String() = {"ROMBASE_id_Moby_Platforms", "id_Emu_Games", "Rating_Gameplay", "Rating_Graphics", "Rating_Sound", "Rating_Story", "Rating_Personal", "Num_Played", "Num_Runtime"} + + Dim id_Emu_Games As Object = Nothing + If TC.NZ(row("id_Emu_Games"), 0) > 0 Then + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(row("id_Emu_Games")), tran) + End If + + Dim bFirst As Boolean = True + + If TC.NZ(id_Emu_Games, 0) > 0 Then + 'Update + sSQL = "UPDATE tbl_Emu_Games SET " + + For Each col As DataColumn In row.Table.Columns + If Not Column_Blacklist.Contains(col.ColumnName) Then + If bFirst Then + sSQL &= " " + bFirst = False + Else + sSQL &= " , " + End If + sSQL &= col.ColumnName & " = " & TC.getSQLFormat(row(col.ColumnName)) + End If + Next + + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + + Return + End If + + 'Insert + sSQL = "INSERT INTO tbl_Emu_Games (" + Dim sSQL2 As String = " VALUES (" + + For Each col As DataColumn In row.Table.Columns + If Not Column_Blacklist.Contains(col.ColumnName) AndAlso Not TC.IsNullNothingOrEmpty(row(col.ColumnName)) Then + If bFirst Then + sSQL &= " " + sSQL2 &= " " + bFirst = False + Else + sSQL &= " , " + sSQL2 &= " , " + End If + sSQL &= col.ColumnName + sSQL2 &= TC.getSQLFormat(row(col.ColumnName)) + End If + Next + + + sSQL &= ")" + sSQL2 &= "); SELECT last_insert_rowid()" + + 'Insert + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL & sSQL2, tran) + row("id_Emu_Games") = id_Emu_Games + row.AcceptChanges() + End Sub + + Public Shared Sub Upsert_MAME_tbl_Emu_Games(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Platforms As Integer, ByVal File As Object, ByVal InnerFile As Object, ByVal Name As Object, ByVal Name_Prefix As Object, ByVal Note As Object, ByVal Developer As Object, ByVal Description As Object, ByVal Year As Object) + Dim id_Emu_Games As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE InnerFile = " & TC.getSQLFormat(InnerFile) & " AND " & " id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms), tran) + + Dim sSQL As String = "" + + If TC.NZ(id_Emu_Games, 0) <> 0 Then + sSQL &= " UPDATE tbl_Emu_Games" + sSQL &= " SET" + sSQL &= " id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + sSQL &= " , File = " & TC.getSQLFormat(File) + sSQL &= " , InnerFile = " & TC.getSQLFormat(InnerFile) + sSQL &= " , Name = " & TC.getSQLFormat(Name) + sSQL &= " , Name_Prefix = " & TC.getSQLFormat(Name_Prefix) + sSQL &= " , Note = " & TC.getSQLFormat(Note) + sSQL &= " , Developer = " & TC.getSQLFormat(Developer) + sSQL &= " , Description = " & TC.getSQLFormat(Description) + sSQL &= " , Year = " & TC.getSQLFormat(Year) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + + Return + End If + + 'INSERT + sSQL &= " INSERT INTO tbl_Emu_Games" + sSQL &= " (" + sSQL &= " id_Moby_Platforms" + sSQL &= " , File" + sSQL &= " , InnerFile" + sSQL &= " , Name" + sSQL &= " , Name_Prefix" + sSQL &= " , Note" + sSQL &= " , Developer" + sSQL &= " , Description" + sSQL &= " , Year" + sSQL &= " )" + sSQL &= " VALUES" + sSQL &= " (" + sSQL &= TC.getSQLParameter(id_Moby_Platforms, File, InnerFile, Name, Name_Prefix, Note, Developer, Description, Year) + sSQL &= " )" + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Shared Sub Upsert_tbl_ControlSettings(ByRef tran As SQLite.SQLiteTransaction, ByVal ControlID As String, ByVal SettingID As String, ByVal Setting As String) + If Setting.Length > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_ControlSettings WHERE HostName = " & TC.getSQLFormat(System.Environment.MachineName) & " AND ControlID = " & TC.getSQLFormat(ControlID) & " AND SettingID = " & TC.getSQLFormat(SettingID) & IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, " AND id_Users = " & TC.getSQLFormat(cls_Globals.id_Users), " AND id_Users IS NULL"), tran) + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_ControlSettings (ControlID, SettingID, Setting, HostName, id_Users) VALUES (" & TC.getSQLParameter(ControlID, SettingID, Setting, System.Environment.MachineName, IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, cls_Globals.id_Users, DBNull.Value)) & ")", tran) + End If + End Sub + + Public Shared Function Upsert_tbl_Filtersets(ByRef tran As SQLite.SQLiteTransaction, ByVal id_FilterSets As Object, ByVal Type As enm_FilterSetTypes, ByVal Name As String, ByVal ApplyGridFilter As Boolean, ByVal GridFilter As Object) As Integer + If TC.NZ(id_FilterSets, 0) > 0 Then + 'Update + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_FilterSets SET Type = " & TC.getSQLFormat(Type) & ", Name = " & TC.getSQLFormat(Name) & ", ApplyGridFilter = " & TC.getSQLFormat(ApplyGridFilter) & ", GridFilter = " & TC.getSQLFormat(GridFilter) & " WHERE id_FilterSets = " & TC.getSQLFormat(id_FilterSets), tran) + Return id_FilterSets + Else + 'Insert + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_FilterSets (Type, Name, ApplyGridFilter, GridFilter, id_Users) VALUES (" & TC.getSQLParameter(Type, Name, ApplyGridFilter, GridFilter, IIf(cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0, cls_Globals.id_Users, DBNull.Value)) & "); SELECT last_insert_rowid()", tran) + End If + End Function + + Public Shared Function Upsert_tbl_Emu_Extras(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Emu_Extras As Object, ByVal Name As String, ByVal Sort As Object, ByVal Description As Object, ByVal Hide As Object) As Integer + If TC.NZ(id_Emu_Extras, 0) > 0 Then + 'Update + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Extras SET Name = " & TC.getSQLFormat(Name) & ", Sort = " & TC.getSQLFormat(Sort) & ", Description = " & TC.getSQLFormat(Description) & ", Hide = " & TC.getSQLFormat(Hide) & " WHERE id_Emu_Extras = " & id_Emu_Extras, tran) + Return id_Emu_Extras + Else + 'Insert + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Emu_Extras (Name, Sort, Description, Hide) VALUES (" & TC.getSQLParameter(Name, Sort, Description, Hide) & "); SELECT last_insert_rowid()", tran) + End If + End Function + + Public Shared Function Update_tbl_Emu_Games_Ratings(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Emu_Games As Object, ByVal Rating_Gameplay As Object, ByVal Rating_Graphics As Object, ByVal Rating_Personal As Object, ByVal Rating_Sound As Object, ByVal Rating_Story As Object) As Boolean + If TC.NZ(id_Emu_Games, 0) <= 0 Then Return False + + If TC.NZ(Rating_Gameplay, 0) = 0 Then Rating_Gameplay = DBNull.Value + If TC.NZ(Rating_Graphics, 0) = 0 Then Rating_Graphics = DBNull.Value + If TC.NZ(Rating_Personal, 0) = 0 Then Rating_Personal = DBNull.Value + If TC.NZ(Rating_Sound, 0) = 0 Then Rating_Sound = DBNull.Value + If TC.NZ(Rating_Story, 0) = 0 Then Rating_Story = DBNull.Value + + Return DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET Rating_Gameplay = " & TC.getSQLFormat(Rating_Gameplay) & ", Rating_Graphics = " & TC.getSQLFormat(Rating_Graphics) & ", Rating_Personal = " & TC.getSQLFormat(Rating_Personal) & ", Rating_Sound = " & TC.getSQLFormat(Rating_Sound) & ", Rating_Story = " & TC.getSQLFormat(Rating_Story) & " WHERE id_Emu_Games = " & id_Emu_Games, tran) + End Function + + Public Sub Update_tbl_Emu_Games_Rating_Weights(ByRef tran As SQLite.SQLiteTransaction, ByRef row As DataRow) + If TC.NZ(row("id_Emu_Games_Rating_Weights"), 0) <= 0 Then Return + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games_Rating_Weights SET Weight = " & TC.getSQLFormat(row("Weight")) & " WHERE id_Emu_Games_Rating_Weights = " & TC.getSQLFormat(row("id_Emu_Games_Rating_Weights"))) + End Sub + + Public Function Upsert_tbl_Emu_Games_Moby_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Emu_Games As Integer, ByVal id_Moby_Genres As Integer, ByVal Used As Boolean) As Integer + Dim id_Emu_Games_Moby_Genres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games_Moby_Genres FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran), 0) + If id_Emu_Games_Moby_Genres <> 0 Then + id_Emu_Games_Moby_Genres = DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games_Moby_Genres SET USR = " & TC.getSQLFormat(True) & ", Used = " & TC.getSQLFormat(Used) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + Return id_Emu_Games_Moby_Genres + End If + + Return DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Moby_Genres (id_Emu_Games, id_Moby_Genres, Used, USR) VALUES (" & TC.getSQLParameter(id_Emu_Games, id_Moby_Genres, Used, True) & "); SELECT last_insert_rowid()", tran) + End Function + + Public Function Upsert_tbl_Emu_Games_Moby_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Emu_Games As Integer, ByVal id_Moby_Attributes As Integer, ByVal Used As Boolean) As Integer + Dim id_Emu_Games_Moby_Attributes As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran), 0) + If id_Emu_Games_Moby_Attributes <> 0 Then + id_Emu_Games_Moby_Attributes = DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games_Moby_Attributes SET USR = " & TC.getSQLFormat(True) & ", Used = " & TC.getSQLFormat(Used) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + Return id_Emu_Games_Moby_Attributes + End If + + Return DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Moby_Attributes (id_Emu_Games, id_Moby_Attributes, Used, USR) VALUES (" & TC.getSQLParameter(id_Emu_Games, id_Moby_Attributes, Used, True) & "); SELECT last_insert_rowid()", tran) + End Function + + Public Function Upsert_tbl_Tag_Parser(ByRef tran As SQLite.SQLiteTransaction, ByRef row As DS_ML.tbl_Tag_ParserRow) As Integer + Dim bFirst As Boolean = True + + If row("id_Tag_Parser") < 0 Then + Dim sSQL As String = "INSERT INTO tbl_Tag_Parser (" + Dim sSQL2 As String = " VALUES (" + + + For Each col As DataColumn In row.Table.Columns + If Not {"id_tag_parser", "id_rombase_tag_parser"}.Contains(col.ColumnName.ToLower) Then + If bFirst Then + bFirst = False + Else + sSQL &= ", " + sSQL2 &= ", " + End If + + sSQL &= col.ColumnName + sSQL2 &= TC.getSQLFormat(row(col.ColumnName)) + End If + Next + + sSQL &= ") " + sSQL2 &= "); SELECT last_insert_rowid()" + + Return DataAccess.FireProcedure(tran.Connection, 0, sSQL & sSQL2, tran) + End If + + + Dim sSQLUpdate As String = "UPDATE tbl_Tag_Parser SET " + + For Each col As DataColumn In row.Table.Columns + If Not {"id_tag_parser", "id_rombase_tag_parser"}.Contains(col.ColumnName.ToLower) Then + If bFirst Then + bFirst = False + Else + sSQLUpdate &= ", " + End If + + sSQLUpdate &= col.ColumnName & " = " & TC.getSQLFormat(row(col.ColumnName)) + End If + Next + + sSQLUpdate &= " WHERE id_Tag_Parser = " & TC.getSQLFormat(row("id_Tag_Parser")) + + Return DataAccess.FireProcedure(tran.Connection, 0, sSQLUpdate, tran) + End Function + + Public Sub Upsert_tbl_Emu_Games_Languages(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_Emu_Games_LanguagesDataTable, ByVal id_Emu_Games As Integer) + 'Clean up + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + + 'Insert + Dim rows_languages() As DataRow = dt.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row As DataRow In rows_languages + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Languages (id_Emu_Games, id_Languages) VALUES (" & TC.getSQLParameter(row("id_Emu_Games"), row("id_Languages")) & ")", tran) + Next + End Sub + + Public Sub Upsert_tbl_Emu_Games_Regions(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_Emu_Games_RegionsDataTable, ByVal id_Emu_Games As Integer) + 'Clean up + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + + 'Insert + Dim rows_Regions() As DataRow = dt.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row As DataRow In rows_Regions + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Regions (id_Emu_Games, id_Regions) VALUES (" & TC.getSQLParameter(row("id_Emu_Games"), row("id_Regions")) & ")", tran) + Next + End Sub + + Public Shared Function Insert_tbl_History(ByRef tran As SQLite.SQLiteTransaction, ByVal Start As DateTime, ByVal [End] As DateTime, Optional ByVal id_Emu_Games As Object = Nothing) As Integer + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_History (Start, End, id_Emu_Games" & IIf(Not cls_Globals.Admin, ", id_Users", "") & ") VALUES (" & TC.getSQLParameter(Start, [End], id_Emu_Games) & IIf(Not cls_Globals.Admin, ", " & TC.getSQLFormat(cls_Globals.id_Users), "") & "); SELECT last_insert_rowid()", tran) + End Function + + Public Shared Function Upsert_tbl_DOSBox_Configs_Templates(ByRef tran As SQLite.SQLiteTransaction, ByRef row As DS_ML.tbl_DOSBox_ConfigsRow, Optional ByVal Create_Duplicate As Boolean = False, Optional ByVal New_Template_Name As String = "") As Int64 + Dim tbl_RB As New DS_ML.tbl_DOSBox_ConfigsDataTable + + If Not Create_Duplicate Then + If TC.NZ(row("id_Rombase_DOSBox_Configs"), 0) > 0 Then + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM rombase.tbl_Rombase_DOSBox_Configs WHERE id_Rombase_DOSBOX_Configs = " & TC.getSQLFormat(row("id_Rombase_DOSBox_Configs")), tbl_RB, tran) + End If + End If + + Dim row_RB As DataRow = Nothing + If tbl_RB.Rows.Count = 1 Then + row_RB = tbl_RB.Rows(0) + End If + + Dim id_DOSBox_Configs As Int64 = 0 + + 'Insert a new default DOSBox Config or Update an existing one + 'Only add values if they differ from row_RB + If Not Create_Duplicate AndAlso TC.NZ(row("id_DOSBox_Configs"), 0) > 0 Then + 'Update + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_DOSBox_Configs SET" & ControlChars.CrLf + + sSQL &= " isTemplate = " & TC.getSQLFormat(1) & ControlChars.CrLf + sSQL &= " , id_Rombase_DOSBox_Configs = " & TC.getSQLFormat(row("id_Rombase_DOSBox_Configs")) & ControlChars.CrLf + + For Each col As DataColumn In row.Table.Columns + If Not {"id_DOSBox_Configs", "id_Rombase_DOSBox_Configs"}.Contains(col.ColumnName) Then + sSQL &= " , [" & col.ColumnName & "] = " & IIf(row_RB IsNot Nothing AndAlso MKNetLib.cls_MKSQLDataAccess.HasColumn(row_RB, col.ColumnName) AndAlso Equals(row(col.ColumnName), row_RB(col.ColumnName)), TC.getSQLFormat(DBNull.Value), TC.getSQLFormat(row(col.ColumnName))) & ControlChars.CrLf + End If + Next + + sSQL &= " WHERE id_DOSBox_Configs = " & TC.getSQLFormat(row("id_DOSBox_Configs")) + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + tran.Commit() + id_DOSBox_Configs = row("id_DOSBox_Configs") + Else + 'Insert + Dim sSQL As String = "" + sSQL &= " INSERT INTO tbl_DOSBox_Configs" & ControlChars.CrLf + + Dim sSQL_Columns As String = " (" & ControlChars.CrLf + Dim sSQL_Values As String = " (" & ControlChars.CrLf + + sSQL_Columns &= " isTemplate" & ControlChars.CrLf + sSQL_Columns &= " , id_Rombase_DOSBox_Configs" & ControlChars.CrLf + + + sSQL_Values &= " " & TC.getSQLFormat(1) & ControlChars.CrLf + sSQL_Values &= " , " & IIf(Create_Duplicate, "NULL", TC.getSQLFormat(row("id_Rombase_DOSBox_Configs"))) & ControlChars.CrLf + + For Each col As DataColumn In row.Table.Columns + If Not {"id_DOSBox_Configs", "id_Rombase_DOSBox_Configs"}.Contains(col.ColumnName) Then + sSQL_Columns &= " , [" & col.ColumnName & "] " & ControlChars.CrLf + If col.ColumnName = "Displayname" AndAlso TC.NZ(New_Template_Name, "") <> "" Then + sSQL_Values &= " , " & TC.getSQLFormat(New_Template_Name) + Else + sSQL_Values &= " , " & IIf(row_RB IsNot Nothing AndAlso MKNetLib.cls_MKSQLDataAccess.HasColumn(row_RB, col.ColumnName) AndAlso Equals(row(col.ColumnName), row_RB(col.ColumnName)), TC.getSQLFormat(DBNull.Value), TC.getSQLFormat(row(col.ColumnName))) & ControlChars.CrLf + End If + End If + Next + + sSQL_Columns &= " )" & ControlChars.CrLf & " VALUES " & ControlChars.CrLf + sSQL_Values &= " )" & ControlChars.CrLf + + sSQL &= sSQL_Columns & sSQL_Values & "; SELECT last_insert_rowid()" + + id_DOSBox_Configs = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0) + tran.Commit() + End If + + Return id_DOSBox_Configs + End Function + + Public Shared Function Upsert_tbl_DOSBox_Config(ByRef tran As SQLite.SQLiteTransaction, ByRef row As DS_ML.tbl_DOSBox_ConfigsRow, ByVal id_Emu_Games As Long) As Int64 + Dim id_DOSBox_Config_Template As Long = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_DOSBox_Configs_Template FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) + Dim id_DOSBox_Config As Long = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_DOSBox_Configs FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) + + Dim row_Template As DataRow = Nothing + + Dim tbl_Template As DS_ML.tbl_DOSBox_ConfigsDataTable = Nothing + If id_DOSBox_Config_Template <> 0 Then + DS_ML.Fill_tbl_DOSBox_Template_Configs(tran, tbl_Template, id_DOSBox_Config_Template) + End If + + If tbl_Template.Rows.Count = 1 Then + row_Template = tbl_Template.Rows(0) + End If + + 'Insert a new DOSBox Config for the game or Update an existing one + 'Only add values if they differ from row_Template + If id_DOSBox_Config <> 0 Then + 'Update + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_DOSBox_Configs SET" & ControlChars.CrLf + + sSQL &= " isTemplate = " & TC.getSQLFormat(DBNull.Value) & ControlChars.CrLf + sSQL &= " , id_Rombase_DOSBox_Configs = " & TC.getSQLFormat(DBNull.Value) & ControlChars.CrLf + + For Each col As DataColumn In row.Table.Columns + If Not {"id_DOSBox_Configs", "id_Rombase_DOSBox_Configs"}.Contains(col.ColumnName) Then + sSQL &= " , [" & col.ColumnName & "] = " & IIf(row_Template IsNot Nothing AndAlso MKNetLib.cls_MKSQLDataAccess.HasColumn(row_Template, col.ColumnName) AndAlso Equals(row(col.ColumnName), row_Template(col.ColumnName)), TC.getSQLFormat(DBNull.Value), TC.getSQLFormat(row(col.ColumnName))) & ControlChars.CrLf + End If + Next + + sSQL &= " WHERE id_DOSBox_Configs = " & TC.getSQLFormat(row("id_DOSBox_Configs")) + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + Else + 'Insert + Dim sSQL As String = "" + sSQL &= " INSERT INTO tbl_DOSBox_Configs" & ControlChars.CrLf + + Dim sSQL_Columns As String = " (" & ControlChars.CrLf + Dim sSQL_Values As String = " (" & ControlChars.CrLf + + sSQL_Columns &= " isTemplate" & ControlChars.CrLf + sSQL_Columns &= " , id_Rombase_DOSBox_Configs" & ControlChars.CrLf + + + sSQL_Values &= TC.getSQLFormat(DBNull.Value) + sSQL_Values &= ", " & TC.getSQLFormat(DBNull.Value) + + For Each col As DataColumn In row.Table.Columns + If Not {"id_DOSBox_Configs", "id_Rombase_DOSBox_Configs"}.Contains(col.ColumnName) Then + sSQL_Columns &= " , [" & col.ColumnName & "] " & ControlChars.CrLf + sSQL_Values &= " , " & IIf(row_Template IsNot Nothing AndAlso MKNetLib.cls_MKSQLDataAccess.HasColumn(row_Template, col.ColumnName) AndAlso Equals(row(col.ColumnName), row_Template(col.ColumnName)), TC.getSQLFormat(DBNull.Value), TC.getSQLFormat(row(col.ColumnName))) & ControlChars.CrLf + End If + Next + + sSQL_Columns &= " )" & ControlChars.CrLf & " VALUES " & ControlChars.CrLf + sSQL_Values &= " )" & ControlChars.CrLf + + sSQL &= sSQL_Columns & sSQL_Values & "; SELECT last_insert_rowid()" + + id_DOSBox_Config = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0) + + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_DOSBox_Configs = " & TC.getSQLFormat(id_DOSBox_Config) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran) + End If + + Return id_DOSBox_Config + End Function + + Public Shared Sub Upsert_tbl_Users(ByRef tran As SQLite.SQLiteTransaction, ByRef tbl_Users As DS_ML.tbl_UsersDataTable) + For Each row As DS_ML.tbl_UsersRow In tbl_Users + If row.RowState = DataRowState.Deleted Then + If row("id_Users") > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Users WHERE id_Users = " & TC.getSQLFormat(row("id_Users")), tran) + End If + End If + + If row.RowState = DataRowState.Added Then + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Users (Username, Password, Admin, Restricted) VALUES (" & TC.getSQLParameter(row("Username"), row("Password"), row("Admin"), row("Restricted")) & ")", tran) + End If + + If row.RowState = DataRowState.Modified Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Users SET Username = " & TC.getSQLFormat(row("Username")) & ", Password = " & TC.getSQLFormat(row("Password")) & ", Admin = " & TC.getSQLFormat(row("Admin")) & ", Restricted = " & TC.getSQLFormat(row("Restricted")) & " WHERE id_Users = " & TC.getSQLFormat(row("id_Users")), tran) + End If + Next + End Sub + + Public Shared Function Upsert_tbl_Users_Emu_Games(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Users As Integer, ByVal id_Emu_Games As Integer, ByVal Num_Played As Object, ByVal Num_Runtime As Object, Optional ByVal Last_Played As Object = Nothing, Optional ByVal Favourite As Object = Nothing, Optional ByVal Have As Object = Nothing, Optional ByVal Want As Object = Nothing, Optional ByVal Trade As Object = Nothing) As Boolean + Dim id_Users_Emu_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Users_Emu_Games FROM tbl_Users_Emu_Games WHERE id_Users = " & TC.getSQLFormat(id_Users) & " AND id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) + + If id_Users_Emu_Games <> 0 Then + 'Update + Dim sSQL As String = "" + sSQL &= "UPDATE tbl_Users_Emu_Games" & ControlChars.CrLf + sSQL &= "SET" & ControlChars.CrLf + + Dim bHasChange As Boolean = False + + If Not IsNothing(Favourite) Then + sSQL &= " Favourite = " & TC.getSQLFormat(Favourite) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Have) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Have = " & TC.getSQLFormat(Have) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Want) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Want = " & TC.getSQLFormat(Want) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Trade) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Trade = " & TC.getSQLFormat(Trade) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Num_Played) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Num_Played = " & TC.getSQLFormat(Num_Played) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Num_Runtime) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Num_Runtime = " & TC.getSQLFormat(Num_Runtime) & ControlChars.CrLf + bHasChange = True + End If + + If Not IsNothing(Last_Played) Then + If bHasChange Then sSQL &= ", " + sSQL &= " Last_Played = " & TC.getSQLFormat(Last_Played) & ControlChars.CrLf + bHasChange = True + End If + + sSQL &= "WHERE id_Users_Emu_Games = " & TC.getSQLFormat(id_Users_Emu_Games) + + If bHasChange Then + Return DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + Else + Return True + End If + + Else + 'Insert + If cls_Globals.Admin Then + Dim sSQL_tbl_Emu_Games As String = "SELECT Num_Played, Num_Runtime, Last_Played, Favourite, Want, Have, Trade FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + Dim dt_Emu_Games As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL_tbl_Emu_Games, Nothing, tran) + If dt_Emu_Games.Rows.Count = 1 Then + If Num_Played Is Nothing Then Num_Played = dt_Emu_Games.Rows(0)("Num_Played") + If Num_Runtime Is Nothing Then Num_Runtime = dt_Emu_Games.Rows(0)("Num_Runtime") + If Last_Played Is Nothing Then Last_Played = dt_Emu_Games.Rows(0)("Last_Played") + If Favourite Is Nothing Then Favourite = dt_Emu_Games.Rows(0)("Favourite") + If Have Is Nothing Then Have = dt_Emu_Games.Rows(0)("Have") + If Want Is Nothing Then Want = dt_Emu_Games.Rows(0)("Want") + If Trade Is Nothing Then Trade = dt_Emu_Games.Rows(0)("Trade") + End If + End If + + Dim sSQL As String = "" + sSQL &= "INSERT INTO tbl_Users_Emu_Games (id_Users, id_Emu_Games, Num_Played, Num_Runtime, Last_Played, Favourite, Have, Want, Trade) VALUES (" & TC.getSQLParameter(id_Users, id_Emu_Games, Num_Played, Num_Runtime, Last_Played, Favourite, Have, Want, Trade) & ")" + Return DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End If + End Function + + Public Shared Function Upsert_tbl_Similarity_Calculation_Results(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DS_ML.tbl_Similarity_CalculationDataTable, ByVal Name As String, ByVal id_Similarity_Calculation_Config As Integer, ByVal id_Emu_Games As Integer, ByVal id_Similarity_Calculation_Results As Integer) As Integer + If id_Similarity_Calculation_Results = 0 Then + + id_Similarity_Calculation_Results = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Similarity_Calculation_Results (Name, id_Similarity_Calculation_Config, id_Emu_Games) VALUES (" & TC.getSQLParameter(Name, id_Similarity_Calculation_Config, id_Emu_Games) & "); SELECT last_insert_rowid()", tran), 0) + + If id_Similarity_Calculation_Results <= 0 Then + Return False + End If + Else + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Similarity_Calculation_Results_Entries WHERE id_Similarity_Calculation_Results = " & id_Similarity_Calculation_Results, tran) + End If + + Dim sSQL1 As String = "" + sSQL1 &= "INSERT INTO tbl_Similarity_Calculation_Results_Entries" & ControlChars.CrLf + sSQL1 &= "( " + sSQL1 &= "id_Similarity_Calculation_Results" & ControlChars.CrLf + sSQL1 &= ", id_Emu_Games" & ControlChars.CrLf + sSQL1 &= ", id_Moby_Releases" & ControlChars.CrLf + sSQL1 &= ", Similarity" & ControlChars.CrLf + sSQL1 &= ", [001_Platform]" & ControlChars.CrLf + sSQL1 &= ", [002_MobyRank]" & ControlChars.CrLf + sSQL1 &= ", [003_MobyScore]" & ControlChars.CrLf + sSQL1 &= ", [004_Publisher]" & ControlChars.CrLf + sSQL1 &= ", [005_Developer]" & ControlChars.CrLf + sSQL1 &= ", [006_Year]" & ControlChars.CrLf + sSQL1 &= ", [101_Basic_Genres]" & ControlChars.CrLf + sSQL1 &= ", [102_Perspectives]" & ControlChars.CrLf + sSQL1 &= ", [103_Sports_Themes]" & ControlChars.CrLf + sSQL1 &= ", [105_Educational_Categories]" & ControlChars.CrLf + sSQL1 &= ", [106_Other_Attributes]" & ControlChars.CrLf + sSQL1 &= ", [107_Visual_Presentation]" & ControlChars.CrLf + sSQL1 &= ", [108_Gameplay]" & ControlChars.CrLf + sSQL1 &= ", [109_Pacing]" & ControlChars.CrLf + sSQL1 &= ", [110_Narrative_Theme_Topic]" & ControlChars.CrLf + sSQL1 &= ", [111_Setting]" & ControlChars.CrLf + sSQL1 &= ", [112_Vehicular_Themes]" & ControlChars.CrLf + sSQL1 &= ", [113_Interface_Control]" & ControlChars.CrLf + sSQL1 &= ", [114_DLC_Addon]" & ControlChars.CrLf + sSQL1 &= ", [115_Special_Edition]" & ControlChars.CrLf + sSQL1 &= ", [201_MinPlayers]" & ControlChars.CrLf + sSQL1 &= ", [202_MaxPlayers]" & ControlChars.CrLf + sSQL1 &= ", [203_AgeO]" & ControlChars.CrLf + sSQL1 &= ", [204_AgeP]" & ControlChars.CrLf + sSQL1 &= ", [205_Rating_Descriptors]" & ControlChars.CrLf + sSQL1 &= ", [206_Other_Attributes]" & ControlChars.CrLf + sSQL1 &= ", [207_Multiplayer_Attributes]" & ControlChars.CrLf + sSQL1 &= ", [301_Group_Membership]" & ControlChars.CrLf + sSQL1 &= ", [401_Staff]" & ControlChars.CrLf + sSQL1 &= ") VALUES (" + + For Each row As DataRow In dt.Rows + Dim sSQL2 As String = "" + sSQL2 &= TC.getSQLFormat(id_Similarity_Calculation_Results) + sSQL2 &= ", " & TC.getSQLFormat(row("id_Emu_Games")) + sSQL2 &= ", " & TC.getSQLFormat(row("id_Moby_Releases")) + sSQL2 &= ", " & TC.getSQLFormat(row("Similarity")) + sSQL2 &= ", " & TC.getSQLFormat(row("001_Platform")) + sSQL2 &= ", " & TC.getSQLFormat(row("002_MobyRank")) + sSQL2 &= ", " & TC.getSQLFormat(row("003_MobyScore")) + sSQL2 &= ", " & TC.getSQLFormat(row("004_Publisher")) + sSQL2 &= ", " & TC.getSQLFormat(row("005_Developer")) + sSQL2 &= ", " & TC.getSQLFormat(row("006_Year")) + sSQL2 &= ", " & TC.getSQLFormat(row("101_Basic_Genres")) + sSQL2 &= ", " & TC.getSQLFormat(row("102_Perspectives")) + sSQL2 &= ", " & TC.getSQLFormat(row("103_Sports_Themes")) + sSQL2 &= ", " & TC.getSQLFormat(row("105_Educational_Categories")) + sSQL2 &= ", " & TC.getSQLFormat(row("106_Other_Attributes")) + sSQL2 &= ", " & TC.getSQLFormat(row("107_Visual_Presentation")) + sSQL2 &= ", " & TC.getSQLFormat(row("108_Gameplay")) + sSQL2 &= ", " & TC.getSQLFormat(row("109_Pacing")) + sSQL2 &= ", " & TC.getSQLFormat(row("110_Narrative_Theme_Topic")) + sSQL2 &= ", " & TC.getSQLFormat(row("111_Setting")) + sSQL2 &= ", " & TC.getSQLFormat(row("112_Vehicular_Themes")) + sSQL2 &= ", " & TC.getSQLFormat(row("113_Interface_Control")) + sSQL2 &= ", " & TC.getSQLFormat(row("114_DLC_Addon")) + sSQL2 &= ", " & TC.getSQLFormat(row("115_Special_Edition")) + sSQL2 &= ", " & TC.getSQLFormat(row("201_MinPlayers")) + sSQL2 &= ", " & TC.getSQLFormat(row("202_MaxPlayers")) + sSQL2 &= ", " & TC.getSQLFormat(row("203_AgeO")) + sSQL2 &= ", " & TC.getSQLFormat(row("204_AgeP")) + sSQL2 &= ", " & TC.getSQLFormat(row("205_Rating_Descriptors")) + sSQL2 &= ", " & TC.getSQLFormat(row("206_Other_Attributes")) + sSQL2 &= ", " & TC.getSQLFormat(row("207_Multiplayer_Attributes")) + sSQL2 &= ", " & TC.getSQLFormat(row("301_Group_Membership")) + sSQL2 &= ", " & TC.getSQLFormat(row("401_Staff")) + sSQL2 &= ")" + + DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL1 & sSQL2, tran) + Next + + Return id_Similarity_Calculation_Results + End Function +#End Region + +#Region "Delete Statements" + Public Shared Sub Delete_tbl_Mame_Roms(ByRef tran As SQLite.SQLiteTransaction, Optional ByVal id_Mame_Roms As Integer = 0) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Mame_Roms" & IIf(id_Mame_Roms <> 0, " WHERE id_Mame_Roms = " & TC.getSQLFormat(id_Mame_Roms), ""), tran) + End Sub + +#End Region + +#Region "Merge Scripts" + Public Sub Merge_tbl_Emu_Games_Alternate_Titles(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games_Alternate_Titles" + sSQL &= " SET id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + sSQL &= " AND NOT EXISTS" + sSQL &= " (" + sSQL &= " SELECT * FROM" + sSQL &= " tbl_Emu_Games_Alternate_Titles AT2 " + sSQL &= " WHERE AT2.id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " AND AT2.Alternate_Title = tbl_Emu_Games_Alternate_Titles.Alternate_Title" + sSQL &= " AND AT2.Description = tbl_Emu_Games_Alternate_Titles.Description" + sSQL &= " )" + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games_Alternate_Titles WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Merge_tbl_Emu_Games_Languages(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games_Languages" + sSQL &= " SET id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + sSQL &= " AND NOT EXISTS" + sSQL &= " (" + sSQL &= " SELECT * FROM" + sSQL &= " tbl_Emu_Games_Languages EGL2 " + sSQL &= " WHERE EGL2.id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " AND EGL2.id_Languages = tbl_Emu_Games_Languages.id_Languages" + sSQL &= " )" + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Merge_tbl_Emu_Games_Moby_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games_Moby_Attributes" + sSQL &= " SET id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + sSQL &= " AND NOT EXISTS" + sSQL &= " (" + sSQL &= " SELECT * FROM" + sSQL &= " tbl_Emu_Games_Moby_Attributes EGMA2" + sSQL &= " WHERE EGMA2.id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " AND EGMA2.id_Moby_Attributes = tbl_Emu_Games_Moby_Attributes.id_Moby_Attributes" + sSQL &= " )" + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Merge_tbl_Emu_Games_Moby_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games_Moby_Genres" + sSQL &= " SET id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + sSQL &= " AND NOT EXISTS" + sSQL &= " (" + sSQL &= " SELECT * FROM" + sSQL &= " tbl_Emu_Games_Moby_Genres EGMG2" + sSQL &= " WHERE EGMG2.id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " AND EGMG2.id_Moby_Genres = tbl_Emu_Games_Moby_Genres.id_Moby_Genres" + sSQL &= " )" + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Merge_tbl_Emu_Games_Regions(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games_Regions" + sSQL &= " SET id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + sSQL &= " AND NOT EXISTS" + sSQL &= " (" + sSQL &= " SELECT * FROM" + sSQL &= " tbl_Emu_Games_Regions EGR2" + sSQL &= " WHERE EGR2.id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " AND EGR2.id_Regions = tbl_Emu_Games_Regions.id_Regions" + sSQL &= " )" + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Merge_tbl_Emu_Games(ByRef tran As SQLite.SQLiteTransaction, ByVal old_id_Emu_Games As Integer, ByVal new_id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games" + sSQL &= " SET Hidden = IFNULL((SELECT Hidden FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Hidden)" + sSQL &= " , Moby_Games_URLPart = IFNULL((SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Moby_Games_URLPart)" + sSQL &= " , id_Moby_Platforms = IFNULL((SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), id_Moby_Platforms)" + sSQL &= " , id_Rombase = IFNULL((SELECT id_Rombase FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), id_Rombase)" + sSQL &= " , id_Emulators = IFNULL((SELECT id_Emulators FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), id_Emulators)" + sSQL &= " , Name = IFNULL((SELECT Name FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Name)" + sSQL &= " , Name_Prefix = IFNULL((SELECT Name_Prefix FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Name_Prefix)" + sSQL &= " , Note = IFNULL((SELECT Note FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Note)" + sSQL &= " , Publisher = IFNULL((SELECT Publisher FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Publisher)" + sSQL &= " , Publisher_id_Moby_Companies = IFNULL((SELECT Publisher_id_Moby_Companies FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Publisher_id_Moby_Companies)" + sSQL &= " , Developer = IFNULL((SELECT Developer FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Developer)" + sSQL &= " , Developer_id_Moby_Companies = IFNULL((SELECT Developer_id_Moby_Companies FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Developer_id_Moby_Companies)" + sSQL &= " , Description = IFNULL((SELECT Description FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Description)" + sSQL &= " , Favourite = IFNULL((SELECT Favourite FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Favourite)" + sSQL &= " , Rating_Gameplay = IFNULL((SELECT Rating_Gameplay FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Rating_Gameplay)" + sSQL &= " , Rating_Graphics = IFNULL((SELECT Rating_Graphics FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Rating_Graphics)" + sSQL &= " , Rating_Sound = IFNULL((SELECT Rating_Sound FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Rating_Sound)" + sSQL &= " , Rating_Story = IFNULL((SELECT Rating_Story FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Rating_Story)" + sSQL &= " , Rating_Personal = IFNULL((SELECT Rating_Personal FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Rating_Personal)" + sSQL &= " , Num_Played = IFNULL((SELECT Num_Played FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Num_Played)" + sSQL &= " , Num_Runtime = IFNULL((SELECT Num_Runtime FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Num_Runtime)" + sSQL &= " , Year = IFNULL((SELECT Year FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Year)" + sSQL &= " , Version = IFNULL((SELECT Version FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Version)" + sSQL &= " , Alt = IFNULL((SELECT Alt FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Alt)" + sSQL &= " , Trainer = IFNULL((SELECT Trainer FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Trainer)" + sSQL &= " , Translation = IFNULL((SELECT Translation FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Translation)" + sSQL &= " , Hack = IFNULL((SELECT Hack FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Hack)" + sSQL &= " , Bios = IFNULL((SELECT Bios FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Bios)" + sSQL &= " , Prototype = IFNULL((SELECT Prototype FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Prototype)" + sSQL &= " , Alpha = IFNULL((SELECT Alpha FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Alpha)" + sSQL &= " , Beta = IFNULL((SELECT Beta FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Beta)" + sSQL &= " , Sample = IFNULL((SELECT Sample FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Sample)" + sSQL &= " , Kiosk = IFNULL((SELECT Kiosk FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Kiosk)" + sSQL &= " , Unlicensed = IFNULL((SELECT Unlicensed FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Unlicensed)" + sSQL &= " , Fixed = IFNULL((SELECT Fixed FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Fixed)" + sSQL &= " , Pirated = IFNULL((SELECT Pirated FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Pirated)" + sSQL &= " , Good = IFNULL((SELECT Good FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Good)" + sSQL &= " , Bad = IFNULL((SELECT Bad FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Bad)" + sSQL &= " , Overdump = IFNULL((SELECT Overdump FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), Overdump)" + sSQL &= " , PublicDomain = IFNULL((SELECT PublicDomain FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & "), PublicDomain)" + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(new_id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(new_id_Emu_Games) + sSQL &= " ;" + sSQL &= " DELETE FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(old_id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(old_id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub +#End Region + +#Region "Update Scripts" + Public Shared Function GenSQL_Update_tbl_Emu_Games_Caches_Genre(ByVal id_Moby_Genres_Categories, ByVal CacheName) + Dim sSQL As String = "" + sSQL &= " " & ControlChars.CrLf + sSQL &= " , " & CacheName & " =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT group_concat(Name, ', ')" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " ( SELECT Name FROM" + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Games_Genres GG" & ControlChars.CrLf + sSQL &= " WHERE GG.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart)" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres EGMG" & ControlChars.CrLf + sSQL &= " WHERE EGMG.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Genres" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Genres G ON temp_Genres.id_Moby_Genres = G.id_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE G.id_Moby_Genres_Categories = " & id_Moby_Genres_Categories & ControlChars.CrLf + sSQL &= " AND G.id_Moby_Genres NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Genres" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Genres" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY Name" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + + Return sSQL + End Function + + Public Shared Sub Update_tbl_Emu_Games_Caches(ByRef tran As SQLite.SQLiteTransaction, Optional ByVal id_Emu_Games As Integer = 0) + Dim sSQL As String = "" + sSQL &= " UPDATE tbl_Emu_Games" & ControlChars.CrLf + sSQL &= " SET Cache_Regions = " & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT group_concat(R.Region, ',') FROM tbl_Emu_Games_Regions EGR INNER JOIN tbl_Regions R ON EGR.id_Regions = R.id_Regions WHERE EGR.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_Languages = " & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " IFNULL((SELECT group_concat(L.Language_Short, ',') FROM tbl_Emu_Games_Languages EGL INNER JOIN tbl_Languages L ON EGL.id_Languages = L.id_Languages WHERE EGL.id_Emu_Games = tbl_Emu_Games.id_Emu_Games), '(En)')" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_Age_Pessimistic =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.Rating_Age_From)" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) " & ControlChars.CrLf + sSQL &= " AS temp_Attributes " & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes " & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN " & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes MA" & ControlChars.CrLf + sSQL &= " WHERE MA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games " & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_Age_Optimistic =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.Rating_Age_From)" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A" & ControlChars.CrLf + sSQL &= " ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_Alternate_Titles =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT group_concat(IFNULL('""' || Alternate_Title || '""', '') || IFNULL(' - ' || Description, ''), CAST(X'0D' AS TEXT) || CAST(X'0A' AS TEXT))" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Games_Alternate_Titles ALT " & ControlChars.CrLf + sSQL &= " WHERE ALT.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Basic_Genres, "Cache_Basic_Genres") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Perspective, "Cache_Perspectives") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Sports_Themes, "Cache_Sports_Themes") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Educational_Categories, "Cache_Educational_Categories") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Other_Attributes, "Cache_Other_Attributes") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Visual_Presentation, "Cache_Visual_Presentation") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Pacing, "Cache_Pacing") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Gameplay, "Cache_Gameplay") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Interface_Control, "Cache_Interface_Control") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Vehicular_Themes, "Cache_Vehicular_Themes") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Setting, "Cache_Setting") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Narrative_Theme_Topic, "Cache_Narrative_Theme_Topic") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.DLC_Addon, "Cache_DLC_Addon") + sSQL &= GenSQL_Update_tbl_Emu_Games_Caches_Genre(cls_Globals.enm_Moby_Genres_Categories.Special_Edition, "Cache_Special_Edition") + + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_MinPlayers =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MIN(A.MinPlayers)" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_MaxPlayers =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT MAX(A.MaxPlayers)" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_MP_GameModes =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT group_concat(A.Name, ', ')" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes_Categories = 16" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " " & ControlChars.CrLf + sSQL &= " , Cache_MP_Options =" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT group_concat(A.Name, ', ')" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM moby.tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = tbl_Emu_Games.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = tbl_Emu_Games.Moby_Games_URLPart))" & ControlChars.CrLf + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE A.id_Moby_Attributes_Categories = 12" & ControlChars.CrLf + sSQL &= " AND A.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = tbl_Emu_Games.id_Emu_Games" & ControlChars.CrLf + sSQL &= " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + + If id_Emu_Games <> 0 Then + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + End If + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End Sub + + Public Sub Update_Platform_NumGames_Cache_AllUsers(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Platforms As Int64) + Dim ar_Users As New ArrayList + ar_Users.Add(0L) 'all unrestricted users + + Dim tbl_Users As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Users FROM tbl_Users WHERE restricted = 1", Nothing, tran) + For Each row_Users As DataRow In tbl_Users.Rows + ar_Users.Add(row_Users("id_Users")) + Next + + For Each id_Users As Int64 In ar_Users + Update_Platform_NumGames_Cache(tran, id_Moby_Platforms, id_Users) + If id_Moby_Platforms <> -1 Then + Update_Platform_NumGames_Cache(tran, -1, id_Users) + End If + Next + End Sub + + ''' + ''' + ''' + ''' + ''' + ''' Use only if you want to impersonate a resticted! user + ''' + Public Shared Function Update_Platform_NumGames_Cache(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Platforms As Int64, Optional ByVal id_Users As Int64 = 0) As Boolean + If id_Users = 0 AndAlso cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 AndAlso cls_Globals.Restricted Then + id_Users = cls_Globals.id_Users + End If + + Dim sSQL_numGames As String = "" + sSQL_numGames &= " SELECT COUNT(1)" & ControlChars.CrLf + sSQL_numGames &= " FROM tbl_Emu_Games EG" & ControlChars.CrLf + If (id_Users > 0) Then + sSQL_numGames &= " INNER JOIN tbl_Users_Emu_Games USREG ON id_Users = " & TC.getSQLFormat(id_Users) & " AND EG.id_Emu_Games = USREG.id_Emu_Games" + End If + sSQL_numGames &= " WHERE EG.id_Emu_Games_Owner IS NULL AND (EG.Hidden IS NULL OR EG.Hidden = 0)" & ControlChars.CrLf + If (id_Moby_Platforms <> -1) Then + sSQL_numGames &= " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + End If + + Dim numGames As Int64 = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL_numGames, tran), 0L) + + Dim sSQL_id_Moby_Platforms_Caches As String = "" + sSQL_id_Moby_Platforms_Caches &= " SELECT id_Moby_Platforms_Caches" & ControlChars.CrLf + sSQL_id_Moby_Platforms_Caches &= " FROM tbl_Moby_Platforms_Caches" & ControlChars.CrLf + sSQL_id_Moby_Platforms_Caches &= " WHERE id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + If id_Users > 0 Then + sSQL_id_Moby_Platforms_Caches &= " AND id_Users = " & TC.getSQLFormat(id_Users) & ControlChars.CrLf + Else + sSQL_id_Moby_Platforms_Caches &= " AND id_Users IS NULL" & ControlChars.CrLf + End If + + Dim id_Moby_Platform_Caches As Int64 = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL_id_Moby_Platforms_Caches, tran), 0L) + + If id_Moby_Platform_Caches > 0 Then + 'Update + Dim sSQL_Update As String = "" + sSQL_Update &= "UPDATE tbl_Moby_Platforms_Caches SET" & ControlChars.CrLf + sSQL_Update &= " NumGames = " & TC.getSQLFormat(numGames) & ControlChars.CrLf + sSQL_Update &= "WHERE id_Moby_Platforms_Caches = " & TC.getSQLFormat(id_Moby_Platform_Caches) + + Return DataAccess.FireProcedure(tran.Connection, 0, sSQL_Update, tran) + Else + 'Insert + Dim sSQL_Insert As String = "" + sSQL_Insert &= "INSERT INTO tbl_Moby_Platforms_Caches (id_Moby_Platforms, id_Users, NumGames) VALUES (" & TC.getSQLParameter(id_Moby_Platforms, IIf(id_Users > 0, id_Users, DBNull.Value), numGames) & ")" + Return DataAccess.FireProcedure(tran.Connection, 0, sSQL_Insert, tran) + End If + + Return False + End Function +#End Region + +#Region "Rombase -> Main Migration Scripts" + Public Shared Sub Migrate_Rombase_DOSBox_Configs(ByRef conn As SQLite.SQLiteConnection) + Dim iMissingDOSBoxConfigs As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(conn, 0, "SELECT COUNT(1) FROM rombase.tbl_Rombase_DOSBox_Configs WHERE id_Rombase_DOSBox_Configs NOT IN (SELECT id_Rombase_DOSBox_Configs FROM main.tbl_DOSBox_Configs WHERE id_Rombase_DOSBox_Configs IS NOT NULL)"), 0) + + If iMissingDOSBoxConfigs > 0 Then + Dim dt_Colinfo As DataTable = DataAccess.FireProcedureReturnDT(conn, 0, False, "SELECT * FROM main.tbl_DOSBox_Configs LIMIT 0") + + Dim sSQL As String = "" + sSQL &= " INSERT INTO tbl_DOSBox_Configs" & ControlChars.CrLf + + Dim sSQL_Columns As String = " (isTemplate, id_Rombase_DOSBox_Configs" & ControlChars.CrLf + Dim sSQL_Rombase_Select As String = " SELECT 1, id_Rombase_DOSBox_Configs, " & ControlChars.CrLf + + Dim Blacklist As String() = {"id_DOSBox_Configs", "isTemplate", "id_Rombase_DOSBox_Configs"} + sSQL_Columns &= " , " & MKNetLib.cls_MKClientSupport.ListColumnNames(dt_Colinfo, Blacklist) + + + Dim bFirst As Boolean = True + + For i As Integer = 0 To dt_Colinfo.Columns.Count - Blacklist.Length - 1 + If bFirst Then bFirst = False Else sSQL_Rombase_Select &= " , " + sSQL_Rombase_Select &= "NULL" + Next + + sSQL_Columns &= " )" & ControlChars.CrLf + sSQL_Rombase_Select &= " FROM rombase.tbl_Rombase_DOSBox_Configs WHERE id_Rombase_DOSBox_Configs NOT IN (SELECT id_Rombase_DOSBox_Configs FROM main.tbl_DOSBox_Configs WHERE id_Rombase_DOSBox_Configs IS NOT NULL)" & ControlChars.CrLf + + sSQL &= sSQL_Columns & sSQL_Rombase_Select + + DataAccess.FireProcedureReturnScalar(conn, 0, sSQL) + End If + End Sub +#End Region +End Class diff --git a/Metropolis_Launcher/DataSets/DS_ML.xsc b/Metropolis_Launcher/DataSets/DS_ML.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_ML.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_ML.xsd b/Metropolis_Launcher/DataSets/DS_ML.xsd new file mode 100644 index 0000000..0a14d20 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_ML.xsd @@ -0,0 +1,1273 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_ML.xss b/Metropolis_Launcher/DataSets/DS_ML.xss new file mode 100644 index 0000000..569030a --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_ML.xss @@ -0,0 +1,50 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MLApps.Designer.vb b/Metropolis_Launcher/DataSets/DS_MLApps.Designer.vb new file mode 100644 index 0000000..5128b59 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MLApps.Designer.vb @@ -0,0 +1,1368 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_MLApps + Inherits Global.System.Data.DataSet + + Private tableCategories As CategoriesDataTable + + Private tableApps As AppsDataTable + + Private relationCategories_Apps As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("Categories")) Is Nothing) Then + MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories"))) + End If + If (Not (ds.Tables("Apps")) Is Nothing) Then + MyBase.Tables.Add(New AppsDataTable(ds.Tables("Apps"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property Categories() As CategoriesDataTable + Get + Return Me.tableCategories + End Get + End Property + + _ + Public ReadOnly Property Apps() As AppsDataTable + Get + Return Me.tableApps + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_MLApps = CType(MyBase.Clone,DS_MLApps) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("Categories")) Is Nothing) Then + MyBase.Tables.Add(New CategoriesDataTable(ds.Tables("Categories"))) + End If + If (Not (ds.Tables("Apps")) Is Nothing) Then + MyBase.Tables.Add(New AppsDataTable(ds.Tables("Apps"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableCategories = CType(MyBase.Tables("Categories"),CategoriesDataTable) + If (initTable = true) Then + If (Not (Me.tableCategories) Is Nothing) Then + Me.tableCategories.InitVars + End If + End If + Me.tableApps = CType(MyBase.Tables("Apps"),AppsDataTable) + If (initTable = true) Then + If (Not (Me.tableApps) Is Nothing) Then + Me.tableApps.InitVars + End If + End If + Me.relationCategories_Apps = Me.Relations("Categories_Apps") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_MLApps" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_MLApps.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableCategories = New CategoriesDataTable() + MyBase.Tables.Add(Me.tableCategories) + Me.tableApps = New AppsDataTable() + MyBase.Tables.Add(Me.tableApps) + Me.relationCategories_Apps = New Global.System.Data.DataRelation("Categories_Apps", New Global.System.Data.DataColumn() {Me.tableCategories.id_CategoriesColumn}, New Global.System.Data.DataColumn() {Me.tableApps.id_CategoriesColumn}, false) + Me.Relations.Add(Me.relationCategories_Apps) + End Sub + + _ + Private Function ShouldSerializeCategories() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeApps() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_MLApps = New DS_MLApps() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub CategoriesRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoriesRowChangeEvent) + + _ + Public Delegate Sub AppsRowChangeEventHandler(ByVal sender As Object, ByVal e As AppsRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class CategoriesDataTable + Inherits Global.System.Data.TypedTableBase(Of CategoriesRow) + + Private columnid_Categories As Global.System.Data.DataColumn + + Private columnCategory As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Categories" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Categories + End Get + End Property + + _ + Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCategory + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As CategoriesRow + Get + Return CType(Me.Rows(index),CategoriesRow) + End Get + End Property + + _ + Public Event CategoriesRowChanging As CategoriesRowChangeEventHandler + + _ + Public Event CategoriesRowChanged As CategoriesRowChangeEventHandler + + _ + Public Event CategoriesRowDeleting As CategoriesRowChangeEventHandler + + _ + Public Event CategoriesRowDeleted As CategoriesRowChangeEventHandler + + _ + Public Overloads Sub AddCategoriesRow(ByVal row As CategoriesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddCategoriesRow(ByVal id_Categories As Long, ByVal Category As String) As CategoriesRow + Dim rowCategoriesRow As CategoriesRow = CType(Me.NewRow,CategoriesRow) + Dim columnValuesArray() As Object = New Object() {id_Categories, Category} + rowCategoriesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowCategoriesRow) + Return rowCategoriesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As CategoriesDataTable = CType(MyBase.Clone,CategoriesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New CategoriesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Categories = MyBase.Columns("id_Categories") + Me.columnCategory = MyBase.Columns("Category") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Categories = New Global.System.Data.DataColumn("id_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Categories) + Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCategory) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Categories}, false)) + Me.columnid_Categories.Unique = true + End Sub + + _ + Public Function NewCategoriesRow() As CategoriesRow + Return CType(Me.NewRow,CategoriesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New CategoriesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(CategoriesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.CategoriesRowChangedEvent) Is Nothing) Then + RaiseEvent CategoriesRowChanged(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.CategoriesRowChangingEvent) Is Nothing) Then + RaiseEvent CategoriesRowChanging(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.CategoriesRowDeletedEvent) Is Nothing) Then + RaiseEvent CategoriesRowDeleted(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.CategoriesRowDeletingEvent) Is Nothing) Then + RaiseEvent CategoriesRowDeleting(Me, New CategoriesRowChangeEvent(CType(e.Row,CategoriesRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveCategoriesRow(ByVal row As CategoriesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MLApps = New DS_MLApps() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "CategoriesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class AppsDataTable + Inherits Global.System.Data.TypedTableBase(Of AppsRow) + + Private columnid_Apps As Global.System.Data.DataColumn + + Private columnid_Categories As Global.System.Data.DataColumn + + Private columnDisplayName As Global.System.Data.DataColumn + + Private columnExecutable As Global.System.Data.DataColumn + + Private columnArguments As Global.System.Data.DataColumn + + Private columnRunExclusive As Global.System.Data.DataColumn + + Private columnStat_Executions As Global.System.Data.DataColumn + + Private columnStat_RunLength As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Apps" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_AppsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Apps + End Get + End Property + + _ + Public ReadOnly Property id_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Categories + End Get + End Property + + _ + Public ReadOnly Property DisplayNameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayName + End Get + End Property + + _ + Public ReadOnly Property ExecutableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnExecutable + End Get + End Property + + _ + Public ReadOnly Property ArgumentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnArguments + End Get + End Property + + _ + Public ReadOnly Property RunExclusiveColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRunExclusive + End Get + End Property + + _ + Public ReadOnly Property Stat_ExecutionsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStat_Executions + End Get + End Property + + _ + Public ReadOnly Property Stat_RunLengthColumn() As Global.System.Data.DataColumn + Get + Return Me.columnStat_RunLength + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As AppsRow + Get + Return CType(Me.Rows(index),AppsRow) + End Get + End Property + + _ + Public Event AppsRowChanging As AppsRowChangeEventHandler + + _ + Public Event AppsRowChanged As AppsRowChangeEventHandler + + _ + Public Event AppsRowDeleting As AppsRowChangeEventHandler + + _ + Public Event AppsRowDeleted As AppsRowChangeEventHandler + + _ + Public Overloads Sub AddAppsRow(ByVal row As AppsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddAppsRow(ByVal id_Apps As Long, ByVal parentCategoriesRowByCategories_Apps As CategoriesRow, ByVal DisplayName As String, ByVal Executable As String, ByVal Arguments As String, ByVal RunExclusive As Boolean, ByVal Stat_Executions As Integer, ByVal Stat_RunLength As Integer, ByVal Description As String) As AppsRow + Dim rowAppsRow As AppsRow = CType(Me.NewRow,AppsRow) + Dim columnValuesArray() As Object = New Object() {id_Apps, Nothing, DisplayName, Executable, Arguments, RunExclusive, Stat_Executions, Stat_RunLength, Description} + If (Not (parentCategoriesRowByCategories_Apps) Is Nothing) Then + columnValuesArray(1) = parentCategoriesRowByCategories_Apps(0) + End If + rowAppsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowAppsRow) + Return rowAppsRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As AppsDataTable = CType(MyBase.Clone,AppsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New AppsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Apps = MyBase.Columns("id_Apps") + Me.columnid_Categories = MyBase.Columns("id_Categories") + Me.columnDisplayName = MyBase.Columns("DisplayName") + Me.columnExecutable = MyBase.Columns("Executable") + Me.columnArguments = MyBase.Columns("Arguments") + Me.columnRunExclusive = MyBase.Columns("RunExclusive") + Me.columnStat_Executions = MyBase.Columns("Stat_Executions") + Me.columnStat_RunLength = MyBase.Columns("Stat_RunLength") + Me.columnDescription = MyBase.Columns("Description") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Apps = New Global.System.Data.DataColumn("id_Apps", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Apps) + Me.columnid_Categories = New Global.System.Data.DataColumn("id_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Categories) + Me.columnDisplayName = New Global.System.Data.DataColumn("DisplayName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayName) + Me.columnExecutable = New Global.System.Data.DataColumn("Executable", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnExecutable) + Me.columnArguments = New Global.System.Data.DataColumn("Arguments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnArguments) + Me.columnRunExclusive = New Global.System.Data.DataColumn("RunExclusive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRunExclusive) + Me.columnStat_Executions = New Global.System.Data.DataColumn("Stat_Executions", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStat_Executions) + Me.columnStat_RunLength = New Global.System.Data.DataColumn("Stat_RunLength", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnStat_RunLength) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnRunExclusive.DefaultValue = CType(true,Boolean) + Me.columnStat_Executions.DefaultValue = CType(0,Integer) + Me.columnStat_RunLength.DefaultValue = CType(0,Integer) + End Sub + + _ + Public Function NewAppsRow() As AppsRow + Return CType(Me.NewRow,AppsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New AppsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(AppsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.AppsRowChangedEvent) Is Nothing) Then + RaiseEvent AppsRowChanged(Me, New AppsRowChangeEvent(CType(e.Row,AppsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.AppsRowChangingEvent) Is Nothing) Then + RaiseEvent AppsRowChanging(Me, New AppsRowChangeEvent(CType(e.Row,AppsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.AppsRowDeletedEvent) Is Nothing) Then + RaiseEvent AppsRowDeleted(Me, New AppsRowChangeEvent(CType(e.Row,AppsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.AppsRowDeletingEvent) Is Nothing) Then + RaiseEvent AppsRowDeleting(Me, New AppsRowChangeEvent(CType(e.Row,AppsRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveAppsRow(ByVal row As AppsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MLApps = New DS_MLApps() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "AppsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class CategoriesRow + Inherits Global.System.Data.DataRow + + Private tableCategories As CategoriesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableCategories = CType(Me.Table,CategoriesDataTable) + End Sub + + _ + Public Property id_Categories() As Long + Get + Try + Return CType(Me(Me.tableCategories.id_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Categories in Tabelle Categories ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableCategories.id_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Category() As String + Get + Try + Return CType(Me(Me.tableCategories.CategoryColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Category in Tabelle Categories ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableCategories.CategoryColumn) = value + End Set + End Property + + _ + Public Function Isid_CategoriesNull() As Boolean + Return Me.IsNull(Me.tableCategories.id_CategoriesColumn) + End Function + + _ + Public Sub Setid_CategoriesNull() + Me(Me.tableCategories.id_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCategoryNull() As Boolean + Return Me.IsNull(Me.tableCategories.CategoryColumn) + End Function + + _ + Public Sub SetCategoryNull() + Me(Me.tableCategories.CategoryColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetAppsRows() As AppsRow() + If (Me.Table.ChildRelations("Categories_Apps") Is Nothing) Then + Return New AppsRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("Categories_Apps")),AppsRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class AppsRow + Inherits Global.System.Data.DataRow + + Private tableApps As AppsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableApps = CType(Me.Table,AppsDataTable) + End Sub + + _ + Public Property id_Apps() As Long + Get + Try + Return CType(Me(Me.tableApps.id_AppsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Apps in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.id_AppsColumn) = value + End Set + End Property + + _ + Public Property id_Categories() As Long + Get + Try + Return CType(Me(Me.tableApps.id_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Categories in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.id_CategoriesColumn) = value + End Set + End Property + + _ + Public Property DisplayName() As String + Get + Try + Return CType(Me(Me.tableApps.DisplayNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DisplayName in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.DisplayNameColumn) = value + End Set + End Property + + _ + Public Property Executable() As String + Get + Try + Return CType(Me(Me.tableApps.ExecutableColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Executable in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.ExecutableColumn) = value + End Set + End Property + + _ + Public Property Arguments() As String + Get + Try + Return CType(Me(Me.tableApps.ArgumentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Arguments in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.ArgumentsColumn) = value + End Set + End Property + + _ + Public Property RunExclusive() As Boolean + Get + Try + Return CType(Me(Me.tableApps.RunExclusiveColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RunExclusive in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.RunExclusiveColumn) = value + End Set + End Property + + _ + Public Property Stat_Executions() As Integer + Get + Try + Return CType(Me(Me.tableApps.Stat_ExecutionsColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Stat_Executions in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.Stat_ExecutionsColumn) = value + End Set + End Property + + _ + Public Property Stat_RunLength() As Integer + Get + Try + Return CType(Me(Me.tableApps.Stat_RunLengthColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Stat_RunLength in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.Stat_RunLengthColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tableApps.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle Apps ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableApps.DescriptionColumn) = value + End Set + End Property + + _ + Public Property CategoriesRow() As CategoriesRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("Categories_Apps")),CategoriesRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("Categories_Apps")) + End Set + End Property + + _ + Public Function Isid_AppsNull() As Boolean + Return Me.IsNull(Me.tableApps.id_AppsColumn) + End Function + + _ + Public Sub Setid_AppsNull() + Me(Me.tableApps.id_AppsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_CategoriesNull() As Boolean + Return Me.IsNull(Me.tableApps.id_CategoriesColumn) + End Function + + _ + Public Sub Setid_CategoriesNull() + Me(Me.tableApps.id_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplayNameNull() As Boolean + Return Me.IsNull(Me.tableApps.DisplayNameColumn) + End Function + + _ + Public Sub SetDisplayNameNull() + Me(Me.tableApps.DisplayNameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsExecutableNull() As Boolean + Return Me.IsNull(Me.tableApps.ExecutableColumn) + End Function + + _ + Public Sub SetExecutableNull() + Me(Me.tableApps.ExecutableColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsArgumentsNull() As Boolean + Return Me.IsNull(Me.tableApps.ArgumentsColumn) + End Function + + _ + Public Sub SetArgumentsNull() + Me(Me.tableApps.ArgumentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRunExclusiveNull() As Boolean + Return Me.IsNull(Me.tableApps.RunExclusiveColumn) + End Function + + _ + Public Sub SetRunExclusiveNull() + Me(Me.tableApps.RunExclusiveColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStat_ExecutionsNull() As Boolean + Return Me.IsNull(Me.tableApps.Stat_ExecutionsColumn) + End Function + + _ + Public Sub SetStat_ExecutionsNull() + Me(Me.tableApps.Stat_ExecutionsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsStat_RunLengthNull() As Boolean + Return Me.IsNull(Me.tableApps.Stat_RunLengthColumn) + End Function + + _ + Public Sub SetStat_RunLengthNull() + Me(Me.tableApps.Stat_RunLengthColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tableApps.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tableApps.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class CategoriesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As CategoriesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As CategoriesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As CategoriesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class AppsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As AppsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As AppsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As AppsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Metropolis_Launcher/DataSets/DS_MLApps.vb b/Metropolis_Launcher/DataSets/DS_MLApps.vb new file mode 100644 index 0000000..2cf20aa --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MLApps.vb @@ -0,0 +1,45 @@ +Partial Class DS_MLApps + Public Shared Function Fill_Categories(ByRef conn As SQLite.SQLiteConnection, ByRef dt As CategoriesDataTable) As Boolean + dt.Clear() + DataAccess.FireProcedureReturnDT(conn, 0, False, "SELECT id_Apps_Categories AS id_Categories, Category FROM tbl_Apps_Categories", dt) + Return True + End Function + + Public Shared Function Fill_Apps(ByRef conn As SQLite.SQLiteConnection, ByRef dt As AppsDataTable) As Boolean + dt.Clear() + DataAccess.FireProcedureReturnDT(conn, 0, False, "SELECT id_Apps, id_Categories, DisplayName, Executable, Arguments, RunExclusive, Stat_Executions, Stat_RunLength, Description FROM tbl_Apps", dt) + Return True + End Function + + Public Shared Function Update_Apps(ByRef conn As SQLite.SQLiteConnection, ByRef dt As AppsDataTable) As Boolean + For Each row As DataRow In dt.Rows + If row.RowState = DataRowState.Deleted Then + DataAccess.FireProcedure(conn, 0, "DELETE FROM tbl_Apps WHERE id_Apps = " & TC.getSQLFormat(row("id_Apps", DataRowVersion.Original))) + End If + + If row.RowState = DataRowState.Added Then + Dim id_Apps As Integer = DataAccess.FireProcedureReturnScalar(conn, 0, "INSERT INTO tbl_Apps (id_Categories, DisplayName, Executable, Arguments, RunExclusive, Stat_Executions, Stat_RunLength, Description) VALUES (" & TC.getSQLParameter(row("id_Categories"), row("DisplayName"), row("Executable"), row("Arguments"), row("RunExclusive"), row("Stat_Executions"), row("Stat_RunLength"), row("Description")) & "); SELECT last_insert_rowid()") + row("id_Apps") = id_Apps + End If + + If row.RowState = DataRowState.Modified Then + Dim sSQL As String = "UPDATE tbl_Apps SET " + sSQL &= " id_Categories = " & TC.getSQLFormat(row("id_Categories")) + sSQL &= " , DisplayName = " & TC.getSQLFormat(row("DisplayName")) + sSQL &= " , Executable = " & TC.getSQLFormat(row("Executable")) + sSQL &= " , Arguments = " & TC.getSQLFormat(row("Arguments")) + sSQL &= " , RunExclusive = " & TC.getSQLFormat(row("RunExclusive")) + sSQL &= " , Stat_Executions = " & TC.getSQLFormat(row("Stat_Executions")) + sSQL &= " , Stat_RunLength = " & TC.getSQLFormat(row("Stat_RunLength")) + sSQL &= " , Description = " & TC.getSQLFormat(row("Description")) + sSQL &= " WHERE id_Apps = " & TC.getSQLFormat(row("id_Apps")) + + DataAccess.FireProcedure(conn, 0, sSQL) + End If + Next + + dt.AcceptChanges() + + Return True + End Function +End Class diff --git a/Metropolis_Launcher/DataSets/DS_MLApps.xsc b/Metropolis_Launcher/DataSets/DS_MLApps.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MLApps.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MLApps.xsd b/Metropolis_Launcher/DataSets/DS_MLApps.xsd new file mode 100644 index 0000000..ece00a4 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MLApps.xsd @@ -0,0 +1,50 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MLApps.xss b/Metropolis_Launcher/DataSets/DS_MLApps.xss new file mode 100644 index 0000000..39059ee --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MLApps.xss @@ -0,0 +1,26 @@ + + + + + + + + + + + + 152 + 36 + + + 344 + 36 + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MobyDB.Designer.vb b/Metropolis_Launcher/DataSets/DS_MobyDB.Designer.vb new file mode 100644 index 0000000..56c474d --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MobyDB.Designer.vb @@ -0,0 +1,5715 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_MobyDB + Inherits Global.System.Data.DataSet + + Private tabletbl_Moby_Attributes As tbl_Moby_AttributesDataTable + + Private tabletbl_Moby_Releases As tbl_Moby_ReleasesDataTable + + Private tabletbl_Moby_Companies As tbl_Moby_CompaniesDataTable + + Private tabletbl_Moby_Games As tbl_Moby_GamesDataTable + + Private tabletbl_Moby_Genres As tbl_Moby_GenresDataTable + + Private tabletbl_Moby_Platforms As tbl_Moby_PlatformsDataTable + + Private tabletbl_Moby_Games_Alternate_Titles As tbl_Moby_Games_Alternate_TitlesDataTable + + Private tabletbl_Moby_Games_Genres As tbl_Moby_Games_GenresDataTable + + Private tabletbl_Moby_Game_Groups As tbl_Moby_Game_GroupsDataTable + + Private tablesrc_Moby_Releases As src_Moby_ReleasesDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("tbl_Moby_Attributes")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_AttributesDataTable(ds.Tables("tbl_Moby_Attributes"))) + End If + If (Not (ds.Tables("tbl_Moby_Releases")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_ReleasesDataTable(ds.Tables("tbl_Moby_Releases"))) + End If + If (Not (ds.Tables("tbl_Moby_Companies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_CompaniesDataTable(ds.Tables("tbl_Moby_Companies"))) + End If + If (Not (ds.Tables("tbl_Moby_Games")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_GamesDataTable(ds.Tables("tbl_Moby_Games"))) + End If + If (Not (ds.Tables("tbl_Moby_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_GenresDataTable(ds.Tables("tbl_Moby_Genres"))) + End If + If (Not (ds.Tables("tbl_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_PlatformsDataTable(ds.Tables("tbl_Moby_Platforms"))) + End If + If (Not (ds.Tables("tbl_Moby_Games_Alternate_Titles")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Games_Alternate_TitlesDataTable(ds.Tables("tbl_Moby_Games_Alternate_Titles"))) + End If + If (Not (ds.Tables("tbl_Moby_Games_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Games_GenresDataTable(ds.Tables("tbl_Moby_Games_Genres"))) + End If + If (Not (ds.Tables("tbl_Moby_Game_Groups")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Game_GroupsDataTable(ds.Tables("tbl_Moby_Game_Groups"))) + End If + If (Not (ds.Tables("src_Moby_Releases")) Is Nothing) Then + MyBase.Tables.Add(New src_Moby_ReleasesDataTable(ds.Tables("src_Moby_Releases"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property tbl_Moby_Attributes() As tbl_Moby_AttributesDataTable + Get + Return Me.tabletbl_Moby_Attributes + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Releases() As tbl_Moby_ReleasesDataTable + Get + Return Me.tabletbl_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Companies() As tbl_Moby_CompaniesDataTable + Get + Return Me.tabletbl_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Games() As tbl_Moby_GamesDataTable + Get + Return Me.tabletbl_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Genres() As tbl_Moby_GenresDataTable + Get + Return Me.tabletbl_Moby_Genres + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Platforms() As tbl_Moby_PlatformsDataTable + Get + Return Me.tabletbl_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Games_Alternate_Titles() As tbl_Moby_Games_Alternate_TitlesDataTable + Get + Return Me.tabletbl_Moby_Games_Alternate_Titles + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Games_Genres() As tbl_Moby_Games_GenresDataTable + Get + Return Me.tabletbl_Moby_Games_Genres + End Get + End Property + + _ + Public ReadOnly Property tbl_Moby_Game_Groups() As tbl_Moby_Game_GroupsDataTable + Get + Return Me.tabletbl_Moby_Game_Groups + End Get + End Property + + _ + Public ReadOnly Property src_Moby_Releases() As src_Moby_ReleasesDataTable + Get + Return Me.tablesrc_Moby_Releases + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_MobyDB = CType(MyBase.Clone,DS_MobyDB) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("tbl_Moby_Attributes")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_AttributesDataTable(ds.Tables("tbl_Moby_Attributes"))) + End If + If (Not (ds.Tables("tbl_Moby_Releases")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_ReleasesDataTable(ds.Tables("tbl_Moby_Releases"))) + End If + If (Not (ds.Tables("tbl_Moby_Companies")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_CompaniesDataTable(ds.Tables("tbl_Moby_Companies"))) + End If + If (Not (ds.Tables("tbl_Moby_Games")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_GamesDataTable(ds.Tables("tbl_Moby_Games"))) + End If + If (Not (ds.Tables("tbl_Moby_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_GenresDataTable(ds.Tables("tbl_Moby_Genres"))) + End If + If (Not (ds.Tables("tbl_Moby_Platforms")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_PlatformsDataTable(ds.Tables("tbl_Moby_Platforms"))) + End If + If (Not (ds.Tables("tbl_Moby_Games_Alternate_Titles")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Games_Alternate_TitlesDataTable(ds.Tables("tbl_Moby_Games_Alternate_Titles"))) + End If + If (Not (ds.Tables("tbl_Moby_Games_Genres")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Games_GenresDataTable(ds.Tables("tbl_Moby_Games_Genres"))) + End If + If (Not (ds.Tables("tbl_Moby_Game_Groups")) Is Nothing) Then + MyBase.Tables.Add(New tbl_Moby_Game_GroupsDataTable(ds.Tables("tbl_Moby_Game_Groups"))) + End If + If (Not (ds.Tables("src_Moby_Releases")) Is Nothing) Then + MyBase.Tables.Add(New src_Moby_ReleasesDataTable(ds.Tables("src_Moby_Releases"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tabletbl_Moby_Attributes = CType(MyBase.Tables("tbl_Moby_Attributes"),tbl_Moby_AttributesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Attributes) Is Nothing) Then + Me.tabletbl_Moby_Attributes.InitVars + End If + End If + Me.tabletbl_Moby_Releases = CType(MyBase.Tables("tbl_Moby_Releases"),tbl_Moby_ReleasesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Releases) Is Nothing) Then + Me.tabletbl_Moby_Releases.InitVars + End If + End If + Me.tabletbl_Moby_Companies = CType(MyBase.Tables("tbl_Moby_Companies"),tbl_Moby_CompaniesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Companies) Is Nothing) Then + Me.tabletbl_Moby_Companies.InitVars + End If + End If + Me.tabletbl_Moby_Games = CType(MyBase.Tables("tbl_Moby_Games"),tbl_Moby_GamesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Games) Is Nothing) Then + Me.tabletbl_Moby_Games.InitVars + End If + End If + Me.tabletbl_Moby_Genres = CType(MyBase.Tables("tbl_Moby_Genres"),tbl_Moby_GenresDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Genres) Is Nothing) Then + Me.tabletbl_Moby_Genres.InitVars + End If + End If + Me.tabletbl_Moby_Platforms = CType(MyBase.Tables("tbl_Moby_Platforms"),tbl_Moby_PlatformsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Platforms) Is Nothing) Then + Me.tabletbl_Moby_Platforms.InitVars + End If + End If + Me.tabletbl_Moby_Games_Alternate_Titles = CType(MyBase.Tables("tbl_Moby_Games_Alternate_Titles"),tbl_Moby_Games_Alternate_TitlesDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Games_Alternate_Titles) Is Nothing) Then + Me.tabletbl_Moby_Games_Alternate_Titles.InitVars + End If + End If + Me.tabletbl_Moby_Games_Genres = CType(MyBase.Tables("tbl_Moby_Games_Genres"),tbl_Moby_Games_GenresDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Games_Genres) Is Nothing) Then + Me.tabletbl_Moby_Games_Genres.InitVars + End If + End If + Me.tabletbl_Moby_Game_Groups = CType(MyBase.Tables("tbl_Moby_Game_Groups"),tbl_Moby_Game_GroupsDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Moby_Game_Groups) Is Nothing) Then + Me.tabletbl_Moby_Game_Groups.InitVars + End If + End If + Me.tablesrc_Moby_Releases = CType(MyBase.Tables("src_Moby_Releases"),src_Moby_ReleasesDataTable) + If (initTable = true) Then + If (Not (Me.tablesrc_Moby_Releases) Is Nothing) Then + Me.tablesrc_Moby_Releases.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_MobyDB" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_MobyDB.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbl_Moby_Attributes = New tbl_Moby_AttributesDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Attributes) + Me.tabletbl_Moby_Releases = New tbl_Moby_ReleasesDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Releases) + Me.tabletbl_Moby_Companies = New tbl_Moby_CompaniesDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Companies) + Me.tabletbl_Moby_Games = New tbl_Moby_GamesDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Games) + Me.tabletbl_Moby_Genres = New tbl_Moby_GenresDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Genres) + Me.tabletbl_Moby_Platforms = New tbl_Moby_PlatformsDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Platforms) + Me.tabletbl_Moby_Games_Alternate_Titles = New tbl_Moby_Games_Alternate_TitlesDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Games_Alternate_Titles) + Me.tabletbl_Moby_Games_Genres = New tbl_Moby_Games_GenresDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Games_Genres) + Me.tabletbl_Moby_Game_Groups = New tbl_Moby_Game_GroupsDataTable() + MyBase.Tables.Add(Me.tabletbl_Moby_Game_Groups) + Me.tablesrc_Moby_Releases = New src_Moby_ReleasesDataTable() + MyBase.Tables.Add(Me.tablesrc_Moby_Releases) + End Sub + + _ + Private Function ShouldSerializetbl_Moby_Attributes() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Releases() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Companies() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Games() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Genres() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Platforms() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Games_Alternate_Titles() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Games_Genres() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Moby_Game_Groups() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializesrc_Moby_Releases() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub tbl_Moby_AttributesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_AttributesRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_ReleasesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_ReleasesRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_CompaniesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_CompaniesRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_GamesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_GamesRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_GenresRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_GenresRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_PlatformsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_PlatformsRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_Games_Alternate_TitlesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_Games_Alternate_TitlesRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_Games_GenresRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_Games_GenresRowChangeEvent) + + _ + Public Delegate Sub tbl_Moby_Game_GroupsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_Game_GroupsRowChangeEvent) + + _ + Public Delegate Sub src_Moby_ReleasesRowChangeEventHandler(ByVal sender As Object, ByVal e As src_Moby_ReleasesRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_AttributesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_AttributesRow) + + Private columnid_Moby_Attributes As Global.System.Data.DataColumn + + Private columnid_Moby_Attributes_Categories As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Attributes" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Attributes + End Get + End Property + + _ + Public ReadOnly Property id_Moby_Attributes_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Attributes_Categories + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_AttributesRow + Get + Return CType(Me.Rows(index),tbl_Moby_AttributesRow) + End Get + End Property + + _ + Public Event tbl_Moby_AttributesRowChanging As tbl_Moby_AttributesRowChangeEventHandler + + _ + Public Event tbl_Moby_AttributesRowChanged As tbl_Moby_AttributesRowChangeEventHandler + + _ + Public Event tbl_Moby_AttributesRowDeleting As tbl_Moby_AttributesRowChangeEventHandler + + _ + Public Event tbl_Moby_AttributesRowDeleted As tbl_Moby_AttributesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_AttributesRow(ByVal row As tbl_Moby_AttributesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_AttributesRow(ByVal id_Moby_Attributes_Categories As Long, ByVal Name As String) As tbl_Moby_AttributesRow + Dim rowtbl_Moby_AttributesRow As tbl_Moby_AttributesRow = CType(Me.NewRow,tbl_Moby_AttributesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Moby_Attributes_Categories, Name} + rowtbl_Moby_AttributesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_AttributesRow) + Return rowtbl_Moby_AttributesRow + End Function + + _ + Public Function FindByid_Moby_Attributes(ByVal id_Moby_Attributes As Long) As tbl_Moby_AttributesRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Attributes}),tbl_Moby_AttributesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_AttributesDataTable = CType(MyBase.Clone,tbl_Moby_AttributesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_AttributesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Attributes = MyBase.Columns("id_Moby_Attributes") + Me.columnid_Moby_Attributes_Categories = MyBase.Columns("id_Moby_Attributes_Categories") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Attributes = New Global.System.Data.DataColumn("id_Moby_Attributes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Attributes) + Me.columnid_Moby_Attributes_Categories = New Global.System.Data.DataColumn("id_Moby_Attributes_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Attributes_Categories) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Attributes}, true)) + Me.columnid_Moby_Attributes.AutoIncrement = true + Me.columnid_Moby_Attributes.AutoIncrementSeed = -1 + Me.columnid_Moby_Attributes.AutoIncrementStep = -1 + Me.columnid_Moby_Attributes.AllowDBNull = false + Me.columnid_Moby_Attributes.Unique = true + Me.columnName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_AttributesRow() As tbl_Moby_AttributesRow + Return CType(Me.NewRow,tbl_Moby_AttributesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_AttributesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_AttributesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_AttributesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_AttributesRowChanged(Me, New tbl_Moby_AttributesRowChangeEvent(CType(e.Row,tbl_Moby_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_AttributesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_AttributesRowChanging(Me, New tbl_Moby_AttributesRowChangeEvent(CType(e.Row,tbl_Moby_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_AttributesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_AttributesRowDeleted(Me, New tbl_Moby_AttributesRowChangeEvent(CType(e.Row,tbl_Moby_AttributesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_AttributesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_AttributesRowDeleting(Me, New tbl_Moby_AttributesRowChangeEvent(CType(e.Row,tbl_Moby_AttributesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_AttributesRow(ByVal row As tbl_Moby_AttributesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_AttributesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_ReleasesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_ReleasesRow) + + Private columnid_Moby_Releases As Global.System.Data.DataColumn + + Private columnid_Moby_Games As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnMobyRank As Global.System.Data.DataColumn + + Private columnMobyScore As Global.System.Data.DataColumn + + Private columnPublisher_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnDeveloper_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnURL As Global.System.Data.DataColumn + + Private columnTechnical_Notes As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Releases" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property id_Moby_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property MobyRankColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMobyRank + End Get + End Property + + _ + Public ReadOnly Property MobyScoreColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMobyScore + End Get + End Property + + _ + Public ReadOnly Property Publisher_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property Developer_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property URLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURL + End Get + End Property + + _ + Public ReadOnly Property Technical_NotesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTechnical_Notes + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_ReleasesRow + Get + Return CType(Me.Rows(index),tbl_Moby_ReleasesRow) + End Get + End Property + + _ + Public Event tbl_Moby_ReleasesRowChanging As tbl_Moby_ReleasesRowChangeEventHandler + + _ + Public Event tbl_Moby_ReleasesRowChanged As tbl_Moby_ReleasesRowChangeEventHandler + + _ + Public Event tbl_Moby_ReleasesRowDeleting As tbl_Moby_ReleasesRowChangeEventHandler + + _ + Public Event tbl_Moby_ReleasesRowDeleted As tbl_Moby_ReleasesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_ReleasesRow(ByVal row As tbl_Moby_ReleasesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_ReleasesRow(ByVal id_Moby_Releases As Long, ByVal id_Moby_Games As Long, ByVal id_Moby_Platforms As Long, ByVal MobyRank As Long, ByVal MobyScore As Single, ByVal Publisher_id_Moby_Companies As Long, ByVal Developer_id_Moby_Companies As Long, ByVal URL As String, ByVal Technical_Notes As String) As tbl_Moby_ReleasesRow + Dim rowtbl_Moby_ReleasesRow As tbl_Moby_ReleasesRow = CType(Me.NewRow,tbl_Moby_ReleasesRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Releases, id_Moby_Games, id_Moby_Platforms, MobyRank, MobyScore, Publisher_id_Moby_Companies, Developer_id_Moby_Companies, URL, Technical_Notes} + rowtbl_Moby_ReleasesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_ReleasesRow) + Return rowtbl_Moby_ReleasesRow + End Function + + _ + Public Function FindByid_Moby_Releases(ByVal id_Moby_Releases As Long) As tbl_Moby_ReleasesRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Releases}),tbl_Moby_ReleasesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_ReleasesDataTable = CType(MyBase.Clone,tbl_Moby_ReleasesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_ReleasesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Releases = MyBase.Columns("id_Moby_Releases") + Me.columnid_Moby_Games = MyBase.Columns("id_Moby_Games") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnMobyRank = MyBase.Columns("MobyRank") + Me.columnMobyScore = MyBase.Columns("MobyScore") + Me.columnPublisher_id_Moby_Companies = MyBase.Columns("Publisher_id_Moby_Companies") + Me.columnDeveloper_id_Moby_Companies = MyBase.Columns("Developer_id_Moby_Companies") + Me.columnURL = MyBase.Columns("URL") + Me.columnTechnical_Notes = MyBase.Columns("Technical_Notes") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Releases = New Global.System.Data.DataColumn("id_Moby_Releases", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases) + Me.columnid_Moby_Games = New Global.System.Data.DataColumn("id_Moby_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnMobyRank = New Global.System.Data.DataColumn("MobyRank", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMobyRank) + Me.columnMobyScore = New Global.System.Data.DataColumn("MobyScore", GetType(Single), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMobyScore) + Me.columnPublisher_id_Moby_Companies = New Global.System.Data.DataColumn("Publisher_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher_id_Moby_Companies) + Me.columnDeveloper_id_Moby_Companies = New Global.System.Data.DataColumn("Developer_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper_id_Moby_Companies) + Me.columnURL = New Global.System.Data.DataColumn("URL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURL) + Me.columnTechnical_Notes = New Global.System.Data.DataColumn("Technical_Notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTechnical_Notes) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Releases}, true)) + Me.columnid_Moby_Releases.AllowDBNull = false + Me.columnid_Moby_Releases.Unique = true + Me.columnURL.MaxLength = 2147483647 + Me.columnTechnical_Notes.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_ReleasesRow() As tbl_Moby_ReleasesRow + Return CType(Me.NewRow,tbl_Moby_ReleasesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_ReleasesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_ReleasesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_ReleasesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_ReleasesRowChanged(Me, New tbl_Moby_ReleasesRowChangeEvent(CType(e.Row,tbl_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_ReleasesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_ReleasesRowChanging(Me, New tbl_Moby_ReleasesRowChangeEvent(CType(e.Row,tbl_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_ReleasesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_ReleasesRowDeleted(Me, New tbl_Moby_ReleasesRowChangeEvent(CType(e.Row,tbl_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_ReleasesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_ReleasesRowDeleting(Me, New tbl_Moby_ReleasesRowChangeEvent(CType(e.Row,tbl_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_ReleasesRow(ByVal row As tbl_Moby_ReleasesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_ReleasesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_CompaniesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_CompaniesRow) + + Private columnid_Moby_Companies As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Companies" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_CompaniesRow + Get + Return CType(Me.Rows(index),tbl_Moby_CompaniesRow) + End Get + End Property + + _ + Public Event tbl_Moby_CompaniesRowChanging As tbl_Moby_CompaniesRowChangeEventHandler + + _ + Public Event tbl_Moby_CompaniesRowChanged As tbl_Moby_CompaniesRowChangeEventHandler + + _ + Public Event tbl_Moby_CompaniesRowDeleting As tbl_Moby_CompaniesRowChangeEventHandler + + _ + Public Event tbl_Moby_CompaniesRowDeleted As tbl_Moby_CompaniesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_CompaniesRow(ByVal row As tbl_Moby_CompaniesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_CompaniesRow(ByVal id_Moby_Companies As Long, ByVal URLPart As String, ByVal Name As String) As tbl_Moby_CompaniesRow + Dim rowtbl_Moby_CompaniesRow As tbl_Moby_CompaniesRow = CType(Me.NewRow,tbl_Moby_CompaniesRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Companies, URLPart, Name} + rowtbl_Moby_CompaniesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_CompaniesRow) + Return rowtbl_Moby_CompaniesRow + End Function + + _ + Public Function FindByid_Moby_Companies(ByVal id_Moby_Companies As Long) As tbl_Moby_CompaniesRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Companies}),tbl_Moby_CompaniesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_CompaniesDataTable = CType(MyBase.Clone,tbl_Moby_CompaniesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_CompaniesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Companies = MyBase.Columns("id_Moby_Companies") + Me.columnURLPart = MyBase.Columns("URLPart") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Companies = New Global.System.Data.DataColumn("id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Companies) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Companies}, true)) + Me.columnid_Moby_Companies.AllowDBNull = false + Me.columnid_Moby_Companies.Unique = true + Me.columnURLPart.MaxLength = 2147483647 + Me.columnName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_CompaniesRow() As tbl_Moby_CompaniesRow + Return CType(Me.NewRow,tbl_Moby_CompaniesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_CompaniesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_CompaniesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_CompaniesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_CompaniesRowChanged(Me, New tbl_Moby_CompaniesRowChangeEvent(CType(e.Row,tbl_Moby_CompaniesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_CompaniesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_CompaniesRowChanging(Me, New tbl_Moby_CompaniesRowChangeEvent(CType(e.Row,tbl_Moby_CompaniesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_CompaniesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_CompaniesRowDeleted(Me, New tbl_Moby_CompaniesRowChangeEvent(CType(e.Row,tbl_Moby_CompaniesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_CompaniesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_CompaniesRowDeleting(Me, New tbl_Moby_CompaniesRowChangeEvent(CType(e.Row,tbl_Moby_CompaniesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_CompaniesRow(ByVal row As tbl_Moby_CompaniesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_CompaniesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_GamesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_GamesRow) + + Private columnid_Moby_Games As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Games" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_GamesRow + Get + Return CType(Me.Rows(index),tbl_Moby_GamesRow) + End Get + End Property + + _ + Public Event tbl_Moby_GamesRowChanging As tbl_Moby_GamesRowChangeEventHandler + + _ + Public Event tbl_Moby_GamesRowChanged As tbl_Moby_GamesRowChangeEventHandler + + _ + Public Event tbl_Moby_GamesRowDeleting As tbl_Moby_GamesRowChangeEventHandler + + _ + Public Event tbl_Moby_GamesRowDeleted As tbl_Moby_GamesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_GamesRow(ByVal row As tbl_Moby_GamesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_GamesRow(ByVal id_Moby_Games As Long, ByVal URLPart As String, ByVal Name As String) As tbl_Moby_GamesRow + Dim rowtbl_Moby_GamesRow As tbl_Moby_GamesRow = CType(Me.NewRow,tbl_Moby_GamesRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Games, URLPart, Name} + rowtbl_Moby_GamesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_GamesRow) + Return rowtbl_Moby_GamesRow + End Function + + _ + Public Function FindByid_Moby_Games(ByVal id_Moby_Games As Long) As tbl_Moby_GamesRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Games}),tbl_Moby_GamesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_GamesDataTable = CType(MyBase.Clone,tbl_Moby_GamesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_GamesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Games = MyBase.Columns("id_Moby_Games") + Me.columnURLPart = MyBase.Columns("URLPart") + Me.columnName = MyBase.Columns("Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Games = New Global.System.Data.DataColumn("id_Moby_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Games}, true)) + Me.columnid_Moby_Games.AllowDBNull = false + Me.columnid_Moby_Games.Unique = true + Me.columnURLPart.MaxLength = 2147483647 + Me.columnName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_GamesRow() As tbl_Moby_GamesRow + Return CType(Me.NewRow,tbl_Moby_GamesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_GamesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_GamesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_GamesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GamesRowChanged(Me, New tbl_Moby_GamesRowChangeEvent(CType(e.Row,tbl_Moby_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_GamesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GamesRowChanging(Me, New tbl_Moby_GamesRowChangeEvent(CType(e.Row,tbl_Moby_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_GamesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GamesRowDeleted(Me, New tbl_Moby_GamesRowChangeEvent(CType(e.Row,tbl_Moby_GamesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_GamesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GamesRowDeleting(Me, New tbl_Moby_GamesRowChangeEvent(CType(e.Row,tbl_Moby_GamesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_GamesRow(ByVal row As tbl_Moby_GamesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_GamesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_GenresDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_GenresRow) + + Private columnid_Moby_Genres As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnBasic_Genres As Global.System.Data.DataColumn + + Private columnPerspectives As Global.System.Data.DataColumn + + Private columnSports_Themes As Global.System.Data.DataColumn + + Private columnNon_Sports_Themes As Global.System.Data.DataColumn + + Private columnEducational_Categories As Global.System.Data.DataColumn + + Private columnOther_Attributes As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Genres" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Genres + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property Basic_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBasic_Genres + End Get + End Property + + _ + Public ReadOnly Property PerspectivesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPerspectives + End Get + End Property + + _ + Public ReadOnly Property Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSports_Themes + End Get + End Property + + _ + Public ReadOnly Property Non_Sports_ThemesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNon_Sports_Themes + End Get + End Property + + _ + Public ReadOnly Property Educational_CategoriesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEducational_Categories + End Get + End Property + + _ + Public ReadOnly Property Other_AttributesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOther_Attributes + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_GenresRow + Get + Return CType(Me.Rows(index),tbl_Moby_GenresRow) + End Get + End Property + + _ + Public Event tbl_Moby_GenresRowChanging As tbl_Moby_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_GenresRowChanged As tbl_Moby_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_GenresRowDeleting As tbl_Moby_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_GenresRowDeleted As tbl_Moby_GenresRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_GenresRow(ByVal row As tbl_Moby_GenresRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_GenresRow(ByVal id_Moby_Genres As Long, ByVal Name As String, ByVal Basic_Genres As Long, ByVal Perspectives As Long, ByVal Sports_Themes As Long, ByVal Non_Sports_Themes As Long, ByVal Educational_Categories As Long, ByVal Other_Attributes As Long) As tbl_Moby_GenresRow + Dim rowtbl_Moby_GenresRow As tbl_Moby_GenresRow = CType(Me.NewRow,tbl_Moby_GenresRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Genres, Name, Basic_Genres, Perspectives, Sports_Themes, Non_Sports_Themes, Educational_Categories, Other_Attributes} + rowtbl_Moby_GenresRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_GenresRow) + Return rowtbl_Moby_GenresRow + End Function + + _ + Public Function FindByid_Moby_Genres(ByVal id_Moby_Genres As Long) As tbl_Moby_GenresRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Genres}),tbl_Moby_GenresRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_GenresDataTable = CType(MyBase.Clone,tbl_Moby_GenresDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_GenresDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Genres = MyBase.Columns("id_Moby_Genres") + Me.columnName = MyBase.Columns("Name") + Me.columnBasic_Genres = MyBase.Columns("Basic_Genres") + Me.columnPerspectives = MyBase.Columns("Perspectives") + Me.columnSports_Themes = MyBase.Columns("Sports_Themes") + Me.columnNon_Sports_Themes = MyBase.Columns("Non_Sports_Themes") + Me.columnEducational_Categories = MyBase.Columns("Educational_Categories") + Me.columnOther_Attributes = MyBase.Columns("Other_Attributes") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Genres = New Global.System.Data.DataColumn("id_Moby_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Genres) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnBasic_Genres = New Global.System.Data.DataColumn("Basic_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBasic_Genres) + Me.columnPerspectives = New Global.System.Data.DataColumn("Perspectives", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPerspectives) + Me.columnSports_Themes = New Global.System.Data.DataColumn("Sports_Themes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSports_Themes) + Me.columnNon_Sports_Themes = New Global.System.Data.DataColumn("Non_Sports_Themes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNon_Sports_Themes) + Me.columnEducational_Categories = New Global.System.Data.DataColumn("Educational_Categories", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEducational_Categories) + Me.columnOther_Attributes = New Global.System.Data.DataColumn("Other_Attributes", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOther_Attributes) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Genres}, true)) + Me.columnid_Moby_Genres.AllowDBNull = false + Me.columnid_Moby_Genres.Unique = true + Me.columnName.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_GenresRow() As tbl_Moby_GenresRow + Return CType(Me.NewRow,tbl_Moby_GenresRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_GenresRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_GenresRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_GenresRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GenresRowChanged(Me, New tbl_Moby_GenresRowChangeEvent(CType(e.Row,tbl_Moby_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_GenresRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GenresRowChanging(Me, New tbl_Moby_GenresRowChangeEvent(CType(e.Row,tbl_Moby_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_GenresRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GenresRowDeleted(Me, New tbl_Moby_GenresRowChangeEvent(CType(e.Row,tbl_Moby_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_GenresRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_GenresRowDeleting(Me, New tbl_Moby_GenresRowChangeEvent(CType(e.Row,tbl_Moby_GenresRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_GenresRow(ByVal row As tbl_Moby_GenresRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_GenresDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_PlatformsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_PlatformsRow) + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + Private columnVisible As Global.System.Data.DataColumn + + Private columnDisplay_Name As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Platforms" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property VisibleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVisible + End Get + End Property + + _ + Public ReadOnly Property Display_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplay_Name + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_PlatformsRow + Get + Return CType(Me.Rows(index),tbl_Moby_PlatformsRow) + End Get + End Property + + _ + Public Event tbl_Moby_PlatformsRowChanging As tbl_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Moby_PlatformsRowChanged As tbl_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Moby_PlatformsRowDeleting As tbl_Moby_PlatformsRowChangeEventHandler + + _ + Public Event tbl_Moby_PlatformsRowDeleted As tbl_Moby_PlatformsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_PlatformsRow(ByVal row As tbl_Moby_PlatformsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_PlatformsRow(ByVal id_Moby_Platforms As Long, ByVal Name As String, ByVal URLPart As String, ByVal Visible As Long, ByVal Display_Name As String) As tbl_Moby_PlatformsRow + Dim rowtbl_Moby_PlatformsRow As tbl_Moby_PlatformsRow = CType(Me.NewRow,tbl_Moby_PlatformsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Platforms, Name, URLPart, Visible, Display_Name} + rowtbl_Moby_PlatformsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_PlatformsRow) + Return rowtbl_Moby_PlatformsRow + End Function + + _ + Public Function FindByid_Moby_Platforms(ByVal id_Moby_Platforms As Long) As tbl_Moby_PlatformsRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Platforms}),tbl_Moby_PlatformsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_PlatformsDataTable = CType(MyBase.Clone,tbl_Moby_PlatformsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_PlatformsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnName = MyBase.Columns("Name") + Me.columnURLPart = MyBase.Columns("URLPart") + Me.columnVisible = MyBase.Columns("Visible") + Me.columnDisplay_Name = MyBase.Columns("Display_Name") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.columnVisible = New Global.System.Data.DataColumn("Visible", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVisible) + Me.columnDisplay_Name = New Global.System.Data.DataColumn("Display_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplay_Name) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Platforms}, true)) + Me.columnid_Moby_Platforms.AllowDBNull = false + Me.columnid_Moby_Platforms.Unique = true + Me.columnName.MaxLength = 50 + Me.columnURLPart.MaxLength = 20 + Me.columnDisplay_Name.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_PlatformsRow() As tbl_Moby_PlatformsRow + Return CType(Me.NewRow,tbl_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_PlatformsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_PlatformsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_PlatformsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_PlatformsRowChanged(Me, New tbl_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_PlatformsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_PlatformsRowChanging(Me, New tbl_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_PlatformsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_PlatformsRowDeleted(Me, New tbl_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_PlatformsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_PlatformsRowDeleting(Me, New tbl_Moby_PlatformsRowChangeEvent(CType(e.Row,tbl_Moby_PlatformsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_PlatformsRow(ByVal row As tbl_Moby_PlatformsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_PlatformsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_Games_Alternate_TitlesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_Games_Alternate_TitlesRow) + + Private columnid_Moby_Games_Alternate_Titles As Global.System.Data.DataColumn + + Private columnid_Moby_Games As Global.System.Data.DataColumn + + Private columnAlternate_Title As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Games_Alternate_Titles" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Games_Alternate_TitlesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games_Alternate_Titles + End Get + End Property + + _ + Public ReadOnly Property id_Moby_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property Alternate_TitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAlternate_Title + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_Games_Alternate_TitlesRow + Get + Return CType(Me.Rows(index),tbl_Moby_Games_Alternate_TitlesRow) + End Get + End Property + + _ + Public Event tbl_Moby_Games_Alternate_TitlesRowChanging As tbl_Moby_Games_Alternate_TitlesRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_Alternate_TitlesRowChanged As tbl_Moby_Games_Alternate_TitlesRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_Alternate_TitlesRowDeleting As tbl_Moby_Games_Alternate_TitlesRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_Alternate_TitlesRowDeleted As tbl_Moby_Games_Alternate_TitlesRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_Games_Alternate_TitlesRow(ByVal row As tbl_Moby_Games_Alternate_TitlesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_Games_Alternate_TitlesRow(ByVal id_Moby_Games As Long, ByVal Alternate_Title As String, ByVal Description As String) As tbl_Moby_Games_Alternate_TitlesRow + Dim rowtbl_Moby_Games_Alternate_TitlesRow As tbl_Moby_Games_Alternate_TitlesRow = CType(Me.NewRow,tbl_Moby_Games_Alternate_TitlesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Moby_Games, Alternate_Title, Description} + rowtbl_Moby_Games_Alternate_TitlesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_Games_Alternate_TitlesRow) + Return rowtbl_Moby_Games_Alternate_TitlesRow + End Function + + _ + Public Function FindByid_Moby_Games_Alternate_Titles(ByVal id_Moby_Games_Alternate_Titles As Long) As tbl_Moby_Games_Alternate_TitlesRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Games_Alternate_Titles}),tbl_Moby_Games_Alternate_TitlesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_Games_Alternate_TitlesDataTable = CType(MyBase.Clone,tbl_Moby_Games_Alternate_TitlesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_Games_Alternate_TitlesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Games_Alternate_Titles = MyBase.Columns("id_Moby_Games_Alternate_Titles") + Me.columnid_Moby_Games = MyBase.Columns("id_Moby_Games") + Me.columnAlternate_Title = MyBase.Columns("Alternate_Title") + Me.columnDescription = MyBase.Columns("Description") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Games_Alternate_Titles = New Global.System.Data.DataColumn("id_Moby_Games_Alternate_Titles", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games_Alternate_Titles) + Me.columnid_Moby_Games = New Global.System.Data.DataColumn("id_Moby_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games) + Me.columnAlternate_Title = New Global.System.Data.DataColumn("Alternate_Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAlternate_Title) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Games_Alternate_Titles}, true)) + Me.columnid_Moby_Games_Alternate_Titles.AutoIncrement = true + Me.columnid_Moby_Games_Alternate_Titles.AutoIncrementSeed = -1 + Me.columnid_Moby_Games_Alternate_Titles.AutoIncrementStep = -1 + Me.columnid_Moby_Games_Alternate_Titles.AllowDBNull = false + Me.columnid_Moby_Games_Alternate_Titles.Unique = true + Me.columnid_Moby_Games_Alternate_Titles.Caption = "id_Moby_Games_AlternateTitles" + Me.columnAlternate_Title.MaxLength = 2147483647 + Me.columnDescription.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_Moby_Games_Alternate_TitlesRow() As tbl_Moby_Games_Alternate_TitlesRow + Return CType(Me.NewRow,tbl_Moby_Games_Alternate_TitlesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_Games_Alternate_TitlesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_Games_Alternate_TitlesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_Games_Alternate_TitlesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_Alternate_TitlesRowChanged(Me, New tbl_Moby_Games_Alternate_TitlesRowChangeEvent(CType(e.Row,tbl_Moby_Games_Alternate_TitlesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_Games_Alternate_TitlesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_Alternate_TitlesRowChanging(Me, New tbl_Moby_Games_Alternate_TitlesRowChangeEvent(CType(e.Row,tbl_Moby_Games_Alternate_TitlesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_Games_Alternate_TitlesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_Alternate_TitlesRowDeleted(Me, New tbl_Moby_Games_Alternate_TitlesRowChangeEvent(CType(e.Row,tbl_Moby_Games_Alternate_TitlesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_Games_Alternate_TitlesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_Alternate_TitlesRowDeleting(Me, New tbl_Moby_Games_Alternate_TitlesRowChangeEvent(CType(e.Row,tbl_Moby_Games_Alternate_TitlesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_Games_Alternate_TitlesRow(ByVal row As tbl_Moby_Games_Alternate_TitlesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_Games_Alternate_TitlesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_Games_GenresDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_Games_GenresRow) + + Private columnid_Moby_Games_Genres As Global.System.Data.DataColumn + + Private columnid_Moby_Games As Global.System.Data.DataColumn + + Private columnid_Moby_Genres As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Games_Genres" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Games_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games_Genres + End Get + End Property + + _ + Public ReadOnly Property id_Moby_GamesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Games + End Get + End Property + + _ + Public ReadOnly Property id_Moby_GenresColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Genres + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_Games_GenresRow + Get + Return CType(Me.Rows(index),tbl_Moby_Games_GenresRow) + End Get + End Property + + _ + Public Event tbl_Moby_Games_GenresRowChanging As tbl_Moby_Games_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_GenresRowChanged As tbl_Moby_Games_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_GenresRowDeleting As tbl_Moby_Games_GenresRowChangeEventHandler + + _ + Public Event tbl_Moby_Games_GenresRowDeleted As tbl_Moby_Games_GenresRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_Games_GenresRow(ByVal row As tbl_Moby_Games_GenresRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_Games_GenresRow(ByVal id_Moby_Games As Long, ByVal id_Moby_Genres As Long) As tbl_Moby_Games_GenresRow + Dim rowtbl_Moby_Games_GenresRow As tbl_Moby_Games_GenresRow = CType(Me.NewRow,tbl_Moby_Games_GenresRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Moby_Games, id_Moby_Genres} + rowtbl_Moby_Games_GenresRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_Games_GenresRow) + Return rowtbl_Moby_Games_GenresRow + End Function + + _ + Public Function FindByid_Moby_Games_Genres(ByVal id_Moby_Games_Genres As Long) As tbl_Moby_Games_GenresRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Games_Genres}),tbl_Moby_Games_GenresRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_Games_GenresDataTable = CType(MyBase.Clone,tbl_Moby_Games_GenresDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_Games_GenresDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Games_Genres = MyBase.Columns("id_Moby_Games_Genres") + Me.columnid_Moby_Games = MyBase.Columns("id_Moby_Games") + Me.columnid_Moby_Genres = MyBase.Columns("id_Moby_Genres") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Games_Genres = New Global.System.Data.DataColumn("id_Moby_Games_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games_Genres) + Me.columnid_Moby_Games = New Global.System.Data.DataColumn("id_Moby_Games", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Games) + Me.columnid_Moby_Genres = New Global.System.Data.DataColumn("id_Moby_Genres", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Genres) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Games_Genres}, true)) + Me.columnid_Moby_Games_Genres.AutoIncrement = true + Me.columnid_Moby_Games_Genres.AutoIncrementSeed = -1 + Me.columnid_Moby_Games_Genres.AutoIncrementStep = -1 + Me.columnid_Moby_Games_Genres.AllowDBNull = false + Me.columnid_Moby_Games_Genres.Unique = true + End Sub + + _ + Public Function Newtbl_Moby_Games_GenresRow() As tbl_Moby_Games_GenresRow + Return CType(Me.NewRow,tbl_Moby_Games_GenresRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_Games_GenresRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_Games_GenresRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_Games_GenresRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_GenresRowChanged(Me, New tbl_Moby_Games_GenresRowChangeEvent(CType(e.Row,tbl_Moby_Games_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_Games_GenresRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_GenresRowChanging(Me, New tbl_Moby_Games_GenresRowChangeEvent(CType(e.Row,tbl_Moby_Games_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_Games_GenresRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_GenresRowDeleted(Me, New tbl_Moby_Games_GenresRowChangeEvent(CType(e.Row,tbl_Moby_Games_GenresRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_Games_GenresRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Games_GenresRowDeleting(Me, New tbl_Moby_Games_GenresRowChangeEvent(CType(e.Row,tbl_Moby_Games_GenresRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_Games_GenresRow(ByVal row As tbl_Moby_Games_GenresRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_Games_GenresDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Moby_Game_GroupsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Moby_Game_GroupsRow) + + Private columnid_Moby_Game_Groups As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnDescription As Global.System.Data.DataColumn + + Private columnURLPart As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Moby_Game_Groups" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_Game_GroupsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Game_Groups + End Get + End Property + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDescription + End Get + End Property + + _ + Public ReadOnly Property URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnURLPart + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Moby_Game_GroupsRow + Get + Return CType(Me.Rows(index),tbl_Moby_Game_GroupsRow) + End Get + End Property + + _ + Public Event tbl_Moby_Game_GroupsRowChanging As tbl_Moby_Game_GroupsRowChangeEventHandler + + _ + Public Event tbl_Moby_Game_GroupsRowChanged As tbl_Moby_Game_GroupsRowChangeEventHandler + + _ + Public Event tbl_Moby_Game_GroupsRowDeleting As tbl_Moby_Game_GroupsRowChangeEventHandler + + _ + Public Event tbl_Moby_Game_GroupsRowDeleted As tbl_Moby_Game_GroupsRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_Moby_Game_GroupsRow(ByVal row As tbl_Moby_Game_GroupsRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Moby_Game_GroupsRow(ByVal id_Moby_Game_Groups As Long, ByVal Name As String, ByVal Description As String, ByVal URLPart As String) As tbl_Moby_Game_GroupsRow + Dim rowtbl_Moby_Game_GroupsRow As tbl_Moby_Game_GroupsRow = CType(Me.NewRow,tbl_Moby_Game_GroupsRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Game_Groups, Name, Description, URLPart} + rowtbl_Moby_Game_GroupsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Moby_Game_GroupsRow) + Return rowtbl_Moby_Game_GroupsRow + End Function + + _ + Public Function FindByid_Moby_Game_Groups(ByVal id_Moby_Game_Groups As Long) As tbl_Moby_Game_GroupsRow + Return CType(Me.Rows.Find(New Object() {id_Moby_Game_Groups}),tbl_Moby_Game_GroupsRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Moby_Game_GroupsDataTable = CType(MyBase.Clone,tbl_Moby_Game_GroupsDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Moby_Game_GroupsDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Game_Groups = MyBase.Columns("id_Moby_Game_Groups") + Me.columnName = MyBase.Columns("Name") + Me.columnDescription = MyBase.Columns("Description") + Me.columnURLPart = MyBase.Columns("URLPart") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Game_Groups = New Global.System.Data.DataColumn("id_Moby_Game_Groups", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Game_Groups) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDescription) + Me.columnURLPart = New Global.System.Data.DataColumn("URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnURLPart) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_Moby_Game_Groups}, true)) + Me.columnid_Moby_Game_Groups.AutoIncrementSeed = -1 + Me.columnid_Moby_Game_Groups.AutoIncrementStep = -1 + Me.columnid_Moby_Game_Groups.AllowDBNull = false + Me.columnid_Moby_Game_Groups.Unique = true + End Sub + + _ + Public Function Newtbl_Moby_Game_GroupsRow() As tbl_Moby_Game_GroupsRow + Return CType(Me.NewRow,tbl_Moby_Game_GroupsRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Moby_Game_GroupsRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Moby_Game_GroupsRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Moby_Game_GroupsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Game_GroupsRowChanged(Me, New tbl_Moby_Game_GroupsRowChangeEvent(CType(e.Row,tbl_Moby_Game_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Moby_Game_GroupsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Game_GroupsRowChanging(Me, New tbl_Moby_Game_GroupsRowChangeEvent(CType(e.Row,tbl_Moby_Game_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Moby_Game_GroupsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Game_GroupsRowDeleted(Me, New tbl_Moby_Game_GroupsRowChangeEvent(CType(e.Row,tbl_Moby_Game_GroupsRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Moby_Game_GroupsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Moby_Game_GroupsRowDeleting(Me, New tbl_Moby_Game_GroupsRowChangeEvent(CType(e.Row,tbl_Moby_Game_GroupsRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_Moby_Game_GroupsRow(ByVal row As tbl_Moby_Game_GroupsRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_Moby_Game_GroupsDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class src_Moby_ReleasesDataTable + Inherits Global.System.Data.TypedTableBase(Of src_Moby_ReleasesRow) + + Private columnid_Moby_Releases As Global.System.Data.DataColumn + + Private columnGamename As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnSoundex As Global.System.Data.DataColumn + + Private columnMoby_Games_URLPart As Global.System.Data.DataColumn + + Private columnYear As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnHighlighted As Global.System.Data.DataColumn + + Private columntmp_Gamename_Filtered As Global.System.Data.DataColumn + + Private columnDeveloper_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnDeveloper As Global.System.Data.DataColumn + + Private columnPublisher_id_Moby_Companies As Global.System.Data.DataColumn + + Private columnPublisher As Global.System.Data.DataColumn + + Private columndeprecated As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "src_Moby_Releases" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property GamenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGamename + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property SoundexColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSoundex + End Get + End Property + + _ + Public ReadOnly Property Moby_Games_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Games_URLPart + End Get + End Property + + _ + Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn + Get + Return Me.columnYear + End Get + End Property + + _ + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn + Get + Return Me.columncreated + End Get + End Property + + _ + Public ReadOnly Property HighlightedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHighlighted + End Get + End Property + + _ + Public ReadOnly Property tmp_Gamename_FilteredColumn() As Global.System.Data.DataColumn + Get + Return Me.columntmp_Gamename_Filtered + End Get + End Property + + _ + Public ReadOnly Property Developer_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property DeveloperColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDeveloper + End Get + End Property + + _ + Public ReadOnly Property Publisher_id_Moby_CompaniesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher_id_Moby_Companies + End Get + End Property + + _ + Public ReadOnly Property PublisherColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPublisher + End Get + End Property + + _ + Public ReadOnly Property deprecatedColumn() As Global.System.Data.DataColumn + Get + Return Me.columndeprecated + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As src_Moby_ReleasesRow + Get + Return CType(Me.Rows(index),src_Moby_ReleasesRow) + End Get + End Property + + _ + Public Event src_Moby_ReleasesRowChanging As src_Moby_ReleasesRowChangeEventHandler + + _ + Public Event src_Moby_ReleasesRowChanged As src_Moby_ReleasesRowChangeEventHandler + + _ + Public Event src_Moby_ReleasesRowDeleting As src_Moby_ReleasesRowChangeEventHandler + + _ + Public Event src_Moby_ReleasesRowDeleted As src_Moby_ReleasesRowChangeEventHandler + + _ + Public Overloads Sub Addsrc_Moby_ReleasesRow(ByVal row As src_Moby_ReleasesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addsrc_Moby_ReleasesRow(ByVal id_Moby_Releases As Long, ByVal Gamename As String, ByVal id_Moby_Platforms As Long, ByVal Soundex As String, ByVal Moby_Games_URLPart As String, ByVal Year As String, ByVal created As Date, ByVal Highlighted As Boolean, ByVal tmp_Gamename_Filtered As String, ByVal Developer_id_Moby_Companies As Long, ByVal Developer As String, ByVal Publisher_id_Moby_Companies As Long, ByVal Publisher As String, ByVal deprecated As Boolean) As src_Moby_ReleasesRow + Dim rowsrc_Moby_ReleasesRow As src_Moby_ReleasesRow = CType(Me.NewRow,src_Moby_ReleasesRow) + Dim columnValuesArray() As Object = New Object() {id_Moby_Releases, Gamename, id_Moby_Platforms, Soundex, Moby_Games_URLPart, Year, created, Highlighted, tmp_Gamename_Filtered, Developer_id_Moby_Companies, Developer, Publisher_id_Moby_Companies, Publisher, deprecated} + rowsrc_Moby_ReleasesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowsrc_Moby_ReleasesRow) + Return rowsrc_Moby_ReleasesRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As src_Moby_ReleasesDataTable = CType(MyBase.Clone,src_Moby_ReleasesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New src_Moby_ReleasesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_Moby_Releases = MyBase.Columns("id_Moby_Releases") + Me.columnGamename = MyBase.Columns("Gamename") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnSoundex = MyBase.Columns("Soundex") + Me.columnMoby_Games_URLPart = MyBase.Columns("Moby_Games_URLPart") + Me.columnYear = MyBase.Columns("Year") + Me.columncreated = MyBase.Columns("created") + Me.columnHighlighted = MyBase.Columns("Highlighted") + Me.columntmp_Gamename_Filtered = MyBase.Columns("tmp_Gamename_Filtered") + Me.columnDeveloper_id_Moby_Companies = MyBase.Columns("Developer_id_Moby_Companies") + Me.columnDeveloper = MyBase.Columns("Developer") + Me.columnPublisher_id_Moby_Companies = MyBase.Columns("Publisher_id_Moby_Companies") + Me.columnPublisher = MyBase.Columns("Publisher") + Me.columndeprecated = MyBase.Columns("deprecated") + End Sub + + _ + Private Sub InitClass() + Me.columnid_Moby_Releases = New Global.System.Data.DataColumn("id_Moby_Releases", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases) + Me.columnGamename = New Global.System.Data.DataColumn("Gamename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGamename) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnSoundex = New Global.System.Data.DataColumn("Soundex", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSoundex) + Me.columnMoby_Games_URLPart = New Global.System.Data.DataColumn("Moby_Games_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Games_URLPart) + Me.columnYear = New Global.System.Data.DataColumn("Year", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnYear) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnHighlighted = New Global.System.Data.DataColumn("Highlighted", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHighlighted) + Me.columntmp_Gamename_Filtered = New Global.System.Data.DataColumn("tmp_Gamename_Filtered", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Gamename_Filtered) + Me.columnDeveloper_id_Moby_Companies = New Global.System.Data.DataColumn("Developer_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper_id_Moby_Companies) + Me.columnDeveloper = New Global.System.Data.DataColumn("Developer", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDeveloper) + Me.columnPublisher_id_Moby_Companies = New Global.System.Data.DataColumn("Publisher_id_Moby_Companies", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher_id_Moby_Companies) + Me.columnPublisher = New Global.System.Data.DataColumn("Publisher", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPublisher) + Me.columndeprecated = New Global.System.Data.DataColumn("deprecated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndeprecated) + Me.columnHighlighted.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function Newsrc_Moby_ReleasesRow() As src_Moby_ReleasesRow + Return CType(Me.NewRow,src_Moby_ReleasesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New src_Moby_ReleasesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(src_Moby_ReleasesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.src_Moby_ReleasesRowChangedEvent) Is Nothing) Then + RaiseEvent src_Moby_ReleasesRowChanged(Me, New src_Moby_ReleasesRowChangeEvent(CType(e.Row,src_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.src_Moby_ReleasesRowChangingEvent) Is Nothing) Then + RaiseEvent src_Moby_ReleasesRowChanging(Me, New src_Moby_ReleasesRowChangeEvent(CType(e.Row,src_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.src_Moby_ReleasesRowDeletedEvent) Is Nothing) Then + RaiseEvent src_Moby_ReleasesRowDeleted(Me, New src_Moby_ReleasesRowChangeEvent(CType(e.Row,src_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.src_Moby_ReleasesRowDeletingEvent) Is Nothing) Then + RaiseEvent src_Moby_ReleasesRowDeleting(Me, New src_Moby_ReleasesRowChangeEvent(CType(e.Row,src_Moby_ReleasesRow), e.Action)) + End If + End Sub + + _ + Public Sub Removesrc_Moby_ReleasesRow(ByVal row As src_Moby_ReleasesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_MobyDB = New DS_MobyDB() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "src_Moby_ReleasesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_AttributesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Attributes As tbl_Moby_AttributesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Attributes = CType(Me.Table,tbl_Moby_AttributesDataTable) + End Sub + + _ + Public Property id_Moby_Attributes() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Attributes.id_Moby_AttributesColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Attributes.id_Moby_AttributesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Attributes_Categories() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Attributes.id_Moby_Attributes_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Attributes_Categories in Tabelle tbl_Moby_Attributes "& _ + "ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Attributes.id_Moby_Attributes_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Attributes.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Attributes ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Attributes.NameColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_Attributes_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Attributes.id_Moby_Attributes_CategoriesColumn) + End Function + + _ + Public Sub Setid_Moby_Attributes_CategoriesNull() + Me(Me.tabletbl_Moby_Attributes.id_Moby_Attributes_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Attributes.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Attributes.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_ReleasesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Releases As tbl_Moby_ReleasesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Releases = CType(Me.Table,tbl_Moby_ReleasesDataTable) + End Sub + + _ + Public Property id_Moby_Releases() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Releases.id_Moby_ReleasesColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Releases.id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.id_Moby_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Games in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.id_Moby_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.id_Moby_PlatformsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property MobyRank() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.MobyRankColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MobyRank in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.MobyRankColumn) = value + End Set + End Property + + _ + Public Property MobyScore() As Single + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.MobyScoreColumn),Single) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MobyScore in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.MobyScoreColumn) = value + End Set + End Property + + _ + Public Property Publisher_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.Publisher_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher_id_Moby_Companies in Tabelle tbl_Moby_Releases ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.Publisher_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property Developer_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.Developer_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer_id_Moby_Companies in Tabelle tbl_Moby_Releases ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.Developer_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property URL() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.URLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.URLColumn) = value + End Set + End Property + + _ + Public Property Technical_Notes() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Releases.Technical_NotesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Technical_Notes in Tabelle tbl_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Releases.Technical_NotesColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.id_Moby_GamesColumn) + End Function + + _ + Public Sub Setid_Moby_GamesNull() + Me(Me.tabletbl_Moby_Releases.id_Moby_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tabletbl_Moby_Releases.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMobyRankNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.MobyRankColumn) + End Function + + _ + Public Sub SetMobyRankNull() + Me(Me.tabletbl_Moby_Releases.MobyRankColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMobyScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.MobyScoreColumn) + End Function + + _ + Public Sub SetMobyScoreNull() + Me(Me.tabletbl_Moby_Releases.MobyScoreColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisher_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.Publisher_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetPublisher_id_Moby_CompaniesNull() + Me(Me.tabletbl_Moby_Releases.Publisher_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloper_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.Developer_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetDeveloper_id_Moby_CompaniesNull() + Me(Me.tabletbl_Moby_Releases.Developer_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.URLColumn) + End Function + + _ + Public Sub SetURLNull() + Me(Me.tabletbl_Moby_Releases.URLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTechnical_NotesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Releases.Technical_NotesColumn) + End Function + + _ + Public Sub SetTechnical_NotesNull() + Me(Me.tabletbl_Moby_Releases.Technical_NotesColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_CompaniesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Companies As tbl_Moby_CompaniesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Companies = CType(Me.Table,tbl_Moby_CompaniesDataTable) + End Sub + + _ + Public Property id_Moby_Companies() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Companies.id_Moby_CompaniesColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Companies.id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Companies.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle tbl_Moby_Companies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Companies.URLPartColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Companies.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Companies ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Companies.NameColumn) = value + End Set + End Property + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Companies.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tabletbl_Moby_Companies.URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Companies.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Companies.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_GamesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Games As tbl_Moby_GamesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Games = CType(Me.Table,tbl_Moby_GamesDataTable) + End Sub + + _ + Public Property id_Moby_Games() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Games.id_Moby_GamesColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Games.id_Moby_GamesColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle tbl_Moby_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games.URLPartColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games.NameColumn) = value + End Set + End Property + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tabletbl_Moby_Games.URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Games.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_GenresRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Genres As tbl_Moby_GenresDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Genres = CType(Me.Table,tbl_Moby_GenresDataTable) + End Sub + + _ + Public Property id_Moby_Genres() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Genres.id_Moby_GenresColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Genres.id_Moby_GenresColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.NameColumn) = value + End Set + End Property + + _ + Public Property Basic_Genres() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.Basic_GenresColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Basic_Genres in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.Basic_GenresColumn) = value + End Set + End Property + + _ + Public Property Perspectives() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.PerspectivesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Perspectives in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.PerspectivesColumn) = value + End Set + End Property + + _ + Public Property Sports_Themes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.Sports_ThemesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sports_Themes in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property Non_Sports_Themes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.Non_Sports_ThemesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Non_Sports_Themes in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.Non_Sports_ThemesColumn) = value + End Set + End Property + + _ + Public Property Educational_Categories() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.Educational_CategoriesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Educational_Categories in Tabelle tbl_Moby_Genres ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.Educational_CategoriesColumn) = value + End Set + End Property + + _ + Public Property Other_Attributes() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Genres.Other_AttributesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Other_Attributes in Tabelle tbl_Moby_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Genres.Other_AttributesColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Genres.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBasic_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.Basic_GenresColumn) + End Function + + _ + Public Sub SetBasic_GenresNull() + Me(Me.tabletbl_Moby_Genres.Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPerspectivesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.PerspectivesColumn) + End Function + + _ + Public Sub SetPerspectivesNull() + Me(Me.tabletbl_Moby_Genres.PerspectivesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.Sports_ThemesColumn) + End Function + + _ + Public Sub SetSports_ThemesNull() + Me(Me.tabletbl_Moby_Genres.Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNon_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.Non_Sports_ThemesColumn) + End Function + + _ + Public Sub SetNon_Sports_ThemesNull() + Me(Me.tabletbl_Moby_Genres.Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEducational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.Educational_CategoriesColumn) + End Function + + _ + Public Sub SetEducational_CategoriesNull() + Me(Me.tabletbl_Moby_Genres.Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOther_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Genres.Other_AttributesColumn) + End Function + + _ + Public Sub SetOther_AttributesNull() + Me(Me.tabletbl_Moby_Genres.Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_PlatformsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Platforms As tbl_Moby_PlatformsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Platforms = CType(Me.Table,tbl_Moby_PlatformsDataTable) + End Sub + + _ + Public Property id_Moby_Platforms() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Platforms.id_Moby_PlatformsColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Platforms.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms.NameColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle tbl_Moby_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms.URLPartColumn) = value + End Set + End Property + + _ + Public Property Visible() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms.VisibleColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Visible in Tabelle tbl_Moby_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms.VisibleColumn) = value + End Set + End Property + + _ + Public Property Display_Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Platforms.Display_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Display_Name in Tabelle tbl_Moby_Platforms ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Platforms.Display_NameColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Platforms.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tabletbl_Moby_Platforms.URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVisibleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms.VisibleColumn) + End Function + + _ + Public Sub SetVisibleNull() + Me(Me.tabletbl_Moby_Platforms.VisibleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplay_NameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Platforms.Display_NameColumn) + End Function + + _ + Public Sub SetDisplay_NameNull() + Me(Me.tabletbl_Moby_Platforms.Display_NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_Games_Alternate_TitlesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Games_Alternate_Titles As tbl_Moby_Games_Alternate_TitlesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Games_Alternate_Titles = CType(Me.Table,tbl_Moby_Games_Alternate_TitlesDataTable) + End Sub + + _ + Public Property id_Moby_Games_Alternate_Titles() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_Games_Alternate_TitlesColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_Games_Alternate_TitlesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Games in Tabelle tbl_Moby_Games_Alternate_Titles ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_GamesColumn) = value + End Set + End Property + + _ + Public Property Alternate_Title() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games_Alternate_Titles.Alternate_TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Alternate_Title in Tabelle tbl_Moby_Games_Alternate_Titles is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games_Alternate_Titles.Alternate_TitleColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games_Alternate_Titles.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Moby_Games_Alternate_Titles ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games_Alternate_Titles.DescriptionColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_GamesColumn) + End Function + + _ + Public Sub Setid_Moby_GamesNull() + Me(Me.tabletbl_Moby_Games_Alternate_Titles.id_Moby_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAlternate_TitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games_Alternate_Titles.Alternate_TitleColumn) + End Function + + _ + Public Sub SetAlternate_TitleNull() + Me(Me.tabletbl_Moby_Games_Alternate_Titles.Alternate_TitleColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games_Alternate_Titles.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Moby_Games_Alternate_Titles.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_Games_GenresRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Games_Genres As tbl_Moby_Games_GenresDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Games_Genres = CType(Me.Table,tbl_Moby_Games_GenresDataTable) + End Sub + + _ + Public Property id_Moby_Games_Genres() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Games_Genres.id_Moby_Games_GenresColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Games_Genres.id_Moby_Games_GenresColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Games() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GamesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Games in Tabelle tbl_Moby_Games_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GamesColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Genres() As Long + Get + Try + Return CType(Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GenresColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Genres in Tabelle tbl_Moby_Games_Genres ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GenresColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games_Genres.id_Moby_GamesColumn) + End Function + + _ + Public Sub Setid_Moby_GamesNull() + Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GamesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Games_Genres.id_Moby_GenresColumn) + End Function + + _ + Public Sub Setid_Moby_GenresNull() + Me(Me.tabletbl_Moby_Games_Genres.id_Moby_GenresColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_Game_GroupsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Game_Groups As tbl_Moby_Game_GroupsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Game_Groups = CType(Me.Table,tbl_Moby_Game_GroupsDataTable) + End Sub + + _ + Public Property id_Moby_Game_Groups() As Long + Get + Return CType(Me(Me.tabletbl_Moby_Game_Groups.id_Moby_Game_GroupsColumn),Long) + End Get + Set + Me(Me.tabletbl_Moby_Game_Groups.id_Moby_Game_GroupsColumn) = value + End Set + End Property + + _ + Public Property Name() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Game_Groups.NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Moby_Game_Groups ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Game_Groups.NameColumn) = value + End Set + End Property + + _ + Public Property Description() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Game_Groups.DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle tbl_Moby_Game_Groups ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Game_Groups.DescriptionColumn) = value + End Set + End Property + + _ + Public Property URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Moby_Game_Groups.URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URLPart in Tabelle tbl_Moby_Game_Groups ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Moby_Game_Groups.URLPartColumn) = value + End Set + End Property + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Game_Groups.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Moby_Game_Groups.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Game_Groups.DescriptionColumn) + End Function + + _ + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Moby_Game_Groups.DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Game_Groups.URLPartColumn) + End Function + + _ + Public Sub SetURLPartNull() + Me(Me.tabletbl_Moby_Game_Groups.URLPartColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_Moby_ReleasesRow + Inherits Global.System.Data.DataRow + + Private tablesrc_Moby_Releases As src_Moby_ReleasesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_Moby_Releases = CType(Me.Table,src_Moby_ReleasesDataTable) + End Sub + + _ + Public Property id_Moby_Releases() As Long + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.id_Moby_ReleasesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property Gamename() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.GamenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Gamename in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.GamenameColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Long + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.id_Moby_PlatformsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property Soundex() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.SoundexColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Soundex in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.SoundexColumn) = value + End Set + End Property + + _ + Public Property Moby_Games_URLPart() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.Moby_Games_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Games_URLPart in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.Moby_Games_URLPartColumn) = value + End Set + End Property + + _ + Public Property Year() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.YearColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Year in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.YearColumn) = value + End Set + End Property + + _ + Public Property created() As Date + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.createdColumn) = value + End Set + End Property + + _ + Public Property Highlighted() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.HighlightedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Highlighted in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.HighlightedColumn) = value + End Set + End Property + + _ + Public Property tmp_Gamename_Filtered() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.tmp_Gamename_FilteredColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Gamename_Filtered in Tabelle src_Moby_Releases ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.tmp_Gamename_FilteredColumn) = value + End Set + End Property + + _ + Public Property Developer_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.Developer_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer_id_Moby_Companies in Tabelle src_Moby_Releases ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.Developer_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property Developer() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.DeveloperColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Developer in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.DeveloperColumn) = value + End Set + End Property + + _ + Public Property Publisher_id_Moby_Companies() As Long + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.Publisher_id_Moby_CompaniesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher_id_Moby_Companies in Tabelle src_Moby_Releases ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.Publisher_id_Moby_CompaniesColumn) = value + End Set + End Property + + _ + Public Property Publisher() As String + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.PublisherColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Publisher in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.PublisherColumn) = value + End Set + End Property + + _ + Public Property deprecated() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_Moby_Releases.deprecatedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte deprecated in Tabelle src_Moby_Releases ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_Moby_Releases.deprecatedColumn) = value + End Set + End Property + + _ + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.id_Moby_ReleasesColumn) + End Function + + _ + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tablesrc_Moby_Releases.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGamenameNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.GamenameColumn) + End Function + + _ + Public Sub SetGamenameNull() + Me(Me.tablesrc_Moby_Releases.GamenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_Moby_Releases.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSoundexNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.SoundexColumn) + End Function + + _ + Public Sub SetSoundexNull() + Me(Me.tablesrc_Moby_Releases.SoundexColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.Moby_Games_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Games_URLPartNull() + Me(Me.tablesrc_Moby_Releases.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.YearColumn) + End Function + + _ + Public Sub SetYearNull() + Me(Me.tablesrc_Moby_Releases.YearColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.createdColumn) + End Function + + _ + Public Sub SetcreatedNull() + Me(Me.tablesrc_Moby_Releases.createdColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHighlightedNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.HighlightedColumn) + End Function + + _ + Public Sub SetHighlightedNull() + Me(Me.tablesrc_Moby_Releases.HighlightedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_Gamename_FilteredNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.tmp_Gamename_FilteredColumn) + End Function + + _ + Public Sub Settmp_Gamename_FilteredNull() + Me(Me.tablesrc_Moby_Releases.tmp_Gamename_FilteredColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloper_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.Developer_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetDeveloper_id_Moby_CompaniesNull() + Me(Me.tablesrc_Moby_Releases.Developer_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.DeveloperColumn) + End Function + + _ + Public Sub SetDeveloperNull() + Me(Me.tablesrc_Moby_Releases.DeveloperColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisher_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.Publisher_id_Moby_CompaniesColumn) + End Function + + _ + Public Sub SetPublisher_id_Moby_CompaniesNull() + Me(Me.tablesrc_Moby_Releases.Publisher_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.PublisherColumn) + End Function + + _ + Public Sub SetPublisherNull() + Me(Me.tablesrc_Moby_Releases.PublisherColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tablesrc_Moby_Releases.deprecatedColumn) + End Function + + _ + Public Sub SetdeprecatedNull() + Me(Me.tablesrc_Moby_Releases.deprecatedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_AttributesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_AttributesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_AttributesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_AttributesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_ReleasesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_ReleasesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_ReleasesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_ReleasesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_CompaniesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_CompaniesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_CompaniesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_CompaniesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_GamesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_GamesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_GamesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_GamesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_GenresRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_GenresRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_GenresRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_GenresRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_PlatformsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_PlatformsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_PlatformsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_PlatformsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_Games_Alternate_TitlesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_Games_Alternate_TitlesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_Games_Alternate_TitlesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_Games_Alternate_TitlesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_Games_GenresRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_Games_GenresRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_Games_GenresRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_Games_GenresRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Moby_Game_GroupsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Moby_Game_GroupsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Moby_Game_GroupsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Moby_Game_GroupsRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class src_Moby_ReleasesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As src_Moby_ReleasesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As src_Moby_ReleasesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As src_Moby_ReleasesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Metropolis_Launcher/DataSets/DS_MobyDB.vb b/Metropolis_Launcher/DataSets/DS_MobyDB.vb new file mode 100644 index 0000000..a7ec02b --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MobyDB.vb @@ -0,0 +1,231 @@ +Imports TC = MKNetLib.cls_MKTypeConverter +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess + +Partial Class DS_MobyDB + 'Actual IDs on the mobygames database: + 'attributeId = id_Moby_Attributes + 'genreId = id_Moby_Genres + +#Region "Select Statements" + Public Function Select_id_Moby_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String) As Integer + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Genres FROM tbl_Moby_Genres WHERE URLPart = " & TC.getSQLFormat(URLPart) & " LIMIT 1", tran), 0) + End Function + + Public Function Select_id_Moby_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Attributes As Integer) As Integer + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes FROM tbl_Moby_Attributes WHERE id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes) & " LIMIT 1", tran), 0) + End Function + + Public Function Select_id_Moby_Staff(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Staff As Integer) As Integer + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Staff FROM tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & " LIMIT 1", tran), 0) + End Function + + Public Function Select_id_Moby_Attributes_Categories(ByRef tran As SQLite.SQLiteTransaction, ByVal Name As String) As Integer + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes_Categories FROM tbl_Moby_Attributes_Categories WHERE Name = " & TC.getSQLFormat(Name) & " LIMIT 1", tran), 0) + End Function +#End Region + +#Region "Upsert Statements" + Public Function Upsert_Moby_Games(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String, ByVal Name As String, ByVal Description As String, Optional ByVal Prefix As Object = Nothing) As Integer + Dim id_Moby_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games FROM tbl_Moby_Games WHERE URLPart = " & TC.getSQLFormat(URLPart) & " LIMIT 1", tran), 0) + + If id_Moby_Games > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Games SET Name = " & TC.getSQLFormat(Name) & ", Description = " & TC.getSQLFormat(Description) & ", Name_Prefix = " & TC.getSQLFormat(Prefix) & " WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games), tran) + Return id_Moby_Games + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Games (URLPart, Name, Description, Name_Prefix) VALUES (" & TC.getSQLParameter(URLPart, Name, Description, Prefix) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games FROM tbl_Moby_Games WHERE URLPart = " & TC.getSQLFormat(URLPart) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Companies(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String, ByVal Name As String) As Integer + Dim id_Moby_Companies As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Companies FROM tbl_Moby_Companies WHERE URLPart = " & TC.getSQLFormat(URLPart) & " AND Name = " & TC.getSQLParameter(Name) & " LIMIT 1", tran), 0) + + If id_Moby_Companies > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Companies SET Name = " & TC.getSQLFormat(Name) & " WHERE id_Moby_Companies = " & TC.getSQLFormat(id_Moby_Companies), tran) + Return id_Moby_Companies + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Companies (URLPart, Name) VALUES (" & TC.getSQLParameter(URLPart, Name) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Companies FROM tbl_Moby_Companies WHERE URLPart = " & TC.getSQLFormat(URLPart) & " AND Name = " & TC.getSQLParameter(Name) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Attributes_Categories(ByRef tran As SQLite.SQLiteTransaction, ByVal Name As String, Optional ByVal RatingSystem As Boolean = False) As Integer + Dim id_Moby_Attributes_Categories As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes_Categories FROM tbl_Moby_Attributes_Categories WHERE Name = " & TC.getSQLFormat(Name) & " LIMIT 1", tran), 0) + + If id_Moby_Attributes_Categories > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Attributes_Categories SET Name = " & TC.getSQLFormat(Name) & ", RatingSystem = " & TC.getSQLFormat(RatingSystem) & " WHERE id_Moby_Attributes_Categories = " & TC.getSQLFormat(id_Moby_Attributes_Categories), tran) + Return id_Moby_Attributes_Categories + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Attributes_Categories (Name, RatingSystem) VALUES (" & TC.getSQLFormat(Name) & ", " & TC.getSQLFormat(RatingSystem) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes_Categories FROM tbl_Moby_Attributes_Categories WHERE Name = " & TC.getSQLFormat(Name) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Attributes As Integer, ByVal id_Moby_Attributes_Categories As Integer, ByVal Name As String, ByVal Description As String, Optional ByVal Rating_Age_From As Object = Nothing) As Integer + Dim id_Moby_Attributes_DB As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes FROM tbl_Moby_Attributes WHERE id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes) & " LIMIT 1", tran), 0) + + If id_Moby_Attributes_DB > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Attributes SET Name = " & TC.getSQLFormat(Name) & ", Description = " & TC.getSQLFormat(Description) & IIf(Rating_Age_From IsNot Nothing, ", Rating_Age_From = " & TC.getSQLFormat(Rating_Age_From), "") & " WHERE id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + Return id_Moby_Attributes_DB + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Attributes (id_Moby_Attributes, id_Moby_Attributes_Categories, Name, Description, Rating_Age_From) VALUES (" & TC.getSQLParameter(id_Moby_Attributes, id_Moby_Attributes_Categories, Name, Description, Rating_Age_From) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Attributes FROM tbl_Moby_Attributes WHERE id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Releases(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Games As Integer, ByVal id_Moby_Platforms As Integer, ByVal MobyRank As Object, ByVal MobyScore As Object, ByVal Publisher_id_Moby_Companies As Object, ByVal Developer_id_Moby_Companies As Object, ByVal URL As String, ByVal Technical_Notes As Object, ByVal Year As Object) As Integer + Dim id_Moby_Releases As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & " LIMIT 1", tran), 0) + + If id_Moby_Releases > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Releases SET MobyRank = " & TC.getSQLFormat(MobyRank) & ", MobyScore = " & TC.getSQLFormat(MobyScore) & ", Publisher_id_Moby_Companies = " & TC.getSQLFormat(Publisher_id_Moby_Companies) & ", Developer_id_Moby_Companies = " & TC.getSQLFormat(Developer_id_Moby_Companies) & ", URL = " & TC.getSQLFormat(URL) & ", Technical_Notes = " & TC.getSQLFormat(Technical_Notes) & ", Year = " & TC.getSQLFormat(Year) & " WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases), tran) + Return id_Moby_Releases + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Releases (id_Moby_Games, id_Moby_Platforms, MobyRank, MobyScore, Publisher_id_Moby_Companies, Developer_id_Moby_Companies, URL, Technical_Notes, Year) VALUES (" & TC.getSQLParameter(id_Moby_Games, id_Moby_Platforms, MobyRank, MobyScore, Publisher_id_Moby_Companies, Developer_id_Moby_Companies, URL, Technical_Notes, Year) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Releases_Attributes(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Releases As Integer, ByVal id_Moby_Attributes As String) As Integer + Dim id_Moby_Releases_Attributes As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Attributes FROM tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes) & " LIMIT 1", tran), 0) + + If id_Moby_Releases_Attributes > 0 Then + Return id_Moby_Releases_Attributes + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Releases_Attributes (id_Moby_Releases, id_Moby_Attributes) VALUES (" & TC.getSQLParameter(id_Moby_Releases, id_Moby_Attributes) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Attributes FROM tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Games_Alternate_Titles(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Games As Integer, ByVal Alternate_Title As String, ByVal Description As String) As Integer + Dim id_Moby_Alternate_Titles As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Alternate_Titles FROM tbl_Moby_Games_Alternate_Titles WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND Alternate_Title = " & TC.getSQLFormat(Alternate_Title) & " LIMIT 1", tran), 0) + + If id_Moby_Alternate_Titles > 0 Then + Return id_Moby_Alternate_Titles + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Games_Alternate_Titles (id_Moby_Games, Alternate_Title, Description) VALUES (" & TC.getSQLParameter(id_Moby_Games, Alternate_Title, Description) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Alternate_Titles FROM tbl_Moby_Games_Alternate_Titles WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND Alternate_Title = " & TC.getSQLFormat(Alternate_Title) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Games_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Games As Integer, ByVal id_Moby_Genres As Integer) As Integer + Dim id_Moby_Games_Genres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Genres FROM tbl_Moby_Games_Genres WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres) & " LIMIT 1", tran), 0) + + If id_Moby_Games_Genres > 0 Then + Return id_Moby_Games_Genres + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Games_Genres (id_Moby_Games, id_Moby_Genres) VALUES (" & TC.getSQLParameter(id_Moby_Games, id_Moby_Genres) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Genres FROM tbl_Moby_Games_Genres WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String, ByVal Name As String, ByVal Description As String) As Integer + Dim id_Moby_Genres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Genres FROM moby.tbl_Moby_Genres WHERE URLPart = " & TC.getSQLFormat(URLPart), tran), 0) + + If id_Moby_Genres > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE moby.tbl_Moby_Genres SET Name = " & TC.getSQLFormat(Name) & ", Description = " & TC.getSQLFormat(Description) & " WHERE id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + Return id_Moby_Genres + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Genres (URLPart, Name, Description, No_Category) VALUES (" & TC.getSQLParameter(URLPart, Name, Description, 1) & ")", tran) + + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Genres FROM moby.tbl_Moby_Genres WHERE URLPart = " & TC.getSQLFormat(URLPart), tran), 0) + End Function + + Public Function Upsert_Moby_Game_Groups(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String, ByVal Name As String, ByVal Description As String) As Integer + Dim id_Moby_Game_Groups As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups WHERE URLPart = " & TC.getSQLFormat(URLPart) & " LIMIT 1", tran), 0) + + If id_Moby_Game_Groups > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Game_Groups SET Name = " & TC.getSQLFormat(Name) & ", Description = " & TC.getSQLFormat(Description) & " WHERE id_Moby_Game_Groups = " & TC.getSQLFormat(id_Moby_Game_Groups), tran) + Return id_Moby_Game_Groups + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Game_Groups (URLPart, Name, Description) VALUES (" & TC.getSQLParameter(URLPart, Name, Description) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Game_Groups FROM tbl_Moby_Game_Groups WHERE URLPart = " & TC.getSQLFormat(URLPart) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Game_Groups_Moby_Releases(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Game_Groups As Integer, ByVal Moby_Games_URLPart As String, ByVal Moby_Platforms_URLPart As String) As Integer + If id_Moby_Game_Groups <= 0 Then Return 0 + + Dim id_Moby_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games FROM tbl_Moby_Games WHERE URLPart = " & TC.getSQLFormat(Moby_Games_URLPart) & " LIMIT 1", tran), 0) + + If id_Moby_Games <= 0 Then Return 0 + + Dim id_Moby_Platforms As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Platforms FROM tbl_Moby_Platforms WHERE URLPart = " & TC.getSQLFormat(Moby_Platforms_URLPart) & " LIMIT 1", tran), 0) + + If id_Moby_Platforms <= 0 Then Return 0 + + Dim id_Moby_Releases As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & " AND id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " LIMIT 1"), 0) + + If id_Moby_Releases <= 0 Then Return 0 + + Dim id_Moby_Game_Groups_Moby_Releases As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Game_Groups_Moby_Releases FROM tbl_Moby_Game_Groups_Moby_Releases WHERE id_Moby_Game_Groups = " & TC.getSQLFormat(id_Moby_Game_Groups) & " AND id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " LIMIT 1", tran), 0) + + If id_Moby_Game_Groups_Moby_Releases <> 0 Then Return id_Moby_Game_Groups_Moby_Releases + + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Moby_Game_Groups_Moby_Releases (id_Moby_Game_Groups, id_Moby_Releases) VALUES (" & TC.getSQLParameter(id_Moby_Game_Groups, id_Moby_Releases) & "); SELECT last_insert_rowid()", tran), 0) + End Function + + Public Function Upsert_Moby_Staff(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Staff As Integer, ByVal Name As String, ByVal Biography As String) As Integer + Dim id_Moby_Staff_DB As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Staff FROM tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & " LIMIT 1", tran), 0) + + If id_Moby_Staff_DB > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Moby_Staff SET Name = " & TC.getSQLFormat(Name) & ", Biography = " & TC.getSQLFormat(Biography) & " WHERE id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff_DB), tran) + Return id_Moby_Staff_DB + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Staff (id_Moby_Staff, Name, Biography) VALUES (" & TC.getSQLParameter(id_Moby_Staff, Name, Biography) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Staff FROM tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & " LIMIT 1", tran) + End Function + + Public Function Upsert_Moby_Releases_Staff(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Releases As Integer, ByVal id_Moby_Staff As String, ByVal Position As String, ByVal Sort As Integer) As Integer + Dim id_Moby_Releases_Staff As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Staff FROM tbl_Moby_Releases_Staff WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & " AND Position = " & TC.getSQLFormat(Position) & " LIMIT 1", tran), 0) + + If id_Moby_Releases_Staff > 0 Then + Return id_Moby_Releases_Staff + End If + + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Moby_Releases_Staff (id_Moby_Releases, id_Moby_Staff, Position, Sort) VALUES (" & TC.getSQLParameter(id_Moby_Releases, id_Moby_Staff, Position, Sort) & ")", tran) + + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Staff FROM tbl_Moby_Releases_Staff WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & " LIMIT 1", tran) + End Function +#End Region + +#Region "DELETE Statements" + Public Sub Delete_Moby_Games_Genres(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Moby_Games As Integer) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM moby.tbl_Moby_Games_Genres WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games)) + End Sub +#End Region + +#Region "FillTable_Statements" + Public Function Fill_tbl_Moby_Games(ByRef tran As SQLite.SQLiteTransaction, Optional ByRef dt As DataTable = Nothing) As DataTable + If dt Is Nothing Then + dt = New DataTable("Table1") + End If + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM tbl_Moby_Games ORDER BY Name", dt) + + Return dt + End Function + + Public Function Fill_tbl_Moby_Platforms(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As tbl_Moby_PlatformsDataTable, Optional ByVal bShowOnlyGenericEmulated As Boolean = False) As tbl_Moby_PlatformsDataTable + If dt Is Nothing Then + dt = New tbl_Moby_PlatformsDataTable() + End If + + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT PLTFM.id_Moby_Platforms, PLTFM.Name, PLTFM.URLPart, PLTFM.Display_Name FROM moby.tbl_Moby_Platforms PLTFM LEFT JOIN main.tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms WHERE PLTFM.Visible = 1 AND PLTFM.id_Moby_Platforms_Owner IS NULL AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1) " & IIf(bShowOnlyGenericEmulated, " AND PLTFM.GenericEmulated = 1 ", "") & " ORDER BY PLTFM.Display_Name", dt, tran) + + Return dt + End Function + +#End Region + +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MobyDB.xsc b/Metropolis_Launcher/DataSets/DS_MobyDB.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MobyDB.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MobyDB.xsd b/Metropolis_Launcher/DataSets/DS_MobyDB.xsd new file mode 100644 index 0000000..a4341e1 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MobyDB.xsd @@ -0,0 +1,248 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_MobyDB.xss b/Metropolis_Launcher/DataSets/DS_MobyDB.xss new file mode 100644 index 0000000..e622a87 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_MobyDB.xss @@ -0,0 +1,21 @@ + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_Rombase.Designer.vb b/Metropolis_Launcher/DataSets/DS_Rombase.Designer.vb new file mode 100644 index 0000000..69a8c29 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_Rombase.Designer.vb @@ -0,0 +1,1088 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_Rombase + Inherits Global.System.Data.DataSet + + Private tabletbl_Rombase As tbl_RombaseDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("tbl_Rombase")) Is Nothing) Then + MyBase.Tables.Add(New tbl_RombaseDataTable(ds.Tables("tbl_Rombase"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property tbl_Rombase() As tbl_RombaseDataTable + Get + Return Me.tabletbl_Rombase + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_Rombase = CType(MyBase.Clone,DS_Rombase) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("tbl_Rombase")) Is Nothing) Then + MyBase.Tables.Add(New tbl_RombaseDataTable(ds.Tables("tbl_Rombase"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tabletbl_Rombase = CType(MyBase.Tables("tbl_Rombase"),tbl_RombaseDataTable) + If (initTable = true) Then + If (Not (Me.tabletbl_Rombase) Is Nothing) Then + Me.tabletbl_Rombase.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_Rombase" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_Rombase.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbl_Rombase = New tbl_RombaseDataTable() + MyBase.Tables.Add(Me.tabletbl_Rombase) + End Sub + + _ + Private Function ShouldSerializetbl_Rombase() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_Rombase = New DS_Rombase() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub tbl_RombaseRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_RombaseRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_RombaseDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_RombaseRow) + + Private columnid_rombase As Global.System.Data.DataColumn + + Private columnfilename As Global.System.Data.DataColumn + + Private columnCustomIdentifier As Global.System.Data.DataColumn + + Private columnsize As Global.System.Data.DataColumn + + Private columncrc As Global.System.Data.DataColumn + + Private columnmd5 As Global.System.Data.DataColumn + + Private columnsha1 As Global.System.Data.DataColumn + + Private columnid_Moby_Platforms As Global.System.Data.DataColumn + + Private columnid_Moby_Releases As Global.System.Data.DataColumn + + Private columnSoundex As Global.System.Data.DataColumn + + Private columnMoby_Games_URLPart As Global.System.Data.DataColumn + + Private columnMoby_Platforms_URLPart As Global.System.Data.DataColumn + + Private columndeprecated As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbl_Rombase" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property id_rombaseColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_rombase + End Get + End Property + + _ + Public ReadOnly Property filenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfilename + End Get + End Property + + _ + Public ReadOnly Property CustomIdentifierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCustomIdentifier + End Get + End Property + + _ + Public ReadOnly Property sizeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsize + End Get + End Property + + _ + Public ReadOnly Property crcColumn() As Global.System.Data.DataColumn + Get + Return Me.columncrc + End Get + End Property + + _ + Public ReadOnly Property md5Column() As Global.System.Data.DataColumn + Get + Return Me.columnmd5 + End Get + End Property + + _ + Public ReadOnly Property sha1Column() As Global.System.Data.DataColumn + Get + Return Me.columnsha1 + End Get + End Property + + _ + Public ReadOnly Property id_Moby_PlatformsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Platforms + End Get + End Property + + _ + Public ReadOnly Property id_Moby_ReleasesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Moby_Releases + End Get + End Property + + _ + Public ReadOnly Property SoundexColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSoundex + End Get + End Property + + _ + Public ReadOnly Property Moby_Games_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Games_URLPart + End Get + End Property + + _ + Public ReadOnly Property Moby_Platforms_URLPartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMoby_Platforms_URLPart + End Get + End Property + + _ + Public ReadOnly Property deprecatedColumn() As Global.System.Data.DataColumn + Get + Return Me.columndeprecated + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_RombaseRow + Get + Return CType(Me.Rows(index),tbl_RombaseRow) + End Get + End Property + + _ + Public Event tbl_RombaseRowChanging As tbl_RombaseRowChangeEventHandler + + _ + Public Event tbl_RombaseRowChanged As tbl_RombaseRowChangeEventHandler + + _ + Public Event tbl_RombaseRowDeleting As tbl_RombaseRowChangeEventHandler + + _ + Public Event tbl_RombaseRowDeleted As tbl_RombaseRowChangeEventHandler + + _ + Public Overloads Sub Addtbl_RombaseRow(ByVal row As tbl_RombaseRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_RombaseRow(ByVal filename As String, ByVal CustomIdentifier As String, ByVal size As Long, ByVal crc As String, ByVal md5 As String, ByVal sha1 As String, ByVal id_Moby_Platforms As Long, ByVal id_Moby_Releases As Long, ByVal Soundex As String, ByVal Moby_Games_URLPart As String, ByVal Moby_Platforms_URLPart As String, ByVal deprecated As Boolean) As tbl_RombaseRow + Dim rowtbl_RombaseRow As tbl_RombaseRow = CType(Me.NewRow,tbl_RombaseRow) + Dim columnValuesArray() As Object = New Object() {Nothing, filename, CustomIdentifier, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases, Soundex, Moby_Games_URLPart, Moby_Platforms_URLPart, deprecated} + rowtbl_RombaseRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_RombaseRow) + Return rowtbl_RombaseRow + End Function + + _ + Public Function FindByid_rombase(ByVal id_rombase As Long) As tbl_RombaseRow + Return CType(Me.Rows.Find(New Object() {id_rombase}),tbl_RombaseRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_RombaseDataTable = CType(MyBase.Clone,tbl_RombaseDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_RombaseDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnid_rombase = MyBase.Columns("id_rombase") + Me.columnfilename = MyBase.Columns("filename") + Me.columnCustomIdentifier = MyBase.Columns("CustomIdentifier") + Me.columnsize = MyBase.Columns("size") + Me.columncrc = MyBase.Columns("crc") + Me.columnmd5 = MyBase.Columns("md5") + Me.columnsha1 = MyBase.Columns("sha1") + Me.columnid_Moby_Platforms = MyBase.Columns("id_Moby_Platforms") + Me.columnid_Moby_Releases = MyBase.Columns("id_Moby_Releases") + Me.columnSoundex = MyBase.Columns("Soundex") + Me.columnMoby_Games_URLPart = MyBase.Columns("Moby_Games_URLPart") + Me.columnMoby_Platforms_URLPart = MyBase.Columns("Moby_Platforms_URLPart") + Me.columndeprecated = MyBase.Columns("deprecated") + End Sub + + _ + Private Sub InitClass() + Me.columnid_rombase = New Global.System.Data.DataColumn("id_rombase", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_rombase) + Me.columnfilename = New Global.System.Data.DataColumn("filename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfilename) + Me.columnCustomIdentifier = New Global.System.Data.DataColumn("CustomIdentifier", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCustomIdentifier) + Me.columnsize = New Global.System.Data.DataColumn("size", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsize) + Me.columncrc = New Global.System.Data.DataColumn("crc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncrc) + Me.columnmd5 = New Global.System.Data.DataColumn("md5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnmd5) + Me.columnsha1 = New Global.System.Data.DataColumn("sha1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsha1) + Me.columnid_Moby_Platforms = New Global.System.Data.DataColumn("id_Moby_Platforms", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Platforms) + Me.columnid_Moby_Releases = New Global.System.Data.DataColumn("id_Moby_Releases", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Moby_Releases) + Me.columnSoundex = New Global.System.Data.DataColumn("Soundex", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSoundex) + Me.columnMoby_Games_URLPart = New Global.System.Data.DataColumn("Moby_Games_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Games_URLPart) + Me.columnMoby_Platforms_URLPart = New Global.System.Data.DataColumn("Moby_Platforms_URLPart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMoby_Platforms_URLPart) + Me.columndeprecated = New Global.System.Data.DataColumn("deprecated", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndeprecated) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid_rombase}, true)) + Me.columnid_rombase.AutoIncrement = true + Me.columnid_rombase.AutoIncrementSeed = -1 + Me.columnid_rombase.AutoIncrementStep = -1 + Me.columnid_rombase.AllowDBNull = false + Me.columnid_rombase.Unique = true + Me.columnfilename.MaxLength = 2147483647 + Me.columncrc.MaxLength = 2147483647 + Me.columnmd5.MaxLength = 2147483647 + Me.columnsha1.MaxLength = 2147483647 + End Sub + + _ + Public Function Newtbl_RombaseRow() As tbl_RombaseRow + Return CType(Me.NewRow,tbl_RombaseRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_RombaseRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_RombaseRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_RombaseRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_RombaseRowChanged(Me, New tbl_RombaseRowChangeEvent(CType(e.Row,tbl_RombaseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_RombaseRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_RombaseRowChanging(Me, New tbl_RombaseRowChangeEvent(CType(e.Row,tbl_RombaseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_RombaseRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_RombaseRowDeleted(Me, New tbl_RombaseRowChangeEvent(CType(e.Row,tbl_RombaseRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_RombaseRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_RombaseRowDeleting(Me, New tbl_RombaseRowChangeEvent(CType(e.Row,tbl_RombaseRow), e.Action)) + End If + End Sub + + _ + Public Sub Removetbl_RombaseRow(ByVal row As tbl_RombaseRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_Rombase = New DS_Rombase() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "tbl_RombaseDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_RombaseRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Rombase As tbl_RombaseDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Rombase = CType(Me.Table,tbl_RombaseDataTable) + End Sub + + _ + Public Property id_rombase() As Long + Get + Return CType(Me(Me.tabletbl_Rombase.id_rombaseColumn),Long) + End Get + Set + Me(Me.tabletbl_Rombase.id_rombaseColumn) = value + End Set + End Property + + _ + Public Property filename() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.filenameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte filename in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.filenameColumn) = value + End Set + End Property + + _ + Public Property CustomIdentifier() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.CustomIdentifierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomIdentifier in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.CustomIdentifierColumn) = value + End Set + End Property + + _ + Public Property size() As Long + Get + Try + Return CType(Me(Me.tabletbl_Rombase.sizeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte size in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.sizeColumn) = value + End Set + End Property + + _ + Public Property crc() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.crcColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte crc in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.crcColumn) = value + End Set + End Property + + _ + Public Property md5() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.md5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte md5 in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.md5Column) = value + End Set + End Property + + _ + Public Property sha1() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.sha1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sha1 in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.sha1Column) = value + End Set + End Property + + _ + Public Property id_Moby_Platforms() As Long + Get + Try + Return CType(Me(Me.tabletbl_Rombase.id_Moby_PlatformsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.id_Moby_PlatformsColumn) = value + End Set + End Property + + _ + Public Property id_Moby_Releases() As Long + Get + Try + Return CType(Me(Me.tabletbl_Rombase.id_Moby_ReleasesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.id_Moby_ReleasesColumn) = value + End Set + End Property + + _ + Public Property Soundex() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.SoundexColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Soundex in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.SoundexColumn) = value + End Set + End Property + + _ + Public Property Moby_Games_URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.Moby_Games_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Games_URLPart in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.Moby_Games_URLPartColumn) = value + End Set + End Property + + _ + Public Property Moby_Platforms_URLPart() As String + Get + Try + Return CType(Me(Me.tabletbl_Rombase.Moby_Platforms_URLPartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Moby_Platforms_URLPart in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.Moby_Platforms_URLPartColumn) = value + End Set + End Property + + _ + Public Property deprecated() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Rombase.deprecatedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte deprecated in Tabelle tbl_Rombase ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Rombase.deprecatedColumn) = value + End Set + End Property + + _ + Public Function IsfilenameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.filenameColumn) + End Function + + _ + Public Sub SetfilenameNull() + Me(Me.tabletbl_Rombase.filenameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCustomIdentifierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.CustomIdentifierColumn) + End Function + + _ + Public Sub SetCustomIdentifierNull() + Me(Me.tabletbl_Rombase.CustomIdentifierColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.sizeColumn) + End Function + + _ + Public Sub SetsizeNull() + Me(Me.tabletbl_Rombase.sizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscrcNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.crcColumn) + End Function + + _ + Public Sub SetcrcNull() + Me(Me.tabletbl_Rombase.crcColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ismd5Null() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.md5Column) + End Function + + _ + Public Sub Setmd5Null() + Me(Me.tabletbl_Rombase.md5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Issha1Null() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.sha1Column) + End Function + + _ + Public Sub Setsha1Null() + Me(Me.tabletbl_Rombase.sha1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.id_Moby_PlatformsColumn) + End Function + + _ + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tabletbl_Rombase.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.id_Moby_ReleasesColumn) + End Function + + _ + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tabletbl_Rombase.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSoundexNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.SoundexColumn) + End Function + + _ + Public Sub SetSoundexNull() + Me(Me.tabletbl_Rombase.SoundexColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.Moby_Games_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Games_URLPartNull() + Me(Me.tabletbl_Rombase.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMoby_Platforms_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.Moby_Platforms_URLPartColumn) + End Function + + _ + Public Sub SetMoby_Platforms_URLPartNull() + Me(Me.tabletbl_Rombase.Moby_Platforms_URLPartColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Rombase.deprecatedColumn) + End Function + + _ + Public Sub SetdeprecatedNull() + Me(Me.tabletbl_Rombase.deprecatedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_RombaseRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_RombaseRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_RombaseRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_RombaseRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Metropolis_Launcher/DataSets/DS_Rombase.vb b/Metropolis_Launcher/DataSets/DS_Rombase.vb new file mode 100644 index 0000000..4cbafbf --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_Rombase.vb @@ -0,0 +1,146 @@ +Imports TC = MKNetLib.cls_MKTypeConverter +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess + +Partial Class DS_Rombase + +#Region "Select Statements" + Public Shared Function Select_id_Rombase(ByRef tran As SQLite.SQLiteTransaction, ByVal Mapping_Identifier As Object, ByVal filename As Object, ByVal size As Object, ByVal crc As Object, ByVal md5 As Object, ByVal sha1 As Object, ByVal id_Moby_Platforms As Object, ByVal id_Moby_Releases As Object, ByVal CustomIdentifier As Object, Optional ByVal id_Rombase_Owner As Object = Nothing) As Integer + Dim dt As DataTable + + If TC.NZ(Mapping_Identifier, "").Length > 0 Then + dt = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_rombase, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases FROM tbl_Rombase WHERE Mapping_Identifier = " & TC.getSQLFormat(Mapping_Identifier) & IIf(TC.NZ(id_Rombase_Owner, 0) > 0, " AND id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner), ""), Nothing, tran) + If dt.Rows.Count = 1 Then + Return dt.Rows(0)("id_rombase") + Else + Return 0 + End If + End If + + If TC.NZ(CustomIdentifier, "").Length > 0 AndAlso TC.NZ(id_Moby_Platforms, 0) > 0 Then + dt = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_rombase, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases FROM tbl_Rombase WHERE CustomIdentifier = " & TC.getSQLFormat(CustomIdentifier) & " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & IIf(TC.NZ(id_Rombase_Owner, 0) > 0, " AND id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner), ""), Nothing, tran) + If dt.Rows.Count = 1 Then + Return dt.Rows(0)("id_rombase") + Else + Return 0 + End If + End If + + dt = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_rombase, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases FROM tbl_Rombase WHERE size = " & TC.getSQLFormat(size) & " AND ( 0=1 " & IIf(TC.NZ(crc, "").Length > 0, " OR crc = " & TC.getSQLFormat(crc), "") & IIf(TC.NZ(sha1, "").Length > 0, " OR sha1 = " & TC.getSQLFormat(sha1), "") & IIf(TC.NZ(md5, "").Length > 0, " OR md5 = " & TC.getSQLFormat(md5), "") & ") " & IIf(False, " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms), "") & IIf(TC.NZ(id_Rombase_Owner, 0) > 0, " AND id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner), ""), Nothing, tran) + + Dim row As DataRow = Nothing + + If dt.Rows.Count = 1 Then + Return TC.NZ(dt.Rows(0)("id_rombase"), 0) + End If + + For Each rowtemp As DataRow In dt.Rows + If Not TC.IsNullNothingOrEmpty(md5) AndAlso Not TC.IsNullNothingOrEmpty(rowtemp("md5")) Then + If md5 = rowtemp("md5") Then + row = rowtemp + Exit For + Else + 'MD5 Checksum error + Continue For + End If + End If + + If Not TC.IsNullNothingOrEmpty(sha1) AndAlso Not TC.IsNullNothingOrEmpty(rowtemp("sha1")) Then + If sha1 = rowtemp("sha1") Then + row = rowtemp + Exit For + Else + 'SHA1 Checksum error + Continue For + End If + End If + + 'Last resort: crc + If TC.NZ(crc, "no1") = TC.NZ(rowtemp("crc"), "no2") Then + row = rowtemp + Exit For + End If + Next + + If row IsNot Nothing Then + Return TC.NZ(row("id_rombase"), 0) + Else + Return 0 + End If + End Function + + Public Function Select_Rombase_Records(ByRef tran As SQLite.SQLiteTransaction, ByVal id_rombase As Integer) As DataTable + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_rombase, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases, Moby_Games_URLPart FROM tbl_Rombase WHERE id_rombase = " & TC.getSQLFormat(id_rombase), Nothing, tran) + Return dt + End Function +#End Region + +#Region "Upsert Statements" + Public Shared Function Upsert_Rombase(ByRef tran As SQLite.SQLiteTransaction, ByVal Mapping_Identifier As Object, ByVal filename As Object, ByVal size As Object, ByVal crc As Object, ByVal md5 As Object, ByVal sha1 As Object, ByVal id_Moby_Platforms As Object, ByVal id_Moby_Releases As Object, ByVal Moby_Platforms_URLPart As Object, ByVal Moby_Games_URLPart As Object, Optional ByVal id_Rombase_Owner As Object = Nothing, Optional ByVal CustomIdentifier As Object = Nothing, Optional ByVal id_rombase As Object = Nothing) As Integer + Dim sSQL = "" + + If TC.NZ(Mapping_Identifier, "") = "" Then + If TC.NZ(id_rombase, 0) < 0 Then + id_rombase = 0 + End If + End If + + id_rombase = TC.NZ(id_rombase, 0) + If id_rombase = 0 Then + Dim obj_id_rombase = Select_id_Rombase(tran, Mapping_Identifier, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases, CustomIdentifier, id_Rombase_Owner) + If TC.NZ(obj_id_rombase, 0) <> 0 Then + id_rombase = obj_id_rombase + End If + End If + + If id_rombase <> 0 Then + 'Update + sSQL = "UPDATE tbl_Rombase SET " + sSQL &= " Mapping_Identifier = " & TC.getSQLFormat(Mapping_Identifier) + sSQL &= ", filename = " & TC.getSQLFormat(filename) + sSQL &= ", size = " & TC.getSQLFormat(size) + sSQL &= ", crc = " & TC.getSQLFormat(crc) + sSQL &= ", md5 = " & TC.getSQLFormat(md5) + sSQL &= ", sha1 = " & TC.getSQLFormat(sha1) + sSQL &= ", id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + sSQL &= ", id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) + sSQL &= ", Moby_Platforms_URLPart = " & TC.getSQLFormat(Moby_Platforms_URLPart) + sSQL &= ", Moby_Games_URLPart = " & TC.getSQLFormat(Moby_Games_URLPart) + sSQL &= ", id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner) + sSQL &= ", CustomIdentifier = " & TC.getSQLFormat(CustomIdentifier) + sSQL &= " WHERE id_Rombase = " & TC.getSQLFormat(id_rombase) + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + + Return id_rombase + End If + + Dim new_id_rombase As Integer = 0 + If TC.NZ(Mapping_Identifier, "").Length > 0 Then + new_id_rombase = Math.Min(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT MIN(id_rombase) FROM tbl_rombase", tran), 0) - 1 + End If + + sSQL = "INSERT INTO tbl_Rombase (" & IIf(TC.NZ(Mapping_Identifier, "").Length > 0, "id_rombase, ", "") & "Mapping_Identifier, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases, Moby_Platforms_URLPart, Moby_Games_URLPart, id_Rombase_Owner, CustomIdentifier) VALUES (" _ + & IIf(TC.NZ(Mapping_Identifier, "").Length > 0, TC.getSQLFormat(new_id_rombase) & ", ", "") _ + & TC.getSQLFormat(Mapping_Identifier) _ + & ", " & TC.getSQLFormat(filename) _ + & ", " & TC.getSQLFormat(size) _ + & ", " & TC.getSQLFormat(crc) _ + & ", " & TC.getSQLFormat(md5) _ + & ", " & TC.getSQLFormat(sha1) _ + & ", " & TC.getSQLFormat(id_Moby_Platforms) _ + & ", " & TC.getSQLFormat(id_Moby_Releases) _ + & ", " & TC.getSQLFormat(Moby_Platforms_URLPart) _ + & ", " & TC.getSQLFormat(Moby_Games_URLPart) _ + & ", " & TC.getSQLFormat(id_Rombase_Owner) _ + & ", " & TC.getSQLFormat(CustomIdentifier) _ + & "); SELECT last_insert_rowid()" + + 'Insert + Return TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0) + 'dt = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_rombase, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases FROM tbl_Rombase WHERE size = " & TC.getSQLFormat(size) & " AND crc = " & TC.getSQLFormat(crc) & " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms), Nothing, tran) + + 'Return Select_id_Rombase(tran, Mapping_Identifier, filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases) + End Function +#End Region + +End Class diff --git a/Metropolis_Launcher/DataSets/DS_Rombase.xsc b/Metropolis_Launcher/DataSets/DS_Rombase.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_Rombase.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_Rombase.xsd b/Metropolis_Launcher/DataSets/DS_Rombase.xsd new file mode 100644 index 0000000..9d832ac --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_Rombase.xsd @@ -0,0 +1,65 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/DataSets/DS_Rombase.xss b/Metropolis_Launcher/DataSets/DS_Rombase.xss new file mode 100644 index 0000000..a659506 --- /dev/null +++ b/Metropolis_Launcher/DataSets/DS_Rombase.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_About.Designer.vb b/Metropolis_Launcher/Forms/frm_About.Designer.vb new file mode 100644 index 0000000..b7112d9 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_About.Designer.vb @@ -0,0 +1,801 @@ + _ +Partial Class frm_About + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_About)) + Me.pnl_PDRoms = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_PDRoms_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_PDRoms = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Bottom_Fugue = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Bottom_Fugue_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Bottom_Fugue = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Bottom_Close = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.pnl_RetroArch = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_RetroArch_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_RetroArch = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Archive = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Archive_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Archive = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_RetroAchievements = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_RetroAchievements_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_RetroAchievements = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_TOSEC = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_TOSEC_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_TOSEC = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_NoIntro = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_NoIntro_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_NoIntro = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_TDC = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_TDC_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_TDC = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Respect = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_MetropolisLauncher = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_MetropolisLauncher_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_MetropolisLauncher = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ML = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_MobyGames = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_MobyGames_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_MobyGames = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_BuildInfo = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_BuildInfo = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Bottom_SpaceInvaders = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Bottom_SpaceInvaders_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Bottom_SpaceInvaders = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_EmulationEvolved = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_EmulationEvolved_Link = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_EmulationEvolved = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.pnl_PDRoms, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_PDRoms.SuspendLayout() + CType(Me.pnl_Bottom_Fugue, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom_Fugue.SuspendLayout() + CType(Me.pnl_Bottom_Close, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom_Close.SuspendLayout() + CType(Me.pnl_RetroArch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_RetroArch.SuspendLayout() + CType(Me.pnl_Archive, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Archive.SuspendLayout() + CType(Me.pnl_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_RetroAchievements.SuspendLayout() + CType(Me.pnl_TOSEC, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_TOSEC.SuspendLayout() + CType(Me.pnl_NoIntro, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_NoIntro.SuspendLayout() + CType(Me.pnl_TDC, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_TDC.SuspendLayout() + CType(Me.pnl_MetropolisLauncher, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_MetropolisLauncher.SuspendLayout() + CType(Me.pnl_MobyGames, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_MobyGames.SuspendLayout() + CType(Me.pnl_BuildInfo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_BuildInfo.SuspendLayout() + CType(Me.pnl_Bottom_SpaceInvaders, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom_SpaceInvaders.SuspendLayout() + CType(Me.pnl_EmulationEvolved, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_EmulationEvolved.SuspendLayout() + Me.SuspendLayout() + ' + 'pnl_PDRoms + ' + Me.pnl_PDRoms.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_PDRoms.Controls.Add(Me.lbl_PDRoms_Link) + Me.pnl_PDRoms.Controls.Add(Me.lbl_PDRoms) + Me.pnl_PDRoms.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_PDRoms.Location = New System.Drawing.Point(0, 253) + Me.pnl_PDRoms.Name = "pnl_PDRoms" + Me.pnl_PDRoms.Size = New System.Drawing.Size(284, 20) + Me.pnl_PDRoms.TabIndex = 26 + ' + 'lbl_PDRoms_Link + ' + Me.lbl_PDRoms_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_PDRoms_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_PDRoms_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_PDRoms_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_PDRoms_Link.MKBoundControl1 = Nothing + Me.lbl_PDRoms_Link.MKBoundControl2 = Nothing + Me.lbl_PDRoms_Link.MKBoundControl3 = Nothing + Me.lbl_PDRoms_Link.MKBoundControl4 = Nothing + Me.lbl_PDRoms_Link.MKBoundControl5 = Nothing + Me.lbl_PDRoms_Link.Name = "lbl_PDRoms_Link" + Me.lbl_PDRoms_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_PDRoms_Link.TabIndex = 1 + Me.lbl_PDRoms_Link.Text = " www.pdroms.de" + ' + 'lbl_PDRoms + ' + Me.lbl_PDRoms.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_PDRoms.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_PDRoms.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_PDRoms.Location = New System.Drawing.Point(0, 0) + Me.lbl_PDRoms.MKBoundControl1 = Nothing + Me.lbl_PDRoms.MKBoundControl2 = Nothing + Me.lbl_PDRoms.MKBoundControl3 = Nothing + Me.lbl_PDRoms.MKBoundControl4 = Nothing + Me.lbl_PDRoms.MKBoundControl5 = Nothing + Me.lbl_PDRoms.Name = "lbl_PDRoms" + Me.lbl_PDRoms.Size = New System.Drawing.Size(132, 20) + Me.lbl_PDRoms.TabIndex = 0 + Me.lbl_PDRoms.Text = "PDRoms |" + ' + 'pnl_Bottom_Fugue + ' + Me.pnl_Bottom_Fugue.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom_Fugue.Controls.Add(Me.lbl_Bottom_Fugue_Link) + Me.pnl_Bottom_Fugue.Controls.Add(Me.lbl_Bottom_Fugue) + Me.pnl_Bottom_Fugue.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom_Fugue.Location = New System.Drawing.Point(0, 300) + Me.pnl_Bottom_Fugue.Name = "pnl_Bottom_Fugue" + Me.pnl_Bottom_Fugue.Size = New System.Drawing.Size(284, 20) + Me.pnl_Bottom_Fugue.TabIndex = 30 + ' + 'lbl_Bottom_Fugue_Link + ' + Me.lbl_Bottom_Fugue_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Bottom_Fugue_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_Bottom_Fugue_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_Bottom_Fugue_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_Bottom_Fugue_Link.MKBoundControl1 = Nothing + Me.lbl_Bottom_Fugue_Link.MKBoundControl2 = Nothing + Me.lbl_Bottom_Fugue_Link.MKBoundControl3 = Nothing + Me.lbl_Bottom_Fugue_Link.MKBoundControl4 = Nothing + Me.lbl_Bottom_Fugue_Link.MKBoundControl5 = Nothing + Me.lbl_Bottom_Fugue_Link.Name = "lbl_Bottom_Fugue_Link" + Me.lbl_Bottom_Fugue_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_Bottom_Fugue_Link.TabIndex = 1 + Me.lbl_Bottom_Fugue_Link.Text = " by Yusuke Kamiyamane" + ' + 'lbl_Bottom_Fugue + ' + Me.lbl_Bottom_Fugue.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Bottom_Fugue.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Bottom_Fugue.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Bottom_Fugue.Location = New System.Drawing.Point(0, 0) + Me.lbl_Bottom_Fugue.MKBoundControl1 = Nothing + Me.lbl_Bottom_Fugue.MKBoundControl2 = Nothing + Me.lbl_Bottom_Fugue.MKBoundControl3 = Nothing + Me.lbl_Bottom_Fugue.MKBoundControl4 = Nothing + Me.lbl_Bottom_Fugue.MKBoundControl5 = Nothing + Me.lbl_Bottom_Fugue.Name = "lbl_Bottom_Fugue" + Me.lbl_Bottom_Fugue.Size = New System.Drawing.Size(132, 20) + Me.lbl_Bottom_Fugue.TabIndex = 0 + Me.lbl_Bottom_Fugue.Text = "Fugue Icon Set |" + ' + 'pnl_Bottom_Close + ' + Me.pnl_Bottom_Close.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom_Close.Controls.Add(Me.btn_Close) + Me.pnl_Bottom_Close.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom_Close.Location = New System.Drawing.Point(0, 320) + Me.pnl_Bottom_Close.Name = "pnl_Bottom_Close" + Me.pnl_Bottom_Close.Size = New System.Drawing.Size(284, 32) + Me.pnl_Bottom_Close.TabIndex = 29 + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.Location = New System.Drawing.Point(205, 5) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 12 + Me.btn_Close.Text = "&Close" + ' + 'pnl_RetroArch + ' + Me.pnl_RetroArch.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_RetroArch.Controls.Add(Me.lbl_RetroArch_Link) + Me.pnl_RetroArch.Controls.Add(Me.lbl_RetroArch) + Me.pnl_RetroArch.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_RetroArch.Location = New System.Drawing.Point(0, 233) + Me.pnl_RetroArch.Name = "pnl_RetroArch" + Me.pnl_RetroArch.Size = New System.Drawing.Size(284, 20) + Me.pnl_RetroArch.TabIndex = 27 + ' + 'lbl_RetroArch_Link + ' + Me.lbl_RetroArch_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroArch_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_RetroArch_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_RetroArch_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_RetroArch_Link.MKBoundControl1 = Nothing + Me.lbl_RetroArch_Link.MKBoundControl2 = Nothing + Me.lbl_RetroArch_Link.MKBoundControl3 = Nothing + Me.lbl_RetroArch_Link.MKBoundControl4 = Nothing + Me.lbl_RetroArch_Link.MKBoundControl5 = Nothing + Me.lbl_RetroArch_Link.Name = "lbl_RetroArch_Link" + Me.lbl_RetroArch_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_RetroArch_Link.TabIndex = 1 + Me.lbl_RetroArch_Link.Text = " www.libretro.com" + ' + 'lbl_RetroArch + ' + Me.lbl_RetroArch.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RetroArch.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroArch.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_RetroArch.Location = New System.Drawing.Point(0, 0) + Me.lbl_RetroArch.MKBoundControl1 = Nothing + Me.lbl_RetroArch.MKBoundControl2 = Nothing + Me.lbl_RetroArch.MKBoundControl3 = Nothing + Me.lbl_RetroArch.MKBoundControl4 = Nothing + Me.lbl_RetroArch.MKBoundControl5 = Nothing + Me.lbl_RetroArch.Name = "lbl_RetroArch" + Me.lbl_RetroArch.Size = New System.Drawing.Size(132, 20) + Me.lbl_RetroArch.TabIndex = 0 + Me.lbl_RetroArch.Text = "LibRetro / RetroArch |" + ' + 'pnl_Archive + ' + Me.pnl_Archive.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Archive.Controls.Add(Me.lbl_Archive_Link) + Me.pnl_Archive.Controls.Add(Me.lbl_Archive) + Me.pnl_Archive.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Archive.Location = New System.Drawing.Point(0, 213) + Me.pnl_Archive.Name = "pnl_Archive" + Me.pnl_Archive.Size = New System.Drawing.Size(284, 20) + Me.pnl_Archive.TabIndex = 24 + ' + 'lbl_Archive_Link + ' + Me.lbl_Archive_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Archive_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_Archive_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_Archive_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_Archive_Link.MKBoundControl1 = Nothing + Me.lbl_Archive_Link.MKBoundControl2 = Nothing + Me.lbl_Archive_Link.MKBoundControl3 = Nothing + Me.lbl_Archive_Link.MKBoundControl4 = Nothing + Me.lbl_Archive_Link.MKBoundControl5 = Nothing + Me.lbl_Archive_Link.Name = "lbl_Archive_Link" + Me.lbl_Archive_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_Archive_Link.TabIndex = 1 + Me.lbl_Archive_Link.Text = " www.archive.org" + ' + 'lbl_Archive + ' + Me.lbl_Archive.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Archive.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Archive.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Archive.Location = New System.Drawing.Point(0, 0) + Me.lbl_Archive.MKBoundControl1 = Nothing + Me.lbl_Archive.MKBoundControl2 = Nothing + Me.lbl_Archive.MKBoundControl3 = Nothing + Me.lbl_Archive.MKBoundControl4 = Nothing + Me.lbl_Archive.MKBoundControl5 = Nothing + Me.lbl_Archive.Name = "lbl_Archive" + Me.lbl_Archive.Size = New System.Drawing.Size(132, 20) + Me.lbl_Archive.TabIndex = 0 + Me.lbl_Archive.Text = "Internet Archive |" + ' + 'pnl_RetroAchievements + ' + Me.pnl_RetroAchievements.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_RetroAchievements.Controls.Add(Me.lbl_RetroAchievements_Link) + Me.pnl_RetroAchievements.Controls.Add(Me.lbl_RetroAchievements) + Me.pnl_RetroAchievements.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_RetroAchievements.Location = New System.Drawing.Point(0, 193) + Me.pnl_RetroAchievements.Name = "pnl_RetroAchievements" + Me.pnl_RetroAchievements.Size = New System.Drawing.Size(284, 20) + Me.pnl_RetroAchievements.TabIndex = 28 + ' + 'lbl_RetroAchievements_Link + ' + Me.lbl_RetroAchievements_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroAchievements_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_RetroAchievements_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_RetroAchievements_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_RetroAchievements_Link.MKBoundControl1 = Nothing + Me.lbl_RetroAchievements_Link.MKBoundControl2 = Nothing + Me.lbl_RetroAchievements_Link.MKBoundControl3 = Nothing + Me.lbl_RetroAchievements_Link.MKBoundControl4 = Nothing + Me.lbl_RetroAchievements_Link.MKBoundControl5 = Nothing + Me.lbl_RetroAchievements_Link.Name = "lbl_RetroAchievements_Link" + Me.lbl_RetroAchievements_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_RetroAchievements_Link.TabIndex = 1 + Me.lbl_RetroAchievements_Link.Text = " www.retroachievements.org" + ' + 'lbl_RetroAchievements + ' + Me.lbl_RetroAchievements.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RetroAchievements.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroAchievements.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_RetroAchievements.Location = New System.Drawing.Point(0, 0) + Me.lbl_RetroAchievements.MKBoundControl1 = Nothing + Me.lbl_RetroAchievements.MKBoundControl2 = Nothing + Me.lbl_RetroAchievements.MKBoundControl3 = Nothing + Me.lbl_RetroAchievements.MKBoundControl4 = Nothing + Me.lbl_RetroAchievements.MKBoundControl5 = Nothing + Me.lbl_RetroAchievements.Name = "lbl_RetroAchievements" + Me.lbl_RetroAchievements.Size = New System.Drawing.Size(132, 20) + Me.lbl_RetroAchievements.TabIndex = 0 + Me.lbl_RetroAchievements.Text = "RetroAchievements |" + ' + 'pnl_TOSEC + ' + Me.pnl_TOSEC.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_TOSEC.Controls.Add(Me.lbl_TOSEC_Link) + Me.pnl_TOSEC.Controls.Add(Me.lbl_TOSEC) + Me.pnl_TOSEC.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_TOSEC.Location = New System.Drawing.Point(0, 173) + Me.pnl_TOSEC.Name = "pnl_TOSEC" + Me.pnl_TOSEC.Size = New System.Drawing.Size(284, 20) + Me.pnl_TOSEC.TabIndex = 23 + ' + 'lbl_TOSEC_Link + ' + Me.lbl_TOSEC_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TOSEC_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_TOSEC_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_TOSEC_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_TOSEC_Link.MKBoundControl1 = Nothing + Me.lbl_TOSEC_Link.MKBoundControl2 = Nothing + Me.lbl_TOSEC_Link.MKBoundControl3 = Nothing + Me.lbl_TOSEC_Link.MKBoundControl4 = Nothing + Me.lbl_TOSEC_Link.MKBoundControl5 = Nothing + Me.lbl_TOSEC_Link.Name = "lbl_TOSEC_Link" + Me.lbl_TOSEC_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_TOSEC_Link.TabIndex = 1 + Me.lbl_TOSEC_Link.Text = " www.tosec.org" + ' + 'lbl_TOSEC + ' + Me.lbl_TOSEC.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_TOSEC.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TOSEC.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_TOSEC.Location = New System.Drawing.Point(0, 0) + Me.lbl_TOSEC.MKBoundControl1 = Nothing + Me.lbl_TOSEC.MKBoundControl2 = Nothing + Me.lbl_TOSEC.MKBoundControl3 = Nothing + Me.lbl_TOSEC.MKBoundControl4 = Nothing + Me.lbl_TOSEC.MKBoundControl5 = Nothing + Me.lbl_TOSEC.Name = "lbl_TOSEC" + Me.lbl_TOSEC.Size = New System.Drawing.Size(132, 20) + Me.lbl_TOSEC.TabIndex = 0 + Me.lbl_TOSEC.Text = "TOSEC |" + ' + 'pnl_NoIntro + ' + Me.pnl_NoIntro.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_NoIntro.Controls.Add(Me.lbl_NoIntro_Link) + Me.pnl_NoIntro.Controls.Add(Me.lbl_NoIntro) + Me.pnl_NoIntro.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_NoIntro.Location = New System.Drawing.Point(0, 153) + Me.pnl_NoIntro.Name = "pnl_NoIntro" + Me.pnl_NoIntro.Size = New System.Drawing.Size(284, 20) + Me.pnl_NoIntro.TabIndex = 22 + ' + 'lbl_NoIntro_Link + ' + Me.lbl_NoIntro_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_NoIntro_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_NoIntro_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_NoIntro_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_NoIntro_Link.MKBoundControl1 = Nothing + Me.lbl_NoIntro_Link.MKBoundControl2 = Nothing + Me.lbl_NoIntro_Link.MKBoundControl3 = Nothing + Me.lbl_NoIntro_Link.MKBoundControl4 = Nothing + Me.lbl_NoIntro_Link.MKBoundControl5 = Nothing + Me.lbl_NoIntro_Link.Name = "lbl_NoIntro_Link" + Me.lbl_NoIntro_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_NoIntro_Link.TabIndex = 1 + Me.lbl_NoIntro_Link.Text = " www.no-intro.org" + ' + 'lbl_NoIntro + ' + Me.lbl_NoIntro.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_NoIntro.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_NoIntro.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_NoIntro.Location = New System.Drawing.Point(0, 0) + Me.lbl_NoIntro.MKBoundControl1 = Nothing + Me.lbl_NoIntro.MKBoundControl2 = Nothing + Me.lbl_NoIntro.MKBoundControl3 = Nothing + Me.lbl_NoIntro.MKBoundControl4 = Nothing + Me.lbl_NoIntro.MKBoundControl5 = Nothing + Me.lbl_NoIntro.Name = "lbl_NoIntro" + Me.lbl_NoIntro.Size = New System.Drawing.Size(132, 20) + Me.lbl_NoIntro.TabIndex = 0 + Me.lbl_NoIntro.Text = "No-Intro |" + ' + 'pnl_TDC + ' + Me.pnl_TDC.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_TDC.Controls.Add(Me.lbl_TDC_Link) + Me.pnl_TDC.Controls.Add(Me.lbl_TDC) + Me.pnl_TDC.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_TDC.Location = New System.Drawing.Point(0, 133) + Me.pnl_TDC.Name = "pnl_TDC" + Me.pnl_TDC.Size = New System.Drawing.Size(284, 20) + Me.pnl_TDC.TabIndex = 21 + ' + 'lbl_TDC_Link + ' + Me.lbl_TDC_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TDC_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_TDC_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_TDC_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_TDC_Link.MKBoundControl1 = Nothing + Me.lbl_TDC_Link.MKBoundControl2 = Nothing + Me.lbl_TDC_Link.MKBoundControl3 = Nothing + Me.lbl_TDC_Link.MKBoundControl4 = Nothing + Me.lbl_TDC_Link.MKBoundControl5 = Nothing + Me.lbl_TDC_Link.Name = "lbl_TDC_Link" + Me.lbl_TDC_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_TDC_Link.TabIndex = 1 + Me.lbl_TDC_Link.Text = " www.totaldoscollection.org" + ' + 'lbl_TDC + ' + Me.lbl_TDC.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_TDC.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TDC.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_TDC.Location = New System.Drawing.Point(0, 0) + Me.lbl_TDC.MKBoundControl1 = Nothing + Me.lbl_TDC.MKBoundControl2 = Nothing + Me.lbl_TDC.MKBoundControl3 = Nothing + Me.lbl_TDC.MKBoundControl4 = Nothing + Me.lbl_TDC.MKBoundControl5 = Nothing + Me.lbl_TDC.Name = "lbl_TDC" + Me.lbl_TDC.Size = New System.Drawing.Size(132, 20) + Me.lbl_TDC.TabIndex = 0 + Me.lbl_TDC.Text = "Total DOS Collection |" + ' + 'lbl_Respect + ' + Me.lbl_Respect.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbl_Respect.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_Respect.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Bottom + Me.lbl_Respect.AutoEllipsis = True + Me.lbl_Respect.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Respect.Cursor = System.Windows.Forms.Cursors.Default + Me.lbl_Respect.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Respect.Location = New System.Drawing.Point(0, 90) + Me.lbl_Respect.MKBoundControl1 = Nothing + Me.lbl_Respect.MKBoundControl2 = Nothing + Me.lbl_Respect.MKBoundControl3 = Nothing + Me.lbl_Respect.MKBoundControl4 = Nothing + Me.lbl_Respect.MKBoundControl5 = Nothing + Me.lbl_Respect.Name = "lbl_Respect" + Me.lbl_Respect.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Respect.Size = New System.Drawing.Size(284, 23) + Me.lbl_Respect.TabIndex = 20 + Me.lbl_Respect.Text = "respect goes to" + ' + 'pnl_MetropolisLauncher + ' + Me.pnl_MetropolisLauncher.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_MetropolisLauncher.Controls.Add(Me.lbl_MetropolisLauncher_Link) + Me.pnl_MetropolisLauncher.Controls.Add(Me.lbl_MetropolisLauncher) + Me.pnl_MetropolisLauncher.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_MetropolisLauncher.Location = New System.Drawing.Point(0, 50) + Me.pnl_MetropolisLauncher.Name = "pnl_MetropolisLauncher" + Me.pnl_MetropolisLauncher.Size = New System.Drawing.Size(284, 20) + Me.pnl_MetropolisLauncher.TabIndex = 25 + ' + 'lbl_MetropolisLauncher_Link + ' + Me.lbl_MetropolisLauncher_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MetropolisLauncher_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_MetropolisLauncher_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_MetropolisLauncher_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_MetropolisLauncher_Link.MKBoundControl1 = Nothing + Me.lbl_MetropolisLauncher_Link.MKBoundControl2 = Nothing + Me.lbl_MetropolisLauncher_Link.MKBoundControl3 = Nothing + Me.lbl_MetropolisLauncher_Link.MKBoundControl4 = Nothing + Me.lbl_MetropolisLauncher_Link.MKBoundControl5 = Nothing + Me.lbl_MetropolisLauncher_Link.Name = "lbl_MetropolisLauncher_Link" + Me.lbl_MetropolisLauncher_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_MetropolisLauncher_Link.TabIndex = 1 + Me.lbl_MetropolisLauncher_Link.Text = " www.metropolis-launcher.net" + ' + 'lbl_MetropolisLauncher + ' + Me.lbl_MetropolisLauncher.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_MetropolisLauncher.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MetropolisLauncher.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_MetropolisLauncher.Location = New System.Drawing.Point(0, 0) + Me.lbl_MetropolisLauncher.MKBoundControl1 = Nothing + Me.lbl_MetropolisLauncher.MKBoundControl2 = Nothing + Me.lbl_MetropolisLauncher.MKBoundControl3 = Nothing + Me.lbl_MetropolisLauncher.MKBoundControl4 = Nothing + Me.lbl_MetropolisLauncher.MKBoundControl5 = Nothing + Me.lbl_MetropolisLauncher.Name = "lbl_MetropolisLauncher" + Me.lbl_MetropolisLauncher.Size = New System.Drawing.Size(132, 20) + Me.lbl_MetropolisLauncher.TabIndex = 0 + Me.lbl_MetropolisLauncher.Text = "by MK2k |" + ' + 'lbl_ML + ' + Me.lbl_ML.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_ML.AutoEllipsis = True + Me.lbl_ML.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ML.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_ML.Location = New System.Drawing.Point(0, 0) + Me.lbl_ML.MKBoundControl1 = Nothing + Me.lbl_ML.MKBoundControl2 = Nothing + Me.lbl_ML.MKBoundControl3 = Nothing + Me.lbl_ML.MKBoundControl4 = Nothing + Me.lbl_ML.MKBoundControl5 = Nothing + Me.lbl_ML.Name = "lbl_ML" + Me.lbl_ML.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_ML.Size = New System.Drawing.Size(284, 30) + Me.lbl_ML.TabIndex = 19 + Me.lbl_ML.Text = "Metropolis Launcher" + ' + 'pnl_MobyGames + ' + Me.pnl_MobyGames.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_MobyGames.Controls.Add(Me.lbl_MobyGames_Link) + Me.pnl_MobyGames.Controls.Add(Me.lbl_MobyGames) + Me.pnl_MobyGames.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_MobyGames.Location = New System.Drawing.Point(0, 113) + Me.pnl_MobyGames.Name = "pnl_MobyGames" + Me.pnl_MobyGames.Size = New System.Drawing.Size(284, 20) + Me.pnl_MobyGames.TabIndex = 31 + ' + 'lbl_MobyGames_Link + ' + Me.lbl_MobyGames_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MobyGames_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_MobyGames_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_MobyGames_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_MobyGames_Link.MKBoundControl1 = Nothing + Me.lbl_MobyGames_Link.MKBoundControl2 = Nothing + Me.lbl_MobyGames_Link.MKBoundControl3 = Nothing + Me.lbl_MobyGames_Link.MKBoundControl4 = Nothing + Me.lbl_MobyGames_Link.MKBoundControl5 = Nothing + Me.lbl_MobyGames_Link.Name = "lbl_MobyGames_Link" + Me.lbl_MobyGames_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_MobyGames_Link.TabIndex = 1 + Me.lbl_MobyGames_Link.Text = " www.mobygames.com" + ' + 'lbl_MobyGames + ' + Me.lbl_MobyGames.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_MobyGames.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MobyGames.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_MobyGames.Location = New System.Drawing.Point(0, 0) + Me.lbl_MobyGames.MKBoundControl1 = Nothing + Me.lbl_MobyGames.MKBoundControl2 = Nothing + Me.lbl_MobyGames.MKBoundControl3 = Nothing + Me.lbl_MobyGames.MKBoundControl4 = Nothing + Me.lbl_MobyGames.MKBoundControl5 = Nothing + Me.lbl_MobyGames.Name = "lbl_MobyGames" + Me.lbl_MobyGames.Size = New System.Drawing.Size(132, 20) + Me.lbl_MobyGames.TabIndex = 0 + Me.lbl_MobyGames.Text = "MobyGames |" + ' + 'pnl_BuildInfo + ' + Me.pnl_BuildInfo.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_BuildInfo.Controls.Add(Me.lbl_BuildInfo) + Me.pnl_BuildInfo.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_BuildInfo.Location = New System.Drawing.Point(0, 30) + Me.pnl_BuildInfo.Name = "pnl_BuildInfo" + Me.pnl_BuildInfo.Size = New System.Drawing.Size(284, 20) + Me.pnl_BuildInfo.TabIndex = 26 + ' + 'lbl_BuildInfo + ' + Me.lbl_BuildInfo.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_BuildInfo.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_BuildInfo.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_BuildInfo.Location = New System.Drawing.Point(0, 0) + Me.lbl_BuildInfo.MKBoundControl1 = Nothing + Me.lbl_BuildInfo.MKBoundControl2 = Nothing + Me.lbl_BuildInfo.MKBoundControl3 = Nothing + Me.lbl_BuildInfo.MKBoundControl4 = Nothing + Me.lbl_BuildInfo.MKBoundControl5 = Nothing + Me.lbl_BuildInfo.Name = "lbl_BuildInfo" + Me.lbl_BuildInfo.Size = New System.Drawing.Size(142, 20) + Me.lbl_BuildInfo.TabIndex = 0 + ' + 'pnl_Bottom_SpaceInvaders + ' + Me.pnl_Bottom_SpaceInvaders.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom_SpaceInvaders.Controls.Add(Me.lbl_Bottom_SpaceInvaders_Link) + Me.pnl_Bottom_SpaceInvaders.Controls.Add(Me.lbl_Bottom_SpaceInvaders) + Me.pnl_Bottom_SpaceInvaders.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom_SpaceInvaders.Location = New System.Drawing.Point(0, 280) + Me.pnl_Bottom_SpaceInvaders.Name = "pnl_Bottom_SpaceInvaders" + Me.pnl_Bottom_SpaceInvaders.Size = New System.Drawing.Size(284, 20) + Me.pnl_Bottom_SpaceInvaders.TabIndex = 32 + ' + 'lbl_Bottom_SpaceInvaders_Link + ' + Me.lbl_Bottom_SpaceInvaders_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Bottom_SpaceInvaders_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_Bottom_SpaceInvaders_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_Bottom_SpaceInvaders_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_Bottom_SpaceInvaders_Link.MKBoundControl1 = Nothing + Me.lbl_Bottom_SpaceInvaders_Link.MKBoundControl2 = Nothing + Me.lbl_Bottom_SpaceInvaders_Link.MKBoundControl3 = Nothing + Me.lbl_Bottom_SpaceInvaders_Link.MKBoundControl4 = Nothing + Me.lbl_Bottom_SpaceInvaders_Link.MKBoundControl5 = Nothing + Me.lbl_Bottom_SpaceInvaders_Link.Name = "lbl_Bottom_SpaceInvaders_Link" + Me.lbl_Bottom_SpaceInvaders_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_Bottom_SpaceInvaders_Link.TabIndex = 1 + Me.lbl_Bottom_SpaceInvaders_Link.Text = " by Max Glenister" + ' + 'lbl_Bottom_SpaceInvaders + ' + Me.lbl_Bottom_SpaceInvaders.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Bottom_SpaceInvaders.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Bottom_SpaceInvaders.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Bottom_SpaceInvaders.Location = New System.Drawing.Point(0, 0) + Me.lbl_Bottom_SpaceInvaders.MKBoundControl1 = Nothing + Me.lbl_Bottom_SpaceInvaders.MKBoundControl2 = Nothing + Me.lbl_Bottom_SpaceInvaders.MKBoundControl3 = Nothing + Me.lbl_Bottom_SpaceInvaders.MKBoundControl4 = Nothing + Me.lbl_Bottom_SpaceInvaders.MKBoundControl5 = Nothing + Me.lbl_Bottom_SpaceInvaders.Name = "lbl_Bottom_SpaceInvaders" + Me.lbl_Bottom_SpaceInvaders.Size = New System.Drawing.Size(132, 20) + Me.lbl_Bottom_SpaceInvaders.TabIndex = 0 + Me.lbl_Bottom_SpaceInvaders.Text = "Space Invaders Icons |" + ' + 'pnl_EmulationEvolved + ' + Me.pnl_EmulationEvolved.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_EmulationEvolved.Controls.Add(Me.lbl_EmulationEvolved_Link) + Me.pnl_EmulationEvolved.Controls.Add(Me.lbl_EmulationEvolved) + Me.pnl_EmulationEvolved.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_EmulationEvolved.Location = New System.Drawing.Point(0, 70) + Me.pnl_EmulationEvolved.Name = "pnl_EmulationEvolved" + Me.pnl_EmulationEvolved.Size = New System.Drawing.Size(284, 20) + Me.pnl_EmulationEvolved.TabIndex = 33 + ' + 'lbl_EmulationEvolved_Link + ' + Me.lbl_EmulationEvolved_Link.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_EmulationEvolved_Link.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_EmulationEvolved_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_EmulationEvolved_Link.Location = New System.Drawing.Point(132, 0) + Me.lbl_EmulationEvolved_Link.MKBoundControl1 = Nothing + Me.lbl_EmulationEvolved_Link.MKBoundControl2 = Nothing + Me.lbl_EmulationEvolved_Link.MKBoundControl3 = Nothing + Me.lbl_EmulationEvolved_Link.MKBoundControl4 = Nothing + Me.lbl_EmulationEvolved_Link.MKBoundControl5 = Nothing + Me.lbl_EmulationEvolved_Link.Name = "lbl_EmulationEvolved_Link" + Me.lbl_EmulationEvolved_Link.Size = New System.Drawing.Size(152, 20) + Me.lbl_EmulationEvolved_Link.TabIndex = 1 + Me.lbl_EmulationEvolved_Link.Text = " www.emulation-evolved.net" + ' + 'lbl_EmulationEvolved + ' + Me.lbl_EmulationEvolved.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_EmulationEvolved.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_EmulationEvolved.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_EmulationEvolved.Location = New System.Drawing.Point(0, 0) + Me.lbl_EmulationEvolved.MKBoundControl1 = Nothing + Me.lbl_EmulationEvolved.MKBoundControl2 = Nothing + Me.lbl_EmulationEvolved.MKBoundControl3 = Nothing + Me.lbl_EmulationEvolved.MKBoundControl4 = Nothing + Me.lbl_EmulationEvolved.MKBoundControl5 = Nothing + Me.lbl_EmulationEvolved.Name = "lbl_EmulationEvolved" + Me.lbl_EmulationEvolved.Size = New System.Drawing.Size(132, 20) + Me.lbl_EmulationEvolved.TabIndex = 0 + Me.lbl_EmulationEvolved.Text = "|" + ' + 'frm_About + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(284, 352) + Me.Controls.Add(Me.pnl_Bottom_SpaceInvaders) + Me.Controls.Add(Me.pnl_PDRoms) + Me.Controls.Add(Me.pnl_Bottom_Fugue) + Me.Controls.Add(Me.pnl_Bottom_Close) + Me.Controls.Add(Me.pnl_RetroArch) + Me.Controls.Add(Me.pnl_Archive) + Me.Controls.Add(Me.pnl_RetroAchievements) + Me.Controls.Add(Me.pnl_TOSEC) + Me.Controls.Add(Me.pnl_NoIntro) + Me.Controls.Add(Me.pnl_TDC) + Me.Controls.Add(Me.pnl_MobyGames) + Me.Controls.Add(Me.lbl_Respect) + Me.Controls.Add(Me.pnl_EmulationEvolved) + Me.Controls.Add(Me.pnl_MetropolisLauncher) + Me.Controls.Add(Me.pnl_BuildInfo) + Me.Controls.Add(Me.lbl_ML) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.MinimumSize = New System.Drawing.Size(300, 370) + Me.Name = "frm_About" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "About" + CType(Me.pnl_PDRoms, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_PDRoms.ResumeLayout(False) + CType(Me.pnl_Bottom_Fugue, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom_Fugue.ResumeLayout(False) + CType(Me.pnl_Bottom_Close, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom_Close.ResumeLayout(False) + CType(Me.pnl_RetroArch, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_RetroArch.ResumeLayout(False) + CType(Me.pnl_Archive, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Archive.ResumeLayout(False) + CType(Me.pnl_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_RetroAchievements.ResumeLayout(False) + CType(Me.pnl_TOSEC, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_TOSEC.ResumeLayout(False) + CType(Me.pnl_NoIntro, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_NoIntro.ResumeLayout(False) + CType(Me.pnl_TDC, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_TDC.ResumeLayout(False) + CType(Me.pnl_MetropolisLauncher, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_MetropolisLauncher.ResumeLayout(False) + CType(Me.pnl_MobyGames, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_MobyGames.ResumeLayout(False) + CType(Me.pnl_BuildInfo, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_BuildInfo.ResumeLayout(False) + CType(Me.pnl_Bottom_SpaceInvaders, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom_SpaceInvaders.ResumeLayout(False) + CType(Me.pnl_EmulationEvolved, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_EmulationEvolved.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents pnl_PDRoms As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_PDRoms_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_PDRoms As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Bottom_Fugue As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Bottom_Fugue_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Bottom_Fugue As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Bottom_Close As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents pnl_RetroArch As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_RetroArch_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_RetroArch As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Archive As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Archive_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Archive As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_RetroAchievements As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_RetroAchievements_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_RetroAchievements As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_TOSEC As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_TOSEC_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_TOSEC As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_NoIntro As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_NoIntro_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_NoIntro As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_TDC As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_TDC_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_TDC As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Respect As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_MetropolisLauncher As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_MetropolisLauncher_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_MetropolisLauncher As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ML As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_MobyGames As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_MobyGames_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_MobyGames As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_BuildInfo As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_BuildInfo As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Bottom_SpaceInvaders As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Bottom_SpaceInvaders_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Bottom_SpaceInvaders As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_EmulationEvolved As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_EmulationEvolved_Link As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_EmulationEvolved As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_About.resx b/Metropolis_Launcher/Forms/frm_About.resx new file mode 100644 index 0000000..8955fec --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_About.resx @@ -0,0 +1,2400 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAwAgIAAAAEAIAAoCAEAxgAAAICAAAABAAgAKEwAAO4IAQBAQAAAAQAgAChCAAAWVQEAQEAAAAEA + CAAoFgAAPpcBADAwAAABACAAqCUAAGatAQAwMAAAAQAIAKgOAAAO0wEAICAAAAEAIACoEAAAtuEBACAg + AAABAAgAqAgAAF7yAQAYGAAAAQAgAIgJAAAG+wEAGBgAAAEACADIBgAAjgQCABAQAAABACAAaAQAAFYL + AgAQEAAAAQAIAGgFAAC+DwIAKAAAAIAAAAAAAQAAAQAgAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAMAAAADAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAA + AAUAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAA + AAUAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAIAAAAEAAAABQAAAAYAAAAHAAAACQAAAAkAAAAKAAAACgAAAAsAAAALAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAA + AAwAAAAMAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAAKAAAACgAAAAkAAAAJAAAABwAA + AAYAAAAFAAAABAAAAAIAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAAEAAAABgAAAAkAAAALAAAADQAA + AA8AAAASAAAAFAAAABUAAAAWAAAAFwAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAZAAAAGQAA + ABkAAAAZAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGQAAABkAAAAYAAAAGAAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAAAAsAAAAJAAAABgAAAAQAAAADAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAADAAAABAAAAAYAAAAIAAAADQAAABAAAAASAAAAFQAAABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAA + ACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAA + ACMAAAAjAAAAIwAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACEAAAAhAAAAHwAAAB4AAAAcAAAAGgAA + ABUAAAASAAAAEAAAAA0AAAAIAAAABgAAAAQAAAADAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAAAAsAAAASAAAAFgAA + ABkAAAAdAAAAJAAAACYAAAApAAAAKwAAAC0AAAAuAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAAMAAA + ADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAALwAAAC8AAAAvAAAALwAA + AC8AAAAvAAAALgAAAC0AAAArAAAAKQAAACYAAAAkAAAAHQAAABkAAAAWAAAAEgAAAAsAAAAJAAAABgAA + AAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAIAAAADAAAABwAAAAkAAAAMAAAAEAAAABgAAAAdAAAAIQAAACYAAAAuAAAAMgAAADUAAAA3AAAAOwAA + ADwAAAA8AAAAPQAAAD0AAAA9AAAAPQAAAD0AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAA + AD4AAAA+AAAAPgAAAD4AAAA9AAAAPQAAAD0AAAA9AAAAPQAAADwAAAA8AAAAOwAAADcAAAA1AAAAMgAA + AC4AAAAmAAAAIQAAAB0AAAAYAAAAEAAAAAwAAAAJAAAABwAAAAMAAAACAAAAAgAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAQAAAAEAAAABQAAAAcAAAAMAAAAEAAAABQAAAAaAAAAJwAA + AC4AAAA2AAAAPQAAAEoAAABQAAAAVAAAAFgAAABdAAAAXwAAAGAAAABgAAAAYQAAAGEAAABhAAAAYQAA + AGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGEAAABhAAAAYQAA + AGEAAABgAAAAYAAAAF8AAABdAAAAWAAAAFQAAABQAAAASgAAAD0AAAA2AAAALgAAACcAAAAaAAAAFAAA + ABAAAAAMAAAABwAAAAUAAAAEAAAABAAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAACAAAAAwAAAAMAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABgAA + AAcAAAAIAAAACgAAABAAAAAUAAAAGgAAACAAAAAwAAAAOAAAAEEAAABJAAAAWQAAAF8AAABlAAAAaQAA + AG8AAABxAAAAcgAAAHMAAAB0AAAAdAAAAHQAAAB0AAAAdQAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdQAA + AHUAAAB1AAAAdQAAAHUAAAB1AAAAdAAAAHQAAAB0AAAAdAAAAHMAAAByAAAAcQAAAG8AAABpAAAAZQAA + AF8AAABZAAAASQAAAEEAAAA4AAAAMAAAACAAAAAaAAAAFAAAABAAAAAKAAAACAAAAAcAAAAGAAAABQAA + AAUAAAAFAAAABQAAAAUAAAAFAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAwAA + AAMAAAAEAAAABQAAAAUAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIAAAACQAAAAsAAAANAAAAFAAAABkAAAAfAAAAJwAA + ADgAAABCAAAATQAAAFcAAABpAAAAcAAAAHYAAAB7AAAAggAAAIQAAACGAAAAhwAAAIgAAACIAAAAiAAA + AIgAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACIAAAAiAAA + AIgAAACIAAAAhwAAAIYAAACEAAAAggAAAHsAAAB2AAAAcAAAAGkAAABXAAAATQAAAEIAAAA4AAAAJwAA + AB8AAAAZAAAAFAAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABgAAAAcAAAAJAAAACQAAAAoAAAAKAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAA + AA0AAAAOAAAAEAAAABIAAAAaAAAAIAAAACcAAAAvAAAAQwAAAE4AAABaAAAAZQAAAHkAAACBAAAAiAAA + AI4AAACWAAAAmAAAAJoAAACbAAAAnAAAAJwAAACcAAAAnAAAAJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAA + AJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJwAAACcAAAAnAAAAJwAAACbAAAAmgAAAJgAAACWAAAAjgAA + AIgAAACBAAAAeQAAAGUAAABaAAAATgAAAEMAAAAvAAAAJwAAACAAAAAaAAAAEgAAABAAAAAOAAAADQAA + AAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAAKAAAACgAAAAkAAAAJAAAABwAAAAYAAAAFAAAABAAAAAIAAAACAAAAAQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAGAAAACQAA + AAsAAAANAAAADwAAABIAAAAUAAAAFQAAABYAAAAXAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGwAAABwAAAAeAAAAIAAAACkAAAAwAAAAOAAA + AEIAAABZAAAAZgAAAHMAAAB/AAAAlgAAAKAAAACoAAAArwAAALgAAAC6AAAAvAAAAL4AAAC/AAAAvwAA + AL8AAAC/AAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAvwAA + AL8AAAC/AAAAvwAAAL4AAAC8AAAAugAAALgAAACvAAAAqAAAAKAAAACWAAAAfwAAAHMAAABmAAAAWQAA + AEIAAAA4AAAAMAAAACkAAAAgAAAAHgAAABwAAAAbAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGAAA + ABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAA + AAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAMAAAAEAAAABgAAAAgAAAANAAAAEAAAABIAAAAVAAAAGgAAABwAAAAeAAAAHwAA + ACEAAAAhAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAA + ACMAAAAlAAAAJgAAACgAAAArAAAANAAAADsAAABDAAAATQAAAGQAAABxAAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHEAAABkAAAATQAAAEMAAAA7AAAANAAAACsAAAAoAAAAJgAA + ACUAAAAjAAAAIwAAACMAAAAjAAAAIwAAACMAAAAjAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAA + ACEAAAAhAAAAHwAAAB4AAAAcAAAAGgAAABUAAAASAAAAEAAAAA0AAAAIAAAABgAAAAQAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAAJAAAACwAA + ABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAAAC4AAAAvAAAALwAAAC8AAAAvAAAALwAA + AC8AAAAvAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADIAAAAzAAAANQAAADgAAABBAAAASAAA + AFAAAABaAAAAcQAAAH4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAfgAA + AHEAAABaAAAAUAAAAEgAAABBAAAAOAAAADUAAAAzAAAAMgAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAA + ADAAAAAvAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAALgAAAC0AAAArAAAAKQAAACYAAAAkAAAAHQAA + ABkAAAAWAAAAEgAAAAsAAAAJAAAABgAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAAGAAAACAAAAAsAAAAPAAAAFwAAABwAAAAhAAAAJgAAAC4AAAAyAAAANQAA + ADcAAAA7AAAAPAAAADwAAAA9AAAAPQAAAD0AAAA9AAAAPQAAAD0AAAA+AAAAPgAAAD4AAAA+AAAAPgAA + AD4AAAA+AAAAQAAAAEEAAABDAAAARQAAAE4AAABVAAAAXQAAAGcAAAB+AAAAiwAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAACLAAAAfgAAAGcAAABdAAAAVQAAAE4AAABFAAAAQwAA + AEEAAABAAAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD0AAAA9AAAAPQAAAD0AAAA9AAAAPQAA + ADwAAAA8AAAAOwAAADcAAAA1AAAAMgAAAC4AAAAmAAAAIQAAABwAAAAXAAAADwAAAAsAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAkAAAANAAAAEgAA + ABgAAAAlAAAALQAAADQAAAA8AAAASQAAAE8AAABUAAAAWAAAAF0AAABeAAAAYAAAAGAAAABhAAAAYQAA + AGEAAABhAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABjAAAAZAAAAGYAAABoAAAAcAAA + AHYAAAB9AAAAhQAAAJkAAACkAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AKQAAACZAAAAhQAAAH0AAAB2AAAAcAAAAGgAAABmAAAAZAAAAGMAAABiAAAAYgAAAGIAAABiAAAAYgAA + AGIAAABiAAAAYgAAAGEAAABhAAAAYQAAAGEAAABgAAAAYAAAAF4AAABdAAAAWAAAAFQAAABPAAAASQAA + ADwAAAA0AAAALQAAACUAAAAYAAAAEgAAAA0AAAAJAAAABAAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAMAAAAFAAAACwAAABAAAAAWAAAAHAAAACwAAAA1AAAAPwAAAEgAAABYAAAAXgAA + AGQAAABpAAAAbwAAAHEAAAByAAAAcwAAAHQAAAB0AAAAdAAAAHQAAAB1AAAAdQAAAHUAAAB1AAAAdQAA + AHUAAAB1AAAAdQAAAHYAAAB3AAAAeQAAAHsAAACCAAAAhwAAAI0AAACVAAAApgAAALAAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAsAAAAKYAAACVAAAAjQAAAIcAAACCAAAAewAA + AHkAAAB3AAAAdgAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdAAAAHQAAAB0AAAAdAAA + AHMAAAByAAAAcQAAAG8AAABpAAAAZAAAAF4AAABYAAAASAAAAD8AAAA1AAAALAAAABwAAAAWAAAAEAAA + AAsAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAANAAAAEwAA + ABkAAAAhAAAANAAAAD8AAABJAAAAVAAAAGcAAABvAAAAdQAAAHsAAACCAAAAhAAAAIYAAACHAAAAiAAA + AIgAAACIAAAAiAAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAigAAAIsAAACMAAAAjgAA + AJQAAACYAAAAngAAAKQAAAC0AAAAvQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAC9AAAAtAAAAKQAAACeAAAAmAAAAJQAAACOAAAAjAAAAIsAAACKAAAAiQAAAIkAAACJAAAAiQAA + AIkAAACJAAAAiQAAAIkAAACIAAAAiAAAAIgAAACIAAAAhwAAAIYAAACEAAAAggAAAHsAAAB1AAAAbwAA + AGcAAABUAAAASQAAAD8AAAA0AAAAIQAAABkAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAA8AAAAWAAAAHQAAACYAAAA8AAAASAAAAFQAAABgAAAAdgAA + AH8AAACHAAAAjQAAAJUAAACYAAAAmQAAAJsAAACcAAAAnAAAAJwAAACcAAAAnQAAAJ0AAACdAAAAnQAA + AJ0AAACdAAAAnQAAAJ0AAACeAAAAngAAAKAAAAChAAAApgAAAKoAAACuAAAAtAAAAMEAAADIAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAMgAAADBAAAAtAAAAK4AAACqAAAApgAA + AKEAAACgAAAAngAAAJ4AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJwAAACcAAAAnAAA + AJwAAACbAAAAmQAAAJgAAACVAAAAjQAAAIcAAAB/AAAAdgAAAGAAAABUAAAASAAAADwAAAAmAAAAHQAA + ABYAAAAPAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAUAAAAJAAAAEwAA + ABoAAAAkAAAALwAAAEkAAABYAAAAZwAAAHYAAACQAAAAmwAAAKUAAACsAAAAtgAAALoAAAC8AAAAvQAA + AL8AAAC/AAAAvwAAAL8AAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADBAAAAwQAA + AMMAAADGAAAAyAAAAMsAAADPAAAA1wAAANwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA3AAAANcAAADPAAAAywAAAMgAAADGAAAAwwAAAMEAAADBAAAAwAAAAMAAAADAAAAAwAAA + AMAAAADAAAAAwAAAAMAAAADAAAAAvwAAAL8AAAC/AAAAvwAAAL0AAAC8AAAAugAAALYAAACsAAAApQAA + AJsAAACQAAAAdgAAAGcAAABYAAAASQAAAC8AAAAkAAAAGgAAABMAAAAJAAAABQAAAAMAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAEAAAABgAAAAkAAAAUAAAAHAAAACYAAAAyAAAATwAAAF4DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAF4AAABPAAAAMgAA + ACYAAAAcAAAAFAAAAAkAAAAGAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAGAAAACgAA + ABYAAAAeAAAAKQAAADUAAABUAAAAZAMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAZAAAAFQAAAA1AAAAKQAAAB4AAAAWAAAACgAAAAYAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAKAAAAFwAAACAAAAArAAAAOAAAAFgAAABpAwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//f39/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABpAAAAWAAA + ADgAAAArAAAAIAAAABcAAAAKAAAABwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABwAA + AAsAAAAYAAAAIQAAAC0AAAA7AAAAXQAAAG8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAAAC0AAAAhAAAAGAAAAAsAAAAHAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABgAAAAiAAAALgAAADwAAABeAAAAcQMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcQAA + AF4AAAA8AAAALgAAACIAAAAYAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAALAAAAGQAAACMAAAAvAAAAPQAAAGAAAABzAwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABzAAAAYAAAAD0AAAAvAAAAIwAAABkAAAALAAAABwAA + AAQAAAACAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYAAA + AHQDAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAA + AAQAAAAHAAAADAAAABkAAAAjAAAALwAAAD4AAABhAAAAdQMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAA + AAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAA + AGEAAAB1AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8AAAB1AAAAYQAAAD4AAAAvAAAAIwAAABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAA + AAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAA + AD4AAABhAAAAdQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAEAAAADAAAABQAAAAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + ////////////////////////////////////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAB1AAAAYgAAAD4AAAAwAAAAIwAA + ABkAAAAMAAAABwAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAA + ADAAAAA+AAAAYgAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + //8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wAAAHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAA + AAAAAAABAAAAAwAAAAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////////////////////////////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAAdQAAAGIAAAA+AAAAMAAA + ACMAAAAZAAAADAAAAAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABQAAAAcAAAAMAAAAGQAA + ACMAAAAwAAAAPgAAAGIAAAB1AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8AAAB1AAAAYgAAAD4AAAAwAAAAIwAAABkAAAAMAAAABwAAAAUAAAADAAAAAQAA + AAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAAADAAAAA+AAAAYgAAAHUAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD///////////////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAHUAAABiAAAAPgAA + ADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAUAAAAHAAAADAAA + ABkAAAAjAAAAMAAAAD4AAABiAAAAdQQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + /////////////////////////////////////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7////////////////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGIAAAA+AAAAMAAAACMAAAAZAAAADAAAAAcAAAAFAAAAAwAA + AAEAAAAAAAAAAAAAAAEAAAADAAAABQAAAAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + ///9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + //////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYgAA + AD4AAAAwAAAAIwAAABkAAAAMAAAABwAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAA + AAwAAAAZAAAAIwAAADAAAAA+AAAAYgAAAHUEBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP////////////////////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+/////////////////////////////////////////////v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAA + AAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + /////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + ///////////////////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAA + AGIAAAA+AAAAMAAAACMAAAAZAAAADAAAAAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABQAA + AAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD////////////////////////////////////////////9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v////////////////////////////////////////////7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYgAAAD4AAAAwAAAAIwAAABkAAAAMAAAABwAA + AAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAAADAAAAA+AAAAYgAA + AHUEBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////// + //////////////39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////// + /////////////////////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAA + AAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT///////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/////////////////////////////////////////////f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7////////////////////////////////////////////+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGIAAAA+AAAAMAAAACMAAAAZAAAADAAA + AAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAA + AGEAAAB1BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + ///////////////////9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////// + //////////////////////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAAABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAA + AAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn///////////////////////// + ///////////////////6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj////////////////////////////////////////////9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//////////////////////////////////////////////////// + ///////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//// + //////////////////////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAA + AD4AAABhAAAAdQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f////////////////////////////////////////////r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P////////////// + //////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3///////// + //////////////////////////////////////////////////////////////////////////////7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + /////////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAAAGEAAAB1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//////////////////// + ////////////////////////+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4/////////////////////////////////////////////f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f////////////////////////////////////////////// + /////////////////////////////////////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v////////////////////////////////////////////////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAA + ABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAA + AC8AAAA+AAAAYAAAAHQAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn////////////////////////////////////////////6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj///////// + ///////////////////////////////////9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//// + //////////////////////////////////////////////////////////////////////////////// + ///+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABkAAAAjAAAALwAAAD0AAABgAAAAcwAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f////////////// + //////////////////////////////r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P////////////////////////////////////////////39 + /f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3///////////////////////////////////////// + //////////////////////////////////////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7///////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcwAAAGAAAAA9AAAALwAA + ACMAAAAZAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAALAAAAGAAA + ACIAAAAuAAAAPAAAAF8AAAByAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5////////////////////////////////////////////+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//// + /////////////////////////////////////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f////////////////////////////////////////////////////////////////////////////// + /////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAByAAAAXwAAADwAAAAuAAAAIgAAABgAAAALAAAABwAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAEAAAABwAAAAsAAAAYAAAAIQAAAC0AAAA7AAAAXQAAAG8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn///////// + ///////////////////////////////////6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj///////////////////////////////////////// + ///9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//////////////////////////////////// + ///////////////////////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAA + AC0AAAAhAAAAGAAAAAsAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACgAA + ABcAAAAgAAAAKwAAADgAAABYAAAAagAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f////////////////////////////////////////////r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P////////////////////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3///////////////////////////////////////////////////////////////////////// + //////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + /////////////////////////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAagAAAFgAAAA4AAAAKwAAACAAAAAXAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAYAAAAKAAAAFgAAAB4AAAApAAAANgAAAFQAAABlAQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr///////////////////////////////////////// + //8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7///////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + ///////////////////5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAABlAAAAVAAA + ADYAAAApAAAAHgAAABYAAAAKAAAABgAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABgAA + AAkAAAAUAAAAHAAAACYAAAAyAAAATwAAAF8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v///////////////////////////////////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP////////////////////////////////////////////n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAF8AAABPAAAAMgAAACYAAAAcAAAAFAAAAAkAAAAGAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAMAAAAFAAAACQAAABMAAAAbAAAAJAAAAC8AAABKAAAAWQEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//////////////////////////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAWQAA + AEoAAAAvAAAAJAAAABsAAAATAAAACQAAAAUAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAA + AAQAAAAHAAAADwAAABYAAAAdAAAAJwAAAD0AAABKAQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr///////////////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + /////////////////////////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD////////////////////////////////////////////5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAABKAAAAPQAAACcAAAAdAAAAFgAAAA8AAAAHAAAABAAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAANAAAAEwAAABoAAAAiAAAANgAA + AEEBAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v////////////////////////////// + /////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v////////////////////////////////////////////////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + //////////////////////////////n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAA + AEEAAAA2AAAAIgAAABoAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABQAAAAsAAAAQAAAAFgAAAB0AAAAuAAAAOAEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6////////////////////////////////////////////BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////// + //////////////////////////////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAOAAAAC4AAAAdAAAAFgAAABAAAAALAAAABQAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAMAAAAEAAAACQAAAA0AAAASAAAAGAAA + ACcAAAAwAQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr///////////////////////// + //////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7///////////////////////////////////////////////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + ///////////////////////////////////5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv8AAAAwAAAAJwAAABgAAAASAAAADQAAAAkAAAAEAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAAGAAAACAAAAAwAAAAPAAAAGQAAAB8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v///////////////////////////////////////////wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////// + ////////////////////////////////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////////////////////n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAB8AAAAZAAAADwAAAAwAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAA + AAwAAAAUAAAAGQAAAB8AAAAlAAAANQAAAD4AAABJAAAAVQAAAG8AAAB+AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wAAAH4AAABvAAAAVQAAAEkAAAA+AAAANQAA + ACUAAAAfAAAAGQAAABQAAAAMAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAUAAAAGAAAACQAAAA8AAAATAAAAGAAAAB0AAAArAAAANAAA + AD4AAABJAAAAYwAAAHEAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/AAAAcQAAAGMAAABJAAAAPgAAADQAAAArAAAAHQAAABgAAAATAAAADwAAAAkAAAAGAAAABQAA + AAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAUAAAAGAAAACwAAAA4AAAASAAAAFwAAACMAAAArAAAANQAAAD8AAABYAAAAZgAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA//8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8AAABmAAAAWAAAAD8AAAA1AAAAKwAA + ACMAAAAXAAAAEgAAAA4AAAALAAAABgAAAAUAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAGAAAACAAAAAoAAAAOAAAAFwAA + AB4AAAAlAAAALgAAAEQAAABQAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wAAAFAAAABEAAAALgAAACUAAAAeAAAAFwAAAA4AAAAKAAAACAAAAAYAAAADAAAAAgAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAQAAAAFAAAABwAAAAoAAAASAAAAGAAAAB4AAAAmAAAAOgAAAEUAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/AAAARQAAADoAAAAmAAAAHgAA + ABgAAAASAAAACgAAAAcAAAAFAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAQAAAAGAAAACAAA + AA8AAAATAAAAGQAAACAAAAAxAAAAOwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA//8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wcHB/8AAAA7AAAAMQAAACAAAAAZAAAAEwAAAA8AAAAIAAAABgAAAAQAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAGAAAACwAAAA8AAAAUAAAAGgAAACkAAAAxAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wAAADEAAAApAAAAGgAA + ABQAAAAPAAAACwAAAAYAAAAEAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAMAAAAHAAAACQAAAAwAAAAQAAAAGgAAACAAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wcHB/8HBwf/AAAAIAAAABoAAAAQAAAADAAAAAkAAAAHAAAAAwAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAAAAwAAAAUAAAAGgAA + ACAAAAAnAAAAOQAAAEMAAABQAAAAXgAAAH0AAACNAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/AAAAjQAAAH0AAABeAAAAUAAAAEMAAAA5AAAAJwAAACAAAAAaAAAAFAAA + AAwAAAAJAAAABgAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAwAAAAUAAAAHAAAACQAAABAAAAAUAAAAGQAAACAAAAAwAAAAOwAAAEcAAABVAAAAdQAA + AIcAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAACHAAAAdQAA + AFUAAABHAAAAOwAAADAAAAAgAAAAGQAAABQAAAAQAAAACQAAAAcAAAAFAAAAAwAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAUAAAAHAAAADAAA + ABAAAAAUAAAAGgAAACoAAAA0AAAAQAAAAE8AAABwAAAAggAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAIIAAABwAAAATwAAAEAAAAA0AAAAKgAAABoAAAAUAAAAEAAA + AAwAAAAHAAAABQAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAHAAAACgAAAA4AAAASAAAAIQAAACsAAAA4AAAARgAA + AGgAAAB7AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAewAA + AGgAAABGAAAAOAAAACsAAAAhAAAAEgAAAA4AAAAKAAAABwAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAUAAAAIAAAACwAAABAAAAAeAAAAKAAAADQAAABDAAAAZQAAAHkAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAAB5AAAAZQAAAEMAAAA0AAAAKAAAAB4AAAAQAAAACwAA + AAgAAAAFAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAcAAAAKAAAADwAAAB0AAAAnAAAAMwAA + AEIAAABkAAAAeAAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAA + AHgAAABkAAAAQgAAADMAAAAnAAAAHQAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAAEAAAABgAAAAkAAAANAAAAGwAAACUAAAAyAAAAQAAAAGMAAAB3AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAdwAAAGMAAABAAAAAMgAAACUAAAAbAAAADQAA + AAkAAAAGAAAABAAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAFAAAACAAAAAwAAAAaAAAAJAAA + ADAAAAA/AAAAYgAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv8AAAB1AAAAYgAAAD8AAAAwAAAAJAAAABoAAAAMAAAACAAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAAAD4AAABhAAAAdQYGBv8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAA + ACMAAAAvAAAAPgAAAGEAAAB1BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcH + B/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wkJ + Cf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUGBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAA + ABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAA + ABkAAAAjAAAALwAAAD4AAABgAAAAdAYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcH + B/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAALAAAAGQAAACMAAAAvAAAAPQAAAGAAAABzBgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcwAAAGAAAAA9AAAALwAA + ACMAAAAZAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABwAA + AAsAAAAYAAAAIgAAAC4AAAA8AAAAXgAAAHEGBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAABxAAAAXgAAADwAAAAuAAAAIgAAABgAAAALAAAABwAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABgAAAAhAAAALQAAADsAAABdAAAAbwYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAA + AC0AAAAhAAAAGAAAAAsAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAAKAAAAFwAAACAAAAArAAAAOAAAAFgAAABpBgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAaQAAAFgAAAA4AAAAKwAAACAAAAAXAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABgAAAAoAAAAWAAAAHgAAACkAAAA1AAAAVAAA + AGQAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAB+AAAAcQAAAFoAAABQAAAARwAA + AEEAAAA4AAAANQAAADMAAAAyAAAAMAAAADAAAAAwAAAAMAAAADIAAAAzAAAANQAAADgAAABBAAAARwAA + AFAAAABaAAAAcQAAAH4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABkAAAAVAAA + ADUAAAApAAAAHgAAABYAAAAKAAAABgAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAGAAAACQAAABQAAAAcAAAAJgAAADIAAABPAAAAXgAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wAAAHEAAABkAAAATQAAAEMAAAA6AAAANAAAACsAAAAoAAAAJgAAACUAAAAjAAAAIwAA + ACMAAAAjAAAAJQAAACYAAAAoAAAAKwAAADQAAAA6AAAAQwAAAE0AAABkAAAAcQAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAF4AAABPAAAAMgAAACYAAAAcAAAAFAAAAAkAAAAGAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAUAAAAJAAAAEwAAABoAAAAkAAAALwAA + AEkAAABYAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAAZgAAAFkAAABCAAAAOAAA + ADAAAAApAAAAIAAAAB4AAAAcAAAAGwAAABkAAAAZAAAAGQAAABkAAAAbAAAAHAAAAB4AAAAgAAAAKQAA + ADAAAAA4AAAAQgAAAFkAAABmAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAWAAA + AEkAAAAvAAAAJAAAABoAAAATAAAACQAAAAUAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAADAAAABAAAAAcAAAAPAAAAFgAAAB0AAAAmAAAAPAAAAEgAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8AAABOAAAAQwAAAC8AAAAnAAAAIAAAABoAAAASAAAAEAAAAA4AAAANAAAADAAA + AAwAAAAMAAAADAAAAA0AAAAOAAAAEAAAABIAAAAaAAAAIAAAACcAAAAvAAAAQwAAAE4AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABIAAAAPAAAACYAAAAdAAAAFgAAAA8AAAAHAAAABAAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABgAAAA0AAAATAAAAGQAA + ACEAAAA0AAAAPwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAEIAAAA4AAAAJwAA + AB8AAAAZAAAAFAAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAACAAAAAkAAAALAAAADQAA + ABQAAAAZAAAAHwAAACcAAAA4AAAAQgAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AD8AAAA0AAAAIQAAABkAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAMAAAAFAAAACwAAABAAAAAWAAAAHAAAACwAAAA1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAAOAAAADAAAAAgAAAAGgAAABQAAAAQAAAACgAAAAgAAAAHAAAABgAA + AAUAAAAFAAAABQAAAAUAAAAGAAAABwAAAAgAAAAKAAAAEAAAABQAAAAaAAAAIAAAADAAAAA4AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAANQAAACwAAAAcAAAAFgAAABAAAAALAAAABQAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAQAAAAJAAAADQAA + ABIAAAAYAAAAJQAAAC0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAAuAAAAJwAA + ABoAAAAUAAAAEAAAAAwAAAAHAAAABQAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAAAAQAAAAEAAAABQAA + AAcAAAAMAAAAEAAAABQAAAAaAAAAJwAAAC4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAAtAAAAJQAAABgAAAASAAAADQAAAAkAAAAEAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAYAAAAIAAAACwAAAA8AAAAXAAAAHAAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAB0AAAAYAAAAEAAAAAwAAAAJAAAABwAAAAMAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAIAAAACAAAAAwAAAAcAAAAJAAAADAAAABAAAAAYAAAAHQAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAABwAAAAXAAAADwAAAAsAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAA + AAYAAAAJAAAACwAAABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAAAC4AAAAvAAAALwAA + AC8AAAAvAAAALwAAAC8AAAAvAAAALwAAAC4AAAAtAAAAKwAAACkAAAAmAAAAJAAAAB0AAAAZAAAAFgAA + ABIAAAALAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAACAAAABAAAAAYAAAAJAAAACwAAABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAA + AC4AAAAvAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAALwAAAC4AAAAtAAAAKwAAACkAAAAmAAAAJAAA + AB0AAAAZAAAAFgAAABIAAAALAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAYAAAAIAAAADQAAABAAAAASAAAAFQAA + ABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIQAA + ACEAAAAfAAAAHgAAABwAAAAaAAAAFQAAABIAAAAQAAAADQAAAAgAAAAGAAAABAAAAAMAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAYAAAAIAAAADQAA + ABAAAAASAAAAFQAAABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAA + ACIAAAAiAAAAIQAAACEAAAAfAAAAHgAAABwAAAAaAAAAFQAAABIAAAAQAAAADQAAAAgAAAAGAAAABAAA + AAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAYAAAAJAAAACwAAAA0AAAAPAAAAEgAAABQAAAAVAAAAFgAAABcAAAAYAAAAGAAA + ABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAA + AAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAADAAAABAAAAAYAAAAJAAAACwAAAA0AAAAPAAAAEgAAABQAAAAVAAAAFgAA + ABcAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAA + ABIAAAAPAAAADQAAAAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABgAA + AAcAAAAJAAAACQAAAAoAAAAKAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAALAAAACgAAAAoAAAAJAAAACQAAAAcAAAAGAAAABQAAAAQAAAACAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAA + AAQAAAAFAAAABgAAAAcAAAAJAAAACQAAAAoAAAAKAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAACgAAAAoAAAAJAAAACQAAAAcAAAAGAAAABQAAAAQAAAACAAAAAgAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAAAAUAAAAFAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAUAAAAFAAAABAAA + AAMAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAAAAUAAAAFAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAUAAAAFAAAABAAAAAMAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAIAAAADAAAAAwAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAIAAAADAAAAAwAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////AAAAD + ///////////////+AAAAAH///////////////AAAAAA///////////////AAAAAAD//////////////w + AAAAAA//////////////4AAAAAAH/////////////4AAAAAAAf////////////wAAAAAAAA///////// + wAAAAAAAAAAAAAAD/////wAAAAAAAAAAAAAAAP////wAAAAAAAAAAAAAAAA////wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD/////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA////// + 8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA//////8AAAAAAAAAAAAAAP + //////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA///////+AAAAAAAAAAAAf////////gAAAAAAAA + AAAH////////4AAAAAAAAAAAB/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAA + AAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////// + //AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA// + ///////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAP///w + AAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP////////8AAA + D///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP////////8AAAD///8AAAD/////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////ygAAACAAAAAAAEAAAEACAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAA + AAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6+v/8/Pz//f39//7+ + /v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAADAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAwMDAwMDAwMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAADAwMDAwMDAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAMD + AwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAA + AAAAAAAAAwMDAwMDAwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEAAAAAAAAAAADAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQAAAAAAAAAAAMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDAgICAgICAgIAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0NDQ0CAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMCAgICAgICAgAA + AAAAAAAAAAAAAAAAAAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAAAAANDQ0NDQ0NDQICAgICAgICAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwIC + AgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDAwMDAwMDAwAAAAAAAAAAA0NDQ0NDQ0NAgICAgIC + AgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMD + AwMDAwMDAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0N + DQ0CAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAwMDAwMDAwMCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAA + AAANDQ0NDQ0NDQICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAADAwMDAwMDAwICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDAwMDAwM + DAwAAAAAAAAAAA0NDQ0NDQ0NAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQE + BAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0NDQ0CAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMCAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAAAAANDQ0NDQ0NDQICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAA + AAACAgICAgICAg4ODg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAAAAAAAAAADw8PDw8PDw8EBAQEBAQEBAEB + AQEBAQEBCgoKCgoKCgoCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoK + CgoAAAAAAAAAAAICAgICAgICDg4ODg4ODg4DAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQE + BAQEBAQEAQEBAQEBAQEKCgoKCgoKCgICAgICAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAKCgoKCgoKCgAAAAAAAAAAAgICAgICAgIODg4ODg4ODgMDAwMDAwMDAwMDAwMDAwMAAAAAAAAAAA8P + Dw8PDw8PBAQEBAQEBAQBAQEBAQEBAQoKCgoKCgoKAgICAgICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAAAAACAgICAgICAg4ODg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAA + AAAAAAAADw8PDw8PDw8EBAQEBAQEBAEBAQEBAQEBCgoKCgoKCgoCAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoAAAAAAAAAAAICAgICAgICDg4ODg4ODg4DAwMDAwMDAwMD + AwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQEBAQEBAQEAQEBAQEBAQEKCgoKCgoKCgICAgICAgICAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCgAAAAAAAAAAAgICAgICAgIODg4ODg4ODgMD + AwMDAwMDAwMDAwMDAwMAAAAAAAAAAA8PDw8PDw8PBAQEBAQEBAQBAQEBAQEBAQoKCgoKCgoKAgICAgIC + AgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAAAAACAgICAgICAg4O + Dg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAAAAAAAAAADw8PDw8PDw8EBAQEBAQEBAEBAQEBAQEBCgoKCgoK + CgoCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoAAAAAAAAAAAIC + AgICAgICDg4ODg4ODg4DAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQEBAQEBAQEAQEBAQEB + AQEKCgoKCgoKCgICAgICAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQPDw8PDw8PDwAA + AAAAAAAADw8PDw8PDw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4ODg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0N + DQ0AAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8P + Dw8PDw8PAAAAAAAAAAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4ODg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4O + Dg4NDQ0NDQ0NDQAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PDQ0NDQ0NDQ0ODg4ODg4ODg4ODg4ODg4ODw8PDw8P + Dw8ODg4ODg4ODg0NDQ0NDQ0NAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQPDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4O + Dg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0NDQ0AAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4O + Dg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4ODg4NDQ0NDQ0NDQAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PDQ0NDQ0N + DQ0ODg4ODg4ODg4ODg4ODg4ODw8PDw8PDw8ODg4ODg4ODg0NDQ0NDQ0NAAAAAAAAAAAPDw8PDw8PDwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQPDw8PDw8PDwAAAAAAAAAADw8PDw8P + Dw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4ODg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0NDQ0AAAAAAAAAAA8P + Dw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8PDw8PDw8PAAAAAAAA + AAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4ODg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4ODg4NDQ0NDQ0NDQAA + AAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoK + CgoPDw8PDw8PDwsLCwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0NDQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4O + Dg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAKCgoKCgoKCg8PDw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8PDw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8P + Dw8PDw8PDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAoKCgoKCgoKDw8PDw8PDw8LCwsLCwsLCwkJCQkJCQkJDw8PDw8PDw8NDQ0NDQ0NDQ8P + Dw8PDw8PDw8PDw8PDw8ODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoPDw8PDw8PDwsLCwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0N + DQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4ODg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCg8PDw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8P + Dw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8PDw8PDw8PDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKDw8PDw8PDw8LCwsLCwsLCwkJ + CQkJCQkJDw8PDw8PDw8NDQ0NDQ0NDQ8PDw8PDw8PDw8PDw8PDw8ODg4ODg4ODg8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoPDw8PDw8PDwsL + CwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0NDQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4ODg4ODg4ODw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCg8P + Dw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8PDw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8PDw8PDw8PDg4ODg4O + Dg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEB + AQEBAQEBCwsLCwsLCwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAPDw8PDw8PDwoKCgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEB + AQEBAQEBAQEBAQEBAQELCwsLCwsLCw8PDw8PDw8PBAQEBAQEBAQODg4ODg4ODg8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAA8PDw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAQEBAQEBAQEBAQEBAQEBAQsLCwsLCwsLDw8PDw8PDw8EBAQEBAQEBA4ODg4ODg4ODw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8KCgoKCgoKCgAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBCwsLCwsLCwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4O + Dg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDwoKCgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQELCwsLCwsLCw8PDw8PDw8PBAQEBAQE + BAQODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUF + BQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQsLCwsLCwsLDw8PDw8P + Dw8EBAQEBAQEBA4ODg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8KCgoKCgoKCgAA + AAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBCwsLCwsL + CwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDwoK + CgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAQEBAQEB + AQELCwsLCwsLCw8PDw8PDw8PBAQEBAQEBAQODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAA8P + Dw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAMDAwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAABgYGBgYGBgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwwMDAwMDAwMDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAGBgYGBgYGBgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAABgYGBgYG + BgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwwM + DAwMDAwMDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAGBgYGBgYGBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMD + AwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAABgYGBgYGBgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJCQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAPDw8PDw8PDwAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwkJCQkJCQkJAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJ + CQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcH + BwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAHBwcHBwcHBwkJCQkJCQkJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAUF + BQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJCQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8PDwAA + AAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8P + Dw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAAAAAAAAAABgYGBgYGBgYHBwcHBwcHBwgI + CAgICAgIAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0NDQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcH + BwcHBwcHCAgICAgICAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUFBQUFDQ0NDQ0NDQ0AAAAAAAAAAAYG + BgYGBgYGBwcHBwcHBwcICAgICAgICAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAA + AAAAAAAABgYGBgYGBgYHBwcHBwcHBwgICAgICAgIAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0N + DQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcHBwcHBwcHCAgICAgICAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUF + BQUFBQUFDQ0NDQ0NDQ0AAAAAAAAAAAYGBgYGBgYGBwcHBwcHBwcICAgICAgICAAAAAAAAAAADw8PDw8P + Dw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAAAAAAAAAABgYGBgYGBgYHBwcHBwcHBwgICAgICAgIAAAAAAAA + AAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0NDQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcHBwcHBwcHCAgICAgI + CAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQE + BAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcH + BwcHBwcHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABwcHBwcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////////8AAAAP///// + //////////4AAAAAf//////////////8AAAAAD//////////////8AAAAAAP//////////////AAAAAA + D//////////////gAAAAAAf/////////////gAAAAAAB/////////////AAAAAAAAD/////////AAAAA + AAAAAAAAAAP/////AAAAAAAAAAAAAAAA/////AAAAAAAAAAAAAAAAD////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP////8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAA + AAAAAAAAAA//////8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA////// + 8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD///////4AAAAAAAAAAAB////////+AAAAAAAAAAAAf/ + ///////gAAAAAAAAAAAH////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAA + AAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAA + AAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////// + //AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAA////AAAA// + ///////wAAAP///wAAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///w + AAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP//////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////KAAAAEAAAACAAAAAAQAgAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAUAAAAFAAAABQAAAAUAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABQAA + AAUAAAAFAAAABQAAAAUAAAAEAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACgAAAA4AAAAQAAAAEQAAABIAAAASAAAAEgAAABMAAAATAAAAEwAA + ABMAAAATAAAAEwAAABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAA + ACkAAAAqAAAAKgAAACoAAAAqAAAAKgAAACoAAAApAAAAKQAAACkAAAAnAAAAJAAAACAAAAAXAAAAEQAA + AAkAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAwAAAAQAAAALAAAAEwAAACMAAAAvAAAAPwAA + AEYAAABNAAAATgAAAE8AAABPAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAATwAAAE8AAABOAAAATQAA + AEYAAAA/AAAALwAAACMAAAATAAAACwAAAAQAAAADAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAYAAAAGAAAABgAAAAgAAAALAAAAFAAA + ACAAAAA5AAAATAAAAGQAAABwAAAAegAAAH0AAAB+AAAAfgAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAA + AH4AAAB+AAAAfQAAAHoAAABwAAAAZAAAAEwAAAA5AAAAIAAAABQAAAALAAAACAAAAAYAAAAGAAAABgAA + AAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACgAAAA4AAAAQAAAAEQAAABIAAAASAAAAEgAAABIAAAATAAAAEwAA + ABMAAAAVAAAAGAAAACUAAAA0AAAAVAAAAGwAAACMAAAAmwAAAKgAAACsAAAArgAAAK4AAACvAAAArwAA + AK8AAACvAAAArwAAAK8AAACuAAAArgAAAKwAAACoAAAAmwAAAIwAAABsAAAAVAAAADQAAAAlAAAAGAAA + ABUAAAATAAAAEwAAABMAAAASAAAAEgAAABIAAAASAAAAEQAAABAAAAAOAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAA + ACkAAAApAAAAKgAAACoAAAAqAAAALAAAADAAAAA+AAAATwAAAHEAAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAA + AHEAAABPAAAAPgAAADAAAAAsAAAAKgAAACoAAAAqAAAAKQAAACkAAAApAAAAKQAAACcAAAAkAAAAIAAA + ABcAAAARAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAJAAAAEQAAACEAAAAuAAAAPgAA + AEYAAABNAAAATgAAAE8AAABPAAAAUAAAAFAAAABQAAAAUAAAAFIAAABWAAAAYgAAAHIAAACSAAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAACSAAAAcgAAAGIAAABWAAAAUgAAAFAAAABQAAAAUAAAAFAAAABPAAAATwAA + AE4AAABNAAAARgAAAD4AAAAuAAAAIQAAABEAAAAJAAAAAwAAAAEAAAAAAAAAAAAAAAIAAAAFAAAADwAA + ABsAAAA1AAAASQAAAGMAAABvAAAAegAAAH0AAAB+AAAAfgAAAH8AAAB/AAAAfwAAAH8AAACBAAAAhAAA + AI0AAACZAAAAsgAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAAsgAAAJkAAACNAAAAhAAAAIEAAAB/AAAAfwAA + AH8AAAB/AAAAfgAAAH4AAAB9AAAAegAAAG8AAABjAAAASQAAADUAAAAbAAAADwAAAAUAAAACAAAAAAAA + AAAAAAACAAAABgAAABUAAAAmAAAASQAAAGQAAACIAAAAmQAAAKcAAACrAAAArgAAAK4AAACvAAAArwAA + AK8AAACvAAAArwAAALEAAAC4AAAAvwAAAM8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAM8AAAC/AAAAuAAA + ALEAAACvAAAArwAAAK8AAACvAAAArwAAAK4AAACuAAAAqwAAAKcAAACZAAAAiAAAAGQAAABJAAAAJgAA + ABUAAAAGAAAAAgAAAAAAAAAAAAAAAwAAAAgAAAAZAAAALgAAAFkDAwP/AwMD/wMDA/8DAwP/AgIC/wIC + Av8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE//z8 + /P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wIC + Av8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAAWQAAAC4AAAAZAAAACAAAAAMAAAAAAAAAAAAAAAMAAAAJAAAAHAAAADMAAABjAwMD/wMD + A/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39 + /f8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAGMAAAAzAAAAHAAAAAkAAAADAAAAAAAAAAAAAAADAAAACQAA + AB4AAAA2AAAAaQMDA/8DAwP/AwMD/wMDA/8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAA + AP/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAABpAAAANgAAAB4AAAAJAAAAAwAA + AAAAAAABAAAABAAAAAoAAAAeAAAANwAAAGsDAwP/AwMD/wMDA/8DAwP/AgIC/wICAv8CAgL/AgIC/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8 + /P8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAAawAA + ADcAAAAeAAAACgAAAAQAAAABAAAAAQAAAAQAAAAKAAAAHgAAADcAAABrAAAA/wAAAP8AAAD/AAAA//n5 + +f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+ + /v8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/AgIC/wIC + Av8CAgL/AgIC/wAAAGsAAAA3AAAAHgAAAAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAawAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wIC + Av/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD//////////////////////wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/+fn5//n5 + +f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAA + AAoAAAAeAAAANwAAAGwAAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8CAgL/AgIC/wICAv8CAgL//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AAAA/wAAAP8AAAD/AAAA//////////////////////8EBAT/BAQE/wQEBP8EBAT/AQEB/wEB + Af8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AAAAbAAAADcAAAAeAAAACgAA + AAQAAAABAAAAAQAAAAQAAAAKAAAAHgAAADcAAABsAAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP//////////////////////BAQE/wQE + BP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wAA + AGwAAAA3AAAAHgAAAAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAbAQEBP8EBAT/BAQE/wQE + BP//////////////////////AAAA/wAAAP8AAAD/AAAA///////////////////////9/f3//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v///////////////////////v7+//7+ + /v/+/v7//v7+//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD//////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAABsAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAAAAoAAAAeAAAANwAA + AGwEBAT/BAQE/wQEBP8EBAT//////////////////////wAAAP8AAAD/AAAA/wAAAP////////////// + /////////f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////// + //////////////7+/v/+/v7//v7+//7+/v/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA//// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAAbAAAADcAAAAeAAAACgAAAAQAAAABAAAAAQAA + AAQAAAAKAAAAHgAAADcAAABsBAQE/wQEBP8EBAT/BAQE//////////////////////8AAAD/AAAA/wAA + AP8AAAD///////////////////////39/f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+///////////////////////+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP//////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGwAAAA3AAAAHgAA + AAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAawQEBP8EBAT/BAQE/wQEBP////////////// + ////////AAAA/wAAAP8AAAD/AAAA///////////////////////9/f3//f39//39/f/9/f3//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v///////////////////////v7+//7+/v/+/v7//v7+//39 + /f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAAAAoAAAAeAAAANwAAAGsAAAD/AAAA/wAA + AP8AAAD/+fn5//n5+f/5+fn/+fn5///////////////////////6+vr/+vr6//r6+v/6+vr/+Pj4//j4 + +P/4+Pj/+Pj4///////////////////////9/f3//f39//39/f/9/f3///////////////////////// + ///////////////////+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAAawAAADcAAAAeAAAACgAAAAQAAAABAAAAAQAAAAQAAAAKAAAAHgAA + ADcAAABrAAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f//////////////////////+vr6//r6 + +v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4+P///////////////////////f39//39/f/9/f3//f39//// + /////////////////////////////////////////v7+//7+/v/+/v7//v7+//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGsAAAA3AAAAHgAAAAoAAAAEAAAAAQAA + AAAAAAADAAAACQAAAB4AAAA2AAAAaQAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn///////// + //////////////r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4+P/4+Pj///////////////////////39 + /f/9/f3//f39//39/f////////////////////////////////////////////7+/v/+/v7//v7+//7+ + /v///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAABpAAAANgAA + AB4AAAAJAAAAAwAAAAAAAAAAAAAAAwAAAAkAAAAcAAAAMwAAAGQAAAD/AAAA/wAAAP8AAAD/+fn5//n5 + +f/5+fn/+fn5///////////////////////6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//// + ///////////////////9/f3//f39//39/f/9/f3///////////////////////////////////////// + ///+/v7//v7+//7+/v/+/v7///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAAZAAAADMAAAAcAAAACQAAAAMAAAAAAAAAAAAAAAMAAAAIAAAAGQAAAC4AAABaAQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr//////////////////////wQE + BP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD///////////////////////n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAAAFoAAAAuAAAAGQAAAAgAAAADAAAAAAAAAAAAAAACAAAABgAA + ABUAAAAmAAAASwEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//// + //////////////////8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA///////////////////////5+fn/+fn5//n5 + +f/5+fn/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8AAABLAAAAJgAAABUAAAAGAAAAAgAA + AAAAAAAAAAAAAgAAAAUAAAAPAAAAHAAAADcBAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6 + +v/6+vr/+vr6//r6+v//////////////////////BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+ + /v///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP////////////// + ////////+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/AAAANwAA + ABwAAAAPAAAABQAAAAIAAAAAAAAAAAAAAAEAAAADAAAACQAAABEAAAAkAQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr//////////////////////wQEBP8EBAT/BAQE/wQE + BP/+/v7//v7+//7+/v/+/v7///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD///////////////////////n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wAAACQAAAARAAAACQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAJAAAAFAAA + AB4AAAA1AAAASQAAAHAAAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8 + /P////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/BwcH/wcH + B/8HBwf/BwcH/wAAAHAAAABJAAAANQAAAB4AAAAUAAAACQAAAAUAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABAAAAAoAAAAQAAAAIQAAADIAAABVAAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMD + A//8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8AAABVAAAAMgAAACEAAAAQAAAACgAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAACAAAABMAAAAfAAAAOwAAAP8AAAD/AAAA/wAA + AP8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/AAAAOwAAAB8AAAATAAAACAAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAALAAAAEwAA + ACUAAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8/P////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wAA + ACUAAAATAAAACwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABQAAAAkAAAAVAAAAIAAAADoAAABTAAAAggAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/+Pj4//j4+P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//////////////////////8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAA + AIIAAABTAAAAOgAAACAAAAAVAAAACQAAAAUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACwAAABQAAAArAAAAQwAAAHUAAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP//////////////////////AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8AAAB1AAAAQwAAACsAAAAUAAAACwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAANAAAAIwAA + ADsAAABvAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD//////////////////////wAA + AP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/AAAAbwAAADsAAAAjAAAADQAAAAYAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAFAAAACwAAACAAAAA4AAAAbAAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4 + +P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + //////////////////8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAAAGwAAAA4AAAAIAAA + AAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAAoAAAAeAAAANwAAAGsGBgb/BgYG/wYGBv8GBgb//f39//39 + /f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wkJ + Cf8JCQn/CQkJ/wkJCf8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAKAAAAHgAAADcAAABrBgYG/wYG + Bv8GBgb/BgYG//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wgI + CP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA//////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAAawAAADcAAAAeAAAACgAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACQAA + AB4AAAA2AAAAaQYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wcH + B/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAA + AP//////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGkAAAA2AAAAHgAAAAkAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAkAAAAcAAAAMwAAAGMGBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJ + Cf8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAAAP8AAABjAAAAMwAA + ABwAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAIAAAAGQAAAC4AAABZAAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/AAAAcQAAAE8AAAA+AAAAMAAAACwAAAAqAAAAKgAA + ACwAAAAwAAAAPgAAAE8AAABxAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAA + AP8AAAD/AAAAWQAAAC4AAAAZAAAACAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAAABUAAAAmAAAASQAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAAAFQAAAA0AAAAJQAA + ABgAAAAVAAAAEwAAABMAAAAVAAAAGAAAACUAAAA0AAAAVAAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAEkAAAAmAAAAFQAAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAUAAAAPAAAAGwAAADUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8AAAA5AAAAIAAAABQAAAALAAAACAAAAAYAAAAGAAAACAAAAAsAAAAUAAAAIAAAADkAAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI/wAAAP8AAAD/AAAA/wAAAP8AAAA1AAAAGwAAAA8AAAAFAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAACQAAABEAAAAhAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wQEBP8EBAT/AAAAIwAAABMAAAALAAAABAAAAAMAAAACAAAAAgAAAAMAAAAEAAAACwAA + ABMAAAAjAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAAAP8AAAD/AAAAIQAA + ABEAAAAJAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAA + ACcAAAApAAAAKQAAACkAAAApAAAAJwAAACQAAAAgAAAAFwAAABEAAAAJAAAABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAAACkAAAApAAAAJwAA + ACQAAAAgAAAAFwAAABEAAAAJAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAAKAAAADgAAABAAAAARAAAAEgAAABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAKAAAADgAAABAAAAARAAAAEgAA + ABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAA + AAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////+AAB///////wAAD//////+AAAH/////+AAAAB + ///+AAAAAAAAf/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAA + AD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD//wAAAAAAD///A + AAAAAAP//8AAAAAAA///wAAAAAAD///4AAAAAB////wAAAAAP////AAAAAA////8AAAAAD////wAAAAA + P////AAAAAA////8AAAAAD////wAAAAAP////AA//AA////8AD/8AD////wAP/wAP////AA//AA///// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////ygAAABAAAAAgAAAAAEACAAAAAAAACAAAAAA + AAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6 + +v/8/Pz//f39//7+/v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEAAAAAAMDAwMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAAAAAADAwMDAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQAAAAAAwMDAwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEAAAAAAMDAwMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMCAgICAAAAAAAAAAAEBAQEDAwMDAAAAAANDQ0N + AgICAgAAAAAAAAAABAQEBAAAAAAAAAAAAAAAAAAAAAADAwMDAgICAgAAAAAAAAAABAQEBAwMDAwAAAAA + DQ0NDQICAgIAAAAAAAAAAAQEBAQAAAAAAAAAAAAAAAAAAAAAAwMDAwICAgIAAAAAAAAAAAQEBAQMDAwM + AAAAAA0NDQ0CAgICAAAAAAAAAAAEBAQEAAAAAAAAAAAAAAAAAAAAAAMDAwMCAgICAAAAAAAAAAAEBAQE + DAwMDAAAAAANDQ0NAgICAgAAAAAAAAAABAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgAAAAACAgIC + Dg4ODgMDAwMDAwMDAAAAAA8PDw8EBAQEAQEBAQoKCgoCAgICAAAAAAAAAAAAAAAAAAAAAAoKCgoAAAAA + AgICAg4ODg4DAwMDAwMDAwAAAAAPDw8PBAQEBAEBAQEKCgoKAgICAgAAAAAAAAAAAAAAAAAAAAAKCgoK + AAAAAAICAgIODg4OAwMDAwMDAwMAAAAADw8PDwQEBAQBAQEBCgoKCgICAgIAAAAAAAAAAAAAAAAAAAAA + CgoKCgAAAAACAgICDg4ODgMDAwMDAwMDAAAAAA8PDw8EBAQEAQEBAQoKCgoCAgICAAAAAAAAAAAAAAAA + BAQEBA8PDw8AAAAADw8PDw0NDQ0ODg4ODg4ODg8PDw8ODg4ODQ0NDQAAAAAPDw8PAAAAAAAAAAAAAAAA + AAAAAAQEBAQPDw8PAAAAAA8PDw8NDQ0NDg4ODg4ODg4PDw8PDg4ODg0NDQ0AAAAADw8PDwAAAAAAAAAA + AAAAAAAAAAAEBAQEDw8PDwAAAAAPDw8PDQ0NDQ4ODg4ODg4ODw8PDw4ODg4NDQ0NAAAAAA8PDw8AAAAA + AAAAAAAAAAAAAAAABAQEBA8PDw8AAAAADw8PDw0NDQ0ODg4ODg4ODg8PDw8ODg4ODQ0NDQAAAAAPDw8P + AAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKDw8PDwsLCwsJCQkJDw8PDw0NDQ0PDw8PDw8PDw4ODg4PDw8P + Dw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCg8PDw8LCwsLCQkJCQ8PDw8NDQ0NDw8PDw8PDw8ODg4O + Dw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoPDw8PCwsLCwkJCQkPDw8PDQ0NDQ8PDw8PDw8P + Dg4ODg8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKDw8PDwsLCwsJCQkJDw8PDw0NDQ0PDw8P + Dw8PDw4ODg4PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQsLCwsPDw8PBAQEBA4ODg4PDw8P + Dw8PDwAAAAAPDw8PCgoKCgAAAAAFBQUFAAAAAAAAAAAAAAAAAQEBAQEBAQELCwsLDw8PDwQEBAQODg4O + Dw8PDw8PDw8AAAAADw8PDwoKCgoAAAAABQUFBQAAAAAAAAAAAAAAAAEBAQEBAQEBCwsLCw8PDw8EBAQE + Dg4ODg8PDw8PDw8PAAAAAA8PDw8KCgoKAAAAAAUFBQUAAAAAAAAAAAAAAAABAQEBAQEBAQsLCwsPDw8P + BAQEBA4ODg4PDw8PDw8PDwAAAAAPDw8PCgoKCgAAAAAFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMD + DAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AwMDAwwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAABgYGBgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAMDAwMMDAwMDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAYGBgYAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAADAwMDDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAGBgYGAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAcHBwcJCQkJAAAAAAAAAAAAAAAADw8PDwAAAAAFBQUFAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHCQkJCQAAAAAAAAAAAAAAAA8PDw8AAAAABQUFBQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwkJCQkAAAAAAAAAAAAAAAAPDw8PAAAAAAUFBQUAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcJCQkJAAAAAAAAAAAAAAAADw8PDwAAAAAFBQUF + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUNDQ0NAAAAAAYGBgYHBwcHCAgICAAAAAAPDw8P + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFDQ0NDQAAAAAGBgYGBwcHBwgICAgAAAAA + Dw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQ0NDQ0AAAAABgYGBgcHBwcICAgI + AAAAAA8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUNDQ0NAAAAAAYGBgYHBwcH + CAgICAAAAAAPDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQAAAAA + AAAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQE + AAAAAAAAAAAAAAAAAAAAAAcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + BAQEBAAAAAAAAAAAAAAAAAAAAAAHBwcHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAQEBAQAAAAAAAAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////4AAH///////AAAP//////4AAAf/////4AAAAH///4AAAAAAAB//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAA + AD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP//AAAAAAAP//8AAAAAAA///wAAAAAAD///AAAAAAAP///gAAAAA + H////AAAAAA////8AAAAAD////wAAAAAP////AAAAAA////8AAAAAD////wAAAAAP////AAAAAA////8 + AD/8AD////wAP/wAP////AA//AA////8AD/8AD////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////KAAAADAAAABgAAAAAQAgAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAAEAAAABAAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAACwAA + AAwAAAANAAAADQAAAA0AAAAOAAAADgAAAA4AAAAOAAAADQAAAA0AAAANAAAADAAAAAsAAAAHAAAAAwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAA + AAoAAAAWAAAAIwAAACkAAAAsAAAALQAAAC0AAAAuAAAALgAAAC4AAAAuAAAALQAAAC0AAAAsAAAAKQAA + ACMAAAAWAAAACgAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAMAAAADAAAAAwAAAAMAAAAEAAAABAAA + AAQAAAAGAAAADwAAABwAAAA3AAAAUgAAAGAAAABpAAAAawAAAGsAAABsAAAAbAAAAGwAAABsAAAAawAA + AGsAAABpAAAAYAAAAFMAAAA3AAAAHAAAAA8AAAAGAAAABAAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAACwAAAAwAAAANAAAADQAA + AA0AAAAOAAAADgAAAA4AAAARAAAAHgAAADEAAABYAAAAfwAAAJMAAACfAAAAogAAAKIAAACjAAAAowAA + AKMAAACjAAAAogAAAKIAAACfAAAAkwAAAH8AAABYAAAAMQAAAB4AAAARAAAADgAAAA4AAAAOAAAADQAA + AA0AAAANAAAADAAAAAsAAAAHAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAABAAAABAAAAAoAAAAWAAAAIwAA + ACkAAAAsAAAALQAAAC0AAAAuAAAALgAAAC4AAAAyAAAAQAAAAFYAAAC9AAAA/wAAAP8CAgL/BAQE/wQE + BP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAAAP8AAAC9AAAAVgAAAEAAAAAyAAAALgAA + AC4AAAAuAAAALQAAAC0AAAAsAAAAKQAAACMAAAAWAAAACgAAAAQAAAABAAAAAAAAAAAAAAACAAAACwAA + ABkAAAA1AAAAUQAAAGAAAABoAAAAawAAAGsAAABsAAAAbAAAAGwAAABvAAAAegAAAIwAAADVAAAA/wAA + AP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAAAP8AAADVAAAAjAAA + AHoAAABvAAAAbAAAAGwAAABsAAAAawAAAGsAAABoAAAAYAAAAFIAAAA1AAAAGQAAAAsAAAACAAAAAAAA + AAAAAAAEAAAAEQAAACYAAABRAAAAfAAAAJEAAACeAAAAogAAAKIAAACjAAAAowAAAKMAAAClAAAArAAA + ALgAAADlAAAA/wAAAP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAA + AP8AAADlAAAAuAAAAKwAAAClAAAAowAAAKMAAACjAAAAogAAAKIAAACeAAAAkQAAAHwAAABRAAAAJgAA + ABEAAAAEAAAAAAAAAAAAAAAFAAAAFwAAADIBAQGxAwMD/wMDA/8CAgL/AgIC/wICAv8BAQH/AAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8/P9+fn7/AAAA/wAAAP9+fn7//f39//39 + /f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAA + AP8AAACxAAAAMwAAABcAAAAFAAAAAAAAAAAAAAAGAAAAGgAAADkBAQG4AwMD/wMDA/8CAgL/AgIC/wIC + Av8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8/P9+fn7/AAAA/wAA + AP9+fn7//f39//39/f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQE + BP8CAgL/AAAA/wAAAP8AAAC4AAAAOQAAABoAAAAGAAAAAAAAAAEAAAAGAAAAGwAAADsBAQG6AwMD/wMD + A/8CAgL/AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8 + /P9+fn7/AAAA/wAAAP9+fn7//f39//39/f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAA + AP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAA + ADsAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAAAP8BAQH/AgIC/wICAv+AgID//v7+//7+ + /v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAAAP9/f3////////////+BgYH/BAQE/wQE + BP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wICAv8BAQG6AAAAPAAAABsAAAAGAAAAAQAA + AAEAAAAGAAAAGwAAADwAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAAAP8BAQH/AgIC/wIC + Av+AgID//v7+//7+/v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAAAP9/f3////////// + //+BgYH/BAQE/wQEBP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wICAv8BAQG6AAAAPAAA + ABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAA + AP8BAQH/AgIC/wICAv+AgID//v7+//7+/v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAA + AP9/f3////////////+BgYH/BAQE/wQEBP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wIC + Av8BAQG6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwBAQG6BAQE/wQEBP+BgYH///////// + //9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39/f/9/f3//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39/f9+fn7/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwBAQG6BAQE/wQE + BP+BgYH///////////9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39/f/9/f3//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39/f9+fn7/AAAA/wAA + AP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAA + ADwBAQG6BAQE/wQEBP+BgYH///////////9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39 + /f9+fn7/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAA + AAEAAAAGAAAAGwAAADsAAAC6AAAA/wAAAP98fHz/+fn5//n5+f/8/Pz////////////8/Pz/+vr6//r6 + +v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39/f/+/v7///////////////////////// + ///+/v7//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAA + ABsAAAAGAAAAAQAAAAAAAAAGAAAAGwAAADsAAAC5AAAA/wAAAP98fHz/+fn5//n5+f/8/Pz///////// + ///8/Pz/+vr6//r6+v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39/f/+/v7///////// + ///////////////////+/v7//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAA + AP8AAAC5AAAAOwAAABsAAAAGAAAAAAAAAAAAAAAGAAAAGQAAADgAAAC3AAAA/wAAAP98fHz/+fn5//n5 + +f/8/Pz////////////8/Pz/+vr6//r6+v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39 + /f/+/v7////////////////////////////+/v7//v7+//7+/v/+/v7///////////////////////// + //9/f3//AAAA/wAAAP8AAAC3AAAAOAAAABkAAAAGAAAAAAAAAAAAAAAFAAAAFgAAADEAAACvAQEB/wEB + Af8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////////+BgYH/BAQE/wQEBP+BgYH//v7+//7+ + /v/+/v7///////////////////////////9/f3//AAAA/wAAAP9/f3/////////////8/Pz/+fn5//n5 + +f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8EBASvAAAAMQAAABYAAAAFAAAAAAAAAAAAAAADAAAADwAA + ACMAAACiAQEB/wEBAf8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////////+BgYH/BAQE/wQE + BP+BgYH//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAAAP9/f3////////// + ///8/Pz/+fn5//n5+f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8EBASiAAAAIwAAAA8AAAADAAAAAAAA + AAAAAAACAAAACQAAABYAAACWAQEB/wEBAf8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////// + //+BgYH/BAQE/wQEBP+BgYH//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAA + AP9/f3/////////////8/Pz/+fn5//n5+f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8FBQWWAAAAFgAA + AAkAAAACAAAAAAAAAAAAAAABAAAAAwAAAAkAAAAXAAAALgAAAEkAAAC5AAAA/wAAAP8BAQH/AwMD/wMD + A/9/f3///Pz8//z8/P/9/f3///////////////////////////////////////////////////////// + //////////////////////////////////9/f3//AAAA/wAAAP8DAwP/BwcH/wcHB/8EBAS5AAAASQAA + AC4AAAAXAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAIAAAAFgAAACkAAAClAAAA/wAA + AP8BAQH/AwMD/wMDA/9/f3///Pz8//z8/P/9/f3///////////////////////////////////////// + //////////////////////////////////////////////////9/f3//AAAA/wAAAP8DAwP/BwcH/wcH + B/8EBASlAAAAKQAAABYAAAAIAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAACwAA + ABcAAACXAAAA/wAAAP8BAQH/AwMD/wMDA/9/f3///Pz8//z8/P/9/f3///////////////////////// + //////////////////////////////////////////////////////////////////9/f3//AAAA/wAA + AP8DAwP/BwcH/wcHB/8FBQWXAAAAFwAAAAsAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAkAAAAYAAAAMwAAAFQAAADDAAAA/wAAAP8EBAT/CAgI/wgICP+AgID/+Pj4//j4 + +P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAA + AP8DAwP/BgYG/wYGBv8CAgLDAAAAVAAAADMAAAAYAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAALAAAAIQAAAEIAAAC9AAAA/wAAAP8EBAT/CAgI/wgI + CP+AgID/+Pj4//j4+P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8DAwP/BgYG/wYGBv8EBAS9AAAAQgAAACEAAAALAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHAAAAHAAAAD0AAAC7AAAA/wAA + AP8EBAT/CAgI/wgICP+AgID/+Pj4//j4+P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP9/f3////////////9/f3//AAAA/wAAAP8DAwP/BgYG/wYGBv8EBAS7AAAAPgAAAB0AAAAHAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAAGwAA + ADsEBAS6BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAAAP8DAwP/BwcH/wcHB/8HBwf/CAgI/wgI + CP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAA + ABsAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAGAAAAGwAAADsEBAS5BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAAAP8DAwP/BwcH/wcH + B/8HBwf/CAgI/wgICP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAA + AP8AAAC5AAAAOwAAABsAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAGAAAAGQAAADgEBAS2BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAA + AP8DAwP/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8AAAC2AAAAOAAAABkAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFgAAADAAAACvAAAA/wAAAP8AAAD/AAAA/wAA + AP8CAgL/BAQE/wQEBP8BAQG5AAAATQAAADcAAAApAAAAJQAAACUAAAApAAAANwAAAE0AAAC5AAAA/wAA + AP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAACvAAAAMQAAABYAAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAADwAAACIAAAChAAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8DAwOkAAAAKgAAABgAAAANAAAACgAAAAoAAAANAAAAGAAA + ACoAAACkAAAA/wAAAP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAAChAAAAIgAAAA8AAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACQAA + ABYAAACVAAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8DAwOVAAAAFwAAAAwAAAAEAAAAAwAA + AAMAAAAEAAAADAAAABcAAACVAAAA/wAAAP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAACVAAAAFgAA + AAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAgAAAASAAAAHAAAACEAAAAkAAAAJAAAACQAAAAkAAAAIQAAABwAAAASAAAACAAA + AAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAgAAAASAAAAHAAAACEAAAAkAAAAJAAAACQAAAAkAAAAIQAA + ABwAAAASAAAACAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABwAAAAgAAAAJAAAACQAAAAkAAAAJAAAACAAA + AAcAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABwAAAAgAAAAJAAAACQAA + AAkAAAAJAAAACAAAAAcAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////wAA////////AAD///////8AAP///////wAA//////// + AAD///////8AAP///////wAA////////AAD//8AD//8AAP//AAD//wAA//4AAH//AAD8AAAAAD8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAP + AADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAP4A + AAAAfwAA/gAAAAB/AAD+AAAAAH8AAP/AAAAD/wAA/8AAAAP/AAD/wAAAA/8AAP/AAAAD/wAA/8AAAAP/ + AAD/wAAAA/8AAP/AD/AD/wAA/8AP8AP/AAD/wA/wA/8AAP///////wAA////////AAD///////8AAP// + /////wAA////////AAD///////8AAP///////wAA////////AAD///////8AACgAAAAwAAAAYAAAAAEA + CAAAAAAAABIAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wUFBf8GBgb/BwcH/wgI + CP8JCQn/fHx8/319ff9+fn7/f39//4CAgP+BgYH/goKC//j4+P/5+fn/+vr6//z8/P/9/f3//v7+//// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIEBAIAAAEDAwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAIAAAEDAwEA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAIAAAEDAwEAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAIDAwICAgEAAAAAAAIEBA4UFAwAAA0VFQ0CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAID + AwMCAgEAAAAAAAIEBA4UFAwAAAwVFQ0CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAIDAwICAgEAAAAAAAIE + BA4UFAwAAA0VFQ4CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAAAAAoSEgoAAAECAg4WFg8DAwMDAwEAAA0X + Fw8EBAMBAQsSEgwCAgEAAAAAAAAAAAAAAAsSEgsAAAECAg4WFg8DAwMDAwEAAA0XFxAEBAIBAQsSEgsC + AgEAAAAAAAAAAAAAAAoSEgoAAAECAg4WFg8DAwMDAwEAAA0XFxAEBAMBAQsSEgwCAgEAAAAAAAAAAAME + BA8XFw0AAA0XFxYVFRYWFhYWFhcXFxcWFhYVFQ0AAA0XFw0AAAAAAAAAAAAAAAMEBBAXFw4AAA4XFxYV + FRYWFhYWFhYXFxYWFhUVFQwAAA0XFw0AAAAAAAAAAAAAAAMEBA8XFw0AAA4XFxYVFRYWFhYWFhcXFxcW + FhYVFQ0AAA0XFw0AAAAAAAAAAAAAAAAAAAoSEhQXFxUTExIRERQXFxYVFRYXFxcXFxcWFhcXFxcXFw0A + AAAAAAAAAAAAAAAAAAsSEhQXFxUTExIRERQXFxYVFRYXFxcXFxYWFhYXFxcXFw0AAAAAAAAAAAAAAAAA + AAoSEhQXFxUTExIRERQXFxYVFRYXFxcXFxcWFhcXFxcXFw0AAAAAAAAAAAAAAAEBAQEBAQsTExUXFw8E + BA8WFhYXFxcXFw0AAA0XFxQSEgoAAAMGBgQAAAAAAAAAAAEBAQEBAQwTExUXFxAEBA8WFhcXFxcXFw4A + AA4XFxQSEgsAAAMGBgUAAAAAAAAAAAEBAQEBAQsTExUXFw8EBA8WFhYXFxcXFw0AAA0XFxQSEgoAAAMG + BgUAAAAAAAAAAAAAAAAAAAEDAw0UFBUXFxcXFxcXFxcXFxcXFxcXFw0AAAQHBwUAAAAAAAAAAAAAAAAA + AAAAAAIDAw4UFBYXFxcXFxcXFxcXFxcXFxcXFw4AAAQHBwUAAAAAAAAAAAAAAAAAAAAAAAEDAw0UFBUX + FxcXFxcXFxcXFxcXFxcXFw0AAAQHBwYAAAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA0X + Fw0AAAMGBgQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA4XFw4AAAMGBgQAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA0XFw0AAAMGBgQAAAAAAAAAAAAAAAAAAAAA + AAAAAAQGBg8VFQwAAAMHBwcICAkJCQUAAA0XFw0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBhAVFQ0A + AAQHBwgICAkJCQUAAA4XFw4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBg8VFQwAAAMHBwcICAkJCQUA + AA0XFw0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + AAD///////8AAP///////wAA////////AAD///////8AAP///////wAA////////AAD///////8AAP// + wAP//wAA//8AAP//AAD//gAAf/8AAPwAAAAAPwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAP + AADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA/gAAAAB/AAD+AAAAAH8AAP4AAAAAfwAA/8AAAAP/ + AAD/wAAAA/8AAP/AAAAD/wAA/8AAAAP/AAD/wAAAA/8AAP/AAAAD/wAA/8AP8AP/AAD/wA/wA/8AAP/A + D/AD/wAA////////AAD///////8AAP///////wAA////////AAD///////8AAP///////wAA//////// + AAD///////8AAP///////wAAKAAAACAAAABAAAAAAQAgAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAAgAAAAJAAAACQAAAAoAAAAKAAAACQAAAAkAAAAIAAAABgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAABAAAABEAAAAlAAAAMwAAADYAAAA3AAAANwAAADcAAAA3AAAANgAAADMAAAAlAAAAEQAA + AAQAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAGAAAACAAA + AAkAAAAJAAAACgAAAAoAAAATAAAANAAAAGgAAACIAAAAkgAAAJMAAACTAAAAkwAAAJMAAACSAAAAiAAA + AGgAAAA0AAAAEwAAAAoAAAAKAAAACQAAAAkAAAAIAAAABgAAAAIAAAAAAAAAAAAAAAAAAAAEAAAAEQAA + ACUAAAAzAAAANgAAADYAAAA3AAAAOAAAAEMAAABsAAAA/wAAAP8EBAT/BAQE/wAAAP8AAAD/AwMD/wMD + A/8AAAD/AAAA/wAAAGwAAABDAAAAOAAAADcAAAA2AAAANgAAADMAAAAlAAAAEQAAAAQAAAAAAAAAAQAA + AAoAAAAuAAAAZAAAAIgAAACSAAAAkwAAAJMAAACUAAAAmgAAALMAAAD/AAAA/wQEBP8EBAT/AAAA/wAA + AP8DAwP/AwMD/wAAAP8AAAD/AAAAswAAAJoAAACUAAAAkwAAAJMAAACSAAAAiAAAAGQAAAAuAAAACgAA + AAEAAAABAAAAEAAAAEYDAwP/AwMD/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT//Pz8//z8 + /P8AAAD/AAAA//39/f/9/f3/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8AAAD/AAAA/wAA + AEYAAAAQAAAAAQAAAAIAAAASAAAATwMDA/8DAwP/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP/8/Pz//Pz8/wAAAP8AAAD//f39//39/f8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wAA + AP8AAAD/AAAATwAAABIAAAACAAAAAgAAABMAAABQAAAA/wAAAP/5+fn/+fn5/wAAAP8AAAD/AgIC/wIC + Av/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA////////////BAQE/wQEBP8BAQH/AQEB//n5 + +f/5+fn/AgIC/wICAv8AAABQAAAAEwAAAAIAAAACAAAAEwAAAFAAAAD/AAAA//n5+f/5+fn/AAAA/wAA + AP8CAgL/AgIC//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD///////////8EBAT/BAQE/wEB + Af8BAQH/+fn5//n5+f8CAgL/AgIC/wAAAFAAAAATAAAAAgAAAAIAAAATAAAAUAQEBP8EBAT///////// + //8AAAD/AAAA/////////////f39//39/f/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//39 + /f/9/f3/AAAA/wAAAP///////////wAAAP8AAAD/AAAAUAAAABMAAAACAAAAAgAAABMAAABQBAQE/wQE + BP///////////wAAAP8AAAD////////////9/f3//f39//7+/v/+/v7//v7+//7+/v////////////7+ + /v/+/v7//f39//39/f8AAAD/AAAA////////////AAAA/wAAAP8AAABQAAAAEwAAAAIAAAACAAAAEwAA + AFAAAAD/AAAA//n5+f/5+fn////////////6+vr/+vr6//j4+P/4+Pj////////////9/f3//f39//// + ///////////////////+/v7//v7+//////////////////////8AAAD/AAAA/wAAAFAAAAATAAAAAgAA + AAEAAAASAAAATQAAAP8AAAD/+fn5//n5+f////////////r6+v/6+vr/+Pj4//j4+P////////////39 + /f/9/f3///////////////////////7+/v/+/v7//////////////////////wAAAP8AAAD/AAAATQAA + ABIAAAABAAAAAQAAAA4AAAA/AQEB/wEBAf8BAQH/AQEB//r6+v/6+vr///////////8EBAT/BAQE//7+ + /v/+/v7//////////////////////wAAAP8AAAD////////////5+fn/+fn5/wAAAP8AAAD/BgYG/wYG + Bv8AAAA/AAAADgAAAAEAAAABAAAABwAAACMBAQH/AQEB/wEBAf8BAQH/+vr6//r6+v///////////wQE + BP8EBAT//v7+//7+/v//////////////////////AAAA/wAAAP////////////n5+f/5+fn/AAAA/wAA + AP8GBgb/BgYG/wAAACMAAAAHAAAAAQAAAAAAAAACAAAACgAAACEAAABRAAAA/wAAAP8DAwP/AwMD//z8 + /P/8/Pz/////////////////////////////////////////////////////////////////AAAA/wAA + AP8HBwf/BwcH/wAAAFEAAAAhAAAACgAAAAIAAAAAAAAAAAAAAAAAAAACAAAACgAAACUAAAD/AAAA/wMD + A/8DAwP//Pz8//z8/P////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wcHB/8HBwf/AAAAJQAAAAoAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACwAA + ACUAAABiAAAA/wAAAP8ICAj/CAgI//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //8AAAD/AAAA/wYGBv8GBgb/AAAAYgAAACUAAAALAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADAAAAFQAAAFIAAAD/AAAA/wgICP8ICAj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////wAAAP8AAAD/BgYG/wYGBv8AAABSAAAAFQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAATAAAAUAYGBv8GBgb//f39//39/f8AAAD/AAAA/wcHB/8HBwf/CAgI/wgI + CP8JCQn/CQkJ/wAAAP8AAAD///////////8AAAD/AAAA/wAAAFAAAAATAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAABIAAABNBgYG/wYGBv/9/f3//f39/wAAAP8AAAD/BwcH/wcH + B/8ICAj/CAgI/wkJCf8JCQn/AAAA/wAAAP///////////wAAAP8AAAD/AAAATQAAABIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAADgAAAD4AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8AAABTAAAAKgAAAB8AAAAfAAAAKgAAAFMAAAD/AAAA/wgICP8ICAj/AAAA/wAAAP8AAAA+AAAADgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHAAAAIQAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wAAACQAAAALAAAABQAAAAUAAAALAAAAJAAAAP8AAAD/CAgI/wgICP8AAAD/AAAA/wAA + ACEAAAAHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAFAAA + ABsAAAAdAAAAHQAAABsAAAAUAAAACQAAAAIAAAAAAAAAAAAAAAIAAAAJAAAAFAAAABsAAAAdAAAAHQAA + ABsAAAAUAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAACAAAAAwAAAAMAAAADAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAMAAAADAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD////////////////////////////wD///4Af/8AAAD+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAf4AAAf+AAAH/4AAH/+AAB//gAAf/4AAH/+B+B//gfgf/// + /////////////////////////////ygAAAAgAAAAQAAAAAEACAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAA + AAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6+v/8/Pz//f39//7+ + /v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAAADAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAABAQAAAMDAAAAAAAAAAAAAAAAAAAAAAMDAgIAAAAABAQMDAAADQ0CAgAAAAAEBAAAAAAAAAAAAwMC + AgAAAAAEBAwMAAANDQICAAAAAAQEAAAAAAAAAAAAAAoKAAACAg4OAwMDAwAADw8EBAEBCgoCAgAAAAAA + AAAACgoAAAICDg4DAwMDAAAPDwQEAQEKCgICAAAAAAAABAQPDwAADw8NDQ4ODg4PDw4ODQ0AAA8PAAAA + AAAAAAAEBA8PAAAPDw0NDg4ODg8PDg4NDQAADw8AAAAAAAAAAAAACgoPDwsLCQkPDw0NDw8PDw4ODw8P + DwAAAAAAAAAAAAAKCg8PCwsJCQ8PDQ0PDw8PDg4PDw8PAAAAAAAAAAABAQEBCwsPDwQEDg4PDw8PAAAP + DwoKAAAFBQAAAAAAAAEBAQELCw8PBAQODg8PDw8AAA8PCgoAAAUFAAAAAAAAAAAAAAMDDAwPDw8PDw8P + Dw8PDw8AAAYGAAAAAAAAAAAAAAAAAwMMDA8PDw8PDw8PDw8PDwAABgYAAAAAAAAAAAAAAAAAAAcHCQkA + AAAAAAAPDwAABQUAAAAAAAAAAAAAAAAAAAAABwcJCQAAAAAAAA8PAAAFBQAAAAAAAAAAAAAAAAAABQUN + DQAABgYHBwgIAAAPDwAAAAAAAAAAAAAAAAAAAAAFBQ0NAAAGBgcHCAgAAA8PAAAAAAAAAAAAAAAAAAAA + AAAAAAAEBAAAAAAAAAAABwcAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAAAAAAAAAAAHBwAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP////////////////////////////AP///gB//wAAAP4AAAB+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB/gAAB/4AAAf/gAAf/4AAH/+AAB//gAAf/4H4H/+B+B///////// + ////////////////////////KAAAABgAAAAwAAAAAQAgAAAAAAAAEgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAYAAAAGAAAABwAA + AAcAAAAGAAAABgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAAMAAAAKQAAAEEAAABDAAAARAAAAEQAAABDAAAAQQAAACkAAAAMAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEgAAABwAAAAdAAAAHgAAACAAAAA6AAAAvgAA + ANwCAgLfAAAA4AAAAOABAQHfAAAA3AAAAL4AAAA6AAAAIAAAAB4AAAAdAAAAHAAAABIAAAAEAAAAAAAA + AAEAAAAWAAAAUAAAAH8AAACFAAAAhgAAAIcAAACYAAAA/wAAAP8EBAT/AAAA/wAAAP8DAwP/AAAA/wAA + AP8AAACYAAAAhwAAAIYAAACFAAAAfwAAAFAAAAAWAAAAAQAAAAIAAAAmAwMD/wMDA/8CAgL/AAAA/wAA + AP8AAAD/BAQE/wQEBP/8/Pz/AAAA/wAAAP/9/f3/AgIC/wICAv8AAAD/AAAA/wAAAP8EBAT/AAAA/wAA + AP8AAAAmAAAAAgAAAAMAAAApAQEB/wEBAf99fX3/AAAA/wAAAP8BAQH/gYGB/4GBgf9/f3//AQEB/wEB + Af9+fn7/gICA/4CAgP8CAgL/AAAA/wAAAP9+fn7/AQEB/wEBAf8AAAApAAAAAwAAAAMAAAAqAAAA/wAA + AP/5+fn/AAAA/wAAAP8CAgL//v7+//7+/v8DAwP/AwMD/wMDA/8AAAD///////////8EBAT/AQEB/wEB + Af/5+fn/AgIC/wICAv8AAAAqAAAAAwAAAAMAAAAqBAQE/wQEBP//////AAAA/wAAAP///////f39//39 + /f/+/v7//v7+//7+/v///////v7+//7+/v/9/f3/AAAA/wAAAP//////AAAA/wAAAP8AAAAqAAAAAwAA + AAMAAAApAgIC/wICAv/8/Pz/f39//39/f//8/Pz/+vr6//r6+v/+/v7//f39//39/f///////v7+//7+ + /v/9/f3/f39//39/f///////AAAA/wAAAP8AAAApAAAAAwAAAAIAAAAoAAAA/wAAAP/5+fn///////// + ///6+vr/+Pj4//j4+P///////f39//39/f/////////////////+/v7/////////////////AAAA/wAA + AP8AAAAoAAAAAgAAAAIAAAAeAQEB/wEBAf8BAQH/+vr6//r6+v//////BAQE/wQEBP/+/v7///////// + ////////AAAA/wAAAP//////+fn5//n5+f8AAAD/BgYG/wYGBv8AAAAeAAAAAgAAAAAAAAAJAAAAkQAA + ALgAAAD/fn5+/35+fv/9/f3/gYGB/4GBgf/+/v7/////////////////f39//39/f///////fHx8/3x8 + fP8DAwP/BAQEuAUFBZIAAAAJAAAAAAAAAAAAAAABAAAACAAAADQAAAD/AwMD/wMDA//8/Pz///////// + ////////////////////////////////////////AAAA/wAAAP8HBwf/AAAANAAAAAgAAAABAAAAAAAA + AAAAAAAAAAAAAQAAAAwAAAA5AAAA/wAAAP8ICAj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD///////// + //8AAAD/BgYG/wYGBv8AAAA5AAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAqAwMD/wMD + A/+CgoL/fHx8/3x8fP8DAwP/BAQE/wQEBP8EBAT/f39//39/f/9/f3//AwMD/wMDA/8AAAAqAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAoBgYG/wYGBv/9/f3/AAAA/wAAAP8HBwf/CAgI/wgI + CP8JCQn/AAAA/wAAAP//////AAAA/wAAAP8AAAAoAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAeAAAA/wAAAP8AAAD/BAQE/wQEBP8AAAAxAAAAGQAAABkAAAAxAAAA/wAAAP8ICAj/AAAA/wAA + AP8AAAAeAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAjgAAAJYAAACXAwMDlgMD + A44AAAAJAAAAAQAAAAEAAAAJAAAAjgAAAJYGBgaXAAAAlgAAAI4AAAAJAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAQAAAAEAAAABAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + AAQAAAAEAAAABAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD///8A////AP///wD/AP8A8AAPAMAAAwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDAAAMA8AAPAPgAHwD4AB8A+AAfAPg8HwD4PB8A////AP///wD///8A////ACgA + AAAYAAAAMAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wUF + Bf8HBwf/CAgI/wkJCf8fHx//ICAg/yEhIf8iIiL/IyMj/z4+Pv8/Pz//QEBA/0FBQf9CQkL/Q0ND/0RE + RP9eXl7/X19f/2FhYf99fX3/fn5+/39/f/+AgID/gYGB/4ODg/+dnZ3/np6e/5+fn/+hoaH/urq6/7u7 + u/+8vLz/v7+//8DAwP/5+fn/+vr6//v7+//8/Pz//f39//7+/v//////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQIBAAIAAAAAAAAAAAAAAAAAAAAAAAAAAQQBAQMBAAAA + AAAAAAAAAAADAwIAAAADEioPDysRAgAAAQQBAAAAAAABChgJAAEXHBoLCxkbFwIBChkKAQAAAAAADicO + AQIlJQMDAgAlJgQCDycQAgAAAAADEy0QEC0sKywsLC0sLCsPEC0QAAAAAAACECogICopKSwsLC0tLCwg + IC0QAAAAAAAADicrLCgnKC0sLC0tLSwtLS0QAAAAAAABAQEkKS0TEywtLS0QEC0pIwAFBQAAAAABAQEW + HywhIS0tLS0gIC0eFQMEBQAAAAAAAAACESosLS0tLS0tLS0QAgYFAAAAAAAAAAAAAgckIgAAAAAlJQAF + BQAAAAAAAAAAAAADDR0ZFQQEBAUXGhoMAwAAAAAAAAAAAAAFFCsPAgYHBwgCEC0QAAAAAAAAAAAAAAAA + AAADBAAAAAAAAgcCAAAAAAAAAAAAAAAAAAADAwAAAAAAAgYCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP8A/wDwAA8AwAADAMAAAwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDwAA8A+AAfAPgAHwD4AB8A+DwfAPg8HwD///8A////AP///wD///8AKAAAABAA + AAAgAAAAAQAgAAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAADAAAABAAAAAQAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAABAAA + AAYAAAA3AAAAaQAAAGwAAABsAAAAaQAAADcAAAAGAAAABAAAAAMAAAACAAAAAAAAAAIAAAA1AAAAaAAA + AGwAAABvAAAA1QICAv8CAgL/AQEB/wEBAf8AAADVAAAAbwAAAGwAAABoAAAANQAAAAIAAAAGAQEBuAIC + Av8BAQH/AAAA/wICAv+AgID/fn5+/35+fv9/f3//AQEB/wAAAP8CAgL/AgIC/wAAALgAAAAGAAAABgAA + ALp8fHz/fHx8/wEBAf+AgID/gICA/wMDA/8BAQH/f39//4GBgf8CAgL/fX19/319ff8BAQG6AAAABgAA + AAYBAQG6gYGB/39/f/9/f3///v7+//39/f/+/v7//v7+//7+/v/9/f3/fn5+/39/f/9/f3//AAAAugAA + AAYAAAAGAAAAuXx8fP/8/Pz//Pz8//n5+f/7+/v//v7+//7+/v///////v7+//7+/v//////f39//wAA + ALkAAAAGAAAAAwAAAKIBAQH/fX19//z8/P+BgYH/gYGB//7+/v//////f39//39/f//8/Pz/fHx8/wMD + A/8EBASiAAAAAwAAAAAAAAAIAAAApQEBAf9/f3///f39////////////////////////////f39//wMD + A/8EBASlAAAACAAAAAAAAAAAAAAAAAAAAAsAAAC9BAQE/4CAgP98fHz/AAAA/wAAAP9/f3//f39//wMD + A/8EBAS9AAAACwAAAAAAAAAAAAAAAAAAAAAAAAAGBAQEuYGBgf9+fn7/AwMD/wcHB/8ICAj/BAQE/39/ + f/9/f3//AAAAuQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAKEAAAD/AgIC/wMDA6QAAAANAAAADQAA + AKQEBAT/BAQE/wAAAKEAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACQAAAAkAAAAEAAAAAAAA + AAAAAAAEAAAACQAAAAkAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD4HwAAgAEAAIAB + AACAAQAAgAEAAIABAADAAwAA4AcAAOAHAADhhwAA//8AAP//AAD//wAAKAAAABAAAAAgAAAAAQAIAAAA + AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAP8BAQH/AgIC/wMDA/8EBAT/BQUF/wYGBv8ICAj/CQkJ/3x8 + fP99fX3/fn5+/39/f/+AgID/gYGB/4KCgv/5+fn//Pz8//39/f/+/v7//////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAACAgICAAAAAAAAAAIDAQACDQsMDQEAAgIAAAAACgoBDQ4DAg0PAwoL + AgAAAw8NDRMTExQUEwwNDQAAAAAKERIQERMTFBQUFA0AAAABAQsSDw4UFA0NEQoDBQAAAAACDRMUFBQU + FA0EBgAAAAAAAAQNCQAADQ0DBAAAAAAAAAUPDAQHCAUNDQAAAAAAAAAAAAIDAAAABAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP//AAD//wAA+B8AAIAB + AACAAQAAgAEAAIABAACAAQAAwAMAAOAHAADgBwAA4YcAAP//AAD//wAA//8AAA== + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_About.vb b/Metropolis_Launcher/Forms/frm_About.vb new file mode 100644 index 0000000..09a29ac --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_About.vb @@ -0,0 +1,46 @@ +Public Class frm_About + + Public Sub New() + InitializeComponent() + + Dim sVersion As String = Application.ProductVersion.Split(".")(0) & "." & Application.ProductVersion.Split(".")(1) & "." & Application.ProductVersion.Split(".")(2) + lbl_BuildInfo.Text = sVersion & " " & "build " & Alphaleonis.Win32.Filesystem.File.GetLastWriteTime(System.Reflection.Assembly.GetEntryAssembly().Location).ToString("yyyyMMdd-HHmmss") + End Sub + + Private Sub OpenLink(ByVal URL As String) + Process.Start(URL) + End Sub + + Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub Handle_Link_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_MobyGames_Link.Click, lbl_EmulationEvolved_Link.Click, lbl_TOSEC_Link.Click, lbl_TDC_Link.Click, lbl_PDRoms_Link.Click, lbl_NoIntro_Link.Click, lbl_MetropolisLauncher_Link.Click, lbl_Archive_Link.Click, lbl_RetroArch_Link.Click, lbl_RetroAchievements_Link.Click, lbl_Bottom_Fugue_Link.Click, lbl_Bottom_SpaceInvaders_Link.Click + Select Case CType(sender, Control).Name + Case lbl_MobyGames_Link.Name + OpenLink("http://www.mobygames.com") + Case lbl_Archive_Link.Name + OpenLink("http://www.archive.org") + Case lbl_MetropolisLauncher_Link.Name + OpenLink("http://www.metropolis-launcher.net") + Case lbl_EmulationEvolved_Link.Name + OpenLink("http://www.emulation-evolved.net") + Case lbl_NoIntro_Link.Name + OpenLink("http://www.no-intro.org") + Case lbl_PDRoms_Link.Name + OpenLink("http://www.pdroms.de") + Case lbl_TDC_Link.Name + OpenLink("http://www.totaldoscollection.org") + Case lbl_TOSEC_Link.Name + OpenLink("http://www.tosec.org") + Case lbl_RetroAchievements_Link.Name + OpenLink("http://www.retroachievements.org") + Case lbl_RetroArch_Link.Name + OpenLink("http://www.libretro.com") + Case lbl_Bottom_Fugue_Link.Name + OpenLink("http://p.yusukekamiyamane.com") + Case lbl_Bottom_SpaceInvaders_Link.Name + OpenLink("http://moglenstar.deviantart.com/") + End Select + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_App_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_App_Edit.Designer.vb new file mode 100644 index 0000000..ff3bc2e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_App_Edit.Designer.vb @@ -0,0 +1,324 @@ + _ +Partial Class frm_App_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.BS_Apps = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MLApps = New Metropolis_Launcher.DS_MLApps() + Me.BS_Categories = New System.Windows.Forms.BindingSource(Me.components) + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Exec = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ExclusiveExecution = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Title = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Application = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Executable = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_Executable = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.chb_ExclusiveExecution = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Category = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Category = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_Description = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Description = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.BS_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Application.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_ExclusiveExecution.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Category.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'BS_Apps + ' + Me.BS_Apps.DataMember = "Apps" + Me.BS_Apps.DataSource = Me.DS_MLApps + ' + 'DS_MLApps + ' + Me.DS_MLApps.DataSetName = "DS_MLApps" + Me.DS_MLApps.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Categories + ' + Me.BS_Categories.DataMember = "Categories" + Me.BS_Categories.DataSource = Me.DS_MLApps + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(269, 356) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 7 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(347, 356) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 8 + Me.btn_Cancel.Text = "&Cancel" + ' + 'Ctl_MKDXLabel1 + ' + Me.Ctl_MKDXLabel1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel1.Location = New System.Drawing.Point(5, 76) + Me.Ctl_MKDXLabel1.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel1.Name = "Ctl_MKDXLabel1" + Me.Ctl_MKDXLabel1.Size = New System.Drawing.Size(110, 20) + Me.Ctl_MKDXLabel1.TabIndex = 1 + Me.Ctl_MKDXLabel1.Text = "Application:" + ' + 'lbl_Exec + ' + Me.lbl_Exec.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Exec.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Exec.Location = New System.Drawing.Point(5, 99) + Me.lbl_Exec.MKBoundControl1 = Nothing + Me.lbl_Exec.MKBoundControl2 = Nothing + Me.lbl_Exec.MKBoundControl3 = Nothing + Me.lbl_Exec.MKBoundControl4 = Nothing + Me.lbl_Exec.MKBoundControl5 = Nothing + Me.lbl_Exec.Name = "lbl_Exec" + Me.lbl_Exec.Size = New System.Drawing.Size(110, 20) + Me.lbl_Exec.TabIndex = 1 + Me.lbl_Exec.Text = "Executable:" + ' + 'lbl_ExclusiveExecution + ' + Me.lbl_ExclusiveExecution.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ExclusiveExecution.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ExclusiveExecution.Location = New System.Drawing.Point(5, 122) + Me.lbl_ExclusiveExecution.MKBoundControl1 = Nothing + Me.lbl_ExclusiveExecution.MKBoundControl2 = Nothing + Me.lbl_ExclusiveExecution.MKBoundControl3 = Nothing + Me.lbl_ExclusiveExecution.MKBoundControl4 = Nothing + Me.lbl_ExclusiveExecution.MKBoundControl5 = Nothing + Me.lbl_ExclusiveExecution.Name = "lbl_ExclusiveExecution" + Me.lbl_ExclusiveExecution.Size = New System.Drawing.Size(110, 20) + Me.lbl_ExclusiveExecution.TabIndex = 1 + Me.lbl_ExclusiveExecution.Text = "Exclusive Execution:" + Me.lbl_ExclusiveExecution.ToolTip = "When ticked, the launcher will be hidden and waits until the application has been" & + " closed." + ' + 'lbl_Title + ' + Me.lbl_Title.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Title.AutoEllipsis = True + Me.lbl_Title.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Title.Location = New System.Drawing.Point(2, 2) + Me.lbl_Title.MKBoundControl1 = Nothing + Me.lbl_Title.MKBoundControl2 = Nothing + Me.lbl_Title.MKBoundControl3 = Nothing + Me.lbl_Title.MKBoundControl4 = Nothing + Me.lbl_Title.MKBoundControl5 = Nothing + Me.lbl_Title.Name = "lbl_Title" + Me.lbl_Title.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Title.Size = New System.Drawing.Size(421, 36) + Me.lbl_Title.TabIndex = 2 + Me.lbl_Title.Text = "Edit Application" + ' + 'txb_Application + ' + Me.txb_Application.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Application.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Apps, "DisplayName", True)) + Me.txb_Application.Location = New System.Drawing.Point(118, 76) + Me.txb_Application.MKBoundLabel = Nothing + Me.txb_Application.MKEditValue_Compare = Nothing + Me.txb_Application.Name = "txb_Application" + Me.txb_Application.Size = New System.Drawing.Size(304, 20) + Me.txb_Application.TabIndex = 2 + ' + 'txb_Executable + ' + Me.txb_Executable.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Executable.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Apps, "Executable", True)) + Me.txb_Executable.Location = New System.Drawing.Point(118, 99) + Me.txb_Executable.MKBoundLabel = Nothing + Me.txb_Executable.MKEditValue_Compare = Nothing + Me.txb_Executable.Name = "txb_Executable" + Me.txb_Executable.Size = New System.Drawing.Size(261, 20) + Me.txb_Executable.TabIndex = 3 + ' + 'btn_Executable + ' + Me.btn_Executable.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Executable.Location = New System.Drawing.Point(382, 99) + Me.btn_Executable.Name = "btn_Executable" + Me.btn_Executable.Size = New System.Drawing.Size(40, 20) + Me.btn_Executable.TabIndex = 4 + Me.btn_Executable.Text = "..." + ' + 'chb_ExclusiveExecution + ' + Me.chb_ExclusiveExecution.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.chb_ExclusiveExecution.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_ExclusiveExecution.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Apps, "RunExclusive", True)) + Me.chb_ExclusiveExecution.Location = New System.Drawing.Point(115, 122) + Me.chb_ExclusiveExecution.MKBoundLabel = Nothing + Me.chb_ExclusiveExecution.MKEditValue_Compare = Nothing + Me.chb_ExclusiveExecution.Name = "chb_ExclusiveExecution" + Me.chb_ExclusiveExecution.Properties.Caption = "" + Me.chb_ExclusiveExecution.Size = New System.Drawing.Size(307, 19) + Me.chb_ExclusiveExecution.TabIndex = 5 + Me.chb_ExclusiveExecution.ToolTip = "When ticked, the launcher will be hidden and waits until the application has been" & + " closed." + ' + 'lbl_Category + ' + Me.lbl_Category.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Category.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Category.Location = New System.Drawing.Point(4, 53) + Me.lbl_Category.MKBoundControl1 = Nothing + Me.lbl_Category.MKBoundControl2 = Nothing + Me.lbl_Category.MKBoundControl3 = Nothing + Me.lbl_Category.MKBoundControl4 = Nothing + Me.lbl_Category.MKBoundControl5 = Nothing + Me.lbl_Category.Name = "lbl_Category" + Me.lbl_Category.Size = New System.Drawing.Size(110, 20) + Me.lbl_Category.TabIndex = 5 + Me.lbl_Category.Text = "Category:" + ' + 'cmb_Category + ' + Me.cmb_Category.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Category.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Apps, "id_Categories", True)) + Me.cmb_Category.Location = New System.Drawing.Point(118, 53) + Me.cmb_Category.MKBoundLabel = Nothing + Me.cmb_Category.MKEditValue_Compare = Nothing + Me.cmb_Category.Name = "cmb_Category" + Me.cmb_Category.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Category.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Categories", "id_Categories", 89, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Category", "Category", 55, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Category.Properties.DataSource = Me.BS_Categories + Me.cmb_Category.Properties.DisplayMember = "Category" + Me.cmb_Category.Properties.NullText = "[Please choose]" + Me.cmb_Category.Properties.ShowFooter = False + Me.cmb_Category.Properties.ShowHeader = False + Me.cmb_Category.Properties.ValueMember = "id_Categories" + Me.cmb_Category.Size = New System.Drawing.Size(304, 20) + Me.cmb_Category.TabIndex = 0 + ' + 'lbl_Description + ' + Me.lbl_Description.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Description.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Description.Location = New System.Drawing.Point(5, 145) + Me.lbl_Description.MKBoundControl1 = Nothing + Me.lbl_Description.MKBoundControl2 = Nothing + Me.lbl_Description.MKBoundControl3 = Nothing + Me.lbl_Description.MKBoundControl4 = Nothing + Me.lbl_Description.MKBoundControl5 = Nothing + Me.lbl_Description.Name = "lbl_Description" + Me.lbl_Description.Size = New System.Drawing.Size(110, 20) + Me.lbl_Description.TabIndex = 1 + Me.lbl_Description.Text = "Description:" + ' + 'txb_Description + ' + Me.txb_Description.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Description.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Apps, "Description", True)) + Me.txb_Description.Location = New System.Drawing.Point(117, 145) + Me.txb_Description.MKBoundLabel = Nothing + Me.txb_Description.MKEditValue_Compare = Nothing + Me.txb_Description.Name = "txb_Description" + Me.txb_Description.Size = New System.Drawing.Size(305, 205) + Me.txb_Description.TabIndex = 6 + ' + 'Ctl_MKDXPanel1 + ' + Me.Ctl_MKDXPanel1.Controls.Add(Me.txb_Description) + Me.Ctl_MKDXPanel1.Controls.Add(Me.cmb_Category) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Category) + Me.Ctl_MKDXPanel1.Controls.Add(Me.chb_ExclusiveExecution) + Me.Ctl_MKDXPanel1.Controls.Add(Me.txb_Executable) + Me.Ctl_MKDXPanel1.Controls.Add(Me.txb_Application) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Title) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Description) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_ExclusiveExecution) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Exec) + Me.Ctl_MKDXPanel1.Controls.Add(Me.Ctl_MKDXLabel1) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Cancel) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Executable) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_OK) + Me.Ctl_MKDXPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXPanel1.Location = New System.Drawing.Point(0, 0) + Me.Ctl_MKDXPanel1.Name = "Ctl_MKDXPanel1" + Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(425, 383) + Me.Ctl_MKDXPanel1.TabIndex = 8 + ' + 'frm_App_Edit + ' + Me.ClientSize = New System.Drawing.Size(425, 383) + Me.Controls.Add(Me.Ctl_MKDXPanel1) + Me.Name = "frm_App_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.BS_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Application.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_ExclusiveExecution.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Category.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents BS_Apps As System.Windows.Forms.BindingSource + Friend WithEvents DS_MLApps As Metropolis_Launcher.DS_MLApps + Friend WithEvents BS_Categories As System.Windows.Forms.BindingSource + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents Ctl_MKDXLabel1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Exec As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ExclusiveExecution As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Title As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Application As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Executable As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_Executable As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents chb_ExclusiveExecution As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Category As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Category As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Description As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Description As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents Ctl_MKDXPanel1 As MKNetDXLib.ctl_MKDXPanel + +End Class diff --git a/Metropolis_Launcher/Forms/frm_App_Edit.resx b/Metropolis_Launcher/Forms/frm_App_Edit.resx new file mode 100644 index 0000000..0fb7db5 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_App_Edit.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 110, 17 + + + 227, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_App_Edit.vb b/Metropolis_Launcher/Forms/frm_App_Edit.vb new file mode 100644 index 0000000..14ea23e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_App_Edit.vb @@ -0,0 +1,39 @@ +Public Class frm_App_Edit + Public Sub New(ByRef BS_Categories_New As BindingSource, ByRef BS_Apps_New As BindingSource) + InitializeComponent() + + Cursor.Current = Cursors.WaitCursor + + MKNetLib.frm_MKBaseform.UpdateBindingsources(Me.Controls, Me.BS_Categories, BS_Categories_New) + MKNetLib.frm_MKBaseform.UpdateBindingsources(Me.Controls, Me.BS_Apps, BS_Apps_New) + + Me.BS_Apps = BS_Apps_New + Me.BS_Categories = BS_Categories_New + + Cursor.Current = Cursors.Default + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + 'TODO: Checks + If TC.NZ(cmb_Category.EditValue, 0) = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please choose a category.") + cmb_Category.Focus() + Return + End If + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub btn_Executable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Executable.Click + Dim ofd As New OpenFileDialog + ofd.Filter = "Executables |*.exe;*.bat;*.cmd;*.lnk" + If ofd.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Me.txb_Executable.EditValue = ofd.FileName + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Backup.Designer.vb b/Metropolis_Launcher/Forms/frm_Backup.Designer.vb new file mode 100644 index 0000000..3bab5f6 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Backup.Designer.vb @@ -0,0 +1,76 @@ + _ +Partial Class frm_Backup + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.mpb_Progress = New MKNetDXLib.ctl_MKDXMarqueeProgressBar() + Me.lbl_Progress = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.mpb_Progress.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'mpb_Progress + ' + Me.mpb_Progress.EditValue = 0 + Me.mpb_Progress.Location = New System.Drawing.Point(2, 19) + Me.mpb_Progress.Name = "mpb_Progress" + Me.mpb_Progress.Properties.ProgressAnimationMode = DevExpress.Utils.Drawing.ProgressAnimationMode.Cycle + Me.mpb_Progress.Size = New System.Drawing.Size(376, 18) + Me.mpb_Progress.TabIndex = 5 + ' + 'lbl_Progress + ' + Me.lbl_Progress.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Progress.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.lbl_Progress.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Progress.Location = New System.Drawing.Point(0, 0) + Me.lbl_Progress.MKBoundControl1 = Nothing + Me.lbl_Progress.MKBoundControl2 = Nothing + Me.lbl_Progress.MKBoundControl3 = Nothing + Me.lbl_Progress.MKBoundControl4 = Nothing + Me.lbl_Progress.MKBoundControl5 = Nothing + Me.lbl_Progress.Name = "lbl_Progress" + Me.lbl_Progress.Size = New System.Drawing.Size(166, 13) + Me.lbl_Progress.TabIndex = 4 + Me.lbl_Progress.Text = "Please wait - Backup in progress..." + ' + 'frm_Backup + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(381, 53) + Me.ControlBox = False + Me.Controls.Add(Me.mpb_Progress) + Me.Controls.Add(Me.lbl_Progress) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "frm_Backup" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Metropolis Launcher" + Me.TopMost = True + CType(Me.mpb_Progress.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents mpb_Progress As MKNetDXLib.ctl_MKDXMarqueeProgressBar + Friend WithEvents lbl_Progress As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Backup.resx b/Metropolis_Launcher/Forms/frm_Backup.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Backup.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Backup.vb b/Metropolis_Launcher/Forms/frm_Backup.vb new file mode 100644 index 0000000..06e4199 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Backup.vb @@ -0,0 +1,14 @@ +Public Class frm_Backup + Private _backupDir As String + Private _backupRetention As Integer + + Public Sub New(backupDir As String, backupRetention As Integer) + InitializeComponent() + + Me._backupDir = backupDir + End Sub + + Private Sub frm_Backup_Shown(sender As Object, e As EventArgs) Handles Me.Shown + + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.Designer.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.Designer.vb new file mode 100644 index 0000000..3e46ba8 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.Designer.vb @@ -0,0 +1,206 @@ + _ +Partial Class frm_DOSBox_Choose_Exe + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Just_Mount = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.grd_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Files_and_Folders = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DOSBox_Files_and_Folders = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_DOSBox_Displayname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Moby_Releases = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.RepositoryItemLookUpEdit5 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.RepositoryItemCheckEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.rpi_MV_Volume = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemLookUpEdit5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(217, 3) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 0 + Me.btn_OK.Text = "&OK" + ' + 'btn_Just_Mount + ' + Me.btn_Just_Mount.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Just_Mount.Location = New System.Drawing.Point(295, 3) + Me.btn_Just_Mount.Name = "btn_Just_Mount" + Me.btn_Just_Mount.Size = New System.Drawing.Size(75, 23) + Me.btn_Just_Mount.TabIndex = 1 + Me.btn_Just_Mount.Text = "&Just mount" + ' + 'grd_DOSBox_Files_and_Folders + ' + Me.grd_DOSBox_Files_and_Folders.DataSource = Me.BS_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 45) + Me.grd_DOSBox_Files_and_Folders.MainView = Me.gv_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Name = "grd_DOSBox_Files_and_Folders" + Me.grd_DOSBox_Files_and_Folders.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Releases, Me.RepositoryItemLookUpEdit5, Me.RepositoryItemCheckEdit2, Me.rpi_MV_Volume}) + Me.grd_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(372, 310) + Me.grd_DOSBox_Files_and_Folders.TabIndex = 0 + Me.grd_DOSBox_Files_and_Folders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Files_and_Folders}) + ' + 'BS_DOSBox_Files_and_Folders + ' + Me.BS_DOSBox_Files_and_Folders.Filter = "" + ' + 'gv_DOSBox_Files_and_Folders + ' + Me.gv_DOSBox_Files_and_Folders.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_DOSBox_Displayname}) + Me.gv_DOSBox_Files_and_Folders.GridControl = Me.grd_DOSBox_Files_and_Folders + Me.gv_DOSBox_Files_and_Folders.Name = "gv_DOSBox_Files_and_Folders" + Me.gv_DOSBox_Files_and_Folders.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DOSBox_Files_and_Folders.OptionsSelection.InvertSelection = True + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowColumnHeaders = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowIndicator = False + ' + 'col_DOSBox_Displayname + ' + Me.col_DOSBox_Displayname.Caption = "File/Directory" + Me.col_DOSBox_Displayname.Name = "col_DOSBox_Displayname" + Me.col_DOSBox_Displayname.OptionsColumn.AllowEdit = False + Me.col_DOSBox_Displayname.Visible = True + Me.col_DOSBox_Displayname.VisibleIndex = 0 + Me.col_DOSBox_Displayname.Width = 163 + ' + 'rpi_Moby_Releases + ' + Me.rpi_Moby_Releases.AutoHeight = False + Me.rpi_Moby_Releases.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Releases.DisplayMember = "Gamename" + Me.rpi_Moby_Releases.Name = "rpi_Moby_Releases" + Me.rpi_Moby_Releases.NullText = "" + Me.rpi_Moby_Releases.ValueMember = "Moby_Games_URLPart" + ' + 'RepositoryItemLookUpEdit5 + ' + Me.RepositoryItemLookUpEdit5.AutoHeight = False + Me.RepositoryItemLookUpEdit5.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemLookUpEdit5.DisplayMember = "Display_Name" + Me.RepositoryItemLookUpEdit5.Name = "RepositoryItemLookUpEdit5" + Me.RepositoryItemLookUpEdit5.ValueMember = "id_Moby_Platforms" + ' + 'RepositoryItemCheckEdit2 + ' + Me.RepositoryItemCheckEdit2.AutoHeight = False + Me.RepositoryItemCheckEdit2.Name = "RepositoryItemCheckEdit2" + Me.RepositoryItemCheckEdit2.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'rpi_MV_Volume + ' + Me.rpi_MV_Volume.AutoHeight = False + Me.rpi_MV_Volume.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_MV_Volume.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_MV_Volume.DisplayMember = "DisplayText" + Me.rpi_MV_Volume.Name = "rpi_MV_Volume" + Me.rpi_MV_Volume.NullText = "Not a volume" + Me.rpi_MV_Volume.ShowHeader = False + Me.rpi_MV_Volume.ValueMember = "id_Tag_Parser_Volumes" + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top + Me.lbl_Explanation.AutoEllipsis = True + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(372, 45) + Me.lbl_Explanation.TabIndex = 7 + Me.lbl_Explanation.Text = "Please select a file for autostart in the list below and press OK. If you choose " & + "'Just mount', DOSBox will start and mount but won't autostart an executable." + ' + 'Ctl_MKDXPanel1 + ' + Me.Ctl_MKDXPanel1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_OK) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Just_Mount) + Me.Ctl_MKDXPanel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Ctl_MKDXPanel1.Location = New System.Drawing.Point(0, 355) + Me.Ctl_MKDXPanel1.Name = "Ctl_MKDXPanel1" + Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(372, 29) + Me.Ctl_MKDXPanel1.TabIndex = 8 + ' + 'frm_DOSBox_Choose_Exe + ' + Me.ClientSize = New System.Drawing.Size(372, 384) + Me.Controls.Add(Me.grd_DOSBox_Files_and_Folders) + Me.Controls.Add(Me.Ctl_MKDXPanel1) + Me.Controls.Add(Me.lbl_Explanation) + Me.Name = "frm_DOSBox_Choose_Exe" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Choose an executable" + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemLookUpEdit5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Just_Mount As MKNetDXLib.ctl_MKDXSimpleButton + Private WithEvents grd_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_DOSBox_Files_and_Folders As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_DOSBox_Displayname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Moby_Releases As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents RepositoryItemLookUpEdit5 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents RepositoryItemCheckEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_MV_Volume As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXPanel1 As MKNetDXLib.ctl_MKDXPanel + Public WithEvents BS_DOSBox_Files_and_Folders As System.Windows.Forms.BindingSource + +End Class diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.resx b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.resx new file mode 100644 index 0000000..735a11f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 15, 9 + + + 48 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb new file mode 100644 index 0000000..206c3ae --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb @@ -0,0 +1,50 @@ +Public Class frm_DOSBox_Choose_Exe + Public Sub New(ByVal Exe_Type As String, ByVal Filter As String, ByVal dt As DS_ML.tbl_Emu_GamesDataTable) + InitializeComponent() + + Me.Text = Exe_Type.ToUpper & " executable" + Me.lbl_Explanation.Text = "Please select a file for autostart as the " & Exe_Type & " executable in the list below and press OK. If you choose 'Just mount', DOSBox will start but won't autostart an executable." + Me.BS_DOSBox_Files_and_Folders.DataSource = dt + Me.BS_DOSBox_Files_and_Folders.Filter = Filter + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Just_Mount.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub gv_DOSBox_Files_and_Folders_CustomColumnDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) Handles gv_DOSBox_Files_and_Folders.CustomColumnDisplayText + If e.Column Is col_DOSBox_Displayname Then + 'Dim row As DataRow = gv_DOSBox_Files_and_Folders.GetRow(e.ListSourceRowIndex).Row + Dim oInnerFile As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "InnerFile") + Dim oFolder As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "Folder") + + If TC.NZ(oInnerFile, "").Length > 0 Then + e.DisplayText = oInnerFile + Else + e.DisplayText = oFolder + End If + End If + End Sub + + Private Sub gv_DOSBox_Files_and_Folders_DoubleClick(sender As Object, e As System.EventArgs) Handles gv_DOSBox_Files_and_Folders.DoubleClick + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub gv_DOSBox_Files_and_Folders_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles gv_DOSBox_Files_and_Folders.KeyDown + If e.KeyCode = Keys.Enter Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End If + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.Designer.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.Designer.vb new file mode 100644 index 0000000..f3e4fdf --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.Designer.vb @@ -0,0 +1,232 @@ + _ +Partial Class frm_DOSBox_Choose_NIC + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_DOSBox_Choose_NIC)) + Me.grd_NIC = New MKNetDXLib.ctl_MKDXGrid() + Me.BTA_NIC = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.gv_NIC = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Displaytext = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Moby_Releases = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.RepositoryItemLookUpEdit5 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.RepositoryItemCheckEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.rpi_MV_Volume = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + CType(Me.grd_NIC, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_NIC, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_NIC, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemLookUpEdit5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grd_NIC + ' + Me.grd_NIC.DataSource = Me.BTA_NIC + Me.grd_NIC.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_NIC.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_NIC.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_NIC.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_NIC.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_NIC.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_NIC.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_NIC.Location = New System.Drawing.Point(0, 19) + Me.grd_NIC.MainView = Me.gv_NIC + Me.grd_NIC.Name = "grd_NIC" + Me.grd_NIC.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Releases, Me.RepositoryItemLookUpEdit5, Me.RepositoryItemCheckEdit2, Me.rpi_MV_Volume}) + Me.grd_NIC.Size = New System.Drawing.Size(384, 352) + Me.grd_NIC.TabIndex = 0 + Me.grd_NIC.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_NIC}) + ' + 'BTA_NIC + ' + Me.BTA_NIC.AllowDelete = True + Me.BTA_NIC.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_NIC.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_NIC.Connection = Nothing + Me.BTA_NIC.DSStream = CType(resources.GetObject("BTA_NIC.DSStream"), System.IO.MemoryStream) + Me.BTA_NIC.FillString = "" + Me.BTA_NIC.Transaction = Nothing + Me.BTA_NIC.UpdateTablesStream = CType(resources.GetObject("BTA_NIC.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'gv_NIC + ' + Me.gv_NIC.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Displaytext}) + Me.gv_NIC.GridControl = Me.grd_NIC + Me.gv_NIC.Name = "gv_NIC" + Me.gv_NIC.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_NIC.OptionsSelection.InvertSelection = True + Me.gv_NIC.OptionsView.ShowColumnHeaders = False + Me.gv_NIC.OptionsView.ShowGroupPanel = False + Me.gv_NIC.OptionsView.ShowIndicator = False + ' + 'col_Displaytext + ' + Me.col_Displaytext.Caption = "Network Interface Cards" + Me.col_Displaytext.FieldName = "Displaytext" + Me.col_Displaytext.Name = "col_Displaytext" + Me.col_Displaytext.OptionsColumn.AllowEdit = False + Me.col_Displaytext.Visible = True + Me.col_Displaytext.VisibleIndex = 0 + Me.col_Displaytext.Width = 163 + ' + 'rpi_Moby_Releases + ' + Me.rpi_Moby_Releases.AutoHeight = False + Me.rpi_Moby_Releases.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Releases.DisplayMember = "Gamename" + Me.rpi_Moby_Releases.Name = "rpi_Moby_Releases" + Me.rpi_Moby_Releases.NullText = "" + Me.rpi_Moby_Releases.ValueMember = "Moby_Games_URLPart" + ' + 'RepositoryItemLookUpEdit5 + ' + Me.RepositoryItemLookUpEdit5.AutoHeight = False + Me.RepositoryItemLookUpEdit5.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemLookUpEdit5.DisplayMember = "Display_Name" + Me.RepositoryItemLookUpEdit5.Name = "RepositoryItemLookUpEdit5" + Me.RepositoryItemLookUpEdit5.ValueMember = "id_Moby_Platforms" + ' + 'RepositoryItemCheckEdit2 + ' + Me.RepositoryItemCheckEdit2.AutoHeight = False + Me.RepositoryItemCheckEdit2.Name = "RepositoryItemCheckEdit2" + Me.RepositoryItemCheckEdit2.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'rpi_MV_Volume + ' + Me.rpi_MV_Volume.AutoHeight = False + Me.rpi_MV_Volume.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_MV_Volume.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_MV_Volume.DisplayMember = "DisplayText" + Me.rpi_MV_Volume.Name = "rpi_MV_Volume" + Me.rpi_MV_Volume.NullText = "Not a volume" + Me.rpi_MV_Volume.ShowHeader = False + Me.rpi_MV_Volume.ValueMember = "id_Tag_Parser_Volumes" + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom.Controls.Add(Me.btn_OK) + Me.pnl_Bottom.Controls.Add(Me.btn_Cancel) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 371) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(384, 29) + Me.pnl_Bottom.TabIndex = 11 + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(229, 3) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 0 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(307, 3) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 1 + Me.btn_Cancel.Text = "&Cancel" + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top + Me.lbl_Explanation.AutoEllipsis = True + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(384, 19) + Me.lbl_Explanation.TabIndex = 10 + Me.lbl_Explanation.Text = "Please select a network interface card from the list below." + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1}) + Me.DataTable1.TableName = "Table1" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "Displaytext" + ' + 'frm_DOSBox_Choose_NIC + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(384, 400) + Me.Controls.Add(Me.grd_NIC) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.lbl_Explanation) + Me.Name = "frm_DOSBox_Choose_NIC" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Choose NIC" + CType(Me.grd_NIC, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_NIC, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_NIC, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemLookUpEdit5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Private WithEvents grd_NIC As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_NIC As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Displaytext As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Moby_Releases As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents RepositoryItemLookUpEdit5 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents RepositoryItemCheckEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_MV_Volume As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_NIC As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.resx b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.resx new file mode 100644 index 0000000..4a75c8b --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.resx @@ -0,0 +1,169 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAIgIAACICAAA0BAAAAQEBAQoPAgAAADQEAAACH4sIAAAAAAAEAJ1US2/aQBCGJKDS + tL300KvlM9i4eTUWTqQGqaqa0CrQKrdosQfY1LtL9wHm1t/UP5jO4oUkiKhSx9LueB7ffDv7qFQrlco9 + ip2tvNrBoddfKA0s6BJNmt4PkIoKnhwGbfs1vQuTayMh4WC0JHnT+2aGOU2/wGIgfgJPhicn5Cg9Oo5O + Dw6h/eG0ZsHfPsJcDn3Qu2h/5/TgGpjQlI9ducYNy/vpBBjZR61LR6NPkrDdavWNA3Jxlm/DAtX3cPhT + 65wXLPdmjrMfBW3fA56KDKET3+hRKzr2z89ev+wUKlbLAh7NEr8Hc8fE9xCBq8R3SlygPtF6GofhfD4P + 5geBkOPwfbsdhTdXlyXJVSxTGaJgIckdumoxmkqhxEi3UsFijGuVUT6y8DzLA3JgwLXHCYOnVMrI+LNy + lsTX0sDa/l3BhZEScy9FSnJw7iVwCY0lpzkUg8UUnNXZJ4Km4DHKv6apkbhEbBQjxerP8KEwPIPMX6dt + 4zogwxyixzHPl33wKvhlcFM2XdsKdKma5mShocBuaIRLfAugJe7nug2ayDHoHiaoKUnBbt3ThYWbJMLn + WCw929kvXY7dQy/DdTNXXd+GsJFb1l+ej7N6DQ/u72onwzM+lnE5EfY/B8rllBD/ylkVas0i26A9e4k2 + Lpe9UvXbK3InJE6U2+mjoXnWuL2GGbUh9tF4gbLjHpB7J/t/Aeucf9RbBAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.vb new file mode 100644 index 0000000..395ac6f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_NIC.vb @@ -0,0 +1,46 @@ +Public Class frm_DOSBox_Choose_NIC + Public ReadOnly Property Selected_NIC As String + Get + If BTA_NIC.Current IsNot Nothing Then + Return BTA_NIC.Current("Displaytext") + Else + Return "" + End If + End Get + End Property + + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub frm_DOSBox_Choose_NIC_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown + Dim bFound As Boolean = False + + For Each nic As System.Net.NetworkInformation.NetworkInterface In System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces + Dim row As DataRowView = BTA_NIC.AddNew() + row("Displaytext") = nic.Description + bFound = True + Next + + If Not bFound Then + DevExpress.XtraEditors.XtraMessageBox.Show("It seems that there could no network interface card be found. The window will be closed.", "Could not find any NICs", MessageBoxButtons.OK, MessageBoxIcon.Information) + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End If + End Sub + + Private Sub btn_OK_Click(sender As System.Object, e As System.EventArgs) Handles btn_OK.Click + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(sender As System.Object, e As System.EventArgs) Handles btn_Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub gv_NIC_DoubleClick(sender As System.Object, e As System.EventArgs) Handles gv_NIC.DoubleClick + btn_OK.PerformClick() + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Templates.Designer.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.Designer.vb new file mode 100644 index 0000000..1d118d7 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.Designer.vb @@ -0,0 +1,285 @@ + _ +Partial Class frm_DOSBox_Templates + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.splt_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.btn_Duplicate_Template = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Delete = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Add = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.grd_DOSBox_Configs = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Configs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_DOSBox_Config = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colDisplayname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.ucr_DOSBox_Config = New Metropolis_Launcher.ucr_DOSBox_Config() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Duplicate = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_DOSBox_Templates = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_Main.SuspendLayout() + CType(Me.grd_DOSBox_Configs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Configs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_DOSBox_Templates, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'splt_Main + ' + Me.splt_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.splt_Main.Location = New System.Drawing.Point(0, 0) + Me.splt_Main.Name = "splt_Main" + Me.splt_Main.Panel1.Controls.Add(Me.btn_Duplicate_Template) + Me.splt_Main.Panel1.Controls.Add(Me.btn_Delete) + Me.splt_Main.Panel1.Controls.Add(Me.btn_Add) + Me.splt_Main.Panel1.Controls.Add(Me.grd_DOSBox_Configs) + Me.splt_Main.Panel1.MinSize = 237 + Me.splt_Main.Panel1.Text = "Panel1" + Me.splt_Main.Panel2.Controls.Add(Me.ucr_DOSBox_Config) + Me.splt_Main.Panel2.Text = "Panel2" + Me.splt_Main.Size = New System.Drawing.Size(784, 447) + Me.splt_Main.SplitterPosition = 237 + Me.splt_Main.TabIndex = 0 + Me.splt_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'btn_Duplicate_Template + ' + Me.btn_Duplicate_Template.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Duplicate_Template.Location = New System.Drawing.Point(81, 421) + Me.btn_Duplicate_Template.Name = "btn_Duplicate_Template" + Me.btn_Duplicate_Template.Size = New System.Drawing.Size(75, 23) + ToolTipTitleItem1.Text = "Duplicate" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Duplicate the selected DOSBox Template" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.btn_Duplicate_Template.SuperTip = SuperToolTip1 + Me.btn_Duplicate_Template.TabIndex = 2 + Me.btn_Duplicate_Template.Text = "D&uplicate" + ' + 'btn_Delete + ' + Me.btn_Delete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Delete.Location = New System.Drawing.Point(159, 421) + Me.btn_Delete.Name = "btn_Delete" + Me.btn_Delete.Size = New System.Drawing.Size(75, 23) + ToolTipTitleItem2.Text = "Delete" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Delete the current DOSBox Template." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.btn_Delete.SuperTip = SuperToolTip2 + Me.btn_Delete.TabIndex = 3 + Me.btn_Delete.Text = "&Delete" + ' + 'btn_Add + ' + Me.btn_Add.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Add.Location = New System.Drawing.Point(3, 421) + Me.btn_Add.Name = "btn_Add" + Me.btn_Add.Size = New System.Drawing.Size(75, 23) + ToolTipTitleItem3.Text = "Add" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Add a new DOSBox Template to the list." + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.btn_Add.SuperTip = SuperToolTip3 + Me.btn_Add.TabIndex = 1 + Me.btn_Add.Text = "&Add" + ' + 'grd_DOSBox_Configs + ' + Me.grd_DOSBox_Configs.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_DOSBox_Configs.DataSource = Me.BS_DOSBox_Configs + Me.grd_DOSBox_Configs.Location = New System.Drawing.Point(3, 3) + Me.grd_DOSBox_Configs.MainView = Me.gv_DOSBox_Config + Me.grd_DOSBox_Configs.Name = "grd_DOSBox_Configs" + Me.grd_DOSBox_Configs.Size = New System.Drawing.Size(232, 415) + Me.grd_DOSBox_Configs.TabIndex = 0 + Me.grd_DOSBox_Configs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Config}) + ' + 'BS_DOSBox_Configs + ' + Me.BS_DOSBox_Configs.DataMember = "tbl_DOSBox_Configs" + Me.BS_DOSBox_Configs.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_DOSBox_Config + ' + Me.gv_DOSBox_Config.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colDisplayname}) + Me.gv_DOSBox_Config.GridControl = Me.grd_DOSBox_Configs + Me.gv_DOSBox_Config.Name = "gv_DOSBox_Config" + Me.gv_DOSBox_Config.OptionsSelection.InvertSelection = True + Me.gv_DOSBox_Config.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Config.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] + Me.gv_DOSBox_Config.OptionsView.ShowIndicator = False + ' + 'colDisplayname + ' + Me.colDisplayname.Caption = "DOSBox Template" + Me.colDisplayname.FieldName = "Displayname" + Me.colDisplayname.Name = "colDisplayname" + Me.colDisplayname.OptionsColumn.AllowEdit = False + Me.colDisplayname.OptionsColumn.ReadOnly = True + Me.colDisplayname.Visible = True + Me.colDisplayname.VisibleIndex = 0 + ' + 'ucr_DOSBox_Config + ' + Me.ucr_DOSBox_Config.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ucr_DOSBox_Config.Location = New System.Drawing.Point(0, 3) + Me.ucr_DOSBox_Config.Name = "ucr_DOSBox_Config" + Me.ucr_DOSBox_Config.Size = New System.Drawing.Size(539, 441) + Me.ucr_DOSBox_Config.TabIndex = 0 + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Add, Me.bbi_Duplicate, Me.bbi_Delete}) + Me.barmng.MaxItemId = 3 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(784, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 447) + Me.barDockControlBottom.Size = New System.Drawing.Size(784, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 447) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(784, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 447) + ' + 'bbi_Add + ' + Me.bbi_Add.Caption = "&Add" + Me.bbi_Add.Id = 0 + Me.bbi_Add.ImageUri.Uri = "Add" + Me.bbi_Add.Name = "bbi_Add" + ' + 'bbi_Duplicate + ' + Me.bbi_Duplicate.Caption = "&Duplicate" + Me.bbi_Duplicate.Id = 1 + Me.bbi_Duplicate.ImageUri.Uri = "Copy" + Me.bbi_Duplicate.Name = "bbi_Duplicate" + ' + 'bbi_Delete + ' + Me.bbi_Delete.Caption = "De&lete" + Me.bbi_Delete.Id = 2 + Me.bbi_Delete.ImageUri.Uri = "Delete" + Me.bbi_Delete.Name = "bbi_Delete" + ' + 'popmnu_DOSBox_Templates + ' + Me.popmnu_DOSBox_Templates.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Duplicate), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete)}) + Me.popmnu_DOSBox_Templates.Manager = Me.barmng + Me.popmnu_DOSBox_Templates.Name = "popmnu_DOSBox_Templates" + ' + 'frm_DOSBox_Templates + ' + Me.ClientSize = New System.Drawing.Size(784, 447) + Me.Controls.Add(Me.splt_Main) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_DOSBox_Templates" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "DOSBox Templates" + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_Main.ResumeLayout(False) + CType(Me.grd_DOSBox_Configs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Configs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_DOSBox_Templates, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents splt_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents grd_DOSBox_Configs As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BS_DOSBox_Configs As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents gv_DOSBox_Config As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colDisplayname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Delete As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Add As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents ucr_DOSBox_Config As Metropolis_Launcher.ucr_DOSBox_Config + Friend WithEvents btn_Duplicate_Template As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Add As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Duplicate As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_DOSBox_Templates As MKNetDXLib.cmp_MKDXPopupMenu +End Class diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Templates.resx b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.resx new file mode 100644 index 0000000..089bc23 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + + 451, 17 + + + 101 + + + 17, 56 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Templates.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.vb new file mode 100644 index 0000000..efa558a --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Templates.vb @@ -0,0 +1,209 @@ +Imports System.ComponentModel + +Public Class frm_DOSBox_Templates + Public Sub New() + InitializeComponent() + Reload_Templates() + + barmng.SetPopupContextMenu(grd_DOSBox_Configs, popmnu_DOSBox_Templates) + End Sub + + Public Sub Reload_Templates(Optional ByVal id_DOSBox_Configs As Long = 0) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_DOSBox_Template_Configs(tran, DS_ML.tbl_DOSBox_Configs) + End Using + + If id_DOSBox_Configs <> 0 Then + BS_DOSBox_Configs.Position = BS_DOSBox_Configs.Find("id_DOSBox_Configs", id_DOSBox_Configs) + End If + End Sub + + Private Sub BS_DOSBox_Configs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BS_DOSBox_Configs.CurrentChanged + If BS_DOSBox_Configs.Current Is Nothing Then + Me.ucr_DOSBox_Config.Clear() + Return + End If + + Me.ucr_DOSBox_Config.Load_Template(BS_DOSBox_Configs.Current("id_DOSBox_Configs")) + End Sub + + ''' + ''' Save (or better: ask for Save with Yes/No/Cancel) + ''' + ''' + ''' + ''' + ''' True if either Yes or No is chosen, False if Cancelled + ''' + Private Function Save(ByVal ShowMessage As Boolean, ByVal Message_Text As String, ByVal Message_Title As String) As Boolean + If ucr_DOSBox_Config.HasChanges Then + Dim res As DialogResult = Windows.Forms.DialogResult.Yes + If ShowMessage Then + res = DevExpress.XtraEditors.XtraMessageBox.Show(Message_Text, Message_Title, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + End If + + If res = Windows.Forms.DialogResult.Yes Then + Me.ucr_DOSBox_Config.Save_Template() + Return True + End If + + If res = Windows.Forms.DialogResult.No Then + Me.ucr_DOSBox_Config.Reject_Configuration() + Return True + End If + + If res = Windows.Forms.DialogResult.Cancel Then + Return False + End If + End If + + Return True + End Function + + Private Sub btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add.Click, bbi_Add.ItemClick + If Not Save(True, "Do you want to save your changes before adding a new DOSBox Template?", "Add Template") Then + Return + End If + + Dim sNewTemplateName As String = "" + + Dim bDone As Boolean = False + + While Not bDone + Using frm As New MKNetDXLib.frm_TextBoxEdit("Template Name:", "Add Template", "") + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + sNewTemplateName = frm.Input + Else + Return + End If + End Using + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM main.tbl_DOSBox_Configs WHERE Displayname = " & TC.getSQLFormat(sNewTemplateName)), 0) > 0 Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("There already exists a Template with the name '" & sNewTemplateName & "'. Do you really want to create a template with the same name?", "Add Template", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + If res = Windows.Forms.DialogResult.Cancel Then + Return + End If + If res = Windows.Forms.DialogResult.Yes Then + bDone = True + End If + If res = Windows.Forms.DialogResult.No Then + bDone = False + End If + Else + bDone = True + End If + End While + + Dim id_DOSBox_Configs As Long = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "INSERT INTO main.tbl_DOSBox_Configs (Displayname, isTemplate) VALUES (" & TC.getSQLFormat(sNewTemplateName) & ", 1); SELECT last_insert_rowid()"), 0L) + + Me.Reload_Templates(id_DOSBox_Configs) + End Sub + + Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click, bbi_Delete.ItemClick + If BS_DOSBox_Configs.Current Is Nothing Then Return + + Cursor = Cursors.WaitCursor + + If TC.NZ(BS_DOSBox_Configs.Current("id_Rombase_DOSBox_Configs"), 0) <> 0 Then + Cursor = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("This template cannot be deleted because it is part of the Metropolis Launcher installation. You can however modify it as you like.", "Delete Template", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return + End If + + Dim iNumChildren As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM main.tbl_Emu_Games WHERE id_DOSBox_Configs_Template = " & BS_DOSBox_Configs.Current("id_DOSBox_Configs")), 0) + + Cursor = Cursors.Default + + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete template '" & BS_DOSBox_Configs.Current("Displayname") & "'?" & IIf(iNumChildren > 0, ControlChars.CrLf & ControlChars.CrLf & "WARNING: " & iNumChildren & " DOSBox configurations rely on this template and will be assigned to the Default Template!", ""), "Delete Template", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then + Cursor = Cursors.WaitCursor + + Dim id_Rombase_DOSBox_Configs As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Rombase_DOSBox_Configs FROM rombase.tbl_Rombase_DOSBox_Configs WHERE isDefault = 1 LIMIT 1"), 0) + Dim id_DOSBox_Configs As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_DOSBox_Configs FROM tbl_DOSBox_Configs WHERE id_Rombase_DOSBox_Configs = " & TC.getSQLFormat(id_Rombase_DOSBox_Configs) & " LIMIT 1"), 0) + + + If id_DOSBox_Configs = 0 Then + Cursor = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("Error: unable to find the Default Template, aborting.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + Else + If Not DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET id_DOSBox_Configs_Template = " & TC.getSQLFormat(id_DOSBox_Configs) & " WHERE id_DOSBox_Configs_Template = " & TC.getSQLFormat(BS_DOSBox_Configs.Current("id_DOSBox_Configs"))) Then + Cursor = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("Error: can't assign the Default Template, aborting.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End If + + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM main.tbl_DOSBox_Configs WHERE id_DOSBox_Configs = " & TC.getSQLFormat(BS_DOSBox_Configs.Current("id_DOSBox_Configs"))) + Me.Reload_Templates() + Cursor = Cursors.Default + End If + End Sub + + Private Sub btn_Duplicate_Template_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Duplicate_Template.Click, bbi_Duplicate.ItemClick + If BS_DOSBox_Configs.Current Is Nothing Then Return + + Dim sNewTemplateName As String = TC.NZ(BS_DOSBox_Configs.Current("Displayname"), "") & " Copy" + + Dim bDone As Boolean = False + + While Not bDone + Using frm As New MKNetDXLib.frm_TextBoxEdit("Template Name:", "Duplicate Template", sNewTemplateName) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + sNewTemplateName = frm.Input + Else + Return + End If + End Using + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM main.tbl_DOSBox_Configs WHERE Displayname = " & TC.getSQLFormat(sNewTemplateName)), 0) > 0 Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("There already exists a Template with the name '" & sNewTemplateName & "'. Do you really want to create a template with the same name?", "Add Template", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + If res = Windows.Forms.DialogResult.Cancel Then + Return + End If + If res = Windows.Forms.DialogResult.Yes Then + bDone = True + End If + If res = Windows.Forms.DialogResult.No Then + bDone = False + End If + Else + bDone = True + End If + End While + + Dim id_DOSBox_Configs As Long = ucr_DOSBox_Config.Save_Template(True, sNewTemplateName) + + Me.Reload_Templates(id_DOSBox_Configs) + End Sub + + Private Sub gv_DOSBox_Config_BeforeLeaveRow(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.RowAllowEventArgs) Handles gv_DOSBox_Config.BeforeLeaveRow + If Not Save(True, "Do you want to save your changes before switching to another template?", "Switching Templates") Then + e.Allow = False + Return + End If + End Sub + + Private Sub ucr_DOSBox_Config_E_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ucr_DOSBox_Config.E_Close + Me.Close() + End Sub + + Private Sub frm_DOSBox_Templates_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + If Not Save(True, "Do you want to save your changes before closing the DOSBox Templates editor?", "Close") Then + e.Cancel = True + Return + End If + End Sub + + Private Sub popmnu_DOSBox_Templates_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_DOSBox_Templates.BeforePopup + If Not grd_DOSBox_Configs.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_DOSBox_Configs.Current Is Nothing Then + bbi_Delete.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + bbi_Delete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Description.Designer.vb b/Metropolis_Launcher/Forms/frm_Description.Designer.vb new file mode 100644 index 0000000..77f9636 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Description.Designer.vb @@ -0,0 +1,72 @@ + _ +Partial Class frm_Description + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.txb_Description = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.lbl_Title = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txb_Description + ' + Me.txb_Description.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Description.Location = New System.Drawing.Point(0, 36) + Me.txb_Description.MKBoundLabel = Nothing + Me.txb_Description.MKEditValue_Compare = Nothing + Me.txb_Description.Name = "txb_Description" + Me.txb_Description.Properties.ReadOnly = True + Me.txb_Description.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_Description.Size = New System.Drawing.Size(423, 284) + Me.txb_Description.TabIndex = 1 + ' + 'lbl_Title + ' + Me.lbl_Title.Appearance.BackColor = System.Drawing.Color.Transparent + Me.lbl_Title.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Title.AutoEllipsis = True + Me.lbl_Title.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Title.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Title.Location = New System.Drawing.Point(0, 0) + Me.lbl_Title.MKBoundControl1 = Nothing + Me.lbl_Title.MKBoundControl2 = Nothing + Me.lbl_Title.MKBoundControl3 = Nothing + Me.lbl_Title.MKBoundControl4 = Nothing + Me.lbl_Title.MKBoundControl5 = Nothing + Me.lbl_Title.Name = "lbl_Title" + Me.lbl_Title.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Title.Size = New System.Drawing.Size(423, 36) + Me.lbl_Title.TabIndex = 0 + ' + 'frm_Description + ' + Me.ClientSize = New System.Drawing.Size(423, 320) + Me.Controls.Add(Me.txb_Description) + Me.Controls.Add(Me.lbl_Title) + Me.Name = "frm_Description" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents txb_Description As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents lbl_Title As MKNetDXLib.ctl_MKDXLabel + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Description.resx b/Metropolis_Launcher/Forms/frm_Description.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Description.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Description.vb b/Metropolis_Launcher/Forms/frm_Description.vb new file mode 100644 index 0000000..a8af065 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Description.vb @@ -0,0 +1,9 @@ +Public Class frm_Description + Public Sub New(ByVal Title As String, ByVal Description As String) + InitializeComponent() + + Me.lbl_Title.Text = Title + Me.txb_Description.Text = Description + Me.txb_Description.DeselectAll() + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.Designer.vb new file mode 100644 index 0000000..70598ed --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.Designer.vb @@ -0,0 +1,3705 @@ + _ +Partial Class frm_Emu_Game_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem44 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem45 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emu_Game_Edit)) + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip61 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem61 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem61 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem46 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem46 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip62 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem62 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem62 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip63 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem63 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem63 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip64 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem64 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem64 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip65 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem65 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem65 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip66 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem66 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem66 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip67 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem67 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem67 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip68 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem68 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem68 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip69 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem69 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem69 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip70 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem70 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem70 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip71 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem71 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem71 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip72 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem72 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem72 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip73 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem73 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem73 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip74 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem74 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem74 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip75 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem75 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem75 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip60 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem60 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem60 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem23 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem43 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip26 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip28 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip29 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip30 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem31 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem36 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem37 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem37 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem38 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem38 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem39 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem40 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem42 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel2 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel3 = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Name = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Prefix = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Notes = New MKNetDXLib.ctl_MKDXTextEdit() + Me.grd_Attributes = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Attributes = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Attributes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colCategoryGroup = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCategory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_TechInfo_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_TechInfo = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colAttribute = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BS_Genres = New System.Windows.Forms.BindingSource(Me.components) + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.cmb_J2K_Config = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_J2K = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_J2K = New System.Data.DataSet() + Me.tbl_Config = New System.Data.DataTable() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + Me.lbl_J2KPreset = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Default_Emulator = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_DefaultEmu = New System.Windows.Forms.BindingSource(Me.components) + Me.txb_Year = New MKNetDXLib.ctl_MKDXTextEdit() + Me.tcl_Attributes = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_Genres = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Genres = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Genres = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Genres_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Genres = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Genres_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Perspectives = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Perspectives = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Perspectives = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Perspectives = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Perspectives_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Perspectives = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Perspectives_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Visual_Presentation = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Visual_Presentation = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Visual_Presentation = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Visual_Presentation = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Visual_Presentation_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Visual_Presentation = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Visual_Presentation_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Gameplay = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Gameplay = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Gameplay = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Gameplay = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Gameplay_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Gameplay = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Gameplay_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Pacing = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Pacing = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Pacing = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Pacing = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Pacing_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Pacing = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Pacing_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Narrative_Theme_Topic = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Narrative_Theme_Topic = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Narrative_Theme_Topic = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Narrative_Theme_Topic = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Narrative_Theme_Topic_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Narrative_Theme_Topic = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Narrative_Theme_Topic_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Setting = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Setting = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Setting = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Setting = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Setting_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Setting = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Setting_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Sports_Themes = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Sports_Themes = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Sports_Themes = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Sports_Themes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Sports_Themes_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Sports_Themes = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Sports_Themes_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Vehicular_Themes = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Vehicular_Themes = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Vehicular_Themes = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Vehicular_Themes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Vehicular_Themes_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Vehicular_Themes = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Vehicular_Themes_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Educational_Categories = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Educational_Categories = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Educational_Categories = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Educational_Categories = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Educational_Categories_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Educational_Categories = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Educational_Categories_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Interface_Control = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Interface_Control = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Interface_Control = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Interface_Control = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Interface_Control_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Interface_Control = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Interface_Control_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_DLC_Addon = New DevExpress.XtraTab.XtraTabPage() + Me.grd_DLC_Addon = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DLC_Addon = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DLC_Addon = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_DLC_Addon_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_DLC_Addon = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_DLC_Addon_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Special_Edition = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Special_Edition = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Special_Edition = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Special_Edition = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Special_Edition_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Special_Edition = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Special_Edition_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Other_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Other_Attributes = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Other_Attributes = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Other_Attributes = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Other_Attributes_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Other_Attributes = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.col_Other_Attributes_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Alt = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Version = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Alt = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_DefaultEmulator = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Year = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Version = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Developer = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Publisher = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Developer = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Publisher = New MKNetDXLib.ctl_MKDXTextEdit() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.splt = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.tcl2 = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_TechInfo = New DevExpress.XtraTab.XtraTabPage() + Me.tpg_Languages = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Languages = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Languages = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Languages = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colLanguageUsed = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Language = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colLanguage_Short = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLanguage = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Regions = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Regions = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Regions = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Regions = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_Regions_Used = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Regions = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colRegion1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_ReleaseInfo = New DevExpress.XtraTab.XtraTabPage() + Me.chb_Alpha = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Pirated = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Fixed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Overdump = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Bad = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Good = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Unlicensed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Translation = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Beta = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Kiosk = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Sample = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Prototype = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Trainer = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Hack = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Bios = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.splt_Right = New MKNetDXLib.ctl_MKDXSplitter() + Me.tcl_Descriptions = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_Description = New DevExpress.XtraTab.XtraTabPage() + Me.txb_Description = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.tpg_Special_Info = New DevExpress.XtraTab.XtraTabPage() + Me.txb_Special_Info = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.tpg_DOSBox_Config = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_DOSBox_Config = New Metropolis_Launcher.ucr_DOSBox_Config() + Me.tpg_DOSBox_Files_and_Directories = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXPanel() + Me.Ctl_MKDXSplitPanel1 = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Files_and_Folders = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DOSBox_Files_and_Folders = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_DOSBox_Displayname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Rombase_DOSBox_Filetypes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDOSBox_Mount_Destination = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVolume_Number1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_MV_Volume = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_MV_Volume = New System.Windows.Forms.BindingSource(Me.components) + Me.col_Directory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_Filename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_DOSBox_Inner_File = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_DOSBox_File = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_DOSBox_Folder = New MKNetDXLib.ctl_MKDXTextEdit() + Me.cmb_DOSBox_Volume_Number = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.cmb_DOSBox_Mount_Destination = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Mount_Destination = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_DOSBox_Exe_Type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Exe_Types = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_DOSBox_Type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Filetypes = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_DOSBox_Volume_Number = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Mount_Destination = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_InnerFile = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_File = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Exe_Type = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Folder = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Type = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Folder_and_Files_Settings = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Disks_Volumes = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_Discs_Volumes = New MKNetDXLib.ctl_MKDXPanel() + Me.grd_MV = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_MV = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_MV = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_MV_Directory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_MV_Filename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_MV_InnerFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_MV_Added = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col_MV_Volume_Number = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Volume_Number = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.lbl_Volumes = New MKNetDXLib.ctl_MKDXLabel() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Genres_Show_Description = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Genres_Remove_Value = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_TechInfo_Show_Description = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_TechInfo_Shortcuts = New DevExpress.XtraBars.BarSubItem() + Me.bbi_TechInfo_Shortcut_Sports_MP = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_TechInfo_Shortcut_CoOp_MP = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_TechInfo_Shortcut_VS_Fighting = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_TechInfo_Remove_Value = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Languages_Remove_Value = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Regions_Remove_Value = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Genres = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_TechInfo = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Languages = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Regions = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Prefix.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Notes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_TechInfo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Default_Emulator.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DefaultEmu, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Year.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tcl_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Attributes.SuspendLayout() + Me.tpg_Genres.SuspendLayout() + CType(Me.grd_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Perspectives.SuspendLayout() + CType(Me.grd_Perspectives, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Perspectives, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Perspectives, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Perspectives, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Visual_Presentation.SuspendLayout() + CType(Me.grd_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Gameplay.SuspendLayout() + CType(Me.grd_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Pacing.SuspendLayout() + CType(Me.grd_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Narrative_Theme_Topic.SuspendLayout() + CType(Me.grd_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Setting.SuspendLayout() + CType(Me.grd_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Sports_Themes.SuspendLayout() + CType(Me.grd_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Vehicular_Themes.SuspendLayout() + CType(Me.grd_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Educational_Categories.SuspendLayout() + CType(Me.grd_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Interface_Control.SuspendLayout() + CType(Me.grd_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_DLC_Addon.SuspendLayout() + CType(Me.grd_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Special_Edition.SuspendLayout() + CType(Me.grd_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Other_Attributes.SuspendLayout() + CType(Me.grd_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Alt.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Version.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Developer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Publisher.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.tcl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl2.SuspendLayout() + Me.tpg_TechInfo.SuspendLayout() + Me.tpg_Languages.SuspendLayout() + CType(Me.grd_Languages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Languages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Languages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Language, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Regions.SuspendLayout() + CType(Me.grd_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_ReleaseInfo.SuspendLayout() + CType(Me.chb_Alpha.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Pirated.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Fixed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Overdump.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Bad.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Good.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Unlicensed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Translation.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Beta.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Kiosk.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sample.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Prototype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Trainer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Hack.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Bios.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tcl_Descriptions, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Descriptions.SuspendLayout() + Me.tpg_Description.SuspendLayout() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Special_Info.SuspendLayout() + CType(Me.txb_Special_Info.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_DOSBox_Config.SuspendLayout() + Me.tpg_DOSBox_Files_and_Directories.SuspendLayout() + CType(Me.pnl_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_DOSBox_Files_and_Folders.SuspendLayout() + CType(Me.Ctl_MKDXSplitPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXSplitPanel1.SuspendLayout() + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_Inner_File.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_File.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_Folder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Volume_Number.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Mount_Destination.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Mount_Destination, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Exe_Type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Exe_Types, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Filetypes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Disks_Volumes.SuspendLayout() + CType(Me.pnl_Discs_Volumes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Discs_Volumes.SuspendLayout() + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Volume_Number, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_TechInfo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Languages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Ctl_MKDXLabel1 + ' + Me.Ctl_MKDXLabel1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel1.Location = New System.Drawing.Point(4, 4) + Me.Ctl_MKDXLabel1.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel1.Name = "Ctl_MKDXLabel1" + Me.Ctl_MKDXLabel1.Size = New System.Drawing.Size(76, 20) + Me.Ctl_MKDXLabel1.TabIndex = 0 + Me.Ctl_MKDXLabel1.Text = "Name:" + ' + 'Ctl_MKDXLabel2 + ' + Me.Ctl_MKDXLabel2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel2.Location = New System.Drawing.Point(4, 27) + Me.Ctl_MKDXLabel2.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel2.Name = "Ctl_MKDXLabel2" + Me.Ctl_MKDXLabel2.Size = New System.Drawing.Size(76, 20) + Me.Ctl_MKDXLabel2.TabIndex = 0 + Me.Ctl_MKDXLabel2.Text = "Prefix:" + ' + 'Ctl_MKDXLabel3 + ' + Me.Ctl_MKDXLabel3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel3.Location = New System.Drawing.Point(4, 50) + Me.Ctl_MKDXLabel3.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel3.Name = "Ctl_MKDXLabel3" + Me.Ctl_MKDXLabel3.Size = New System.Drawing.Size(76, 20) + Me.Ctl_MKDXLabel3.TabIndex = 0 + Me.Ctl_MKDXLabel3.Text = "Additional Info:" + ' + 'txb_Name + ' + Me.txb_Name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Name.Location = New System.Drawing.Point(83, 4) + Me.txb_Name.MKBoundLabel = Nothing + Me.txb_Name.MKEditValue_Compare = Nothing + Me.txb_Name.Name = "txb_Name" + Me.txb_Name.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem44.Text = "Name" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "This is the name of the game, avoid putting prefixes like ""The"" or ""Disney's"" in " & + "here, they belong in the Prefix field." + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.txb_Name.SuperTip = SuperToolTip44 + Me.txb_Name.TabIndex = 0 + ' + 'txb_Prefix + ' + Me.txb_Prefix.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Prefix.Location = New System.Drawing.Point(83, 27) + Me.txb_Prefix.MKBoundLabel = Nothing + Me.txb_Prefix.MKEditValue_Compare = Nothing + Me.txb_Prefix.Name = "txb_Prefix" + Me.txb_Prefix.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem45.Text = "Prefix" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = "This is the prefix to the game's name. Put ""The"" or ""Disney's"" in here. The list " & + "of games is fetched sorted by the game names without their prefixes." + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem45) + Me.txb_Prefix.SuperTip = SuperToolTip45 + Me.txb_Prefix.TabIndex = 1 + ' + 'txb_Notes + ' + Me.txb_Notes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Notes.Location = New System.Drawing.Point(83, 50) + Me.txb_Notes.MKBoundLabel = Nothing + Me.txb_Notes.MKEditValue_Compare = Nothing + Me.txb_Notes.Name = "txb_Notes" + Me.txb_Notes.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem1.Text = "Addition Info" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Keep this additional Info short, it will be added to the game's name in brackets," & + " e.g.: ""Sonic the Hedgehog (Spin Dash Hack)"" where ""Spin Dash Hack"" is the addit" & + "ional info." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_Notes.SuperTip = SuperToolTip1 + Me.txb_Notes.TabIndex = 2 + ' + 'grd_Attributes + ' + Me.grd_Attributes.DataSource = Me.BS_Attributes + Me.grd_Attributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Attributes.Location = New System.Drawing.Point(0, 0) + Me.grd_Attributes.MainView = Me.gv_Attributes + Me.grd_Attributes.Name = "grd_Attributes" + Me.grd_Attributes.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_TechInfo}) + Me.grd_Attributes.Size = New System.Drawing.Size(448, 392) + Me.grd_Attributes.TabIndex = 1 + Me.grd_Attributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Attributes}) + ' + 'BS_Attributes + ' + Me.BS_Attributes.DataMember = "src_frm_Emu_Game_Edit_Attributes" + Me.BS_Attributes.DataSource = Me.DS_ML + Me.BS_Attributes.Filter = "" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Attributes + ' + Me.gv_Attributes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colCategoryGroup, Me.colCategory, Me.col_TechInfo_Used, Me.colAttribute}) + Me.gv_Attributes.GridControl = Me.grd_Attributes + Me.gv_Attributes.GroupCount = 2 + Me.gv_Attributes.Name = "gv_Attributes" + Me.gv_Attributes.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Attributes.OptionsView.ShowGroupPanel = False + Me.gv_Attributes.OptionsView.ShowIndicator = False + Me.gv_Attributes.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colCategoryGroup, DevExpress.Data.ColumnSortOrder.Ascending), New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colCategory, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'colCategoryGroup + ' + Me.colCategoryGroup.FieldName = "CategoryGroup" + Me.colCategoryGroup.Name = "colCategoryGroup" + Me.colCategoryGroup.Visible = True + Me.colCategoryGroup.VisibleIndex = 0 + ' + 'colCategory + ' + Me.colCategory.FieldName = "Category" + Me.colCategory.Name = "colCategory" + Me.colCategory.Visible = True + Me.colCategory.VisibleIndex = 0 + Me.colCategory.Width = 503 + ' + 'col_TechInfo_Used + ' + Me.col_TechInfo_Used.Caption = " " + Me.col_TechInfo_Used.ColumnEdit = Me.rpi_TechInfo + Me.col_TechInfo_Used.FieldName = "Used" + Me.col_TechInfo_Used.MaxWidth = 20 + Me.col_TechInfo_Used.Name = "col_TechInfo_Used" + Me.col_TechInfo_Used.Visible = True + Me.col_TechInfo_Used.VisibleIndex = 0 + Me.col_TechInfo_Used.Width = 62 + ' + 'rpi_TechInfo + ' + Me.rpi_TechInfo.AutoHeight = False + Me.rpi_TechInfo.Name = "rpi_TechInfo" + ' + 'colAttribute + ' + Me.colAttribute.FieldName = "Attribute" + Me.colAttribute.Name = "colAttribute" + Me.colAttribute.OptionsColumn.AllowEdit = False + Me.colAttribute.OptionsColumn.ReadOnly = True + Me.colAttribute.Visible = True + Me.colAttribute.VisibleIndex = 1 + Me.colAttribute.Width = 1448 + ' + 'BS_Genres + ' + Me.BS_Genres.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Genres.DataSource = Me.DS_ML + Me.BS_Genres.Filter = "id_Moby_Genres_Categories = 1" + ' + 'pnl_Left + ' + Me.pnl_Left.Controls.Add(Me.cmb_J2K_Config) + Me.pnl_Left.Controls.Add(Me.lbl_J2KPreset) + Me.pnl_Left.Controls.Add(Me.cmb_Default_Emulator) + Me.pnl_Left.Controls.Add(Me.txb_Year) + Me.pnl_Left.Controls.Add(Me.tcl_Attributes) + Me.pnl_Left.Controls.Add(Me.txb_Name) + Me.pnl_Left.Controls.Add(Me.Ctl_MKDXLabel1) + Me.pnl_Left.Controls.Add(Me.Ctl_MKDXLabel2) + Me.pnl_Left.Controls.Add(Me.lbl_Alt) + Me.pnl_Left.Controls.Add(Me.lbl_Version) + Me.pnl_Left.Controls.Add(Me.txb_Alt) + Me.pnl_Left.Controls.Add(Me.lbl_DefaultEmulator) + Me.pnl_Left.Controls.Add(Me.lbl_Year) + Me.pnl_Left.Controls.Add(Me.txb_Version) + Me.pnl_Left.Controls.Add(Me.lbl_Developer) + Me.pnl_Left.Controls.Add(Me.lbl_Publisher) + Me.pnl_Left.Controls.Add(Me.txb_Developer) + Me.pnl_Left.Controls.Add(Me.Ctl_MKDXLabel3) + Me.pnl_Left.Controls.Add(Me.txb_Publisher) + Me.pnl_Left.Controls.Add(Me.txb_Prefix) + Me.pnl_Left.Controls.Add(Me.txb_Notes) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(519, 661) + Me.pnl_Left.TabIndex = 3 + ' + 'cmb_J2K_Config + ' + Me.cmb_J2K_Config.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_J2K_Config.Location = New System.Drawing.Point(83, 165) + Me.cmb_J2K_Config.MKBoundLabel = Nothing + Me.cmb_J2K_Config.MKEditValue_Compare = Nothing + Me.cmb_J2K_Config.Name = "cmb_J2K_Config" + Me.cmb_J2K_Config.Properties.AllowFocused = False + Me.cmb_J2K_Config.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_J2K_Config.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Config", "id_Config", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ConfigName", "Config Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_J2K_Config.Properties.DataSource = Me.BS_J2K + Me.cmb_J2K_Config.Properties.DisplayMember = "ConfigName" + Me.cmb_J2K_Config.Properties.NullText = "" + Me.cmb_J2K_Config.Properties.ShowFooter = False + Me.cmb_J2K_Config.Properties.ShowHeader = False + Me.cmb_J2K_Config.Properties.ValueMember = "id_Config" + Me.cmb_J2K_Config.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem2.Text = "J2K Preset" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.cmb_J2K_Config.SuperTip = SuperToolTip2 + Me.cmb_J2K_Config.TabIndex = 9 + ' + 'BS_J2K + ' + Me.BS_J2K.DataMember = "tbl_Config" + Me.BS_J2K.DataSource = Me.DS_J2K + ' + 'DS_J2K + ' + Me.DS_J2K.DataSetName = "DS" + Me.DS_J2K.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Config}) + ' + 'tbl_Config + ' + Me.tbl_Config.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn5, Me.DataColumn6}) + Me.tbl_Config.TableName = "tbl_Config" + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "id_Config" + Me.DataColumn5.DataType = GetType(Integer) + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "ConfigName" + ' + 'lbl_J2KPreset + ' + Me.lbl_J2KPreset.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_J2KPreset.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_J2KPreset.Location = New System.Drawing.Point(4, 165) + Me.lbl_J2KPreset.MKBoundControl1 = Nothing + Me.lbl_J2KPreset.MKBoundControl2 = Nothing + Me.lbl_J2KPreset.MKBoundControl3 = Nothing + Me.lbl_J2KPreset.MKBoundControl4 = Nothing + Me.lbl_J2KPreset.MKBoundControl5 = Nothing + Me.lbl_J2KPreset.Name = "lbl_J2KPreset" + Me.lbl_J2KPreset.Size = New System.Drawing.Size(76, 20) + ToolTipTitleItem3.Text = "J2K Preset" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.lbl_J2KPreset.SuperTip = SuperToolTip3 + Me.lbl_J2KPreset.TabIndex = 15 + Me.lbl_J2KPreset.Text = "J2K Preset:" + ' + 'cmb_Default_Emulator + ' + Me.cmb_Default_Emulator.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Default_Emulator.Location = New System.Drawing.Point(83, 142) + Me.cmb_Default_Emulator.MKBoundLabel = Nothing + Me.cmb_Default_Emulator.MKEditValue_Compare = Nothing + Me.cmb_Default_Emulator.Name = "cmb_Default_Emulator" + Me.cmb_Default_Emulator.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "Remove the default emulator for this game or revert back to the globally defined " & + "emulator for this platform", Nothing, Nothing, True)}) + Me.cmb_Default_Emulator.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Emulators", "id_Emulators", 84, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 70, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Used", "Used", 34, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("IsGlobalDefault", "Is Global Default", 89, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Default_Emulator.Properties.DataSource = Me.BS_DefaultEmu + Me.cmb_Default_Emulator.Properties.DisplayMember = "Displayname" + Me.cmb_Default_Emulator.Properties.NullText = "(None)" + Me.cmb_Default_Emulator.Properties.ShowFooter = False + Me.cmb_Default_Emulator.Properties.ShowHeader = False + Me.cmb_Default_Emulator.Properties.ValueMember = "id_Emulators" + Me.cmb_Default_Emulator.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem61.Text = "Default Emu" + ToolTipItem61.LeftIndent = 6 + ToolTipItem61.Text = "You can choose a default emulator for this game here." + SuperToolTip61.Items.Add(ToolTipTitleItem61) + SuperToolTip61.Items.Add(ToolTipItem61) + Me.cmb_Default_Emulator.SuperTip = SuperToolTip61 + Me.cmb_Default_Emulator.TabIndex = 8 + ' + 'BS_DefaultEmu + ' + Me.BS_DefaultEmu.DataMember = "tbl_Emu_Games_Edit_Default_Emulator" + Me.BS_DefaultEmu.DataSource = Me.DS_ML + ' + 'txb_Year + ' + Me.txb_Year.Location = New System.Drawing.Point(83, 119) + Me.txb_Year.MKBoundLabel = Nothing + Me.txb_Year.MKEditValue_Compare = Nothing + Me.txb_Year.Name = "txb_Year" + Me.txb_Year.Properties.Mask.EditMask = "(19|2\d)(\d\d|xx)" + Me.txb_Year.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx + Me.txb_Year.Size = New System.Drawing.Size(64, 20) + ToolTipTitleItem46.Text = "Year" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.Text = "Year of release" + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem46) + Me.txb_Year.SuperTip = SuperToolTip46 + Me.txb_Year.TabIndex = 5 + ' + 'tcl_Attributes + ' + Me.tcl_Attributes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tcl_Attributes.Location = New System.Drawing.Point(4, 189) + Me.tcl_Attributes.Name = "tcl_Attributes" + Me.tcl_Attributes.SelectedTabPage = Me.tpg_Genres + Me.tcl_Attributes.Size = New System.Drawing.Size(515, 469) + Me.tcl_Attributes.TabIndex = 10 + Me.tcl_Attributes.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Genres, Me.tpg_Perspectives, Me.tpg_Visual_Presentation, Me.tpg_Gameplay, Me.tpg_Pacing, Me.tpg_Narrative_Theme_Topic, Me.tpg_Setting, Me.tpg_Sports_Themes, Me.tpg_Vehicular_Themes, Me.tpg_Educational_Categories, Me.tpg_Interface_Control, Me.tpg_DLC_Addon, Me.tpg_Special_Edition, Me.tpg_Other_Attributes}) + ' + 'tpg_Genres + ' + Me.tpg_Genres.Controls.Add(Me.grd_Genres) + Me.tpg_Genres.Name = "tpg_Genres" + Me.tpg_Genres.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem6.Text = "Genres" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Select the main genres of the game." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.tpg_Genres.SuperTip = SuperToolTip6 + Me.tpg_Genres.Text = "Genres" + ' + 'grd_Genres + ' + Me.grd_Genres.DataSource = Me.BS_Genres + Me.grd_Genres.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Genres.Location = New System.Drawing.Point(0, 0) + Me.grd_Genres.MainView = Me.gv_Genres + Me.grd_Genres.Name = "grd_Genres" + Me.grd_Genres.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Genres}) + Me.grd_Genres.Size = New System.Drawing.Size(509, 441) + Me.grd_Genres.TabIndex = 0 + Me.grd_Genres.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Genres}) + ' + 'gv_Genres + ' + Me.gv_Genres.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Genres_Used, Me.col_Genres_Name}) + Me.gv_Genres.GridControl = Me.grd_Genres + Me.gv_Genres.Name = "gv_Genres" + Me.gv_Genres.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Genres.OptionsView.ShowColumnHeaders = False + Me.gv_Genres.OptionsView.ShowGroupPanel = False + Me.gv_Genres.OptionsView.ShowIndicator = False + ' + 'col_Genres_Used + ' + Me.col_Genres_Used.ColumnEdit = Me.rpi_Genres + Me.col_Genres_Used.FieldName = "Used" + Me.col_Genres_Used.MaxWidth = 20 + Me.col_Genres_Used.Name = "col_Genres_Used" + Me.col_Genres_Used.Visible = True + Me.col_Genres_Used.VisibleIndex = 0 + Me.col_Genres_Used.Width = 20 + ' + 'rpi_Genres + ' + Me.rpi_Genres.AutoHeight = False + Me.rpi_Genres.Name = "rpi_Genres" + ' + 'col_Genres_Name + ' + Me.col_Genres_Name.FieldName = "Name" + Me.col_Genres_Name.Name = "col_Genres_Name" + Me.col_Genres_Name.OptionsColumn.AllowEdit = False + Me.col_Genres_Name.OptionsColumn.ReadOnly = True + Me.col_Genres_Name.Visible = True + Me.col_Genres_Name.VisibleIndex = 1 + ' + 'tpg_Perspectives + ' + Me.tpg_Perspectives.Controls.Add(Me.grd_Perspectives) + Me.tpg_Perspectives.Name = "tpg_Perspectives" + Me.tpg_Perspectives.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem62.Text = "Perspectives" + ToolTipItem62.LeftIndent = 6 + ToolTipItem62.Text = "Select the perspectives the game supports." + SuperToolTip62.Items.Add(ToolTipTitleItem62) + SuperToolTip62.Items.Add(ToolTipItem62) + Me.tpg_Perspectives.SuperTip = SuperToolTip62 + Me.tpg_Perspectives.Text = "Perspectives" + ' + 'grd_Perspectives + ' + Me.grd_Perspectives.DataSource = Me.BS_Perspectives + Me.grd_Perspectives.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Perspectives.Location = New System.Drawing.Point(0, 0) + Me.grd_Perspectives.MainView = Me.gv_Perspectives + Me.grd_Perspectives.Name = "grd_Perspectives" + Me.grd_Perspectives.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Perspectives}) + Me.grd_Perspectives.Size = New System.Drawing.Size(509, 441) + Me.grd_Perspectives.TabIndex = 1 + Me.grd_Perspectives.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Perspectives}) + ' + 'BS_Perspectives + ' + Me.BS_Perspectives.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Perspectives.DataSource = Me.DS_ML + Me.BS_Perspectives.Filter = "id_Moby_Genres_Categories = 2" + ' + 'gv_Perspectives + ' + Me.gv_Perspectives.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Perspectives_Used, Me.col_Perspectives_Name}) + Me.gv_Perspectives.GridControl = Me.grd_Perspectives + Me.gv_Perspectives.Name = "gv_Perspectives" + Me.gv_Perspectives.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Perspectives.OptionsView.ShowColumnHeaders = False + Me.gv_Perspectives.OptionsView.ShowGroupPanel = False + Me.gv_Perspectives.OptionsView.ShowIndicator = False + ' + 'col_Perspectives_Used + ' + Me.col_Perspectives_Used.ColumnEdit = Me.rpi_Perspectives + Me.col_Perspectives_Used.FieldName = "Used" + Me.col_Perspectives_Used.MaxWidth = 20 + Me.col_Perspectives_Used.Name = "col_Perspectives_Used" + Me.col_Perspectives_Used.Visible = True + Me.col_Perspectives_Used.VisibleIndex = 0 + Me.col_Perspectives_Used.Width = 20 + ' + 'rpi_Perspectives + ' + Me.rpi_Perspectives.AutoHeight = False + Me.rpi_Perspectives.Name = "rpi_Perspectives" + ' + 'col_Perspectives_Name + ' + Me.col_Perspectives_Name.FieldName = "Name" + Me.col_Perspectives_Name.Name = "col_Perspectives_Name" + Me.col_Perspectives_Name.OptionsColumn.AllowEdit = False + Me.col_Perspectives_Name.OptionsColumn.ReadOnly = True + Me.col_Perspectives_Name.Visible = True + Me.col_Perspectives_Name.VisibleIndex = 1 + ' + 'tpg_Visual_Presentation + ' + Me.tpg_Visual_Presentation.Controls.Add(Me.grd_Visual_Presentation) + Me.tpg_Visual_Presentation.Name = "tpg_Visual_Presentation" + Me.tpg_Visual_Presentation.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem63.Text = "Visual Presenation" + ToolTipItem63.LeftIndent = 6 + ToolTipItem63.Text = "Select all visual presentations the game supports." + SuperToolTip63.Items.Add(ToolTipTitleItem63) + SuperToolTip63.Items.Add(ToolTipItem63) + Me.tpg_Visual_Presentation.SuperTip = SuperToolTip63 + Me.tpg_Visual_Presentation.Text = "Visual Presentation" + ' + 'grd_Visual_Presentation + ' + Me.grd_Visual_Presentation.DataSource = Me.BS_Visual_Presentation + Me.grd_Visual_Presentation.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Visual_Presentation.Location = New System.Drawing.Point(0, 0) + Me.grd_Visual_Presentation.MainView = Me.gv_Visual_Presentation + Me.grd_Visual_Presentation.Name = "grd_Visual_Presentation" + Me.grd_Visual_Presentation.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Visual_Presentation}) + Me.grd_Visual_Presentation.Size = New System.Drawing.Size(509, 441) + Me.grd_Visual_Presentation.TabIndex = 6 + Me.grd_Visual_Presentation.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Visual_Presentation}) + ' + 'BS_Visual_Presentation + ' + Me.BS_Visual_Presentation.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Visual_Presentation.DataSource = Me.DS_ML + Me.BS_Visual_Presentation.Filter = "id_Moby_Genres_Categories = 3" + ' + 'gv_Visual_Presentation + ' + Me.gv_Visual_Presentation.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Visual_Presentation_Used, Me.col_Visual_Presentation_Name}) + Me.gv_Visual_Presentation.GridControl = Me.grd_Visual_Presentation + Me.gv_Visual_Presentation.Name = "gv_Visual_Presentation" + Me.gv_Visual_Presentation.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Visual_Presentation.OptionsView.ShowColumnHeaders = False + Me.gv_Visual_Presentation.OptionsView.ShowGroupPanel = False + Me.gv_Visual_Presentation.OptionsView.ShowIndicator = False + ' + 'col_Visual_Presentation_Used + ' + Me.col_Visual_Presentation_Used.ColumnEdit = Me.rpi_Visual_Presentation + Me.col_Visual_Presentation_Used.FieldName = "Used" + Me.col_Visual_Presentation_Used.MaxWidth = 20 + Me.col_Visual_Presentation_Used.Name = "col_Visual_Presentation_Used" + Me.col_Visual_Presentation_Used.Visible = True + Me.col_Visual_Presentation_Used.VisibleIndex = 0 + Me.col_Visual_Presentation_Used.Width = 20 + ' + 'rpi_Visual_Presentation + ' + Me.rpi_Visual_Presentation.AutoHeight = False + Me.rpi_Visual_Presentation.Name = "rpi_Visual_Presentation" + ' + 'col_Visual_Presentation_Name + ' + Me.col_Visual_Presentation_Name.FieldName = "Name" + Me.col_Visual_Presentation_Name.Name = "col_Visual_Presentation_Name" + Me.col_Visual_Presentation_Name.OptionsColumn.AllowEdit = False + Me.col_Visual_Presentation_Name.OptionsColumn.ReadOnly = True + Me.col_Visual_Presentation_Name.Visible = True + Me.col_Visual_Presentation_Name.VisibleIndex = 1 + ' + 'tpg_Gameplay + ' + Me.tpg_Gameplay.Controls.Add(Me.grd_Gameplay) + Me.tpg_Gameplay.Name = "tpg_Gameplay" + Me.tpg_Gameplay.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem64.Text = "Gameplay" + ToolTipItem64.LeftIndent = 6 + ToolTipItem64.Text = "Select all gameplay elements the game supports." + SuperToolTip64.Items.Add(ToolTipTitleItem64) + SuperToolTip64.Items.Add(ToolTipItem64) + Me.tpg_Gameplay.SuperTip = SuperToolTip64 + Me.tpg_Gameplay.Text = "Gameplay" + ' + 'grd_Gameplay + ' + Me.grd_Gameplay.DataSource = Me.BS_Gameplay + Me.grd_Gameplay.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Gameplay.Location = New System.Drawing.Point(0, 0) + Me.grd_Gameplay.MainView = Me.gv_Gameplay + Me.grd_Gameplay.Name = "grd_Gameplay" + Me.grd_Gameplay.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Gameplay}) + Me.grd_Gameplay.Size = New System.Drawing.Size(509, 441) + Me.grd_Gameplay.TabIndex = 8 + Me.grd_Gameplay.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Gameplay}) + ' + 'BS_Gameplay + ' + Me.BS_Gameplay.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Gameplay.DataSource = Me.DS_ML + Me.BS_Gameplay.Filter = "id_Moby_Genres_Categories = 5" + ' + 'gv_Gameplay + ' + Me.gv_Gameplay.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Gameplay_Used, Me.col_Gameplay_Name}) + Me.gv_Gameplay.GridControl = Me.grd_Gameplay + Me.gv_Gameplay.Name = "gv_Gameplay" + Me.gv_Gameplay.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Gameplay.OptionsView.ShowColumnHeaders = False + Me.gv_Gameplay.OptionsView.ShowGroupPanel = False + Me.gv_Gameplay.OptionsView.ShowIndicator = False + ' + 'col_Gameplay_Used + ' + Me.col_Gameplay_Used.ColumnEdit = Me.rpi_Gameplay + Me.col_Gameplay_Used.FieldName = "Used" + Me.col_Gameplay_Used.MaxWidth = 20 + Me.col_Gameplay_Used.Name = "col_Gameplay_Used" + Me.col_Gameplay_Used.Visible = True + Me.col_Gameplay_Used.VisibleIndex = 0 + Me.col_Gameplay_Used.Width = 20 + ' + 'rpi_Gameplay + ' + Me.rpi_Gameplay.AutoHeight = False + Me.rpi_Gameplay.Name = "rpi_Gameplay" + ' + 'col_Gameplay_Name + ' + Me.col_Gameplay_Name.FieldName = "Name" + Me.col_Gameplay_Name.Name = "col_Gameplay_Name" + Me.col_Gameplay_Name.OptionsColumn.AllowEdit = False + Me.col_Gameplay_Name.OptionsColumn.ReadOnly = True + Me.col_Gameplay_Name.Visible = True + Me.col_Gameplay_Name.VisibleIndex = 1 + ' + 'tpg_Pacing + ' + Me.tpg_Pacing.Controls.Add(Me.grd_Pacing) + Me.tpg_Pacing.Name = "tpg_Pacing" + Me.tpg_Pacing.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem65.Text = "Pacing" + ToolTipItem65.LeftIndent = 6 + ToolTipItem65.Text = "Select the pacing of the game." + SuperToolTip65.Items.Add(ToolTipTitleItem65) + SuperToolTip65.Items.Add(ToolTipItem65) + Me.tpg_Pacing.SuperTip = SuperToolTip65 + Me.tpg_Pacing.Text = "Pacing" + ' + 'grd_Pacing + ' + Me.grd_Pacing.DataSource = Me.BS_Pacing + Me.grd_Pacing.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Pacing.Location = New System.Drawing.Point(0, 0) + Me.grd_Pacing.MainView = Me.gv_Pacing + Me.grd_Pacing.Name = "grd_Pacing" + Me.grd_Pacing.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Pacing}) + Me.grd_Pacing.Size = New System.Drawing.Size(509, 441) + Me.grd_Pacing.TabIndex = 7 + Me.grd_Pacing.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Pacing}) + ' + 'BS_Pacing + ' + Me.BS_Pacing.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Pacing.DataSource = Me.DS_ML + Me.BS_Pacing.Filter = "id_Moby_Genres_Categories = 4" + ' + 'gv_Pacing + ' + Me.gv_Pacing.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Pacing_Used, Me.col_Pacing_Name}) + Me.gv_Pacing.GridControl = Me.grd_Pacing + Me.gv_Pacing.Name = "gv_Pacing" + Me.gv_Pacing.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Pacing.OptionsView.ShowColumnHeaders = False + Me.gv_Pacing.OptionsView.ShowGroupPanel = False + Me.gv_Pacing.OptionsView.ShowIndicator = False + ' + 'col_Pacing_Used + ' + Me.col_Pacing_Used.ColumnEdit = Me.rpi_Pacing + Me.col_Pacing_Used.FieldName = "Used" + Me.col_Pacing_Used.MaxWidth = 20 + Me.col_Pacing_Used.Name = "col_Pacing_Used" + Me.col_Pacing_Used.Visible = True + Me.col_Pacing_Used.VisibleIndex = 0 + Me.col_Pacing_Used.Width = 20 + ' + 'rpi_Pacing + ' + Me.rpi_Pacing.AutoHeight = False + Me.rpi_Pacing.Name = "rpi_Pacing" + ' + 'col_Pacing_Name + ' + Me.col_Pacing_Name.FieldName = "Name" + Me.col_Pacing_Name.Name = "col_Pacing_Name" + Me.col_Pacing_Name.OptionsColumn.AllowEdit = False + Me.col_Pacing_Name.OptionsColumn.ReadOnly = True + Me.col_Pacing_Name.Visible = True + Me.col_Pacing_Name.VisibleIndex = 1 + ' + 'tpg_Narrative_Theme_Topic + ' + Me.tpg_Narrative_Theme_Topic.Controls.Add(Me.grd_Narrative_Theme_Topic) + Me.tpg_Narrative_Theme_Topic.Name = "tpg_Narrative_Theme_Topic" + Me.tpg_Narrative_Theme_Topic.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem66.Text = "Narrative Theme / Topic" + ToolTipItem66.LeftIndent = 6 + ToolTipItem66.Text = "Select all the narritive themes / topics of the game." + SuperToolTip66.Items.Add(ToolTipTitleItem66) + SuperToolTip66.Items.Add(ToolTipItem66) + Me.tpg_Narrative_Theme_Topic.SuperTip = SuperToolTip66 + Me.tpg_Narrative_Theme_Topic.Text = "Narrative Theme / Topic" + ' + 'grd_Narrative_Theme_Topic + ' + Me.grd_Narrative_Theme_Topic.DataSource = Me.BS_Narrative_Theme_Topic + Me.grd_Narrative_Theme_Topic.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Narrative_Theme_Topic.Location = New System.Drawing.Point(0, 0) + Me.grd_Narrative_Theme_Topic.MainView = Me.gv_Narrative_Theme_Topic + Me.grd_Narrative_Theme_Topic.Name = "grd_Narrative_Theme_Topic" + Me.grd_Narrative_Theme_Topic.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Narrative_Theme_Topic}) + Me.grd_Narrative_Theme_Topic.Size = New System.Drawing.Size(509, 441) + Me.grd_Narrative_Theme_Topic.TabIndex = 12 + Me.grd_Narrative_Theme_Topic.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Narrative_Theme_Topic}) + ' + 'BS_Narrative_Theme_Topic + ' + Me.BS_Narrative_Theme_Topic.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Narrative_Theme_Topic.DataSource = Me.DS_ML + Me.BS_Narrative_Theme_Topic.Filter = "id_Moby_Genres_Categories = 11" + ' + 'gv_Narrative_Theme_Topic + ' + Me.gv_Narrative_Theme_Topic.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Narrative_Theme_Topic_Used, Me.col_Narrative_Theme_Topic_Name}) + Me.gv_Narrative_Theme_Topic.GridControl = Me.grd_Narrative_Theme_Topic + Me.gv_Narrative_Theme_Topic.Name = "gv_Narrative_Theme_Topic" + Me.gv_Narrative_Theme_Topic.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Narrative_Theme_Topic.OptionsView.ShowColumnHeaders = False + Me.gv_Narrative_Theme_Topic.OptionsView.ShowGroupPanel = False + Me.gv_Narrative_Theme_Topic.OptionsView.ShowIndicator = False + ' + 'col_Narrative_Theme_Topic_Used + ' + Me.col_Narrative_Theme_Topic_Used.ColumnEdit = Me.rpi_Narrative_Theme_Topic + Me.col_Narrative_Theme_Topic_Used.FieldName = "Used" + Me.col_Narrative_Theme_Topic_Used.MaxWidth = 20 + Me.col_Narrative_Theme_Topic_Used.Name = "col_Narrative_Theme_Topic_Used" + Me.col_Narrative_Theme_Topic_Used.Visible = True + Me.col_Narrative_Theme_Topic_Used.VisibleIndex = 0 + Me.col_Narrative_Theme_Topic_Used.Width = 20 + ' + 'rpi_Narrative_Theme_Topic + ' + Me.rpi_Narrative_Theme_Topic.AutoHeight = False + Me.rpi_Narrative_Theme_Topic.Name = "rpi_Narrative_Theme_Topic" + ' + 'col_Narrative_Theme_Topic_Name + ' + Me.col_Narrative_Theme_Topic_Name.FieldName = "Name" + Me.col_Narrative_Theme_Topic_Name.Name = "col_Narrative_Theme_Topic_Name" + Me.col_Narrative_Theme_Topic_Name.OptionsColumn.AllowEdit = False + Me.col_Narrative_Theme_Topic_Name.OptionsColumn.ReadOnly = True + Me.col_Narrative_Theme_Topic_Name.Visible = True + Me.col_Narrative_Theme_Topic_Name.VisibleIndex = 1 + ' + 'tpg_Setting + ' + Me.tpg_Setting.Controls.Add(Me.grd_Setting) + Me.tpg_Setting.Name = "tpg_Setting" + Me.tpg_Setting.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem67.Text = "Setting" + ToolTipItem67.LeftIndent = 6 + ToolTipItem67.Text = "Select the settings of the game." + SuperToolTip67.Items.Add(ToolTipTitleItem67) + SuperToolTip67.Items.Add(ToolTipItem67) + Me.tpg_Setting.SuperTip = SuperToolTip67 + Me.tpg_Setting.Text = "Setting" + ' + 'grd_Setting + ' + Me.grd_Setting.DataSource = Me.BS_Setting + Me.grd_Setting.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Setting.Location = New System.Drawing.Point(0, 0) + Me.grd_Setting.MainView = Me.gv_Setting + Me.grd_Setting.Name = "grd_Setting" + Me.grd_Setting.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Setting}) + Me.grd_Setting.Size = New System.Drawing.Size(509, 441) + Me.grd_Setting.TabIndex = 11 + Me.grd_Setting.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Setting}) + ' + 'BS_Setting + ' + Me.BS_Setting.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Setting.DataSource = Me.DS_ML + Me.BS_Setting.Filter = "id_Moby_Genres_Categories = 10" + ' + 'gv_Setting + ' + Me.gv_Setting.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Setting_Used, Me.col_Setting_Name}) + Me.gv_Setting.GridControl = Me.grd_Setting + Me.gv_Setting.Name = "gv_Setting" + Me.gv_Setting.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Setting.OptionsView.ShowColumnHeaders = False + Me.gv_Setting.OptionsView.ShowGroupPanel = False + Me.gv_Setting.OptionsView.ShowIndicator = False + ' + 'col_Setting_Used + ' + Me.col_Setting_Used.ColumnEdit = Me.rpi_Setting + Me.col_Setting_Used.FieldName = "Used" + Me.col_Setting_Used.MaxWidth = 20 + Me.col_Setting_Used.Name = "col_Setting_Used" + Me.col_Setting_Used.Visible = True + Me.col_Setting_Used.VisibleIndex = 0 + Me.col_Setting_Used.Width = 20 + ' + 'rpi_Setting + ' + Me.rpi_Setting.AutoHeight = False + Me.rpi_Setting.Name = "rpi_Setting" + ' + 'col_Setting_Name + ' + Me.col_Setting_Name.FieldName = "Name" + Me.col_Setting_Name.Name = "col_Setting_Name" + Me.col_Setting_Name.OptionsColumn.AllowEdit = False + Me.col_Setting_Name.OptionsColumn.ReadOnly = True + Me.col_Setting_Name.Visible = True + Me.col_Setting_Name.VisibleIndex = 1 + ' + 'tpg_Sports_Themes + ' + Me.tpg_Sports_Themes.Controls.Add(Me.grd_Sports_Themes) + Me.tpg_Sports_Themes.Name = "tpg_Sports_Themes" + Me.tpg_Sports_Themes.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem68.Text = "Sports Themes" + ToolTipItem68.LeftIndent = 6 + ToolTipItem68.Text = "Select sports themes if applicable." + SuperToolTip68.Items.Add(ToolTipTitleItem68) + SuperToolTip68.Items.Add(ToolTipItem68) + Me.tpg_Sports_Themes.SuperTip = SuperToolTip68 + Me.tpg_Sports_Themes.Text = "Sports Themes" + ' + 'grd_Sports_Themes + ' + Me.grd_Sports_Themes.DataSource = Me.BS_Sports_Themes + Me.grd_Sports_Themes.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Sports_Themes.Location = New System.Drawing.Point(0, 0) + Me.grd_Sports_Themes.MainView = Me.gv_Sports_Themes + Me.grd_Sports_Themes.Name = "grd_Sports_Themes" + Me.grd_Sports_Themes.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Sports_Themes}) + Me.grd_Sports_Themes.Size = New System.Drawing.Size(509, 441) + Me.grd_Sports_Themes.TabIndex = 3 + Me.grd_Sports_Themes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Sports_Themes}) + ' + 'BS_Sports_Themes + ' + Me.BS_Sports_Themes.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Sports_Themes.DataSource = Me.DS_ML + Me.BS_Sports_Themes.Filter = "id_Moby_Genres_Categories = 7" + ' + 'gv_Sports_Themes + ' + Me.gv_Sports_Themes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Sports_Themes_Used, Me.col_Sports_Themes_Name}) + Me.gv_Sports_Themes.GridControl = Me.grd_Sports_Themes + Me.gv_Sports_Themes.Name = "gv_Sports_Themes" + Me.gv_Sports_Themes.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Sports_Themes.OptionsView.ShowColumnHeaders = False + Me.gv_Sports_Themes.OptionsView.ShowGroupPanel = False + Me.gv_Sports_Themes.OptionsView.ShowIndicator = False + ' + 'col_Sports_Themes_Used + ' + Me.col_Sports_Themes_Used.ColumnEdit = Me.rpi_Sports_Themes + Me.col_Sports_Themes_Used.FieldName = "Used" + Me.col_Sports_Themes_Used.MaxWidth = 20 + Me.col_Sports_Themes_Used.Name = "col_Sports_Themes_Used" + Me.col_Sports_Themes_Used.Visible = True + Me.col_Sports_Themes_Used.VisibleIndex = 0 + Me.col_Sports_Themes_Used.Width = 20 + ' + 'rpi_Sports_Themes + ' + Me.rpi_Sports_Themes.AutoHeight = False + Me.rpi_Sports_Themes.Name = "rpi_Sports_Themes" + ' + 'col_Sports_Themes_Name + ' + Me.col_Sports_Themes_Name.FieldName = "Name" + Me.col_Sports_Themes_Name.Name = "col_Sports_Themes_Name" + Me.col_Sports_Themes_Name.OptionsColumn.AllowEdit = False + Me.col_Sports_Themes_Name.OptionsColumn.ReadOnly = True + Me.col_Sports_Themes_Name.Visible = True + Me.col_Sports_Themes_Name.VisibleIndex = 1 + ' + 'tpg_Vehicular_Themes + ' + Me.tpg_Vehicular_Themes.Controls.Add(Me.grd_Vehicular_Themes) + Me.tpg_Vehicular_Themes.Name = "tpg_Vehicular_Themes" + Me.tpg_Vehicular_Themes.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem69.Text = "Vehicular Themes" + ToolTipItem69.LeftIndent = 6 + ToolTipItem69.Text = "Select vehicular themes if applicable." + SuperToolTip69.Items.Add(ToolTipTitleItem69) + SuperToolTip69.Items.Add(ToolTipItem69) + Me.tpg_Vehicular_Themes.SuperTip = SuperToolTip69 + Me.tpg_Vehicular_Themes.Text = "Vehicular Themes" + ' + 'grd_Vehicular_Themes + ' + Me.grd_Vehicular_Themes.DataSource = Me.BS_Vehicular_Themes + Me.grd_Vehicular_Themes.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Vehicular_Themes.Location = New System.Drawing.Point(0, 0) + Me.grd_Vehicular_Themes.MainView = Me.gv_Vehicular_Themes + Me.grd_Vehicular_Themes.Name = "grd_Vehicular_Themes" + Me.grd_Vehicular_Themes.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Vehicular_Themes}) + Me.grd_Vehicular_Themes.Size = New System.Drawing.Size(509, 441) + Me.grd_Vehicular_Themes.TabIndex = 10 + Me.grd_Vehicular_Themes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Vehicular_Themes}) + ' + 'BS_Vehicular_Themes + ' + Me.BS_Vehicular_Themes.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Vehicular_Themes.DataSource = Me.DS_ML + Me.BS_Vehicular_Themes.Filter = "id_Moby_Genres_Categories = 9" + ' + 'gv_Vehicular_Themes + ' + Me.gv_Vehicular_Themes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Vehicular_Themes_Used, Me.col_Vehicular_Themes_Name}) + Me.gv_Vehicular_Themes.GridControl = Me.grd_Vehicular_Themes + Me.gv_Vehicular_Themes.Name = "gv_Vehicular_Themes" + Me.gv_Vehicular_Themes.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Vehicular_Themes.OptionsView.ShowColumnHeaders = False + Me.gv_Vehicular_Themes.OptionsView.ShowGroupPanel = False + Me.gv_Vehicular_Themes.OptionsView.ShowIndicator = False + ' + 'col_Vehicular_Themes_Used + ' + Me.col_Vehicular_Themes_Used.ColumnEdit = Me.rpi_Vehicular_Themes + Me.col_Vehicular_Themes_Used.FieldName = "Used" + Me.col_Vehicular_Themes_Used.MaxWidth = 20 + Me.col_Vehicular_Themes_Used.Name = "col_Vehicular_Themes_Used" + Me.col_Vehicular_Themes_Used.Visible = True + Me.col_Vehicular_Themes_Used.VisibleIndex = 0 + Me.col_Vehicular_Themes_Used.Width = 20 + ' + 'rpi_Vehicular_Themes + ' + Me.rpi_Vehicular_Themes.AutoHeight = False + Me.rpi_Vehicular_Themes.Name = "rpi_Vehicular_Themes" + ' + 'col_Vehicular_Themes_Name + ' + Me.col_Vehicular_Themes_Name.FieldName = "Name" + Me.col_Vehicular_Themes_Name.Name = "col_Vehicular_Themes_Name" + Me.col_Vehicular_Themes_Name.OptionsColumn.AllowEdit = False + Me.col_Vehicular_Themes_Name.OptionsColumn.ReadOnly = True + Me.col_Vehicular_Themes_Name.Visible = True + Me.col_Vehicular_Themes_Name.VisibleIndex = 1 + ' + 'tpg_Educational_Categories + ' + Me.tpg_Educational_Categories.Controls.Add(Me.grd_Educational_Categories) + Me.tpg_Educational_Categories.Name = "tpg_Educational_Categories" + Me.tpg_Educational_Categories.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem70.Text = "Educational Categories" + ToolTipItem70.LeftIndent = 6 + ToolTipItem70.Text = "Select educational categories if applicable." + SuperToolTip70.Items.Add(ToolTipTitleItem70) + SuperToolTip70.Items.Add(ToolTipItem70) + Me.tpg_Educational_Categories.SuperTip = SuperToolTip70 + Me.tpg_Educational_Categories.Text = "Educational Categories" + ' + 'grd_Educational_Categories + ' + Me.grd_Educational_Categories.DataSource = Me.BS_Educational_Categories + Me.grd_Educational_Categories.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Educational_Categories.Location = New System.Drawing.Point(0, 0) + Me.grd_Educational_Categories.MainView = Me.gv_Educational_Categories + Me.grd_Educational_Categories.Name = "grd_Educational_Categories" + Me.grd_Educational_Categories.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Educational_Categories}) + Me.grd_Educational_Categories.Size = New System.Drawing.Size(509, 441) + Me.grd_Educational_Categories.TabIndex = 4 + Me.grd_Educational_Categories.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Educational_Categories}) + ' + 'BS_Educational_Categories + ' + Me.BS_Educational_Categories.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Educational_Categories.DataSource = Me.DS_ML + Me.BS_Educational_Categories.Filter = "id_Moby_Genres_Categories = 8" + ' + 'gv_Educational_Categories + ' + Me.gv_Educational_Categories.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Educational_Categories_Used, Me.col_Educational_Categories_Name}) + Me.gv_Educational_Categories.GridControl = Me.grd_Educational_Categories + Me.gv_Educational_Categories.Name = "gv_Educational_Categories" + Me.gv_Educational_Categories.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Educational_Categories.OptionsView.ShowColumnHeaders = False + Me.gv_Educational_Categories.OptionsView.ShowGroupPanel = False + Me.gv_Educational_Categories.OptionsView.ShowIndicator = False + ' + 'col_Educational_Categories_Used + ' + Me.col_Educational_Categories_Used.ColumnEdit = Me.rpi_Educational_Categories + Me.col_Educational_Categories_Used.FieldName = "Used" + Me.col_Educational_Categories_Used.MaxWidth = 20 + Me.col_Educational_Categories_Used.Name = "col_Educational_Categories_Used" + Me.col_Educational_Categories_Used.Visible = True + Me.col_Educational_Categories_Used.VisibleIndex = 0 + Me.col_Educational_Categories_Used.Width = 20 + ' + 'rpi_Educational_Categories + ' + Me.rpi_Educational_Categories.AutoHeight = False + Me.rpi_Educational_Categories.Name = "rpi_Educational_Categories" + ' + 'col_Educational_Categories_Name + ' + Me.col_Educational_Categories_Name.FieldName = "Name" + Me.col_Educational_Categories_Name.Name = "col_Educational_Categories_Name" + Me.col_Educational_Categories_Name.OptionsColumn.AllowEdit = False + Me.col_Educational_Categories_Name.OptionsColumn.ReadOnly = True + Me.col_Educational_Categories_Name.Visible = True + Me.col_Educational_Categories_Name.VisibleIndex = 1 + ' + 'tpg_Interface_Control + ' + Me.tpg_Interface_Control.Controls.Add(Me.grd_Interface_Control) + Me.tpg_Interface_Control.Name = "tpg_Interface_Control" + Me.tpg_Interface_Control.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem71.Text = "Interface / Control" + ToolTipItem71.LeftIndent = 6 + ToolTipItem71.Text = "Select all the interface / control options of the game." + SuperToolTip71.Items.Add(ToolTipTitleItem71) + SuperToolTip71.Items.Add(ToolTipItem71) + Me.tpg_Interface_Control.SuperTip = SuperToolTip71 + Me.tpg_Interface_Control.Text = "Interface / Control" + ' + 'grd_Interface_Control + ' + Me.grd_Interface_Control.DataSource = Me.BS_Interface_Control + Me.grd_Interface_Control.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Interface_Control.Location = New System.Drawing.Point(0, 0) + Me.grd_Interface_Control.MainView = Me.gv_Interface_Control + Me.grd_Interface_Control.Name = "grd_Interface_Control" + Me.grd_Interface_Control.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Interface_Control}) + Me.grd_Interface_Control.Size = New System.Drawing.Size(509, 441) + Me.grd_Interface_Control.TabIndex = 9 + Me.grd_Interface_Control.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Interface_Control}) + ' + 'BS_Interface_Control + ' + Me.BS_Interface_Control.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Interface_Control.DataSource = Me.DS_ML + Me.BS_Interface_Control.Filter = "id_Moby_Genres_Categories = 6" + ' + 'gv_Interface_Control + ' + Me.gv_Interface_Control.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Interface_Control_Used, Me.col_Interface_Control_Name}) + Me.gv_Interface_Control.GridControl = Me.grd_Interface_Control + Me.gv_Interface_Control.Name = "gv_Interface_Control" + Me.gv_Interface_Control.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Interface_Control.OptionsView.ShowColumnHeaders = False + Me.gv_Interface_Control.OptionsView.ShowGroupPanel = False + Me.gv_Interface_Control.OptionsView.ShowIndicator = False + ' + 'col_Interface_Control_Used + ' + Me.col_Interface_Control_Used.ColumnEdit = Me.rpi_Interface_Control + Me.col_Interface_Control_Used.FieldName = "Used" + Me.col_Interface_Control_Used.MaxWidth = 20 + Me.col_Interface_Control_Used.Name = "col_Interface_Control_Used" + Me.col_Interface_Control_Used.Visible = True + Me.col_Interface_Control_Used.VisibleIndex = 0 + Me.col_Interface_Control_Used.Width = 20 + ' + 'rpi_Interface_Control + ' + Me.rpi_Interface_Control.AutoHeight = False + Me.rpi_Interface_Control.Name = "rpi_Interface_Control" + ' + 'col_Interface_Control_Name + ' + Me.col_Interface_Control_Name.FieldName = "Name" + Me.col_Interface_Control_Name.Name = "col_Interface_Control_Name" + Me.col_Interface_Control_Name.OptionsColumn.AllowEdit = False + Me.col_Interface_Control_Name.OptionsColumn.ReadOnly = True + Me.col_Interface_Control_Name.Visible = True + Me.col_Interface_Control_Name.VisibleIndex = 1 + ' + 'tpg_DLC_Addon + ' + Me.tpg_DLC_Addon.Controls.Add(Me.grd_DLC_Addon) + Me.tpg_DLC_Addon.Name = "tpg_DLC_Addon" + Me.tpg_DLC_Addon.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem72.Text = "DLC / Add-on" + ToolTipItem72.LeftIndent = 6 + ToolTipItem72.Text = "Select DLC / Add-on options if applicable." + SuperToolTip72.Items.Add(ToolTipTitleItem72) + SuperToolTip72.Items.Add(ToolTipItem72) + Me.tpg_DLC_Addon.SuperTip = SuperToolTip72 + Me.tpg_DLC_Addon.Text = "DLC / Add-on" + ' + 'grd_DLC_Addon + ' + Me.grd_DLC_Addon.DataSource = Me.BS_DLC_Addon + Me.grd_DLC_Addon.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DLC_Addon.Location = New System.Drawing.Point(0, 0) + Me.grd_DLC_Addon.MainView = Me.gv_DLC_Addon + Me.grd_DLC_Addon.Name = "grd_DLC_Addon" + Me.grd_DLC_Addon.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_DLC_Addon}) + Me.grd_DLC_Addon.Size = New System.Drawing.Size(509, 441) + Me.grd_DLC_Addon.TabIndex = 13 + Me.grd_DLC_Addon.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DLC_Addon}) + ' + 'BS_DLC_Addon + ' + Me.BS_DLC_Addon.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_DLC_Addon.DataSource = Me.DS_ML + Me.BS_DLC_Addon.Filter = "id_Moby_Genres_Categories = 12" + ' + 'gv_DLC_Addon + ' + Me.gv_DLC_Addon.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_DLC_Addon_Used, Me.col_DLC_Addon_Name}) + Me.gv_DLC_Addon.GridControl = Me.grd_DLC_Addon + Me.gv_DLC_Addon.Name = "gv_DLC_Addon" + Me.gv_DLC_Addon.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DLC_Addon.OptionsView.ShowColumnHeaders = False + Me.gv_DLC_Addon.OptionsView.ShowGroupPanel = False + Me.gv_DLC_Addon.OptionsView.ShowIndicator = False + ' + 'col_DLC_Addon_Used + ' + Me.col_DLC_Addon_Used.ColumnEdit = Me.rpi_DLC_Addon + Me.col_DLC_Addon_Used.FieldName = "Used" + Me.col_DLC_Addon_Used.MaxWidth = 20 + Me.col_DLC_Addon_Used.Name = "col_DLC_Addon_Used" + Me.col_DLC_Addon_Used.Visible = True + Me.col_DLC_Addon_Used.VisibleIndex = 0 + Me.col_DLC_Addon_Used.Width = 20 + ' + 'rpi_DLC_Addon + ' + Me.rpi_DLC_Addon.AutoHeight = False + Me.rpi_DLC_Addon.Name = "rpi_DLC_Addon" + ' + 'col_DLC_Addon_Name + ' + Me.col_DLC_Addon_Name.FieldName = "Name" + Me.col_DLC_Addon_Name.Name = "col_DLC_Addon_Name" + Me.col_DLC_Addon_Name.OptionsColumn.AllowEdit = False + Me.col_DLC_Addon_Name.OptionsColumn.ReadOnly = True + Me.col_DLC_Addon_Name.Visible = True + Me.col_DLC_Addon_Name.VisibleIndex = 1 + ' + 'tpg_Special_Edition + ' + Me.tpg_Special_Edition.Controls.Add(Me.grd_Special_Edition) + Me.tpg_Special_Edition.Name = "tpg_Special_Edition" + Me.tpg_Special_Edition.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem73.Text = "Special Edition" + ToolTipItem73.LeftIndent = 6 + ToolTipItem73.Text = "Select special edition options if applicable." + SuperToolTip73.Items.Add(ToolTipTitleItem73) + SuperToolTip73.Items.Add(ToolTipItem73) + Me.tpg_Special_Edition.SuperTip = SuperToolTip73 + Me.tpg_Special_Edition.Text = "Special Edition" + ' + 'grd_Special_Edition + ' + Me.grd_Special_Edition.DataSource = Me.BS_Special_Edition + Me.grd_Special_Edition.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Special_Edition.Location = New System.Drawing.Point(0, 0) + Me.grd_Special_Edition.MainView = Me.gv_Special_Edition + Me.grd_Special_Edition.Name = "grd_Special_Edition" + Me.grd_Special_Edition.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Special_Edition}) + Me.grd_Special_Edition.Size = New System.Drawing.Size(509, 441) + Me.grd_Special_Edition.TabIndex = 14 + Me.grd_Special_Edition.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Special_Edition}) + ' + 'BS_Special_Edition + ' + Me.BS_Special_Edition.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Special_Edition.DataSource = Me.DS_ML + Me.BS_Special_Edition.Filter = "id_Moby_Genres_Categories = 13" + ' + 'gv_Special_Edition + ' + Me.gv_Special_Edition.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Special_Edition_Used, Me.col_Special_Edition_Name}) + Me.gv_Special_Edition.GridControl = Me.grd_Special_Edition + Me.gv_Special_Edition.Name = "gv_Special_Edition" + Me.gv_Special_Edition.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Special_Edition.OptionsView.ShowColumnHeaders = False + Me.gv_Special_Edition.OptionsView.ShowGroupPanel = False + Me.gv_Special_Edition.OptionsView.ShowIndicator = False + ' + 'col_Special_Edition_Used + ' + Me.col_Special_Edition_Used.ColumnEdit = Me.rpi_Special_Edition + Me.col_Special_Edition_Used.FieldName = "Used" + Me.col_Special_Edition_Used.MaxWidth = 20 + Me.col_Special_Edition_Used.Name = "col_Special_Edition_Used" + Me.col_Special_Edition_Used.Visible = True + Me.col_Special_Edition_Used.VisibleIndex = 0 + Me.col_Special_Edition_Used.Width = 20 + ' + 'rpi_Special_Edition + ' + Me.rpi_Special_Edition.AutoHeight = False + Me.rpi_Special_Edition.Name = "rpi_Special_Edition" + ' + 'col_Special_Edition_Name + ' + Me.col_Special_Edition_Name.FieldName = "Name" + Me.col_Special_Edition_Name.Name = "col_Special_Edition_Name" + Me.col_Special_Edition_Name.OptionsColumn.AllowEdit = False + Me.col_Special_Edition_Name.OptionsColumn.ReadOnly = True + Me.col_Special_Edition_Name.Visible = True + Me.col_Special_Edition_Name.VisibleIndex = 1 + ' + 'tpg_Other_Attributes + ' + Me.tpg_Other_Attributes.Controls.Add(Me.grd_Other_Attributes) + Me.tpg_Other_Attributes.Name = "tpg_Other_Attributes" + Me.tpg_Other_Attributes.Size = New System.Drawing.Size(509, 441) + ToolTipTitleItem74.Text = "Other Attributes" + ToolTipItem74.LeftIndent = 6 + ToolTipItem74.Text = "Select other attributes if applicable." + SuperToolTip74.Items.Add(ToolTipTitleItem74) + SuperToolTip74.Items.Add(ToolTipItem74) + Me.tpg_Other_Attributes.SuperTip = SuperToolTip74 + Me.tpg_Other_Attributes.Text = "Other Attributes" + ' + 'grd_Other_Attributes + ' + Me.grd_Other_Attributes.DataSource = Me.BS_Other_Attributes + Me.grd_Other_Attributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Other_Attributes.Location = New System.Drawing.Point(0, 0) + Me.grd_Other_Attributes.MainView = Me.gv_Other_Attributes + Me.grd_Other_Attributes.Name = "grd_Other_Attributes" + Me.grd_Other_Attributes.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Other_Attributes}) + Me.grd_Other_Attributes.Size = New System.Drawing.Size(509, 441) + Me.grd_Other_Attributes.TabIndex = 5 + Me.grd_Other_Attributes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Other_Attributes}) + ' + 'BS_Other_Attributes + ' + Me.BS_Other_Attributes.DataMember = "src_frm_Emu_Game_Edit_Genres" + Me.BS_Other_Attributes.DataSource = Me.DS_ML + Me.BS_Other_Attributes.Filter = "id_Moby_Genres_Categories = 14" + ' + 'gv_Other_Attributes + ' + Me.gv_Other_Attributes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Other_Attributes_Used, Me.col_Other_Attributes_Name}) + Me.gv_Other_Attributes.GridControl = Me.grd_Other_Attributes + Me.gv_Other_Attributes.Name = "gv_Other_Attributes" + Me.gv_Other_Attributes.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Other_Attributes.OptionsView.ShowColumnHeaders = False + Me.gv_Other_Attributes.OptionsView.ShowGroupPanel = False + Me.gv_Other_Attributes.OptionsView.ShowIndicator = False + ' + 'col_Other_Attributes_Used + ' + Me.col_Other_Attributes_Used.ColumnEdit = Me.rpi_Other_Attributes + Me.col_Other_Attributes_Used.FieldName = "Used" + Me.col_Other_Attributes_Used.MaxWidth = 20 + Me.col_Other_Attributes_Used.Name = "col_Other_Attributes_Used" + Me.col_Other_Attributes_Used.Visible = True + Me.col_Other_Attributes_Used.VisibleIndex = 0 + Me.col_Other_Attributes_Used.Width = 20 + ' + 'rpi_Other_Attributes + ' + Me.rpi_Other_Attributes.AutoHeight = False + Me.rpi_Other_Attributes.Name = "rpi_Other_Attributes" + ' + 'col_Other_Attributes_Name + ' + Me.col_Other_Attributes_Name.FieldName = "Name" + Me.col_Other_Attributes_Name.Name = "col_Other_Attributes_Name" + Me.col_Other_Attributes_Name.OptionsColumn.AllowEdit = False + Me.col_Other_Attributes_Name.OptionsColumn.ReadOnly = True + Me.col_Other_Attributes_Name.Visible = True + Me.col_Other_Attributes_Name.VisibleIndex = 1 + ' + 'lbl_Alt + ' + Me.lbl_Alt.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Alt.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Alt.Location = New System.Drawing.Point(293, 119) + Me.lbl_Alt.MKBoundControl1 = Nothing + Me.lbl_Alt.MKBoundControl2 = Nothing + Me.lbl_Alt.MKBoundControl3 = Nothing + Me.lbl_Alt.MKBoundControl4 = Nothing + Me.lbl_Alt.MKBoundControl5 = Nothing + Me.lbl_Alt.Name = "lbl_Alt" + Me.lbl_Alt.Size = New System.Drawing.Size(68, 20) + Me.lbl_Alt.TabIndex = 0 + Me.lbl_Alt.Text = "Alt:" + ' + 'lbl_Version + ' + Me.lbl_Version.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Version.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Version.Location = New System.Drawing.Point(155, 119) + Me.lbl_Version.MKBoundControl1 = Nothing + Me.lbl_Version.MKBoundControl2 = Nothing + Me.lbl_Version.MKBoundControl3 = Nothing + Me.lbl_Version.MKBoundControl4 = Nothing + Me.lbl_Version.MKBoundControl5 = Nothing + Me.lbl_Version.Name = "lbl_Version" + Me.lbl_Version.Size = New System.Drawing.Size(68, 20) + Me.lbl_Version.TabIndex = 0 + Me.lbl_Version.Text = "Version:" + ' + 'txb_Alt + ' + Me.txb_Alt.Location = New System.Drawing.Point(364, 119) + Me.txb_Alt.MKBoundLabel = Nothing + Me.txb_Alt.MKEditValue_Compare = Nothing + Me.txb_Alt.Name = "txb_Alt" + Me.txb_Alt.Size = New System.Drawing.Size(64, 20) + ToolTipTitleItem75.Text = "Alt" + ToolTipItem75.LeftIndent = 6 + ToolTipItem75.Text = "Alternative Dump information" + SuperToolTip75.Items.Add(ToolTipTitleItem75) + SuperToolTip75.Items.Add(ToolTipItem75) + Me.txb_Alt.SuperTip = SuperToolTip75 + Me.txb_Alt.TabIndex = 7 + ' + 'lbl_DefaultEmulator + ' + Me.lbl_DefaultEmulator.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DefaultEmulator.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DefaultEmulator.Location = New System.Drawing.Point(4, 142) + Me.lbl_DefaultEmulator.MKBoundControl1 = Nothing + Me.lbl_DefaultEmulator.MKBoundControl2 = Nothing + Me.lbl_DefaultEmulator.MKBoundControl3 = Nothing + Me.lbl_DefaultEmulator.MKBoundControl4 = Nothing + Me.lbl_DefaultEmulator.MKBoundControl5 = Nothing + Me.lbl_DefaultEmulator.Name = "lbl_DefaultEmulator" + Me.lbl_DefaultEmulator.Size = New System.Drawing.Size(76, 20) + Me.lbl_DefaultEmulator.TabIndex = 0 + Me.lbl_DefaultEmulator.Text = "Default Emu:" + ' + 'lbl_Year + ' + Me.lbl_Year.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Year.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Year.Location = New System.Drawing.Point(4, 119) + Me.lbl_Year.MKBoundControl1 = Nothing + Me.lbl_Year.MKBoundControl2 = Nothing + Me.lbl_Year.MKBoundControl3 = Nothing + Me.lbl_Year.MKBoundControl4 = Nothing + Me.lbl_Year.MKBoundControl5 = Nothing + Me.lbl_Year.Name = "lbl_Year" + Me.lbl_Year.Size = New System.Drawing.Size(76, 20) + Me.lbl_Year.TabIndex = 0 + Me.lbl_Year.Text = "Year:" + ' + 'txb_Version + ' + Me.txb_Version.Location = New System.Drawing.Point(226, 119) + Me.txb_Version.MKBoundLabel = Nothing + Me.txb_Version.MKEditValue_Compare = Nothing + Me.txb_Version.Name = "txb_Version" + Me.txb_Version.Size = New System.Drawing.Size(64, 20) + ToolTipTitleItem60.Text = "Version" + ToolTipItem60.LeftIndent = 6 + ToolTipItem60.Text = "Version info" + SuperToolTip60.Items.Add(ToolTipTitleItem60) + SuperToolTip60.Items.Add(ToolTipItem60) + Me.txb_Version.SuperTip = SuperToolTip60 + Me.txb_Version.TabIndex = 6 + ' + 'lbl_Developer + ' + Me.lbl_Developer.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Developer.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Developer.Location = New System.Drawing.Point(4, 96) + Me.lbl_Developer.MKBoundControl1 = Nothing + Me.lbl_Developer.MKBoundControl2 = Nothing + Me.lbl_Developer.MKBoundControl3 = Nothing + Me.lbl_Developer.MKBoundControl4 = Nothing + Me.lbl_Developer.MKBoundControl5 = Nothing + Me.lbl_Developer.Name = "lbl_Developer" + Me.lbl_Developer.Size = New System.Drawing.Size(76, 20) + Me.lbl_Developer.TabIndex = 0 + Me.lbl_Developer.Text = "Developer:" + ' + 'lbl_Publisher + ' + Me.lbl_Publisher.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Publisher.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Publisher.Location = New System.Drawing.Point(4, 73) + Me.lbl_Publisher.MKBoundControl1 = Nothing + Me.lbl_Publisher.MKBoundControl2 = Nothing + Me.lbl_Publisher.MKBoundControl3 = Nothing + Me.lbl_Publisher.MKBoundControl4 = Nothing + Me.lbl_Publisher.MKBoundControl5 = Nothing + Me.lbl_Publisher.Name = "lbl_Publisher" + Me.lbl_Publisher.Size = New System.Drawing.Size(76, 20) + Me.lbl_Publisher.TabIndex = 0 + Me.lbl_Publisher.Text = "Publisher:" + ' + 'txb_Developer + ' + Me.txb_Developer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Developer.Location = New System.Drawing.Point(83, 96) + Me.txb_Developer.MKBoundLabel = Nothing + Me.txb_Developer.MKEditValue_Compare = Nothing + Me.txb_Developer.Name = "txb_Developer" + Me.txb_Developer.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem22.Text = "Developer" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "Developer of the game" + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.txb_Developer.SuperTip = SuperToolTip22 + Me.txb_Developer.TabIndex = 4 + ' + 'txb_Publisher + ' + Me.txb_Publisher.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Publisher.Location = New System.Drawing.Point(83, 73) + Me.txb_Publisher.MKBoundLabel = Nothing + Me.txb_Publisher.MKEditValue_Compare = Nothing + Me.txb_Publisher.Name = "txb_Publisher" + Me.txb_Publisher.Size = New System.Drawing.Size(432, 20) + ToolTipTitleItem23.Text = "Publisher" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = "Publisher of the game" + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.txb_Publisher.SuperTip = SuperToolTip23 + Me.txb_Publisher.TabIndex = 3 + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.Controls.Add(Me.btn_Cancel) + Me.pnl_Bottom.Controls.Add(Me.btn_OK) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 661) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(984, 31) + Me.pnl_Bottom.TabIndex = 3 + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(906, 4) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 1 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(828, 4) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 0 + Me.btn_OK.Text = "&OK" + ' + 'splt + ' + Me.splt.Location = New System.Drawing.Point(519, 0) + Me.splt.Name = "splt" + Me.splt.Size = New System.Drawing.Size(5, 661) + Me.splt.TabIndex = 4 + Me.splt.TabStop = False + ' + 'pnl_Right + ' + Me.pnl_Right.Controls.Add(Me.tcl2) + Me.pnl_Right.Controls.Add(Me.splt_Right) + Me.pnl_Right.Controls.Add(Me.tcl_Descriptions) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(524, 0) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Padding = New System.Windows.Forms.Padding(1) + Me.pnl_Right.Size = New System.Drawing.Size(460, 661) + Me.pnl_Right.TabIndex = 5 + ' + 'tcl2 + ' + Me.tcl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl2.Location = New System.Drawing.Point(3, 238) + Me.tcl2.Name = "tcl2" + Me.tcl2.SelectedTabPage = Me.tpg_TechInfo + Me.tcl2.Size = New System.Drawing.Size(454, 420) + Me.tcl2.TabIndex = 1 + Me.tcl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_TechInfo, Me.tpg_Languages, Me.tpg_Regions, Me.tpg_ReleaseInfo}) + ' + 'tpg_TechInfo + ' + Me.tpg_TechInfo.Controls.Add(Me.grd_Attributes) + Me.tpg_TechInfo.Name = "tpg_TechInfo" + Me.tpg_TechInfo.Size = New System.Drawing.Size(448, 392) + Me.tpg_TechInfo.Text = "TechInfo" + ' + 'tpg_Languages + ' + Me.tpg_Languages.Controls.Add(Me.grd_Languages) + Me.tpg_Languages.Name = "tpg_Languages" + Me.tpg_Languages.Size = New System.Drawing.Size(448, 392) + Me.tpg_Languages.Text = "Languages" + ' + 'grd_Languages + ' + Me.grd_Languages.DataSource = Me.BS_Languages + Me.grd_Languages.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Languages.Location = New System.Drawing.Point(0, 0) + Me.grd_Languages.MainView = Me.gv_Languages + Me.grd_Languages.Name = "grd_Languages" + Me.grd_Languages.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Language}) + Me.grd_Languages.Size = New System.Drawing.Size(448, 392) + Me.grd_Languages.TabIndex = 0 + Me.grd_Languages.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Languages}) + ' + 'BS_Languages + ' + Me.BS_Languages.DataMember = "tbl_Emu_Games_Edit_Languages" + Me.BS_Languages.DataSource = Me.DS_ML + ' + 'gv_Languages + ' + Me.gv_Languages.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colLanguageUsed, Me.colLanguage_Short, Me.colLanguage}) + Me.gv_Languages.GridControl = Me.grd_Languages + Me.gv_Languages.Name = "gv_Languages" + Me.gv_Languages.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Languages.OptionsView.ShowColumnHeaders = False + Me.gv_Languages.OptionsView.ShowGroupPanel = False + Me.gv_Languages.OptionsView.ShowIndicator = False + ' + 'colLanguageUsed + ' + Me.colLanguageUsed.Caption = " " + Me.colLanguageUsed.ColumnEdit = Me.rpi_Language + Me.colLanguageUsed.FieldName = "Used" + Me.colLanguageUsed.MaxWidth = 20 + Me.colLanguageUsed.Name = "colLanguageUsed" + Me.colLanguageUsed.Visible = True + Me.colLanguageUsed.VisibleIndex = 0 + Me.colLanguageUsed.Width = 20 + ' + 'rpi_Language + ' + Me.rpi_Language.AutoHeight = False + Me.rpi_Language.Name = "rpi_Language" + ' + 'colLanguage_Short + ' + Me.colLanguage_Short.FieldName = "Language_Short" + Me.colLanguage_Short.Name = "colLanguage_Short" + Me.colLanguage_Short.OptionsColumn.AllowEdit = False + Me.colLanguage_Short.OptionsColumn.ReadOnly = True + Me.colLanguage_Short.Visible = True + Me.colLanguage_Short.VisibleIndex = 1 + Me.colLanguage_Short.Width = 60 + ' + 'colLanguage + ' + Me.colLanguage.FieldName = "Language" + Me.colLanguage.Name = "colLanguage" + Me.colLanguage.OptionsColumn.AllowEdit = False + Me.colLanguage.OptionsColumn.ReadOnly = True + Me.colLanguage.Visible = True + Me.colLanguage.VisibleIndex = 2 + Me.colLanguage.Width = 360 + ' + 'tpg_Regions + ' + Me.tpg_Regions.Controls.Add(Me.grd_Regions) + Me.tpg_Regions.Name = "tpg_Regions" + Me.tpg_Regions.Size = New System.Drawing.Size(448, 392) + Me.tpg_Regions.Text = "Regions" + ' + 'grd_Regions + ' + Me.grd_Regions.DataSource = Me.BS_Regions + Me.grd_Regions.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Regions.Location = New System.Drawing.Point(0, 0) + Me.grd_Regions.MainView = Me.gv_Regions + Me.grd_Regions.Name = "grd_Regions" + Me.grd_Regions.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Regions}) + Me.grd_Regions.Size = New System.Drawing.Size(448, 392) + Me.grd_Regions.TabIndex = 1 + Me.grd_Regions.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Regions}) + ' + 'BS_Regions + ' + Me.BS_Regions.DataMember = "tbl_Emu_Games_Edit_Regions" + Me.BS_Regions.DataSource = Me.DS_ML + ' + 'gv_Regions + ' + Me.gv_Regions.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_Regions_Used, Me.colRegion1}) + Me.gv_Regions.GridControl = Me.grd_Regions + Me.gv_Regions.Name = "gv_Regions" + Me.gv_Regions.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Regions.OptionsView.ShowColumnHeaders = False + Me.gv_Regions.OptionsView.ShowGroupPanel = False + Me.gv_Regions.OptionsView.ShowIndicator = False + ' + 'col_Regions_Used + ' + Me.col_Regions_Used.Caption = " " + Me.col_Regions_Used.ColumnEdit = Me.rpi_Regions + Me.col_Regions_Used.FieldName = "Used" + Me.col_Regions_Used.MaxWidth = 20 + Me.col_Regions_Used.Name = "col_Regions_Used" + Me.col_Regions_Used.Visible = True + Me.col_Regions_Used.VisibleIndex = 0 + Me.col_Regions_Used.Width = 20 + ' + 'rpi_Regions + ' + Me.rpi_Regions.AutoHeight = False + Me.rpi_Regions.Name = "rpi_Regions" + ' + 'colRegion1 + ' + Me.colRegion1.FieldName = "Region" + Me.colRegion1.Name = "colRegion1" + Me.colRegion1.OptionsColumn.AllowEdit = False + Me.colRegion1.OptionsColumn.ReadOnly = True + Me.colRegion1.Visible = True + Me.colRegion1.VisibleIndex = 1 + ' + 'tpg_ReleaseInfo + ' + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Alpha) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Pirated) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Fixed) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Overdump) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Bad) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Good) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Unlicensed) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Translation) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Beta) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Kiosk) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Sample) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Prototype) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Trainer) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Hack) + Me.tpg_ReleaseInfo.Controls.Add(Me.chb_Bios) + Me.tpg_ReleaseInfo.Name = "tpg_ReleaseInfo" + Me.tpg_ReleaseInfo.Size = New System.Drawing.Size(448, 392) + Me.tpg_ReleaseInfo.Text = "ReleaseInfo" + ' + 'chb_Alpha + ' + Me.chb_Alpha.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Alpha.Location = New System.Drawing.Point(3, 113) + Me.chb_Alpha.MKBoundLabel = Nothing + Me.chb_Alpha.MKEditValue_Compare = Nothing + Me.chb_Alpha.Name = "chb_Alpha" + Me.chb_Alpha.Properties.Caption = "Alpha" + Me.chb_Alpha.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Alpha.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem43.Text = "Alpha" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "The tag denotes the game is an alpha version." + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.chb_Alpha.SuperTip = SuperToolTip43 + Me.chb_Alpha.TabIndex = 5 + ' + 'chb_Pirated + ' + Me.chb_Pirated.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Pirated.Location = New System.Drawing.Point(105, 91) + Me.chb_Pirated.MKBoundLabel = Nothing + Me.chb_Pirated.MKEditValue_Compare = Nothing + Me.chb_Pirated.Name = "chb_Pirated" + Me.chb_Pirated.Properties.Caption = "Pirated" + Me.chb_Pirated.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Pirated.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem25.Text = "Pirated" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "The tag denotes the game is a pirated game (e.g. pirate carts)." + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.chb_Pirated.SuperTip = SuperToolTip25 + Me.chb_Pirated.TabIndex = 11 + ' + 'chb_Fixed + ' + Me.chb_Fixed.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Fixed.Location = New System.Drawing.Point(105, 69) + Me.chb_Fixed.MKBoundLabel = Nothing + Me.chb_Fixed.MKEditValue_Compare = Nothing + Me.chb_Fixed.Name = "chb_Fixed" + Me.chb_Fixed.Properties.Caption = "Fixed" + Me.chb_Fixed.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Fixed.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem26.Text = "Fixed" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "The tag denotes the game contains a fix." + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.chb_Fixed.SuperTip = SuperToolTip26 + Me.chb_Fixed.TabIndex = 10 + ' + 'chb_Overdump + ' + Me.chb_Overdump.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Overdump.Location = New System.Drawing.Point(105, 157) + Me.chb_Overdump.MKBoundLabel = Nothing + Me.chb_Overdump.MKEditValue_Compare = Nothing + Me.chb_Overdump.Name = "chb_Overdump" + Me.chb_Overdump.Properties.Caption = "Overdump" + Me.chb_Overdump.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Overdump.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem27.Text = "Hack" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "The tag denotes the game is an overdump." + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.chb_Overdump.SuperTip = SuperToolTip27 + Me.chb_Overdump.TabIndex = 14 + ' + 'chb_Bad + ' + Me.chb_Bad.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Bad.Location = New System.Drawing.Point(105, 135) + Me.chb_Bad.MKBoundLabel = Nothing + Me.chb_Bad.MKEditValue_Compare = Nothing + Me.chb_Bad.Name = "chb_Bad" + Me.chb_Bad.Properties.Caption = "Bad" + Me.chb_Bad.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Bad.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem28.Text = "Bad" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = "The tag denotes the game is bad dump." + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.chb_Bad.SuperTip = SuperToolTip28 + Me.chb_Bad.TabIndex = 13 + ' + 'chb_Good + ' + Me.chb_Good.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Good.Location = New System.Drawing.Point(105, 113) + Me.chb_Good.MKBoundLabel = Nothing + Me.chb_Good.MKEditValue_Compare = Nothing + Me.chb_Good.Name = "chb_Good" + Me.chb_Good.Properties.Caption = "Good" + Me.chb_Good.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Good.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem29.Text = "Good" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = "The tag denotes the game is a known good dump." + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.chb_Good.SuperTip = SuperToolTip29 + Me.chb_Good.TabIndex = 12 + ' + 'chb_Unlicensed + ' + Me.chb_Unlicensed.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Unlicensed.Location = New System.Drawing.Point(105, 47) + Me.chb_Unlicensed.MKBoundLabel = Nothing + Me.chb_Unlicensed.MKEditValue_Compare = Nothing + Me.chb_Unlicensed.Name = "chb_Unlicensed" + Me.chb_Unlicensed.Properties.Caption = "Unlicensed" + Me.chb_Unlicensed.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Unlicensed.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem30.Text = "Unlicensed" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = "The tag denotes the game is an unlicensed game." + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.chb_Unlicensed.SuperTip = SuperToolTip30 + Me.chb_Unlicensed.TabIndex = 9 + ' + 'chb_Translation + ' + Me.chb_Translation.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Translation.Location = New System.Drawing.Point(3, 25) + Me.chb_Translation.MKBoundLabel = Nothing + Me.chb_Translation.MKEditValue_Compare = Nothing + Me.chb_Translation.Name = "chb_Translation" + Me.chb_Translation.Properties.Caption = "Translation" + Me.chb_Translation.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Translation.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem31.Text = "Translation" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "The tag denotes the game is an (inofficial) translation. Please also keep in mind" & + " to select the appropriate language/s in the language section." + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.chb_Translation.SuperTip = SuperToolTip31 + Me.chb_Translation.TabIndex = 1 + ' + 'chb_Beta + ' + Me.chb_Beta.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Beta.Location = New System.Drawing.Point(3, 135) + Me.chb_Beta.MKBoundLabel = Nothing + Me.chb_Beta.MKEditValue_Compare = Nothing + Me.chb_Beta.Name = "chb_Beta" + Me.chb_Beta.Properties.Caption = "Beta" + Me.chb_Beta.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Beta.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem32.Text = "Beta" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "The tag denotes the game is a beta version." + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.chb_Beta.SuperTip = SuperToolTip32 + Me.chb_Beta.TabIndex = 6 + ' + 'chb_Kiosk + ' + Me.chb_Kiosk.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Kiosk.Location = New System.Drawing.Point(105, 25) + Me.chb_Kiosk.MKBoundLabel = Nothing + Me.chb_Kiosk.MKEditValue_Compare = Nothing + Me.chb_Kiosk.Name = "chb_Kiosk" + Me.chb_Kiosk.Properties.Caption = "Kiosk" + Me.chb_Kiosk.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Kiosk.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem33.Text = "Kiosk" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = "The tag denotes the game is a kiosk version." + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.chb_Kiosk.SuperTip = SuperToolTip33 + Me.chb_Kiosk.TabIndex = 8 + ' + 'chb_Sample + ' + Me.chb_Sample.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sample.Location = New System.Drawing.Point(105, 3) + Me.chb_Sample.MKBoundLabel = Nothing + Me.chb_Sample.MKEditValue_Compare = Nothing + Me.chb_Sample.Name = "chb_Sample" + Me.chb_Sample.Properties.Caption = "Sample" + Me.chb_Sample.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Sample.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem34.Text = "Sample" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "The tag denotes the game is a sample or demo." + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.chb_Sample.SuperTip = SuperToolTip34 + Me.chb_Sample.TabIndex = 7 + ' + 'chb_Prototype + ' + Me.chb_Prototype.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Prototype.Location = New System.Drawing.Point(3, 91) + Me.chb_Prototype.MKBoundLabel = Nothing + Me.chb_Prototype.MKEditValue_Compare = Nothing + Me.chb_Prototype.Name = "chb_Prototype" + Me.chb_Prototype.Properties.Caption = "Prototype" + Me.chb_Prototype.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Prototype.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem35.Text = "Prototype" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "The tag denotes the game is a prototype." + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.chb_Prototype.SuperTip = SuperToolTip35 + Me.chb_Prototype.TabIndex = 4 + ' + 'chb_Trainer + ' + Me.chb_Trainer.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Trainer.Location = New System.Drawing.Point(3, 3) + Me.chb_Trainer.MKBoundLabel = Nothing + Me.chb_Trainer.MKEditValue_Compare = Nothing + Me.chb_Trainer.Name = "chb_Trainer" + Me.chb_Trainer.Properties.Caption = "Trainer" + Me.chb_Trainer.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Trainer.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem36.Text = "Trainer" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "The tag denotes the game contains a trainer." + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.chb_Trainer.SuperTip = SuperToolTip36 + Me.chb_Trainer.TabIndex = 0 + ' + 'chb_Hack + ' + Me.chb_Hack.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Hack.Location = New System.Drawing.Point(3, 47) + Me.chb_Hack.MKBoundLabel = Nothing + Me.chb_Hack.MKEditValue_Compare = Nothing + Me.chb_Hack.Name = "chb_Hack" + Me.chb_Hack.Properties.Caption = "Hack" + Me.chb_Hack.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Hack.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem37.Text = "Hack" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = "The tag denotes the game is a hack." + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.chb_Hack.SuperTip = SuperToolTip37 + Me.chb_Hack.TabIndex = 2 + ' + 'chb_Bios + ' + Me.chb_Bios.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Bios.Location = New System.Drawing.Point(3, 69) + Me.chb_Bios.MKBoundLabel = Nothing + Me.chb_Bios.MKEditValue_Compare = Nothing + Me.chb_Bios.Name = "chb_Bios" + Me.chb_Bios.Properties.Caption = "Bios" + Me.chb_Bios.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Bios.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem38.Text = "Bios" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "The tag denotes the rom is a Bios image." + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.chb_Bios.SuperTip = SuperToolTip38 + Me.chb_Bios.TabIndex = 3 + ' + 'splt_Right + ' + Me.splt_Right.Dock = System.Windows.Forms.DockStyle.Top + Me.splt_Right.Location = New System.Drawing.Point(3, 233) + Me.splt_Right.Name = "splt_Right" + Me.splt_Right.Size = New System.Drawing.Size(454, 5) + Me.splt_Right.TabIndex = 3 + Me.splt_Right.TabStop = False + ' + 'tcl_Descriptions + ' + Me.tcl_Descriptions.Dock = System.Windows.Forms.DockStyle.Top + Me.tcl_Descriptions.Location = New System.Drawing.Point(3, 3) + Me.tcl_Descriptions.Name = "tcl_Descriptions" + Me.tcl_Descriptions.SelectedTabPage = Me.tpg_Description + Me.tcl_Descriptions.Size = New System.Drawing.Size(454, 230) + Me.tcl_Descriptions.TabIndex = 0 + Me.tcl_Descriptions.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Description, Me.tpg_Special_Info, Me.tpg_DOSBox_Config, Me.tpg_DOSBox_Files_and_Directories, Me.tpg_Disks_Volumes}) + ' + 'tpg_Description + ' + Me.tpg_Description.Controls.Add(Me.txb_Description) + Me.tpg_Description.Name = "tpg_Description" + Me.tpg_Description.Size = New System.Drawing.Size(448, 202) + Me.tpg_Description.Text = "Description" + ' + 'txb_Description + ' + Me.txb_Description.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Description.Location = New System.Drawing.Point(0, 0) + Me.txb_Description.MKBoundLabel = Nothing + Me.txb_Description.MKEditValue_Compare = Nothing + Me.txb_Description.Name = "txb_Description" + Me.txb_Description.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_Description.Size = New System.Drawing.Size(448, 202) + ToolTipTitleItem39.Text = "Description" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "This is the game's description." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Do not put Hack or Translation infos in here, us" & + "e the Special Info field for them." + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.txb_Description.SuperTip = SuperToolTip39 + Me.txb_Description.TabIndex = 1 + ' + 'tpg_Special_Info + ' + Me.tpg_Special_Info.Controls.Add(Me.txb_Special_Info) + Me.tpg_Special_Info.Name = "tpg_Special_Info" + Me.tpg_Special_Info.Size = New System.Drawing.Size(448, 202) + Me.tpg_Special_Info.Text = "Special Info" + ' + 'txb_Special_Info + ' + Me.txb_Special_Info.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Special_Info.Location = New System.Drawing.Point(0, 0) + Me.txb_Special_Info.MKBoundLabel = Nothing + Me.txb_Special_Info.MKEditValue_Compare = Nothing + Me.txb_Special_Info.Name = "txb_Special_Info" + Me.txb_Special_Info.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_Special_Info.Size = New System.Drawing.Size(448, 202) + ToolTipTitleItem40.Text = "Special Info" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "This field contains special information about the game if applicable. Use this fi" & + "eld for Hack or Translation information." + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.txb_Special_Info.SuperTip = SuperToolTip40 + Me.txb_Special_Info.TabIndex = 2 + ' + 'tpg_DOSBox_Config + ' + Me.tpg_DOSBox_Config.Controls.Add(Me.ucr_DOSBox_Config) + Me.tpg_DOSBox_Config.Name = "tpg_DOSBox_Config" + Me.tpg_DOSBox_Config.PageVisible = False + Me.tpg_DOSBox_Config.Size = New System.Drawing.Size(448, 202) + Me.tpg_DOSBox_Config.Text = "DOSBox Config" + ' + 'ucr_DOSBox_Config + ' + Me.ucr_DOSBox_Config.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_DOSBox_Config.Location = New System.Drawing.Point(0, 0) + Me.ucr_DOSBox_Config.Name = "ucr_DOSBox_Config" + Me.ucr_DOSBox_Config.Size = New System.Drawing.Size(448, 202) + Me.ucr_DOSBox_Config.TabIndex = 0 + ' + 'tpg_DOSBox_Files_and_Directories + ' + Me.tpg_DOSBox_Files_and_Directories.Controls.Add(Me.pnl_DOSBox_Files_and_Folders) + Me.tpg_DOSBox_Files_and_Directories.Name = "tpg_DOSBox_Files_and_Directories" + Me.tpg_DOSBox_Files_and_Directories.PageVisible = False + Me.tpg_DOSBox_Files_and_Directories.Size = New System.Drawing.Size(448, 202) + Me.tpg_DOSBox_Files_and_Directories.Text = "Files/Directories" + ' + 'pnl_DOSBox_Files_and_Folders + ' + Me.pnl_DOSBox_Files_and_Folders.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_DOSBox_Files_and_Folders.Controls.Add(Me.Ctl_MKDXSplitPanel1) + Me.pnl_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 0) + Me.pnl_DOSBox_Files_and_Folders.Name = "pnl_DOSBox_Files_and_Folders" + Me.pnl_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(448, 202) + Me.pnl_DOSBox_Files_and_Folders.TabIndex = 7 + ' + 'Ctl_MKDXSplitPanel1 + ' + Me.Ctl_MKDXSplitPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXSplitPanel1.Location = New System.Drawing.Point(0, 0) + Me.Ctl_MKDXSplitPanel1.Name = "Ctl_MKDXSplitPanel1" + Me.Ctl_MKDXSplitPanel1.Panel1.Controls.Add(Me.grd_DOSBox_Files_and_Folders) + Me.Ctl_MKDXSplitPanel1.Panel1.Controls.Add(Me.lbl_DOSBox_Files_and_Folders) + Me.Ctl_MKDXSplitPanel1.Panel1.Text = "Panel1" + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_Inner_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_Folder) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Volume_Number) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Mount_Destination) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Exe_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Volume_Number) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Mount_Destination) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_InnerFile) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Exe_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Folder) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Folder_and_Files_Settings) + Me.Ctl_MKDXSplitPanel1.Panel2.Text = "Panel2" + Me.Ctl_MKDXSplitPanel1.Size = New System.Drawing.Size(448, 202) + Me.Ctl_MKDXSplitPanel1.SplitterPosition = 203 + Me.Ctl_MKDXSplitPanel1.TabIndex = 6 + Me.Ctl_MKDXSplitPanel1.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_DOSBox_Files_and_Folders + ' + Me.grd_DOSBox_Files_and_Folders.DataSource = Me.BS_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 42) + Me.grd_DOSBox_Files_and_Folders.MainView = Me.gv_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Name = "grd_DOSBox_Files_and_Folders" + Me.grd_DOSBox_Files_and_Folders.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_MV_Volume}) + Me.grd_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(203, 160) + Me.grd_DOSBox_Files_and_Folders.TabIndex = 0 + Me.grd_DOSBox_Files_and_Folders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Files_and_Folders}) + ' + 'BS_DOSBox_Files_and_Folders + ' + Me.BS_DOSBox_Files_and_Folders.DataMember = "tbl_Emu_Games" + Me.BS_DOSBox_Files_and_Folders.DataSource = Me.DS_ML + Me.BS_DOSBox_Files_and_Folders.Filter = "" + ' + 'gv_DOSBox_Files_and_Folders + ' + Me.gv_DOSBox_Files_and_Folders.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_DOSBox_Displayname, Me.colid_Rombase_DOSBox_Filetypes, Me.colDOSBox_Mount_Destination, Me.colVolume_Number1, Me.col_Directory, Me.col_Filename, Me.colInnerFile1}) + Me.gv_DOSBox_Files_and_Folders.GridControl = Me.grd_DOSBox_Files_and_Folders + Me.gv_DOSBox_Files_and_Folders.Name = "gv_DOSBox_Files_and_Folders" + Me.gv_DOSBox_Files_and_Folders.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DOSBox_Files_and_Folders.OptionsView.ColumnAutoWidth = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowIndicator = False + ' + 'col_DOSBox_Displayname + ' + Me.col_DOSBox_Displayname.Caption = "File/Directory" + Me.col_DOSBox_Displayname.Name = "col_DOSBox_Displayname" + Me.col_DOSBox_Displayname.OptionsColumn.AllowEdit = False + Me.col_DOSBox_Displayname.Visible = True + Me.col_DOSBox_Displayname.VisibleIndex = 0 + Me.col_DOSBox_Displayname.Width = 163 + ' + 'colid_Rombase_DOSBox_Filetypes + ' + Me.colid_Rombase_DOSBox_Filetypes.Caption = "Type" + Me.colid_Rombase_DOSBox_Filetypes.FieldName = "id_Rombase_DOSBox_Filetypes" + Me.colid_Rombase_DOSBox_Filetypes.Name = "colid_Rombase_DOSBox_Filetypes" + Me.colid_Rombase_DOSBox_Filetypes.OptionsColumn.AllowEdit = False + Me.colid_Rombase_DOSBox_Filetypes.Visible = True + Me.colid_Rombase_DOSBox_Filetypes.VisibleIndex = 1 + Me.colid_Rombase_DOSBox_Filetypes.Width = 85 + ' + 'colDOSBox_Mount_Destination + ' + Me.colDOSBox_Mount_Destination.Caption = "Mount" + Me.colDOSBox_Mount_Destination.FieldName = "DOSBox_Mount_Destination" + Me.colDOSBox_Mount_Destination.Name = "colDOSBox_Mount_Destination" + Me.colDOSBox_Mount_Destination.OptionsColumn.AllowEdit = False + Me.colDOSBox_Mount_Destination.Visible = True + Me.colDOSBox_Mount_Destination.VisibleIndex = 2 + Me.colDOSBox_Mount_Destination.Width = 58 + ' + 'colVolume_Number1 + ' + Me.colVolume_Number1.Caption = "Volume" + Me.colVolume_Number1.ColumnEdit = Me.rpi_MV_Volume + Me.colVolume_Number1.FieldName = "Volume_Number" + Me.colVolume_Number1.Name = "colVolume_Number1" + Me.colVolume_Number1.OptionsColumn.AllowEdit = False + Me.colVolume_Number1.Visible = True + Me.colVolume_Number1.VisibleIndex = 3 + Me.colVolume_Number1.Width = 78 + ' + 'rpi_MV_Volume + ' + Me.rpi_MV_Volume.AutoHeight = False + Me.rpi_MV_Volume.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_MV_Volume.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_MV_Volume.DataSource = Me.BS_MV_Volume + Me.rpi_MV_Volume.DisplayMember = "DisplayText" + Me.rpi_MV_Volume.Name = "rpi_MV_Volume" + Me.rpi_MV_Volume.NullText = "Not a volume" + Me.rpi_MV_Volume.ShowHeader = False + Me.rpi_MV_Volume.ValueMember = "id_Tag_Parser_Volumes" + ' + 'BS_MV_Volume + ' + Me.BS_MV_Volume.DataMember = "ttb_Tag_Parser_Volumes" + Me.BS_MV_Volume.DataSource = Me.DS_ML + ' + 'col_Directory + ' + Me.col_Directory.Caption = "Directory" + Me.col_Directory.FieldName = "Folder" + Me.col_Directory.Name = "col_Directory" + Me.col_Directory.OptionsColumn.AllowEdit = False + Me.col_Directory.Width = 144 + ' + 'col_Filename + ' + Me.col_Filename.Caption = "Filename" + Me.col_Filename.FieldName = "File" + Me.col_Filename.Name = "col_Filename" + Me.col_Filename.OptionsColumn.AllowEdit = False + Me.col_Filename.Width = 152 + ' + 'colInnerFile1 + ' + Me.colInnerFile1.Caption = "Inner File" + Me.colInnerFile1.FieldName = "InnerFile" + Me.colInnerFile1.Name = "colInnerFile1" + Me.colInnerFile1.OptionsColumn.AllowEdit = False + Me.colInnerFile1.Width = 172 + ' + 'lbl_DOSBox_Files_and_Folders + ' + Me.lbl_DOSBox_Files_and_Folders.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_DOSBox_Files_and_Folders.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 0) + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Files_and_Folders.Name = "lbl_DOSBox_Files_and_Folders" + Me.lbl_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(203, 42) + Me.lbl_DOSBox_Files_and_Folders.TabIndex = 7 + Me.lbl_DOSBox_Files_and_Folders.Text = "Files and Directories" + ' + 'txb_DOSBox_Inner_File + ' + Me.txb_DOSBox_Inner_File.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_Inner_File.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_DOSBox_Files_and_Folders, "InnerFile", True)) + Me.txb_DOSBox_Inner_File.Location = New System.Drawing.Point(94, 88) + Me.txb_DOSBox_Inner_File.MKBoundLabel = Nothing + Me.txb_DOSBox_Inner_File.MKEditValue_Compare = Nothing + Me.txb_DOSBox_Inner_File.Name = "txb_DOSBox_Inner_File" + Me.txb_DOSBox_Inner_File.Properties.ReadOnly = True + Me.txb_DOSBox_Inner_File.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem24.Text = "Inner File" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "If the File is packed (e.g. zip or rar file), the inner file specifies the file w" & + "ithing the packed file." + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.txb_DOSBox_Inner_File.SuperTip = SuperToolTip24 + Me.txb_DOSBox_Inner_File.TabIndex = 2 + ' + 'txb_DOSBox_File + ' + Me.txb_DOSBox_File.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_File.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_DOSBox_Files_and_Folders, "File", True)) + Me.txb_DOSBox_File.Location = New System.Drawing.Point(94, 65) + Me.txb_DOSBox_File.MKBoundLabel = Nothing + Me.txb_DOSBox_File.MKEditValue_Compare = Nothing + Me.txb_DOSBox_File.Name = "txb_DOSBox_File" + Me.txb_DOSBox_File.Properties.ReadOnly = True + Me.txb_DOSBox_File.Size = New System.Drawing.Size(143, 20) + Me.txb_DOSBox_File.TabIndex = 1 + ' + 'txb_DOSBox_Folder + ' + Me.txb_DOSBox_Folder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_Folder.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_DOSBox_Files_and_Folders, "Folder", True)) + Me.txb_DOSBox_Folder.Location = New System.Drawing.Point(94, 42) + Me.txb_DOSBox_Folder.MKBoundLabel = Nothing + Me.txb_DOSBox_Folder.MKEditValue_Compare = Nothing + Me.txb_DOSBox_Folder.Name = "txb_DOSBox_Folder" + Me.txb_DOSBox_Folder.Properties.ReadOnly = True + Me.txb_DOSBox_Folder.Size = New System.Drawing.Size(143, 20) + Me.txb_DOSBox_Folder.TabIndex = 0 + ' + 'cmb_DOSBox_Volume_Number + ' + Me.cmb_DOSBox_Volume_Number.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "Volume_Number", True)) + Me.cmb_DOSBox_Volume_Number.Location = New System.Drawing.Point(94, 157) + Me.cmb_DOSBox_Volume_Number.MKBoundLabel = Nothing + Me.cmb_DOSBox_Volume_Number.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Volume_Number.Name = "cmb_DOSBox_Volume_Number" + Me.cmb_DOSBox_Volume_Number.Properties.AllowFocused = False + Me.cmb_DOSBox_Volume_Number.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Volume_Number.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Volume_Number.Properties.DataSource = Me.BS_MV_Volume + Me.cmb_DOSBox_Volume_Number.Properties.DisplayMember = "DisplayText" + Me.cmb_DOSBox_Volume_Number.Properties.NullText = "" + Me.cmb_DOSBox_Volume_Number.Properties.ShowFooter = False + Me.cmb_DOSBox_Volume_Number.Properties.ShowHeader = False + Me.cmb_DOSBox_Volume_Number.Properties.ValueMember = "id_Tag_Parser_Volumes" + Me.cmb_DOSBox_Volume_Number.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Volume_Number.TabIndex = 5 + ' + 'cmb_DOSBox_Mount_Destination + ' + Me.cmb_DOSBox_Mount_Destination.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "DOSBox_Mount_Destination", True)) + Me.cmb_DOSBox_Mount_Destination.Location = New System.Drawing.Point(94, 134) + Me.cmb_DOSBox_Mount_Destination.MKBoundLabel = Nothing + Me.cmb_DOSBox_Mount_Destination.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Mount_Destination.Name = "cmb_DOSBox_Mount_Destination" + Me.cmb_DOSBox_Mount_Destination.Properties.AllowFocused = False + Me.cmb_DOSBox_Mount_Destination.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Mount_Destination.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Value", "Value", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Mount_Destination.Properties.DataSource = Me.BTA_DOSBox_Mount_Destination + Me.cmb_DOSBox_Mount_Destination.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Mount_Destination.Properties.NullText = "" + Me.cmb_DOSBox_Mount_Destination.Properties.ShowFooter = False + Me.cmb_DOSBox_Mount_Destination.Properties.ShowHeader = False + Me.cmb_DOSBox_Mount_Destination.Properties.ValueMember = "Value" + Me.cmb_DOSBox_Mount_Destination.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem42.Text = "Mount as" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "The drive letter within DOSBox to which the file's content gets mounted" + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.cmb_DOSBox_Mount_Destination.SuperTip = SuperToolTip42 + Me.cmb_DOSBox_Mount_Destination.TabIndex = 4 + ' + 'BTA_DOSBox_Mount_Destination + ' + Me.BTA_DOSBox_Mount_Destination.AllowDelete = True + Me.BTA_DOSBox_Mount_Destination.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Mount_Destination.Connection = Nothing + Me.BTA_DOSBox_Mount_Destination.DSStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Mount_Destination.FillString = "" + Me.BTA_DOSBox_Mount_Destination.Transaction = Nothing + Me.BTA_DOSBox_Mount_Destination.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_DOSBox_Exe_Type + ' + Me.cmb_DOSBox_Exe_Type.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "id_Rombase_DOSBox_Exe_Types", True)) + Me.cmb_DOSBox_Exe_Type.Location = New System.Drawing.Point(94, 134) + Me.cmb_DOSBox_Exe_Type.MKBoundLabel = Nothing + Me.cmb_DOSBox_Exe_Type.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Exe_Type.Name = "cmb_DOSBox_Exe_Type" + Me.cmb_DOSBox_Exe_Type.Properties.AllowFocused = False + Me.cmb_DOSBox_Exe_Type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Exe_Type.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Rombase_DOSBox_Exe_Types", "id_Rombase_DOS Box_Exe_Types", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ID", "ID", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Exe_Type.Properties.DataSource = Me.BTA_DOSBox_Exe_Types + Me.cmb_DOSBox_Exe_Type.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Exe_Type.Properties.NullText = "" + Me.cmb_DOSBox_Exe_Type.Properties.ShowFooter = False + Me.cmb_DOSBox_Exe_Type.Properties.ShowHeader = False + Me.cmb_DOSBox_Exe_Type.Properties.ValueMember = "id_Rombase_DOSBox_Exe_Types" + Me.cmb_DOSBox_Exe_Type.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Exe_Type.TabIndex = 22 + ' + 'BTA_DOSBox_Exe_Types + ' + Me.BTA_DOSBox_Exe_Types.AllowDelete = True + Me.BTA_DOSBox_Exe_Types.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Exe_Types.Connection = Nothing + Me.BTA_DOSBox_Exe_Types.DSStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Exe_Types.FillString = "" + Me.BTA_DOSBox_Exe_Types.Transaction = Nothing + Me.BTA_DOSBox_Exe_Types.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_DOSBox_Type + ' + Me.cmb_DOSBox_Type.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "id_Rombase_DOSBox_Filetypes", True)) + Me.cmb_DOSBox_Type.Location = New System.Drawing.Point(94, 111) + Me.cmb_DOSBox_Type.MKBoundLabel = Nothing + Me.cmb_DOSBox_Type.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Type.Name = "cmb_DOSBox_Type" + Me.cmb_DOSBox_Type.Properties.AllowFocused = False + Me.cmb_DOSBox_Type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_DOSBox_Type.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Rombase_DOSBox_Filetypes", "id_Rombase_DOS Box_Filetypes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ID", "ID", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Type.Properties.DataSource = Me.BTA_DOSBox_Filetypes + Me.cmb_DOSBox_Type.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Type.Properties.NullText = "" + Me.cmb_DOSBox_Type.Properties.ShowFooter = False + Me.cmb_DOSBox_Type.Properties.ShowHeader = False + Me.cmb_DOSBox_Type.Properties.ValueMember = "id_Rombase_DOSBox_Filetypes" + Me.cmb_DOSBox_Type.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Type.TabIndex = 3 + ' + 'BTA_DOSBox_Filetypes + ' + Me.BTA_DOSBox_Filetypes.AllowDelete = True + Me.BTA_DOSBox_Filetypes.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Filetypes.Connection = Nothing + Me.BTA_DOSBox_Filetypes.DSStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Filetypes.FillString = "" + Me.BTA_DOSBox_Filetypes.Filter = "ID <> 'int'" + Me.BTA_DOSBox_Filetypes.Transaction = Nothing + Me.BTA_DOSBox_Filetypes.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_DOSBox_Volume_Number + ' + Me.lbl_DOSBox_Volume_Number.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Volume_Number.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Volume_Number.Location = New System.Drawing.Point(1, 157) + Me.lbl_DOSBox_Volume_Number.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Volume_Number.Name = "lbl_DOSBox_Volume_Number" + Me.lbl_DOSBox_Volume_Number.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Volume_Number.TabIndex = 9 + Me.lbl_DOSBox_Volume_Number.Text = "Volume N°:" + ' + 'lbl_DOSBox_Mount_Destination + ' + Me.lbl_DOSBox_Mount_Destination.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Mount_Destination.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Mount_Destination.Location = New System.Drawing.Point(1, 134) + Me.lbl_DOSBox_Mount_Destination.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Mount_Destination.Name = "lbl_DOSBox_Mount_Destination" + Me.lbl_DOSBox_Mount_Destination.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Mount_Destination.TabIndex = 9 + Me.lbl_DOSBox_Mount_Destination.Text = "Mount as:" + ' + 'lbl_DOSBox_InnerFile + ' + Me.lbl_DOSBox_InnerFile.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_InnerFile.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_InnerFile.Location = New System.Drawing.Point(1, 88) + Me.lbl_DOSBox_InnerFile.MKBoundControl1 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl2 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl3 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl4 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl5 = Nothing + Me.lbl_DOSBox_InnerFile.Name = "lbl_DOSBox_InnerFile" + Me.lbl_DOSBox_InnerFile.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_InnerFile.TabIndex = 9 + Me.lbl_DOSBox_InnerFile.Text = "Inner File:" + ' + 'lbl_DOSBox_File + ' + Me.lbl_DOSBox_File.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_File.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_File.Location = New System.Drawing.Point(1, 65) + Me.lbl_DOSBox_File.MKBoundControl1 = Nothing + Me.lbl_DOSBox_File.MKBoundControl2 = Nothing + Me.lbl_DOSBox_File.MKBoundControl3 = Nothing + Me.lbl_DOSBox_File.MKBoundControl4 = Nothing + Me.lbl_DOSBox_File.MKBoundControl5 = Nothing + Me.lbl_DOSBox_File.Name = "lbl_DOSBox_File" + Me.lbl_DOSBox_File.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_File.TabIndex = 9 + Me.lbl_DOSBox_File.Text = "File:" + ' + 'lbl_DOSBox_Exe_Type + ' + Me.lbl_DOSBox_Exe_Type.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Exe_Type.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Exe_Type.Location = New System.Drawing.Point(1, 134) + Me.lbl_DOSBox_Exe_Type.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Exe_Type.Name = "lbl_DOSBox_Exe_Type" + Me.lbl_DOSBox_Exe_Type.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Exe_Type.TabIndex = 9 + Me.lbl_DOSBox_Exe_Type.Text = "Executable Type:" + ' + 'lbl_DOSBox_Folder + ' + Me.lbl_DOSBox_Folder.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Folder.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Folder.Location = New System.Drawing.Point(1, 42) + Me.lbl_DOSBox_Folder.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Folder.Name = "lbl_DOSBox_Folder" + Me.lbl_DOSBox_Folder.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Folder.TabIndex = 9 + Me.lbl_DOSBox_Folder.Text = "Directory:" + ' + 'lbl_DOSBox_Type + ' + Me.lbl_DOSBox_Type.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Type.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Type.Location = New System.Drawing.Point(1, 114) + Me.lbl_DOSBox_Type.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Type.Name = "lbl_DOSBox_Type" + Me.lbl_DOSBox_Type.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Type.TabIndex = 9 + Me.lbl_DOSBox_Type.Text = "Type:" + ' + 'lbl_DOSBox_Folder_and_Files_Settings + ' + Me.lbl_DOSBox_Folder_and_Files_Settings.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_DOSBox_Folder_and_Files_Settings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Folder_and_Files_Settings.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_DOSBox_Folder_and_Files_Settings.Location = New System.Drawing.Point(0, 0) + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.Name = "lbl_DOSBox_Folder_and_Files_Settings" + Me.lbl_DOSBox_Folder_and_Files_Settings.Size = New System.Drawing.Size(240, 42) + Me.lbl_DOSBox_Folder_and_Files_Settings.TabIndex = 8 + Me.lbl_DOSBox_Folder_and_Files_Settings.Text = "Configuration" + ' + 'tpg_Disks_Volumes + ' + Me.tpg_Disks_Volumes.Controls.Add(Me.pnl_Discs_Volumes) + Me.tpg_Disks_Volumes.Name = "tpg_Disks_Volumes" + Me.tpg_Disks_Volumes.PageVisible = False + Me.tpg_Disks_Volumes.Size = New System.Drawing.Size(448, 202) + Me.tpg_Disks_Volumes.Text = "Disks/Volumes" + ' + 'pnl_Discs_Volumes + ' + Me.pnl_Discs_Volumes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Discs_Volumes.Controls.Add(Me.grd_MV) + Me.pnl_Discs_Volumes.Controls.Add(Me.lbl_Volumes) + Me.pnl_Discs_Volumes.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Discs_Volumes.Location = New System.Drawing.Point(0, 0) + Me.pnl_Discs_Volumes.Name = "pnl_Discs_Volumes" + Me.pnl_Discs_Volumes.Size = New System.Drawing.Size(448, 202) + Me.pnl_Discs_Volumes.TabIndex = 6 + ' + 'grd_MV + ' + Me.grd_MV.DataSource = Me.BS_MV + Me.grd_MV.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_MV.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_MV.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_MV.Location = New System.Drawing.Point(0, 42) + Me.grd_MV.MainView = Me.gv_MV + Me.grd_MV.Name = "grd_MV" + Me.grd_MV.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Volume_Number}) + Me.grd_MV.Size = New System.Drawing.Size(448, 160) + Me.grd_MV.TabIndex = 4 + Me.grd_MV.UseEmbeddedNavigator = True + Me.grd_MV.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_MV}) + ' + 'BS_MV + ' + Me.BS_MV.DataMember = "tbl_Emu_Games" + Me.BS_MV.DataSource = Me.DS_ML + Me.BS_MV.Filter = "" + ' + 'gv_MV + ' + Me.gv_MV.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_MV_Directory, Me.col_MV_Filename, Me.col_MV_InnerFile, Me.col_MV_Added, Me.col_MV_Volume_Number}) + Me.gv_MV.GridControl = Me.grd_MV + Me.gv_MV.GroupCount = 1 + Me.gv_MV.Name = "gv_MV" + Me.gv_MV.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_MV.OptionsView.ColumnAutoWidth = False + Me.gv_MV.OptionsView.ShowGroupPanel = False + Me.gv_MV.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.col_MV_Directory, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'col_MV_Directory + ' + Me.col_MV_Directory.Caption = "Directory" + Me.col_MV_Directory.FieldName = "Folder" + Me.col_MV_Directory.Name = "col_MV_Directory" + Me.col_MV_Directory.OptionsColumn.AllowEdit = False + Me.col_MV_Directory.OptionsColumn.ReadOnly = True + Me.col_MV_Directory.Visible = True + Me.col_MV_Directory.VisibleIndex = 0 + ' + 'col_MV_Filename + ' + Me.col_MV_Filename.Caption = "Filename" + Me.col_MV_Filename.FieldName = "File" + Me.col_MV_Filename.Name = "col_MV_Filename" + Me.col_MV_Filename.OptionsColumn.AllowEdit = False + Me.col_MV_Filename.OptionsColumn.ReadOnly = True + Me.col_MV_Filename.Visible = True + Me.col_MV_Filename.VisibleIndex = 0 + Me.col_MV_Filename.Width = 140 + ' + 'col_MV_InnerFile + ' + Me.col_MV_InnerFile.Caption = "Inner File" + Me.col_MV_InnerFile.FieldName = "InnerFile" + Me.col_MV_InnerFile.Name = "col_MV_InnerFile" + Me.col_MV_InnerFile.OptionsColumn.AllowEdit = False + Me.col_MV_InnerFile.OptionsColumn.ReadOnly = True + Me.col_MV_InnerFile.Visible = True + Me.col_MV_InnerFile.VisibleIndex = 1 + Me.col_MV_InnerFile.Width = 175 + ' + 'col_MV_Added + ' + Me.col_MV_Added.Caption = "Added" + Me.col_MV_Added.DisplayFormat.FormatString = "g" + Me.col_MV_Added.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.col_MV_Added.FieldName = "created" + Me.col_MV_Added.Name = "col_MV_Added" + Me.col_MV_Added.OptionsColumn.AllowEdit = False + Me.col_MV_Added.OptionsColumn.ReadOnly = True + Me.col_MV_Added.Visible = True + Me.col_MV_Added.VisibleIndex = 3 + Me.col_MV_Added.Width = 94 + ' + 'col_MV_Volume_Number + ' + Me.col_MV_Volume_Number.Caption = "Volume Number" + Me.col_MV_Volume_Number.ColumnEdit = Me.rpi_Volume_Number + Me.col_MV_Volume_Number.FieldName = "Volume_Number" + Me.col_MV_Volume_Number.Name = "col_MV_Volume_Number" + Me.col_MV_Volume_Number.Visible = True + Me.col_MV_Volume_Number.VisibleIndex = 2 + Me.col_MV_Volume_Number.Width = 118 + ' + 'rpi_Volume_Number + ' + Me.rpi_Volume_Number.AutoHeight = False + Me.rpi_Volume_Number.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_Volume_Number.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_Volume_Number.DataSource = Me.BS_MV_Volume + Me.rpi_Volume_Number.DisplayMember = "DisplayText" + Me.rpi_Volume_Number.Name = "rpi_Volume_Number" + Me.rpi_Volume_Number.NullText = "Not a volume" + Me.rpi_Volume_Number.ShowHeader = False + Me.rpi_Volume_Number.ValueMember = "id_Tag_Parser_Volumes" + ' + 'lbl_Volumes + ' + Me.lbl_Volumes.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Volumes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Volumes.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Volumes.Location = New System.Drawing.Point(0, 0) + Me.lbl_Volumes.MKBoundControl1 = Nothing + Me.lbl_Volumes.MKBoundControl2 = Nothing + Me.lbl_Volumes.MKBoundControl3 = Nothing + Me.lbl_Volumes.MKBoundControl4 = Nothing + Me.lbl_Volumes.MKBoundControl5 = Nothing + Me.lbl_Volumes.Name = "lbl_Volumes" + Me.lbl_Volumes.Size = New System.Drawing.Size(448, 42) + Me.lbl_Volumes.TabIndex = 3 + Me.lbl_Volumes.Text = "Discs/Volumes" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Genres_Show_Description, Me.bbi_Genres_Remove_Value, Me.bbi_TechInfo_Show_Description, Me.bbi_TechInfo_Shortcuts, Me.bbi_TechInfo_Remove_Value, Me.bbi_TechInfo_Shortcut_Sports_MP, Me.bbi_TechInfo_Shortcut_CoOp_MP, Me.bbi_TechInfo_Shortcut_VS_Fighting, Me.bbi_Languages_Remove_Value, Me.bbi_Regions_Remove_Value}) + Me.barmng.MaxItemId = 10 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(984, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 692) + Me.barDockControlBottom.Size = New System.Drawing.Size(984, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 692) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(984, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 692) + ' + 'bbi_Genres_Show_Description + ' + Me.bbi_Genres_Show_Description.Caption = "&Show Description" + Me.bbi_Genres_Show_Description.Id = 0 + Me.bbi_Genres_Show_Description.ImageUri.Uri = "Preview" + Me.bbi_Genres_Show_Description.Name = "bbi_Genres_Show_Description" + ' + 'bbi_Genres_Remove_Value + ' + Me.bbi_Genres_Remove_Value.Caption = "&Remove Value" + Me.bbi_Genres_Remove_Value.Id = 1 + Me.bbi_Genres_Remove_Value.ImageUri.Uri = "Delete" + Me.bbi_Genres_Remove_Value.Name = "bbi_Genres_Remove_Value" + ' + 'bbi_TechInfo_Show_Description + ' + Me.bbi_TechInfo_Show_Description.Caption = "&Show Description" + Me.bbi_TechInfo_Show_Description.Id = 2 + Me.bbi_TechInfo_Show_Description.ImageUri.Uri = "Preview" + Me.bbi_TechInfo_Show_Description.Name = "bbi_TechInfo_Show_Description" + ' + 'bbi_TechInfo_Shortcuts + ' + Me.bbi_TechInfo_Shortcuts.Caption = "Short&cuts" + Me.bbi_TechInfo_Shortcuts.Id = 3 + Me.bbi_TechInfo_Shortcuts.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Shortcut_Sports_MP), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Shortcut_CoOp_MP), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Shortcut_VS_Fighting)}) + Me.bbi_TechInfo_Shortcuts.Name = "bbi_TechInfo_Shortcuts" + ' + 'bbi_TechInfo_Shortcut_Sports_MP + ' + Me.bbi_TechInfo_Shortcut_Sports_MP.Caption = "Sports Multiplayer (Team, Bots, Free-for-All, Same/Splitscreen)" + Me.bbi_TechInfo_Shortcut_Sports_MP.Id = 5 + Me.bbi_TechInfo_Shortcut_Sports_MP.Name = "bbi_TechInfo_Shortcut_Sports_MP" + ' + 'bbi_TechInfo_Shortcut_CoOp_MP + ' + Me.bbi_TechInfo_Shortcut_CoOp_MP.Caption = "Co-OP Multiplayer (Co-Op, Same/Splitscreen)" + Me.bbi_TechInfo_Shortcut_CoOp_MP.Id = 6 + Me.bbi_TechInfo_Shortcut_CoOp_MP.Name = "bbi_TechInfo_Shortcut_CoOp_MP" + ' + 'bbi_TechInfo_Shortcut_VS_Fighting + ' + Me.bbi_TechInfo_Shortcut_VS_Fighting.Caption = "VS Fighting (Free-for-all, Same/Splitscreen)" + Me.bbi_TechInfo_Shortcut_VS_Fighting.Id = 7 + Me.bbi_TechInfo_Shortcut_VS_Fighting.Name = "bbi_TechInfo_Shortcut_VS_Fighting" + ' + 'bbi_TechInfo_Remove_Value + ' + Me.bbi_TechInfo_Remove_Value.Caption = "&Remove value" + Me.bbi_TechInfo_Remove_Value.Id = 4 + Me.bbi_TechInfo_Remove_Value.ImageUri.Uri = "Delete" + Me.bbi_TechInfo_Remove_Value.Name = "bbi_TechInfo_Remove_Value" + ' + 'bbi_Languages_Remove_Value + ' + Me.bbi_Languages_Remove_Value.Caption = "&Remove value" + Me.bbi_Languages_Remove_Value.Id = 8 + Me.bbi_Languages_Remove_Value.ImageUri.Uri = "Delete" + Me.bbi_Languages_Remove_Value.Name = "bbi_Languages_Remove_Value" + ' + 'bbi_Regions_Remove_Value + ' + Me.bbi_Regions_Remove_Value.Caption = "&Remove value" + Me.bbi_Regions_Remove_Value.Id = 9 + Me.bbi_Regions_Remove_Value.ImageUri.Uri = "Delete" + Me.bbi_Regions_Remove_Value.Name = "bbi_Regions_Remove_Value" + ' + 'popmnu_Genres + ' + Me.popmnu_Genres.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Genres_Show_Description), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Genres_Remove_Value)}) + Me.popmnu_Genres.Manager = Me.barmng + Me.popmnu_Genres.Name = "popmnu_Genres" + ' + 'popmnu_TechInfo + ' + Me.popmnu_TechInfo.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Show_Description), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Shortcuts), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_TechInfo_Remove_Value)}) + Me.popmnu_TechInfo.Manager = Me.barmng + Me.popmnu_TechInfo.Name = "popmnu_TechInfo" + ' + 'popmnu_Languages + ' + Me.popmnu_Languages.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Languages_Remove_Value)}) + Me.popmnu_Languages.Manager = Me.barmng + Me.popmnu_Languages.Name = "popmnu_Languages" + ' + 'popmnu_Regions + ' + Me.popmnu_Regions.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Regions_Remove_Value)}) + Me.popmnu_Regions.Manager = Me.barmng + Me.popmnu_Regions.Name = "popmnu_Regions" + ' + 'frm_Emu_Game_Edit + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(984, 692) + Me.Controls.Add(Me.pnl_Right) + Me.Controls.Add(Me.splt) + Me.Controls.Add(Me.pnl_Left) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.MinimumSize = New System.Drawing.Size(1000, 730) + Me.Name = "frm_Emu_Game_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Game" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Prefix.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Notes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_TechInfo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Genres, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Default_Emulator.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DefaultEmu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Year.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tcl_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Attributes.ResumeLayout(False) + Me.tpg_Genres.ResumeLayout(False) + CType(Me.grd_Genres, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Genres, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Genres, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Perspectives.ResumeLayout(False) + CType(Me.grd_Perspectives, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Perspectives, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Perspectives, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Perspectives, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Visual_Presentation.ResumeLayout(False) + CType(Me.grd_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Gameplay.ResumeLayout(False) + CType(Me.grd_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Pacing.ResumeLayout(False) + CType(Me.grd_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Narrative_Theme_Topic.ResumeLayout(False) + CType(Me.grd_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Setting.ResumeLayout(False) + CType(Me.grd_Setting, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Setting, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Setting, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Setting, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Sports_Themes.ResumeLayout(False) + CType(Me.grd_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Vehicular_Themes.ResumeLayout(False) + CType(Me.grd_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Educational_Categories.ResumeLayout(False) + CType(Me.grd_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Interface_Control.ResumeLayout(False) + CType(Me.grd_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_DLC_Addon.ResumeLayout(False) + CType(Me.grd_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Special_Edition.ResumeLayout(False) + CType(Me.grd_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Other_Attributes.ResumeLayout(False) + CType(Me.grd_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Alt.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Version.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Developer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Publisher.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.tcl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl2.ResumeLayout(False) + Me.tpg_TechInfo.ResumeLayout(False) + Me.tpg_Languages.ResumeLayout(False) + CType(Me.grd_Languages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Languages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Languages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Language, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Regions.ResumeLayout(False) + CType(Me.grd_Regions, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Regions, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Regions, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Regions, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_ReleaseInfo.ResumeLayout(False) + CType(Me.chb_Alpha.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Pirated.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Fixed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Overdump.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Bad.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Good.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Unlicensed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Translation.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Beta.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Kiosk.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sample.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Prototype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Trainer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Hack.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Bios.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tcl_Descriptions, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Descriptions.ResumeLayout(False) + Me.tpg_Description.ResumeLayout(False) + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Special_Info.ResumeLayout(False) + CType(Me.txb_Special_Info.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_DOSBox_Config.ResumeLayout(False) + Me.tpg_DOSBox_Files_and_Directories.ResumeLayout(False) + CType(Me.pnl_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_DOSBox_Files_and_Folders.ResumeLayout(False) + CType(Me.Ctl_MKDXSplitPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXSplitPanel1.ResumeLayout(False) + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_Inner_File.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_File.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_Folder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Volume_Number.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Mount_Destination.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Mount_Destination, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Exe_Type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Exe_Types, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Filetypes, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Disks_Volumes.ResumeLayout(False) + CType(Me.pnl_Discs_Volumes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Discs_Volumes.ResumeLayout(False) + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Volume_Number, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Genres, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_TechInfo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Languages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Regions, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Ctl_MKDXLabel1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel3 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Name As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Prefix As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Notes As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tcl_Attributes As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_Genres As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Perspectives As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Educational_Categories As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Other_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents splt As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents splt_Right As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents txb_Description As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents grd_Genres As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Genres As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Genres As System.Windows.Forms.BindingSource + Friend WithEvents BS_Perspectives As System.Windows.Forms.BindingSource + Friend WithEvents BS_Sports_Themes As System.Windows.Forms.BindingSource + Friend WithEvents tpg_Sports_Themes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BS_Educational_Categories As System.Windows.Forms.BindingSource + Friend WithEvents BS_Other_Attributes As System.Windows.Forms.BindingSource + Friend WithEvents col_Genres_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Genres_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_Perspectives As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Perspectives As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Perspectives_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Perspectives_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_Sports_Themes As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Sports_Themes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Sports_Themes_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Sports_Themes_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Sports_Themes As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Educational_Categories As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Educational_Categories As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Educational_Categories_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Educational_Categories_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Educational_Categories As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Other_Attributes As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Other_Attributes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Other_Attributes_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Other_Attributes_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Other_Attributes As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Attributes As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Attributes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BS_Attributes As System.Windows.Forms.BindingSource + Friend WithEvents colCategoryGroup As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCategory As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_TechInfo_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAttribute As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Year As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Developer As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Publisher As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Developer As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Publisher As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents tcl2 As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_TechInfo As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Languages As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_Alt As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Version As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Alt As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Version As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents tpg_Regions As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_ReleaseInfo As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BS_Languages As System.Windows.Forms.BindingSource + Friend WithEvents grd_Languages As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Languages As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colLanguageUsed As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BS_Regions As System.Windows.Forms.BindingSource + Friend WithEvents grd_Regions As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Regions As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Regions_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRegion1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLanguage_Short As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLanguage As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents chb_Alpha As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Pirated As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Fixed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Overdump As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Bad As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Good As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Unlicensed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Translation As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Beta As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Kiosk As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Sample As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Prototype As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Trainer As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Hack As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Bios As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents cmb_Default_Emulator As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents txb_Year As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_DefaultEmulator As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_DefaultEmu As System.Windows.Forms.BindingSource + Friend WithEvents tcl_Descriptions As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_Description As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Special_Info As DevExpress.XtraTab.XtraTabPage + Friend WithEvents txb_Special_Info As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents tpg_DOSBox_Config As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ucr_DOSBox_Config As Metropolis_Launcher.ucr_DOSBox_Config + Friend WithEvents cmb_J2K_Config As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_J2KPreset As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_J2K As System.Windows.Forms.BindingSource + Friend WithEvents DS_J2K As System.Data.DataSet + Friend WithEvents tbl_Config As System.Data.DataTable + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents tpg_DOSBox_Files_and_Directories As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnl_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXSplitPanel1 As MKNetDXLib.ctl_MKDXSplitPanel + Private WithEvents grd_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_DOSBox_Files_and_Folders As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_DOSBox_Displayname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_Rombase_DOSBox_Filetypes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDOSBox_Mount_Destination As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVolume_Number1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_MV_Volume As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents col_Directory As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents col_Filename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_DOSBox_Inner_File As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_DOSBox_File As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_DOSBox_Folder As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents cmb_DOSBox_Volume_Number As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_DOSBox_Mount_Destination As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_DOSBox_Exe_Type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_DOSBox_Type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_DOSBox_Volume_Number As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Mount_Destination As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_InnerFile As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_File As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Exe_Type As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Folder As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Type As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Folder_and_Files_Settings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Disks_Volumes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnl_Discs_Volumes As MKNetDXLib.ctl_MKDXPanel + Private WithEvents grd_MV As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_MV As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_MV_Directory As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents col_MV_Filename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_MV_InnerFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_MV_Added As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_MV_Volume_Number As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Volume_Number As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_Volumes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_DOSBox_Files_and_Folders As System.Windows.Forms.BindingSource + Friend WithEvents BS_MV_Volume As System.Windows.Forms.BindingSource + Friend WithEvents BS_MV As System.Windows.Forms.BindingSource + Friend WithEvents BTA_DOSBox_Mount_Destination As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_DOSBox_Filetypes As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_DOSBox_Exe_Types As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Genres_Show_Description As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Genres_Remove_Value As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Genres As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_TechInfo_Show_Description As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_TechInfo_Shortcuts As DevExpress.XtraBars.BarSubItem + Friend WithEvents bbi_TechInfo_Shortcut_Sports_MP As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_TechInfo_Shortcut_CoOp_MP As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_TechInfo_Shortcut_VS_Fighting As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_TechInfo_Remove_Value As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_TechInfo As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Languages_Remove_Value As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Regions_Remove_Value As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Languages As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents popmnu_Regions As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents tpg_Visual_Presentation As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Pacing As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Gameplay As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Interface_Control As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Vehicular_Themes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Setting As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Narrative_Theme_Topic As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_DLC_Addon As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Special_Edition As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BS_Visual_Presentation As BindingSource + Friend WithEvents BS_Pacing As BindingSource + Friend WithEvents BS_Gameplay As BindingSource + Friend WithEvents BS_Interface_Control As BindingSource + Friend WithEvents BS_Vehicular_Themes As BindingSource + Friend WithEvents BS_Setting As BindingSource + Friend WithEvents BS_Narrative_Theme_Topic As BindingSource + Friend WithEvents BS_DLC_Addon As BindingSource + Friend WithEvents BS_Special_Edition As BindingSource + Friend WithEvents grd_Visual_Presentation As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Visual_Presentation As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Visual_Presentation_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Visual_Presentation_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_Pacing As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Pacing As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Pacing_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Pacing_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Pacing As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Gameplay As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Gameplay As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Gameplay_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Gameplay_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Gameplay As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Interface_Control As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Interface_Control As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Interface_Control_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Interface_Control_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Interface_Control As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Vehicular_Themes As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Vehicular_Themes As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Vehicular_Themes_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Vehicular_Themes_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Vehicular_Themes As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Setting As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Setting As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Setting_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Setting_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Setting As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Narrative_Theme_Topic As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Narrative_Theme_Topic As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Narrative_Theme_Topic_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Narrative_Theme_Topic_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Narrative_Theme_Topic As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_DLC_Addon As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_DLC_Addon As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_DLC_Addon_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_DLC_Addon_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_DLC_Addon As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents grd_Special_Edition As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Special_Edition As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_Special_Edition_Used As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col_Special_Edition_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_TechInfo As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Genres As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Perspectives As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Visual_Presentation As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Special_Edition As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Language As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_Regions As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx new file mode 100644 index 0000000..2f0c166 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx @@ -0,0 +1,371 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 860, 17 + + + 17, 17 + + + 17, 17 + + + 106, 17 + + + 241, 56 + + + 151, 56 + + + 151, 56 + + + If you want to use J2K as a keyboard to joystick mapper for this emulator, choose your preset here. J2K will be launched accordingly on startup of the emulator and will be set to the "Empty" J2K preset afterwards. + + + 17, 56 + + + 214, 17 + + + 757, 95 + + + 154, 134 + + + 17, 134 + + + 154, 161 + + + 17, 161 + + + 351, 17 + + + 428, 134 + + + 503, 17 + + + 291, 134 + + + 291, 161 + + + 428, 161 + + + 700, 17 + + + 874, 56 + + + 1088, 56 + + + 1088, 56 + + + 342, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKQIAACkCAABCBAAAAQEBAQoPAgAAAEIEAAACH4sIAAAAAAAEAK1UW2/TMBRud6ko + A1544DXKc5s07MaiZpNYJYTYClrLtLfJTU5bg+0UX3p541fwd8dx4nZb1QmEcCTbOZfv++yTk0q1Uqnc + 4bCrHS+2cOr2FkoDDzpEk4Z3DVLRXCQHQcs+De/cMG0kJAKMloQ1vC9mwGj6CRb9/DuIZHB8TA7Tw6Po + ZP8AWu9Odi346weYxdQDvY32N24fXAHPNRUjR1e/4ayXjoGTPdx16HD4QRK+Xa2+ckAuzuqtW6DaDk6/ + au2zOWfe1Gn2o6DleyDSPEPoxDd62IyO/LPTl8/bcxWrgsCjWeJ3YeaU+B4iCJX4bhPPcT/WehKH4Ww2 + C2b7QS5H4dtWKwpvLi9KkctYrjJEQSIpHLpqcprKXOVD3UxzHmNcs4zyUYXnWR3AgIPQniAcHkspI+OP + ylkSX0sDK/tXBedGSsy9yFPCwLkL4BIaKScM5v3FBJzV2cc5TcHjVHxOUyPxiHhRnMyXb0YMciMyyPxV + 2iatfTJgED2MeZr23qvgh8GirLs2EVwTZs+rESjxbaqWWMnVBWgiR6C7GKomJAVbtMdHCv+Co0PVhJGF + ffmPTO3wqZMWns03VLicuvt6hauCLSu7CWEtt+QvvsHT2i42x89qO8M+Gsm4XAj/l4/W5ZQQf8pZEjWn + kb2gHduoaw1s27Z2e0m+5RIXKuzy3lCW1W+vYEptiP0xPcOx5X5Sd27s/QZJYO9rvwQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 574, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAQwIAAEMCAAB2BAAAAQEBAQoPAgAAAHYEAAACH4sIAAAAAAAEAK1UW2/aMBSGXthY + t73sYa9RniEh6z0irdQyTdVaOgGb+haZ5ADefGG2A+Ft7/vRnU0MpYhq01RH8rHP5ftO7ONTKpdKpXs9 + jDTj9Zae2t2ZVEC9FlKo5nwDITFn0YHXMF/NucyIygREDDIlEKk5X7I+wclnmPX4D2BR//gYHSaHR8Hp + /gE0Tk53Dfi7Fcz51AW1rfXv7drrAOUKs6Glq95R0k1GQNGeXrXwYPBJILpdLr+1QNbP5Fs1QJUdPf1+ + 0TzPKXEmNmc38BquAyzhqYaO3EwN6sGRe3725lUzl6GcEzg4jdw2TG0mrqMRmIxcuwhzvR4pNQ59fzqd + etN9j4uh/6HRCPy7m+siyYUvlalG0USCWXRZpzgRXPKBqiechtqvXni5OgvHMXkAAQpMOQxReJxK4Rle + SauJXCUyWOq/SrjMhNCx1zxBBKx5DlxAa8oxgbw3G4PVWv2I4wQcitltkmRC/6I+KIryxS5jfZ6xFFJ3 + GbYp1x7qEwhWfZ6mfbBK+JnpS1k3bSLAadzhtI8kxK3b7gXP4485xAZXuo7SInJ1DOFsuDwUhcQQVFuH + yzFKwFzk49/0/4G3heWYoJnZrPBIJfBzM121npGg6T91vHPL5muZm2xSD0XiL6tkUU6bENZiC/554Z9V + dvWL/FVupvrxDkVYCET/56XYmALibzELovokMAe0Y7rDWtcwvaIS36DvXGiBmREXGSZpNe7ABBsX0w1f + 6rFlO+O9HXt/AGBCufo0BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 17, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAQgIAAEICAAB0BAAAAQEBAQoPAgAAAHQEAAACH4sIAAAAAAAEAK1UW2/aMBSGXthY + t73sYa9RniEh6z0irdSiTdVaOgGb+oZMcgBvvjDbgfC29/3ozk4MpYhq01RH8rHP5ftO7ONTKpdKpXs9 + jDTj9Zae2t25VEC9FlKo5nwDITFn0YHXMF/NuUyJSgVEDFIlEKk5X9IBwfFnmPf4D2DR4PgYHcaHR8Hp + /gE0Tk53Dfi7Fcx86oLa1vr3du11gHKF2cjSVe8o6cZjoGhPr1p4OPwkEN0ul99aIOtn8q0aoMqOnn6/ + aJ5nlDhTm7MbeA3XARbzRENHbqqG9eDIPT9786qZyVDmBA5OIrcNM5uJ62gEJiPXLsJMr8dKTULfn81m + 3mzf42Lkf2g0Av/u5rpIcuFLZaJRNJFgFl3WKY4Fl3yo6jGnofarF16uzsJxTB5AgAJTDkMUHqdSeIZX + 0moiV4kUlvqvEi5TIXTsNY8RAWvOgQtoTTkhkPXmE7Baqx9zHINDMbuN41ToX9QHRVG22KVswFOWQOIu + wzbl2kMDAsGqz9O0D1YJP1N9KeumTQQ46Xc4HSAJ/dZt94Jn/Y+YgNK40nWMiFwdQzgbLQ9FITEC1dbh + coJiMBf5+Df9f+BtYTkhaG42KzxSCfzcTFetZyRo+k8db27ZfC25ySb1UCT+skoW5bQJYS224M8L/6yy + q1/kr3Iz0Y93JMJCIPo/L8XGFBB/i1kQ1aeBOaAd0x3WuobpFZX+DfrOhRaYGXGRYpJU+x2YYuNiuuFL + PbZsZ7y3Y+8Ps6pW6TQFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1224, 56 + + + 984, 17 + + + 1113, 17 + + + 471, 56 + + + 66 + + + 330, 56 + + + 192, 95 + + + 712, 56 + + + 565, 56 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb new file mode 100644 index 0000000..b74ecde --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb @@ -0,0 +1,1414 @@ +Imports System.ComponentModel + +Public Class frm_Emu_Game_Edit + + ''' + ''' If _id_Emu_Games stays 0 we have a multiple Emu Game Edit (Template) + ''' + ''' + Private _id_Emu_Games As Integer = 0 + + Private _id_Moby_Platforms As Long = 0 'On Multi-Edit, if a platform has been chosen - we can provide a default emulators selection + Private _MultiVolume As Boolean = False 'On Single-Edit, if the platform supports multiple volumes/disks + Private _is_DOS_or_Booter As Boolean = False 'On Single-Edit, if the platform is DOS or Booter + + Private _id_Emu_Games_Multi As Integer() + Private _MultiEdit As Boolean = False + Private _id_Rombase As Integer = 0 + Private _AutoImport As Boolean = False + + Private _Monitor_TextBoxChanges As Boolean = False + + Private _Name_OldValue As Object + Private _Prefix_OldValue As Object + Private _Notes_OldValue As Object + Private _Description_OldValue As Object + Private _Special_Info_OldValue As Object + Private _Publisher_OldValue As Object + Private _Developer_OldValue As Object + Private _Year_OldValue As Object + Private _Version_OldValue As Object + Private _Alt_OldValue As Object + Private _id_Emulators As Object = DBNull.Value + Private _id_Emulators_Default As Object = DBNull.Value + Private _Mapping_Identifier As String = "" + + ''' + ''' Constructor for Single-Edit mode + ''' + ''' + ''' + Public Sub New(ByVal id_Emu_Games As Integer) + InitializeComponent() + + _id_Emu_Games = id_Emu_Games + + Cursor.Current = Cursors.WaitCursor + + 'Fill the J2K Config DS + cls_Settings.Fill_J2K_DS(Me.DS_J2K, TC.NZ(cls_Settings.GetSetting("Path_J2K"), "")) + + barmng.SetPopupContextMenu(grd_Genres, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Perspectives, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Sports_Themes, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Educational_Categories, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Other_Attributes, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Visual_Presentation, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Pacing, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Gameplay, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Interface_Control, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Vehicular_Themes, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Setting, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Narrative_Theme_Topic, popmnu_Genres) + barmng.SetPopupContextMenu(grd_DLC_Addon, popmnu_Genres) + barmng.SetPopupContextMenu(grd_Special_Edition, popmnu_Genres) + + barmng.SetPopupContextMenu(grd_Attributes, popmnu_TechInfo) + barmng.SetPopupContextMenu(grd_Regions, popmnu_Regions) + barmng.SetPopupContextMenu(grd_Languages, popmnu_Languages) + + End Sub + + ''' + ''' Constructor for Multi-Edit mode + ''' + ''' + ''' + Public Sub New(ByVal id_Emu_Games() As Integer, Optional ByVal ExtraCaption As String = "", Optional ByVal Mapping_Identifier As String = "", Optional ByVal AutoImport As Boolean = False, Optional ByVal id_Moby_Platforms As Long = 0) + Me.New(0) + Me._id_Moby_Platforms = id_Moby_Platforms + Me.Text = "Edit Multiple Games" & IIf(ExtraCaption.Length > 0, " - " & ExtraCaption, "") + Me._id_Emu_Games_Multi = id_Emu_Games + Me._MultiEdit = True + + Me.cmb_J2K_Config.Properties.NullValuePrompt = "" + + Me._Mapping_Identifier = Mapping_Identifier + Me._AutoImport = AutoImport + + For Each ctl As Object In tpg_ReleaseInfo.Controls + If ctl.GetType Is GetType(MKNetDXLib.ctl_MKDXCheckEdit) Then + CType(ctl, MKNetDXLib.ctl_MKDXCheckEdit).Properties.AllowGrayed = True + CType(ctl, MKNetDXLib.ctl_MKDXCheckEdit).Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.InactiveChecked + CType(ctl, MKNetDXLib.ctl_MKDXCheckEdit).CheckState = CheckState.Indeterminate + End If + Next + + Me.rpi_Genres.AllowGrayed = True + Me.rpi_DLC_Addon.AllowGrayed = True + Me.rpi_Educational_Categories.AllowGrayed = True + Me.rpi_Gameplay.AllowGrayed = True + Me.rpi_Interface_Control.AllowGrayed = True + Me.rpi_Language.AllowGrayed = True + Me.rpi_Narrative_Theme_Topic.AllowGrayed = True + Me.rpi_Other_Attributes.AllowGrayed = True + Me.rpi_Pacing.AllowGrayed = True + Me.rpi_Perspectives.AllowGrayed = True + Me.rpi_Regions.AllowGrayed = True + Me.rpi_Setting.AllowGrayed = True + Me.rpi_Special_Edition.AllowGrayed = True + Me.rpi_Sports_Themes.AllowGrayed = True + Me.rpi_TechInfo.AllowGrayed = True + Me.rpi_Vehicular_Themes.AllowGrayed = True + Me.rpi_Visual_Presentation.AllowGrayed = True + End Sub + + Private Sub frm_Emu_Game_Edit_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + Cursor.Current = Cursors.WaitCursor + + Dim bTemplateKnown As Boolean = False + + Dim sSQL As String = "" + + If _MultiEdit Then 'Emu_Game_Edit with multiple Games + 'Get id_Emu_Games that fits the Mapping_Identifier in order to load some pre-set Attributes + If _Mapping_Identifier.Length > 0 Then + _id_Emu_Games = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE Mapping_Identifier = " & TC.getSQLFormat(_Mapping_Identifier)), 0) + End If + + 'Get id_Rombase that fits the Mapping_Identifier in order to load some pre-set Attributes + If _Mapping_Identifier.Length > 0 Then + _id_Rombase = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Rombase FROM rombase.tbl_Rombase WHERE Mapping_Identifier = " & TC.getSQLFormat(_Mapping_Identifier)), 0) + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Emu_Game_Edit_Genres(tran, DS_ML.src_frm_Emu_Game_Edit_Genres, _id_Emu_Games, _id_Rombase, _MultiEdit) + DS_ML.Fill_src_frm_Emu_Game_Edit_Attributes(tran, DS_ML.src_frm_Emu_Game_Edit_Attributes, _id_Emu_Games, _id_Rombase, _MultiEdit) + tran.Rollback() + End Using + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " id_Languages" + sSQL &= " , Language_Short" + sSQL &= " , Language" + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM rombase.tbl_Rombase_Languages RBL WHERE RBL.id_Languages = L.id_Languages AND RBL.id_Rombase = " & TC.getSQLFormat(_id_Rombase) & ") THEN 1" + sSQL &= " WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Languages EGL WHERE EGL.id_Languages = L.id_Languages AND EGL.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") THEN 1" + sSQL &= " ELSE NULL END AS Used" & ControlChars.CrLf + sSQL &= " FROM tbl_Languages L" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Languages) + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " id_Regions" + sSQL &= " , Region" + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM rombase.tbl_Rombase_Regions RBR WHERE RBR.id_Regions = R.id_Regions AND RBR.id_Rombase = " & TC.getSQLFormat(_id_Rombase) & ") THEN 1 " + sSQL &= " WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Regions EGR WHERE EGR.id_Regions = R.id_Regions AND EGR.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") THEN 1 " + sSQL &= " ELSE NULL END AS Used" & ControlChars.CrLf + sSQL &= " FROM tbl_Regions R ORDER BY R.Sort, R.Region" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Regions) + + 'Get Name, Prefix, Notes and Description + sSQL = " SELECT" + sSQL &= " EMUGAME.Name" + sSQL &= " , EMUGAME.Name_Prefix" + sSQL &= " , EMUGAME.Note" + sSQL &= " , EMUGAME.J2KPreset" + sSQL &= " , IFNULL(EMUGAME.Description, RB.Description) AS Description" + sSQL &= " , IFNULL(EMUGAME.SpecialInfo, RB.SpecialInfo) AS SpecialInfo" + sSQL &= " , IFNULL(EMUGAME.Publisher, RB.Publisher) AS Publisher" + sSQL &= " , IFNULL(EMUGAME.Developer, RB.Developer) AS Developer" + sSQL &= " , IFNULL(EMUGAME.Year, RB.Year) AS Year" + sSQL &= " , NULL AS id_Emulators" + sSQL &= " , IFNULL(EMUGAME.Version, RB.Version) AS Version" + sSQL &= " , IFNULL(EMUGAME.Alt, RB.Alt) AS Alt" + sSQL &= " , IFNULL(EMUGAME.Trainer, RB.Trainer) AS Trainer" + sSQL &= " , IFNULL(EMUGAME.Translation, RB.Translation) AS Translation" + sSQL &= " , IFNULL(EMUGAME.Hack, RB.Hack) AS Hack" + sSQL &= " , IFNULL(EMUGAME.Bios, RB.Bios) AS Bios" + sSQL &= " , IFNULL(EMUGAME.Prototype, RB.Prototype) AS Prototype" + sSQL &= " , IFNULL(EMUGAME.Alpha, RB.Alpha) AS Alpha" + sSQL &= " , IFNULL(EMUGAME.Beta, RB.Beta) AS Beta" + sSQL &= " , IFNULL(EMUGAME.Sample, RB.Sample) AS Sample" + sSQL &= " , IFNULL(EMUGAME.Kiosk, RB.Kiosk) AS Kiosk" + sSQL &= " , IFNULL(EMUGAME.Unlicensed, RB.Unlicensed) AS Unlicensed" + sSQL &= " , IFNULL(EMUGAME.Fixed, RB.Fixed) AS Fixed" + sSQL &= " , IFNULL(EMUGAME.Pirated, RB.Pirated) AS Pirated" + sSQL &= " , IFNULL(EMUGAME.Good, RB.Good) AS Good" + sSQL &= " , IFNULL(EMUGAME.Bad, RB.Bad) AS Bad" + sSQL &= " , IFNULL(EMUGAME.Overdump, RB.Overdump) AS Overdump" + sSQL &= " FROM tbl_Emu_Games EMUGAME" + sSQL &= " LEFT JOIN rombase.tbl_Rombase RB ON RB.id_Rombase = " & TC.getSQLFormat(_id_Rombase) + sSQL &= " WHERE EMUGAME.id_Emu_Games = " & _id_Emu_Games + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then bTemplateKnown = True + + If dt Is Nothing Or dt.Rows.Count <> 1 Then + 'Get Name, Prefix, Notes and Description + sSQL = " SELECT" + sSQL &= " NULL AS Name" + sSQL &= " , NULL AS Name_Prefix" + sSQL &= " , NULL AS Note" + sSQL &= " , RB.Description" + sSQL &= " , RB.SpecialInfo" + sSQL &= " , RB.Publisher" + sSQL &= " , RB.Developer" + sSQL &= " , RB.Year" + sSQL &= " , NULL AS id_Emulators" + sSQL &= " , RB.Version" + sSQL &= " , RB.Alt" + sSQL &= " , RB.Trainer" + sSQL &= " , RB.Translation" + sSQL &= " , RB.Hack" + sSQL &= " , RB.Bios" + sSQL &= " , RB.Prototype" + sSQL &= " , RB.Alpha" + sSQL &= " , RB.Beta" + sSQL &= " , RB.Sample" + sSQL &= " , RB.Kiosk" + sSQL &= " , RB.Unlicensed" + sSQL &= " , RB.Fixed" + sSQL &= " , RB.Pirated" + sSQL &= " , RB.Good" + sSQL &= " , RB.Bad" + sSQL &= " , RB.Overdump" + sSQL &= " FROM rombase.tbl_Rombase RB WHERE RB.id_Rombase = " & TC.getSQLFormat(_id_Rombase) + dt.Clear() + dt = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End If + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then bTemplateKnown = True + + If dt Is Nothing Or dt.Rows.Count <> 1 Then + 'Get Name, Prefix, Notes and Description + sSQL = " SELECT" + sSQL &= " NULL AS Name" + sSQL &= " , NULL AS Name_Prefix" + sSQL &= " , NULL AS Note" + sSQL &= " , NULL AS Description" + sSQL &= " , NULL AS SpecialInfo" + sSQL &= " , NULL AS Publisher" + sSQL &= " , NULL AS Developer" + sSQL &= " , NULL AS Year" + sSQL &= " , NULL AS id_Emulators" + sSQL &= " , NULL AS Version" + sSQL &= " , NULL AS Alt" + sSQL &= " , NULL AS Trainer" + sSQL &= " , NULL AS Translation" + sSQL &= " , NULL AS Hack" + sSQL &= " , NULL AS Bios" + sSQL &= " , NULL AS Prototype" + sSQL &= " , NULL AS Alpha" + sSQL &= " , NULL AS Beta" + sSQL &= " , NULL AS Sample" + sSQL &= " , NULL AS Kiosk" + sSQL &= " , NULL AS Unlicensed" + sSQL &= " , NULL AS Fixed" + sSQL &= " , NULL AS Pirated" + sSQL &= " , NULL AS Good" + sSQL &= " , NULL AS Bad" + sSQL &= " , NULL AS Overdump" + dt.Clear() + dt = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + End If + + If dt Is Nothing Or dt.Rows.Count <> 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There was a problem loading the data.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Cursor.Current = Cursors.Default + Me.Close() + End If + + 'OF COURSE On MultiEdit, emulators can be selected + Me.cmb_Default_Emulator.Properties.NullText = "" + If Me._id_Moby_Platforms > 0 Then + sSQL = " SELECT" + sSQL &= " -1 AS id_Emulators" + sSQL &= " , '' AS Displayname" + sSQL &= " , NULL AS J2KPreset" + sSQL &= " UNION ALL" + sSQL &= " SELECT" + sSQL &= " EMP.id_Emulators" + sSQL &= " , E.Displayname || CASE WHEN EMP.DefaultEmulator = 1 THEN ' (global default)' ELSE '' END AS Displayname" + sSQL &= " , E.J2KPreset" + sSQL &= " FROM" + sSQL &= " tbl_Emulators_Moby_Platforms EMP" + sSQL &= " INNER JOIN tbl_Emulators E ON EMP.id_Emulators = E.id_Emulators" + sSQL &= " WHERE id_Moby_Platforms = " & TC.getSQLFormat(_id_Moby_Platforms) + sSQL &= " ORDER BY Displayname" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Default_Emulator) + End If + + 'If Not TC.IsNullNothingOrEmpty(dt.Rows(0)("id_Emulators")) Then + ' cmb_Default_Emulator.EditValue = dt.Rows(0)("id_Emulators") + ' _id_Emulators = dt.Rows(0)("id_Emulators") + 'End If + + '_id_Emulators_Default = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Emulators FROM tbl_Emulators_Moby_Platforms EMP WHERE EMP.id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") AND EMP.DefaultEmulator = 1") + + Me.txb_Name.EditValue = dt.Rows(0)("Name") + _Name_OldValue = dt.Rows(0)("Name") + + Me.txb_Prefix.EditValue = dt.Rows(0)("Name_Prefix") + _Prefix_OldValue = dt.Rows(0)("Name_Prefix") + + Me.txb_Notes.EditValue = dt.Rows(0)("Note") + _Notes_OldValue = dt.Rows(0)("Note") + + Me.txb_Description.EditValue = dt.Rows(0)("Description") 'MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(TC.NZ(dt.Rows(0)("Description"), "").Replace("
", ControlChars.CrLf), "<.*?>", ""), True) + _Description_OldValue = dt.Rows(0)("Description") 'MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(TC.NZ(dt.Rows(0)("Description"), "").Replace("
", ControlChars.CrLf), "<.*?>", ""), True) + + Me.txb_Special_Info.EditValue = TC.NZ(dt.Rows(0)("SpecialInfo"), "") + _Special_Info_OldValue = TC.NZ(dt.Rows(0)("SpecialInfo"), "") + + Me.txb_Publisher.EditValue = dt.Rows(0)("Publisher") + _Publisher_OldValue = dt.Rows(0)("Publisher") + + Me.txb_Developer.EditValue = dt.Rows(0)("Developer") + _Developer_OldValue = dt.Rows(0)("Developer") + + Me.txb_Year.EditValue = dt.Rows(0)("Year") + _Year_OldValue = dt.Rows(0)("Year") + + Me.txb_Version.EditValue = dt.Rows(0)("Version") + _Version_OldValue = dt.Rows(0)("Version") + + Me.txb_Alt.EditValue = dt.Rows(0)("Alt") + _Alt_OldValue = dt.Rows(0)("Alt") + + chb_Alpha.EditValue = IIf(dt.Rows(0)("Alpha") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Alpha"), False)) + chb_Bad.EditValue = IIf(dt.Rows(0)("Bad") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Bad"), False)) + chb_Beta.EditValue = IIf(dt.Rows(0)("Beta") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Beta"), False)) + chb_Bios.EditValue = IIf(dt.Rows(0)("Bios") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Bios"), False)) + chb_Sample.EditValue = IIf(dt.Rows(0)("Sample") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Sample"), False)) + chb_Fixed.EditValue = IIf(dt.Rows(0)("Fixed") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Fixed"), False)) + chb_Good.EditValue = IIf(dt.Rows(0)("Good") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Good"), False)) + chb_Hack.EditValue = IIf(dt.Rows(0)("Hack") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Hack"), False)) + chb_Kiosk.EditValue = IIf(dt.Rows(0)("Kiosk") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Kiosk"), False)) + chb_Overdump.EditValue = IIf(dt.Rows(0)("Overdump") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Overdump"), False)) + chb_Pirated.EditValue = IIf(dt.Rows(0)("Pirated") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Pirated"), False)) + chb_Prototype.EditValue = IIf(dt.Rows(0)("Prototype") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Prototype"), False)) + chb_Trainer.EditValue = IIf(dt.Rows(0)("Trainer") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Trainer"), False)) + chb_Translation.EditValue = IIf(dt.Rows(0)("Translation") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Translation"), False)) + chb_Unlicensed.EditValue = IIf(dt.Rows(0)("Unlicensed") Is DBNull.Value, DBNull.Value, TC.NZ(dt.Rows(0)("Unlicensed"), False)) + + 'On MultiEdit an auto import is possible if the template of the category is known + If _AutoImport AndAlso bTemplateKnown Then + Cursor.Current = Cursors.Default + Me.btn_OK_Click(Me.btn_OK, New System.EventArgs()) + End If + End If + + If Not _MultiEdit Then 'Emu_Game_Edit with single Game + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Emu_Game_Edit_Genres(tran, DS_ML.src_frm_Emu_Game_Edit_Genres, _id_Emu_Games, _id_Rombase, _MultiEdit) + DS_ML.Fill_src_frm_Emu_Game_Edit_Attributes(tran, DS_ML.src_frm_Emu_Game_Edit_Attributes, _id_Emu_Games, _id_Rombase, _MultiEdit) + tran.Rollback() + End Using + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " id_Languages" + sSQL &= " , Language_Short" + sSQL &= " , Language" + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Languages EGL WHERE EGL.id_Languages = L.id_Languages AND EGL.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") THEN 1" + sSQL &= IIf(_id_Emu_Games = 0, " ELSE NULL END AS Used" & ControlChars.CrLf, " ELSE 0 END AS Used") + sSQL &= " FROM tbl_Languages L" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Languages) + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " id_Regions" + sSQL &= " , Region" + sSQL &= " , CASE WHEN EXISTS(SELECT 1 FROM tbl_Emu_Games_Regions EGR WHERE EGR.id_Regions = R.id_Regions AND EGR.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") THEN 1 " + sSQL &= IIf(_id_Emu_Games = 0, " ELSE NULL END AS Used" & ControlChars.CrLf, " ELSE 0 END AS Used") + sSQL &= " FROM tbl_Regions R ORDER BY R.Sort, R.Region" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Regions) + + 'Get Name, Prefix, Notes and Description + sSQL = " SELECT" & + " CASE WHEN EMUGAME.Name IS NULL AND EMUGAME.Name_Prefix IS NULL THEN IFNULL(MOBYGAME.Name, EMUGAME.InnerFile) ELSE EMUGAME.Name END AS Name" & + " , CASE WHEN EMUGAME.Name IS NULL AND EMUGAME.Name_Prefix IS NULL THEN MOBYGAME.Name_Prefix ELSE EMUGAME.Name_Prefix END AS Name_Prefix" & + " , EMUGAME.Note" & + " , EMUGAME.J2KPreset" & + " , IFNULL(EMUGAME.Description, MOBYGAME.Description) AS Description" & + " , EMUGAME.SpecialInfo" & + " , IFNULL(EMUGAME.Publisher, C1.Name) AS Publisher" & + " , IFNULL(EMUGAME.Developer, C2.Name) AS Developer" & + " , IFNULL(EMUGAME.Year, REL.Year) AS Year" & + " , IFNULL(EMUGAME.id_Emulators, (SELECT id_Emulators FROM tbl_Emulators_Moby_Platforms EMP WHERE EMP.id_Moby_Platforms = EMUGAME.id_Moby_Platforms AND EMP.DefaultEmulator = 1)) AS id_Emulators" & + " , Version, Alt, Trainer, Translation, Hack, Bios, Prototype, Alpha, Beta, Sample, Kiosk, Unlicensed, Fixed, Pirated, Good, Bad, Overdump" & + " FROM tbl_Emu_Games EMUGAME" & + " LEFT JOIN moby.tbl_Moby_Games MOBYGAME ON EMUGAME.Moby_Games_URLPart = MOBYGAME.URLPart" & + " LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND MOBYGAME.id_Moby_Games = REL.id_Moby_Games" & + " LEFT JOIN tbl_Moby_Companies C1 ON REL.Publisher_id_Moby_Companies = C1.id_Moby_Companies" & + " LEFT JOIN tbl_Moby_Companies C2 ON REL.Developer_id_Moby_Companies = C2.id_Moby_Companies" & + " WHERE EMUGAME.id_Emu_Games = " & _id_Emu_Games + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL) + + + If dt Is Nothing Or dt.Rows.Count <> 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There was a problem loading the data.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Cursor.Current = Cursors.Default + Me.Close() + End If + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " EMP.id_Emulators" + sSQL &= " , E.Displayname || CASE WHEN EMP.DefaultEmulator = 1 THEN ' (global default)' ELSE '' END AS Displayname" + sSQL &= " , E.J2KPreset" + sSQL &= " FROM" + sSQL &= " tbl_Emulators_Moby_Platforms EMP" + sSQL &= " INNER JOIN tbl_Emulators E ON EMP.id_Emulators = E.id_Emulators" + sSQL &= " WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " LIMIT 1)" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Default_Emulator) + + If Not TC.IsNullNothingOrEmpty(dt.Rows(0)("id_Emulators")) Then + cmb_Default_Emulator.EditValue = dt.Rows(0)("id_Emulators") + _id_Emulators = dt.Rows(0)("id_Emulators") + End If + + If Not TC.IsNullNothingOrEmpty(dt.Rows(0)("J2KPreset")) Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", dt.Rows(0)("J2KPreset")) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + End If + + _id_Emulators_Default = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Emulators FROM tbl_Emulators_Moby_Platforms EMP WHERE EMP.id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & ") AND EMP.DefaultEmulator = 1") + + Me.txb_Name.EditValue = dt.Rows(0)("Name") + _Name_OldValue = dt.Rows(0)("Name") + + Me.txb_Prefix.EditValue = dt.Rows(0)("Name_Prefix") + _Prefix_OldValue = dt.Rows(0)("Name_Prefix") + + Me.txb_Notes.EditValue = dt.Rows(0)("Note") + _Notes_OldValue = dt.Rows(0)("Note") + + Me.txb_Description.EditValue = dt.Rows(0)("Description") 'MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(TC.NZ(dt.Rows(0)("Description"), "").Replace("
", ControlChars.CrLf), "<.*?>", ""), True) + _Description_OldValue = dt.Rows(0)("Description") 'MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(TC.NZ(dt.Rows(0)("Description"), "").Replace("
", ControlChars.CrLf), "<.*?>", ""), True) + + Me.txb_Special_Info.EditValue = TC.NZ(dt.Rows(0)("SpecialInfo"), "") + _Special_Info_OldValue = TC.NZ(dt.Rows(0)("SpecialInfo"), "") + + Me.txb_Publisher.EditValue = dt.Rows(0)("Publisher") + _Publisher_OldValue = dt.Rows(0)("Publisher") + + Me.txb_Developer.EditValue = dt.Rows(0)("Developer") + _Developer_OldValue = dt.Rows(0)("Developer") + + Me.txb_Year.EditValue = dt.Rows(0)("Year") + _Year_OldValue = dt.Rows(0)("Year") + + Me.txb_Version.EditValue = dt.Rows(0)("Version") + _Version_OldValue = dt.Rows(0)("Version") + + Me.txb_Alt.EditValue = dt.Rows(0)("Alt") + _Alt_OldValue = dt.Rows(0)("Alt") + + chb_Alpha.Checked = TC.NZ(dt.Rows(0)("Alpha"), False) + chb_Bad.Checked = TC.NZ(dt.Rows(0)("Bad"), False) + chb_Beta.Checked = TC.NZ(dt.Rows(0)("Beta"), False) + chb_Bios.Checked = TC.NZ(dt.Rows(0)("Bios"), False) + chb_Sample.Checked = TC.NZ(dt.Rows(0)("Sample"), False) + chb_Fixed.Checked = TC.NZ(dt.Rows(0)("Fixed"), False) + chb_Good.Checked = TC.NZ(dt.Rows(0)("Good"), False) + chb_Hack.Checked = TC.NZ(dt.Rows(0)("Hack"), False) + chb_Kiosk.Checked = TC.NZ(dt.Rows(0)("Kiosk"), False) + chb_Overdump.Checked = TC.NZ(dt.Rows(0)("Overdump"), False) + chb_Pirated.Checked = TC.NZ(dt.Rows(0)("Pirated"), False) + chb_Prototype.Checked = TC.NZ(dt.Rows(0)("Prototype"), False) + chb_Trainer.Checked = TC.NZ(dt.Rows(0)("Trainer"), False) + chb_Translation.Checked = TC.NZ(dt.Rows(0)("Translation"), False) + chb_Unlicensed.Checked = TC.NZ(dt.Rows(0)("Unlicensed"), False) + + 'Load DS_ML.tbl_Emu_Games Data and BTAs + frm_Tag_Parser_Edit.Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Rombase_DOSBox_Filetypes, Displayname, ID FROM rombase.tbl_Rombase_DOSBox_Filetypes", BTA_DOSBox_Filetypes.DS.Tables(0)) + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Rombase_DOSBox_Exe_Types, Displayname, ID FROM rombase.tbl_Rombase_DOSBox_Exe_Types", BTA_DOSBox_Exe_Types.DS.Tables(0)) + For i As Integer = 0 To 25 + Dim row As DataRow = BTA_DOSBox_Mount_Destination.DS.Tables(0).NewRow + row("value") = Chr(Asc("A") + i) + row("Displayname") = Chr(Asc("A") + i) + BTA_DOSBox_Mount_Destination.DS.Tables(0).Rows.Add(row) + Next + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, DS_ML.tbl_Emu_Games, Me._id_Moby_Platforms, Me._id_Emu_Games, Me._id_Emu_Games) + End Using + + Me._MultiVolume = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT PLTFM.MultiVolume FROM tbl_Emu_Games EG LEFT JOIN moby.tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE EG.id_Emu_Games = " & TC.getSQLFormat(Me._id_Emu_Games)), False) + + Me._is_DOS_or_Booter = {cls_Globals.enm_Moby_Platforms.dos, cls_Globals.enm_Moby_Platforms.pcboot}.Contains(TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(Me._id_Emu_Games)), 0)) + + 'On DOS and PC Booter Platforms Show and initialize the DOSBox Configuration, also show Dosbox Files/Folder + If Me._is_DOS_or_Booter Then + tpg_DOSBox_Config.PageVisible = True + Me.ucr_DOSBox_Config.Load_Game_Config(Me._id_Emu_Games) + + Me.tpg_DOSBox_Files_and_Directories.PageVisible = True + BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = " & Me._id_Emu_Games & " OR id_Emu_Games_Owner = " & Me._id_Emu_Games & " AND id_Rombase_DOSBox_Filetypes <> " & TC.getSQLFormat(cls_Globals.enm_Rombase_DOSBox_Filetypes.int) + ElseIf _MultiVolume Then + 'In case of Multi-Volume show Disks/Volumes Tabpage + Me.tpg_Disks_Volumes.PageVisible = True + End If + End If + + Cursor.Current = Cursors.Default + End Sub + + Private Sub bbi_TechInfo_Description_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_TechInfo_Show_Description.ItemClick + Using frm As New frm_Description(BS_Attributes.Current("Attribute"), BS_Attributes.Current("Description")) 'Using frm As New frm_Description(BS_Attributes.Current("Attribute"), MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(BS_Attributes.Current("Description").Replace("
", ControlChars.CrLf), "<.*?>", ""), True)) + frm.ShowDialog(Me) + End Using + End Sub + + ''' + ''' Save Game Properties for a single game. IMPORTANT: also saves a Mapping Template when in MultiEdit mode! + ''' + ''' + ''' + Private Function Save_Single_Game() As Boolean + Cursor.Current = Cursors.WaitCursor + + BS_Attributes.EndEdit() + BS_Educational_Categories.EndEdit() + BS_Genres.EndEdit() + BS_Other_Attributes.EndEdit() + BS_Perspectives.EndEdit() + BS_Sports_Themes.EndEdit() + BS_Visual_Presentation.EndEdit() + BS_Pacing.EndEdit() + BS_Gameplay.EndEdit() + BS_Interface_Control.EndEdit() + BS_Vehicular_Themes.EndEdit() + BS_Setting.EndEdit() + BS_Narrative_Theme_Topic.EndEdit() + BS_DLC_Addon.EndEdit() + BS_Special_Edition.EndEdit() + + BS_Languages.EndEdit() + BS_Regions.EndEdit() + BS_DefaultEmu.EndEdit() + + '### Rombase-style save ### + If Me._is_DOS_or_Booter OrElse Me._MultiVolume Then + BS_DOSBox_Files_and_Folders.EndEdit() + BS_MV.EndEdit() + BS_MV_Volume.EndEdit() + BTA_DOSBox_Exe_Types.EndEdit() + BTA_DOSBox_Filetypes.EndEdit() + BTA_DOSBox_Mount_Destination.EndEdit() + + Dim bHasChanges As Boolean = False + + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + If row.RowState <> DataRowState.Unchanged Then + bHasChanges = True + Exit For + End If + Next + + 'Dim tbl_Changes As DataTable = DS_ML.tbl_Emu_Games.GetChanges + 'If tbl_Changes IsNot Nothing AndAlso tbl_Changes.Rows.Count > 0 Then + If bHasChanges Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Save_MV(True, tran) 'Save all Main Entries + Save_MV(False, tran) 'Save all Sub Entries (volumes of the games) + + tran.Commit() + End Using + + DS_ML.tbl_Emu_Games.AcceptChanges() + End If + End If + + '### Emu_Game_Edit save ### + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + + If _MultiEdit Then 'Save to Template + If _id_Emu_Games = 0 AndAlso _Mapping_Identifier.Length = 0 Then + tran.Rollback() + Return True + End If + + If _id_Emu_Games = 0 Then + _id_Emu_Games = Math.Min(TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT MIN(id_Emu_Games) FROM tbl_Emu_Games", tran), 0), 0) + _id_Emu_Games = _id_Emu_Games - 1 + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games (id_Emu_Games, Mapping_Identifier) VALUES (" & TC.getSQLParameter(_id_Emu_Games, _Mapping_Identifier) & ")", tran) + End If + End If + + Dim dt_Old As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Old, Nothing, Nothing, Nothing, _id_Emu_Games) + + Dim sSQL As String = "UPDATE tbl_Emu_Games SET " + + If Not Equals(txb_Name.EditValue, _Name_OldValue) Then sSQL &= "Name = " & IIf(txb_Name.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Name.Text)) & ", " & "Name_USR = " & IIf(txb_Name.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Name.Text)) & ", " + If Not Equals(txb_Description.EditValue, _Description_OldValue) Then sSQL &= "Description = " & IIf(txb_Description.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Description.Text)) & ", " & "Description_USR = " & IIf(txb_Description.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Description.Text)) & ", " + If Not Equals(txb_Special_Info.EditValue, _Special_Info_OldValue) Then sSQL &= "SpecialInfo = " & IIf(txb_Special_Info.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Special_Info.Text)) & ", " & "SpecialInfo_USR = " & IIf(txb_Special_Info.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Special_Info.Text)) & ", " + If Not Equals(txb_Notes.EditValue, _Notes_OldValue) Then sSQL &= "Note = " & IIf(txb_Notes.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Notes.Text)) & ", " & "Note_USR = " & IIf(txb_Notes.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Notes.Text)) & ", " + If Not Equals(txb_Prefix.EditValue, _Prefix_OldValue) Then sSQL &= "Name_Prefix = " & IIf(txb_Prefix.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Prefix.Text)) & ", " & "Name_Prefix_USR = " & IIf(txb_Prefix.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Prefix.Text)) & ", " + If Not Equals(txb_Publisher.EditValue, _Publisher_OldValue) Then sSQL &= "Publisher = " & IIf(txb_Publisher.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Publisher.Text)) & ", " & "Publisher_USR = " & IIf(txb_Publisher.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Publisher.Text)) & ", " + If Not Equals(txb_Developer.EditValue, _Developer_OldValue) Then sSQL &= "Developer = " & IIf(txb_Developer.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Developer.Text)) & ", " & "Developer_USR = " & IIf(txb_Developer.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Developer.Text)) & ", " + If Not Equals(txb_Year.EditValue, _Year_OldValue) Then sSQL &= "Year = " & IIf(txb_Year.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Year.Text)) & ", " & "Year_USR = " & IIf(txb_Year.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Year.Text)) & ", " + If Not Equals(txb_Version.EditValue, _Version_OldValue) Then sSQL &= "Version = " & IIf(txb_Version.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Version.Text)) & ", " & "Version_USR = " & IIf(txb_Version.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Version.Text)) & ", " + If Not Equals(txb_Alt.EditValue, _Alt_OldValue) Then sSQL &= "Alt = " & IIf(txb_Alt.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Alt.Text)) & ", " & "Alt_USR = " & IIf(txb_Alt.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Alt.Text)) & ", " + + If Equals(chb_Alpha.EditValue, True) Then sSQL &= "Alpha = 1, Alpha_USR = 1, " Else If Equals(chb_Alpha.EditValue, False) Then sSQL &= "Alpha = NULL, Alpha_USR = NULL, " + If Equals(chb_Bad.EditValue, True) Then sSQL &= "Bad = 1, Bad_USR = 1, " Else If Equals(chb_Bad.EditValue, False) Then sSQL &= "Bad = NULL, Bad_USR = NULL, " + If Equals(chb_Beta.EditValue, True) Then sSQL &= "Beta = 1, Beta_USR = 1, " Else If Equals(chb_Beta.EditValue, False) Then sSQL &= "Beta = NULL, Beta_USR = NULL, " + If Equals(chb_Bios.EditValue, True) Then sSQL &= "Bios = 1, Bios_USR = 1, " Else If Equals(chb_Bios.EditValue, False) Then sSQL &= "Bios = NULL, Bios_USR = NULL, " + If Equals(chb_Sample.EditValue, True) Then sSQL &= "Sample = 1, Sample_USR = 1, " Else If Equals(chb_Sample.EditValue, False) Then sSQL &= "Sample = NULL, Sample_USR = NULL, " + If Equals(chb_Fixed.EditValue, True) Then sSQL &= "Fixed = 1, Fixed_USR = 1, " Else If Equals(chb_Fixed.EditValue, False) Then sSQL &= "Fixed = NULL, Fixed_USR = NULL, " + If Equals(chb_Good.EditValue, True) Then sSQL &= "Good = 1, Good_USR = 1, " Else If Equals(chb_Good.EditValue, False) Then sSQL &= "Good = NULL, Good_USR = NULL, " + If Equals(chb_Hack.EditValue, True) Then sSQL &= "Hack = 1, Hack_USR = 1, " Else If Equals(chb_Hack.EditValue, False) Then sSQL &= "Hack = NULL, Hack_USR = NULL, " + If Equals(chb_Kiosk.EditValue, True) Then sSQL &= "Kiosk = 1, Kiosk_USR = 1, " Else If Equals(chb_Kiosk.EditValue, False) Then sSQL &= "Kiosk = NULL, Kiosk_USR = NULL, " + If Equals(chb_Overdump.EditValue, True) Then sSQL &= "Overdump = 1, Overdump_USR = 1, " Else If Equals(chb_Overdump.EditValue, False) Then sSQL &= "Overdump = NULL, Overdump_USR = NULL, " + If Equals(chb_Pirated.EditValue, True) Then sSQL &= "Pirated = 1, Pirated_USR = 1, " Else If Equals(chb_Pirated.EditValue, False) Then sSQL &= "Pirated = NULL, Pirated_USR = NULL, " + If Equals(chb_Prototype.EditValue, True) Then sSQL &= "Prototype = 1, Prototype_USR = 1, " Else If Equals(chb_Prototype.EditValue, False) Then sSQL &= "Prototype = NULL, Prototype_USR = NULL, " + If Equals(chb_Trainer.EditValue, True) Then sSQL &= "Trainer = 1, Trainer_USR = 1, " Else If Equals(chb_Trainer.EditValue, False) Then sSQL &= "Trainer = NULL, Trainer_USR = NULL, " + If Equals(chb_Translation.EditValue, True) Then sSQL &= "Translation = 1, Translation_USR = 1, " Else If Equals(chb_Translation.EditValue, False) Then sSQL &= "Translation = NULL, Translation_USR = NULL, " + If Equals(chb_Unlicensed.EditValue, True) Then sSQL &= "Unlicensed = 1, Unlicensed_USR = 1, " Else If Equals(chb_Unlicensed.EditValue, False) Then sSQL &= "Unlicensed = NULL, Unlicensed_USR = NULL, " + + 'J2K + Dim j2k_preset As Object = DBNull.Value + If cmb_J2K_Config.EditValue IsNot DBNull.Value AndAlso cmb_J2K_Config.EditValue IsNot Nothing AndAlso BS_J2K.Current IsNot Nothing Then + BS_J2K.EndEdit() + j2k_preset = BS_J2K.Current("ConfigName") + End If + If BS_DefaultEmu.Current IsNot Nothing Then + If Equals(BS_DefaultEmu.Current("J2KPreset"), j2k_preset) Then + j2k_preset = DBNull.Value + End If + End If + + sSQL &= "J2KPreset = " & TC.getSQLFormat(j2k_preset) & ", " + + Dim id_Emulators_Default As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emulators FROM tbl_Emulators_Moby_Platforms EMP WHERE EMP.id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " LIMIT 1) AND EMP.DefaultEmulator = 1", tran) + If Equals(id_Emulators_Default, cmb_Default_Emulator.EditValue) Then + sSQL &= "id_Emulators = NULL, " + Else + sSQL &= "id_Emulators = " & TC.getSQLFormat(cmb_Default_Emulator.EditValue) & ", " + End If + + DataAccess.FireProcedure(tran.Connection, 0, sSQL.Substring(0, sSQL.Length - 2) & " WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games), tran) + + Dim id_Moby_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT GAME.id_Moby_Games FROM tbl_Emu_Games EMUGAME LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games), tran), 0) + Dim id_Moby_Releases As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT REL.id_Moby_Releases FROM tbl_Emu_Games EMUGAME LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN moby.tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games), tran), 0) + + Dim dt_Genres As DataTable = DS_ML.src_frm_Emu_Game_Edit_Genres.GetChanges + If dt_Genres IsNot Nothing AndAlso dt_Genres.Rows.Count > 0 Then + + For Each row As DataRow In dt_Genres.Rows + Dim id_Moby_Genres = row("id_Moby_Genres") + Dim b_Used As Object = row("Used") + Dim id_Moby_Games_Genres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Genres FROM moby.tbl_Moby_Games_Genres WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(row("id_Moby_Genres")), tran), 0) + + 'TODO: MultiEdit - properly handling + If Not TC.NZ(b_Used, False) Then + If id_Moby_Games_Genres <> 0 Then + 'already defined as moby_game_genre, upsert as Used = 0 to tbl_Emu_Games_Moby_Genres + DS_ML.Upsert_tbl_Emu_Games_Moby_Genres(tran, _id_Emu_Games, id_Moby_Genres, False) + Else + 'not defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + End If + Else + If id_Moby_Games_Genres <> 0 Then + 'already defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + Else + 'not defined as moby_game_genre, add as Used = 1 to tbl_Emu_Games_Moby_Genres + DS_ML.Upsert_tbl_Emu_Games_Moby_Genres(tran, _id_Emu_Games, id_Moby_Genres, True) + End If + End If + Next + + End If + + Dim dt_Attributes As DataTable = DS_ML.src_frm_Emu_Game_Edit_Attributes.GetChanges + If dt_Attributes IsNot Nothing AndAlso dt_Attributes.Rows.Count > 0 Then + + For Each row As DataRow In dt_Attributes.Rows + Dim id_Moby_Attributes = row("id_Moby_Attributes") + Dim b_Used As Object = row("Used") + Dim id_Moby_Releases_Attributes As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Attributes FROM moby.tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Attributes = " & TC.getSQLFormat(row("id_Moby_Attributes")), tran), 0) + + 'TODO: MultiEdit - properly handling + If Not TC.NZ(b_Used, False) Then + If id_Moby_Releases_Attributes <> 0 Then + 'already defined as moby_releases_attributes, upsert as Used = 0 to tbl_Emu_Games_Moby_Attributes + DS_ML.Upsert_tbl_Emu_Games_Moby_Attributes(tran, _id_Emu_Games, id_Moby_Attributes, False) + Else + 'not defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + End If + Else + If id_Moby_Releases_Attributes <> 0 Then + 'already defined as moby_releases_attributes, delete all occurences in tbl_Emu_Games_Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + Else + 'not defined as moby_releases_attributes, add as Used = 1 to tbl_Emu_Games_Moby_Attributes + DS_ML.Upsert_tbl_Emu_Games_Moby_Attributes(tran, _id_Emu_Games, id_Moby_Attributes, True) + End If + End If + Next + + End If + + If DS_ML.tbl_Emu_Games_Edit_Languages.GetChanges IsNot Nothing Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games), tran) + + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Languages.Select("Used = 1") + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Languages (id_Emu_Games, id_Languages, USR) VALUES (" & TC.getSQLParameter(_id_Emu_Games, row("id_Languages"), True) & ")", tran) + Next + End If + + If DS_ML.tbl_Emu_Games_Edit_Regions.GetChanges IsNot Nothing Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games), tran) + + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Regions.Select("Used = 1") + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Regions (id_Emu_Games, id_Regions, USR) VALUES (" & TC.getSQLParameter(_id_Emu_Games, row("id_Regions"), True) & ")", tran) + Next + End If + + Dim dt_New As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_New, Nothing, Nothing, Nothing, _id_Emu_Games) + + 'Extras could need renaming - currently only in the case of Windows Games (id_Moby_Platforms = 3) + If Not _MultiEdit AndAlso TC.NZ(dt_New.Rows(0)("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.win Then + If dt_Old.Rows.Count = 1 Then + Dim s_Old_FileName As String = "" + If TC.NZ(dt_Old.Rows(0)("InnerFile"), "") = "" Then + s_Old_FileName = dt_Old.Rows(0)("InnerFile") + Else + s_Old_FileName = dt_Old.Rows(0)("File") + End If + + Dim s_New_FileName As String = "" + If dt_New.Rows(0)("InnerFile").Length > 0 Then + s_New_FileName = dt_New.Rows(0)("InnerFile") + Else + s_New_FileName = dt_New.Rows(0)("File") + End If + + Dim al_Old_Extras As ArrayList = cls_Extras.FindAllExtras(dt_Old.Rows(0)("Platform_Short"), dt_Old.Rows(0)("id_Moby_Platforms"), dt_Old.Rows(0)("Game"), s_Old_FileName) + Dim al_New_Extras As ArrayList = cls_Extras.FindAllExtras(dt_New.Rows(0)("Platform_Short"), dt_New.Rows(0)("id_Moby_Platforms"), dt_New.Rows(0)("Game"), s_New_FileName) + + If al_Old_Extras.Count > 0 AndAlso Not cls_Extras.ExtrasListsEqual(al_Old_Extras, al_New_Extras) Then + + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Your alterations affect the filenames of one or more extras (title, snapshots etc.). Do you want to automatically rename these extras?", "Extras need renaming", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + If res = DialogResult.Cancel Then + tran.Rollback() + Return False + End If + + If res = DialogResult.Yes Then + 'Rename all extras in al_Old_Extras + For Each extra As cls_Extras.cls_Extras_Result In al_Old_Extras + Dim oldpath As String = extra._Path + Dim newfilename As String = cls_Extras.FindNextFreeExtraFilename(dt_New.Rows(0)("Platform_Short"), extra._ExtraType, cls_Extras.GetExtraFilename(dt_New.Rows(0)("Game"), s_New_FileName)) + + If newfilename <> "" Then + Alphaleonis.Win32.Filesystem.File.Move(oldpath, cls_Globals.Dir_Extras & "\emulation\" & dt_New.Rows(0)("Platform_Short") & "\" & extra._ExtraType & "\" & newfilename & Alphaleonis.Win32.Filesystem.Path.GetExtension(extra._Path)) + End If + Next + End If + End If + End If + End If + + DS_ML.Update_tbl_Emu_Games_Caches(tran, _id_Emu_Games) + + If tpg_DOSBox_Config.PageVisible = True Then + Me.ucr_DOSBox_Config.Save_Game_Config(tran) + End If + + tran.Commit() + End Using + + Cursor.Current = Cursors.Default + + Return True + End Function + + Private Function Save_Multiple_Games() As Boolean + Cursor.Current = Cursors.WaitCursor + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Continuous, False, "Saving Game {0} of {1} ...", 0, _id_Emu_Games_Multi.Length, False) + + prg.Start() + + BS_Attributes.EndEdit() + BS_Educational_Categories.EndEdit() + BS_Genres.EndEdit() + BS_Other_Attributes.EndEdit() + BS_Perspectives.EndEdit() + BS_Sports_Themes.EndEdit() + BS_Visual_Presentation.EndEdit() + BS_Pacing.EndEdit() + BS_Gameplay.EndEdit() + BS_Interface_Control.EndEdit() + BS_Vehicular_Themes.EndEdit() + BS_Setting.EndEdit() + BS_Narrative_Theme_Topic.EndEdit() + BS_DLC_Addon.EndEdit() + BS_Special_Edition.EndEdit() + + BS_Languages.EndEdit() + BS_Regions.EndEdit() + BS_DefaultEmu.EndEdit() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + + For Each id_Emu_Games As Integer In _id_Emu_Games_Multi + prg.IncreaseCurrentValue() + + Dim dt_Old As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Old, Nothing, Nothing, Nothing, id_Emu_Games) + + Dim sSQL As String = "" + + If txb_Name.Text.Length > 0 AndAlso Not Equals(txb_Name.EditValue, dt_Old.Rows(0)("Game")) Then sSQL &= "Name = " & IIf(txb_Name.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Name.Text)) & ", " & "Name_USR = " & IIf(txb_Name.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Name.Text)) & ", " + If txb_Description.Text.Length > 0 AndAlso Not Equals(txb_Description.EditValue, dt_Old.Rows(0)("Description")) Then sSQL &= "Description = " & IIf(txb_Description.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Description.Text)) & ", " & "Description_USR = " & IIf(txb_Description.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Description.Text)) & ", " + If txb_Special_Info.Text.Length > 0 AndAlso Not Equals(txb_Special_Info.EditValue, dt_Old.Rows(0)("SpecialInfo")) Then sSQL &= "SpecialInfo = " & IIf(txb_Special_Info.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Special_Info.Text)) & ", " & "SpecialInfo_USR = " & IIf(txb_Special_Info.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Special_Info.Text)) & ", " + If txb_Notes.Text.Length > 0 AndAlso Not Equals(txb_Notes.EditValue, dt_Old.Rows(0)("Note")) Then sSQL &= "Note = " & IIf(txb_Notes.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Notes.Text)) & ", " & "Note_USR = " & IIf(txb_Notes.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Notes.Text)) & ", " + If txb_Prefix.Text.Length > 0 AndAlso Not Equals(txb_Prefix.EditValue, dt_Old.Rows(0)("Name_Prefix")) Then sSQL &= "Name_Prefix = " & IIf(txb_Prefix.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Prefix.Text)) & ", " & "Name_Prefix_USR = " & IIf(txb_Prefix.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Prefix.Text)) & ", " + If txb_Publisher.Text.Length > 0 AndAlso Not Equals(txb_Publisher.EditValue, dt_Old.Rows(0)("Publisher")) Then sSQL &= "Publisher = " & IIf(txb_Publisher.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Publisher.Text)) & ", " & "Publisher_USR = " & IIf(txb_Publisher.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Publisher.Text)) & ", " + If txb_Developer.Text.Length > 0 AndAlso Not Equals(txb_Developer.EditValue, dt_Old.Rows(0)("Developer")) Then sSQL &= "Developer = " & IIf(txb_Developer.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Developer.Text)) & ", " & "Developer_USR = " & IIf(txb_Developer.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Developer.Text)) & ", " + If txb_Year.Text.Length > 0 AndAlso Not Equals(txb_Year.EditValue, dt_Old.Rows(0)("Year")) Then sSQL &= "Year = " & IIf(txb_Year.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Year.Text)) & ", " & "Year_USR = " & IIf(txb_Year.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Year.Text)) & ", " + If txb_Version.Text.Length > 0 AndAlso Not Equals(txb_Version.EditValue, dt_Old.Rows(0)("Version")) Then sSQL &= "Version = " & IIf(txb_Version.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Version.Text)) & ", " & "Version_USR = " & IIf(txb_Version.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Version.Text)) & ", " + If txb_Alt.Text.Length > 0 AndAlso Not Equals(txb_Alt.EditValue, dt_Old.Rows(0)("Alt")) Then sSQL &= "Alt = " & IIf(txb_Alt.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Alt.Text)) & ", " & "Alt_USR = " & IIf(txb_Alt.Text.Length = 0, "NULL", TC.getSQLFormat(txb_Alt.Text)) & ", " + + If chb_Alpha.CheckState <> CheckState.Indeterminate Then If chb_Alpha.Checked Then sSQL &= "Alpha = 1, Alpha_USR = 1, " Else sSQL &= "Alpha = NULL, Alpha_USR = NULL, " + If chb_Bad.CheckState <> CheckState.Indeterminate Then If chb_Bad.Checked Then sSQL &= "Bad = 1, Bad_USR = 1, " Else sSQL &= "Bad = NULL, Bad_USR = NULL, " + If chb_Beta.CheckState <> CheckState.Indeterminate Then If chb_Beta.Checked Then sSQL &= "Beta = 1, Beta_USR = 1, " Else sSQL &= "Beta = NULL, Beta_USR = NULL, " + If chb_Bios.CheckState <> CheckState.Indeterminate Then If chb_Bios.Checked Then sSQL &= "Bios = 1, Bios_USR = 1, " Else sSQL &= "Bios = NULL, Bios_USR = NULL, " + If chb_Sample.CheckState <> CheckState.Indeterminate Then If chb_Sample.Checked Then sSQL &= "Sample = 1, Sample_USR = 1, " Else sSQL &= "Sample = NULL, Sample_USR = NULL, " + If chb_Fixed.CheckState <> CheckState.Indeterminate Then If chb_Fixed.Checked Then sSQL &= "Fixed = 1, Fixed_USR = 1, " Else sSQL &= "Fixed = NULL, Fixed_USR = NULL, " + If chb_Good.CheckState <> CheckState.Indeterminate Then If chb_Good.Checked Then sSQL &= "Good = 1, Good_USR = 1, " Else sSQL &= "Good = NULL, Good_USR = NULL, " + If chb_Hack.CheckState <> CheckState.Indeterminate Then If chb_Hack.Checked Then sSQL &= "Hack = 1, Hack_USR = 1, " Else sSQL &= "Hack = NULL, Hack_USR = NULL, " + If chb_Kiosk.CheckState <> CheckState.Indeterminate Then If chb_Kiosk.Checked Then sSQL &= "Kiosk = 1, Kiosk_USR = 1, " Else sSQL &= "Kiosk = NULL, Kiosk_USR = NULL, " + If chb_Overdump.CheckState <> CheckState.Indeterminate Then If chb_Overdump.Checked Then sSQL &= "Overdump = 1, Overdump_USR = 1, " Else sSQL &= "Overdump = NULL, Overdump_USR = NULL, " + If chb_Pirated.CheckState <> CheckState.Indeterminate Then If chb_Pirated.Checked Then sSQL &= "Pirated = 1, Pirated_USR = 1, " Else sSQL &= "Pirated = NULL, Pirated_USR = NULL, " + If chb_Prototype.CheckState <> CheckState.Indeterminate Then If chb_Prototype.Checked Then sSQL &= "Prototype = 1, Prototype_USR = 1, " Else sSQL &= "Prototype = NULL, Prototype_USR = NULL, " + If chb_Trainer.CheckState <> CheckState.Indeterminate Then If chb_Trainer.Checked Then sSQL &= "Trainer = 1, Trainer_USR = 1, " Else sSQL &= "Trainer = NULL, Trainer_USR = NULL, " + If chb_Translation.CheckState <> CheckState.Indeterminate Then If chb_Translation.Checked Then sSQL &= "Translation = 1, Translation_USR = 1, " Else sSQL &= "Translation = NULL, Translation_USR = NULL, " + If chb_Unlicensed.CheckState <> CheckState.Indeterminate Then If chb_Unlicensed.Checked Then sSQL &= "Unlicensed = 1, Unlicensed_USR = 1, " Else sSQL &= "Unlicensed = NULL, Unlicensed_USR = NULL, " + + 'J2K + Dim j2k_preset As Object = DBNull.Value + + If cmb_J2K_Config.EditValue IsNot DBNull.Value AndAlso cmb_J2K_Config.EditValue IsNot Nothing Then + 'In Multiedit you have to select something, else it is + BS_J2K.EndEdit() + j2k_preset = BS_J2K.Current("ConfigName") + + If cmb_Default_Emulator.EditValue IsNot Nothing AndAlso cmb_Default_Emulator.EditValue IsNot DBNull.Value Then + If BS_DefaultEmu.Current IsNot Nothing Then + If Equals(BS_DefaultEmu.Current("J2KPreset"), j2k_preset) Then + j2k_preset = DBNull.Value + End If + End If + Else + 'Get the J2K Preset from the Emulator + Dim j2k_preset_emu As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT EMU.J2KPreset FROM tbl_Emu_Games EG INNER JOIN tbl_Emulators EMU ON EG.id_Emulators = EMU.id_Emulators WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran) + + If j2k_preset_emu Is Nothing AndAlso TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT EG.id_Emulators FROM tbl_Emu_Games EG WHERE Eg.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) = 0 Then + 'Get the J2K Preset from the global default Emulator + j2k_preset_emu = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT E.J2KPreset FROM tbl_Emulators_Moby_Platforms EMP INNER JOIN tbl_Emulators E ON EMP.id_Emulators = E.id_Emulators WHERE id_Moby_Platforms = " & TC.getSQLFormat(_id_Moby_Platforms) & " AND EMP.DefaultEmulator = 1", tran) + End If + + If Equals(j2k_preset_emu, j2k_preset) Then + j2k_preset = DBNull.Value + End If + End If + + sSQL &= "J2KPreset = " & TC.getSQLFormat(j2k_preset) & ", " + End If + + If _id_Moby_Platforms > 0L Then + If TC.NZ(cmb_Default_Emulator.EditValue, 0) = -1 Then 'Remove all default emulators + sSQL &= "id_Emulators = NULL, " + ElseIf TC.NZ(cmb_Default_Emulator.EditValue, 0) > 0 Then + sSQL &= "id_Emulators = " & TC.getSQLFormat(cmb_Default_Emulator.EditValue) & ", " + End If + End If + + If sSQL.Length > 0 Then + sSQL = "UPDATE tbl_Emu_Games SET " & sSQL.Substring(0, sSQL.Length - 2) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End If + + Dim id_Moby_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT GAME.id_Moby_Games FROM tbl_Emu_Games EMUGAME LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) + Dim id_Moby_Releases As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT REL.id_Moby_Releases FROM tbl_Emu_Games EMUGAME LEFT JOIN moby.tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN moby.tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), 0) + + 'TODO: GetChanges doesn't suffice - everything either "false" or "true" have to be taken care off + + 'Dim dt_Genres As DataTable = DS_ML.src_frm_Emu_Game_Edit_Genres.GetChanges + 'If dt_Genres IsNot Nothing AndAlso dt_Genres.Rows.Count > 0 Then + + For Each row As DataRow In DS_ML.src_frm_Emu_Game_Edit_Genres.Select("Used = 1 OR Used = 0") '0 = Remove; 1 = Add; Null = Do Nothing + If row("Used") IsNot DBNull.Value AndAlso row("Used") IsNot Nothing Then + Dim id_Moby_Genres = row("id_Moby_Genres") + Dim b_Used As Boolean = row("Used") + Dim id_Moby_Games_Genres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Games_Genres FROM moby.tbl_Moby_Games_Genres WHERE id_Moby_Games = " & TC.getSQLFormat(id_Moby_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(row("id_Moby_Genres")), tran), 0) + + 'tbl_Emu_Games_Moby_Genres + 'tbl_Moby_Games_Genres + If Not b_Used Then + If id_Moby_Games_Genres <> 0 Then + 'already defined as moby_game_genre, upsert as Used = 0 to tbl_Emu_Games_Moby_Genres + DS_ML.Upsert_tbl_Emu_Games_Moby_Genres(tran, id_Emu_Games, id_Moby_Genres, False) + Else + 'not defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + End If + Else + If id_Moby_Games_Genres <> 0 Then + 'already defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres), tran) + Else + 'not defined as moby_game_genre, add as Used = 1 to tbl_Emu_Games_Moby_Genres + DS_ML.Upsert_tbl_Emu_Games_Moby_Genres(tran, id_Emu_Games, id_Moby_Genres, True) + End If + End If + End If + Next + + 'End If + + 'Dim dt_Attributes As DataTable = DS_ML.src_frm_Emu_Game_Edit_Attributes.GetChanges + 'If dt_Attributes IsNot Nothing AndAlso dt_Attributes.Rows.Count > 0 Then + + For Each row As DataRow In DS_ML.src_frm_Emu_Game_Edit_Attributes.Select("Used = 1 OR Used = 0") + If row("Used") IsNot DBNull.Value AndAlso row("Used") IsNot Nothing Then + Dim id_Moby_Attributes = row("id_Moby_Attributes") + Dim b_Used As Boolean = row("Used") + Dim id_Moby_Releases_Attributes As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Releases_Attributes FROM moby.tbl_Moby_Releases_Attributes WHERE id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases) & " AND id_Moby_Attributes = " & TC.getSQLFormat(row("id_Moby_Attributes")), tran), 0) + + If Not b_Used Then + If id_Moby_Releases_Attributes <> 0 Then + 'already defined as moby_releases_attributes, upsert as Used = 0 to tbl_Emu_Games_Moby_Attributes + DS_ML.Upsert_tbl_Emu_Games_Moby_Attributes(tran, id_Emu_Games, id_Moby_Attributes, False) + Else + 'not defined as moby_game_genre, delete all occurences in tbl_Emu_Games_Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + End If + Else + If id_Moby_Releases_Attributes <> 0 Then + 'already defined as moby_releases_attributes, delete all occurences in tbl_Emu_Games_Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes), tran) + Else + 'not defined as moby_releases_attributes, add as Used = 1 to tbl_Emu_Games_Moby_Attributes + DS_ML.Upsert_tbl_Emu_Games_Moby_Attributes(tran, id_Emu_Games, id_Moby_Attributes, True) + End If + End If + End If + + Next + + 'End If + + 'If DS_ML.tbl_Emu_Games_Edit_Languages.GetChanges IsNot Nothing Then + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Languages.Select("Used = 0") + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Languages = " & TC.getSQLFormat(row("id_Languages")), tran) + Next + + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Languages.Select("Used = 1") + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Languages = " & TC.getSQLFormat(row("id_Languages")), tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Languages (id_Emu_Games, id_Languages, USR) VALUES (" & TC.getSQLParameter(id_Emu_Games, row("id_Languages"), True) & ")", tran) + Next + 'End If + + 'If DS_ML.tbl_Emu_Games_Edit_Regions.GetChanges IsNot Nothing Then + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Regions.Select("Used = 0") + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Regions = " & TC.getSQLFormat(row("id_Regions")), tran) + Next + + For Each row As DataRow In DS_ML.tbl_Emu_Games_Edit_Regions.Select("Used = 1") + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Regions = " & TC.getSQLFormat(row("id_Regions")), tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emu_Games_Regions (id_Emu_Games, id_Regions, USR) VALUES (" & TC.getSQLParameter(id_Emu_Games, row("id_Regions"), True) & ")", tran) + Next + 'End If + + Dim dt_New As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_New, Nothing, Nothing, Nothing, id_Emu_Games) + + 'Extras could need renaming - currently only in the case of Windows Games (id_Moby_Platforms = 3) + If TC.NZ(dt_New.Rows(0)("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.win Then + If dt_Old.Rows.Count = 1 Then + Dim al_Old_Extras As ArrayList = cls_Extras.FindAllExtras(dt_Old.Rows(0)("Platform_Short"), dt_Old.Rows(0)("id_Moby_Platforms"), dt_Old.Rows(0)("Game"), dt_Old.Rows(0)("InnerFile")) + Dim al_New_Extras As ArrayList = cls_Extras.FindAllExtras(dt_New.Rows(0)("Platform_Short"), dt_New.Rows(0)("id_Moby_Platforms"), dt_New.Rows(0)("Game"), dt_New.Rows(0)("InnerFile")) + + If al_Old_Extras.Count > 0 AndAlso Not cls_Extras.ExtrasListsEqual(al_Old_Extras, al_New_Extras) Then + prg.Hide = True + + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Your alterations for " & dt_Old.Rows(0)("Name") & " affect the filenames of one or more extras (title, snapshots etc.). Do you want to automatically rename these extras?", "Extras need renaming", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + prg.Hide = False + + If res = DialogResult.Cancel Then + tran.Rollback() + Return False + End If + + If res = DialogResult.Yes Then + 'Rename all extras in al_Old_Extras + For Each extra As cls_Extras.cls_Extras_Result In al_Old_Extras + Dim oldpath As String = extra._Path + Dim newfilename As String = cls_Extras.FindNextFreeExtraFilename(dt_New.Rows(0)("Platform_Short"), extra._ExtraType, cls_Extras.GetExtraFilename(dt_New.Rows(0)("Game"), dt_New.Rows(0)("InnerFile"))) + + If newfilename <> "" Then + Alphaleonis.Win32.Filesystem.File.Move(oldpath, cls_Globals.Dir_Extras & "\emulation\" & dt_New.Rows(0)("Platform_Short") & "\" & extra._ExtraType & "\" & newfilename & Alphaleonis.Win32.Filesystem.Path.GetExtension(extra._Path)) + End If + Next + End If + End If + End If + End If + + DS_ML.Update_tbl_Emu_Games_Caches(tran, id_Emu_Games) + Next 'id_Emu_Games + + tran.Commit() + + prg.Close() + Cursor.Current = Cursors.Default + + End Using + + Return True + End Function + + Private Function Save() As Boolean + If Not _MultiEdit Then + Return Save_Single_Game() + Else + Save_Single_Game() 'Saves the Template + Return Save_Multiple_Games() + End If + End Function + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If Save() Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End If + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub cmb_Default_Emulator_Properties_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Default_Emulator.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + Me.cmb_Default_Emulator.EditValue = _id_Emulators_Default + End If + End Sub + + 'TechInfo Shortcuts: + 'Team: 620 + 'Co-Op: 619 + 'Same/Splitscreen: 156 + 'FFA: 618 + 'Bots: 621 + + Private Sub Apply_TechInfo(ByVal id_Moby_Attributes As Integer, Optional ByVal value As Boolean = True) + Dim rows() As DataRow = Me.DS_ML.src_frm_Emu_Game_Edit_Attributes.Select("id_Moby_Attributes = " & TC.getSQLFormat(id_Moby_Attributes)) + If rows.Length = 1 Then + rows(0)("Used") = value + End If + End Sub + + Private Sub mni_TechInfo_Shortcut_SportsMP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_TechInfo_Shortcut_Sports_MP.ItemClick + For Each id_Moby_Attributes As Integer In {618, 620, 621, 156} + Apply_TechInfo(id_Moby_Attributes) + Next + End Sub + + Private Sub mni_TechInfo_Shortcut_CoOp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_TechInfo_Shortcut_CoOp_MP.ItemClick + For Each id_Moby_Attributes As Integer In {619, 156} + Apply_TechInfo(id_Moby_Attributes) + Next + End Sub + + Private Sub mni_TechInfo_Shortcut_VS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_TechInfo_Shortcut_VS_Fighting.ItemClick + For Each id_Moby_Attributes As Integer In {618, 156} + Apply_TechInfo(id_Moby_Attributes) + Next + End Sub + + Private Sub bbi_Techinfo_Remove_Value_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_TechInfo_Remove_Value.ItemClick + If BS_Attributes.Current IsNot Nothing Then + BS_Attributes.Current("Used") = DBNull.Value + Me.grd_Attributes.RefreshDataSource() + End If + End Sub + + Private Sub bbi_Remove_Value_Languages_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Languages_Remove_Value.ItemClick + If BS_Languages.Current IsNot Nothing Then + BS_Languages.Current("Used") = DBNull.Value + Me.grd_Languages.RefreshDataSource() + End If + End Sub + + Private Sub bbi_Remove_Value_Regions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Regions_Remove_Value.ItemClick + If BS_Regions.Current IsNot Nothing Then + BS_Regions.Current("Used") = DBNull.Value + Me.grd_Regions.RefreshDataSource() + End If + End Sub + + Private Sub cmb_J2K_Config_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_J2K_Config.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + If BS_DefaultEmu.Current Is Nothing Then + cmb_J2K_Config.EditValue = DBNull.Value + Else + 'Set the Config from Emulator + If BS_DefaultEmu.Current("J2KPreset") Is DBNull.Value Then + cmb_J2K_Config.EditValue = DBNull.Value + Else + Dim j2k_config As String = BS_DefaultEmu.Current("J2KPreset") + + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", j2k_config) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + End If + End If + End If + End Sub + + Private Sub BS_DefaultEmu_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BS_DefaultEmu.CurrentChanged + If BS_DefaultEmu.Current IsNot Nothing Then + 'J2K + If BS_DefaultEmu.Current("J2KPreset") Is DBNull.Value Then + cmb_J2K_Config.EditValue = DBNull.Value + '_J2KPreset_Original = DBNull.Value + Else + 'Set the Config + Dim j2k_config As String = BS_DefaultEmu.Current("J2KPreset") + '_J2KPreset_Original = j2k_config + + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", j2k_config) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + End If + End If + End Sub + + Private Sub gv_DOSBox_Files_and_Folders_CustomColumnDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) Handles gv_DOSBox_Files_and_Folders.CustomColumnDisplayText + If e.Column Is col_DOSBox_Displayname Then + 'Dim row As DataRow = gv_DOSBox_Files_and_Folders.GetRow(e.ListSourceRowIndex).Row + Dim oInnerFile As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "InnerFile") + Dim oFolder As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "Folder") + + If TC.NZ(oInnerFile, "").Length > 0 Then + e.DisplayText = oInnerFile + Else + e.DisplayText = oFolder + End If + End If + + If e.Column Is colid_Rombase_DOSBox_Filetypes Then + 'Dim row As DataRow = gv_DOSBox_Files_and_Folders.GetRow(e.ListSourceRowIndex).Row + Dim o_id_Rombase_DOSBox_Filetypes As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "id_Rombase_DOSBox_Filetypes") + Dim o_id_Rombase_DOSBox_Exe_Types As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "id_Rombase_DOSBox_Exe_Types") + + If TC.NZ(o_id_Rombase_DOSBox_Filetypes, 0) <> 0 Then + Dim part1 As String = "" + Dim part2 As String = "" + + Dim rows_Filetype As DataRow() = BTA_DOSBox_Filetypes.DS.Tables(0).Select("id_Rombase_DOSBox_Filetypes = " & TC.getSQLFormat(o_id_Rombase_DOSBox_Filetypes)) + If rows_Filetype.Length = 1 Then part1 = rows_Filetype(0)("Displayname") + + If TC.NZ(o_id_Rombase_DOSBox_Filetypes, 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.exe Then 'Executable + Dim rows_Exe_Type As DataRow() = BTA_DOSBox_Exe_Types.DS.Tables(0).Select("id_Rombase_DOSBox_Exe_Types = " & TC.getSQLFormat(o_id_Rombase_DOSBox_Exe_Types)) + If rows_Exe_Type.Length = 1 Then part2 = " (" & rows_Exe_Type(0)("Displayname") & ")" + End If + + e.DisplayText = part1 & part2 + End If + End If + End Sub + + Private Sub cmb_DOSBox_Volume_Number_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Volume_Number.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("Volume_Number") = DBNull.Value + cmb_DOSBox_Volume_Number.EditValue = DBNull.Value + End If + End Sub + + Private Sub cmb_DOSBox_Mount_Destination_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Mount_Destination.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("DOSBox_Mount_Destination") = DBNull.Value + cmb_DOSBox_Mount_Destination.EditValue = DBNull.Value + End If + End Sub + + Private Sub cmb_DOSBox_Exe_Type_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Exe_Type.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("id_Rombase_DOSBox_Exe_Types") = DBNull.Value + cmb_DOSBox_Exe_Type.EditValue = DBNull.Value + End If + End Sub + + ''' + ''' Clone of frm_Rom_Manager.Save_MV + ''' + ''' + ''' + ''' + Private Sub Save_MV(ByVal Save_Main_Entries As Boolean, ByRef tran As SQLite.SQLiteTransaction) + Dim rows() As DataRow = Nothing + + If Save_Main_Entries Then + rows = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NULL") + Else + rows = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NOT NULL") + End If + + Dim dict_Emu_Games_Children As New Dictionary(Of Long, ArrayList) + If Save_Main_Entries Then + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + Dim id_Emu_Games_Owner As Long = TC.NZ(row("id_Emu_Games_Owner"), 0L) + If id_Emu_Games_Owner <> 0L Then + If dict_Emu_Games_Children.ContainsKey(id_Emu_Games_Owner) Then + dict_Emu_Games_Children(id_Emu_Games_Owner).Add(row) + Else + Dim al As New ArrayList + al.Add(row) + dict_Emu_Games_Children.Add(id_Emu_Games_Owner, al) + End If + End If + End If + Next + End If + + Dim GC_Counter As Integer = 0 + + For Each row As DataRow In rows + GC_Counter += 1 + + If row.RowState = DataRowState.Deleted OrElse row.RowState = DataRowState.Detached OrElse row.RowState = DataRowState.Unchanged Then + Continue For + End If + + Try + Dim id_Emu_Games_Old As Integer = row("id_Emu_Games") + Dim bWasAdded As Boolean = row.RowState = DataRowState.Added + + 'Save changes to database + DS_ML.Upsert_Rom_Manager_tbl_Emu_Games(tran, row) + + 'Update all child rows (volumes of the game) + If Save_Main_Entries Then + If id_Emu_Games_Old <> row("id_Emu_Games") AndAlso dict_Emu_Games_Children.ContainsKey(id_Emu_Games_Old) Then + For Each row_volume As DataRow In dict_Emu_Games_Children(id_Emu_Games_Old) + row_volume("id_Emu_Games_Owner") = row("id_Emu_Games") + Next + End If + End If + + If id_Emu_Games_Old > 0 Then + Dim dt_New As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_New, Nothing, Nothing, Nothing, row("id_Emu_Games")) + End If + + Dim id_Emu_Games As Integer = row("id_Emu_Games") + + DS_ML.Update_tbl_Emu_Games_Caches(tran, id_Emu_Games) + + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + Return + End Try + Next + End Sub + + Private Sub cmb_DOSBox_Type_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_DOSBox_Type.EditValueChanged + If TC.IsNullNothingOrEmpty(cmb_DOSBox_Type.EditValue) Then + lbl_DOSBox_Exe_Type.Visible = False + cmb_DOSBox_Exe_Type.Visible = False + lbl_DOSBox_Mount_Destination.Visible = False + cmb_DOSBox_Mount_Destination.Visible = False + lbl_DOSBox_Volume_Number.Visible = False + cmb_DOSBox_Volume_Number.Visible = False + End If + + If {1, 2, 4, 5, 6}.Contains(TC.NZ(cmb_DOSBox_Type.EditValue, 0)) Then 'Packed Content, CWD, CD Image, Floppy Image, Floppy Booter + lbl_DOSBox_Exe_Type.Visible = False + cmb_DOSBox_Exe_Type.Visible = False + lbl_DOSBox_Mount_Destination.Visible = True + cmb_DOSBox_Mount_Destination.Visible = True + lbl_DOSBox_Volume_Number.Visible = True + cmb_DOSBox_Volume_Number.Visible = True + End If + + If {3}.Contains(TC.NZ(cmb_DOSBox_Type.EditValue, 0)) Then 'Executable + lbl_DOSBox_Exe_Type.Visible = True + cmb_DOSBox_Exe_Type.Visible = True + lbl_DOSBox_Mount_Destination.Visible = False + cmb_DOSBox_Mount_Destination.Visible = False + lbl_DOSBox_Volume_Number.Visible = False + cmb_DOSBox_Volume_Number.Visible = False + End If + End Sub + + Private Sub rpi_Volume_Number_ButtonClick(sender As System.Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles rpi_Volume_Number.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_MV.Current("Volume_Number") = DBNull.Value + sender.EditValue = DBNull.Value + End If + End Sub + + Private Sub bbi_Genres_Remove_Value_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Genres_Remove_Value.ItemClick + Try + _Genres_PopupControl.DataSource.Current("Used") = DBNull.Value + _Genres_PopupControl.RefreshDataSource() + Catch ex As Exception + + End Try + End Sub + + Private Sub bbi_Genres_Show_Description_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Genres_Show_Description.ItemClick + Try + Dim id As Integer = _Genres_PopupControl.DataSource.Current("id_Moby_Genres") + + If id <= 0 Then Return + + Using frm As New frm_Emu_Game_Edit_GenreDescription(id) + frm.ShowDialog(Me) + End Using + Catch ex As Exception + + End Try + End Sub + + Private Sub popmnu_TechInfo_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_TechInfo.BeforePopup + If Not grd_Attributes.Allow_Popup Then + e.Cancel = True + Return + End If + + If _MultiEdit Then 'Single Emu Game Edit vs. Multi Emu Game Edit + bbi_TechInfo_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + bbi_TechInfo_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End Sub + + Private Sub popmnu_Languages_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Languages.BeforePopup + If _MultiEdit Then 'Single Emu Game Edit vs. Multi Emu Game Edit + bbi_Languages_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + bbi_Languages_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End Sub + + Private Sub popmnu_Regions_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Regions.BeforePopup + If _MultiEdit Then 'Single Emu Game Edit vs. Multi Emu Game Edit + bbi_Regions_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + bbi_Regions_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End Sub + + Private _Genres_PopupControl As MKNetDXLib.ctl_MKDXGrid = Nothing + + Private _Genres_Allow_Popup As Boolean = False + + Private Sub Handle_Genres_Allow_Popup(sender As Object, allow_popup As Boolean) Handles grd_Genres.E_Allow_Popup, grd_Perspectives.E_Allow_Popup, grd_Sports_Themes.E_Allow_Popup, grd_Educational_Categories.E_Allow_Popup, grd_Other_Attributes.E_Allow_Popup + _Genres_Allow_Popup = allow_popup + End Sub + + Private Sub popmnu_Genres_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Genres.BeforePopup + If Not _Genres_Allow_Popup Then + e.Cancel = True + Return + End If + + If _MultiEdit Then 'Single Emu Game Edit vs. Multi Emu Game Edit + bbi_Genres_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + bbi_Genres_Remove_Value.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End Sub + + Private Sub grd_Genres_Enter(sender As Object, e As EventArgs) Handles grd_Genres.Enter, grd_Visual_Presentation.Enter, grd_Vehicular_Themes.Enter, grd_Sports_Themes.Enter, grd_Special_Edition.Enter, grd_Setting.Enter, grd_Perspectives.Enter, grd_Pacing.Enter, grd_Other_Attributes.Enter, grd_Narrative_Theme_Topic.Enter, grd_Interface_Control.Enter, grd_Gameplay.Enter, grd_Educational_Categories.Enter, grd_DLC_Addon.Enter + _Genres_PopupControl = Nothing + _Genres_PopupControl = sender + End Sub + + Private Sub grd_Genres_MouseDown(sender As Object, e As MouseEventArgs) Handles grd_Genres.MouseDown, grd_Visual_Presentation.MouseDown, grd_Vehicular_Themes.MouseDown, grd_Sports_Themes.MouseDown, grd_Special_Edition.MouseDown, grd_Setting.MouseDown, grd_Perspectives.MouseDown, grd_Pacing.MouseDown, grd_Other_Attributes.MouseDown, grd_Narrative_Theme_Topic.MouseDown, grd_Interface_Control.MouseDown, grd_Gameplay.MouseDown, grd_Educational_Categories.MouseDown, grd_DLC_Addon.MouseDown + _Genres_PopupControl = Nothing + _Genres_PopupControl = sender + End Sub + + Private Sub gv_Genres_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Genres.MouseMove, gv_DLC_Addon.MouseMove, gv_Educational_Categories.MouseMove, gv_Gameplay.MouseMove, gv_Interface_Control.MouseMove, gv_Languages.MouseMove, gv_Narrative_Theme_Topic.MouseMove, gv_Other_Attributes.MouseMove, gv_Pacing.MouseMove, gv_Perspectives.MouseMove, gv_Regions.MouseMove, gv_Setting.MouseMove, gv_Special_Edition.MouseMove, gv_Sports_Themes.MouseMove, gv_Vehicular_Themes.MouseMove, gv_Visual_Presentation.MouseMove, gv_Attributes.MouseMove + Me.grd_Genres.ShowHandInColumns(sender, {"Used"}, e) + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.Designer.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.Designer.vb new file mode 100644 index 0000000..7c5b017 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.Designer.vb @@ -0,0 +1,71 @@ + _ +Partial Class frm_Emu_Game_Edit_GenreDescription + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.lbl_Genre = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Description = New MKNetDXLib.ctl_MKDXMemoEdit() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Genre + ' + Me.lbl_Genre.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Genre.AutoEllipsis = True + Me.lbl_Genre.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Genre.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Genre.Location = New System.Drawing.Point(0, 0) + Me.lbl_Genre.MKBoundControl1 = Nothing + Me.lbl_Genre.MKBoundControl2 = Nothing + Me.lbl_Genre.MKBoundControl3 = Nothing + Me.lbl_Genre.MKBoundControl4 = Nothing + Me.lbl_Genre.MKBoundControl5 = Nothing + Me.lbl_Genre.Name = "lbl_Genre" + Me.lbl_Genre.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Genre.Size = New System.Drawing.Size(402, 36) + Me.lbl_Genre.TabIndex = 1 + ' + 'txb_Description + ' + Me.txb_Description.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Description.Location = New System.Drawing.Point(0, 36) + Me.txb_Description.MKBoundLabel = Nothing + Me.txb_Description.MKEditValue_Compare = Nothing + Me.txb_Description.Name = "txb_Description" + Me.txb_Description.Properties.ReadOnly = True + Me.txb_Description.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_Description.Size = New System.Drawing.Size(402, 275) + Me.txb_Description.TabIndex = 2 + ' + 'frm_Emu_Game_Edit_GenreDescription + ' + Me.ClientSize = New System.Drawing.Size(402, 311) + Me.Controls.Add(Me.txb_Description) + Me.Controls.Add(Me.lbl_Genre) + Me.Name = "frm_Emu_Game_Edit_GenreDescription" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Genre As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Description As MKNetDXLib.ctl_MKDXMemoEdit + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.resx b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.vb new file mode 100644 index 0000000..7e047f7 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit_GenreDescription.vb @@ -0,0 +1,13 @@ +Public Class frm_Emu_Game_Edit_GenreDescription + Public Sub New(ByVal id_Moby_Genres As Integer) + InitializeComponent() + + Cursor.Current = Cursors.WaitCursor + + lbl_Genre.Text = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM moby.tbl_Moby_Genres WHERE id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres)) + txb_Description.Text = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Description FROM moby.tbl_Moby_Genres WHERE id_Moby_Genres = " & TC.getSQLFormat(id_Moby_Genres)) + txb_Description.DeselectAll() + + Cursor.Current = Cursors.Default + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.Designer.vb new file mode 100644 index 0000000..8438aff --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.Designer.vb @@ -0,0 +1,147 @@ + _ +Partial Class frm_Emu_Game_Rating_Weights_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.grd_Rating_Weights = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Rating_Weights = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Rating_Weights = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colRating_Category = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWeight = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() + CType(Me.grd_Rating_Weights, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Rating_Weights, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Rating_Weights, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(206, 149) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 1 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(284, 149) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 2 + Me.btn_Cancel.Text = "&Cancel" + ' + 'grd_Rating_Weights + ' + Me.grd_Rating_Weights.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Rating_Weights.DataSource = Me.BS_Rating_Weights + Me.grd_Rating_Weights.Location = New System.Drawing.Point(3, 3) + Me.grd_Rating_Weights.MainView = Me.gv_Rating_Weights + Me.grd_Rating_Weights.Name = "grd_Rating_Weights" + Me.grd_Rating_Weights.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1}) + Me.grd_Rating_Weights.Size = New System.Drawing.Size(356, 143) + Me.grd_Rating_Weights.TabIndex = 0 + Me.grd_Rating_Weights.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Rating_Weights}) + ' + 'BS_Rating_Weights + ' + Me.BS_Rating_Weights.DataMember = "tbl_Emu_Games_Rating_Weights" + Me.BS_Rating_Weights.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Rating_Weights + ' + Me.gv_Rating_Weights.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colRating_Category, Me.colWeight}) + Me.gv_Rating_Weights.GridControl = Me.grd_Rating_Weights + Me.gv_Rating_Weights.Name = "gv_Rating_Weights" + Me.gv_Rating_Weights.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Rating_Weights.OptionsView.ShowGroupPanel = False + ' + 'colRating_Category + ' + Me.colRating_Category.Caption = "Rating Category" + Me.colRating_Category.FieldName = "Rating_Category" + Me.colRating_Category.Name = "colRating_Category" + Me.colRating_Category.OptionsColumn.AllowEdit = False + Me.colRating_Category.OptionsColumn.ReadOnly = True + Me.colRating_Category.Visible = True + Me.colRating_Category.VisibleIndex = 0 + Me.colRating_Category.Width = 258 + ' + 'colWeight + ' + Me.colWeight.ColumnEdit = Me.RepositoryItemSpinEdit1 + Me.colWeight.FieldName = "Weight" + Me.colWeight.Name = "colWeight" + Me.colWeight.Visible = True + Me.colWeight.VisibleIndex = 1 + Me.colWeight.Width = 80 + ' + 'RepositoryItemSpinEdit1 + ' + Me.RepositoryItemSpinEdit1.AutoHeight = False + Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.RepositoryItemSpinEdit1.IsFloatValue = False + Me.RepositoryItemSpinEdit1.Mask.EditMask = "N00" + Me.RepositoryItemSpinEdit1.MaxValue = New Decimal(New Integer() {99, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1" + ' + 'frm_Emu_Game_Rating_Weights_Edit + ' + Me.ClientSize = New System.Drawing.Size(362, 175) + Me.Controls.Add(Me.grd_Rating_Weights) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Name = "frm_Emu_Game_Rating_Weights_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Rating Weights" + CType(Me.grd_Rating_Weights, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Rating_Weights, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Rating_Weights, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents grd_Rating_Weights As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Rating_Weights As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BS_Rating_Weights As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents colRating_Category As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colWeight As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.resx b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.resx new file mode 100644 index 0000000..9ff3bd9 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.vb new file mode 100644 index 0000000..b19bd83 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Rating_Weights_Edit.vb @@ -0,0 +1,34 @@ +Public Class frm_Emu_Game_Rating_Weights_Edit + Public Sub New() + InitializeComponent() + + Cursor.Current = Cursors.WaitCursor + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Emu_Games_Rating_Weights(tran, DS_ML.tbl_Emu_Games_Rating_Weights) + End Using + + Cursor.Current = Cursors.Default + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + Cursor.Current = Cursors.WaitCursor + + BS_Rating_Weights.EndEdit() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each row As DataRow In DS_ML.tbl_Emu_Games_Rating_Weights.Rows + DS_ML.Update_tbl_Emu_Games_Rating_Weights(tran, row) + Next + tran.Commit() + End Using + + Cursor.Current = Cursors.Default + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.Close() + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.Designer.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.Designer.vb new file mode 100644 index 0000000..7ee1fb0 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.Designer.vb @@ -0,0 +1,424 @@ + _ +Partial Class frm_Emu_Game_Screenshotviewer + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.splt_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_Screenshots = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Screenshots = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Screenshots = New System.Data.DataSet() + Me.tbl_Screenshots = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + Me.DataColumn5 = New System.Data.DataColumn() + Me.gv_Screenshots = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colUse = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDisplaytext = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCategory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Categories = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Emu_Extras = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.pic_Game = New MKNetDXLib.ctl_MKDXPictureEdit() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Move_Up = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Move_Down = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.ddb_Add = New MKNetDXLib.ctl_MKDXDropDownButton() + Me.popmnu_Add = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.bbi_Add_from_Files = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_from_Clipboard = New DevExpress.XtraBars.BarButtonItem() + Me.barmng_Add = New MKNetDXLib.ctl_MKDXBarManager() + Me.BarDockControl1 = New DevExpress.XtraBars.BarDockControl() + Me.BarDockControl2 = New DevExpress.XtraBars.BarDockControl() + Me.BarDockControl3 = New DevExpress.XtraBars.BarDockControl() + Me.BarDockControl4 = New DevExpress.XtraBars.BarDockControl() + Me.bbi_GameGroup_Info = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_GameGroup_Filter = New DevExpress.XtraBars.BarButtonItem() + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_Main.SuspendLayout() + CType(Me.grd_Screenshots, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Screenshots, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Screenshots, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Screenshots, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Screenshots, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emu_Extras, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Add, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng_Add, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'splt_Main + ' + Me.splt_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.splt_Main.Location = New System.Drawing.Point(3, 3) + Me.splt_Main.Name = "splt_Main" + Me.splt_Main.Panel1.Controls.Add(Me.grd_Screenshots) + Me.splt_Main.Panel1.Text = "Panel1" + Me.splt_Main.Panel2.Controls.Add(Me.pic_Game) + Me.splt_Main.Panel2.Text = "Panel2" + Me.splt_Main.Size = New System.Drawing.Size(651, 337) + Me.splt_Main.SplitterPosition = 280 + Me.splt_Main.TabIndex = 0 + Me.splt_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_Screenshots + ' + Me.grd_Screenshots.DataSource = Me.BS_Screenshots + Me.grd_Screenshots.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Screenshots.Location = New System.Drawing.Point(0, 0) + Me.grd_Screenshots.MainView = Me.gv_Screenshots + Me.grd_Screenshots.Name = "grd_Screenshots" + Me.grd_Screenshots.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Categories}) + Me.grd_Screenshots.Size = New System.Drawing.Size(280, 337) + Me.grd_Screenshots.TabIndex = 0 + Me.grd_Screenshots.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Screenshots}) + ' + 'BS_Screenshots + ' + Me.BS_Screenshots.DataMember = "tbl_Screenshots" + Me.BS_Screenshots.DataSource = Me.DS_Screenshots + Me.BS_Screenshots.Sort = "Sort" + ' + 'DS_Screenshots + ' + Me.DS_Screenshots.DataSetName = "NewDataSet" + Me.DS_Screenshots.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Screenshots}) + ' + 'tbl_Screenshots + ' + Me.tbl_Screenshots.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3, Me.DataColumn4, Me.DataColumn5}) + Me.tbl_Screenshots.TableName = "tbl_Screenshots" + ' + 'DataColumn1 + ' + Me.DataColumn1.AllowDBNull = False + Me.DataColumn1.AutoIncrement = True + Me.DataColumn1.ColumnName = "id" + Me.DataColumn1.DataType = GetType(Integer) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Use" + Me.DataColumn2.DataType = GetType(Boolean) + Me.DataColumn2.DefaultValue = True + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Category" + Me.DataColumn3.DataType = GetType(Long) + Me.DataColumn3.DefaultValue = CType(4, Long) + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "Displaytext" + Me.DataColumn4.Expression = "'Image ' + id" + Me.DataColumn4.ReadOnly = True + ' + 'DataColumn5 + ' + Me.DataColumn5.AllowDBNull = False + Me.DataColumn5.AutoIncrement = True + Me.DataColumn5.AutoIncrementSeed = CType(1, Long) + Me.DataColumn5.ColumnName = "Sort" + Me.DataColumn5.DataType = GetType(Integer) + ' + 'gv_Screenshots + ' + Me.gv_Screenshots.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUse, Me.colDisplaytext, Me.colCategory}) + Me.gv_Screenshots.GridControl = Me.grd_Screenshots + Me.gv_Screenshots.Name = "gv_Screenshots" + Me.gv_Screenshots.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Screenshots.OptionsView.ShowColumnHeaders = False + Me.gv_Screenshots.OptionsView.ShowGroupPanel = False + Me.gv_Screenshots.OptionsView.ShowIndicator = False + ' + 'colUse + ' + Me.colUse.FieldName = "Use" + Me.colUse.Name = "colUse" + Me.colUse.Visible = True + Me.colUse.VisibleIndex = 0 + ' + 'colDisplaytext + ' + Me.colDisplaytext.FieldName = "Displaytext" + Me.colDisplaytext.Name = "colDisplaytext" + Me.colDisplaytext.OptionsColumn.AllowEdit = False + Me.colDisplaytext.OptionsColumn.ReadOnly = True + Me.colDisplaytext.Visible = True + Me.colDisplaytext.VisibleIndex = 1 + Me.colDisplaytext.Width = 710 + ' + 'colCategory + ' + Me.colCategory.ColumnEdit = Me.rpi_Categories + Me.colCategory.FieldName = "Category" + Me.colCategory.Name = "colCategory" + Me.colCategory.Visible = True + Me.colCategory.VisibleIndex = 2 + Me.colCategory.Width = 709 + ' + 'rpi_Categories + ' + Me.rpi_Categories.AutoHeight = False + Me.rpi_Categories.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Categories.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Emu_Extras", "id_Emu_Extras", 94, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 37, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Sort", "Sort", 30, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Description", "Description", 63, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Hide", "Hide", 31, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_Categories.DataSource = Me.BS_Emu_Extras + Me.rpi_Categories.DisplayMember = "Name" + Me.rpi_Categories.Name = "rpi_Categories" + Me.rpi_Categories.ShowHeader = False + Me.rpi_Categories.ValueMember = "id_Emu_Extras" + ' + 'BS_Emu_Extras + ' + Me.BS_Emu_Extras.DataMember = "tbl_Emu_Extras" + Me.BS_Emu_Extras.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'pic_Game + ' + Me.pic_Game.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic_Game.Dock = System.Windows.Forms.DockStyle.Fill + Me.pic_Game.Location = New System.Drawing.Point(0, 0) + Me.pic_Game.Name = "pic_Game" + Me.pic_Game.Properties.AllowFocused = False + Me.pic_Game.Properties.AppearanceFocused.BorderColor = System.Drawing.Color.Transparent + Me.pic_Game.Properties.AppearanceFocused.Options.UseBorderColor = True + Me.pic_Game.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pic_Game.Properties.ErrorImage = Nothing + Me.pic_Game.Properties.InitialImage = Nothing + Me.pic_Game.Properties.NullText = " " + Me.pic_Game.Properties.PictureInterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic + Me.pic_Game.Properties.ReadOnly = True + Me.pic_Game.Properties.ShowMenu = False + Me.pic_Game.Properties.ShowZoomSubMenu = DevExpress.Utils.DefaultBoolean.[True] + Me.pic_Game.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.pic_Game.Size = New System.Drawing.Size(366, 337) + ToolTipTitleItem1.Text = "Click to edit" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Click here to edit the image." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.pic_Game.SuperTip = SuperToolTip1 + Me.pic_Game.TabIndex = 0 + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn_OK.Location = New System.Drawing.Point(501, 343) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 3 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(579, 343) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 4 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_Move_Up + ' + Me.btn_Move_Up.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Move_Up.Enabled = False + Me.btn_Move_Up.Location = New System.Drawing.Point(3, 343) + Me.btn_Move_Up.Name = "btn_Move_Up" + Me.btn_Move_Up.Size = New System.Drawing.Size(75, 23) + Me.btn_Move_Up.TabIndex = 0 + Me.btn_Move_Up.Text = "Move Up" + ' + 'btn_Move_Down + ' + Me.btn_Move_Down.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Move_Down.Enabled = False + Me.btn_Move_Down.Location = New System.Drawing.Point(81, 343) + Me.btn_Move_Down.Name = "btn_Move_Down" + Me.btn_Move_Down.Size = New System.Drawing.Size(75, 23) + Me.btn_Move_Down.TabIndex = 1 + Me.btn_Move_Down.Text = "Move Down" + ' + 'ddb_Add + ' + Me.ddb_Add.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ddb_Add.DropDownArrowStyle = DevExpress.XtraEditors.DropDownArrowStyle.Show + Me.ddb_Add.DropDownControl = Me.popmnu_Add + Me.ddb_Add.Location = New System.Drawing.Point(159, 344) + Me.ddb_Add.Name = "ddb_Add" + Me.ddb_Add.Size = New System.Drawing.Size(86, 22) + Me.ddb_Add.TabIndex = 2 + Me.ddb_Add.Text = "Add Image" + ' + 'popmnu_Add + ' + Me.popmnu_Add.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_from_Files), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_from_Clipboard)}) + Me.popmnu_Add.Manager = Me.barmng_Add + Me.popmnu_Add.Name = "popmnu_Add" + ' + 'bbi_Add_from_Files + ' + Me.bbi_Add_from_Files.Caption = "from File/s" + Me.bbi_Add_from_Files.Id = 2 + Me.bbi_Add_from_Files.ImageUri.Uri = "Open" + Me.bbi_Add_from_Files.Name = "bbi_Add_from_Files" + ' + 'bbi_Add_from_Clipboard + ' + Me.bbi_Add_from_Clipboard.Caption = "from Clipboard" + Me.bbi_Add_from_Clipboard.Id = 3 + Me.bbi_Add_from_Clipboard.ImageUri.Uri = "Paste" + Me.bbi_Add_from_Clipboard.Name = "bbi_Add_from_Clipboard" + ' + 'barmng_Add + ' + Me.barmng_Add.DockControls.Add(Me.BarDockControl1) + Me.barmng_Add.DockControls.Add(Me.BarDockControl2) + Me.barmng_Add.DockControls.Add(Me.BarDockControl3) + Me.barmng_Add.DockControls.Add(Me.BarDockControl4) + Me.barmng_Add.Form = Me + Me.barmng_Add.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_GameGroup_Info, Me.bbi_GameGroup_Filter, Me.bbi_Add_from_Files, Me.bbi_Add_from_Clipboard}) + Me.barmng_Add.MaxItemId = 4 + ' + 'BarDockControl1 + ' + Me.BarDockControl1.CausesValidation = False + Me.BarDockControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.BarDockControl1.Location = New System.Drawing.Point(0, 0) + Me.BarDockControl1.Size = New System.Drawing.Size(657, 0) + ' + 'BarDockControl2 + ' + Me.BarDockControl2.CausesValidation = False + Me.BarDockControl2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BarDockControl2.Location = New System.Drawing.Point(0, 369) + Me.BarDockControl2.Size = New System.Drawing.Size(657, 0) + ' + 'BarDockControl3 + ' + Me.BarDockControl3.CausesValidation = False + Me.BarDockControl3.Dock = System.Windows.Forms.DockStyle.Left + Me.BarDockControl3.Location = New System.Drawing.Point(0, 0) + Me.BarDockControl3.Size = New System.Drawing.Size(0, 369) + ' + 'BarDockControl4 + ' + Me.BarDockControl4.CausesValidation = False + Me.BarDockControl4.Dock = System.Windows.Forms.DockStyle.Right + Me.BarDockControl4.Location = New System.Drawing.Point(657, 0) + Me.BarDockControl4.Size = New System.Drawing.Size(0, 369) + ' + 'bbi_GameGroup_Info + ' + Me.bbi_GameGroup_Info.AllowRightClickInMenu = False + Me.bbi_GameGroup_Info.Caption = "&Group Info" + Me.bbi_GameGroup_Info.Id = 0 + Me.bbi_GameGroup_Info.Name = "bbi_GameGroup_Info" + ' + 'bbi_GameGroup_Filter + ' + Me.bbi_GameGroup_Filter.AllowRightClickInMenu = False + Me.bbi_GameGroup_Filter.Caption = "&Filter by this group" + Me.bbi_GameGroup_Filter.Id = 1 + Me.bbi_GameGroup_Filter.Name = "bbi_GameGroup_Filter" + ' + 'frm_Emu_Game_Screenshotviewer + ' + Me.ClientSize = New System.Drawing.Size(657, 369) + Me.Controls.Add(Me.ddb_Add) + Me.Controls.Add(Me.btn_Move_Down) + Me.Controls.Add(Me.btn_Move_Up) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.splt_Main) + Me.Controls.Add(Me.BarDockControl3) + Me.Controls.Add(Me.BarDockControl4) + Me.Controls.Add(Me.BarDockControl2) + Me.Controls.Add(Me.BarDockControl1) + Me.Name = "frm_Emu_Game_Screenshotviewer" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_Main.ResumeLayout(False) + CType(Me.grd_Screenshots, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Screenshots, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Screenshots, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Screenshots, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Screenshots, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emu_Extras, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Add, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng_Add, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents splt_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents grd_Screenshots As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Screenshots As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pic_Game As MKNetDXLib.ctl_MKDXPictureEdit + Friend WithEvents BS_Screenshots As System.Windows.Forms.BindingSource + Friend WithEvents tbl_Screenshots As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents DataColumn4 As System.Data.DataColumn + Friend WithEvents colUse As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDisplaytext As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCategory As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents rpi_Categories As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents BS_Emu_Extras As System.Windows.Forms.BindingSource + Public WithEvents DS_Screenshots As System.Data.DataSet + Friend WithEvents DataColumn5 As DataColumn + Friend WithEvents btn_Move_Up As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Move_Down As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents ddb_Add As MKNetDXLib.ctl_MKDXDropDownButton + Private WithEvents barmng_Add As MKNetDXLib.ctl_MKDXBarManager + Private WithEvents BarDockControl1 As DevExpress.XtraBars.BarDockControl + Private WithEvents BarDockControl2 As DevExpress.XtraBars.BarDockControl + Private WithEvents BarDockControl3 As DevExpress.XtraBars.BarDockControl + Private WithEvents BarDockControl4 As DevExpress.XtraBars.BarDockControl + Private WithEvents bbi_GameGroup_Info As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_GameGroup_Filter As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_from_Files As DevExpress.XtraBars.BarButtonItem + Private WithEvents popmnu_Add As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Add_from_Clipboard As DevExpress.XtraBars.BarButtonItem +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.resx b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.resx new file mode 100644 index 0000000..6805c18 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 154, 17 + + + 17, 17 + + + 379, 17 + + + 290, 17 + + + 632, 17 + + + 510, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.vb new file mode 100644 index 0000000..b2d8137 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Screenshotviewer.vb @@ -0,0 +1,226 @@ +Public Class frm_Emu_Game_Screenshotviewer + + Public _al_Screenshots As ArrayList + + Public Platform_Short As String + Public FileName As String + + ''' + ''' Constructor + ''' + ''' + ''' ArrayList of Bitmap Objects or cls_Extras_Results + Public Sub New(ByVal id_Emu_Games As Integer, ByVal al_Screenshots As ArrayList) + InitializeComponent() + + Dim dt As New DS_ML.src_ucr_Emulation_GamesDataTable + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Emu_Extras(tran, DS_ML.tbl_Emu_Extras) + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt, Nothing, Nothing, Nothing, id_Emu_Games) + End Using + + Dim row_Emu_Game As DataRow = dt.Rows(0) + + Dim Game As String = TC.NZ(row_Emu_Game("Game"), "") + + If al_Screenshots Is Nothing OrElse al_Screenshots.Count = 0 OrElse al_Screenshots.Item(0).GetType Is GetType(Bitmap) Then + _al_Screenshots = al_Screenshots + + For i = 0 To _al_Screenshots.Count - 1 + Dim row As DataRow = DS_Screenshots.Tables("tbl_Screenshots").NewRow + row("Sort") = row("id") + DS_Screenshots.Tables("tbl_Screenshots").Rows.Add(row) + Next + + Me.Text = "New Screenshots for " & Game + Else + 'ArrayList al_Screenshots contains cls_Extras_Result Objects + _al_Screenshots = New ArrayList + For Each old_extra As cls_Extras.cls_Extras_Result In al_Screenshots + Try + Dim img As Bitmap = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(old_extra._Path))) + + If img.PhysicalDimension.Width > 1 And img.PhysicalDimension.Height > 1 Then + _al_Screenshots.Add(img) + Dim row As DataRow = DS_Screenshots.Tables("tbl_Screenshots").NewRow + + row("Sort") = row("id") + + row("Category") = 4 + + Try + row("Category") = Me.DS_ML.tbl_Emu_Extras.Select("Name = " & TC.getSQLFormat(old_extra._ExtraType))(0)("id_Emu_Extras") + Catch ex As Exception + + End Try + + DS_Screenshots.Tables("tbl_Screenshots").Rows.Add(row) + End If + Catch ex As Exception + + End Try + Next + + Me.Text = "Extras for " & Game + End If + + Dim FileNameX As String = "" + + If TC.NZ(row_Emu_Game("InnerFile"), "") <> "" Then + FileNameX = row_Emu_Game("InnerFile") + Else + FileNameX = TC.NZ(row_Emu_Game("File"), "") + End If + + Platform_Short = TC.NZ(row_Emu_Game("Platform_Short"), "") + + Select Case TC.NZ(row_Emu_Game("id_Moby_Platforms"), 0) + Case cls_Globals.enm_Moby_Platforms.win + 'Windows Games + FileName = cls_Extras.GetExtraFilename(Game, FileNameX) + Case Else + 'Standard Emulation Games + FileName = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(FileNameX) + End Select + + Set_Buttons_Enabled() + End Sub + + Private Sub Set_Buttons_Enabled() + If BS_Screenshots.Current IsNot Nothing Then + Dim iSortMin As Integer = Integer.MaxValue + Dim iSortMax As Integer = 0 + + For Each row As DataRow In Me.DS_Screenshots.Tables("tbl_Screenshots").Rows + If iSortMin > TC.NZ(row("Sort"), Integer.MaxValue) Then iSortMin = row("Sort") + If iSortMax < TC.NZ(row("Sort"), 0) Then iSortMax = row("Sort") + Next + + If BS_Screenshots.Current("Sort") <> iSortMin Then btn_Move_Up.Enabled = True Else btn_Move_Up.Enabled = False + If BS_Screenshots.Current("Sort") <> iSortMax Then btn_Move_Down.Enabled = True Else btn_Move_Down.Enabled = False + Else + btn_Move_Up.Enabled = False + btn_Move_Down.Enabled = False + End If + End Sub + + Private Sub BS_Screenshots_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Screenshots.CurrentChanged + If BS_Screenshots.Current IsNot Nothing Then + Me.pic_Game.Image = _al_Screenshots.Item(BS_Screenshots.Current("id")) + Else + Me.pic_Game.Image = Nothing + End If + + Set_Buttons_Enabled() + End Sub + + Private Sub pic_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_Game.Click + Using frm As New frm_Screenshot_Edit(_al_Screenshots.Item(BS_Screenshots.Current("id"))) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + _al_Screenshots.Item(BS_Screenshots.Current("id")) = frm.CropImage + Me.pic_Game.Image = frm.CropImage + End If + End Using + End Sub + + Private Sub Handle_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grd_Screenshots.KeyDown, pic_Game.KeyDown + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End If + End Sub + + Private Sub btn_Move_Up_Click(sender As Object, e As EventArgs) Handles btn_Move_Up.Click + If BS_Screenshots.Current Is Nothing Then Return + + For Each row As DataRow In Me.DS_Screenshots.Tables("tbl_Screenshots").Rows + If TC.NZ(row("Sort"), -9999) = (BS_Screenshots.Current("Sort") - 1) Then + row("Sort") = BS_Screenshots.Current("Sort") + BS_Screenshots.Current("Sort") -= 1 + Exit For + End If + Next + + Set_Buttons_Enabled() + + 'Workaround for Grid Update on Datasource change + grd_Screenshots.Focus() + btn_Move_Up.Focus() + End Sub + + Private Sub btn_Move_Down_Click(sender As Object, e As EventArgs) Handles btn_Move_Down.Click + If BS_Screenshots.Current Is Nothing Then Return + + For Each row As DataRow In Me.DS_Screenshots.Tables("tbl_Screenshots").Rows + If TC.NZ(row("Sort"), -9999) = (BS_Screenshots.Current("Sort") + 1) Then + row("Sort") = BS_Screenshots.Current("Sort") + BS_Screenshots.Current("Sort") += 1 + Exit For + End If + Next + + Set_Buttons_Enabled() + + 'Workaround for Grid Update on Datasource change + grd_Screenshots.Focus() + btn_Move_Down.Focus() + End Sub + + Public Sub AddImage(ByVal img As Bitmap) + If img.PhysicalDimension.Width > 1 And img.PhysicalDimension.Height > 1 Then + Dim row As DataRow = DS_Screenshots.Tables("tbl_Screenshots").NewRow + row("Sort") = row("id") + DS_Screenshots.Tables("tbl_Screenshots").Rows.Add(row) + _al_Screenshots.Add(img) + End If + End Sub + + Public Sub AddImages() + Dim sFiles() As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Add Extras", "All image files (*.jpg;*.png)|*.jpg;*.png", MultiSelect:=True, ParentForm:=Me) + If sFiles IsNot Nothing AndAlso sFiles.Length > 0 Then + For Each sFile As String In sFiles + Try + Dim img As Bitmap = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(sFile))) + AddImage(img) + Catch ex As Exception + + End Try + Next + End If + End Sub + + Private Sub bbi_Add_from_Files_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Add_from_Files.ItemClick + AddImages() + End Sub + + Private Sub bbi_Add_from_Clipboard_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Add_from_Clipboard.ItemClick + If Clipboard.ContainsImage Then + Dim img As Bitmap = Clipboard.GetImage + AddImage(img) + End If + + End Sub + + Private Sub popmnu_Add_BeforePopup(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles popmnu_Add.BeforePopup + If Clipboard.ContainsImage Then + bbi_Add_from_Clipboard.Enabled = True + Else + bbi_Add_from_Clipboard.Enabled = False + End If + + End Sub + + Private Sub gv_Screenshots_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Screenshots.MouseMove + grd_Screenshots.ShowHandInColumns(gv_Screenshots, {"Use"}, e) + End Sub + + Private Sub gv_Screenshots_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gv_Screenshots.FocusedRowChanged + Dim gv As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevExpress.XtraGrid.Views.Grid.GridView) + + If TC.NZ(gv.GetIncrementalText(), "") <> "" Then + gv.ClearSelection() + gv.SelectRow(gv.FocusedRowHandle) + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.Designer.vb b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.Designer.vb new file mode 100644 index 0000000..2101589 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.Designer.vb @@ -0,0 +1,289 @@ + _ +Partial Class frm_Emu_ImageSettings + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lbl_Slideshow = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Slideshow = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Slideshow_Delay = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_Slideshow_Delay = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.grd_ImageOrdering = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_ImageOrdering = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_ImageOrdering = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colid_Emu_Extras = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSort = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDescription = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHide = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.Ctl_MKDXSimpleButton2 = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.gb_Image_Order = New MKNetDXLib.ctl_MKDXGroupBox() + Me.btn_Down = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Up = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.chb_Slideshow.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Slideshow_Delay.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_ImageOrdering, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_ImageOrdering, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_ImageOrdering, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Image_Order, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Image_Order.SuspendLayout() + Me.SuspendLayout() + ' + 'lbl_Slideshow + ' + Me.lbl_Slideshow.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Slideshow.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Slideshow.Location = New System.Drawing.Point(3, 3) + Me.lbl_Slideshow.MKBoundControl1 = Nothing + Me.lbl_Slideshow.MKBoundControl2 = Nothing + Me.lbl_Slideshow.MKBoundControl3 = Nothing + Me.lbl_Slideshow.MKBoundControl4 = Nothing + Me.lbl_Slideshow.MKBoundControl5 = Nothing + Me.lbl_Slideshow.Name = "lbl_Slideshow" + Me.lbl_Slideshow.Size = New System.Drawing.Size(84, 20) + Me.lbl_Slideshow.TabIndex = 0 + Me.lbl_Slideshow.Text = "Slideshow:" + ' + 'chb_Slideshow + ' + Me.chb_Slideshow.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Slideshow.Location = New System.Drawing.Point(90, 4) + Me.chb_Slideshow.MKBoundLabel = Nothing + Me.chb_Slideshow.MKEditValue_Compare = Nothing + Me.chb_Slideshow.Name = "chb_Slideshow" + Me.chb_Slideshow.Properties.Caption = "" + Me.chb_Slideshow.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Slideshow.Size = New System.Drawing.Size(20, 19) + Me.chb_Slideshow.TabIndex = 0 + ' + 'lbl_Slideshow_Delay + ' + Me.lbl_Slideshow_Delay.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Slideshow_Delay.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Slideshow_Delay.Location = New System.Drawing.Point(113, 3) + Me.lbl_Slideshow_Delay.MKBoundControl1 = Nothing + Me.lbl_Slideshow_Delay.MKBoundControl2 = Nothing + Me.lbl_Slideshow_Delay.MKBoundControl3 = Nothing + Me.lbl_Slideshow_Delay.MKBoundControl4 = Nothing + Me.lbl_Slideshow_Delay.MKBoundControl5 = Nothing + Me.lbl_Slideshow_Delay.Name = "lbl_Slideshow_Delay" + Me.lbl_Slideshow_Delay.Size = New System.Drawing.Size(61, 20) + Me.lbl_Slideshow_Delay.TabIndex = 0 + Me.lbl_Slideshow_Delay.Text = "Delay:" + ' + 'spn_Slideshow_Delay + ' + Me.spn_Slideshow_Delay.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Slideshow_Delay.Location = New System.Drawing.Point(177, 3) + Me.spn_Slideshow_Delay.MKBoundLabel = Nothing + Me.spn_Slideshow_Delay.MKEditValue_Compare = Nothing + Me.spn_Slideshow_Delay.Name = "spn_Slideshow_Delay" + Me.spn_Slideshow_Delay.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Slideshow_Delay.Properties.MaxValue = New Decimal(New Integer() {9999, 0, 0, 0}) + Me.spn_Slideshow_Delay.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Slideshow_Delay.Size = New System.Drawing.Size(75, 20) + Me.spn_Slideshow_Delay.TabIndex = 1 + ' + 'grd_ImageOrdering + ' + Me.grd_ImageOrdering.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_ImageOrdering.DataSource = Me.BS_ImageOrdering + Me.grd_ImageOrdering.Location = New System.Drawing.Point(4, 23) + Me.grd_ImageOrdering.MainView = Me.gv_ImageOrdering + Me.grd_ImageOrdering.Name = "grd_ImageOrdering" + Me.grd_ImageOrdering.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckEdit1}) + Me.grd_ImageOrdering.Size = New System.Drawing.Size(370, 206) + Me.grd_ImageOrdering.TabIndex = 0 + Me.grd_ImageOrdering.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_ImageOrdering}) + ' + 'BS_ImageOrdering + ' + Me.BS_ImageOrdering.DataMember = "tbl_Emu_Extras" + Me.BS_ImageOrdering.DataSource = Me.DS_ML + Me.BS_ImageOrdering.Sort = "Sort ASC" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_ImageOrdering + ' + Me.gv_ImageOrdering.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colid_Emu_Extras, Me.colName, Me.colSort, Me.colDescription, Me.colHide}) + Me.gv_ImageOrdering.GridControl = Me.grd_ImageOrdering + Me.gv_ImageOrdering.Name = "gv_ImageOrdering" + Me.gv_ImageOrdering.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_ImageOrdering.OptionsView.ShowGroupPanel = False + ' + 'colid_Emu_Extras + ' + Me.colid_Emu_Extras.FieldName = "id_Emu_Extras" + Me.colid_Emu_Extras.Name = "colid_Emu_Extras" + ' + 'colName + ' + Me.colName.Caption = "Directory" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + Me.colName.Width = 134 + ' + 'colSort + ' + Me.colSort.FieldName = "Sort" + Me.colSort.Name = "colSort" + ' + 'colDescription + ' + Me.colDescription.FieldName = "Description" + Me.colDescription.Name = "colDescription" + Me.colDescription.OptionsColumn.AllowEdit = False + Me.colDescription.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colDescription.OptionsColumn.ReadOnly = True + Me.colDescription.Visible = True + Me.colDescription.VisibleIndex = 1 + Me.colDescription.Width = 162 + ' + 'colHide + ' + Me.colHide.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colHide.FieldName = "Hide" + Me.colHide.MaxWidth = 40 + Me.colHide.MinWidth = 40 + Me.colHide.Name = "colHide" + Me.colHide.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colHide.Visible = True + Me.colHide.VisibleIndex = 2 + Me.colHide.Width = 40 + ' + 'RepositoryItemCheckEdit1 + ' + Me.RepositoryItemCheckEdit1.AutoHeight = False + Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" + Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(228, 286) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 3 + Me.btn_OK.Text = "&OK" + ' + 'Ctl_MKDXSimpleButton2 + ' + Me.Ctl_MKDXSimpleButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Ctl_MKDXSimpleButton2.Location = New System.Drawing.Point(306, 286) + Me.Ctl_MKDXSimpleButton2.Name = "Ctl_MKDXSimpleButton2" + Me.Ctl_MKDXSimpleButton2.Size = New System.Drawing.Size(75, 23) + Me.Ctl_MKDXSimpleButton2.TabIndex = 4 + Me.Ctl_MKDXSimpleButton2.Text = "&Cancel" + ' + 'gb_Image_Order + ' + Me.gb_Image_Order.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.gb_Image_Order.Controls.Add(Me.grd_ImageOrdering) + Me.gb_Image_Order.Controls.Add(Me.btn_Down) + Me.gb_Image_Order.Controls.Add(Me.btn_Up) + Me.gb_Image_Order.Location = New System.Drawing.Point(3, 26) + Me.gb_Image_Order.Name = "gb_Image_Order" + Me.gb_Image_Order.Size = New System.Drawing.Size(378, 257) + Me.gb_Image_Order.TabIndex = 2 + Me.gb_Image_Order.Text = "Image Order and Visibility" + ' + 'btn_Down + ' + Me.btn_Down.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Down.Location = New System.Drawing.Point(80, 232) + Me.btn_Down.Name = "btn_Down" + Me.btn_Down.Size = New System.Drawing.Size(75, 23) + Me.btn_Down.TabIndex = 2 + Me.btn_Down.Text = "Move &Down" + ' + 'btn_Up + ' + Me.btn_Up.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Up.Location = New System.Drawing.Point(2, 232) + Me.btn_Up.Name = "btn_Up" + Me.btn_Up.Size = New System.Drawing.Size(75, 23) + Me.btn_Up.TabIndex = 1 + Me.btn_Up.Text = "Move &Up" + ' + 'frm_Emu_ImageSettings + ' + Me.ClientSize = New System.Drawing.Size(384, 312) + Me.Controls.Add(Me.gb_Image_Order) + Me.Controls.Add(Me.Ctl_MKDXSimpleButton2) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.spn_Slideshow_Delay) + Me.Controls.Add(Me.chb_Slideshow) + Me.Controls.Add(Me.lbl_Slideshow_Delay) + Me.Controls.Add(Me.lbl_Slideshow) + Me.MinimumSize = New System.Drawing.Size(400, 350) + Me.Name = "frm_Emu_ImageSettings" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Viewer Settings" + CType(Me.chb_Slideshow.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Slideshow_Delay.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_ImageOrdering, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_ImageOrdering, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_ImageOrdering, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Image_Order, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Image_Order.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Slideshow As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Slideshow As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Slideshow_Delay As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Slideshow_Delay As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents grd_ImageOrdering As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_ImageOrdering As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents Ctl_MKDXSimpleButton2 As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents gb_Image_Order As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents btn_Down As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Up As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_ImageOrdering As System.Windows.Forms.BindingSource + Friend WithEvents colid_Emu_Extras As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSort As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDescription As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHide As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.resx b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.resx new file mode 100644 index 0000000..afffb76 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + + 86 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.vb b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.vb new file mode 100644 index 0000000..95d7c48 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emu_ImageSettings.vb @@ -0,0 +1,111 @@ +Public Class frm_Emu_ImageSettings + + Private Sub chb_Slideshow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chb_Slideshow.CheckedChanged + Me.lbl_Slideshow_Delay.Enabled = Me.chb_Slideshow.Checked + Me.spn_Slideshow_Delay.Enabled = Me.chb_Slideshow.Checked + End Sub + + Private Sub spn_Slideshow_Delay_CustomDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.CustomDisplayTextEventArgs) Handles spn_Slideshow_Delay.CustomDisplayText + e.DisplayText = e.Value & " sec." + End Sub + + Public Sub New() + InitializeComponent() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction() + Me.DS_ML.Fill_tbl_Emu_Extras(tran, Me.DS_ML.tbl_Emu_Extras) + Me.chb_Slideshow.Checked = TC.NZ(cls_Settings.GetSetting("Emu_Slideshow", cls_Settings.enm_Settingmodes.Per_User, tran), "0") = "1" + Me.spn_Slideshow_Delay.Value = CInt(TC.NZ(cls_Settings.GetSetting("Emu_Slideshow_Delay", cls_Settings.enm_Settingmodes.Per_User, tran), "1")) + tran.Commit() + End Using + + chb_Slideshow_CheckedChanged(chb_Slideshow, Nothing) + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each row As DataRow In DS_ML.tbl_Emu_Extras.Rows + If row.RowState <> DataRowState.Unchanged AndAlso row.RowState <> DataRowState.Deleted Then + DS_ML.Upsert_tbl_Emu_Extras(tran, row("id_Emu_Extras"), row("Name"), row("Sort"), row("Description"), row("Hide")) + End If + Next + + cls_Settings.SetSetting("Emu_Slideshow", IIf(Me.chb_Slideshow.Checked, "1", "0"), cls_Settings.enm_Settingmodes.Per_User, tran) + cls_Settings.SetSetting("Emu_Slideshow_Delay", spn_Slideshow_Delay.Value, cls_Settings.enm_Settingmodes.Per_User, tran) + + tran.Commit() + End Using + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub Ctl_MKDXSimpleButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ctl_MKDXSimpleButton2.Click + Me.Close() + End Sub + + Private Function Get_Minimum_Sort() As Integer + Dim iMinimum As Integer = -1 + For Each row As DataRow In Me.DS_ML.tbl_Emu_Extras + If iMinimum = -1 OrElse row("Sort") < iMinimum Then + iMinimum = row("Sort") + End If + Next + + Return iMinimum + End Function + + Private Function Get_Maximum_Sort() As Integer + Dim iMaximum As Integer = -1 + For Each row As DataRow In Me.DS_ML.tbl_Emu_Extras + If iMaximum = -1 OrElse row("Sort") > iMaximum Then + iMaximum = row("Sort") + End If + Next + + Return iMaximum + End Function + + Private Sub btn_Up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Up.Click + Dim row_src As DataRow = BS_ImageOrdering.Current.row + Dim row_dest As DataRow = Nothing + For Each row As DataRow In DS_ML.tbl_Emu_Extras.Rows + If row("Sort") = row_src("Sort") - 1 Then + row_dest = row + Exit For + End If + Next + + If row_dest IsNot Nothing Then + Dim iSort As Integer = row_src("Sort") + row_src("Sort") = row_dest("Sort") + row_dest("Sort") = iSort + End If + End Sub + + Private Sub btn_Down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Down.Click + Dim row_src As DataRow = BS_ImageOrdering.Current.row + Dim row_dest As DataRow = Nothing + For Each row As DataRow In DS_ML.tbl_Emu_Extras.Rows + If row("Sort") = row_src("Sort") + 1 Then + row_dest = row + Exit For + End If + Next + + If row_dest IsNot Nothing Then + Dim iSort As Integer = row_src("Sort") + row_src("Sort") = row_dest("Sort") + row_dest("Sort") = iSort + End If + End Sub + + Private Sub BS_ImageOrdering_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BS_ImageOrdering.CurrentChanged + If BS_ImageOrdering.Current("Sort") = Get_Minimum_Sort() Then btn_Up.Enabled = False Else btn_Up.Enabled = True + If BS_ImageOrdering.Current("Sort") = Get_Maximum_Sort() Then btn_Down.Enabled = False Else btn_Down.Enabled = True + End Sub + + Private Sub gv_ImageOrdering_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_ImageOrdering.MouseMove + Me.grd_ImageOrdering.ShowHandInColumns(gv_ImageOrdering, {"Hide"}, e) + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb b/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb new file mode 100644 index 0000000..8f8fb53 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb @@ -0,0 +1,1365 @@ + _ +Partial Class frm_Emulators + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emulators)) + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.gb_Emulators = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_Emulators = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Emulators = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Emulators = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colDisplayname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pnl_Emulators_Buttons = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Delete_Emulator = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Duplicate_Emulator = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Add_Emulator = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Platforms = New MKNetDXLib.ctl_MKDXPanel() + Me.grd_Platforms = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Platforms = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colDisplay_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSupported = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Supported = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colDefault = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_DefaultEmulator = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.lbl_Platforms = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Save = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.Ctl_MKDXSplitter2 = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Settings = New MKNetDXLib.ctl_MKDXPanel() + Me.tcl_Settings = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_Settings = New DevExpress.XtraTab.XtraTabPage() + Me.cmb_Libretro_Core = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_Libretro_Core = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_Libretro_Core = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_J2K_Config = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_J2K = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_J2K = New System.Data.DataSet() + Me.tbl_Config = New System.Data.DataTable() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + Me.memo_AutItScript = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.lbl_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_ScreenshotDirectory = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_Run = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_EmulatorFileOpen = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_StartupParameter = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_ScreenshotDirectoryOpen = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_Executable = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Directory = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Directory = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Executable = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Name = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_StartupParameter = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Screenshot_Directory = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_AutoItScript = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_J2KPreset = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_MV_Settings = New DevExpress.XtraTab.XtraTabPage() + Me.grd_MV = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_MV = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_MV = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colVolume_Number = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_MV = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Volumes = New System.Windows.Forms.BindingSource(Me.components) + Me.colParameter = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pnl_MV_Buttons = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_MV_Delete = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_MV_Add = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.tpg_DOSBox_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.splt_DOSBox_Patches = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_DOSBox_Patches_Categories = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Patches_Categories = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DOSBox_Patches_Categories = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colCategoryname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.grd_DOSBox_Patches = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Patches = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DOSBox_Patches = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colActivated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_DOSBox_Patches = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colPatchname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.BS_rpi_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_Buttons = New MKNetDXLib.ctl_MKDXPanel() + Me.popmnu_Emulators = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.bbi_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Duplicate = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + CType(Me.gb_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Emulators.SuspendLayout() + CType(Me.grd_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Emulators_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Emulators_Buttons.SuspendLayout() + CType(Me.pnl_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Platforms.SuspendLayout() + CType(Me.grd_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Supported, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DefaultEmulator, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Settings.SuspendLayout() + CType(Me.tcl_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Settings.SuspendLayout() + Me.tpg_Settings.SuspendLayout() + CType(Me.cmb_Libretro_Core.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_Libretro_Core, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.memo_AutItScript.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_ScreenshotDirectory.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Directory.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_MV_Settings.SuspendLayout() + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Volumes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_MV_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_MV_Buttons.SuspendLayout() + Me.tpg_DOSBox_Patches.SuspendLayout() + CType(Me.splt_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_DOSBox_Patches.SuspendLayout() + CType(Me.grd_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_rpi_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.pnl_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Buttons.SuspendLayout() + CType(Me.popmnu_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gb_Emulators + ' + Me.gb_Emulators.Controls.Add(Me.grd_Emulators) + Me.gb_Emulators.Controls.Add(Me.pnl_Emulators_Buttons) + Me.gb_Emulators.Dock = System.Windows.Forms.DockStyle.Left + Me.gb_Emulators.Location = New System.Drawing.Point(0, 0) + Me.gb_Emulators.Name = "gb_Emulators" + Me.gb_Emulators.Size = New System.Drawing.Size(260, 585) + Me.gb_Emulators.TabIndex = 4 + Me.gb_Emulators.Text = "Emulators" + ' + 'grd_Emulators + ' + Me.grd_Emulators.DataSource = Me.BS_Emulators + Me.grd_Emulators.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Emulators.Location = New System.Drawing.Point(2, 20) + Me.grd_Emulators.MainView = Me.gv_Emulators + Me.grd_Emulators.Name = "grd_Emulators" + Me.grd_Emulators.Size = New System.Drawing.Size(256, 537) + Me.grd_Emulators.TabIndex = 0 + Me.grd_Emulators.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Emulators}) + ' + 'BS_Emulators + ' + Me.BS_Emulators.DataMember = "tbl_Emulators" + Me.BS_Emulators.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Emulators + ' + Me.gv_Emulators.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colDisplayname}) + Me.gv_Emulators.GridControl = Me.grd_Emulators + Me.gv_Emulators.Name = "gv_Emulators" + Me.gv_Emulators.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Emulators.OptionsSelection.InvertSelection = True + Me.gv_Emulators.OptionsView.ShowColumnHeaders = False + Me.gv_Emulators.OptionsView.ShowGroupPanel = False + Me.gv_Emulators.OptionsView.ShowIndicator = False + ' + 'colDisplayname + ' + Me.colDisplayname.FieldName = "Displayname" + Me.colDisplayname.Name = "colDisplayname" + Me.colDisplayname.OptionsColumn.AllowEdit = False + Me.colDisplayname.OptionsColumn.ReadOnly = True + Me.colDisplayname.Visible = True + Me.colDisplayname.VisibleIndex = 0 + ' + 'pnl_Emulators_Buttons + ' + Me.pnl_Emulators_Buttons.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Emulators_Buttons.Controls.Add(Me.btn_Delete_Emulator) + Me.pnl_Emulators_Buttons.Controls.Add(Me.btn_Duplicate_Emulator) + Me.pnl_Emulators_Buttons.Controls.Add(Me.btn_Add_Emulator) + Me.pnl_Emulators_Buttons.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Emulators_Buttons.Location = New System.Drawing.Point(2, 557) + Me.pnl_Emulators_Buttons.Name = "pnl_Emulators_Buttons" + Me.pnl_Emulators_Buttons.Size = New System.Drawing.Size(256, 26) + Me.pnl_Emulators_Buttons.TabIndex = 5 + ' + 'btn_Delete_Emulator + ' + Me.btn_Delete_Emulator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Delete_Emulator.Location = New System.Drawing.Point(179, 4) + Me.btn_Delete_Emulator.Name = "btn_Delete_Emulator" + Me.btn_Delete_Emulator.Size = New System.Drawing.Size(75, 20) + ToolTipTitleItem1.Text = "Delete Emulator" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + Me.btn_Delete_Emulator.SuperTip = SuperToolTip1 + Me.btn_Delete_Emulator.TabIndex = 2 + Me.btn_Delete_Emulator.Text = "&Delete" + ' + 'btn_Duplicate_Emulator + ' + Me.btn_Duplicate_Emulator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Duplicate_Emulator.Location = New System.Drawing.Point(101, 4) + Me.btn_Duplicate_Emulator.Name = "btn_Duplicate_Emulator" + Me.btn_Duplicate_Emulator.Size = New System.Drawing.Size(75, 20) + ToolTipTitleItem2.Text = "Duplicate Emulator" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + Me.btn_Duplicate_Emulator.SuperTip = SuperToolTip2 + Me.btn_Duplicate_Emulator.TabIndex = 1 + Me.btn_Duplicate_Emulator.Text = "D&uplicate" + ' + 'btn_Add_Emulator + ' + Me.btn_Add_Emulator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Add_Emulator.Location = New System.Drawing.Point(23, 4) + Me.btn_Add_Emulator.Name = "btn_Add_Emulator" + Me.btn_Add_Emulator.Size = New System.Drawing.Size(75, 20) + ToolTipTitleItem3.Text = "Add Emulator" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + Me.btn_Add_Emulator.SuperTip = SuperToolTip3 + Me.btn_Add_Emulator.TabIndex = 0 + Me.btn_Add_Emulator.Text = "&Add" + ' + 'Ctl_MKDXSplitter1 + ' + Me.Ctl_MKDXSplitter1.Location = New System.Drawing.Point(260, 0) + Me.Ctl_MKDXSplitter1.Name = "Ctl_MKDXSplitter1" + Me.Ctl_MKDXSplitter1.Size = New System.Drawing.Size(5, 585) + Me.Ctl_MKDXSplitter1.TabIndex = 5 + Me.Ctl_MKDXSplitter1.TabStop = False + ' + 'pnl_Platforms + ' + Me.pnl_Platforms.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Platforms.Controls.Add(Me.grd_Platforms) + Me.pnl_Platforms.Controls.Add(Me.lbl_Platforms) + Me.pnl_Platforms.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Platforms.Location = New System.Drawing.Point(2, 199) + Me.pnl_Platforms.Name = "pnl_Platforms" + Me.pnl_Platforms.Size = New System.Drawing.Size(411, 358) + Me.pnl_Platforms.TabIndex = 10 + ' + 'grd_Platforms + ' + Me.grd_Platforms.DataSource = Me.BS_Platforms + Me.grd_Platforms.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Platforms.Location = New System.Drawing.Point(0, 31) + Me.grd_Platforms.MainView = Me.gv_Platforms + Me.grd_Platforms.Name = "grd_Platforms" + Me.grd_Platforms.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Supported, Me.rpi_DefaultEmulator}) + Me.grd_Platforms.Size = New System.Drawing.Size(411, 327) + Me.grd_Platforms.TabIndex = 0 + Me.grd_Platforms.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Platforms}) + ' + 'BS_Platforms + ' + Me.BS_Platforms.DataMember = "src_frm_Emulators_Moby_Platforms" + Me.BS_Platforms.DataSource = Me.DS_ML + ' + 'gv_Platforms + ' + Me.gv_Platforms.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colDisplay_Name, Me.colSupported, Me.colDefault}) + Me.gv_Platforms.GridControl = Me.grd_Platforms + Me.gv_Platforms.Name = "gv_Platforms" + Me.gv_Platforms.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Platforms.OptionsView.ShowGroupPanel = False + Me.gv_Platforms.OptionsView.ShowIndicator = False + ' + 'colDisplay_Name + ' + Me.colDisplay_Name.Caption = "Platform" + Me.colDisplay_Name.FieldName = "Display_Name" + Me.colDisplay_Name.Name = "colDisplay_Name" + Me.colDisplay_Name.OptionsColumn.AllowEdit = False + Me.colDisplay_Name.OptionsColumn.ReadOnly = True + Me.colDisplay_Name.Visible = True + Me.colDisplay_Name.VisibleIndex = 0 + Me.colDisplay_Name.Width = 232 + ' + 'colSupported + ' + Me.colSupported.Caption = "Supported" + Me.colSupported.ColumnEdit = Me.rpi_Supported + Me.colSupported.FieldName = "Supported" + Me.colSupported.Name = "colSupported" + Me.colSupported.Visible = True + Me.colSupported.VisibleIndex = 1 + Me.colSupported.Width = 72 + ' + 'rpi_Supported + ' + Me.rpi_Supported.AutoHeight = False + Me.rpi_Supported.Name = "rpi_Supported" + Me.rpi_Supported.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'colDefault + ' + Me.colDefault.Caption = "Use as default Emulator" + Me.colDefault.ColumnEdit = Me.rpi_DefaultEmulator + Me.colDefault.FieldName = "DefaultEmulator" + Me.colDefault.Name = "colDefault" + Me.colDefault.Visible = True + Me.colDefault.VisibleIndex = 2 + Me.colDefault.Width = 131 + ' + 'rpi_DefaultEmulator + ' + Me.rpi_DefaultEmulator.AutoHeight = False + Me.rpi_DefaultEmulator.Name = "rpi_DefaultEmulator" + Me.rpi_DefaultEmulator.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'lbl_Platforms + ' + Me.lbl_Platforms.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!) + Me.lbl_Platforms.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.lbl_Platforms.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platforms.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Platforms.Location = New System.Drawing.Point(0, 0) + Me.lbl_Platforms.MKBoundControl1 = Nothing + Me.lbl_Platforms.MKBoundControl2 = Nothing + Me.lbl_Platforms.MKBoundControl3 = Nothing + Me.lbl_Platforms.MKBoundControl4 = Nothing + Me.lbl_Platforms.MKBoundControl5 = Nothing + Me.lbl_Platforms.Name = "lbl_Platforms" + Me.lbl_Platforms.Size = New System.Drawing.Size(411, 31) + Me.lbl_Platforms.TabIndex = 0 + Me.lbl_Platforms.Text = "Platforms supported by this Emulator:" + ' + 'btn_Save + ' + Me.btn_Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Save.Location = New System.Drawing.Point(254, 4) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(75, 20) + Me.btn_Save.TabIndex = 0 + Me.btn_Save.Text = "&Save" + ' + 'Ctl_MKDXSplitter2 + ' + Me.Ctl_MKDXSplitter2.Dock = System.Windows.Forms.DockStyle.Top + Me.Ctl_MKDXSplitter2.Location = New System.Drawing.Point(2, 194) + Me.Ctl_MKDXSplitter2.Name = "Ctl_MKDXSplitter2" + Me.Ctl_MKDXSplitter2.Size = New System.Drawing.Size(411, 5) + Me.Ctl_MKDXSplitter2.TabIndex = 11 + Me.Ctl_MKDXSplitter2.TabStop = False + ' + 'pnl_Settings + ' + Me.pnl_Settings.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Settings.Controls.Add(Me.tcl_Settings) + Me.pnl_Settings.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Settings.Location = New System.Drawing.Point(2, 2) + Me.pnl_Settings.MinimumSize = New System.Drawing.Size(411, 192) + Me.pnl_Settings.Name = "pnl_Settings" + Me.pnl_Settings.Size = New System.Drawing.Size(411, 192) + Me.pnl_Settings.TabIndex = 9 + ' + 'tcl_Settings + ' + Me.tcl_Settings.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_Settings.Location = New System.Drawing.Point(0, 0) + Me.tcl_Settings.Name = "tcl_Settings" + Me.tcl_Settings.SelectedTabPage = Me.tpg_Settings + Me.tcl_Settings.Size = New System.Drawing.Size(411, 192) + Me.tcl_Settings.TabIndex = 0 + Me.tcl_Settings.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Settings, Me.tpg_MV_Settings, Me.tpg_DOSBox_Patches}) + ' + 'tpg_Settings + ' + Me.tpg_Settings.Controls.Add(Me.cmb_Libretro_Core) + Me.tpg_Settings.Controls.Add(Me.lbl_Libretro_Core) + Me.tpg_Settings.Controls.Add(Me.cmb_J2K_Config) + Me.tpg_Settings.Controls.Add(Me.memo_AutItScript) + Me.tpg_Settings.Controls.Add(Me.lbl_Name) + Me.tpg_Settings.Controls.Add(Me.txb_ScreenshotDirectory) + Me.tpg_Settings.Controls.Add(Me.btn_Run) + Me.tpg_Settings.Controls.Add(Me.btn_EmulatorFileOpen) + Me.tpg_Settings.Controls.Add(Me.txb_StartupParameter) + Me.tpg_Settings.Controls.Add(Me.btn_ScreenshotDirectoryOpen) + Me.tpg_Settings.Controls.Add(Me.txb_Executable) + Me.tpg_Settings.Controls.Add(Me.lbl_Directory) + Me.tpg_Settings.Controls.Add(Me.txb_Directory) + Me.tpg_Settings.Controls.Add(Me.lbl_Executable) + Me.tpg_Settings.Controls.Add(Me.txb_Name) + Me.tpg_Settings.Controls.Add(Me.lbl_StartupParameter) + Me.tpg_Settings.Controls.Add(Me.lbl_Screenshot_Directory) + Me.tpg_Settings.Controls.Add(Me.lbl_AutoItScript) + Me.tpg_Settings.Controls.Add(Me.lbl_J2KPreset) + Me.tpg_Settings.Name = "tpg_Settings" + Me.tpg_Settings.Size = New System.Drawing.Size(405, 164) + Me.tpg_Settings.Text = "Settings" + ' + 'cmb_Libretro_Core + ' + Me.cmb_Libretro_Core.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Libretro_Core.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "Libretro_Core", True)) + Me.cmb_Libretro_Core.Location = New System.Drawing.Point(118, 141) + Me.cmb_Libretro_Core.MKBoundLabel = Nothing + Me.cmb_Libretro_Core.MKEditValue_Compare = Nothing + Me.cmb_Libretro_Core.Name = "cmb_Libretro_Core" + Me.cmb_Libretro_Core.Properties.AllowFocused = False + Me.cmb_Libretro_Core.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_Libretro_Core.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DLL", "DLL", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Libretro_Core.Properties.DataSource = Me.BTA_Libretro_Core + Me.cmb_Libretro_Core.Properties.DisplayMember = "Displayname" + Me.cmb_Libretro_Core.Properties.NullText = "" + Me.cmb_Libretro_Core.Properties.ShowFooter = False + Me.cmb_Libretro_Core.Properties.ShowHeader = False + Me.cmb_Libretro_Core.Properties.ValueMember = "DLL" + Me.cmb_Libretro_Core.Size = New System.Drawing.Size(284, 20) + ToolTipTitleItem4.Text = "Libretro Core" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem1) + Me.cmb_Libretro_Core.SuperTip = SuperToolTip4 + Me.cmb_Libretro_Core.TabIndex = 12 + Me.cmb_Libretro_Core.Visible = False + ' + 'BTA_Libretro_Core + ' + Me.BTA_Libretro_Core.AllowDelete = True + Me.BTA_Libretro_Core.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Libretro_Core.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Libretro_Core.Connection = Nothing + Me.BTA_Libretro_Core.DSStream = CType(resources.GetObject("BTA_Libretro_Core.DSStream"), System.IO.MemoryStream) + Me.BTA_Libretro_Core.FillString = "" + Me.BTA_Libretro_Core.Sort = "Displayname" + Me.BTA_Libretro_Core.Transaction = Nothing + Me.BTA_Libretro_Core.UpdateTablesStream = CType(resources.GetObject("BTA_Libretro_Core.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_Libretro_Core + ' + Me.lbl_Libretro_Core.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Libretro_Core.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Libretro_Core.Location = New System.Drawing.Point(3, 141) + Me.lbl_Libretro_Core.MKBoundControl1 = Nothing + Me.lbl_Libretro_Core.MKBoundControl2 = Nothing + Me.lbl_Libretro_Core.MKBoundControl3 = Nothing + Me.lbl_Libretro_Core.MKBoundControl4 = Nothing + Me.lbl_Libretro_Core.MKBoundControl5 = Nothing + Me.lbl_Libretro_Core.Name = "lbl_Libretro_Core" + Me.lbl_Libretro_Core.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem5.Text = "Libretro Core" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = resources.GetString("ToolTipItem2.Text") + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem2) + Me.lbl_Libretro_Core.SuperTip = SuperToolTip5 + Me.lbl_Libretro_Core.TabIndex = 11 + Me.lbl_Libretro_Core.Text = "Libretro Core:" + Me.lbl_Libretro_Core.Visible = False + ' + 'cmb_J2K_Config + ' + Me.cmb_J2K_Config.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_J2K_Config.Location = New System.Drawing.Point(118, 118) + Me.cmb_J2K_Config.MKBoundLabel = Nothing + Me.cmb_J2K_Config.MKEditValue_Compare = Nothing + Me.cmb_J2K_Config.Name = "cmb_J2K_Config" + Me.cmb_J2K_Config.Properties.AllowFocused = False + Me.cmb_J2K_Config.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_J2K_Config.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Config", "id_Config", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ConfigName", "Config Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_J2K_Config.Properties.DataSource = Me.BS_J2K + Me.cmb_J2K_Config.Properties.DisplayMember = "ConfigName" + Me.cmb_J2K_Config.Properties.NullText = "" + Me.cmb_J2K_Config.Properties.ShowFooter = False + Me.cmb_J2K_Config.Properties.ShowHeader = False + Me.cmb_J2K_Config.Properties.ValueMember = "id_Config" + Me.cmb_J2K_Config.Size = New System.Drawing.Size(284, 20) + ToolTipTitleItem6.Text = "J2K Preset" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem3) + Me.cmb_J2K_Config.SuperTip = SuperToolTip6 + Me.cmb_J2K_Config.TabIndex = 8 + ' + 'BS_J2K + ' + Me.BS_J2K.DataMember = "tbl_Config" + Me.BS_J2K.DataSource = Me.DS_J2K + ' + 'DS_J2K + ' + Me.DS_J2K.DataSetName = "DS" + Me.DS_J2K.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Config}) + ' + 'tbl_Config + ' + Me.tbl_Config.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn5, Me.DataColumn6}) + Me.tbl_Config.TableName = "tbl_Config" + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "id_Config" + Me.DataColumn5.DataType = GetType(Integer) + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "ConfigName" + ' + 'memo_AutItScript + ' + Me.memo_AutItScript.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.memo_AutItScript.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "AutoItScript", True)) + Me.memo_AutItScript.Location = New System.Drawing.Point(118, 164) + Me.memo_AutItScript.MKBoundLabel = Nothing + Me.memo_AutItScript.MKEditValue_Compare = Nothing + Me.memo_AutItScript.Name = "memo_AutItScript" + Me.memo_AutItScript.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.memo_AutItScript.Size = New System.Drawing.Size(284, 0) + Me.memo_AutItScript.TabIndex = 10 + Me.memo_AutItScript.Visible = False + ' + 'lbl_Name + ' + Me.lbl_Name.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Name.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Name.Location = New System.Drawing.Point(3, 3) + Me.lbl_Name.MKBoundControl1 = Nothing + Me.lbl_Name.MKBoundControl2 = Nothing + Me.lbl_Name.MKBoundControl3 = Nothing + Me.lbl_Name.MKBoundControl4 = Nothing + Me.lbl_Name.MKBoundControl5 = Nothing + Me.lbl_Name.Name = "lbl_Name" + Me.lbl_Name.Size = New System.Drawing.Size(112, 20) + Me.lbl_Name.TabIndex = 7 + Me.lbl_Name.Text = "Name:" + ' + 'txb_ScreenshotDirectory + ' + Me.txb_ScreenshotDirectory.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_ScreenshotDirectory.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "ScreenshotDirectory", True)) + Me.txb_ScreenshotDirectory.Location = New System.Drawing.Point(118, 72) + Me.txb_ScreenshotDirectory.MKBoundLabel = Nothing + Me.txb_ScreenshotDirectory.MKEditValue_Compare = Nothing + Me.txb_ScreenshotDirectory.Name = "txb_ScreenshotDirectory" + Me.txb_ScreenshotDirectory.Size = New System.Drawing.Size(249, 20) + ToolTipTitleItem7.Text = "Screenshot Directory" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & + "atic screenshot collection of your roms." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem4) + Me.txb_ScreenshotDirectory.SuperTip = SuperToolTip7 + Me.txb_ScreenshotDirectory.TabIndex = 5 + ' + 'btn_Run + ' + Me.btn_Run.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Run.Location = New System.Drawing.Point(370, 49) + Me.btn_Run.Name = "btn_Run" + Me.btn_Run.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem8.Text = "Run" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Run the emulator right here, right now." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem5) + Me.btn_Run.SuperTip = SuperToolTip8 + Me.btn_Run.TabIndex = 4 + Me.btn_Run.Text = "&Run" + ' + 'btn_EmulatorFileOpen + ' + Me.btn_EmulatorFileOpen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_EmulatorFileOpen.Location = New System.Drawing.Point(370, 26) + Me.btn_EmulatorFileOpen.Name = "btn_EmulatorFileOpen" + Me.btn_EmulatorFileOpen.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem9.Text = "Choose Emulator" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Choose emulator by selecting the executable." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem6) + Me.btn_EmulatorFileOpen.SuperTip = SuperToolTip9 + Me.btn_EmulatorFileOpen.TabIndex = 2 + Me.btn_EmulatorFileOpen.Text = "..." + ' + 'txb_StartupParameter + ' + Me.txb_StartupParameter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_StartupParameter.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "StartupParameter", True)) + Me.txb_StartupParameter.Location = New System.Drawing.Point(118, 95) + Me.txb_StartupParameter.MKBoundLabel = Nothing + Me.txb_StartupParameter.MKEditValue_Compare = Nothing + Me.txb_StartupParameter.Name = "txb_StartupParameter" + Me.txb_StartupParameter.Size = New System.Drawing.Size(284, 20) + ToolTipTitleItem10.Text = "Startup Parameter" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = resources.GetString("ToolTipItem7.Text") + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem7) + Me.txb_StartupParameter.SuperTip = SuperToolTip10 + Me.txb_StartupParameter.TabIndex = 7 + ' + 'btn_ScreenshotDirectoryOpen + ' + Me.btn_ScreenshotDirectoryOpen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_ScreenshotDirectoryOpen.Location = New System.Drawing.Point(370, 72) + Me.btn_ScreenshotDirectoryOpen.Name = "btn_ScreenshotDirectoryOpen" + Me.btn_ScreenshotDirectoryOpen.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem11.Text = "browse screenshot directory" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + Me.btn_ScreenshotDirectoryOpen.SuperTip = SuperToolTip11 + Me.btn_ScreenshotDirectoryOpen.TabIndex = 6 + Me.btn_ScreenshotDirectoryOpen.Text = "..." + ' + 'txb_Executable + ' + Me.txb_Executable.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Executable.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "Executable", True)) + Me.txb_Executable.Location = New System.Drawing.Point(118, 49) + Me.txb_Executable.MKBoundLabel = Nothing + Me.txb_Executable.MKEditValue_Compare = Nothing + Me.txb_Executable.Name = "txb_Executable" + Me.txb_Executable.Size = New System.Drawing.Size(249, 20) + Me.txb_Executable.TabIndex = 3 + ' + 'lbl_Directory + ' + Me.lbl_Directory.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Directory.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Directory.Location = New System.Drawing.Point(3, 26) + Me.lbl_Directory.MKBoundControl1 = Nothing + Me.lbl_Directory.MKBoundControl2 = Nothing + Me.lbl_Directory.MKBoundControl3 = Nothing + Me.lbl_Directory.MKBoundControl4 = Nothing + Me.lbl_Directory.MKBoundControl5 = Nothing + Me.lbl_Directory.Name = "lbl_Directory" + Me.lbl_Directory.Size = New System.Drawing.Size(112, 20) + Me.lbl_Directory.TabIndex = 7 + Me.lbl_Directory.Text = "Directory:" + ' + 'txb_Directory + ' + Me.txb_Directory.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Directory.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "InstallDirectory", True)) + Me.txb_Directory.Location = New System.Drawing.Point(118, 26) + Me.txb_Directory.MKBoundLabel = Nothing + Me.txb_Directory.MKEditValue_Compare = Nothing + Me.txb_Directory.Name = "txb_Directory" + Me.txb_Directory.Size = New System.Drawing.Size(249, 20) + Me.txb_Directory.TabIndex = 1 + ' + 'lbl_Executable + ' + Me.lbl_Executable.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Executable.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Executable.Location = New System.Drawing.Point(3, 49) + Me.lbl_Executable.MKBoundControl1 = Nothing + Me.lbl_Executable.MKBoundControl2 = Nothing + Me.lbl_Executable.MKBoundControl3 = Nothing + Me.lbl_Executable.MKBoundControl4 = Nothing + Me.lbl_Executable.MKBoundControl5 = Nothing + Me.lbl_Executable.Name = "lbl_Executable" + Me.lbl_Executable.Size = New System.Drawing.Size(112, 20) + Me.lbl_Executable.TabIndex = 7 + Me.lbl_Executable.Text = "Executable:" + ' + 'txb_Name + ' + Me.txb_Name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Name.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "Displayname", True)) + Me.txb_Name.Location = New System.Drawing.Point(118, 3) + Me.txb_Name.MKBoundLabel = Nothing + Me.txb_Name.MKEditValue_Compare = Nothing + Me.txb_Name.Name = "txb_Name" + Me.txb_Name.Size = New System.Drawing.Size(284, 20) + Me.txb_Name.TabIndex = 0 + ' + 'lbl_StartupParameter + ' + Me.lbl_StartupParameter.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_StartupParameter.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_StartupParameter.Location = New System.Drawing.Point(3, 95) + Me.lbl_StartupParameter.MKBoundControl1 = Nothing + Me.lbl_StartupParameter.MKBoundControl2 = Nothing + Me.lbl_StartupParameter.MKBoundControl3 = Nothing + Me.lbl_StartupParameter.MKBoundControl4 = Nothing + Me.lbl_StartupParameter.MKBoundControl5 = Nothing + Me.lbl_StartupParameter.Name = "lbl_StartupParameter" + Me.lbl_StartupParameter.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem12.Text = "Startup Parameter" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = resources.GetString("ToolTipItem8.Text") + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem8) + Me.lbl_StartupParameter.SuperTip = SuperToolTip12 + Me.lbl_StartupParameter.TabIndex = 7 + Me.lbl_StartupParameter.Text = "Startup Parameter:" + ' + 'lbl_Screenshot_Directory + ' + Me.lbl_Screenshot_Directory.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Screenshot_Directory.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Screenshot_Directory.Location = New System.Drawing.Point(3, 72) + Me.lbl_Screenshot_Directory.MKBoundControl1 = Nothing + Me.lbl_Screenshot_Directory.MKBoundControl2 = Nothing + Me.lbl_Screenshot_Directory.MKBoundControl3 = Nothing + Me.lbl_Screenshot_Directory.MKBoundControl4 = Nothing + Me.lbl_Screenshot_Directory.MKBoundControl5 = Nothing + Me.lbl_Screenshot_Directory.Name = "lbl_Screenshot_Directory" + Me.lbl_Screenshot_Directory.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem13.Text = "Screenshot Directory" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & + "atic screenshot collection of your roms." + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem9) + Me.lbl_Screenshot_Directory.SuperTip = SuperToolTip13 + Me.lbl_Screenshot_Directory.TabIndex = 7 + Me.lbl_Screenshot_Directory.Text = "Screenshot Directory:" + ' + 'lbl_AutoItScript + ' + Me.lbl_AutoItScript.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_AutoItScript.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_AutoItScript.Location = New System.Drawing.Point(2, 167) + Me.lbl_AutoItScript.MKBoundControl1 = Nothing + Me.lbl_AutoItScript.MKBoundControl2 = Nothing + Me.lbl_AutoItScript.MKBoundControl3 = Nothing + Me.lbl_AutoItScript.MKBoundControl4 = Nothing + Me.lbl_AutoItScript.MKBoundControl5 = Nothing + Me.lbl_AutoItScript.Name = "lbl_AutoItScript" + Me.lbl_AutoItScript.Size = New System.Drawing.Size(112, 20) + Me.lbl_AutoItScript.TabIndex = 7 + Me.lbl_AutoItScript.Text = "AutoIt Script:" + Me.lbl_AutoItScript.Visible = False + ' + 'lbl_J2KPreset + ' + Me.lbl_J2KPreset.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_J2KPreset.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_J2KPreset.Location = New System.Drawing.Point(3, 118) + Me.lbl_J2KPreset.MKBoundControl1 = Nothing + Me.lbl_J2KPreset.MKBoundControl2 = Nothing + Me.lbl_J2KPreset.MKBoundControl3 = Nothing + Me.lbl_J2KPreset.MKBoundControl4 = Nothing + Me.lbl_J2KPreset.MKBoundControl5 = Nothing + Me.lbl_J2KPreset.Name = "lbl_J2KPreset" + Me.lbl_J2KPreset.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem14.Text = "J2K Preset" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = resources.GetString("ToolTipItem10.Text") + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem10) + Me.lbl_J2KPreset.SuperTip = SuperToolTip14 + Me.lbl_J2KPreset.TabIndex = 7 + Me.lbl_J2KPreset.Text = "J2K Preset:" + ' + 'tpg_MV_Settings + ' + Me.tpg_MV_Settings.Controls.Add(Me.grd_MV) + Me.tpg_MV_Settings.Controls.Add(Me.pnl_MV_Buttons) + Me.tpg_MV_Settings.Name = "tpg_MV_Settings" + Me.tpg_MV_Settings.Size = New System.Drawing.Size(405, 164) + Me.tpg_MV_Settings.Text = "Multiple Volumes" + ' + 'grd_MV + ' + Me.grd_MV.DataSource = Me.BS_MV + Me.grd_MV.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_MV.Location = New System.Drawing.Point(0, 0) + Me.grd_MV.MainView = Me.gv_MV + Me.grd_MV.Name = "grd_MV" + Me.grd_MV.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_MV}) + Me.grd_MV.Size = New System.Drawing.Size(405, 138) + Me.grd_MV.TabIndex = 0 + Me.grd_MV.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_MV}) + ' + 'BS_MV + ' + Me.BS_MV.DataMember = "tbl_Emulators_Multivolume_Parameters" + Me.BS_MV.DataSource = Me.DS_ML + ' + 'gv_MV + ' + Me.gv_MV.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colVolume_Number, Me.colParameter}) + Me.gv_MV.GridControl = Me.grd_MV + Me.gv_MV.Name = "gv_MV" + Me.gv_MV.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_MV.OptionsView.ShowGroupPanel = False + Me.gv_MV.OptionsView.ShowIndicator = False + ' + 'colVolume_Number + ' + Me.colVolume_Number.Caption = "Disc/Volume" + Me.colVolume_Number.ColumnEdit = Me.rpi_MV + Me.colVolume_Number.FieldName = "Volume_Number" + Me.colVolume_Number.Name = "colVolume_Number" + Me.colVolume_Number.Visible = True + Me.colVolume_Number.VisibleIndex = 0 + Me.colVolume_Number.Width = 104 + ' + 'rpi_MV + ' + Me.rpi_MV.AutoHeight = False + Me.rpi_MV.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_MV.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_MV.DataSource = Me.BS_Volumes + Me.rpi_MV.DisplayMember = "DisplayText" + Me.rpi_MV.Name = "rpi_MV" + Me.rpi_MV.ShowHeader = False + Me.rpi_MV.ValueMember = "id_Tag_Parser_Volumes" + ' + 'BS_Volumes + ' + Me.BS_Volumes.DataMember = "ttb_Tag_Parser_Volumes" + Me.BS_Volumes.DataSource = Me.DS_ML + ' + 'colParameter + ' + Me.colParameter.Caption = "Parameter" + Me.colParameter.FieldName = "Parameter" + Me.colParameter.Name = "colParameter" + Me.colParameter.Visible = True + Me.colParameter.VisibleIndex = 1 + Me.colParameter.Width = 323 + ' + 'pnl_MV_Buttons + ' + Me.pnl_MV_Buttons.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_MV_Buttons.Controls.Add(Me.btn_MV_Delete) + Me.pnl_MV_Buttons.Controls.Add(Me.btn_MV_Add) + Me.pnl_MV_Buttons.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_MV_Buttons.Location = New System.Drawing.Point(0, 138) + Me.pnl_MV_Buttons.Name = "pnl_MV_Buttons" + Me.pnl_MV_Buttons.Size = New System.Drawing.Size(405, 26) + Me.pnl_MV_Buttons.TabIndex = 8 + ' + 'btn_MV_Delete + ' + Me.btn_MV_Delete.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_MV_Delete.Location = New System.Drawing.Point(326, 3) + Me.btn_MV_Delete.Name = "btn_MV_Delete" + Me.btn_MV_Delete.Size = New System.Drawing.Size(75, 20) + ToolTipTitleItem15.Text = "Delete selected Volume from list" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + Me.btn_MV_Delete.SuperTip = SuperToolTip15 + Me.btn_MV_Delete.TabIndex = 1 + Me.btn_MV_Delete.Text = "&Delete" + ' + 'btn_MV_Add + ' + Me.btn_MV_Add.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_MV_Add.Location = New System.Drawing.Point(248, 3) + Me.btn_MV_Add.Name = "btn_MV_Add" + Me.btn_MV_Add.Size = New System.Drawing.Size(75, 20) + ToolTipTitleItem16.Text = "Add a Volume to the list" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + Me.btn_MV_Add.SuperTip = SuperToolTip16 + Me.btn_MV_Add.TabIndex = 0 + Me.btn_MV_Add.Text = "&Add" + ' + 'tpg_DOSBox_Patches + ' + Me.tpg_DOSBox_Patches.Controls.Add(Me.splt_DOSBox_Patches) + Me.tpg_DOSBox_Patches.Name = "tpg_DOSBox_Patches" + Me.tpg_DOSBox_Patches.Size = New System.Drawing.Size(405, 164) + ToolTipTitleItem17.Text = "DOSBox Patches" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Choose which patches the DOSBox instance supports" + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem11) + Me.tpg_DOSBox_Patches.SuperTip = SuperToolTip17 + Me.tpg_DOSBox_Patches.Text = "DOSBox Patches" + ' + 'splt_DOSBox_Patches + ' + Me.splt_DOSBox_Patches.Dock = System.Windows.Forms.DockStyle.Fill + Me.splt_DOSBox_Patches.Location = New System.Drawing.Point(0, 0) + Me.splt_DOSBox_Patches.Name = "splt_DOSBox_Patches" + Me.splt_DOSBox_Patches.Panel1.Controls.Add(Me.grd_DOSBox_Patches_Categories) + Me.splt_DOSBox_Patches.Panel1.Text = "Panel1" + Me.splt_DOSBox_Patches.Panel2.Controls.Add(Me.grd_DOSBox_Patches) + Me.splt_DOSBox_Patches.Panel2.Text = "Panel2" + Me.splt_DOSBox_Patches.Size = New System.Drawing.Size(405, 164) + Me.splt_DOSBox_Patches.SplitterPosition = 113 + Me.splt_DOSBox_Patches.TabIndex = 0 + Me.splt_DOSBox_Patches.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_DOSBox_Patches_Categories + ' + Me.grd_DOSBox_Patches_Categories.DataSource = Me.BS_DOSBox_Patches_Categories + Me.grd_DOSBox_Patches_Categories.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DOSBox_Patches_Categories.Location = New System.Drawing.Point(0, 0) + Me.grd_DOSBox_Patches_Categories.MainView = Me.gv_DOSBox_Patches_Categories + Me.grd_DOSBox_Patches_Categories.Name = "grd_DOSBox_Patches_Categories" + Me.grd_DOSBox_Patches_Categories.Size = New System.Drawing.Size(113, 164) + Me.grd_DOSBox_Patches_Categories.TabIndex = 0 + Me.grd_DOSBox_Patches_Categories.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Patches_Categories}) + ' + 'BS_DOSBox_Patches_Categories + ' + Me.BS_DOSBox_Patches_Categories.DataMember = "src_frm_Emulators_DOSBox_Patches_Categories" + Me.BS_DOSBox_Patches_Categories.DataSource = Me.DS_ML + ' + 'gv_DOSBox_Patches_Categories + ' + Me.gv_DOSBox_Patches_Categories.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colCategoryname}) + Me.gv_DOSBox_Patches_Categories.GridControl = Me.grd_DOSBox_Patches_Categories + Me.gv_DOSBox_Patches_Categories.Name = "gv_DOSBox_Patches_Categories" + Me.gv_DOSBox_Patches_Categories.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DOSBox_Patches_Categories.OptionsSelection.InvertSelection = True + Me.gv_DOSBox_Patches_Categories.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Patches_Categories.OptionsView.ShowIndicator = False + ' + 'colCategoryname + ' + Me.colCategoryname.Caption = "Category" + Me.colCategoryname.FieldName = "Categoryname" + Me.colCategoryname.Name = "colCategoryname" + Me.colCategoryname.OptionsColumn.AllowEdit = False + Me.colCategoryname.OptionsColumn.ReadOnly = True + Me.colCategoryname.Visible = True + Me.colCategoryname.VisibleIndex = 0 + ' + 'grd_DOSBox_Patches + ' + Me.grd_DOSBox_Patches.DataSource = Me.BS_DOSBox_Patches + Me.grd_DOSBox_Patches.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DOSBox_Patches.Location = New System.Drawing.Point(0, 0) + Me.grd_DOSBox_Patches.MainView = Me.gv_DOSBox_Patches + Me.grd_DOSBox_Patches.Name = "grd_DOSBox_Patches" + Me.grd_DOSBox_Patches.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_DOSBox_Patches}) + Me.grd_DOSBox_Patches.Size = New System.Drawing.Size(287, 164) + Me.grd_DOSBox_Patches.TabIndex = 0 + Me.grd_DOSBox_Patches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Patches}) + ' + 'BS_DOSBox_Patches + ' + Me.BS_DOSBox_Patches.DataMember = "src_frm_Emulators_DOSBox_Patches" + Me.BS_DOSBox_Patches.DataSource = Me.DS_ML + Me.BS_DOSBox_Patches.Filter = "id_DOSBox_Patches_Categories = 0" + ' + 'gv_DOSBox_Patches + ' + Me.gv_DOSBox_Patches.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colActivated, Me.colPatchname}) + Me.gv_DOSBox_Patches.GridControl = Me.grd_DOSBox_Patches + Me.gv_DOSBox_Patches.Name = "gv_DOSBox_Patches" + Me.gv_DOSBox_Patches.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DOSBox_Patches.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Patches.OptionsView.ShowIndicator = False + ' + 'colActivated + ' + Me.colActivated.Caption = " " + Me.colActivated.ColumnEdit = Me.rpi_DOSBox_Patches + Me.colActivated.FieldName = "Activated" + Me.colActivated.Name = "colActivated" + Me.colActivated.Visible = True + Me.colActivated.VisibleIndex = 0 + Me.colActivated.Width = 41 + ' + 'rpi_DOSBox_Patches + ' + Me.rpi_DOSBox_Patches.AutoHeight = False + Me.rpi_DOSBox_Patches.Name = "rpi_DOSBox_Patches" + Me.rpi_DOSBox_Patches.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'colPatchname + ' + Me.colPatchname.Caption = "Patch / Option" + Me.colPatchname.FieldName = "Patchname" + Me.colPatchname.Name = "colPatchname" + Me.colPatchname.OptionsColumn.AllowEdit = False + Me.colPatchname.OptionsColumn.ReadOnly = True + Me.colPatchname.Visible = True + Me.colPatchname.VisibleIndex = 1 + Me.colPatchname.Width = 1149 + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.Location = New System.Drawing.Point(332, 4) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 20) + Me.btn_Close.TabIndex = 1 + Me.btn_Close.Text = "&Close" + ' + 'BS_rpi_Platforms + ' + Me.BS_rpi_Platforms.DataSource = Me.DS_ML + Me.BS_rpi_Platforms.Position = 0 + ' + 'DS_MobyDB + ' + Me.DS_MobyDB.DataSetName = "DS_MobyDB" + Me.DS_MobyDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'pnl_Right + ' + Me.pnl_Right.Controls.Add(Me.pnl_Platforms) + Me.pnl_Right.Controls.Add(Me.pnl_Buttons) + Me.pnl_Right.Controls.Add(Me.Ctl_MKDXSplitter2) + Me.pnl_Right.Controls.Add(Me.pnl_Settings) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(265, 0) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(415, 585) + Me.pnl_Right.TabIndex = 11 + ' + 'pnl_Buttons + ' + Me.pnl_Buttons.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Buttons.Controls.Add(Me.btn_Save) + Me.pnl_Buttons.Controls.Add(Me.btn_Close) + Me.pnl_Buttons.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Buttons.Location = New System.Drawing.Point(2, 557) + Me.pnl_Buttons.Name = "pnl_Buttons" + Me.pnl_Buttons.Size = New System.Drawing.Size(411, 26) + Me.pnl_Buttons.TabIndex = 7 + ' + 'popmnu_Emulators + ' + Me.popmnu_Emulators.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Duplicate), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete)}) + Me.popmnu_Emulators.Manager = Me.barmng + Me.popmnu_Emulators.Name = "popmnu_Emulators" + ' + 'bbi_Add + ' + Me.bbi_Add.Caption = "&Add" + Me.bbi_Add.Id = 0 + Me.bbi_Add.ImageUri.Uri = "Add" + Me.bbi_Add.Name = "bbi_Add" + ' + 'bbi_Duplicate + ' + Me.bbi_Duplicate.Caption = "&Duplicate" + Me.bbi_Duplicate.Id = 1 + Me.bbi_Duplicate.ImageUri.Uri = "Copy" + Me.bbi_Duplicate.Name = "bbi_Duplicate" + ' + 'bbi_Delete + ' + Me.bbi_Delete.Caption = "De&lete" + Me.bbi_Delete.Id = 2 + Me.bbi_Delete.ImageUri.Uri = "Delete" + Me.bbi_Delete.Name = "bbi_Delete" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Add, Me.bbi_Duplicate, Me.bbi_Delete}) + Me.barmng.MaxItemId = 3 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(680, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 585) + Me.barDockControlBottom.Size = New System.Drawing.Size(680, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 585) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(680, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 585) + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2}) + Me.DataTable1.TableName = "Table1" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "DLL" + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Displayname" + ' + 'frm_Emulators + ' + Me.ClientSize = New System.Drawing.Size(680, 585) + Me.Controls.Add(Me.pnl_Right) + Me.Controls.Add(Me.Ctl_MKDXSplitter1) + Me.Controls.Add(Me.gb_Emulators) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Emulators" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Emulator Settings" + CType(Me.gb_Emulators, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Emulators.ResumeLayout(False) + CType(Me.grd_Emulators, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emulators, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Emulators, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Emulators_Buttons, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Emulators_Buttons.ResumeLayout(False) + CType(Me.pnl_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Platforms.ResumeLayout(False) + CType(Me.grd_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Supported, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DefaultEmulator, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Settings, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Settings.ResumeLayout(False) + CType(Me.tcl_Settings, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Settings.ResumeLayout(False) + Me.tpg_Settings.ResumeLayout(False) + CType(Me.cmb_Libretro_Core.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Libretro_Core, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.memo_AutItScript.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_ScreenshotDirectory.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Directory.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_MV_Settings.ResumeLayout(False) + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Volumes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_MV_Buttons, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_MV_Buttons.ResumeLayout(False) + Me.tpg_DOSBox_Patches.ResumeLayout(False) + CType(Me.splt_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_DOSBox_Patches.ResumeLayout(False) + CType(Me.grd_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Patches_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_rpi_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.pnl_Buttons, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Buttons.ResumeLayout(False) + CType(Me.popmnu_Emulators, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents gb_Emulators As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_Emulators As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Emulators As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pnl_Emulators_Buttons As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_Delete_Emulator As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Add_Emulator As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents Ctl_MKDXSplitter1 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Emulators As System.Windows.Forms.BindingSource + Friend WithEvents colDisplayname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_Platforms As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Platforms As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lbl_Platforms As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents colSupported As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDefault As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Supported As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents lbl_Screenshot_Directory As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_J2KPreset As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_AutoItScript As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_StartupParameter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Executable As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Directory As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Name As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_EmulatorFileOpen As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_ScreenshotDirectoryOpen As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents pnl_Platforms As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXSplitter2 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents pnl_Settings As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents memo_AutItScript As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents txb_ScreenshotDirectory As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_StartupParameter As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Executable As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Directory As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_Name As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_Save As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents BS_rpi_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents DS_MobyDB As Metropolis_Launcher.DS_MobyDB + Friend WithEvents colDisplay_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_DefaultEmulator As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents tcl_Settings As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_Settings As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_MV_Settings As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnl_MV_Buttons As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_MV_Delete As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_MV_Add As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents grd_MV As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_MV As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Buttons As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents BS_MV As System.Windows.Forms.BindingSource + Friend WithEvents colVolume_Number As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colParameter As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BS_Volumes As System.Windows.Forms.BindingSource + Friend WithEvents rpi_MV As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents tpg_DOSBox_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DS_J2K As System.Data.DataSet + Friend WithEvents tbl_Config As System.Data.DataTable + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents BS_J2K As System.Windows.Forms.BindingSource + Friend WithEvents cmb_J2K_Config As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents btn_Run As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents splt_DOSBox_Patches As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents grd_DOSBox_Patches_Categories As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BS_DOSBox_Patches_Categories As System.Windows.Forms.BindingSource + Friend WithEvents gv_DOSBox_Patches_Categories As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colCategoryname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_DOSBox_Patches As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_DOSBox_Patches As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BS_DOSBox_Patches As System.Windows.Forms.BindingSource + Friend WithEvents colActivated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_DOSBox_Patches As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colPatchname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Duplicate_Emulator As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents popmnu_Emulators As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Add As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Duplicate As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents cmb_Libretro_Core As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Libretro_Core As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_Libretro_Core As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As DataTable + Friend WithEvents DataColumn1 As DataColumn + Friend WithEvents DataColumn2 As DataColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emulators.resx b/Metropolis_Launcher/Forms/frm_Emulators.resx new file mode 100644 index 0000000..90f1623 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators.resx @@ -0,0 +1,250 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + + 230, 17 + + + 820, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAJwIAACcCAAA+BAAAAQEBAQoPAgAAAD4EAAACH4sIAAAAAAAEAK1UW2/TMBRud6ko + A1544NXyc5s07MaiZpNYJYToCloL2tvkJqedR2wXX3p540fwf4eduN1WdQIhHMl2zuX7PvvkpFKtVCp3 + drjVjRdbdur1F0oDCzpEkwb6BlJRwZODoOWeBjo3uTYSEg5GS5I30BczzGn6CRYD8R14Mjw+Jofp4VF0 + sn8ArXcnuw789QPMYuqD3rb2N34fXAITmvKxp6tfsbyf3gAje3bXoaPRB0nYdrX6ygP5OKe37oBqO3b6 + VWufzVmOpl4zjoIWRsBTkVnoBBs9akZH+Oz05fP2XMWqIEA0S3APZl4JRhaBqwT7TTy3+xutJ3EYzmaz + YLYfCDkO37ZaUXh10S1FLmOZyiyKJZLco6smo6kUSox0MxUstnHNMgpbFQg5HZADA64RJwweSykj44/K + WxKspYGV/auCcyOlze2KlOTg3QVwCW0pJznMB4sJeKu33wiaAmKUf05TI+0R7UUxMl++GT4UhmeQ4VXa + Jq0DMswhehjzNO29V8EPY4uy7tpE0Ol2MdIWJsEuUUtbx9XxNZFj0D0bqCYkBVeyxwcK/4aBqklOFu7l + PzK1w6fOWXg230/h8uruqxWuyrWs6yaEtdySv/gCT2u7tjV+VtuZ7aKxjMuFsH/5ZH1OCfGnnCVRcxq5 + C9pxbbrWvq5pa9cX5FZIu1DulveG5ln9+hKm1IW439IzO7b8L+rOj73fyei1TL0EAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + The emulator appears to be RetroArch. Select here the Libretro Core to be used for this emulator configuration. + +All cores in this list are found in the \cores subdirectory. If there are none, run the emulator and us it's Online Updater to download cores. + + + The emulator appears to be RetroArch. Select here the Libretro Core to be used for this emulator configuration. + +All cores in this list are found in the \cores subdirectory. If there are none, run the emulator and us it's Online Updater to download cores. + + + 17, 56 + + + 972, 17 + + + Define the startup parameters in this field. + +Available variables are: +%emudir% (directory of the emulator) +%emuexe% (executable of the emulator) +%emufullpath% (full path to the emulator incl. executable) +%romdir% (directory of the rom) +%romfile% (filename of the rom) +%romfullpath% (full path to the rom incl. filename) +%multivolume% (all the applicable parameters for multiple volumes, see "Multiple Volumes" tab) + + + Define the startup parameters in this field. + +In case of DOSBox you can define additional startup parameters here, though Metropolis Launcher already provides options which affect the startup of DOSBox. + +Available variables are: +%emudir% (directory of the emulator) +%emuexe% (executable of the emulator) +%emufullpath% (full path to the emulator incl. executable) +%romdir% (directory of the rom) +%romfile% (filename of the rom) +%romfullpath% (full path to the rom incl. filename) +%multivolume% (all the applicable parameters for multiple volumes, see "Multiple Volumes" tab) + + + If you want to use J2K as a keyboard to joystick mapper for this emulator, choose your preset here. J2K will be launched accordingly on startup of the emulator and will be set to the "Empty" J2K preset afterwards. + + + 613, 17 + + + 702, 17 + + + 106, 56 + + + 331, 56 + + + 352, 17 + + + 494, 17 + + + 493, 56 + + + 650, 56 + + + 72 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emulators.vb b/Metropolis_Launcher/Forms/frm_Emulators.vb new file mode 100644 index 0000000..7123a67 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators.vb @@ -0,0 +1,578 @@ +Imports System.ComponentModel + +Public Class frm_Emulators + Public Sub New() + InitializeComponent() + + barmng.SetPopupContextMenu(grd_Emulators, popmnu_Emulators) + + Cursor.Current = Cursors.WaitCursor + + frm_Tag_Parser_Edit.Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction() + Me.DS_MobyDB.Fill_tbl_Moby_Platforms(tran, Me.DS_MobyDB.tbl_Moby_Platforms, True) + Me.DS_ML.Fill_src_frm_Emulators(tran, Me.DS_ML.tbl_Emulators) + End Using + + 'Fill the J2K Config DS + cls_Settings.Fill_J2K_DS(Me.DS_J2K, TC.NZ(cls_Settings.GetSetting("Path_J2K"), "")) + + Cursor.Current = Cursors.Default + End Sub + + Private _J2KPreset_Original As Object + + Private Function isRetroArch() As Boolean + If BS_Emulators.Current Is Nothing Then Return False + Return txb_Executable.Text.ToLower.Contains("retroarch") + End Function + + Private Function isDOSBox() As Boolean + If BS_Emulators.Current Is Nothing Then Return False + Return BS_Emulators.Current("Executable").ToLower.Contains("dosbox") + End Function + + Private Function hasNewDOSBoxPatches() As Boolean + 'New DOSBox Patches and of course a newly added emulator contains at least one Patch row with Activated = NULL + For Each row As DataRow In DS_ML.src_frm_Emulators_DOSBox_Patches.Rows + If TC.IsNullNothingOrEmpty(row("Activated")) Then + Return True + End If + Next + + Return False + End Function + + Public Enum enm_DOSBox_Builds + Unknown = 0 + DAUM = 1 + MB = 2 + End Enum + + Private Sub DetectNewDOSBoxPatches() + Dim dosbox_build As enm_DOSBox_Builds = enm_DOSBox_Builds.Unknown + + Dim row As DataRow = BS_Emulators.Current.Row + Dim sFullPath As String = row("InstallDirectory") & "\" & row("Executable") + If Alphaleonis.Win32.Filesystem.File.Exists(sFullPath) Then + Try + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(sFullPath) + If sContent.Contains("SVN_MB") Then + dosbox_build = enm_DOSBox_Builds.MB + ElseIf sContent.Contains("SVN-Daum") Then + dosbox_build = enm_DOSBox_Builds.DAUM + End If + + For Each row_patch As DataRow In DS_ML.src_frm_Emulators_DOSBox_Patches.Rows + If TC.IsNullNothingOrEmpty(row_patch("Activated")) Then + Select Case dosbox_build + Case enm_DOSBox_Builds.DAUM + row_patch("Activated") = TC.NZ(row_patch("DAUM_Supported"), False) + Case enm_DOSBox_Builds.MB + row_patch("Activated") = TC.NZ(row_patch("MB_Supported"), False) + End Select + row_patch.AcceptChanges() + End If + Next + Catch ex As Exception + + End Try + End If + + End Sub + + Private Sub BS_Emulators_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Emulators.CurrentChanged + Cursor.Current = Cursors.WaitCursor + + Me.DS_ML.tbl_Emulators_Moby_Platforms.Clear() + + If BS_Emulators.Current Is Nothing Then + 'TODO: gb_Emulator_Settings.Enabled = False + btn_Duplicate_Emulator.Enabled = False + btn_Delete_Emulator.Enabled = False + cmb_J2K_Config.EditValue = DBNull.Value + Else + 'TODO: gb_Emulator_Settings.Enabled = True + btn_Duplicate_Emulator.Enabled = True + btn_Delete_Emulator.Enabled = True + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Me.DS_ML.Fill_src_frm_Emulators_Moby_Platforms(tran, Me.DS_ML.src_frm_Emulators_Moby_Platforms, BS_Emulators.Current("id_Emulators")) + Me.DS_ML.Fill_src_frm_Emulators_Multivolume_Parameters(tran, Me.DS_ML.tbl_Emulators_Multivolume_Parameters, BS_Emulators.Current("id_Emulators")) + + tran.Commit() + End Using + + If isDOSBox() Then + txb_StartupParameter.Visible = False + lbl_StartupParameter.Visible = False + tpg_DOSBox_Patches.PageVisible = True + tpg_MV_Settings.PageVisible = False + 'lbl_AutoItScript.Visible = False + 'memo_AutItScript.Visible = False + BS_Platforms.Filter = "id_Moby_Platforms IN (2, 4)" + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Emulators_DOSBox_Patches(tran, DS_ML.src_frm_Emulators_DOSBox_Patches, BS_Emulators.Current("id_Emulators")) + DS_ML.Fill_src_frm_Emulators_DOSBox_Patches_Categories(tran, DS_ML.src_frm_Emulators_DOSBox_Patches_Categories) + End Using + + 'TODO: DOSBox detection (external Function for existing DOSBoxes w/o entries in tbl_Emulators_DOSBox_Patches) + If hasNewDOSBoxPatches() Then + DetectNewDOSBoxPatches() + End If + Else + txb_StartupParameter.Visible = True + lbl_StartupParameter.Visible = True + tpg_DOSBox_Patches.PageVisible = False + tpg_MV_Settings.PageVisible = True + 'lbl_AutoItScript.Visible = True + 'memo_AutItScript.Visible = True + BS_Platforms.Filter = "" + DS_ML.src_frm_Emulators_DOSBox_Patches_Categories.Clear() + DS_ML.src_frm_Emulators_DOSBox_Patches.Clear() + End If + + 'J2K + If BS_Emulators.Current("J2KPreset") Is DBNull.Value Then + cmb_J2K_Config.EditValue = DBNull.Value + _J2KPreset_Original = DBNull.Value + Else + 'Set the Config + Dim j2k_config As String = BS_Emulators.Current("J2KPreset") + _J2KPreset_Original = j2k_config + + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", j2k_config) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + End If + End If + + Refill_LibretroCore() + + Cursor.Current = Cursors.Default + End Sub + + Private Function CheckSave(Optional ByRef row As DataRow = Nothing) As DialogResult + If DS_ML.src_frm_Emulators_Moby_Platforms.GetChanges IsNot Nothing _ + OrElse (row IsNot Nothing AndAlso row.RowState = DataRowState.Added) _ + OrElse (row IsNot Nothing AndAlso row.RowState = DataRowState.Modified) _ + OrElse (_J2KPreset_Original IsNot Nothing AndAlso _J2KPreset_Original IsNot DBNull.Value AndAlso Not Equals(_J2KPreset_Original, cmb_J2K_Config.Text)) _ + OrElse ((_J2KPreset_Original Is Nothing OrElse _J2KPreset_Original Is DBNull.Value) AndAlso (cmb_J2K_Config.EditValue IsNot Nothing AndAlso cmb_J2K_Config.EditValue IsNot DBNull.Value)) _ + OrElse DS_ML.src_frm_Emulators_DOSBox_Patches.GetChanges IsNot Nothing _ + OrElse DS_ML.src_frm_Emulators_Moby_Platforms.GetChanges IsNot Nothing _ + OrElse DS_ML.tbl_Emulators_Multivolume_Parameters.GetChanges IsNot Nothing Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Save the changes for the current emulator?", "Save changes?", MessageBoxButtons.YesNoCancel) + Return res + End If + + Return Windows.Forms.DialogResult.None + End Function + + Private Sub gv_Emulators_BeforeLeaveRow(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.RowAllowEventArgs) Handles gv_Emulators.BeforeLeaveRow + If gv_Emulators.GetRow(e.RowHandle) Is Nothing Then Return + Dim row As DS_ML.tbl_EmulatorsRow = gv_Emulators.GetRow(e.RowHandle).Row + Select Case CheckSave(row) + Case Windows.Forms.DialogResult.Yes + If Not Save() Then + e.Allow = False + End If + Case Windows.Forms.DialogResult.No + row.RejectChanges() + Case Windows.Forms.DialogResult.Cancel + e.Allow = False + End Select + End Sub + + Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub Handle_Add_Emulator(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add_Emulator.Click, bbi_Add.ItemClick + If BS_Emulators.Current IsNot Nothing Then + Select Case CheckSave(BS_Emulators.Current.Row) + Case Windows.Forms.DialogResult.Yes + If Not Save() Then + Return + End If + BS_Emulators.Current.Row.AcceptChanges() + Case Windows.Forms.DialogResult.No + BS_Emulators.Current.Row.RejectChanges() + Case Windows.Forms.DialogResult.Cancel + Return + End Select + End If + + Dim sFullPath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("New Emulator", "Executables (*.exe;*.bat;*.cmd;*.lnk)|*.exe;*.bat;*.cmd;*.lnk", ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFullPath) Then + Return + End If + + Dim row As DS_ML.tbl_EmulatorsRow = Me.DS_ML.tbl_Emulators.NewRow + row("InstallDirectory") = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFullPath) + row("Executable") = Alphaleonis.Win32.Filesystem.Path.GetFileName(sFullPath) + row("Displayname") = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(sFullPath) + + Me.DS_ML.tbl_Emulators.Rows.Add(row) + + BS_Emulators.Position = BS_Emulators.Find("id_Emulators", row("id_Emulators")) + End Sub + + Private Sub Handle_Delete_Emulator(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete_Emulator.Click, bbi_Delete.ItemClick + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to remove the emulator and its settings?", "Delete Emulator", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then + Dim id_Emulators = BS_Emulators.Current("id_Emulators") + Me.BS_Emulators.RemoveCurrent() + + Dim rows_Platforms() As DataRow = Me.DS_ML.tbl_Emulators_Moby_Platforms.Select("id_Emulators = " & id_Emulators) + For Each row_Platforms In rows_Platforms + Me.DS_ML.tbl_Emulators_Moby_Platforms.Rows.Remove(row_Platforms) + Next + + If id_Emulators > 0 Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emulators WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators)) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emulators_Moby_Platforms WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators)) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emulators_Multivolume_Parameters WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators)) + End If + End If + End Sub + + Private Function Save() As Boolean + If isRetroArch() AndAlso TC.IsNullNothingOrEmpty(cmb_Libretro_Core.EditValue) Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("The emulator appears to be RetroArch. Please consider to choose a Libretro Core. Do you still want to save?", "Missing Libretro Core", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + Return False + End If + End If + + If Me.DS_ML.tbl_Emulators_Multivolume_Parameters.Rows.Count > 0 AndAlso Not Me.txb_StartupParameter.Text.ToLower.Contains("%multivolume%") Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("There are startup parameters defined in the Multiple Volumes tab. These can only be used if you put %multivolume% in the Startup Parameter field in the Settings tab. Do you still want to save?", "Missing Libretro Core", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + Return False + End If + End If + + Cursor.Current = Cursors.WaitCursor + + 'Save Platform Settings for the current Emulator + Dim id_Emulators_Current As Integer = BS_Emulators.Current("id_Emulators") + Dim rowCurrent As DataRow = BS_Emulators.Current.Row + + If cmb_J2K_Config.EditValue IsNot DBNull.Value AndAlso cmb_J2K_Config.EditValue IsNot Nothing Then + rowCurrent("J2KPreset") = cmb_J2K_Config.Text + Else + rowCurrent("J2KPreset") = DBNull.Value + End If + + rowCurrent("Libretro_Core") = cmb_Libretro_Core.EditValue + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + If id_Emulators_Current < 0 Then + id_Emulators_Current = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Emulators(Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core) VALUES(" & TC.getSQLParameter(rowCurrent("Displayname"), rowCurrent("InstallDirectory"), rowCurrent("Executable"), rowCurrent("StartupParameter"), rowCurrent("AutoItScript"), rowCurrent("J2KPreset"), rowCurrent("ScreenshotDirectory"), rowCurrent("Libretro_Core")) & "); SELECT last_insert_rowid()", tran) + rowCurrent("id_Emulators") = id_Emulators_Current + Else + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emulators SET Displayname = " & TC.getSQLFormat(rowCurrent("Displayname")) & ", InstallDirectory = " & TC.getSQLFormat(rowCurrent("InstallDirectory")) & ", Executable = " & TC.getSQLFormat(rowCurrent("Executable")) & ", StartupParameter = " & TC.getSQLFormat(rowCurrent("StartupParameter")) & ", AutoItScript = " & TC.getSQLFormat(rowCurrent("AutoItScript")) & ", J2KPreset = " & TC.getSQLFormat(rowCurrent("J2KPreset")) & ", ScreenshotDirectory = " & TC.getSQLFormat(rowCurrent("ScreenshotDirectory")) & ", Libretro_Core = " & TC.getSQLFormat(rowCurrent("Libretro_Core")) & " WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current), tran) + End If + rowCurrent.AcceptChanges() + + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emulators_Moby_Platforms WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current), tran) + For Each row As DataRow In DS_ML.src_frm_Emulators_Moby_Platforms.Rows + If TC.NZ(row("Supported"), False) = True Then + If TC.NZ(row("DefaultEmulator"), False) = True Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emulators_Moby_Platforms SET DefaultEmulator = 0 WHERE id_Moby_Platforms = " & row("id_Moby_Platforms"), tran) + End If + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emulators_Moby_Platforms (id_Emulators, id_Moby_Platforms, DefaultEmulator) VALUES (" & TC.getSQLParameter(id_Emulators_Current, row("id_Moby_Platforms"), row("DefaultEmulator")) & ")", tran) + End If + row.AcceptChanges() + Next + DS_ML.src_frm_Emulators_Moby_Platforms.AcceptChanges() + + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emulators_Multivolume_Parameters WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current), tran) + For Each row As DataRow In DS_ML.tbl_Emulators_Multivolume_Parameters.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emulators_Multivolume_Parameters (id_Emulators, Volume_Number, Parameter) VALUES (" & TC.getSQLParameter(id_Emulators_Current, row("Volume_Number"), row("Parameter")) & ")", tran) + row.AcceptChanges() + End If + Next + DS_ML.tbl_Emulators_Multivolume_Parameters.AcceptChanges() + + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emulators_DOSBox_Patches WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current), tran) + For Each row As DataRow In DS_ML.src_frm_Emulators_DOSBox_Patches.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + Dim sSQL As String = "INSERT INTO tbl_Emulators_DOSBox_Patches (id_Emulators, id_DOSBox_Patches, Activated) VALUES (" + sSQL &= TC.getSQLFormat(id_Emulators_Current) + sSQL &= ", " & TC.getSQLFormat(row("id_DOSBox_Patches")) + sSQL &= ", " & TC.getSQLFormat(TC.NZ(row("Activated"), False)) + sSQL &= ")" + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + row.AcceptChanges() + End If + Next + DS_ML.src_frm_Emulators_DOSBox_Patches.AcceptChanges() + + tran.Commit() + Catch ex As Exception + tran.Rollback() + End Try + End Using + + Cursor.Current = Cursors.Default + + Return True + End Function + + Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click + Save() + End Sub + + Private Sub btn_EmulatorFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EmulatorFileOpen.Click + Dim sFullPath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open Emulator", "Executables (*.exe;*.bat;*.cmd;*.lnk)|*.exe;*.bat;*.cmd;*.lnk", InitialDirectory:=Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(txb_Directory.Text), ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFullPath) Then + Return + End If + + Dim row As DataRow = BS_Emulators.Current.Row + row("InstallDirectory") = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFullPath) + row("Executable") = Alphaleonis.Win32.Filesystem.Path.GetFileName(sFullPath) + + Refill_LibretroCore() + End Sub + + Private Sub Refill_LibretroCore() + Dim oLastCore As Object = cmb_Libretro_Core.EditValue + BTA_Libretro_Core.Table.Clear() + + If Not isRetroArch() Then + lbl_Libretro_Core.Visible = False + cmb_Libretro_Core.Visible = False + cmb_Libretro_Core.EditValue = Nothing + Return + End If + + Dim basedir As String = MKNetLib.cls_MKStringSupport.Clean_Right(txb_Directory.Text, "\") + Dim coredir As String = basedir & "\cores" + Dim infodir As String = basedir & "\info" + + lbl_Libretro_Core.Visible = True + cmb_Libretro_Core.Visible = True + + If Alphaleonis.Win32.Filesystem.Directory.Exists(coredir) Then + Dim files As String() = Alphaleonis.Win32.Filesystem.Directory.GetFiles(coredir, "*", IO.SearchOption.TopDirectoryOnly) + For Each file As String In files + If Alphaleonis.Win32.Filesystem.Path.GetExtension(file).ToLower = ".dll" Then + Dim row_file As DataRow = BTA_Libretro_Core.Table.NewRow + row_file("DLL") = Alphaleonis.Win32.Filesystem.Path.GetFileName(file) + row_file("Displayname") = Alphaleonis.Win32.Filesystem.Path.GetFileName(file) + + 'TODO: find Displayname in RetroArch DB if possible + Dim infofile As String = infodir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(file) & ".info" + If Alphaleonis.Win32.Filesystem.File.Exists(infofile) Then + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(infofile) + If Not TC.IsNullNothingOrEmpty(sContent) Then + For Each line As String In sContent.Split(vbLf) + If line.Contains("display_name") Then + If MKNetLib.cls_MKRegex.IsMatch(line, """(.*?)""") Then + row_file("Displayname") = MKNetLib.cls_MKRegex.GetMatches(line, """(.*?)""")(0).Groups(1).Captures(0).Value + End If + End If + Next + End If + End If + + BTA_Libretro_Core.Table.Rows.Add(row_file) + End If + Next + End If + + If BTA_Libretro_Core.Find("DLL", oLastCore) >= 0 Then + cmb_Libretro_Core.EditValue = oLastCore + BTA_Libretro_Core.SetBindingSourcePosition("DLL", oLastCore) + End If + End Sub + + Private Sub btn_ScreenshotDirectoryOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ScreenshotDirectoryOpen.Click + Dim sDir As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog("", True) + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sDir) Then + Return + End If + + BS_Emulators.Current.Row("ScreenshotDirectory") = sDir + End Sub + + Private Sub rpi_DefaultEmulator_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpi_DefaultEmulator.CheckedChanged + Dim row As DataRow = BS_Platforms.Current.Row + + Dim rv As DataRowView = gv_Platforms.GetRow(gv_Platforms.FocusedRowHandle) + + If sender.Checked = True Then + rv.Item("Supported") = True + gv_Platforms.RefreshData() + End If + End Sub + + Private Sub rpi_Supported_CheckedChanged(sender As Object, e As System.EventArgs) Handles rpi_Supported.CheckedChanged + Dim row As DataRow = BS_Platforms.Current.Row + + Dim rv As DataRowView = gv_Platforms.GetRow(gv_Platforms.FocusedRowHandle) + + If sender.Checked = False Then + rv.Item("DefaultEmulator") = False + gv_Platforms.RefreshData() + End If + End Sub + + Private Sub frm_Emulators_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing + If BS_Emulators.Current IsNot Nothing Then + Dim row As DS_ML.tbl_EmulatorsRow = BS_Emulators.Current.Row + + BS_Emulators.EndEdit() + + Select Case CheckSave() + Case Windows.Forms.DialogResult.Yes + If Not Save() Then + e.Cancel = True + End If + row.AcceptChanges() + Case Windows.Forms.DialogResult.No + row.RejectChanges() + Case Windows.Forms.DialogResult.Cancel + e.Cancel = True + End Select + End If + End Sub + + Private Sub btn_MV_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MV_Delete.Click + If BS_MV.Current IsNot Nothing Then + BS_MV.RemoveCurrent() + End If + End Sub + + Private Sub btn_MV_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MV_Add.Click + If BS_Emulators.Current Is Nothing Then Return + + Dim MaxVol As Int64 = 0L + For Each row As DataRow In Me.DS_ML.tbl_Emulators_Multivolume_Parameters.Rows + If TC.NZ(row("Volume_Number"), 0L) > MaxVol Then MaxVol = row("Volume_Number") + Next + + Dim newrow As DataRow = Me.DS_ML.tbl_Emulators_Multivolume_Parameters.NewRow + newrow("Volume_Number") = MaxVol + 1L + Me.DS_ML.tbl_Emulators_Multivolume_Parameters.Rows.Add(newrow) + End Sub + + Private Sub popmnu_Emulators_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Emulators.BeforePopup + If Not grd_Emulators.Allow_Popup Then + e.Cancel = True + Return + End If + + bbi_Add.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Delete.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Duplicate.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + If BS_Emulators.Current IsNot Nothing Then + bbi_Delete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Duplicate.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + End Sub + + Private Sub Handle_Duplicate_Emulator(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Duplicate_Emulator.Click, bbi_Duplicate.ItemClick + If BS_Emulators.Current Is Nothing Then Return + + Dim row As DS_ML.tbl_EmulatorsRow = BS_Emulators.Current.Row + + BS_Emulators.EndEdit() + + If DS_ML.src_frm_Emulators_Moby_Platforms.GetChanges IsNot Nothing OrElse row.RowState = DataRowState.Added OrElse row.RowState = DataRowState.Modified Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save your changes before duplicating an emulator setting.", "Duplicate Emulator", MessageBoxButtons.OK) + Return + End If + + Dim id_Emulators = BS_Emulators.Current("id_Emulators") + + If id_Emulators > 0 Then + Cursor.Current = Cursors.WaitCursor + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction() + Try + + Dim id_Emulators_New As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Emulators (Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core) SELECT Displayname || ' Copy', InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core FROM tbl_Emulators WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators) & "; SELECT last_insert_rowid()", tran), 0) + If id_Emulators_New > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emulators_Moby_Platforms (id_Emulators, id_Moby_Platforms, DefaultEmulator) SELECT " & TC.getSQLFormat(id_Emulators_New) & ", id_Moby_Platforms, NULL FROM tbl_Emulators_Moby_Platforms WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators), tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emulators_Multivolume_Parameters (id_Emulators, Volume_Number, Parameter) SELECT " & TC.getSQLFormat(id_Emulators_New) & ", Volume_Number, Parameter FROM tbl_Emulators_Multivolume_Parameters WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators), tran) + + frm_Tag_Parser_Edit.Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) + + Me.DS_ML.Fill_src_frm_Emulators(tran, Me.DS_ML.tbl_Emulators) + + Me.BS_Emulators.Position = Me.BS_Emulators.Find("id_Emulators", id_Emulators_New) + End If + + tran.Commit() + Catch ex As Exception + tran.Rollback() + DevExpress.XtraEditors.XtraMessageBox.Show("Error while duplicating emulator settings: " & ex.Message, "Duplicate Emulator", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + End Using + + Cursor.Current = Cursors.Default + End If + End Sub + + Private Sub cmb_J2K_Config_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_J2K_Config.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + cmb_J2K_Config.EditValue = DBNull.Value + End If + End Sub + + Private Sub btn_Run_Click(sender As System.Object, e As System.EventArgs) Handles btn_Run.Click + Dim fullpath As String = txb_Directory.Text & "\" & txb_Executable.Text + If Not Alphaleonis.Win32.Filesystem.File.Exists(fullpath) Then + DevExpress.XtraEditors.XtraMessageBox.Show("Error while launching the emulator, file '" & fullpath & "' not found!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Else + Try + Dim proc = New System.Diagnostics.Process + proc.StartInfo.FileName = fullpath + proc.StartInfo.WorkingDirectory = txb_Directory.Text + proc.StartInfo.UseShellExecute = True + proc.Start() + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Error while launching the emulator: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + End If + End Sub + + Private Sub BS_DOSBox_Patches_Categories_CurrentChanged(sender As Object, e As System.EventArgs) Handles BS_DOSBox_Patches_Categories.CurrentChanged + If BS_DOSBox_Patches_Categories.Current Is Nothing Then + BS_DOSBox_Patches.Filter = "id_DOSBox_Patches_Categories = 0" + Else + BS_DOSBox_Patches.Filter = "id_DOSBox_Patches_Categories = " & BS_DOSBox_Patches_Categories.Current("id_DOSBox_Patches_Categories") + End If + End Sub + + Private Sub txb_Executable_Leave(sender As Object, e As EventArgs) Handles txb_Executable.Leave + Refill_LibretroCore() + End Sub + + Private Sub txb_Directory_Leave(sender As Object, e As EventArgs) Handles txb_Directory.Leave + Refill_LibretroCore() + End Sub + + Private Sub cmb_Libretro_Core_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Libretro_Core.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + cmb_Libretro_Core.EditValue = DBNull.Value + End If + End Sub + + Private Sub gv_DOSBox_Patches_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_DOSBox_Patches.MouseMove + Me.grd_DOSBox_Patches.ShowHandInColumns(gv_DOSBox_Patches, {"Activated"}, e) + End Sub + + Private Sub gv_Platforms_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Platforms.MouseMove + Me.grd_Platforms.ShowHandInColumns(gv_Platforms, {"Suported", "DefaultEmulator"}, e) + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Export.Designer.vb b/Metropolis_Launcher/Forms/frm_Export.Designer.vb new file mode 100644 index 0000000..336989d --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class frm_Export + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.btn_Export = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Destination = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Destination = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_Destination = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Option = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Mode = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Mode = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Export = New System.Data.DataSet() + Me.tbl_Mode = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.lbl_Compression = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Compression = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Compression = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Compression = New System.Data.DataSet() + Me.tbl_Compression = New System.Data.DataTable() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + CType(Me.txb_Destination.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Mode.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Mode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Export, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Mode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Compression.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Compression, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Compression, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Compression, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn_Export + ' + Me.btn_Export.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Export.Location = New System.Drawing.Point(228, 76) + Me.btn_Export.Name = "btn_Export" + Me.btn_Export.Size = New System.Drawing.Size(75, 23) + Me.btn_Export.TabIndex = 4 + Me.btn_Export.Text = "&Export" + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.Location = New System.Drawing.Point(306, 76) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 5 + Me.btn_Close.Text = "&Close" + ' + 'lbl_Destination + ' + Me.lbl_Destination.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Destination.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Destination.Location = New System.Drawing.Point(3, 3) + Me.lbl_Destination.MKBoundControl1 = Nothing + Me.lbl_Destination.MKBoundControl2 = Nothing + Me.lbl_Destination.MKBoundControl3 = Nothing + Me.lbl_Destination.MKBoundControl4 = Nothing + Me.lbl_Destination.MKBoundControl5 = Nothing + Me.lbl_Destination.Name = "lbl_Destination" + Me.lbl_Destination.Size = New System.Drawing.Size(93, 20) + Me.lbl_Destination.TabIndex = 1 + Me.lbl_Destination.Text = "Destination:" + ' + 'txb_Destination + ' + Me.txb_Destination.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Destination.Location = New System.Drawing.Point(99, 3) + Me.txb_Destination.MKBoundLabel = Nothing + Me.txb_Destination.MKEditValue_Compare = Nothing + Me.txb_Destination.Name = "txb_Destination" + Me.txb_Destination.Size = New System.Drawing.Size(250, 20) + Me.txb_Destination.TabIndex = 0 + ' + 'btn_Destination + ' + Me.btn_Destination.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Destination.Location = New System.Drawing.Point(352, 3) + Me.btn_Destination.Name = "btn_Destination" + Me.btn_Destination.Size = New System.Drawing.Size(29, 20) + Me.btn_Destination.TabIndex = 1 + Me.btn_Destination.Text = "..." + ' + 'lbl_Option + ' + Me.lbl_Option.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Option.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Option.Location = New System.Drawing.Point(3, 26) + Me.lbl_Option.MKBoundControl1 = Nothing + Me.lbl_Option.MKBoundControl2 = Nothing + Me.lbl_Option.MKBoundControl3 = Nothing + Me.lbl_Option.MKBoundControl4 = Nothing + Me.lbl_Option.MKBoundControl5 = Nothing + Me.lbl_Option.Name = "lbl_Option" + Me.lbl_Option.Size = New System.Drawing.Size(93, 20) + Me.lbl_Option.TabIndex = 1 + Me.lbl_Option.Text = "Export Mode:" + ' + 'cmb_Mode + ' + Me.cmb_Mode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Mode.EditValue = "1" + Me.cmb_Mode.Location = New System.Drawing.Point(99, 26) + Me.cmb_Mode.MKBoundLabel = Nothing + Me.cmb_Mode.MKEditValue_Compare = Nothing + Me.cmb_Mode.Name = "cmb_Mode" + Me.cmb_Mode.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Mode.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id", "id", 31, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Text", "Text", 32, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Mode.Properties.DataSource = Me.BS_Mode + Me.cmb_Mode.Properties.DisplayMember = "Text" + Me.cmb_Mode.Properties.ShowHeader = False + Me.cmb_Mode.Properties.ValueMember = "id" + Me.cmb_Mode.Size = New System.Drawing.Size(250, 20) + Me.cmb_Mode.TabIndex = 2 + ' + 'BS_Mode + ' + Me.BS_Mode.DataMember = "tbl_Mode" + Me.BS_Mode.DataSource = Me.DS_Export + ' + 'DS_Export + ' + Me.DS_Export.DataSetName = "NewDataSet" + Me.DS_Export.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Mode}) + ' + 'tbl_Mode + ' + Me.tbl_Mode.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2}) + Me.tbl_Mode.TableName = "tbl_Mode" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id" + Me.DataColumn1.DataType = GetType(Integer) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Text" + ' + 'lbl_Compression + ' + Me.lbl_Compression.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Compression.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Compression.Location = New System.Drawing.Point(3, 49) + Me.lbl_Compression.MKBoundControl1 = Nothing + Me.lbl_Compression.MKBoundControl2 = Nothing + Me.lbl_Compression.MKBoundControl3 = Nothing + Me.lbl_Compression.MKBoundControl4 = Nothing + Me.lbl_Compression.MKBoundControl5 = Nothing + Me.lbl_Compression.Name = "lbl_Compression" + Me.lbl_Compression.Size = New System.Drawing.Size(93, 20) + Me.lbl_Compression.TabIndex = 1 + Me.lbl_Compression.Text = "Compression:" + ' + 'cmb_Compression + ' + Me.cmb_Compression.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Compression.EditValue = 46 + Me.cmb_Compression.Location = New System.Drawing.Point(99, 49) + Me.cmb_Compression.MKBoundLabel = Nothing + Me.cmb_Compression.MKEditValue_Compare = Nothing + Me.cmb_Compression.Name = "cmb_Compression" + Me.cmb_Compression.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Compression.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("displaytext", "displaytext", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Compression.Properties.DataSource = Me.BS_Compression + Me.cmb_Compression.Properties.DisplayMember = "displaytext" + Me.cmb_Compression.Properties.ShowHeader = False + Me.cmb_Compression.Properties.ValueMember = "value" + Me.cmb_Compression.Size = New System.Drawing.Size(250, 20) + Me.cmb_Compression.TabIndex = 3 + ' + 'BS_Compression + ' + Me.BS_Compression.DataMember = "tbl_Compression" + Me.BS_Compression.DataSource = Me.DS_Compression + ' + 'DS_Compression + ' + Me.DS_Compression.DataSetName = "NewDataSet" + Me.DS_Compression.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Compression}) + ' + 'tbl_Compression + ' + Me.tbl_Compression.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn3, Me.DataColumn4}) + Me.tbl_Compression.TableName = "tbl_Compression" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "value" + Me.DataColumn3.DataType = GetType(Integer) + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "displaytext" + ' + 'frm_Export + ' + Me.ClientSize = New System.Drawing.Size(384, 102) + Me.Controls.Add(Me.cmb_Compression) + Me.Controls.Add(Me.cmb_Mode) + Me.Controls.Add(Me.txb_Destination) + Me.Controls.Add(Me.lbl_Compression) + Me.Controls.Add(Me.lbl_Option) + Me.Controls.Add(Me.lbl_Destination) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.btn_Destination) + Me.Controls.Add(Me.btn_Export) + Me.MinimumSize = New System.Drawing.Size(400, 140) + Me.Name = "frm_Export" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Export games" + CType(Me.txb_Destination.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Mode.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Mode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Export, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Mode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Compression.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Compression, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Compression, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Compression, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn_Export As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Destination As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Destination As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_Destination As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Option As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Mode As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Mode As System.Windows.Forms.BindingSource + Friend WithEvents DS_Export As System.Data.DataSet + Friend WithEvents tbl_Mode As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents lbl_Compression As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Compression As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Compression As System.Windows.Forms.BindingSource + Friend WithEvents DS_Compression As System.Data.DataSet + Friend WithEvents tbl_Compression As System.Data.DataTable + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents DataColumn4 As System.Data.DataColumn + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Export.resx b/Metropolis_Launcher/Forms/frm_Export.resx new file mode 100644 index 0000000..4cf983d --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 124, 17 + + + 17, 17 + + + 369, 17 + + + 226, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Export.vb b/Metropolis_Launcher/Forms/frm_Export.vb new file mode 100644 index 0000000..5e57a3f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export.vb @@ -0,0 +1,331 @@ +Public Class frm_Export + Private _al_id_Emu_Games As ArrayList + + Private pd_Overwrite As New cls_PermDecision(Me, "Export", "File %1% already exists, overwrite?", {New cls_PermDecision.PermDecisionButton("Yes", Windows.Forms.DialogResult.Yes), New cls_PermDecision.PermDecisionButton("No", Windows.Forms.DialogResult.No)}) + + Public Sub New(ByRef al_id_Emu_Games As ArrayList, ByVal bHasDOSEntry As Boolean) + InitializeComponent() + + _al_id_Emu_Games = al_id_Emu_Games + + Dim row As DataRow = Nothing + + 'Fill tbl_Mode + row = tbl_Mode.NewRow + row("id") = 1 + row("Text") = "Just copy" + tbl_Mode.Rows.Add(row) + + If Not bHasDOSEntry Then + row = tbl_Mode.NewRow + row("id") = 2 + row("Text") = "Pack as individual .zip files" + tbl_Mode.Rows.Add(row) + + row = tbl_Mode.NewRow + row("id") = 3 + row("Text") = "Pack as merged .zip files" + tbl_Mode.Rows.Add(row) + End If + + 'Fill tbl_Compression + row = tbl_Compression.NewRow + row("value") = 0 + row("displaytext") = "None" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 41 + row("displaytext") = "Deflate - Best Speed" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 46 + row("displaytext") = "Deflate - Default" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 49 + row("displaytext") = "Deflate - Best Compression" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 20 + row("displaytext") = "BZip2" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 60 + row("displaytext") = "LZMA" + tbl_Compression.Rows.Add(row) + + row = tbl_Compression.NewRow + row("value") = 30 + row("displaytext") = "PPMd" + tbl_Compression.Rows.Add(row) + + cmb_Mode_EditValueChanged(Nothing, Nothing) + End Sub + + Private Sub btn_Destination_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Destination.Click + Dim sDestination As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog() + If Alphaleonis.Win32.Filesystem.Directory.Exists(sDestination) Then + Me.txb_Destination.Text = sDestination + End If + End Sub + + Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Export.Click + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Destination.Text) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The destination directory does not exist.", "Destination not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Continuous, False, "Exporting Game {0} of {1} ...", 0, _al_id_Emu_Games.Count, True) + prg.Start() + + Dim bCancelled As Boolean = False + + For Each id_Emu_Games As Int64 In _al_id_Emu_Games + prg.IncreaseCurrentValue() + + Export_Game(prg, id_Emu_Games, Me.txb_Destination.Text) + + If prg.WaitForCancel Then + bCancelled = True + Exit For + End If + + Next + + prg.Close() + + If Not bCancelled Then + DevExpress.XtraEditors.XtraMessageBox.Show("The export completed.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Information) + Else + DevExpress.XtraEditors.XtraMessageBox.Show("The export has been cancelled.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Sub + + Private Function Export_Game(ByRef prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper, ByVal id_Emu_Games As Int64, ByVal Destination_Folder As String) As Boolean + Dim dt_Emu_Games As New DS_ML.src_ucr_Emulation_GamesDataTable + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Emu_Games, id_Emu_Games:=id_Emu_Games, ShowVolumes:=True) + tran.Commit() + End Using + + Dim rows_Main() As DataRow = dt_Emu_Games.Select("id_Emu_Games = " & id_Emu_Games) + + Dim sOutfilename As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(rows_Main(0)("File")) + + Dim TempDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("mlexport_") + + Dim al_Files As New ArrayList + + For Each row As DataRow In dt_Emu_Games.Rows + Dim File As String = row("File") + Dim Folder As String = row("Folder") + Dim Innerfile As String = TC.NZ(row("InnerFile"), "") + + If IsNumeric(row("id_Rombase_DOSBox_Filetypes")) Then + Dim i As Integer = 0 + If TC.NZ(row("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.zip Then + 'Packed Content + ElseIf TC.NZ(row("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then + 'Workdir + File = ":WorkDir:" + ElseIf TC.NZ(row("id_Rombase_DOSBox_Filetypes"), 0) = -1 Then + 'Install Media + If File <> Innerfile Then Continue For 'The Install Media is contained within packed file + Else + Continue For + End If + End If + + Dim rfd As New ucr_Emulation.cls_Romfiledata(Folder & "\" & File, Innerfile, TempDir, True, True) + + If Not rfd.IsValid Then + Continue For + End If + + al_Files.Add(rfd.Fullpath) + Next + + Export_Files(prg, sOutfilename, al_Files) + + MKNetLib.cls_MKFileSupport.Delete_Directory(TempDir) + + Return True + End Function + + ''' + ''' + ''' + ''' Output file name if merged zip is to be exported + ''' + ''' + ''' + Private Function Export_Files(ByRef prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper, ByVal OutFileName As String, ByRef al_Files As ArrayList) As String + Select Case TC.NZ(BS_Mode.Current("id"), 0) + Case 1 'Just copy + For Each file As String In al_Files + 'Copy a file + If Alphaleonis.Win32.Filesystem.File.Exists(file) Then + Dim filename As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(file) + + Dim bCopy As Boolean = True + + If Alphaleonis.Win32.Filesystem.File.Exists(txb_Destination.Text & "\" & filename) Then + If Not pd_Overwrite.Show("Export", "File " & filename & " already exists, overwrite?") = Windows.Forms.DialogResult.Yes Then + bCopy = False + End If + End If + + Try + If bCopy Then + Alphaleonis.Win32.Filesystem.File.Copy(file, txb_Destination.Text & "\" & filename, True) + End If + Catch ex As Exception + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Error while copying " & filename & "." & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + End Try + ElseIf Alphaleonis.Win32.Filesystem.Directory.Exists(file) Then + 'Copy a directory + Dim dirname As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(MKNetLib.cls_MKStringSupport.Clean_Right(file, "\")) + Dim destination As String = txb_Destination.Text & "\" & dirname & "\" + + Dim bCopy As Boolean = True + + If Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Destination.Text & "\" & dirname) Then + If Not pd_Overwrite.Show("Export", "Directory " & dirname & " already exists, overwrite?") = Windows.Forms.DialogResult.Yes Then + bCopy = False + End If + End If + + Try + If bCopy Then + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(destination) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(destination) + End If + + If Alphaleonis.Win32.Filesystem.Directory.Exists(destination) Then + FileIO.FileSystem.CopyDirectory(file, destination, True) + Else + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Cannot copy " & dirname & ".", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + End If + End If + Catch ex As Exception + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Error while copying " & dirname & "." & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + End Try + End If + Next + Case 2 + 'Individual Zips + For Each file As String In al_Files + Dim filename As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(file) + Dim filenamewithoutextention As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(file) + Dim targetfilename = filenamewithoutextention & ".zip" + Dim targetfullpath = txb_Destination.Text & "\" & targetfilename + + Dim bCopy As Boolean = True + + If Alphaleonis.Win32.Filesystem.File.Exists(targetfullpath) Then + prg.Hide = True + If Not pd_Overwrite.Show("Export", "File " & targetfilename & " already exists, overwrite?") = Windows.Forms.DialogResult.Yes Then + bCopy = False + End If + prg.Hide = False + End If + + Try + If bCopy Then + Dim ci As New SharpCompress.Common.CompressionInfo() + ci.DeflateCompressionLevel = TC.NZ(cmb_Compression.EditValue, 0) Mod 10 'SharpCompress.Compressor.Deflate.CompressionLevel.BestCompression + ci.Type = TC.NZ(cmb_Compression.EditValue, 0) \ 10 'SharpCompress.Common.CompressionType.Deflate + + Using zip As IO.Stream = IO.File.OpenWrite(targetfullpath) + Using zipwriter As SharpCompress.Writer.IWriter = SharpCompress.Writer.WriterFactory.Open(zip, SharpCompress.Common.ArchiveType.Zip, ci) + Using fs As New System.IO.FileStream(file, IO.FileMode.Open) + zipwriter.Write(filename, fs, Nothing) + End Using + End Using + End Using + End If + Catch ex As Exception + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Error while copying " & filename & "." & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + End Try + Next + Case 3 + 'Merged Zip + Try + Dim targetfilename = OutFileName & ".zip" + Dim targetfullpath = txb_Destination.Text & "\" & targetfilename + + If Alphaleonis.Win32.Filesystem.File.Exists(targetfullpath) Then + prg.Hide = True + If Not pd_Overwrite.Show("Export", "File " & targetfilename & " already exists, overwrite?") = Windows.Forms.DialogResult.Yes Then + Return False + End If + prg.Hide = False + End If + + Dim ci As New SharpCompress.Common.CompressionInfo() + ci.DeflateCompressionLevel = TC.NZ(cmb_Compression.EditValue, 0) Mod 10 'SharpCompress.Compressor.Deflate.CompressionLevel.BestCompression + ci.Type = TC.NZ(cmb_Compression.EditValue, 0) \ 10 'SharpCompress.Common.CompressionType.Deflate + + Using zip As IO.Stream = IO.File.OpenWrite(targetfullpath) + Using zipwriter As SharpCompress.Writer.IWriter = SharpCompress.Writer.WriterFactory.Open(zip, SharpCompress.Common.ArchiveType.Zip, ci) + + For Each yyy As String In al_Files + Dim xxx As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(yyy) + Dim filenamewithoutextention As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(yyy) + + Using fs As New System.IO.FileStream(yyy, IO.FileMode.Open) + zipwriter.Write(xxx, fs, Nothing) + End Using + Next + End Using + End Using + Catch ex As Exception + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Error while creating " & OutFileName & ".zip." & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + End Try + Case Else + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show("Export mode not recognized.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + prg.Hide = False + Return False + End Select + + Return True + End Function + + Private Sub cmb_Mode_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Mode.EditValueChanged + Select Case TC.NZ(cmb_Mode.EditValue, 0) + Case 1 + lbl_Compression.Enabled = False + cmb_Compression.Enabled = False + Case 2 + lbl_Compression.Enabled = True + cmb_Compression.Enabled = True + Case 3 + lbl_Compression.Enabled = True + cmb_Compression.Enabled = True + Case Else + lbl_Compression.Enabled = False + cmb_Compression.Enabled = False + End Select + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_FilterSet.Designer.vb b/Metropolis_Launcher/Forms/frm_FilterSet.Designer.vb new file mode 100644 index 0000000..e41fc3e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_FilterSet.Designer.vb @@ -0,0 +1,187 @@ + _ +Partial Class frm_FilterSet + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Me.lbl_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Name = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Quickfilter = New MKNetDXLib.ctl_MKDXLabel() + Me.chk_QuickFilter = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.btn_GetQuickfilter = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Current_Quickfilter = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_RemoveQuickFilter = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chk_QuickFilter.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Name + ' + Me.lbl_Name.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Name.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Name.Location = New System.Drawing.Point(3, 3) + Me.lbl_Name.MKBoundControl1 = Nothing + Me.lbl_Name.MKBoundControl2 = Nothing + Me.lbl_Name.MKBoundControl3 = Nothing + Me.lbl_Name.MKBoundControl4 = Nothing + Me.lbl_Name.MKBoundControl5 = Nothing + Me.lbl_Name.Name = "lbl_Name" + Me.lbl_Name.Size = New System.Drawing.Size(68, 20) + Me.lbl_Name.TabIndex = 9 + Me.lbl_Name.Text = "Name:" + ' + 'txb_Name + ' + Me.txb_Name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Name.Location = New System.Drawing.Point(74, 3) + Me.txb_Name.MKBoundLabel = Nothing + Me.txb_Name.MKEditValue_Compare = Nothing + Me.txb_Name.Name = "txb_Name" + Me.txb_Name.Size = New System.Drawing.Size(364, 20) + Me.txb_Name.TabIndex = 0 + ' + 'lbl_Quickfilter + ' + Me.lbl_Quickfilter.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Quickfilter.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Quickfilter.Location = New System.Drawing.Point(3, 26) + Me.lbl_Quickfilter.MKBoundControl1 = Nothing + Me.lbl_Quickfilter.MKBoundControl2 = Nothing + Me.lbl_Quickfilter.MKBoundControl3 = Nothing + Me.lbl_Quickfilter.MKBoundControl4 = Nothing + Me.lbl_Quickfilter.MKBoundControl5 = Nothing + Me.lbl_Quickfilter.Name = "lbl_Quickfilter" + Me.lbl_Quickfilter.Size = New System.Drawing.Size(68, 20) + Me.lbl_Quickfilter.TabIndex = 9 + Me.lbl_Quickfilter.Text = "Quickfilter:" + Me.lbl_Quickfilter.Visible = False + ' + 'chk_QuickFilter + ' + Me.chk_QuickFilter.Cursor = System.Windows.Forms.Cursors.Hand + Me.chk_QuickFilter.Location = New System.Drawing.Point(346, 27) + Me.chk_QuickFilter.MKBoundLabel = Nothing + Me.chk_QuickFilter.MKEditValue_Compare = Nothing + Me.chk_QuickFilter.Name = "chk_QuickFilter" + Me.chk_QuickFilter.Properties.Caption = "Use Quickfilter" + Me.chk_QuickFilter.Size = New System.Drawing.Size(92, 19) + ToolTipTitleItem1.Text = "Use Quickfilter settings in this filterset" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + Me.chk_QuickFilter.SuperTip = SuperToolTip1 + Me.chk_QuickFilter.TabIndex = 3 + Me.chk_QuickFilter.Visible = False + ' + 'btn_GetQuickfilter + ' + Me.btn_GetQuickfilter.Location = New System.Drawing.Point(168, 26) + Me.btn_GetQuickfilter.Name = "btn_GetQuickfilter" + Me.btn_GetQuickfilter.Size = New System.Drawing.Size(86, 20) + ToolTipTitleItem2.Text = "Get the Quickfilter Settings from the current List" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + Me.btn_GetQuickfilter.SuperTip = SuperToolTip2 + Me.btn_GetQuickfilter.TabIndex = 1 + Me.btn_GetQuickfilter.Text = "&Get from List" + Me.btn_GetQuickfilter.Visible = False + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(263, 49) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(86, 20) + Me.btn_OK.TabIndex = 4 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(352, 49) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(86, 20) + Me.btn_Cancel.TabIndex = 5 + Me.btn_Cancel.Text = "&Cancel" + ' + 'lbl_Current_Quickfilter + ' + Me.lbl_Current_Quickfilter.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Current_Quickfilter.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Current_Quickfilter.Location = New System.Drawing.Point(74, 26) + Me.lbl_Current_Quickfilter.MKBoundControl1 = Nothing + Me.lbl_Current_Quickfilter.MKBoundControl2 = Nothing + Me.lbl_Current_Quickfilter.MKBoundControl3 = Nothing + Me.lbl_Current_Quickfilter.MKBoundControl4 = Nothing + Me.lbl_Current_Quickfilter.MKBoundControl5 = Nothing + Me.lbl_Current_Quickfilter.Name = "lbl_Current_Quickfilter" + Me.lbl_Current_Quickfilter.Size = New System.Drawing.Size(91, 20) + Me.lbl_Current_Quickfilter.TabIndex = 9 + Me.lbl_Current_Quickfilter.Text = "No Quickfilter" + Me.lbl_Current_Quickfilter.Visible = False + ' + 'btn_RemoveQuickFilter + ' + Me.btn_RemoveQuickFilter.Location = New System.Drawing.Point(257, 26) + Me.btn_RemoveQuickFilter.Name = "btn_RemoveQuickFilter" + Me.btn_RemoveQuickFilter.Size = New System.Drawing.Size(86, 20) + ToolTipTitleItem3.Text = "Remove the Quickfilter Settings" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + Me.btn_RemoveQuickFilter.SuperTip = SuperToolTip3 + Me.btn_RemoveQuickFilter.TabIndex = 2 + Me.btn_RemoveQuickFilter.Text = "&Remove" + Me.btn_RemoveQuickFilter.Visible = False + ' + 'frm_FilterSet + ' + Me.ClientSize = New System.Drawing.Size(441, 72) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.btn_RemoveQuickFilter) + Me.Controls.Add(Me.btn_GetQuickfilter) + Me.Controls.Add(Me.chk_QuickFilter) + Me.Controls.Add(Me.lbl_Current_Quickfilter) + Me.Controls.Add(Me.lbl_Quickfilter) + Me.Controls.Add(Me.lbl_Name) + Me.Controls.Add(Me.txb_Name) + Me.Name = "frm_FilterSet" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Filterset" + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chk_QuickFilter.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Name As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Name As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Quickfilter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chk_QuickFilter As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents btn_GetQuickfilter As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Current_Quickfilter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_RemoveQuickFilter As MKNetDXLib.ctl_MKDXSimpleButton + +End Class diff --git a/Metropolis_Launcher/Forms/frm_FilterSet.resx b/Metropolis_Launcher/Forms/frm_FilterSet.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_FilterSet.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_FilterSet.vb b/Metropolis_Launcher/Forms/frm_FilterSet.vb new file mode 100644 index 0000000..06e1423 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_FilterSet.vb @@ -0,0 +1,172 @@ +Public Class frm_FilterSet + + Public Enum enm_QuickfilterSource + None = 0 + FromGrid = 1 + FromDatabase = 2 + End Enum + + Public Function QuickFilterSource2String(ByVal qfs As enm_QuickfilterSource) As String + Select Case qfs + Case enm_QuickfilterSource.None + Return "No Quickfilter" + Case enm_QuickfilterSource.FromGrid + Return "From List" + Case enm_QuickfilterSource.FromDatabase + Return "From Database" + Case Else + Return "???" + End Select + End Function + + Public Function QuickFilterSourceSuperTip(ByVal qfs As enm_QuickfilterSource) As String + Select Case qfs + Case enm_QuickfilterSource.None + Return "There is no quickfilter for this filterset" + Case enm_QuickfilterSource.FromGrid + Return "Quickfilter is derived from the current list" + Case enm_QuickfilterSource.FromDatabase + Return "Quickfilter is derived from the database" + Case Else + Return "???" + End Select + End Function + + Public Property FilterSet_Name As Object + Get + Return txb_Name.EditValue + End Get + Set(ByVal value As Object) + txb_Name.EditValue = value + End Set + End Property + + Private _FilterSet_Quickfilter As Object = Nothing + Public Property FilterSet_Quickfilter As Object + Get + Return _FilterSet_Quickfilter + End Get + Set(ByVal value As Object) + _FilterSet_Quickfilter = value + End Set + End Property + + Private _CurrentGrid_Quickfilter As Object = Nothing + Public Property CurrentGrid_Quickfilter As Object + Get + Return _CurrentGrid_Quickfilter + End Get + Set(ByVal value As Object) + _CurrentGrid_Quickfilter = value + End Set + End Property + + Public Property UseQuickFilter As Boolean + Get + Return chk_QuickFilter.Checked + End Get + Set(ByVal value As Boolean) + chk_QuickFilter.Checked = value + End Set + End Property + + Private _QuickFilter As Object = Nothing + Public Property QuickFilter As Object + Get + Return _QuickFilter + End Get + Set(ByVal value As Object) + Me._QuickFilter = value + If TC.IsNullNothingOrEmpty(_QuickFilter) Then + Me.QuickFilterSource = enm_QuickfilterSource.None + End If + End Set + End Property + + Private _QuickFilterSource As enm_QuickfilterSource = enm_QuickfilterSource.None + Public Property QuickFilterSource As enm_QuickfilterSource + Get + Return _QuickFilterSource + End Get + Set(ByVal value As enm_QuickfilterSource) + _QuickFilterSource = value + Me.lbl_Current_Quickfilter.Text = QuickFilterSource2String(value) + Dim st As New DevExpress.Utils.SuperToolTip + Dim tti As New DevExpress.Utils.ToolTipTitleItem() + tti.Text = QuickFilterSourceSuperTip(value) + st.Items.Add(tti) + Me.lbl_Current_Quickfilter.SuperTip = st + End Set + End Property + + Private _id_FilterSet As Object = Nothing + Public Property id_FilterSet + Get + Return _id_FilterSet + End Get + Set(ByVal value) + _id_FilterSet = value + End Set + End Property + + Public Sub New(ByVal id_FilterSet As Object, ByVal CurrentGrid_QuickFilter As Object, ByVal FilterSet_QuickFilter As Object, ByVal UseQuickFilter As Boolean, ByVal FilterSet_Name As Object) + InitializeComponent() + + Me.id_FilterSet = id_FilterSet + + Me.QuickFilterSource = enm_QuickfilterSource.None + + Me._CurrentGrid_Quickfilter = CurrentGrid_QuickFilter + If TC.IsNullNothingOrEmpty(Me._CurrentGrid_Quickfilter) Then + btn_GetQuickfilter.Enabled = False + End If + + Me._FilterSet_Quickfilter = FilterSet_QuickFilter + + Me.UseQuickFilter = UseQuickFilter + + 'ALWAYS use the current Quickfilter from the Grid + 'If TC.NZ(id_FilterSet, 0) > 0 Then + ' Me.QuickFilter = Me.FilterSet_Quickfilter + ' If Not TC.IsNullNothingOrEmpty(Me.QuickFilter) Then + ' Me.QuickFilterSource = enm_QuickfilterSource.FromDatabase + ' End If + 'Else + Me.QuickFilter = Me.CurrentGrid_Quickfilter + If Not TC.IsNullNothingOrEmpty(Me.QuickFilter) Then + Me.QuickFilterSource = enm_QuickfilterSource.FromGrid + End If + 'End If + + Me.FilterSet_Name = FilterSet_Name + End Sub + + Private Sub btn_GetQuickfilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GetQuickfilter.Click + Me.QuickFilter = _CurrentGrid_Quickfilter + If Not TC.IsNullNothingOrEmpty(Me.QuickFilter) Then + Me.QuickFilterSource = enm_QuickfilterSource.FromGrid + End If + End Sub + + Private Sub btn_RemoveQuickFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_RemoveQuickFilter.Click + Me.QuickFilter = Nothing + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If TC.IsNullNothingOrEmpty(Me.txb_Name.EditValue) Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please provide a name of the filterset.", "Name is missing", MessageBoxButtons.OK) + Return + End If + + If 0 < DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_FilterSets WHERE [Name] = " & TC.getSQLFormat(txb_Name.EditValue) & IIf(TC.NZ(Me.id_FilterSet, 0) > 0, " AND id_FilterSets <> " & TC.getSQLFormat(Me.id_FilterSet), "")) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The name is already used.", "Name is used", MessageBoxButtons.OK) + Return + End If + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Login.Designer.vb b/Metropolis_Launcher/Forms/frm_Login.Designer.vb new file mode 100644 index 0000000..e520e65 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Login.Designer.vb @@ -0,0 +1,195 @@ + _ +Partial Class frm_Login + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lbl_Users = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Password = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Password = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.BS_Users = New System.Windows.Forms.BindingSource(Me.components) + Me.cmb_Users = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.txb_Password.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Users, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Users.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'lbl_Users + ' + Me.lbl_Users.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Users.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Users.Location = New System.Drawing.Point(5, 3) + Me.lbl_Users.MKBoundControl1 = Nothing + Me.lbl_Users.MKBoundControl2 = Nothing + Me.lbl_Users.MKBoundControl3 = Nothing + Me.lbl_Users.MKBoundControl4 = Nothing + Me.lbl_Users.MKBoundControl5 = Nothing + Me.lbl_Users.Name = "lbl_Users" + Me.lbl_Users.Size = New System.Drawing.Size(77, 20) + Me.lbl_Users.TabIndex = 1 + Me.lbl_Users.Text = "User:" + ' + 'lbl_Password + ' + Me.lbl_Password.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Password.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Password.Location = New System.Drawing.Point(5, 26) + Me.lbl_Password.MKBoundControl1 = Nothing + Me.lbl_Password.MKBoundControl2 = Nothing + Me.lbl_Password.MKBoundControl3 = Nothing + Me.lbl_Password.MKBoundControl4 = Nothing + Me.lbl_Password.MKBoundControl5 = Nothing + Me.lbl_Password.Name = "lbl_Password" + Me.lbl_Password.Size = New System.Drawing.Size(77, 20) + Me.lbl_Password.TabIndex = 1 + Me.lbl_Password.Text = "Password:" + ' + 'txb_Password + ' + Me.txb_Password.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Password.Location = New System.Drawing.Point(83, 26) + Me.txb_Password.MKBoundLabel = Nothing + Me.txb_Password.MKEditValue_Compare = Nothing + Me.txb_Password.Name = "txb_Password" + Me.txb_Password.Properties.PasswordChar = Global.Microsoft.VisualBasic.ChrW(9679) + Me.txb_Password.Size = New System.Drawing.Size(214, 20) + Me.txb_Password.TabIndex = 1 + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(144, 78) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 2 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(222, 78) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 3 + Me.btn_Cancel.Text = "&Cancel" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Users + ' + Me.BS_Users.DataMember = "tbl_Users" + Me.BS_Users.DataSource = Me.DS_ML + ' + 'cmb_Users + ' + Me.cmb_Users.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Users.Location = New System.Drawing.Point(83, 3) + Me.cmb_Users.MKBoundLabel = Nothing + Me.cmb_Users.MKEditValue_Compare = Nothing + Me.cmb_Users.Name = "cmb_Users" + Me.cmb_Users.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Users.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Users", "id_Users", 64, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Admin", "Admin", 39, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Username", "Username", 58, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Password", "Password", 56, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Restricted", "Restricted", 59, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far)}) + Me.cmb_Users.Properties.DataSource = Me.BS_Users + Me.cmb_Users.Properties.DisplayMember = "Username" + Me.cmb_Users.Properties.ShowFooter = False + Me.cmb_Users.Properties.ShowHeader = False + Me.cmb_Users.Properties.ValueMember = "id_Users" + Me.cmb_Users.Size = New System.Drawing.Size(214, 20) + Me.cmb_Users.TabIndex = 0 + ' + 'Ctl_MKDXPanel1 + ' + Me.Ctl_MKDXPanel1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Users) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Password) + Me.Ctl_MKDXPanel1.Controls.Add(Me.cmb_Users) + Me.Ctl_MKDXPanel1.Controls.Add(Me.txb_Password) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Cancel) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_OK) + Me.Ctl_MKDXPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXPanel1.Location = New System.Drawing.Point(0, 6) + Me.Ctl_MKDXPanel1.Name = "Ctl_MKDXPanel1" + Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(314, 111) + Me.Ctl_MKDXPanel1.TabIndex = 4 + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(314, 6) + Me.lbl_Explanation.TabIndex = 5 + ' + 'frm_Login + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(314, 117) + Me.Controls.Add(Me.Ctl_MKDXPanel1) + Me.Controls.Add(Me.lbl_Explanation) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable + Me.Name = "frm_Login" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Welcome! Please log in..." + CType(Me.txb_Password.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Users.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Users As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Password As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Password As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Users As System.Windows.Forms.BindingSource + Friend WithEvents cmb_Users As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents Ctl_MKDXPanel1 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Login.resx b/Metropolis_Launcher/Forms/frm_Login.resx new file mode 100644 index 0000000..8f7e46e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Login.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 106, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Login.vb b/Metropolis_Launcher/Forms/frm_Login.vb new file mode 100644 index 0000000..ee2c9d0 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Login.vb @@ -0,0 +1,78 @@ +Public Class frm_Login + + Private _IgnorePassword As Boolean = False + + Public Sub New(Optional ByVal ShowOnlyRestricted As Boolean = False, Optional ByVal IgnorePassword As Boolean = False, Optional ByVal Explanation As String = "") + InitializeComponent() + + Me.lbl_Explanation.Text = Explanation + + Me._IgnorePassword = IgnorePassword AndAlso ShowOnlyRestricted + + If IgnorePassword Then + lbl_Password.Visible = False + txb_Password.Visible = False + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Users(tran, Me.DS_ML.tbl_Users, 0, ShowOnlyRestricted) + End Using + + If Not ShowOnlyRestricted AndAlso TC.NZ(cls_Settings.GetSetting("Last_Login_id_User"), 0) > 0 Then + cmb_Users.EditValue = cls_Settings.GetSetting("Last_Login_id_User") + BS_Users.Position = BS_Users.Find("id_Users", cmb_Users.EditValue) + Else + If BS_Users.Current IsNot Nothing Then + cmb_Users.EditValue = BS_Users.Current("id_Users") + End If + End If + End Sub + + Private Sub BS_Users_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Users.CurrentChanged + Me.txb_Password.EditValue = DBNull.Value + + If BS_Users.Current Is Nothing Then Return + + If TC.NZ(BS_Users.Current("Password"), "") = "" Then + Me.lbl_Password.Enabled = False + Me.txb_Password.Enabled = False + Else + Me.lbl_Password.Enabled = True + Me.txb_Password.Enabled = True + End If + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If Not _IgnorePassword Then + If TC.NZ(BS_Users.Current("Password"), "") <> "" Then + If cls_Globals.Encode_Password(TC.NZ(txb_Password.EditValue, "")) <> BS_Users.Current("Password") Then + DevExpress.XtraEditors.XtraMessageBox.Show("The password is not correct.", "Problem", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End If + + cls_Globals.Restricted = TC.NZ(BS_Users.Current("Restricted"), False) + cls_Globals.Admin = TC.NZ(BS_Users.Current("Admin"), False) + cls_Globals.id_Users = BS_Users.Current("id_Users") + + cls_Settings.SetSetting("Last_Login_id_User", cmb_Users.EditValue) + End If + + Me.DialogResult = DialogResult.OK + Me.Close() + End Sub + + Private Sub txb_Password_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txb_Password.KeyDown + If e.KeyCode = Keys.Enter Then + btn_OK.PerformClick() + End If + End Sub + + Private Sub frm_Login_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If txb_Password.Enabled Then + txb_Password.Focus() + Else + btn_OK.Focus() + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Main.Designer.vb b/Metropolis_Launcher/Forms/frm_Main.Designer.vb new file mode 100644 index 0000000..e8d96c2 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Main.Designer.vb @@ -0,0 +1,204 @@ + +Partial Class frm_Main + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim TileItemElement5 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Main)) + Me.DocMngr = New MKNetDXLib.cmp_MKDXDocumentManager() + Me.MetroUIView = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.WindowsUIView(Me.components) + Me.tilecontainer_Main = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.TileContainer(Me.components) + Me.tile_Apps = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile(Me.components) + Me.doc_Apps = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document(Me.components) + Me.tile_Emulation = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile(Me.components) + Me.doc_Emulation = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document(Me.components) + Me.tile_Cinema = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile(Me.components) + Me.doc_Cinema = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document(Me.components) + Me.tile_Settings = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile(Me.components) + Me.doc_Settings = New DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document(Me.components) + Me.DS_MLApps = New Metropolis_Launcher.DS_MLApps() + CType(Me.DocMngr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MetroUIView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tilecontainer_Main, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tile_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.doc_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tile_Emulation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.doc_Emulation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tile_Cinema, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.doc_Cinema, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tile_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.doc_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DocMngr + ' + Me.DocMngr.ContainerControl = Me + Me.DocMngr.ShowThumbnailsInTaskBar = DevExpress.Utils.DefaultBoolean.[False] + Me.DocMngr.View = Me.MetroUIView + Me.DocMngr.ViewCollection.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseView() {Me.MetroUIView}) + ' + 'MetroUIView + ' + Me.MetroUIView.Caption = "Metropolis Launcher" + Me.MetroUIView.ContentContainers.AddRange(New DevExpress.XtraBars.Docking2010.Views.WindowsUI.IContentContainer() {Me.tilecontainer_Main}) + Me.MetroUIView.Documents.AddRange(New DevExpress.XtraBars.Docking2010.Views.BaseDocument() {Me.doc_Settings, Me.doc_Apps, Me.doc_Emulation, Me.doc_Cinema}) + Me.MetroUIView.SearchPanelProperties.Enabled = False + Me.MetroUIView.Tiles.AddRange(New DevExpress.XtraBars.Docking2010.Views.WindowsUI.BaseTile() {Me.tile_Settings, Me.tile_Apps, Me.tile_Emulation, Me.tile_Cinema}) + Me.MetroUIView.UseSplashScreen = DevExpress.Utils.DefaultBoolean.[False] + ' + 'tilecontainer_Main + ' + Me.tilecontainer_Main.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(42, Byte), Integer)) + Me.tilecontainer_Main.AppearanceItem.Normal.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(42, Byte), Integer)) + Me.tilecontainer_Main.AppearanceItem.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(42, Byte), Integer)) + Me.tilecontainer_Main.AppearanceItem.Normal.Font = New System.Drawing.Font("Segoe UI", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tilecontainer_Main.AppearanceItem.Normal.Options.UseBackColor = True + Me.tilecontainer_Main.AppearanceItem.Normal.Options.UseBorderColor = True + Me.tilecontainer_Main.AppearanceItem.Normal.Options.UseFont = True + Me.tilecontainer_Main.Items.AddRange(New DevExpress.XtraBars.Docking2010.Views.WindowsUI.BaseTile() {Me.tile_Apps, Me.tile_Emulation, Me.tile_Cinema, Me.tile_Settings}) + Me.tilecontainer_Main.Name = "tilecontainer_Main" + Me.tilecontainer_Main.Properties.ItemSize = 100 + Me.tilecontainer_Main.Subtitle = "initializing..." + ' + 'tile_Apps + ' + Me.tile_Apps.Appearances.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(179, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Apps.Appearances.Normal.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(179, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Apps.Appearances.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(179, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Apps.Appearances.Normal.Options.UseBackColor = True + Me.tile_Apps.Appearances.Normal.Options.UseBorderColor = True + Me.tile_Apps.Document = Me.doc_Apps + TileItemElement5.Text = "Apps" + Me.tile_Apps.Elements.Add(TileItemElement5) + Me.tile_Apps.Enabled = False + Me.tile_Apps.Name = "tile_Apps" + ' + 'doc_Apps + ' + Me.doc_Apps.Caption = "Applications" + Me.doc_Apps.ControlName = "" + ' + 'tile_Emulation + ' + Me.tile_Emulation.Appearances.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(145, Byte), Integer), CType(CType(209, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Emulation.Appearances.Normal.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(145, Byte), Integer), CType(CType(209, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Emulation.Appearances.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(145, Byte), Integer), CType(CType(209, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.tile_Emulation.Appearances.Normal.Options.UseBackColor = True + Me.tile_Emulation.Appearances.Normal.Options.UseBorderColor = True + Me.tile_Emulation.Document = Me.doc_Emulation + TileItemElement1.Text = "Games & Emulation" + Me.tile_Emulation.Elements.Add(TileItemElement1) + Me.tile_Emulation.Enabled = False + Me.tilecontainer_Main.SetID(Me.tile_Emulation, 1) + Me.tile_Emulation.Name = "tile_Emulation" + ' + 'doc_Emulation + ' + Me.doc_Emulation.Caption = "Games & Emulation" + Me.doc_Emulation.ControlName = "" + ' + 'tile_Cinema + ' + Me.tile_Cinema.Appearances.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(31, Byte), Integer), CType(CType(174, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tile_Cinema.Appearances.Normal.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(31, Byte), Integer), CType(CType(174, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tile_Cinema.Appearances.Normal.BorderColor = System.Drawing.Color.FromArgb(CType(CType(31, Byte), Integer), CType(CType(174, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tile_Cinema.Appearances.Normal.Options.UseBackColor = True + Me.tile_Cinema.Appearances.Normal.Options.UseBorderColor = True + Me.tile_Cinema.Document = Me.doc_Cinema + TileItemElement2.Text = "Cinema" + Me.tile_Cinema.Elements.Add(TileItemElement2) + Me.tilecontainer_Main.SetID(Me.tile_Cinema, 2) + Me.tile_Cinema.Name = "tile_Cinema" + Me.tile_Cinema.Visible = False + ' + 'doc_Cinema + ' + Me.doc_Cinema.Caption = "Cinema & TV" + Me.doc_Cinema.ControlName = "" + ' + 'tile_Settings + ' + Me.tile_Settings.Appearances.Normal.BackColor = System.Drawing.Color.DimGray + Me.tile_Settings.Appearances.Normal.BackColor2 = System.Drawing.Color.DimGray + Me.tile_Settings.Appearances.Normal.BorderColor = System.Drawing.Color.DimGray + Me.tile_Settings.Appearances.Normal.Options.UseBackColor = True + Me.tile_Settings.Appearances.Normal.Options.UseBorderColor = True + Me.tile_Settings.Document = Me.doc_Settings + TileItemElement3.Text = "Settings" + Me.tile_Settings.Elements.Add(TileItemElement3) + Me.tile_Settings.Enabled = False + Me.tilecontainer_Main.SetID(Me.tile_Settings, 3) + Me.tile_Settings.Name = "tile_Settings" + ' + 'doc_Settings + ' + Me.doc_Settings.Caption = "Settings" + Me.doc_Settings.ControlName = "" + ' + 'DS_MLApps + ' + Me.DS_MLApps.DataSetName = "DS_MLApps" + Me.DS_MLApps.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'frm_Main + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 562) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frm_Main" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Metropolis Launcher" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + CType(Me.DocMngr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MetroUIView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tilecontainer_Main, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tile_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.doc_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tile_Emulation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.doc_Emulation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tile_Cinema, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.doc_Cinema, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tile_Settings, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.doc_Settings, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents DocMngr As MKNetDXLib.cmp_MKDXDocumentManager + Friend WithEvents MetroUIView As DevExpress.XtraBars.Docking2010.Views.WindowsUI.WindowsUIView + Friend WithEvents tilecontainer_Main As DevExpress.XtraBars.Docking2010.Views.WindowsUI.TileContainer + Friend WithEvents tile_Apps As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile + Friend WithEvents doc_Apps As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document + Friend WithEvents tile_Emulation As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile + Friend WithEvents doc_Emulation As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document + Friend WithEvents tile_Settings As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile + Friend WithEvents doc_Settings As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document + Friend WithEvents tile_Cinema As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Tile + Friend WithEvents doc_Cinema As DevExpress.XtraBars.Docking2010.Views.WindowsUI.Document + Friend WithEvents DS_MLApps As Metropolis_Launcher.DS_MLApps +End Class diff --git a/Metropolis_Launcher/Forms/frm_Main.resx b/Metropolis_Launcher/Forms/frm_Main.resx new file mode 100644 index 0000000..b324985 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Main.resx @@ -0,0 +1,2406 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAwAgIAAAAEAIAAoCAEAxgAAAICAAAABAAgAKEwAAO4IAQBAQAAAAQAgAChCAAAWVQEAQEAAAAEA + CAAoFgAAPpcBADAwAAABACAAqCUAAGatAQAwMAAAAQAIAKgOAAAO0wEAICAAAAEAIACoEAAAtuEBACAg + AAABAAgAqAgAAF7yAQAYGAAAAQAgAIgJAAAG+wEAGBgAAAEACADIBgAAjgQCABAQAAABACAAaAQAAFYL + AgAQEAAAAQAIAGgFAAC+DwIAKAAAAIAAAAAAAQAAAQAgAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAMAAAADAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAA + AAUAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAA + AAUAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAIAAAAEAAAABQAAAAYAAAAHAAAACQAAAAkAAAAKAAAACgAAAAsAAAALAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAA + AAwAAAAMAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAAKAAAACgAAAAkAAAAJAAAABwAA + AAYAAAAFAAAABAAAAAIAAAACAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAAEAAAABgAAAAkAAAALAAAADQAA + AA8AAAASAAAAFAAAABUAAAAWAAAAFwAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAZAAAAGQAA + ABkAAAAZAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGQAAABkAAAAYAAAAGAAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAAAAsAAAAJAAAABgAAAAQAAAADAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAADAAAABAAAAAYAAAAIAAAADQAAABAAAAASAAAAFQAAABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAA + ACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAA + ACMAAAAjAAAAIwAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACEAAAAhAAAAHwAAAB4AAAAcAAAAGgAA + ABUAAAASAAAAEAAAAA0AAAAIAAAABgAAAAQAAAADAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAAAAsAAAASAAAAFgAA + ABkAAAAdAAAAJAAAACYAAAApAAAAKwAAAC0AAAAuAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAAMAAA + ADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAALwAAAC8AAAAvAAAALwAA + AC8AAAAvAAAALgAAAC0AAAArAAAAKQAAACYAAAAkAAAAHQAAABkAAAAWAAAAEgAAAAsAAAAJAAAABgAA + AAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAgAA + AAIAAAADAAAABwAAAAkAAAAMAAAAEAAAABgAAAAdAAAAIQAAACYAAAAuAAAAMgAAADUAAAA3AAAAOwAA + ADwAAAA8AAAAPQAAAD0AAAA9AAAAPQAAAD0AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAA + AD4AAAA+AAAAPgAAAD4AAAA9AAAAPQAAAD0AAAA9AAAAPQAAADwAAAA8AAAAOwAAADcAAAA1AAAAMgAA + AC4AAAAmAAAAIQAAAB0AAAAYAAAAEAAAAAwAAAAJAAAABwAAAAMAAAACAAAAAgAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAQAAAAEAAAABQAAAAcAAAAMAAAAEAAAABQAAAAaAAAAJwAA + AC4AAAA2AAAAPQAAAEoAAABQAAAAVAAAAFgAAABdAAAAXwAAAGAAAABgAAAAYQAAAGEAAABhAAAAYQAA + AGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGEAAABhAAAAYQAA + AGEAAABgAAAAYAAAAF8AAABdAAAAWAAAAFQAAABQAAAASgAAAD0AAAA2AAAALgAAACcAAAAaAAAAFAAA + ABAAAAAMAAAABwAAAAUAAAAEAAAABAAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAIAAAACAAAAAwAAAAMAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABgAA + AAcAAAAIAAAACgAAABAAAAAUAAAAGgAAACAAAAAwAAAAOAAAAEEAAABJAAAAWQAAAF8AAABlAAAAaQAA + AG8AAABxAAAAcgAAAHMAAAB0AAAAdAAAAHQAAAB0AAAAdQAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdQAA + AHUAAAB1AAAAdQAAAHUAAAB1AAAAdAAAAHQAAAB0AAAAdAAAAHMAAAByAAAAcQAAAG8AAABpAAAAZQAA + AF8AAABZAAAASQAAAEEAAAA4AAAAMAAAACAAAAAaAAAAFAAAABAAAAAKAAAACAAAAAcAAAAGAAAABQAA + AAUAAAAFAAAABQAAAAUAAAAFAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAwAA + AAMAAAAEAAAABQAAAAUAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIAAAACQAAAAsAAAANAAAAFAAAABkAAAAfAAAAJwAA + ADgAAABCAAAATQAAAFcAAABpAAAAcAAAAHYAAAB7AAAAggAAAIQAAACGAAAAhwAAAIgAAACIAAAAiAAA + AIgAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACIAAAAiAAA + AIgAAACIAAAAhwAAAIYAAACEAAAAggAAAHsAAAB2AAAAcAAAAGkAAABXAAAATQAAAEIAAAA4AAAAJwAA + AB8AAAAZAAAAFAAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABgAAAAcAAAAJAAAACQAAAAoAAAAKAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAA + AA0AAAAOAAAAEAAAABIAAAAaAAAAIAAAACcAAAAvAAAAQwAAAE4AAABaAAAAZQAAAHkAAACBAAAAiAAA + AI4AAACWAAAAmAAAAJoAAACbAAAAnAAAAJwAAACcAAAAnAAAAJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAA + AJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJwAAACcAAAAnAAAAJwAAACbAAAAmgAAAJgAAACWAAAAjgAA + AIgAAACBAAAAeQAAAGUAAABaAAAATgAAAEMAAAAvAAAAJwAAACAAAAAaAAAAEgAAABAAAAAOAAAADQAA + AAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAAKAAAACgAAAAkAAAAJAAAABwAAAAYAAAAFAAAABAAAAAIAAAACAAAAAQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAGAAAACQAA + AAsAAAANAAAADwAAABIAAAAUAAAAFQAAABYAAAAXAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGwAAABwAAAAeAAAAIAAAACkAAAAwAAAAOAAA + AEIAAABZAAAAZgAAAHMAAAB/AAAAlgAAAKAAAACoAAAArwAAALgAAAC6AAAAvAAAAL4AAAC/AAAAvwAA + AL8AAAC/AAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAvwAA + AL8AAAC/AAAAvwAAAL4AAAC8AAAAugAAALgAAACvAAAAqAAAAKAAAACWAAAAfwAAAHMAAABmAAAAWQAA + AEIAAAA4AAAAMAAAACkAAAAgAAAAHgAAABwAAAAbAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGAAA + ABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAA + AAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAMAAAAEAAAABgAAAAgAAAANAAAAEAAAABIAAAAVAAAAGgAAABwAAAAeAAAAHwAA + ACEAAAAhAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACMAAAAjAAAAIwAAACMAAAAjAAAAIwAA + ACMAAAAlAAAAJgAAACgAAAArAAAANAAAADsAAABDAAAATQAAAGQAAABxAAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHEAAABkAAAATQAAAEMAAAA7AAAANAAAACsAAAAoAAAAJgAA + ACUAAAAjAAAAIwAAACMAAAAjAAAAIwAAACMAAAAjAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAA + ACEAAAAhAAAAHwAAAB4AAAAcAAAAGgAAABUAAAASAAAAEAAAAA0AAAAIAAAABgAAAAQAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAAJAAAACwAA + ABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAAAC4AAAAvAAAALwAAAC8AAAAvAAAALwAA + AC8AAAAvAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADIAAAAzAAAANQAAADgAAABBAAAASAAA + AFAAAABaAAAAcQAAAH4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAfgAA + AHEAAABaAAAAUAAAAEgAAABBAAAAOAAAADUAAAAzAAAAMgAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAA + ADAAAAAvAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAALgAAAC0AAAArAAAAKQAAACYAAAAkAAAAHQAA + ABkAAAAWAAAAEgAAAAsAAAAJAAAABgAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAAGAAAACAAAAAsAAAAPAAAAFwAAABwAAAAhAAAAJgAAAC4AAAAyAAAANQAA + ADcAAAA7AAAAPAAAADwAAAA9AAAAPQAAAD0AAAA9AAAAPQAAAD0AAAA+AAAAPgAAAD4AAAA+AAAAPgAA + AD4AAAA+AAAAQAAAAEEAAABDAAAARQAAAE4AAABVAAAAXQAAAGcAAAB+AAAAiwAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAACLAAAAfgAAAGcAAABdAAAAVQAAAE4AAABFAAAAQwAA + AEEAAABAAAAAPgAAAD4AAAA+AAAAPgAAAD4AAAA+AAAAPgAAAD0AAAA9AAAAPQAAAD0AAAA9AAAAPQAA + ADwAAAA8AAAAOwAAADcAAAA1AAAAMgAAAC4AAAAmAAAAIQAAABwAAAAXAAAADwAAAAsAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAkAAAANAAAAEgAA + ABgAAAAlAAAALQAAADQAAAA8AAAASQAAAE8AAABUAAAAWAAAAF0AAABeAAAAYAAAAGAAAABhAAAAYQAA + AGEAAABhAAAAYgAAAGIAAABiAAAAYgAAAGIAAABiAAAAYgAAAGIAAABjAAAAZAAAAGYAAABoAAAAcAAA + AHYAAAB9AAAAhQAAAJkAAACkAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AKQAAACZAAAAhQAAAH0AAAB2AAAAcAAAAGgAAABmAAAAZAAAAGMAAABiAAAAYgAAAGIAAABiAAAAYgAA + AGIAAABiAAAAYgAAAGEAAABhAAAAYQAAAGEAAABgAAAAYAAAAF4AAABdAAAAWAAAAFQAAABPAAAASQAA + ADwAAAA0AAAALQAAACUAAAAYAAAAEgAAAA0AAAAJAAAABAAAAAMAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAMAAAAFAAAACwAAABAAAAAWAAAAHAAAACwAAAA1AAAAPwAAAEgAAABYAAAAXgAA + AGQAAABpAAAAbwAAAHEAAAByAAAAcwAAAHQAAAB0AAAAdAAAAHQAAAB1AAAAdQAAAHUAAAB1AAAAdQAA + AHUAAAB1AAAAdQAAAHYAAAB3AAAAeQAAAHsAAACCAAAAhwAAAI0AAACVAAAApgAAALAAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAsAAAAKYAAACVAAAAjQAAAIcAAACCAAAAewAA + AHkAAAB3AAAAdgAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdQAAAHUAAAB1AAAAdAAAAHQAAAB0AAAAdAAA + AHMAAAByAAAAcQAAAG8AAABpAAAAZAAAAF4AAABYAAAASAAAAD8AAAA1AAAALAAAABwAAAAWAAAAEAAA + AAsAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAANAAAAEwAA + ABkAAAAhAAAANAAAAD8AAABJAAAAVAAAAGcAAABvAAAAdQAAAHsAAACCAAAAhAAAAIYAAACHAAAAiAAA + AIgAAACIAAAAiAAAAIkAAACJAAAAiQAAAIkAAACJAAAAiQAAAIkAAACJAAAAigAAAIsAAACMAAAAjgAA + AJQAAACYAAAAngAAAKQAAAC0AAAAvQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAC9AAAAtAAAAKQAAACeAAAAmAAAAJQAAACOAAAAjAAAAIsAAACKAAAAiQAAAIkAAACJAAAAiQAA + AIkAAACJAAAAiQAAAIkAAACIAAAAiAAAAIgAAACIAAAAhwAAAIYAAACEAAAAggAAAHsAAAB1AAAAbwAA + AGcAAABUAAAASQAAAD8AAAA0AAAAIQAAABkAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAA8AAAAWAAAAHQAAACYAAAA8AAAASAAAAFQAAABgAAAAdgAA + AH8AAACHAAAAjQAAAJUAAACYAAAAmQAAAJsAAACcAAAAnAAAAJwAAACcAAAAnQAAAJ0AAACdAAAAnQAA + AJ0AAACdAAAAnQAAAJ0AAACeAAAAngAAAKAAAAChAAAApgAAAKoAAACuAAAAtAAAAMEAAADIAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAMgAAADBAAAAtAAAAK4AAACqAAAApgAA + AKEAAACgAAAAngAAAJ4AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJ0AAACdAAAAnQAAAJwAAACcAAAAnAAA + AJwAAACbAAAAmQAAAJgAAACVAAAAjQAAAIcAAAB/AAAAdgAAAGAAAABUAAAASAAAADwAAAAmAAAAHQAA + ABYAAAAPAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAUAAAAJAAAAEwAA + ABoAAAAkAAAALwAAAEkAAABYAAAAZwAAAHYAAACQAAAAmwAAAKUAAACsAAAAtgAAALoAAAC8AAAAvQAA + AL8AAAC/AAAAvwAAAL8AAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADBAAAAwQAA + AMMAAADGAAAAyAAAAMsAAADPAAAA1wAAANwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA3AAAANcAAADPAAAAywAAAMgAAADGAAAAwwAAAMEAAADBAAAAwAAAAMAAAADAAAAAwAAA + AMAAAADAAAAAwAAAAMAAAADAAAAAvwAAAL8AAAC/AAAAvwAAAL0AAAC8AAAAugAAALYAAACsAAAApQAA + AJsAAACQAAAAdgAAAGcAAABYAAAASQAAAC8AAAAkAAAAGgAAABMAAAAJAAAABQAAAAMAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAEAAAABgAAAAkAAAAUAAAAHAAAACYAAAAyAAAATwAAAF4DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAF4AAABPAAAAMgAA + ACYAAAAcAAAAFAAAAAkAAAAGAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAGAAAACgAA + ABYAAAAeAAAAKQAAADUAAABUAAAAZAMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAZAAAAFQAAAA1AAAAKQAAAB4AAAAWAAAACgAAAAYAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAKAAAAFwAAACAAAAArAAAAOAAAAFgAAABpAwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//f39/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABpAAAAWAAA + ADgAAAArAAAAIAAAABcAAAAKAAAABwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABwAA + AAsAAAAYAAAAIQAAAC0AAAA7AAAAXQAAAG8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAAAC0AAAAhAAAAGAAAAAsAAAAHAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABgAAAAiAAAALgAAADwAAABeAAAAcQMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcQAA + AF4AAAA8AAAALgAAACIAAAAYAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAALAAAAGQAAACMAAAAvAAAAPQAAAGAAAABzAwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABzAAAAYAAAAD0AAAAvAAAAIwAAABkAAAALAAAABwAA + AAQAAAACAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYAAA + AHQDAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAA + AAQAAAAHAAAADAAAABkAAAAjAAAALwAAAD4AAABhAAAAdQMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAA + AAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAA + AGEAAAB1AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8AAAB1AAAAYQAAAD4AAAAvAAAAIwAAABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAA + AAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAA + AD4AAABhAAAAdQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAEAAAADAAAABQAAAAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + ////////////////////////////////////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8AAAB1AAAAYgAAAD4AAAAwAAAAIwAA + ABkAAAAMAAAABwAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAA + ADAAAAA+AAAAYgAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + //8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wAAAHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAA + AAAAAAABAAAAAwAAAAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////////////////////////////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AAAAdQAAAGIAAAA+AAAAMAAA + ACMAAAAZAAAADAAAAAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABQAAAAcAAAAMAAAAGQAA + ACMAAAAwAAAAPgAAAGIAAAB1AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AgIC/wIC + Av8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wIC + Av8CAgL/AgIC/wICAv8AAAB1AAAAYgAAAD4AAAAwAAAAIwAAABkAAAAMAAAABwAAAAUAAAADAAAAAQAA + AAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAAADAAAAA+AAAAYgAAAHUAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD///////////////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AgIC/wICAv8CAgL/AgIC/wAAAHUAAABiAAAAPgAA + ADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAUAAAAHAAAADAAA + ABkAAAAjAAAAMAAAAD4AAABiAAAAdQQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + /////////////////////////////////////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7////////////////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGIAAAA+AAAAMAAAACMAAAAZAAAADAAAAAcAAAAFAAAAAwAA + AAEAAAAAAAAAAAAAAAEAAAADAAAABQAAAAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + ///9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + //////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYgAA + AD4AAAAwAAAAIwAAABkAAAAMAAAABwAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAA + AAwAAAAZAAAAIwAAADAAAAA+AAAAYgAAAHUEBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP////////////////////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+/////////////////////////////////////////////v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAA + AAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + /////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + ///////////////////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAA + AGIAAAA+AAAAMAAAACMAAAAZAAAADAAAAAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABQAA + AAcAAAAMAAAAGQAAACMAAAAwAAAAPgAAAGIAAAB1BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD////////////////////////////////////////////9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v////////////////////////////////////////////7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYgAAAD4AAAAwAAAAIwAAABkAAAAMAAAABwAA + AAUAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABwAAAAwAAAAZAAAAIwAAADAAAAA+AAAAYgAA + AHUEBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////// + //////////////39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////// + /////////////////////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AHUAAABiAAAAPgAAADAAAAAjAAAAGQAAAAwAAAAHAAAABQAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAA + AAUAAAAHAAAADAAAABkAAAAjAAAAMAAAAD4AAABiAAAAdQQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT///////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/////////////////////////////////////////////f39//39/f/9/f3//f39//39 + /f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7////////////////////////////////////////////+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAdQAAAGIAAAA+AAAAMAAAACMAAAAZAAAADAAA + AAcAAAAFAAAAAwAAAAEAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAA + AGEAAAB1BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + ///////////////////9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////// + //////////////////////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAAABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAA + AAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn///////////////////////// + ///////////////////6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj////////////////////////////////////////////9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//////////////////////////////////////////////////// + ///////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//// + //////////////////////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAA + AD4AAABhAAAAdQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f////////////////////////////////////////////r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P////////////// + //////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3///////// + //////////////////////////////////////////////////////////////////////////////7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + /////////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAEAAAADAAAABAAAAAcAAAAMAAAAGQAAACMAAAAvAAAAPgAAAGEAAAB1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//////////////////// + ////////////////////////+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4/////////////////////////////////////////////f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f////////////////////////////////////////////// + /////////////////////////////////////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v////////////////////////////////////////////////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAA + ABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAA + AC8AAAA+AAAAYAAAAHQAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn////////////////////////////////////////////6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj///////// + ///////////////////////////////////9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//// + //////////////////////////////////////////////////////////////////////////////// + ///+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABkAAAAjAAAALwAAAD0AAABgAAAAcwAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f////////////// + //////////////////////////////r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P////////////////////////////////////////////39 + /f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3///////////////////////////////////////// + //////////////////////////////////////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7///////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcwAAAGAAAAA9AAAALwAA + ACMAAAAZAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAALAAAAGAAA + ACIAAAAuAAAAPAAAAF8AAAByAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5////////////////////////////////////////////+vr6//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//// + /////////////////////////////////////////f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f////////////////////////////////////////////////////////////////////////////// + /////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAByAAAAXwAAADwAAAAuAAAAIgAAABgAAAALAAAABwAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAAEAAAABwAAAAsAAAAYAAAAIQAAAC0AAAA7AAAAXQAAAG8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn///////// + ///////////////////////////////////6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj///////////////////////////////////////// + ///9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39//////////////////////////////////// + ///////////////////////////////////////////////////+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAA + AC0AAAAhAAAAGAAAAAsAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACgAA + ABcAAAAgAAAAKwAAADgAAABYAAAAagAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f////////////////////////////////////////////r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P////////////////////////////////////////////39/f/9/f3//f39//39/f/9/f3//f39//39 + /f/9/f3///////////////////////////////////////////////////////////////////////// + //////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + /////////////////////////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAagAAAFgAAAA4AAAAKwAAACAAAAAXAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAYAAAAKAAAAFgAAAB4AAAApAAAANgAAAFQAAABlAQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6 + +v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr///////////////////////////////////////// + //8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7///////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + ///////////////////5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAABlAAAAVAAA + ADYAAAApAAAAHgAAABYAAAAKAAAABgAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABgAA + AAkAAAAUAAAAHAAAACYAAAAyAAAATwAAAF8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v///////////////////////////////////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP////////////////////////////////////////////n5+f/5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAF8AAABPAAAAMgAAACYAAAAcAAAAFAAAAAkAAAAGAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAMAAAAFAAAACQAAABMAAAAbAAAAJAAAAC8AAABKAAAAWQEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//////////////////////////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAWQAA + AEoAAAAvAAAAJAAAABsAAAATAAAACQAAAAUAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAA + AAQAAAAHAAAADwAAABYAAAAdAAAAJwAAAD0AAABKAQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr///////////////////////////////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////////////////////// + /////////////////////////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD////////////////////////////////////////////5+fn/+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAABKAAAAPQAAACcAAAAdAAAAFgAAAA8AAAAHAAAABAAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAYAAAANAAAAEwAAABoAAAAiAAAANgAA + AEEBAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v////////////////////////////// + /////////////wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v////////////////////////////////////////////////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + //////////////////////////////n5+f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAA + AEEAAAA2AAAAIgAAABoAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABQAAAAsAAAAQAAAAFgAAAB0AAAAuAAAAOAEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6////////////////////////////////////////////BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//////////////////// + //////////////////////////////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////+fn5//n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAOAAAAC4AAAAdAAAAFgAAABAAAAALAAAABQAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAMAAAAEAAAACQAAAA0AAAASAAAAGAAA + ACcAAAAwAQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB//r6+v/6+vr/+vr6//r6+v/6+vr/+vr6//r6+v/6+vr///////////////////////// + //////////////////8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7///////////////////////////////////////////////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + ///////////////////////////////////5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/+fn5/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv8AAAAwAAAAJwAAABgAAAASAAAADQAAAAkAAAAEAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAAGAAAACAAAAAwAAAAPAAAAGQAAAB8BAQH/AQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//r6 + +v/6+vr/+vr6//r6+v///////////////////////////////////////////wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v////////////// + ////////////////////////////////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////////////////////n5 + +f/5+fn/+fn5//n5+f/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAB8AAAAZAAAADwAAAAwAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAA + AAwAAAAUAAAAGQAAAB8AAAAlAAAANQAAAD4AAABJAAAAVQAAAG8AAAB+AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wAAAH4AAABvAAAAVQAAAEkAAAA+AAAANQAA + ACUAAAAfAAAAGQAAABQAAAAMAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAUAAAAGAAAACQAAAA8AAAATAAAAGAAAAB0AAAArAAAANAAA + AD4AAABJAAAAYwAAAHEAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/AAAAcQAAAGMAAABJAAAAPgAAADQAAAArAAAAHQAAABgAAAATAAAADwAAAAkAAAAGAAAABQAA + AAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAUAAAAGAAAACwAAAA4AAAASAAAAFwAAACMAAAArAAAANQAAAD8AAABYAAAAZgAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA//8/Pz//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8AAABmAAAAWAAAAD8AAAA1AAAAKwAA + ACMAAAAXAAAAEgAAAA4AAAALAAAABgAAAAUAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAGAAAACAAAAAoAAAAOAAAAFwAA + AB4AAAAlAAAALgAAAEQAAABQAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wAAAFAAAABEAAAALgAAACUAAAAeAAAAFwAAAA4AAAAKAAAACAAAAAYAAAADAAAAAgAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAQAAAAFAAAABwAAAAoAAAASAAAAGAAAAB4AAAAmAAAAOgAAAEUAAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/AAAARQAAADoAAAAmAAAAHgAA + ABgAAAASAAAACgAAAAcAAAAFAAAABAAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAQAAAAGAAAACAAA + AA8AAAATAAAAGQAAACAAAAAxAAAAOwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA//8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wcHB/8AAAA7AAAAMQAAACAAAAAZAAAAEwAAAA8AAAAIAAAABgAAAAQAAAADAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAGAAAACwAAAA8AAAAUAAAAGgAAACkAAAAxAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD//z8 + /P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wAAADEAAAApAAAAGgAA + ABQAAAAPAAAACwAAAAYAAAAEAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAMAAAAHAAAACQAAAAwAAAAQAAAAGgAAACAAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8 + /P////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcH + B/8HBwf/BwcH/wcHB/8HBwf/AAAAIAAAABoAAAAQAAAADAAAAAkAAAAHAAAAAwAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAQAAAAGAAAACQAAAAwAAAAUAAAAGgAA + ACAAAAAnAAAAOQAAAEMAAABQAAAAXgAAAH0AAACNAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/AAAAjQAAAH0AAABeAAAAUAAAAEMAAAA5AAAAJwAAACAAAAAaAAAAFAAA + AAwAAAAJAAAABgAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAwAAAAUAAAAHAAAACQAAABAAAAAUAAAAGQAAACAAAAAwAAAAOwAAAEcAAABVAAAAdQAA + AIcAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAACHAAAAdQAA + AFUAAABHAAAAOwAAADAAAAAgAAAAGQAAABQAAAAQAAAACQAAAAcAAAAFAAAAAwAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAUAAAAHAAAADAAA + ABAAAAAUAAAAGgAAACoAAAA0AAAAQAAAAE8AAABwAAAAggAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAAAIIAAABwAAAATwAAAEAAAAA0AAAAKgAAABoAAAAUAAAAEAAA + AAwAAAAHAAAABQAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAAHAAAACgAAAA4AAAASAAAAIQAAACsAAAA4AAAARgAA + AGgAAAB7AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAewAA + AGgAAABGAAAAOAAAACsAAAAhAAAAEgAAAA4AAAAKAAAABwAAAAMAAAACAAAAAQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAUAAAAIAAAACwAAABAAAAAeAAAAKAAAADQAAABDAAAAZQAAAHkAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////// + /////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8AAAB5AAAAZQAAAEMAAAA0AAAAKAAAAB4AAAAQAAAACwAA + AAgAAAAFAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAAAAcAAAAKAAAADwAAAB0AAAAnAAAAMwAA + AEIAAABkAAAAeAAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wAA + AHgAAABkAAAAQgAAADMAAAAnAAAAHQAAAA8AAAAKAAAABwAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAAEAAAABgAAAAkAAAANAAAAGwAAACUAAAAyAAAAQAAAAGMAAAB3AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4 + +P/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/AAAAdwAAAGMAAABAAAAAMgAAACUAAAAbAAAADQAA + AAkAAAAGAAAABAAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAFAAAACAAAAAwAAAAaAAAAJAAA + ADAAAAA/AAAAYgAAAHUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv8AAAB1AAAAYgAAAD8AAAAwAAAAJAAAABoAAAAMAAAACAAAAAUAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAQAAAAHAAAADAAAABkAAAAjAAAALwAAAD4AAABhAAAAdQYGBv8GBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAHUAAABhAAAAPgAAAC8AAAAjAAAAGQAA + AAwAAAAHAAAABAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABAAAAAcAAAAMAAAAGQAA + ACMAAAAvAAAAPgAAAGEAAAB1BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39 + /f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcH + B/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wkJ + Cf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAdQAAAGEAAAA+AAAALwAAACMAAAAZAAAADAAAAAcAAAAEAAAAAwAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAMAAAAEAAAABwAAAAwAAAAZAAAAIwAAAC8AAAA+AAAAYQAAAHUGBgb/BgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG//39/f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//////////////////////////////////// + ////////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAB1AAAAYQAAAD4AAAAvAAAAIwAA + ABkAAAAMAAAABwAAAAQAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAQAAAAHAAAADAAA + ABkAAAAjAAAALwAAAD4AAABgAAAAdAYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb//f39//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcH + B/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD///////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAHQAAABgAAAAPgAAAC8AAAAjAAAAGQAAAAwAAAAHAAAABAAAAAMAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAALAAAAGQAAACMAAAAvAAAAPQAAAGAAAABzBgYG/wYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAcwAAAGAAAAA9AAAALwAA + ACMAAAAZAAAACwAAAAcAAAAEAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABwAA + AAsAAAAYAAAAIgAAAC4AAAA8AAAAXgAAAHEGBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG//39 + /f/9/f3//f39//39/f/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA////////////////////////////////////////////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAABxAAAAXgAAADwAAAAuAAAAIgAAABgAAAALAAAABwAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAAHAAAACwAAABgAAAAhAAAALQAAADsAAABdAAAAbwYG + Bv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39//39/f/9/f3//f39//39 + /f8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcH + B/8HBwf/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJ + Cf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////////////////////// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAG8AAABdAAAAOwAA + AC0AAAAhAAAAGAAAAAsAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAAKAAAAFwAAACAAAAArAAAAOAAAAFgAAABpBgYG/wYGBv8GBgb/BgYG/wYGBv8GBgb/BgYG/wYG + Bv/9/f3//f39//39/f/9/f3//f39//39/f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BwcH/wcHB/8HBwf/BwcH/wcHB/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJCf8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP///////////////////////////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAaQAAAFgAAAA4AAAAKwAAACAAAAAXAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAABgAAAAoAAAAWAAAAHgAAACkAAAA1AAAAVAAA + AGQAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAB+AAAAcQAAAFoAAABQAAAARwAA + AEEAAAA4AAAANQAAADMAAAAyAAAAMAAAADAAAAAwAAAAMAAAADIAAAAzAAAANQAAADgAAABBAAAARwAA + AFAAAABaAAAAcQAAAH4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABkAAAAVAAA + ADUAAAApAAAAHgAAABYAAAAKAAAABgAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAQAAAAGAAAACQAAABQAAAAcAAAAJgAAADIAAABPAAAAXgAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wAAAHEAAABkAAAATQAAAEMAAAA6AAAANAAAACsAAAAoAAAAJgAAACUAAAAjAAAAIwAA + ACMAAAAjAAAAJQAAACYAAAAoAAAAKwAAADQAAAA6AAAAQwAAAE0AAABkAAAAcQAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAF4AAABPAAAAMgAAACYAAAAcAAAAFAAAAAkAAAAGAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAUAAAAJAAAAEwAAABoAAAAkAAAALwAA + AEkAAABYAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/AAAAZgAAAFkAAABCAAAAOAAA + ADAAAAApAAAAIAAAAB4AAAAcAAAAGwAAABkAAAAZAAAAGQAAABkAAAAbAAAAHAAAAB4AAAAgAAAAKQAA + ADAAAAA4AAAAQgAAAFkAAABmAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAWAAA + AEkAAAAvAAAAJAAAABoAAAATAAAACQAAAAUAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAADAAAABAAAAAcAAAAPAAAAFgAAAB0AAAAmAAAAPAAAAEgAAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8AAABOAAAAQwAAAC8AAAAnAAAAIAAAABoAAAASAAAAEAAAAA4AAAANAAAADAAA + AAwAAAAMAAAADAAAAA0AAAAOAAAAEAAAABIAAAAaAAAAIAAAACcAAAAvAAAAQwAAAE4AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAABIAAAAPAAAACYAAAAdAAAAFgAAAA8AAAAHAAAABAAA + AAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABgAAAA0AAAATAAAAGQAA + ACEAAAA0AAAAPwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAEIAAAA4AAAAJwAA + AB8AAAAZAAAAFAAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAACAAAAAkAAAALAAAADQAA + ABQAAAAZAAAAHwAAACcAAAA4AAAAQgAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AD8AAAA0AAAAIQAAABkAAAATAAAADQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAgAAAAMAAAAFAAAACwAAABAAAAAWAAAAHAAAACwAAAA1AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/AAAAOAAAADAAAAAgAAAAGgAAABQAAAAQAAAACgAAAAgAAAAHAAAABgAA + AAUAAAAFAAAABQAAAAUAAAAGAAAABwAAAAgAAAAKAAAAEAAAABQAAAAaAAAAIAAAADAAAAA4AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAANQAAACwAAAAcAAAAFgAAABAAAAALAAAABQAA + AAMAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAwAAAAQAAAAJAAAADQAA + ABIAAAAYAAAAJQAAAC0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wQEBP8EBAT/BAQE/wQEBP8AAAAuAAAAJwAA + ABoAAAAUAAAAEAAAAAwAAAAHAAAABQAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAAAAQAAAAEAAAABQAA + AAcAAAAMAAAAEAAAABQAAAAaAAAAJwAAAC4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wgI + CP8ICAj/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAAtAAAAJQAAABgAAAASAAAADQAAAAkAAAAEAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAYAAAAIAAAACwAAAA8AAAAXAAAAHAAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/BAQE/wQEBP8EBAT/BAQE/wAAAB0AAAAYAAAAEAAAAAwAAAAJAAAABwAAAAMAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAIAAAACAAAAAwAAAAcAAAAJAAAADAAAABAAAAAYAAAAHQAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/CAgI/wgICP8ICAj/CAgI/wgICP8ICAj/CAgI/wgI + CP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAABwAAAAXAAAADwAAAAsAAAAIAAAABgAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAABAAA + AAYAAAAJAAAACwAAABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAAAC4AAAAvAAAALwAA + AC8AAAAvAAAALwAAAC8AAAAvAAAALwAAAC4AAAAtAAAAKwAAACkAAAAmAAAAJAAAAB0AAAAZAAAAFgAA + ABIAAAALAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAACAAAABAAAAAYAAAAJAAAACwAAABIAAAAWAAAAGQAAAB0AAAAkAAAAJgAAACkAAAArAAAALQAA + AC4AAAAvAAAALwAAAC8AAAAvAAAALwAAAC8AAAAvAAAALwAAAC4AAAAtAAAAKwAAACkAAAAmAAAAJAAA + AB0AAAAZAAAAFgAAABIAAAALAAAACQAAAAYAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAYAAAAIAAAADQAAABAAAAASAAAAFQAA + ABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAAACIAAAAiAAAAIQAA + ACEAAAAfAAAAHgAAABwAAAAaAAAAFQAAABIAAAAQAAAADQAAAAgAAAAGAAAABAAAAAMAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAADAAAABAAAAAYAAAAIAAAADQAA + ABAAAAASAAAAFQAAABoAAAAcAAAAHgAAAB8AAAAhAAAAIQAAACIAAAAiAAAAIgAAACIAAAAiAAAAIgAA + ACIAAAAiAAAAIQAAACEAAAAfAAAAHgAAABwAAAAaAAAAFQAAABIAAAAQAAAADQAAAAgAAAAGAAAABAAA + AAMAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAYAAAAJAAAACwAAAA0AAAAPAAAAEgAAABQAAAAVAAAAFgAAABcAAAAYAAAAGAAA + ABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAAABIAAAAPAAAADQAA + AAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAADAAAABAAAAAYAAAAJAAAACwAAAA0AAAAPAAAAEgAAABQAAAAVAAAAFgAA + ABcAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFwAAABYAAAAVAAAAFAAA + ABIAAAAPAAAADQAAAAsAAAAJAAAABgAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAAAAQAAAAFAAAABgAA + AAcAAAAJAAAACQAAAAoAAAAKAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAALAAAACgAAAAoAAAAJAAAACQAAAAcAAAAGAAAABQAAAAQAAAACAAAAAgAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAgAA + AAQAAAAFAAAABgAAAAcAAAAJAAAACQAAAAoAAAAKAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAA + AAsAAAALAAAACwAAAAsAAAALAAAACgAAAAoAAAAJAAAACQAAAAcAAAAGAAAABQAAAAQAAAACAAAAAgAA + AAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAAAAUAAAAFAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAUAAAAFAAAABAAA + AAMAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAAAAMAAAADAAAABAAAAAUAAAAFAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAUAAAAFAAAABAAAAAMAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAgAA + AAIAAAADAAAAAwAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAAAgAAAAIAAAADAAAAAwAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAA + AAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAMAAAADAAAAAgAAAAIAAAABAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAAAAEAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////AAAAD + ///////////////+AAAAAH///////////////AAAAAA///////////////AAAAAAD//////////////w + AAAAAA//////////////4AAAAAAH/////////////4AAAAAAAf////////////wAAAAAAAA///////// + wAAAAAAAAAAAAAAD/////wAAAAAAAAAAAAAAAP////wAAAAAAAAAAAAAAAA////wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD/////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA////// + 8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA//////8AAAAAAAAAAAAAAP + //////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA///////+AAAAAAAAAAAAf////////gAAAAAAAA + AAAH////////4AAAAAAAAAAAB/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAA + AAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////// + //AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA// + ///////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAP///w + AAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP////////8AAA + D///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP////////8AAAD///8AAAD/////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////ygAAACAAAAAAAEAAAEACAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAA + AAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6+v/8/Pz//f39//7+ + /v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAADAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAwMDAwMDAwMAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAADAwMDAwMDAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAMD + AwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAA + AAAAAAAAAwMDAwMDAwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEAAAAAAAAAAADAwMDAwMDAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQAAAAAAAAAAAMDAwMDAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDAgICAgICAgIAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0NDQ0CAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMCAgICAgICAgAA + AAAAAAAAAAAAAAAAAAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAAAAANDQ0NDQ0NDQICAgICAgICAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwIC + AgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDAwMDAwMDAwAAAAAAAAAAA0NDQ0NDQ0NAgICAgIC + AgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMD + AwMDAwMDAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0N + DQ0CAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAwMDAwMDAwMCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAA + AAANDQ0NDQ0NDQICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAADAwMDAwMDAwICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDAwMDAwM + DAwAAAAAAAAAAA0NDQ0NDQ0NAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDAgICAgICAgIAAAAAAAAAAAAAAAAAAAAABAQEBAQE + BAQMDAwMDAwMDAAAAAAAAAAADQ0NDQ0NDQ0CAgICAgICAgAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMCAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAwMDAwMDAwMAAAAAAAAAAANDQ0NDQ0NDQICAgICAgICAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAA + AAACAgICAgICAg4ODg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAAAAAAAAAADw8PDw8PDw8EBAQEBAQEBAEB + AQEBAQEBCgoKCgoKCgoCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoK + CgoAAAAAAAAAAAICAgICAgICDg4ODg4ODg4DAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQE + BAQEBAQEAQEBAQEBAQEKCgoKCgoKCgICAgICAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAKCgoKCgoKCgAAAAAAAAAAAgICAgICAgIODg4ODg4ODgMDAwMDAwMDAwMDAwMDAwMAAAAAAAAAAA8P + Dw8PDw8PBAQEBAQEBAQBAQEBAQEBAQoKCgoKCgoKAgICAgICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAAAAACAgICAgICAg4ODg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAA + AAAAAAAADw8PDw8PDw8EBAQEBAQEBAEBAQEBAQEBCgoKCgoKCgoCAgICAgICAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoAAAAAAAAAAAICAgICAgICDg4ODg4ODg4DAwMDAwMDAwMD + AwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQEBAQEBAQEAQEBAQEBAQEKCgoKCgoKCgICAgICAgICAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCgAAAAAAAAAAAgICAgICAgIODg4ODg4ODgMD + AwMDAwMDAwMDAwMDAwMAAAAAAAAAAA8PDw8PDw8PBAQEBAQEBAQBAQEBAQEBAQoKCgoKCgoKAgICAgIC + AgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKAAAAAAAAAAACAgICAgICAg4O + Dg4ODg4OAwMDAwMDAwMDAwMDAwMDAwAAAAAAAAAADw8PDw8PDw8EBAQEBAQEBAEBAQEBAQEBCgoKCgoK + CgoCAgICAgICAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoAAAAAAAAAAAIC + AgICAgICDg4ODg4ODg4DAwMDAwMDAwMDAwMDAwMDAAAAAAAAAAAPDw8PDw8PDwQEBAQEBAQEAQEBAQEB + AQEKCgoKCgoKCgICAgICAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQPDw8PDw8PDwAA + AAAAAAAADw8PDw8PDw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4ODg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0N + DQ0AAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8P + Dw8PDw8PAAAAAAAAAAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4ODg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4O + Dg4NDQ0NDQ0NDQAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQE + BAQEBAQEDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PDQ0NDQ0NDQ0ODg4ODg4ODg4ODg4ODg4ODw8PDw8P + Dw8ODg4ODg4ODg0NDQ0NDQ0NAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABAQEBAQEBAQPDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4O + Dg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0NDQ0AAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4O + Dg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4ODg4NDQ0NDQ0NDQAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PDQ0NDQ0N + DQ0ODg4ODg4ODg4ODg4ODg4ODw8PDw8PDw8ODg4ODg4ODg0NDQ0NDQ0NAAAAAAAAAAAPDw8PDw8PDwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQPDw8PDw8PDwAAAAAAAAAADw8PDw8P + Dw8NDQ0NDQ0NDQ4ODg4ODg4ODg4ODg4ODg4PDw8PDw8PDw4ODg4ODg4ODQ0NDQ0NDQ0AAAAAAAAAAA8P + Dw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBA8PDw8PDw8PAAAAAAAA + AAAPDw8PDw8PDw0NDQ0NDQ0NDg4ODg4ODg4ODg4ODg4ODg8PDw8PDw8PDg4ODg4ODg4NDQ0NDQ0NDQAA + AAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoK + CgoPDw8PDw8PDwsLCwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0NDQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4O + Dg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAKCgoKCgoKCg8PDw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8PDw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8P + Dw8PDw8PDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAoKCgoKCgoKDw8PDw8PDw8LCwsLCwsLCwkJCQkJCQkJDw8PDw8PDw8NDQ0NDQ0NDQ8P + Dw8PDw8PDw8PDw8PDw8ODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoPDw8PDw8PDwsLCwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0N + DQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4ODg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCg8PDw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8P + Dw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8PDw8PDw8PDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoKCgoKDw8PDw8PDw8LCwsLCwsLCwkJ + CQkJCQkJDw8PDw8PDw8NDQ0NDQ0NDQ8PDw8PDw8PDw8PDw8PDw8ODg4ODg4ODg8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoPDw8PDw8PDwsL + CwsLCwsLCQkJCQkJCQkPDw8PDw8PDw0NDQ0NDQ0NDw8PDw8PDw8PDw8PDw8PDw4ODg4ODg4ODw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKCgoKCg8P + Dw8PDw8PCwsLCwsLCwsJCQkJCQkJCQ8PDw8PDw8PDQ0NDQ0NDQ0PDw8PDw8PDw8PDw8PDw8PDg4ODg4O + Dg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEB + AQEBAQEBCwsLCwsLCwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAPDw8PDw8PDwoKCgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEB + AQEBAQEBAQEBAQEBAQELCwsLCwsLCw8PDw8PDw8PBAQEBAQEBAQODg4ODg4ODg8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAA8PDw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAQEBAQEBAQEBAQEBAQEBAQsLCwsLCwsLDw8PDw8PDw8EBAQEBAQEBA4ODg4ODg4ODw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8KCgoKCgoKCgAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBCwsLCwsLCwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4O + Dg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDwoKCgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQELCwsLCwsLCw8PDw8PDw8PBAQEBAQE + BAQODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAA8PDw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUF + BQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQsLCwsLCwsLDw8PDw8P + Dw8EBAQEBAQEBA4ODg4ODg4ODw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAADw8PDw8PDw8KCgoKCgoKCgAA + AAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBCwsLCwsL + CwsPDw8PDw8PDwQEBAQEBAQEDg4ODg4ODg4PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAPDw8PDw8PDwoK + CgoKCgoKAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAQEBAQEB + AQELCwsLCwsLCw8PDw8PDw8PBAQEBAQEBAQODg4ODg4ODg8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAA8P + Dw8PDw8PCgoKCgoKCgoAAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAMDAwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAABgYGBgYGBgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwwMDAwMDAwMDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAAAAAGBgYGBgYGBgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8P + Dw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAAAAAABgYGBgYG + BgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMDAwMDAwwM + DAwMDAwMDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAAA + AAAGBgYGBgYGBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMD + AwMDAwMDDAwMDAwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8AAAAAAAAAAAYGBgYGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAwMDAwMDAwMMDAwMDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8P + Dw8PDw8PDw8PDwAAAAAAAAAABgYGBgYGBgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJCQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAPDw8PDw8PDwAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwkJCQkJCQkJAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAUFBQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJ + CQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAABQUFBQUFBQUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcH + BwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAHBwcHBwcHBwkJCQkJCQkJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAUF + BQUFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAcHBwcHBwcHCQkJCQkJCQkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPDw8PDw8PDwAA + AAAAAAAABQUFBQUFBQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcJCQkJCQkJCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8P + Dw8PDw8PAAAAAAAAAAAFBQUFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAAAAAAAAAABgYGBgYGBgYHBwcHBwcHBwgI + CAgICAgIAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0NDQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcH + BwcHBwcHCAgICAgICAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUFBQUFDQ0NDQ0NDQ0AAAAAAAAAAAYG + BgYGBgYGBwcHBwcHBwcICAgICAgICAAAAAAAAAAADw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAA + AAAAAAAABgYGBgYGBgYHBwcHBwcHBwgICAgICAgIAAAAAAAAAAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0N + DQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcHBwcHBwcHCAgICAgICAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUF + BQUFBQUFDQ0NDQ0NDQ0AAAAAAAAAAAYGBgYGBgYGBwcHBwcHBwcICAgICAgICAAAAAAAAAAADw8PDw8P + Dw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABQUFBQUFBQUNDQ0NDQ0NDQAAAAAAAAAABgYGBgYGBgYHBwcHBwcHBwgICAgICAgIAAAAAAAA + AAAPDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAFBQUFBQUFBQ0NDQ0NDQ0NAAAAAAAAAAAGBgYGBgYGBgcHBwcHBwcHCAgICAgI + CAgAAAAAAAAAAA8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQE + BAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcHBwcHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwcHBwcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcH + BwcHBwcHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEBAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAABwcHBwcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAHBwcHBwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////////////8AAAAP///// + //////////4AAAAAf//////////////8AAAAAD//////////////8AAAAAAP//////////////AAAAAA + D//////////////gAAAAAAf/////////////gAAAAAAB/////////////AAAAAAAAD/////////AAAAA + AAAAAAAAAAP/////AAAAAAAAAAAAAAAA/////AAAAAAAAAAAAAAAAD////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAA + AAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///w + AAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAA + D///8AAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAAAAAAAAAA + AAAAAA////AAAAAAAAAAAAAAAAAP////8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAA + AAAAAAAAAA//////8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD//////wAAAAAAAAAAAAAA////// + 8AAAAAAAAAAAAAAP//////AAAAAAAAAAAAAAD///////4AAAAAAAAAAAB////////+AAAAAAAAAAAAf/ + ///////gAAAAAAAAAAAH////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAA + AAAP////////8AAAAAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAA + AAAAAAAAD/////////AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////// + //AAAAAAAAAAAA/////////wAAAAAAAAAAAP////////8AAAAAAAAAAAD/////////AAAA////AAAA// + ///////wAAAP///wAAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///w + AAAP////////8AAAD///8AAAD/////////AAAA////AAAA/////////wAAAP///wAAAP//////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////KAAAAEAAAACAAAAAAQAgAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAUAAAAFAAAABQAAAAUAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABQAA + AAUAAAAFAAAABQAAAAUAAAAEAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACgAAAA4AAAAQAAAAEQAAABIAAAASAAAAEgAAABMAAAATAAAAEwAA + ABMAAAATAAAAEwAAABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAA + ACkAAAAqAAAAKgAAACoAAAAqAAAAKgAAACoAAAApAAAAKQAAACkAAAAnAAAAJAAAACAAAAAXAAAAEQAA + AAkAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAgAAAAIAAAACAAAAAwAAAAQAAAALAAAAEwAAACMAAAAvAAAAPwAA + AEYAAABNAAAATgAAAE8AAABPAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAATwAAAE8AAABOAAAATQAA + AEYAAAA/AAAALwAAACMAAAATAAAACwAAAAQAAAADAAAAAgAAAAIAAAACAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAIAAAADAAAABAAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAYAAAAGAAAABgAAAAgAAAALAAAAFAAA + ACAAAAA5AAAATAAAAGQAAABwAAAAegAAAH0AAAB+AAAAfgAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAA + AH4AAAB+AAAAfQAAAHoAAABwAAAAZAAAAEwAAAA5AAAAIAAAABQAAAALAAAACAAAAAYAAAAGAAAABgAA + AAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAAQAAAAHAAAACgAAAA4AAAAQAAAAEQAAABIAAAASAAAAEgAAABIAAAATAAAAEwAA + ABMAAAAVAAAAGAAAACUAAAA0AAAAVAAAAGwAAACMAAAAmwAAAKgAAACsAAAArgAAAK4AAACvAAAArwAA + AK8AAACvAAAArwAAAK8AAACuAAAArgAAAKwAAACoAAAAmwAAAIwAAABsAAAAVAAAADQAAAAlAAAAGAAA + ABUAAAATAAAAEwAAABMAAAASAAAAEgAAABIAAAASAAAAEQAAABAAAAAOAAAACgAAAAcAAAAEAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAA + ACkAAAApAAAAKgAAACoAAAAqAAAALAAAADAAAAA+AAAATwAAAHEAAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAA + AHEAAABPAAAAPgAAADAAAAAsAAAAKgAAACoAAAAqAAAAKQAAACkAAAApAAAAKQAAACcAAAAkAAAAIAAA + ABcAAAARAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAJAAAAEQAAACEAAAAuAAAAPgAA + AEYAAABNAAAATgAAAE8AAABPAAAAUAAAAFAAAABQAAAAUAAAAFIAAABWAAAAYgAAAHIAAACSAAAA/wAA + AP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD/wAA + AP8AAAD/AAAA/wAAAP8AAACSAAAAcgAAAGIAAABWAAAAUgAAAFAAAABQAAAAUAAAAFAAAABPAAAATwAA + AE4AAABNAAAARgAAAD4AAAAuAAAAIQAAABEAAAAJAAAAAwAAAAEAAAAAAAAAAAAAAAIAAAAFAAAADwAA + ABsAAAA1AAAASQAAAGMAAABvAAAAegAAAH0AAAB+AAAAfgAAAH8AAAB/AAAAfwAAAH8AAACBAAAAhAAA + AI0AAACZAAAAsgAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/AAAA/wAAAP8AAAD/AAAA/wMD + A/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAAAP8AAAD/AAAAsgAAAJkAAACNAAAAhAAAAIEAAAB/AAAAfwAA + AH8AAAB/AAAAfgAAAH4AAAB9AAAAegAAAG8AAABjAAAASQAAADUAAAAbAAAADwAAAAUAAAACAAAAAAAA + AAAAAAACAAAABgAAABUAAAAmAAAASQAAAGQAAACIAAAAmQAAAKcAAACrAAAArgAAAK4AAACvAAAArwAA + AK8AAACvAAAArwAAALEAAAC4AAAAvwAAAM8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAA + AP8AAAD/AAAA/wAAAP8DAwP/AwMD/wMDA/8DAwP/AAAA/wAAAP8AAAD/AAAA/wAAAM8AAAC/AAAAuAAA + ALEAAACvAAAArwAAAK8AAACvAAAArwAAAK4AAACuAAAAqwAAAKcAAACZAAAAiAAAAGQAAABJAAAAJgAA + ABUAAAAGAAAAAgAAAAAAAAAAAAAAAwAAAAgAAAAZAAAALgAAAFkDAwP/AwMD/wMDA/8DAwP/AgIC/wIC + Av8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE//z8 + /P/8/Pz//Pz8//z8/P8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wIC + Av8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAA + AP8AAAD/AAAAWQAAAC4AAAAZAAAACAAAAAMAAAAAAAAAAAAAAAMAAAAJAAAAHAAAADMAAABjAwMD/wMD + A/8DAwP/AwMD/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQE + BP8EBAT/BAQE/wQEBP/8/Pz//Pz8//z8/P/8/Pz/AAAA/wAAAP8AAAD/AAAA//39/f/9/f3//f39//39 + /f8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQE + BP8EBAT/AAAA/wAAAP8AAAD/AAAA/wAAAGMAAAAzAAAAHAAAAAkAAAADAAAAAAAAAAAAAAADAAAACQAA + AB4AAAA2AAAAaQMDA/8DAwP/AwMD/wMDA/8CAgL/AgIC/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT//Pz8//z8/P/8/Pz//Pz8/wAAAP8AAAD/AAAA/wAA + AP/9/f3//f39//39/f/9/f3/AgIC/wICAv8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAAAP8AAAD/AAAA/wAAAP8AAABpAAAANgAAAB4AAAAJAAAAAwAA + AAAAAAABAAAABAAAAAoAAAAeAAAANwAAAGsDAwP/AwMD/wMDA/8DAwP/AgIC/wICAv8CAgL/AgIC/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE//z8/P/8/Pz//Pz8//z8 + /P8AAAD/AAAA/wAAAP8AAAD//f39//39/f/9/f3//f39/wICAv8CAgL/AgIC/wICAv8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQEBP8AAAD/AAAA/wAAAP8AAAD/AAAAawAA + ADcAAAAeAAAACgAAAAQAAAABAAAAAQAAAAQAAAAKAAAAHgAAADcAAABrAAAA/wAAAP8AAAD/AAAA//n5 + +f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+ + /v8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP////////////// + ////////BAQE/wQEBP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/AgIC/wIC + Av8CAgL/AgIC/wAAAGsAAAA3AAAAHgAAAAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAawAA + AP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn/AAAA/wAAAP8AAAD/AAAA/wICAv8CAgL/AgIC/wIC + Av/+/v7//v7+//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA/wAA + AP8AAAD//////////////////////wQEBP8EBAT/BAQE/wQEBP8BAQH/AQEB/wEBAf8BAQH/+fn5//n5 + +f/5+fn/+fn5/wICAv8CAgL/AgIC/wICAv8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAA + AAoAAAAeAAAANwAAAGwAAAD/AAAA/wAAAP8AAAD/+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAA + AP8CAgL/AgIC/wICAv8CAgL//v7+//7+/v/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMD + A/8DAwP/AAAA/wAAAP8AAAD/AAAA//////////////////////8EBAT/BAQE/wQEBP8EBAT/AQEB/wEB + Af8BAQH/AQEB//n5+f/5+fn/+fn5//n5+f8CAgL/AgIC/wICAv8CAgL/AAAAbAAAADcAAAAeAAAACgAA + AAQAAAABAAAAAQAAAAQAAAAKAAAAHgAAADcAAABsAAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5 + +f8AAAD/AAAA/wAAAP8AAAD/AgIC/wICAv8CAgL/AgIC//7+/v/+/v7//v7+//7+/v8DAwP/AwMD/wMD + A/8DAwP/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD/AAAA/wAAAP//////////////////////BAQE/wQE + BP8EBAT/BAQE/wEBAf8BAQH/AQEB/wEBAf/5+fn/+fn5//n5+f/5+fn/AgIC/wICAv8CAgL/AgIC/wAA + AGwAAAA3AAAAHgAAAAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAbAQEBP8EBAT/BAQE/wQE + BP//////////////////////AAAA/wAAAP8AAAD/AAAA///////////////////////9/f3//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v///////////////////////v7+//7+ + /v/+/v7//v7+//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD//////////////////////wAA + AP8AAAD/AAAA/wAAAP8AAABsAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAAAAoAAAAeAAAANwAA + AGwEBAT/BAQE/wQEBP8EBAT//////////////////////wAAAP8AAAD/AAAA/wAAAP////////////// + /////////f39//39/f/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7///////// + //////////////7+/v/+/v7//v7+//7+/v/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA//// + //////////////////8AAAD/AAAA/wAAAP8AAAD/AAAAbAAAADcAAAAeAAAACgAAAAQAAAABAAAAAQAA + AAQAAAAKAAAAHgAAADcAAABsBAQE/wQEBP8EBAT/BAQE//////////////////////8AAAD/AAAA/wAA + AP8AAAD///////////////////////39/f/9/f3//f39//39/f/+/v7//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7//v7+///////////////////////+/v7//v7+//7+/v/+/v7//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP//////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGwAAAA3AAAAHgAA + AAoAAAAEAAAAAQAAAAEAAAAEAAAACgAAAB4AAAA3AAAAawQEBP8EBAT/BAQE/wQEBP////////////// + ////////AAAA/wAAAP8AAAD/AAAA///////////////////////9/f3//f39//39/f/9/f3//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7//v7+//7+/v///////////////////////v7+//7+/v/+/v7//v7+//39 + /f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAABAAAABAAAAAoAAAAeAAAANwAAAGsAAAD/AAAA/wAA + AP8AAAD/+fn5//n5+f/5+fn/+fn5///////////////////////6+vr/+vr6//r6+v/6+vr/+Pj4//j4 + +P/4+Pj/+Pj4///////////////////////9/f3//f39//39/f/9/f3///////////////////////// + ///////////////////+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAAawAAADcAAAAeAAAACgAAAAQAAAABAAAAAQAAAAQAAAAKAAAAHgAA + ADcAAABrAAAA/wAAAP8AAAD/AAAA//n5+f/5+fn/+fn5//n5+f//////////////////////+vr6//r6 + +v/6+vr/+vr6//j4+P/4+Pj/+Pj4//j4+P///////////////////////f39//39/f/9/f3//f39//// + /////////////////////////////////////////v7+//7+/v/+/v7//v7+//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGsAAAA3AAAAHgAAAAoAAAAEAAAAAQAA + AAAAAAADAAAACQAAAB4AAAA2AAAAaQAAAP8AAAD/AAAA/wAAAP/5+fn/+fn5//n5+f/5+fn///////// + //////////////r6+v/6+vr/+vr6//r6+v/4+Pj/+Pj4//j4+P/4+Pj///////////////////////39 + /f/9/f3//f39//39/f////////////////////////////////////////////7+/v/+/v7//v7+//7+ + /v///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP8AAABpAAAANgAA + AB4AAAAJAAAAAwAAAAAAAAAAAAAAAwAAAAkAAAAcAAAAMwAAAGQAAAD/AAAA/wAAAP8AAAD/+fn5//n5 + +f/5+fn/+fn5///////////////////////6+vr/+vr6//r6+v/6+vr/+Pj4//j4+P/4+Pj/+Pj4//// + ///////////////////9/f3//f39//39/f/9/f3///////////////////////////////////////// + ///+/v7//v7+//7+/v/+/v7///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD/AAAAZAAAADMAAAAcAAAACQAAAAMAAAAAAAAAAAAAAAMAAAAIAAAAGQAAAC4AAABaAQEB/wEB + Af8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr//////////////////////wQE + BP8EBAT/BAQE/wQEBP/+/v7//v7+//7+/v/+/v7///////////////////////////////////////// + //8AAAD/AAAA/wAAAP8AAAD///////////////////////n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAA + AP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAAAFoAAAAuAAAAGQAAAAgAAAADAAAAAAAAAAAAAAACAAAABgAA + ABUAAAAmAAAASwEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/+vr6//r6+v/6+vr/+vr6//// + //////////////////8EBAT/BAQE/wQEBP8EBAT//v7+//7+/v/+/v7//v7+//////////////////// + ////////////////////////AAAA/wAAAP8AAAD/AAAA///////////////////////5+fn/+fn5//n5 + +f/5+fn/AAAA/wAAAP8AAAD/AAAA/wYGBv8GBgb/BgYG/wYGBv8AAABLAAAAJgAAABUAAAAGAAAAAgAA + AAAAAAAAAAAAAgAAAAUAAAAPAAAAHAAAADcBAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB//r6 + +v/6+vr/+vr6//r6+v//////////////////////BAQE/wQEBP8EBAT/BAQE//7+/v/+/v7//v7+//7+ + /v///////////////////////////////////////////wAAAP8AAAD/AAAA/wAAAP////////////// + ////////+fn5//n5+f/5+fn/+fn5/wAAAP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/AAAANwAA + ABwAAAAPAAAABQAAAAIAAAAAAAAAAAAAAAEAAAADAAAACQAAABEAAAAkAQEB/wEBAf8BAQH/AQEB/wEB + Af8BAQH/AQEB/wEBAf/6+vr/+vr6//r6+v/6+vr//////////////////////wQEBP8EBAT/BAQE/wQE + BP/+/v7//v7+//7+/v/+/v7///////////////////////////////////////////8AAAD/AAAA/wAA + AP8AAAD///////////////////////n5+f/5+fn/+fn5//n5+f8AAAD/AAAA/wAAAP8AAAD/BgYG/wYG + Bv8GBgb/BgYG/wAAACQAAAARAAAACQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAUAAAAJAAAAFAAA + AB4AAAA1AAAASQAAAHAAAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8 + /P////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/BwcH/wcH + B/8HBwf/BwcH/wAAAHAAAABJAAAANQAAAB4AAAAUAAAACQAAAAUAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABAAAAAoAAAAQAAAAIQAAADIAAABVAAAA/wAAAP8AAAD/AAAA/wMDA/8DAwP/AwMD/wMD + A//8/Pz//Pz8//z8/P/8/Pz///////////////////////////////////////////////////////// + ////////////////////////////////////////////////////////////////////////AAAA/wAA + AP8AAAD/AAAA/wcHB/8HBwf/BwcH/wcHB/8AAABVAAAAMgAAACEAAAAQAAAACgAAAAQAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAACAAAABMAAAAfAAAAOwAAAP8AAAD/AAAA/wAA + AP8DAwP/AwMD/wMDA/8DAwP//Pz8//z8/P/8/Pz//Pz8//////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/AAAAOwAAAB8AAAATAAAACAAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAQAAAALAAAAEwAA + ACUAAAD/AAAA/wAAAP8AAAD/AwMD/wMDA/8DAwP/AwMD//z8/P/8/Pz//Pz8//z8/P////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wAA + ACUAAAATAAAACwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAABQAAAAkAAAAVAAAAIAAAADoAAABTAAAAggAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/+Pj4//j4+P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA//////////////////////8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAA + AIIAAABTAAAAOgAAACAAAAAVAAAACQAAAAUAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACwAAABQAAAArAAAAQwAAAHUAAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI//j4+P/4+Pj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP//////////////////////AAAA/wAAAP8AAAD/AAAA/wYG + Bv8GBgb/BgYG/wYGBv8AAAB1AAAAQwAAACsAAAAUAAAACwAAAAQAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAYAAAANAAAAIwAA + ADsAAABvAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP/4+Pj/+Pj4//j4+P/4+Pj/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD//////////////////////wAA + AP8AAAD/AAAA/wAAAP8GBgb/BgYG/wYGBv8GBgb/AAAAbwAAADsAAAAjAAAADQAAAAYAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAFAAAACwAAACAAAAA4AAAAbAAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgICP8ICAj/+Pj4//j4 + +P/4+Pj/+Pj4/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA//// + //////////////////8AAAD/AAAA/wAAAP8AAAD/BgYG/wYGBv8GBgb/BgYG/wAAAGwAAAA4AAAAIAAA + AAsAAAAFAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAABAAAAAoAAAAeAAAANwAAAGsGBgb/BgYG/wYGBv8GBgb//f39//39 + /f/9/f3//f39/wAAAP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wkJ + Cf8JCQn/CQkJ/wkJCf8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAA + AP8AAABrAAAANwAAAB4AAAAKAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAKAAAAHgAAADcAAABrBgYG/wYG + Bv8GBgb/BgYG//39/f/9/f3//f39//39/f8AAAD/AAAA/wAAAP8AAAD/BwcH/wcHB/8HBwf/BwcH/wgI + CP8ICAj/CAgI/wgICP8JCQn/CQkJ/wkJCf8JCQn/AAAA/wAAAP8AAAD/AAAA//////////////////// + //8AAAD/AAAA/wAAAP8AAAD/AAAAawAAADcAAAAeAAAACgAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAACQAA + AB4AAAA2AAAAaQYGBv8GBgb/BgYG/wYGBv/9/f3//f39//39/f/9/f3/AAAA/wAAAP8AAAD/AAAA/wcH + B/8HBwf/BwcH/wcHB/8ICAj/CAgI/wgICP8ICAj/CQkJ/wkJCf8JCQn/CQkJ/wAAAP8AAAD/AAAA/wAA + AP//////////////////////AAAA/wAAAP8AAAD/AAAA/wAAAGkAAAA2AAAAHgAAAAkAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAwAAAAkAAAAcAAAAMwAAAGMGBgb/BgYG/wYGBv8GBgb//f39//39/f/9/f3//f39/wAA + AP8AAAD/AAAA/wAAAP8HBwf/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CAgI/wkJCf8JCQn/CQkJ/wkJ + Cf8AAAD/AAAA/wAAAP8AAAD//////////////////////wAAAP8AAAD/AAAA/wAAAP8AAABjAAAAMwAA + ABwAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAIAAAAGQAAAC4AAABZAAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8EBAT/BAQE/wQEBP8EBAT/AAAAcQAAAE8AAAA+AAAAMAAAACwAAAAqAAAAKgAA + ACwAAAAwAAAAPgAAAE8AAABxAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAA + AP8AAAD/AAAAWQAAAC4AAAAZAAAACAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAAABUAAAAmAAAASQAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8EBAT/BAQE/wAAAFQAAAA0AAAAJQAA + ABgAAAAVAAAAEwAAABMAAAAVAAAAGAAAACUAAAA0AAAAVAAAAP8AAAD/AAAA/wAAAP8ICAj/CAgI/wgI + CP8ICAj/AAAA/wAAAP8AAAD/AAAA/wAAAEkAAAAmAAAAFQAAAAYAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAUAAAAPAAAAGwAAADUAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT/BAQE/wQE + BP8AAAA5AAAAIAAAABQAAAALAAAACAAAAAYAAAAGAAAACAAAAAsAAAAUAAAAIAAAADkAAAD/AAAA/wAA + AP8AAAD/CAgI/wgICP8ICAj/CAgI/wAAAP8AAAD/AAAA/wAAAP8AAAA1AAAAGwAAAA8AAAAFAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAACQAAABEAAAAhAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wQEBP8EBAT/AAAAIwAAABMAAAALAAAABAAAAAMAAAACAAAAAgAAAAMAAAAEAAAACwAA + ABMAAAAjAAAA/wAAAP8AAAD/AAAA/wgICP8ICAj/CAgI/wgICP8AAAD/AAAA/wAAAP8AAAD/AAAAIQAA + ABEAAAAJAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAA + ACcAAAApAAAAKQAAACkAAAApAAAAJwAAACQAAAAgAAAAFwAAABEAAAAJAAAABAAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAQAAAAJAAAAEQAAABcAAAAgAAAAJAAAACcAAAApAAAAKQAAACkAAAApAAAAJwAA + ACQAAAAgAAAAFwAAABEAAAAJAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAA + AAcAAAAKAAAADgAAABAAAAARAAAAEgAAABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAA + AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABAAAAAcAAAAKAAAADgAAABAAAAARAAAAEgAA + ABIAAAASAAAAEgAAABEAAAAQAAAADgAAAAoAAAAHAAAABAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAA + AAQAAAADAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAQAAAAFAAAABQAAAAUAAAAFAAAABQAAAAUAAAAFAAAABQAAAAQAAAADAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////+AAB///////wAAD//////+AAAH/////+AAAAB + ///+AAAAAAAAf/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAA + AD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD//wAAAAAAD///A + AAAAAAP//8AAAAAAA///wAAAAAAD///4AAAAAB////wAAAAAP////AAAAAA////8AAAAAD////wAAAAA + P////AAAAAA////8AAAAAD////wAAAAAP////AA//AA////8AD/8AD////wAP/wAP////AA//AA///// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////ygAAABAAAAAgAAAAAEACAAAAAAAACAAAAAA + AAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6 + +v/8/Pz//f39//7+/v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEAAAAAAMDAwMAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAAAAAADAwMDAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQAAAAAAwMDAwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQEAAAAAAMDAwMAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDAwMCAgICAAAAAAAAAAAEBAQEDAwMDAAAAAANDQ0N + AgICAgAAAAAAAAAABAQEBAAAAAAAAAAAAAAAAAAAAAADAwMDAgICAgAAAAAAAAAABAQEBAwMDAwAAAAA + DQ0NDQICAgIAAAAAAAAAAAQEBAQAAAAAAAAAAAAAAAAAAAAAAwMDAwICAgIAAAAAAAAAAAQEBAQMDAwM + AAAAAA0NDQ0CAgICAAAAAAAAAAAEBAQEAAAAAAAAAAAAAAAAAAAAAAMDAwMCAgICAAAAAAAAAAAEBAQE + DAwMDAAAAAANDQ0NAgICAgAAAAAAAAAABAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgAAAAACAgIC + Dg4ODgMDAwMDAwMDAAAAAA8PDw8EBAQEAQEBAQoKCgoCAgICAAAAAAAAAAAAAAAAAAAAAAoKCgoAAAAA + AgICAg4ODg4DAwMDAwMDAwAAAAAPDw8PBAQEBAEBAQEKCgoKAgICAgAAAAAAAAAAAAAAAAAAAAAKCgoK + AAAAAAICAgIODg4OAwMDAwMDAwMAAAAADw8PDwQEBAQBAQEBCgoKCgICAgIAAAAAAAAAAAAAAAAAAAAA + CgoKCgAAAAACAgICDg4ODgMDAwMDAwMDAAAAAA8PDw8EBAQEAQEBAQoKCgoCAgICAAAAAAAAAAAAAAAA + BAQEBA8PDw8AAAAADw8PDw0NDQ0ODg4ODg4ODg8PDw8ODg4ODQ0NDQAAAAAPDw8PAAAAAAAAAAAAAAAA + AAAAAAQEBAQPDw8PAAAAAA8PDw8NDQ0NDg4ODg4ODg4PDw8PDg4ODg0NDQ0AAAAADw8PDwAAAAAAAAAA + AAAAAAAAAAAEBAQEDw8PDwAAAAAPDw8PDQ0NDQ4ODg4ODg4ODw8PDw4ODg4NDQ0NAAAAAA8PDw8AAAAA + AAAAAAAAAAAAAAAABAQEBA8PDw8AAAAADw8PDw0NDQ0ODg4ODg4ODg8PDw8ODg4ODQ0NDQAAAAAPDw8P + AAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKDw8PDwsLCwsJCQkJDw8PDw0NDQ0PDw8PDw8PDw4ODg4PDw8P + Dw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCg8PDw8LCwsLCQkJCQ8PDw8NDQ0NDw8PDw8PDw8ODg4O + Dw8PDw8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAoKCgoPDw8PCwsLCwkJCQkPDw8PDQ0NDQ8PDw8PDw8P + Dg4ODg8PDw8PDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgoKDw8PDwsLCwsJCQkJDw8PDw0NDQ0PDw8P + Dw8PDw4ODg4PDw8PDw8PDwAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQsLCwsPDw8PBAQEBA4ODg4PDw8P + Dw8PDwAAAAAPDw8PCgoKCgAAAAAFBQUFAAAAAAAAAAAAAAAAAQEBAQEBAQELCwsLDw8PDwQEBAQODg4O + Dw8PDw8PDw8AAAAADw8PDwoKCgoAAAAABQUFBQAAAAAAAAAAAAAAAAEBAQEBAQEBCwsLCw8PDw8EBAQE + Dg4ODg8PDw8PDw8PAAAAAA8PDw8KCgoKAAAAAAUFBQUAAAAAAAAAAAAAAAABAQEBAQEBAQsLCwsPDw8P + BAQEBA4ODg4PDw8PDw8PDwAAAAAPDw8PCgoKCgAAAAAFBQUFAAAAAAAAAAAAAAAAAAAAAAAAAAADAwMD + DAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAGBgYGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AwMDAwwMDAwPDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8AAAAABgYGBgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAMDAwMMDAwMDw8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PAAAAAAYGBgYAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAADAwMDDAwMDA8PDw8PDw8PDw8PDw8PDw8PDw8PDw8PDwAAAAAGBgYGAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAcHBwcJCQkJAAAAAAAAAAAAAAAADw8PDwAAAAAFBQUFAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAHBwcHCQkJCQAAAAAAAAAAAAAAAA8PDw8AAAAABQUFBQAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcHBwkJCQkAAAAAAAAAAAAAAAAPDw8PAAAAAAUFBQUAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcHBwcJCQkJAAAAAAAAAAAAAAAADw8PDwAAAAAFBQUF + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUNDQ0NAAAAAAYGBgYHBwcHCAgICAAAAAAPDw8P + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBQUFDQ0NDQAAAAAGBgYGBwcHBwgICAgAAAAA + Dw8PDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQ0NDQ0AAAAABgYGBgcHBwcICAgI + AAAAAA8PDw8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUFBQUNDQ0NAAAAAAYGBgYHBwcH + CAgICAAAAAAPDw8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQAAAAA + AAAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBAQE + AAAAAAAAAAAAAAAAAAAAAAcHBwcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + BAQEBAAAAAAAAAAAAAAAAAAAAAAHBwcHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAQEBAQAAAAAAAAAAAAAAAAAAAAABwcHBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////4AAH///////AAAP//////4AAAf/////4AAAAH///4AAAAAAAB//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAA + AD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wAAAAAAAA//AAAAAAAAD/8AAAAAAAAP/wA + AAAAAAA//AAAAAAAAD/8AAAAAAAAP//AAAAAAAP//8AAAAAAA///wAAAAAAD///AAAAAAAP///gAAAAA + H////AAAAAA////8AAAAAD////wAAAAAP////AAAAAA////8AAAAAD////wAAAAAP////AAAAAA////8 + AD/8AD////wAP/wAP////AA//AA////8AD/8AD////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////KAAAADAAAABgAAAAAQAgAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAAEAAAABAAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAACwAA + AAwAAAANAAAADQAAAA0AAAAOAAAADgAAAA4AAAAOAAAADQAAAA0AAAANAAAADAAAAAsAAAAHAAAAAwAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAABAAA + AAoAAAAWAAAAIwAAACkAAAAsAAAALQAAAC0AAAAuAAAALgAAAC4AAAAuAAAALQAAAC0AAAAsAAAAKQAA + ACMAAAAWAAAACgAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAwAAAAMAAAADAAAAAwAAAAMAAAAEAAAABAAA + AAQAAAAGAAAADwAAABwAAAA3AAAAUgAAAGAAAABpAAAAawAAAGsAAABsAAAAbAAAAGwAAABsAAAAawAA + AGsAAABpAAAAYAAAAFMAAAA3AAAAHAAAAA8AAAAGAAAABAAAAAQAAAAEAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAHAAAACwAAAAwAAAANAAAADQAA + AA0AAAAOAAAADgAAAA4AAAARAAAAHgAAADEAAABYAAAAfwAAAJMAAACfAAAAogAAAKIAAACjAAAAowAA + AKMAAACjAAAAogAAAKIAAACfAAAAkwAAAH8AAABYAAAAMQAAAB4AAAARAAAADgAAAA4AAAAOAAAADQAA + AA0AAAANAAAADAAAAAsAAAAHAAAAAwAAAAEAAAAAAAAAAAAAAAAAAAABAAAABAAAAAoAAAAWAAAAIwAA + ACkAAAAsAAAALQAAAC0AAAAuAAAALgAAAC4AAAAyAAAAQAAAAFYAAAC9AAAA/wAAAP8CAgL/BAQE/wQE + BP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAAAP8AAAC9AAAAVgAAAEAAAAAyAAAALgAA + AC4AAAAuAAAALQAAAC0AAAAsAAAAKQAAACMAAAAWAAAACgAAAAQAAAABAAAAAAAAAAAAAAACAAAACwAA + ABkAAAA1AAAAUQAAAGAAAABoAAAAawAAAGsAAABsAAAAbAAAAGwAAABvAAAAegAAAIwAAADVAAAA/wAA + AP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAAAP8AAADVAAAAjAAA + AHoAAABvAAAAbAAAAGwAAABsAAAAawAAAGsAAABoAAAAYAAAAFIAAAA1AAAAGQAAAAsAAAACAAAAAAAA + AAAAAAAEAAAAEQAAACYAAABRAAAAfAAAAJEAAACeAAAAogAAAKIAAACjAAAAowAAAKMAAAClAAAArAAA + ALgAAADlAAAA/wAAAP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8BAQH/AwMD/wMDA/8BAQH/AAAA/wAA + AP8AAADlAAAAuAAAAKwAAAClAAAAowAAAKMAAACjAAAAogAAAKIAAACeAAAAkQAAAHwAAABRAAAAJgAA + ABEAAAAEAAAAAAAAAAAAAAAFAAAAFwAAADIBAQGxAwMD/wMDA/8CAgL/AgIC/wICAv8BAQH/AAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8/P9+fn7/AAAA/wAAAP9+fn7//f39//39 + /f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAA + AP8AAACxAAAAMwAAABcAAAAFAAAAAAAAAAAAAAAGAAAAGgAAADkBAQG4AwMD/wMDA/8CAgL/AgIC/wIC + Av8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8/P9+fn7/AAAA/wAA + AP9+fn7//f39//39/f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQE + BP8CAgL/AAAA/wAAAP8AAAC4AAAAOQAAABoAAAAGAAAAAAAAAAEAAAAGAAAAGwAAADsBAQG6AwMD/wMD + A/8CAgL/AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP+AgID//Pz8//z8 + /P9+fn7/AAAA/wAAAP9+fn7//f39//39/f9/f3//AgIC/wICAv8BAQH/AAAA/wAAAP8AAAD/AAAA/wAA + AP8CAgL/BAQE/wQEBP8CAgL/AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAA + ADsAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAAAP8BAQH/AgIC/wICAv+AgID//v7+//7+ + /v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAAAP9/f3////////////+BgYH/BAQE/wQE + BP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wICAv8BAQG6AAAAPAAAABsAAAAGAAAAAQAA + AAEAAAAGAAAAGwAAADwAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAAAP8BAQH/AgIC/wIC + Av+AgID//v7+//7+/v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAAAP9/f3////////// + //+BgYH/BAQE/wQEBP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wICAv8BAQG6AAAAPAAA + ABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwAAAC6AAAA/wAAAP98fHz/+fn5//n5+f98fHz/AAAA/wAA + AP8BAQH/AgIC/wICAv+AgID//v7+//7+/v+AgID/AwMD/wMDA/8DAwP/AwMD/wMDA/8BAQH/AAAA/wAA + AP9/f3////////////+BgYH/BAQE/wQEBP8CAgL/AQEB/wEBAf99fX3/+fn5//n5+f99fX3/AgIC/wIC + Av8BAQG6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwBAQG6BAQE/wQEBP+BgYH///////// + //9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39/f/9/f3//v7+//7+/v/+/v7//v7+//7+ + /v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39/f9+fn7/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAAADwBAQG6BAQE/wQE + BP+BgYH///////////9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39/f/9/f3//v7+//7+ + /v/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39/f9+fn7/AAAA/wAA + AP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAAAAEAAAAGAAAAGwAA + ADwBAQG6BAQE/wQEBP+BgYH///////////9/f3//AAAA/wAAAP9/f3/////////////+/v7//f39//39 + /f/9/f3//v7+//7+/v/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//7+/v/9/f3//f39//39 + /f9+fn7/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAAABsAAAAGAAAAAQAA + AAEAAAAGAAAAGwAAADsAAAC6AAAA/wAAAP98fHz/+fn5//n5+f/8/Pz////////////8/Pz/+vr6//r6 + +v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39/f/+/v7///////////////////////// + ///+/v7//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAA + ABsAAAAGAAAAAQAAAAAAAAAGAAAAGwAAADsAAAC5AAAA/wAAAP98fHz/+fn5//n5+f/8/Pz///////// + ///8/Pz/+vr6//r6+v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39/f/+/v7///////// + ///////////////////+/v7//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAA + AP8AAAC5AAAAOwAAABsAAAAGAAAAAAAAAAAAAAAGAAAAGQAAADgAAAC3AAAA/wAAAP98fHz/+fn5//n5 + +f/8/Pz////////////8/Pz/+vr6//r6+v/5+fn/+Pj4//j4+P/7+/v////////////+/v7//f39//39 + /f/+/v7////////////////////////////+/v7//v7+//7+/v/+/v7///////////////////////// + //9/f3//AAAA/wAAAP8AAAC3AAAAOAAAABkAAAAGAAAAAAAAAAAAAAAFAAAAFgAAADEAAACvAQEB/wEB + Af8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////////+BgYH/BAQE/wQEBP+BgYH//v7+//7+ + /v/+/v7///////////////////////////9/f3//AAAA/wAAAP9/f3/////////////8/Pz/+fn5//n5 + +f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8EBASvAAAAMQAAABYAAAAFAAAAAAAAAAAAAAADAAAADwAA + ACMAAACiAQEB/wEBAf8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////////+BgYH/BAQE/wQE + BP+BgYH//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAAAP9/f3////////// + ///8/Pz/+fn5//n5+f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8EBASiAAAAIwAAAA8AAAADAAAAAAAA + AAAAAAACAAAACQAAABYAAACWAQEB/wEBAf8BAQH/AQEB/wEBAf99fX3/+vr6//r6+v/8/Pz///////// + //+BgYH/BAQE/wQEBP+BgYH//v7+//7+/v/+/v7///////////////////////////9/f3//AAAA/wAA + AP9/f3/////////////8/Pz/+fn5//n5+f98fHz/AAAA/wAAAP8DAwP/BgYG/wYGBv8FBQWWAAAAFgAA + AAkAAAACAAAAAAAAAAAAAAABAAAAAwAAAAkAAAAXAAAALgAAAEkAAAC5AAAA/wAAAP8BAQH/AwMD/wMD + A/9/f3///Pz8//z8/P/9/f3///////////////////////////////////////////////////////// + //////////////////////////////////9/f3//AAAA/wAAAP8DAwP/BwcH/wcHB/8EBAS5AAAASQAA + AC4AAAAXAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAIAAAAFgAAACkAAAClAAAA/wAA + AP8BAQH/AwMD/wMDA/9/f3///Pz8//z8/P/9/f3///////////////////////////////////////// + //////////////////////////////////////////////////9/f3//AAAA/wAAAP8DAwP/BwcH/wcH + B/8EBASlAAAAKQAAABYAAAAIAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAACwAA + ABcAAACXAAAA/wAAAP8BAQH/AwMD/wMDA/9/f3///Pz8//z8/P/9/f3///////////////////////// + //////////////////////////////////////////////////////////////////9/f3//AAAA/wAA + AP8DAwP/BwcH/wcHB/8FBQWXAAAAFwAAAAsAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAkAAAAYAAAAMwAAAFQAAADDAAAA/wAAAP8EBAT/CAgI/wgICP+AgID/+Pj4//j4 + +P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAA + AP8DAwP/BgYG/wYGBv8CAgLDAAAAVAAAADMAAAAYAAAACQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAALAAAAIQAAAEIAAAC9AAAA/wAAAP8EBAT/CAgI/wgI + CP+AgID/+Pj4//j4+P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8DAwP/BgYG/wYGBv8EBAS9AAAAQgAAACEAAAALAAAAAgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHAAAAHAAAAD0AAAC7AAAA/wAA + AP8EBAT/CAgI/wgICP+AgID/+Pj4//j4+P98fHz/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP9/f3////////////9/f3//AAAA/wAAAP8DAwP/BgYG/wYGBv8EBAS7AAAAPgAAAB0AAAAHAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAAGwAA + ADsEBAS6BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAAAP8DAwP/BwcH/wcHB/8HBwf/CAgI/wgI + CP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAAAP8AAAC6AAAAPAAA + ABsAAAAGAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAGAAAAGwAAADsEBAS5BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAAAP8DAwP/BwcH/wcH + B/8HBwf/CAgI/wgICP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////////9/f3//AAAA/wAA + AP8AAAC5AAAAOwAAABsAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAGAAAAGQAAADgEBAS2BgYG/wYGBv+BgYH//f39//39/f9+fn7/AAAA/wAA + AP8DAwP/BwcH/wcHB/8HBwf/CAgI/wgICP8ICAj/CQkJ/wkJCf8EBAT/AAAA/wAAAP9/f3////////// + //9/f3//AAAA/wAAAP8AAAC2AAAAOAAAABkAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAFgAAADAAAACvAAAA/wAAAP8AAAD/AAAA/wAA + AP8CAgL/BAQE/wQEBP8BAQG5AAAATQAAADcAAAApAAAAJQAAACUAAAApAAAANwAAAE0AAAC5AAAA/wAA + AP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAACvAAAAMQAAABYAAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAADwAAACIAAAChAAAA/wAA + AP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8DAwOkAAAAKgAAABgAAAANAAAACgAAAAoAAAANAAAAGAAA + ACoAAACkAAAA/wAAAP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAAChAAAAIgAAAA8AAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACQAA + ABYAAACVAAAA/wAAAP8AAAD/AAAA/wAAAP8CAgL/BAQE/wQEBP8DAwOVAAAAFwAAAAwAAAAEAAAAAwAA + AAMAAAAEAAAADAAAABcAAACVAAAA/wAAAP8EBAT/CAgI/wgICP8EBAT/AAAA/wAAAP8AAACVAAAAFgAA + AAkAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAwAAAAgAAAASAAAAHAAAACEAAAAkAAAAJAAAACQAAAAkAAAAIQAAABwAAAASAAAACAAA + AAMAAAABAAAAAAAAAAAAAAABAAAAAwAAAAgAAAASAAAAHAAAACEAAAAkAAAAJAAAACQAAAAkAAAAIQAA + ABwAAAASAAAACAAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABwAAAAgAAAAJAAAACQAAAAkAAAAJAAAACAAA + AAcAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAAEAAAABwAAAAgAAAAJAAAACQAA + AAkAAAAJAAAACAAAAAcAAAAEAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////wAA////////AAD///////8AAP///////wAA//////// + AAD///////8AAP///////wAA////////AAD//8AD//8AAP//AAD//wAA//4AAH//AAD8AAAAAD8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAP + AADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAP4A + AAAAfwAA/gAAAAB/AAD+AAAAAH8AAP/AAAAD/wAA/8AAAAP/AAD/wAAAA/8AAP/AAAAD/wAA/8AAAAP/ + AAD/wAAAA/8AAP/AD/AD/wAA/8AP8AP/AAD/wA/wA/8AAP///////wAA////////AAD///////8AAP// + /////wAA////////AAD///////8AAP///////wAA////////AAD///////8AACgAAAAwAAAAYAAAAAEA + CAAAAAAAABIAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wUFBf8GBgb/BwcH/wgI + CP8JCQn/fHx8/319ff9+fn7/f39//4CAgP+BgYH/goKC//j4+P/5+fn/+vr6//z8/P/9/f3//v7+//// + //8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIEBAIAAAEDAwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAIAAAEDAwEA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAIAAAEDAwEAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAIDAwICAgEAAAAAAAIEBA4UFAwAAA0VFQ0CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAID + AwMCAgEAAAAAAAIEBA4UFAwAAAwVFQ0CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAIDAwICAgEAAAAAAAIE + BA4UFAwAAA0VFQ4CAgEAAAAAAAIEBAIAAAAAAAAAAAAAAAAAAAoSEgoAAAECAg4WFg8DAwMDAwEAAA0X + Fw8EBAMBAQsSEgwCAgEAAAAAAAAAAAAAAAsSEgsAAAECAg4WFg8DAwMDAwEAAA0XFxAEBAIBAQsSEgsC + AgEAAAAAAAAAAAAAAAoSEgoAAAECAg4WFg8DAwMDAwEAAA0XFxAEBAMBAQsSEgwCAgEAAAAAAAAAAAME + BA8XFw0AAA0XFxYVFRYWFhYWFhcXFxcWFhYVFQ0AAA0XFw0AAAAAAAAAAAAAAAMEBBAXFw4AAA4XFxYV + FRYWFhYWFhYXFxYWFhUVFQwAAA0XFw0AAAAAAAAAAAAAAAMEBA8XFw0AAA4XFxYVFRYWFhYWFhcXFxcW + FhYVFQ0AAA0XFw0AAAAAAAAAAAAAAAAAAAoSEhQXFxUTExIRERQXFxYVFRYXFxcXFxcWFhcXFxcXFw0A + AAAAAAAAAAAAAAAAAAsSEhQXFxUTExIRERQXFxYVFRYXFxcXFxYWFhYXFxcXFw0AAAAAAAAAAAAAAAAA + AAoSEhQXFxUTExIRERQXFxYVFRYXFxcXFxcWFhcXFxcXFw0AAAAAAAAAAAAAAAEBAQEBAQsTExUXFw8E + BA8WFhYXFxcXFw0AAA0XFxQSEgoAAAMGBgQAAAAAAAAAAAEBAQEBAQwTExUXFxAEBA8WFhcXFxcXFw4A + AA4XFxQSEgsAAAMGBgUAAAAAAAAAAAEBAQEBAQsTExUXFw8EBA8WFhYXFxcXFw0AAA0XFxQSEgoAAAMG + BgUAAAAAAAAAAAAAAAAAAAEDAw0UFBUXFxcXFxcXFxcXFxcXFxcXFw0AAAQHBwUAAAAAAAAAAAAAAAAA + AAAAAAIDAw4UFBYXFxcXFxcXFxcXFxcXFxcXFw4AAAQHBwUAAAAAAAAAAAAAAAAAAAAAAAEDAw0UFBUX + FxcXFxcXFxcXFxcXFxcXFw0AAAQHBwYAAAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA0X + Fw0AAAMGBgQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA4XFw4AAAMGBgQAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAQICA4REQoAAAAAAAAAAA0XFw0AAAMGBgQAAAAAAAAAAAAAAAAAAAAA + AAAAAAQGBg8VFQwAAAMHBwcICAkJCQUAAA0XFw0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBhAVFQ0A + AAQHBwgICAkJCQUAAA4XFw4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQGBg8VFQwAAAMHBwcICAkJCQUA + AA0XFw0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAIEBAMAAAAAAAAAAAAAAAQICAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//////// + AAD///////8AAP///////wAA////////AAD///////8AAP///////wAA////////AAD///////8AAP// + wAP//wAA//8AAP//AAD//gAAf/8AAPwAAAAAPwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAP + AADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA8AAAAAAPAADwAAAAAA8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAA8AAPAAAAAADwAA/gAAAAB/AAD+AAAAAH8AAP4AAAAAfwAA/8AAAAP/ + AAD/wAAAA/8AAP/AAAAD/wAA/8AAAAP/AAD/wAAAA/8AAP/AAAAD/wAA/8AP8AP/AAD/wA/wA/8AAP/A + D/AD/wAA////////AAD///////8AAP///////wAA////////AAD///////8AAP///////wAA//////// + AAD///////8AAP///////wAAKAAAACAAAABAAAAAAQAgAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAAgAAAAJAAAACQAAAAoAAAAKAAAACQAAAAkAAAAIAAAABgAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAABAAAABAAAABEAAAAlAAAAMwAAADYAAAA3AAAANwAAADcAAAA3AAAANgAAADMAAAAlAAAAEQAA + AAQAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAGAAAACAAA + AAkAAAAJAAAACgAAAAoAAAATAAAANAAAAGgAAACIAAAAkgAAAJMAAACTAAAAkwAAAJMAAACSAAAAiAAA + AGgAAAA0AAAAEwAAAAoAAAAKAAAACQAAAAkAAAAIAAAABgAAAAIAAAAAAAAAAAAAAAAAAAAEAAAAEQAA + ACUAAAAzAAAANgAAADYAAAA3AAAAOAAAAEMAAABsAAAA/wAAAP8EBAT/BAQE/wAAAP8AAAD/AwMD/wMD + A/8AAAD/AAAA/wAAAGwAAABDAAAAOAAAADcAAAA2AAAANgAAADMAAAAlAAAAEQAAAAQAAAAAAAAAAQAA + AAoAAAAuAAAAZAAAAIgAAACSAAAAkwAAAJMAAACUAAAAmgAAALMAAAD/AAAA/wQEBP8EBAT/AAAA/wAA + AP8DAwP/AwMD/wAAAP8AAAD/AAAAswAAAJoAAACUAAAAkwAAAJMAAACSAAAAiAAAAGQAAAAuAAAACgAA + AAEAAAABAAAAEAAAAEYDAwP/AwMD/wICAv8CAgL/AAAA/wAAAP8AAAD/AAAA/wQEBP8EBAT//Pz8//z8 + /P8AAAD/AAAA//39/f/9/f3/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/BAQE/wQEBP8AAAD/AAAA/wAA + AEYAAAAQAAAAAQAAAAIAAAASAAAATwMDA/8DAwP/AgIC/wICAv8AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP/8/Pz//Pz8/wAAAP8AAAD//f39//39/f8CAgL/AgIC/wAAAP8AAAD/AAAA/wAAAP8EBAT/BAQE/wAA + AP8AAAD/AAAATwAAABIAAAACAAAAAgAAABMAAABQAAAA/wAAAP/5+fn/+fn5/wAAAP8AAAD/AgIC/wIC + Av/+/v7//v7+/wMDA/8DAwP/AwMD/wMDA/8AAAD/AAAA////////////BAQE/wQEBP8BAQH/AQEB//n5 + +f/5+fn/AgIC/wICAv8AAABQAAAAEwAAAAIAAAACAAAAEwAAAFAAAAD/AAAA//n5+f/5+fn/AAAA/wAA + AP8CAgL/AgIC//7+/v/+/v7/AwMD/wMDA/8DAwP/AwMD/wAAAP8AAAD///////////8EBAT/BAQE/wEB + Af8BAQH/+fn5//n5+f8CAgL/AgIC/wAAAFAAAAATAAAAAgAAAAIAAAATAAAAUAQEBP8EBAT///////// + //8AAAD/AAAA/////////////f39//39/f/+/v7//v7+//7+/v/+/v7////////////+/v7//v7+//39 + /f/9/f3/AAAA/wAAAP///////////wAAAP8AAAD/AAAAUAAAABMAAAACAAAAAgAAABMAAABQBAQE/wQE + BP///////////wAAAP8AAAD////////////9/f3//f39//7+/v/+/v7//v7+//7+/v////////////7+ + /v/+/v7//f39//39/f8AAAD/AAAA////////////AAAA/wAAAP8AAABQAAAAEwAAAAIAAAACAAAAEwAA + AFAAAAD/AAAA//n5+f/5+fn////////////6+vr/+vr6//j4+P/4+Pj////////////9/f3//f39//// + ///////////////////+/v7//v7+//////////////////////8AAAD/AAAA/wAAAFAAAAATAAAAAgAA + AAEAAAASAAAATQAAAP8AAAD/+fn5//n5+f////////////r6+v/6+vr/+Pj4//j4+P////////////39 + /f/9/f3///////////////////////7+/v/+/v7//////////////////////wAAAP8AAAD/AAAATQAA + ABIAAAABAAAAAQAAAA4AAAA/AQEB/wEBAf8BAQH/AQEB//r6+v/6+vr///////////8EBAT/BAQE//7+ + /v/+/v7//////////////////////wAAAP8AAAD////////////5+fn/+fn5/wAAAP8AAAD/BgYG/wYG + Bv8AAAA/AAAADgAAAAEAAAABAAAABwAAACMBAQH/AQEB/wEBAf8BAQH/+vr6//r6+v///////////wQE + BP8EBAT//v7+//7+/v//////////////////////AAAA/wAAAP////////////n5+f/5+fn/AAAA/wAA + AP8GBgb/BgYG/wAAACMAAAAHAAAAAQAAAAAAAAACAAAACgAAACEAAABRAAAA/wAAAP8DAwP/AwMD//z8 + /P/8/Pz/////////////////////////////////////////////////////////////////AAAA/wAA + AP8HBwf/BwcH/wAAAFEAAAAhAAAACgAAAAIAAAAAAAAAAAAAAAAAAAACAAAACgAAACUAAAD/AAAA/wMD + A/8DAwP//Pz8//z8/P////////////////////////////////////////////////////////////// + //8AAAD/AAAA/wcHB/8HBwf/AAAAJQAAAAoAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAACwAA + ACUAAABiAAAA/wAAAP8ICAj/CAgI//j4+P/4+Pj/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD///////// + //8AAAD/AAAA/wYGBv8GBgb/AAAAYgAAACUAAAALAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADAAAAFQAAAFIAAAD/AAAA/wgICP8ICAj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP///////////wAAAP8AAAD/BgYG/wYGBv8AAABSAAAAFQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAATAAAAUAYGBv8GBgb//f39//39/f8AAAD/AAAA/wcHB/8HBwf/CAgI/wgI + CP8JCQn/CQkJ/wAAAP8AAAD///////////8AAAD/AAAA/wAAAFAAAAATAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAABIAAABNBgYG/wYGBv/9/f3//f39/wAAAP8AAAD/BwcH/wcH + B/8ICAj/CAgI/wkJCf8JCQn/AAAA/wAAAP///////////wAAAP8AAAD/AAAATQAAABIAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAADgAAAD4AAAD/AAAA/wAAAP8AAAD/BAQE/wQE + BP8AAABTAAAAKgAAAB8AAAAfAAAAKgAAAFMAAAD/AAAA/wgICP8ICAj/AAAA/wAAAP8AAAA+AAAADgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAHAAAAIQAAAP8AAAD/AAAA/wAA + AP8EBAT/BAQE/wAAACQAAAALAAAABQAAAAUAAAALAAAAJAAAAP8AAAD/CAgI/wgICP8AAAD/AAAA/wAA + ACEAAAAHAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAFAAA + ABsAAAAdAAAAHQAAABsAAAAUAAAACQAAAAIAAAAAAAAAAAAAAAIAAAAJAAAAFAAAABsAAAAdAAAAHQAA + ABsAAAAUAAAACQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAACAAAAAwAAAAMAAAADAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAMAAAADAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD////////////////////////////wD///4Af/8AAAD+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAf4AAAf+AAAH/4AAH/+AAB//gAAf/4AAH/+B+B//gfgf/// + /////////////////////////////ygAAAAgAAAAQAAAAAEACAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAA + AAAAAAD/AQEB/wICAv8DAwP/BAQE/wYGBv8HBwf/CAgI/wkJCf/4+Pj/+fn5//r6+v/8/Pz//f39//7+ + /v//////AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAAADAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAABAQAAAMDAAAAAAAAAAAAAAAAAAAAAAMDAgIAAAAABAQMDAAADQ0CAgAAAAAEBAAAAAAAAAAAAwMC + AgAAAAAEBAwMAAANDQICAAAAAAQEAAAAAAAAAAAAAAoKAAACAg4OAwMDAwAADw8EBAEBCgoCAgAAAAAA + AAAACgoAAAICDg4DAwMDAAAPDwQEAQEKCgICAAAAAAAABAQPDwAADw8NDQ4ODg4PDw4ODQ0AAA8PAAAA + AAAAAAAEBA8PAAAPDw0NDg4ODg8PDg4NDQAADw8AAAAAAAAAAAAACgoPDwsLCQkPDw0NDw8PDw4ODw8P + DwAAAAAAAAAAAAAKCg8PCwsJCQ8PDQ0PDw8PDg4PDw8PAAAAAAAAAAABAQEBCwsPDwQEDg4PDw8PAAAP + DwoKAAAFBQAAAAAAAAEBAQELCw8PBAQODg8PDw8AAA8PCgoAAAUFAAAAAAAAAAAAAAMDDAwPDw8PDw8P + Dw8PDw8AAAYGAAAAAAAAAAAAAAAAAwMMDA8PDw8PDw8PDw8PDwAABgYAAAAAAAAAAAAAAAAAAAcHCQkA + AAAAAAAPDwAABQUAAAAAAAAAAAAAAAAAAAAABwcJCQAAAAAAAA8PAAAFBQAAAAAAAAAAAAAAAAAABQUN + DQAABgYHBwgIAAAPDwAAAAAAAAAAAAAAAAAAAAAFBQ0NAAAGBgcHCAgAAA8PAAAAAAAAAAAAAAAAAAAA + AAAAAAAEBAAAAAAAAAAABwcAAAAAAAAAAAAAAAAAAAAAAAAAAAQEAAAAAAAAAAAHBwAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP////////////////////////////AP///gB//wAAAP4AAAB+AAAAfgAAAH4AAAB+AA + AAfgAAAH4AAAB+AAAAfgAAAH4AAAB/gAAB/4AAAf/gAAf/4AAH/+AAB//gAAf/4H4H/+B+B///////// + ////////////////////////KAAAABgAAAAwAAAAAQAgAAAAAAAAEgAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAYAAAAGAAAABwAA + AAcAAAAGAAAABgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAIAAAAMAAAAKQAAAEEAAABDAAAARAAAAEQAAABDAAAAQQAAACkAAAAMAAAAAgAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEgAAABwAAAAdAAAAHgAAACAAAAA6AAAAvgAA + ANwCAgLfAAAA4AAAAOABAQHfAAAA3AAAAL4AAAA6AAAAIAAAAB4AAAAdAAAAHAAAABIAAAAEAAAAAAAA + AAEAAAAWAAAAUAAAAH8AAACFAAAAhgAAAIcAAACYAAAA/wAAAP8EBAT/AAAA/wAAAP8DAwP/AAAA/wAA + AP8AAACYAAAAhwAAAIYAAACFAAAAfwAAAFAAAAAWAAAAAQAAAAIAAAAmAwMD/wMDA/8CAgL/AAAA/wAA + AP8AAAD/BAQE/wQEBP/8/Pz/AAAA/wAAAP/9/f3/AgIC/wICAv8AAAD/AAAA/wAAAP8EBAT/AAAA/wAA + AP8AAAAmAAAAAgAAAAMAAAApAQEB/wEBAf99fX3/AAAA/wAAAP8BAQH/gYGB/4GBgf9/f3//AQEB/wEB + Af9+fn7/gICA/4CAgP8CAgL/AAAA/wAAAP9+fn7/AQEB/wEBAf8AAAApAAAAAwAAAAMAAAAqAAAA/wAA + AP/5+fn/AAAA/wAAAP8CAgL//v7+//7+/v8DAwP/AwMD/wMDA/8AAAD///////////8EBAT/AQEB/wEB + Af/5+fn/AgIC/wICAv8AAAAqAAAAAwAAAAMAAAAqBAQE/wQEBP//////AAAA/wAAAP///////f39//39 + /f/+/v7//v7+//7+/v///////v7+//7+/v/9/f3/AAAA/wAAAP//////AAAA/wAAAP8AAAAqAAAAAwAA + AAMAAAApAgIC/wICAv/8/Pz/f39//39/f//8/Pz/+vr6//r6+v/+/v7//f39//39/f///////v7+//7+ + /v/9/f3/f39//39/f///////AAAA/wAAAP8AAAApAAAAAwAAAAIAAAAoAAAA/wAAAP/5+fn///////// + ///6+vr/+Pj4//j4+P///////f39//39/f/////////////////+/v7/////////////////AAAA/wAA + AP8AAAAoAAAAAgAAAAIAAAAeAQEB/wEBAf8BAQH/+vr6//r6+v//////BAQE/wQEBP/+/v7///////// + ////////AAAA/wAAAP//////+fn5//n5+f8AAAD/BgYG/wYGBv8AAAAeAAAAAgAAAAAAAAAJAAAAkQAA + ALgAAAD/fn5+/35+fv/9/f3/gYGB/4GBgf/+/v7/////////////////f39//39/f///////fHx8/3x8 + fP8DAwP/BAQEuAUFBZIAAAAJAAAAAAAAAAAAAAABAAAACAAAADQAAAD/AwMD/wMDA//8/Pz///////// + ////////////////////////////////////////AAAA/wAAAP8HBwf/AAAANAAAAAgAAAABAAAAAAAA + AAAAAAAAAAAAAQAAAAwAAAA5AAAA/wAAAP8ICAj/+Pj4//j4+P8AAAD/AAAA/wAAAP8AAAD///////// + //8AAAD/BgYG/wYGBv8AAAA5AAAADAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAqAwMD/wMD + A/+CgoL/fHx8/3x8fP8DAwP/BAQE/wQEBP8EBAT/f39//39/f/9/f3//AwMD/wMDA/8AAAAqAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAoBgYG/wYGBv/9/f3/AAAA/wAAAP8HBwf/CAgI/wgI + CP8JCQn/AAAA/wAAAP//////AAAA/wAAAP8AAAAoAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAAeAAAA/wAAAP8AAAD/BAQE/wQEBP8AAAAxAAAAGQAAABkAAAAxAAAA/wAAAP8ICAj/AAAA/wAA + AP8AAAAeAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAjgAAAJYAAACXAwMDlgMD + A44AAAAJAAAAAQAAAAEAAAAJAAAAjgAAAJYGBgaXAAAAlgAAAI4AAAAJAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAAQAAAAEAAAABAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAwAA + AAQAAAAEAAAABAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wD///8A////AP///wD/AP8A8AAPAMAAAwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDAAAMA8AAPAPgAHwD4AB8A+AAfAPg8HwD4PB8A////AP///wD///8A////ACgA + AAAYAAAAMAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAD/AQEB/wICAv8DAwP/BAQE/wUF + Bf8HBwf/CAgI/wkJCf8fHx//ICAg/yEhIf8iIiL/IyMj/z4+Pv8/Pz//QEBA/0FBQf9CQkL/Q0ND/0RE + RP9eXl7/X19f/2FhYf99fX3/fn5+/39/f/+AgID/gYGB/4ODg/+dnZ3/np6e/5+fn/+hoaH/urq6/7u7 + u/+8vLz/v7+//8DAwP/5+fn/+vr6//v7+//8/Pz//f39//7+/v//////AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQIBAAIAAAAAAAAAAAAAAAAAAAAAAAAAAQQBAQMBAAAA + AAAAAAAAAAADAwIAAAADEioPDysRAgAAAQQBAAAAAAABChgJAAEXHBoLCxkbFwIBChkKAQAAAAAADicO + AQIlJQMDAgAlJgQCDycQAgAAAAADEy0QEC0sKywsLC0sLCsPEC0QAAAAAAACECogICopKSwsLC0tLCwg + IC0QAAAAAAAADicrLCgnKC0sLC0tLSwtLS0QAAAAAAABAQEkKS0TEywtLS0QEC0pIwAFBQAAAAABAQEW + HywhIS0tLS0gIC0eFQMEBQAAAAAAAAACESosLS0tLS0tLS0QAgYFAAAAAAAAAAAAAgckIgAAAAAlJQAF + BQAAAAAAAAAAAAADDR0ZFQQEBAUXGhoMAwAAAAAAAAAAAAAFFCsPAgYHBwgCEC0QAAAAAAAAAAAAAAAA + AAADBAAAAAAAAgcCAAAAAAAAAAAAAAAAAAADAwAAAAAAAgYCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP8A/wDwAA8AwAADAMAAAwDAAAMAwAADAMAA + AwDAAAMAwAADAMAAAwDwAA8A+AAfAPgAHwD4AB8A+DwfAPg8HwD///8A////AP///wD///8AKAAAABAA + AAAgAAAAAQAgAAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAIAAAADAAAABAAAAAQAAAADAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAADAAAABAAA + AAYAAAA3AAAAaQAAAGwAAABsAAAAaQAAADcAAAAGAAAABAAAAAMAAAACAAAAAAAAAAIAAAA1AAAAaAAA + AGwAAABvAAAA1QICAv8CAgL/AQEB/wEBAf8AAADVAAAAbwAAAGwAAABoAAAANQAAAAIAAAAGAQEBuAIC + Av8BAQH/AAAA/wICAv+AgID/fn5+/35+fv9/f3//AQEB/wAAAP8CAgL/AgIC/wAAALgAAAAGAAAABgAA + ALp8fHz/fHx8/wEBAf+AgID/gICA/wMDA/8BAQH/f39//4GBgf8CAgL/fX19/319ff8BAQG6AAAABgAA + AAYBAQG6gYGB/39/f/9/f3///v7+//39/f/+/v7//v7+//7+/v/9/f3/fn5+/39/f/9/f3//AAAAugAA + AAYAAAAGAAAAuXx8fP/8/Pz//Pz8//n5+f/7+/v//v7+//7+/v///////v7+//7+/v//////f39//wAA + ALkAAAAGAAAAAwAAAKIBAQH/fX19//z8/P+BgYH/gYGB//7+/v//////f39//39/f//8/Pz/fHx8/wMD + A/8EBASiAAAAAwAAAAAAAAAIAAAApQEBAf9/f3///f39////////////////////////////f39//wMD + A/8EBASlAAAACAAAAAAAAAAAAAAAAAAAAAsAAAC9BAQE/4CAgP98fHz/AAAA/wAAAP9/f3//f39//wMD + A/8EBAS9AAAACwAAAAAAAAAAAAAAAAAAAAAAAAAGBAQEuYGBgf9+fn7/AwMD/wcHB/8ICAj/BAQE/39/ + f/9/f3//AAAAuQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAKEAAAD/AgIC/wMDA6QAAAANAAAADQAA + AKQEBAT/BAQE/wAAAKEAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACQAAAAkAAAAEAAAAAAAA + AAAAAAAEAAAACQAAAAkAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAA//8AAP//AAD4HwAAgAEAAIAB + AACAAQAAgAEAAIABAADAAwAA4AcAAOAHAADhhwAA//8AAP//AAD//wAAKAAAABAAAAAgAAAAAQAIAAAA + AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAP8BAQH/AgIC/wMDA/8EBAT/BQUF/wYGBv8ICAj/CQkJ/3x8 + fP99fX3/fn5+/39/f/+AgID/gYGB/4KCgv/5+fn//Pz8//39/f/+/v7//////wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAACAgICAAAAAAAAAAIDAQACDQsMDQEAAgIAAAAACgoBDQ4DAg0PAwoL + AgAAAw8NDRMTExQUEwwNDQAAAAAKERIQERMTFBQUFA0AAAABAQsSDw4UFA0NEQoDBQAAAAACDRMUFBQU + FA0EBgAAAAAAAAQNCQAADQ0DBAAAAAAAAAUPDAQHCAUNDQAAAAAAAAAAAAIDAAAABAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP//AAD//wAA+B8AAIAB + AACAAQAAgAEAAIABAACAAQAAwAMAAOAHAADgBwAA4YcAAP//AAD//wAA//8AAA== + + + + 253, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Main.vb b/Metropolis_Launcher/Forms/frm_Main.vb new file mode 100644 index 0000000..3ba90f9 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Main.vb @@ -0,0 +1,597 @@ +Imports DevExpress.XtraBars.Docking2010.Views +Imports DevExpress.XtraBars.Docking2010.Views.WindowsUI + +Public Class frm_Main + Private WithEvents _ucr_Settings As ucr_Settings + Private WithEvents _ucr_Apps As ucr_Apps + Private WithEvents _ucr_Emulation As ucr_Emulation + + Private WithEvents _ucr_Todo As ucr_Todo + + Private _ucr_Settings_Reload As Boolean = False + Private _ucr_Apps_Reload As Boolean = False + Private _ucr_Emulation_Reload As Boolean = False + Private _ucr_Todo_Reload As Boolean = False + + 'Private WithEvents btn_About As New DevExpress.XtraBars.Docking2010.WindowsUIButton + + Private _Immediate_Close As Boolean = False + + Private WithEvents btn_About As New DevExpress.XtraBars.Docking2010.WindowsUIButton + Private WithEvents btn_Help As New DevExpress.XtraBars.Docking2010.WindowsUIButton + Private WithEvents btn_Logout As New DevExpress.XtraBars.Docking2010.WindowsUIButton + + Public Sub New() + If Alphaleonis.Win32.Filesystem.File.Exists(System.Windows.Forms.Application.StartupPath & "\log.me") Then cls_Globals.Logging = True + If Alphaleonis.Win32.Filesystem.File.Exists(System.Windows.Forms.Application.StartupPath & "\debug.me") Then MsgBox("Attach Debugger now...") + + cls_Globals.AddLog("", False) + cls_Globals.AddLog("Metropolis Launcher started") + + InitializeComponent() + + cls_Globals.AddLog("frm_Main.InitializeComponent run") + + ' Initialize global help + Dim sResfile As String = My.Resources.helpmap + Dim xmlContent As New Xml.XmlDocument + xmlContent.LoadXml(sResfile) + +#If DEBUG Then + MKNetLib.cls_MKHelp.InitHelp(xmlContent, System.Windows.Forms.Application.StartupPath & "\helpmap.xml", True) +#Else + MKNetLib.cls_MKHelp.InitHelp(xmlContent, System.Windows.Forms.Application.StartupPath & "\helpmap.xml", False) +#End If + + DevExpress.Skins.SkinManager.EnableFormSkins() + DevExpress.UserSkins.BonusSkins.Register() + + MKNetDXLib.frm_MKDXBaseForm.Default_Form_Icon = Me.Icon + DevExpress.Utils.ToolTipController.DefaultController.AutoPopDelay = 20000 + + Dim aboutAction As DelegateAction = New DelegateAction(AddressOf CanShowAbout, AddressOf ShowAbout) + aboutAction.Caption = "About" + aboutAction.Type = ActionType.Navigation + aboutAction.Edge = ActionEdge.Right + aboutAction.Behavior = ActionBehavior.HideBarOnClick + 'MetroUIView.ContentContainerActions.Add(aboutAction) + + Dim helpAction As DelegateAction = New DelegateAction(AddressOf CanShowHelp, AddressOf ShowHelp) + helpAction.Caption = "Help" + helpAction.Type = ActionType.Navigation + helpAction.Edge = ActionEdge.Right + helpAction.Behavior = ActionBehavior.HideBarOnClick + 'MetroUIView.ContentContainerActions.Add(helpAction) + + Dim logoutAction As DelegateAction = New DelegateAction(AddressOf CanShowLogOut, AddressOf LogOut) + logoutAction.Caption = "Log out" + logoutAction.Type = ActionType.Navigation + logoutAction.Edge = ActionEdge.Right + logoutAction.Behavior = ActionBehavior.HideBarOnClick + 'MetroUIView.ContentContainerActions.Add(logoutAction) + + btn_About = New DevExpress.XtraBars.Docking2010.WindowsUIButton + btn_About.ImageUri = "Show" + btn_About.Caption = "About" + + btn_Help = New DevExpress.XtraBars.Docking2010.WindowsUIButton + btn_Help.ImageUri = "Zoom" + btn_Help.Caption = "Help" + + btn_Logout = New DevExpress.XtraBars.Docking2010.WindowsUIButton + btn_Logout.ImageUri = "Reset" + btn_Logout.Caption = "Log out" + + tilecontainer_Main.Buttons.AddRange({btn_Logout, btn_Help, btn_About}) + End Sub + + Private Function CanShowAbout() As Boolean + Return True + End Function + + Private Function CanShowHelp() As Boolean + Return True + End Function + + Private Function CanShowLogOut() As Boolean + Return cls_Globals.MultiUserMode + End Function + + Private Sub ShowAbout() + Using frm As New frm_About + frm.ShowDialog(Me) + End Using + End Sub + + Private Sub ShowHelp() + MKNetLib.cls_MKHelp.ShowHelp() + End Sub + + Private Sub LogOut() + Me.MetroUIView.Controller.Activate(tilecontainer_Main) + + 'If Me._ucr_Apps IsNot Nothing Then + ' Me._ucr_Apps.Dispose() + ' Me._ucr_Apps = Nothing + 'End If + + 'If Me._ucr_Emulation IsNot Nothing Then + ' Me._ucr_Emulation.Dispose() + ' Me._ucr_Emulation = Nothing + 'End If + + 'If Me._ucr_Settings IsNot Nothing Then + ' Me._ucr_Settings.Dispose() + ' Me._ucr_Settings = Nothing + 'End If + + 'If Me._ucr_Todo IsNot Nothing Then + ' Me._ucr_Todo.Dispose() + ' Me._ucr_Todo = Nothing + 'End If + + _ucr_Apps_Reload = True + _ucr_Emulation_Reload = True + _ucr_Settings_Reload = True + _ucr_Todo_Reload = True + + Me.frm_Main_Load(Me, New System.EventArgs) + Me.frm_Main_Shown(Me, New System.EventArgs) + + If Me.IsDisposed Then Return + + MetroUIView.ReleaseDeferredLoadControls(False) + End Sub + + Private Sub btn_About_Click(sender As Object, e As EventArgs) Handles btn_About.Click + ShowAbout() + End Sub + + Private Sub btn_Help_Click(sender As Object, e As EventArgs) Handles btn_Help.Click + ShowHelp() + End Sub + + Private Sub btn_Logout_Click(sender As Object, e As EventArgs) Handles btn_Logout.Click + LogOut() + End Sub + + + + Private Sub frm_Main_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed + If _Immediate_Close Then + Return + End If + + Try + If TC.NZ(cls_Settings.GetSetting("Stats_Enabled", cls_Settings.enm_Settingmodes.Per_User), True) Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Insert_tbl_History(tran, cls_Globals.StartupTime, DateTime.Now()) + tran.Commit() + End Using + + End If + Catch ex As Exception + + End Try + + Try + Dim numLaunches As Integer = TC.NZ(cls_Settings.GetSetting("LaunchCounter_BackupRotation"), 0) + Dim backupDir As String = cls_Globals.BackupsDir(Nothing) + Dim backupFrequency As Integer = TC.NZ(cls_Settings.GetSetting("Backup_Frequency", cls_Settings.enm_Settingmodes.Same_for_All), 5) + Dim backupRetention As Integer = TC.NZ(cls_Settings.GetSetting("Backup_Retention", cls_Settings.enm_Settingmodes.Same_for_All), 3) + Dim currentSkin As String = cls_Skins.GetCurrentSkinname(Nothing) + + Dim doBackup As Boolean = False + + If Alphaleonis.Win32.Filesystem.Directory.Exists(backupDir) Then + doBackup = True + End If + + If doBackup AndAlso backupFrequency = 0 Then + cls_Settings.SetSetting("LaunchCounter_BackupRotation", 0) + doBackup = False + End If + + If doBackup AndAlso numLaunches >= backupFrequency Then + cls_Settings.SetSetting("LaunchCounter_BackupRotation", 0) + Else + doBackup = False + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(System.Windows.Forms.Application.StartupPath & "\ml.db") Then + doBackup = False + End If + + If doBackup Then + cls_Globals.Conn.Close() + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(currentSkin, 400, 100, ProgressBarStyle.Marquee, False, "Please wait - backup in progress ...", 0, 0, False) + + prg.Start() + + Dim targetfilename = "ml_backup_" & DateTime.Now.ToString("ddMMyyyy_HHmmss") & ".zip" + Dim targetfullpath = backupDir & "\" & targetfilename + + Try + Dim al_Files As New ArrayList + al_Files.Add(System.Windows.Forms.Application.StartupPath & "\ml.db") + + Dim ci As New SharpCompress.Common.CompressionInfo() + ci.DeflateCompressionLevel = SharpCompress.Compressor.Deflate.CompressionLevel.BestSpeed + ci.Type = SharpCompress.Common.CompressionType.Deflate + + Using zip As IO.Stream = IO.File.OpenWrite(targetfullpath) + Using zipwriter As SharpCompress.Writer.IWriter = SharpCompress.Writer.WriterFactory.Open(zip, SharpCompress.Common.ArchiveType.Zip, ci) + + For Each yyy As String In al_Files + Dim xxx As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(yyy) + Dim filenamewithoutextention As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(yyy) + + Using fs As New System.IO.FileStream(yyy, IO.FileMode.Open) + zipwriter.Write(xxx, fs, Nothing) + End Using + Next + End Using + End Using + + prg.Close() + Catch ex As Exception + prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show("Error while creating " & targetfullpath & "." & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Creating Backup", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + + Try + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(currentSkin, 400, 100, ProgressBarStyle.Marquee, False, "Please wait - cleanup in progress ...", 0, 0, False) + + prg.Start() + + Dim files As IOrderedEnumerable(Of String) = Alphaleonis.Win32.Filesystem.Directory.GetFiles(backupDir, "*.zip").OrderBy(Function(f) f) + If files.Count > backupRetention Then + For i As Integer = 0 To files.Count - backupRetention - 1 + Alphaleonis.Win32.Filesystem.File.Delete(files(i)) + Next + End If + + prg.Close() + Catch ex As Exception + prg.Close() + + DevExpress.XtraEditors.XtraMessageBox.Show("Error while cleaning up:" & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Cleanup Backupdirectory", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + + Try + cls_Globals.Conn.Open() + Catch ex As Exception + + End Try + End If + Catch ex As Exception + + End Try + End Sub + + Private Function Open_DB() As Boolean + Dim bInitialStartup As Boolean = False + + Dim mldb_file As String = System.Windows.Forms.Application.StartupPath & "\ml.db" + Dim mldb_initial_file As String = System.Windows.Forms.Application.StartupPath & "\ml.db_initial" + Dim mobydb_file As String = System.Windows.Forms.Application.StartupPath & "\moby.db" + Dim rombasedb_file As String = System.Windows.Forms.Application.StartupPath & "\rombase.db" + + If Not Alphaleonis.Win32.Filesystem.File.Exists(mldb_file) Then + bInitialStartup = True + + If Alphaleonis.Win32.Filesystem.File.Exists(mldb_initial_file) Then + DevExpress.XtraEditors.XtraMessageBox.Show("Hi! This is your first time starting Metropolis Launcher. The main database (ml.db) will be initialized now.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Try + Alphaleonis.Win32.Filesystem.File.Copy(mldb_initial_file, mldb_file) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Something went wrong while copying ml.db_initial to ml.db, if you installed Metropolis Launcher under C:\Program Files please choose a different location." & ControlChars.CrLf & ControlChars.CrLf & "The error was: " & ex.Message, "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End Try + Else + DevExpress.XtraEditors.XtraMessageBox.Show("Hi! This is your first time starting Metropolis Launcher, but the initial database cannot be found (ml.db_initial). Please get it together with all the other neccessary database files from the Metropolis Launcher database pack over at http://emulation-evolved.net.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(mldb_file) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The main database file cannot be found (ml.db), please download and extract the Metropolis Launcher database pack over at http://emulation-evolved.net.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(mobydb_file) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The Moby Games database file cannot be found (moby.db), please download and extract the Metropolis Launcher database pack over at http://emulation-evolved.net.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(rombasedb_file) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The Rombase database file cannot be found (rombase.db), please download and extract the Metropolis Launcher database pack over at http://emulation-evolved.net.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Try + Dim str As New SQLite.SQLiteConnectionStringBuilder() + str.DataSource = mldb_file + + cls_Globals.Conn = New SQLite.SQLiteConnection(str.ConnectionString) + + Try + Dim oRes As Object = MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT name FROM SQLITE_MASTER where type='table'") + cls_Globals.Conn.Open() + Catch ex As Exception + Debug.WriteLine(ex.Message) + End Try + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedure(cls_Globals.Conn, 0, "ATTACH 'moby.db' AS 'moby'", Nothing) + MKNetLib.cls_MKSQLiteDataAccess.FireProcedure(cls_Globals.Conn, 0, "ATTACH 'rombase.db' AS 'rombase'", Nothing) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("An error occured while opening the database connection, Metropolis Launcher will be closed now." & ControlChars.CrLf & ControlChars.CrLf & "The error was: " & ex.Message, "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End Try + + If bInitialStartup Then + DevExpress.XtraEditors.XtraMessageBox.Show("Initialization of the databases was successful.", "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + cls_Settings.SetSetting("LaunchCounter", TC.NZ(cls_Settings.GetSetting("LaunchCounter"), 0) + 1) + cls_Settings.SetSetting("LaunchCounter_BackupRotation", TC.NZ(cls_Settings.GetSetting("LaunchCounter_BackupRotation"), 0) + 1) + + Return True + End Function + + Private Sub frm_Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Show Error Messages from SQLite Module + MKNetLib.cls_MKSQLiteDataAccess.ShowErrorMessages = True + + 'Load Bonus Skins Assembly + MKNetDXLib.cls_MKDXSkin.Load_Bonus_Skin() + + If Not Me.Open_DB() Then + _Immediate_Close = True + Me.Close() + Return + End If + + 'Multi User Mode + DataAccess.ShowErrorMessages = False + cls_Globals.MultiUserMode = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_Users"), 0) <> 0 + DataAccess.ShowErrorMessages = True + + 'Apply Settings to the current runtime instance + cls_Settings.Apply_Settings() + + If cls_Globals.MultiUserMode Then + Using frm As New frm_Login + If frm.ShowDialog(Me) = DialogResult.Cancel Then + Me.Close() + Else + Me.Text = "Metropolis Launcher - " & frm.BS_Users.Current("Username") & IIf(cls_Globals.Restricted, " (Restricted)", "") + + 'Apply Settings for the logged in user + cls_Settings.Apply_Settings() + End If + End Using + End If + + btn_Logout.Visible = cls_Globals.MultiUserMode + End Sub + + Private Sub MetroUIView_DocumentDeactivated(ByVal sender As Object, ByVal e As DevExpress.XtraBars.Docking2010.Views.DocumentEventArgs) Handles MetroUIView.DocumentDeactivated + If e.Document Is doc_Settings Then + 'Settings speichern + Me._ucr_Settings.Save_Settings() + End If + + btn_Logout.Visible = cls_Globals.MultiUserMode + End Sub + + Private Sub MetroUIView_QueryControl(ByVal sender As Object, ByVal e As DevExpress.XtraBars.Docking2010.Views.QueryControlEventArgs) Handles MetroUIView.QueryControl + If e.Document Is doc_Settings Then + _ucr_Settings = New ucr_Settings() + _ucr_Settings.Set_Controls_Enable() + e.Control = _ucr_Settings + _ucr_Settings.Focus() + End If + + If e.Document Is doc_Apps Then + _ucr_Apps = New ucr_Apps() + e.Control = _ucr_Apps + _ucr_Apps.Focus() + End If + + If e.Document Is doc_Cinema Then + _ucr_Todo_Reload = False + _ucr_Todo = New ucr_Todo + e.Control = _ucr_Todo + _ucr_Todo.Focus() + End If + + 'If e.Document Is doc_TV Then + ' _ucr_Todo = New ucr_Todo + + ' e.Control = _ucr_Todo + ' _ucr_Todo.Focus() + 'End If + + If e.Document Is doc_Emulation Then + _ucr_Emulation_Reload = False + _ucr_Emulation = New ucr_Emulation + e.Control = _ucr_Emulation + _ucr_Emulation.Focus() + End If + End Sub + + Private Sub MetroUIView_NavigationBarsShowing(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.Docking2010.Views.WindowsUI.NavigationBarsCancelEventArgs) Handles MetroUIView.NavigationBarsShowing + If cls_Globals.Suppress_MetroUINavigationBarsShowing Then + e.Cancel = True + cls_Globals.Suppress_MetroUINavigationBarsShowing = False + End If + End Sub + + Private Sub Handle_Hide() Handles _ucr_Apps.E_Hide, _ucr_Emulation.E_Hide + Me.Hide() + End Sub + + Private Sub Handle_Show() Handles _ucr_Apps.E_Show, _ucr_Emulation.E_Show + Me.Show() + End Sub + + Private Sub frm_Main_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If Me.IsDisposed Then Return + + 'Run DB Sync + Dim blacklist As MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem() = {New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("created", "*"), + New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("updated", "*"), + New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("Sort", "tbl_Emu_Extras"), + New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("Hide", "tbl_Emu_Extras"), + New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("Weight", "tbl_Emu_Games_Rating_Weights")} + Dim dbsync As New MKNetLib.cls_MKSQLiteDBSync(System.Windows.Forms.Application.StartupPath & "\ml.db_initial", System.Windows.Forms.Application.StartupPath & "\ml.db", 7, blacklist) + + Try + dbsync.DoSync() + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Error while synchronizing databases:" & ControlChars.CrLf & dbsync._SyncLog, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + _Immediate_Close = True + Me.Close() + Return + End Try + + 'Database Updates + Dim sLastRunHost As String = TC.NZ(cls_Settings.GetSetting("LastRunHost"), "") + + Dim DS As New MKNetDXLib.DS_SQLite_DBUpdater + + If sLastRunHost <> System.Environment.MachineName Then + 'ML has lately been run on a different host -> run update scripts for all hosts and for the current host + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT Sort AS Version, Script FROM tbl_Startup_Scripts WHERE HostName IS NULL OR HostName = '" & System.Environment.MachineName & "' ORDER BY Sort", DS.tbl_DBUpdates) + Else + 'ML has lately been run on the same host -> run update scripts only for all hosts + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT Sort AS Version, Script FROM tbl_Startup_Scripts WHERE HostName IS NULL ORDER BY Sort", DS.tbl_DBUpdates) + End If + + Try + Dim sSQL As String = "" + sSQL &= "-- ML DB" & ControlChars.CrLf + sSQL &= "CREATE UNIQUE INDEX IF NOT EXISTS main.IDX_tbl_Settings_Key ON tbl_Settings (Key)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Hidden ON tbl_Emu_Games (Hidden)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_id_Emu_Games_Owner ON tbl_Emu_Games (id_Emu_Games_Owner)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_id_Moby_Platforms ON tbl_Emu_Games (id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Volume_Number ON tbl_Emu_Games (Volume_Number)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Alternate_Titles_id_Emu_Games ON tbl_Emu_Games_Alternate_Titles (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Moby_Genres_id_Emu_Games ON tbl_Emu_Games_Moby_Genres (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Moby_Genres_Used ON tbl_Emu_Games_Moby_Genres (Used)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Moby_Attributes_id_Emu_Games ON tbl_Emu_Games_Moby_Attributes (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Moby_Attributes_Used ON tbl_Emu_Games_Moby_Attributes (Used)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Languages_id_Emu_Games ON tbl_Emu_Games_Languages (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Regions_id_Emu_Games ON tbl_Emu_Games_Regions (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_History_id_Emu_Games ON tbl_History (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_History_Start ON tbl_History (Start)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Tag_Parser_Content ON tbl_Tag_Parser (Content)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emulators_Moby_Platforms_id_Moby_Platforms ON tbl_Emulators_Moby_Platforms (id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_ControlSettings_ControlID ON tbl_ControlSettings (ControlID)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_ControlSettings_SettingID ON tbl_ControlSettings (SettingID)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_ControlSettings_id_Users ON tbl_ControlSettings (id_Users)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Moby_Platforms_Settings_id_Moby_Platforms ON tbl_Moby_Platforms_Settings (id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Moby_Platforms_Settings_Visible ON tbl_Moby_Platforms_Settings (Visible)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Users_Emu_Games_id_Users ON tbl_Users_Emu_Games (id_Users)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Users_Emu_Games_id_Emu_Games ON tbl_Users_Emu_Games (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Similarity_Calculation_Results_Entries_id_Emu_Games ON tbl_Similarity_Calculation_Results_Entries (id_Emu_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Similarity_Calculation_Results_Entries_id_Moby_Releases ON tbl_Similarity_Calculation_Results_Entries (id_Moby_Releases)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Similarity_Calculation_Results_Entries_id_Similarity_Calculation_Results ON tbl_Similarity_Calculation_Results_Entries (id_Similarity_Calculation_Results)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Mame_Roms_name ON tbl_Mame_Roms (name)" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Moby DB" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Attribtues_id_Moby_Attributes ON tbl_Moby_Attributes (id_Moby_Attributes)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Attributes_Categories_id_Moby_Attributes_Categories ON tbl_Moby_Attributes_Categories (id_Moby_Attributes_Categories)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Companies_id_Moby_Companies ON tbl_Moby_Companies (id_Moby_Companies)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_id_Moby_Games ON tbl_Moby_Games (id_Moby_Games)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_Alternate_Titles_id_Moby_Games_Alternate_Titles ON tbl_Moby_Games_Alternate_Titles (id_Moby_Games_Alternate_Titles)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_Genres_id_Moby_Games_Genres ON tbl_Moby_Games_Genres (id_Moby_Games_Genres)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Genres ON tbl_Moby_Genres (id_Moby_Genres)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Platforms_id_Moby_Platforms ON tbl_Moby_Platforms (id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_id_Moby_Releases ON tbl_Moby_Releases (id_Moby_Releases)" & ControlChars.CrLf + sSQL &= "; CREATE UNIQUE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_Attributes_id_Moby_Releases_Attributes ON tbl_Moby_Releases_Attributes (id_Moby_Releases_Attributes)" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Moby DB - Foreign Keys" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Game_Groups_Moby_Releases_id_Moby_Game_Groups ON tbl_Moby_Game_Groups_Moby_Releases (id_Moby_Game_Groups)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Game_Groups_Moby_Releases_id_Moby_Releases ON tbl_Moby_Game_Groups_Moby_Releases (id_Moby_Releases)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_Attributes_id_Moby_Attributes ON tbl_Moby_Releases_Attributes (id_Moby_Attributes)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_Staff_id_Moby_Releases ON tbl_Moby_Releases_Staff (id_Moby_Releases)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_Staff_id_Moby_Staff ON tbl_Moby_Releases_Staff (id_Moby_Staff)" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Rombase DB" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_size ON tbl_Rombase (size)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_crc ON tbl_Rombase (crc)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_md5 ON tbl_Rombase (md5)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_sha1 ON tbl_Rombase (sha1)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_id_Moby_Platforms ON tbl_Rombase (id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_id_Rombase_Owner ON tbl_Rombase (id_Rombase_Owner)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_CustomIdentifier ON tbl_Rombase (CustomIdentifier)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS rombase.IDX_tbl_Rombase_Mapping_Identifier ON tbl_Rombase (Mapping_Identifier)" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Main Query Optimization" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_Attributes_id_Moby_Releases ON tbl_Moby_Releases_Attributes (id_Moby_Releases)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Attributes_Rating_Age_From ON tbl_Moby_Attributes (Rating_Age_From)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_Alternate_Titles_id_Moby_Games ON tbl_Moby_Games_Alternate_Titles (id_Moby_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_Genres_id_Moby_Games ON tbl_Moby_Games_Genres (id_Moby_Games)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_Genres_id_Moby_Genres ON tbl_Moby_Games_Genres (id_Moby_Genres)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Genres ON tbl_Moby_Genres (id_Moby_Genres)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Basic_Genres ON tbl_Moby_Genres (Basic_Genres)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Perspectives ON tbl_Moby_Genres (Perspectives)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Non_Sports_Themes ON tbl_Moby_Genres (Non_Sports_Themes)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Sports_Themes ON tbl_Moby_Genres (Sports_Themes)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Educational_Categories ON tbl_Moby_Genres (Educational_Categories)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Genres_id_Moby_Other_Attributes ON tbl_Moby_Genres (Other_Attributes)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Games_URLPart ON tbl_Moby_Games (URLPart)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS moby.IDX_tbl_Moby_Releases_id_Moby_Games_id_Moby_Platforms ON tbl_Moby_Releases (id_Moby_Games, id_Moby_Platforms)" & ControlChars.CrLf + sSQL &= "" & ControlChars.CrLf + sSQL &= "-- Rom Manager Optimization" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_File ON tbl_Emu_Games (File)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_Folder ON tbl_Emu_Games (Folder)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_InnerFile ON tbl_Emu_Games (InnerFile)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_CRC32 ON tbl_Emu_Games (CRC32)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_SHA1 ON tbl_Emu_Games (SHA1)" & ControlChars.CrLf + sSQL &= "; CREATE INDEX IF NOT EXISTS main.IDX_tbl_Emu_Games_MD5 ON tbl_Emu_Games (MD5)" & ControlChars.CrLf + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("An error occured while updating indexes on the database." & ControlChars.CrLf & ControlChars.CrLf & "The error was: " & ex.Message, "Metropolis Launcher", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + + Using frm As New MKNetDXLib.frm_SQLite_DBUpdater(cls_Globals.Conn, DS, AddressOf Application.DoEvents) + frm.ShowDialog(Me) + End Using + + cls_Settings.SetSetting("LastRunHost", System.Environment.MachineName) + + 'Migrate new DOSBox Profiles from Rombase + DS_ML.Migrate_Rombase_DOSBox_Configs(cls_Globals.Conn) + +#If PreRelease Then + DevExpress.XtraEditors.XtraMessageBox.Show("Hi, you are using this PreRelease of Metropolis Launcher, because you agreed in helping the project or have otherwise been deemed worthy." & ControlChars.CrLf & ControlChars.CrLf & "This is build " & Alphaleonis.Win32.Filesystem.File.GetLastWriteTime(System.Reflection.Assembly.GetEntryAssembly().Location).ToString("yyyyMMdd-HHmmss") & ControlChars.CrLf & ControlChars.CrLf & "PLEASE DO NOT REDISTRIBUTE - The final version will be released as freeware when it's done.", "Metropolis Launcher PreRelease") +#End If + + Me.tile_Apps.Enabled = True + Me.tile_Cinema.Enabled = True + Me.tile_Emulation.Enabled = True + Me.tile_Settings.Enabled = True + + Me.tilecontainer_Main.Subtitle = "" + End Sub + + Private Sub _ucr_Settings_E_Rom_Manager_Changed() Handles _ucr_Settings.E_Rom_Manager_Changed + If _ucr_Emulation IsNot Nothing Then + _ucr_Emulation.Refill_Emu_Games() + End If + End Sub + + Private Sub MetroUIView_ControlReleasing(sender As Object, e As ControlReleasingEventArgs) Handles MetroUIView.ControlReleasing + + End Sub + + Private Sub frm_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Mame_Config.Designer.vb b/Metropolis_Launcher/Forms/frm_Mame_Config.Designer.vb new file mode 100644 index 0000000..24ea949 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Mame_Config.Designer.vb @@ -0,0 +1,439 @@ + _ +Partial Class frm_Mame_Config + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Mame_Config)) + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.lbl_MameExe = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_MameExe = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_Mame_Exe = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Mame_Version = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Mame_Version_Detected = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Scan = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_history_dat = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_history_dat = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_history_dat = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_mameinfo_dat = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_mameinfo_dat = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_mameinfo_dat = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_ini_Folder_Import = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Ini = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_AutoImport = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Note = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Note_Content = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.txb_MameExe.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_history_dat.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_mameinfo_dat.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_AutoImport.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_MameExe + ' + Me.lbl_MameExe.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_MameExe.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MameExe.Location = New System.Drawing.Point(3, 3) + Me.lbl_MameExe.MKBoundControl1 = Nothing + Me.lbl_MameExe.MKBoundControl2 = Nothing + Me.lbl_MameExe.MKBoundControl3 = Nothing + Me.lbl_MameExe.MKBoundControl4 = Nothing + Me.lbl_MameExe.MKBoundControl5 = Nothing + Me.lbl_MameExe.Name = "lbl_MameExe" + Me.lbl_MameExe.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem1.Text = "Mame Executable" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Enter the full path to your mame.exe or mame64.exe here." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_MameExe.SuperTip = SuperToolTip1 + Me.lbl_MameExe.TabIndex = 1 + Me.lbl_MameExe.Text = "M.A.M.E. Executable:" + ' + 'txb_MameExe + ' + Me.txb_MameExe.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_MameExe.Location = New System.Drawing.Point(130, 3) + Me.txb_MameExe.MKBoundLabel = Nothing + Me.txb_MameExe.MKEditValue_Compare = Nothing + Me.txb_MameExe.Name = "txb_MameExe" + Me.txb_MameExe.Size = New System.Drawing.Size(361, 20) + ToolTipTitleItem2.Text = "Mame Executable" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Enter the full path to your mame.exe or mame64.exe here." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.txb_MameExe.SuperTip = SuperToolTip2 + Me.txb_MameExe.TabIndex = 0 + ' + 'btn_Mame_Exe + ' + Me.btn_Mame_Exe.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Mame_Exe.Location = New System.Drawing.Point(494, 3) + Me.btn_Mame_Exe.Name = "btn_Mame_Exe" + Me.btn_Mame_Exe.Size = New System.Drawing.Size(27, 20) + ToolTipTitleItem3.Text = "Browse the M.A.M.E. executable" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + Me.btn_Mame_Exe.SuperTip = SuperToolTip3 + Me.btn_Mame_Exe.TabIndex = 1 + Me.btn_Mame_Exe.Text = "..." + ' + 'lbl_Mame_Version + ' + Me.lbl_Mame_Version.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Mame_Version.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Mame_Version.Location = New System.Drawing.Point(3, 26) + Me.lbl_Mame_Version.MKBoundControl1 = Nothing + Me.lbl_Mame_Version.MKBoundControl2 = Nothing + Me.lbl_Mame_Version.MKBoundControl3 = Nothing + Me.lbl_Mame_Version.MKBoundControl4 = Nothing + Me.lbl_Mame_Version.MKBoundControl5 = Nothing + Me.lbl_Mame_Version.Name = "lbl_Mame_Version" + Me.lbl_Mame_Version.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem4.Text = "Mame Executable" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "This is either mame.exe or mame64.exe's full path." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem3) + Me.lbl_Mame_Version.SuperTip = SuperToolTip4 + Me.lbl_Mame_Version.TabIndex = 1 + Me.lbl_Mame_Version.Text = "M.A.M.E. Version:" + ' + 'lbl_Mame_Version_Detected + ' + Me.lbl_Mame_Version_Detected.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Mame_Version_Detected.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Mame_Version_Detected.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Mame_Version_Detected.Location = New System.Drawing.Point(130, 26) + Me.lbl_Mame_Version_Detected.MKBoundControl1 = Nothing + Me.lbl_Mame_Version_Detected.MKBoundControl2 = Nothing + Me.lbl_Mame_Version_Detected.MKBoundControl3 = Nothing + Me.lbl_Mame_Version_Detected.MKBoundControl4 = Nothing + Me.lbl_Mame_Version_Detected.MKBoundControl5 = Nothing + Me.lbl_Mame_Version_Detected.Name = "lbl_Mame_Version_Detected" + Me.lbl_Mame_Version_Detected.Size = New System.Drawing.Size(391, 20) + ToolTipTitleItem5.Text = "Mame Executable" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "This is either mame.exe or mame64.exe's full path." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem4) + Me.lbl_Mame_Version_Detected.SuperTip = SuperToolTip5 + Me.lbl_Mame_Version_Detected.TabIndex = 1 + Me.lbl_Mame_Version_Detected.Text = "[ERROR]" + ' + 'btn_Scan + ' + Me.btn_Scan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Scan.Location = New System.Drawing.Point(440, 118) + Me.btn_Scan.Name = "btn_Scan" + Me.btn_Scan.Size = New System.Drawing.Size(81, 20) + Me.btn_Scan.TabIndex = 8 + Me.btn_Scan.Text = "&Scan!" + ' + 'lbl_history_dat + ' + Me.lbl_history_dat.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_history_dat.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_history_dat.Location = New System.Drawing.Point(3, 72) + Me.lbl_history_dat.MKBoundControl1 = Nothing + Me.lbl_history_dat.MKBoundControl2 = Nothing + Me.lbl_history_dat.MKBoundControl3 = Nothing + Me.lbl_history_dat.MKBoundControl4 = Nothing + Me.lbl_history_dat.MKBoundControl5 = Nothing + Me.lbl_history_dat.Name = "lbl_history_dat" + Me.lbl_history_dat.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem6.Text = "history.dat" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Enter the full path to your history.dat." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download history.dat from http:" & + "//www.arcade-history.com/?page=download" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem5) + Me.lbl_history_dat.SuperTip = SuperToolTip6 + Me.lbl_history_dat.TabIndex = 1 + Me.lbl_history_dat.Text = "history.dat (optional):" + ' + 'txb_history_dat + ' + Me.txb_history_dat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_history_dat.Location = New System.Drawing.Point(130, 72) + Me.txb_history_dat.MKBoundLabel = Nothing + Me.txb_history_dat.MKEditValue_Compare = Nothing + Me.txb_history_dat.Name = "txb_history_dat" + Me.txb_history_dat.Size = New System.Drawing.Size(361, 20) + ToolTipTitleItem7.Text = "history.dat" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Enter the full path to your history.dat." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download history.dat from http:" & + "//www.arcade-history.com/?page=download" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem6) + Me.txb_history_dat.SuperTip = SuperToolTip7 + Me.txb_history_dat.TabIndex = 4 + ' + 'btn_history_dat + ' + Me.btn_history_dat.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_history_dat.Location = New System.Drawing.Point(494, 72) + Me.btn_history_dat.Name = "btn_history_dat" + Me.btn_history_dat.Size = New System.Drawing.Size(27, 20) + ToolTipTitleItem8.Text = "Browse your history.dat" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + Me.btn_history_dat.SuperTip = SuperToolTip8 + Me.btn_history_dat.TabIndex = 5 + Me.btn_history_dat.Text = "..." + ' + 'lbl_mameinfo_dat + ' + Me.lbl_mameinfo_dat.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_mameinfo_dat.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mameinfo_dat.Location = New System.Drawing.Point(3, 95) + Me.lbl_mameinfo_dat.MKBoundControl1 = Nothing + Me.lbl_mameinfo_dat.MKBoundControl2 = Nothing + Me.lbl_mameinfo_dat.MKBoundControl3 = Nothing + Me.lbl_mameinfo_dat.MKBoundControl4 = Nothing + Me.lbl_mameinfo_dat.MKBoundControl5 = Nothing + Me.lbl_mameinfo_dat.Name = "lbl_mameinfo_dat" + Me.lbl_mameinfo_dat.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem9.Text = "mameinfo.dat" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Enter the full path to your mameinfo.dat here." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download mameinfo.dat fro" & + "m http://mameinfo.mameworld.info/" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem7) + Me.lbl_mameinfo_dat.SuperTip = SuperToolTip9 + Me.lbl_mameinfo_dat.TabIndex = 1 + Me.lbl_mameinfo_dat.Text = "mameinfo.dat (optional):" + ' + 'txb_mameinfo_dat + ' + Me.txb_mameinfo_dat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_mameinfo_dat.Location = New System.Drawing.Point(130, 95) + Me.txb_mameinfo_dat.MKBoundLabel = Nothing + Me.txb_mameinfo_dat.MKEditValue_Compare = Nothing + Me.txb_mameinfo_dat.Name = "txb_mameinfo_dat" + Me.txb_mameinfo_dat.Size = New System.Drawing.Size(361, 20) + ToolTipTitleItem10.Text = "mameinfo.dat" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Enter the full path to your mameinfo.dat here." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download mameinfo.dat fro" & + "m http://mameinfo.mameworld.info/" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem8) + Me.txb_mameinfo_dat.SuperTip = SuperToolTip10 + Me.txb_mameinfo_dat.TabIndex = 6 + ' + 'btn_mameinfo_dat + ' + Me.btn_mameinfo_dat.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_mameinfo_dat.Location = New System.Drawing.Point(494, 95) + Me.btn_mameinfo_dat.Name = "btn_mameinfo_dat" + Me.btn_mameinfo_dat.Size = New System.Drawing.Size(27, 20) + Me.btn_mameinfo_dat.TabIndex = 7 + Me.btn_mameinfo_dat.Text = "..." + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.Location = New System.Drawing.Point(440, 168) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(81, 20) + Me.btn_Close.TabIndex = 11 + Me.btn_Close.Text = "&Close" + ' + 'btn_ini_Folder_Import + ' + Me.btn_ini_Folder_Import.Location = New System.Drawing.Point(130, 136) + Me.btn_ini_Folder_Import.Name = "btn_ini_Folder_Import" + Me.btn_ini_Folder_Import.Size = New System.Drawing.Size(81, 20) + ToolTipTitleItem11.Text = "Import Category File" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = resources.GetString("ToolTipItem9.Text") + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem9) + Me.btn_ini_Folder_Import.SuperTip = SuperToolTip11 + Me.btn_ini_Folder_Import.TabIndex = 9 + Me.btn_ini_Folder_Import.Text = "&Import" + ' + 'lbl_Ini + ' + Me.lbl_Ini.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Ini.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Ini.Location = New System.Drawing.Point(3, 136) + Me.lbl_Ini.MKBoundControl1 = Nothing + Me.lbl_Ini.MKBoundControl2 = Nothing + Me.lbl_Ini.MKBoundControl3 = Nothing + Me.lbl_Ini.MKBoundControl4 = Nothing + Me.lbl_Ini.MKBoundControl5 = Nothing + Me.lbl_Ini.Name = "lbl_Ini" + Me.lbl_Ini.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem12.Text = "Import Category File" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = resources.GetString("ToolTipItem10.Text") + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem10) + Me.lbl_Ini.SuperTip = SuperToolTip12 + Me.lbl_Ini.TabIndex = 1 + Me.lbl_Ini.Text = "Import Category File:" + ' + 'chb_AutoImport + ' + Me.chb_AutoImport.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_AutoImport.EditValue = True + Me.chb_AutoImport.Location = New System.Drawing.Point(214, 137) + Me.chb_AutoImport.MKBoundLabel = Nothing + Me.chb_AutoImport.MKEditValue_Compare = Nothing + Me.chb_AutoImport.Name = "chb_AutoImport" + Me.chb_AutoImport.Properties.Caption = "Auto-Import" + Me.chb_AutoImport.Size = New System.Drawing.Size(92, 19) + ToolTipTitleItem13.Text = "Auto-Import" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = resources.GetString("ToolTipItem11.Text") + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem11) + Me.chb_AutoImport.SuperTip = SuperToolTip13 + Me.chb_AutoImport.TabIndex = 10 + ' + 'lbl_Note + ' + Me.lbl_Note.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.lbl_Note.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Note.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Note.Location = New System.Drawing.Point(3, 49) + Me.lbl_Note.MKBoundControl1 = Nothing + Me.lbl_Note.MKBoundControl2 = Nothing + Me.lbl_Note.MKBoundControl3 = Nothing + Me.lbl_Note.MKBoundControl4 = Nothing + Me.lbl_Note.MKBoundControl5 = Nothing + Me.lbl_Note.Name = "lbl_Note" + Me.lbl_Note.Size = New System.Drawing.Size(124, 20) + Me.lbl_Note.TabIndex = 1 + Me.lbl_Note.Text = "Important:" + ' + 'lbl_Note_Content + ' + Me.lbl_Note_Content.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Note_Content.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Note_Content.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Note_Content.Location = New System.Drawing.Point(130, 49) + Me.lbl_Note_Content.MKBoundControl1 = Nothing + Me.lbl_Note_Content.MKBoundControl2 = Nothing + Me.lbl_Note_Content.MKBoundControl3 = Nothing + Me.lbl_Note_Content.MKBoundControl4 = Nothing + Me.lbl_Note_Content.MKBoundControl5 = Nothing + Me.lbl_Note_Content.Name = "lbl_Note_Content" + Me.lbl_Note_Content.Size = New System.Drawing.Size(391, 20) + Me.lbl_Note_Content.TabIndex = 12 + Me.lbl_Note_Content.Text = "Make sure, you configured your mame.ini correctly. At least set up the rompath!" + ' + 'frm_Mame_Config + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(524, 191) + Me.Controls.Add(Me.lbl_Note_Content) + Me.Controls.Add(Me.chb_AutoImport) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.btn_ini_Folder_Import) + Me.Controls.Add(Me.btn_Scan) + Me.Controls.Add(Me.btn_mameinfo_dat) + Me.Controls.Add(Me.btn_history_dat) + Me.Controls.Add(Me.btn_Mame_Exe) + Me.Controls.Add(Me.txb_mameinfo_dat) + Me.Controls.Add(Me.txb_history_dat) + Me.Controls.Add(Me.txb_MameExe) + Me.Controls.Add(Me.lbl_Mame_Version_Detected) + Me.Controls.Add(Me.lbl_Note) + Me.Controls.Add(Me.lbl_Mame_Version) + Me.Controls.Add(Me.lbl_Ini) + Me.Controls.Add(Me.lbl_mameinfo_dat) + Me.Controls.Add(Me.lbl_history_dat) + Me.Controls.Add(Me.lbl_MameExe) + Me.MinimumSize = New System.Drawing.Size(540, 230) + Me.Name = "frm_Mame_Config" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "M.A.M.E. Configuration" + CType(Me.txb_MameExe.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_history_dat.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_mameinfo_dat.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_AutoImport.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_MameExe As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_MameExe As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_Mame_Exe As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Mame_Version As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Mame_Version_Detected As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Scan As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_history_dat As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_history_dat As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_history_dat As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_mameinfo_dat As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_mameinfo_dat As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_mameinfo_dat As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_ini_Folder_Import As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Ini As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_AutoImport As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Note As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Note_Content As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Mame_Config.resx b/Metropolis_Launcher/Forms/frm_Mame_Config.resx new file mode 100644 index 0000000..436842f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Mame_Config.resx @@ -0,0 +1,143 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Category files, such as nplayers.ini, catlist.ini etc. provide multiple categories for M.A.M.E. games. + +Choose the file you want to import and for each category found, select the appropriate game attributes. + +You can download category files from: +http://nplayers.arcadebelgium.be/ +http://www.progettoemma.net/?catlist + + + Category files, such as nplayers.ini, catlist.ini etc. provide multiple categories for M.A.M.E. games. + +Choose the file which you want to import and for each category found, select the appropriate game attributes. + +Download category files from: +http://nplayers.arcadebelgium.be/ +http://www.progettoemma.net/?catlist + + + If Auto-Import is active, every known category from the file will be automatically imported without user interaction. If the category is not known, you will have to select appropriate attributes for that category. + +If Auto-Import is not selected, for every category found within the file the Game Editor will be displayed. + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Mame_Config.vb b/Metropolis_Launcher/Forms/frm_Mame_Config.vb new file mode 100644 index 0000000..4520600 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Mame_Config.vb @@ -0,0 +1,813 @@ +Imports System.Xml + +Public Class frm_Mame_Config + + Public Class cls_Mame_Category_Roms + Public Category As String + Public RomNames As ArrayList + End Class + + Private _DialogResult As DialogResult = Windows.Forms.DialogResult.Cancel + + Public Sub New() + InitializeComponent() + + Me.txb_MameExe.Text = TC.NZ(cls_Settings.GetSetting("Mame_Executable"), "") + Me.txb_history_dat.Text = TC.NZ(cls_Settings.GetSetting("Mame_history_dat"), "") + Me.txb_mameinfo_dat.Text = TC.NZ(cls_Settings.GetSetting("Mame_mameinfo_dat"), "") + + Get_Mame_Version_From_Exe() + End Sub + + Private Sub frm_Mame_Config_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + cls_Settings.SetSetting("Mame_Executable", txb_MameExe.Text) + cls_Settings.SetSetting("Mame_history_dat", txb_history_dat.Text) + cls_Settings.SetSetting("Mame_mameinfo_dat", txb_mameinfo_dat.Text) + + Me.DialogResult = Me._DialogResult + End Sub + + Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub Get_Mame_Version_From_Exe() + If txb_MameExe.Text = "" Then + lbl_Mame_Version_Detected.Text = "Please enter the full path to your mame.exe or mame64.exe in the box above." + Return + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_MameExe.Text) Then + lbl_Mame_Version_Detected.Text = "[ERROR]: The M.A.M.E. Executable cannot be found!" + Return + End If + + Try + Dim proc As New Process + With proc.StartInfo + .FileName = txb_MameExe.Text + .WorkingDirectory = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(txb_MameExe.Text) + .Arguments = "-help" + .UseShellExecute = False + .RedirectStandardOutput = True + .WindowStyle = ProcessWindowStyle.Hidden + .CreateNoWindow = True + End With + + proc.Start() + Dim output As String = proc.StandardOutput.ReadToEnd + proc.WaitForExit() + + If output.Contains("M.A.M.E. v") OrElse output.Contains("MAME v") Then + lbl_Mame_Version_Detected.Text = output.Split(ControlChars.CrLf)(0) + Else + lbl_Mame_Version_Detected.Text = "[ERROR]: can't get info from the M.A.M.E. Executable you provided." + End If + Catch ex As Exception + lbl_Mame_Version_Detected.Text = "[ERROR]: exception while getting M.A.M.E. version info." + End Try + End Sub + + Private Sub btn_Mame_Exe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Mame_Exe.Click + Dim old_dir As String = txb_MameExe.Text + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(old_dir) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(old_dir) Then + old_dir = "" + End If + + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Select M.A.M.E. Executable", "M.A.M.E. Executable (mame.exe;mame64.exe)|mame.exe;mame64.exe", 0, "", old_dir, ParentForm:=Me) + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Me.txb_MameExe.Text = sFile + End If + + Get_Mame_Version_From_Exe() + End Sub + + Private Sub txb_MameExe_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txb_MameExe.Leave + Get_Mame_Version_From_Exe() + End Sub + + Private Sub btn_history_dat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_history_dat.Click + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Select history.dat", "history.dat|history.dat", ParentForm:=Me) + + Me.txb_history_dat.Text = sFile + End Sub + + Private Sub btn_mameinfo_dat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_mameinfo_dat.Click + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Select mameinfo.dat", "mameinfo.dat|mameinfo.dat", ParentForm:=Me) + + Me.txb_mameinfo_dat.Text = sFile + End Sub + + Private Sub btn_Scan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Scan.Click + If txb_MameExe.Text = "" Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please provide the full path to your mame.exe or mame64.exe.", "M.A.M.E. Executable missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + txb_MameExe.Focus() + Return + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_MameExe.Text) Then + DevExpress.XtraEditors.XtraMessageBox.Show("M.A.M.E. Executable is missing!", "M.A.M.E. Executable missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + txb_MameExe.Focus() + Return + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_MameExe.Text) Then + DevExpress.XtraEditors.XtraMessageBox.Show("M.A.M.E. Executable is missing!", "M.A.M.E. Executable not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + txb_MameExe.Focus() + Return + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(txb_MameExe.Text) & "\mame.ini") Then + DevExpress.XtraEditors.XtraMessageBox.Show("The mame.ini file is missing, please create one and configure it. The command is '" & txb_MameExe.Text & " -cc'", "mame.ini not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + txb_MameExe.Focus() + Return + End If + + If txb_history_dat.Text = "" Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("Although optional, it is recommended that you provide a history.dat file that fits your M.A.M.E. installation as it provides interesting information for games. Download history.dat from http://www.arcade-history.com/. Do you still want to continue the scan process?", "history.dat is missing", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then + txb_history_dat.Focus() + Return + End If + ElseIf Not Alphaleonis.Win32.Filesystem.File.Exists(txb_history_dat.Text) Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("The history.dat file you provided cannot be found! Do you still want to continue the scan process?", "history.dat not found", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then + txb_history_dat.Focus() + Return + End If + End If + + If txb_mameinfo_dat.Text = "" Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("Although optional, it is recommended that you provide a mameinfo.dat file that fits your M.A.M.E. installation as it provides interesting information for games. Download mameinfo.dat from http://mameinfo.mameworld.info/. Do you still want to continue the scan process?", "mameinfo.dat is missing", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then + txb_mameinfo_dat.Focus() + Return + End If + ElseIf Not Alphaleonis.Win32.Filesystem.File.Exists(txb_mameinfo_dat.Text) Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("The mameinfo.dat file you provided cannot be found! Do you still want to continue the scan process?", "mameinfo.dat not found", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then + txb_mameinfo_dat.Focus() + Return + End If + End If + + If Not DevExpress.XtraEditors.XtraMessageBox.Show("The scan process will gather game informations from your provided M.A.M.E. installation and will scan for games in your M.A.M.E. rom directory. This will take a while, do you want to continue?", "Scan", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then + Return + End If + + Dim bResult As Boolean = True + + Dim dt_Mame_Roms As New DS_ML.tbl_Mame_RomsDataTable + + Me.Cursor = Cursors.WaitCursor + + 'Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Fetch Rom infos from Mame, history.dat and mameinfo?", "Question", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + 'If res = Windows.Forms.DialogResult.Cancel Then + ' Return + 'End If + + 'If res = Windows.Forms.DialogResult.Yes Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + bResult = Scan_Mame_Gameinfos(tran, dt_Mame_Roms) 'Fill tbl_Mame_Roms + + If bResult = False Then + Me.Cursor = Cursors.Default + tran.Rollback() + Return + End If + + Me._DialogResult = Windows.Forms.DialogResult.OK + + tran.Commit() + End Using + 'End If + + 'res = DevExpress.XtraEditors.XtraMessageBox.Show("Verify roms from M.A.M.E. and add games?", "Question", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + 'If res = Windows.Forms.DialogResult.Cancel Then + ' Return + 'End If + + 'If res = Windows.Forms.DialogResult.Yes Then + 'Verifyroms here and add games + 'mame64 -verifyroms + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Marquee, False, "Scan step 6 of 7: Verifying roms (please be patient, this can take a while!)", 0, 100, True) + prg.Start() + + Using tran = cls_Globals.Conn.BeginTransaction + Try + + Dim proc As New Process + With proc.StartInfo + .FileName = txb_MameExe.Text + .WorkingDirectory = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(txb_MameExe.Text) + .Arguments = "-verifyroms" + .UseShellExecute = False + .RedirectStandardOutput = True + .WindowStyle = ProcessWindowStyle.Hidden + .CreateNoWindow = True + End With + + proc.Start() + Dim output As String = proc.StandardOutput.ReadToEnd + proc.WaitForExit() + + Dim dt_Mame_Rom_Names As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT name from tbl_Mame_Roms WHERE isbios = 0 AND isdevice = 0 AND ismechanical = 0 AND issoftwarelist = 0 AND hasdisplay = 1 AND runnable = 1", Nothing, tran) + Dim al_Mame_Rom_Names As New ArrayList + For Each dr_Mame_Rom_Names As DataRow In dt_Mame_Rom_Names.Rows + al_Mame_Rom_Names.Add(dr_Mame_Rom_Names("name")) + Next + + Dim ar_Output As String() = output.Split(ControlChars.CrLf) + + prg.Close() + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Scan step 7 of 7: Processing verified roms", 0, ar_Output.Length, True) + prg.Start() + + For Each verification_line As String In ar_Output + prg.IncreaseCurrentValue() + + If verification_line.Contains(" is good") OrElse verification_line.Contains("is best available") Then + Dim name As String = MKNetLib.cls_MKRegex.GetMatches(verification_line, "romset (.*?) ")(0).Groups(1).Value + + If al_Mame_Rom_Names.Contains(name) Then + Dim dt_Mame_Rom As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT name, description, year, manufacturer, cloneof, romof, mameinfo from tbl_Mame_Roms WHERE name = " & TC.getSQLFormat(name), Nothing, tran) + + If dt_Mame_Rom.Rows.Count = 1 Then + Dim File As String = name + Dim InnerFile As String = name + Dim real_Name As String = dt_Mame_Rom.Rows(0)("description") + Dim Year As Object = dt_Mame_Rom.Rows(0)("year") + + Dim Name_Prefix As Object = Nothing + Dim Note As Object = Nothing + Dim Developer As Object = dt_Mame_Rom.Rows(0)("manufacturer") + Dim Description As Object = Nothing + + If real_Name.StartsWith("The ") Then + Name_Prefix = "The" + real_Name = MKNetLib.cls_MKStringSupport.Clean_Left(real_Name, "The ") + ElseIf real_Name.StartsWith("A ") Then + Name_Prefix = "A" + real_Name = MKNetLib.cls_MKStringSupport.Clean_Left(real_Name, "A ") + End If + + If TC.NZ(dt_Mame_Rom.Rows(0)("mameinfo"), "").Length > 1 Then + Description = MKNetLib.cls_MKStringSupport.Ensure_CrLf(dt_Mame_Rom.Rows(0)("mameinfo")) + End If + + If real_Name.Contains("(") Then + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(real_Name, "\((.*?)\)") + + Dim bFirst As Boolean = True + + For Each match As System.Text.RegularExpressions.Match In matches + If bFirst Then + Note = match.Groups(1).Value + bFirst = False + Else + Note &= ", " & match.Groups(1).Value + End If + Next + + real_Name = MKNetLib.cls_MKRegex.GetMatches(real_Name, "(.*?)\(")(0).Groups(1).Value.Trim + End If + + DS_ML.Upsert_MAME_tbl_Emu_Games(tran, -2, name, name, real_Name, Name_Prefix, Note, Developer, Description, Year) + Else + Dim j As Integer = 0 + End If + End If + End If + Next + + 'CLEANUP unwanted Roms + Dim sSQL As String = "" + sSQL &= "DELETE FROM tbl_Emu_Games" & ControlChars.CrLf + sSQL &= "WHERE id_Moby_Platforms = -2" & ControlChars.CrLf + sSQL &= " AND File IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT name FROM tbl_Mame_Roms" & ControlChars.CrLf + sSQL &= " WHERE " & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " IFNULL(isbios, 0) = 1" & ControlChars.CrLf + sSQL &= " OR IFNULL(isdevice, 0) = 1" & ControlChars.CrLf + sSQL &= " OR IFNULL(ismechanical, 0) = 1" & ControlChars.CrLf + sSQL &= " OR IFNULL(runnable, 0) = 0" & ControlChars.CrLf + sSQL &= " OR IFNULL(issoftwarelist, 0) = 1" & ControlChars.CrLf + sSQL &= " OR IFNULL(hasdisplay, 1) = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + + DS_ML.Update_Platform_NumGames_Cache(tran, cls_Globals.enm_Moby_Platforms.mame) + + tran.Commit() + + Me.Cursor = Cursors.Default + prg.Close() + Catch ex As Exception + Me.Cursor = Cursors.Default + If prg IsNot Nothing Then prg.Close() + tran.Rollback() + Return + Finally + Me.Cursor = Cursors.Default + If prg IsNot Nothing Then prg.Close() + End Try + End Using + + 'End If + + DevExpress.XtraEditors.XtraMessageBox.Show("Import successful!", "Import successful", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Me._DialogResult = Windows.Forms.DialogResult.OK + End Sub + + ''' + ''' Fill tbl_Mame_Roms + ''' + ''' + ''' + ''' + ''' + Private Function Scan_Mame_Gameinfos(ByRef tran As SQLite.SQLiteTransaction, ByRef dt_Mame_Roms As DS_ML.tbl_Mame_RomsDataTable) As Boolean + Dim xml_path As String = cls_Globals.TempDir(tran) + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Marquee, False, "Scan step 1 of 7: Reading game infos from M.A.M.E.", 0, 100, True) + prg.Start() + + If Alphaleonis.Win32.Filesystem.Directory.Exists(xml_path) Then + xml_path &= "\" & "mame_" & DateTime.Now.ToString("yyyyMMdd_HHmmss") & ".xml" + Else + DevExpress.XtraEditors.XtraMessageBox.Show("Could not find the temporary directory, please set one up in the Settings section.") + Return False + End If + + 'Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname, 400, 60, ProgressBarStyle.Marquee, False, "Scan step 1 of 7: Reading game infos from M.A.M.E.", 0, 100, True) + 'prg.Start() + + 'Try + DS_ML.Delete_tbl_Mame_Roms(tran) + + Dim proc As New Process + With proc.StartInfo + .FileName = txb_MameExe.Text + .WorkingDirectory = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(txb_MameExe.Text) + .Arguments = "-listxml" + .UseShellExecute = False 'Was False; if M.A.M.E. needs to be started as Administrator, ShellExecute is necessary + .RedirectStandardOutput = True 'We don't need to read the Standard Output as we redirect it to an .xml file + .WindowStyle = ProcessWindowStyle.Hidden + .CreateNoWindow = True + End With + + Using sw As New System.IO.StreamWriter(xml_path, False) + proc.Start() + + Dim line As String = proc.StandardOutput.ReadLine + + While line IsNot Nothing + sw.WriteLine(line) + line = proc.StandardOutput.ReadLine + End While + + proc.WaitForExit() + sw.Close() + End Using + + 'TODO: write output to file in order to prevent Out of Memory Exception + 'Dim output As String = proc.StandardOutput.ReadToEnd 'Not needed, we write to file directly + 'proc.StandardOutput. + + If Not Alphaleonis.Win32.Filesystem.File.Exists(xml_path) Then + prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show("Could not read " & xml_path & "!") + Return False + End If + + Dim GameCount As Integer = 0 + + Dim xml_reader As New System.Xml.XmlTextReader(xml_path) + + While xml_reader.Read + If xml_reader.NodeType = System.Xml.XmlNodeType.Element Then + If {"machine", "game"}.Contains(xml_reader.Name) Then + GameCount += 1 + End If + End If + End While + + xml_reader.Close() + + prg.Close() + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Scan step 2 of 7: Processing game infos from M.A.M.E. ({0} / {1})", 0, GameCount, True) + prg.Start() + + xml_reader = New System.Xml.XmlTextReader(xml_path) + + While xml_reader.Read + If xml_reader.NodeType = System.Xml.XmlNodeType.Element Then + If {"machine", "game"}.Contains(xml_reader.Name) Then + prg.IncreaseCurrentValue() + + Dim isSoftwareList As Boolean = False + Dim hasDisplay As Boolean = False + + Dim DR As DS_ML.tbl_Mame_RomsRow = dt_Mame_Roms.NewRow + + DR("issoftwarelist") = False + DR("hasdisplay") = False + + DR("name") = TC.NZ(xml_reader.GetAttribute("name"), DBNull.Value) + DR("cloneof") = TC.NZ(xml_reader.GetAttribute("cloneof"), DBNull.Value) + DR("romof") = TC.NZ(xml_reader.GetAttribute("romof"), DBNull.Value) + DR("sampleof") = TC.NZ(xml_reader.GetAttribute("sampleof"), DBNull.Value) + DR("sourcefile") = TC.NZ(xml_reader.GetAttribute("sourcefile"), DBNull.Value) + DR("isbios") = IIf(TC.NZ(xml_reader.GetAttribute("isbios"), "no") = "no", False, True) + DR("isdevice") = IIf(TC.NZ(xml_reader.GetAttribute("isdevice"), "no") = "no", False, True) + DR("ismechanical") = IIf(TC.NZ(xml_reader.GetAttribute("ismechanical"), "no") = "no", False, True) + DR("runnable") = IIf(TC.NZ(xml_reader.GetAttribute("runnable"), "yes") = "no", False, True) + + While xml_reader.Read AndAlso Not (xml_reader.NodeType = XmlNodeType.EndElement AndAlso {"machine", "game"}.Contains(xml_reader.Name)) + If xml_reader.NodeType = System.Xml.XmlNodeType.Element Then + Select Case xml_reader.Name + Case "description" + DR.description = xml_reader.ReadInnerXml + Case "year" + DR.year = xml_reader.ReadInnerXml + Case "manufacturer" + DR.manufacturer = xml_reader.ReadInnerXml + Case "softwarelist" + DR("issoftwarelist") = True + Case "display" + DR("hasdisplay") = True + End Select + End If + End While + + dt_Mame_Roms.Rows.Add(DR) + End If + End If + End While + + xml_reader.Close() + + Alphaleonis.Win32.Filesystem.File.Delete(xml_path) + + 'Speedup + Dim dict_Mame_Roms_Cache As New Dictionary(Of String, ArrayList) + For Each row_Mame_Roms As DataRow In dt_Mame_Roms + Dim name As String = TC.NZ(row_Mame_Roms("name"), "") + If dict_Mame_Roms_Cache.ContainsKey(name) Then + dict_Mame_Roms_Cache(name).Add(row_Mame_Roms) + Else + dict_Mame_Roms_Cache(name) = New ArrayList + dict_Mame_Roms_Cache(name).Add(row_Mame_Roms) + End If + Next + + prg.Close() + + If Alphaleonis.Win32.Filesystem.File.Exists(txb_history_dat.Text) Then + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Scan step 3 of 7: Reading game infos from history.dat", 0, 100, True) + prg.Start() + + Dim reader As New System.IO.StreamReader(txb_history_dat.Text) + + Dim line As String + + Dim content As String + + Dim Counter As Integer = 0 + Dim prg_Counter As Integer = 0 + + While reader.Peek <> -1 + line = reader.ReadLine + + If line.StartsWith("$info=") Then + Dim mame_roms As String() = line.Replace("$info=", "").Split(",") + + content = "" + + While reader.Peek <> -1 + line = reader.ReadLine + + If line.StartsWith("$end") Then + For Each mame_rom As String In mame_roms + If mame_rom.Trim.Length > 0 Then + Counter += 1 + + If prg_Counter < 100 Then + If CType(Counter, Double) / CType(GameCount, Double) * 100 > CType(prg_Counter, Double) Then + prg_Counter += 1 + prg.IncreaseCurrentValue() + End If + End If + + 'Dim drs_mame_roms As DataRow() = dt_Mame_Roms.Select("name = '" & mame_rom & "'") + 'If drs_mame_roms.Length = 1 Then + ' drs_mame_roms(0)("mameinfo") = TC.NZ(drs_mame_roms(0)("mameinfo"), "") & content + 'End If + + 'Speedup + If dict_Mame_Roms_Cache.ContainsKey(mame_rom.Trim) Then + Dim al_Rows As ArrayList = dict_Mame_Roms_Cache(mame_rom.Trim) + If al_Rows.Count = 1 Then + al_Rows(0)("mameinfo") = TC.NZ(al_Rows(0)("mameinfo"), "") & content + End If + End If + End If + Next + Exit While + End If + + If Not line.StartsWith("$") AndAlso Not line.StartsWith("#") Then + content &= line & ControlChars.CrLf + End If + + End While + End If + End While + + prg.Close() + End If + + + If Alphaleonis.Win32.Filesystem.File.Exists(txb_mameinfo_dat.Text) Then + Dim Counter As Integer = 0 + Dim prg_Counter As Integer = 0 + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Scan step 4 of 7: Reading game infos from mameinfo.dat ({0} / {1})", 0, 100, True) + prg.Start() + + Dim reader As New System.IO.StreamReader(txb_mameinfo_dat.Text) + + Dim line As String + + Dim content As String + + While reader.Peek <> -1 + line = reader.ReadLine + + If line.StartsWith("$info=") Then + Dim mame_roms As String() = line.Replace("$info=", "").Split(",") + + content = "" + + While reader.Peek <> -1 + line = reader.ReadLine + + If line.StartsWith("$end") Then + For Each mame_rom As String In mame_roms + If mame_rom.Trim.Length > 0 Then + + Counter += 1 + + If prg_Counter < 100 Then + If CType(Counter, Double) / CType(GameCount, Double) * 100 > CType(prg_Counter, Double) Then + prg_Counter += 1 + prg.IncreaseCurrentValue() + End If + End If + + 'Dim drs_mame_roms As DataRow() = dt_Mame_Roms.Select("name = '" & mame_rom & "'") + 'If drs_mame_roms.Length = 1 Then + ' drs_mame_roms(0)("mameinfo") = TC.NZ(drs_mame_roms(0)("mameinfo"), "") & content + 'End If + + 'Speedup + If dict_Mame_Roms_Cache.ContainsKey(mame_rom.Trim) Then + Dim al_Rows As ArrayList = dict_Mame_Roms_Cache(mame_rom.Trim) + If al_Rows.Count = 1 Then + al_Rows(0)("mameinfo") = TC.NZ(al_Rows(0)("mameinfo"), "") & content + End If + End If + End If + Next + Exit While + End If + + If Not line.StartsWith("$") AndAlso Not line.StartsWith("#") Then + content &= line & ControlChars.CrLf + End If + + End While + End If + End While + + prg.Close() + End If + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Scan step 5 of 7: Save to internal table ({0} / {1})", 0, dt_Mame_Roms.Rows.Count, True) + prg.Start() + + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Mame_Roms", tran) + + Dim sSQL As String = "" + + For Each row_mame_rom As DataRow In dt_Mame_Roms + prg.IncreaseCurrentValue() + + sSQL = "INSERT INTO tbl_Mame_Roms (name, description, year, manufacturer, sourcefile, isbios, isdevice, ismechanical, issoftwarelist, hasdisplay, runnable, cloneof, romof, sampleof, mameinfo) VALUES (" + sSQL &= TC.getSQLParameter(row_mame_rom("name"), row_mame_rom("description"), row_mame_rom("year"), row_mame_rom("manufacturer"), row_mame_rom("sourcefile"), row_mame_rom("isbios"), row_mame_rom("isdevice"), row_mame_rom("ismechanical"), row_mame_rom("issoftwarelist"), row_mame_rom("hasdisplay"), row_mame_rom("runnable"), row_mame_rom("cloneof"), row_mame_rom("romof"), row_mame_rom("sampleof"), row_mame_rom("mameinfo")) & ")" + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + Next + + prg.Close() + 'Catch ex As Exception + ' Me.Cursor = Cursors.Default + ' If prg IsNot Nothing Then prg.Close() + ' DevExpress.XtraEditors.XtraMessageBox.Show("Exception: " & ex.Message, "ERROR during scan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + ' Return False + 'End Try + + Return True + End Function + + ''' + ''' Import Ini File where M.A.M.E. Roms are grouped by folders + ''' + ''' Array of the ini File content + ''' Full path of the ini File + ''' + Private Sub Import_Ini_File_Folderbased(ByRef aContent As String(), ByVal iniFile As String) + Dim i As Integer = 0 + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Marquee, False, "Scanning, please wait...", 0, aContent.Length, False) + prg.Start() + + While i < aContent.Length + + If aContent(i).Trim.StartsWith("[") AndAlso Not aContent(i).Trim.ToLower = "[folder_settings]" Then + Dim sCategory As String = aContent(i).Replace("[", "").Replace("]", "").Trim + + i += 1 + + Dim al_RomNames As New ArrayList + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + While i < aContent.Length + Dim sRomName As String = aContent(i) + + If sRomName.Trim.StartsWith("[") Then + Exit While + End If + + If sRomName.Trim.Length > 0 Then + If Not sRomName.StartsWith("#") AndAlso Not sRomName.StartsWith(";") Then + al_RomNames.Add(sRomName.Trim) + End If + End If + + i += 1 + End While + + tran.Commit() + End Using + + prg.Close() + + If al_RomNames.Count > 0 Then + Dim InExpr As String = "'" & String.Join("', '", CType(al_RomNames.ToArray(GetType(String)), String())) & "'" + Dim sSQL As String = "SELECT group_concat(id_Emu_Games, ',') FROM tbl_Emu_Games WHERE InnerFile IN(" & InExpr & ")" + Dim id_Emu_Games As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, sSQL) + + If TC.NZ(id_Emu_Games, "").Length > 0 Then + Dim id_Emu_Games_Int As Integer() = Array.ConvertAll(id_Emu_Games.Split(","), New Converter(Of String, Integer)(AddressOf ConvertToInteger)) + + Using frm As New frm_Emu_Game_Edit(id_Emu_Games_Int, Alphaleonis.Win32.Filesystem.Path.GetFileName(iniFile) & " | " & sCategory & " (" & id_Emu_Games_Int.Length & " Roms)", sCategory, chb_AutoImport.Checked) + frm.ShowDialog(Me) + End Using + + End If + Else + DevExpress.XtraEditors.XtraMessageBox.Show(sCategory & " does not contain any roms", "Empty ini Folder", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Marquee, False, "Scanning, please wait...", 0, aContent.Length, False) + prg.Start() + Else + i += 1 + End If + End While + + prg.Close() + End Sub + + Public Function ConvertToInteger(ByVal input As String) As Integer + Dim output As Integer = 0 + + Integer.TryParse(input, output) + + Return output + End Function + + ''' + ''' Import Ini File where the categories are assigned to each M.A.M.E. Rom per line + ''' + ''' Array of the ini File content + ''' Full path of the ini File + ''' + Private Sub Import_Ini_File_Assignmentbased(ByRef aContent As String(), ByVal iniFile As String) + Dim i As Integer = 0 + + Dim al_Mame_Category_Roms As New ArrayList + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 100, ProgressBarStyle.Continuous, False, "Scanning line {0} of {1}, please wait...", 0, aContent.Length, False) + prg.Start() + + While i < aContent.Length + prg.IncreaseCurrentValue() + + If aContent(i).Contains("=") AndAlso Not aContent(i).Trim.StartsWith("[") AndAlso Not aContent(i).Trim.StartsWith("#") AndAlso Not aContent(i).Trim.StartsWith(";") Then + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(aContent(i).Trim, "(.*?)=(.*)") + + If matches.Count = 1 Then + Dim sCategory As String = matches(0).Groups(2).Captures(0).Value.Trim + Dim sRom As String = matches(0).Groups(1).Captures(0).Value + + If sCategory.Length > 0 AndAlso sRom.Length > 0 Then + Dim bFound As Boolean = False + + For Each catrom As cls_Mame_Category_Roms In al_Mame_Category_Roms + If catrom.Category = sCategory Then + catrom.RomNames.Add(sRom) + bFound = True + Exit For + End If + Next + + If Not bFound Then + Dim catrom As New cls_Mame_Category_Roms + catrom.Category = sCategory + catrom.RomNames = New ArrayList() + catrom.RomNames.Add(sRom) + al_Mame_Category_Roms.Add(catrom) + End If + End If + End If + End If + + i += 1 + End While + + tran.Commit() + + prg.Close() + End Using + + + For Each catroms As cls_Mame_Category_Roms In al_Mame_Category_Roms + If catroms.RomNames.Count > 0 Then + Dim InExpr As String = "'" & String.Join("', '", CType(catroms.RomNames.ToArray(GetType(String)), String())) & "'" + Dim sSQL As String = "SELECT group_concat(id_Emu_Games, ',') FROM tbl_Emu_Games WHERE InnerFile IN(" & InExpr & ")" + Dim id_Emu_Games As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, sSQL) + + If TC.NZ(id_Emu_Games, "").Length > 0 Then + Dim id_Emu_Games_Int As Integer() = Array.ConvertAll(id_Emu_Games.Split(","), New Converter(Of String, Integer)(AddressOf ConvertToInteger)) + + Using frm As New frm_Emu_Game_Edit(id_Emu_Games_Int, Alphaleonis.Win32.Filesystem.Path.GetFileName(iniFile) & " | " & catroms.Category & " (" & id_Emu_Games_Int.Length & " Roms)", catroms.Category, chb_AutoImport.Checked) + frm.ShowDialog(Me) + End Using + + End If + Else + DevExpress.XtraEditors.XtraMessageBox.Show(catroms.Category & " does not contain any roms", "Empty ini Folder", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + Next + End Sub + + Private Sub btn_ini_Folder_Import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ini_Folder_Import.Click + Dim iniFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open ini File", "ini Files (*.ini)|*.ini", ParentForm:=Me) + + 'check if ini is folder-based or assignment ("=") based + If Alphaleonis.Win32.Filesystem.File.Exists(iniFile) Then + Dim sContent = Alphaleonis.Win32.Filesystem.File.ReadAllText(iniFile) + Dim aContent As String() = sContent.Split(ControlChars.CrLf) + + Dim iAssignmentCounter As Integer = 0 + + 'Check in the first 25 rows if "=" can be found in at least 5 of them -> it isn't folder-based ini then + For i As Integer = 0 To Math.Min(25, aContent.Length - 1) + If Not aContent(i).StartsWith("[") AndAlso Not aContent(i).StartsWith("#") AndAlso Not aContent(i).StartsWith("#") Then + If aContent(i).Contains("=") Then iAssignmentCounter += 1 + End If + Next + + Dim bFolderbased As Boolean = True + + If iAssignmentCounter > 4 Then bFolderbased = False + + If bFolderbased Then + Import_Ini_File_Folderbased(aContent, iniFile) + Else + Import_Ini_File_Assignmentbased(aContent, iniFile) + End If + + DevExpress.XtraEditors.XtraMessageBox.Show("The import completed.", "Import completed", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Me._DialogResult = Windows.Forms.DialogResult.OK + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.Designer.vb new file mode 100644 index 0000000..fe62f9b --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.Designer.vb @@ -0,0 +1,663 @@ + _ +Partial Class frm_Moby_Auto_Link + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Main = New MKNetDXLib.ctl_MKDXPanel() + Me.spltpnl_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_Moby_Auto_Link = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Auto_Link = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.abgvMoby_Auto_Link = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.colApply = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.rpi_Apply = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colMatch_Accuracy = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colGameName = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colMatch_Moby_Year = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colDeveloper1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colGameName_Filtered = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colSpacer2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colIdentifier = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colSpacer = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colMatch_Moby_Gamename = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colMatch_Moby_created = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colPublisher1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colMatch_Moby_Gamename_Filtered = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.rpi_Moby_Release = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.rpi_Moby_Platforms_gv1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.grd_Moby_Releases = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Releases = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Moby_Releases = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colPublisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDeveloper = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHighlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colcreated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Moby_Releases = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Open_Moby_Page = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Apply_True = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Apply_False = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Moby_Games = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Link = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.coldeprecated = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colDeprecated1 = New DevExpress.XtraGrid.Columns.GridColumn() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Main.SuspendLayout() + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Main.SuspendLayout() + CType(Me.grd_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.abgvMoby_Auto_Link, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Link, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top + Me.lbl_Explanation.AutoEllipsis = True + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(1065, 6) + Me.lbl_Explanation.TabIndex = 8 + ' + 'pnl_Main + ' + Me.pnl_Main.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Main.Controls.Add(Me.spltpnl_Main) + Me.pnl_Main.Controls.Add(Me.btn_Cancel) + Me.pnl_Main.Controls.Add(Me.btn_OK) + Me.pnl_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Main.Location = New System.Drawing.Point(0, 6) + Me.pnl_Main.Name = "pnl_Main" + Me.pnl_Main.Size = New System.Drawing.Size(1065, 723) + Me.pnl_Main.TabIndex = 1 + ' + 'spltpnl_Main + ' + Me.spltpnl_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.spltpnl_Main.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 + Me.spltpnl_Main.Location = New System.Drawing.Point(4, 3) + Me.spltpnl_Main.Name = "spltpnl_Main" + Me.spltpnl_Main.Panel1.Controls.Add(Me.grd_Moby_Auto_Link) + Me.spltpnl_Main.Panel1.Text = "Panel1" + Me.spltpnl_Main.Panel2.Controls.Add(Me.grd_Moby_Releases) + Me.spltpnl_Main.Panel2.Controls.Add(Me.lbl_Moby_Releases) + Me.spltpnl_Main.Panel2.Text = "Panel2" + Me.spltpnl_Main.Size = New System.Drawing.Size(1058, 691) + Me.spltpnl_Main.SplitterPosition = 324 + Me.spltpnl_Main.TabIndex = 11 + Me.spltpnl_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_Moby_Auto_Link + ' + Me.grd_Moby_Auto_Link.DataSource = Me.BS_Moby_Auto_Link + Me.grd_Moby_Auto_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Auto_Link.Location = New System.Drawing.Point(0, 0) + Me.grd_Moby_Auto_Link.MainView = Me.abgvMoby_Auto_Link + Me.grd_Moby_Auto_Link.Name = "grd_Moby_Auto_Link" + Me.grd_Moby_Auto_Link.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Release, Me.rpi_Moby_Platforms_gv1, Me.rpi_Apply}) + Me.grd_Moby_Auto_Link.Size = New System.Drawing.Size(729, 691) + Me.grd_Moby_Auto_Link.TabIndex = 3 + Me.grd_Moby_Auto_Link.UseEmbeddedNavigator = True + Me.grd_Moby_Auto_Link.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.abgvMoby_Auto_Link}) + ' + 'BS_Moby_Auto_Link + ' + Me.BS_Moby_Auto_Link.DataMember = "tbl_Moby_Auto_Link" + Me.BS_Moby_Auto_Link.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'abgvMoby_Auto_Link + ' + Me.abgvMoby_Auto_Link.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1}) + Me.abgvMoby_Auto_Link.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colSpacer2, Me.colApply, Me.colGameName, Me.colGameName_Filtered, Me.colMatch_Accuracy, Me.colMatch_Moby_created, Me.colMatch_Moby_Gamename, Me.colMatch_Moby_Gamename_Filtered, Me.colMatch_Moby_Year, Me.colSpacer, Me.colIdentifier, Me.colDeveloper1, Me.colPublisher1, Me.coldeprecated}) + Me.abgvMoby_Auto_Link.CustomizationFormBounds = New System.Drawing.Rectangle(483, 386, 222, 219) + Me.abgvMoby_Auto_Link.GridControl = Me.grd_Moby_Auto_Link + Me.abgvMoby_Auto_Link.Name = "abgvMoby_Auto_Link" + Me.abgvMoby_Auto_Link.OptionsBehavior.AllowIncrementalSearch = True + Me.abgvMoby_Auto_Link.OptionsSelection.MultiSelect = True + Me.abgvMoby_Auto_Link.OptionsView.EnableAppearanceEvenRow = True + Me.abgvMoby_Auto_Link.OptionsView.EnableAppearanceOddRow = True + Me.abgvMoby_Auto_Link.OptionsView.ShowGroupPanel = False + Me.abgvMoby_Auto_Link.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colMatch_Accuracy, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'GridBand1 + ' + Me.GridBand1.Columns.Add(Me.colApply) + Me.GridBand1.Columns.Add(Me.colMatch_Accuracy) + Me.GridBand1.Columns.Add(Me.colGameName) + Me.GridBand1.Columns.Add(Me.colMatch_Moby_Year) + Me.GridBand1.Columns.Add(Me.colDeveloper1) + Me.GridBand1.Columns.Add(Me.colGameName_Filtered) + Me.GridBand1.Columns.Add(Me.colSpacer2) + Me.GridBand1.Columns.Add(Me.colIdentifier) + Me.GridBand1.Columns.Add(Me.colSpacer) + Me.GridBand1.Columns.Add(Me.colMatch_Moby_Gamename) + Me.GridBand1.Columns.Add(Me.colMatch_Moby_created) + Me.GridBand1.Columns.Add(Me.colPublisher1) + Me.GridBand1.Columns.Add(Me.colMatch_Moby_Gamename_Filtered) + Me.GridBand1.Name = "GridBand1" + Me.GridBand1.VisibleIndex = 0 + Me.GridBand1.Width = 1404 + ' + 'colApply + ' + Me.colApply.ColumnEdit = Me.rpi_Apply + Me.colApply.FieldName = "Apply" + Me.colApply.Name = "colApply" + Me.colApply.OptionsColumn.AllowEdit = False + Me.colApply.OptionsColumn.ReadOnly = True + Me.colApply.ToolTip = "Apply the auto link for this game" + Me.colApply.Visible = True + Me.colApply.Width = 41 + ' + 'rpi_Apply + ' + Me.rpi_Apply.AutoHeight = False + Me.rpi_Apply.Name = "rpi_Apply" + ' + 'colMatch_Accuracy + ' + Me.colMatch_Accuracy.Caption = "Match Accuracy" + Me.colMatch_Accuracy.FieldName = "Match_Accuracy" + Me.colMatch_Accuracy.Name = "colMatch_Accuracy" + Me.colMatch_Accuracy.OptionsColumn.AllowEdit = False + Me.colMatch_Accuracy.OptionsColumn.ReadOnly = True + Me.colMatch_Accuracy.ToolTip = "The accuracy of the game's filtered name compared to the filtered name of the Mob" & + "y Release" + Me.colMatch_Accuracy.Visible = True + Me.colMatch_Accuracy.Width = 103 + ' + 'colGameName + ' + Me.colGameName.Caption = "Gamename" + Me.colGameName.FieldName = "GameName" + Me.colGameName.Name = "colGameName" + Me.colGameName.OptionsColumn.AllowEdit = False + Me.colGameName.OptionsColumn.ReadOnly = True + Me.colGameName.ToolTip = "The game's name (derived from filename or directory name)" + Me.colGameName.Visible = True + Me.colGameName.Width = 464 + ' + 'colMatch_Moby_Year + ' + Me.colMatch_Moby_Year.Caption = "Moby Year" + Me.colMatch_Moby_Year.FieldName = "Match_Moby_Year" + Me.colMatch_Moby_Year.Name = "colMatch_Moby_Year" + Me.colMatch_Moby_Year.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Year.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Year.ToolTip = "The year of the game's release according to MobyGames" + Me.colMatch_Moby_Year.Visible = True + Me.colMatch_Moby_Year.Width = 159 + ' + 'colDeveloper1 + ' + Me.colDeveloper1.FieldName = "Developer" + Me.colDeveloper1.Name = "colDeveloper1" + Me.colDeveloper1.OptionsColumn.AllowEdit = False + Me.colDeveloper1.OptionsColumn.ReadOnly = True + Me.colDeveloper1.ToolTip = "The Moby Game's development company" + Me.colDeveloper1.Visible = True + Me.colDeveloper1.Width = 429 + ' + 'colGameName_Filtered + ' + Me.colGameName_Filtered.Caption = "Gamename (filtered)" + Me.colGameName_Filtered.FieldName = "GameName_Filtered" + Me.colGameName_Filtered.Name = "colGameName_Filtered" + Me.colGameName_Filtered.OptionsColumn.AllowEdit = False + Me.colGameName_Filtered.OptionsColumn.ReadOnly = True + Me.colGameName_Filtered.ToolTip = "The game's name after filtering" + Me.colGameName_Filtered.Visible = True + Me.colGameName_Filtered.Width = 208 + ' + 'colSpacer2 + ' + Me.colSpacer2.Name = "colSpacer2" + Me.colSpacer2.OptionsColumn.AllowEdit = False + Me.colSpacer2.OptionsColumn.ReadOnly = True + Me.colSpacer2.RowIndex = 1 + Me.colSpacer2.Visible = True + Me.colSpacer2.Width = 41 + ' + 'colIdentifier + ' + Me.colIdentifier.FieldName = "Identifier" + Me.colIdentifier.Name = "colIdentifier" + Me.colIdentifier.OptionsColumn.AllowEdit = False + Me.colIdentifier.OptionsColumn.ReadOnly = True + Me.colIdentifier.RowIndex = 1 + Me.colIdentifier.ToolTip = "The game's identifier" + Me.colIdentifier.Visible = True + Me.colIdentifier.Width = 103 + ' + 'colSpacer + ' + Me.colSpacer.Name = "colSpacer" + Me.colSpacer.OptionsColumn.AllowEdit = False + Me.colSpacer.OptionsColumn.ReadOnly = True + Me.colSpacer.RowIndex = 1 + Me.colSpacer.Width = 103 + ' + 'colMatch_Moby_Gamename + ' + Me.colMatch_Moby_Gamename.Caption = "Moby Release" + Me.colMatch_Moby_Gamename.FieldName = "Match_Moby_Gamename" + Me.colMatch_Moby_Gamename.Name = "colMatch_Moby_Gamename" + Me.colMatch_Moby_Gamename.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Gamename.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Gamename.RowIndex = 1 + Me.colMatch_Moby_Gamename.ToolTip = "The game's name of the Moby Release" + Me.colMatch_Moby_Gamename.Visible = True + Me.colMatch_Moby_Gamename.Width = 464 + ' + 'colMatch_Moby_created + ' + Me.colMatch_Moby_created.Caption = "Moby Created" + Me.colMatch_Moby_created.FieldName = "Match_Moby_created" + Me.colMatch_Moby_created.Name = "colMatch_Moby_created" + Me.colMatch_Moby_created.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_created.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_created.RowIndex = 1 + Me.colMatch_Moby_created.ToolTip = "Creation date of the Moby Release" + Me.colMatch_Moby_created.Visible = True + Me.colMatch_Moby_created.Width = 159 + ' + 'colPublisher1 + ' + Me.colPublisher1.FieldName = "Publisher" + Me.colPublisher1.Name = "colPublisher1" + Me.colPublisher1.OptionsColumn.AllowEdit = False + Me.colPublisher1.OptionsColumn.ReadOnly = True + Me.colPublisher1.RowIndex = 1 + Me.colPublisher1.ToolTip = "The Moby Game's publishing company" + Me.colPublisher1.Visible = True + Me.colPublisher1.Width = 429 + ' + 'colMatch_Moby_Gamename_Filtered + ' + Me.colMatch_Moby_Gamename_Filtered.Caption = "Moby Release (filtered)" + Me.colMatch_Moby_Gamename_Filtered.FieldName = "Match_Moby_Gamename_Filtered" + Me.colMatch_Moby_Gamename_Filtered.Name = "colMatch_Moby_Gamename_Filtered" + Me.colMatch_Moby_Gamename_Filtered.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Gamename_Filtered.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Gamename_Filtered.RowIndex = 1 + Me.colMatch_Moby_Gamename_Filtered.ToolTip = "The game's name of the Moby Release after filtering" + Me.colMatch_Moby_Gamename_Filtered.Visible = True + Me.colMatch_Moby_Gamename_Filtered.Width = 208 + ' + 'rpi_Moby_Release + ' + Me.rpi_Moby_Release.AutoHeight = False + Me.rpi_Moby_Release.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Release.DisplayMember = "Gamename" + Me.rpi_Moby_Release.Name = "rpi_Moby_Release" + Me.rpi_Moby_Release.NullText = "" + Me.rpi_Moby_Release.ValueMember = "id_Moby_Releases" + ' + 'rpi_Moby_Platforms_gv1 + ' + Me.rpi_Moby_Platforms_gv1.AutoHeight = False + Me.rpi_Moby_Platforms_gv1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Platforms_gv1.DisplayMember = "Display_Name" + Me.rpi_Moby_Platforms_gv1.Name = "rpi_Moby_Platforms_gv1" + Me.rpi_Moby_Platforms_gv1.ValueMember = "id_Moby_Platforms" + ' + 'grd_Moby_Releases + ' + Me.grd_Moby_Releases.DataSource = Me.BS_Moby_Releases + Me.grd_Moby_Releases.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Releases.Location = New System.Drawing.Point(0, 42) + Me.grd_Moby_Releases.MainView = Me.gv_Moby_Releases + Me.grd_Moby_Releases.Name = "grd_Moby_Releases" + Me.grd_Moby_Releases.Size = New System.Drawing.Size(324, 649) + Me.grd_Moby_Releases.TabIndex = 4 + Me.grd_Moby_Releases.UseEmbeddedNavigator = True + Me.grd_Moby_Releases.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Releases}) + ' + 'gv_Moby_Releases + ' + Me.gv_Moby_Releases.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPublisher, Me.colDeveloper, Me.GridColumn1, Me.colHighlighted, Me.colYear, Me.colcreated, Me.colDeprecated1}) + Me.gv_Moby_Releases.GridControl = Me.grd_Moby_Releases + Me.gv_Moby_Releases.Name = "gv_Moby_Releases" + Me.gv_Moby_Releases.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Releases.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Releases.OptionsView.ShowGroupPanel = False + ' + 'colPublisher + ' + Me.colPublisher.Caption = "Publisher" + Me.colPublisher.FieldName = "Publisher" + Me.colPublisher.Name = "colPublisher" + Me.colPublisher.OptionsColumn.AllowEdit = False + Me.colPublisher.OptionsColumn.ReadOnly = True + Me.colPublisher.Visible = True + Me.colPublisher.VisibleIndex = 3 + ' + 'colDeveloper + ' + Me.colDeveloper.Caption = "Developer" + Me.colDeveloper.FieldName = "Developer" + Me.colDeveloper.Name = "colDeveloper" + Me.colDeveloper.OptionsColumn.AllowEdit = False + Me.colDeveloper.OptionsColumn.ReadOnly = True + Me.colDeveloper.Visible = True + Me.colDeveloper.VisibleIndex = 4 + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "Gamename" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + Me.GridColumn1.OptionsColumn.ReadOnly = True + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 1 + Me.GridColumn1.Width = 151 + ' + 'colHighlighted + ' + Me.colHighlighted.FieldName = "Highlighted" + Me.colHighlighted.Name = "colHighlighted" + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 2 + Me.colYear.Width = 62 + ' + 'colcreated + ' + Me.colcreated.Caption = "Added" + Me.colcreated.DisplayFormat.FormatString = "g" + Me.colcreated.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colcreated.FieldName = "created" + Me.colcreated.Name = "colcreated" + Me.colcreated.OptionsColumn.AllowEdit = False + Me.colcreated.OptionsColumn.ReadOnly = True + Me.colcreated.Visible = True + Me.colcreated.VisibleIndex = 5 + Me.colcreated.Width = 99 + ' + 'lbl_Moby_Releases + ' + Me.lbl_Moby_Releases.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Moby_Releases.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Moby_Releases.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Moby_Releases.Location = New System.Drawing.Point(0, 0) + Me.lbl_Moby_Releases.MKBoundControl1 = Nothing + Me.lbl_Moby_Releases.MKBoundControl2 = Nothing + Me.lbl_Moby_Releases.MKBoundControl3 = Nothing + Me.lbl_Moby_Releases.MKBoundControl4 = Nothing + Me.lbl_Moby_Releases.MKBoundControl5 = Nothing + Me.lbl_Moby_Releases.Name = "lbl_Moby_Releases" + Me.lbl_Moby_Releases.Size = New System.Drawing.Size(324, 42) + Me.lbl_Moby_Releases.TabIndex = 3 + Me.lbl_Moby_Releases.Text = "Moby Releases" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(987, 697) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 10 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn_OK.Location = New System.Drawing.Point(909, 697) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 9 + Me.btn_OK.Text = "&OK" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Open_Moby_Page, Me.bbi_Apply_True, Me.bbi_Apply_False}) + Me.barmng.MaxItemId = 16 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(1065, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 729) + Me.barDockControlBottom.Size = New System.Drawing.Size(1065, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 729) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(1065, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 729) + ' + 'bbi_Open_Moby_Page + ' + Me.bbi_Open_Moby_Page.Caption = "&Open Moby Page" + Me.bbi_Open_Moby_Page.Id = 10 + Me.bbi_Open_Moby_Page.ImageUri.Uri = "NavigationBar" + Me.bbi_Open_Moby_Page.Name = "bbi_Open_Moby_Page" + ' + 'bbi_Apply_True + ' + Me.bbi_Apply_True.Caption = "Apply for selected Games" + Me.bbi_Apply_True.Id = 14 + Me.bbi_Apply_True.ImageUri.Uri = "Apply" + Me.bbi_Apply_True.Name = "bbi_Apply_True" + ' + 'bbi_Apply_False + ' + Me.bbi_Apply_False.Caption = "Don't Apply for selected games" + Me.bbi_Apply_False.Id = 15 + Me.bbi_Apply_False.ImageUri.Uri = "Cancel" + Me.bbi_Apply_False.Name = "bbi_Apply_False" + ' + 'popmnu_Moby_Games + ' + Me.popmnu_Moby_Games.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Open_Moby_Page)}) + Me.popmnu_Moby_Games.Manager = Me.barmng + Me.popmnu_Moby_Games.Name = "popmnu_Moby_Games" + ' + 'popmnu_Link + ' + Me.popmnu_Link.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Apply_True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Apply_False)}) + Me.popmnu_Link.Manager = Me.barmng + Me.popmnu_Link.Name = "popmnu_Link" + ' + 'coldeprecated + ' + Me.coldeprecated.FieldName = "deprecated" + Me.coldeprecated.Name = "coldeprecated" + Me.coldeprecated.OptionsColumn.AllowEdit = False + Me.coldeprecated.OptionsColumn.ReadOnly = True + Me.coldeprecated.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + ' + 'colDeprecated1 + ' + Me.colDeprecated1.Caption = "deprecated" + Me.colDeprecated1.FieldName = "deprecated" + Me.colDeprecated1.Name = "colDeprecated1" + Me.colDeprecated1.OptionsColumn.AllowEdit = False + Me.colDeprecated1.OptionsColumn.ReadOnly = True + Me.colDeprecated1.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + Me.colDeprecated1.Visible = True + Me.colDeprecated1.VisibleIndex = 0 + ' + 'frm_Moby_Auto_Link + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1065, 729) + Me.Controls.Add(Me.pnl_Main) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Moby_Auto_Link" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Detect MobyGames Links Preview" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Main.ResumeLayout(False) + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Main.ResumeLayout(False) + CType(Me.grd_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.abgvMoby_Auto_Link, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Link, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl_Main As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents DS_ML As DS_ML + Private WithEvents grd_Moby_Auto_Link As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents rpi_Moby_Platforms_gv1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents rpi_Moby_Release As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents BS_Moby_Auto_Link As BindingSource + Friend WithEvents rpi_Apply As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents spltpnl_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents lbl_Moby_Releases As MKNetDXLib.ctl_MKDXLabel + Private WithEvents grd_Moby_Releases As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BS_Moby_Releases As BindingSource + Private WithEvents gv_Moby_Releases As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHighlighted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colcreated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents abgvMoby_Auto_Link As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents colApply As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colGameName As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colGameName_Filtered As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colMatch_Accuracy As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colMatch_Moby_created As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colMatch_Moby_Gamename As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colMatch_Moby_Gamename_Filtered As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colMatch_Moby_Year As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colSpacer As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colSpacer2 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Open_Moby_Page As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Moby_Games As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents colIdentifier As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colPublisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDeveloper As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_Apply_True As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Apply_False As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colDeveloper1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colPublisher1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents popmnu_Link As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents coldeprecated As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colDeprecated1 As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.resx b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.resx new file mode 100644 index 0000000..44a5c3e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 107, 18 + + + 17, 17 + + + 775, 17 + + + 287, 18 + + + 392, 16 + + + 590, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.vb b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.vb new file mode 100644 index 0000000..6ad4e4f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link.vb @@ -0,0 +1,340 @@ +Imports System.ComponentModel + +Public Class frm_Moby_Auto_Link + + Private _src_Moby_Releases As DS_MobyDB.src_Moby_ReleasesDataTable + + Private _dict_Moby_Releases As New Dictionary(Of String, DS_MobyDB.src_Moby_ReleasesRow) + + Private _Auto_Link_Options As frm_Moby_Auto_Link_Options.cls_Moby_Auto_Link_Options + + Private _tbl_Moby_Auto_Link As DS_ML.tbl_Moby_Auto_LinkDataTable + + Private _Moby_Platform_URLPart As String + + Public Sub New(ByRef tbl_Moby_Auto_Link As DS_ML.tbl_Moby_Auto_LinkDataTable, ByRef src_Moby_Releases As DS_MobyDB.src_Moby_ReleasesDataTable, ByVal sExplanation As String, ByRef Auto_Link_Options As frm_Moby_Auto_Link_Options.cls_Moby_Auto_Link_Options, ByVal Moby_Platform_URLPart As String) + InitializeComponent() + + barmng.SetPopupContextMenu(grd_Moby_Releases, popmnu_Moby_Games) + barmng.SetPopupContextMenu(grd_Moby_Auto_Link, popmnu_Link) + + Me.lbl_Explanation.Text = sExplanation + Me._Auto_Link_Options = Auto_Link_Options + + Me._tbl_Moby_Auto_Link = tbl_Moby_Auto_Link + Me._src_Moby_Releases = src_Moby_Releases + + Me._Moby_Platform_URLPart = Moby_Platform_URLPart + + '### Import and Filter Moby Auto Link Rows ### + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Filtering Game names...", 0, _tbl_Moby_Auto_Link.Rows.Count, False) + prg.Start() + + For Each row As DS_ML.tbl_Moby_Auto_LinkRow In _tbl_Moby_Auto_Link.Rows + Me.DS_ML.tbl_Moby_Auto_Link.ImportRow(row) + Next + + For Each row As DS_ML.tbl_Moby_Auto_LinkRow In Me.DS_ML.tbl_Moby_Auto_Link.Rows + prg.IncreaseCurrentValue() + + row.GameName_Filtered = Apply_Filter(TC.NZ(row("GameName"), ""), False) + Next + + prg.Close() + + '### Import and Filter Moby Releases Rows ### + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Filtering Moby Release names...", 0, _src_Moby_Releases.Rows.Count, False) + prg.Start() + + For Each row As DS_MobyDB.src_Moby_ReleasesRow In _src_Moby_Releases.Rows + prg.IncreaseCurrentValue() + + Dim tmp_Gamename_Filtered As String = Apply_Filter(TC.NZ(row("Gamename"), ""), True) + row("tmp_Gamename_Filtered") = tmp_Gamename_Filtered + + If tmp_Gamename_Filtered <> "" AndAlso Not Me._dict_Moby_Releases.ContainsKey(tmp_Gamename_Filtered) Then + Me._dict_Moby_Releases(tmp_Gamename_Filtered) = row + End If + Next + + Me.BS_Moby_Releases.DataSource = Me._src_Moby_Releases + + prg.Close() + + '### Do the matching ### + Dim arrMobyReleaseNameList As String() = (From row As DataRow In _src_Moby_Releases.Rows Select TC.NZ(row("tmp_Gamename_Filtered"), "")).ToArray + Dim glistMobyReleaseNameList As New Generic.List(Of String) + glistMobyReleaseNameList.AddRange(arrMobyReleaseNameList) + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Analyzing entry {0} of {1}", 0, Me.DS_ML.tbl_Moby_Auto_Link.Rows.Count, False) + prg.Start() + + For Each row_Game As DS_ML.tbl_Moby_Auto_LinkRow In Me.DS_ML.tbl_Moby_Auto_Link.Rows + prg.IncreaseCurrentValue() + + Dim Gamename_Filtered As String = TC.NZ(row_Game("GameName_Filtered"), "") + + If Gamename_Filtered = "" Then + Continue For + End If + + Dim minimumScore As Double = CDbl(Me._Auto_Link_Options.Minimum_Match_Score) / CDbl(100) + + Dim foundWords As List(Of String) = MKNetLib.cls_MKStringSupport.FuzzySearch.Search(Gamename_Filtered, glistMobyReleaseNameList, minimumScore) + + Dim row_BestMatch As DS_MobyDB.src_Moby_ReleasesRow = Nothing + Dim score_BestMatch As Double = 0.0 + + For Each foundWord As String In foundWords + Dim levenshteinDistance As Integer = MKNetLib.cls_MKStringSupport.FuzzySearch.LevenshteinDistance(Gamename_Filtered, foundWord) + + Dim length As Integer = Math.Max(Gamename_Filtered.Length, foundWord.Length) + Dim score As Double = 1.0 - CDbl(levenshteinDistance) / length + + If score > score_BestMatch Then + row_BestMatch = Me._dict_Moby_Releases(foundWord) + score_BestMatch = score + End If + Next + + If score_BestMatch > 0.0 AndAlso row_BestMatch IsNot Nothing Then + row_Game.Match_Accuracy = CType(score_BestMatch * 100, Integer) + row_Game.Match_Moby_created = row_BestMatch("created") + row_Game.Match_Moby_Gamename = row_BestMatch("Gamename") + row_Game.Match_Moby_Gamename_Filtered = row_BestMatch("tmp_Gamename_Filtered") + row_Game.Match_Moby_Games_URLPart = row_BestMatch("Moby_Games_URLPart") + row_Game.Match_id_Moby_Releases = Math.Abs(row_BestMatch("id_Moby_Releases")) + row_Game.Match_Moby_Year = row_BestMatch("Year") + row_Game("Developer") = row_BestMatch("Developer") + row_Game("Publisher") = row_BestMatch("Publisher") + row_Game("deprecated") = row_BestMatch("deprecated") + + If score_BestMatch = 1 Then + row_Game.Apply = True + End If + End If + Next + + prg.Close() + End Sub + + Private Function Apply_Filter(ByVal text As String, ByVal is_Moby_Release_Name As Boolean) As String + Dim text_filtered As String + + If is_Moby_Release_Name OrElse Not Me._Auto_Link_Options.Strip_File_Extension Then + text_filtered = text.ToLower() + Else + Try + text_filtered = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(text).ToLower() + Catch ex As Exception + text_filtered = text.ToLower() + End Try + End If + + 'Remove [] tags from moby release names + If is_Moby_Release_Name Then + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(text_filtered, "\[.*?\]") + If matches.Count > 0 Then + For Each match As System.Text.RegularExpressions.Match In matches + text_filtered = text_filtered.Replace(match.Value, "").Trim + Next + End If + End If + + '(Optional) Remove Tags + If Not is_Moby_Release_Name AndAlso Me._Auto_Link_Options.Strip_Tags Then + 'Remove all tags + Dim dict_contents As Dictionary(Of String, String) = frm_Tag_Parser_Edit.Extract_Content_From_FileName(text_filtered) + + For Each scontent As String In dict_contents.Keys + text_filtered = text_filtered.Replace(scontent, "") + Next + End If + + 'Get rid of double/triple etc. spaces + While text_filtered.Contains(" ") + text_filtered = text_filtered.Replace(" ", " ") + End While + text_filtered = Trim(text_filtered) + + 'Split into whole words and sort them + If Me._Auto_Link_Options.Sort_Words Then + Dim words As String() = text_filtered.Split(" ") + + Dim new_text_filtered As String = "" + + Array.Sort(words) + + For Each word As String In words + new_text_filtered &= IIf(new_text_filtered <> "", " ", "") & word + Next + + text_filtered = new_text_filtered + End If + + 'Remove unwanted Characters + If Me._Auto_Link_Options.Remove_Characters AndAlso Me._Auto_Link_Options.Remove_Characters_String <> "" Then + For Each character As Char In Me._Auto_Link_Options.Remove_Characters_String + text_filtered = text_filtered.Replace(character, "") + Next + End If + + Return text_filtered.Trim() + End Function + + Private Sub frm_Moby_Auto_Link_Shown(sender As Object, e As EventArgs) Handles Me.Shown + + + End Sub + + Private Sub gv_Moby_Auto_Link_MouseMove(sender As Object, e As MouseEventArgs) Handles abgvMoby_Auto_Link.MouseMove + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = abgvMoby_Auto_Link.CalcHitInfo(e.Location) + If hitinfo.InRowCell Then + grd_Moby_Auto_Link.Cursor = Cursors.Default + + If {"Apply"}.Contains(hitinfo.Column.FieldName) Then + If hitinfo.RowHandle >= 0 Then + If TC.NZ(abgvMoby_Auto_Link.GetRow(hitinfo.RowHandle).Row("Match_Moby_Games_URLPart"), "") <> "" Then + grd_Moby_Auto_Link.Cursor = Cursors.Hand + Else + grd_Moby_Auto_Link.Cursor = Cursors.No + End If + End If + End If + End If + End Sub + + Private Sub gv_Moby_Auto_Link_MouseDown(sender As Object, e As MouseEventArgs) Handles abgvMoby_Auto_Link.MouseDown + If e.Button = MouseButtons.Left Then + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = abgvMoby_Auto_Link.CalcHitInfo(e.Location) + + If Not hitinfo.InColumn AndAlso Not hitinfo.InColumnPanel AndAlso Not hitinfo.InFilterPanel AndAlso Not hitinfo.InGroupColumn AndAlso Not hitinfo.InGroupPanel Then + If hitinfo.Column IsNot Nothing AndAlso {"Apply"}.Contains(hitinfo.Column.FieldName) AndAlso hitinfo.RowHandle > -1 Then + + If hitinfo.RowHandle >= 0 Then + Dim row As DataRow = abgvMoby_Auto_Link.GetRow(hitinfo.RowHandle).Row + If TC.NZ(row("Match_Moby_Games_URLPart"), "") <> "" Then + row("Apply") = Not TC.NZ(row("Apply"), False) + grd_Moby_Auto_Link.Refresh() + End If + End If + End If + End If + End If + + 'If e.Button = MouseButtons.Right Then + ' Me.popmnu_Link.ShowPopup(New Point(e.X, e.Y)) + 'End If + End Sub + + Private Sub BS_Moby_Auto_Link_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Moby_Auto_Link.CurrentChanged + gv_Moby_Releases.RefreshData() + + If BS_Moby_Auto_Link.Current Is Nothing Then Return + + If Not TC.IsNullNothingOrEmpty(BS_Moby_Auto_Link.Current("Match_id_Moby_Releases")) Then + Dim iNewPos As Integer = BS_Moby_Releases.Find("id_Moby_Releases", BS_Moby_Auto_Link.Current("Match_id_Moby_Releases")) + If iNewPos > 0 Then + BS_Moby_Releases.Position = iNewPos + Me.gv_Moby_Releases.ClearSelection() + Me.gv_Moby_Releases.SelectRow(Me.gv_Moby_Releases.FocusedRowHandle) + + End If + End If + End Sub + + Private Sub grd_Moby_Releases_DoubleClick(sender As Object, e As EventArgs) Handles grd_Moby_Releases.DoubleClick + Dim e_mouse As DevExpress.Utils.DXMouseEventArgs = e + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Moby_Releases.CalcHitInfo(e_mouse.Location) + If Not hitinfo.InRow Then + Return + End If + + If BS_Moby_Auto_Link.Current IsNot Nothing AndAlso BS_Moby_Releases.Current IsNot Nothing Then + For Each iRowHandle As Integer In abgvMoby_Auto_Link.GetSelectedRows + Dim row As DataRowView = abgvMoby_Auto_Link.GetRow(iRowHandle) + If iRowHandle >= 0 AndAlso abgvMoby_Auto_Link.GetRow(iRowHandle) IsNot Nothing Then + row.Row("Match_id_Moby_Releases") = Math.Abs(BS_Moby_Releases.Current("id_Moby_Releases")) + row.Row("Match_Moby_Games_URLPart") = BS_Moby_Releases.Current("Moby_Games_URLPart").Replace("\", "") + 'row.Row("Match_Accuracy") = DBNull.Value + row.Row("Match_Moby_created") = BS_Moby_Releases.Current("created") + row.Row("Match_Moby_Gamename") = BS_Moby_Releases.Current("Gamename") + row.Row("Match_Moby_Gamename_Filtered") = BS_Moby_Releases.Current("tmp_Gamename_Filtered") + row.Row("Match_Moby_Year") = BS_Moby_Releases.Current("Year") + row.Row("Developer") = BS_Moby_Releases.Current("Developer") + row.Row("Publisher") = BS_Moby_Releases.Current("Publisher") + row.Row("deprecated") = BS_Moby_Releases.Current("deprecated") + row.Row("Apply") = True + End If + Next + End If + End Sub + + Private Sub abgvMoby_Auto_Link_KeyDown(sender As Object, e As KeyEventArgs) Handles abgvMoby_Auto_Link.KeyDown + If BS_Moby_Auto_Link.Current Is Nothing Then + Return + End If + + If e.KeyCode = Keys.Enter Then + If TC.NZ(BS_Moby_Auto_Link.Current("Match_Moby_Games_URLPart"), "") <> "" Then + BS_Moby_Auto_Link.Current("Apply") = Not TC.NZ(BS_Moby_Auto_Link.Current("Apply"), False) + BS_Moby_Auto_Link.EndEdit() + grd_Moby_Auto_Link.Refresh() + End If + + End If + End Sub + + Private Sub bbi_Open_Moby_Page_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Open_Moby_Page.ItemClick + If BS_Moby_Releases.Current Is Nothing Then Return + + Try + Dim sURL As String = "http://www.mobygames.com/game/" & Me._Moby_Platform_URLPart & "/" & TC.NZ(BS_Moby_Releases.Current("Moby_Games_URLPart"), "").Replace("\", "") + Dim procinfo As New ProcessStartInfo(sURL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + Catch ex As Exception + + End Try + End Sub + + Private Sub popmnu_Moby_Games_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Moby_Games.BeforePopup + If Not grd_Moby_Releases.Allow_Popup Then + e.Cancel = True + Return + End If + End Sub + + Private Sub popmnu_Link_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Link.BeforePopup + If Not grd_Moby_Auto_Link.Allow_Popup Then + e.Cancel = True + Return + End If + End Sub + + Private Sub SetApply(ByVal apply As Boolean) + For Each rowHandle As Integer In Me.abgvMoby_Auto_Link.GetSelectedRows + If rowHandle >= 0 Then + Dim row As DataRow = Me.abgvMoby_Auto_Link.GetRow(rowHandle) + row("Apply") = apply + End If + Next + End Sub + + Private Sub bbi_Apply_True_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Apply_True.ItemClick + SetApply(True) + End Sub + + Private Sub bbi_Apply_False_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Apply_False.ItemClick + SetApply(False) + End Sub + + Private Sub abgvMoby_Auto_Link_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles abgvMoby_Auto_Link.FocusedRowChanged + Dim gv As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView = CType(sender, DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView) + + If TC.NZ(gv.GetIncrementalText(), "") <> "" Then + gv.ClearSelection() + gv.SelectRow(gv.FocusedRowHandle) + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.Designer.vb new file mode 100644 index 0000000..8bb1a39 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.Designer.vb @@ -0,0 +1,792 @@ + +Partial Class frm_Moby_Auto_Link_Options + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Moby_Auto_Link_Options)) + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Me.lbl_Strip_Tags = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Strip_Tags = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Sort_Words = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Sort_Words = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Remove_Characters = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Remove_Characters = New MKNetDXLib.ctl_MKDXTextEdit() + Me.chb_Remove_Characters = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Main = New MKNetDXLib.ctl_MKDXPanel() + Me.spn_Minimum_Match_Score = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_Minimum_Match_Score = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Strip_Extensions = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Strip_Extensions = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + Me.spltpnl_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_Moby_Auto_Link = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Moby_Auto_Link = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colApply = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Apply = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colGameName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGameName_Filtered = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMatch_Accuracy = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMatch_Moby_created = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMatch_Moby_Gamename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMatch_Moby_Gamename_Filtered = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMatch_Moby_Year = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Moby_Release = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.rpi_Moby_Platforms_gv1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.grd_Moby_Releases = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Moby_Releases = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHighlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colcreated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Moby_Releases = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.chb_Strip_Tags.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sort_Words.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Remove_Characters.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Remove_Characters.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Main.SuspendLayout() + CType(Me.spn_Minimum_Match_Score.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Strip_Extensions.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXPanel1.SuspendLayout() + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Main.SuspendLayout() + CType(Me.grd_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Strip_Tags + ' + Me.lbl_Strip_Tags.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Strip_Tags.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Strip_Tags.Location = New System.Drawing.Point(2, 26) + Me.lbl_Strip_Tags.MKBoundControl1 = Nothing + Me.lbl_Strip_Tags.MKBoundControl2 = Nothing + Me.lbl_Strip_Tags.MKBoundControl3 = Nothing + Me.lbl_Strip_Tags.MKBoundControl4 = Nothing + Me.lbl_Strip_Tags.MKBoundControl5 = Nothing + Me.lbl_Strip_Tags.Name = "lbl_Strip_Tags" + Me.lbl_Strip_Tags.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem1.Text = "Strip Tags from Filenames" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + ToolTipTitleItem2.LeftIndent = 6 + ToolTipTitleItem2.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Sonic The Hedgehog 2 (World) (Rev A)""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Text after " & + "filtering: ""Sonic The Hedgehog 2""" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + SuperToolTip1.Items.Add(ToolTipTitleItem2) + Me.lbl_Strip_Tags.SuperTip = SuperToolTip1 + Me.lbl_Strip_Tags.TabIndex = 2 + Me.lbl_Strip_Tags.Text = "Strip Tags from Filenames:" + ' + 'chb_Strip_Tags + ' + Me.chb_Strip_Tags.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Strip_Tags.EditValue = True + Me.chb_Strip_Tags.Location = New System.Drawing.Point(148, 27) + Me.chb_Strip_Tags.MKBoundLabel = Nothing + Me.chb_Strip_Tags.MKEditValue_Compare = Nothing + Me.chb_Strip_Tags.Name = "chb_Strip_Tags" + Me.chb_Strip_Tags.Properties.Caption = "" + Me.chb_Strip_Tags.Size = New System.Drawing.Size(20, 19) + ToolTipTitleItem3.Text = "Stripping Tags from Filenames" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = resources.GetString("ToolTipItem2.Text") + ToolTipTitleItem4.LeftIndent = 6 + ToolTipTitleItem4.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Sonic The Hedgehog 2 (World) (Rev A)""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Text after " & + "filtering: ""Sonic The Hedgehog 2""" + SuperToolTip2.Items.Add(ToolTipTitleItem3) + SuperToolTip2.Items.Add(ToolTipItem2) + SuperToolTip2.Items.Add(ToolTipTitleItem4) + Me.chb_Strip_Tags.SuperTip = SuperToolTip2 + Me.chb_Strip_Tags.TabIndex = 11 + ' + 'lbl_Sort_Words + ' + Me.lbl_Sort_Words.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Sort_Words.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Sort_Words.Location = New System.Drawing.Point(2, 49) + Me.lbl_Sort_Words.MKBoundControl1 = Nothing + Me.lbl_Sort_Words.MKBoundControl2 = Nothing + Me.lbl_Sort_Words.MKBoundControl3 = Nothing + Me.lbl_Sort_Words.MKBoundControl4 = Nothing + Me.lbl_Sort_Words.MKBoundControl5 = Nothing + Me.lbl_Sort_Words.Name = "lbl_Sort_Words" + Me.lbl_Sort_Words.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem5.Text = "Sort whole words" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + ToolTipTitleItem6.LeftIndent = 6 + ToolTipTitleItem6.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Faery Tale Adventure, The""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "After filtering: ""Adve" & + "nture, Faery Tale The""" + SuperToolTip3.Items.Add(ToolTipTitleItem5) + SuperToolTip3.Items.Add(ToolTipItem3) + SuperToolTip3.Items.Add(ToolTipTitleItem6) + Me.lbl_Sort_Words.SuperTip = SuperToolTip3 + Me.lbl_Sort_Words.TabIndex = 2 + Me.lbl_Sort_Words.Text = "Sort whole words:" + ' + 'chb_Sort_Words + ' + Me.chb_Sort_Words.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sort_Words.EditValue = True + Me.chb_Sort_Words.Location = New System.Drawing.Point(148, 49) + Me.chb_Sort_Words.MKBoundLabel = Nothing + Me.chb_Sort_Words.MKEditValue_Compare = Nothing + Me.chb_Sort_Words.Name = "chb_Sort_Words" + Me.chb_Sort_Words.Properties.Caption = "" + Me.chb_Sort_Words.Size = New System.Drawing.Size(20, 19) + ToolTipTitleItem7.Text = "Sort whole words" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = resources.GetString("ToolTipItem4.Text") + ToolTipTitleItem8.LeftIndent = 6 + ToolTipTitleItem8.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Faery Tale Adventure, The""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "After filtering: ""Adve" & + "nture, Faery Tale The""" + SuperToolTip4.Items.Add(ToolTipTitleItem7) + SuperToolTip4.Items.Add(ToolTipItem4) + SuperToolTip4.Items.Add(ToolTipTitleItem8) + Me.chb_Sort_Words.SuperTip = SuperToolTip4 + Me.chb_Sort_Words.TabIndex = 11 + ' + 'lbl_Remove_Characters + ' + Me.lbl_Remove_Characters.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Remove_Characters.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Remove_Characters.Location = New System.Drawing.Point(2, 72) + Me.lbl_Remove_Characters.MKBoundControl1 = Nothing + Me.lbl_Remove_Characters.MKBoundControl2 = Nothing + Me.lbl_Remove_Characters.MKBoundControl3 = Nothing + Me.lbl_Remove_Characters.MKBoundControl4 = Nothing + Me.lbl_Remove_Characters.MKBoundControl5 = Nothing + Me.lbl_Remove_Characters.Name = "lbl_Remove_Characters" + Me.lbl_Remove_Characters.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem9.Text = "Remove Characters" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Some characters do not add up to the distinguishability of games. They could even" & + " be malicious regarding text comparison." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "This filter applies for your filenam" & + "es and Moby Games release names." + ToolTipTitleItem10.LeftIndent = 6 + ToolTipTitleItem10.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Dinosaur's Tale, A""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "After filtering: ""Dinosaurs T" & + "ale A""" + SuperToolTip5.Items.Add(ToolTipTitleItem9) + SuperToolTip5.Items.Add(ToolTipItem5) + SuperToolTip5.Items.Add(ToolTipTitleItem10) + Me.lbl_Remove_Characters.SuperTip = SuperToolTip5 + Me.lbl_Remove_Characters.TabIndex = 2 + Me.lbl_Remove_Characters.Text = "Remove Characters:" + ' + 'txb_Remove_Characters + ' + Me.txb_Remove_Characters.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Remove_Characters.EditValue = ",;:-_'~" + Me.txb_Remove_Characters.Location = New System.Drawing.Point(164, 70) + Me.txb_Remove_Characters.MKBoundLabel = Nothing + Me.txb_Remove_Characters.MKEditValue_Compare = Nothing + Me.txb_Remove_Characters.Name = "txb_Remove_Characters" + Me.txb_Remove_Characters.Size = New System.Drawing.Size(262, 20) + ToolTipTitleItem11.Text = "Remove Characters" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Some characters do not add up to the distinguishability of games. They could even" & + " be malicious regarding text comparison." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "This filter applies for your filenam" & + "es and Moby Games release names." + ToolTipTitleItem12.LeftIndent = 6 + ToolTipTitleItem12.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Dinosaur's Tale, A""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "After filtering: ""Dinosaurs T" & + "ale A""" + SuperToolTip6.Items.Add(ToolTipTitleItem11) + SuperToolTip6.Items.Add(ToolTipItem6) + SuperToolTip6.Items.Add(ToolTipTitleItem12) + Me.txb_Remove_Characters.SuperTip = SuperToolTip6 + Me.txb_Remove_Characters.TabIndex = 12 + ' + 'chb_Remove_Characters + ' + Me.chb_Remove_Characters.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Remove_Characters.EditValue = True + Me.chb_Remove_Characters.Location = New System.Drawing.Point(148, 72) + Me.chb_Remove_Characters.MKBoundLabel = Nothing + Me.chb_Remove_Characters.MKEditValue_Compare = Nothing + Me.chb_Remove_Characters.Name = "chb_Remove_Characters" + Me.chb_Remove_Characters.Properties.Caption = "" + Me.chb_Remove_Characters.Size = New System.Drawing.Size(20, 19) + ToolTipTitleItem13.Text = "Remove Characters" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Some characters do not add up to the distinguishability of games. They could even" & + " be malicious regarding text comparison." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "This filter applies for your filenam" & + "es and Moby Games release names." + ToolTipTitleItem14.LeftIndent = 6 + ToolTipTitleItem14.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Dinosaur's Tale, A""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "After filtering: ""Dinosaurs T" & + "ale A""" + SuperToolTip7.Items.Add(ToolTipTitleItem13) + SuperToolTip7.Items.Add(ToolTipItem7) + SuperToolTip7.Items.Add(ToolTipTitleItem14) + Me.chb_Remove_Characters.SuperTip = SuperToolTip7 + Me.chb_Remove_Characters.TabIndex = 11 + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Top + Me.lbl_Explanation.AutoEllipsis = True + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(430, 71) + Me.lbl_Explanation.TabIndex = 13 + Me.lbl_Explanation.Text = resources.GetString("lbl_Explanation.Text") + ' + 'pnl_Main + ' + Me.pnl_Main.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Main.Controls.Add(Me.spn_Minimum_Match_Score) + Me.pnl_Main.Controls.Add(Me.lbl_Minimum_Match_Score) + Me.pnl_Main.Controls.Add(Me.chb_Strip_Extensions) + Me.pnl_Main.Controls.Add(Me.lbl_Strip_Extensions) + Me.pnl_Main.Controls.Add(Me.lbl_Strip_Tags) + Me.pnl_Main.Controls.Add(Me.lbl_Sort_Words) + Me.pnl_Main.Controls.Add(Me.txb_Remove_Characters) + Me.pnl_Main.Controls.Add(Me.lbl_Remove_Characters) + Me.pnl_Main.Controls.Add(Me.chb_Remove_Characters) + Me.pnl_Main.Controls.Add(Me.chb_Strip_Tags) + Me.pnl_Main.Controls.Add(Me.chb_Sort_Words) + Me.pnl_Main.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Main.Location = New System.Drawing.Point(0, 71) + Me.pnl_Main.Name = "pnl_Main" + Me.pnl_Main.Size = New System.Drawing.Size(430, 117) + Me.pnl_Main.TabIndex = 14 + ' + 'spn_Minimum_Match_Score + ' + Me.spn_Minimum_Match_Score.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Minimum_Match_Score.Location = New System.Drawing.Point(148, 95) + Me.spn_Minimum_Match_Score.MKBoundLabel = Nothing + Me.spn_Minimum_Match_Score.MKEditValue_Compare = Nothing + Me.spn_Minimum_Match_Score.Name = "spn_Minimum_Match_Score" + Me.spn_Minimum_Match_Score.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.spn_Minimum_Match_Score.Properties.IsFloatValue = False + Me.spn_Minimum_Match_Score.Properties.Mask.EditMask = "N00" + Me.spn_Minimum_Match_Score.Properties.MaxValue = New Decimal(New Integer() {100, 0, 0, 0}) + Me.spn_Minimum_Match_Score.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Minimum_Match_Score.Size = New System.Drawing.Size(55, 20) + ToolTipTitleItem15.Text = "Minimum Match Score" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Define here, the minimum match score that is needed to consider a match." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A low" & + "er minimum match score can lead to a lesser performant analysis." + SuperToolTip8.Items.Add(ToolTipTitleItem15) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.spn_Minimum_Match_Score.SuperTip = SuperToolTip8 + Me.spn_Minimum_Match_Score.TabIndex = 15 + ' + 'lbl_Minimum_Match_Score + ' + Me.lbl_Minimum_Match_Score.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Minimum_Match_Score.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Minimum_Match_Score.Location = New System.Drawing.Point(2, 95) + Me.lbl_Minimum_Match_Score.MKBoundControl1 = Nothing + Me.lbl_Minimum_Match_Score.MKBoundControl2 = Nothing + Me.lbl_Minimum_Match_Score.MKBoundControl3 = Nothing + Me.lbl_Minimum_Match_Score.MKBoundControl4 = Nothing + Me.lbl_Minimum_Match_Score.MKBoundControl5 = Nothing + Me.lbl_Minimum_Match_Score.Name = "lbl_Minimum_Match_Score" + Me.lbl_Minimum_Match_Score.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem16.Text = "Minimum Match Score" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Define here, the minimum match score that is needed to consider a match." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A low" & + "er minimum match score can lead to a lesser performant analysis." + SuperToolTip9.Items.Add(ToolTipTitleItem16) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.lbl_Minimum_Match_Score.SuperTip = SuperToolTip9 + Me.lbl_Minimum_Match_Score.TabIndex = 14 + Me.lbl_Minimum_Match_Score.Text = "Minimum Match Score:" + ' + 'chb_Strip_Extensions + ' + Me.chb_Strip_Extensions.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Strip_Extensions.EditValue = True + Me.chb_Strip_Extensions.Location = New System.Drawing.Point(148, 4) + Me.chb_Strip_Extensions.MKBoundLabel = Nothing + Me.chb_Strip_Extensions.MKEditValue_Compare = Nothing + Me.chb_Strip_Extensions.Name = "chb_Strip_Extensions" + Me.chb_Strip_Extensions.Properties.Caption = "" + Me.chb_Strip_Extensions.Size = New System.Drawing.Size(20, 19) + ToolTipTitleItem17.Text = "Stripping File Extensions" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = resources.GetString("ToolTipItem10.Text") + ToolTipTitleItem18.LeftIndent = 6 + ToolTipTitleItem18.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Sonic The Hedgehog 2.md""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Text after filtering: ""S" & + "onic The Hedgehog 2""" + SuperToolTip10.Items.Add(ToolTipTitleItem17) + SuperToolTip10.Items.Add(ToolTipItem10) + SuperToolTip10.Items.Add(ToolTipTitleItem18) + Me.chb_Strip_Extensions.SuperTip = SuperToolTip10 + Me.chb_Strip_Extensions.TabIndex = 13 + ' + 'lbl_Strip_Extensions + ' + Me.lbl_Strip_Extensions.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Strip_Extensions.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Strip_Extensions.Location = New System.Drawing.Point(2, 3) + Me.lbl_Strip_Extensions.MKBoundControl1 = Nothing + Me.lbl_Strip_Extensions.MKBoundControl2 = Nothing + Me.lbl_Strip_Extensions.MKBoundControl3 = Nothing + Me.lbl_Strip_Extensions.MKBoundControl4 = Nothing + Me.lbl_Strip_Extensions.MKBoundControl5 = Nothing + Me.lbl_Strip_Extensions.Name = "lbl_Strip_Extensions" + Me.lbl_Strip_Extensions.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem19.Text = "Strip Extensins from Filenames" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = resources.GetString("ToolTipItem11.Text") + ToolTipTitleItem20.LeftIndent = 6 + ToolTipTitleItem20.Text = "Example" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Original Filename: ""Sonic The Hedgehog 2.md""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Text after filtering: ""S" & + "onic The Hedgehog 2""" + SuperToolTip11.Items.Add(ToolTipTitleItem19) + SuperToolTip11.Items.Add(ToolTipItem11) + SuperToolTip11.Items.Add(ToolTipTitleItem20) + Me.lbl_Strip_Extensions.SuperTip = SuperToolTip11 + Me.lbl_Strip_Extensions.TabIndex = 2 + Me.lbl_Strip_Extensions.Text = "Strip File Extensions:" + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom.Controls.Add(Me.Ctl_MKDXPanel1) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 197) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(430, 28) + Me.pnl_Bottom.TabIndex = 15 + ' + 'Ctl_MKDXPanel1 + ' + Me.Ctl_MKDXPanel1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.Ctl_MKDXPanel1.Controls.Add(Me.spltpnl_Main) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Cancel) + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_OK) + Me.Ctl_MKDXPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXPanel1.Location = New System.Drawing.Point(0, 0) + Me.Ctl_MKDXPanel1.Name = "Ctl_MKDXPanel1" + Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(430, 28) + Me.Ctl_MKDXPanel1.TabIndex = 9 + ' + 'spltpnl_Main + ' + Me.spltpnl_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.spltpnl_Main.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 + Me.spltpnl_Main.Location = New System.Drawing.Point(4, 3) + Me.spltpnl_Main.Name = "spltpnl_Main" + Me.spltpnl_Main.Panel1.Controls.Add(Me.grd_Moby_Auto_Link) + Me.spltpnl_Main.Panel1.Text = "Panel1" + Me.spltpnl_Main.Panel2.Controls.Add(Me.grd_Moby_Releases) + Me.spltpnl_Main.Panel2.Controls.Add(Me.lbl_Moby_Releases) + Me.spltpnl_Main.Panel2.Text = "Panel2" + Me.spltpnl_Main.Size = New System.Drawing.Size(423, 0) + Me.spltpnl_Main.SplitterPosition = 330 + Me.spltpnl_Main.TabIndex = 11 + Me.spltpnl_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_Moby_Auto_Link + ' + Me.grd_Moby_Auto_Link.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Auto_Link.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Auto_Link.Location = New System.Drawing.Point(0, 0) + Me.grd_Moby_Auto_Link.MainView = Me.gv_Moby_Auto_Link + Me.grd_Moby_Auto_Link.Name = "grd_Moby_Auto_Link" + Me.grd_Moby_Auto_Link.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Release, Me.rpi_Moby_Platforms_gv1, Me.rpi_Apply}) + Me.grd_Moby_Auto_Link.Size = New System.Drawing.Size(88, 0) + Me.grd_Moby_Auto_Link.TabIndex = 3 + Me.grd_Moby_Auto_Link.UseEmbeddedNavigator = True + Me.grd_Moby_Auto_Link.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Auto_Link}) + ' + 'gv_Moby_Auto_Link + ' + Me.gv_Moby_Auto_Link.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colApply, Me.colGameName, Me.colGameName_Filtered, Me.colMatch_Accuracy, Me.colMatch_Moby_created, Me.colMatch_Moby_Gamename, Me.colMatch_Moby_Gamename_Filtered, Me.colMatch_Moby_Year}) + Me.gv_Moby_Auto_Link.CustomizationFormBounds = New System.Drawing.Rectangle(1071, 709, 210, 172) + Me.gv_Moby_Auto_Link.GridControl = Me.grd_Moby_Auto_Link + Me.gv_Moby_Auto_Link.Name = "gv_Moby_Auto_Link" + Me.gv_Moby_Auto_Link.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Auto_Link.OptionsSelection.InvertSelection = True + Me.gv_Moby_Auto_Link.OptionsSelection.MultiSelect = True + Me.gv_Moby_Auto_Link.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Auto_Link.OptionsView.ShowGroupPanel = False + ' + 'colApply + ' + Me.colApply.ColumnEdit = Me.rpi_Apply + Me.colApply.FieldName = "Apply" + Me.colApply.Name = "colApply" + Me.colApply.OptionsColumn.AllowEdit = False + Me.colApply.OptionsColumn.ReadOnly = True + Me.colApply.ToolTip = "Apply the auto link for this game" + Me.colApply.Visible = True + Me.colApply.VisibleIndex = 0 + Me.colApply.Width = 38 + ' + 'rpi_Apply + ' + Me.rpi_Apply.AutoHeight = False + Me.rpi_Apply.Name = "rpi_Apply" + ' + 'colGameName + ' + Me.colGameName.Caption = "Gamename" + Me.colGameName.FieldName = "GameName" + Me.colGameName.Name = "colGameName" + Me.colGameName.OptionsColumn.AllowEdit = False + Me.colGameName.OptionsColumn.ReadOnly = True + Me.colGameName.ToolTip = "The game's name (derived from filename or directory name)" + Me.colGameName.Visible = True + Me.colGameName.VisibleIndex = 2 + Me.colGameName.Width = 176 + ' + 'colGameName_Filtered + ' + Me.colGameName_Filtered.Caption = "Gamename (filtered)" + Me.colGameName_Filtered.FieldName = "GameName_Filtered" + Me.colGameName_Filtered.Name = "colGameName_Filtered" + Me.colGameName_Filtered.OptionsColumn.AllowEdit = False + Me.colGameName_Filtered.OptionsColumn.ReadOnly = True + Me.colGameName_Filtered.ToolTip = "The game's name after filtering" + Me.colGameName_Filtered.Visible = True + Me.colGameName_Filtered.VisibleIndex = 3 + Me.colGameName_Filtered.Width = 115 + ' + 'colMatch_Accuracy + ' + Me.colMatch_Accuracy.Caption = "Match Accuracy" + Me.colMatch_Accuracy.FieldName = "Match_Accuracy" + Me.colMatch_Accuracy.Name = "colMatch_Accuracy" + Me.colMatch_Accuracy.OptionsColumn.AllowEdit = False + Me.colMatch_Accuracy.OptionsColumn.ReadOnly = True + Me.colMatch_Accuracy.ToolTip = "The accuracy of the game's filtered name compared to the filtered name of the Mob" & + "y Release" + Me.colMatch_Accuracy.Visible = True + Me.colMatch_Accuracy.VisibleIndex = 1 + Me.colMatch_Accuracy.Width = 95 + ' + 'colMatch_Moby_created + ' + Me.colMatch_Moby_created.Caption = "Moby Created" + Me.colMatch_Moby_created.FieldName = "Match_Moby_created" + Me.colMatch_Moby_created.Name = "colMatch_Moby_created" + Me.colMatch_Moby_created.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_created.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_created.ToolTip = "Creation date of the Moby Release" + Me.colMatch_Moby_created.Visible = True + Me.colMatch_Moby_created.VisibleIndex = 7 + Me.colMatch_Moby_created.Width = 84 + ' + 'colMatch_Moby_Gamename + ' + Me.colMatch_Moby_Gamename.Caption = "Moby Gamename" + Me.colMatch_Moby_Gamename.FieldName = "Match_Moby_Gamename" + Me.colMatch_Moby_Gamename.Name = "colMatch_Moby_Gamename" + Me.colMatch_Moby_Gamename.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Gamename.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Gamename.ToolTip = "The game's name of the Moby Release" + Me.colMatch_Moby_Gamename.Visible = True + Me.colMatch_Moby_Gamename.VisibleIndex = 4 + Me.colMatch_Moby_Gamename.Width = 251 + ' + 'colMatch_Moby_Gamename_Filtered + ' + Me.colMatch_Moby_Gamename_Filtered.Caption = "Moby Gamename (filtered)" + Me.colMatch_Moby_Gamename_Filtered.FieldName = "Match_Moby_Gamename_Filtered" + Me.colMatch_Moby_Gamename_Filtered.Name = "colMatch_Moby_Gamename_Filtered" + Me.colMatch_Moby_Gamename_Filtered.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Gamename_Filtered.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Gamename_Filtered.ToolTip = "The game's name of the Moby Release after filtering" + Me.colMatch_Moby_Gamename_Filtered.Visible = True + Me.colMatch_Moby_Gamename_Filtered.VisibleIndex = 5 + Me.colMatch_Moby_Gamename_Filtered.Width = 153 + ' + 'colMatch_Moby_Year + ' + Me.colMatch_Moby_Year.Caption = "Moby Year" + Me.colMatch_Moby_Year.FieldName = "Match_Moby_Year" + Me.colMatch_Moby_Year.Name = "colMatch_Moby_Year" + Me.colMatch_Moby_Year.OptionsColumn.AllowEdit = False + Me.colMatch_Moby_Year.OptionsColumn.ReadOnly = True + Me.colMatch_Moby_Year.ToolTip = "The year of the game's release according to MobyGames" + Me.colMatch_Moby_Year.Visible = True + Me.colMatch_Moby_Year.VisibleIndex = 6 + ' + 'rpi_Moby_Release + ' + Me.rpi_Moby_Release.AutoHeight = False + Me.rpi_Moby_Release.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Release.DisplayMember = "Gamename" + Me.rpi_Moby_Release.Name = "rpi_Moby_Release" + Me.rpi_Moby_Release.NullText = "" + Me.rpi_Moby_Release.ValueMember = "id_Moby_Releases" + ' + 'rpi_Moby_Platforms_gv1 + ' + Me.rpi_Moby_Platforms_gv1.AutoHeight = False + Me.rpi_Moby_Platforms_gv1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Platforms_gv1.DisplayMember = "Display_Name" + Me.rpi_Moby_Platforms_gv1.Name = "rpi_Moby_Platforms_gv1" + Me.rpi_Moby_Platforms_gv1.ValueMember = "id_Moby_Platforms" + ' + 'grd_Moby_Releases + ' + Me.grd_Moby_Releases.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Releases.Location = New System.Drawing.Point(0, 42) + Me.grd_Moby_Releases.MainView = Me.gv_Moby_Releases + Me.grd_Moby_Releases.Name = "grd_Moby_Releases" + Me.grd_Moby_Releases.Size = New System.Drawing.Size(330, 0) + Me.grd_Moby_Releases.TabIndex = 4 + Me.grd_Moby_Releases.UseEmbeddedNavigator = True + Me.grd_Moby_Releases.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Releases}) + ' + 'gv_Moby_Releases + ' + Me.gv_Moby_Releases.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.colHighlighted, Me.colYear, Me.colcreated}) + Me.gv_Moby_Releases.GridControl = Me.grd_Moby_Releases + Me.gv_Moby_Releases.Name = "gv_Moby_Releases" + Me.gv_Moby_Releases.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Releases.OptionsSelection.InvertSelection = True + Me.gv_Moby_Releases.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Releases.OptionsView.ShowGroupPanel = False + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "Gamename" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + Me.GridColumn1.OptionsColumn.ReadOnly = True + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 0 + Me.GridColumn1.Width = 151 + ' + 'colHighlighted + ' + Me.colHighlighted.FieldName = "Highlighted" + Me.colHighlighted.Name = "colHighlighted" + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 1 + Me.colYear.Width = 62 + ' + 'colcreated + ' + Me.colcreated.Caption = "Added" + Me.colcreated.DisplayFormat.FormatString = "g" + Me.colcreated.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colcreated.FieldName = "created" + Me.colcreated.Name = "colcreated" + Me.colcreated.OptionsColumn.AllowEdit = False + Me.colcreated.OptionsColumn.ReadOnly = True + Me.colcreated.Visible = True + Me.colcreated.VisibleIndex = 2 + Me.colcreated.Width = 99 + ' + 'lbl_Moby_Releases + ' + Me.lbl_Moby_Releases.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Moby_Releases.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Moby_Releases.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Moby_Releases.Location = New System.Drawing.Point(0, 0) + Me.lbl_Moby_Releases.MKBoundControl1 = Nothing + Me.lbl_Moby_Releases.MKBoundControl2 = Nothing + Me.lbl_Moby_Releases.MKBoundControl3 = Nothing + Me.lbl_Moby_Releases.MKBoundControl4 = Nothing + Me.lbl_Moby_Releases.MKBoundControl5 = Nothing + Me.lbl_Moby_Releases.Name = "lbl_Moby_Releases" + Me.lbl_Moby_Releases.Size = New System.Drawing.Size(330, 42) + Me.lbl_Moby_Releases.TabIndex = 3 + Me.lbl_Moby_Releases.Text = "Moby Releases" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(352, 2) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 10 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn_OK.Location = New System.Drawing.Point(274, 2) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 9 + Me.btn_OK.Text = "&OK" + ' + 'frm_Moby_Auto_Link_Options + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(430, 225) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.pnl_Main) + Me.Controls.Add(Me.lbl_Explanation) + Me.MinimumSize = New System.Drawing.Size(446, 260) + Me.Name = "frm_Moby_Auto_Link_Options" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Detect MobyGames Links Filter Options" + CType(Me.chb_Strip_Tags.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sort_Words.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Remove_Characters.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Remove_Characters.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Main.ResumeLayout(False) + CType(Me.spn_Minimum_Match_Score.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Strip_Extensions.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXPanel1.ResumeLayout(False) + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Main.ResumeLayout(False) + CType(Me.grd_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Auto_Link, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lbl_Strip_Tags As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Strip_Tags As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Sort_Words As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Sort_Words As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Remove_Characters As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Remove_Characters As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents chb_Remove_Characters As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Main As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXPanel1 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents spltpnl_Main As MKNetDXLib.ctl_MKDXSplitPanel + Private WithEvents grd_Moby_Auto_Link As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_Moby_Auto_Link As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colApply As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Apply As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colGameName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGameName_Filtered As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMatch_Accuracy As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMatch_Moby_created As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMatch_Moby_Gamename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMatch_Moby_Gamename_Filtered As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMatch_Moby_Year As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Moby_Release As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents rpi_Moby_Platforms_gv1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Private WithEvents grd_Moby_Releases As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_Moby_Releases As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHighlighted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colcreated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Moby_Releases As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Minimum_Match_Score As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Strip_Extensions As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Strip_Extensions As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Minimum_Match_Score As MKNetDXLib.ctl_MKDXSpinEdit +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.resx b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.resx new file mode 100644 index 0000000..3f5427f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.resx @@ -0,0 +1,167 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Your filenames may come with tags, e.g. (2003), (id Software), [h1] etc. + +As Moby Games releases do not contain such tags, it is recommended to strip all of them from the filenames in order to get good results in a text comparison. + +Stripping tags means, any occurence of text within brackets will be removed. + +This filter would be applied to your filenames. + + + Your filenames may come with tags, e.g. (2003), (id Software), [h1] etc. + +As Moby Games releases do not contain such tags, it is recommended to strip all of them from the filenames in order to get good results in a text comparison. + +Stripping tags means, any occurence of text within brackets will be removed. + +This filter would be applied to your filenames. + + + In some cases your filenames can differ from Moby Games release names concerning the placement of the words. To cope with that, all texts can be split up by whole words, sorted by them and finally put together. + +This filter would be applied to your filenames and Moby Games release names. + + + In some cases your filenames can differ from Moby Games release names concerning the placement of the words. To cope with that, all texts can be split up by whole words, sorted by them and finally put together. + +This filter would be applied to your filenames and Moby Games release names. + + + The detection of MobyGames links works by finding the correct Moby Rlease for your games. This is done by text comparison. In order to successfully compare two texts, a filtering can be done. Please set up the filtering options in this dialog. + +Note: These filters will NOT alter your actual filenames. + + + Your filenames may come with extensions, e.g. .bin, .iso, .md etc. + +As Moby Games releases do not contain such extensions, it is recommended to strip all of them from the filenames in order to get good results in a text comparison. + +This filter would be applied to your filenames. + + + Your filenames may come with extensions, e.g. .bin, .iso, .md etc. + +As Moby Games releases do not contain such extensions, it is recommended to strip all of them from the filenames in order to get good results in a text comparison. + +This filter would be applied to your filenames. + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.vb b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.vb new file mode 100644 index 0000000..3cfd45a --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Auto_Link_Options.vb @@ -0,0 +1,33 @@ +Public Class frm_Moby_Auto_Link_Options + + Public Class cls_Moby_Auto_Link_Options + Public Strip_File_Extension As Boolean + Public Strip_Tags As Boolean + Public Sort_Words As Boolean + Public Remove_Characters As Boolean + Public Remove_Characters_String As String + Public Minimum_Match_Score As Integer + + Public Sub New(ByVal Strip_File_Extension As Boolean, ByVal Strip_Tags As Boolean, ByVal Sort_Words As Boolean, ByVal Remove_Characters As Boolean, ByVal Remove_Characters_String As String, ByVal Minimum_Match_Score As Integer) + Me.Strip_File_Extension = Strip_File_Extension + Me.Strip_Tags = Strip_Tags + Me.Sort_Words = Sort_Words + Me.Remove_Characters = Remove_Characters + Me.Remove_Characters_String = Remove_Characters_String + Me.Minimum_Match_Score = Minimum_Match_Score + End Sub + End Class + + Public Sub New(Optional ByVal Strip_File_Extension As Boolean = True) + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.chb_Strip_Extensions.Checked = Strip_File_Extension + End Sub + + Public ReadOnly Property Result As cls_Moby_Auto_Link_Options + Get + Return New cls_Moby_Auto_Link_Options(Me.chb_Strip_Extensions.Checked, Me.chb_Strip_Tags.Checked, Me.chb_Sort_Words.Checked, Me.chb_Remove_Characters.Checked, Me.txb_Remove_Characters.Text, CInt(Me.spn_Minimum_Match_Score.Value)) + End Get + End Property +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.Designer.vb new file mode 100644 index 0000000..a41d53d --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.Designer.vb @@ -0,0 +1,206 @@ + _ +Partial Class frm_Moby_Game_Group_Info + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lbl_GoupName = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Description = New MKNetDXLib.ctl_MKDXLabel() + Me.grd_Moby_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Moby_Games = New System.Data.DataSet() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.gv_Moby_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatforms = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pnl_Main = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Main.SuspendLayout() + Me.SuspendLayout() + ' + 'lbl_GoupName + ' + Me.lbl_GoupName.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_GoupName.AutoEllipsis = True + Me.lbl_GoupName.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_GoupName.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_GoupName.Location = New System.Drawing.Point(0, 0) + Me.lbl_GoupName.MKBoundControl1 = Nothing + Me.lbl_GoupName.MKBoundControl2 = Nothing + Me.lbl_GoupName.MKBoundControl3 = Nothing + Me.lbl_GoupName.MKBoundControl4 = Nothing + Me.lbl_GoupName.MKBoundControl5 = Nothing + Me.lbl_GoupName.Name = "lbl_GoupName" + Me.lbl_GoupName.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_GoupName.Size = New System.Drawing.Size(626, 36) + Me.lbl_GoupName.TabIndex = 3 + Me.lbl_GoupName.Text = "[Groupname]" + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Close.Location = New System.Drawing.Point(554, 341) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 0 + Me.btn_Close.Text = "&Close" + ' + 'lbl_Description + ' + Me.lbl_Description.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Description.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Description.Location = New System.Drawing.Point(0, 36) + Me.lbl_Description.MKBoundControl1 = Nothing + Me.lbl_Description.MKBoundControl2 = Nothing + Me.lbl_Description.MKBoundControl3 = Nothing + Me.lbl_Description.MKBoundControl4 = Nothing + Me.lbl_Description.MKBoundControl5 = Nothing + Me.lbl_Description.Name = "lbl_Description" + Me.lbl_Description.Padding = New System.Windows.Forms.Padding(3, 0, 3, 3) + Me.lbl_Description.Size = New System.Drawing.Size(626, 16) + Me.lbl_Description.TabIndex = 0 + Me.lbl_Description.Text = "[Description]" + ' + 'grd_Moby_Games + ' + Me.grd_Moby_Games.DataSource = Me.BS_Moby_Games + Me.grd_Moby_Games.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Games.Location = New System.Drawing.Point(0, 52) + Me.grd_Moby_Games.MainView = Me.gv_Moby_Games + Me.grd_Moby_Games.Name = "grd_Moby_Games" + Me.grd_Moby_Games.Size = New System.Drawing.Size(626, 283) + Me.grd_Moby_Games.TabIndex = 0 + Me.grd_Moby_Games.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Games}) + ' + 'BS_Moby_Games + ' + Me.BS_Moby_Games.DataMember = "src_frm_Moby_Game_Group_Info" + Me.BS_Moby_Games.DataSource = Me.DS_Moby_Games + ' + 'DS_Moby_Games + ' + Me.DS_Moby_Games.DataSetName = "DS_Moby_Games" + Me.DS_Moby_Games.Tables.AddRange(New System.Data.DataTable() {Me.DataTable1}) + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3}) + Me.DataTable1.TableName = "src_frm_Moby_Game_Group_Info" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id_Moby_Games" + Me.DataColumn1.DataType = GetType(Long) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Name" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Platforms" + ' + 'gv_Moby_Games + ' + Me.gv_Moby_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colPlatforms}) + Me.gv_Moby_Games.GridControl = Me.grd_Moby_Games + Me.gv_Moby_Games.Name = "gv_Moby_Games" + Me.gv_Moby_Games.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Games.OptionsView.ShowGroupPanel = False + Me.gv_Moby_Games.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.Caption = "Game" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + ' + 'colPlatforms + ' + Me.colPlatforms.FieldName = "Platforms" + Me.colPlatforms.Name = "colPlatforms" + Me.colPlatforms.OptionsColumn.AllowEdit = False + Me.colPlatforms.OptionsColumn.ReadOnly = True + Me.colPlatforms.Visible = True + Me.colPlatforms.VisibleIndex = 1 + ' + 'pnl_Main + ' + Me.pnl_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnl_Main.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Main.Controls.Add(Me.grd_Moby_Games) + Me.pnl_Main.Controls.Add(Me.lbl_Description) + Me.pnl_Main.Controls.Add(Me.lbl_GoupName) + Me.pnl_Main.Location = New System.Drawing.Point(3, 3) + Me.pnl_Main.Name = "pnl_Main" + Me.pnl_Main.Size = New System.Drawing.Size(626, 335) + Me.pnl_Main.TabIndex = 9 + ' + 'frm_Moby_Game_Group_Info + ' + Me.ClientSize = New System.Drawing.Size(632, 367) + Me.Controls.Add(Me.pnl_Main) + Me.Controls.Add(Me.btn_Close) + Me.Name = "frm_Moby_Game_Group_Info" + Me.Padding = New System.Windows.Forms.Padding(0, 0, 3, 0) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Game Group Info" + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Main.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_GoupName As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Description As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents grd_Moby_Games As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Moby_Games As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pnl_Main As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents BS_Moby_Games As System.Windows.Forms.BindingSource + Friend WithEvents DS_Moby_Games As System.Data.DataSet + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPlatforms As DevExpress.XtraGrid.Columns.GridColumn + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.resx b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.resx new file mode 100644 index 0000000..d6fc54e --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 163, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.vb b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.vb new file mode 100644 index 0000000..0427f5f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Game_Group_Info.vb @@ -0,0 +1,32 @@ +Public Class frm_Moby_Game_Group_Info + + Private _id_Moby_Game_Groups As Integer = 0 + + Public Sub New(ByVal id_Moby_Game_Groups As Integer) + Me.InitializeComponent() + + Me._id_Moby_Game_Groups = id_Moby_Game_Groups + + Dim sSQL As String = "" + sSQL &= " SELECT DISTINCT" + sSQL &= " MR.id_Moby_Games" + sSQL &= " , MG.Name" + sSQL &= " , ( SELECT group_concat(MP2.Name, ', ')" + sSQL &= " FROM moby.tbl_Moby_Game_Groups_Moby_Releases MGGMR2" + sSQL &= " INNER JOIN moby.tbl_Moby_Releases MR2 ON MGGMR2.id_Moby_Releases = MR2.id_Moby_Releases" + sSQL &= " INNER JOIN moby.tbl_Moby_Platforms MP2 ON MR2.id_Moby_Platforms = MP2.id_Moby_Platforms" + sSQL &= " WHERE MGGMR2.id_Moby_Game_Groups = MGGMR.id_Moby_Game_Groups AND MR2.id_Moby_Games = MR.id_Moby_Games" + sSQL &= " ORDER BY MP2.Name" + sSQL &= " ) AS Platforms" + sSQL &= " FROM moby.tbl_Moby_Game_Groups_Moby_Releases MGGMR" + sSQL &= " INNER JOIN moby.tbl_Moby_Releases MR ON MGGMR.id_Moby_Releases = MR.id_Moby_Releases" + sSQL &= " INNER JOIN moby.tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" + sSQL &= " WHERE MGGMR.id_Moby_Game_Groups = " & TC.getSQLFormat(id_Moby_Game_Groups) + sSQL &= " ORDER BY MG.Name" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, Me.DS_Moby_Games.Tables("src_frm_Moby_Game_Group_Info")) + + 'Me.lbl_Description.Text = MKNetLib.cls_MKRegex.Replace(TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Description FROM moby.tbl_Moby_Game_Groups WHERE id_Moby_Game_Groups = " & TC.getSQLFormat(_id_Moby_Game_Groups)), "[no description]").Replace("
", ControlChars.CrLf), "<.*?>", "") + Me.lbl_Description.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Description FROM moby.tbl_Moby_Game_Groups WHERE id_Moby_Game_Groups = " & TC.getSQLFormat(_id_Moby_Game_Groups)), "[no description]") + Me.lbl_GoupName.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM moby.tbl_Moby_Game_Groups WHERE id_Moby_Game_Groups = " & TC.getSQLFormat(_id_Moby_Game_Groups)), "[no group name]") + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Import.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Import.Designer.vb new file mode 100644 index 0000000..cbd0cb4 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Import.Designer.vb @@ -0,0 +1,520 @@ + _ +Partial Class frm_Moby_Import + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.grd_Moby_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Web_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Moby_Web = New System.Data.DataSet() + Me.tbl_Moby_Games = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn7 = New System.Data.DataColumn() + Me.DataColumn8 = New System.Data.DataColumn() + Me.DataColumn9 = New System.Data.DataColumn() + Me.DataColumn10 = New System.Data.DataColumn() + Me.gv_Moby_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGameTitle = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colURLPart = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatformName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() + Me.btn_Run = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.splt1 = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.lbl_Moby_Games = New MKNetDXLib.ctl_MKDXLabel() + Me.grd_Moby_Game_Groups = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Web_Game_Groups = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Moby_Game_Groups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDescription = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colURLPart1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNumberOfGames = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Moby_Game_Groups = New MKNetDXLib.ctl_MKDXLabel() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Import_Single_Game = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Import_Single_Game_Group = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Moby_Web_Games = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Moby_Web_Game_Groups = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.lbl_GenreImport = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_GenreImport = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_GenreImport = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Web_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Moby_Web, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.splt1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt1.SuspendLayout() + CType(Me.grd_Moby_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Web_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Moby_Web_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Moby_Web_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_GenreImport.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grd_Moby_Games + ' + Me.grd_Moby_Games.DataSource = Me.BS_Moby_Web_Games + Me.grd_Moby_Games.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Games.Location = New System.Drawing.Point(0, 43) + Me.grd_Moby_Games.MainView = Me.gv_Moby_Games + Me.grd_Moby_Games.Name = "grd_Moby_Games" + Me.grd_Moby_Games.Size = New System.Drawing.Size(1004, 136) + Me.grd_Moby_Games.TabIndex = 0 + Me.grd_Moby_Games.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Games}) + ' + 'BS_Moby_Web_Games + ' + Me.BS_Moby_Web_Games.DataMember = "tbl_Moby_Games" + Me.BS_Moby_Web_Games.DataSource = Me.DS_Moby_Web + ' + 'DS_Moby_Web + ' + Me.DS_Moby_Web.DataSetName = "DS_Moby_Web" + Me.DS_Moby_Web.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Moby_Games, Me.DataTable1}) + ' + 'tbl_Moby_Games + ' + Me.tbl_Moby_Games.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3, Me.DataColumn4, Me.DataColumn5, Me.DataColumn6}) + Me.tbl_Moby_Games.TableName = "tbl_Moby_Games" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "Game_Title" + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "URLPart" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Year" + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "Platform_URLPart" + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "id_Moby_Platforms" + Me.DataColumn5.DataType = GetType(Integer) + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "PlatformName" + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn7, Me.DataColumn8, Me.DataColumn9, Me.DataColumn10}) + Me.DataTable1.TableName = "tbl_Moby_Game_Groups" + ' + 'DataColumn7 + ' + Me.DataColumn7.ColumnName = "Name" + ' + 'DataColumn8 + ' + Me.DataColumn8.ColumnName = "Description" + ' + 'DataColumn9 + ' + Me.DataColumn9.ColumnName = "URLPart" + ' + 'DataColumn10 + ' + Me.DataColumn10.ColumnName = "NumberOfGames" + Me.DataColumn10.DataType = GetType(Integer) + ' + 'gv_Moby_Games + ' + Me.gv_Moby_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGameTitle, Me.colURLPart, Me.colYear, Me.colPlatformName}) + Me.gv_Moby_Games.GridControl = Me.grd_Moby_Games + Me.gv_Moby_Games.Name = "gv_Moby_Games" + Me.gv_Moby_Games.OptionsView.ShowGroupPanel = False + ' + 'colGameTitle + ' + Me.colGameTitle.FieldName = "Game_Title" + Me.colGameTitle.Name = "colGameTitle" + Me.colGameTitle.OptionsColumn.AllowEdit = False + Me.colGameTitle.OptionsColumn.AllowFocus = False + Me.colGameTitle.OptionsColumn.ReadOnly = True + Me.colGameTitle.Visible = True + Me.colGameTitle.VisibleIndex = 0 + ' + 'colURLPart + ' + Me.colURLPart.FieldName = "URLPart" + Me.colURLPart.Name = "colURLPart" + Me.colURLPart.OptionsColumn.AllowEdit = False + Me.colURLPart.OptionsColumn.AllowFocus = False + Me.colURLPart.OptionsColumn.ReadOnly = True + Me.colURLPart.Visible = True + Me.colURLPart.VisibleIndex = 1 + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.AllowFocus = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 2 + ' + 'colPlatformName + ' + Me.colPlatformName.Caption = "Platform" + Me.colPlatformName.FieldName = "PlatformName" + Me.colPlatformName.Name = "colPlatformName" + Me.colPlatformName.OptionsColumn.AllowEdit = False + Me.colPlatformName.OptionsColumn.AllowFocus = False + Me.colPlatformName.OptionsColumn.ReadOnly = True + Me.colPlatformName.Visible = True + Me.colPlatformName.VisibleIndex = 3 + ' + 'DS_MobyDB + ' + Me.DS_MobyDB.DataSetName = "DS_MobyDB" + Me.DS_MobyDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btn_Run + ' + Me.btn_Run.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Run.Location = New System.Drawing.Point(3, 364) + Me.btn_Run.Name = "btn_Run" + Me.btn_Run.Size = New System.Drawing.Size(75, 23) + Me.btn_Run.TabIndex = 0 + Me.btn_Run.Text = "Run it" + ' + 'splt1 + ' + Me.splt1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.splt1.Horizontal = False + Me.splt1.Location = New System.Drawing.Point(3, 3) + Me.splt1.Name = "splt1" + Me.splt1.Panel1.Controls.Add(Me.grd_Moby_Games) + Me.splt1.Panel1.Controls.Add(Me.lbl_Moby_Games) + Me.splt1.Panel1.Text = "Panel1" + Me.splt1.Panel2.Controls.Add(Me.grd_Moby_Game_Groups) + Me.splt1.Panel2.Controls.Add(Me.lbl_Moby_Game_Groups) + Me.splt1.Panel2.Text = "Panel2" + Me.splt1.Size = New System.Drawing.Size(1004, 358) + Me.splt1.SplitterPosition = 179 + Me.splt1.TabIndex = 2 + Me.splt1.Text = "Ctl_MKDXSplitPanel1" + ' + 'lbl_Moby_Games + ' + Me.lbl_Moby_Games.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Moby_Games.AutoEllipsis = True + Me.lbl_Moby_Games.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Moby_Games.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Moby_Games.Location = New System.Drawing.Point(0, 0) + Me.lbl_Moby_Games.MKBoundControl1 = Nothing + Me.lbl_Moby_Games.MKBoundControl2 = Nothing + Me.lbl_Moby_Games.MKBoundControl3 = Nothing + Me.lbl_Moby_Games.MKBoundControl4 = Nothing + Me.lbl_Moby_Games.MKBoundControl5 = Nothing + Me.lbl_Moby_Games.Name = "lbl_Moby_Games" + Me.lbl_Moby_Games.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Moby_Games.Size = New System.Drawing.Size(1004, 43) + Me.lbl_Moby_Games.TabIndex = 5 + Me.lbl_Moby_Games.Text = "Moby Games" + ' + 'grd_Moby_Game_Groups + ' + Me.grd_Moby_Game_Groups.DataSource = Me.BS_Moby_Web_Game_Groups + Me.grd_Moby_Game_Groups.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Game_Groups.Location = New System.Drawing.Point(0, 43) + Me.grd_Moby_Game_Groups.MainView = Me.gv_Moby_Game_Groups + Me.grd_Moby_Game_Groups.Name = "grd_Moby_Game_Groups" + Me.grd_Moby_Game_Groups.Size = New System.Drawing.Size(1004, 131) + Me.grd_Moby_Game_Groups.TabIndex = 0 + Me.grd_Moby_Game_Groups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Game_Groups}) + ' + 'BS_Moby_Web_Game_Groups + ' + Me.BS_Moby_Web_Game_Groups.DataMember = "tbl_Moby_Game_Groups" + Me.BS_Moby_Web_Game_Groups.DataSource = Me.DS_Moby_Web + ' + 'gv_Moby_Game_Groups + ' + Me.gv_Moby_Game_Groups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colDescription, Me.colURLPart1, Me.colNumberOfGames}) + Me.gv_Moby_Game_Groups.GridControl = Me.grd_Moby_Game_Groups + Me.gv_Moby_Game_Groups.Name = "gv_Moby_Game_Groups" + Me.gv_Moby_Game_Groups.OptionsView.ShowGroupPanel = False + ' + 'colName + ' + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.AllowFocus = False + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + Me.colName.Width = 456 + ' + 'colDescription + ' + Me.colDescription.FieldName = "Description" + Me.colDescription.Name = "colDescription" + Me.colDescription.OptionsColumn.AllowEdit = False + Me.colDescription.OptionsColumn.AllowFocus = False + Me.colDescription.OptionsColumn.ReadOnly = True + Me.colDescription.Visible = True + Me.colDescription.VisibleIndex = 2 + Me.colDescription.Width = 678 + ' + 'colURLPart1 + ' + Me.colURLPart1.FieldName = "URLPart" + Me.colURLPart1.Name = "colURLPart1" + Me.colURLPart1.OptionsColumn.AllowEdit = False + Me.colURLPart1.OptionsColumn.AllowFocus = False + Me.colURLPart1.OptionsColumn.ReadOnly = True + Me.colURLPart1.Visible = True + Me.colURLPart1.VisibleIndex = 1 + Me.colURLPart1.Width = 228 + ' + 'colNumberOfGames + ' + Me.colNumberOfGames.Caption = "N° of Games" + Me.colNumberOfGames.FieldName = "NumberOfGames" + Me.colNumberOfGames.Name = "colNumberOfGames" + Me.colNumberOfGames.OptionsColumn.AllowEdit = False + Me.colNumberOfGames.OptionsColumn.AllowFocus = False + Me.colNumberOfGames.OptionsColumn.ReadOnly = True + Me.colNumberOfGames.Visible = True + Me.colNumberOfGames.VisibleIndex = 3 + Me.colNumberOfGames.Width = 132 + ' + 'lbl_Moby_Game_Groups + ' + Me.lbl_Moby_Game_Groups.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Moby_Game_Groups.AutoEllipsis = True + Me.lbl_Moby_Game_Groups.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Moby_Game_Groups.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Moby_Game_Groups.Location = New System.Drawing.Point(0, 0) + Me.lbl_Moby_Game_Groups.MKBoundControl1 = Nothing + Me.lbl_Moby_Game_Groups.MKBoundControl2 = Nothing + Me.lbl_Moby_Game_Groups.MKBoundControl3 = Nothing + Me.lbl_Moby_Game_Groups.MKBoundControl4 = Nothing + Me.lbl_Moby_Game_Groups.MKBoundControl5 = Nothing + Me.lbl_Moby_Game_Groups.Name = "lbl_Moby_Game_Groups" + Me.lbl_Moby_Game_Groups.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Moby_Game_Groups.Size = New System.Drawing.Size(1004, 43) + Me.lbl_Moby_Game_Groups.TabIndex = 6 + Me.lbl_Moby_Game_Groups.Text = "Moby Game Groups" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Import_Single_Game, Me.bbi_Import_Single_Game_Group}) + Me.barmng.MaxItemId = 2 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(1010, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 390) + Me.barDockControlBottom.Size = New System.Drawing.Size(1010, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 390) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(1010, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 390) + ' + 'bbi_Import_Single_Game + ' + Me.bbi_Import_Single_Game.Caption = "Import/Update {0}" + Me.bbi_Import_Single_Game.Id = 0 + Me.bbi_Import_Single_Game.ImageUri.Uri = "NavigationBar" + Me.bbi_Import_Single_Game.Name = "bbi_Import_Single_Game" + ' + 'bbi_Import_Single_Game_Group + ' + Me.bbi_Import_Single_Game_Group.Caption = "Import/Update {0}" + Me.bbi_Import_Single_Game_Group.Id = 1 + Me.bbi_Import_Single_Game_Group.ImageUri.Uri = "NavigationBar" + Me.bbi_Import_Single_Game_Group.Name = "bbi_Import_Single_Game_Group" + ' + 'popmnu_Moby_Web_Games + ' + Me.popmnu_Moby_Web_Games.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Import_Single_Game)}) + Me.popmnu_Moby_Web_Games.Manager = Me.barmng + Me.popmnu_Moby_Web_Games.Name = "popmnu_Moby_Web_Games" + ' + 'popmnu_Moby_Web_Game_Groups + ' + Me.popmnu_Moby_Web_Game_Groups.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Import_Single_Game_Group)}) + Me.popmnu_Moby_Web_Game_Groups.Manager = Me.barmng + Me.popmnu_Moby_Web_Game_Groups.Name = "popmnu_Moby_Web_Game_Groups" + ' + 'lbl_GenreImport + ' + Me.lbl_GenreImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_GenreImport.Location = New System.Drawing.Point(731, 369) + Me.lbl_GenreImport.MKBoundControl1 = Nothing + Me.lbl_GenreImport.MKBoundControl2 = Nothing + Me.lbl_GenreImport.MKBoundControl3 = Nothing + Me.lbl_GenreImport.MKBoundControl4 = Nothing + Me.lbl_GenreImport.MKBoundControl5 = Nothing + Me.lbl_GenreImport.Name = "lbl_GenreImport" + Me.lbl_GenreImport.Size = New System.Drawing.Size(92, 13) + Me.lbl_GenreImport.TabIndex = 7 + Me.lbl_GenreImport.Text = "Test Genre Import:" + ' + 'txb_GenreImport + ' + Me.txb_GenreImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_GenreImport.Location = New System.Drawing.Point(827, 366) + Me.txb_GenreImport.MenuManager = Me.barmng + Me.txb_GenreImport.MKBoundLabel = Nothing + Me.txb_GenreImport.MKEditValue_Compare = Nothing + Me.txb_GenreImport.Name = "txb_GenreImport" + Me.txb_GenreImport.Size = New System.Drawing.Size(100, 20) + Me.txb_GenreImport.TabIndex = 8 + ' + 'btn_GenreImport + ' + Me.btn_GenreImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_GenreImport.Location = New System.Drawing.Point(930, 365) + Me.btn_GenreImport.Name = "btn_GenreImport" + Me.btn_GenreImport.Size = New System.Drawing.Size(77, 23) + Me.btn_GenreImport.TabIndex = 9 + Me.btn_GenreImport.Text = "Import Genre" + ' + 'frm_Moby_Import + ' + Me.ClientSize = New System.Drawing.Size(1010, 390) + Me.Controls.Add(Me.btn_GenreImport) + Me.Controls.Add(Me.txb_GenreImport) + Me.Controls.Add(Me.lbl_GenreImport) + Me.Controls.Add(Me.splt1) + Me.Controls.Add(Me.btn_Run) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Moby_Import" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Web_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Moby_Web, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.splt1, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt1.ResumeLayout(False) + CType(Me.grd_Moby_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Web_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Moby_Web_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Moby_Web_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_GenreImport.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents grd_Moby_Games As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Moby_Games As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DS_MobyDB As Metropolis_Launcher.DS_MobyDB + Friend WithEvents DS_Moby_Web As System.Data.DataSet + Friend WithEvents tbl_Moby_Games As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents BS_Moby_Web_Games As System.Windows.Forms.BindingSource + Friend WithEvents colGameTitle As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colURLPart As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Run As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DataColumn4 As System.Data.DataColumn + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents colPlatformName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents splt1 As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents lbl_Moby_Games As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents grd_Moby_Game_Groups As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Moby_Game_Groups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lbl_Moby_Game_Groups As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn7 As System.Data.DataColumn + Friend WithEvents DataColumn8 As System.Data.DataColumn + Friend WithEvents DataColumn9 As System.Data.DataColumn + Friend WithEvents BS_Moby_Web_Game_Groups As System.Windows.Forms.BindingSource + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDescription As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colURLPart1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents DataColumn10 As System.Data.DataColumn + Friend WithEvents colNumberOfGames As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Import_Single_Game As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Import_Single_Game_Group As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Moby_Web_Games As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents popmnu_Moby_Web_Game_Groups As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents btn_GenreImport As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_GenreImport As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_GenreImport As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Import.resx b/Metropolis_Launcher/Forms/frm_Moby_Import.resx new file mode 100644 index 0000000..82529e1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Import.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 270, 17 + + + 136, 17 + + + 17, 17 + + + 628, 17 + + + 239, 56 + + + 100 + + + 333, 56 + + + 540, 56 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Import.vb b/Metropolis_Launcher/Forms/frm_Moby_Import.vb new file mode 100644 index 0000000..0675318 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Import.vb @@ -0,0 +1,917 @@ +Public Class frm_Moby_Import + +#Region "Members" + Private _id_Moby_Platforms As Integer = 0 + 'Private _Moby_Platforms_URLPart As String + 'Private _Moby_Platforms_Name As String + + Private _bbi_Import_Single_Game_Caption As String + Private _bbi_Import_Single_Game_Group_Caption As String + + Private _tran As SQLite.SQLiteTransaction + + Private _Import_Log As New System.Text.StringBuilder + Private _Import_Total As Integer + Private _Import_New As Integer + Private _Import_Error As Integer + + Private _Import_Groups As Boolean = False + + Private UserAgentHeader As String = "Mozilla/5.0 (Windows NT 6.1; rv:15.0) Gecko/20120716 Firefox/15.0a2" + + Private iTraffic As Long = 0 +#End Region + + ''' + ''' Contructor for Import of a whole platform + ''' + ''' + ''' + ''' + ''' + Public Sub New(ByVal id_Moby_Platforms As Integer, ByVal Moby_Platforms_URLPart As String, ByVal Moby_Platforms_Name As String, Optional ByVal ImportGameGroups As Boolean = False) + Init() + + Me._id_Moby_Platforms = id_Moby_Platforms + + Get_GameList(id_Moby_Platforms, Moby_Platforms_URLPart, Moby_Platforms_Name) + + If ImportGameGroups Then + Try + Get_GameGroups() + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("EXCEPTION: " & vbCrLf & ex.Message & ex.StackTrace.ToString) + End Try + + _Import_Groups = True + End If + End Sub + + ''' + ''' Constructor for multiple Platforms + ''' + ''' + Public Sub New(ByVal dt_Moby_Platforms As DS_MobyDB.tbl_Moby_PlatformsDataTable) + Init() + + For Each dr As DS_MobyDB.tbl_Moby_PlatformsRow In dt_Moby_Platforms.Rows + Try + Get_GameList(dr.id_Moby_Platforms, dr.URLPart, dr.Display_Name) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("EXCEPTION: " & vbCrLf & "id_Moby_Platforms: " & TC.NZ(dr("id_Moby_Platforms"), "") & vbCrLf & "URLPart: " & TC.NZ(dr("URLPart"), "") & vbCrLf & "Platform Name: " & TC.NZ(dr("Display_Name"), "") & vbCrLf & ex.Message & ex.StackTrace.ToString) + End Try + Next + + Try + Get_GameGroups() + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("EXCEPTION: " & vbCrLf & ex.Message & ex.StackTrace.ToString) + End Try + + _Import_Groups = True + End Sub + + Private Sub Init() + InitializeComponent() + + _bbi_Import_Single_Game_Caption = bbi_Import_Single_Game.Caption + _bbi_Import_Single_Game_Group_Caption = bbi_Import_Single_Game_Group.Caption + + + barmng.SetPopupContextMenu(grd_Moby_Games, popmnu_Moby_Web_Games) + barmng.SetPopupContextMenu(grd_Moby_Game_Groups, popmnu_Moby_Web_Game_Groups) + End Sub + + Public Function Get_GameList(ByVal id_Moby_Platforms As Integer, ByVal Moby_Platforms_URLPart As String, ByVal Moby_Platforms_Name As String) As DataTable + Dim tbl As DataTable = DS_Moby_Web.Tables("tbl_Moby_Games") + Dim sURL As String = "http://www.mobygames.com/browse/games/" & Moby_Platforms_URLPart & "/list-games/" + + Dim bContinue As Boolean = True + + Dim prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing + + While bContinue + + Dim bTryAgain As Boolean = True + + Dim sContent As String = "" + + While bTryAgain + sContent = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL) + Debug.WriteLine(sURL) + bTryAgain = False + If sContent.Length = 0 AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("Try again?", "", MessageBoxButtons.YesNo) <> MsgBoxResult.Yes Then + bTryAgain = True + End If + End While + + iTraffic += sContent.Length + + Dim htmlDoc As New HtmlAgilityPack.HtmlDocument + htmlDoc.LoadHtml(sContent) + + '/html/body/div/div[2]/table/tbody/tr/td[2]/div/div/div[2]/div/div[3]/div/table/tbody + + Dim coll_tr_Moby_Release As HtmlAgilityPack.HtmlNodeCollection = htmlDoc.DocumentNode.SelectNodes("//table[@class='molist']//tr[@valign='top']") + If coll_tr_Moby_Release Is Nothing OrElse coll_tr_Moby_Release.Count = 0 Then + Exit While + End If + + If prg Is Nothing Then + Try + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(_tran), 400, 60, ProgressBarStyle.Blocks, False, "Fetching game names for " & Moby_Platforms_Name & " from web ({0} of {1})", 0, CInt(MKNetLib.cls_MKRegex.GetMatches(htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderItems']").InnerText, "of (\d+)")(0).Groups(1).Value), True) + prg.Start() + Catch ex As Exception + + End Try + End If + + For Each tr_Release As HtmlAgilityPack.HtmlNode In coll_tr_Moby_Release + Try + If prg IsNot Nothing Then + prg.IncreaseCurrentValue() + End If + + Dim s_Moby_URLPart As String = MKNetLib.cls_MKStringSupport.Clean_Right(htmlDoc.DocumentNode.SelectSingleNode(tr_Release.XPath & "//td[1]/a").Attributes(0).Value, "/").Split("/").Last + Dim s_Moby_GameName As String = htmlDoc.DocumentNode.SelectSingleNode(tr_Release.XPath & "//td[1]/a").ChildNodes(0).InnerText + Dim s_Moby_Year As String = htmlDoc.DocumentNode.SelectSingleNode(tr_Release.XPath & "//td[2]/a").ChildNodes(0).InnerText + + s_Moby_GameName = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(s_Moby_GameName) + + Dim dr As DataRow = tbl.NewRow + dr("Game_Title") = s_Moby_GameName + dr("Year") = s_Moby_Year + dr("URLPart") = s_Moby_URLPart + dr("Platform_URLPart") = Moby_Platforms_URLPart + dr("id_Moby_Platforms") = id_Moby_Platforms + dr("PlatformName") = Moby_Platforms_Name + tbl.Rows.Add(dr) + Catch ex As Exception + 'Devexpress.XtraEditors.XtraMessageBox.Show("ERROR: Row: " & ex.Message) + End Try + + Next + + 'Find next page + bContinue = False + If htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']") IsNot Nothing Then + For Each html_node As HtmlAgilityPack.HtmlNode In htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']").ChildNodes + If html_node.InnerText = "Next" Then + bContinue = True + sURL = "http://www.mobygames.com" & html_node.Attributes(0).Value + Exit For + End If + Next + End If + + If prg IsNot Nothing Then + If prg.WaitForCancel Then + prg.Close() + Return tbl + End If + End If + End While + + If prg IsNot Nothing Then + prg.Close() + End If + + Return tbl + End Function + + Public Function Get_GameGroups() As DataTable + Dim tbl As DataTable = DS_Moby_Web.Tables("tbl_Moby_Game_Groups") + Dim sURL As String = "http://www.mobygames.com/browse/game-groups/" + + Dim bContinue As Boolean = True + + Dim prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing + + While bContinue + + Dim bTryAgain As Boolean = True + + Dim sContent As String = "" + + While bTryAgain + sContent = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL) + bTryAgain = False + If sContent.Length = 0 AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("Try again?", "", MessageBoxButtons.YesNo) <> MsgBoxResult.Yes Then + bTryAgain = True + End If + End While + + iTraffic += sContent.Length + + Dim htmlDoc As New HtmlAgilityPack.HtmlDocument + htmlDoc.LoadHtml(sContent) + + Dim coll_tr_Moby_Game_Group As HtmlAgilityPack.HtmlNodeCollection = htmlDoc.DocumentNode.SelectNodes("//table[@class='molist']//tr[@valign='top']") + If coll_tr_Moby_Game_Group Is Nothing OrElse coll_tr_Moby_Game_Group.Count = 0 Then + Exit While + End If + + If prg Is Nothing Then + Try + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(_tran), 400, 60, ProgressBarStyle.Blocks, False, "Fetching game groups list ({0} of {1})", 0, CInt(MKNetLib.cls_MKRegex.GetMatches(htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderItems']").InnerText, "of (\d+)")(0).Groups(1).Value), True) + prg.Start() + Catch ex As Exception + + End Try + End If + + For Each tr_Game_Group As HtmlAgilityPack.HtmlNode In coll_tr_Moby_Game_Group + Try + If prg IsNot Nothing Then + prg.IncreaseCurrentValue() + End If + + Dim s_Moby_URLPart As String = MKNetLib.cls_MKStringSupport.Clean_Right(htmlDoc.DocumentNode.SelectSingleNode(tr_Game_Group.XPath & "//td[1]/a").Attributes(0).Value, "/").Split("/").Last + Dim s_Moby_Group_Name As String = htmlDoc.DocumentNode.SelectSingleNode(tr_Game_Group.XPath & "//td[1]/a").ChildNodes(0).InnerText + Dim s_Moby_Description As String = htmlDoc.DocumentNode.SelectSingleNode(tr_Game_Group.XPath & "//td[2]").InnerText + Dim s_GameCount As String = htmlDoc.DocumentNode.SelectSingleNode(tr_Game_Group.XPath & "//td[3]").InnerText + + s_Moby_Group_Name = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(s_Moby_Group_Name) + s_Moby_Description = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(s_Moby_Description) + s_GameCount = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(s_GameCount) + + Dim iGameCount As Integer = 0 + + If IsNumeric(s_GameCount) Then iGameCount = CInt(s_GameCount) + + + Dim dr As DataRow = tbl.NewRow + dr("Name") = s_Moby_Group_Name 'cls_Globals.ISO_8859_1_Replace.ToASCII_Int(s_Moby_Group_Name) + dr("Description") = s_Moby_Description + dr("URLPart") = s_Moby_URLPart + dr("NumberOfGames") = iGameCount + tbl.Rows.Add(dr) + Catch ex As Exception + 'Devexpress.XtraEditors.XtraMessageBox.Show("ERROR: Row: " & ex.Message) + End Try + Next + + 'Find next page + bContinue = False + If htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']") IsNot Nothing Then + For Each html_node As HtmlAgilityPack.HtmlNode In htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']").ChildNodes + If html_node.InnerText = "Next" Then + bContinue = True + sURL = "http://www.mobygames.com" & html_node.Attributes(0).Value + Exit For + End If + Next + End If + + If prg.WaitForCancel Then + prg.Close() + Return tbl + End If + End While + + If prg IsNot Nothing Then + prg.Close() + End If + + Return tbl + End Function + + ''' + ''' Add text to the log + ''' + ''' + ''' + ''' + Private Sub AddLog(ByVal Text As String, Optional ByVal NewLine As Boolean = True) + If NewLine Then + Me._Import_Log.AppendLine(Text) + Else + Me._Import_Log.Append(Text) + End If + End Sub + + ''' + ''' Import ALL the games + ''' + ''' + Private Sub Import_Games() + Me._Import_Log = New System.Text.StringBuilder + + _tran = cls_Globals.Conn.BeginTransaction + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(_tran), 400, 60, ProgressBarStyle.Blocks, False, "Importing game {0} of {1}: {2}", 0, DS_Moby_Web.Tables("tbl_Moby_Games").Rows.Count, False) + prg.Start() + + _Import_Total = DS_Moby_Web.Tables("tbl_Moby_Games").Rows.Count + _Import_New = 0 + _Import_Error = False + + For Each row_Game As DataRow In DS_Moby_Web.Tables("tbl_Moby_Games").Rows + prg.IncreaseCurrentValue() + prg.DetailText = row_Game("Game_Title") + + Try + Import_Game(TC.NZ(row_Game("Game_Title"), ""), TC.NZ(row_Game("URLPart"), ""), TC.NZ(row_Game("Year"), ""), TC.NZ(row_Game("Platform_URLPart"), ""), row_Game("id_Moby_Platforms")) + Catch ex As Exception + AddLog(" EXCEPTION: " & ex.Message & ex.StackTrace) + End Try + Next + + Update_Moby_Releases_Platform_Owner(_tran) + + _tran.Commit() + + prg.Close() + End Sub + + Private Sub Import_Game_Groups() + Me._Import_Log = New System.Text.StringBuilder + + _tran = cls_Globals.Conn.BeginTransaction + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(_tran), 400, 60, ProgressBarStyle.Blocks, False, "Importing game group {0} of {1}: {2}", 0, DS_Moby_Web.Tables("tbl_Moby_Game_Groups").Rows.Count, False) + prg.Start() + + _Import_Total = DS_Moby_Web.Tables("tbl_Moby_Game_Groups").Rows.Count + _Import_New = 0 + _Import_Error = False + + For Each row_Game_Group As DataRow In DS_Moby_Web.Tables("tbl_Moby_Game_Groups").Rows + prg.IncreaseCurrentValue() + prg.DetailText = row_Game_Group("Name") + + Try + Import_Game_Group(TC.NZ(row_Game_Group("Name"), ""), TC.NZ(row_Game_Group("URLPart"), ""), TC.NZ(row_Game_Group("NumberOfGames"), 0)) + Catch ex As Exception + AddLog(" EXCEPTION: " & ex.Message & ex.StackTrace) + End Try + Next + + _tran.Commit() + + prg.Close() + End Sub + + Private Function SplitPrefix(ByVal Name As String, ByVal Prefix As String) As cls_3ObjVec + Return New cls_3ObjVec(Name, Name.Substring(Prefix.Length).Trim, Name.Substring(0, Prefix.Length).Trim) + End Function + + ''' + ''' Split a game name by it's Prefix if any can be found + ''' + ''' + ''' 3-Object Vector, x = old name, y = new name, z = prefix + ''' + Private Function SplitPrefix(ByVal Name As String) As cls_3ObjVec + If Name.ToLower.StartsWith("the ") Then Return SplitPrefix(Name, "the ") + If Name.ToLower.StartsWith("a ") Then Return SplitPrefix(Name, "a ") + If Name.ToLower.StartsWith("disney's ") Then Return SplitPrefix(Name, "disney's ") + If Name.ToLower.StartsWith("disney ") Then Return SplitPrefix(Name, "disney ") + + Return New cls_3ObjVec(Name.Trim, Name.Trim, "") + End Function + + Private Sub Import_Game(ByVal Game_Title As String, ByVal URLPart As String, ByVal Year As String, ByVal Platform_URLPart As String, ByVal id_Moby_Platforms As Integer) + AddLog("Importing " & Game_Title) + + If URLPart.Length = 0 Then + AddLog(" ERROR: No URL part found!") + Me._Import_Error = Me._Import_Error + 1 + Return + End If + + 'All the attributes of the Release + Dim Prefix As Object = Nothing + Dim id_Moby_Games As Object = Nothing + Dim id_Moby_Releases As Object = Nothing + Dim Publisher_id_Moby_Companies As Object = Nothing + Dim Developer_id_Moby_Companies As Object = Nothing + Dim id_Genre_Main As Object = Nothing + Dim Rank As Object = Nothing + Dim Score As Object = Nothing + Dim TechInfo As Object = Nothing + + Dim sURL As String = "http://www.mobygames.com/game/" & Platform_URLPart & "/" & URLPart + AddLog(" Fetching Main Summary HTML from " & sURL) + + Dim sContent_Summary As String = "" + Dim ErrorText As String = "" + sContent_Summary = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL, UserAgentHeader, ErrorText) + iTraffic += sContent_Summary.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_Summary As New HtmlAgilityPack.HtmlDocument + htmlDoc_Summary.LoadHtml(sContent_Summary) + + Dim splitName As cls_3ObjVec = SplitPrefix(Game_Title) + + If splitName._x <> splitName._y Then + Game_Title = splitName._y + Prefix = splitName._z + End If + + 'Add Game to DB + Dim Game_Description As Object = MKNetLib.cls_MKRegex.GetMatches(htmlDoc_Summary.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml, "Description(.*?) -1 Then + If id_Moby_Genres = 0 Then + AddLog(" ERROR: Can't find Genre in DB with URLPart = " & TC.getSQLFormat(Genre_URLPart)) + _Import_Error = True + Else + DS_MobyDB.Upsert_Moby_Games_Genres(_tran, id_Moby_Games, id_Moby_Genres) + End If + End If + Next + End If + Next + Next + End If + + 'Rank and Score + Dim node_Rank As HtmlAgilityPack.HtmlNode = htmlDoc_Summary.DocumentNode.SelectSingleNode("//div[@id='coreGameRank']") + If node_Rank Is Nothing Then + AddLog(" ERROR: Parser can't find RankInfo!") + _Import_Error = True + Else + Dim sRank As String = node_Rank.SelectSingleNode(node_Rank.XPath & "/div/div/div/div/div/div").InnerText + Dim sScore As String = node_Rank.SelectSingleNode(node_Rank.XPath & "/div/div/div/div[3]/div/div").InnerText + + If IsNumeric(sRank) Then + Rank = CInt(sRank) + End If + + If IsNumeric(sScore) Then + Score = Double.Parse(sScore, Globalization.CultureInfo.InvariantCulture) + End If + End If + + 'TechInfo Note (field on tbl_Moby_Releases) + 'Test with http://www.mobygames.com/game/genesis/batman-forever_/techinfo + Dim sContent_TechInfo As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL & "/techinfo", UserAgentHeader, ErrorText) + iTraffic += sContent_TechInfo.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_TechInfo As New HtmlAgilityPack.HtmlDocument + htmlDoc_TechInfo.LoadHtml(sContent_TechInfo) + For Each node_TechInfo As HtmlAgilityPack.HtmlNode In htmlDoc_TechInfo.DocumentNode.SelectNodes("//table[@class='techInfo']//tr") + For Each subnode_TechInfo As HtmlAgilityPack.HtmlNode In node_TechInfo.ChildNodes + If subnode_TechInfo.InnerText = "Notes" Then + If subnode_TechInfo.NextSibling IsNot Nothing AndAlso subnode_TechInfo.NextSibling.NextSibling IsNot Nothing Then + TechInfo = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(subnode_TechInfo.NextSibling.NextSibling.InnerText) + End If + End If + Next + Next + + 'Add Moby Release + id_Moby_Releases = DS_MobyDB.Upsert_Moby_Releases(_tran, id_Moby_Games, id_Moby_Platforms, Rank, Score, Publisher_id_Moby_Companies, Developer_id_Moby_Companies, sURL, TechInfo, Year) + + 'Up next: id_Moby_Releases dependent Data + + 'Get all the TechInfo (Attributes) + For Each node_TechInfo As HtmlAgilityPack.HtmlNode In htmlDoc_TechInfo.DocumentNode.SelectNodes("//table[@class='techInfo']") + If node_TechInfo.SelectNodes(node_TechInfo.XPath & "//a") IsNot Nothing Then + For Each subnode_TechInfo As HtmlAgilityPack.HtmlNode In node_TechInfo.SelectNodes(node_TechInfo.XPath & "//a") + If MKNetLib.cls_MKRegex.IsMatch(subnode_TechInfo.Attributes(0).Value, "attributeId,(\d*)") Then + Dim id_Moby_Attributes As Object = MKNetLib.cls_MKRegex.GetMatches(subnode_TechInfo.Attributes(0).Value, "attributeId,(\d*)")(0).Groups(1).Value + If IsNumeric(id_Moby_Attributes) Then + If TC.NZ(DS_MobyDB.Select_id_Moby_Attributes(_tran, id_Moby_Attributes), 0) = 0 Then + Dim sContent_Attributes As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe("http://www.mobygames.com/attribute/sheet/attributeId," & id_Moby_Attributes, UserAgentHeader, ErrorText) + iTraffic += sContent_Attributes.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_Attributes As New HtmlAgilityPack.HtmlDocument + htmlDoc_Attributes.LoadHtml(sContent_Attributes) + + Dim sAttributeCategory As String = htmlDoc_Attributes.DocumentNode.SelectNodes("//em")(1).InnerText + Dim sAttributeName As String = htmlDoc_Attributes.DocumentNode.SelectNodes("//em")(0).InnerText + Dim sAttributeDescription As String = htmlDoc_Attributes.DocumentNode.SelectSingleNode("//p[2]").PreviousSibling.InnerText + + sAttributeName = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(sAttributeName) + sAttributeDescription = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(sAttributeDescription) + + Dim id_Moby_Attributes_Categories As Integer = DS_MobyDB.Upsert_Moby_Attributes_Categories(_tran, sAttributeCategory) + DS_MobyDB.Upsert_Moby_Attributes(_tran, id_Moby_Attributes, id_Moby_Attributes_Categories, sAttributeName, sAttributeDescription) + End If + + DS_MobyDB.Upsert_Moby_Releases_Attributes(_tran, id_Moby_Releases, id_Moby_Attributes) + End If + End If + Next + End If + Next + + 'Alternate Titles (if they exist) + 'Test with http://www.mobygames.com/game/ultimate-doom + If MKNetLib.cls_MKRegex.IsMatch(htmlDoc_Summary.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml, "Alternate Titles
    (.*?)
", System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Or System.Text.RegularExpressions.RegexOptions.Compiled) Then + Dim Alternate_Titles As String = MKNetLib.cls_MKRegex.GetMatches(htmlDoc_Summary.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml, "Alternate Titles
    (.*?)
", System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Or System.Text.RegularExpressions.RegexOptions.Compiled)(0).Groups(1).Value + + If MKNetLib.cls_MKRegex.IsMatch(Alternate_Titles, "
  • ""(.+?)"".+?(.+?)", System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Or System.Text.RegularExpressions.RegexOptions.Compiled) Then + For Each match_Title As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(Alternate_Titles, "
  • ""(.+?)"".+?(.+?)", System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Or System.Text.RegularExpressions.RegexOptions.Compiled) + Dim sAlternateTitle As String = match_Title.Groups(1).Value + Dim sDescription As String = match_Title.Groups(2).Value + DS_MobyDB.Upsert_Moby_Games_Alternate_Titles(_tran, id_Moby_Games, sAlternateTitle, sDescription) + Next + End If + End If + + 'Rating Systems "rating-systems" + 'Test with http://www.mobygames.com/game/dos/ultimate-doom/rating-systems + Dim sContent_RatingSystems As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL & "/rating-systems", UserAgentHeader, ErrorText) + iTraffic += sContent_RatingSystems.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_RatingSystems As New HtmlAgilityPack.HtmlDocument + htmlDoc_RatingSystems.LoadHtml(sContent_RatingSystems) + + For Each node_RatingSystem As HtmlAgilityPack.HtmlNode In htmlDoc_RatingSystems.DocumentNode.SelectNodes("//table[@summary='Rating Categories and Descriptors']") + If node_RatingSystem.SelectNodes(node_RatingSystem.XPath & "//a") IsNot Nothing Then + For Each subnode_RatingSystem As HtmlAgilityPack.HtmlNode In node_RatingSystem.SelectNodes(node_RatingSystem.XPath & "//a") + If MKNetLib.cls_MKRegex.IsMatch(subnode_RatingSystem.Attributes(0).Value, "attributeId,(\d*)") Then + Dim id_Moby_Attributes As Object = MKNetLib.cls_MKRegex.GetMatches(subnode_RatingSystem.Attributes(0).Value, "attributeId,(\d*)")(0).Groups(1).Value + If IsNumeric(id_Moby_Attributes) Then + If TC.NZ(DS_MobyDB.Select_id_Moby_Attributes(_tran, id_Moby_Attributes), 0) = 0 Then + Dim sContent_Attributes As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe("http://www.mobygames.com/attribute/sheet/attributeId," & id_Moby_Attributes, UserAgentHeader, ErrorText) + iTraffic += sContent_Attributes.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_Attributes As New HtmlAgilityPack.HtmlDocument + htmlDoc_Attributes.LoadHtml(sContent_Attributes) + + Dim sAttributeCategory As String = htmlDoc_Attributes.DocumentNode.SelectNodes("//em")(1).InnerText + Dim sAttributeName As String = htmlDoc_Attributes.DocumentNode.SelectNodes("//em")(0).InnerText + Dim sAttributeDescription As String = htmlDoc_Attributes.DocumentNode.SelectSingleNode("//p[2]").PreviousSibling.InnerText + + sAttributeName = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(sAttributeName) + sAttributeDescription = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(sAttributeDescription) + + Dim id_Moby_Attributes_Categories As Integer = DS_MobyDB.Upsert_Moby_Attributes_Categories(_tran, sAttributeCategory, True) + DS_MobyDB.Upsert_Moby_Attributes(_tran, id_Moby_Attributes, id_Moby_Attributes_Categories, sAttributeName, sAttributeDescription) + End If + + DS_MobyDB.Upsert_Moby_Releases_Attributes(_tran, id_Moby_Releases, id_Moby_Attributes) + End If + End If + Next + End If + Next + + 'Credits (Staff) + Dim sContent_Credits As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL & "/credits", UserAgentHeader, ErrorText) + iTraffic += sContent_Credits.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_Credits As New HtmlAgilityPack.HtmlDocument + htmlDoc_Credits.LoadHtml(sContent_Credits) + + Dim iSort As Integer = 0 + + If Not sContent_Credits.Contains("There are no credits for ") Then + For Each node_Credits As HtmlAgilityPack.HtmlNode In htmlDoc_Credits.DocumentNode.SelectNodes("//table[@summary='List of Credits']") + If node_Credits.SelectNodes(node_Credits.XPath & "//tr[@class='crln']") IsNot Nothing Then + For Each subnode_Credits As HtmlAgilityPack.HtmlNode In node_Credits.SelectNodes(node_Credits.XPath & "//tr[@class='crln']") + Dim sCreditPosition As String = MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(subnode_Credits.SelectNodes(subnode_Credits.XPath & "//td")(0).InnerText) + + If subnode_Credits.SelectNodes(subnode_Credits.XPath & "//a") IsNot Nothing Then + For Each subsubnode_Credits As HtmlAgilityPack.HtmlNode In subnode_Credits.SelectNodes(subnode_Credits.XPath & "//a") + If MKNetLib.cls_MKRegex.IsMatch(subsubnode_Credits.Attributes(0).Value, "developerId,(\d*)") Then + Dim id_Moby_Staff As Object = MKNetLib.cls_MKRegex.GetMatches(subsubnode_Credits.Attributes(0).Value, "developerId,(\d*)")(0).Groups(1).Value + If IsNumeric(id_Moby_Staff) Then + If TC.NZ(DS_MobyDB.Select_id_Moby_Staff(_tran, id_Moby_Staff), 0) = 0 Then + Dim sContent_Staff As String = MKNetLib.cls_MKWebClient.FetchURLToStringSafe("http://www.mobygames.com/developer/sheet/bio/developerId," & id_Moby_Staff, UserAgentHeader, ErrorText) + iTraffic += sContent_Staff.Length + If ErrorText <> "" Then AddLog(" " & ErrorText) + + Dim htmlDoc_Developer As New HtmlAgilityPack.HtmlDocument + htmlDoc_Developer.LoadHtml(sContent_Staff) + + Dim sDeveloperName As String = MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(subsubnode_Credits.InnerText).Trim + Dim sDeveloperBio_Html As String = htmlDoc_Developer.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml + + Dim sDeveloperBio As String = "" + If MKNetLib.cls_MKRegex.IsMatch(sDeveloperBio_Html, "<\/h2>(.*?)

    ", 520 Or System.Text.RegularExpressions.RegexOptions.Singleline) Then + sDeveloperBio = MKNetLib.cls_MKRegex.GetMatches(sDeveloperBio_Html, "<\/h2>(.*?)

    ", 520 Or System.Text.RegularExpressions.RegexOptions.Singleline)(0).Groups(1).Value + sDeveloperBio = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(sDeveloperBio) + Else + sDeveloperBio = "There is no biography on file for " & sDeveloperName + End If + + DS_MobyDB.Upsert_Moby_Staff(_tran, id_Moby_Staff, sDeveloperName, sDeveloperBio) + End If + + iSort += 1 + DS_MobyDB.Upsert_Moby_Releases_Staff(_tran, id_Moby_Releases, id_Moby_Staff, sCreditPosition, iSort) + End If + End If + Next + End If + + Next + End If + Next + End If + + End Sub + + Private _dict_Genre_URLParts As New Dictionary(Of String, Integer) + + '''

    + ''' Fetch Genre Info from MobyGames and Insert or Update to moby.tbl_Moby_Genres + ''' + ''' + ''' 0 on Error, -1 on expected Error, positive Integer as id_Moby_Genres + Private Function Upsert_Genre(ByRef tran As SQLite.SQLiteTransaction, ByVal URLPart As String) As Integer + If URLPart.Contains("attributeId") Then + Return -1 + End If + + If _dict_Genre_URLParts.ContainsKey(URLPart) Then + Return _dict_Genre_URLParts(URLPart) + End If + + Dim sURL As String = "http://www.mobygames.com/genre/sheet/" & URLPart & "/" + AddLog(" Fetching Genre from " & sURL) + + Dim sContent_Genre As String = "" + Dim ErrorText As String = "" + sContent_Genre = MKNetLib.cls_MKWebClient.FetchURLToStringSafe(sURL, UserAgentHeader, ErrorText) + iTraffic += sContent_Genre.Length + + If ErrorText <> "" Then + AddLog(" " & ErrorText) + Return 0 + End If + + Dim htmlDoc_Genre As New HtmlAgilityPack.HtmlDocument + htmlDoc_Genre.LoadHtml(sContent_Genre) + + Dim Genre_Title = MKNetLib.cls_MKRegex.GetMatches(htmlDoc_Genre.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml, "(.*?)<", System.Text.RegularExpressions.RegexOptions.Singleline Or System.Text.RegularExpressions.RegexOptions.CultureInvariant Or System.Text.RegularExpressions.RegexOptions.Compiled)(0).Groups(1).Value.Trim + Dim Genre_Description = MKNetLib.cls_MKRegex.GetMatches(htmlDoc_Genre.DocumentNode.SelectSingleNode("//div[@class='col-md-8 col-lg-8']").InnerHtml, "Description(.*?) 0 Then + Me._dict_Genre_URLParts(URLPart) = id_Moby_Genres + + Return id_Moby_Genres + Else + AddLog(" ERROR while upserting to moby.tbl_Moby_Genres") + Return 0 + End If + End Function + + Private Sub Import_Game_Group(ByVal Name As String, ByVal URLPart As String, ByVal NumberOfGames As Integer) + AddLog("Importing Group " & Name & " (" & NumberOfGames & " Games)") + + If URLPart.Length = 0 Then + AddLog(" ERROR: No URL part found!") + Me._Import_Error = Me._Import_Error + 1 + Return + End If + + 'All the attributes of the Game Group + Dim Description As Object = Nothing + Dim id_Moby_Game_Groups As Integer = 0 + + Dim sURL As String = "http://www.mobygames.com/game-group/" & URLPart + + AddLog(" Fetching First HTML from " & sURL) + + Dim bContinue As Boolean = True + + While bContinue + + Dim bTryAgain As Boolean = True + + Dim sContent As String = "" + + 'Fetch Content + While bTryAgain + sContent = MKNetLib.cls_MKWebClient.FetchURLToString(sURL) + bTryAgain = False + If sContent.Length = 0 AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("Try again?", "", MessageBoxButtons.YesNo) <> MsgBoxResult.Yes Then + bTryAgain = True + End If + End While + + + Dim htmlDoc As New HtmlAgilityPack.HtmlDocument + htmlDoc.LoadHtml(sContent) + + '/html/body/div/div[2]/table/tbody/tr/td[2]/div/div/div[2]/div/div[3]/div/table/tbody + + If Description Is Nothing Then + Description = MKNetLib.cls_MKRegex.GetMatches(htmlDoc.DocumentNode.SelectSingleNode("//div[@class='col-md-12 col-lg-12']").InnerHtml, "Description(.*?)", "") + 'Description = MKNetLib.cls_MKRegex.Replace(Description, "", "") + Description = MKNetLib.cls_MKHTMLtoText.ConvertHTMLtoText(Description) + id_Moby_Game_Groups = DS_MobyDB.Upsert_Moby_Game_Groups(_tran, URLPart, Name, Description) + End If + + Dim coll_tr_Moby_Release As HtmlAgilityPack.HtmlNodeCollection = htmlDoc.DocumentNode.SelectNodes("//table[@class='molist']//tr[@valign='top']") + If coll_tr_Moby_Release Is Nothing OrElse coll_tr_Moby_Release.Count = 0 Then + Exit While + End If + + For Each tr_Release As HtmlAgilityPack.HtmlNode In coll_tr_Moby_Release + Try + Dim s_Moby_URLPart As String = MKNetLib.cls_MKStringSupport.Clean_Right(htmlDoc.DocumentNode.SelectSingleNode(tr_Release.XPath & "//td[1]/a").Attributes(0).Value, "/").Split("/").Last + + Dim coll_tr_Moby_Platforms As HtmlAgilityPack.HtmlNodeCollection = htmlDoc.DocumentNode.SelectNodes(tr_Release.XPath & "//td[3]/a") + + If coll_tr_Moby_Platforms Is Nothing OrElse coll_tr_Moby_Platforms.Count = 0 Then + Continue For + End If + + For Each tr_Platform As HtmlAgilityPack.HtmlNode In coll_tr_Moby_Platforms + Dim Platform_URLPart As String = MKNetLib.cls_MKStringSupport.Clean_Right(tr_Platform.Attributes(0).Value, "/").Split("/").Last + + Dim id_Moby_Game_Groups_Moby_Releases As Integer = DS_MobyDB.Upsert_Moby_Game_Groups_Moby_Releases(_tran, id_Moby_Game_Groups, s_Moby_URLPart, Platform_URLPart) + Next + + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("ERROR: Row: " & ex.Message) + End Try + + Next + + 'Find next page + bContinue = False + If htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']") IsNot Nothing Then + For Each html_node As HtmlAgilityPack.HtmlNode In htmlDoc.DocumentNode.SelectSingleNode("//td[@class='mobHeaderNav']").ChildNodes + If html_node.InnerText = "Next" Then + bContinue = True + sURL = "http://www.mobygames.com" & html_node.Attributes(0).Value + Exit For + End If + Next + End If + End While + End Sub + +#Region "Button and Menu Events" + Private Sub btn_Run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Run.Click + Dim dt_Start As DateTime = DateTime.Now + + Import_Games() + + Dim noCatMessage As String = "" + Dim iNumNoCatGenres As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM moby.tbl_Moby_Genres WHERE No_Category = 1"), 0) + If iNumNoCatGenres > 0 Then + noCatMessage = ControlChars.CrLf & ControlChars.CrLf & "ATTENTiON: A total of " & iNumNoCatGenres & " genres are now under No_Category!" + End If + + Dim GameImportLog As String = _Import_Log.ToString + + Dim GameGroupImportLog As String = "" + If Me._Import_Groups Then + Import_Game_Groups() 'Only import Game Groups if all Platforms get imported + GameGroupImportLog = _Import_Log.ToString + End If + + '### Calculated fields + 'Platform_Exclusive in tbl_Moby_Games + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE moby.tbl_Moby_Games SET Platform_Exclusive = CASE WHEN (SELECT COUNT(1) FROM tbl_Moby_Releases REL WHERE REL.id_Moby_Games = tbl_Moby_Games.id_Moby_Games) = 1 THEN 1 ELSE 0 END") + + 'Show some logs + MKNetDXLib.frm_MKDXMemoEdit.CreateAndShowDialog("Games" & IIf(Me._id_Moby_Platforms = 0, " and Groups", "") & " import done, time: " & DateDiff(DateInterval.Hour, dt_Start, DateTime.Now) & " hours" & ControlChars.CrLf & "Traffic: " & iTraffic & " bytes " & ControlChars.CrLf & "Following up the logs." & noCatMessage, Me) + + MKNetDXLib.frm_MKDXMemoEdit.CreateAndShowDialog(GameImportLog, Me) + + If Me._id_Moby_Platforms = 0 Then + MKNetDXLib.frm_MKDXMemoEdit.CreateAndShowDialog(GameGroupImportLog, Me) + End If + End Sub + + Private Sub popmnu_Moby_Web_Games_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Moby_Web_Games.BeforePopup + If Not grd_Moby_Games.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_Moby_Web_Games.Current Is Nothing Then + e.Cancel = True + Else + bbi_Import_Single_Game.Caption = _bbi_Import_Single_Game_Caption.Replace("{0}", BS_Moby_Web_Games.Current("Game_Title")) + End If + End Sub + + Private Sub popmnu_Moby_Web_Game_Groups_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Moby_Web_Game_Groups.BeforePopup + If Not grd_Moby_Game_Groups.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_Moby_Web_Game_Groups.Current Is Nothing Then + e.Cancel = True + Else + bbi_Import_Single_Game_Group.Caption = _bbi_Import_Single_Game_Group_Caption.Replace("{0}", BS_Moby_Web_Game_Groups.Current("Name")) + End If + End Sub + + Private Sub mni_Import_Single_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + _tran = cls_Globals.Conn.BeginTransaction + + If BS_Moby_Web_Games.Current Is Nothing Then + Return + End If + + Try + Import_Game(BS_Moby_Web_Games.Current("Game_Title"), BS_Moby_Web_Games.Current("URLPart"), BS_Moby_Web_Games.Current("Year"), BS_Moby_Web_Games.Current("Platform_URLPart"), BS_Moby_Web_Games.Current("id_Moby_Platforms")) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(" EXCEPTION: " & ex.Message & ControlChars.CrLf & ex.StackTrace.ToString) + End Try + + Update_Moby_Releases_Platform_Owner(_tran) + + _tran.Commit() + End Sub +#End Region + + Private Sub mni_Import_Single_Game_Group_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + _tran = cls_Globals.Conn.BeginTransaction + + If BS_Moby_Web_Game_Groups.Current Is Nothing Then + Return + End If + + Try + Import_Game_Group(BS_Moby_Web_Game_Groups.Current("Name"), BS_Moby_Web_Game_Groups.Current("URLPart"), BS_Moby_Web_Game_Groups.Current("NumberOfGames")) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(" EXCEPTION: " & ex.Message & ControlChars.CrLf & ex.StackTrace.ToString) + End Try + + _tran.Commit() + End Sub + + ''' + ''' For all Moby Platforms having an owner: Update all Moby Releases of that Platform with the Owner's ID, keep site's ID in id_Moby_Platforms_Site + ''' + ''' + ''' + Public Sub Update_Moby_Releases_Platform_Owner(tran As SQLite.SQLiteTransaction) + Dim dt_Moby_Platforms_Children As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Moby_Platforms, id_Moby_Platforms_Owner FROM moby.tbl_Moby_Platforms WHERE id_Moby_Platforms_Owner IS NOT NULL", Nothing, tran) + + For Each row As DataRow In dt_Moby_Platforms_Children.Rows + Dim sSQL As String = "" + sSQL &= " UPDATE moby.tbl_Moby_Releases" + sSQL &= " SET id_Moby_Platforms_Site = " & TC.getSQLFormat(row("id_Moby_Platforms")) + sSQL &= " , id_Moby_Platforms = " & TC.getSQLFormat(row("id_Moby_Platforms_Owner")) + sSQL &= " WHERE id_Moby_Platforms = " & TC.getSQLFormat(row("id_Moby_Platforms")) + sSQL &= " AND id_Moby_Games NOT IN (SELECT id_Moby_Games FROM moby.tbl_Moby_Releases WHERE id_Moby_Platforms = " & TC.getSQLFormat(row("id_Moby_Platforms_Owner")) & ")" + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + Next + End Sub + + Private Sub btn_GenreImport_Click(sender As Object, e As EventArgs) Handles btn_GenreImport.Click + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Upsert_Genre(tran, txb_GenreImport.Text) + End Using + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.Designer.vb new file mode 100644 index 0000000..c158b47 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.Designer.vb @@ -0,0 +1,171 @@ + _ +Partial Class frm_Moby_Platforms_Configuration + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.grd_Platforms = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Platform_Settings = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Platforms = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colShortname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVisible = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Checkedit = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.rpi_DefaultEmulator = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.grd_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Platform_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Checkedit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DefaultEmulator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grd_Platforms + ' + Me.grd_Platforms.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Platforms.DataSource = Me.BS_Platform_Settings + Me.grd_Platforms.Location = New System.Drawing.Point(3, 3) + Me.grd_Platforms.MainView = Me.gv_Platforms + Me.grd_Platforms.Name = "grd_Platforms" + Me.grd_Platforms.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Checkedit, Me.rpi_DefaultEmulator}) + Me.grd_Platforms.Size = New System.Drawing.Size(519, 364) + Me.grd_Platforms.TabIndex = 0 + Me.grd_Platforms.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Platforms}) + ' + 'BS_Platform_Settings + ' + Me.BS_Platform_Settings.DataMember = "tbl_Moby_Platforms_Settings" + Me.BS_Platform_Settings.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Platforms + ' + Me.gv_Platforms.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colShortname, Me.colVisible}) + Me.gv_Platforms.GridControl = Me.grd_Platforms + Me.gv_Platforms.Name = "gv_Platforms" + Me.gv_Platforms.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Platforms.OptionsView.ShowGroupPanel = False + Me.gv_Platforms.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.Caption = "Platform" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.Visible = True + Me.colName.VisibleIndex = 1 + Me.colName.Width = 729 + ' + 'colShortname + ' + Me.colShortname.Caption = "Short Name" + Me.colShortname.FieldName = "Shortname" + Me.colShortname.Name = "colShortname" + Me.colShortname.OptionsColumn.AllowEdit = False + Me.colShortname.OptionsColumn.ReadOnly = True + Me.colShortname.Visible = True + Me.colShortname.VisibleIndex = 2 + Me.colShortname.Width = 250 + ' + 'colVisible + ' + Me.colVisible.Caption = "Visible" + Me.colVisible.FieldName = "Visible" + Me.colVisible.Name = "colVisible" + Me.colVisible.Visible = True + Me.colVisible.VisibleIndex = 0 + Me.colVisible.Width = 211 + ' + 'rpi_Checkedit + ' + Me.rpi_Checkedit.AutoHeight = False + Me.rpi_Checkedit.Name = "rpi_Checkedit" + Me.rpi_Checkedit.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'rpi_DefaultEmulator + ' + Me.rpi_DefaultEmulator.AutoHeight = False + Me.rpi_DefaultEmulator.Name = "rpi_DefaultEmulator" + Me.rpi_DefaultEmulator.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(447, 370) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 2 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(369, 370) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 1 + Me.btn_OK.Text = "&OK" + ' + 'frm_Moby_Platforms_Configuration + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(525, 396) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.grd_Platforms) + Me.Name = "frm_Moby_Platforms_Configuration" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Platform Settings" + CType(Me.grd_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Platform_Settings, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Checkedit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DefaultEmulator, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents grd_Platforms As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Platforms As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents rpi_Checkedit As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents rpi_DefaultEmulator As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Platform_Settings As System.Windows.Forms.BindingSource + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colShortname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVisible As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.resx b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.resx new file mode 100644 index 0000000..064b009 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.vb b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.vb new file mode 100644 index 0000000..158ecdb --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.vb @@ -0,0 +1,38 @@ +Public Class frm_Moby_Platforms_Configuration + Public Sub New() + InitializeComponent() + + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , PLTFM.Display_Name AS Name" & ControlChars.CrLf + sSQL &= " , PLTFM.ShortName" & ControlChars.CrLf + sSQL &= " , IFNULL(PLTFMS.Visible, 1) AS Visible" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Platforms PLTFM" & ControlChars.CrLf + sSQL &= " LEFT JOIN main.tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " WHERE PLTFM.Visible = 1" & ControlChars.CrLf + sSQL &= " AND PLTFM.id_Moby_Platforms_Owner IS NULL" + sSQL &= " ORDER BY Display_Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Moby_Platforms_Settings) + End Sub + + Private Sub btn_OK_Click(sender As System.Object, e As System.EventArgs) Handles btn_OK.Click + BS_Platform_Settings.EndEdit() + For Each row As DataRow In Me.DS_ML.tbl_Moby_Platforms_Settings.Rows + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM main.tbl_Moby_Platforms_Settings WHERE id_Moby_Platforms = " & TC.getSQLFormat(row("id_Moby_Platforms"))) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "INSERT INTO main.tbl_Moby_Platforms_Settings (id_Moby_Platforms, Visible) VALUES (" & TC.getSQLParameter(row("id_Moby_Platforms"), row("Visible")) & ")") + Next + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(sender As System.Object, e As System.EventArgs) Handles btn_Cancel.Click + Me.Close() + End Sub + + Private Sub gv_Platforms_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Platforms.MouseMove + Me.grd_Platforms.ShowHandInColumns(gv_Platforms, {"Visible"}, e) + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.Designer.vb b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.Designer.vb new file mode 100644 index 0000000..71677ac --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.Designer.vb @@ -0,0 +1,226 @@ + +Partial Class frm_Moby_Staff_Info + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.grd_Moby_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Moby_Games = New System.Data.DataSet() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + Me.gv_Moby_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPosition = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatforms = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Bio = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Staff_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Main = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Main.SuspendLayout() + Me.SuspendLayout() + ' + 'grd_Moby_Games + ' + Me.grd_Moby_Games.DataSource = Me.BS_Moby_Games + Me.grd_Moby_Games.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Moby_Games.Location = New System.Drawing.Point(0, 52) + Me.grd_Moby_Games.MainView = Me.gv_Moby_Games + Me.grd_Moby_Games.Name = "grd_Moby_Games" + Me.grd_Moby_Games.Size = New System.Drawing.Size(626, 283) + Me.grd_Moby_Games.TabIndex = 0 + Me.grd_Moby_Games.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Games}) + ' + 'BS_Moby_Games + ' + Me.BS_Moby_Games.DataMember = "src_frm_Moby_Game_Group_Info" + Me.BS_Moby_Games.DataSource = Me.DS_Moby_Games + ' + 'DS_Moby_Games + ' + Me.DS_Moby_Games.DataSetName = "DS_Moby_Games" + Me.DS_Moby_Games.Tables.AddRange(New System.Data.DataTable() {Me.DataTable1}) + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3, Me.DataColumn4}) + Me.DataTable1.TableName = "src_frm_Moby_Game_Group_Info" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id_Moby_Games" + Me.DataColumn1.DataType = GetType(Long) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Name" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Platforms" + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "Position" + ' + 'gv_Moby_Games + ' + Me.gv_Moby_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colPosition, Me.colPlatforms}) + Me.gv_Moby_Games.GridControl = Me.grd_Moby_Games + Me.gv_Moby_Games.Name = "gv_Moby_Games" + Me.gv_Moby_Games.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Games.OptionsView.ShowGroupPanel = False + Me.gv_Moby_Games.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.Caption = "Game" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + Me.colName.Width = 152 + ' + 'colPosition + ' + Me.colPosition.FieldName = "Position" + Me.colPosition.Name = "colPosition" + Me.colPosition.OptionsColumn.AllowEdit = False + Me.colPosition.Visible = True + Me.colPosition.VisibleIndex = 1 + Me.colPosition.Width = 144 + ' + 'colPlatforms + ' + Me.colPlatforms.FieldName = "Platforms" + Me.colPlatforms.Name = "colPlatforms" + Me.colPlatforms.OptionsColumn.AllowEdit = False + Me.colPlatforms.Visible = True + Me.colPlatforms.VisibleIndex = 2 + Me.colPlatforms.Width = 323 + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Close.Location = New System.Drawing.Point(554, 341) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 0 + Me.btn_Close.Text = "&Close" + ' + 'lbl_Bio + ' + Me.lbl_Bio.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Bio.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Bio.Location = New System.Drawing.Point(0, 36) + Me.lbl_Bio.MKBoundControl1 = Nothing + Me.lbl_Bio.MKBoundControl2 = Nothing + Me.lbl_Bio.MKBoundControl3 = Nothing + Me.lbl_Bio.MKBoundControl4 = Nothing + Me.lbl_Bio.MKBoundControl5 = Nothing + Me.lbl_Bio.Name = "lbl_Bio" + Me.lbl_Bio.Padding = New System.Windows.Forms.Padding(3, 0, 3, 3) + Me.lbl_Bio.Size = New System.Drawing.Size(626, 16) + Me.lbl_Bio.TabIndex = 0 + Me.lbl_Bio.Text = "[Biography]" + ' + 'lbl_Staff_Name + ' + Me.lbl_Staff_Name.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Staff_Name.AutoEllipsis = True + Me.lbl_Staff_Name.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Staff_Name.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Staff_Name.Location = New System.Drawing.Point(0, 0) + Me.lbl_Staff_Name.MKBoundControl1 = Nothing + Me.lbl_Staff_Name.MKBoundControl2 = Nothing + Me.lbl_Staff_Name.MKBoundControl3 = Nothing + Me.lbl_Staff_Name.MKBoundControl4 = Nothing + Me.lbl_Staff_Name.MKBoundControl5 = Nothing + Me.lbl_Staff_Name.Name = "lbl_Staff_Name" + Me.lbl_Staff_Name.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Staff_Name.Size = New System.Drawing.Size(626, 36) + Me.lbl_Staff_Name.TabIndex = 3 + Me.lbl_Staff_Name.Text = "[Staff Name]" + ' + 'pnl_Main + ' + Me.pnl_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnl_Main.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Main.Controls.Add(Me.grd_Moby_Games) + Me.pnl_Main.Controls.Add(Me.lbl_Bio) + Me.pnl_Main.Controls.Add(Me.lbl_Staff_Name) + Me.pnl_Main.Location = New System.Drawing.Point(3, 3) + Me.pnl_Main.Name = "pnl_Main" + Me.pnl_Main.Size = New System.Drawing.Size(626, 335) + Me.pnl_Main.TabIndex = 11 + ' + 'frm_Moby_Staff_Info + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(632, 367) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.pnl_Main) + Me.Name = "frm_Moby_Staff_Info" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Staff Info" + CType(Me.grd_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Main.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents grd_Moby_Games As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BS_Moby_Games As System.Windows.Forms.BindingSource + Friend WithEvents DS_Moby_Games As System.Data.DataSet + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents gv_Moby_Games As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPlatforms As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Bio As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Staff_Name As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Main As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents DataColumn4 As DataColumn + Friend WithEvents colPosition As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.resx b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.resx new file mode 100644 index 0000000..e08f024 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 15, 14 + + + 152, 13 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.vb b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.vb new file mode 100644 index 0000000..0e180da --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Moby_Staff_Info.vb @@ -0,0 +1,37 @@ +Public Class frm_Moby_Staff_Info + + Private _id_Moby_Staff As Integer = 0 + + Public Sub New(ByVal id_Moby_Staff As Integer) + Me.InitializeComponent() + + Me._id_Moby_Staff = id_Moby_Staff + + Dim sSQL As String = "" + sSQL &= " SELECT DISTINCT" & ControlChars.CrLf + sSQL &= " MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " , MG.Name" & ControlChars.CrLf + sSQL &= " , ( SELECT group_concat(Name, ', ')" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT DISTINCT MP2.Name" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Releases_Staff MRS2" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases MR2 ON MRS2.id_Moby_Releases = MR2.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Platforms MP2 ON MR2.id_Moby_Platforms = MP2.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " WHERE MRS2.id_Moby_Staff = MRS.id_Moby_Staff AND MR2.id_Moby_Games = MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " ORDER BY MP2.Name" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ) AS Platforms" & ControlChars.CrLf + sSQL &= " , MRS.Position" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Releases_Staff MRS" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases MR ON MRS.id_Moby_Releases = MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " WHERE MRS.id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & ControlChars.CrLf + sSQL &= " ORDER BY MG.Name" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, Me.DS_Moby_Games.Tables("src_frm_Moby_Game_Group_Info")) + + 'Me.lbl_Bio.Text = MKNetLib.cls_MKRegex.Replace(TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Biography FROM moby.tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(_id_Moby_Staff)), "").Replace("
    ", ControlChars.CrLf), "<.*?>", "") + Me.lbl_Bio.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Biography FROM moby.tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(_id_Moby_Staff)), "") + Me.lbl_Staff_Name.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM moby.tbl_Moby_Staff WHERE id_Moby_Staff = " & TC.getSQLFormat(_id_Moby_Staff)), "[no name]") + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Movie_Manager.Designer.vb b/Metropolis_Launcher/Forms/frm_Movie_Manager.Designer.vb new file mode 100644 index 0000000..1817697 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Movie_Manager.Designer.vb @@ -0,0 +1,174 @@ + _ +Partial Class frm_Movie_Manager + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.txb_IMDBSearchText = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_IMDBSearchText = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.DS_IMDB = New Metropolis_Launcher.DS_IMDB() + Me.Ctl_MKDataGridView1 = New MKNetLib.ctl_MKDataGridView(Me.components) + Me.IdMoviesDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.IdCategoriesDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.IMDBidDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TitleDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.YearDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.RatingDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.RatingUsersDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.MetaScoreDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DescriptionDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LengthDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BS_Movies = New System.Windows.Forms.BindingSource(Me.components) + CType(Me.txb_IMDBSearchText.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_IMDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Ctl_MKDataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Movies, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txb_IMDBSearchText + ' + Me.txb_IMDBSearchText.Location = New System.Drawing.Point(63, 66) + Me.txb_IMDBSearchText.MKBoundLabel = Nothing + Me.txb_IMDBSearchText.MKEditValue_Compare = Nothing + Me.txb_IMDBSearchText.Name = "txb_IMDBSearchText" + Me.txb_IMDBSearchText.Size = New System.Drawing.Size(414, 20) + Me.txb_IMDBSearchText.TabIndex = 0 + ' + 'btn_IMDBSearchText + ' + Me.btn_IMDBSearchText.Location = New System.Drawing.Point(537, 63) + Me.btn_IMDBSearchText.Name = "btn_IMDBSearchText" + Me.btn_IMDBSearchText.Size = New System.Drawing.Size(97, 23) + Me.btn_IMDBSearchText.TabIndex = 1 + Me.btn_IMDBSearchText.Text = "Search" + ' + 'DS_IMDB + ' + Me.DS_IMDB.DataSetName = "DS_IMDB" + Me.DS_IMDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Ctl_MKDataGridView1 + ' + Me.Ctl_MKDataGridView1.AutoGenerateColumns = False + Me.Ctl_MKDataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Ctl_MKDataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IdMoviesDataGridViewTextBoxColumn, Me.IdCategoriesDataGridViewTextBoxColumn, Me.IMDBidDataGridViewTextBoxColumn, Me.TitleDataGridViewTextBoxColumn, Me.YearDataGridViewTextBoxColumn, Me.RatingDataGridViewTextBoxColumn, Me.RatingUsersDataGridViewTextBoxColumn, Me.MetaScoreDataGridViewTextBoxColumn, Me.DescriptionDataGridViewTextBoxColumn, Me.LengthDataGridViewTextBoxColumn}) + Me.Ctl_MKDataGridView1.DataSource = Me.BS_Movies + Me.Ctl_MKDataGridView1.Location = New System.Drawing.Point(63, 101) + Me.Ctl_MKDataGridView1.Name = "Ctl_MKDataGridView1" + Me.Ctl_MKDataGridView1.Size = New System.Drawing.Size(615, 208) + Me.Ctl_MKDataGridView1.TabIndex = 2 + ' + 'IdMoviesDataGridViewTextBoxColumn + ' + Me.IdMoviesDataGridViewTextBoxColumn.DataPropertyName = "id_Movies" + Me.IdMoviesDataGridViewTextBoxColumn.HeaderText = "id_Movies" + Me.IdMoviesDataGridViewTextBoxColumn.Name = "IdMoviesDataGridViewTextBoxColumn" + ' + 'IdCategoriesDataGridViewTextBoxColumn + ' + Me.IdCategoriesDataGridViewTextBoxColumn.DataPropertyName = "id_Categories" + Me.IdCategoriesDataGridViewTextBoxColumn.HeaderText = "id_Categories" + Me.IdCategoriesDataGridViewTextBoxColumn.Name = "IdCategoriesDataGridViewTextBoxColumn" + ' + 'IMDBidDataGridViewTextBoxColumn + ' + Me.IMDBidDataGridViewTextBoxColumn.DataPropertyName = "IMDBid" + Me.IMDBidDataGridViewTextBoxColumn.HeaderText = "IMDBid" + Me.IMDBidDataGridViewTextBoxColumn.Name = "IMDBidDataGridViewTextBoxColumn" + ' + 'TitleDataGridViewTextBoxColumn + ' + Me.TitleDataGridViewTextBoxColumn.DataPropertyName = "Title" + Me.TitleDataGridViewTextBoxColumn.HeaderText = "Title" + Me.TitleDataGridViewTextBoxColumn.Name = "TitleDataGridViewTextBoxColumn" + ' + 'YearDataGridViewTextBoxColumn + ' + Me.YearDataGridViewTextBoxColumn.DataPropertyName = "Year" + Me.YearDataGridViewTextBoxColumn.HeaderText = "Year" + Me.YearDataGridViewTextBoxColumn.Name = "YearDataGridViewTextBoxColumn" + ' + 'RatingDataGridViewTextBoxColumn + ' + Me.RatingDataGridViewTextBoxColumn.DataPropertyName = "Rating" + Me.RatingDataGridViewTextBoxColumn.HeaderText = "Rating" + Me.RatingDataGridViewTextBoxColumn.Name = "RatingDataGridViewTextBoxColumn" + ' + 'RatingUsersDataGridViewTextBoxColumn + ' + Me.RatingUsersDataGridViewTextBoxColumn.DataPropertyName = "RatingUsers" + Me.RatingUsersDataGridViewTextBoxColumn.HeaderText = "RatingUsers" + Me.RatingUsersDataGridViewTextBoxColumn.Name = "RatingUsersDataGridViewTextBoxColumn" + ' + 'MetaScoreDataGridViewTextBoxColumn + ' + Me.MetaScoreDataGridViewTextBoxColumn.DataPropertyName = "MetaScore" + Me.MetaScoreDataGridViewTextBoxColumn.HeaderText = "MetaScore" + Me.MetaScoreDataGridViewTextBoxColumn.Name = "MetaScoreDataGridViewTextBoxColumn" + ' + 'DescriptionDataGridViewTextBoxColumn + ' + Me.DescriptionDataGridViewTextBoxColumn.DataPropertyName = "Description" + Me.DescriptionDataGridViewTextBoxColumn.HeaderText = "Description" + Me.DescriptionDataGridViewTextBoxColumn.Name = "DescriptionDataGridViewTextBoxColumn" + ' + 'LengthDataGridViewTextBoxColumn + ' + Me.LengthDataGridViewTextBoxColumn.DataPropertyName = "Length" + Me.LengthDataGridViewTextBoxColumn.HeaderText = "Length" + Me.LengthDataGridViewTextBoxColumn.Name = "LengthDataGridViewTextBoxColumn" + ' + 'BS_Movies + ' + Me.BS_Movies.DataMember = "tbl_Movies" + Me.BS_Movies.DataSource = Me.DS_IMDB + ' + 'frm_Movie_Manager + ' + Me.ClientSize = New System.Drawing.Size(788, 355) + Me.Controls.Add(Me.Ctl_MKDataGridView1) + Me.Controls.Add(Me.btn_IMDBSearchText) + Me.Controls.Add(Me.txb_IMDBSearchText) + Me.Name = "frm_Movie_Manager" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.txb_IMDBSearchText.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_IMDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Ctl_MKDataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Movies, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents txb_IMDBSearchText As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_IMDBSearchText As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_IMDB As Metropolis_Launcher.DS_IMDB + Friend WithEvents Ctl_MKDataGridView1 As MKNetLib.ctl_MKDataGridView + Friend WithEvents IdMoviesDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents IdCategoriesDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents IMDBidDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TitleDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents YearDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents RatingDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents RatingUsersDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents MetaScoreDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DescriptionDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents LengthDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents BS_Movies As System.Windows.Forms.BindingSource + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Movie_Manager.resx b/Metropolis_Launcher/Forms/frm_Movie_Manager.resx new file mode 100644 index 0000000..01f4582 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Movie_Manager.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 116, 5 + + + 25 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Movie_Manager.vb b/Metropolis_Launcher/Forms/frm_Movie_Manager.vb new file mode 100644 index 0000000..761b8d1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Movie_Manager.vb @@ -0,0 +1,96 @@ +Public Class frm_Movie_Manager + + Private Sub btn_IMDBSearchText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_IMDBSearchText.Click + Dim s_input As String + s_input = txb_IMDBSearchText.Text + GetSearchResults(s_input) + End Sub + + Private Function GetSearchResults(ByVal s_input As String) As DataTable + Dim s_url As String = "http://www.imdb.com/find?q=" & s_input.Replace(" ", "+") & "&s=all" + Dim bTryAgain As Boolean = True + Dim sContent As String = "" + + Dim result_url As String = "" + Dim bTryAgain2 As Boolean = True + Dim result_url_content As String = "" + + 'call website with search results + While bTryAgain + sContent = MKNetLib.cls_MKWebClient.FetchURLToString(s_url) + bTryAgain = False + If sContent.Length = 0 AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("Try again?", "", MessageBoxButtons.YesNo) <> MsgBoxResult.Yes Then + bTryAgain = True + End If + End While + + 'give html code into "htmlDoc" + Dim htmlDoc As New HtmlAgilityPack.HtmlDocument + htmlDoc.LoadHtml(sContent) + + 'collect all expressions from a special class in coll_Results + Dim coll_Results As HtmlAgilityPack.HtmlNodeCollection = htmlDoc.DocumentNode.SelectNodes("//td[@class='result_text']") + If coll_Results Is Nothing Then + Return Nothing + End If + + 'Parse: Year, Title, Categories, IMDBid + For Each node_Result As HtmlAgilityPack.HtmlNode In coll_Results + If node_Result.InnerHtml.Contains("/title/") Then + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(node_Result.InnerHtml, "(tt\d+).+"">(.+)<\/a>( \((.+?)\))+") + Dim isSeries As Boolean = False + + If matches.Count = 1 AndAlso matches(0).Groups.Count = 5 Then + Dim row As DS_IMDB.tbl_MoviesRow = DS_IMDB.tbl_Movies.NewRow + For Each cap As System.Text.RegularExpressions.Capture In matches(0).Groups(4).Captures + If MKNetLib.cls_MKRegex.IsMatch(cap.Value, "\d\d\d\d") Then + row.Year = cap.Value + End If + If MKNetLib.cls_MKRegex.IsMatch(cap.Value, "\D+") Then + 'row.id_Categories = cap + 'TODO: Setzen von isSeries + 'TODO: Categories abgleichen -> ID auslesen und hier speichern + End If + Next + + row.IMDBid = matches(0).Groups(1).Value + row.Title = matches(0).Groups(2).Value + + 'call website of one search result + result_url = "http://www.imdb.com/title/" & matches(0).Groups(1).Value + bTryAgain2 = True + While bTryAgain2 + result_url_content = MKNetLib.cls_MKWebClient.FetchURLToString(result_url) + bTryAgain2 = False + If result_url_content.Length = 0 AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("Try again?", "", MessageBoxButtons.YesNo) <> MsgBoxResult.Yes Then + bTryAgain2 = True + End If + End While + + 'give html code into "htmlDoc" + Dim htmlDoc2 As New HtmlAgilityPack.HtmlDocument + htmlDoc2.LoadHtml(result_url_content) + + Dim notes_Rating As HtmlAgilityPack.HtmlNodeCollection = htmlDoc2.DocumentNode.SelectNodes("//div[@class='titlePageSprite star-box-giga-star']") + If notes_Rating IsNot Nothing Then + Dim sRating As String() = notes_Rating.Nodes(0).InnerText.Split(".") + row.Rating = Convert.ToDouble(sRating(0)) + If sRating.Length > 1 Then + row.Rating += Convert.ToDouble(sRating(1)) / 10 + End If + End If + + + If isSeries = False Then + DS_IMDB.tbl_Movies.Rows.Add(row) + End If + + End If + End If + Next + + Return Nothing + + End Function + +End Class diff --git a/Metropolis_Launcher/Forms/frm_PermDecision.Designer.vb b/Metropolis_Launcher/Forms/frm_PermDecision.Designer.vb new file mode 100644 index 0000000..ee48f10 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_PermDecision.Designer.vb @@ -0,0 +1,114 @@ + _ +Partial Class frm_PermDecision + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.lbl_Prompt = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_Bottom_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_Bottom_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.chb_ApplyAll = New MKNetDXLib.ctl_MKDXCheckEdit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.pnl_Bottom_Right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom_Left.SuspendLayout() + CType(Me.chb_ApplyAll.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Prompt + ' + Me.lbl_Prompt.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Prompt.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbl_Prompt.Location = New System.Drawing.Point(0, 0) + Me.lbl_Prompt.MKBoundControl1 = Nothing + Me.lbl_Prompt.MKBoundControl2 = Nothing + Me.lbl_Prompt.MKBoundControl3 = Nothing + Me.lbl_Prompt.MKBoundControl4 = Nothing + Me.lbl_Prompt.MKBoundControl5 = Nothing + Me.lbl_Prompt.Name = "lbl_Prompt" + Me.lbl_Prompt.Size = New System.Drawing.Size(784, 0) + Me.lbl_Prompt.TabIndex = 0 + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom.Controls.Add(Me.pnl_Bottom_Right) + Me.pnl_Bottom.Controls.Add(Me.pnl_Bottom_Left) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 143) + Me.pnl_Bottom.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(784, 23) + Me.pnl_Bottom.TabIndex = 1 + ' + 'pnl_Bottom_Right + ' + Me.pnl_Bottom_Right.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Bottom_Right.Location = New System.Drawing.Point(130, 0) + Me.pnl_Bottom_Right.Name = "pnl_Bottom_Right" + Me.pnl_Bottom_Right.Size = New System.Drawing.Size(654, 23) + Me.pnl_Bottom_Right.TabIndex = 1 + ' + 'pnl_Bottom_Left + ' + Me.pnl_Bottom_Left.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom_Left.Controls.Add(Me.chb_ApplyAll) + Me.pnl_Bottom_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Bottom_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Bottom_Left.Name = "pnl_Bottom_Left" + Me.pnl_Bottom_Left.Size = New System.Drawing.Size(130, 23) + Me.pnl_Bottom_Left.TabIndex = 0 + ' + 'chb_ApplyAll + ' + Me.chb_ApplyAll.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_ApplyAll.Location = New System.Drawing.Point(2, 2) + Me.chb_ApplyAll.MKBoundLabel = Nothing + Me.chb_ApplyAll.MKEditValue_Compare = Nothing + Me.chb_ApplyAll.Name = "chb_ApplyAll" + Me.chb_ApplyAll.Properties.Caption = "Apply for all" + Me.chb_ApplyAll.Size = New System.Drawing.Size(125, 19) + Me.chb_ApplyAll.TabIndex = 0 + ' + 'frm_PermDecision + ' + Me.ClientSize = New System.Drawing.Size(784, 166) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.lbl_Prompt) + Me.Name = "frm_PermDecision" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.pnl_Bottom_Right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom_Left.ResumeLayout(False) + CType(Me.chb_ApplyAll.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Prompt As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Bottom_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Bottom_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents chb_ApplyAll As MKNetDXLib.ctl_MKDXCheckEdit + +End Class diff --git a/Metropolis_Launcher/Forms/frm_PermDecision.resx b/Metropolis_Launcher/Forms/frm_PermDecision.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_PermDecision.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_PermDecision.vb b/Metropolis_Launcher/Forms/frm_PermDecision.vb new file mode 100644 index 0000000..a232876 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_PermDecision.vb @@ -0,0 +1,28 @@ +Public Class frm_PermDecision + Public ReadOnly Property ApplyAll As Boolean + Get + Return chb_ApplyAll.Checked + End Get + End Property + + Public Sub New(ByVal Caption As String, ByVal Prompt As String, ByRef Buttons() As cls_PermDecision.PermDecisionButton) + InitializeComponent() + + Me.Text = Caption + Me.lbl_Prompt.Text = Prompt + + For Each Button As cls_PermDecision.PermDecisionButton In Buttons + Dim btn As New MKNetDXLib.ctl_MKDXSimpleButton + btn.Text = Button.Text + btn.DialogResult = Button.Result + If Not TC.IsNullNothingOrEmpty(Button.Tooltip) Then btn.ToolTip = Button.Tooltip + btn.Dock = DockStyle.Right + Me.pnl_Bottom_Right.Controls.Add(btn) + + Dim lbl As New MKNetDXLib.ctl_MKDXLabel + lbl.MinimumSize = New Size(New Point(3, 0)) + lbl.Dock = DockStyle.Right + Me.pnl_Bottom_Right.Controls.Add(lbl) + Next + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rescan_Options.Designer.vb b/Metropolis_Launcher/Forms/frm_Rescan_Options.Designer.vb new file mode 100644 index 0000000..6f10886 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rescan_Options.Designer.vb @@ -0,0 +1,114 @@ + _ +Partial Class frm_Rescan_Options + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.btn_No = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.chb_Only_Missing_Files = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.chb_Only_Missing_Files.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn_No + ' + Me.btn_No.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_No.DialogResult = System.Windows.Forms.DialogResult.No + Me.btn_No.Location = New System.Drawing.Point(295, 42) + Me.btn_No.Name = "btn_No" + Me.btn_No.Size = New System.Drawing.Size(75, 23) + Me.btn_No.TabIndex = 7 + Me.btn_No.Text = "&No" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.DialogResult = System.Windows.Forms.DialogResult.Yes + Me.btn_OK.Location = New System.Drawing.Point(217, 42) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 6 + Me.btn_OK.Text = "&Yes" + ' + 'chb_Only_Missing_Files + ' + Me.chb_Only_Missing_Files.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.chb_Only_Missing_Files.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Only_Missing_Files.Location = New System.Drawing.Point(4, 45) + Me.chb_Only_Missing_Files.MKBoundLabel = Nothing + Me.chb_Only_Missing_Files.MKEditValue_Compare = Nothing + Me.chb_Only_Missing_Files.Name = "chb_Only_Missing_Files" + Me.chb_Only_Missing_Files.Properties.Caption = "Only rescan for missing files" + Me.chb_Only_Missing_Files.Size = New System.Drawing.Size(210, 19) + ToolTipTitleItem1.Text = "Only rescan for missing files" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "If checked, a rescan for new/modified meta-data and MobyGames links will be skipp" & + "ed." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.chb_Only_Missing_Files.SuperTip = SuperToolTip1 + Me.chb_Only_Missing_Files.TabIndex = 8 + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Appearance.TextOptions.VAlignment = DevExpress.Utils.VertAlignment.Center + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Size = New System.Drawing.Size(373, 38) + Me.lbl_Explanation.TabIndex = 9 + ' + 'frm_Rescan_Options + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(373, 68) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.chb_Only_Missing_Files) + Me.Controls.Add(Me.btn_No) + Me.Controls.Add(Me.btn_OK) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.MinimumSize = New System.Drawing.Size(389, 107) + Me.Name = "frm_Rescan_Options" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Rescan Games" + CType(Me.chb_Only_Missing_Files.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents btn_No As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents chb_Only_Missing_Files As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rescan_Options.resx b/Metropolis_Launcher/Forms/frm_Rescan_Options.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rescan_Options.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rescan_Options.vb b/Metropolis_Launcher/Forms/frm_Rescan_Options.vb new file mode 100644 index 0000000..c5f165b --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rescan_Options.vb @@ -0,0 +1,7 @@ +Public Class frm_Rescan_Options + Public Sub New(ByVal Explanation As String) + InitializeComponent() + + Me.lbl_Explanation.Text = Explanation + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager.Designer.vb b/Metropolis_Launcher/Forms/frm_Rom_Manager.Designer.vb new file mode 100644 index 0000000..8fb6eb9 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager.Designer.vb @@ -0,0 +1,1765 @@ + _ +Partial Class frm_Rom_Manager + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Rom_Manager)) + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.rpi_Moby_Release = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Moby_Releases = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() + Me.rpi_chb_Hidden = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Moby_Releases = New MKNetDXLib.ctl_MKDXLabel() + Me.grd_Moby_Releases = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Moby_Releases = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGamename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdded1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHighlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDeveloper = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPublisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Save = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Platform = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Moby_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.grd_Emu_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Emu_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Emu_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colFolder = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colfile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMoby_Games_URLPart = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHidden = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdded = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BS_Moby_Platforms_gv1 = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Rombase = New Metropolis_Launcher.DS_Rombase() + Me.BS_Rombase = New System.Windows.Forms.BindingSource(Me.components) + Me.BS_Moby_Platforms_gv2 = New System.Windows.Forms.BindingSource(Me.components) + Me.spltpnl_Right = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.tcl_MV = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_Discs_Volumes = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_Discs_Volumes = New MKNetDXLib.ctl_MKDXPanel() + Me.grd_MV = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_MV = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_MV = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemLookUpEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVolume_Number = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Volume_Number = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_MV_Volume = New System.Windows.Forms.BindingSource(Me.components) + Me.lbl_Volumes = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_DOSBox_Files_Directories = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXPanel() + Me.Ctl_MKDXSplitPanel1 = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_DOSBox_Files_and_Folders = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_DOSBox_Files_and_Folders = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_DOSBox_Displayname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Rombase_DOSBox_Filetypes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDOSBox_Mount_Destination = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVolume_Number1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_DOSBox_Volume = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_DOSBox_Inner_File = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_DOSBox_File = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_DOSBox_Folder = New MKNetDXLib.ctl_MKDXTextEdit() + Me.cmb_DOSBox_Volume_Number = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.cmb_DOSBox_Mount_Destination = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Mount_Destination = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_DOSBox_Exe_Type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Exe_Types = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_DOSBox_Type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_DOSBox_Filetypes = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_DOSBox_Volume_Number = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Mount_Destination = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_InnerFile = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_File = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Exe_Type = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Folder = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Type = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Folder_and_Files_Settings = New MKNetDXLib.ctl_MKDXLabel() + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn12 = New System.Data.DataColumn() + Me.DataColumn13 = New System.Data.DataColumn() + Me.DataColumn14 = New System.Data.DataColumn() + Me.DataTable2 = New System.Data.DataTable() + Me.DataColumn15 = New System.Data.DataColumn() + Me.DataColumn16 = New System.Data.DataColumn() + Me.DataColumn17 = New System.Data.DataColumn() + Me.DataTable3 = New System.Data.DataTable() + Me.DataColumn18 = New System.Data.DataColumn() + Me.DataColumn19 = New System.Data.DataColumn() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_AddGames = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_AddGamesFolder = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_DOSBox_Game_Directory = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_DOSBox_Game_Media = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Edit_Game = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Edit_Multiple_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Change_Directory = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Rescan = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_SetHidden = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_UnsetHidden = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_SetLink = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_RemoveLink = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Merge_Select = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Merge_Start = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Export = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Debug_Import_XML = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Debug_Export_XML = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Debug_Group_Volumes = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Debug_SetModified = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Debug_Apply_TDC = New DevExpress.XtraBars.BarButtonItem() + Me.SkinBarSubItem1 = New DevExpress.XtraBars.SkinBarSubItem() + Me.bbi_DOSBox_Files_and_Folders_Rename = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_DOSBox_Files_and_Folders_Add_Archive = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_DOSBox_Files_and_Folders_Add_Directory = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_DOSBox_Files_and_Folders_Add_Media = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Moby_Games_Open_Moby_Page = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Moby_Games_Evaluate_Links = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Auto_Link = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Rom_Manager = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_DOSBox_Files_and_Folders = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Moby_Games = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.coldeprecated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.coldeprecated1 = New DevExpress.XtraGrid.Columns.GridColumn() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_chb_Hidden, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms_gv2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spltpnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Right.SuspendLayout() + CType(Me.tcl_MV, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_MV.SuspendLayout() + Me.tpg_Discs_Volumes.SuspendLayout() + CType(Me.pnl_Discs_Volumes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Discs_Volumes.SuspendLayout() + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Volume_Number, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_DOSBox_Files_Directories.SuspendLayout() + CType(Me.pnl_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_DOSBox_Files_and_Folders.SuspendLayout() + CType(Me.Ctl_MKDXSplitPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXSplitPanel1.SuspendLayout() + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DOSBox_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_Inner_File.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_File.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_Folder.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Volume_Number.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Mount_Destination.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Mount_Destination, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Exe_Type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Exe_Types, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_DOSBox_Type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_DOSBox_Filetypes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Rom_Manager, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'rpi_Moby_Release + ' + Me.rpi_Moby_Release.AutoHeight = False + Me.rpi_Moby_Release.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Release.DataSource = Me.BS_Moby_Releases + Me.rpi_Moby_Release.DisplayMember = "Gamename" + Me.rpi_Moby_Release.Name = "rpi_Moby_Release" + Me.rpi_Moby_Release.NullText = "" + Me.rpi_Moby_Release.ValueMember = "Moby_Games_URLPart" + ' + 'BS_Moby_Releases + ' + Me.BS_Moby_Releases.DataMember = "src_Moby_Releases" + Me.BS_Moby_Releases.DataSource = Me.DS_MobyDB + ' + 'DS_MobyDB + ' + Me.DS_MobyDB.DataSetName = "DS_MobyDB" + Me.DS_MobyDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'rpi_chb_Hidden + ' + Me.rpi_chb_Hidden.AutoHeight = False + Me.rpi_chb_Hidden.Name = "rpi_chb_Hidden" + Me.rpi_chb_Hidden.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'pnl_Right + ' + Me.pnl_Right.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Right.Controls.Add(Me.lbl_Moby_Releases) + Me.pnl_Right.Controls.Add(Me.grd_Moby_Releases) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(0, 0) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(589, 313) + Me.pnl_Right.TabIndex = 5 + ' + 'lbl_Moby_Releases + ' + Me.lbl_Moby_Releases.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Moby_Releases.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Moby_Releases.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Moby_Releases.Location = New System.Drawing.Point(3, 4) + Me.lbl_Moby_Releases.MKBoundControl1 = Nothing + Me.lbl_Moby_Releases.MKBoundControl2 = Nothing + Me.lbl_Moby_Releases.MKBoundControl3 = Nothing + Me.lbl_Moby_Releases.MKBoundControl4 = Nothing + Me.lbl_Moby_Releases.MKBoundControl5 = Nothing + Me.lbl_Moby_Releases.Name = "lbl_Moby_Releases" + Me.lbl_Moby_Releases.Size = New System.Drawing.Size(582, 42) + Me.lbl_Moby_Releases.TabIndex = 2 + Me.lbl_Moby_Releases.Text = "Moby Releases" + ' + 'grd_Moby_Releases + ' + Me.grd_Moby_Releases.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Moby_Releases.DataSource = Me.BS_Moby_Releases + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Releases.Location = New System.Drawing.Point(3, 49) + Me.grd_Moby_Releases.MainView = Me.gv_Moby_Releases + Me.grd_Moby_Releases.Name = "grd_Moby_Releases" + Me.grd_Moby_Releases.Size = New System.Drawing.Size(582, 262) + Me.grd_Moby_Releases.TabIndex = 0 + Me.grd_Moby_Releases.UseEmbeddedNavigator = True + Me.grd_Moby_Releases.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Releases}) + ' + 'gv_Moby_Releases + ' + Me.gv_Moby_Releases.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGamename, Me.colYear, Me.colAdded1, Me.colHighlighted, Me.colDeveloper, Me.colPublisher, Me.coldeprecated1}) + Me.gv_Moby_Releases.GridControl = Me.grd_Moby_Releases + Me.gv_Moby_Releases.Name = "gv_Moby_Releases" + Me.gv_Moby_Releases.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Releases.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Releases.OptionsView.ShowGroupPanel = False + ' + 'colGamename + ' + Me.colGamename.FieldName = "Gamename" + Me.colGamename.Name = "colGamename" + Me.colGamename.OptionsColumn.AllowEdit = False + Me.colGamename.OptionsColumn.ReadOnly = True + Me.colGamename.Visible = True + Me.colGamename.VisibleIndex = 0 + Me.colGamename.Width = 1234 + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 1 + Me.colYear.Width = 260 + ' + 'colAdded1 + ' + Me.colAdded1.Caption = "Added" + Me.colAdded1.DisplayFormat.FormatString = "g" + Me.colAdded1.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colAdded1.FieldName = "created" + Me.colAdded1.Name = "colAdded1" + Me.colAdded1.OptionsColumn.AllowEdit = False + Me.colAdded1.OptionsColumn.ReadOnly = True + Me.colAdded1.Visible = True + Me.colAdded1.VisibleIndex = 2 + Me.colAdded1.Width = 171 + ' + 'colHighlighted + ' + Me.colHighlighted.FieldName = "Highlighted" + Me.colHighlighted.Name = "colHighlighted" + ' + 'colDeveloper + ' + Me.colDeveloper.FieldName = "Developer" + Me.colDeveloper.Name = "colDeveloper" + Me.colDeveloper.OptionsColumn.AllowEdit = False + Me.colDeveloper.OptionsColumn.ReadOnly = True + Me.colDeveloper.Visible = True + Me.colDeveloper.VisibleIndex = 3 + ' + 'colPublisher + ' + Me.colPublisher.FieldName = "Publisher" + Me.colPublisher.Name = "colPublisher" + Me.colPublisher.OptionsColumn.AllowEdit = False + Me.colPublisher.OptionsColumn.ReadOnly = True + Me.colPublisher.Visible = True + Me.colPublisher.VisibleIndex = 4 + ' + 'Ctl_MKDXSplitter1 + ' + Me.Ctl_MKDXSplitter1.Location = New System.Drawing.Point(414, 0) + Me.Ctl_MKDXSplitter1.Name = "Ctl_MKDXSplitter1" + Me.Ctl_MKDXSplitter1.Size = New System.Drawing.Size(5, 730) + Me.Ctl_MKDXSplitter1.TabIndex = 4 + Me.Ctl_MKDXSplitter1.TabStop = False + ' + 'pnl_Left + ' + Me.pnl_Left.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Left.Controls.Add(Me.btn_Save) + Me.pnl_Left.Controls.Add(Me.lbl_Platform) + Me.pnl_Left.Controls.Add(Me.cmb_Platform) + Me.pnl_Left.Controls.Add(Me.grd_Emu_Games) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(414, 730) + Me.pnl_Left.TabIndex = 3 + ' + 'btn_Save + ' + Me.btn_Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Save.Location = New System.Drawing.Point(319, 3) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(91, 20) + Me.btn_Save.TabIndex = 2 + Me.btn_Save.Text = "&Save" + ' + 'lbl_Platform + ' + Me.lbl_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platform.Location = New System.Drawing.Point(3, 3) + Me.lbl_Platform.MKBoundControl1 = Nothing + Me.lbl_Platform.MKBoundControl2 = Nothing + Me.lbl_Platform.MKBoundControl3 = Nothing + Me.lbl_Platform.MKBoundControl4 = Nothing + Me.lbl_Platform.MKBoundControl5 = Nothing + Me.lbl_Platform.Name = "lbl_Platform" + Me.lbl_Platform.Size = New System.Drawing.Size(90, 20) + Me.lbl_Platform.TabIndex = 2 + Me.lbl_Platform.Text = "Platform:" + ' + 'cmb_Platform + ' + Me.cmb_Platform.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Platform.Location = New System.Drawing.Point(96, 3) + Me.cmb_Platform.MKBoundLabel = Nothing + Me.cmb_Platform.MKEditValue_Compare = Nothing + Me.cmb_Platform.Name = "cmb_Platform" + Me.cmb_Platform.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Platform.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Platforms", "id_Moby_Platforms", 114, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Display_Name", "Display_Name", 77, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Platform.Properties.DataSource = Me.BS_Moby_Platforms + Me.cmb_Platform.Properties.DisplayMember = "Display_Name" + Me.cmb_Platform.Properties.NullText = "please choose..." + Me.cmb_Platform.Properties.ShowHeader = False + Me.cmb_Platform.Properties.ValueMember = "id_Moby_Platforms" + Me.cmb_Platform.Size = New System.Drawing.Size(220, 20) + Me.cmb_Platform.TabIndex = 1 + ' + 'BS_Moby_Platforms + ' + Me.BS_Moby_Platforms.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms.DataSource = Me.DS_MobyDB + ' + 'grd_Emu_Games + ' + Me.grd_Emu_Games.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Emu_Games.DataSource = Me.BS_Emu_Games + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Emu_Games.Location = New System.Drawing.Point(3, 42) + Me.grd_Emu_Games.MainView = Me.gv_Emu_Games + Me.grd_Emu_Games.Name = "grd_Emu_Games" + Me.grd_Emu_Games.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Release}) + Me.grd_Emu_Games.Size = New System.Drawing.Size(408, 686) + Me.grd_Emu_Games.TabIndex = 0 + Me.grd_Emu_Games.UseEmbeddedNavigator = True + Me.grd_Emu_Games.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Emu_Games}) + ' + 'BS_Emu_Games + ' + Me.BS_Emu_Games.DataMember = "tbl_Emu_Games" + Me.BS_Emu_Games.DataSource = Me.DS_ML + Me.BS_Emu_Games.Filter = "id_Emu_Games_Owner IS NULL" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Emu_Games + ' + Me.gv_Emu_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colFolder, Me.colfile, Me.colInnerFile, Me.colMoby_Games_URLPart, Me.colHidden, Me.colAdded, Me.coldeprecated}) + Me.gv_Emu_Games.GridControl = Me.grd_Emu_Games + Me.gv_Emu_Games.GroupCount = 1 + Me.gv_Emu_Games.Name = "gv_Emu_Games" + Me.gv_Emu_Games.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Emu_Games.OptionsSelection.MultiSelect = True + Me.gv_Emu_Games.OptionsView.ColumnAutoWidth = False + Me.gv_Emu_Games.OptionsView.ShowGroupPanel = False + Me.gv_Emu_Games.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colFolder, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'colFolder + ' + Me.colFolder.Caption = "Directory" + Me.colFolder.FieldName = "Folder" + Me.colFolder.Name = "colFolder" + Me.colFolder.OptionsColumn.AllowEdit = False + Me.colFolder.OptionsColumn.ReadOnly = True + Me.colFolder.Visible = True + Me.colFolder.VisibleIndex = 2 + ' + 'colfile + ' + Me.colfile.Caption = "Filename" + Me.colfile.FieldName = "File" + Me.colfile.Name = "colfile" + Me.colfile.OptionsColumn.AllowEdit = False + Me.colfile.OptionsColumn.ReadOnly = True + Me.colfile.Visible = True + Me.colfile.VisibleIndex = 0 + Me.colfile.Width = 140 + ' + 'colInnerFile + ' + Me.colInnerFile.Caption = "Inner File" + Me.colInnerFile.FieldName = "InnerFile" + Me.colInnerFile.Name = "colInnerFile" + Me.colInnerFile.OptionsColumn.AllowEdit = False + Me.colInnerFile.OptionsColumn.ReadOnly = True + Me.colInnerFile.Visible = True + Me.colInnerFile.VisibleIndex = 1 + Me.colInnerFile.Width = 175 + ' + 'colMoby_Games_URLPart + ' + Me.colMoby_Games_URLPart.Caption = "Moby Release" + Me.colMoby_Games_URLPart.ColumnEdit = Me.rpi_Moby_Release + Me.colMoby_Games_URLPart.FieldName = "Moby_Games_URLPart" + Me.colMoby_Games_URLPart.Name = "colMoby_Games_URLPart" + Me.colMoby_Games_URLPart.OptionsColumn.AllowEdit = False + Me.colMoby_Games_URLPart.OptionsColumn.ReadOnly = True + Me.colMoby_Games_URLPart.Visible = True + Me.colMoby_Games_URLPart.VisibleIndex = 2 + Me.colMoby_Games_URLPart.Width = 102 + ' + 'colHidden + ' + Me.colHidden.ColumnEdit = Me.rpi_chb_Hidden + Me.colHidden.FieldName = "Hidden" + Me.colHidden.Name = "colHidden" + Me.colHidden.Visible = True + Me.colHidden.VisibleIndex = 3 + Me.colHidden.Width = 50 + ' + 'colAdded + ' + Me.colAdded.Caption = "Added" + Me.colAdded.DisplayFormat.FormatString = "g" + Me.colAdded.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colAdded.FieldName = "created" + Me.colAdded.Name = "colAdded" + Me.colAdded.OptionsColumn.AllowEdit = False + Me.colAdded.OptionsColumn.ReadOnly = True + Me.colAdded.Visible = True + Me.colAdded.VisibleIndex = 4 + Me.colAdded.Width = 94 + ' + 'BS_Moby_Platforms_gv1 + ' + Me.BS_Moby_Platforms_gv1.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms_gv1.DataSource = Me.DS_MobyDB + ' + 'DS_Rombase + ' + Me.DS_Rombase.DataSetName = "DS_Rombase" + Me.DS_Rombase.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Rombase + ' + Me.BS_Rombase.DataMember = "tbl_Rombase" + Me.BS_Rombase.DataSource = Me.DS_Rombase + ' + 'BS_Moby_Platforms_gv2 + ' + Me.BS_Moby_Platforms_gv2.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms_gv2.DataSource = Me.DS_MobyDB + ' + 'spltpnl_Right + ' + Me.spltpnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.spltpnl_Right.Horizontal = False + Me.spltpnl_Right.Location = New System.Drawing.Point(419, 0) + Me.spltpnl_Right.Name = "spltpnl_Right" + Me.spltpnl_Right.Panel1.Controls.Add(Me.tcl_MV) + Me.spltpnl_Right.Panel1.Text = "pnl_MV" + Me.spltpnl_Right.Panel2.Controls.Add(Me.pnl_Right) + Me.spltpnl_Right.Panel2.Text = "pnl_Moby" + Me.spltpnl_Right.Size = New System.Drawing.Size(589, 730) + Me.spltpnl_Right.SplitterPosition = 412 + Me.spltpnl_Right.TabIndex = 3 + Me.spltpnl_Right.Text = "Ctl_MKDXSplitPanel1" + ' + 'tcl_MV + ' + Me.tcl_MV.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_MV.Location = New System.Drawing.Point(0, 0) + Me.tcl_MV.Name = "tcl_MV" + Me.tcl_MV.SelectedTabPage = Me.tpg_Discs_Volumes + Me.tcl_MV.Size = New System.Drawing.Size(589, 412) + Me.tcl_MV.TabIndex = 0 + Me.tcl_MV.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Discs_Volumes, Me.tpg_DOSBox_Files_Directories}) + ' + 'tpg_Discs_Volumes + ' + Me.tpg_Discs_Volumes.Controls.Add(Me.pnl_Discs_Volumes) + Me.tpg_Discs_Volumes.Name = "tpg_Discs_Volumes" + Me.tpg_Discs_Volumes.Size = New System.Drawing.Size(583, 384) + Me.tpg_Discs_Volumes.Text = "Discs/Volumes" + ' + 'pnl_Discs_Volumes + ' + Me.pnl_Discs_Volumes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Discs_Volumes.Controls.Add(Me.grd_MV) + Me.pnl_Discs_Volumes.Controls.Add(Me.lbl_Volumes) + Me.pnl_Discs_Volumes.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Discs_Volumes.Location = New System.Drawing.Point(0, 0) + Me.pnl_Discs_Volumes.Name = "pnl_Discs_Volumes" + Me.pnl_Discs_Volumes.Size = New System.Drawing.Size(583, 384) + Me.pnl_Discs_Volumes.TabIndex = 5 + ' + 'grd_MV + ' + Me.grd_MV.DataSource = Me.BS_MV + Me.grd_MV.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_MV.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_MV.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_MV.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_MV.Location = New System.Drawing.Point(0, 42) + Me.grd_MV.MainView = Me.gv_MV + Me.grd_MV.Name = "grd_MV" + Me.grd_MV.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemLookUpEdit1, Me.RepositoryItemCheckEdit1, Me.rpi_Volume_Number}) + Me.grd_MV.Size = New System.Drawing.Size(583, 342) + Me.grd_MV.TabIndex = 0 + Me.grd_MV.UseEmbeddedNavigator = True + Me.grd_MV.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_MV}) + ' + 'BS_MV + ' + Me.BS_MV.DataMember = "tbl_Emu_Games" + Me.BS_MV.DataSource = Me.DS_ML + Me.BS_MV.Filter = "id_Emu_Games = 0" + ' + 'gv_MV + ' + Me.gv_MV.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6, Me.colVolume_Number}) + Me.gv_MV.GridControl = Me.grd_MV + Me.gv_MV.GroupCount = 1 + Me.gv_MV.Name = "gv_MV" + Me.gv_MV.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_MV.OptionsSelection.MultiSelect = True + Me.gv_MV.OptionsView.ColumnAutoWidth = False + Me.gv_MV.OptionsView.ShowGroupPanel = False + Me.gv_MV.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.GridColumn1, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'GridColumn1 + ' + Me.GridColumn1.Caption = "Directory" + Me.GridColumn1.FieldName = "Folder" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + Me.GridColumn1.OptionsColumn.ReadOnly = True + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 0 + ' + 'GridColumn2 + ' + Me.GridColumn2.Caption = "Filename" + Me.GridColumn2.FieldName = "File" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + Me.GridColumn2.OptionsColumn.ReadOnly = True + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 0 + Me.GridColumn2.Width = 140 + ' + 'GridColumn3 + ' + Me.GridColumn3.Caption = "Inner File" + Me.GridColumn3.FieldName = "InnerFile" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.OptionsColumn.AllowEdit = False + Me.GridColumn3.OptionsColumn.ReadOnly = True + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 1 + Me.GridColumn3.Width = 175 + ' + 'GridColumn4 + ' + Me.GridColumn4.Caption = "Game" + Me.GridColumn4.ColumnEdit = Me.RepositoryItemLookUpEdit1 + Me.GridColumn4.FieldName = "Moby_Games_URLPart" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.OptionsColumn.AllowEdit = False + Me.GridColumn4.OptionsColumn.ReadOnly = True + Me.GridColumn4.Width = 102 + ' + 'RepositoryItemLookUpEdit1 + ' + Me.RepositoryItemLookUpEdit1.AutoHeight = False + Me.RepositoryItemLookUpEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemLookUpEdit1.DataSource = Me.BS_Moby_Releases + Me.RepositoryItemLookUpEdit1.DisplayMember = "Gamename" + Me.RepositoryItemLookUpEdit1.Name = "RepositoryItemLookUpEdit1" + Me.RepositoryItemLookUpEdit1.NullText = "" + Me.RepositoryItemLookUpEdit1.ValueMember = "Moby_Games_URLPart" + ' + 'GridColumn5 + ' + Me.GridColumn5.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.GridColumn5.FieldName = "Hidden" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.Width = 50 + ' + 'RepositoryItemCheckEdit1 + ' + Me.RepositoryItemCheckEdit1.AutoHeight = False + Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" + Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'GridColumn6 + ' + Me.GridColumn6.Caption = "Added" + Me.GridColumn6.DisplayFormat.FormatString = "g" + Me.GridColumn6.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.GridColumn6.FieldName = "created" + Me.GridColumn6.Name = "GridColumn6" + Me.GridColumn6.OptionsColumn.AllowEdit = False + Me.GridColumn6.OptionsColumn.ReadOnly = True + Me.GridColumn6.Visible = True + Me.GridColumn6.VisibleIndex = 3 + Me.GridColumn6.Width = 94 + ' + 'colVolume_Number + ' + Me.colVolume_Number.Caption = "Volume Number" + Me.colVolume_Number.ColumnEdit = Me.rpi_Volume_Number + Me.colVolume_Number.FieldName = "Volume_Number" + Me.colVolume_Number.Name = "colVolume_Number" + Me.colVolume_Number.Visible = True + Me.colVolume_Number.VisibleIndex = 2 + Me.colVolume_Number.Width = 118 + ' + 'rpi_Volume_Number + ' + Me.rpi_Volume_Number.AutoHeight = False + Me.rpi_Volume_Number.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_Volume_Number.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_Volume_Number.DataSource = Me.BS_MV_Volume + Me.rpi_Volume_Number.DisplayMember = "DisplayText" + Me.rpi_Volume_Number.Name = "rpi_Volume_Number" + Me.rpi_Volume_Number.NullText = "Not a volume" + Me.rpi_Volume_Number.ShowHeader = False + Me.rpi_Volume_Number.ValueMember = "id_Tag_Parser_Volumes" + ' + 'BS_MV_Volume + ' + Me.BS_MV_Volume.DataMember = "ttb_Tag_Parser_Volumes" + Me.BS_MV_Volume.DataSource = Me.DS_ML + ' + 'lbl_Volumes + ' + Me.lbl_Volumes.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Volumes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Volumes.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Volumes.Location = New System.Drawing.Point(0, 0) + Me.lbl_Volumes.MKBoundControl1 = Nothing + Me.lbl_Volumes.MKBoundControl2 = Nothing + Me.lbl_Volumes.MKBoundControl3 = Nothing + Me.lbl_Volumes.MKBoundControl4 = Nothing + Me.lbl_Volumes.MKBoundControl5 = Nothing + Me.lbl_Volumes.Name = "lbl_Volumes" + Me.lbl_Volumes.Size = New System.Drawing.Size(583, 42) + Me.lbl_Volumes.TabIndex = 3 + Me.lbl_Volumes.Text = "Discs/Volumes" + ' + 'tpg_DOSBox_Files_Directories + ' + Me.tpg_DOSBox_Files_Directories.Controls.Add(Me.pnl_DOSBox_Files_and_Folders) + Me.tpg_DOSBox_Files_Directories.Name = "tpg_DOSBox_Files_Directories" + Me.tpg_DOSBox_Files_Directories.Size = New System.Drawing.Size(583, 384) + Me.tpg_DOSBox_Files_Directories.Text = "DOSBox Files and Directories" + ' + 'pnl_DOSBox_Files_and_Folders + ' + Me.pnl_DOSBox_Files_and_Folders.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_DOSBox_Files_and_Folders.Controls.Add(Me.Ctl_MKDXSplitPanel1) + Me.pnl_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 0) + Me.pnl_DOSBox_Files_and_Folders.Name = "pnl_DOSBox_Files_and_Folders" + Me.pnl_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(583, 384) + Me.pnl_DOSBox_Files_and_Folders.TabIndex = 6 + ' + 'Ctl_MKDXSplitPanel1 + ' + Me.Ctl_MKDXSplitPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXSplitPanel1.Location = New System.Drawing.Point(0, 0) + Me.Ctl_MKDXSplitPanel1.Name = "Ctl_MKDXSplitPanel1" + Me.Ctl_MKDXSplitPanel1.Panel1.Controls.Add(Me.grd_DOSBox_Files_and_Folders) + Me.Ctl_MKDXSplitPanel1.Panel1.Controls.Add(Me.lbl_DOSBox_Files_and_Folders) + Me.Ctl_MKDXSplitPanel1.Panel1.Text = "Panel1" + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_Inner_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.txb_DOSBox_Folder) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Volume_Number) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Mount_Destination) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Exe_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.cmb_DOSBox_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Volume_Number) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Mount_Destination) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_InnerFile) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_File) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Exe_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Folder) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Type) + Me.Ctl_MKDXSplitPanel1.Panel2.Controls.Add(Me.lbl_DOSBox_Folder_and_Files_Settings) + Me.Ctl_MKDXSplitPanel1.Panel2.Text = "Panel2" + Me.Ctl_MKDXSplitPanel1.Size = New System.Drawing.Size(583, 384) + Me.Ctl_MKDXSplitPanel1.SplitterPosition = 281 + Me.Ctl_MKDXSplitPanel1.TabIndex = 6 + Me.Ctl_MKDXSplitPanel1.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_DOSBox_Files_and_Folders + ' + Me.grd_DOSBox_Files_and_Folders.DataSource = Me.BS_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_DOSBox_Files_and_Folders.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 42) + Me.grd_DOSBox_Files_and_Folders.MainView = Me.gv_DOSBox_Files_and_Folders + Me.grd_DOSBox_Files_and_Folders.Name = "grd_DOSBox_Files_and_Folders" + Me.grd_DOSBox_Files_and_Folders.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_DOSBox_Volume}) + Me.grd_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(281, 342) + Me.grd_DOSBox_Files_and_Folders.TabIndex = 0 + Me.grd_DOSBox_Files_and_Folders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Files_and_Folders}) + ' + 'BS_DOSBox_Files_and_Folders + ' + Me.BS_DOSBox_Files_and_Folders.DataMember = "tbl_Emu_Games" + Me.BS_DOSBox_Files_and_Folders.DataSource = Me.DS_ML + Me.BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = 0" + ' + 'gv_DOSBox_Files_and_Folders + ' + Me.gv_DOSBox_Files_and_Folders.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_DOSBox_Displayname, Me.colid_Rombase_DOSBox_Filetypes, Me.colDOSBox_Mount_Destination, Me.colVolume_Number1, Me.GridColumn7, Me.GridColumn8, Me.colInnerFile1}) + Me.gv_DOSBox_Files_and_Folders.GridControl = Me.grd_DOSBox_Files_and_Folders + Me.gv_DOSBox_Files_and_Folders.Name = "gv_DOSBox_Files_and_Folders" + Me.gv_DOSBox_Files_and_Folders.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DOSBox_Files_and_Folders.OptionsSelection.MultiSelect = True + Me.gv_DOSBox_Files_and_Folders.OptionsView.ColumnAutoWidth = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowGroupPanel = False + Me.gv_DOSBox_Files_and_Folders.OptionsView.ShowIndicator = False + ' + 'col_DOSBox_Displayname + ' + Me.col_DOSBox_Displayname.Caption = "File/Directory" + Me.col_DOSBox_Displayname.Name = "col_DOSBox_Displayname" + Me.col_DOSBox_Displayname.OptionsColumn.AllowEdit = False + Me.col_DOSBox_Displayname.Visible = True + Me.col_DOSBox_Displayname.VisibleIndex = 0 + Me.col_DOSBox_Displayname.Width = 163 + ' + 'colid_Rombase_DOSBox_Filetypes + ' + Me.colid_Rombase_DOSBox_Filetypes.Caption = "Type" + Me.colid_Rombase_DOSBox_Filetypes.FieldName = "id_Rombase_DOSBox_Filetypes" + Me.colid_Rombase_DOSBox_Filetypes.Name = "colid_Rombase_DOSBox_Filetypes" + Me.colid_Rombase_DOSBox_Filetypes.OptionsColumn.AllowEdit = False + Me.colid_Rombase_DOSBox_Filetypes.Visible = True + Me.colid_Rombase_DOSBox_Filetypes.VisibleIndex = 1 + Me.colid_Rombase_DOSBox_Filetypes.Width = 85 + ' + 'colDOSBox_Mount_Destination + ' + Me.colDOSBox_Mount_Destination.Caption = "Mount" + Me.colDOSBox_Mount_Destination.FieldName = "DOSBox_Mount_Destination" + Me.colDOSBox_Mount_Destination.Name = "colDOSBox_Mount_Destination" + Me.colDOSBox_Mount_Destination.OptionsColumn.AllowEdit = False + Me.colDOSBox_Mount_Destination.Visible = True + Me.colDOSBox_Mount_Destination.VisibleIndex = 2 + Me.colDOSBox_Mount_Destination.Width = 58 + ' + 'colVolume_Number1 + ' + Me.colVolume_Number1.Caption = "Volume" + Me.colVolume_Number1.ColumnEdit = Me.rpi_DOSBox_Volume + Me.colVolume_Number1.FieldName = "Volume_Number" + Me.colVolume_Number1.Name = "colVolume_Number1" + Me.colVolume_Number1.OptionsColumn.AllowEdit = False + Me.colVolume_Number1.Visible = True + Me.colVolume_Number1.VisibleIndex = 3 + Me.colVolume_Number1.Width = 78 + ' + 'rpi_DOSBox_Volume + ' + Me.rpi_DOSBox_Volume.AutoHeight = False + Me.rpi_DOSBox_Volume.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.rpi_DOSBox_Volume.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.rpi_DOSBox_Volume.DataSource = Me.BS_MV_Volume + Me.rpi_DOSBox_Volume.DisplayMember = "DisplayText" + Me.rpi_DOSBox_Volume.Name = "rpi_DOSBox_Volume" + Me.rpi_DOSBox_Volume.NullText = "Not a volume" + Me.rpi_DOSBox_Volume.ShowHeader = False + Me.rpi_DOSBox_Volume.ValueMember = "id_Tag_Parser_Volumes" + ' + 'GridColumn7 + ' + Me.GridColumn7.Caption = "Directory" + Me.GridColumn7.FieldName = "Folder" + Me.GridColumn7.Name = "GridColumn7" + Me.GridColumn7.OptionsColumn.AllowEdit = False + Me.GridColumn7.Width = 144 + ' + 'GridColumn8 + ' + Me.GridColumn8.Caption = "Filename" + Me.GridColumn8.FieldName = "File" + Me.GridColumn8.Name = "GridColumn8" + Me.GridColumn8.OptionsColumn.AllowEdit = False + Me.GridColumn8.Width = 152 + ' + 'colInnerFile1 + ' + Me.colInnerFile1.Caption = "Inner File" + Me.colInnerFile1.FieldName = "InnerFile" + Me.colInnerFile1.Name = "colInnerFile1" + Me.colInnerFile1.OptionsColumn.AllowEdit = False + Me.colInnerFile1.Width = 172 + ' + 'lbl_DOSBox_Files_and_Folders + ' + Me.lbl_DOSBox_Files_and_Folders.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_DOSBox_Files_and_Folders.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Files_and_Folders.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_DOSBox_Files_and_Folders.Location = New System.Drawing.Point(0, 0) + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Files_and_Folders.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Files_and_Folders.Name = "lbl_DOSBox_Files_and_Folders" + Me.lbl_DOSBox_Files_and_Folders.Size = New System.Drawing.Size(281, 42) + Me.lbl_DOSBox_Files_and_Folders.TabIndex = 7 + Me.lbl_DOSBox_Files_and_Folders.Text = "Files and Directories" + ' + 'txb_DOSBox_Inner_File + ' + Me.txb_DOSBox_Inner_File.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_Inner_File.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "InnerFile", True)) + Me.txb_DOSBox_Inner_File.Location = New System.Drawing.Point(94, 88) + Me.txb_DOSBox_Inner_File.MKBoundLabel = Nothing + Me.txb_DOSBox_Inner_File.MKEditValue_Compare = Nothing + Me.txb_DOSBox_Inner_File.Name = "txb_DOSBox_Inner_File" + Me.txb_DOSBox_Inner_File.Properties.ReadOnly = True + Me.txb_DOSBox_Inner_File.Size = New System.Drawing.Size(200, 20) + ToolTipTitleItem1.Text = "Inner File" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "If the File is packed (e.g. zip or rar file), the inner file specifies the file w" & + "ithing the packed file." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_DOSBox_Inner_File.SuperTip = SuperToolTip1 + Me.txb_DOSBox_Inner_File.TabIndex = 2 + ' + 'txb_DOSBox_File + ' + Me.txb_DOSBox_File.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_File.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "File", True)) + Me.txb_DOSBox_File.Location = New System.Drawing.Point(94, 65) + Me.txb_DOSBox_File.MKBoundLabel = Nothing + Me.txb_DOSBox_File.MKEditValue_Compare = Nothing + Me.txb_DOSBox_File.Name = "txb_DOSBox_File" + Me.txb_DOSBox_File.Properties.ReadOnly = True + Me.txb_DOSBox_File.Size = New System.Drawing.Size(200, 20) + Me.txb_DOSBox_File.TabIndex = 1 + ' + 'txb_DOSBox_Folder + ' + Me.txb_DOSBox_Folder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_Folder.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_DOSBox_Files_and_Folders, "Folder", True)) + Me.txb_DOSBox_Folder.Location = New System.Drawing.Point(94, 42) + Me.txb_DOSBox_Folder.MKBoundLabel = Nothing + Me.txb_DOSBox_Folder.MKEditValue_Compare = Nothing + Me.txb_DOSBox_Folder.Name = "txb_DOSBox_Folder" + Me.txb_DOSBox_Folder.Properties.ReadOnly = True + Me.txb_DOSBox_Folder.Size = New System.Drawing.Size(200, 20) + Me.txb_DOSBox_Folder.TabIndex = 0 + ' + 'cmb_DOSBox_Volume_Number + ' + Me.cmb_DOSBox_Volume_Number.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "Volume_Number", True)) + Me.cmb_DOSBox_Volume_Number.Location = New System.Drawing.Point(94, 157) + Me.cmb_DOSBox_Volume_Number.MKBoundLabel = Nothing + Me.cmb_DOSBox_Volume_Number.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Volume_Number.Name = "cmb_DOSBox_Volume_Number" + Me.cmb_DOSBox_Volume_Number.Properties.AllowFocused = False + Me.cmb_DOSBox_Volume_Number.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Volume_Number.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Volume_Number.Properties.DataSource = Me.BS_MV_Volume + Me.cmb_DOSBox_Volume_Number.Properties.DisplayMember = "DisplayText" + Me.cmb_DOSBox_Volume_Number.Properties.NullText = "" + Me.cmb_DOSBox_Volume_Number.Properties.ShowFooter = False + Me.cmb_DOSBox_Volume_Number.Properties.ShowHeader = False + Me.cmb_DOSBox_Volume_Number.Properties.ValueMember = "id_Tag_Parser_Volumes" + Me.cmb_DOSBox_Volume_Number.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Volume_Number.TabIndex = 5 + ' + 'cmb_DOSBox_Mount_Destination + ' + Me.cmb_DOSBox_Mount_Destination.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "DOSBox_Mount_Destination", True)) + Me.cmb_DOSBox_Mount_Destination.Location = New System.Drawing.Point(94, 134) + Me.cmb_DOSBox_Mount_Destination.MKBoundLabel = Nothing + Me.cmb_DOSBox_Mount_Destination.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Mount_Destination.Name = "cmb_DOSBox_Mount_Destination" + Me.cmb_DOSBox_Mount_Destination.Properties.AllowFocused = False + Me.cmb_DOSBox_Mount_Destination.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Mount_Destination.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Value", "Value", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Mount_Destination.Properties.DataSource = Me.BTA_DOSBox_Mount_Destination + Me.cmb_DOSBox_Mount_Destination.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Mount_Destination.Properties.NullText = "" + Me.cmb_DOSBox_Mount_Destination.Properties.ShowFooter = False + Me.cmb_DOSBox_Mount_Destination.Properties.ShowHeader = False + Me.cmb_DOSBox_Mount_Destination.Properties.ValueMember = "Value" + Me.cmb_DOSBox_Mount_Destination.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem2.Text = "Mount as" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "The drive letter within DOSBox to which the file's content gets mounted" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.cmb_DOSBox_Mount_Destination.SuperTip = SuperToolTip2 + Me.cmb_DOSBox_Mount_Destination.TabIndex = 4 + ' + 'BTA_DOSBox_Mount_Destination + ' + Me.BTA_DOSBox_Mount_Destination.AllowDelete = True + Me.BTA_DOSBox_Mount_Destination.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Mount_Destination.Connection = Nothing + Me.BTA_DOSBox_Mount_Destination.DSStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Mount_Destination.FillString = "" + Me.BTA_DOSBox_Mount_Destination.Transaction = Nothing + Me.BTA_DOSBox_Mount_Destination.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Mount_Destination.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_DOSBox_Exe_Type + ' + Me.cmb_DOSBox_Exe_Type.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "id_Rombase_DOSBox_Exe_Types", True)) + Me.cmb_DOSBox_Exe_Type.Location = New System.Drawing.Point(94, 134) + Me.cmb_DOSBox_Exe_Type.MKBoundLabel = Nothing + Me.cmb_DOSBox_Exe_Type.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Exe_Type.Name = "cmb_DOSBox_Exe_Type" + Me.cmb_DOSBox_Exe_Type.Properties.AllowFocused = False + Me.cmb_DOSBox_Exe_Type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_DOSBox_Exe_Type.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Rombase_DOSBox_Exe_Types", "id_Rombase_DOS Box_Exe_Types", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ID", "ID", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Exe_Type.Properties.DataSource = Me.BTA_DOSBox_Exe_Types + Me.cmb_DOSBox_Exe_Type.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Exe_Type.Properties.NullText = "" + Me.cmb_DOSBox_Exe_Type.Properties.ShowFooter = False + Me.cmb_DOSBox_Exe_Type.Properties.ShowHeader = False + Me.cmb_DOSBox_Exe_Type.Properties.ValueMember = "id_Rombase_DOSBox_Exe_Types" + Me.cmb_DOSBox_Exe_Type.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Exe_Type.TabIndex = 22 + ' + 'BTA_DOSBox_Exe_Types + ' + Me.BTA_DOSBox_Exe_Types.AllowDelete = True + Me.BTA_DOSBox_Exe_Types.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Exe_Types.Connection = Nothing + Me.BTA_DOSBox_Exe_Types.DSStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Exe_Types.FillString = "" + Me.BTA_DOSBox_Exe_Types.Transaction = Nothing + Me.BTA_DOSBox_Exe_Types.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Exe_Types.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_DOSBox_Type + ' + Me.cmb_DOSBox_Type.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Files_and_Folders, "id_Rombase_DOSBox_Filetypes", True)) + Me.cmb_DOSBox_Type.Location = New System.Drawing.Point(94, 111) + Me.cmb_DOSBox_Type.MKBoundLabel = Nothing + Me.cmb_DOSBox_Type.MKEditValue_Compare = Nothing + Me.cmb_DOSBox_Type.Name = "cmb_DOSBox_Type" + Me.cmb_DOSBox_Type.Properties.AllowFocused = False + Me.cmb_DOSBox_Type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_DOSBox_Type.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Rombase_DOSBox_Filetypes", "id_Rombase_DOS Box_Filetypes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ID", "ID", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_DOSBox_Type.Properties.DataSource = Me.BTA_DOSBox_Filetypes + Me.cmb_DOSBox_Type.Properties.DisplayMember = "Displayname" + Me.cmb_DOSBox_Type.Properties.NullText = "" + Me.cmb_DOSBox_Type.Properties.ShowFooter = False + Me.cmb_DOSBox_Type.Properties.ShowHeader = False + Me.cmb_DOSBox_Type.Properties.ValueMember = "id_Rombase_DOSBox_Filetypes" + Me.cmb_DOSBox_Type.Size = New System.Drawing.Size(143, 20) + Me.cmb_DOSBox_Type.TabIndex = 3 + ' + 'BTA_DOSBox_Filetypes + ' + Me.BTA_DOSBox_Filetypes.AllowDelete = True + Me.BTA_DOSBox_Filetypes.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_DOSBox_Filetypes.Connection = Nothing + Me.BTA_DOSBox_Filetypes.DSStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.DSStream"), System.IO.MemoryStream) + Me.BTA_DOSBox_Filetypes.FillString = "" + Me.BTA_DOSBox_Filetypes.Filter = "ID <> 'int'" + Me.BTA_DOSBox_Filetypes.Transaction = Nothing + Me.BTA_DOSBox_Filetypes.UpdateTablesStream = CType(resources.GetObject("BTA_DOSBox_Filetypes.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_DOSBox_Volume_Number + ' + Me.lbl_DOSBox_Volume_Number.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Volume_Number.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Volume_Number.Location = New System.Drawing.Point(1, 157) + Me.lbl_DOSBox_Volume_Number.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Volume_Number.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Volume_Number.Name = "lbl_DOSBox_Volume_Number" + Me.lbl_DOSBox_Volume_Number.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Volume_Number.TabIndex = 9 + Me.lbl_DOSBox_Volume_Number.Text = "Volume N°:" + ' + 'lbl_DOSBox_Mount_Destination + ' + Me.lbl_DOSBox_Mount_Destination.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Mount_Destination.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Mount_Destination.Location = New System.Drawing.Point(1, 134) + Me.lbl_DOSBox_Mount_Destination.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Mount_Destination.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Mount_Destination.Name = "lbl_DOSBox_Mount_Destination" + Me.lbl_DOSBox_Mount_Destination.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Mount_Destination.TabIndex = 9 + Me.lbl_DOSBox_Mount_Destination.Text = "Mount as:" + ' + 'lbl_DOSBox_InnerFile + ' + Me.lbl_DOSBox_InnerFile.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_InnerFile.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_InnerFile.Location = New System.Drawing.Point(1, 88) + Me.lbl_DOSBox_InnerFile.MKBoundControl1 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl2 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl3 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl4 = Nothing + Me.lbl_DOSBox_InnerFile.MKBoundControl5 = Nothing + Me.lbl_DOSBox_InnerFile.Name = "lbl_DOSBox_InnerFile" + Me.lbl_DOSBox_InnerFile.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_InnerFile.TabIndex = 9 + Me.lbl_DOSBox_InnerFile.Text = "Inner File:" + ' + 'lbl_DOSBox_File + ' + Me.lbl_DOSBox_File.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_File.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_File.Location = New System.Drawing.Point(1, 65) + Me.lbl_DOSBox_File.MKBoundControl1 = Nothing + Me.lbl_DOSBox_File.MKBoundControl2 = Nothing + Me.lbl_DOSBox_File.MKBoundControl3 = Nothing + Me.lbl_DOSBox_File.MKBoundControl4 = Nothing + Me.lbl_DOSBox_File.MKBoundControl5 = Nothing + Me.lbl_DOSBox_File.Name = "lbl_DOSBox_File" + Me.lbl_DOSBox_File.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_File.TabIndex = 9 + Me.lbl_DOSBox_File.Text = "File:" + ' + 'lbl_DOSBox_Exe_Type + ' + Me.lbl_DOSBox_Exe_Type.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Exe_Type.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Exe_Type.Location = New System.Drawing.Point(1, 134) + Me.lbl_DOSBox_Exe_Type.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Exe_Type.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Exe_Type.Name = "lbl_DOSBox_Exe_Type" + Me.lbl_DOSBox_Exe_Type.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Exe_Type.TabIndex = 9 + Me.lbl_DOSBox_Exe_Type.Text = "Executable Type:" + ' + 'lbl_DOSBox_Folder + ' + Me.lbl_DOSBox_Folder.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Folder.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Folder.Location = New System.Drawing.Point(1, 42) + Me.lbl_DOSBox_Folder.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Folder.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Folder.Name = "lbl_DOSBox_Folder" + Me.lbl_DOSBox_Folder.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Folder.TabIndex = 9 + Me.lbl_DOSBox_Folder.Text = "Directory:" + ' + 'lbl_DOSBox_Type + ' + Me.lbl_DOSBox_Type.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Type.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Type.Location = New System.Drawing.Point(1, 111) + Me.lbl_DOSBox_Type.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Type.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Type.Name = "lbl_DOSBox_Type" + Me.lbl_DOSBox_Type.Size = New System.Drawing.Size(90, 20) + Me.lbl_DOSBox_Type.TabIndex = 9 + Me.lbl_DOSBox_Type.Text = "Type:" + ' + 'lbl_DOSBox_Folder_and_Files_Settings + ' + Me.lbl_DOSBox_Folder_and_Files_Settings.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_DOSBox_Folder_and_Files_Settings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Folder_and_Files_Settings.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_DOSBox_Folder_and_Files_Settings.Location = New System.Drawing.Point(0, 0) + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Folder_and_Files_Settings.Name = "lbl_DOSBox_Folder_and_Files_Settings" + Me.lbl_DOSBox_Folder_and_Files_Settings.Size = New System.Drawing.Size(297, 42) + Me.lbl_DOSBox_Folder_and_Files_Settings.TabIndex = 8 + Me.lbl_DOSBox_Folder_and_Files_Settings.Text = "Configuration" + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn12, Me.DataColumn13, Me.DataColumn14}) + Me.DataTable1.TableName = "Table1" + ' + 'DataColumn12 + ' + Me.DataColumn12.ColumnName = "id_Rombase_DOSBox_Filetypes" + Me.DataColumn12.DataType = GetType(Long) + ' + 'DataColumn13 + ' + Me.DataColumn13.ColumnName = "Displayname" + ' + 'DataColumn14 + ' + Me.DataColumn14.ColumnName = "ID" + ' + 'DataTable2 + ' + Me.DataTable2.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn15, Me.DataColumn16, Me.DataColumn17}) + Me.DataTable2.TableName = "Table1" + ' + 'DataColumn15 + ' + Me.DataColumn15.ColumnName = "id_Rombase_DOSBox_Exe_Types" + Me.DataColumn15.DataType = GetType(Long) + ' + 'DataColumn16 + ' + Me.DataColumn16.ColumnName = "Displayname" + ' + 'DataColumn17 + ' + Me.DataColumn17.ColumnName = "ID" + ' + 'DataTable3 + ' + Me.DataTable3.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn18, Me.DataColumn19}) + Me.DataTable3.TableName = "Table1" + ' + 'DataColumn18 + ' + Me.DataColumn18.ColumnName = "Value" + ' + 'DataColumn19 + ' + Me.DataColumn19.ColumnName = "Displayname" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_AddGames, Me.bbi_AddGamesFolder, Me.bbi_Add_DOSBox_Game_Directory, Me.bbi_Add_DOSBox_Game_Media, Me.bbi_Edit_Game, Me.bbi_Edit_Multiple_Games, Me.bbi_Change_Directory, Me.bbi_Rescan, Me.bbi_SetHidden, Me.bbi_UnsetHidden, Me.bbi_SetLink, Me.bbi_RemoveLink, Me.bbi_Delete_Games, Me.bbi_Merge_Select, Me.bbi_Merge_Start, Me.bbi_Export, Me.bbi_Debug_Import_XML, Me.bbi_Debug_Export_XML, Me.bbi_Debug_Group_Volumes, Me.bbi_Debug_SetModified, Me.bbi_Debug_Apply_TDC, Me.SkinBarSubItem1, Me.bbi_DOSBox_Files_and_Folders_Rename, Me.bbi_DOSBox_Files_and_Folders_Add_Archive, Me.bbi_DOSBox_Files_and_Folders_Add_Directory, Me.bbi_DOSBox_Files_and_Folders_Add_Media, Me.bbi_Moby_Games_Open_Moby_Page, Me.bbi_Moby_Games_Evaluate_Links, Me.bbi_Auto_Link}) + Me.barmng.MaxItemId = 29 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(1008, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 730) + Me.barDockControlBottom.Size = New System.Drawing.Size(1008, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 730) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(1008, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 730) + ' + 'bbi_AddGames + ' + Me.bbi_AddGames.Caption = "&Add Games (Files) ..." + Me.bbi_AddGames.Id = 0 + Me.bbi_AddGames.ImageUri.Uri = "Add" + Me.bbi_AddGames.Name = "bbi_AddGames" + ' + 'bbi_AddGamesFolder + ' + Me.bbi_AddGamesFolder.Caption = "Add Games (Directory) ..." + Me.bbi_AddGamesFolder.Id = 1 + Me.bbi_AddGamesFolder.ImageUri.Uri = "Add" + Me.bbi_AddGamesFolder.Name = "bbi_AddGamesFolder" + ' + 'bbi_Add_DOSBox_Game_Directory + ' + Me.bbi_Add_DOSBox_Game_Directory.Caption = "Add Game (Installed, Directory) ..." + Me.bbi_Add_DOSBox_Game_Directory.Id = 2 + Me.bbi_Add_DOSBox_Game_Directory.ImageUri.Uri = "Add" + Me.bbi_Add_DOSBox_Game_Directory.Name = "bbi_Add_DOSBox_Game_Directory" + ' + 'bbi_Add_DOSBox_Game_Media + ' + Me.bbi_Add_DOSBox_Game_Media.Caption = "Add Game (Install Media) ..." + Me.bbi_Add_DOSBox_Game_Media.Id = 3 + Me.bbi_Add_DOSBox_Game_Media.ImageUri.Uri = "Add" + Me.bbi_Add_DOSBox_Game_Media.Name = "bbi_Add_DOSBox_Game_Media" + ' + 'bbi_Edit_Game + ' + Me.bbi_Edit_Game.Caption = "&Edit Game" + Me.bbi_Edit_Game.Id = 4 + Me.bbi_Edit_Game.ImageUri.Uri = "Edit" + Me.bbi_Edit_Game.Name = "bbi_Edit_Game" + ' + 'bbi_Edit_Multiple_Games + ' + Me.bbi_Edit_Multiple_Games.Caption = "E&dit Multiple Games" + Me.bbi_Edit_Multiple_Games.Id = 5 + Me.bbi_Edit_Multiple_Games.ImageUri.Uri = "CustomizeGrid" + Me.bbi_Edit_Multiple_Games.Name = "bbi_Edit_Multiple_Games" + ' + 'bbi_Change_Directory + ' + Me.bbi_Change_Directory.Caption = "&Change Directory" + Me.bbi_Change_Directory.Id = 6 + Me.bbi_Change_Directory.ImageUri.Uri = "Open" + Me.bbi_Change_Directory.Name = "bbi_Change_Directory" + ' + 'bbi_Rescan + ' + Me.bbi_Rescan.Caption = "bbi_Rescan" + Me.bbi_Rescan.Id = 7 + Me.bbi_Rescan.ImageUri.Uri = "Refresh" + Me.bbi_Rescan.Name = "bbi_Rescan" + ' + 'bbi_SetHidden + ' + Me.bbi_SetHidden.Caption = "bbi_SetHidden" + Me.bbi_SetHidden.Id = 8 + Me.bbi_SetHidden.ImageUri.Uri = "InFrontOfText" + Me.bbi_SetHidden.Name = "bbi_SetHidden" + ' + 'bbi_UnsetHidden + ' + Me.bbi_UnsetHidden.Caption = "bbi_UnsetHidden" + Me.bbi_UnsetHidden.Id = 9 + Me.bbi_UnsetHidden.ImageUri.Uri = "Sqare" + Me.bbi_UnsetHidden.Name = "bbi_UnsetHidden" + ' + 'bbi_SetLink + ' + Me.bbi_SetLink.Caption = "bbi_SetLink" + Me.bbi_SetLink.Id = 10 + Me.bbi_SetLink.ImageUri.Uri = "Replace" + Me.bbi_SetLink.Name = "bbi_SetLink" + ' + 'bbi_RemoveLink + ' + Me.bbi_RemoveLink.Caption = "bbi_RemoveLink" + Me.bbi_RemoveLink.Id = 11 + Me.bbi_RemoveLink.ImageUri.Uri = "Undo" + Me.bbi_RemoveLink.Name = "bbi_RemoveLink" + ' + 'bbi_Delete_Games + ' + Me.bbi_Delete_Games.Caption = "bbi_Delete_Games" + Me.bbi_Delete_Games.Id = 12 + Me.bbi_Delete_Games.ImageUri.Uri = "Delete" + Me.bbi_Delete_Games.Name = "bbi_Delete_Games" + ' + 'bbi_Merge_Select + ' + Me.bbi_Merge_Select.Caption = "Select %0% for merging" + Me.bbi_Merge_Select.Id = 13 + Me.bbi_Merge_Select.ImageUri.Uri = "Apply" + Me.bbi_Merge_Select.Name = "bbi_Merge_Select" + Me.bbi_Merge_Select.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'bbi_Merge_Start + ' + Me.bbi_Merge_Start.Caption = "Merge %0% into %1%" + Me.bbi_Merge_Start.Id = 14 + Me.bbi_Merge_Start.ImageUri.Uri = "Forward" + Me.bbi_Merge_Start.Name = "bbi_Merge_Start" + Me.bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'bbi_Export + ' + Me.bbi_Export.Caption = "&Export %0% Games" + Me.bbi_Export.Id = 15 + Me.bbi_Export.ImageUri.Uri = "SaveAndNew" + Me.bbi_Export.Name = "bbi_Export" + ' + 'bbi_Debug_Import_XML + ' + Me.bbi_Debug_Import_XML.Caption = "Debug: Import XML" + Me.bbi_Debug_Import_XML.Id = 16 + Me.bbi_Debug_Import_XML.Name = "bbi_Debug_Import_XML" + ' + 'bbi_Debug_Export_XML + ' + Me.bbi_Debug_Export_XML.Caption = "Debug: Export XML" + Me.bbi_Debug_Export_XML.Id = 17 + Me.bbi_Debug_Export_XML.Name = "bbi_Debug_Export_XML" + ' + 'bbi_Debug_Group_Volumes + ' + Me.bbi_Debug_Group_Volumes.Caption = "Debug: Group Volumes" + Me.bbi_Debug_Group_Volumes.Id = 18 + Me.bbi_Debug_Group_Volumes.Name = "bbi_Debug_Group_Volumes" + ' + 'bbi_Debug_SetModified + ' + Me.bbi_Debug_SetModified.Caption = "Debug: Set modified flag on all rows" + Me.bbi_Debug_SetModified.Id = 19 + Me.bbi_Debug_SetModified.Name = "bbi_Debug_SetModified" + ' + 'bbi_Debug_Apply_TDC + ' + Me.bbi_Debug_Apply_TDC.Caption = "Debug: Apply TDC.mdb ..." + Me.bbi_Debug_Apply_TDC.Id = 20 + Me.bbi_Debug_Apply_TDC.Name = "bbi_Debug_Apply_TDC" + ' + 'SkinBarSubItem1 + ' + Me.SkinBarSubItem1.Caption = "SkinBarSubItem1" + Me.SkinBarSubItem1.Id = 21 + Me.SkinBarSubItem1.Name = "SkinBarSubItem1" + ' + 'bbi_DOSBox_Files_and_Folders_Rename + ' + Me.bbi_DOSBox_Files_and_Folders_Rename.Caption = "&Rename" + Me.bbi_DOSBox_Files_and_Folders_Rename.Id = 22 + Me.bbi_DOSBox_Files_and_Folders_Rename.ImageUri.Uri = "SpellCheckAsYouType" + Me.bbi_DOSBox_Files_and_Folders_Rename.Name = "bbi_DOSBox_Files_and_Folders_Rename" + ' + 'bbi_DOSBox_Files_and_Folders_Add_Archive + ' + Me.bbi_DOSBox_Files_and_Folders_Add_Archive.Caption = "Add &Archive File" + Me.bbi_DOSBox_Files_and_Folders_Add_Archive.Id = 23 + Me.bbi_DOSBox_Files_and_Folders_Add_Archive.ImageUri.Uri = "Add" + Me.bbi_DOSBox_Files_and_Folders_Add_Archive.Name = "bbi_DOSBox_Files_and_Folders_Add_Archive" + ' + 'bbi_DOSBox_Files_and_Folders_Add_Directory + ' + Me.bbi_DOSBox_Files_and_Folders_Add_Directory.Caption = "Add &Directory" + Me.bbi_DOSBox_Files_and_Folders_Add_Directory.Id = 24 + Me.bbi_DOSBox_Files_and_Folders_Add_Directory.ImageUri.Uri = "Add" + Me.bbi_DOSBox_Files_and_Folders_Add_Directory.Name = "bbi_DOSBox_Files_and_Folders_Add_Directory" + ' + 'bbi_DOSBox_Files_and_Folders_Add_Media + ' + Me.bbi_DOSBox_Files_and_Folders_Add_Media.Caption = "Add &Media" + Me.bbi_DOSBox_Files_and_Folders_Add_Media.Id = 25 + Me.bbi_DOSBox_Files_and_Folders_Add_Media.ImageUri.Uri = "Add" + Me.bbi_DOSBox_Files_and_Folders_Add_Media.Name = "bbi_DOSBox_Files_and_Folders_Add_Media" + ' + 'bbi_Moby_Games_Open_Moby_Page + ' + Me.bbi_Moby_Games_Open_Moby_Page.Caption = "&Open Moby Page" + Me.bbi_Moby_Games_Open_Moby_Page.Id = 26 + Me.bbi_Moby_Games_Open_Moby_Page.ImageUri.Uri = "NavigationBar" + Me.bbi_Moby_Games_Open_Moby_Page.Name = "bbi_Moby_Games_Open_Moby_Page" + ' + 'bbi_Moby_Games_Evaluate_Links + ' + Me.bbi_Moby_Games_Evaluate_Links.Caption = "&Evaluate MobyGames Links" + Me.bbi_Moby_Games_Evaluate_Links.Id = 27 + Me.bbi_Moby_Games_Evaluate_Links.ImageUri.Uri = "Zoom100" + Me.bbi_Moby_Games_Evaluate_Links.Name = "bbi_Moby_Games_Evaluate_Links" + ' + 'bbi_Auto_Link + ' + Me.bbi_Auto_Link.Caption = "Detect MobyGames Links..." + Me.bbi_Auto_Link.Id = 28 + Me.bbi_Auto_Link.ImageUri.Uri = "Find" + Me.bbi_Auto_Link.Name = "bbi_Auto_Link" + ToolTipTitleItem3.Text = "Detect MobyGames Links" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.bbi_Auto_Link.SuperTip = SuperToolTip3 + ' + 'popmnu_Rom_Manager + ' + Me.popmnu_Rom_Manager.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_AddGames, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_AddGamesFolder), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_DOSBox_Game_Directory), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_DOSBox_Game_Media), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit_Game), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit_Multiple_Games), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Change_Directory), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Rescan, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_SetHidden), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_UnsetHidden), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_SetLink), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_RemoveLink), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Auto_Link), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete_Games, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Merge_Select, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Merge_Start), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Debug_Import_XML, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Debug_Export_XML), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Debug_Group_Volumes), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Debug_SetModified), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Debug_Apply_TDC)}) + Me.popmnu_Rom_Manager.Manager = Me.barmng + Me.popmnu_Rom_Manager.Name = "popmnu_Rom_Manager" + ' + 'popmnu_DOSBox_Files_and_Folders + ' + Me.popmnu_DOSBox_Files_and_Folders.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Files_and_Folders_Rename), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Files_and_Folders_Add_Archive, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Files_and_Folders_Add_Directory), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Files_and_Folders_Add_Media)}) + Me.popmnu_DOSBox_Files_and_Folders.Manager = Me.barmng + Me.popmnu_DOSBox_Files_and_Folders.Name = "popmnu_DOSBox_Files_and_Folders" + ' + 'popmnu_Moby_Games + ' + Me.popmnu_Moby_Games.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Moby_Games_Open_Moby_Page), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Moby_Games_Evaluate_Links)}) + Me.popmnu_Moby_Games.Manager = Me.barmng + Me.popmnu_Moby_Games.Name = "popmnu_Moby_Games" + ' + 'coldeprecated + ' + Me.coldeprecated.FieldName = "deprecated" + Me.coldeprecated.Name = "coldeprecated" + Me.coldeprecated.OptionsColumn.AllowEdit = False + Me.coldeprecated.OptionsColumn.ReadOnly = True + Me.coldeprecated.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + ' + 'coldeprecated1 + ' + Me.coldeprecated1.FieldName = "deprecated" + Me.coldeprecated1.Name = "coldeprecated1" + Me.coldeprecated1.OptionsColumn.AllowEdit = False + Me.coldeprecated1.OptionsColumn.ReadOnly = True + Me.coldeprecated1.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + ' + 'frm_Rom_Manager + ' + Me.ClientSize = New System.Drawing.Size(1008, 730) + Me.Controls.Add(Me.spltpnl_Right) + Me.Controls.Add(Me.Ctl_MKDXSplitter1) + Me.Controls.Add(Me.pnl_Left) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Rom_Manager" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Rom Manager" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_chb_Hidden, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Rombase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms_gv2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spltpnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Right.ResumeLayout(False) + CType(Me.tcl_MV, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_MV.ResumeLayout(False) + Me.tpg_Discs_Volumes.ResumeLayout(False) + CType(Me.pnl_Discs_Volumes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Discs_Volumes.ResumeLayout(False) + CType(Me.grd_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_MV, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Volume_Number, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_DOSBox_Files_Directories.ResumeLayout(False) + CType(Me.pnl_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_DOSBox_Files_and_Folders.ResumeLayout(False) + CType(Me.Ctl_MKDXSplitPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXSplitPanel1.ResumeLayout(False) + CType(Me.grd_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DOSBox_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_Inner_File.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_File.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_Folder.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Volume_Number.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Mount_Destination.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Mount_Destination, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Exe_Type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Exe_Types, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_DOSBox_Type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_DOSBox_Filetypes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Rom_Manager, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_DOSBox_Files_and_Folders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Private WithEvents grd_Moby_Releases As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_Moby_Releases As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents colGamename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Ctl_MKDXSplitter1 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_Save As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Platform As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Moby_Platforms_gv1 As System.Windows.Forms.BindingSource + Friend WithEvents BS_Moby_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents DS_Rombase As Metropolis_Launcher.DS_Rombase + Friend WithEvents BS_Moby_Releases As System.Windows.Forms.BindingSource + Friend WithEvents BS_Rombase As System.Windows.Forms.BindingSource + Friend WithEvents BS_Moby_Platforms_gv2 As System.Windows.Forms.BindingSource + Private WithEvents grd_Emu_Games As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_Emu_Games As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents colfile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Emu_Games As System.Windows.Forms.BindingSource + Friend WithEvents lbl_Moby_Releases As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colFolder As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMoby_Games_URLPart As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHidden As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdded1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdded As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents spltpnl_Right As MKNetDXLib.ctl_MKDXSplitPanel + Private WithEvents grd_MV As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_MV As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemLookUpEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVolume_Number As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Volume_Number As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_Volumes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_MV_Volume As System.Windows.Forms.BindingSource + Friend WithEvents BS_MV As System.Windows.Forms.BindingSource + Friend WithEvents pnl_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXSplitPanel1 As MKNetDXLib.ctl_MKDXSplitPanel + Private WithEvents grd_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_DOSBox_Files_and_Folders As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_DOSBox_Volume As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_DOSBox_Files_and_Folders As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Discs_Volumes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents BS_DOSBox_Files_and_Folders As System.Windows.Forms.BindingSource + Friend WithEvents lbl_DOSBox_Folder_and_Files_Settings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colid_Rombase_DOSBox_Filetypes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_DOSBox_Volume_Number As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Mount_Destination As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_File As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Exe_Type As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Folder As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Type As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_DOSBox_Exe_Type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_DOSBox_Type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents txb_DOSBox_File As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_DOSBox_Folder As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents cmb_DOSBox_Volume_Number As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_DOSBox_Mount_Destination As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_DOSBox_Mount_Destination As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_DOSBox_Exe_Types As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_DOSBox_Filetypes As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn12 As System.Data.DataColumn + Friend WithEvents DataColumn13 As System.Data.DataColumn + Friend WithEvents DataColumn14 As System.Data.DataColumn + Friend WithEvents DataTable2 As System.Data.DataTable + Friend WithEvents DataColumn15 As System.Data.DataColumn + Friend WithEvents DataColumn16 As System.Data.DataColumn + Friend WithEvents DataColumn17 As System.Data.DataColumn + Friend WithEvents DataTable3 As System.Data.DataTable + Friend WithEvents DataColumn18 As System.Data.DataColumn + Friend WithEvents DataColumn19 As System.Data.DataColumn + Friend WithEvents col_DOSBox_Displayname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDOSBox_Mount_Destination As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVolume_Number1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Moby_Release As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents rpi_chb_Hidden As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents txb_DOSBox_Inner_File As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_DOSBox_InnerFile As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colHighlighted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_AddGames As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_AddGamesFolder As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_DOSBox_Game_Directory As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_DOSBox_Game_Media As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Edit_Game As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Edit_Multiple_Games As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Change_Directory As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Rescan As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_SetHidden As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_UnsetHidden As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_SetLink As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_RemoveLink As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete_Games As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Merge_Select As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Merge_Start As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Export As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Debug_Import_XML As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Debug_Export_XML As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Debug_Group_Volumes As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Debug_SetModified As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Debug_Apply_TDC As DevExpress.XtraBars.BarButtonItem + Friend WithEvents SkinBarSubItem1 As DevExpress.XtraBars.SkinBarSubItem + Friend WithEvents popmnu_Rom_Manager As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_DOSBox_Files_and_Folders_Rename As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_DOSBox_Files_and_Folders_Add_Archive As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_DOSBox_Files_and_Folders_Add_Directory As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_DOSBox_Files_and_Folders_Add_Media As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_DOSBox_Files_and_Folders As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Moby_Games_Open_Moby_Page As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Moby_Games_Evaluate_Links As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Moby_Games As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents tcl_MV As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_Discs_Volumes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_DOSBox_Files_Directories As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DS_MobyDB As DS_MobyDB + Friend WithEvents bbi_Auto_Link As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colDeveloper As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPublisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents coldeprecated1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents coldeprecated As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager.resx b/Metropolis_Launcher/Forms/frm_Rom_Manager.resx new file mode 100644 index 0000000..c1f85ee --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager.resx @@ -0,0 +1,325 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 585, 17 + + + 441, 129 + + + 304, 17 + + + 887, 56 + + + 739, 17 + + + 17, 17 + + + 463, 17 + + + 17, 56 + + + 138, 56 + + + 305, 95 + + + 169, 95 + + + 394, 95 + + + 655, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKQIAACkCAABCBAAAAQEBAQoPAgAAAEIEAAACH4sIAAAAAAAEAK1UW2/TMBRud6ko + A1544DXKc5s07MaiZpNYJYTYClrLtLfJTU5bg+0UX3p541fwd8dx4nZb1QmEcCTbOZfv++yTk0q1Uqnc + 4bCrHS+2cOr2FkoDDzpEk4Z3DVLRXCQHQcs+De/cMG0kJAKMloQ1vC9mwGj6CRb9/DuIZHB8TA7Tw6Po + ZP8AWu9Odi346weYxdQDvY32N24fXAHPNRUjR1e/4ayXjoGTPdx16HD4QRK+Xa2+ckAuzuqtW6DaDk6/ + au2zOWfe1Gn2o6DleyDSPEPoxDd62IyO/LPTl8/bcxWrgsCjWeJ3YeaU+B4iCJX4bhPPcT/WehKH4Ww2 + C2b7QS5H4dtWKwpvLi9KkctYrjJEQSIpHLpqcprKXOVD3UxzHmNcs4zyUYXnWR3AgIPQniAcHkspI+OP + ylkSX0sDK/tXBedGSsy9yFPCwLkL4BIaKScM5v3FBJzV2cc5TcHjVHxOUyPxiHhRnMyXb0YMciMyyPxV + 2iatfTJgED2MeZr23qvgh8GirLs2EVwTZs+rESjxbaqWWMnVBWgiR6C7GKomJAVbtMdHCv+Co0PVhJGF + ffmPTO3wqZMWns03VLicuvt6hauCLSu7CWEtt+QvvsHT2i42x89qO8M+Gsm4XAj/l4/W5ZQQf8pZEjWn + kb2gHduoaw1s27Z2e0m+5RIXKuzy3lCW1W+vYEptiP0xPcOx5X5Sd27s/QZJYO9rvwQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 828, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAQwIAAEMCAAB2BAAAAQEBAQoPAgAAAHYEAAACH4sIAAAAAAAEAK1UW2/aMBSGXthY + t73sYa9RniEh6z0irdQyTdVaOgGb+haZ5ADefGG2A+Ft7/vRnU0MpYhq01RH8rHP5ftO7ONTKpdKpXs9 + jDTj9Zae2t2ZVEC9FlKo5nwDITFn0YHXMF/NucyIygREDDIlEKk5X7I+wclnmPX4D2BR//gYHSaHR8Hp + /gE0Tk53Dfi7Fcz51AW1rfXv7drrAOUKs6Glq95R0k1GQNGeXrXwYPBJILpdLr+1QNbP5Fs1QJUdPf1+ + 0TzPKXEmNmc38BquAyzhqYaO3EwN6sGRe3725lUzl6GcEzg4jdw2TG0mrqMRmIxcuwhzvR4pNQ59fzqd + etN9j4uh/6HRCPy7m+siyYUvlalG0USCWXRZpzgRXPKBqiechtqvXni5OgvHMXkAAQpMOQxReJxK4Rle + SauJXCUyWOq/SrjMhNCx1zxBBKx5DlxAa8oxgbw3G4PVWv2I4wQcitltkmRC/6I+KIryxS5jfZ6xFFJ3 + GbYp1x7qEwhWfZ6mfbBK+JnpS1k3bSLAadzhtI8kxK3b7gXP4485xAZXuo7SInJ1DOFsuDwUhcQQVFuH + yzFKwFzk49/0/4G3heWYoJnZrPBIJfBzM121npGg6T91vHPL5muZm2xSD0XiL6tkUU6bENZiC/554Z9V + dvWL/FVupvrxDkVYCET/56XYmALibzELovokMAe0Y7rDWtcwvaIS36DvXGiBmREXGSZpNe7ABBsX0w1f + 6rFlO+O9HXt/AGBCufo0BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 480, 56 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAQgIAAEICAAB0BAAAAQEBAQoPAgAAAHQEAAACH4sIAAAAAAAEAK1UW2/aMBSGXthY + t73sYa9RniEh6z0irdSiTdVaOgGb+oZMcgBvvjDbgfC29/3ozk4MpYhq01RH8rHP5ftO7ONTKpdKpXs9 + jDTj9Zae2t25VEC9FlKo5nwDITFn0YHXMF/NuUyJSgVEDFIlEKk5X9IBwfFnmPf4D2DR4PgYHcaHR8Hp + /gE0Tk53Dfi7Fcx86oLa1vr3du11gHKF2cjSVe8o6cZjoGhPr1p4OPwkEN0ul99aIOtn8q0aoMqOnn6/ + aJ5nlDhTm7MbeA3XARbzRENHbqqG9eDIPT9786qZyVDmBA5OIrcNM5uJ62gEJiPXLsJMr8dKTULfn81m + 3mzf42Lkf2g0Av/u5rpIcuFLZaJRNJFgFl3WKY4Fl3yo6jGnofarF16uzsJxTB5AgAJTDkMUHqdSeIZX + 0moiV4kUlvqvEi5TIXTsNY8RAWvOgQtoTTkhkPXmE7Baqx9zHINDMbuN41ToX9QHRVG22KVswFOWQOIu + wzbl2kMDAsGqz9O0D1YJP1N9KeumTQQ46Xc4HSAJ/dZt94Jn/Y+YgNK40nWMiFwdQzgbLQ9FITEC1dbh + coJiMBf5+Df9f+BtYTkhaG42KzxSCfzcTFetZyRo+k8db27ZfC25ySb1UCT+skoW5bQJYS224M8L/6yy + q1/kr3Iz0Y93JMJCIPo/L8XGFBB/i1kQ1aeBOaAd0x3WuobpFZX+DfrOhRaYGXGRYpJU+x2YYuNiuuFL + PbZsZ7y3Y+8Ps6pW6TQFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 823, 90 + + + 166 + + + Automatically find links to Moby Releases by comparing file- or directory names to the names of the Moby Releases. + +After the analysis, you get a preview of the results where you can decide which games the linking should be applied to. + + + 917, 90 + + + 17, 129 + + + 264, 129 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager.vb b/Metropolis_Launcher/Forms/frm_Rom_Manager.vb new file mode 100644 index 0000000..29f3db1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager.vb @@ -0,0 +1,4535 @@ +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess +Imports DevExpress.XtraBars +Imports System.ComponentModel + +Public Class frm_Rom_Manager + Private Provide_Merge As Boolean = False 'Provide Merging Functionality - currently not + + Private dict_Have As New Dictionary(Of String, ArrayList) 'Dictionary for duplicate search while adding files + Private pd_Add As New cls_PermDecision(Me, "Rom match found", "", {New cls_PermDecision.PermDecisionButton("&Replace", Windows.Forms.DialogResult.Yes), New cls_PermDecision.PermDecisionButton("&Add new", Windows.Forms.DialogResult.No), New cls_PermDecision.PermDecisionButton("&Cancel", Windows.Forms.DialogResult.Cancel)}) + Private pd_ExtrasRename As New cls_PermDecision(Me, "Extras need renaming", "Your alterations affect the filenames of one or more extras (title, snapshots etc.). Do you want to automatically rename these extras?", {New cls_PermDecision.PermDecisionButton("&Yes", Windows.Forms.DialogResult.Yes), New cls_PermDecision.PermDecisionButton("&No", Windows.Forms.DialogResult.No), New cls_PermDecision.PermDecisionButton("&Cancel", Windows.Forms.DialogResult.Cancel)}) + Private pd_Remove_Name As New cls_PermDecision(Me, "Replace Game Name", "When linking a game to a moby games entry usually the moby game's name will be used. Do you want to replace the current game name %0% with %1%?", {New cls_PermDecision.PermDecisionButton("Yes", Windows.Forms.DialogResult.Yes), New cls_PermDecision.PermDecisionButton("No", Windows.Forms.DialogResult.No), New cls_PermDecision.PermDecisionButton("Cancel", Windows.Forms.DialogResult.Cancel)}) + + Private merge_row As DataRow = Nothing + + Private bbi_Merge_Select_Caption As String + Private bbi_Merge_Start_Caption As String + + Private _id_Emu_Games As Object = Nothing + Private _id_Moby_Platforms As Object = Nothing + + Private _DialogResult As DialogResult = Windows.Forms.DialogResult.Cancel + + ''' + ''' We are in Rescan mode (remove local duplicates and check for DB dupes, also check for missing files and ask for removal if not found + ''' + ''' + Private _Rescan As Boolean = False + + Private _dict_DOSBox_Ignore As New Dictionary(Of String, String) + + Private _id_DOSBox_Templates_Default As Integer = 0 + + Private Function Get_id_DOSBox_Templates_Default() As Integer + If _id_DOSBox_Templates_Default > 0 Then Return _id_DOSBox_Templates_Default + + _id_DOSBox_Templates_Default = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_DOSBox_Configs FROM main.tbl_DOSBox_Configs CFG INNER JOIN rombase.tbl_Rombase_DOSBox_Configs RBCFG ON CFG.id_Rombase_DOSBox_Configs = RBCFG.id_Rombase_DOSBox_Configs AND RBCFG.isDefault = 1"), 0) + Return _id_DOSBox_Templates_Default + End Function + + Public Sub New(Optional ByVal id_Emu_Games As Object = Nothing, Optional ByVal id_Moby_Platforms As Object = Nothing) + InitializeComponent() + + Me.tcl_MV.ShowTabHeader = DevExpress.Utils.DefaultBoolean.False + + barmng.SetPopupContextMenu(grd_Emu_Games, popmnu_Rom_Manager) + barmng.SetPopupContextMenu(grd_DOSBox_Files_and_Folders, popmnu_DOSBox_Files_and_Folders) + barmng.SetPopupContextMenu(grd_Moby_Releases, popmnu_Moby_Games) + + spltpnl_Right.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2 + + frm_Tag_Parser_Edit.Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) + + bbi_Merge_Select_Caption = bbi_Merge_Select.Caption + bbi_Merge_Start_Caption = bbi_Merge_Start.Caption + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Ensure_Moby_Platform_Caches(tran) + tran.Commit() + End Using + + Refill_cmb_Platforms() + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Rombase_DOSBox_Filetypes, Displayname, ID FROM rombase.tbl_Rombase_DOSBox_Filetypes", BTA_DOSBox_Filetypes.DS.Tables(0)) + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Rombase_DOSBox_Exe_Types, Displayname, ID FROM rombase.tbl_Rombase_DOSBox_Exe_Types", BTA_DOSBox_Exe_Types.DS.Tables(0)) + For i As Integer = 0 To 25 + Dim row As DataRow = BTA_DOSBox_Mount_Destination.DS.Tables(0).NewRow + row("value") = Chr(Asc("A") + i) + row("Displayname") = Chr(Asc("A") + i) + BTA_DOSBox_Mount_Destination.DS.Tables(0).Rows.Add(row) + Next + + Load_dict_DOSBox_Ignore() + + _id_Emu_Games = id_Emu_Games + _id_Moby_Platforms = id_Moby_Platforms + End Sub + + Private Sub Refill_cmb_Platforms(Optional ByRef tran As SQLite.SQLiteTransaction = Nothing) + Dim bTran As Boolean = False + + If tran IsNot Nothing Then + bTran = True + End If + + If Not bTran Then + tran = cls_Globals.Conn.BeginTransaction + End If + + Me.DS_ML.tbl_Tag_Parser.Clear() + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT PLTFM.id_Moby_Platforms, PLTFM.Display_Name || ' (' || (SELECT COUNT(1) FROM tbl_Emu_Games EG WHERE EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms AND EG.id_Emu_Games_Owner IS NULL) || ')' AS Display_Name, PLTFM.URLPart, PLTFM.MultiVolume FROM moby.tbl_Moby_Platforms PLTFM LEFT JOIN main.tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms WHERE PLTFM.id_Moby_Platforms > 0 AND PLTFM.Visible = 1 AND id_Moby_Platforms_Owner IS NULL AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1) ORDER BY PLTFM.Display_Name", DS_MobyDB.tbl_Moby_Platforms, tran) + + If Not bTran Then + Try + tran.Rollback() + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub Load_dict_DOSBox_Ignore() + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Rombase_DOSBox_Ignore, Name, Extension, CRC32 FROM rombase.tbl_Rombase_DOSBox_Ignore") + For Each row As DataRow In dt.Rows + _dict_DOSBox_Ignore.Add(row("Name") & "+" & IIf(TC.NZ(row("Extension"), "").Length > 0, row("Extension"), "*") & "+" & IIf(TC.NZ(row("CRC32"), "").Length > 0, row("CRC32"), "*"), "") + Next + + End Sub + + Private Function DOSBox_Ignore(ByVal Filename As String, ByVal CRC32 As String, ByVal Size As Long) As Boolean + Try + If Size = 0 AndAlso CRC32 = "00000000" Then Return True + + Dim Name As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(Filename).ToLower + Dim Extension As String = Alphaleonis.Win32.Filesystem.Path.GetExtension(Filename).Replace(".", "").ToLower + CRC32 = CRC32.ToLower + + If _dict_DOSBox_Ignore.ContainsKey(Name & "+" & Extension & "+" & CRC32) OrElse _dict_DOSBox_Ignore.ContainsKey(Name & "+" & Extension & "+*") OrElse _dict_DOSBox_Ignore.ContainsKey(Name & "+" & "+*" & "+*") Then + Return True + End If + + Return False + Catch ex As Exception + Return False + End Try + End Function + + Private Sub frm_Rom_Manager_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If TC.NZ(_id_Emu_Games, 0) > 0 Then + Dim id_Moby_Platforms As Int64 = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games)), 0) + cmb_Platform.EditValue = id_Moby_Platforms + grd_Emu_Games.ForceInitialize() + Me.BS_Emu_Games.Position = Me.BS_Emu_Games.Find("id_Emu_Games", _id_Emu_Games) + Me.gv_Emu_Games.ClearSelection() + Me.gv_Emu_Games.SelectRow(Me.gv_Emu_Games.FocusedRowHandle) + + ElseIf TC.NZ(_id_Moby_Platforms, 0) > 0 Then + cmb_Platform.EditValue = CLng(_id_Moby_Platforms) + grd_Emu_Games.ForceInitialize() + End If + + Me.gv_MV.ExpandAllGroups() + End Sub + + Private Function Set_Moby_Link(ByRef row_Emu_Games As DataRow, ByRef row_Moby_Releases As DataRow) As DialogResult + If row_Emu_Games("Name") IsNot DBNull.Value Then + Dim res As DialogResult = pd_Remove_Name.Show("Replace Game Name", "When linking a game to a Mobygames entry usually the Mobygames' name and publisher info (and many many more) will be used. Do you want to replace the game name '" & row_Emu_Games("Name") & "' with '" & row_Moby_Releases("Gamename") & "' as well as the publisher info?") + If res = Windows.Forms.DialogResult.Yes Then + row_Emu_Games("Name") = DBNull.Value + row_Emu_Games("Publisher") = DBNull.Value + End If + + If res <> Windows.Forms.DialogResult.Cancel Then + row_Emu_Games("Moby_Games_URLPart") = row_Moby_Releases("Moby_Games_URLPart").ToString.Replace("\", "") + row_Emu_Games("deprecated") = row_Moby_Releases("deprecated") + Update_Children(row_Emu_Games) + End If + + Return res + Else + row_Emu_Games("Moby_Games_URLPart") = row_Moby_Releases("Moby_Games_URLPart").ToString.Replace("\", "") + row_Emu_Games("deprecated") = row_Moby_Releases("deprecated") + Update_Children(row_Emu_Games) + + Return Windows.Forms.DialogResult.Yes + End If + End Function + + Private Sub grd_Moby_Releases_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Moby_Releases.DoubleClick + bbi_SetLink_Click(bbi_SetLink, New System.EventArgs) + End Sub + + Private Sub grd_Emu_Games_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Emu_Games.DoubleClick + Dim e_mouse As DevExpress.Utils.DXMouseEventArgs = e + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Emu_Games.CalcHitInfo(e_mouse.Location) + If Not hitinfo.InRow Then + Return + End If + + If BS_Emu_Games.Current IsNot Nothing AndAlso BS_Moby_Releases.Current IsNot Nothing Then + Set_Moby_Link(BS_Emu_Games.Current.Row, BS_Moby_Releases.Current.Row) + End If + + gv_Emu_Games.RefreshData() + End Sub + + Private Sub Refill(ByVal Platform As Object) + Cursor.Current = Cursors.WaitCursor + + merge_row = Nothing + + Me.DS_MobyDB.src_Moby_Releases.Clear() + DS_ML.tbl_Emu_Games.Clear() + DS_ML.tbl_Emu_Games_Languages.Clear() + DS_ML.tbl_Emu_Games_Regions.Clear() + + If Not TC.IsNullNothingOrEmpty(Platform) Then + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Rom_Manager_Moby_Releases(tran, Me.DS_MobyDB.src_Moby_Releases, Platform) + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, DS_ML.tbl_Emu_Games, Platform) + + DS_ML.tbl_Emu_Games_Languages.Clear() + DS_ML.Fill_tbl_Emu_Games_Languages(tran, DS_ML.tbl_Emu_Games_Languages, Platform) + DS_ML.tbl_Emu_Games_Regions.Clear() + DS_ML.Fill_tbl_Emu_Games_Regions(tran, DS_ML.tbl_Emu_Games_Regions, Platform) + + bbi_Add_DOSBox_Game_Directory.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Add_DOSBox_Game_Media.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + If TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT MultiVolume FROM moby.tbl_Moby_Platforms WHERE id_Moby_Platforms = " & TC.getSQLFormat(Platform), tran), False) Then + spltpnl_Right.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Both + + 'pnl_Discs_Volumes.Visible = True + 'pnl_DOSBox_Files_and_Folders.Visible = False + + tpg_Discs_Volumes.PageVisible = True + tpg_DOSBox_Files_Directories.PageVisible = False + tcl_MV.SelectedTabPage = tpg_Discs_Volumes + Else + If {cls_Globals.enm_Moby_Platforms.dos, cls_Globals.enm_Moby_Platforms.pcboot}.Contains(Platform) Then + 'DOS and PC Booter + spltpnl_Right.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Both + + 'pnl_Discs_Volumes.Visible = False + 'pnl_DOSBox_Files_and_Folders.Visible = True + + tpg_Discs_Volumes.PageVisible = False + tpg_DOSBox_Files_Directories.PageVisible = True + tcl_MV.SelectedTabPage = tpg_Discs_Volumes + + bbi_Add_DOSBox_Game_Directory.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Add_DOSBox_Game_Media.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Else + 'Other Platforms + spltpnl_Right.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2 + BS_MV.Filter = "id_Emu_Games = 0" + BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = 0" + End If + End If + + tran.Commit() + End Using + + gv_Emu_Games.ExpandAllGroups() + gv_MV.ExpandAllGroups() + gv_Moby_Releases.ExpandAllGroups() + Else + spltpnl_Right.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2 + BS_MV.Filter = "id_Emu_Games = 0" + BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = 0" + End If + + Cursor.Current = Cursors.Default + End Sub + + Private Sub cmb_Platform_EditValueChanging(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles cmb_Platform.EditValueChanging + 'Check if something has to be saved + If Save(True) = DialogResult.Cancel Then + e.Cancel = True + Return + End If + + Refill(e.NewValue) + End Sub + + Private Sub BS_Rombase_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Rombase.CurrentChanged + If BS_Rombase.Current Is Nothing Then Return + + If Not TC.IsNullNothingOrEmpty(BS_Rombase.Current("id_Moby_Releases")) Then + Dim iNewPos As Integer = BS_Moby_Releases.Find("id_Moby_Releases", BS_Rombase.Current("id_Moby_Releases")) + If iNewPos > 0 Then + BS_Moby_Releases.Position = iNewPos + End If + Else + Dim iNewPos As Integer = BS_Moby_Releases.Find("Soundex", BS_Rombase.Current("Soundex")) + If iNewPos > 0 Then + BS_Moby_Releases.Position = iNewPos + End If + End If + + End Sub + + Private Function Get_Allowed_Extensions(ByVal id_Moby_Platforms As Integer) As ArrayList + Dim al_Allowed_Extensions As New ArrayList + + Select Case id_Moby_Platforms + Case cls_Globals.enm_Moby_Platforms.dos + For Each ext As String In "zip;7z;rar".Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + al_Allowed_Extensions.Add(ext) + End If + Next + Case cls_Globals.enm_Moby_Platforms.win + For Each ext As String In "exe;bat;cmd;lnk".Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + al_Allowed_Extensions.Add(ext) + End If + Next + Case cls_Globals.enm_Moby_Platforms.ps1, cls_Globals.enm_Moby_Platforms.ps2, cls_Globals.enm_Moby_Platforms.psp, cls_Globals.enm_Moby_Platforms.scd, cls_Globals.enm_Moby_Platforms.cd32, cls_Globals.enm_Moby_Platforms.sat + For Each ext As String In "cue;iso".Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + al_Allowed_Extensions.Add(ext) + End If + Next + Case cls_Globals.enm_Moby_Platforms.gc, cls_Globals.enm_Moby_Platforms.wii + For Each ext As String In "iso;wbfs;ciso".Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + al_Allowed_Extensions.Add(ext) + End If + Next + Case cls_Globals.enm_Moby_Platforms.dc + For Each ext As String In "cdi;gdi".Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + al_Allowed_Extensions.Add(ext) + End If + Next + End Select + + Return al_Allowed_Extensions + End Function + + Private dict_Rombase_crc As Dictionary(Of String, ArrayList) + Private dict_Rombase_md5 As Dictionary(Of String, ArrayList) + Private dict_Rombase_sha1 As Dictionary(Of String, ArrayList) + Private dict_Rombase_CustomIdentifier As Dictionary(Of String, ArrayList) + + Private Sub Prepare_dict_Rombase() + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_rombase, id_rombase_owner, filename, size, crc, md5, sha1, CustomIdentifier, id_Moby_Platforms FROM tbl_Rombase") + + dict_Rombase_crc = New Dictionary(Of String, ArrayList) + dict_Rombase_md5 = New Dictionary(Of String, ArrayList) + dict_Rombase_sha1 = New Dictionary(Of String, ArrayList) + dict_Rombase_CustomIdentifier = New Dictionary(Of String, ArrayList) + + For Each row_rombase As DataRow In dt.Rows + Dim size As String = TC.NZ(row_rombase("size"), "") + Dim crc As String = TC.NZ(row_rombase("crc"), "") + Dim md5 As String = TC.NZ(row_rombase("md5"), "") + Dim sha1 As String = TC.NZ(row_rombase("sha1"), "") + Dim CustomIdentifier As String = TC.NZ(row_rombase("CustomIdentifier"), "") + Dim id_Moby_Platforms As Integer = TC.NZ(row_rombase("id_Moby_Platforms"), 0) + + If crc.Length > 0 Then + If dict_Rombase_crc.ContainsKey(size & ";" & crc) Then + dict_Rombase_crc(size & ";" & crc).Add(row_rombase) + Else + Dim al As New ArrayList + al.Add(row_rombase) + dict_Rombase_crc.Add(size & ";" & crc, al) + End If + End If + + If md5.Length > 0 Then + If dict_Rombase_md5.ContainsKey(size & ";" & md5) Then + dict_Rombase_md5(size & ";" & md5).Add(row_rombase) + Else + Dim al As New ArrayList + al.Add(row_rombase) + dict_Rombase_md5.Add(size & ";" & md5, al) + End If + End If + + If sha1.Length > 0 Then + If dict_Rombase_sha1.ContainsKey(size & ";" & sha1) Then + dict_Rombase_sha1(size & ";" & sha1).Add(row_rombase) + Else + Dim al As New ArrayList + al.Add(row_rombase) + dict_Rombase_sha1.Add(size & ";" & sha1, al) + End If + End If + + If CustomIdentifier.Length > 0 AndAlso id_Moby_Platforms > 0 Then + If dict_Rombase_CustomIdentifier.ContainsKey(id_Moby_Platforms & ";" & CustomIdentifier) Then + dict_Rombase_CustomIdentifier(id_Moby_Platforms & ";" & CustomIdentifier).Add(row_rombase) + Else + Dim al As New ArrayList + al.Add(row_rombase) + dict_Rombase_CustomIdentifier.Add(id_Moby_Platforms & ";" & CustomIdentifier, al) + End If + End If + Next + End Sub + + Private Sub Clear_dict_Rombase() + If dict_Rombase_crc IsNot Nothing Then + dict_Rombase_crc.Clear() + dict_Rombase_crc = Nothing + End If + + If dict_Rombase_md5 IsNot Nothing Then + dict_Rombase_md5.Clear() + dict_Rombase_md5 = Nothing + End If + + If dict_Rombase_sha1 IsNot Nothing Then + dict_Rombase_sha1.Clear() + dict_Rombase_sha1 = Nothing + End If + + If dict_Rombase_CustomIdentifier IsNot Nothing Then + dict_Rombase_CustomIdentifier.Clear() + dict_Rombase_CustomIdentifier = Nothing + End If + End Sub + + Private Function Get_id_Rombase(ByRef tran As SQLite.SQLiteTransaction, ByVal file As String, ByVal size As Long, ByVal crc As String, ByVal md5 As String, ByVal sha1 As String, ByVal id_Moby_Platforms As Long, Optional ByVal CustomIdentifier As Object = Nothing) As Long + 'in all occasions check against size too! + If dict_Rombase_crc IsNot Nothing Then + Dim al_Row_Rombase As New ArrayList + + If id_Moby_Platforms > 0 AndAlso TC.NZ(CustomIdentifier, "").Length > 0 Then + If dict_Rombase_CustomIdentifier.ContainsKey(id_Moby_Platforms & ";" & CustomIdentifier) Then + al_Row_Rombase = dict_Rombase_CustomIdentifier(id_Moby_Platforms & ";" & CustomIdentifier) + If al_Row_Rombase.Count = 1 Then + Return al_Row_Rombase(0)("id_rombase") + End If + End If + End If + + If md5.Length > 0 Then + If dict_Rombase_md5.ContainsKey(size & ";" & md5) Then + al_Row_Rombase = dict_Rombase_md5(size & ";" & md5) + If al_Row_Rombase.Count = 1 Then + 'Return al_Row_Rombase(0) + Return al_Row_Rombase(0)("id_rombase") + End If + End If + End If + + If sha1.Length > 0 Then + If dict_Rombase_sha1.ContainsKey(size & ";" & sha1) Then + Dim al_sha1 As ArrayList = dict_Rombase_sha1(size & ";" & sha1) + If al_sha1.Count = 1 Then + 'Return al_sha1(0) + Return al_sha1(0)("id_rombase") + End If + + If al_sha1.Count > 1 AndAlso al_Row_Rombase.Count > 1 Then + Dim al_Remove As New ArrayList + For Each row_Rombase As DataRow In al_Row_Rombase + If Not al_sha1.Contains(row_Rombase) Then + al_Remove.Add(row_Rombase) + End If + Next + + For Each row_Rombase As Long In al_Remove + al_Row_Rombase.Remove(row_Rombase) + Next + + If al_Row_Rombase.Count = 1 Then + Return al_Row_Rombase(0) + End If + End If + End If + End If + + 'Here we only have crc + If crc.Length > 0 Then + If dict_Rombase_crc.ContainsKey(size & ";" & crc) Then + If dict_Rombase_crc(size & ";" & crc).Count = 1 Then + Return dict_Rombase_crc(size & ";" & crc)(0)("id_rombase") + End If + End If + End If + + Return 0L + Else + Return DS_Rombase.Select_id_Rombase(tran, DBNull.Value, file, size, crc, md5, sha1, id_Moby_Platforms, Nothing, CustomIdentifier) + End If + End Function + + ''' + ''' Check if a file is an archive, but revoke archives that are accepted by emulators e.g. WHDLoad packs for FS-UAE + ''' + ''' + ''' + ''' + Public Shared Function Is_Archive(ByVal Filename As String) As Boolean + 'Only accept certain extensions + If Not {"rar", "zip", "tar", "gz", "7z"}.Contains(Alphaleonis.Win32.Filesystem.Path.GetExtension(Filename).ToLower.Replace(".", "")) Then + Return False + End If + + Dim fl As String = Filename.ToLower + + 'Don't handle WHDLoad packs as archives + If fl.Contains("[whd") OrElse fl.Contains("whd]") OrElse fl.Contains("whd#") _ + OrElse fl.Contains("[otr") OrElse fl.Contains("otr]") OrElse fl.Contains("otr#") _ + OrElse fl.Contains("[jst") OrElse fl.Contains("jst]") OrElse fl.Contains("jst#") Then + Return False + End If + + Try + 'Try to open with our Compressor, if it works, it is indeed an archive + Dim archive As SharpCompress.Archive.IArchive = Nothing + 'Dim fi As New Alphaleonis.Win32.Filesystem.FileInfo(Filename) + archive = SharpCompress.Archive.ArchiveFactory.Open(Filename) + + Return True + Catch ex As Exception + Return False + End Try + End Function + + Private Sub bbi_AddGamesFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_AddGamesFolder.ItemClick + If BS_Moby_Platforms.Current Is Nothing Then Return + + If BS_Moby_Platforms.Current("id_Moby_Platforms") = cls_Globals.enm_Moby_Platforms.dos Then + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Packed_Files_in_Directory) + Return + End If + + pd_Add.ApplyAll = False + + merge_row = Nothing + + Dim al_Allowed_Extensions As ArrayList = Get_Allowed_Extensions(TC.NZ(cmb_Platform.EditValue, 0)) + + Dim sFolder As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog(TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), "")) + + If Alphaleonis.Win32.Filesystem.Directory.Exists(sFolder) Then + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), sFolder) + + Using frm As New frm_Tag_Parser_Edit(Nothing, sFolder, al_Allowed_Extensions, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + + Dim result As New cls_AddGameStats() + + Dim arrFiles As New ArrayList + Dim fsrch As New MKNetLib.cls_MKFileSearch(New Alphaleonis.Win32.Filesystem.DirectoryInfo(sFolder)) + fsrch.Search(New Alphaleonis.Win32.Filesystem.DirectoryInfo(sFolder), "*.*") + arrFiles.AddRange(fsrch.Files) + + If arrFiles.Count > 10 Then + Prepare_dict_Rombase() + End If + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Importing file {0} of {1}", 0, arrFiles.Count, False) + prg.Start() + + PrepareDictHave() + + Dim Aborted As Boolean = False + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each fi As Alphaleonis.Win32.Filesystem.FileInfo In arrFiles + prg.IncreaseCurrentValue() + + If {".sfv", ".txt", ".nfo"}.Contains(fi.Extension.ToLower) Then Continue For 'Skip certain files + + Dim archive As SharpCompress.Archive.IArchive = Nothing + + Try + If Is_Archive(fi.FullName) Then + archive = SharpCompress.Archive.ArchiveFactory.Open(fi.FullName) + End If + + Catch ex As Exception + + End Try + + If archive IsNot Nothing Then + Dim sTmpDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") + + 'one or more files in archive - extract and call AddGameFromFile with the extracted fileinfo + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + Dim sOutFile As String = sTmpDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath) + 'If Not Alphaleonis.Win32.Filesystem.File.Exists(sOutFile) Then + 'Using sw As New IO.StreamWriter(sOutFile) + ' GC.SuppressFinalize(sw.BaseStream) + ' entry.WriteTo(sw.BaseStream) + ' sw.Close() + + ' Dim res As cls_3IntVec = AddGameFromFile(tran, New Alphaleonis.Win32.Filesystem.FileInfo(sOutFile), fi, prg, al_Allowed_Extensions) + + ' If res Is Nothing Then + ' 'User cancelled + ' Aborted = True + ' Exit For + ' End If + + ' result.Add(res) + 'End Using + 'End If + + 'AddGameFromFile without extracting + Dim res As cls_AddGameStats = AddGameFromFile(tran, Nothing, fi, prg, al_Allowed_Extensions, entry) + If res Is Nothing Then + 'User cancelled + Aborted = True + Exit For + End If + + result.Add(res) + End If + Next + + MKNetLib.cls_MKFileSupport.Delete_Directory(sTmpDir) + + If Aborted Then + Exit For + End If + Else + 'Not an archive + Dim res As cls_AddGameStats = AddGameFromFile(tran, fi, fi, prg, al_Allowed_Extensions) + + If res Is Nothing Then + 'User cancelled + Aborted = True + Exit For + End If + + result.Add(res) + End If + Next + + tran.Commit() + prg.Close() + End Using + + Dim cntMismatch As Integer = Me.DS_ML.tbl_Emu_Games.Select("ROMBASE_id_Moby_Platforms IS NOT NULL AND id_Moby_Platforms <> ROMBASE_id_Moby_Platforms").Length + + If TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False) Then + Group_Volumes() + End If + + Dim sResult As String = "Result" & IIf(Aborted, "after cancellation", "") & ": " & ControlChars.CrLf & ControlChars.CrLf & result._new & " new games added" & ControlChars.CrLf & result._links & " links to MobyGames meta data applied" & ControlChars.CrLf & result._duplicates_added & " added duplicates" & ControlChars.CrLf & result._duplicates_replaced & " replaced duplicates" & ControlChars.CrLf & result._duplicates_ignored & " ignored duplicates" + + If cntMismatch > 0 Then + sResult &= ControlChars.CrLf & ControlChars.CrLf & "WARNING: There have been " & cntMismatch & " platform mismatch/es detected! All affected entries are in red color. Did you import Roms for the correct Platform?" + End If + + Clear_dict_Rombase() + + DevExpress.XtraEditors.XtraMessageBox.Show(sResult, "Result", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) + End If + End Sub + + Private Sub PrepareDictHave() + dict_Have.Clear() + + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + If Not dict_Have.ContainsKey(row("Folder") & "\" & row("File") & TC.NZ(row("InnerFile"), "")) Then + dict_Have.Add(row("Folder") & "\" & row("File") & TC.NZ(row("InnerFile"), ""), New ArrayList({row})) + End If + End If + Next + End Sub + + Private dict_Group_Volumes_Filtered_Names As Dictionary(Of String, ArrayList) = Nothing + + Private Sub Group_Volumes(ByVal Filtered_Name As String) + Dim rows_emugames As ArrayList = dict_Group_Volumes_Filtered_Names(Filtered_Name) + + Dim id_MainEntry As Long = 0 + + For Each row_emugames As DataRow In rows_emugames + If TC.NZ(row_emugames("id_Emu_Games_Owner"), 0) <> 0 Then + id_MainEntry = row_emugames("id_Emu_Games_Owner") + Exit For + End If + Next + + 'No former Main Entry found - get the first with Volume_Number = 1 + If id_MainEntry = 0 Then + For Each row_emugames As DataRow In rows_emugames + If TC.NZ(row_emugames("Volume_Number"), 0) = 1 Then + id_MainEntry = row_emugames("id_Emu_Games") + Exit For + End If + Next + End If + + 'No Main Entry found with Volume_Number = 1 - get the first with Volume_Number = NULL and give it Volume_Number = 1 + If id_MainEntry = 0 Then + For Each row_emugames As DataRow In rows_emugames + If TC.NZ(row_emugames("Volume_Number"), 0) = 0 Then + id_MainEntry = row_emugames("id_Emu_Games") + row_emugames("Volume_Number") = 1L + Exit For + End If + Next + End If + + 'Still no Main Entry found - just use the first and give it Volume_Number = 1 + If id_MainEntry = 0 Then + For Each row_emugames As DataRow In rows_emugames + id_MainEntry = row_emugames("id_Emu_Games") + row_emugames("Volume_Number") = 1L + Exit For + Next + End If + + For Each row_emugames As DataRow In rows_emugames + If row_emugames("id_Emu_Games") <> id_MainEntry Then + row_emugames("id_Emu_Games_Owner") = id_MainEntry + Else + row_emugames("id_Emu_Games_Owner") = DBNull.Value + End If + Next + + 'Maintain unique Volume Numbers + For Each row_emugames1 As DataRow In rows_emugames + For Each row_emugames2 As DataRow In rows_emugames + If row_emugames2("id_Emu_Games") <> id_MainEntry Then + If TC.NZ(row_emugames1("Volume_Number"), -1) = TC.NZ(row_emugames2("Volume_Number"), -2) Then + If row_emugames1("id_Emu_Games") <> row_emugames2("id_Emu_Games") Then + row_emugames2("Volume_Number") = DBNull.Value + End If + End If + End If + Next + Next + End Sub + + Private Sub Update_Children(ByRef row_Emu_Games As DataRow) + For Each row_Child As DataRow In Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner = " & row_Emu_Games("id_Emu_Games")) + row_Child("Moby_Games_URLPart") = row_Emu_Games("Moby_Games_URLPart") + Next + End Sub + + Private Sub Group_Volumes() + Dim dict_FilteredNames As New Dictionary(Of String, String) 'List of all processed filtered names + + Dim rows_emugames() As DataRow = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games < 0", "Filtered_Name") 'TODO: Really group only games with id_Emu_Games < 0??? + + dict_Group_Volumes_Filtered_Names = New Dictionary(Of String, ArrayList) + + For Each row_emugames As DataRow In rows_emugames + Dim al_row_emugames As ArrayList = Nothing + + If dict_Group_Volumes_Filtered_Names.ContainsKey(row_emugames("Filtered_Name")) Then + al_row_emugames = dict_Group_Volumes_Filtered_Names(row_emugames("Filtered_Name")) + Else + al_row_emugames = New ArrayList + dict_Group_Volumes_Filtered_Names.Add(row_emugames("Filtered_Name"), al_row_emugames) + End If + + al_row_emugames.Add(row_emugames) + Next + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Grouping volumes {0} of {1}", 0, rows_emugames.Length, False) + prg.Start() + + For Each row_emugames As DataRow In rows_emugames + prg.IncreaseCurrentValue() + + Dim Filtered_Name = row_emugames("Filtered_Name") + + If dict_FilteredNames.ContainsKey(row_emugames("Filtered_Name")) Then Continue For + + Group_Volumes(row_emugames("Filtered_Name")) + dict_FilteredNames.Add(row_emugames("Filtered_Name"), row_emugames("Filtered_Name")) + Next + + prg.Close() + End Sub + + Private Sub bbi_AddGames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_AddGames.ItemClick + If BS_Moby_Platforms.Current Is Nothing Then Return + If BS_Moby_Platforms.Current("id_Moby_Platforms") = cls_Globals.enm_Moby_Platforms.dos Then + Add_DOSBox_Games() + Return + End If + + pd_Add.ApplyAll = False + + merge_row = Nothing + + Dim sFilter As String = "All Files (*.*)|*.*" + Dim al_Allowed_Extensions As ArrayList = Get_Allowed_Extensions(TC.NZ(cmb_Platform.EditValue, 0)) + + Select Case TC.NZ(cmb_Platform.EditValue, 0) + Case cls_Globals.enm_Moby_Platforms.win + sFilter = "Executables |*.exe;*.bat;*.cmd;*.lnk" + Case cls_Globals.enm_Moby_Platforms.ps1, cls_Globals.enm_Moby_Platforms.ps2, cls_Globals.enm_Moby_Platforms.psp, cls_Globals.enm_Moby_Platforms.scd, cls_Globals.enm_Moby_Platforms.cd32, cls_Globals.enm_Moby_Platforms.sat + sFilter = "CD Images (*.cue;*.iso)|*.cue;*.iso" + Case cls_Globals.enm_Moby_Platforms.gc, cls_Globals.enm_Moby_Platforms.wii + sFilter = "Wii/GC Images (*.iso;*.ciso;*.wbfs)|*.iso;*.ciso;*.wbfs" + Case cls_Globals.enm_Moby_Platforms.dc + sFilter = "DreamCast Images (*.gdi;*.cdi)|*.gdi;*.cdi" + End Select + + Dim sFiles As String() = MKNetLib.cls_MKFileSupport.OpenFileDialog("Select Files", sFilter, 0, "", TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), ""), True, ParentForm:=Me) + + If sFiles(0).Length = 0 Then Return + + If Alphaleonis.Win32.Filesystem.Directory.Exists(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFiles(0))) Then + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFiles(0))) + End If + + Using frm As New frm_Tag_Parser_Edit(Nothing, sFiles, al_Allowed_Extensions, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + + If sFiles.Length > 10 Then + Prepare_dict_Rombase() + End If + + Dim Aborted As Boolean = False + Dim result As New cls_AddGameStats() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Reading {0} of {1}", 0, sFiles.Length, False) + prg.Start() + + PrepareDictHave() + + For Each sFile As String In sFiles + prg.IncreaseCurrentValue() + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + + If {".sfv", ".txt", ".nfo"}.Contains(Alphaleonis.Win32.Filesystem.Path.GetExtension(sFile).ToLower) Then Continue For 'Skip certain files + + Dim archive As SharpCompress.Archive.IArchive = Nothing + + Try + If Is_Archive(sFile) Then + archive = SharpCompress.Archive.ArchiveFactory.Open(sFile) + End If + Catch ex As Exception + + End Try + + If archive IsNot Nothing Then + Dim sTmpDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") + + 'one or more files in archive - extract and call AddGameFromFile with the extracted fileinfo + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + 'Dim sOutFile As String = sTmpDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath) + 'If Not Alphaleonis.Win32.Filesystem.File.Exists(sOutFile) Then + ' Using sw As New IO.StreamWriter(sOutFile) + ' GC.SuppressFinalize(sw.BaseStream) + ' entry.WriteTo(sw.BaseStream) + ' sw.Close() + + ' Dim res As cls_3IntVec = AddGameFromFile(tran, New Alphaleonis.Win32.Filesystem.FileInfo(sOutFile), New Alphaleonis.Win32.Filesystem.FileInfo(sFile), prg, al_Allowed_Extensions) + + ' If res Is Nothing Then + ' 'User cancelled + ' Aborted = True + ' Exit For + ' End If + + ' result.Add(res) + ' End Using + 'End If + + 'AddGameFromFile without extracting + Dim res As cls_AddGameStats = AddGameFromFile(tran, Nothing, New Alphaleonis.Win32.Filesystem.FileInfo(sFile), prg, al_Allowed_Extensions, entry) + + If res Is Nothing Then + 'User cancelled + Aborted = True + Exit For + End If + + result.Add(res) + + End If + + Next + + MKNetLib.cls_MKFileSupport.Delete_Directory(sTmpDir) + + If Aborted Then + Exit For + End If + Else + 'Not an archive + Dim res As cls_AddGameStats = AddGameFromFile(tran, New Alphaleonis.Win32.Filesystem.FileInfo(sFile), New Alphaleonis.Win32.Filesystem.FileInfo(sFile), prg, al_Allowed_Extensions) + + If res Is Nothing Then + 'User cancelled + Aborted = True + Exit For + End If + + result.Add(res) + End If + End If + Next + + tran.Commit() + prg.Close() + End Using + + Dim cntMismatch As Integer = Me.DS_ML.tbl_Emu_Games.Select("ROMBASE_id_Moby_Platforms IS NOT NULL AND id_Moby_Platforms <> ROMBASE_id_Moby_Platforms").Length + + If TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False) Then + Group_Volumes() + End If + + Clear_dict_Rombase() + + Dim sResult As String = "Result" & IIf(Aborted, " after cancellation", "") & ": " & result._new & " games added, " & result._links & " of them were linked to MobyGames meta data, " & result._duplicates_added & " duplicates were newly added and " & result._duplicates_replaced & " duplicates have been replaced." + + If cntMismatch > 0 Then + sResult &= ControlChars.CrLf & ControlChars.CrLf & "WARNING: There have been " & cntMismatch & " platform mismatch/es detected! All affected entries are in red color. Did you import Roms for the correct Platform?" + End If + + DevExpress.XtraEditors.XtraMessageBox.Show(sResult, "Result", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) + End Sub + + Public Enum enm_Identification_Methods + None = 0 + File_Hashes = 1 + PS1_Identifier = 2 + PS2_Identifier = 3 + PSP_Identifier = 4 + SCD_Identifier = 5 + GC_Wii_Identifier = 6 + CD32_Identifier = 7 + DC_Identifier = 8 + SAT_Identifier = 9 + End Enum + + Private Function Get_ISO_CustomIdentifier(ByVal inner_fi As Alphaleonis.Win32.Filesystem.FileInfo, ByVal identification_method As enm_Identification_Methods) As String + Dim custom_identifier As String = "" + + Try + Dim iso_file As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(inner_fi.FullName).ToLower + Dim directory As String = inner_fi.DirectoryName & "\" + + Select Case Alphaleonis.Win32.Filesystem.Path.GetExtension(iso_file) + Case ".cue" + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(directory & iso_file) + Dim rx_matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(sContent, "FILE\s""(.*?)""\sBINARY") + If rx_matches.Count > 0 Then + iso_file = rx_matches(0).Groups(1).Value + End If + Case ".gdi" + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(directory & iso_file) + For Each sLine As String In sContent.Split(ControlChars.NewLine) + Dim rx_matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(sLine, "\d+ \d+ \d+ \d+ (.*) \d+") + If rx_matches.Count > 0 Then + Dim temp_filename As String = rx_matches(0).Groups(1).Value.Trim + If Alphaleonis.Win32.Filesystem.File.Exists(directory & temp_filename) Then + iso_file = rx_matches(0).Groups(1).Value + Exit For + End If + End If + Next + End Select + + Using isostream As New IO.FileStream(directory & iso_file, IO.FileMode.Open, IO.FileAccess.Read) + Dim format As DiscUtils.enm_Format = DiscUtils.Utils.Detect(isostream) + + Dim dirs As String() = {} + Dim files As String() = {} + + Select Case format + Case DiscUtils.enm_Format.Iso9660, DiscUtils.enm_Format.Iso9660_Joliet, DiscUtils.enm_Format.Iso9660_Mode2_Form1, DiscUtils.enm_Format.Iso9660_Mode2_Form2, DiscUtils.enm_Format.Iso9660_RockRidge + Using cdreader As New DiscUtils.Iso9660.CDReader(isostream, False, True, format) + dirs = cdreader.GetDirectories(cdreader.Root.Name) + files = cdreader.GetFiles(cdreader.Root.Name) + + End Using + Case DiscUtils.enm_Format.Udf + Using udfreader As New DiscUtils.Udf.UdfReader(isostream) + dirs = udfreader.GetDirectories(udfreader.Root.Name) + files = udfreader.GetFiles(udfreader.Root.Name) + + End Using + End Select + + If identification_method = enm_Identification_Methods.SCD_Identifier Then + isostream.Position = &H190 + Dim myBuf(16 - 1) As Byte + isostream.Read(myBuf, 0, 16) + Dim idString As String = System.Text.Encoding.ASCII.GetString(myBuf) + + If MKNetLib.cls_MKRegex.IsMatch(idString, "\d+") Then + Return MKNetLib.cls_MKRegex.GetMatches(idString, "\d+")(0).Value + Else + Return "" + End If + End If + + If identification_method = enm_Identification_Methods.GC_Wii_Identifier Then + If Alphaleonis.Win32.Filesystem.Path.GetExtension(inner_fi.FullName).ToLower = ".iso" Then + isostream.Position = 0 + ElseIf Alphaleonis.Win32.Filesystem.Path.GetExtension(inner_fi.FullName).ToLower = ".wbfs" Then + isostream.Position = 512 + ElseIf Alphaleonis.Win32.Filesystem.Path.GetExtension(inner_fi.FullName).ToLower = ".ciso" Then + isostream.Position = 32768 + End If + Dim myBuf(6 - 1) As Byte + isostream.Read(myBuf, 0, 6) + Dim idString As String = System.Text.Encoding.ASCII.GetString(myBuf).ToUpper + + If MKNetLib.cls_MKRegex.IsMatch(idString, "[A-Z0-9]{6}") Then + Return MKNetLib.cls_MKRegex.GetMatches(idString, "[A-Z0-9]{6}")(0).Value + Else + Return "" + End If + End If + + If identification_method = enm_Identification_Methods.CD32_Identifier Then + 'TODO: CD32 Identifier + End If + + If identification_method = enm_Identification_Methods.DC_Identifier Then + isostream.Position = &H50 + Dim myBuf(10 - 1) As Byte + isostream.Read(myBuf, 0, 10) + Dim idString As String = System.Text.Encoding.ASCII.GetString(myBuf).ToUpper + + idString = idString.Trim.Replace("-", "").Replace(" ", "").Replace("_", "").ToUpper + + If idString.Length > 0 Then + Return idString + Else + Return "" + End If + End If + + If identification_method = enm_Identification_Methods.SAT_Identifier Then + isostream.Position = &H20 + Dim myBuf(10 - 1) As Byte + isostream.Read(myBuf, 0, 10) + Dim idString As String = System.Text.Encoding.ASCII.GetString(myBuf).ToUpper + + If idString.Contains("SEGA") Then + isostream.Position = &H30 + isostream.Read(myBuf, 0, 10) + idString = System.Text.Encoding.ASCII.GetString(myBuf).ToUpper + End If + + idString = idString.Trim.Replace("-", "").Replace(" ", "").Replace("_", "").ToUpper + + If idString.Length > 0 Then + Return idString + Else + Return "" + End If + End If + + If {enm_Identification_Methods.PS1_Identifier, enm_Identification_Methods.PS2_Identifier}.Contains(identification_method) Then + For Each file As String In files + If file.Contains("SYSTEM.CNF") Then + Dim sContent As String = "" + Select Case format + Case DiscUtils.enm_Format.Iso9660, DiscUtils.enm_Format.Iso9660_Joliet, DiscUtils.enm_Format.Iso9660_Mode2_Form1, DiscUtils.enm_Format.Iso9660_Mode2_Form2, DiscUtils.enm_Format.Iso9660_RockRidge + Using cdreader As New DiscUtils.Iso9660.CDReader(isostream, False, True, format) + Dim in_stream As DiscUtils.SparseStream = cdreader.OpenFile(file, IO.FileMode.Open, IO.FileAccess.Read, True, DiscUtils.Utils.SectorSize(format), DiscUtils.Utils.SectorOffset(format), DiscUtils.Utils.DataLength(format)) + Dim sr As New System.IO.StreamReader(in_stream) + sContent = sr.ReadToEnd + End Using + Case DiscUtils.enm_Format.Udf + Using udfreader As New DiscUtils.Udf.UdfReader(isostream) + Dim in_stream As DiscUtils.SparseStream = udfreader.OpenFile(file, IO.FileMode.Open, IO.FileAccess.Read, True, DiscUtils.Utils.SectorSize(format), DiscUtils.Utils.SectorOffset(format), DiscUtils.Utils.DataLength(format)) + Dim sr As New System.IO.StreamReader(in_stream) + sContent = sr.ReadToEnd + End Using + End Select + If TC.NZ(sContent, "").Length > 0 Then + Dim sBootLine As String = "" + For Each line As String In sContent.Split(ControlChars.Lf) + 'BOOT = cdrom:\SCES_019.22;1 + ' cdrom:SCES_006.99;1 + ' cdrom:\SLES_027.40;1 <- ??? + ' BOOT=cdrom:\SLES_022.38;1 + line = line.ToUpper.Trim + If line.Contains("BOOT") Then + sBootLine = MKNetLib.cls_MKRegex.GetMatches(line, "\:(.*?);")(0).Groups(1).Value.Replace(".", "").Replace("_", "").Replace("\", "") + custom_identifier = sBootLine + Exit For + End If + Next + End If + End If + + If custom_identifier.Length > 0 Then Exit For + Next + End If + + If identification_method = enm_Identification_Methods.PSP_Identifier Then + For Each file As String In files + If file.Contains("UMD_DATA.BIN") Then + Dim sContent As String = "" + Select Case format + Case DiscUtils.enm_Format.Iso9660, DiscUtils.enm_Format.Iso9660_Joliet, DiscUtils.enm_Format.Iso9660_Mode2_Form1, DiscUtils.enm_Format.Iso9660_Mode2_Form2, DiscUtils.enm_Format.Iso9660_RockRidge + Using cdreader As New DiscUtils.Iso9660.CDReader(isostream, False, True, format) + Dim in_stream As DiscUtils.SparseStream = cdreader.OpenFile(file, IO.FileMode.Open, IO.FileAccess.Read, True, DiscUtils.Utils.SectorSize(format), DiscUtils.Utils.SectorOffset(format), DiscUtils.Utils.DataLength(format)) + Dim sr As New System.IO.StreamReader(in_stream) + sContent = sr.ReadToEnd + End Using + Case DiscUtils.enm_Format.Udf + Using udfreader As New DiscUtils.Udf.UdfReader(isostream) + Dim in_stream As DiscUtils.SparseStream = udfreader.OpenFile(file, IO.FileMode.Open, IO.FileAccess.Read, True, DiscUtils.Utils.SectorSize(format), DiscUtils.Utils.SectorOffset(format), DiscUtils.Utils.DataLength(format)) + Dim sr As New System.IO.StreamReader(in_stream) + sContent = sr.ReadToEnd + End Using + End Select + If TC.NZ(sContent, "").Length > 0 Then + Dim sBootLine As String = "" + For Each line As String In sContent.Split(ControlChars.Lf) + 'ULES-00640|1169702CE9CF507E|0001|G | + line = line.ToUpper.Trim + custom_identifier = line.Split("|")(0).Replace("-", "") + Next + End If + End If + + If custom_identifier.Length > 0 Then Exit For + Next + End If + End Using + Catch ex As Exception + + End Try + + Return custom_identifier + End Function + + ''' + ''' Add a Game from file to DS_ML.tbl_Emu_Games + ''' Find a mapping to tbl_Moby_Releases + ''' Don't add duplicates + ''' + ''' + ''' FileInfo of the inner File (if it exists), else it's just the FileInfo of the main File + ''' FileInfo of the main File (this can be an archive but also a single rom) + ''' cls_3IntVec with a statistical result (x: Added, y: Mapping found, z: Duplicate) + ''' + Private Function AddGameFromFile(ByRef tran As SQLite.SQLiteTransaction, ByRef inner_fi As Alphaleonis.Win32.Filesystem.FileInfo, ByRef main_fi As Alphaleonis.Win32.Filesystem.FileInfo, Optional ByVal prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing, Optional ByVal al_Allowed_Extensions As ArrayList = Nothing, Optional ByRef ArchiveEntry As SharpCompress.Archive.IArchiveEntry = Nothing) As cls_AddGameStats + If al_Allowed_Extensions IsNot Nothing AndAlso al_Allowed_Extensions.Count > 0 AndAlso Not al_Allowed_Extensions.Contains(Alphaleonis.Win32.Filesystem.Path.GetExtension(inner_fi.FullName).ToLower.Replace(".", "")) Then Return New cls_AddGameStats() + Dim MappingFound As Integer = 0 + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + 'Dim filename As String = inner_fi.Name + Dim folder As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(main_fi.FullName) + Dim file As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(main_fi.FullName) + Dim innerfile As Object = Nothing + Dim size As Long = 0 + + If ArchiveEntry IsNot Nothing Then + size = ArchiveEntry.Size + Else + size = inner_fi.Length + End If + + Dim crc As String = "" + Dim md5 As String = "" + Dim sha1 As String = "" + + Dim CustomIdentifier As Object = Nothing + + Dim identification_method As enm_Identification_Methods = enm_Identification_Methods.File_Hashes + + If id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.ps1 Then + 'Sony Playstation identification + identification_method = enm_Identification_Methods.PS1_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.ps2 Then + 'Sony Playstation 2 identification + identification_method = enm_Identification_Methods.PS2_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.psp Then + 'Sony Playstation Portable identification + identification_method = enm_Identification_Methods.PSP_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.scd Then + 'Sega CD / Mega CD identification + identification_method = enm_Identification_Methods.SCD_Identifier + ElseIf {cls_Globals.enm_Moby_Platforms.gc, cls_Globals.enm_Moby_Platforms.wii}.Contains(id_Moby_Platforms) Then + 'Nintendo GameCube identification + identification_method = enm_Identification_Methods.GC_Wii_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.cd32 Then + 'CD32 Identifier + identification_method = enm_Identification_Methods.CD32_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.dc Then + 'DreamCast Identifier + identification_method = enm_Identification_Methods.DC_Identifier + ElseIf id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.sat Then + 'Saturn Identifier + identification_method = enm_Identification_Methods.SAT_Identifier + End If + + If identification_method <> enm_Identification_Methods.File_Hashes Then + CustomIdentifier = Get_ISO_CustomIdentifier(inner_fi, identification_method) + End If + + If identification_method = enm_Identification_Methods.File_Hashes Then + If ArchiveEntry IsNot Nothing Then + crc = Hex(ArchiveEntry.Crc).ToLower.PadLeft(8, "0") + Else + If inner_fi IsNot Nothing Then + crc = MKNetLib.cls_MKFileSupport.CRC32Hash(inner_fi.FullName) + Else + crc = MKNetLib.cls_MKFileSupport.CRC32Hash(main_fi.FullName) + End If + End If + + 'Unpack and calculate md5 and sha1 only if crc+size is not successful + 'md5 = MKNetLib.cls_MKFileSupport.MD5Hash(inner_fi.FullName) + 'sha1 = MKNetLib.cls_MKFileSupport.SHA1Hash(inner_fi.FullName) + End If + + + Dim bIsInnerFile As Boolean = False + If ArchiveEntry IsNot Nothing Then bIsInnerFile = True + If inner_fi IsNot Nothing AndAlso main_fi IsNot Nothing AndAlso inner_fi.FullName <> main_fi.FullName Then bIsInnerFile = True + + If ArchiveEntry IsNot Nothing Then + innerfile = Alphaleonis.Win32.Filesystem.Path.GetFileName(ArchiveEntry.FilePath) + End If + + If inner_fi IsNot Nothing Then + innerfile = Alphaleonis.Win32.Filesystem.Path.GetFileName(inner_fi.FullName) + End If + + + Dim rowemugames As DS_ML.tbl_Emu_GamesRow = Nothing + Dim bAddNew As Boolean = True + Dim bDuplicate_Replaced As Boolean = False + Dim bDuplicate_Added As Boolean = False + + 'Find local duplicate and return if there is one found + If Not _Rescan AndAlso dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + 'Return New cls_3IntVec(0, 0, 1) + Dim rows As ArrayList = dict_Have(folder & "\" & file & TC.NZ(innerfile, "")) 'DS_ML.tbl_Emu_Games.Select("folder = " & TC.getSQLFormat(folder) & " AND innerfile = " & TC.getSQLFormat(innerfile)) + If rows.Count = 1 Then + rowemugames = rows(0) + bAddNew = False + Else + Return New cls_AddGameStats(0, 0, 1) + End If + End If + + If bAddNew Then + rowemugames = Me.DS_ML.tbl_Emu_Games.NewRow + rowemugames.created = DateTime.Now + + 'Find double entry + Dim id_Emu_Games As Object = Nothing + + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE Folder = " & TC.getSQLFormat(folder) & " AND File = " & TC.getSQLFormat(file) & " AND InnerFile " & IIf(TC.NZ(innerfile, "").Length > 0, "= ", "IS ") & TC.getSQLFormat(innerfile), tran) + + If TC.NZ(id_Emu_Games, 0) > 0 Then + + If _Rescan Then + Dim rows_local_dupe() As DataRow = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row_local_dupe As DataRow In rows_local_dupe + Me.DS_ML.tbl_Emu_Games.Removetbl_Emu_GamesRow(row_local_dupe) + Next + End If + + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + Else + 'Try to find a similar entry by crc, sha1 and md5 and ask the user if these should be replaced + If identification_method = enm_Identification_Methods.File_Hashes Then + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE size = " & TC.getSQLFormat(size) & IIf(crc.Length > 0, " AND CRC32 = " & TC.getSQLFormat(crc), "") & IIf(sha1.Length > 0, " AND SHA1 = " & TC.getSQLFormat(sha1), "") & IIf(md5.Length > 0, " AND MD5 = " & TC.getSQLFormat(md5), ""), tran) + End If + + If TC.NZ(id_Emu_Games, 0) > 0 Then + Dim original As String = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT InnerFile || ' [' || Folder || '\' || File || ']' FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), "") + + If prg IsNot Nothing AndAlso Not pd_Add.ApplyAll Then prg.Hide = True + Dim bWaitCursor As Boolean = Cursor.Current = Cursors.WaitCursor + Cursor.Current = Cursors.Default + + Dim res As DialogResult = pd_Add.Show("", "The following match has been found:" & ControlChars.CrLf & "Original: " & original & ControlChars.CrLf & "New: " & innerfile & " [" & folder & "\" & file & "]" & ControlChars.CrLf & ControlChars.CrLf & "please choose the appropriate action.") + + If bWaitCursor Then Cursor.Current = Cursors.WaitCursor + If prg IsNot Nothing Then prg.Hide = False + + If res = Windows.Forms.DialogResult.Yes Then + 'Replace + bDuplicate_Replaced = True + + Dim rows As DataRow() = DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + + For Each row As DataRow In rows + DS_ML.tbl_Emu_Games.Rows.Remove(row) + Next + End If + + If res = Windows.Forms.DialogResult.No Then + bDuplicate_Added = True + + id_Emu_Games = 0 + End If + + If res = Windows.Forms.DialogResult.Cancel Then + Return Nothing + End If + End If + + If TC.NZ(id_Emu_Games, 0) > 0 Then + 'Dim dt_Emu_Games As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emu_Games, Folder, File, InnerFile, Moby_Games_URLPart, Hidden FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), Nothing, tran) + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + rowemugames("Folder") = folder + rowemugames("File") = file + rowemugames("InnerFile") = innerfile + Else + 'No double or similar entries + rowemugames("Folder") = folder + rowemugames("File") = file + rowemugames("InnerFile") = innerfile + End If + End If + End If + + 'Add other attributes + rowemugames("id_Moby_Platforms") = id_Moby_Platforms + rowemugames("Size") = size + If crc.Length > 0 Then rowemugames("CRC32") = crc + If sha1.Length > 0 Then rowemugames("SHA1") = sha1 + If md5.Length > 0 Then rowemugames("MD5") = md5 + If TC.NZ(CustomIdentifier, "").Length > 0 Then rowemugames("CustomIdentifier") = CustomIdentifier + + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rowemugames, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + + '### Check in Database and save id_rombase ### + 'Speedup + Dim id_rombase As Long = Get_id_Rombase(tran, file, size, crc, md5, sha1, id_Moby_Platforms, CustomIdentifier) + + If ArchiveEntry IsNot Nothing AndAlso TC.NZ(id_rombase, 0) = 0 Then + 'TODO: deflate ArchiveEntry, calculate crc, md5 and sha and run Get_id_Rombase again + + End If + + If id_rombase > 0 Then + rowemugames("id_Rombase") = id_rombase + rowemugames("Name") = DBNull.Value + rowemugames("Name_USR") = DBNull.Value + rowemugames("Publisher") = DBNull.Value + rowemugames("Publisher_USR") = DBNull.Value + + If TC.NZ(rowemugames("Moby_Games_URLPart"), "").Length = 0 OrElse _Rescan Then + 'Moby Game isn't identified yet, so maybe we find an entry in the rombase database + 'Dim rowrombase As DS_Rombase.tbl_RombaseRow = Nothing + + Dim oMoby_Games_URLPart As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Moby_Games_URLPart FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + Dim oROMBASE_id_Moby_Platforms As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Platforms FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + + If TC.NZ(oMoby_Games_URLPart, "").Length > 0 Then + rowemugames("Moby_Games_URLPart") = oMoby_Games_URLPart + MappingFound = 1 + End If + + If TC.NZ(oROMBASE_id_Moby_Platforms, 0) > 0 Then + rowemugames("ROMBASE_id_Moby_Platforms") = oROMBASE_id_Moby_Platforms + End If + End If + End If + + If bAddNew Then + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowemugames) + If Not dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + dict_Have.Add(folder & "\" & file & TC.NZ(innerfile, ""), New ArrayList({rowemugames})) + End If + + If bDuplicate_Added Then + Return New cls_AddGameStats(0, MappingFound, 1, 0) + ElseIf bDuplicate_Replaced Then + Return New cls_AddGameStats(0, MappingFound, 0, 1) + Else + Return New cls_AddGameStats(1, MappingFound, 0, 0) + End If + Else + Return New cls_AddGameStats(0, 0, 0, 0, 1) + End If + End Function + + + ''' + ''' Add a DOSBox Game from file to DS_ML.tbl_Emu_Games (more sub-entries will be created) + ''' Find a mapping to tbl_Moby_Releases + ''' Don't add duplicates + ''' + ''' + ''' FileInfo of the inner File (if it exists), else it's just the FileInfo of the main File + ''' FileInfo of the main File (this can be an archive but also a single rom) + ''' cls_3IntVec with a statistical result (x: Added, y: Mapping found, z: Duplicate) + ''' + Private Function Add_DOSBox_Game_From_File(ByRef tran As SQLite.SQLiteTransaction, ByRef inner_fi As Alphaleonis.Win32.Filesystem.FileInfo, ByRef main_fi As Alphaleonis.Win32.Filesystem.FileInfo, Optional ByVal prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing, Optional ByVal al_Allowed_Extensions As ArrayList = Nothing, Optional ByVal id_Emu_Games_Owner As Integer = 0, Optional ByVal UseRombaseCache As Boolean = False) As cls_3IntVec + If al_Allowed_Extensions IsNot Nothing AndAlso al_Allowed_Extensions.Count > 0 AndAlso Not al_Allowed_Extensions.Contains(Alphaleonis.Win32.Filesystem.Path.GetExtension(inner_fi.FullName).ToLower.Replace(".", "")) Then Return New cls_3IntVec(0, 0, 0) + Dim MappingFound As Integer = 0 + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + 'Dim filename As String = inner_fi.Name + Dim folder As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(main_fi.FullName) + Dim file As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(main_fi.FullName) + Dim innerfile As Object = Nothing + Dim size As Long = inner_fi.Length + + Dim crc As String = "" + Dim md5 As String = "" + Dim sha1 As String = "" + + If Not {".zip", ".7z", ".rar"}.Contains(main_fi.Extension) Then + crc = MKNetLib.cls_MKFileSupport.CRC32Hash(inner_fi.FullName) + md5 = MKNetLib.cls_MKFileSupport.MD5Hash(inner_fi.FullName) + sha1 = MKNetLib.cls_MKFileSupport.SHA1Hash(inner_fi.FullName) + End If + + Dim bIsInnerFile As Boolean = inner_fi.FullName <> main_fi.FullName + + innerfile = Alphaleonis.Win32.Filesystem.Path.GetFileName(inner_fi.FullName) + + Dim rowemugames As DS_ML.tbl_Emu_GamesRow = Nothing + Dim bAddNew As Boolean = True + + 'Find local duplicate and return if there is one found + If Not _Rescan AndAlso dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + 'Return New cls_3IntVec(0, 0, 1) + Dim rows As ArrayList = dict_Have(folder & "\" & file & TC.NZ(innerfile, "")) 'DS_ML.tbl_Emu_Games.Select("folder = " & TC.getSQLFormat(folder) & " AND innerfile = " & TC.getSQLFormat(innerfile)) + If rows.Count = 1 Then + rowemugames = rows(0) + bAddNew = False + Else + Return New cls_3IntVec(0, 0, 1) + End If + End If + + If bAddNew Then + rowemugames = Me.DS_ML.tbl_Emu_Games.NewRow + rowemugames.created = DateTime.Now + + 'Find double entry + Dim id_Emu_Games As Object = Nothing + + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE Folder = " & TC.getSQLFormat(folder) & " AND File = " & TC.getSQLFormat(file) & " AND InnerFile " & IIf(TC.NZ(innerfile, "").Length > 0, "= ", "IS ") & TC.getSQLFormat(innerfile), tran) + + If TC.NZ(id_Emu_Games, 0) > 0 Then + + If _Rescan Then + Dim rows_local_dupe() As DataRow = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row_local_dupe As DataRow In rows_local_dupe + Me.DS_ML.tbl_Emu_Games.Removetbl_Emu_GamesRow(row_local_dupe) + Next + End If + + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + Else + 'Try to find a similar entry by crc, sha1 and md5 and ask the user if these should be replaced + If crc.Length > 0 OrElse sha1.Length > 0 OrElse md5.Length > 0 Then + id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE 1=1 AND size = " & TC.getSQLFormat(inner_fi.Length) & " AND " & IIf(crc.Length > 0, " AND CRC32 = " & TC.getSQLFormat(crc), "") & IIf(sha1.Length > 0, " AND SHA1 = " & TC.getSQLFormat(sha1), "") & IIf(md5.Length > 0, " AND MD5 = " & TC.getSQLFormat(md5), ""), tran) + End If + + If TC.NZ(id_Emu_Games, 0) > 0 Then + Dim original As String = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT InnerFile || ' [' || Folder || '\' || File || ']' FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), "") + + If prg IsNot Nothing AndAlso Not pd_Add.ApplyAll Then prg.Hide = True + Dim res As DialogResult = pd_Add.Show("", "The following match has been found:" & ControlChars.CrLf & "Original: " & original & ControlChars.CrLf & "New: " & innerfile & " [" & folder & "\" & file & "]" & ControlChars.CrLf & ControlChars.CrLf & "please choose the appropriate action.") + If prg IsNot Nothing Then prg.Hide = False + + If res = Windows.Forms.DialogResult.Yes Then + 'Replace - Find local dupe and delete row + Dim rows As DataRow() = DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row As DataRow In rows + DS_ML.tbl_Emu_Games.Rows.Remove(row) + Next + End If + + If res = Windows.Forms.DialogResult.No Then + id_Emu_Games = 0 + End If + + If res = Windows.Forms.DialogResult.Cancel Then + Return Nothing + End If + + 'Dim dt_Emu_Games As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emu_Games, Folder, File, InnerFile, Moby_Games_URLPart, Hidden FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), Nothing, tran) + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + rowemugames("Folder") = folder + rowemugames("File") = file + rowemugames("InnerFile") = innerfile + Else + 'No double or similar entries + rowemugames("Folder") = folder + rowemugames("File") = file + rowemugames("InnerFile") = innerfile + End If + End If + End If + + 'Add other attributes + rowemugames("id_Moby_Platforms") = id_Moby_Platforms + rowemugames("Size") = size + If crc.Length > 0 Then rowemugames("CRC32") = crc + If sha1.Length > 0 Then rowemugames("SHA1") = sha1 + If md5.Length > 0 Then rowemugames("MD5") = md5 + + If id_Emu_Games_Owner > 0 Then rowemugames("id_Emu_Games_Owner") = id_Emu_Games_Owner + + 'Check in Database and save id_rombase + 'Speedup + 'TODO: find id_rombase with sub-entries (fuzzy search) + '-> id_Rombase gets found at the end of the procedure + 'Dim id_rombase As Long + + 'If Not {".zip", ".7z"}.Contains(main_fi.Extension) Then + ' id_rombase = Get_id_Rombase(tran, file, size, crc, md5, sha1, id_Moby_Platforms) + 'End If + 'If id_rombase > 0 Then + ' rowemugames("id_Rombase") = id_rombase + 'End If + + 'If TC.NZ(rowemugames("Moby_Games_URLPart"), "").Length = 0 Then + ' 'Moby Game isn't identified yet, so maybe we find an entry in the rombase database + ' Dim rowrombase As DS_Rombase.tbl_RombaseRow = Nothing + + ' Dim oMoby_Games_URLPart As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Moby_Games_URLPart FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + ' Dim oROMBASE_id_Moby_Platforms As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Platforms FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + + ' If TC.NZ(oMoby_Games_URLPart, "").Length > 0 Then + ' rowemugames("Moby_Games_URLPart") = oMoby_Games_URLPart + ' MappingFound = 1 + ' End If + + ' If TC.NZ(oROMBASE_id_Moby_Platforms, 0) > 0 Then + ' rowemugames("ROMBASE_id_Moby_Platforms") = oROMBASE_id_Moby_Platforms + ' End If + 'End If + + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rowemugames, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + + If bAddNew Then + 'TODO: find the correct Config Template + rowemugames("id_DOSBox_Configs_Template") = Get_id_DOSBox_Templates_Default() + rowemugames("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.zip 'Packed Content + rowemugames("id_Rombase_DOSBox_Exe_Types") = DBNull.Value 'This is not an executable + rowemugames("DOSBox_Mount_Destination") = "C" 'This is to be mounted as the C drive + + Dim cache_item As New cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item(rowemugames, True) + + 'TODO: if id_Emu_Games_Owner then find another Mount Destination + + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowemugames) + If Not dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + dict_Have.Add(folder & "\" & file & TC.NZ(innerfile, ""), New ArrayList({rowemugames})) + End If + + 'Add DOSBox_Sub_Entries here + Add_DOSBox_Packed_Game_SubEntries(tran, main_fi.FullName, rowemugames, id_Emu_Games_Owner, cache_item) + + 'Find and apply Rombase stuff + 'If Get_and_Apply_id_Rombase(tran, DS_ML.tbl_Emu_Games, rowemugames("id_Emu_Games"), 3) > 0 Then + If Get_and_Apply_id_Rombase(tran, DS_ML.tbl_Emu_Games, rowemugames("id_Emu_Games"), UseCache:=UseRombaseCache, EmuGames_Cache:=cache_item) > 0 Then + MappingFound = 1 + End If + + Return New cls_3IntVec(1, MappingFound, 0) + Else + Return New cls_3IntVec(0, 0, 1) + End If + End Function + + Private Sub Add_DOSBox_Packed_Game_SubEntries(ByRef tran As SQLite.SQLiteTransaction, ByVal PackFilePath As String, ByVal row_Owner As DataRow, Optional ByVal id_Emu_Games_Owner As Integer = 0, Optional ByVal cache_item As cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item = Nothing) + Dim rows_game As New ArrayList + rows_game.Add(row_Owner) + + If id_Emu_Games_Owner = 0 Then + '### Add WorkingDirectory for the game (create if possible) + Dim cwd As String = cls_Settings.Get_DOSBox_CWD(tran) & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_Owner("File")) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(cwd) Then + Try + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(cwd) + + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while creating the working directory '" & cwd & "'. The error was: " & ex.Message, "Error while creating working directory", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End Try + End If + Dim rowcwd As DataRow + rowcwd = Me.DS_ML.tbl_Emu_Games.NewRow + rowcwd("created") = DateTime.Now + + rowcwd("id_Emu_Games_Owner") = row_Owner("id_Emu_Games") + rowcwd("Folder") = cwd + rowcwd("File") = cwd.Replace(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(cwd) & "\", "") + rowcwd("id_Moby_Platforms") = cmb_Platform.EditValue + + rowcwd("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd 'Working Directory + rowcwd("DOSBox_Mount_Destination") = "C" 'This is to be mounted as the C drive + + rows_game.Add(rowcwd) + + cache_item._rows_Emu_Games_Children.Add(rowcwd) + + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowcwd) + End If + + '### Add SubEntries for each file in the pack (excluding ignored files) + Dim archive As SharpCompress.Archive.IArchive = Nothing + + Try + If Is_Archive(PackFilePath) Then + archive = SharpCompress.Archive.ArchiveFactory.Open(PackFilePath) + End If + Catch ex As Exception + + End Try + + If archive IsNot Nothing Then + Try + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + If Not DOSBox_Ignore(entry.FilePath, Hex(entry.Crc).ToLower.PadLeft(8, "0"), entry.Size) Then + Dim bAddNew As Boolean = True 'TODO: dict_have etc. + + Dim rowsub As DataRow = Nothing + + If bAddNew Then + rowsub = Me.DS_ML.tbl_Emu_Games.NewRow + rowsub("created") = DateTime.Now + End If + + rowsub("id_Emu_Games_Owner") = IIf(id_Emu_Games_Owner = 0, row_Owner("id_Emu_Games"), id_Emu_Games_Owner) + rowsub("Folder") = row_Owner("Folder") + rowsub("File") = row_Owner("File") + rowsub("InnerFile") = entry.FilePath + rowsub("id_Moby_Platforms") = cmb_Platform.EditValue + + rowsub("size") = entry.Size + rowsub("crc32") = Hex(entry.Crc).ToLower.PadLeft(8, "0") + + Dim sub_file As String = entry.FilePath.ToLower + + If sub_file.EndsWith(".exe") OrElse sub_file.EndsWith(".bat") OrElse sub_file.EndsWith(".com") Then 'Executables + rowsub("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.exe 'Executable + + rowsub("id_Rombase_DOSBox_Exe_Types") = DBNull.Value 'Check this against rombase + ElseIf sub_file.EndsWith(".iso") OrElse sub_file.EndsWith(".cue") Then 'CD images + rowsub("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso + + rowsub("DOSBox_Mount_Destination") = "D" 'CDs are mounted as D drive + rowsub("Volume_Number") = 1 + + For Each row_game As DataRow In rows_game + If TC.NZ(row_game("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso Then + If TC.NZ(rowsub("Volume_Number"), 0) < TC.NZ(row_game("Volume_Number"), 0) + 1 Then + rowsub("Volume_Number") = TC.NZ(row_game("Volume_Number"), 0) + 1 + End If + End If + Next + Else + rowsub("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.int 'Internal file + End If + + rows_game.Add(rowsub) + + cache_item._rows_Emu_Games_Children.Add(rowsub) + + + If bAddNew Then + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowsub) + + 'TODO: dict_have + 'If Not dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + ' dict_Have.Add(folder & "\" & file & TC.NZ(innerfile, ""), 0) + 'End If + End If + End If + End If + Next + Catch ex As Exception + + End Try + End If + End Sub + + Private Sub popmnu_Rom_Manager_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Rom_Manager.BeforePopup + If Not grd_Emu_Games.Allow_Popup Then + e.Cancel = True + Return + End If + + If TC.NZ(cmb_Platform.EditValue, 0) = 0 Then + e.Cancel = True + Return + End If + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + Me.bbi_Debug_Export_XML.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Debug_Import_XML.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Debug_Group_Volumes.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Debug_SetModified.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Debug_Apply_TDC.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + +#If DEBUG Then + Me.bbi_Debug_Export_XML.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Debug_Import_XML.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Debug_Group_Volumes.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Debug_SetModified.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Debug_Apply_TDC.Visibility = DevExpress.XtraBars.BarItemVisibility.Always +#End If + + If iNumRows <= 0 Then + Me.bbi_RemoveLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Delete_Games.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Change_Directory.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Edit_Game.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Edit_Multiple_Games.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Rescan.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_SetHidden.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_UnsetHidden.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_SetLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Export.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Auto_Link.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + Me.bbi_RemoveLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Delete_Games.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Change_Directory.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Edit_Game.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Edit_Multiple_Games.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Rescan.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_SetHidden.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_UnsetHidden.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_SetLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Export.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Auto_Link.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + + Me.bbi_Delete_Games.Caption = "&Remove " & iNumRows & IIf(iNumRows > 1, " games", " game") & " from your collection" + Me.bbi_RemoveLink.Caption = "R&emove link on " & iNumRows & IIf(iNumRows > 1, " games", " game") + Me.bbi_Rescan.Caption = "R&escan " & iNumRows & IIf(iNumRows > 1, " games", " game") + Me.bbi_SetHidden.Caption = "&Set hidden on " & iNumRows & IIf(iNumRows > 1, " games", " game") + Me.bbi_UnsetHidden.Caption = "&Unset hidden on " & iNumRows & IIf(iNumRows > 1, " games", " game") + Me.bbi_Export.Caption = "&Export " & iNumRows & IIf(iNumRows > 1, " games", " game") + + If BS_Moby_Releases.Current Is Nothing Then + Me.bbi_SetLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + Me.bbi_SetLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_SetLink.Caption = "Se&t link to '" & BS_Moby_Releases.Current("Gamename") & "' on " & iNumRows & IIf(iNumRows > 1, " games", " game") + End If + End If + + If Provide_Merge Then + If BS_Emu_Games.Current Is Nothing Then + bbi_Merge_Select.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + bbi_Merge_Select.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + + If merge_row Is Nothing Then + bbi_Merge_Select.Caption = bbi_Merge_Select_Caption.Replace("%0%", TC.NZ(BS_Emu_Games.Current("InnerFile"), "")) + bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + bbi_Merge_Select.Caption = "Remove selection of " & TC.NZ(merge_row("InnerFile"), "") & " for merging" + + If BS_Emu_Games.Current("id_Emu_Games") <> merge_row("id_Emu_Games") Then + bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Merge_Start.Caption = bbi_Merge_Start_Caption.Replace("%0%", TC.NZ(merge_row("InnerFile"), "")).Replace("%1%", TC.NZ(BS_Emu_Games.Current("InnerFile"), "")) + Else + bbi_Merge_Start.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End If + End If + End If + End Sub + + Private Sub Remove_Moby_Link(ByRef row_Emu_Games As DataRow) + If row_Emu_Games("Name_USR") IsNot DBNull.Value Then + row_Emu_Games("Name") = row_Emu_Games("Name_USR") + End If + + If row_Emu_Games("Publisher_USR") IsNot DBNull.Value Then + row_Emu_Games("Publisher") = row_Emu_Games("Publisher_USR") + End If + + row_Emu_Games("Moby_Games_URLPart") = DBNull.Value + row_Emu_Games("deprecated") = DBNull.Value + Update_Children(row_Emu_Games) + End Sub + + Private Sub bbi_RemoveLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_RemoveLink.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + 'row("Moby_Games_URLPart") = DBNull.Value + Remove_Moby_Link(row) + Next + + gv_Emu_Games.RefreshData() + End Sub + + Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click + Save() + End Sub + + Private Sub frm_Rom_Manager_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + If Save(True) = DialogResult.Cancel Then + e.Cancel = True + Return + End If + + GC.Collect() + GC.Collect() + + Me.DialogResult = _DialogResult + End Sub + + Private Function Save_MV(ByVal Save_Main_Entries As Boolean, ByRef tran As SQLite.SQLiteTransaction) As DialogResult + 'SPEEDUP: Create INSERT Command (doesn't speed up) + 'DS_ML.tbl_Emu_Games + + 'Dim Column_Blacklist As String() = {"ROMBASE_id_Moby_Platforms", "id_Emu_Games", "Rating_Gameplay", "Rating_Graphics", "Rating_Sound", "Rating_Story", "Rating_Personal", "Num_Played", "Num_Runtime"} + + 'Dim sSQL_INSERT1 = "INSERT INTO tbl_Emu_Games (" + 'Dim sSQL_INSERT2 As String = " VALUES (" + 'Dim bFirst As Boolean = True + + 'Dim cmd_Insert As SQLite.SQLiteCommand = tran.Connection.CreateCommand + 'cmd_Insert.Transaction = tran + + 'Dim ar_ParamNums As New ArrayList + + 'Dim iParamNum As Integer = 0 + + 'For Each col As DataColumn In DS_ML.tbl_Emu_Games.Columns + ' If Not Column_Blacklist.Contains(col.ColumnName) Then + ' If bFirst Then + ' sSQL_INSERT1 &= " " + ' sSQL_INSERT2 &= " " + ' bFirst = False + ' Else + ' sSQL_INSERT1 &= " , " + ' sSQL_INSERT2 &= " , " + ' End If + ' sSQL_INSERT1 &= col.ColumnName + ' sSQL_INSERT2 &= "@" & col.ColumnName + ' 'ar_Insert_Params.Add(col.ColumnName) + + ' Dim param As SQLite.SQLiteParameter = cmd_Insert.CreateParameter + ' param.ParameterName = "@" & col.ColumnName + ' cmd_Insert.Parameters.Add(param) + ' ar_ParamNums.Add(iParamNum) + ' End If + + ' iParamNum += 1 + 'Next + + + 'sSQL_INSERT1 &= ")" + 'sSQL_INSERT2 &= "); SELECT last_insert_rowid()" + + 'cmd_Insert.CommandText = sSQL_INSERT1 & sSQL_INSERT2 + + 'Create UPDATE query for _USR fields (to be needed later) + Dim s_USR_Update_Statement As String = Create_USR_Update_Statement(tran) + + Dim rows() As DataRow = Nothing + + If Save_Main_Entries Then + rows = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NULL", "id_Emu_Games DESC") + Else + rows = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NOT NULL", "id_Emu_Games DESC") + End If + + Dim dict_Emu_Games_Children As New Dictionary(Of Long, ArrayList) + If Save_Main_Entries Then + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + Dim id_Emu_Games_Owner As Long = TC.NZ(row("id_Emu_Games_Owner"), 0L) + If id_Emu_Games_Owner <> 0L Then + If dict_Emu_Games_Children.ContainsKey(id_Emu_Games_Owner) Then + dict_Emu_Games_Children(id_Emu_Games_Owner).Add(row) + Else + Dim al As New ArrayList + al.Add(row) + dict_Emu_Games_Children.Add(id_Emu_Games_Owner, al) + End If + End If + End If + Next + End If + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Saving " & IIf(Save_Main_Entries, "Main", "Sub") & " Entries {0} of {1}", 0, rows.Length, False) + prg.Start() + + Dim GC_Counter As Integer = 0 + + For Each row As DataRow In rows + prg.IncreaseCurrentValue() + + GC_Counter += 1 + + If row.RowState = DataRowState.Deleted OrElse row.RowState = DataRowState.Detached OrElse row.RowState = DataRowState.Unchanged Then + Continue For + End If + + Try + Dim id_Emu_Games_Old As Integer = row("id_Emu_Games") + Dim bWasAdded As Boolean = row.RowState = DataRowState.Added + + 'Get old state (in order for possible extras renaming) + Dim dt_Old As New DS_ML.src_ucr_Emulation_GamesDataTable + If id_Emu_Games_Old > 0 Then + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Old, Nothing, Nothing, Nothing, id_Emu_Games_Old) + End If + + 'Save changes to database + 'If row("id_Emu_Games") > 0 Then + DS_ML.Upsert_Rom_Manager_tbl_Emu_Games(tran, row) + 'Else + ' Dim iParam As Integer = 0 + ' For Each param As SQLite.SQLiteParameter In cmd_Insert.Parameters + ' param.Value = row(ar_ParamNums(iParam)) + ' iParam += 1 + ' Next + ' row("id_Emu_Games") = cmd_Insert.ExecuteScalar() + ' row.AcceptChanges() + 'End If + + 'Update all child rows (volumes of the game) + If Save_Main_Entries Then + 'If id_Emu_Games_Old <> row("id_Emu_Games") Then + ' For Each row_volume As DataRow In Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games_Old)) + ' row_volume("id_Emu_Games_Owner") = row("id_Emu_Games") + ' Next + 'End If + + 'SPEEDUP + If id_Emu_Games_Old <> row("id_Emu_Games") AndAlso dict_Emu_Games_Children.ContainsKey(id_Emu_Games_Old) Then + For Each row_volume As DataRow In dict_Emu_Games_Children(id_Emu_Games_Old) + row_volume("id_Emu_Games_Owner") = row("id_Emu_Games") + Next + End If + + End If + + If id_Emu_Games_Old > 0 Then + Dim dt_New As New DS_ML.src_ucr_Emulation_GamesDataTable + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_New, Nothing, Nothing, Nothing, row("id_Emu_Games")) + + 'Extras could need renaming - currently only in the case of Windows Games (id_Moby_Platforms = 3) + If TC.NZ(dt_New.Rows(0)("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.win Then + If dt_Old.Rows.Count = 1 Then + Dim al_Old_Extras As ArrayList = cls_Extras.FindAllExtras(dt_Old.Rows(0)("Platform_Short"), dt_Old.Rows(0)("id_Moby_Platforms"), dt_Old.Rows(0)("Game"), dt_Old.Rows(0)("InnerFile")) + Dim al_New_Extras As ArrayList = cls_Extras.FindAllExtras(dt_New.Rows(0)("Platform_Short"), dt_New.Rows(0)("id_Moby_Platforms"), dt_New.Rows(0)("Game"), dt_New.Rows(0)("InnerFile")) + + If al_Old_Extras.Count > 0 AndAlso Not cls_Extras.ExtrasListsEqual(al_Old_Extras, al_New_Extras) Then + prg.Hide = True + Dim res_extras As DialogResult = pd_ExtrasRename.Show("Extras need renaming (" & row("File") & ")") + prg.Hide = False + + If res_extras = DialogResult.Yes Then + 'Rename all extras in al_Old_Extras + For Each extra As cls_Extras.cls_Extras_Result In al_Old_Extras + Dim oldpath As String = extra._Path + Dim newfilename As String = cls_Extras.FindNextFreeExtraFilename(dt_New.Rows(0)("Platform_Short"), extra._ExtraType, Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(MKNetLib.cls_MKStringSupport.GetCleanFileName(dt_New.Rows(0)("Game")))) + + If newfilename <> "" Then + Alphaleonis.Win32.Filesystem.File.Move(oldpath, cls_Globals.Dir_Extras & "\emulation\" & dt_New.Rows(0)("Platform_Short") & "\" & extra._ExtraType & "\" & newfilename & Alphaleonis.Win32.Filesystem.Path.GetExtension(extra._Path)) + End If + Next + End If + End If + End If + End If + End If + + Dim id_Emu_Games As Integer = row("id_Emu_Games") + + If Save_Main_Entries Then + If bWasAdded Then + 'TODO: should these save operations really only be performed if the game has been added (and not rescanned)? + + If TC.NZ(row("id_Rombase"), 0) > 0 Then + 'Get Data from Rombase (RowState = Added on newly added games and rescanned games) + Dim id_Rombase As Integer = row("id_Rombase") + + Dim dt_Rombase As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM rombase.tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase), Nothing, tran) + + For Each row_Rombase As DataRow In dt_Rombase.Rows + Dim sSQL As String = "UPDATE main.tbl_Emu_Games SET " + + bFirst = True + + For Each col As DataColumn In row_Rombase.Table.Columns + Select Case col.ColumnName.ToLower + Case "created", "updated", "id_rombase", "filename", "size", "crc", "md5", "sha1", "id_moby_platforms", "id_moby_releases", "moby_platforms_urlpart", "mapping_identifier", "customidentifier", "specialinfo", "id_rombase_dosbox_configs", "id_rombase_owner" + 'Do nothing with these columns + Case Else + If MKNetLib.cls_MKSQLDataAccess.HasColumn(DS_ML.tbl_Emu_Games, col.ColumnName) Then + If Not TC.IsNullNothingOrEmpty(row_Rombase(col)) Then + If bFirst Then + bFirst = False + Else + sSQL &= " , " + End If + + + sSQL &= col.ColumnName & " = " & TC.getSQLFormat(row_Rombase(col.ColumnName)) + End If + Else + Dim s As String = col.ColumnName + End If + End Select + Next + + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + + If Not bFirst Then DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + Next + + 'Copy over other rombase stuff + '1. Alternate Titles + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM main.tbl_Emu_Games_Alternate_Titles WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND IFNULL(USR, 0) = 0", tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO main.tbl_Emu_Games_Alternate_Titles (id_Emu_Games, Alternate_Title, Description) SELECT " & TC.getSQLFormat(id_Emu_Games) & ", Alternate_Title, Description FROM rombase.tbl_Rombase_Alternate_Titles RBAT WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase) & " AND NOT EXISTS(SELECT * FROM main.tbl_Emu_Games_Alternate_Titles EGAT WHERE EGAT.Alternate_Title = RBAT.Alternate_Title AND EGAT.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ")", tran) + + '2. Languages + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM main.tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND IFNULL(USR, 0) = 0", tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO main.tbl_Emu_Games_Languages (id_Emu_Games, id_Languages) SELECT " & TC.getSQLFormat(id_Emu_Games) & ", id_Languages FROM rombase.tbl_Rombase_Languages RBL WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase) & " AND NOT EXISTS(SELECT * FROM main.tbl_Emu_Games_Languages WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Languages = RBL.id_Languages)", tran) + + '3. Regions + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM main.tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND IFNULL(USR, 0) = 0", tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO main.tbl_Emu_Games_Regions (id_Emu_Games, id_Regions) SELECT " & TC.getSQLFormat(id_Emu_Games) & ", id_Regions FROM rombase.tbl_Rombase_Regions RBR WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase) & " AND NOT EXISTS(SELECT * FROM main.tbl_Emu_Games_Regions WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Regions = RBR.id_Regions)", tran) + + '4. Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM main.tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND IFNULL(USR, 0) = 0", tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO main.tbl_Emu_Games_Moby_Attributes (id_Emu_Games, id_Moby_Attributes, Used) SELECT " & TC.getSQLFormat(id_Emu_Games) & ", id_Moby_Attributes, Used FROM rombase.tbl_Rombase_Moby_Attributes RBMA WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase) & " AND NOT EXISTS(SELECT * FROM main.tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Attributes = RBMA.id_Moby_Attributes)", tran) + + '5. Moby_Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM main.tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND IFNULL(USR, 0) = 0", tran) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO main.tbl_Emu_Games_Moby_Genres (id_Emu_Games, id_Moby_Genres, Used) SELECT " & TC.getSQLFormat(id_Emu_Games) & ", id_Moby_Genres, Used FROM rombase.tbl_Rombase_Moby_Genres RBMG WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase) & " AND NOT EXISTS(SELECT * FROM main.tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND id_Moby_Genres = RBMG.id_Moby_Genres)", tran) + End If + End If + + 'Insert Languages/Regions from Tag Parser - Only on Main Entries + Dim rows_Languages() As DataRow = DS_ML.tbl_Emu_Games_Languages.Select("id_Emu_Games = " & id_Emu_Games_Old) + For Each row_Languages As DataRow In rows_Languages + row_Languages("id_Emu_Games") = row("id_Emu_Games") + Next + DS_ML.Upsert_tbl_Emu_Games_Languages(tran, DS_ML.tbl_Emu_Games_Languages, row("id_Emu_Games")) + + Dim rows_Regions() As DataRow = DS_ML.tbl_Emu_Games_Regions.Select("id_Emu_Games = " & id_Emu_Games_Old) + For Each row_Regions As DataRow In rows_Regions + row_Regions("id_Emu_Games") = row("id_Emu_Games") + Next + DS_ML.Upsert_tbl_Emu_Games_Regions(tran, DS_ML.tbl_Emu_Games_Regions, row("id_Emu_Games")) + + 'Copy over _USR Field content (as this content is already defined by the user and he doesn't want to lose that) + DataAccess.FireProcedure(tran.Connection, 0, s_USR_Update_Statement & TC.getSQLFormat(id_Emu_Games), tran) + + End If + + DS_ML.Update_tbl_Emu_Games_Caches(tran, id_Emu_Games) + + If GC_Counter = 100 Then + GC.Collect() + GC_Counter = 0 + End If + Catch ex As Exception + prg.Hide = True + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + prg.Hide = False + Return DialogResult.Cancel + End Try + Next + + prg.Close() + + Return DialogResult.Yes + End Function + + Private Function Save(Optional ByVal AskForSave As Boolean = False) As DialogResult + BS_DOSBox_Files_and_Folders.EndEdit() + BS_Emu_Games.EndEdit() + BS_Moby_Platforms.EndEdit() + BS_MV.EndEdit() + BS_MV_Volume.EndEdit() + BTA_DOSBox_Exe_Types.EndEdit() + BTA_DOSBox_Filetypes.EndEdit() + BTA_DOSBox_Mount_Destination.EndEdit() + + Dim bHasChanges As Boolean = False + + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + If row.RowState <> DataRowState.Unchanged Then + bHasChanges = True + Exit For + End If + Next + + 'Dim tbl_Changes As DataTable = DS_ML.tbl_Emu_Games.GetChanges + 'If tbl_Changes IsNot Nothing AndAlso tbl_Changes.Rows.Count > 0 Then + If bHasChanges Then + Dim res As DialogResult = Windows.Forms.DialogResult.Yes + + If AskForSave Then + Dim cntMismatch As Integer = Me.DS_ML.tbl_Emu_Games.Select("ROMBASE_id_Moby_Platforms IS NOT NULL AND id_Moby_Platforms <> ROMBASE_id_Moby_Platforms").Length + + Dim sResult As String = "Save changes?" + + If cntMismatch > 0 Then + sResult &= ControlChars.CrLf & ControlChars.CrLf & "WARNING: There are " & cntMismatch & " platform mismatch/es! You should not save!" + End If + + res = DevExpress.XtraEditors.XtraMessageBox.Show(sResult, "Save changes?", MessageBoxButtons.YesNoCancel) + End If + + Select Case res + Case Windows.Forms.DialogResult.Yes + Cursor.Current = Cursors.WaitCursor + + MKNetLib.cls_MKSQLiteDataAccess.EnableHighPerformance(cls_Globals.Conn) + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Save_MV(True, tran) 'Save all Main Entries + Save_MV(False, tran) 'Save all Sub Entries (volumes of the games) + DS_ML.Update_Platform_NumGames_Cache_AllUsers(tran, Me.cmb_Platform.EditValue) + Me.Refill_cmb_Platforms(tran) + tran.Commit() + End Using + + DS_ML.tbl_Emu_Games.AcceptChanges() + + Cursor.Current = Cursors.Default + + Me._DialogResult = DialogResult.OK + Return Windows.Forms.DialogResult.Yes + Case Windows.Forms.DialogResult.No + Return Windows.Forms.DialogResult.No + Case Else + Return DialogResult.Cancel + End Select + End If + + Return DialogResult.Yes + End Function + + Private Sub BS_Emu_Games_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Emu_Games.CurrentChanged + gv_Moby_Releases.RefreshData() + + If BS_Emu_Games.Current Is Nothing Then + BS_MV.Filter = "id_Emu_Games = 0" + BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = 0" + + Return + End If + + If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("Moby_Games_URLPart")) Then + Dim iNewPos As Integer = BS_Moby_Releases.Find("Moby_Games_URLPart", BS_Emu_Games.Current("Moby_Games_URLPart")) + If iNewPos >= 0 Then + BS_Moby_Releases.Position = iNewPos + Me.gv_Moby_Releases.ClearSelection() + Me.gv_Moby_Releases.SelectRow(Me.gv_Moby_Releases.FocusedRowHandle) + End If + End If + + If TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False) Then + BS_MV.Filter = "id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " OR id_Emu_Games_Owner = " & BS_Emu_Games.Current("id_Emu_Games") + End If + + 'DOS Platform + If BS_Moby_Platforms.Current IsNot Nothing AndAlso {cls_Globals.enm_Moby_Platforms.dos, cls_Globals.enm_Moby_Platforms.pcboot}.Contains(BS_Moby_Platforms.Current("id_Moby_Platforms")) Then + BS_DOSBox_Files_and_Folders.Filter = "id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " OR id_Emu_Games_Owner = " & BS_Emu_Games.Current("id_Emu_Games") & " AND id_Rombase_DOSBox_Filetypes <> 7" + End If + + gv_MV.ExpandAllGroups() + End Sub + + Private Sub bbi_Delete_Games_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Delete_Games.ItemClick + If DS_ML.tbl_Emu_Games.GetChanges IsNot Nothing AndAlso DS_ML.tbl_Emu_Games.GetChanges.Rows.Count > 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save before deleting any games.", "Delete games", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) + Return + End If + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + If DevExpress.XtraEditors.XtraMessageBox.Show("Really remove " & iNumRows & IIf(iNumRows > 1, " games", " game") & " from your collection?" & IIf(TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False) = True, ControlChars.CrLf & ControlChars.CrLf & "Note: this will also remove multiple volumes associated to these games.", ""), "Remove games", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + Cursor.Current = Cursors.WaitCursor + + Try + Dim ar_Rows As New ArrayList + + For Each iRowHandle As Integer In iRowHandles + If iRowHandle >= 0 Then + ar_Rows.Add(gv_Emu_Games.GetRow(iRowHandle).Row) + End If + Next + + Dim al_Games As New ArrayList + + For Each row As DataRow In ar_Rows + If merge_row IsNot Nothing AndAlso Equals(row, merge_row) Then merge_row = Nothing + + Dim id_Emu_Games As Integer = row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Games.Add(id_Emu_Games) + End If + Next + + If al_Games.Count > 0 Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games WHERE id_Emu_Games IN (" & TC.getSQLParameter_FromArrayList(al_Games) & ")") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games WHERE id_Emu_Games_Owner > 0 AND id_Emu_Games_Owner NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emu_Games_Alternate_Titles WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Users_Emu_Games WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)") + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Update_Platform_NumGames_Cache_AllUsers(tran, Me.cmb_Platform.EditValue) + Me.Refill_cmb_Platforms(tran) + tran.Commit() + End Using + Catch ex As Exception + + End Try + + Cursor.Current = Cursors.Default + + Refill(cmb_Platform.EditValue) + gv_Emu_Games.RefreshData() + End Sub + + Private Sub bbi_SetHidden_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bbi_SetHidden.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + row("Hidden") = True + Next + + gv_Emu_Games.RefreshData() + End Sub + + Private Sub bbi_UnsetHidden_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bbi_UnsetHidden.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + row("Hidden") = False + Next + + gv_Emu_Games.RefreshData() + End Sub + + Private Sub bbi_SetLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_SetLink.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If BS_Emu_Games.Current IsNot Nothing AndAlso BS_Moby_Releases.Current IsNot Nothing Then + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + 'row("Moby_Games_URLPart") = BS_Moby_Releases.Current("Moby_Games_URLPart").ToString.Replace("\", "") + Dim res As DialogResult = Set_Moby_Link(row, BS_Moby_Releases.Current.Row) + If res = Windows.Forms.DialogResult.Cancel Then + Exit For + End If + Next + End If + + gv_Emu_Games.RefreshData() + End Sub + + Private Sub gv_Moby_Releases_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles gv_Moby_Releases.RowCellStyle + If BS_Emu_Games.Current IsNot Nothing Then + If TC.NZ(BS_Emu_Games.Current("Moby_Games_URLPart"), "") <> "" Then + If TC.NZ(gv_Moby_Releases.GetRow(e.RowHandle)("Moby_Games_URLPart"), "") = BS_Emu_Games.Current("Moby_Games_URLPart") Then + e.Appearance.Font = New Font(e.Appearance.Font.FontFamily.Name, e.Appearance.Font.Size, FontStyle.Bold) + End If + End If + End If + + If e.RowHandle >= 0 Then + Dim row As DataRow = gv_Moby_Releases.GetRow(e.RowHandle).Row + If TC.NZ(row("Highlighted"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + End If + End If + End Sub + + Private Sub bbi_Change_Directory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Change_Directory.ItemClick + Dim rows_Game() As DataRow = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NULL AND Folder = " & TC.getSQLFormat(BS_Emu_Games.Current("Folder"))) + Dim count As Integer = rows_Game.Length + Using frm As New frm_Rom_Manager_ChangeDirectory(BS_Emu_Games.Current("Folder"), count) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + If frm.NewDir <> BS_Emu_Games.Current("Folder") Then + 'Select all Main- and Sub-Entries + rows_Game = DS_ML.tbl_Emu_Games.Select("Folder = " & TC.getSQLFormat(BS_Emu_Games.Current("Folder"))) + For Each row_Game As DataRow In rows_Game + row_Game("Folder") = frm.NewDir + Next + End If + End If + End Using + End Sub + + Private Sub gv_Emu_Games_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles gv_Emu_Games.RowCellStyle + Dim row As DataRow = gv_Emu_Games.GetRow(e.RowHandle).Row + If row IsNot Nothing Then + If TC.NZ(row("ROMBASE_id_Moby_Platforms"), 0) <> 0 AndAlso TC.NZ(row("id_Moby_Platforms"), -1) <> TC.NZ(row("ROMBASE_id_Moby_Platforms"), -1) Then + e.Appearance.ForeColor = Color.Red + End If + End If + End Sub + + Private Sub bbi_Merge_Select_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bbi_Merge_Select.ItemClick + If merge_row Is Nothing Then + If DS_ML.tbl_Emu_Games.GetChanges IsNot Nothing Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save first and merge later.", "Select for merging", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) + Return + End If + merge_row = BS_Emu_Games.Current.Row + Else + merge_row = Nothing + End If + End Sub + + Private Sub bbi_Merge_Start_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bbi_Merge_Start.ItemClick + If DS_ML.tbl_Emu_Games.Select("id_Emu_Games < 0").Length > 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save first and merge later.", "Select for merging", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) + Return + End If + + If DevExpress.XtraEditors.XtraMessageBox.Show("The following operation will copy all attributes of " & merge_row("InnerFile") & " to " & BS_Emu_Games.Current("InnerFile") & "'s data including Regions, Languages, Mobygame entry, Genre, Theme, Perspective etc." & ControlChars.CrLf & ControlChars.CrLf & "The file-specific data (Filename, Inner File, CRC32, SHA-1 and MD5 hashes) will be left untouched for " & BS_Emu_Games.Current("InnerFile") & "." & ControlChars.CrLf & ControlChars.CrLf & "The game " & merge_row("InnerFile") & " will be removed afterwards. Do you want to proceed?", "Merge", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then + Cursor.Current = Cursors.WaitCursor + + Dim old_id_Emu_Games As Integer = merge_row("id_Emu_Games") + Dim new_id_Emu_Games As Integer = BS_Emu_Games.Current("id_Emu_Games") + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + DS_ML.Merge_tbl_Emu_Games(tran, old_id_Emu_Games, new_id_Emu_Games) + DS_ML.Merge_tbl_Emu_Games_Alternate_Titles(tran, old_id_Emu_Games, new_id_Emu_Games) + DS_ML.Merge_tbl_Emu_Games_Languages(tran, old_id_Emu_Games, new_id_Emu_Games) + DS_ML.Merge_tbl_Emu_Games_Moby_Attributes(tran, old_id_Emu_Games, new_id_Emu_Games) + DS_ML.Merge_tbl_Emu_Games_Moby_Genres(tran, old_id_Emu_Games, new_id_Emu_Games) + DS_ML.Merge_tbl_Emu_Games_Regions(tran, old_id_Emu_Games, new_id_Emu_Games) + tran.Commit() + Refill(cmb_Platform.EditValue) + + Cursor.Current = Cursors.Default + + DevExpress.XtraEditors.XtraMessageBox.Show("Merge Operation successful.", "Merge", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) + Catch ex As Exception + tran.Rollback() + + Cursor.Current = Cursors.Default + + DevExpress.XtraEditors.XtraMessageBox.Show("Exception, any changes have been reverted:" & ControlChars.CrLf & ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) + End Try + End Using + End If + End Sub + + Private Sub bbi_Rescan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Rescan.ItemClick + Dim pd_NotFound As New cls_PermDecision(Me, "File not found", "", {New cls_PermDecision.PermDecisionButton("&Remove", Windows.Forms.DialogResult.Yes), New cls_PermDecision.PermDecisionButton("&Keep", Windows.Forms.DialogResult.No), New cls_PermDecision.PermDecisionButton("&Cancel", Windows.Forms.DialogResult.Cancel)}) + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + Dim bUseRombaseCache As Boolean = (iNumRows > 10) + + Dim bOnlyMissingFiles As Boolean = False + + Using frm As New frm_Rescan_Options("Perform a rescan on " & iNumRows & IIf(iNumRows > 1, " games", " game") & "?") + If frm.ShowDialog(Me) <> DialogResult.Yes Then + Return + End If + + bOnlyMissingFiles = frm.chb_Only_Missing_Files.Checked + End Using + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction() + Dim ar_Main_Rows As New ArrayList + Dim sFiles As New List(Of String) + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + 'files.Add(New cls_3ObjVec(row("Folder"), row("File"), row("InnerFile"))) + ar_Main_Rows.Add(row) + sFiles.Add(row("File")) + Next + + If Not bOnlyMissingFiles Then + Using frm As New frm_Tag_Parser_Edit(tran, sFiles.ToArray, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + End If + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Rescanning {0} of {1}", 0, iNumRows, False) + prg.Start() + + Try + Me._Rescan = True + + Cursor.Current = Cursors.WaitCursor + + Dim al_Delete As New ArrayList + Dim ar_Delete_Rows As New ArrayList + + For Each main_Row As DataRow In ar_Main_Rows + prg.IncreaseCurrentValue() + + Dim mainfile As String = main_Row("Folder") & "\" & main_Row("File") + Dim innerfile As String = "" + Dim sTmpDir As String = "" + + If TC.NZ(main_Row("File"), "") <> "" Then + 'Check file existence + If Not Alphaleonis.Win32.Filesystem.File.Exists(mainfile) Then + + Cursor.Current = Cursors.Default + prg.Hide = True + Dim res As DialogResult = pd_NotFound.Show("File not found", "The file " & mainfile & " has not been found. Do you want to remove it from the collection, keep it or cancel the rescan process?") + Cursor.Current = Cursors.WaitCursor + prg.Hide = False + + Select Case res + Case Windows.Forms.DialogResult.Yes + Dim id_Emu_Games As Integer = main_Row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Delete.Add(id_Emu_Games) + End If + + ar_Delete_Rows.Add(main_Row) + + Continue For + Case Windows.Forms.DialogResult.No + 'Keep (do nothing eh?) + Continue For + Case Windows.Forms.DialogResult.Cancel + 'Cancel the rescan operation + Exit For + End Select + Else + 'File exists, check .lnk target + If Alphaleonis.Win32.Filesystem.Path.GetExtension(mainfile).ToLower.Replace(".", "") = "lnk" Then + 'get executable and things from lnk info + Dim lnk As String = mainfile + Dim fullpath As String = MKNetLib.cls_MKFileSupport.LNK_GetPath(lnk) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(fullpath) Then + + prg.Hide = True + Cursor.Current = Cursors.Default + Dim res As DialogResult = pd_NotFound.Show("File not found", "The file referenced by the link file cannot be found. Do you want to remove it from the collection, keep it or cancel the rescan process?" & ControlChars.CrLf & ControlChars.CrLf & "Link file: " & lnk & ControlChars.CrLf & "Referenced file:" & fullpath) + prg.Hide = False + Cursor.Current = Cursors.WaitCursor + + Select Case res + Case Windows.Forms.DialogResult.Yes + Dim id_Emu_Games As Integer = main_Row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Delete.Add(id_Emu_Games) + End If + + ar_Delete_Rows.Add(main_Row) + + Continue For + Case Windows.Forms.DialogResult.No + 'Keep (do nothing eh?) + Continue For + Case Windows.Forms.DialogResult.Cancel + 'Cancel the rescan operation + Exit For + End Select + End If + End If + + End If + Else + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(main_Row("Folder")) Then + + prg.Hide = True + Cursor.Current = Cursors.Default + Dim res As DialogResult = pd_NotFound.Show("Directory not found", "The directory '" & main_Row("Folder") & "' has not been found. Do you want to remove the game from the collection, keep it or cancel the rescan process?") + prg.Hide = False + Cursor.Current = Cursors.WaitCursor + + Select Case res + Case Windows.Forms.DialogResult.Yes + Dim id_Emu_Games As Integer = main_Row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Delete.Add(id_Emu_Games) + End If + + ar_Delete_Rows.Add(main_Row) + + Continue For + Case Windows.Forms.DialogResult.No + 'Keep (do nothing eh?) + Continue For + Case Windows.Forms.DialogResult.Cancel + 'Cancel the rescan operation + Exit For + End Select + End If + End If + + If TC.NZ(main_Row("File"), "").ToLower <> TC.NZ(main_Row("InnerFile"), "").ToLower Then + Try + 'We have an archive with a specific inner file + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(mainfile) + + If archive IsNot Nothing Then + sTmpDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") + + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + If Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath).ToLower = TC.NZ(main_Row("InnerFile"), "").ToLower Then + 'We found the file we want to extract + Dim sOutFile As String = sTmpDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath) + If Not Alphaleonis.Win32.Filesystem.File.Exists(sOutFile) Then + Using sw As New IO.StreamWriter(sOutFile) + GC.SuppressFinalize(sw.BaseStream) + entry.WriteTo(sw.BaseStream) + 'sw.BaseStream.Close() + sw.Close() + + innerfile = sOutFile + Exit For + End Using + End If + End If + End If + Next + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(innerfile) Then + + prg.Hide = True + Cursor.Current = Cursors.Default + Dim res As DialogResult = pd_NotFound.Show("Inner file not found", "The expected inner file '" & TC.NZ(main_Row("InnerFile"), "") & "' could not be found in " & mainfile & ". Do you want to remove it from the collection, keep it or cancel the rescan process?") + prg.Hide = False + Cursor.Current = Cursors.WaitCursor + + Select Case res + Case Windows.Forms.DialogResult.Yes + Dim id_Emu_Games As Integer = main_Row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Delete.Add(id_Emu_Games) + End If + + ar_Delete_Rows.Add(main_Row) + + Continue For + Case Windows.Forms.DialogResult.No + 'Keep (do nothing eh?) + Continue For + Case Windows.Forms.DialogResult.Cancel + 'Cancel the rescan operation + Exit For + End Select + End If + Catch ex As Exception + prg.Hide = True + Cursor.Current = Cursors.Default + Dim res As DialogResult = pd_NotFound.Show("Error on decompression", "There has been an error on decompressing " & mainfile & " with the expected inner file " & main_Row("InnerFile") & ". Do you want to remove it from the collection, keep it or cancel the rescan process?" & ControlChars.CrLf & ControlChars.CrLf & "The error was: " & ex.Message) + prg.Hide = False + Cursor.Current = Cursors.WaitCursor + + Select Case res + Case Windows.Forms.DialogResult.Yes + Dim id_Emu_Games As Integer = main_Row("id_Emu_Games") + + If id_Emu_Games > 0 Then + al_Delete.Add(id_Emu_Games) + End If + + ar_Delete_Rows.Add(main_Row) + + Continue For + Case Windows.Forms.DialogResult.No + 'Keep (do nothing eh?) + Continue For + Case Windows.Forms.DialogResult.Cancel + 'Cancel the rescan operation + Exit For + End Select + End Try + Else + innerfile = mainfile + End If + + If Not bOnlyMissingFiles Then + If cmb_Platform.EditValue = cls_Globals.enm_Moby_Platforms.dos Then + Rescan_DOSBox_Game(main_Row("id_Emu_Games"), tran, Me.DS_ML.tbl_Emu_Games, bUseRombaseCache, Me.DS_ML.tbl_Emu_Games_Languages, Me.DS_ML.tbl_Emu_Games_Regions, prg) + ElseIf cmb_Platform.EditValue = cls_Globals.enm_Moby_Platforms.mame Then + + Else + AddGameFromFile(tran, New Alphaleonis.Win32.Filesystem.FileInfo(innerfile), New Alphaleonis.Win32.Filesystem.FileInfo(mainfile), prg) + End If + End If + + If sTmpDir <> "" Then MKNetLib.cls_MKFileSupport.Delete_Directory(sTmpDir) + Next + + If ar_Delete_Rows.Count > 0 Then + For Each row_Delete As DataRow In ar_Delete_Rows + row_Delete.Delete() + Next + End If + + If al_Delete.Count > 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games WHERE id_Emu_Games IN (" & TC.getSQLParameter_FromArrayList(al_Delete) & ")", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games WHERE id_Emu_Games_Owner > 0 AND id_Emu_Games_Owner NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Languages WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Regions WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Moby_Genres WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emu_Games_Alternate_Titles WHERE id_Emu_Games > 0 AND id_Emu_Games NOT IN (SELECT id_Emu_Games FROM tbl_Emu_Games)", tran) + End If + + tran.Commit() + Catch ex As Exception + Cursor.Current = Cursors.Default + prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show("Exception: " & ex.Message) + tran.Rollback() + Refill(cmb_Platform.EditValue) + Finally + Cursor.Current = Cursors.Default + prg.Close() + Me._Rescan = False + End Try + + gv_Emu_Games.RefreshData() + End Using + End Sub + + Private Function Create_USR_Update_Statement(ByVal tran As SQLite.SQLiteTransaction) As String + Dim sSQL As String = "UPDATE tbl_Emu_Games SET " + Dim bFirst As Boolean = True + Dim dt_Cols As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM tbl_Emu_Games LIMIT 0", Nothing, tran) + If dt_Cols IsNot Nothing Then + For Each col As DataColumn In dt_Cols.Columns + If col.ColumnName.Contains("_USR") Then + If bFirst Then + bFirst = False + Else + sSQL &= ", " + End If + + sSQL &= col.ColumnName.Replace("_USR", "") & " = CASE WHEN LENGTH(" & col.ColumnName & ") > 0 THEN " & col.ColumnName & " ELSE " & col.ColumnName.Replace("_USR", "") & " END" + End If + Next + End If + + If bFirst Then + Return "SELECT 0" + End If + + sSQL &= " WHERE id_Emu_Games = " + Return sSQL + End Function + + Private Sub bbi_Edit_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Edit_Game.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + If DS_ML.tbl_Emu_Games.GetChanges IsNot Nothing Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save before editing any games.", "Edit Game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Using frm As New frm_Emu_Game_Edit(CInt(BS_Emu_Games.Current("id_Emu_Games"))) + frm.ShowDialog(Me) + End Using + + End Sub + + Public Function ConvertToInteger(ByVal input As String) As Integer + Dim output As Integer = 0 + + Integer.TryParse(input, output) + + Return output + End Function + + Private Sub bbi_Edit_Multiple_Games_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bbi_Edit_Multiple_Games.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + If DS_ML.tbl_Emu_Games.GetChanges IsNot Nothing Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save before editing any games.", "Edit Game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + Dim al_id_Emu_Games As New ArrayList + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + al_id_Emu_Games.Add(CInt(row("id_Emu_Games"))) + Next + + Dim id_Emu_Games_Int As Integer() = CType(al_id_Emu_Games.ToArray(GetType(Integer)), Integer()) + + Using frm As New frm_Emu_Game_Edit(id_Emu_Games_Int, "Edit " & iRowHandles.Length & " Games", "", False, BS_Moby_Platforms.Current("id_Moby_Platforms")) + frm.ShowDialog(Me) + End Using + End Sub + + Private Sub bbi_Moby_Games_Open_Moby_Page_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Moby_Games_Open_Moby_Page.ItemClick + If BS_Moby_Releases.Current Is Nothing Then Return + + Try + Dim sURL As String = "http://www.mobygames.com/game/" & BS_Moby_Platforms.Current("URLPart") & "/" & TC.NZ(BS_Moby_Releases.Current("Moby_Games_URLPart"), "").Replace("\", "") + Dim procinfo As New ProcessStartInfo(sURL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + Catch ex As Exception + + End Try + End Sub + + Private Sub rpi_Volume_Number_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles rpi_Volume_Number.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_MV.Current("Volume_Number") = DBNull.Value + sender.EditValue = DBNull.Value + End If + End Sub + + Private Sub rpi_DOSBox_Volume_ButtonClick(sender As System.Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles rpi_DOSBox_Volume.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("Volume_Number") = DBNull.Value + sender.EditValue = DBNull.Value + End If + End Sub + + Private Sub bbi_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Export.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + If DS_ML.tbl_Emu_Games.GetChanges IsNot Nothing Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please save before exporting any games.", "Export games", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim al_id_Emu_Games As New ArrayList + + Dim bHasDOSEntry As Boolean = False + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + al_id_Emu_Games.Add(row("id_Emu_Games")) + If TC.NZ(row("id_Moby_Platforms"), 0) = 2 Then + bHasDOSEntry = True + End If + Next + + Using frm As New frm_Export(al_id_Emu_Games, bHasDOSEntry) + frm.ShowDialog(Me) + End Using + End Sub + + Private Sub bbi_Debug_Import_XML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Debug_Import_XML.ItemClick + Dim sPath As Object = MKNetLib.cls_MKFileSupport.OpenFileDialog("Import XML", "XML Files (*.xml)|*.xml", ParentForm:=Me) + If TC.NZ(sPath, "") <> "" Then + Me.DS_ML.Clear() + Me.DS_ML.ReadXml(sPath) + DevExpress.XtraEditors.XtraMessageBox.Show("Import done.", "Export XML") + End If + End Sub + + Private Sub bbi_Debug_Export_XML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Debug_Export_XML.ItemClick + Dim sPath As Object = MKNetLib.cls_MKFileSupport.SaveFile("Export XML", "XML Files (*.xml)|*.xml") + If TC.NZ(sPath, "") <> "" Then + Me.DS_ML.WriteXml(sPath) + DevExpress.XtraEditors.XtraMessageBox.Show("Export done.", "Export XML") + End If + End Sub + + Private Sub bbi_Debug_Group_Volumes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Debug_Group_Volumes.ItemClick + Me.Group_Volumes() + End Sub + + Private Sub bbi_Debug_SetModified_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Debug_SetModified.ItemClick + For Each row As DataRow In DS_ML.tbl_Emu_Games.Rows + row.SetModified() + Next + End Sub + + Private Sub gv_DOSBox_Files_and_Folders_CustomColumnDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) Handles gv_DOSBox_Files_and_Folders.CustomColumnDisplayText + If e.Column Is col_DOSBox_Displayname Then + 'Dim row As DataRow = gv_DOSBox_Files_and_Folders.GetRow(e.ListSourceRowIndex).Row + Dim oInnerFile As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "InnerFile") + Dim oFolder As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "Folder") + + If TC.NZ(oInnerFile, "").Length > 0 Then + e.DisplayText = oInnerFile + Else + e.DisplayText = oFolder + End If + End If + + If e.Column Is colid_Rombase_DOSBox_Filetypes Then + 'Dim row As DataRow = gv_DOSBox_Files_and_Folders.GetRow(e.ListSourceRowIndex).Row + Dim o_id_Rombase_DOSBox_Filetypes As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "id_Rombase_DOSBox_Filetypes") + Dim o_id_Rombase_DOSBox_Exe_Types As Object = gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "id_Rombase_DOSBox_Exe_Types") + + If TC.NZ(o_id_Rombase_DOSBox_Filetypes, 0) <> 0 Then + Dim part1 As String = "" + Dim part2 As String = "" + + Dim rows_Filetype As DataRow() = BTA_DOSBox_Filetypes.DS.Tables(0).Select("id_Rombase_DOSBox_Filetypes = " & TC.getSQLFormat(o_id_Rombase_DOSBox_Filetypes)) + If rows_Filetype.Length = 1 Then part1 = rows_Filetype(0)("Displayname") + + If TC.NZ(o_id_Rombase_DOSBox_Filetypes, 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.exe Then 'Executable + Dim rows_Exe_Type As DataRow() = BTA_DOSBox_Exe_Types.DS.Tables(0).Select("id_Rombase_DOSBox_Exe_Types = " & TC.getSQLFormat(o_id_Rombase_DOSBox_Exe_Types)) + If rows_Exe_Type.Length = 1 Then part2 = " (" & rows_Exe_Type(0)("Displayname") & ")" + End If + + e.DisplayText = part1 & part2 + End If + End If + End Sub + + Private Sub BS_Moby_Platforms_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BS_Moby_Platforms.CurrentChanged + BS_Emu_Games_CurrentChanged(BS_Emu_Games, New System.EventArgs) + End Sub + + Public Enum enm_DOSBoxAdd_Mode + Packed_Files = 0 'User adds packed files (a CWD per file is to be created) + Packed_Files_in_Directory = 1 'User adds packed games within a directory and it's sub-directories (a CWD per file is to be created) + Installed_in_Directory = 2 'User adds a game that is already installed within a directory (no CWD required) + Install_Media_Files = 3 'User adds install media, a CWD has to be created (maybe prompt the user?) + End Enum + + Private Sub Add_DOSBox_Games(Optional ByVal mode As enm_DOSBoxAdd_Mode = enm_DOSBoxAdd_Mode.Packed_Files, Optional ByVal file_locations As Object = Nothing, Optional ByVal id_Emu_Games_Owner As Integer = 0) + 'TODO: handle file locations (no extra prompt for the user) + + '### Adding Packed Files (from files or directory) ###" + If {enm_DOSBoxAdd_Mode.Packed_Files, enm_DOSBoxAdd_Mode.Packed_Files_in_Directory}.Contains(mode) Then + 'Packed files (either from file list or directory) + + If Not cls_Settings.Check_DOSBox_CWD Then + Return + End If + + Dim sFiles As String() = Nothing + + Dim al_Allowed_Extensions As ArrayList = Get_Allowed_Extensions(TC.NZ(cmb_Platform.EditValue, 0)) + + If mode = enm_DOSBoxAdd_Mode.Packed_Files_in_Directory Then + If DevExpress.XtraEditors.XtraMessageBox.Show("For DOS Games, please choose a directory that contains packed releases (i.e. multiple games in zip files, sub-directories will be scanned too) here. If you want to add an installed DOS game instance, choose 'Add Game (Installed, Directory)'. Do you want to continue?", "Add Games", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + Dim sFolder As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog(TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), "")) + + If Alphaleonis.Win32.Filesystem.Directory.Exists(sFolder) Then + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), sFolder) + + Dim arrFiles As New ArrayList + Dim fsrch As New MKNetLib.cls_MKFileSearch(New Alphaleonis.Win32.Filesystem.DirectoryInfo(sFolder), "*.*", "*", {".zip", ".rar", ".7z"}) + fsrch.Search() + arrFiles.AddRange(fsrch.Files) + + Dim al_filelocations As New ArrayList + + For Each fi As Alphaleonis.Win32.Filesystem.FileInfo In arrFiles + al_filelocations.Add(fi.FullName) + Next + + sFiles = CType(al_filelocations.ToArray(GetType(String)), String()) + + If sFiles Is Nothing OrElse sFiles.Length = 0 Then + Return + End If + End If + End If + + If mode = enm_DOSBoxAdd_Mode.Packed_Files Then + If DevExpress.XtraEditors.XtraMessageBox.Show("For DOS Games, please choose packed releases (i.e. one or more zip files) here. If you want to add an installed DOS game instance, choose 'Add Game (Installed, Directory)'. Do you want to continue?", "Add Games", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + pd_Add.ApplyAll = False + + merge_row = Nothing + + sFilter = "Packed DOS Releases |*.zip;*.7z;*.rar" + + sFiles = MKNetLib.cls_MKFileSupport.OpenFileDialog("Select Files", sFilter, 0, "", TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), ""), True, ParentForm:=Me) + + If sFiles(0).Length = 0 Then Return + + If Alphaleonis.Win32.Filesystem.Directory.Exists(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFiles(0))) Then + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFiles(0))) + End If + End If + + If sFiles Is Nothing OrElse sFiles(0).Length = 0 Then Return + + Using frm As New frm_Tag_Parser_Edit(Nothing, sFiles, al_Allowed_Extensions, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + + If id_Emu_Games_Owner > 0 Then + If sFiles.Length > 10 Then + Prepare_dict_Rombase() + End If + End If + + Dim Aborted As Boolean = False + Dim result As New cls_3IntVec() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Reading {0} of {1}", 0, sFiles.Length, False) + prg.Start() + + PrepareDictHave() + + Dim bUseRombaseCache As Boolean = (sFiles.Count > 10) + + For Each sFile As String In sFiles + prg.IncreaseCurrentValue() + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Dim res As cls_3IntVec = Add_DOSBox_Game_From_File(tran, New Alphaleonis.Win32.Filesystem.FileInfo(sFile), New Alphaleonis.Win32.Filesystem.FileInfo(sFile), prg, al_Allowed_Extensions, id_Emu_Games_Owner, bUseRombaseCache) + + If res Is Nothing Then + 'User cancelled + Aborted = True + Exit For + End If + + result.Add(res) + End If + Next + + tran.Commit() + prg.Close() + End Using + + Dim cntMismatch As Integer = Me.DS_ML.tbl_Emu_Games.Select("ROMBASE_id_Moby_Platforms IS NOT NULL AND id_Moby_Platforms <> ROMBASE_id_Moby_Platforms").Length + + Clear_dict_Rombase() + + Dim sResult As String = "Result" & IIf(Aborted, "after cancellation", "") & ": " & result._x & " games added, " & result._y & " of them were mapped to game info, " & result._z & " duplicates have been ignored." + + If cntMismatch > 0 Then + sResult &= ControlChars.CrLf & ControlChars.CrLf & "WARNING: There have been " & cntMismatch & " platform mismatch/es detected! All affected entries are in red color. Did you import Roms for the correct Platform?" + End If + + DevExpress.XtraEditors.XtraMessageBox.Show(sResult, "Result", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) + End If 'Mode = Packed files (from either directory or file list) + + '### Adding Directory containing installed instance ### + If mode = enm_DOSBoxAdd_Mode.Installed_in_Directory Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Select a Directory that contains a single installed game in the next dialog. Do you want to continue?", "Add Games", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + Dim sFolder As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog(TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), "")) + + If Alphaleonis.Win32.Filesystem.Directory.Exists(sFolder) Then + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), sFolder) + + Dim sDirectoryName As String = sFolder.Replace(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFolder) & "\", "") + + Using frm_tag As New frm_Tag_Parser_Edit(Nothing, {sDirectoryName}, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + If frm_tag.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + + 'Dim arrFiles As New ArrayList + 'Dim fsrch As New MKNetLib.cls_MKFileSearch(New Alphaleonis.Win32.Filesystem.DirectoryInfo(sFolder), "*.*", "*") + 'fsrch.Search() + 'arrFiles.AddRange(fsrch.Files) + + 'TODO: check if the current working directory is already in use + + Dim MappingFound As Integer = 0 + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + 'Dim filename As String = inner_fi.Name + Dim folder As String = sFolder + Dim file As String = folder.Replace(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(folder) & "\", "") + 'Dim innerfile As Object = "" + 'Dim size As Long = inner_fi.Length + + 'Dim crc As String = "" + 'Dim md5 As String = "" + 'Dim sha1 As String = "" + + 'If Not {".zip", ".7z"}.Contains(main_fi.Extension) Then + ' crc = MKNetLib.cls_MKFileSupport.CRC32Hash(inner_fi.FullName) + ' md5 = MKNetLib.cls_MKFileSupport.MD5Hash(inner_fi.FullName) + ' sha1 = MKNetLib.cls_MKFileSupport.SHA1Hash(inner_fi.FullName) + 'End If + + 'Dim bIsInnerFile As Boolean = inner_fi.FullName <> main_fi.FullName + + 'innerfile = Alphaleonis.Win32.Filesystem.Path.GetFileName(inner_fi.FullName) + + Dim rowemugames As DS_ML.tbl_Emu_GamesRow = Nothing + Dim bAddNew As Boolean = True + + 'Find local duplicate and return if there is one found + 'If Not _Rescan AndAlso dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + ' 'Return New cls_3IntVec(0, 0, 1) + ' Dim rows As DataRow() = DS_ML.tbl_Emu_Games.Select("folder = " & TC.getSQLFormat(folder) & " AND innerfile = " & TC.getSQLFormat(innerfile)) + ' If rows.Length = 1 Then + ' rowemugames = rows(0) + ' bAddNew = False + ' Else + ' Return New cls_3IntVec(0, 0, 1) + ' End If + 'End If + + If bAddNew Then + rowemugames = Me.DS_ML.tbl_Emu_Games.NewRow + rowemugames.created = DateTime.Now + + 'Find double entry + Dim id_Emu_Games As Object = Nothing + + If TC.NZ(id_Emu_Games, 0) > 0 Then + + If _Rescan Then + Dim rows_local_dupe() As DataRow = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + For Each row_local_dupe As DataRow In rows_local_dupe + Me.DS_ML.tbl_Emu_Games.Removetbl_Emu_GamesRow(row_local_dupe) + Next + End If + + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + Else + 'Try to find a similar entry by crc, sha1 and md5 and ask the user if these should be replaced + + 'id_Emu_Games = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Emu_Games FROM tbl_Emu_Games WHERE 1=1 " & IIf(crc.Length > 0, " AND CRC32 = " & TC.getSQLFormat(crc), "") & IIf(sha1.Length > 0, " AND SHA1 = " & TC.getSQLFormat(sha1), "") & IIf(md5.Length > 0, " AND MD5 = " & TC.getSQLFormat(md5), ""), tran) + + 'If TC.NZ(id_Emu_Games, 0) > 0 Then + ' Dim original As String = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT InnerFile || ' [' || Folder || '\' || File || ']' FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran), "") + + ' If prg IsNot Nothing AndAlso Not pd_Add.ApplyAll Then prg.Hide = True + ' Dim res As DialogResult = pd_Add.Show("", "The following match has been found:" & ControlChars.CrLf & "Original: " & original & ControlChars.CrLf & "New: " & innerfile & " [" & folder & "\" & file & "]" & ControlChars.CrLf & ControlChars.CrLf & "please choose the appropriate action.") + ' If prg IsNot Nothing Then prg.Hide = False + + ' If res = Windows.Forms.DialogResult.Yes Then + ' 'Replace - Find local dupe and delete row + ' Dim rows As DataRow() = DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + ' For Each row As DataRow In rows + ' DS_ML.tbl_Emu_Games.Rows.Remove(row) + ' Next + ' End If + + ' If res = Windows.Forms.DialogResult.No Then + ' id_Emu_Games = 0 + ' End If + + ' If res = Windows.Forms.DialogResult.Cancel Then + ' Return Nothing + ' End If + 'End If + + If TC.NZ(id_Emu_Games, 0) > 0 Then + 'Dim dt_Emu_Games As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emu_Games, Folder, File, InnerFile, Moby_Games_URLPart, Hidden FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), Nothing, tran) + Dim dt_Emu_Games As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Emu_Games, id_Moby_Platforms, id_Emu_Games) + + Dim rowdupe As DataRow = dt_Emu_Games.Rows(0) + + 'Copy over all data from the DB's duplicate row + For Each col As DataColumn In dt_Emu_Games.Columns + rowemugames(col.ColumnName) = rowdupe(col.ColumnName) + Next + rowemugames("Folder") = folder + rowemugames("File") = file + Else + 'No double or similar entries + rowemugames("Folder") = folder + rowemugames("File") = file + End If + End If + End If + + 'Add other attributes + rowemugames("id_Moby_Platforms") = id_Moby_Platforms + 'rowemugames("Size") = Size + 'If crc.Length > 0 Then rowemugames("CRC32") = crc + 'If sha1.Length > 0 Then rowemugames("SHA1") = sha1 + 'If md5.Length > 0 Then rowemugames("MD5") = md5 + + 'Check in Database and save id_rombase + 'Speedup + 'TODO: find id_rombase with sub-entries (fuzzy search) + 'Dim id_rombase As Long + + 'If Not {".zip", ".7z"}.Contains(main_fi.Extension) Then + ' id_rombase = Get_id_Rombase(tran, file, Size, crc, md5, sha1, id_Moby_Platforms) + 'End If + 'If id_rombase > 0 Then + ' rowemugames("id_Rombase") = id_rombase + 'End If + + 'If TC.NZ(rowemugames("Moby_Games_URLPart"), "").Length = 0 Then + ' 'Moby Game isn't identified yet, so maybe we find an entry in the rombase database + ' Dim rowrombase As DS_Rombase.tbl_RombaseRow = Nothing + + ' Dim oMoby_Games_URLPart As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Moby_Games_URLPart FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + ' Dim oROMBASE_id_Moby_Platforms As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Platforms FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_rombase), tran) + + ' If TC.NZ(oMoby_Games_URLPart, "").Length > 0 Then + ' rowemugames("Moby_Games_URLPart") = oMoby_Games_URLPart + ' MappingFound = 1 + ' End If + + ' If TC.NZ(oROMBASE_id_Moby_Platforms, 0) > 0 Then + ' rowemugames("ROMBASE_id_Moby_Platforms") = oROMBASE_id_Moby_Platforms + ' End If + 'End If + + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rowemugames, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + + If bAddNew Then + 'TODO: find the correct Config Template + rowemugames("id_DOSBox_Configs_Template") = Get_id_DOSBox_Templates_Default() + rowemugames("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd 'Working Directory + rowemugames("id_Rombase_DOSBox_Exe_Types") = DBNull.Value 'This is not an executable + rowemugames("DOSBox_Mount_Destination") = "C" 'This is to be mounted as the C drive + + If id_Emu_Games_Owner > 0 Then rowemugames("id_Emu_Games_Owner") = id_Emu_Games_Owner + + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowemugames) + + 'If Not dict_Have.ContainsKey(folder & "\" & file & TC.NZ(innerfile, "")) Then + ' dict_Have.Add(folder & "\" & file & TC.NZ(innerfile, ""), 0) + 'End If + + 'TODO: Add DOSBox_Sub_Entries here - use arrFiles + 'Add_DOSBox_Packed_Game_SubEntries(main_fi.FullName, rowemugames) + + Rescan_DOSBox_Game(IIf(id_Emu_Games_Owner = 0, rowemugames("id_Emu_Games"), id_Emu_Games_Owner), tran, Me.DS_ML.tbl_Emu_Games) + + Return + Else + Return + End If + End Using + End If + End If + + '### Adding Install Media ### + If mode = enm_DOSBoxAdd_Mode.Install_Media_Files Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Select one or more Install Media files (i.e. CD Images, Floppy Images) for a single game in the next dialog. Do you want to continue?", "Add Games", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + Dim sFiles As String() = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open Install Media Files", "Images (*.iso;*.cue;*.img)|*.iso;*.cue;*.img", 0, "", TC.NZ(cls_Settings.GetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart")), ""), True, ParentForm:=Me) + + If sFiles.Length = 0 OrElse Not Alphaleonis.Win32.Filesystem.File.Exists(sFiles(0)) Then + Return + End If + + Dim rows_game As New ArrayList + + 'Dim id_Emu_Games_Owner As Integer = 0 + + Using frm_tag As New frm_Tag_Parser_Edit(Nothing, sFiles, Nothing, True) 'Adding DOS Game Media is always Multi Volume + If frm_tag.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then + Return + End If + End Using + + cls_Settings.SetSetting("Browse_Romfolder" & "_" & BS_Moby_Platforms.Current("URLPart"), Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFiles(0))) + + Dim bNeedCWD As Boolean = (id_Emu_Games_Owner = 0) + + 'TODO: Do it the MultiVolume way + ' Add all files into DS_ML.tbl_Emu_Games + ' Call Group_Volumes + ' Call Ensure_DOSBox_Working_Directory + + Dim row_head As DataRow = Nothing + + For Each sFile As String In sFiles + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + + Dim rowsub As DataRow = Nothing + rowsub = Me.DS_ML.tbl_Emu_Games.NewRow + rowsub("created") = DateTime.Now + + If id_Emu_Games_Owner <> 0 Then + rowsub("id_Emu_Games_Owner") = id_Emu_Games_Owner + End If + + rowsub("Folder") = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFile) + rowsub("File") = Alphaleonis.Win32.Filesystem.Path.GetFileName(sFile) + rowsub("InnerFile") = Alphaleonis.Win32.Filesystem.Path.GetFileName(sFile) + rowsub("id_Moby_Platforms") = cmb_Platform.EditValue + + rowsub("id_DOSBox_Configs_Template") = Get_id_DOSBox_Templates_Default() + rowsub("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso 'CD Image + rowsub("DOSBox_Mount_Destination") = "D" 'CD Images are to be mounted as the D drive + + 'rowsub("Volume_Number") = 1 + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rowsub, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, True) + End Using + + For Each row_game As DataRow In rows_game + If TC.NZ(row_game("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso Then + If TC.NZ(rowsub("Volume_Number"), 0) < TC.NZ(row_game("Volume_Number"), 0) + 1 Then + rowsub("Volume_Number") = TC.NZ(row_game("Volume_Number"), 0) + 1 + End If + End If + Next + + rows_game.Add(rowsub) + + If id_Emu_Games_Owner = 0 Then + id_Emu_Games_Owner = rowsub("id_Emu_Games") + row_head = rowsub + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rowsub, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + End Using + + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowsub) + + End If + Next + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + If row_head IsNot Nothing Then + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, row_head, DS_ML.tbl_Emu_Games_Languages, DS_ML.tbl_Emu_Games_Regions, Nothing, TC.NZ(Me.BS_Moby_Platforms.Current("MultiVolume"), False)) + End If + End Using + + If bNeedCWD AndAlso id_Emu_Games_Owner <> 0 Then + 'Add WorkingDirectory for the game (create if possible) + Dim cwd As String = cls_Settings.Get_DOSBox_CWD & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(sFiles(0)) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(cwd) Then + Try + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(cwd) + + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while creating the working directory '" & cwd & "'. The error was: " & ex.Message, "Error while creating working directory", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End Try + End If + + Dim rowcwd As DataRow + rowcwd = Me.DS_ML.tbl_Emu_Games.NewRow + rowcwd("created") = DateTime.Now + + rowcwd("id_Emu_Games_Owner") = id_Emu_Games_Owner + rowcwd("Folder") = cwd + rowcwd("File") = cwd.Replace(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(cwd) & "\", "") + rowcwd("id_Moby_Platforms") = cmb_Platform.EditValue + + rowcwd("id_DOSBox_Configs_Template") = Get_id_DOSBox_Templates_Default() + rowcwd("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd 'Working Directory + rowcwd("DOSBox_Mount_Destination") = "C" 'This is to be mounted as the C drive + + rows_game.Add(rowcwd) + + + Me.DS_ML.tbl_Emu_Games.Rows.Add(rowcwd) + + id_Emu_Games_Owner = rowcwd("id_Emu_Games") + End If + End If + End Sub + + Private Sub cmb_DOSBox_Volume_Number_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Volume_Number.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("Volume_Number") = DBNull.Value + cmb_DOSBox_Volume_Number.EditValue = DBNull.Value + End If + End Sub + + Private Sub cmb_DOSBox_Mount_Destination_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Mount_Destination.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("DOSBox_Mount_Destination") = DBNull.Value + cmb_DOSBox_Mount_Destination.EditValue = DBNull.Value + End If + End Sub + + Private Sub cmb_DOSBox_Exe_Type_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_DOSBox_Exe_Type.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_DOSBox_Files_and_Folders.Current("id_Rombase_DOSBox_Exe_Types") = DBNull.Value + cmb_DOSBox_Exe_Type.EditValue = DBNull.Value + End If + End Sub + + ''' + ''' Rescan DOSBox Game files within Working Directories in case they have been changed through unpacking or installing OR the Working Directory just has been added within the Rom Manager + ''' + ''' + Public Shared Sub Rescan_DOSBox_Game(ByVal id_Emu_Games As Integer, Optional ByVal tran As SQLite.SQLiteTransaction = Nothing, Optional ByVal tbl_Emu_Games As DS_ML.tbl_Emu_GamesDataTable = Nothing, Optional ByVal UseRombaseCache As Boolean = False, Optional ByRef tbl_Emu_Games_Languages As DS_ML.tbl_Emu_Games_LanguagesDataTable = Nothing, Optional ByRef tbl_Emu_Games_Regions As DS_ML.tbl_Emu_Games_RegionsDataTable = Nothing, Optional ByVal prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing) + Dim bTran As Boolean = False + If tran Is Nothing Then + bTran = True + tran = cls_Globals.Conn.BeginTransaction + End If + + Dim bUseDB As Boolean = True + If tbl_Emu_Games IsNot Nothing Then + bUseDB = False + End If + + Try + 'Reload the file list + Dim dt_Files As New DS_ML.tbl_Emu_GamesDataTable + + If bUseDB Then + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Files, 0, id_Emu_Games, id_Emu_Games) + Else + dt_Files = tbl_Emu_Games + End If + + 'Get the "main" Emu Games entry + Dim row_Head As DataRow = Nothing + Dim rows_Head As DS_ML.tbl_Emu_GamesRow() = dt_Files.Select("id_Emu_Games_Owner IS NULL AND id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + + If rows_Head.Length > 1 Then + If prg IsNot Nothing Then prg.Hide = True + Dim bWaitCursor As Boolean = Cursor.Current = Cursors.WaitCursor + Cursor.Current = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("Error while rescanning a DOSBox game: cannot determine main game entry.", "Error while rescanning DOSBox game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If bWaitCursor Then Cursor.Current = Cursors.WaitCursor + If prg IsNot Nothing Then prg.Hide = False + + If bTran Then + tran.Rollback() + Return + End If + End If + + If rows_Head.Length = 0 Then + If prg IsNot Nothing Then prg.Hide = True + Dim bWaitCursor As Boolean = Cursor.Current = Cursors.WaitCursor + Cursor.Current = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("Error while rescanning a DOSBox game: cannot find main game entry.", "Error while rescanning DOSBox game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If prg IsNot Nothing Then prg.Hide = False + If bWaitCursor Then Cursor.Current = Cursors.WaitCursor + + If bTran Then + tran.Rollback() + Return + End If + End If + + If tbl_Emu_Games_Languages IsNot Nothing AndAlso tbl_Emu_Games_Regions IsNot Nothing Then + frm_Tag_Parser_Edit.Apply_Filename_Tags(tran, rows_Head(0), tbl_Emu_Games_Languages, tbl_Emu_Games_Regions, Nothing, True) + End If + + row_Head = rows_Head(0) + + For Each row_CWD As DataRow In dt_Files.Select("id_Rombase_DOSBox_Filetypes = " & TC.getSQLFormat(cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd) & " AND DOSBox_Mount_Destination IS NOT NULL AND (id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")") + 'Seach all files within the CWD + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(row_CWD("Folder")) Then Continue For 'CWD should exist + + Dim fs As New MKNetLib.cls_MKFileSearch(row_CWD("Folder").ToString, "*.*", "*", {".exe", ".bat", ".com", ".cue", ".iso"}) 'Only executable files and cd images are interesting + fs.Search() + + Dim found_files As ArrayList = fs.Files + + For Each fi As Alphaleonis.Win32.Filesystem.FileInfo In fs.Files + 'Skip if file is already known + If dt_Files.Select("InnerFile = " & TC.getSQLFormat(fi.Name) & " AND Folder = " & TC.getSQLFormat(fi.Directory.FullName) & " AND (id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")").Length > 0 Then Continue For + + Dim row_file As DataRow = Nothing + Dim rows_file As DataRow() = dt_Files.Select("InnerFile LIKE '%" & fi.Name & "' AND Size = " & fi.Length & " AND InnerFile <> File" & " AND (id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")") + + 'Skip if more equivalent files are found (actually don't skip, just use the first equivalent file) + 'If rows_file.Length > 1 Then Continue For + + Dim bEquivalentFileHandled As Boolean = False + + If rows_file.Length > 0 Then '= 1 Then + 'Equivalent file is found (check if it is inside a packed file and update if necessary) + row_file = rows_file(0) + + Dim rows_file_owner As DataRow() = dt_Files.Select("File = " & TC.getSQLFormat(row_file("File")) & " AND InnerFile = " & TC.getSQLFormat(row_file("File")) & " AND (id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")") 'If it is within a packed file, then there is also a DataRow for that packed file + + If rows_file_owner.Length = 1 Then + If TC.NZ(rows_file_owner(0)("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.zip Then 'FileType = Packed Content + If bUseDB Then 'This should only be a constellation in the bUseDB case but just in case we'll check for it anyways + 'The equivalent file is a file within a packed file -> UPDATE to the file within the working directory + Dim crc As String = MKNetLib.cls_MKFileSupport.CRC32Hash(fi.FullName) + Dim md5 As String = MKNetLib.cls_MKFileSupport.MD5Hash(fi.FullName) + Dim sha1 As String = MKNetLib.cls_MKFileSupport.SHA1Hash(fi.FullName) + + Dim sSQL As String = "" + sSQL = "UPDATE tbl_Emu_Games" & ControlChars.CrLf + sSQL &= "SET" & ControlChars.CrLf + sSQL &= " Folder = " & TC.getSQLFormat(fi.DirectoryName) & ControlChars.CrLf + sSQL &= " , File = " & TC.getSQLFormat(fi.Name) & ControlChars.CrLf + sSQL &= " , InnerFile = " & TC.getSQLFormat(fi.Name) & ControlChars.CrLf + sSQL &= " , CRC32 = " & TC.getSQLFormat(crc) & ControlChars.CrLf + sSQL &= " , SHA1 = " & TC.getSQLFormat(sha1) & ControlChars.CrLf + sSQL &= " , MD5 = " & TC.getSQLFormat(md5) & ControlChars.CrLf + sSQL &= "WHERE id_Emu_Games = " & TC.getSQLFormat(row_file("id_Emu_Games")) + + bEquivalentFileHandled = DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + End If + End If + End If + End If + + If Not bEquivalentFileHandled Then + 'No equivalent file is found -> add new + Dim crc As String = MKNetLib.cls_MKFileSupport.CRC32Hash(fi.FullName) + Dim md5 As String = MKNetLib.cls_MKFileSupport.MD5Hash(fi.FullName) + Dim sha1 As String = MKNetLib.cls_MKFileSupport.SHA1Hash(fi.FullName) + + Dim id_Rombase_DOSBox_Exe_Types As Object = DBNull.Value 'TODO: check Rombase if an exe type is available + + If bUseDB Then + Dim sSQL As String = "" + sSQL = "INSERT INTO tbl_Emu_Games" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= " id_Emu_Games_Owner" & ControlChars.CrLf + sSQL &= " , id_Rombase_DOSBox_Filetypes" & ControlChars.CrLf + sSQL &= " , id_Rombase_DOSBox_Exe_Types" & ControlChars.CrLf + sSQL &= " , Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , Folder" & ControlChars.CrLf + sSQL &= " , File" & ControlChars.CrLf + sSQL &= " , InnerFile" & ControlChars.CrLf + sSQL &= " , Size" & ControlChars.CrLf + sSQL &= " , CRC32" & ControlChars.CrLf + sSQL &= " , SHA1" & ControlChars.CrLf + sSQL &= " , MD5" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + sSQL &= "VALUES" & ControlChars.CrLf + sSQL &= "(" & ControlChars.CrLf + sSQL &= TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf 'id_Emu_Games_Owner + + If {".exe", ".bat", ".com"}.Contains(fi.Extension.ToLower) Then + sSQL &= " , " & TC.getSQLFormat(3) & ControlChars.CrLf 'File_Type = 3 (Executable) + Else + sSQL &= " , " & TC.getSQLFormat(4) & ControlChars.CrLf 'File_Type = 4 (CD Image) + End If + + sSQL &= " , " & TC.getSQLFormat(id_Rombase_DOSBox_Exe_Types) & ControlChars.CrLf 'TODO: id_Rombase_DOSBox_Exe_Types (check Rombase if an exe type is available) + sSQL &= " , " & TC.getSQLFormat(row_Head("Moby_Games_URLPart")) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(row_Head("id_Moby_Platforms")) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(fi.DirectoryName) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(fi.Name) & ControlChars.CrLf 'File + sSQL &= " , " & TC.getSQLFormat(fi.Name) & ControlChars.CrLf 'InnerFile + sSQL &= " , " & TC.getSQLFormat(fi.Length) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(crc) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(sha1) & ControlChars.CrLf + sSQL &= " , " & TC.getSQLFormat(md5) & ControlChars.CrLf + sSQL &= "); SELECT last_insert_rowid()" & ControlChars.CrLf + + Dim id_Emu_Games_New As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0) + + If id_Emu_Games_New <> 0 Then + If TC.NZ(id_Rombase_DOSBox_Exe_Types, 0) <> 0 Then + Dim sSQLUpdate As String = "" + sSQLUpdate &= "UPDATE tbl_Emu_Games" & ControlChars.CrLf + sSQLUpdate &= "SET id_Rombase_DOSBox_Exe_Types = NULL" + sSQLUpdate &= "WHERE (id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ")" & ControlChars.CrLf + sSQLUpdate &= " AND id_Rombase_DOSBox_Exe_Types = " & TC.getSQLFormat(id_Rombase_DOSBox_Exe_Types) & ControlChars.CrLf + sSQLUpdate &= " AND id_Emu_Games <> " & TC.getSQLFormat(id_Emu_Games_New) + + DataAccess.FireProcedure(tran.Connection, 0, sSQLUpdate, tran) + End If + End If + Else + 'Not bUseDB + Dim row As DataRow = tbl_Emu_Games.NewRow + row("created") = DateTime.Now + + row("id_Emu_Games_Owner") = id_Emu_Games + + If {".exe", ".bat", ".com"}.Contains(fi.Extension.ToLower) Then + row("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.exe + ElseIf {".cue", ".iso"}.Contains(fi.Extension.ToLower) Then + row("id_Rombase_DOSBox_Filetypes") = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso + 'TODO: Volume Number, Mount type + + row("DOSBox_Mount_Destination") = "D" 'CDs are mounted as D drive + row("Volume_Number") = 1 + + For Each row_game As DataRow In dt_Files.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games)) + If TC.NZ(row_game("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso Then + If TC.NZ(row("Volume_Number"), 0) < TC.NZ(row("Volume_Number"), 0) + 1 Then + row("Volume_Number") = TC.NZ(row_game("Volume_Number"), 0) + 1 + End If + End If + Next + End If + + row("id_Rombase_DOSBox_Exe_Types") = id_Rombase_DOSBox_Exe_Types + row("Moby_Games_URLPart") = row_Head("Moby_Games_URLPart") + row("id_Moby_Platforms") = row_Head("id_Moby_Platforms") + row("Folder") = fi.DirectoryName + row("File") = fi.Name + row("InnerFile") = fi.Name + row("Size") = fi.Length + row("CRC32") = crc + row("SHA1") = sha1 + row("MD5") = md5 + + + tbl_Emu_Games.Rows.Add(row) + End If + End If + Next + Next + + 'Find and apply Rombase stuff + 'Get_and_Apply_id_Rombase(tran, tbl_Emu_Games, id_Emu_Games, 3) + Get_and_Apply_id_Rombase(tran, tbl_Emu_Games, id_Emu_Games, UseCache:=UseRombaseCache) + If bUseDB Then + 'Write to DB because Get_and_Apply_id_Rombase will only modifiy tbl_Emu_Games + For Each row_Emu_Games As DataRow In tbl_Emu_Games.Select("(id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games) & ") AND (id_Rombase IS NOT NULL OR Moby_Games_URLPart IS NOT NULL)") + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase = " & TC.getSQLFormat(row_Emu_Games("id_Rombase")) & ", Moby_Games_URLPart = " & TC.getSQLFormat(row_Emu_Games("Moby_Games_URLPart")) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")), tran) + Next + End If + + If bUseDB AndAlso bTran Then tran.Commit() + Catch ex As Exception + If prg IsNot Nothing Then prg.Hide = True + Dim bWaitCursor As Boolean = Cursor.Current = Cursors.WaitCursor + Cursor.Current = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while rescanning a DOSBox game. The error was: " & ex.Message, "Error while rescanning DOSBox game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If prg IsNot Nothing Then prg.Hide = False + If bWaitCursor Then Cursor.Current = Cursors.WaitCursor + + If bTran Then + If ex.GetType IsNot GetType(System.Data.SQLite.SQLiteException) Then + tran.Rollback() + End If + Else + Throw ex + End If + End Try + End Sub + + Public Class cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item + Public _row_Emu_Games As DataRow + Public _rows_Emu_Games_Children As New ArrayList + + Public Sub New(ByRef row_Emu_Games As DataRow, ByVal is_Owner As Boolean) + If is_Owner Then + _row_Emu_Games = row_Emu_Games + Else + _rows_Emu_Games_Children.Add(row_Emu_Games) + End If + End Sub + End Class + + Public Shared Get_and_Apply_id_Rombase_Emu_Games_Cache As Dictionary(Of Int64, cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item) + + ''' + ''' Get id_Rombase by EmuGame's files (given by id_Emu_Games_Owner) + ''' If dt_Emu_Games is Nothing, all Data gets loaded from DB and applied to DB + ''' If dt_Emu_Games isnot Nothing, the Data in dt_Emu_Games gets updated if possible + ''' + ''' + ''' + ''' + ''' id_Rombase (Owner) + ''' + Public Shared Function Get_and_Apply_id_Rombase(ByRef tran As SQLite.SQLiteTransaction, ByRef dt_Emu_Games As DataTable, ByVal id_Emu_Games_Owner As Int64, Optional ByVal id_Rombase_DOSBox_Filetypes As Integer = -1, Optional ByVal UseCache As Boolean = False, Optional ByVal EmuGames_Cache As cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item = Nothing) As Int64 + Dim bUseDB As Boolean = dt_Emu_Games Is Nothing AndAlso tran IsNot Nothing + + Dim id_Rombase_Owner As Int64 = 0 + + If id_Emu_Games_Owner = 0 Then Return 0 + + If bUseDB Then + dt_Emu_Games = New DS_ML.tbl_Emu_GamesDataTable + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emu_Games, id_Emu_Games_Owner, id_Rombase_DOSBox_Filetypes, size, crc32, NULL AS ROMBASE_id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_Owner) & " OR (id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games_Owner) & IIf(id_Rombase_DOSBox_Filetypes = -1, ")", " AND id_Rombase_DOSBox_Filetypes = " & id_Rombase_DOSBox_Filetypes & ")"), dt_Emu_Games, tran) + End If + + 'If UseCache AndAlso Get_and_Apply_id_Rombase_Emu_Games_Cache Is Nothing Then + ' Get_and_Apply_id_Rombase_Emu_Games_Cache = New Dictionary(Of Int64, cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item) + ' For Each row As DataRow In dt_Emu_Games.Rows + ' Dim id As Int64 = TC.NZ(row("id_Emu_Games_Owner"), 0) + ' Dim is_Owner As Boolean = False + ' If id = 0 Then + ' id = TC.NZ(row("id_Emu_Games"), 0) + ' is_Owner = True + ' End If + + ' If Not Get_and_Apply_id_Rombase_Emu_Games_Cache.ContainsKey(id) Then + ' Get_and_Apply_id_Rombase_Emu_Games_Cache(id) = New cls_Get_and_Apply_id_Rombase_Emu_Games_Cache_Item(row, is_Owner) + ' Else + ' If is_Owner Then + ' Get_and_Apply_id_Rombase_Emu_Games_Cache(id)._row_Emu_Games = row + ' Else + ' Get_and_Apply_id_Rombase_Emu_Games_Cache(id)._rows_Emu_Games_Children.Add(row) + ' End If + ' End If + ' Next + 'End If + + Dim row_Emu_Games_Owner As DataRow = Nothing + + Try + If EmuGames_Cache IsNot Nothing Then + row_Emu_Games_Owner = EmuGames_Cache._row_Emu_Games + Else + row_Emu_Games_Owner = dt_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_Owner))(0) + End If + + If TC.NZ(row_Emu_Games_Owner("id_Rombase"), 0) > 0 Then + 'Rombase is already found + Return row_Emu_Games_Owner("id_Rombase") + End If + + Dim ar_Emu_Games_Children As ArrayList + If EmuGames_Cache IsNot Nothing Then + ar_Emu_Games_Children = EmuGames_Cache._rows_Emu_Games_Children + Else + ar_Emu_Games_Children = New ArrayList + Dim rows_Emu_Games_Children() As DataRow = dt_Emu_Games.Select("id_Emu_Games_Owner = " & TC.getSQLFormat(id_Emu_Games_Owner) & IIf(id_Rombase_DOSBox_Filetypes = -1, "", " AND id_Rombase_DOSBox_Filetypes = " & id_Rombase_DOSBox_Filetypes) & " AND size IS NOT NULL AND crc32 IS NOT NULL") + For Each row_Emu_Games_Children As DataRow In rows_Emu_Games_Children + ar_Emu_Games_Children.Add(row_Emu_Games_Children) + Next + End If + + Dim iNumValidChildren As Integer = 0 + For Each row_Emu_Games_Children As DataRow In ar_Emu_Games_Children + If Not TC.IsNullNothingOrEmpty(row_Emu_Games_Children("size")) AndAlso Not TC.IsNullNothingOrEmpty(row_Emu_Games_Children("crc32")) Then + iNumValidChildren += 1 + End If + Next + + + 'Dictionary of (id_Rombase, Number of Hits) + Dim dt_Rombase_Hits As New DataTable + dt_Rombase_Hits.Columns.Add("id_Rombase", GetType(Int64)) + dt_Rombase_Hits.Columns.Add("id_Rombase_Owner", GetType(Int64)) + dt_Rombase_Hits.Columns.Add("id_Emu_Games", GetType(Int64)) + dt_Rombase_Hits.Columns.Add("Hits", GetType(Integer)) + dt_Rombase_Hits.Columns.Add("Ratio", GetType(Integer)) + + Dim count_Emu_Games_Files = iNumValidChildren + IIf(TC.NZ(row_Emu_Games_Owner("size"), 0) > 0 And TC.NZ(row_Emu_Games_Owner("crc32"), "") <> "", 1, 0) + + Dim dt_Owner_Rombase_Entries As DataTable = get_All_id_Rombase(tran, row_Emu_Games_Owner("size"), row_Emu_Games_Owner("crc32"), id_Rombase_DOSBox_Filetypes, UseCache) + If dt_Owner_Rombase_Entries IsNot Nothing AndAlso dt_Owner_Rombase_Entries.Rows.Count > 0 Then + 'add to dt_Rombase_Hits + For Each row_Owner_Rombase_Entry As DataRow In dt_Owner_Rombase_Entries.Rows + 'Rombase Owner + If TC.NZ(row_Owner_Rombase_Entry("id_Rombase"), 0) > 0 AndAlso TC.NZ(row_Owner_Rombase_Entry("id_Rombase_Owner"), 0) = 0 Then + If dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Owner_Rombase_Entry("id_Rombase"))).Length = 0 Then + 'add + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Rows.Add + row_Rombase_Hits("id_Rombase") = row_Owner_Rombase_Entry("id_Rombase") + row_Rombase_Hits("id_Emu_Games") = row_Emu_Games_Owner("id_Emu_Games") + row_Rombase_Hits("Hits") = 1 + 'dt_Rombase_Hits.Rows.Add(row_Rombase_Hits) + Else + 'increase + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Owner_Rombase_Entry("id_Rombase")))(0) + row_Rombase_Hits("Hits") += 1 + End If + End If + + 'Rombase Child + If TC.NZ(row_Owner_Rombase_Entry("id_Rombase"), 0) > 0 AndAlso TC.NZ(row_Owner_Rombase_Entry("id_Rombase_Owner"), 0) > 0 Then + If dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Owner_Rombase_Entry("id_Rombase"))).Length = 0 Then + 'add + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Rows.Add() + row_Rombase_Hits("id_Rombase") = row_Owner_Rombase_Entry("id_Rombase") + row_Rombase_Hits("id_Rombase_Owner") = row_Owner_Rombase_Entry("id_Rombase_Owner") + row_Rombase_Hits("Hits") = 1 + 'dt_Rombase_Hits.Rows.Add(row_Rombase_Hits) + Else + 'increase + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Owner_Rombase_Entry("id_Rombase")))(0) + row_Rombase_Hits("Hits") += 1 + End If + End If + Next + + Dim i2 As Integer = 0 + End If + + For Each row_Emu_Games_Children As DataRow In ar_Emu_Games_Children + Dim dt_Child_Rombase_Entries As DataTable = get_All_id_Rombase(tran, row_Emu_Games_Children("size"), row_Emu_Games_Children("crc32"), id_Rombase_DOSBox_Filetypes, UseCache) + + If dt_Child_Rombase_Entries IsNot Nothing AndAlso dt_Child_Rombase_Entries.Rows.Count > 0 Then + For Each row_Child_Rombase_Entry As DataRow In dt_Child_Rombase_Entries.Rows + 'Rombase Owner + If TC.NZ(row_Child_Rombase_Entry("id_Rombase_Owner"), 0) > 0 Then + If dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Child_Rombase_Entry("id_Rombase_Owner"))).Length = 0 Then + 'add + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Rows.Add + row_Rombase_Hits("id_Rombase") = row_Child_Rombase_Entry("id_Rombase_Owner") + row_Rombase_Hits("id_Emu_Games") = row_Emu_Games_Owner("id_Emu_Games") + row_Rombase_Hits("Hits") = 1 + 'dt_Rombase_Hits.Rows.Add(row_Rombase_Hits) + Else + 'increase + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Child_Rombase_Entry("id_Rombase_Owner")))(0) + row_Rombase_Hits("Hits") += 1 + End If + End If + + 'Rombase Child + If TC.NZ(row_Child_Rombase_Entry("id_Rombase"), 0) > 0 Then + If dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Child_Rombase_Entry("id_Rombase"))).Length = 0 Then + 'add + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Rows.Add() + row_Rombase_Hits("id_Rombase") = row_Child_Rombase_Entry("id_Rombase") + row_Rombase_Hits("id_Rombase_Owner") = row_Child_Rombase_Entry("id_Rombase_Owner") + row_Rombase_Hits("id_Emu_Games") = row_Emu_Games_Children("id_Emu_Games") + row_Rombase_Hits("Hits") = 1 + 'dt_Rombase_Hits.Rows.Add(row_Rombase_Hits) + Else + 'increase + Dim row_Rombase_Hits As DataRow = dt_Rombase_Hits.Select("id_Rombase = " & TC.getSQLFormat(row_Child_Rombase_Entry("id_Rombase")))(0) + row_Rombase_Hits("Hits") += 1 + End If + End If + Next + + End If + Next + + Dim id_Rombase_Owner_Chosen As Int64 = 0 + Dim rows_Rombase_Owner_Chosen() As DataRow = dt_Rombase_Hits.Select("id_Rombase_Owner IS NULL AND id_Rombase IS NOT NULL", "Hits DESC") + + Dim max_Hits As Integer = 0 + Dim count_Rombase_Files = 0 + + If rows_Rombase_Owner_Chosen.Length > 0 Then + For Each row_Rombase_Owner_Chosen In rows_Rombase_Owner_Chosen + max_Hits = rows_Rombase_Owner_Chosen(0)("Hits") + Dim ratio_Emu_Games = max_Hits / count_Emu_Games_Files + + If ratio_Emu_Games >= 0.8 Then + id_Rombase_Owner_Chosen = rows_Rombase_Owner_Chosen(0)("id_Rombase") + + If UseCache Then + count_Rombase_Files = get_All_id_Rombase_Owner_Count(id_Rombase_Owner_Chosen) + Else + count_Rombase_Files = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT COUNT(1) FROM rombase.tbl_Rombase WHERE (id_Rombase = " & TC.getSQLFormat(id_Rombase_Owner_Chosen) & " OR id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner_Chosen) & ") AND size IS NOT NULL AND crc IS NOT NULL " & IIf(id_Rombase_DOSBox_Filetypes = -1, "", " AND id_Rombase_DOSBox_FileTypes = " & id_Rombase_DOSBox_Filetypes), tran), 0.0) + End If + + Dim ratio_Rombase = max_Hits / count_Rombase_Files + + If ratio_Rombase < 0.8 Then + 'Hit/CountFiles ratio must be >= 0.8 + id_Rombase_Owner_Chosen = 0 + Else + Exit For 'id_Rombase_Owner_Chosen is OK + End If + End If + Next + End If + + + If id_Rombase_Owner_Chosen > 0 Then + Dim oMoby_Games_URLPart As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Moby_Games_URLPart FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase_Owner_Chosen), tran) + Dim oROMBASE_id_Moby_Platforms As Object = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Moby_Platforms FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(id_Rombase_Owner_Chosen), tran) + + row_Emu_Games_Owner("id_Rombase") = id_Rombase_Owner_Chosen + + If TC.NZ(oMoby_Games_URLPart, "").Length > 0 Then + row_Emu_Games_Owner("Moby_Games_URLPart") = oMoby_Games_URLPart + row_Emu_Games_Owner("Name") = DBNull.Value + row_Emu_Games_Owner("Name_USR") = DBNull.Value + row_Emu_Games_Owner("Publisher_USR") = DBNull.Value + End If + + If TC.NZ(oROMBASE_id_Moby_Platforms, 0) > 0 Then + row_Emu_Games_Owner("ROMBASE_id_Moby_Platforms") = oROMBASE_id_Moby_Platforms + End If + + For Each row_Emu_Games_Children As DataRow In ar_Emu_Games_Children + If TC.NZ(oMoby_Games_URLPart, "").Length > 0 Then + row_Emu_Games_Children("Moby_Games_URLPart") = oMoby_Games_URLPart + row_Emu_Games_Owner("Name") = DBNull.Value + row_Emu_Games_Owner("Publisher") = DBNull.Value + row_Emu_Games_Owner("Name_USR") = DBNull.Value + row_Emu_Games_Owner("Publisher_USR") = DBNull.Value + End If + + If TC.NZ(oROMBASE_id_Moby_Platforms, 0) > 0 Then + row_Emu_Games_Children("ROMBASE_id_Moby_Platforms") = oROMBASE_id_Moby_Platforms + End If + + Dim rows_Rombase_Children As DataRow() = dt_Rombase_Hits.Select("id_Rombase_Owner = " & TC.getSQLFormat(id_Rombase_Owner_Chosen) & " AND id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games_Children("id_Emu_Games"))) + If rows_Rombase_Children.Length = 1 Then + row_Emu_Games_Children("id_Rombase") = rows_Rombase_Children(0)("id_Rombase") + End If + Next + + If bUseDB Then + For Each row_Emu_Games As DataRow In dt_Emu_Games.Select("id_Rombase IS NOT NULL OR Moby_Games_URLPart IS NOT NULL") + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase = " & TC.getSQLFormat(row_Emu_Games("id_Rombase")) & ", Moby_Games_URLPart = " & TC.getSQLFormat(row_Emu_Games("Moby_Games_URLPart")) & ", Name = " & TC.getSQLFormat(row_Emu_Games("Name")) & ", Name_USR = " & TC.getSQLFormat(row_Emu_Games("Name_USR")) & ", Publisher = " & TC.getSQLFormat(row_Emu_Games("Publisher")) & ", Publisher_USR = " & TC.getSQLFormat(row_Emu_Games("Publisher_USR")) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")), tran) + Next + End If + + id_Rombase_Owner = id_Rombase_Owner_Chosen + End If + + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Error while identifying Game: " & ex.Message & ex.StackTrace.ToString) + End Try + + Return id_Rombase_Owner + End Function + + Private Class get_All_id_Rombase_Entry + Public _id_Rombase_DOSBox_Filetypes As Object + Public _id_Rombase As Object + Public _id_Rombase_Owner As Object + + Public Sub New(id_Rombase_DOSBox_Filetypes As Object, id_Rombase As Object, id_Rombase_Owner As Object) + _id_Rombase_DOSBox_Filetypes = id_Rombase_DOSBox_Filetypes + _id_Rombase = id_Rombase + _id_Rombase_Owner = id_Rombase_Owner + End Sub + End Class + + Public Shared get_All_id_Rombase_Cache As Dictionary(Of String, ArrayList) + + Public Shared get_All_id_Rombase_Owner_Count As Dictionary(Of Int64, Int32) + + Public Shared Function get_All_id_Rombase(ByRef tran As SQLite.SQLiteTransaction, ByVal Size As Object, ByVal CRC32 As Object, Optional ByVal id_Rombase_DOSBox_Filetypes As Integer = -1, Optional ByVal UseCache As Boolean = False) As DataTable + If TC.IsNullNothingOrEmpty(Size) OrElse TC.IsNullNothingOrEmpty(CRC32) Then + Return Nothing + End If + + If UseCache Then + If get_All_id_Rombase_Cache Is Nothing Then + get_All_id_Rombase_Cache = New Dictionary(Of String, ArrayList) + get_All_id_Rombase_Owner_Count = New Dictionary(Of Int64, Integer) + + Dim dt_Cache As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Rombase, id_Rombase_Owner, size, crc, id_Rombase_DOSBox_Filetypes FROM rombase.tbl_Rombase WHERE size IS NOT NULL AND crc IS NOT NULL " & IIf(id_Rombase_DOSBox_Filetypes = -1, "", " AND id_Rombase_DOSBox_FileTypes = " & id_Rombase_DOSBox_Filetypes), Nothing, tran) + + For Each row_Cache As DataRow In dt_Cache.Rows + Dim entry As New get_All_id_Rombase_Entry(row_Cache("id_Rombase_DOSBox_Filetypes"), row_Cache("id_Rombase"), row_Cache("id_Rombase_Owner")) + Dim key As String = row_Cache("size") & "|" & row_Cache("crc") + If Not get_All_id_Rombase_Cache.ContainsKey(key) Then + get_All_id_Rombase_Cache(key) = New ArrayList + End If + get_All_id_Rombase_Cache(key).Add(entry) + + Dim id_Rombase As Int64 = row_Cache("id_Rombase") + If Not TC.IsNullNothingOrEmpty(row_Cache("id_Rombase_Owner")) Then id_Rombase = row_Cache("id_Rombase_Owner") + If get_All_id_Rombase_Owner_Count.ContainsKey(id_Rombase) Then + get_All_id_Rombase_Owner_Count(id_Rombase) += 1 + Else + get_All_id_Rombase_Owner_Count(id_Rombase) = 1 + End If + Next + End If + + Dim current_key As String = Size.ToString & "|" & CRC32.ToString + + If get_All_id_Rombase_Cache.ContainsKey(current_key) Then + Dim dt_Result As New DataTable() + dt_Result.Columns.Add("id_Rombase", GetType(Int64)) + dt_Result.Columns.Add("id_Rombase_Owner", GetType(Int64)) + + Dim ar_Result As ArrayList = get_All_id_Rombase_Cache(current_key) + For Each result As get_All_id_Rombase_Entry In ar_Result + Dim row_result As DataRow = dt_Result.NewRow + row_result("id_Rombase") = result._id_Rombase + row_result("id_Rombase_Owner") = result._id_Rombase_Owner + dt_Result.Rows.Add(row_result) + Next + + Return dt_Result + Else + Return Nothing + End If + Else + Return DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Rombase, id_Rombase_Owner FROM rombase.tbl_Rombase WHERE size = " & TC.getSQLFormat(Size) & " AND crc = " & TC.getSQLFormat(CRC32) & IIf(id_Rombase_DOSBox_Filetypes = -1, "", " AND id_Rombase_DOSBox_FileTypes = " & id_Rombase_DOSBox_Filetypes), Nothing, tran) + End If + End Function + + Private Sub bbi_Add_DOSBox_Game_Directory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Add_DOSBox_Game_Directory.ItemClick + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Installed_in_Directory) + End Sub + + Private Sub bbi_Add_DOSBox_Game_Media_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Add_DOSBox_Game_Media.ItemClick + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Install_Media_Files) + End Sub + + Private Sub popmnu_DOSBox_Files_and_Folders_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_DOSBox_Files_and_Folders.BeforePopup + If Not grd_DOSBox_Files_and_Folders.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_Emu_Games.Current Is Nothing Then + e.Cancel = True + Return + End If + + + If BS_DOSBox_Files_and_Folders.Current Is Nothing Then + bbi_DOSBox_Files_and_Folders_Rename.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + bbi_DOSBox_Files_and_Folders_Rename.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + + bbi_DOSBox_Files_and_Folders_Rename.Enabled = False + + 'allow zip, iso, img, img_mount if File = InnerFile + If {cls_Globals.enm_Rombase_DOSBox_Filetypes.zip, cls_Globals.enm_Rombase_DOSBox_Filetypes.iso, cls_Globals.enm_Rombase_DOSBox_Filetypes.img, cls_Globals.enm_Rombase_DOSBox_Filetypes.img_boot}.Contains(BS_DOSBox_Files_and_Folders.Current("id_Rombase_DOSBox_Filetypes")) Then + If Equals(BS_DOSBox_Files_and_Folders.Current("File"), BS_DOSBox_Files_and_Folders.Current("InnerFile")) Then + bbi_DOSBox_Files_and_Folders_Rename.Enabled = True + End If + End If + + 'allow cwd + If {cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd}.Contains(BS_DOSBox_Files_and_Folders.Current("id_Rombase_DOSBox_Filetypes")) Then + bbi_DOSBox_Files_and_Folders_Rename.Enabled = True + End If + + 'do not allow delete on head data + If TC.NZ(BS_DOSBox_Files_and_Folders.Current("id_Emu_Games_Owner"), 0) = 0 Then + 'TODO: currently, there is no delete menu item + End If + End If + End Sub + + Private Sub bbi_DOSBox_Files_and_Folders_Add_Archive_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_DOSBox_Files_and_Folders_Add_Archive.ItemClick + If BS_Emu_Games.Current Is Nothing OrElse TC.NZ(BS_Emu_Games.Current("id_Emu_Games"), 0) = 0 Then Return + + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Packed_Files, Nothing, BS_Emu_Games.Current("id_Emu_Games")) + End Sub + + Private Sub bbi_DOSBox_Files_and_Folders_Add_Directory_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_DOSBox_Files_and_Folders_Add_Directory.ItemClick + If BS_Emu_Games.Current Is Nothing OrElse TC.NZ(BS_Emu_Games.Current("id_Emu_Games"), 0) = 0 Then Return + + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Installed_in_Directory, Nothing, BS_Emu_Games.Current("id_Emu_Games")) + End Sub + + Private Sub bbi_DOSBox_Files_and_Folders_Add_Media_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_DOSBox_Files_and_Folders_Add_Media.ItemClick + If BS_Emu_Games.Current Is Nothing OrElse TC.NZ(BS_Emu_Games.Current("id_Emu_Games"), 0) = 0 Then Return + + Add_DOSBox_Games(enm_DOSBoxAdd_Mode.Install_Media_Files, Nothing, BS_Emu_Games.Current("id_Emu_Games")) + End Sub + + Private Sub bbi_Debug_Apply_TDC_Click(sender As System.Object, e As System.EventArgs) Handles bbi_Debug_Apply_TDC.ItemClick + If Not TC.NZ(cmb_Platform.EditValue, 0) = cls_Globals.enm_Moby_Platforms.dos Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please select the PC - DOS Platform first.") + Return + End If + + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open TDC.mdb", "Access Databases (*.mdb)|*.mdb", ParentForm:=Me) + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then Return + + Dim sResultType As String = "" + Dim sResultDetails As String = "" + + Dim prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing + + Try + Dim acc_conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sFile & ";Persist Security Info=False;") + Dim acc_adapter As New OleDb.OleDbDataAdapter("SELECT * FROM TDC", acc_conn) + Dim dt_TDC As New DataTable("TDC") + acc_adapter.Fill(dt_TDC) + + Dim al_Remove As New ArrayList + + For Each row As DataRow In dt_TDC.Rows + If Not TC.NZ(row("MobyURL"), "").Contains("/") AndAlso Not TC.NZ(row("MobyURL"), "").Contains("mobygames") Then + al_Remove.Add(row) + Else + Dim ar_MobyURL As String() = TC.NZ(row("MobyURL"), "").Split("/") + row("MobyURL") = ar_MobyURL(ar_MobyURL.Length - 1) + row("long filename") = TC.NZ(row("long filename"), "").ToLower.Trim().Replace("'", "''") + End If + Next + + For Each row As DataRow In al_Remove + dt_TDC.Rows.Remove(row) + Next + + Dim rows_Owner As DataRow() = DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NULL") + + Dim dt_Results As New DataTable("Results") + dt_Results.Columns.Add("Type", GetType(System.String)) + dt_Results.Columns.Add("Details", GetType(System.String)) + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Processing file {0} of {1}", 0, rows_Owner.Length, False) + prg.Start() + + Dim GC_Counter As Integer = 0 + + For Each row_Owner As DataRow In rows_Owner + prg.IncreaseCurrentValue() + + GC_Counter += 1 + + Dim sOwnerFilename = TC.NZ(row_Owner("File"), "").ToLower.Trim.Replace("'", "''") + + sResultType = "OK" + sResultDetails = sOwnerFilename + + Dim rows_TDC As DataRow() = dt_TDC.Select("[long filename] = '" & sOwnerFilename & "'") + + If rows_TDC.Length = 0 Then + sResultType = "NOTASSIGNED" + Else + If rows_TDC.Length = 1 Then + Dim sOwner_MobyURL As String = TC.NZ(row_Owner("Moby_Games_URLPart"), "") + Dim sTDC_MobyURL As String = TC.NZ(rows_TDC(0)("MobyURL"), "") + + If sOwner_MobyURL = "" Then + Dim rows_Moby_Releases() As DataRow = Me.DS_MobyDB.src_Moby_Releases.Select("Moby_Games_URLPart = '" & sTDC_MobyURL & "'") + + If rows_Moby_Releases.Length = 0 Then + sResultType = "NOTFOUND" + sResultDetails &= ": not found '" & sTDC_MobyURL & "'" + End If + + If rows_Moby_Releases.Length > 1 Then + sResultType = "MULTIPLEFOUND" + sResultDetails &= ": multiple found '" & sTDC_MobyURL & "'" + End If + + If rows_Moby_Releases.Length = 1 Then + 'Set_Moby_Link(BS_Emu_Games.Current.Row, BS_Moby_Releases.Current.row) + Set_Moby_Link(row_Owner, rows_Moby_Releases(0)) + + sResultType = "ASSIGNED" + sResultDetails &= ": assigned to '" & sTDC_MobyURL & "'" + End If + Else + If sOwner_MobyURL = sTDC_MobyURL Then + sResultType = "SAME" + sResultDetails &= ": '" & sOwner_MobyURL & "'" + Else + sResultType = "DIFFERENT" + sResultDetails &= ": '" & sOwner_MobyURL & "' <> '" & sTDC_MobyURL & "'" + End If + End If + Else + sResultType = "MULTIPLEFOUND" + End If + End If + + 'Write Results + Dim row_Result As DataRow = dt_Results.NewRow + row_Result("Type") = sResultType + row_Result("Details") = sResultDetails + dt_Results.Rows.Add(row_Result) + + 'Prevent Out-of-Memory Exceptions + If GC_Counter = 10 Then + GC.Collect() + GC_Counter = 0 + End If + Next + + Dim sb_Result As New System.Text.StringBuilder + + Dim rows_NOTASSIGNED As DataRow() = dt_Results.Select("Type = 'NOTASSIGNED'") + sb_Result.AppendLine("### Not assigned: " & rows_NOTASSIGNED.Length & " ###") + For Each row_NOTASSIGNED In rows_NOTASSIGNED + sb_Result.AppendLine(row_NOTASSIGNED("Details")) + Next + sb_Result.AppendLine("") + + Dim rows_ASSIGNED As DataRow() = dt_Results.Select("Type = 'ASSIGNED'") + sb_Result.AppendLine("### Assigned: " & rows_ASSIGNED.Length & " ###") + For Each row_ASSIGNED In rows_ASSIGNED + sb_Result.AppendLine(row_ASSIGNED("Details")) + Next + sb_Result.AppendLine("") + + Dim rows_SAME As DataRow() = dt_Results.Select("Type = 'SAME'") + sb_Result.AppendLine("### Same: " & rows_SAME.Length & " ###") + For Each row_SAME In rows_SAME + sb_Result.AppendLine(row_SAME("Details")) + Next + sb_Result.AppendLine("") + + Dim rows_DIFFERENT As DataRow() = dt_Results.Select("Type = 'DIFFERENT'") + sb_Result.AppendLine("### Different: " & rows_DIFFERENT.Length & " ###") + For Each row_DIFFERENT In rows_DIFFERENT + sb_Result.AppendLine(row_DIFFERENT("Details")) + Next + sb_Result.AppendLine("") + + Dim rows_MULTIPLEFOUND As DataRow() = dt_Results.Select("Type = 'MULTIPLEFOUND'") + sb_Result.AppendLine("### Multiple found: " & rows_MULTIPLEFOUND.Length & " ###") + For Each row_MULTIPLEFOUND In rows_MULTIPLEFOUND + sb_Result.AppendLine(row_MULTIPLEFOUND("Details")) + Next + sb_Result.AppendLine("") + + Dim rows_NOTFOUND As DataRow() = dt_Results.Select("Type = 'NOTFOUND'") + sb_Result.AppendLine("### URL not found: " & rows_NOTFOUND.Length & " ###") + For Each row_NOTFOUND In rows_NOTFOUND + sb_Result.AppendLine(row_NOTFOUND("Details")) + Next + sb_Result.AppendLine("") + + If prg IsNot Nothing Then prg.Close() + + Dim frm As New MKNetDXLib.frm_MKDXMemoEdit(sb_Result.ToString) + frm.Text = "Results" + frm.ShowDialog(Me) + + Catch ex As Exception + If prg IsNot Nothing Then prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show(sResultDetails & ControlChars.CrLf & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.StackTrace.ToString, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + End Sub + + Private Sub cmb_DOSBox_Type_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_DOSBox_Type.EditValueChanged + If TC.IsNullNothingOrEmpty(cmb_DOSBox_Type.EditValue) Then + lbl_DOSBox_Exe_Type.Visible = False + cmb_DOSBox_Exe_Type.Visible = False + lbl_DOSBox_Mount_Destination.Visible = False + cmb_DOSBox_Mount_Destination.Visible = False + lbl_DOSBox_Volume_Number.Visible = False + cmb_DOSBox_Volume_Number.Visible = False + End If + + If {cls_Globals.enm_Rombase_DOSBox_Filetypes.zip, cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd, cls_Globals.enm_Rombase_DOSBox_Filetypes.iso, cls_Globals.enm_Rombase_DOSBox_Filetypes.img, cls_Globals.enm_Rombase_DOSBox_Filetypes.img_boot}.Contains(TC.NZ(cmb_DOSBox_Type.EditValue, 0)) Then 'Packed Content, CWD, CD Image, Floppy Image, Floppy Booter + lbl_DOSBox_Exe_Type.Visible = False + cmb_DOSBox_Exe_Type.Visible = False + lbl_DOSBox_Mount_Destination.Visible = True + cmb_DOSBox_Mount_Destination.Visible = True + lbl_DOSBox_Volume_Number.Visible = True + cmb_DOSBox_Volume_Number.Visible = True + End If + + If {cls_Globals.enm_Rombase_DOSBox_Filetypes.exe}.Contains(TC.NZ(cmb_DOSBox_Type.EditValue, 0)) Then 'Executable + lbl_DOSBox_Exe_Type.Visible = True + cmb_DOSBox_Exe_Type.Visible = True + lbl_DOSBox_Mount_Destination.Visible = False + cmb_DOSBox_Mount_Destination.Visible = False + lbl_DOSBox_Volume_Number.Visible = False + cmb_DOSBox_Volume_Number.Visible = False + End If + End Sub + + Private Sub bbi_DOSBox_Files_and_Folders_Rename_Click(sender As System.Object, e As System.EventArgs) Handles bbi_DOSBox_Files_and_Folders_Rename.ItemClick + If BS_DOSBox_Files_and_Folders.Current Is Nothing Then Return + + Dim sOldFile As String = TC.NZ(BS_DOSBox_Files_and_Folders.Current("File"), "") + If sOldFile = "" Then + Dim folder As String = TC.NZ(BS_DOSBox_Files_and_Folders.Current("Folder"), "") + Dim folder_parts As String() = folder.Split("\") + sOldFile = folder_parts(folder_parts.Length - 1) + End If + Dim sNewFile As String = "" + + Using frm As New MKNetDXLib.frm_TextBoxEdit("New Name:", "Please enter the new name in the box below.", sOldFile, False) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + sNewFile = frm.Input + End If + End Using + + If sNewFile = sOldFile Then + Return + End If + + Cursor = Cursors.WaitCursor + + Try + If sNewFile <> "" Then + If Not TC.IsNullNothingOrEmpty(BS_DOSBox_Files_and_Folders.Current("File")) AndAlso Not TC.IsNullNothingOrEmpty(BS_DOSBox_Files_and_Folders.Current("InnerFile")) AndAlso Equals(BS_DOSBox_Files_and_Folders.Current("File"), BS_DOSBox_Files_and_Folders.Current("InnerFile")) Then + 'Renaming a file (can be zipfile with dependencies!) + Dim sOldPath As String = BS_DOSBox_Files_and_Folders.Current("Folder") & "\" & sOldFile + Dim sNewPath As String = BS_DOSBox_Files_and_Folders.Current("Folder") & "\" & sNewFile + + If Alphaleonis.Win32.Filesystem.File.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("You are about to rename '" & sOldPath & "' to '" & sNewPath & "' also on the file system. Do you want to continue?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + Cursor = Cursors.WaitCursor + End If + If Not Alphaleonis.Win32.Filesystem.File.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("It appears that neither '" & sOldPath & "' nor '" & sNewPath & "' exist on the file system. Do you want to continue renaming the locations in the database?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + Cursor = Cursors.WaitCursor + End If + + If Alphaleonis.Win32.Filesystem.File.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(sNewPath) Then + Alphaleonis.Win32.Filesystem.File.Move(sOldPath, sNewPath) + End If + + Dim rows_affected As DataRow() = Me.DS_ML.tbl_Emu_Games.Select("Folder = " & TC.getSQLFormat(BS_DOSBox_Files_and_Folders.Current("Folder")) & " AND File = " & TC.getSQLFormat(sOldFile)) + + For Each row_affected As DataRow In rows_affected + row_affected("File") = sNewFile + If row_affected("InnerFile") = sOldFile Then + row_affected("InnerFile") = sNewFile + End If + Next + + If Alphaleonis.Win32.Filesystem.Path.GetExtension(sNewPath).ToLower = ".cue" Then + If Alphaleonis.Win32.Filesystem.File.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("You have renamed a .cue file, do you also want to rename a bin file referenced by it accordingly?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + Cursor = Cursors.WaitCursor + + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(sNewPath) + Dim arContent As String() = sContent.Split(ControlChars.CrLf) + Dim sbNewContent As New System.Text.StringBuilder + For Each sLine As String In arContent + sLine = sLine.Replace(ControlChars.Cr, "").Replace(ControlChars.Lf, "") + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(sLine, "file(.*?)binary", 521) 'with ignorecase + If matches.Count > 0 Then + Dim sOldBinFile As String = matches(0).Groups(1).Value.Replace("""", "").Trim + Dim sNewBinFile As String = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(sNewFile) & ".bin" + Dim sOldBinPath As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sOldPath) & "\" & sOldBinFile + Dim sNewBinPath As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sNewPath) & "\" & sNewBinFile + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("It appears that neither '" & sOldBinPath & "' nor '" & sNewBinPath & "' exist on the file system. Do you want to continue renaming the location in the .cue file?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + sbNewContent.AppendLine(sLine) + Cursor = Cursors.WaitCursor + Continue For + End If + End If + + If Alphaleonis.Win32.Filesystem.File.Exists(sOldBinPath) AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(sNewBinPath) Then + Alphaleonis.Win32.Filesystem.File.Move(sOldBinPath, sNewBinPath) + End If + + sbNewContent.AppendLine("FILE """ & sNewBinFile & """ BINARY") + Else + sbNewContent.AppendLine(sLine) + End If + Next + MKNetLib.cls_MKFileSupport.SaveTextToFile(sbNewContent.ToString, sNewPath) + End If + End If + Else + If TC.NZ(BS_DOSBox_Files_and_Folders.Current("InnerFile"), "") = "" Then + 'TODO: Renaming Directory (dont forget dependencies) + Dim sOldPath As String = BS_DOSBox_Files_and_Folders.Current("Folder") + Dim sNewPath As String = MKNetLib.cls_MKStringSupport.Clean_Right(BS_DOSBox_Files_and_Folders.Current("Folder"), sOldFile) & sNewFile + + If Alphaleonis.Win32.Filesystem.Directory.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.Directory.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("You are about to rename '" & sOldPath & "' to '" & sNewPath & "' also on the file system. Do you want to continue?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + Cursor = Cursors.WaitCursor + End If + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.Directory.Exists(sNewPath) Then + Cursor = Cursors.Default + If DevExpress.XtraEditors.XtraMessageBox.Show("It appears that neither '" & sOldPath & "' nor '" & sNewPath & "' exist on the file system. Do you want to continue renaming the locations in the database?", "Rename", MessageBoxButtons.YesNoCancel) <> Windows.Forms.DialogResult.Yes Then + Return + End If + Cursor = Cursors.WaitCursor + End If + + If Alphaleonis.Win32.Filesystem.Directory.Exists(sOldPath) AndAlso Not Alphaleonis.Win32.Filesystem.Directory.Exists(sNewPath) Then + Alphaleonis.Win32.Filesystem.Directory.Move(sOldPath, sNewPath) + End If + + Dim rows_affected As DataRow() = Me.DS_ML.tbl_Emu_Games.Select("Folder LIKE " & TC.getSQLFormat(sOldPath & "%")) + + For Each row_affected As DataRow In rows_affected + row_affected("Folder") = sNewPath & MKNetLib.cls_MKStringSupport.Clean_Left(row_affected("Folder"), sOldPath) + If row_affected("File") = sOldFile Then + row_affected("File") = sNewFile + End If + Next + End If + + End If + + End If + Catch ex As Exception + Cursor = Cursors.Default + DevExpress.XtraEditors.XtraMessageBox.Show("An error occured: " & ex.Message, "Rename", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + + Cursor = Cursors.Default + End Sub + + Private Sub bbi_Moby_Games_Evaluate_Links_Click(sender As Object, e As EventArgs) Handles bbi_Moby_Games_Evaluate_Links.ItemClick + Cursor = Cursors.WaitCursor + + Dim ar_Have As New ArrayList + For Each row_Emu_Games As DataRow In DS_ML.tbl_Emu_Games.Rows + If Not {DataRowState.Deleted, DataRowState.Detached}.Contains(row_Emu_Games.RowState) Then + Dim Moby_Games_URLPart As String = TC.NZ(row_Emu_Games("Moby_Games_URLPart"), "") + Moby_Games_URLPart = Replace(Moby_Games_URLPart, "\", "") + + If Moby_Games_URLPart <> "" Then + If Not ar_Have.Contains(Moby_Games_URLPart) Then + ar_Have.Add(Moby_Games_URLPart) + End If + End If + End If + Next + + Dim ar_Missing As New ArrayList + Dim ar_Moby_Total As New ArrayList + For Each row_Moby_Releases As DataRow In Me.DS_MobyDB.src_Moby_Releases.Rows + Dim sURLPart As String = row_Moby_Releases("Moby_Games_URLPart").ToString.Replace("\", "") + + If Not ar_Moby_Total.Contains(sURLPart) Then + ar_Moby_Total.Add(sURLPart) + End If + + If Not ar_Have.Contains(sURLPart) Then + row_Moby_Releases("Highlighted") = True + If Not ar_Missing.Contains(sURLPart) Then + ar_Missing.Add(sURLPart) + End If + Else + row_Moby_Releases("Highlighted") = False + End If + Next + + Dim sMessage As String = "" + sMessage &= "Out of " & ar_Moby_Total.Count & " distinct MobyGames Releases, " & ar_Have.Count & " are linked to a Game, " & ar_Missing.Count & " are missing." & ControlChars.CrLf + sMessage &= "The link ratio is " & CInt(CDbl(ar_Have.Count) * 100 / CDbl(ar_Moby_Total.Count)) & "%. Any missing MobyGame Release is highlighted." + sMessage &= ControlChars.CrLf & ControlChars.CrLf & CInt(CDbl(ar_Have.Count) * 100 / CDbl(ar_Moby_Total.Count)) & "% (" & ar_Have.Count & " / " & ar_Moby_Total.Count & ")" + + DevExpress.XtraEditors.XtraMessageBox.Show(sMessage, "Evaluate MobyGames Links", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Cursor = Cursors.Default + End Sub + + Private Sub bbi_Auto_Link_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Auto_Link.ItemClick + If BS_Moby_Platforms.Current Is Nothing Then + Return + End If + + Dim autolinkOptions As frm_Moby_Auto_Link_Options.cls_Moby_Auto_Link_Options + + Using frm As New frm_Moby_Auto_Link_Options + If frm.ShowDialog <> DialogResult.OK Then + Return + End If + + autolinkOptions = frm.Result + End Using + + Dim tbl_Moby_Auto_Link As New DS_ML.tbl_Moby_Auto_LinkDataTable + + Dim rows_Emu_Games As DS_ML.tbl_Emu_GamesRow() = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games_Owner IS NULL AND Moby_Games_URLPart IS NULL") + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Preparing Game data ...", 0, rows_Emu_Games.Length, False) + prg.Start() + + For Each row_Emu_Games As DS_ML.tbl_Emu_GamesRow In rows_Emu_Games + prg.IncreaseCurrentValue() + + Dim row_Auto_Link As DS_ML.tbl_Moby_Auto_LinkRow = tbl_Moby_Auto_Link.NewRow + row_Auto_Link.id = row_Emu_Games.id_Emu_Games + + If TC.NZ(row_Emu_Games("CustomIdentifier"), "") <> "" Then + row_Auto_Link.Identifier = row_Emu_Games("CustomIdentifier") + Else + row_Auto_Link.Identifier = TC.NZ(row_Emu_Games("crc32"), "") + End If + + Dim GameName As String = "" + + If TC.NZ(row_Emu_Games.InnerFile, "") <> "" Then + GameName = row_Emu_Games.InnerFile + End If + + If GameName = "" Then + GameName = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(row_Emu_Games.Folder) + End If + + row_Auto_Link.GameName = row_Emu_Games.InnerFile + + tbl_Moby_Auto_Link.Rows.Add(row_Auto_Link) + Next + + prg.Close() + + If tbl_Moby_Auto_Link.Rows.Count = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("All entries are already linked, no need for an auto link.") + Return + End If + + Dim src_Moby_Releases As New DS_MobyDB.src_Moby_ReleasesDataTable + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Preparing Moby data ...", 0, Me.DS_MobyDB.src_Moby_Releases.Rows.Count, False) + prg.Start() + + For Each row_Moby_Releases As DS_MobyDB.src_Moby_ReleasesRow In Me.DS_MobyDB.src_Moby_Releases.Rows + src_Moby_Releases.ImportRow(row_Moby_Releases) + Next + + For Each row_Moby_Releases As DS_MobyDB.src_Moby_ReleasesRow In src_Moby_Releases.Rows + prg.IncreaseCurrentValue() + Next + + prg.Close() + + sExplanation = "The left list shows all your games that had previously missing MobyGames links. If a match with a MobyGames release has been found, the corresponding fields (Moby Gamename, Match Accuracy etc.) have values. If the match accuracy is exactly 100%, the link is automatically set to be applied (see Apply column). Please thoroughly review these results and check/uncheck the Apply checkbox (by click or by pressing Enter). You can also re-link with another MobyGames release by doubleclicking the release on the right list." + + Using frm As New frm_Moby_Auto_Link(tbl_Moby_Auto_Link, src_Moby_Releases, sExplanation, autolinkOptions, BS_Moby_Platforms.Current("URLPart")) + If frm.ShowDialog() = DialogResult.OK Then + Dim iLinkCount As Integer = 0 + + For Each rowAutoLink As DS_ML.tbl_Moby_Auto_LinkRow In frm.DS_ML.tbl_Moby_Auto_Link.Select("Apply = 1") + Dim rowsEmuGames() As DS_ML.tbl_Emu_GamesRow = Me.DS_ML.tbl_Emu_Games.Select("id_Emu_Games = " & TC.getSQLFormat(rowAutoLink.id)) + + If rowsEmuGames.Length = 1 Then + Dim rowsMobyReleases() As DS_MobyDB.src_Moby_ReleasesRow = Me.DS_MobyDB.src_Moby_Releases.Select("id_Moby_Releases = " & TC.getSQLFormat(rowAutoLink.Match_id_Moby_Releases)) + + If rowsMobyReleases.Count = 1 Then + iLinkCount += 1 + Set_Moby_Link(rowsEmuGames(0), rowsMobyReleases(0)) + End If + End If + Next + + DevExpress.XtraEditors.XtraMessageBox.Show(iLinkCount & " links have been applied.", "Auto-Link") + End If + End Using + End Sub + + Private Sub popmnu_Moby_Games_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_Moby_Games.BeforePopup + If Not grd_Moby_Releases.Allow_Popup Then + e.Cancel = True + Return + End If + End Sub + + Private Sub gv_Emu_Games_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Emu_Games.MouseMove + Me.grd_Emu_Games.ShowHandInColumns(gv_Emu_Games, {"Hidden"}, e) + End Sub + + Private Sub gv_Emu_Games_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gv_Emu_Games.FocusedRowChanged, gv_MV.FocusedRowChanged, gv_DOSBox_Files_and_Folders.FocusedRowChanged + Dim gv As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevExpress.XtraGrid.Views.Grid.GridView) + + If TC.NZ(gv.GetIncrementalText(), "") <> "" Then + gv.ClearSelection() + gv.SelectRow(gv.FocusedRowHandle) + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.Designer.vb b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.Designer.vb new file mode 100644 index 0000000..c7cd5b0 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.Designer.vb @@ -0,0 +1,160 @@ + _ +Partial Class frm_Rom_Manager_ChangeDirectory + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.lbl_New = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Old = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_NewDir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_OldDir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_OpenDir = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.txb_NewDir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_OldDir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_New + ' + Me.lbl_New.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_New.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_New.Location = New System.Drawing.Point(3, 49) + Me.lbl_New.MKBoundControl1 = Nothing + Me.lbl_New.MKBoundControl2 = Nothing + Me.lbl_New.MKBoundControl3 = Nothing + Me.lbl_New.MKBoundControl4 = Nothing + Me.lbl_New.MKBoundControl5 = Nothing + Me.lbl_New.Name = "lbl_New" + Me.lbl_New.Size = New System.Drawing.Size(110, 20) + Me.lbl_New.TabIndex = 6 + Me.lbl_New.Text = "New Directory:" + ' + 'lbl_Old + ' + Me.lbl_Old.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Old.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Old.Location = New System.Drawing.Point(3, 26) + Me.lbl_Old.MKBoundControl1 = Nothing + Me.lbl_Old.MKBoundControl2 = Nothing + Me.lbl_Old.MKBoundControl3 = Nothing + Me.lbl_Old.MKBoundControl4 = Nothing + Me.lbl_Old.MKBoundControl5 = Nothing + Me.lbl_Old.Name = "lbl_Old" + Me.lbl_Old.Size = New System.Drawing.Size(110, 20) + Me.lbl_Old.TabIndex = 5 + Me.lbl_Old.Text = "Old Directory:" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(350, 87) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 4 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(272, 87) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 3 + Me.btn_OK.Text = "&OK" + ' + 'txb_NewDir + ' + Me.txb_NewDir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_NewDir.Location = New System.Drawing.Point(116, 49) + Me.txb_NewDir.MKBoundLabel = Nothing + Me.txb_NewDir.MKEditValue_Compare = Nothing + Me.txb_NewDir.Name = "txb_NewDir" + Me.txb_NewDir.Size = New System.Drawing.Size(266, 20) + Me.txb_NewDir.TabIndex = 1 + ' + 'txb_OldDir + ' + Me.txb_OldDir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_OldDir.Location = New System.Drawing.Point(116, 26) + Me.txb_OldDir.MKBoundLabel = Nothing + Me.txb_OldDir.MKEditValue_Compare = Nothing + Me.txb_OldDir.Name = "txb_OldDir" + Me.txb_OldDir.Properties.ReadOnly = True + Me.txb_OldDir.Size = New System.Drawing.Size(309, 20) + Me.txb_OldDir.TabIndex = 0 + ' + 'btn_OpenDir + ' + Me.btn_OpenDir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OpenDir.Location = New System.Drawing.Point(385, 49) + Me.btn_OpenDir.Name = "btn_OpenDir" + Me.btn_OpenDir.Size = New System.Drawing.Size(40, 20) + Me.btn_OpenDir.TabIndex = 2 + Me.btn_OpenDir.Text = "..." + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Explanation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Explanation.Location = New System.Drawing.Point(3, 3) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Size = New System.Drawing.Size(422, 20) + Me.lbl_Explanation.TabIndex = 14 + Me.lbl_Explanation.Text = "Changing this directory will affect %1% games." + ' + 'frm_Rom_Manager_ChangeDirectory + ' + Me.ClientSize = New System.Drawing.Size(428, 113) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.txb_NewDir) + Me.Controls.Add(Me.txb_OldDir) + Me.Controls.Add(Me.btn_OpenDir) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.lbl_New) + Me.Controls.Add(Me.lbl_Old) + Me.Name = "frm_Rom_Manager_ChangeDirectory" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Change Directory" + CType(Me.txb_NewDir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_OldDir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_New As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Old As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_NewDir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_OldDir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_OpenDir As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.resx b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.vb b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.vb new file mode 100644 index 0000000..f383a69 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager_ChangeDirectory.vb @@ -0,0 +1,37 @@ +Public Class frm_Rom_Manager_ChangeDirectory + + Public ReadOnly Property NewDir As String + Get + Return txb_NewDir.Text + End Get + End Property + + Public Sub New(ByVal OldDir As String, ByVal NumRoms As Integer) + InitializeComponent() + + Me.txb_OldDir.Text = OldDir + lbl_Explanation.Text = lbl_Explanation.Text.Replace("%1%", NumRoms.ToString) + End Sub + + Private Sub btn_OpenDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OpenDir.Click + Dim sDir As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog(txb_OldDir.Text) + If Alphaleonis.Win32.Filesystem.Directory.Exists(sDir) Then + txb_NewDir.Text = sDir + End If + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_NewDir.Text) Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please select a valid new directory first.", "Invalid new directory", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return + End If + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rombase_Manager.Designer.vb b/Metropolis_Launcher/Forms/frm_Rombase_Manager.Designer.vb new file mode 100644 index 0000000..0de3252 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rombase_Manager.Designer.vb @@ -0,0 +1,684 @@ + _ +Partial Class frm_ROMBase_Manager + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_ROMBase_Manager)) + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Save = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Platform = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Moby_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() + Me.grd_DAT = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Rombase = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Rombase = New Metropolis_Launcher.DS_Rombase() + Me.gv_DAT = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colid_rombase = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colfilename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Moby_Platforms = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Moby_Platforms_gv1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Moby_Platforms_gv1 = New System.Windows.Forms.BindingSource(Me.components) + Me.colid_Moby_Releases = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Moby_Release = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Moby_Releases = New System.Windows.Forms.BindingSource(Me.components) + Me.colmd5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colsha1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCustomIdentifier = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.grd_Moby_Releases = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Moby_Releases = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGamename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHighlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colcreated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDeveloper = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPublisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BS_Moby_Platforms_gv2 = New System.Windows.Forms.BindingSource(Me.components) + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Copy_Name_to_Clipboard = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_DAT_XML = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_CSV_Customidentifier_Name = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_CSV_SegaCD = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_CSV_Saturn = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_CSV_DreamCast = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Remove_Link = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Load_XML = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Write_XML = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Open_Moby_Page = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Evaluate_Moby_Links = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Auto_Link = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_Games_from_DAT = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Rombase = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Moby_Games = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.coldeprecated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.coldeprecated1 = New DevExpress.XtraGrid.Columns.GridColumn() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_DAT, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_DAT, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms_gv2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl_Left + ' + Me.pnl_Left.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Left.Controls.Add(Me.btn_Save) + Me.pnl_Left.Controls.Add(Me.lbl_Platform) + Me.pnl_Left.Controls.Add(Me.cmb_Platform) + Me.pnl_Left.Controls.Add(Me.grd_DAT) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(497, 669) + Me.pnl_Left.TabIndex = 0 + ' + 'btn_Save + ' + Me.btn_Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Save.Location = New System.Drawing.Point(402, 3) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(91, 20) + Me.btn_Save.TabIndex = 1 + Me.btn_Save.Text = "&Save" + ' + 'lbl_Platform + ' + Me.lbl_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platform.Location = New System.Drawing.Point(3, 3) + Me.lbl_Platform.MKBoundControl1 = Nothing + Me.lbl_Platform.MKBoundControl2 = Nothing + Me.lbl_Platform.MKBoundControl3 = Nothing + Me.lbl_Platform.MKBoundControl4 = Nothing + Me.lbl_Platform.MKBoundControl5 = Nothing + Me.lbl_Platform.Name = "lbl_Platform" + Me.lbl_Platform.Size = New System.Drawing.Size(90, 20) + Me.lbl_Platform.TabIndex = 2 + Me.lbl_Platform.Text = "Platform:" + ' + 'cmb_Platform + ' + Me.cmb_Platform.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Platform.Location = New System.Drawing.Point(96, 3) + Me.cmb_Platform.MKBoundLabel = Nothing + Me.cmb_Platform.MKEditValue_Compare = Nothing + Me.cmb_Platform.Name = "cmb_Platform" + Me.cmb_Platform.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Platform.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Platforms", "id_Moby_Platforms", 114, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Display_Name", "Display_Name", 77, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Platform.Properties.DataSource = Me.BS_Moby_Platforms + Me.cmb_Platform.Properties.DisplayMember = "Display_Name" + Me.cmb_Platform.Properties.NullText = "please choose..." + Me.cmb_Platform.Properties.ShowHeader = False + Me.cmb_Platform.Properties.ValueMember = "id_Moby_Platforms" + Me.cmb_Platform.Size = New System.Drawing.Size(303, 20) + Me.cmb_Platform.TabIndex = 0 + ' + 'BS_Moby_Platforms + ' + Me.BS_Moby_Platforms.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms.DataSource = Me.DS_MobyDB + ' + 'DS_MobyDB + ' + Me.DS_MobyDB.DataSetName = "DS_MobyDB" + Me.DS_MobyDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'grd_DAT + ' + Me.grd_DAT.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_DAT.DataSource = Me.BS_Rombase + Me.grd_DAT.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_DAT.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_DAT.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_DAT.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_DAT.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_DAT.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_DAT.Location = New System.Drawing.Point(3, 26) + Me.grd_DAT.MainView = Me.gv_DAT + Me.grd_DAT.Name = "grd_DAT" + Me.grd_DAT.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Moby_Release, Me.rpi_Moby_Platforms_gv1}) + Me.grd_DAT.Size = New System.Drawing.Size(491, 640) + Me.grd_DAT.TabIndex = 2 + Me.grd_DAT.UseEmbeddedNavigator = True + Me.grd_DAT.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DAT}) + ' + 'BS_Rombase + ' + Me.BS_Rombase.DataMember = "tbl_Rombase" + Me.BS_Rombase.DataSource = Me.DS_Rombase + ' + 'DS_Rombase + ' + Me.DS_Rombase.DataSetName = "DS_Rombase" + Me.DS_Rombase.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_DAT + ' + Me.gv_DAT.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colid_rombase, Me.colfilename, Me.colid_Moby_Platforms, Me.colid_Moby_Releases, Me.colmd5, Me.colsha1, Me.colCustomIdentifier, Me.coldeprecated}) + Me.gv_DAT.GridControl = Me.grd_DAT + Me.gv_DAT.Name = "gv_DAT" + Me.gv_DAT.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_DAT.OptionsSelection.MultiSelect = True + Me.gv_DAT.OptionsView.ColumnAutoWidth = False + Me.gv_DAT.OptionsView.ShowGroupPanel = False + ' + 'colid_rombase + ' + Me.colid_rombase.FieldName = "id_rombase" + Me.colid_rombase.Name = "colid_rombase" + Me.colid_rombase.OptionsColumn.AllowEdit = False + Me.colid_rombase.OptionsColumn.ReadOnly = True + ' + 'colfilename + ' + Me.colfilename.Caption = "Filename" + Me.colfilename.FieldName = "filename" + Me.colfilename.Name = "colfilename" + Me.colfilename.OptionsColumn.AllowEdit = False + Me.colfilename.OptionsColumn.ReadOnly = True + Me.colfilename.Visible = True + Me.colfilename.VisibleIndex = 0 + Me.colfilename.Width = 277 + ' + 'colid_Moby_Platforms + ' + Me.colid_Moby_Platforms.Caption = "Platform" + Me.colid_Moby_Platforms.ColumnEdit = Me.rpi_Moby_Platforms_gv1 + Me.colid_Moby_Platforms.FieldName = "id_Moby_Platforms" + Me.colid_Moby_Platforms.Name = "colid_Moby_Platforms" + Me.colid_Moby_Platforms.OptionsColumn.AllowEdit = False + Me.colid_Moby_Platforms.OptionsColumn.ReadOnly = True + Me.colid_Moby_Platforms.Width = 112 + ' + 'rpi_Moby_Platforms_gv1 + ' + Me.rpi_Moby_Platforms_gv1.AutoHeight = False + Me.rpi_Moby_Platforms_gv1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Platforms_gv1.DataSource = Me.BS_Moby_Platforms_gv1 + Me.rpi_Moby_Platforms_gv1.DisplayMember = "Display_Name" + Me.rpi_Moby_Platforms_gv1.Name = "rpi_Moby_Platforms_gv1" + Me.rpi_Moby_Platforms_gv1.ValueMember = "id_Moby_Platforms" + ' + 'BS_Moby_Platforms_gv1 + ' + Me.BS_Moby_Platforms_gv1.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms_gv1.DataSource = Me.DS_MobyDB + ' + 'colid_Moby_Releases + ' + Me.colid_Moby_Releases.Caption = "Moby Release" + Me.colid_Moby_Releases.ColumnEdit = Me.rpi_Moby_Release + Me.colid_Moby_Releases.FieldName = "id_Moby_Releases" + Me.colid_Moby_Releases.Name = "colid_Moby_Releases" + Me.colid_Moby_Releases.OptionsColumn.AllowEdit = False + Me.colid_Moby_Releases.OptionsColumn.ReadOnly = True + Me.colid_Moby_Releases.Visible = True + Me.colid_Moby_Releases.VisibleIndex = 1 + Me.colid_Moby_Releases.Width = 175 + ' + 'rpi_Moby_Release + ' + Me.rpi_Moby_Release.AutoHeight = False + Me.rpi_Moby_Release.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Moby_Release.DataSource = Me.BS_Moby_Releases + Me.rpi_Moby_Release.DisplayMember = "Gamename" + Me.rpi_Moby_Release.Name = "rpi_Moby_Release" + Me.rpi_Moby_Release.NullText = "" + Me.rpi_Moby_Release.ValueMember = "id_Moby_Releases" + ' + 'BS_Moby_Releases + ' + Me.BS_Moby_Releases.DataMember = "src_Moby_Releases" + Me.BS_Moby_Releases.DataSource = Me.DS_MobyDB + ' + 'colmd5 + ' + Me.colmd5.FieldName = "md5" + Me.colmd5.Name = "colmd5" + Me.colmd5.OptionsColumn.AllowEdit = False + Me.colmd5.OptionsColumn.ReadOnly = True + ' + 'colsha1 + ' + Me.colsha1.FieldName = "sha1" + Me.colsha1.Name = "colsha1" + Me.colsha1.OptionsColumn.AllowEdit = False + Me.colsha1.OptionsColumn.ReadOnly = True + ' + 'colCustomIdentifier + ' + Me.colCustomIdentifier.FieldName = "CustomIdentifier" + Me.colCustomIdentifier.Name = "colCustomIdentifier" + Me.colCustomIdentifier.OptionsColumn.AllowEdit = False + Me.colCustomIdentifier.OptionsColumn.ReadOnly = True + ' + 'Ctl_MKDXSplitter1 + ' + Me.Ctl_MKDXSplitter1.Location = New System.Drawing.Point(497, 0) + Me.Ctl_MKDXSplitter1.Name = "Ctl_MKDXSplitter1" + Me.Ctl_MKDXSplitter1.Size = New System.Drawing.Size(5, 669) + Me.Ctl_MKDXSplitter1.TabIndex = 1 + Me.Ctl_MKDXSplitter1.TabStop = False + ' + 'pnl_Right + ' + Me.pnl_Right.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Right.Controls.Add(Me.grd_Moby_Releases) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(502, 0) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(512, 669) + Me.pnl_Right.TabIndex = 2 + ' + 'grd_Moby_Releases + ' + Me.grd_Moby_Releases.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Moby_Releases.DataSource = Me.BS_Moby_Releases + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Moby_Releases.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Moby_Releases.Location = New System.Drawing.Point(3, 26) + Me.grd_Moby_Releases.MainView = Me.gv_Moby_Releases + Me.grd_Moby_Releases.Name = "grd_Moby_Releases" + Me.grd_Moby_Releases.Size = New System.Drawing.Size(505, 640) + Me.grd_Moby_Releases.TabIndex = 0 + Me.grd_Moby_Releases.UseEmbeddedNavigator = True + Me.grd_Moby_Releases.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Moby_Releases}) + ' + 'gv_Moby_Releases + ' + Me.gv_Moby_Releases.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGamename, Me.colHighlighted, Me.colYear, Me.colcreated, Me.colDeveloper, Me.colPublisher, Me.coldeprecated1}) + Me.gv_Moby_Releases.GridControl = Me.grd_Moby_Releases + Me.gv_Moby_Releases.Name = "gv_Moby_Releases" + Me.gv_Moby_Releases.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Moby_Releases.OptionsView.ColumnAutoWidth = False + Me.gv_Moby_Releases.OptionsView.ShowGroupPanel = False + ' + 'colGamename + ' + Me.colGamename.FieldName = "Gamename" + Me.colGamename.Name = "colGamename" + Me.colGamename.OptionsColumn.AllowEdit = False + Me.colGamename.OptionsColumn.ReadOnly = True + Me.colGamename.Visible = True + Me.colGamename.VisibleIndex = 0 + Me.colGamename.Width = 279 + ' + 'colHighlighted + ' + Me.colHighlighted.FieldName = "Highlighted" + Me.colHighlighted.Name = "colHighlighted" + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 1 + Me.colYear.Width = 62 + ' + 'colcreated + ' + Me.colcreated.Caption = "Added" + Me.colcreated.DisplayFormat.FormatString = "g" + Me.colcreated.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colcreated.FieldName = "created" + Me.colcreated.Name = "colcreated" + Me.colcreated.OptionsColumn.AllowEdit = False + Me.colcreated.OptionsColumn.ReadOnly = True + Me.colcreated.Visible = True + Me.colcreated.VisibleIndex = 2 + Me.colcreated.Width = 133 + ' + 'colDeveloper + ' + Me.colDeveloper.FieldName = "Developer" + Me.colDeveloper.Name = "colDeveloper" + Me.colDeveloper.OptionsColumn.AllowEdit = False + Me.colDeveloper.OptionsColumn.ReadOnly = True + Me.colDeveloper.Visible = True + Me.colDeveloper.VisibleIndex = 3 + ' + 'colPublisher + ' + Me.colPublisher.FieldName = "Publisher" + Me.colPublisher.Name = "colPublisher" + Me.colPublisher.OptionsColumn.AllowEdit = False + Me.colPublisher.OptionsColumn.ReadOnly = True + Me.colPublisher.Visible = True + Me.colPublisher.VisibleIndex = 4 + ' + 'BS_Moby_Platforms_gv2 + ' + Me.BS_Moby_Platforms_gv2.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms_gv2.DataSource = Me.DS_MobyDB + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Copy_Name_to_Clipboard, Me.bbi_Add_Games_from_DAT_XML, Me.bbi_Add_Games_from_CSV_Customidentifier_Name, Me.bbi_Add_Games_from_CSV_SegaCD, Me.bbi_Add_Games_from_CSV_Saturn, Me.bbi_Add_Games_from_CSV_DreamCast, Me.bbi_Delete, Me.bbi_Remove_Link, Me.bbi_Load_XML, Me.bbi_Write_XML, Me.bbi_Open_Moby_Page, Me.bbi_Evaluate_Moby_Links, Me.bbi_Auto_Link, Me.BarButtonItem1, Me.bbi_Add_Games_from_DAT}) + Me.barmng.MaxItemId = 15 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(1014, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 669) + Me.barDockControlBottom.Size = New System.Drawing.Size(1014, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 669) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(1014, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 669) + ' + 'bbi_Copy_Name_to_Clipboard + ' + Me.bbi_Copy_Name_to_Clipboard.Caption = "&Copy Name to Clipboard" + Me.bbi_Copy_Name_to_Clipboard.Id = 0 + Me.bbi_Copy_Name_to_Clipboard.ImageUri.Uri = "Paste" + Me.bbi_Copy_Name_to_Clipboard.Name = "bbi_Copy_Name_to_Clipboard" + ' + 'bbi_Add_Games_from_DAT_XML + ' + Me.bbi_Add_Games_from_DAT_XML.Caption = "Add Games from DAT (XML) file" + Me.bbi_Add_Games_from_DAT_XML.Id = 1 + Me.bbi_Add_Games_from_DAT_XML.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_DAT_XML.Name = "bbi_Add_Games_from_DAT_XML" + ' + 'bbi_Add_Games_from_CSV_Customidentifier_Name + ' + Me.bbi_Add_Games_from_CSV_Customidentifier_Name.Caption = "Add Games from CSV (CustomIdentifier;Name)" + Me.bbi_Add_Games_from_CSV_Customidentifier_Name.Id = 2 + Me.bbi_Add_Games_from_CSV_Customidentifier_Name.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_CSV_Customidentifier_Name.Name = "bbi_Add_Games_from_CSV_Customidentifier_Name" + ' + 'bbi_Add_Games_from_CSV_SegaCD + ' + Me.bbi_Add_Games_from_CSV_SegaCD.Caption = "Add Games from CSV (SegaCD: Name;id1;id2;id3;id4)" + Me.bbi_Add_Games_from_CSV_SegaCD.Id = 3 + Me.bbi_Add_Games_from_CSV_SegaCD.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_CSV_SegaCD.Name = "bbi_Add_Games_from_CSV_SegaCD" + ' + 'bbi_Add_Games_from_CSV_Saturn + ' + Me.bbi_Add_Games_from_CSV_Saturn.Caption = "Add Games from CSV (Saturn: Name;id1;...;id5)" + Me.bbi_Add_Games_from_CSV_Saturn.Id = 4 + Me.bbi_Add_Games_from_CSV_Saturn.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_CSV_Saturn.Name = "bbi_Add_Games_from_CSV_Saturn" + ' + 'bbi_Add_Games_from_CSV_DreamCast + ' + Me.bbi_Add_Games_from_CSV_DreamCast.Caption = "Add Games from CSV (DreamCast: Name;id1;id2;...)" + Me.bbi_Add_Games_from_CSV_DreamCast.Id = 5 + Me.bbi_Add_Games_from_CSV_DreamCast.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_CSV_DreamCast.Name = "bbi_Add_Games_from_CSV_DreamCast" + ' + 'bbi_Delete + ' + Me.bbi_Delete.Caption = "Delete {0} entries" + Me.bbi_Delete.Id = 6 + Me.bbi_Delete.ImageUri.Uri = "Delete" + Me.bbi_Delete.Name = "bbi_Delete" + ' + 'bbi_Remove_Link + ' + Me.bbi_Remove_Link.Caption = "Remove Link on {0} games" + Me.bbi_Remove_Link.Id = 7 + Me.bbi_Remove_Link.ImageUri.Uri = "Undo" + Me.bbi_Remove_Link.Name = "bbi_Remove_Link" + ' + 'bbi_Load_XML + ' + Me.bbi_Load_XML.Caption = "Load XML" + Me.bbi_Load_XML.Id = 8 + Me.bbi_Load_XML.ImageUri.Uri = "Open" + Me.bbi_Load_XML.Name = "bbi_Load_XML" + ' + 'bbi_Write_XML + ' + Me.bbi_Write_XML.Caption = "Write XML" + Me.bbi_Write_XML.Id = 9 + Me.bbi_Write_XML.ImageUri.Uri = "Save" + Me.bbi_Write_XML.Name = "bbi_Write_XML" + ' + 'bbi_Open_Moby_Page + ' + Me.bbi_Open_Moby_Page.Caption = "&Open Moby Page" + Me.bbi_Open_Moby_Page.Id = 10 + Me.bbi_Open_Moby_Page.ImageUri.Uri = "NavigationBar" + Me.bbi_Open_Moby_Page.Name = "bbi_Open_Moby_Page" + ' + 'bbi_Evaluate_Moby_Links + ' + Me.bbi_Evaluate_Moby_Links.Caption = "&Evaluate Moby Links" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.bbi_Evaluate_Moby_Links.Id = 11 + Me.bbi_Evaluate_Moby_Links.ImageUri.Uri = "Zoom100" + Me.bbi_Evaluate_Moby_Links.Name = "bbi_Evaluate_Moby_Links" + ' + 'bbi_Auto_Link + ' + Me.bbi_Auto_Link.Caption = "Detect MobyGames Links..." + Me.bbi_Auto_Link.Id = 12 + Me.bbi_Auto_Link.ImageUri.Uri = "Find" + Me.bbi_Auto_Link.Name = "bbi_Auto_Link" + ToolTipTitleItem1.Text = "Detect MobyGames Links" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.bbi_Auto_Link.SuperTip = SuperToolTip1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Id = 13 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'bbi_Add_Games_from_DAT + ' + Me.bbi_Add_Games_from_DAT.Caption = "Add Games from DAT with serial tag (No-Intro Sony PSP)" + Me.bbi_Add_Games_from_DAT.Id = 14 + Me.bbi_Add_Games_from_DAT.ImageUri.Uri = "Add" + Me.bbi_Add_Games_from_DAT.Name = "bbi_Add_Games_from_DAT" + ' + 'popmnu_Rombase + ' + Me.popmnu_Rombase.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Copy_Name_to_Clipboard), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_DAT_XML), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_DAT), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_CSV_Customidentifier_Name), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_CSV_SegaCD), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_CSV_Saturn), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_Games_from_CSV_DreamCast), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Auto_Link, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Remove_Link), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Load_XML, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Write_XML)}) + Me.popmnu_Rombase.Manager = Me.barmng + Me.popmnu_Rombase.Name = "popmnu_Rombase" + ' + 'popmnu_Moby_Games + ' + Me.popmnu_Moby_Games.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Open_Moby_Page), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Evaluate_Moby_Links)}) + Me.popmnu_Moby_Games.Manager = Me.barmng + Me.popmnu_Moby_Games.Name = "popmnu_Moby_Games" + ' + 'coldeprecated + ' + Me.coldeprecated.FieldName = "deprecated" + Me.coldeprecated.Name = "coldeprecated" + Me.coldeprecated.OptionsColumn.AllowEdit = False + Me.coldeprecated.OptionsColumn.ReadOnly = True + Me.coldeprecated.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + ' + 'coldeprecated1 + ' + Me.coldeprecated1.FieldName = "deprecated" + Me.coldeprecated1.Name = "coldeprecated1" + Me.coldeprecated1.OptionsColumn.AllowEdit = False + Me.coldeprecated1.OptionsColumn.ReadOnly = True + Me.coldeprecated1.ToolTip = "indicates that the MobyGame link may be deprecated (nothing really to worry here," & + " the meta data is still there)" + ' + 'frm_ROMBase_Manager + ' + Me.ClientSize = New System.Drawing.Size(1014, 669) + Me.Controls.Add(Me.pnl_Right) + Me.Controls.Add(Me.Ctl_MKDXSplitter1) + Me.Controls.Add(Me.pnl_Left) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_ROMBase_Manager" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "RomBase Manager" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_DAT, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Rombase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_DAT, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms_gv1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Moby_Release, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.grd_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Moby_Releases, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms_gv2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Rombase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Moby_Games, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXSplitter1 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents BS_Rombase As System.Windows.Forms.BindingSource + Friend WithEvents DS_Rombase As Metropolis_Launcher.DS_Rombase + Friend WithEvents BS_Moby_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents BS_Moby_Releases As System.Windows.Forms.BindingSource + Friend WithEvents rpi_Moby_Release As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Platform As MKNetDXLib.ctl_MKDXLookupEdit + Private WithEvents grd_DAT As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_DAT As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents grd_Moby_Releases As MKNetDXLib.ctl_MKDXGrid + Private WithEvents gv_Moby_Releases As DevExpress.XtraGrid.Views.Grid.GridView + Private WithEvents colfilename As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents colid_Moby_Platforms As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents colid_Moby_Releases As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents colGamename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BS_Moby_Platforms_gv1 As System.Windows.Forms.BindingSource + Friend WithEvents BS_Moby_Platforms_gv2 As System.Windows.Forms.BindingSource + Friend WithEvents rpi_Moby_Platforms_gv1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents btn_Save As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents colid_rombase As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colmd5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colsha1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCustomIdentifier As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHighlighted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colcreated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Copy_Name_to_Clipboard As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_DAT_XML As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_CSV_Customidentifier_Name As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_CSV_SegaCD As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_CSV_Saturn As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_CSV_DreamCast As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Remove_Link As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Load_XML As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Write_XML As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Rombase As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Open_Moby_Page As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Evaluate_Moby_Links As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Moby_Games As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents DS_MobyDB As DS_MobyDB + Friend WithEvents bbi_Auto_Link As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add_Games_from_DAT As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colDeveloper As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPublisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents coldeprecated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents coldeprecated1 As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Rombase_Manager.resx b/Metropolis_Launcher/Forms/frm_Rombase_Manager.resx new file mode 100644 index 0000000..4628b6f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rombase_Manager.resx @@ -0,0 +1,158 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 775, 17 + + + 934, 17 + + + 397, 17 + + + 275, 17 + + + 17, 56 + + + 621, 17 + + + 201, 56 + + + 385, 56 + + + 136 + + + Automatically find links to Moby Releases by comparing file- or directory names to the names of the Moby Releases. + +After the analysis, you get a preview of the results where you can decide which games the linking should be applied to. + + + 479, 56 + + + 633, 56 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb b/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb new file mode 100644 index 0000000..abe89c5 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb @@ -0,0 +1,939 @@ +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess + +Public Class frm_ROMBase_Manager + Private _bbi_Remove_Link_Caption As String + Private _bbi_Delete_Caption As String + Private _ChangesWritten As Boolean = False + + Private _Moby_Platforms_URLPart As String = "" + + Private _id_Rombase As Object = Nothing + + Public Sub New(Optional ByVal id_Rombase As Object = Nothing) + InitializeComponent() + + barmng.SetPopupContextMenu(grd_DAT, popmnu_Rombase) + barmng.SetPopupContextMenu(grd_Moby_Releases, popmnu_Moby_Games) + + Dim sSQL As String = "" + sSQL &= " SELECT id_Moby_Platforms" + sSQL &= " , Display_Name || ' (' || " + sSQL &= " (" + sSQL &= " SELECT COUNT(1)" + sSQL &= " FROM rombase.tbl_Rombase RB" + sSQL &= " WHERE RB.id_Moby_Platforms = PLTFM.id_Moby_Platforms" + sSQL &= " AND RB.id_Moby_Releases IS NOT NULL" + sSQL &= " AND RB.id_Rombase_Owner IS NULL" + sSQL &= " )" + sSQL &= " || '/' || " + sSQL &= " (" + sSQL &= " SELECT COUNT(1)" + sSQL &= " FROM rombase.tbl_Rombase RB" + sSQL &= " WHERE RB.id_Moby_Platforms = PLTFM.id_Moby_Platforms" + sSQL &= " AND RB.id_Rombase_Owner IS NULL" + sSQL &= " ) || ')' AS Display_Name, URLPart FROM moby.tbl_Moby_Platforms PLTFM WHERE Visible = 1 AND id_Moby_Platforms_Owner IS NULL ORDER BY Display_Name" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_MobyDB.tbl_Moby_Platforms) + + + gv_DAT.ShowFindPanel() + gv_Moby_Releases.ShowFindPanel() + + _bbi_Remove_Link_Caption = bbi_Remove_Link.Caption + _bbi_Delete_Caption = bbi_Delete.Caption + + _id_Rombase = id_Rombase + End Sub + + Private Sub frm_Rombase_Manager_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If TC.NZ(_id_Rombase, 0) > 0 Then + cmb_Platform.EditValue = CLng(TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Moby_Platforms FROM tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(_id_Rombase)), 0)) + grd_DAT.ForceInitialize() + Me.BS_Rombase.Position = Me.BS_Rombase.Find("id_Rombase", _id_Rombase) + End If + +#If Not DEBUG Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("The RomBase Manager is an internal tool for managing file metadata. This data is not supposed to be managed by individual users. Click >yes< if you really know what you're doing.", "RomBase Manager", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning) = DialogResult.Yes Then + Me.Close() + Return + End If +#End If + + End Sub + + Private Sub grd_Moby_Releases_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Moby_Releases.DoubleClick + Dim e_mouse As DevExpress.Utils.DXMouseEventArgs = e + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Moby_Releases.CalcHitInfo(e_mouse.Location) + If Not hitinfo.InRow Then + Return + End If + + If BS_Rombase.Current IsNot Nothing AndAlso BS_Moby_Releases IsNot Nothing Then + For Each iRowHandle As Integer In gv_DAT.GetSelectedRows + If iRowHandle >= 0 AndAlso gv_DAT.GetRow(iRowHandle) IsNot Nothing Then + gv_DAT.GetRow(iRowHandle).Row("id_Moby_Releases") = Math.Abs(BS_Moby_Releases.Current("id_Moby_Releases")) + gv_DAT.GetRow(iRowHandle).Row("Moby_Games_URLPart") = BS_Moby_Releases.Current("Moby_Games_URLPart").Replace("\", "") + gv_DAT.GetRow(iRowHandle).Row("deprecated") = BS_Moby_Releases.Current("deprecated") + End If + Next + End If + End Sub + + Private Sub grd_DAT_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_DAT.DoubleClick + Dim e_mouse As DevExpress.Utils.DXMouseEventArgs = e + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_DAT.CalcHitInfo(e_mouse.Location) + If Not hitinfo.InRow Then + Return + End If + + If BS_Rombase.Current IsNot Nothing AndAlso BS_Moby_Releases IsNot Nothing Then + BS_Rombase.Current("id_Moby_Releases") = Math.Abs(BS_Moby_Releases.Current("id_Moby_Releases")) + BS_Rombase.Current("Moby_Games_URLPart") = BS_Moby_Releases.Current("Moby_Games_URLPart").Replace("\", "") + End If + + gv_DAT.RefreshData() + End Sub + + Private Sub cmb_Platform_EditValueChanging(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles cmb_Platform.EditValueChanging + 'ask for save + If Save(True) = Windows.Forms.DialogResult.Cancel Then + e.Cancel = True + Return + End If + + Cursor.Current = Cursors.WaitCursor + + + + Me.DS_MobyDB.src_Moby_Releases.Clear() + Me.DS_Rombase.tbl_Rombase.Clear() + + If Not TC.IsNullNothingOrEmpty(e.NewValue) Then + 'Dim sSQL As String = "" + 'sSQL &= " SELECT" & ControlChars.CrLf + 'sSQL &= " REL.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + 'sSQL &= " , IFNULL(GAME.Name_Prefix, '') || GAME.Name AS GameName" & ControlChars.CrLf + 'sSQL &= " , REL.id_Moby_Platforms AS id_Moby_Platforms" & ControlChars.CrLf + ''sSQL &= " , soundex(GAME.Name) AS Soundex" & ControlChars.CrLf + 'sSQL &= " , GAME.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + 'sSQL &= " FROM moby.tbl_Moby_Releases REL" & ControlChars.CrLf + 'sSQL &= " INNER JOIN moby.tbl_Moby_Games GAME ON REL.id_Moby_Games = GAME.id_Moby_Games" & ControlChars.CrLf + 'sSQL &= " WHERE REL.id_Moby_Platforms = " & TC.getSQLFormat(e.NewValue) & ControlChars.CrLf + + 'sSQL &= " UNION" & ControlChars.CrLf + 'sSQL &= " SELECT" & ControlChars.CrLf + 'sSQL &= " -REL.id_Moby_Releases AS id_Moby_Releases" & ControlChars.CrLf + 'sSQL &= " , MGAT.Alternate_Title || ' [' || IFNULL(MGAT.Description, 'NODESCRIPTION') || '; ' || IFNULL(GAME.Name_Prefix, '') || GAME.Name || ']' AS GameName" & ControlChars.CrLf + 'sSQL &= " , REL.id_Moby_Platforms AS id_Moby_Platforms" & ControlChars.CrLf + ''sSQL &= " , NULL AS Soundex" & ControlChars.CrLf + 'sSQL &= " , GAME.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + 'sSQL &= " FROM moby.tbl_Moby_Games_Alternate_Titles MGAT" & ControlChars.CrLf + 'sSQL &= " INNER JOIN moby.tbl_Moby_Games GAME ON MGAT.id_Moby_Games = GAME.id_Moby_Games" & ControlChars.CrLf + 'sSQL &= " INNER JOIN moby.tbl_Moby_Releases REL ON REL.id_Moby_Games = GAME.id_Moby_Games AND REL.id_Moby_Platforms = " & TC.getSQLFormat(e.NewValue) & ControlChars.CrLf + + 'sSQL &= " ORDER BY GameName" & ControlChars.CrLf + 'DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, Me.DS_MobyDB.src_Moby_Releases) + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Rom_Manager_Moby_Releases(tran, Me.DS_MobyDB.src_Moby_Releases, e.NewValue) + End Using + + sSQL = "" + sSQL &= " SELECT" + sSQL &= " id_rombase" + sSQL &= " , filename" + sSQL &= " , size" + sSQL &= " , crc" + sSQL &= " , md5" + sSQL &= " , sha1" + sSQL &= " , id_Moby_Platforms" + sSQL &= " , id_Moby_Releases" + 'sSQL &= " , soundex(filename) AS Soundex" + sSQL &= " , Moby_Platforms_URLPart" + sSQL &= " , Moby_Games_URLPart" + sSQL &= " , CustomIdentifier" + sSQL &= " , MG.deprecated AS deprecated" + sSQL &= " FROM rombase.tbl_Rombase RB" + sSQL &= " LEFT JOIN moby.tbl_Moby_Games MG ON RB.Moby_Games_URLPart = MG.URLPart" + sSQL &= " WHERE RB.id_Rombase_Owner IS NULL AND RB.id_Moby_Platforms = " & TC.getSQLFormat(e.NewValue) + sSQL &= " ORDER BY filename" + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_Rombase.tbl_Rombase) + + If e.NewValue <> 0 Then + _Moby_Platforms_URLPart = DS_MobyDB.tbl_Moby_Platforms.Select("id_Moby_Platforms = " & e.NewValue)(0)("URLPart") + End If + + Cursor.Current = Cursors.Default + End If + End Sub + + Private Sub BS_Rombase_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Rombase.CurrentChanged + gv_Moby_Releases.RefreshData() + + If BS_Rombase.Current Is Nothing Then Return + + If Not TC.IsNullNothingOrEmpty(BS_Rombase.Current("id_Moby_Releases")) Then + Dim iNewPos As Integer = BS_Moby_Releases.Find("id_Moby_Releases", BS_Rombase.Current("id_Moby_Releases")) + If iNewPos > 0 Then + BS_Moby_Releases.Position = iNewPos + Me.gv_Moby_Releases.ClearSelection() + Me.gv_Moby_Releases.SelectRow(Me.gv_Moby_Releases.FocusedRowHandle) + End If + Else + 'MK2k: don't autoselect by soundex, it's too inaccurate + 'Dim iNewPos As Integer = BS_Moby_Releases.Find("Soundex", BS_Rombase.Current("Soundex")) + 'If iNewPos > 0 Then + ' BS_Moby_Releases.Position = iNewPos + 'End If + End If + + End Sub + + Private Sub popmnu_Rombase_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Rombase.BeforePopup + If Not grd_DAT.Allow_Popup Then + e.Cancel = True + Return + End If + + If TC.NZ(cmb_Platform.EditValue, 0) = 0 Then + e.Cancel = True + End If + + If BS_Rombase.Current IsNot Nothing Then + Me.bbi_Delete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Delete.Caption = _bbi_Delete_Caption.Replace("{0}", gv_DAT.SelectedRowsCount) + + Me.bbi_Remove_Link.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Remove_Link.Caption = _bbi_Remove_Link_Caption.Replace("{0}", gv_DAT.SelectedRowsCount) + Else + Me.bbi_Remove_Link.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End Sub + + Private Sub popmnu_Moby_Games_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Moby_Games.BeforePopup + If Not grd_Moby_Releases.Allow_Popup Then + e.Cancel = True + Return + End If + End Sub + + Private Sub bbi_Add_Games_from_DAT_XML_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Add_Games_from_DAT_XML.ItemClick + Dim ds As New DataSet + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog(ParentForm:=Me) + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Me.DS_Rombase.tbl_Rombase.Clear() + ds.ReadXml(sFile) + End If + + Dim iTotal As Integer = 0 + Dim iNew As Integer = 0 + Dim iError As Integer = 0 + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + iTotal = ds.Tables("rom").Rows.Count + + For Each rowrom As DataRow In ds.Tables("rom").Rows + Dim rowrombase As DS_Rombase.tbl_RombaseRow = Nothing + + 'Check in Database and save id_rombase + Dim filename As String = rowrom("name") + Dim size As Integer = rowrom("size") + Dim crc As String = rowrom("crc").ToString.ToLower + Dim md5 As Object = DBNull.Value + Dim sha1 As Object = DBNull.Value + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "md5") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("md5")) Then md5 = rowrom("md5").ToString.ToLower + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "sha1") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("sha1")) Then sha1 = rowrom("sha1").ToString.ToLower + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + Dim id_rombase As Integer = DS_Rombase.Select_id_Rombase(tran, DBNull.Value, filename, size, crc, md5, sha1, id_Moby_Platforms, Nothing, Nothing) + + 'Check in current records (duplicate search) + If Not TC.IsNullNothingOrEmpty(rowrom("size")) Then + Dim rowsrombase() As DataRow = DS_Rombase.tbl_Rombase.Select("size = " & rowrom("size")) + + If rowsrombase.Length > 0 Then + For Each rowrombase_check As DataRow In rowsrombase + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "md5") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("md5")) AndAlso Not TC.IsNullNothingOrEmpty(rowrombase_check("md5")) AndAlso rowrom("md5").ToString.ToLower = rowrombase_check("md5").ToString.ToLower Then + rowrombase = rowrombase_check + Exit For + End If + + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "sha1") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("sha1")) AndAlso Not TC.IsNullNothingOrEmpty(rowrombase_check("sha1")) AndAlso rowrom("sha1").ToString.ToLower = rowrombase_check("sha1").ToString.ToLower Then + rowrombase = rowrombase_check + Exit For + End If + Next + End If + End If + + Try + If rowrombase Is Nothing Then + If id_rombase <> 0 Then + 'rombase entry found in db -> add it to the current records + Dim dt As DataTable = DS_Rombase.Select_Rombase_Records(tran, id_rombase) + If dt IsNot Nothing AndAlso dt.Rows.Count = 1 Then + rowrombase = DS_Rombase.tbl_Rombase.NewRow + rowrombase("id_rombase") = id_rombase + rowrombase("filename") = dt.Rows(0)("filename") + rowrombase("size") = dt.Rows(0)("size") + rowrombase("crc") = dt.Rows(0)("crc") + + rowrombase("md5") = IIf(Not TC.IsNullNothingOrEmpty(md5), md5, dt.Rows(0)("md5")) + rowrombase("sha1") = IIf(Not TC.IsNullNothingOrEmpty(sha1), sha1, dt.Rows(0)("sha1")) + + 'rowrombase("Soundex") = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT soundex('" & dt.Rows(0)("filename").Replace("'", "''") & "')", tran) + rowrombase("id_Moby_Platforms") = cmb_Platform.EditValue + rowrombase("id_Moby_Releases") = dt.Rows(0)("id_Moby_Releases") + rowrombase("Moby_Platforms_URLPart") = _Moby_Platforms_URLPart + rowrombase("Moby_Games_URLPart") = dt.Rows(0)("Moby_Games_URLPart") + DS_Rombase.tbl_Rombase.Rows.Add(rowrombase) + Else + id_rombase = 0 + End If + + End If + + 'No corresponding rombase entry found -> add new + If id_rombase = 0 Then + rowrombase = DS_Rombase.tbl_Rombase.NewRow + rowrombase("filename") = rowrom("name") + rowrombase("size") = rowrom("size") + rowrombase("crc") = rowrom("crc").ToString.ToLower + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "md5") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("md5")) Then rowrombase("md5") = rowrom("md5").ToString.ToLower + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "sha1") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("sha1")) Then rowrombase("sha1") = rowrom("sha1").ToString.ToLower + 'rowrombase("Soundex") = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT soundex('" & rowrom("name").Replace("'", "''") & "')", tran) + rowrombase("id_Moby_Platforms") = cmb_Platform.EditValue + rowrombase("Moby_Platforms_URLPart") = _Moby_Platforms_URLPart + DS_Rombase.tbl_Rombase.Rows.Add(rowrombase) + iNew += 1 + End If + Else + 'duplicate found in datatable - get additional infos + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "md5") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("md5")) Then rowrombase("md5") = rowrom("md5") + If MKNetLib.cls_MKSQLDataAccess.HasColumn(rowrom, "sha1") AndAlso Not TC.IsNullNothingOrEmpty(rowrom("sha1")) Then rowrombase("sha1") = rowrom("sha1") + End If + Catch ex As Exception + iError += 1 + End Try + + Next + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + Finally + tran.Commit() + End Try + End Using + + DevExpress.XtraEditors.XtraMessageBox.Show("Import done, " & iNew & " new entries out of " & iTotal & " and " & iError & " errors!") + End Sub + + Private Sub grd_Moby_Releases_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Moby_Releases.Click + + End Sub + + Private Sub bbi_Remove_Link_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Remove_Link.ItemClick + Dim ar_Rows_Delete As New ArrayList + For Each iRowHandle As Integer In gv_DAT.GetSelectedRows + If iRowHandle >= 0 Then + Dim row As DataRow = gv_DAT.GetRow(iRowHandle).Row + If Not {DataRowState.Deleted, DataRowState.Detached}.Contains(row.RowState) Then + ar_Rows_Delete.Add(row) + End If + End If + Next + + For Each row As DataRow In ar_Rows_Delete + row("id_Moby_Releases") = DBNull.Value + row("Moby_Games_URLPart") = DBNull.Value + row("deprecated") = DBNull.Value + Next + gv_Moby_Releases.RefreshData() + End Sub + + Private Sub bbi_Load_XML_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Load_XML.ItemClick + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog(ParentForm:=Me) + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + DS_Rombase.ReadXml(sFile) + End If + + For Each row As DataRow In DS_Rombase.tbl_Rombase.Rows + If Not TC.IsNullNothingOrEmpty(row("crc")) Then row("crc") = row("crc").ToString.ToLower + If Not TC.IsNullNothingOrEmpty(row("sha1")) Then row("sha1") = row("sha1").ToString.ToLower + If Not TC.IsNullNothingOrEmpty(row("md5")) Then row("md5") = row("md5").ToString.ToLower + row("id_Moby_Platforms") = cmb_Platform.EditValue + Next + End Sub + + Private Sub bbi_Write_XML_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Write_XML.ItemClick + Dim sFile As String = MKNetLib.cls_MKFileSupport.SaveFile() + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + DS_Rombase.WriteXml(sFile) + End If + End Sub + + Private Sub bbi_Copy_Name_to_Clipboard_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Copy_Name_to_Clipboard.ItemClick + If BS_Rombase.Current IsNot Nothing Then + My.Computer.Clipboard.SetText(BS_Rombase.Current("filename")) + End If + End Sub + + Private Function Save(Optional ByVal AskForSave As Boolean = False) As DialogResult + If AskForSave Then + If BS_Rombase.DataSource.Tables(BS_Rombase.DataMember).GetChanges IsNot Nothing Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Do you want to save your changes?", "Save?", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + If res = Windows.Forms.DialogResult.Cancel Then + Return Windows.Forms.DialogResult.Cancel + End If + If res = Windows.Forms.DialogResult.No Then + Return Windows.Forms.DialogResult.No + End If + End If + End If + + Cursor.Current = Cursors.WaitCursor + + Dim dt_Changes As DataTable = DS_Rombase.tbl_Rombase.GetChanges + If dt_Changes IsNot Nothing Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each row As DataRow In dt_Changes.Rows + Try + DS_Rombase.Upsert_Rombase(tran, DBNull.Value, row("filename"), row("size"), row("crc"), row("md5"), row("sha1"), row("id_Moby_Platforms"), row("id_Moby_Releases"), row("Moby_Platforms_URLPart"), row("Moby_Games_URLPart"), CustomIdentifier:=row("CustomIdentifier"), id_rombase:=row("id_rombase")) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + End Try + Next + + tran.Commit() + End Using + + DS_Rombase.tbl_Rombase.AcceptChanges() + + _ChangesWritten = True + End If + + Cursor.Current = Cursors.Default + + Return Windows.Forms.DialogResult.Yes + End Function + + Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click + Save() + End Sub + + Private Sub gv_Moby_Releases_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles gv_Moby_Releases.RowCellStyle + If BS_Rombase.Current IsNot Nothing Then + If TC.NZ(BS_Rombase.Current("id_Moby_Releases"), 0) <> 0 Then + If TC.NZ(gv_Moby_Releases.GetRow(e.RowHandle)("id_Moby_Releases"), -1) = BS_Rombase.Current("id_Moby_Releases") Then + e.Appearance.Font = New Font(e.Appearance.Font.FontFamily.Name, e.Appearance.Font.Size, FontStyle.Bold) + End If + End If + End If + + If e.RowHandle >= 0 Then + Dim row As DataRow = gv_Moby_Releases.GetRow(e.RowHandle).Row + If TC.NZ(row("Highlighted"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + End If + End If + End Sub + + Private Sub frm_Rombase_Manager_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + If BS_Rombase.DataSource.Tables(BS_Rombase.DataMember).GetChanges IsNot Nothing Then + If Save(True) = Windows.Forms.DialogResult.Cancel Then + e.Cancel = True + Return + End If + End If + + If _ChangesWritten = True Then + Me.DialogResult = Windows.Forms.DialogResult.OK + End If + End Sub + + Private Sub bbi_Delete_ItemClick(sender As Object, e As EventArgs) Handles bbi_Delete.ItemClick + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete the selected entries?", "Delete", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then Return + + Dim ar_Rows_Delete As New ArrayList + For Each iRowHandle As Integer In gv_DAT.GetSelectedRows + If iRowHandle >= 0 Then + Dim row As DataRow = gv_DAT.GetRow(iRowHandle).Row + If Not {DataRowState.Deleted, DataRowState.Detached}.Contains(row.RowState) Then + ar_Rows_Delete.Add(row) + End If + End If + Next + + For Each row As DataRow In ar_Rows_Delete + If TC.NZ(row("id_Rombase"), 0) > 0 Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM rombase.tbl_Rombase WHERE id_Rombase = " & TC.getSQLFormat(row("id_Rombase"))) + End If + DS_Rombase.tbl_Rombase.Rows.Remove(row) + Next + End Sub + + Private Sub bbi_Add_Games_from_CSV_Customidentifier_Name_ItemClick(sender As Object, e As EventArgs) Handles bbi_Add_Games_from_CSV_Customidentifier_Name.ItemClick + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open CSV File", "CSV Files (*.csv)|*.csv", ParentForm:=Me) + + Dim iTotal As Integer = 0 + Dim iNew As Integer = 0 + Dim iError As Integer = 0 + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(sFile) + Dim sLines As String() = sContent.Split(ControlChars.CrLf) + iTotal = sLines.Length + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + For Each sLine As String In sLines + sLine = sLine.Trim + Dim CustomIdentifier = sLine.Split(";")(0).ToUpper.Replace("-", "").Replace(" ", "").Trim + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + If {cls_Globals.enm_Moby_Platforms.gc, cls_Globals.enm_Moby_Platforms.wii}.Contains(id_Moby_Platforms) Then + If id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.gc AndAlso Not {"G", "D"}.Contains(CustomIdentifier(0)) Then + Continue For 'Skip entry, because GameCube games always have "G" or "D" as first letter + Else + If id_Moby_Platforms = cls_Globals.enm_Moby_Platforms.wii AndAlso {"G", "D"}.Contains(CustomIdentifier(0)) Then + Continue For 'Skip entry, because Wii games don't start with "G" or "D" + End If + End If + End If + + Dim filename = sLine.Split(";")(1) + + If filename.Trim.Length = 0 Then + Continue For + End If + + Dim id_rombase As Integer = DS_Rombase.Select_id_Rombase(tran, DBNull.Value, filename, Nothing, Nothing, Nothing, Nothing, id_Moby_Platforms, Nothing, CustomIdentifier) + + 'Check in current records (duplicate search) + Dim rowsrombase() As DataRow = DS_Rombase.tbl_Rombase.Select("CustomIdentifier = " & TC.getSQLFormat(CustomIdentifier)) + + If rowsrombase.Length = 0 Then + Dim row As DataRow = DS_Rombase.tbl_Rombase.NewRow + row("CustomIdentifier") = CustomIdentifier + row("filename") = filename + row("id_Moby_Platforms") = id_Moby_Platforms + row("Moby_Platforms_URLPart") = _Moby_Platforms_URLPart + DS_Rombase.tbl_Rombase.Rows.Add(row) + + iNew += 1 + End If + Next + Catch ex As Exception + iError += 1 + Finally + tran.Commit() + End Try + End Using + + DevExpress.XtraEditors.XtraMessageBox.Show("Import done, " & iNew & " new entries out of " & iTotal & " and " & iError & " errors!") + End If + End Sub + + Private Sub bbi_Open_Moby_Page_ItemClick(sender As Object, e As EventArgs) Handles bbi_Open_Moby_Page.ItemClick + If BS_Moby_Releases.Current Is Nothing Then Return + + Try + Dim sURL As String = "http://www.mobygames.com/game/" & BS_Moby_Platforms.Current("URLPart") & "/" & TC.NZ(BS_Moby_Releases.Current("Moby_Games_URLPart"), "").Replace("\", "") + Dim procinfo As New ProcessStartInfo(sURL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + Catch ex As Exception + + End Try + End Sub + + Private Sub Add_from_SegaRetro(sender As Object, e As EventArgs) Handles bbi_Add_Games_from_CSV_SegaCD.ItemClick, bbi_Add_Games_from_CSV_Saturn.ItemClick, bbi_Add_Games_from_CSV_DreamCast.ItemClick + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open CSV File", "CSV Files (*.csv)|*.csv", ParentForm:=Me) + + Dim sPlatform = "SCD" + + If sender Is bbi_Add_Games_from_CSV_Saturn Then + sPlatform = "SAT" + End If + + If sender Is bbi_Add_Games_from_CSV_DreamCast Then + sPlatform = "DC" + End If + + Dim iTotal As Integer = 0 + Dim iNew As Integer = 0 + Dim iError As Integer = 0 + + Dim sCollisions As String = "" + + If Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(sFile) + Dim sLines As String() = sContent.Split(ControlChars.CrLf) + iTotal = sLines.Length + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + Dim filename As String = "" + + For Each sLine As String In sLines + sLine = sLine.Trim + Dim sFields() As String = sLine.Split(";") + + If sFields(0).Trim.Length > 0 Then + filename = sFields(0).Trim 'Follow-up line could have empty filename + End If + + If filename = "" Then Continue For + + Dim arCustomIdentifier As New ArrayList + For i = 1 To sFields.Count - 1 + Dim sCustomIdentifier = sFields(i) + + If sPlatform = "SCD" Then + If MKNetLib.cls_MKRegex.IsMatch(sCustomIdentifier, "\d+") Then + arCustomIdentifier.Add(MKNetLib.cls_MKRegex.GetMatches(sCustomIdentifier, "\d+")(0).Value) + End If + End If + + If sPlatform = "SAT" Then + sCustomIdentifier = sCustomIdentifier.Trim + If sCustomIdentifier.Length > 0 Then + If sCustomIdentifier.Contains("(") Then + sCustomIdentifier = sCustomIdentifier.Substring(0, sCustomIdentifier.IndexOf("(")) + End If + + arCustomIdentifier.Add(sCustomIdentifier.Trim.Replace("-", "").Replace(" ", "").ToUpper) + + 'Check if the last 3 characters are "-nn" where nn is a number (european regions are not part of the identifier on the cd) + If sCustomIdentifier.Length > 3 Then + If MKNetLib.cls_MKRegex.IsMatch(sCustomIdentifier.Substring(sCustomIdentifier.Length - 3, 3), "\-\d\d") Then + sCustomIdentifier = sCustomIdentifier.Substring(0, sCustomIdentifier.Length - 3) + arCustomIdentifier.Add(sCustomIdentifier.Trim.Replace("-", "").Replace(" ", "").ToUpper) + End If + End If + End If + End If + + If sPlatform = "DC" Then + Dim sField As String = sFields(i) + + For Each sIdentifier As String In sField.Split(",") + sIdentifier = sIdentifier.Trim + If sIdentifier.Length > 0 Then + arCustomIdentifier.Add(sCustomIdentifier.Trim.Replace("-", "").Replace(" ", "").ToUpper) + + 'Check if the last 3 characters are "-??" where ?? are numbers or letters + If sCustomIdentifier.Length > 3 Then + If MKNetLib.cls_MKRegex.IsMatch(sCustomIdentifier.Substring(sCustomIdentifier.Length - 3, 3), "\-..") Then + sCustomIdentifier = sCustomIdentifier.Substring(0, sCustomIdentifier.Length - 3) + arCustomIdentifier.Add(sCustomIdentifier.Trim.Replace("-", "").Replace(" ", "").ToUpper) + End If + End If + End If + Next + + + End If + Next + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + For Each CustomIdentifier In arCustomIdentifier + 'Check in current records (duplicate search) + Dim rowsrombase() As DataRow = DS_Rombase.tbl_Rombase.Select("CustomIdentifier = " & TC.getSQLFormat(CustomIdentifier)) + + If rowsrombase.Length = 0 Then + Dim row As DataRow = DS_Rombase.tbl_Rombase.NewRow + row("CustomIdentifier") = CustomIdentifier + row("filename") = filename + row("id_Moby_Platforms") = id_Moby_Platforms + row("Moby_Platforms_URLPart") = _Moby_Platforms_URLPart + DS_Rombase.tbl_Rombase.Rows.Add(row) + + iNew += 1 + Else + Dim sMessage As String = "" + sMessage &= "Found " & rowsrombase.Count & " matches for Identifier '" & CustomIdentifier & " of " & filename & ControlChars.CrLf + sMessage &= "- " & filename & ControlChars.CrLf + For Each rowrombase As DataRow In rowsrombase + sMessage &= "- " & rowrombase("filename") & ControlChars.CrLf + Next + + sCollisions &= sMessage & ControlChars.CrLf + End If + Next + Next + Catch ex As Exception + iError += 1 + Finally + tran.Commit() + End Try + End Using + + DevExpress.XtraEditors.XtraMessageBox.Show("Import done, " & iNew & " new entries out of " & iTotal & " and " & iError & " errors!") + End If + End Sub + + Private Sub bbi_Evaluate_Moby_Links_ItemClick(sender As Object, e As EventArgs) Handles bbi_Evaluate_Moby_Links.ItemClick + Cursor = Cursors.WaitCursor + + Dim ar_Have As New ArrayList + For Each row_Rombase As DataRow In Me.DS_Rombase.Tables("tbl_Rombase").Rows + If Not {DataRowState.Deleted, DataRowState.Detached}.Contains(row_Rombase.RowState) Then + Dim Moby_Games_URLPart As String = TC.NZ(row_Rombase("Moby_Games_URLPart"), "") + Moby_Games_URLPart = Moby_Games_URLPart.Replace("\", "") + + If Moby_Games_URLPart <> "" Then + If Not ar_Have.Contains(Moby_Games_URLPart) Then + ar_Have.Add(Moby_Games_URLPart) + End If + End If + End If + Next + + Dim ar_Missing As New ArrayList + Dim ar_Moby_Total As New ArrayList + For Each row_Moby_Releases As DataRow In Me.DS_MobyDB.src_Moby_Releases.Rows + Dim sURLPart As String = row_Moby_Releases("Moby_Games_URLPart").ToString.Replace("\", "") + + If Not ar_Moby_Total.Contains(sURLPart) Then + ar_Moby_Total.Add(sURLPart) + End If + + If Not ar_Have.Contains(sURLPart) Then + row_Moby_Releases("Highlighted") = True + If Not ar_Missing.Contains(sURLPart) Then + ar_Missing.Add(sURLPart) + End If + Else + row_Moby_Releases("Highlighted") = False + End If + Next + + For Each have As String In ar_Have + If Not ar_Moby_Total.Contains(have) Then + Debug.WriteLine("Have not in Total: " & have) + End If + Next + + Dim sMessage As String = "" + sMessage &= "Out of " & ar_Moby_Total.Count & " distinct MobyGames Releases, " & ar_Have.Count & " are linked to a Game, " & ar_Missing.Count & " are missing." & ControlChars.CrLf + sMessage &= "The link ratio is " & CInt(CDbl(ar_Have.Count) * 100 / CDbl(ar_Moby_Total.Count)) & "%. Any missing MobyGame Release is highlighted." + sMessage &= ControlChars.CrLf & ControlChars.CrLf & CInt(CDbl(ar_Have.Count) * 100 / CDbl(ar_Moby_Total.Count)) & "% (" & ar_Have.Count & " / " & ar_Moby_Total.Count & ")" + DevExpress.XtraEditors.XtraMessageBox.Show(sMessage, "Evaluate MobyGames Links", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Cursor = Cursors.Default + End Sub + + Private Sub bbi_Auto_Link_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Auto_Link.ItemClick + If BS_Moby_Platforms.Current Is Nothing Then + Return + End If + + Dim autolinkOptions As frm_Moby_Auto_Link_Options.cls_Moby_Auto_Link_Options + + Dim Strip_File_Extensions As Boolean = False + + Dim dotcounter As Integer = 0 + For Each row_Rombase As DS_Rombase.tbl_RombaseRow In Me.DS_Rombase.tbl_Rombase.Rows + If TC.NZ(row_Rombase.filename, "").Contains(".") Then + dotcounter += 1 + End If + Next + + If CDbl(dotcounter) / CDbl(Me.DS_Rombase.tbl_Rombase.Rows.Count) > 0.9 Then + Strip_File_Extensions = True + End If + + Using frm As New frm_Moby_Auto_Link_Options(Strip_File_Extensions) + If frm.ShowDialog <> DialogResult.OK Then + Return + End If + + autolinkOptions = frm.Result + End Using + + Dim tbl_Moby_Auto_Link As New DS_ML.tbl_Moby_Auto_LinkDataTable + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Preparing Rombase data ...", 0, Me.DS_Rombase.tbl_Rombase.Rows.Count, False) + prg.Start() + + For Each row_Rombase As DS_Rombase.tbl_RombaseRow In Me.DS_Rombase.tbl_Rombase.Rows + prg.IncreaseCurrentValue() + + If TC.NZ(row_Rombase("Moby_Games_URLPart"), "") = "" Then + Dim row_Auto_Link As DS_ML.tbl_Moby_Auto_LinkRow = tbl_Moby_Auto_Link.NewRow + row_Auto_Link.id = row_Rombase.id_rombase + + If TC.NZ(row_Rombase("CustomIdentifier"), "") <> "" Then + row_Auto_Link.Identifier = row_Rombase("CustomIdentifier") + Else + row_Auto_Link.Identifier = TC.NZ(row_Rombase("crc"), "") + End If + + row_Auto_Link.GameName = row_Rombase.filename + + tbl_Moby_Auto_Link.Rows.Add(row_Auto_Link) + End If + Next + + prg.Close() + + If tbl_Moby_Auto_Link.Rows.Count = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("All entries are already linked, no need for an auto link.") + Return + End If + + Dim src_Moby_Releases As New DS_MobyDB.src_Moby_ReleasesDataTable + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Preparing Moby data ...", 0, Me.DS_MobyDB.src_Moby_Releases.Rows.Count, False) + prg.Start() + + For Each row_Moby_Releases As DS_MobyDB.src_Moby_ReleasesRow In Me.DS_MobyDB.src_Moby_Releases.Rows + src_Moby_Releases.ImportRow(row_Moby_Releases) + Next + + For Each row_Moby_Releases As DS_MobyDB.src_Moby_ReleasesRow In src_Moby_Releases.Rows + prg.IncreaseCurrentValue() + Next + + prg.Close() + + sExplanation = "The left list shows all the RomBase entries that had previously missing MobyGames links. If a match with a MobyGames release has been found, the corresponding fields (Moby Gamename, Match Accuracy etc.) have values. If the match accuracy is exactly 100%, the link is automatically set to be applied (see Apply column). Please thoroughly review these results and check/uncheck the Apply checkbox (by click or by pressing Enter). You can also re-link with another MobyGames release by doubleclicking the release on the right list." + + Using frm As New frm_Moby_Auto_Link(tbl_Moby_Auto_Link, src_Moby_Releases, sExplanation, autolinkOptions, BS_Moby_Platforms.Current("URLPart")) + If frm.ShowDialog() = DialogResult.OK Then + Dim iLinkCount As Integer = 0 + + For Each rowAutoLink As DS_ML.tbl_Moby_Auto_LinkRow In frm.DS_ML.tbl_Moby_Auto_Link.Select("Apply = 1") + Dim rowsRombase() As DS_Rombase.tbl_RombaseRow = Me.DS_Rombase.tbl_Rombase.Select("id_Rombase = " & TC.getSQLFormat(rowAutoLink.id)) + + If rowsRombase.Length = 1 Then + iLinkCount += 1 + rowsRombase(0)("Moby_Games_URLPart") = rowAutoLink("Match_Moby_Games_URLPart").Replace("\", "") + rowsRombase(0)("id_Moby_Releases") = rowAutoLink("Match_id_Moby_Releases") + + End If + Next + + DevExpress.XtraEditors.XtraMessageBox.Show(iLinkCount & " links have been applied.", "Auto-Link") + End If + End Using + End Sub + + Private Function add_Game(ByRef tran As SQLite.SQLiteTransaction, ByVal GameName As String, ByVal Serial As String) As Integer + If GameName = "" OrElse Serial = "" Then + Return -1 + End If + + Dim id_Moby_Platforms As Integer = cmb_Platform.EditValue + + 'Check in current records (duplicate search) + Dim rowsrombase() As DataRow = DS_Rombase.tbl_Rombase.Select("CustomIdentifier = " & TC.getSQLFormat(Serial)) + + If rowsrombase.Length = 0 Then + Dim row As DS_Rombase.tbl_RombaseRow = DS_Rombase.tbl_Rombase.NewRow + row("CustomIdentifier") = Serial + row("filename") = GameName + row("id_Moby_Platforms") = id_Moby_Platforms + row("Moby_Platforms_URLPart") = _Moby_Platforms_URLPart + DS_Rombase.tbl_Rombase.Rows.Add(row) + + Return 1 + Else + For Each rowrombase As DS_Rombase.tbl_RombaseRow In rowsrombase + rowrombase.filename = GameName + Next + + Return 0 + End If + + Return 0 + End Function + + Private Sub bbi_Add_Games_from_DAT_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Add_Games_from_DAT.ItemClick + Dim ds As New DataSet + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog(ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Return + End If + + Dim iTotal As Integer = 0 + Dim iNew As Integer = 0 + Dim iError As Integer = 0 + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + Dim objReader As New System.IO.StreamReader(sFile) + + Dim attSerial As String = "" + Dim attGameName As String = "" + + Dim result As Integer + + Do While objReader.Peek() <> -1 + Dim line As String = objReader.ReadLine().Trim + Dim line_lower = line.ToLower + + If line_lower.StartsWith("game (") Then + result = add_Game(tran, attGameName, attSerial) + iTotal += 1 + Select Case result + Case -1 + iError += 1 + Case 1 + iNew += 1 + Case 0 + End Select + + attSerial = "" + attGameName = "" + End If + + If line_lower.StartsWith("name") Then + If MKNetLib.cls_MKRegex.IsMatch(line, "\""(.*?)\""") Then + attGameName = MKNetLib.cls_MKRegex.GetMatches(line, "\""(.*?)\""")(0).Groups(1).Value.Trim + End If + End If + + If line_lower.StartsWith("serial") Then + If MKNetLib.cls_MKRegex.IsMatch(line, "\""(.*?)\""") Then + attSerial = MKNetLib.cls_MKRegex.GetMatches(line, "\""(.*?)\""")(0).Groups(1).Value.Replace("-", "").Replace(" ", "").Trim.ToUpper + End If + End If + Loop + + result = add_Game(tran, attGameName, attSerial) + iTotal += 1 + Select Case result + Case -1 + iError += 1 + Case 1 + iNew += 1 + Case 0 + End Select + + iTotal -= 1 + iError -= 1 + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + Finally + tran.Commit() + End Try + End Using + + DevExpress.XtraEditors.XtraMessageBox.Show("Import done, " & iNew & " new entries out of " & iTotal & " and " & iError & " errors!") + End Sub + + Private Sub gv_DAT_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gv_DAT.FocusedRowChanged + Dim gv As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevExpress.XtraGrid.Views.Grid.GridView) + + If TC.NZ(gv.GetIncrementalText(), "") <> "" Then + gv.ClearSelection() + gv.SelectRow(gv.FocusedRowHandle) + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Screenshot_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.Designer.vb new file mode 100644 index 0000000..914a38c --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.Designer.vb @@ -0,0 +1,333 @@ + _ +Partial Class frm_Screenshot_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.pic_Game = New MKNetDXLib.ctl_MKDXPictureEdit() + Me.gb_Crop = New MKNetDXLib.ctl_MKDXGroupBox() + Me.spn_Right = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.spn_Left = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.spn_Bottom = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.spn_Top = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.Ctl_MKDXLabel4 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel3 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel2 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Top = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Templates = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Templates = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_ImageEditorTemplates = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Crop, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Crop.SuspendLayout() + CType(Me.spn_Right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Bottom.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Top.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Templates.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_ImageEditorTemplates, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pic_Game + ' + Me.pic_Game.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pic_Game.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic_Game.Location = New System.Drawing.Point(121, 26) + Me.pic_Game.Name = "pic_Game" + Me.pic_Game.Properties.AllowFocused = False + Me.pic_Game.Properties.AppearanceFocused.BorderColor = System.Drawing.Color.Transparent + Me.pic_Game.Properties.AppearanceFocused.Options.UseBorderColor = True + Me.pic_Game.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pic_Game.Properties.ErrorImage = Nothing + Me.pic_Game.Properties.InitialImage = Nothing + Me.pic_Game.Properties.NullText = " " + Me.pic_Game.Properties.PictureInterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic + Me.pic_Game.Properties.ReadOnly = True + Me.pic_Game.Properties.ShowMenu = False + Me.pic_Game.Properties.ShowZoomSubMenu = DevExpress.Utils.DefaultBoolean.[True] + Me.pic_Game.Size = New System.Drawing.Size(500, 387) + ToolTipTitleItem1.Text = "Change Background" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Click here to change the background." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.pic_Game.SuperTip = SuperToolTip1 + Me.pic_Game.TabIndex = 2 + ' + 'gb_Crop + ' + Me.gb_Crop.Controls.Add(Me.spn_Right) + Me.gb_Crop.Controls.Add(Me.spn_Left) + Me.gb_Crop.Controls.Add(Me.spn_Bottom) + Me.gb_Crop.Controls.Add(Me.spn_Top) + Me.gb_Crop.Controls.Add(Me.Ctl_MKDXLabel4) + Me.gb_Crop.Controls.Add(Me.Ctl_MKDXLabel3) + Me.gb_Crop.Controls.Add(Me.Ctl_MKDXLabel2) + Me.gb_Crop.Controls.Add(Me.lbl_Top) + Me.gb_Crop.Location = New System.Drawing.Point(2, 26) + Me.gb_Crop.Name = "gb_Crop" + Me.gb_Crop.Size = New System.Drawing.Size(115, 122) + Me.gb_Crop.TabIndex = 1 + Me.gb_Crop.Text = "Crop" + ' + 'spn_Right + ' + Me.spn_Right.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Right.Location = New System.Drawing.Point(53, 95) + Me.spn_Right.MKBoundLabel = Nothing + Me.spn_Right.MKEditValue_Compare = Nothing + Me.spn_Right.Name = "spn_Right" + Me.spn_Right.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Right.Size = New System.Drawing.Size(58, 20) + Me.spn_Right.TabIndex = 3 + ' + 'spn_Left + ' + Me.spn_Left.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Left.Location = New System.Drawing.Point(53, 72) + Me.spn_Left.MKBoundLabel = Nothing + Me.spn_Left.MKEditValue_Compare = Nothing + Me.spn_Left.Name = "spn_Left" + Me.spn_Left.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Left.Size = New System.Drawing.Size(58, 20) + Me.spn_Left.TabIndex = 2 + ' + 'spn_Bottom + ' + Me.spn_Bottom.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Bottom.Location = New System.Drawing.Point(53, 49) + Me.spn_Bottom.MKBoundLabel = Nothing + Me.spn_Bottom.MKEditValue_Compare = Nothing + Me.spn_Bottom.Name = "spn_Bottom" + Me.spn_Bottom.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Bottom.Size = New System.Drawing.Size(58, 20) + Me.spn_Bottom.TabIndex = 1 + ' + 'spn_Top + ' + Me.spn_Top.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Top.Location = New System.Drawing.Point(53, 26) + Me.spn_Top.MKBoundLabel = Nothing + Me.spn_Top.MKEditValue_Compare = Nothing + Me.spn_Top.Name = "spn_Top" + Me.spn_Top.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Top.Size = New System.Drawing.Size(58, 20) + Me.spn_Top.TabIndex = 0 + ' + 'Ctl_MKDXLabel4 + ' + Me.Ctl_MKDXLabel4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel4.Location = New System.Drawing.Point(6, 95) + Me.Ctl_MKDXLabel4.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel4.Name = "Ctl_MKDXLabel4" + Me.Ctl_MKDXLabel4.Size = New System.Drawing.Size(44, 20) + Me.Ctl_MKDXLabel4.TabIndex = 0 + Me.Ctl_MKDXLabel4.Text = "Right:" + ' + 'Ctl_MKDXLabel3 + ' + Me.Ctl_MKDXLabel3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel3.Location = New System.Drawing.Point(6, 72) + Me.Ctl_MKDXLabel3.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel3.Name = "Ctl_MKDXLabel3" + Me.Ctl_MKDXLabel3.Size = New System.Drawing.Size(44, 20) + Me.Ctl_MKDXLabel3.TabIndex = 0 + Me.Ctl_MKDXLabel3.Text = "Left:" + ' + 'Ctl_MKDXLabel2 + ' + Me.Ctl_MKDXLabel2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel2.Location = New System.Drawing.Point(6, 49) + Me.Ctl_MKDXLabel2.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel2.Name = "Ctl_MKDXLabel2" + Me.Ctl_MKDXLabel2.Size = New System.Drawing.Size(44, 20) + Me.Ctl_MKDXLabel2.TabIndex = 0 + Me.Ctl_MKDXLabel2.Text = "Bottom:" + ' + 'lbl_Top + ' + Me.lbl_Top.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Top.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Top.Location = New System.Drawing.Point(6, 26) + Me.lbl_Top.MKBoundControl1 = Nothing + Me.lbl_Top.MKBoundControl2 = Nothing + Me.lbl_Top.MKBoundControl3 = Nothing + Me.lbl_Top.MKBoundControl4 = Nothing + Me.lbl_Top.MKBoundControl5 = Nothing + Me.lbl_Top.Name = "lbl_Top" + Me.lbl_Top.Size = New System.Drawing.Size(44, 20) + Me.lbl_Top.TabIndex = 0 + Me.lbl_Top.Text = "Top:" + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(546, 416) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 4 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(468, 416) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 3 + Me.btn_OK.Text = "&OK" + ' + 'lbl_Templates + ' + Me.lbl_Templates.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Templates.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Templates.Location = New System.Drawing.Point(2, 3) + Me.lbl_Templates.MKBoundControl1 = Nothing + Me.lbl_Templates.MKBoundControl2 = Nothing + Me.lbl_Templates.MKBoundControl3 = Nothing + Me.lbl_Templates.MKBoundControl4 = Nothing + Me.lbl_Templates.MKBoundControl5 = Nothing + Me.lbl_Templates.Name = "lbl_Templates" + Me.lbl_Templates.Size = New System.Drawing.Size(115, 20) + Me.lbl_Templates.TabIndex = 0 + Me.lbl_Templates.Text = "Templates:" + ' + 'cmb_Templates + ' + Me.cmb_Templates.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Templates.EditValue = CType(0, Long) + Me.cmb_Templates.Location = New System.Drawing.Point(121, 3) + Me.cmb_Templates.MKBoundLabel = Nothing + Me.cmb_Templates.MKEditValue_Compare = Nothing + Me.cmb_Templates.Name = "cmb_Templates" + ToolTipTitleItem2.Text = "Add Template" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Add current settings as Template." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + ToolTipTitleItem3.Text = "Delete Template" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Delete current template" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + ToolTipTitleItem4.Text = "Edit Template" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Edit the template's name." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.cmb_Templates.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus, "", -1, False, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, "", Nothing, SuperToolTip2, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, "", -1, False, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject2, "", Nothing, SuperToolTip3, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, False, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject3, "", Nothing, SuperToolTip4, True)}) + Me.cmb_Templates.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_ImageEditorTemplates", "id_Image Editor Settings", 140, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Top", "Top", 28, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Bottom", "Bottom", 44, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Left", "Left", 29, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Right", "Right", 35, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Title", "Title", 30, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Templates.Properties.DataSource = Me.BS_ImageEditorTemplates + Me.cmb_Templates.Properties.DisplayMember = "Title" + Me.cmb_Templates.Properties.ValueMember = "id_ImageEditorTemplates" + Me.cmb_Templates.Size = New System.Drawing.Size(500, 20) + Me.cmb_Templates.TabIndex = 0 + ' + 'BS_ImageEditorTemplates + ' + Me.BS_ImageEditorTemplates.DataMember = "tbl_ImageEditorTemplates" + Me.BS_ImageEditorTemplates.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'frm_Screenshot_Edit + ' + Me.ClientSize = New System.Drawing.Size(624, 442) + Me.Controls.Add(Me.cmb_Templates) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.gb_Crop) + Me.Controls.Add(Me.pic_Game) + Me.Controls.Add(Me.lbl_Templates) + Me.Name = "frm_Screenshot_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Image" + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Crop, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Crop.ResumeLayout(False) + CType(Me.spn_Right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Bottom.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Top.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Templates.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_ImageEditorTemplates, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pic_Game As MKNetDXLib.ctl_MKDXPictureEdit + Friend WithEvents gb_Crop As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents spn_Top As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents Ctl_MKDXLabel4 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel3 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Top As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents spn_Right As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_Left As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_Bottom As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_Templates As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Templates As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_ImageEditorTemplates As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + +End Class diff --git a/Metropolis_Launcher/Forms/frm_Screenshot_Edit.resx b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.resx new file mode 100644 index 0000000..e50aa0c --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Screenshot_Edit.vb b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.vb new file mode 100644 index 0000000..fa62ebc --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Screenshot_Edit.vb @@ -0,0 +1,182 @@ +Public Class frm_Screenshot_Edit + Private _img As Image + + Private _Backgrounds As System.Drawing.Color() = {System.Drawing.Color.White, System.Drawing.Color.Black, System.Drawing.Color.Pink} + Private _Current_Background As Integer = 0 + + Private _btn_Template_Plus As DevExpress.XtraEditors.Controls.EditorButton = Nothing + Private _btn_Template_Minus As DevExpress.XtraEditors.Controls.EditorButton = Nothing + Private _btn_Template_Edit As DevExpress.XtraEditors.Controls.EditorButton = Nothing + + Public ReadOnly Property CropImage As Image + Get + Return pic_Game.Image + End Get + End Property + + Public Sub New(ByRef img As Image) + Me.InitializeComponent() + + Me._img = img + Me.pic_Game.Image = _img + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_ImageEditorSettings(tran, Me.DS_ML.tbl_ImageEditorTemplates) + tran.Commit() + End Using + + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Templates.Properties.Buttons + Select Case btn.Kind + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Plus + _btn_Template_Plus = btn + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Minus + _btn_Template_Minus = btn + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis + _btn_Template_Edit = btn + End Select + Next + + If _btn_Template_Plus IsNot Nothing Then _btn_Template_Plus.Enabled = False + If _btn_Template_Minus IsNot Nothing Then _btn_Template_Minus.Enabled = False + If _btn_Template_Edit IsNot Nothing Then _btn_Template_Edit.Enabled = False + End Sub + + Private Sub Handle_Spinedits_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spn_Right.EditValueChanged, spn_Left.EditValueChanged, spn_Bottom.EditValueChanged, spn_Top.EditValueChanged + Dim rect_Crop As New Rectangle(spn_Left.Value, spn_Top.Value, _img.Width - spn_Left.Value - spn_Right.Value, _img.Height - spn_Top.Value - spn_Bottom.Value) + Dim img_Crop As New Bitmap(rect_Crop.Width, rect_Crop.Height) + Using gfx As System.Drawing.Graphics = Graphics.FromImage(img_Crop) + gfx.DrawImage(_img, New Rectangle(0, 0, rect_Crop.Width, rect_Crop.Height), rect_Crop, GraphicsUnit.Pixel) + Me.pic_Game.Image = img_Crop + End Using + + If _btn_Template_Plus IsNot Nothing Then _btn_Template_Plus.Enabled = True + + If spn_Top.Value = 0 And spn_Bottom.Value = 0 And spn_Left.Value = 0 And spn_Right.Value = 0 Then + If _btn_Template_Plus IsNot Nothing Then _btn_Template_Plus.Enabled = False + + ElseIf TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_ImageEditorTemplates WHERE Top = " & TC.getSQLFormat(spn_Top.Value) & " AND Bottom = " & TC.getSQLFormat(spn_Bottom.Value) & " AND Left = " & TC.getSQLFormat(spn_Left.Value) & " AND Right = " & TC.getSQLFormat(spn_Right.Value)), 0) > 0 Then + If _btn_Template_Plus IsNot Nothing Then _btn_Template_Plus.Enabled = False + End If + End Sub + + Private Sub Handle_SpinEdits_EditValueChanging(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles spn_Top.EditValueChanging, spn_Right.EditValueChanging, spn_Left.EditValueChanging, spn_Bottom.EditValueChanging + Select Case sender.name + Case "spn_Top" + If _img.Height - e.NewValue - spn_Bottom.Value <= 0 Then + e.Cancel = True + Return + End If + Case "spn_Bottom" + If _img.Height - spn_Top.Value - e.NewValue <= 0 Then + e.Cancel = True + Return + End If + Case "spn_Left" + If _img.Width - e.NewValue - spn_Right.Value <= 0 Then + e.Cancel = True + Return + End If + Case "spn_Right" + If _img.Width - spn_Left.Value - e.NewValue <= 0 Then + e.Cancel = True + Return + End If + End Select + End Sub + + Private Sub pic_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_Game.Click + _Current_Background += 1 + If _Current_Background > _Backgrounds.Length - 1 Then _Current_Background = 0 + Me.pic_Game.BackColor = Me._Backgrounds(_Current_Background) + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub cmb_Templates_EditValueChanging(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles cmb_Templates.EditValueChanging + Dim rows() As DataRow = Me.DS_ML.tbl_ImageEditorTemplates.Select("id_ImageEditorTemplates = " & TC.getSQLFormat(e.NewValue)) + If rows.Length > 0 Then + If _img.Width - rows(0)("Left") - rows(0)("Right") < 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Cannot use this template because the horizontal cropping is too big", "Cannot use template", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + e.Cancel = True + Return + End If + If _img.Width - rows(0)("Top") - rows(0)("Bottom") < 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Cannot use this template because the vertical cropping is too big", "Cannot use template", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + e.Cancel = True + Return + End If + End If + End Sub + + Private Sub BS_ImageEditorTemplates_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_ImageEditorTemplates.CurrentChanged + If BS_ImageEditorTemplates.Current Is Nothing Then + If _btn_Template_Edit IsNot Nothing Then _btn_Template_Edit.Enabled = False + If _btn_Template_Minus IsNot Nothing Then _btn_Template_Minus.Enabled = False + Return + End If + + Me.spn_Top.Value = BS_ImageEditorTemplates.Current("Top") + Me.spn_Bottom.Value = BS_ImageEditorTemplates.Current("Bottom") + Me.spn_Left.Value = BS_ImageEditorTemplates.Current("Left") + Me.spn_Right.Value = BS_ImageEditorTemplates.Current("Right") + + If TC.NZ(BS_ImageEditorTemplates.Current("id_ImageEditorTemplates"), 0) > 0 Then + If _btn_Template_Edit IsNot Nothing Then _btn_Template_Edit.Enabled = True + If _btn_Template_Minus IsNot Nothing Then _btn_Template_Minus.Enabled = True + Else + If _btn_Template_Edit IsNot Nothing Then _btn_Template_Edit.Enabled = False + If _btn_Template_Minus IsNot Nothing Then _btn_Template_Minus.Enabled = False + End If + End Sub + + Private Sub cmb_Templates_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Templates.ButtonClick + Select Case e.Button.Kind + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Plus + 'Add Template + Using frm As New MKNetDXLib.frm_TextBoxEdit("Template Title:", "Please input a template title", "", False) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Dim Title As String = frm.Input + Dim id_ImageEditorTemplates As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "INSERT INTO tbl_ImageEditorTemplates (Title, Top, Bottom, Left, Right) VALUES (" & TC.getSQLParameter(Title, spn_Top.Value, spn_Bottom.Value, spn_Left.Value, spn_Right.Value) & "); SELECT last_insert_rowid()") + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_ImageEditorSettings(tran, Me.DS_ML.tbl_ImageEditorTemplates) + tran.Commit() + End Using + If TC.NZ(id_ImageEditorTemplates, 0) > 0 Then + 'BS_ImageEditorTemplates.Position = BS_ImageEditorTemplates.Find("id_ImageEditorTemplates", CLng(id_ImageEditorTemplates)) + cmb_Templates.EditValue = CLng(id_ImageEditorTemplates) + End If + End If + End Using + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Minus + 'Delete Template + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete the selected template?", "Delete template", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_ImageEditorTemplates WHERE id_ImageEditorTemplates = " & TC.getSQLFormat(BS_ImageEditorTemplates.Current("id_ImageEditorTemplates"))) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_ImageEditorSettings(tran, Me.DS_ML.tbl_ImageEditorTemplates) + tran.Commit() + End Using + 'BS_ImageEditorTemplates.Position = BS_ImageEditorTemplates.Find("id_ImageEditorTemplates", CLng(0)) + cmb_Templates.EditValue = CLng(0) + End If + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis + 'Edit Template + Using frm As New MKNetDXLib.frm_TextBoxEdit("Edit Template Title:", "Please input a new template title", "", False) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Dim Title As String = frm.Input + Dim id_ImageEditorTemplates As Object = BS_ImageEditorTemplates.Current("id_ImageEditorTemplates") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_ImageEditorTemplates SET Title = " & TC.getSQLFormat(Title) & " WHERE id_ImageEditorTemplates = " & TC.getSQLFormat(id_ImageEditorTemplates)) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_ImageEditorSettings(tran, Me.DS_ML.tbl_ImageEditorTemplates) + tran.Commit() + End Using + If TC.NZ(id_ImageEditorTemplates, 0) > 0 Then + 'BS_ImageEditorTemplates.Position = BS_ImageEditorTemplates.Find("id_ImageEditorTemplates", CLng(id_ImageEditorTemplates)) + cmb_Templates.EditValue = CLng(id_ImageEditorTemplates) + End If + End If + End Using + End Select + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.Designer.vb b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.Designer.vb new file mode 100644 index 0000000..079eba1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.Designer.vb @@ -0,0 +1,123 @@ + _ +Partial Class frm_Search_Missing_Extras + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.lbl_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Extra_Type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Extra_Type = New System.Windows.Forms.BindingSource() + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.cmb_Extra_Type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Extra_Type, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Platform + ' + Me.lbl_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platform.Location = New System.Drawing.Point(4, 3) + Me.lbl_Platform.MKBoundControl1 = Nothing + Me.lbl_Platform.MKBoundControl2 = Nothing + Me.lbl_Platform.MKBoundControl3 = Nothing + Me.lbl_Platform.MKBoundControl4 = Nothing + Me.lbl_Platform.MKBoundControl5 = Nothing + Me.lbl_Platform.Name = "lbl_Platform" + Me.lbl_Platform.Size = New System.Drawing.Size(256, 20) + Me.lbl_Platform.TabIndex = 5 + Me.lbl_Platform.Text = "Search for missing Extras in the following category:" + ' + 'cmb_Extra_Type + ' + Me.cmb_Extra_Type.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Extra_Type.Location = New System.Drawing.Point(263, 3) + Me.cmb_Extra_Type.MKBoundLabel = Nothing + Me.cmb_Extra_Type.MKEditValue_Compare = Nothing + Me.cmb_Extra_Type.Name = "cmb_Extra_Type" + Me.cmb_Extra_Type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Extra_Type.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Emu_Extras", "id_Emu_Extras", 94, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 37, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Sort", "Sort", 30, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Description", "Description", 63, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Hide", "Hide", 31, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Extra_Type.Properties.DataSource = Me.BS_Extra_Type + Me.cmb_Extra_Type.Properties.DisplayMember = "Name" + Me.cmb_Extra_Type.Properties.ValueMember = "id_Emu_Extras" + Me.cmb_Extra_Type.Size = New System.Drawing.Size(250, 20) + Me.cmb_Extra_Type.TabIndex = 0 + ' + 'BS_Extra_Type + ' + Me.BS_Extra_Type.DataMember = "tbl_Emu_Extras" + Me.BS_Extra_Type.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btn_OK + ' + Me.btn_OK.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btn_OK.Location = New System.Drawing.Point(360, 51) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 1 + Me.btn_OK.Text = "&OK" + ' + 'btn_Cancel + ' + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(438, 51) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 2 + Me.btn_Cancel.Text = "&Cancel" + ' + 'frm_Search_Missing_Extras + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(516, 77) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.cmb_Extra_Type) + Me.Controls.Add(Me.lbl_Platform) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frm_Search_Missing_Extras" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Search for missing Extras" + CType(Me.cmb_Extra_Type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Extra_Type, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Extra_Type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Extra_Type As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton +End Class diff --git a/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.resx b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.resx new file mode 100644 index 0000000..e2f127b --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.vb b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.vb new file mode 100644 index 0000000..acc8cb7 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Search_Missing_Extras.vb @@ -0,0 +1,11 @@ +Public Class frm_Search_Missing_Extras + Public Sub New() + InitializeComponent() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Emu_Extras(tran, Me.DS_ML.tbl_Emu_Extras, True) + End Using + + cmb_Extra_Type.EditValue = 0 + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation.Designer.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.Designer.vb new file mode 100644 index 0000000..beec4dc --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.Designer.vb @@ -0,0 +1,947 @@ + _ +Partial Class frm_Similarity_Calculation + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SerializableAppearanceObject9 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject10 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject11 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject12 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Similarity_Calculation)) + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.lbl_Similarity_Calculation_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Similarity_Calculation_Configuration = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Similarity_Calculation_Config = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.lbl_Haves_Only = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Haves_Only = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.btn_Go = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.grd_Similarity_Calculation = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Similarity_Calculation = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Similarity_Calculation = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGame = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatform = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFolder = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHave = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSimilarity = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col001_Platform = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col002_MobyRank = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col003_MobyScore = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col004_Publisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col005_Developer = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col006_Year = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col101_Basic_Genres = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col102_Perspectives = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col107_Visual_Presentation = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col108_Gameplay = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col109_Pacing = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col110_Narrative_Theme_Topic = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col111_Setting = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col103_Sports_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col112_Vehicular_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col105_Educational_Categories = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col113_Interface_Control = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col114_DLC_Addon = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col115_Special_Edition = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col106_Other_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col201_MinPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col202_MaxPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col203_AgeO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col204_AgeP = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col205_Rating_Descriptors = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col207_Multiplayer_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col206_Other_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col301_Group_Membership = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col401_Staff = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Fav = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.lbl_Results = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Save = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.pnl_Top = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_Main = New MKNetDXLib.ctl_MKDXPanel() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Details = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Similarity_Calculation = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.cmb_Similarity_Calculation_Configuration.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Similarity_Calculation_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Haves_Only.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Similarity_Calculation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Similarity_Calculation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Similarity_Calculation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Fav, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Top, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Top.SuspendLayout() + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Main.SuspendLayout() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Similarity_Calculation, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Similarity_Calculation_Config + ' + Me.lbl_Similarity_Calculation_Config.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Similarity_Calculation_Config.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity_Calculation_Config.Location = New System.Drawing.Point(3, 3) + Me.lbl_Similarity_Calculation_Config.MKBoundControl1 = Nothing + Me.lbl_Similarity_Calculation_Config.MKBoundControl2 = Nothing + Me.lbl_Similarity_Calculation_Config.MKBoundControl3 = Nothing + Me.lbl_Similarity_Calculation_Config.MKBoundControl4 = Nothing + Me.lbl_Similarity_Calculation_Config.MKBoundControl5 = Nothing + Me.lbl_Similarity_Calculation_Config.Name = "lbl_Similarity_Calculation_Config" + Me.lbl_Similarity_Calculation_Config.Size = New System.Drawing.Size(88, 20) + ToolTipTitleItem1.Text = "Configuration" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Each configuration defines how you weight different feature sets of the games" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_Similarity_Calculation_Config.SuperTip = SuperToolTip1 + Me.lbl_Similarity_Calculation_Config.TabIndex = 6 + Me.lbl_Similarity_Calculation_Config.Text = "Configuration:" + ' + 'cmb_Similarity_Calculation_Configuration + ' + Me.cmb_Similarity_Calculation_Configuration.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Similarity_Calculation_Configuration.EditValue = 0 + Me.cmb_Similarity_Calculation_Configuration.Location = New System.Drawing.Point(94, 3) + Me.cmb_Similarity_Calculation_Configuration.MKBoundLabel = Nothing + Me.cmb_Similarity_Calculation_Configuration.MKEditValue_Compare = Nothing + Me.cmb_Similarity_Calculation_Configuration.Name = "cmb_Similarity_Calculation_Configuration" + ToolTipTitleItem2.Text = "Add a new configuration" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + ToolTipTitleItem3.Text = "Delete this configuration" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + ToolTipTitleItem4.Text = "Edit this configuration" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + Me.cmb_Similarity_Calculation_Configuration.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, SuperToolTip2, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", Nothing, SuperToolTip3, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", Nothing, SuperToolTip4, True)}) + Me.cmb_Similarity_Calculation_Configuration.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Similarity_Calculation_Config", "id_Similarity_Calculation_Config", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_001_Platform", "Weight_001_Platform", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_002_MobyRank", "Weight_002_Moby Rank", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_003_MobyScore", "Weight_003_Moby Score", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_004_Publisher", "Weight_004_Publisher", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_005_Developer", "Weight_005_Developer", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_006_Year", "Weight_006_Year", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_101_Basic_Genres", "Weight_101_Basic_Genres", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_102_Perspectives", "Weight_102_Perspectives", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_103_Sports_Themes", "Weight_103_Sports_Themes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_104_Non_Sports_Themes", "Weight_104_Non_Sports_Themes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_105_Educational_Categories", "Weight_105_Educational_Categories", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_106_Other_Attributes", "Weight_106_Other_Attributes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_107_Visual_Presentation", "Weight_107_Visual_Presentation", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_108_Gameplay", "Weight_108_Gameplay", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_109_Pacing", "Weight_109_Pacing", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_110_Narrative_Theme_Topic", "Weight_110_Narrative_Theme_Topic", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_111_Setting", "Weight_111_Setting", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_112_Vehicular_Themes", "Weight_112_Vehicular_Themes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_113_Interface_Control", "Weight_113_Interface_Control", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_114_DLC_Addon", "Weight_114_DLC_Addon", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_115_Special_Edition", "Weight_115_Special_Edition", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_201_MinPlayers", "Weight_201_Min Players", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_202_MaxPlayers", "Weight_202_Max Players", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_203_AgeO", "Weight_203_Age O", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_204_AgeP", "Weight_204_Age P", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_205_Rating_Descriptors", "Weight_205_Rating_Descriptors", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_206_Other_Attributes", "Weight_206_Other_Attributes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_207_Multiplayer_Attributes", "Weight_207_Multiplayer_Attributes", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_301_Group_Membership", "Weight_301_Group_Membership", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Weight_401_Staff", "Weight_401_Staff", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far)}) + Me.cmb_Similarity_Calculation_Configuration.Properties.DataSource = Me.BS_Similarity_Calculation_Config + Me.cmb_Similarity_Calculation_Configuration.Properties.DisplayMember = "Name" + Me.cmb_Similarity_Calculation_Configuration.Properties.NullText = "" + Me.cmb_Similarity_Calculation_Configuration.Properties.ShowHeader = False + Me.cmb_Similarity_Calculation_Configuration.Properties.ValueMember = "id_Similarity_Calculation_Config" + Me.cmb_Similarity_Calculation_Configuration.Size = New System.Drawing.Size(687, 20) + ToolTipTitleItem5.Text = "Configuration" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Each configuration defines how you weight different feature sets of the games" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem2) + Me.cmb_Similarity_Calculation_Configuration.SuperTip = SuperToolTip5 + Me.cmb_Similarity_Calculation_Configuration.TabIndex = 0 + ' + 'BS_Similarity_Calculation_Config + ' + Me.BS_Similarity_Calculation_Config.DataMember = "tbl_Similarity_Calculation_Config" + Me.BS_Similarity_Calculation_Config.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_Haves_Only + ' + Me.lbl_Haves_Only.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Haves_Only.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Haves_Only.Location = New System.Drawing.Point(3, 26) + Me.lbl_Haves_Only.MKBoundControl1 = Nothing + Me.lbl_Haves_Only.MKBoundControl2 = Nothing + Me.lbl_Haves_Only.MKBoundControl3 = Nothing + Me.lbl_Haves_Only.MKBoundControl4 = Nothing + Me.lbl_Haves_Only.MKBoundControl5 = Nothing + Me.lbl_Haves_Only.Name = "lbl_Haves_Only" + Me.lbl_Haves_Only.Size = New System.Drawing.Size(88, 20) + ToolTipTitleItem6.Text = "Haves only" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem3) + Me.lbl_Haves_Only.SuperTip = SuperToolTip6 + Me.lbl_Haves_Only.TabIndex = 6 + Me.lbl_Haves_Only.Text = "Haves only:" + ' + 'chb_Haves_Only + ' + Me.chb_Haves_Only.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Haves_Only.Location = New System.Drawing.Point(94, 26) + Me.chb_Haves_Only.MKBoundLabel = Nothing + Me.chb_Haves_Only.MKEditValue_Compare = Nothing + Me.chb_Haves_Only.Name = "chb_Haves_Only" + Me.chb_Haves_Only.Properties.Caption = "" + Me.chb_Haves_Only.Size = New System.Drawing.Size(17, 19) + ToolTipTitleItem7.Text = "Haves only" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = resources.GetString("ToolTipItem4.Text") + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem4) + Me.chb_Haves_Only.SuperTip = SuperToolTip7 + Me.chb_Haves_Only.TabIndex = 8 + ' + 'btn_Go + ' + Me.btn_Go.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Go.Location = New System.Drawing.Point(706, 26) + Me.btn_Go.Name = "btn_Go" + Me.btn_Go.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem8.Text = "Go!" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Run the similarity calculation. This will take a while." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem5) + Me.btn_Go.SuperTip = SuperToolTip8 + Me.btn_Go.TabIndex = 1 + Me.btn_Go.Text = "Go!" + ' + 'grd_Similarity_Calculation + ' + Me.grd_Similarity_Calculation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Similarity_Calculation.DataSource = Me.BS_Similarity_Calculation + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.First.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Last.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Next.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.NextPage.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Prev.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.PrevPage.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Similarity_Calculation.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Similarity_Calculation.Location = New System.Drawing.Point(3, 1) + Me.grd_Similarity_Calculation.MainView = Me.gv_Similarity_Calculation + Me.grd_Similarity_Calculation.Name = "grd_Similarity_Calculation" + Me.grd_Similarity_Calculation.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Fav, Me.RepositoryItemCheckEdit1}) + Me.grd_Similarity_Calculation.Size = New System.Drawing.Size(778, 459) + Me.grd_Similarity_Calculation.TabIndex = 0 + Me.grd_Similarity_Calculation.UseEmbeddedNavigator = True + Me.grd_Similarity_Calculation.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Similarity_Calculation}) + ' + 'BS_Similarity_Calculation + ' + Me.BS_Similarity_Calculation.DataMember = "tbl_Similarity_Calculation" + Me.BS_Similarity_Calculation.DataSource = Me.DS_ML + ' + 'gv_Similarity_Calculation + ' + Me.gv_Similarity_Calculation.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGame, Me.colPlatform, Me.colFolder, Me.colFile, Me.colInnerFile, Me.colHave, Me.colSimilarity, Me.col001_Platform, Me.col002_MobyRank, Me.col003_MobyScore, Me.col004_Publisher, Me.col005_Developer, Me.col006_Year, Me.col101_Basic_Genres, Me.col102_Perspectives, Me.col107_Visual_Presentation, Me.col108_Gameplay, Me.col109_Pacing, Me.col110_Narrative_Theme_Topic, Me.col111_Setting, Me.col103_Sports_Themes, Me.col112_Vehicular_Themes, Me.col105_Educational_Categories, Me.col113_Interface_Control, Me.col114_DLC_Addon, Me.col115_Special_Edition, Me.col106_Other_Attributes, Me.col201_MinPlayers, Me.col202_MaxPlayers, Me.col203_AgeO, Me.col204_AgeP, Me.col205_Rating_Descriptors, Me.col207_Multiplayer_Attributes, Me.col206_Other_Attributes, Me.col301_Group_Membership, Me.col401_Staff}) + Me.gv_Similarity_Calculation.GridControl = Me.grd_Similarity_Calculation + Me.gv_Similarity_Calculation.Name = "gv_Similarity_Calculation" + Me.gv_Similarity_Calculation.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Similarity_Calculation.OptionsView.ColumnAutoWidth = False + Me.gv_Similarity_Calculation.OptionsView.ShowGroupPanel = False + ' + 'colGame + ' + Me.colGame.FieldName = "Game" + Me.colGame.Name = "colGame" + Me.colGame.OptionsColumn.AllowEdit = False + Me.colGame.OptionsColumn.ReadOnly = True + Me.colGame.ToolTip = "Name of the game" + Me.colGame.Visible = True + Me.colGame.VisibleIndex = 1 + Me.colGame.Width = 138 + ' + 'colPlatform + ' + Me.colPlatform.FieldName = "Platform" + Me.colPlatform.Name = "colPlatform" + Me.colPlatform.OptionsColumn.AllowEdit = False + Me.colPlatform.OptionsColumn.ReadOnly = True + Me.colPlatform.ToolTip = "Platform of the game's release" + Me.colPlatform.Visible = True + Me.colPlatform.VisibleIndex = 2 + ' + 'colFolder + ' + Me.colFolder.Caption = "Directory" + Me.colFolder.FieldName = "Folder" + Me.colFolder.Name = "colFolder" + Me.colFolder.OptionsColumn.AllowEdit = False + Me.colFolder.OptionsColumn.ReadOnly = True + Me.colFolder.ToolTip = "Directory of the game's file/s" + ' + 'colFile + ' + Me.colFile.FieldName = "File" + Me.colFile.Name = "colFile" + Me.colFile.OptionsColumn.AllowEdit = False + Me.colFile.OptionsColumn.ReadOnly = True + Me.colFile.ToolTip = "Filename of the game" + ' + 'colInnerFile + ' + Me.colInnerFile.FieldName = "InnerFile" + Me.colInnerFile.Name = "colInnerFile" + Me.colInnerFile.OptionsColumn.AllowEdit = False + Me.colInnerFile.OptionsColumn.ReadOnly = True + Me.colInnerFile.ToolTip = "Inner file name of the game (e.g. a file within a .zip)" + ' + 'colHave + ' + Me.colHave.FieldName = "Have" + Me.colHave.Name = "colHave" + Me.colHave.OptionsColumn.AllowEdit = False + Me.colHave.OptionsColumn.ReadOnly = True + Me.colHave.ToolTip = "Denotes if the game is available in your collection" + Me.colHave.Visible = True + Me.colHave.VisibleIndex = 0 + Me.colHave.Width = 45 + ' + 'colSimilarity + ' + Me.colSimilarity.Caption = "»Similarity«" + Me.colSimilarity.FieldName = "Similarity" + Me.colSimilarity.Name = "colSimilarity" + Me.colSimilarity.OptionsColumn.AllowEdit = False + Me.colSimilarity.OptionsColumn.ReadOnly = True + Me.colSimilarity.ToolTip = "The total similarity score (0-100)" + Me.colSimilarity.Visible = True + Me.colSimilarity.VisibleIndex = 3 + Me.colSimilarity.Width = 74 + ' + 'col001_Platform + ' + Me.col001_Platform.Caption = "»Platform«" + Me.col001_Platform.FieldName = "001_Platform" + Me.col001_Platform.Name = "col001_Platform" + Me.col001_Platform.OptionsColumn.AllowEdit = False + Me.col001_Platform.OptionsColumn.ReadOnly = True + Me.col001_Platform.ToolTip = "Similarity score (0-100) for the platforms of the games' releases" + Me.col001_Platform.Visible = True + Me.col001_Platform.VisibleIndex = 4 + Me.col001_Platform.Width = 72 + ' + 'col002_MobyRank + ' + Me.col002_MobyRank.Caption = "»Rank«" + Me.col002_MobyRank.FieldName = "002_MobyRank" + Me.col002_MobyRank.Name = "col002_MobyRank" + Me.col002_MobyRank.OptionsColumn.AllowEdit = False + Me.col002_MobyRank.OptionsColumn.ReadOnly = True + Me.col002_MobyRank.ToolTip = "Similarity score (0-100) for the games' ranks based on reviews from various criti" & + "cs" + Me.col002_MobyRank.Visible = True + Me.col002_MobyRank.VisibleIndex = 5 + Me.col002_MobyRank.Width = 56 + ' + 'col003_MobyScore + ' + Me.col003_MobyScore.Caption = "»Score«" + Me.col003_MobyScore.FieldName = "003_MobyScore" + Me.col003_MobyScore.Name = "col003_MobyScore" + Me.col003_MobyScore.OptionsColumn.AllowEdit = False + Me.col003_MobyScore.OptionsColumn.ReadOnly = True + Me.col003_MobyScore.ToolTip = "Similarity score (0-100) for the games' scores based on MobyGames user ratings" + Me.col003_MobyScore.Visible = True + Me.col003_MobyScore.VisibleIndex = 6 + Me.col003_MobyScore.Width = 59 + ' + 'col004_Publisher + ' + Me.col004_Publisher.Caption = "»Publisher«" + Me.col004_Publisher.FieldName = "004_Publisher" + Me.col004_Publisher.Name = "col004_Publisher" + Me.col004_Publisher.OptionsColumn.AllowEdit = False + Me.col004_Publisher.OptionsColumn.ReadOnly = True + Me.col004_Publisher.ToolTip = "Similarity score (0-100) for the publishing companies of the games' releases" + Me.col004_Publisher.Visible = True + Me.col004_Publisher.VisibleIndex = 7 + ' + 'col005_Developer + ' + Me.col005_Developer.Caption = "»Developer«" + Me.col005_Developer.FieldName = "005_Developer" + Me.col005_Developer.Name = "col005_Developer" + Me.col005_Developer.OptionsColumn.AllowEdit = False + Me.col005_Developer.OptionsColumn.ReadOnly = True + Me.col005_Developer.ToolTip = "Similarity score (0-100) for the developing companies of the games' releases" + Me.col005_Developer.Visible = True + Me.col005_Developer.VisibleIndex = 8 + Me.col005_Developer.Width = 81 + ' + 'col006_Year + ' + Me.col006_Year.Caption = "»Year«" + Me.col006_Year.FieldName = "006_Year" + Me.col006_Year.Name = "col006_Year" + Me.col006_Year.OptionsColumn.AllowEdit = False + Me.col006_Year.OptionsColumn.ReadOnly = True + Me.col006_Year.ToolTip = "Similarity score (0-100) for the years of the games' releases" + Me.col006_Year.Visible = True + Me.col006_Year.VisibleIndex = 9 + Me.col006_Year.Width = 54 + ' + 'col101_Basic_Genres + ' + Me.col101_Basic_Genres.Caption = "»Genres«" + Me.col101_Basic_Genres.FieldName = "101_Basic_Genres" + Me.col101_Basic_Genres.Name = "col101_Basic_Genres" + Me.col101_Basic_Genres.OptionsColumn.AllowEdit = False + Me.col101_Basic_Genres.OptionsColumn.ReadOnly = True + Me.col101_Basic_Genres.ToolTip = "Similarity score (0-100) for the basic genres of the games (e.g. Action, Adventur" & + "e, Strategy etc.)" + Me.col101_Basic_Genres.Visible = True + Me.col101_Basic_Genres.VisibleIndex = 10 + Me.col101_Basic_Genres.Width = 93 + ' + 'col102_Perspectives + ' + Me.col102_Perspectives.Caption = "»Perspectives«" + Me.col102_Perspectives.FieldName = "102_Perspectives" + Me.col102_Perspectives.Name = "col102_Perspectives" + Me.col102_Perspectives.OptionsColumn.AllowEdit = False + Me.col102_Perspectives.OptionsColumn.ReadOnly = True + Me.col102_Perspectives.ToolTip = "Similarity score (0-100) for the perspectives of the games (e.g. 1st-person, 3rd-" & + "person, Audio game, Top-down etc.)" + Me.col102_Perspectives.Visible = True + Me.col102_Perspectives.VisibleIndex = 11 + Me.col102_Perspectives.Width = 93 + ' + 'col107_Visual_Presentation + ' + Me.col107_Visual_Presentation.Caption = "»Visual Presentation«" + Me.col107_Visual_Presentation.FieldName = "107_Visual_Presentation" + Me.col107_Visual_Presentation.Name = "col107_Visual_Presentation" + Me.col107_Visual_Presentation.OptionsColumn.AllowEdit = False + Me.col107_Visual_Presentation.OptionsColumn.ReadOnly = True + Me.col107_Visual_Presentation.ToolTip = "Similarity score (0-100) for the visual presentations of the games (e.g. 2D scrol" & + "ling, Fixed / Flip-screen, Isometric etc.)" + Me.col107_Visual_Presentation.Visible = True + Me.col107_Visual_Presentation.VisibleIndex = 14 + ' + 'col108_Gameplay + ' + Me.col108_Gameplay.Caption = "»Gameplay«" + Me.col108_Gameplay.FieldName = "108_Gameplay" + Me.col108_Gameplay.Name = "col108_Gameplay" + Me.col108_Gameplay.OptionsColumn.AllowEdit = False + Me.col108_Gameplay.OptionsColumn.ReadOnly = True + Me.col108_Gameplay.ToolTip = "Similarity score (0-100) for the gameplay characteristics of the games (e.g. Acti" & + "on RPG, Arcade, Beat 'em up / Brawler, Fighting, Graphic Adventure etc.)" + Me.col108_Gameplay.Visible = True + Me.col108_Gameplay.VisibleIndex = 15 + ' + 'col109_Pacing + ' + Me.col109_Pacing.Caption = "»Pacing«" + Me.col109_Pacing.FieldName = "109_Pacing" + Me.col109_Pacing.Name = "col109_Pacing" + Me.col109_Pacing.OptionsColumn.AllowEdit = False + Me.col109_Pacing.OptionsColumn.ReadOnly = True + Me.col109_Pacing.ToolTip = "Similarity score (0-100) for the pacing characteristics of the games (e.g. Persis" & + "tent, Real-Time, Turn-based etc.)" + Me.col109_Pacing.Visible = True + Me.col109_Pacing.VisibleIndex = 16 + ' + 'col110_Narrative_Theme_Topic + ' + Me.col110_Narrative_Theme_Topic.Caption = "»Narrative Theme / Topic«" + Me.col110_Narrative_Theme_Topic.FieldName = "110_Narrative_Theme_Topic" + Me.col110_Narrative_Theme_Topic.Name = "col110_Narrative_Theme_Topic" + Me.col110_Narrative_Theme_Topic.OptionsColumn.AllowEdit = False + Me.col110_Narrative_Theme_Topic.OptionsColumn.ReadOnly = True + Me.col110_Narrative_Theme_Topic.ToolTip = "Similarity score (0-100) for the narrative themes / topics of the games (e.g. Com" & + "edy, Crime, Horror, Survival etc.)" + Me.col110_Narrative_Theme_Topic.Visible = True + Me.col110_Narrative_Theme_Topic.VisibleIndex = 17 + ' + 'col111_Setting + ' + Me.col111_Setting.Caption = "»Setting«" + Me.col111_Setting.FieldName = "111_Setting" + Me.col111_Setting.Name = "col111_Setting" + Me.col111_Setting.OptionsColumn.AllowEdit = False + Me.col111_Setting.OptionsColumn.ReadOnly = True + Me.col111_Setting.ToolTip = "Similarity score (0-100) for the geographical/epochal settings of the games (e.g." & + " Cyberpunk / Dark Sci-Fi, Industrial Age, Japan, Europe etc.)" + Me.col111_Setting.Visible = True + Me.col111_Setting.VisibleIndex = 18 + ' + 'col103_Sports_Themes + ' + Me.col103_Sports_Themes.Caption = "»Sports Themes«" + Me.col103_Sports_Themes.FieldName = "103_Sports_Themes" + Me.col103_Sports_Themes.Name = "col103_Sports_Themes" + Me.col103_Sports_Themes.OptionsColumn.AllowEdit = False + Me.col103_Sports_Themes.OptionsColumn.ReadOnly = True + Me.col103_Sports_Themes.ToolTip = "Similarity score (0-100) for the sports themes of the games (e.g. Basketball, Foo" & + "tball (European) / Soccer, Golf etc.)" + Me.col103_Sports_Themes.Visible = True + Me.col103_Sports_Themes.VisibleIndex = 12 + Me.col103_Sports_Themes.Width = 103 + ' + 'col112_Vehicular_Themes + ' + Me.col112_Vehicular_Themes.Caption = "»Vehicular Themes«" + Me.col112_Vehicular_Themes.FieldName = "112_Vehicular_Themes" + Me.col112_Vehicular_Themes.Name = "col112_Vehicular_Themes" + Me.col112_Vehicular_Themes.OptionsColumn.AllowEdit = False + Me.col112_Vehicular_Themes.OptionsColumn.ReadOnly = True + Me.col112_Vehicular_Themes.ToolTip = "Similarity score (0-100) for the vehicular themes of the games (e.g. Automobile, " & + "Bike / Bicycling, Flight / Aviation etc.)" + Me.col112_Vehicular_Themes.Visible = True + Me.col112_Vehicular_Themes.VisibleIndex = 21 + ' + 'col105_Educational_Categories + ' + Me.col105_Educational_Categories.Caption = "»Educational Categories«" + Me.col105_Educational_Categories.FieldName = "105_Educational_Categories" + Me.col105_Educational_Categories.Name = "col105_Educational_Categories" + Me.col105_Educational_Categories.OptionsColumn.AllowEdit = False + Me.col105_Educational_Categories.OptionsColumn.ReadOnly = True + Me.col105_Educational_Categories.ToolTip = "Similarity score (0-100) for the educational categories of the games (e.g. Foreig" & + "n Language, History, Math / Logic, Typing etc.)" + Me.col105_Educational_Categories.Visible = True + Me.col105_Educational_Categories.VisibleIndex = 13 + Me.col105_Educational_Categories.Width = 142 + ' + 'col113_Interface_Control + ' + Me.col113_Interface_Control.Caption = "»Interface / Control«" + Me.col113_Interface_Control.FieldName = "113_Interface_Control" + Me.col113_Interface_Control.Name = "col113_Interface_Control" + Me.col113_Interface_Control.OptionsColumn.AllowEdit = False + Me.col113_Interface_Control.OptionsColumn.ReadOnly = True + Me.col113_Interface_Control.ToolTip = "Similarity score (0-100) for the interface/control characteristics of the games (" & + "e.g. Direct Control, Motion Control, Point and Select, Text Parser etc.)" + Me.col113_Interface_Control.Visible = True + Me.col113_Interface_Control.VisibleIndex = 23 + ' + 'col114_DLC_Addon + ' + Me.col114_DLC_Addon.Caption = "»DLC / Add-On«" + Me.col114_DLC_Addon.FieldName = "114_DLC_Addon" + Me.col114_DLC_Addon.Name = "col114_DLC_Addon" + Me.col114_DLC_Addon.OptionsColumn.AllowEdit = False + Me.col114_DLC_Addon.OptionsColumn.ReadOnly = True + Me.col114_DLC_Addon.ToolTip = "Similarity score (0-100) for the games' release DLC/Add-on characteristics (e.g. " & + "Customization / Outfit / Skin, Game Mode, Map / Level etc.)" + Me.col114_DLC_Addon.Visible = True + Me.col114_DLC_Addon.VisibleIndex = 24 + ' + 'col115_Special_Edition + ' + Me.col115_Special_Edition.Caption = "»Special Edition«" + Me.col115_Special_Edition.FieldName = "115_Special_Edition" + Me.col115_Special_Edition.Name = "col115_Special_Edition" + Me.col115_Special_Edition.OptionsColumn.AllowEdit = False + Me.col115_Special_Edition.OptionsColumn.ReadOnly = True + Me.col115_Special_Edition.ToolTip = "Similarity score (0-100) for the games' release special edition characteristics (" & + "e.g. Digital Extras, Extra Content/Game, Physical Extras)" + Me.col115_Special_Edition.Visible = True + Me.col115_Special_Edition.VisibleIndex = 25 + ' + 'col106_Other_Attributes + ' + Me.col106_Other_Attributes.Caption = "»Other Attributes«" + Me.col106_Other_Attributes.FieldName = "106_Other_Attributes" + Me.col106_Other_Attributes.Name = "col106_Other_Attributes" + Me.col106_Other_Attributes.OptionsColumn.AllowEdit = False + Me.col106_Other_Attributes.OptionsColumn.ReadOnly = True + Me.col106_Other_Attributes.ToolTip = "Similarity score (0-100) for other attributes of the games (e.g. Licensed Title e" & + "tc.)" + Me.col106_Other_Attributes.Visible = True + Me.col106_Other_Attributes.VisibleIndex = 19 + Me.col106_Other_Attributes.Width = 129 + ' + 'col201_MinPlayers + ' + Me.col201_MinPlayers.Caption = "»Min. Players«" + Me.col201_MinPlayers.FieldName = "201_MinPlayers" + Me.col201_MinPlayers.Name = "col201_MinPlayers" + Me.col201_MinPlayers.OptionsColumn.AllowEdit = False + Me.col201_MinPlayers.OptionsColumn.ReadOnly = True + Me.col201_MinPlayers.ToolTip = "Similarity score (0-100) for minimum number of players supported by the games" + Me.col201_MinPlayers.Visible = True + Me.col201_MinPlayers.VisibleIndex = 20 + Me.col201_MinPlayers.Width = 90 + ' + 'col202_MaxPlayers + ' + Me.col202_MaxPlayers.Caption = "»Max. Players«" + Me.col202_MaxPlayers.FieldName = "202_MaxPlayers" + Me.col202_MaxPlayers.Name = "col202_MaxPlayers" + Me.col202_MaxPlayers.OptionsColumn.AllowEdit = False + Me.col202_MaxPlayers.OptionsColumn.ReadOnly = True + Me.col202_MaxPlayers.ToolTip = "Similarity score (0-100) for maximum number of players supported by the games" + Me.col202_MaxPlayers.Visible = True + Me.col202_MaxPlayers.VisibleIndex = 22 + Me.col202_MaxPlayers.Width = 94 + ' + 'col203_AgeO + ' + Me.col203_AgeO.Caption = "»AgeO«" + Me.col203_AgeO.FieldName = "203_AgeO" + Me.col203_AgeO.Name = "col203_AgeO" + Me.col203_AgeO.OptionsColumn.AllowEdit = False + Me.col203_AgeO.OptionsColumn.ReadOnly = True + Me.col203_AgeO.ToolTip = "Similarity score (0-100) for the pessimistic age rating of the games (multiple ra" & + "tings may apply, the optimistic age is the minimum age by all ratings)" + Me.col203_AgeO.Visible = True + Me.col203_AgeO.VisibleIndex = 26 + Me.col203_AgeO.Width = 59 + ' + 'col204_AgeP + ' + Me.col204_AgeP.Caption = "»AgeP«" + Me.col204_AgeP.FieldName = "204_AgeP" + Me.col204_AgeP.Name = "col204_AgeP" + Me.col204_AgeP.OptionsColumn.AllowEdit = False + Me.col204_AgeP.OptionsColumn.ReadOnly = True + Me.col204_AgeP.ToolTip = "Similarity score (0-100) for the pessimistic age rating of the games (multiple ra" & + "tings may apply, the pessimistic age is the maximum age by all ratings)" + Me.col204_AgeP.Visible = True + Me.col204_AgeP.VisibleIndex = 27 + Me.col204_AgeP.Width = 57 + ' + 'col205_Rating_Descriptors + ' + Me.col205_Rating_Descriptors.Caption = "»Rating Descriptors«" + Me.col205_Rating_Descriptors.FieldName = "205_Rating_Descriptors" + Me.col205_Rating_Descriptors.Name = "col205_Rating_Descriptors" + Me.col205_Rating_Descriptors.OptionsColumn.AllowEdit = False + Me.col205_Rating_Descriptors.OptionsColumn.ReadOnly = True + Me.col205_Rating_Descriptors.ToolTip = "Similarity score (0-100) for rating descriptors of the games (e.g. Strong Violenc" & + "e, Mild Use of Drugs, Animated Blood etc.)" + Me.col205_Rating_Descriptors.Visible = True + Me.col205_Rating_Descriptors.VisibleIndex = 28 + Me.col205_Rating_Descriptors.Width = 120 + ' + 'col207_Multiplayer_Attributes + ' + Me.col207_Multiplayer_Attributes.Caption = "»Multiplayer Attributes«" + Me.col207_Multiplayer_Attributes.FieldName = "207_Multiplayer_Attributes" + Me.col207_Multiplayer_Attributes.Name = "col207_Multiplayer_Attributes" + Me.col207_Multiplayer_Attributes.OptionsColumn.AllowEdit = False + Me.col207_Multiplayer_Attributes.OptionsColumn.ReadOnly = True + Me.col207_Multiplayer_Attributes.ToolTip = "Similarity score (0-100) for multiplayer modes and options of the games (e.g. Fre" & + "e-for-all, Co-Op, Same/Splitscreen Multiplayer, LAN etc.)" + Me.col207_Multiplayer_Attributes.Visible = True + Me.col207_Multiplayer_Attributes.VisibleIndex = 29 + Me.col207_Multiplayer_Attributes.Width = 142 + ' + 'col206_Other_Attributes + ' + Me.col206_Other_Attributes.Caption = "»Tech Info«" + Me.col206_Other_Attributes.FieldName = "206_Other_Attributes" + Me.col206_Other_Attributes.Name = "col206_Other_Attributes" + Me.col206_Other_Attributes.OptionsColumn.AllowEdit = False + Me.col206_Other_Attributes.OptionsColumn.ReadOnly = True + Me.col206_Other_Attributes.ToolTip = "Similarity score (0-100) for technical attributes of the games (e.g. Direct3D, Op" & + "enGL, Cartridge, CD-Rom etc.)" + Me.col206_Other_Attributes.Visible = True + Me.col206_Other_Attributes.VisibleIndex = 30 + Me.col206_Other_Attributes.Width = 128 + ' + 'col301_Group_Membership + ' + Me.col301_Group_Membership.Caption = "»Groups«" + Me.col301_Group_Membership.FieldName = "301_Group_Membership" + Me.col301_Group_Membership.Name = "col301_Group_Membership" + Me.col301_Group_Membership.OptionsColumn.AllowEdit = False + Me.col301_Group_Membership.OptionsColumn.ReadOnly = True + Me.col301_Group_Membership.ToolTip = "Similarity score (0-100) for game group memberships of the games" + Me.col301_Group_Membership.Visible = True + Me.col301_Group_Membership.VisibleIndex = 31 + ' + 'col401_Staff + ' + Me.col401_Staff.Caption = "»Staff«" + Me.col401_Staff.FieldName = "401_Staff" + Me.col401_Staff.Name = "col401_Staff" + Me.col401_Staff.OptionsColumn.AllowEdit = False + Me.col401_Staff.OptionsColumn.ReadOnly = True + Me.col401_Staff.ToolTip = "Similarity score (0-100) for staff memberships of the games" + Me.col401_Staff.Visible = True + Me.col401_Staff.VisibleIndex = 32 + Me.col401_Staff.Width = 86 + ' + 'rpi_Fav + ' + Me.rpi_Fav.AutoHeight = False + Me.rpi_Fav.Name = "rpi_Fav" + ' + 'RepositoryItemCheckEdit1 + ' + Me.RepositoryItemCheckEdit1.AutoHeight = False + Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" + Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'lbl_Results + ' + Me.lbl_Results.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Results.AutoEllipsis = True + Me.lbl_Results.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Results.Location = New System.Drawing.Point(3, 46) + Me.lbl_Results.MKBoundControl1 = Nothing + Me.lbl_Results.MKBoundControl2 = Nothing + Me.lbl_Results.MKBoundControl3 = Nothing + Me.lbl_Results.MKBoundControl4 = Nothing + Me.lbl_Results.MKBoundControl5 = Nothing + Me.lbl_Results.Name = "lbl_Results" + Me.lbl_Results.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Results.Size = New System.Drawing.Size(778, 27) + Me.lbl_Results.TabIndex = 11 + Me.lbl_Results.Text = "Results" + ' + 'btn_Save + ' + Me.btn_Save.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Save.Enabled = False + Me.btn_Save.Location = New System.Drawing.Point(3, 463) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem9.Text = "Save Results" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Save the results in order to re-use them in the main area." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem6) + Me.btn_Save.SuperTip = SuperToolTip9 + Me.btn_Save.TabIndex = 1 + Me.btn_Save.Text = "&Save Results" + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.Location = New System.Drawing.Point(706, 463) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 19) + Me.btn_Close.TabIndex = 2 + Me.btn_Close.Text = "&Close" + ' + 'pnl_Top + ' + Me.pnl_Top.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Top.Controls.Add(Me.lbl_Results) + Me.pnl_Top.Controls.Add(Me.lbl_Similarity_Calculation_Config) + Me.pnl_Top.Controls.Add(Me.lbl_Haves_Only) + Me.pnl_Top.Controls.Add(Me.cmb_Similarity_Calculation_Configuration) + Me.pnl_Top.Controls.Add(Me.chb_Haves_Only) + Me.pnl_Top.Controls.Add(Me.btn_Go) + Me.pnl_Top.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Top.Location = New System.Drawing.Point(0, 0) + Me.pnl_Top.Name = "pnl_Top" + Me.pnl_Top.Size = New System.Drawing.Size(784, 76) + Me.pnl_Top.TabIndex = 12 + ' + 'pnl_Main + ' + Me.pnl_Main.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Main.Controls.Add(Me.grd_Similarity_Calculation) + Me.pnl_Main.Controls.Add(Me.btn_Close) + Me.pnl_Main.Controls.Add(Me.btn_Save) + Me.pnl_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Main.Location = New System.Drawing.Point(0, 76) + Me.pnl_Main.Name = "pnl_Main" + Me.pnl_Main.Size = New System.Drawing.Size(784, 485) + Me.pnl_Main.TabIndex = 13 + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Details}) + Me.barmng.MaxItemId = 1 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(784, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 561) + Me.barDockControlBottom.Size = New System.Drawing.Size(784, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 561) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(784, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 561) + ' + 'bbi_Details + ' + Me.bbi_Details.Caption = "&Open Similarity Details" + Me.bbi_Details.Id = 0 + Me.bbi_Details.ImageUri.Uri = "Preview" + Me.bbi_Details.Name = "bbi_Details" + ' + 'popmnu_Similarity_Calculation + ' + Me.popmnu_Similarity_Calculation.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Details)}) + Me.popmnu_Similarity_Calculation.Manager = Me.barmng + Me.popmnu_Similarity_Calculation.Name = "popmnu_Similarity_Calculation" + ' + 'frm_Similarity_Calculation + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 561) + Me.Controls.Add(Me.pnl_Main) + Me.Controls.Add(Me.pnl_Top) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Similarity_Calculation" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Find similar games to %1%" + CType(Me.cmb_Similarity_Calculation_Configuration.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Similarity_Calculation_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Haves_Only.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Similarity_Calculation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Similarity_Calculation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Similarity_Calculation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Fav, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Top, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Top.ResumeLayout(False) + CType(Me.pnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Main.ResumeLayout(False) + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Similarity_Calculation, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lbl_Similarity_Calculation_Config As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Similarity_Calculation_Configuration As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Haves_Only As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Haves_Only As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents btn_Go As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents grd_Similarity_Calculation As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Similarity_Calculation As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents rpi_Fav As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents lbl_Results As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_Similarity_Calculation As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents colGame As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFolder As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHave As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSimilarity As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col001_Platform As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col002_MobyRank As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col003_MobyScore As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col004_Publisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col005_Developer As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col006_Year As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col101_Basic_Genres As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col102_Perspectives As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col103_Sports_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col105_Educational_Categories As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col106_Other_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col201_MinPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col202_MaxPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col203_AgeO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col204_AgeP As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col205_Rating_Descriptors As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col206_Other_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col301_Group_Membership As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col401_Staff As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Save As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents BS_Similarity_Calculation_Config As System.Windows.Forms.BindingSource + Friend WithEvents colPlatform As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents pnl_Top As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Main As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents col207_Multiplayer_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Details As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Similarity_Calculation As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents col107_Visual_Presentation As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col108_Gameplay As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col109_Pacing As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col110_Narrative_Theme_Topic As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col111_Setting As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col112_Vehicular_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col113_Interface_Control As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col114_DLC_Addon As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col115_Special_Edition As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation.resx b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.resx new file mode 100644 index 0000000..30f5cb8 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.resx @@ -0,0 +1,145 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 292, 17 + + + 17, 17 + + + If ticked, only similarities to games you already added are calculated. + +If unticked, the similarities over all known game releases in the database are calculated. So in the future if you add a new game, its similarity is possibly already calculated. + + + If ticked, only similarities to games you already added are calculated. + +If unticked, the similarities over all known game releases in the database are calculated. So in the future if you add a new game, its similarity is possibly already calculated. + + + 106, 17 + + + 713, 17 + + + 807, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.vb new file mode 100644 index 0000000..7a42a37 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation.vb @@ -0,0 +1,221 @@ +Imports System.ComponentModel + +Public Class frm_Similarity_Calculation + + Private _id_Emu_Games As Integer = 0 + Private _Game As String + Private _Platform As String + + Private _id_Similarity_Calculation_Results As Integer = 0 + + Private _last_used_Similarity_Calculation_Configuration = "" + Private _last_used_id_Similarity_Calculation_Configuration As Integer = 0 + + Public Updated_Results As New ArrayList + + Public Results_Saved As Boolean = True + + Public Sub New(ByVal id_Emu_Games As Integer, ByVal Game As String, ByVal Platform As String) + InitializeComponent() + + barmng.SetPopupContextMenu(grd_Similarity_Calculation, popmnu_Similarity_Calculation) + + _id_Emu_Games = id_Emu_Games + _Game = Game + _Platform = Platform + + Me.Text = Me.Text.Replace("%1%", Game & " (" & Platform & ")") + End Sub + + Public Sub New(ByVal id_Similarity_Calculation_Results) + InitializeComponent() + + barmng.SetPopupContextMenu(grd_Similarity_Calculation, popmnu_Similarity_Calculation) + + _id_Similarity_Calculation_Results = id_Similarity_Calculation_Results + + btn_Save.Visible = False + pnl_Top.Visible = False + End Sub + + Private Sub Refill_cmb_Similarity_Calculation_Configuration() + Dim obj_id As Object = cmb_Similarity_Calculation_Configuration.EditValue + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Similarity_Calculation_Config(tran, DS_ML.tbl_Similarity_Calculation_Config) + End Using + + If TC.NZ(obj_id, 0) <> 0 AndAlso DS_ML.tbl_Similarity_Calculation_Config.Select("id_Similarity_Calculation_Config = " & TC.NZ(obj_id, 0)).Length = 1 Then + cmb_Similarity_Calculation_Configuration.EditValue = obj_id + Else + cmb_Similarity_Calculation_Configuration.EditValue = 0 + End If + End Sub + + Private Sub frm_Similarity_Calculation_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + cls_Settings.SetSetting("frm_Similarity_Calculation-cmb_Similarity_Calculation_Configuration", cmb_Similarity_Calculation_Configuration.EditValue, cls_Settings.enm_Settingmodes.Per_User) + End Sub + + Private Sub frm_Similarity_Calculation_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + Cursor = Cursors.WaitCursor + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Refill_cmb_Similarity_Calculation_Configuration() + + Dim idConf As Integer = TC.NZ(cls_Settings.GetSetting("frm_Similarity_Calculation-cmb_Similarity_Calculation_Configuration", cls_Settings.enm_Settingmodes.Per_User, tran), 0) + If idConf <> 0 AndAlso DS_ML.tbl_Similarity_Calculation_Config.Select("id_Similarity_Calculation_Config = " & idConf).Length = 1 Then + cmb_Similarity_Calculation_Configuration.EditValue = idConf + End If + + If _id_Similarity_Calculation_Results > 0 Then + Me.Text = "Results for " & TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Name FROM tbl_Similarity_Calculation_Results WHERE id_Similarity_Calculation_Results = " & TC.getSQLFormat(_id_Similarity_Calculation_Results), tran), "") + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_Similarity_Calculation_Config, "id_Similarity_Calculation_Config", TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Similarity_Calculation_Config FROM tbl_Similarity_Calculation_Results WHERE id_Similarity_Calculation_Results = " & TC.getSQLFormat(_id_Similarity_Calculation_Results), tran), 0)) + DS_ML.Fill_tbl_Similarity_Calculation_From_Results(tran, DS_ML.tbl_Similarity_Calculation, _id_Similarity_Calculation_Results) + End If + End Using + Cursor = Cursors.Default + End Sub + + Private Sub cmb_Similarity_Calculation_Configuration_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Similarity_Calculation_Configuration.ButtonClick + Select Case e.Button.Kind + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Plus + Using frm As New frm_Similarity_Calculation_Config_Edit + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Refill_cmb_Similarity_Calculation_Configuration() + End If + End Using + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis + Using frm As New frm_Similarity_Calculation_Config_Edit(Me.cmb_Similarity_Calculation_Configuration.EditValue) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + Refill_cmb_Similarity_Calculation_Configuration() + End If + End Using + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Minus + If TC.NZ(cmb_Similarity_Calculation_Configuration.EditValue, 0) > 0 Then + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_Similarity_Calculation_Results WHERE id_Similarity_Calculation_Config = " & TC.getSQLFormat(cmb_Similarity_Calculation_Configuration.EditValue)), 0) <> 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("The currently selected configuration is still in use by one or more saved results. You have to remove these results before deleting the configuration.", "Delete Configuration", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return + End If + + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Similarity_Calculation_Config WHERE id_Similarity_Calculation_Config = " & TC.getSQLFormat(cmb_Similarity_Calculation_Configuration.EditValue)) + Refill_cmb_Similarity_Calculation_Configuration() + End If + End Select + End Sub + + Private Sub btn_Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Go.Click + If TC.NZ(cmb_Similarity_Calculation_Configuration.EditValue, 0) = 0 Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Warning: the default configuration just sits there being quite useless. It weights each feature set with the same amount and thus gives a rather unfortunate result in the similarity calculation. Please consider creating a configuration to your needs." & ControlChars.CrLf & ControlChars.CrLf & "Do you want to continue calculating similarities based on the default configuration?", "Similarity Calculation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> Windows.Forms.DialogResult.Yes Then + Return + End If + End If + + Me.btn_Save.Enabled = False + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Marquee, False, "Calculating similarities, this will take a while - please be patient...", 0, 1, False) + Try + prg.Start() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Similarity_Calculation(tran, DS_ML.tbl_Similarity_Calculation, Me._id_Emu_Games, cmb_Similarity_Calculation_Configuration.EditValue, chb_Haves_Only.Checked) + End Using + + prg.Close() + + _last_used_Similarity_Calculation_Configuration = cmb_Similarity_Calculation_Configuration.Text + _last_used_id_Similarity_Calculation_Configuration = cmb_Similarity_Calculation_Configuration.EditValue + + Me.btn_Save.Enabled = True + + Me.Results_Saved = False + Catch ex As Exception + prg.Close() + + End Try + + End Sub + + Private Sub btn_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click + Dim ResultsName As String = _Game & " (" & _Platform & ") [" & _last_used_Similarity_Calculation_Configuration & "]" + + Dim bLoop As Boolean = True + + While bLoop + bLoop = False + + Using frm As New MKNetDXLib.frm_TextBoxEdit("Name:", "Please provide a name for the results", ResultsName, False) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + ResultsName = frm.Input + + Dim id_Similarity_Calculation_Results = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Similarity_Calculation_Results FROM tbl_Similarity_Calculation_Results WHERE Name = " & TC.getSQLFormat(ResultsName)), 0) + + If id_Similarity_Calculation_Results <> 0 Then + Dim rel As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("The result set '" & ResultsName & "' already exists, do you want to overwrite? Choose 'No' to select a different name.", "Result Set Name akready exists", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information) + + If rel = Windows.Forms.DialogResult.No Then + bLoop = True + Continue While + End If + + If rel = Windows.Forms.DialogResult.Cancel Then + Return + End If + + Me.Updated_Results.Add(id_Similarity_Calculation_Results) + End If + + Cursor = Cursors.WaitCursor + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + id_Similarity_Calculation_Results = DS_ML.Upsert_tbl_Similarity_Calculation_Results(tran, DS_ML.tbl_Similarity_Calculation, ResultsName, _last_used_id_Similarity_Calculation_Configuration, _id_Emu_Games, id_Similarity_Calculation_Results) + Updated_Results.Add(id_Similarity_Calculation_Results) + tran.Commit() + End Using + + Cursor = Cursors.Default + + DevExpress.XtraEditors.XtraMessageBox.Show("Results are saved as '" & ResultsName & "'.", "Save Results", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Me.Results_Saved = True + End If + End Using + End While + End Sub + + Private Sub BS_Similarity_Calculation_Config_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Similarity_Calculation_Config.CurrentChanged + If BS_Similarity_Calculation_Config.Current Is Nothing OrElse TC.NZ(BS_Similarity_Calculation_Config.Current("id_Similarity_Calculation_Config"), 0) = 0 Then + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Similarity_Calculation_Configuration.Properties.Buttons + If {DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, DevExpress.XtraEditors.Controls.ButtonPredefines.Minus}.Contains(btn.Kind) Then + btn.Enabled = False + End If + Next + Else + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Similarity_Calculation_Configuration.Properties.Buttons + btn.Enabled = True + Next + End If + End Sub + + Private Sub bbi_Details_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Details.ItemClick + If BS_Similarity_Calculation.Current Is Nothing Then Return + + Dim id_Similarity_Calculation_Results = _id_Similarity_Calculation_Results + + If id_Similarity_Calculation_Results = 0 AndAlso Updated_Results.Count > 0 Then + id_Similarity_Calculation_Results = Updated_Results(Updated_Results.Count - 1) + End If + + Using frm As New frm_Similarity_Calculation_Details(id_Similarity_Calculation_Results, BS_Similarity_Calculation.Current.Row, TC.NZ(BS_Similarity_Calculation.Current("id_Emu_Games"), 0), TC.NZ(BS_Similarity_Calculation.Current("id_Moby_Releases"), 0), _last_used_id_Similarity_Calculation_Configuration, _id_Emu_Games) + frm.ShowDialog(Me) + End Using + End Sub + + Private Sub frm_Similarity_Calculation_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + If Me.Results_Saved = False Then + If Not DevExpress.XtraEditors.XtraMessageBox.Show("Please consider saving your results before closing. Do you want to close anyway?", "Results not saved", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + e.Cancel = True + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.Designer.vb new file mode 100644 index 0000000..f902060 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.Designer.vb @@ -0,0 +1,4194 @@ + _ +Partial Class frm_Similarity_Calculation_Config_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel1 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel2 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel3 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel4 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel5 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel6 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel7 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel8 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel9 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel10 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel11 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel12 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel13 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel14 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel15 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel16 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel17 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel18 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel19 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel20 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel21 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel22 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel23 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel24 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel25 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel26 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel27 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel28 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel29 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel30 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel31 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel32 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel33 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel34 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel35 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel36 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel37 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel38 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel39 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel40 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel41 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel42 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel43 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel44 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel45 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel46 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel47 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel48 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel49 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel50 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel51 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel52 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel53 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel54 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel55 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem15 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel56 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel57 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel58 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel59 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel60 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel61 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel62 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel63 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel64 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel65 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel66 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem17 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip19 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem19 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel67 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel68 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel69 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel70 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel71 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel72 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel73 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel74 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel75 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel76 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel77 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem20 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip21 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem21 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel78 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel79 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel80 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel81 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel82 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel83 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel84 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel85 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel86 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel87 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel88 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem23 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Similarity_Calculation_Config_Edit)) + Dim TrackBarLabel89 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel90 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel91 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel92 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel93 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel94 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel95 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel96 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel97 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel98 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel99 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip26 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip28 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel100 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel101 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel102 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel103 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel104 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel105 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel106 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel107 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel108 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel109 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel110 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip29 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip30 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem31 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel111 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel112 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel113 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel114 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel115 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel116 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel117 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel118 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel119 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel120 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel121 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel122 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel123 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel124 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel125 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel126 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel127 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel128 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel129 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel130 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel131 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel132 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem36 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem37 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem37 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel133 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel134 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel135 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel136 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel137 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel138 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel139 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel140 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel141 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel142 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel143 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem38 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem38 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem39 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem40 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel144 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel145 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel146 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel147 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel148 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel149 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel150 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel151 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel152 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel153 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel154 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip41 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem41 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem41 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem42 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem43 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem44 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem45 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel155 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel156 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel157 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel158 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel159 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel160 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel161 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel162 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel163 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel164 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel165 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem46 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem46 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip47 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem47 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem47 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip48 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem48 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem48 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel166 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel167 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel168 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel169 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel170 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel171 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel172 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel173 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel174 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel175 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel176 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip49 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem49 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem49 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip50 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem50 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem50 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip51 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem51 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem51 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel177 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel178 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel179 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel180 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel181 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel182 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel183 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel184 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel185 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel186 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel187 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip52 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem52 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem52 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip53 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem53 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem53 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip54 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem54 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem54 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel188 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel189 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel190 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel191 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel192 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel193 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel194 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel195 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel196 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel197 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel198 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip55 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem55 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem55 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip56 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem56 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem56 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip57 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem57 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem57 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel199 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel200 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel201 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel202 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel203 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel204 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel205 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel206 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel207 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel208 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel209 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip58 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem58 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem58 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip59 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem59 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem59 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip60 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem60 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem60 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel210 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel211 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel212 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel213 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel214 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel215 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel216 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel217 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel218 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel219 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel220 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip61 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem61 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem61 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip62 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem62 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem62 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip63 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem63 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem63 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel221 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel222 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel223 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel224 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel225 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel226 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel227 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel228 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel229 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel230 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel231 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip64 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem64 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem64 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip65 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem65 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem65 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip66 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem66 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem66 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel232 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel233 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel234 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel235 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel236 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel237 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel238 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel239 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel240 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel241 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel242 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip67 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem67 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem67 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip68 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem68 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem68 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip69 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem69 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem69 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip70 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem70 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem70 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel243 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel244 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel245 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel246 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel247 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel248 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel249 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel250 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel251 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel252 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel253 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip71 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem71 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem71 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip72 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem72 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem72 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip73 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem73 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem73 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel254 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel255 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel256 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel257 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel258 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel259 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel260 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel261 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel262 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel263 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel264 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip74 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem74 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem74 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip75 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem75 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem75 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip76 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem76 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem76 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel265 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel266 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel267 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel268 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel269 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel270 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel271 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel272 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel273 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel274 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel275 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip77 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem77 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem77 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip78 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem78 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem78 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip79 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem79 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem79 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel276 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel277 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel278 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel279 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel280 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel281 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel282 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel283 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel284 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel285 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel286 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip80 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem80 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem80 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip81 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem81 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem81 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip82 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem82 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem82 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel287 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel288 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel289 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel290 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel291 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel292 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel293 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel294 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel295 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel296 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel297 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip83 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem83 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem83 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip84 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem84 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem84 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel298 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel299 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel300 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel301 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel302 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel303 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel304 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel305 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel306 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel307 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel308 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip85 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem85 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem85 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip86 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem86 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem86 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip87 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem87 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem87 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim TrackBarLabel309 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel310 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel311 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel312 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel313 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel314 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel315 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel316 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel317 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel318 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim TrackBarLabel319 As DevExpress.XtraEditors.Repository.TrackBarLabel = New DevExpress.XtraEditors.Repository.TrackBarLabel() + Dim SuperToolTip88 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem88 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem88 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip89 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem89 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem89 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.lbl_001_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_001_Platform = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.BS_Similarity_Calculation_Config = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.lbl_001_Platform_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_002_MobyRank = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_002_MobyRank_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_003_MobyScore = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_003_MobyScore_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_004_Publisher = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_004_Publisher_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_005_Developer = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_005_Developer_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_006_Year = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_006_Year_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_201_MinPlayers = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_201_MinPlayers_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_202_MaxPlayers = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_202_MaxPlayers_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_203_AgeO = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_203_AgeO_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_204_AgeP = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_204_AgeP_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_205_Rating_Descriptors = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_205_Rating_Descriptors = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_205_Rating_Descriptors_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_206_Other_Attributes = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_206_Other_Attributes = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_206_Other_Attributes_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_301_Group_Membership = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_301_Group_Membership = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_301_Group_Membership_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_401_Staff = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_401_Staff = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_401_Staff_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Name = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_207_Multiplayer_Attributes = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_207_Multiplayer_Attributes = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_207_Multiplayer_Attributes_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.tlp_Main = New System.Windows.Forms.TableLayoutPanel() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_106_Other_Attributes = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_106_Other_Attributes = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_106_Other_Attributes = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_106_Other_Attributes_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_115_Special_Edition = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_115_Special_Edition = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_115_Special_Edition = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_115_Special_Edition_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_114_DLC_Addon = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_114_DLC_Addon = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_114_DLC_Addon = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_114_DLC_Addon_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_113_Interface_Control = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_113_Interface_Control = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_113_Interface_Control = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_113_Interface_Control_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_105_Educational_Categories = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_105_Educational_Categories = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_105_Educational_Categories = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_105_Educational_Categories_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_112_Vehicular_Themes = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_112_Vehicular_Themes = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_112_Vehicular_Themes = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_112_Vehicular_Themes_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Sports_Themes = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_103_Sports_Themes = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_103_Sports_Themes = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_103_Sports_Themes_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_111_Setting = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_111_Setting = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_111_Setting_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_111_Setting = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.pnl_110_Narrative_Theme_Topic = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_110_Narrative_Theme_Topic = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_110_Narrative_Theme_Topic_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_110_Narrative_Theme_Topic = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.pnl_109_Pacing = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_109_Pacing = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_109_Pacing_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_109_Pacing = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.pnl_108_Gameplay = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_108_Gameplay = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_108_Gameplay_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_108_Gameplay = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.pnl_107_Visual_Presentation = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_107_Visual_Presentation = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_107_Visual_Presentation_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_107_Visual_Presentation = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.pnl_102_Perspective = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_102_Perspectives = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_102_Perspectives = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_102_Perspectives_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_101_Basic_Genres = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_101_Basic_Genres = New MKNetDXLib.ctl_MKDXLabel() + Me.sld_101_Basic_Genres = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.lbl_101_Basic_Genres_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_401_Staff = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_301_Group_Membership = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_206_Other_Attributes = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_207_Multiplayer_Attributes = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_205_Rating_Descriptors = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_204_AgeP = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_203_AgeO = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_202_MaxPlayers = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_201_MinPlayers = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_006_Year = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_005_Developer = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_004_Publisher = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_003_MobyScore = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_002_MobyRank = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_001_Platform = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.sld_001_Platform, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_001_Platform.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Similarity_Calculation_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_002_MobyRank, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_002_MobyRank.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_003_MobyScore, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_003_MobyScore.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_004_Publisher, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_004_Publisher.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_005_Developer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_005_Developer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_006_Year, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_006_Year.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_201_MinPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_201_MinPlayers.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_202_MaxPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_202_MaxPlayers.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_203_AgeO, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_203_AgeO.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_204_AgeP, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_204_AgeP.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_205_Rating_Descriptors.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_206_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_206_Other_Attributes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_301_Group_Membership, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_301_Group_Membership.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_401_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_401_Staff.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_207_Multiplayer_Attributes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tlp_Main.SuspendLayout() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.pnl_106_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_106_Other_Attributes.SuspendLayout() + CType(Me.sld_106_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_106_Other_Attributes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_115_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_115_Special_Edition.SuspendLayout() + CType(Me.sld_115_Special_Edition, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_115_Special_Edition.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_114_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_114_DLC_Addon.SuspendLayout() + CType(Me.sld_114_DLC_Addon, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_114_DLC_Addon.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_113_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_113_Interface_Control.SuspendLayout() + CType(Me.sld_113_Interface_Control, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_113_Interface_Control.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_105_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_105_Educational_Categories.SuspendLayout() + CType(Me.sld_105_Educational_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_105_Educational_Categories.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_112_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_112_Vehicular_Themes.SuspendLayout() + CType(Me.sld_112_Vehicular_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_112_Vehicular_Themes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Sports_Themes.SuspendLayout() + CType(Me.sld_103_Sports_Themes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_103_Sports_Themes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_111_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_111_Setting.SuspendLayout() + CType(Me.sld_111_Setting, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_111_Setting.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_110_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_110_Narrative_Theme_Topic.SuspendLayout() + CType(Me.sld_110_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_110_Narrative_Theme_Topic.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_109_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_109_Pacing.SuspendLayout() + CType(Me.sld_109_Pacing, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_109_Pacing.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_108_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_108_Gameplay.SuspendLayout() + CType(Me.sld_108_Gameplay, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_108_Gameplay.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_107_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_107_Visual_Presentation.SuspendLayout() + CType(Me.sld_107_Visual_Presentation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_107_Visual_Presentation.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_102_Perspective, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_102_Perspective.SuspendLayout() + CType(Me.sld_102_Perspectives, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_102_Perspectives.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_101_Basic_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_101_Basic_Genres.SuspendLayout() + CType(Me.sld_101_Basic_Genres, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.sld_101_Basic_Genres.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.pnl_401_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_401_Staff.SuspendLayout() + CType(Me.pnl_301_Group_Membership, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_301_Group_Membership.SuspendLayout() + CType(Me.pnl_206_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_206_Other_Attributes.SuspendLayout() + CType(Me.pnl_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_207_Multiplayer_Attributes.SuspendLayout() + CType(Me.pnl_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_205_Rating_Descriptors.SuspendLayout() + CType(Me.pnl_204_AgeP, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_204_AgeP.SuspendLayout() + CType(Me.pnl_203_AgeO, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_203_AgeO.SuspendLayout() + CType(Me.pnl_202_MaxPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_202_MaxPlayers.SuspendLayout() + CType(Me.pnl_201_MinPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_201_MinPlayers.SuspendLayout() + CType(Me.pnl_006_Year, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_006_Year.SuspendLayout() + CType(Me.pnl_005_Developer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_005_Developer.SuspendLayout() + CType(Me.pnl_004_Publisher, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_004_Publisher.SuspendLayout() + CType(Me.pnl_003_MobyScore, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_003_MobyScore.SuspendLayout() + CType(Me.pnl_002_MobyRank, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_002_MobyRank.SuspendLayout() + CType(Me.pnl_001_Platform, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_001_Platform.SuspendLayout() + Me.SuspendLayout() + ' + 'lbl_001_Platform + ' + Me.lbl_001_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_001_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform.Location = New System.Drawing.Point(3, 3) + Me.lbl_001_Platform.MKBoundControl1 = Nothing + Me.lbl_001_Platform.MKBoundControl2 = Nothing + Me.lbl_001_Platform.MKBoundControl3 = Nothing + Me.lbl_001_Platform.MKBoundControl4 = Nothing + Me.lbl_001_Platform.MKBoundControl5 = Nothing + Me.lbl_001_Platform.Name = "lbl_001_Platform" + Me.lbl_001_Platform.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem1.Text = "Platform" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Platform of the game's release" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_001_Platform.SuperTip = SuperToolTip1 + Me.lbl_001_Platform.TabIndex = 0 + Me.lbl_001_Platform.Text = "Platform:" + ' + 'sld_001_Platform + ' + Me.sld_001_Platform.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_001_Platform.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_001_Platform", True)) + Me.sld_001_Platform.EditValue = Nothing + Me.sld_001_Platform.Location = New System.Drawing.Point(121, 2) + Me.sld_001_Platform.Name = "sld_001_Platform" + Me.sld_001_Platform.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_001_Platform.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel1.Label = "0" + TrackBarLabel2.Label = "1" + TrackBarLabel2.Value = 1 + TrackBarLabel3.Label = "2" + TrackBarLabel3.Value = 2 + TrackBarLabel4.Label = "3" + TrackBarLabel4.Value = 3 + TrackBarLabel5.Label = "4" + TrackBarLabel5.Value = 4 + TrackBarLabel6.Label = "5" + TrackBarLabel6.Value = 5 + TrackBarLabel7.Label = "6" + TrackBarLabel7.Value = 6 + TrackBarLabel8.Label = "7" + TrackBarLabel8.Value = 7 + TrackBarLabel9.Label = "8" + TrackBarLabel9.Value = 8 + TrackBarLabel10.Label = "9" + TrackBarLabel10.Value = 9 + TrackBarLabel11.Label = "10" + TrackBarLabel11.Value = 10 + Me.sld_001_Platform.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel1, TrackBarLabel2, TrackBarLabel3, TrackBarLabel4, TrackBarLabel5, TrackBarLabel6, TrackBarLabel7, TrackBarLabel8, TrackBarLabel9, TrackBarLabel10, TrackBarLabel11}) + Me.sld_001_Platform.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_001_Platform.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem2.Text = "Platform" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Platform of the game's release" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.sld_001_Platform.SuperTip = SuperToolTip2 + Me.sld_001_Platform.TabIndex = 1 + ' + 'BS_Similarity_Calculation_Config + ' + Me.BS_Similarity_Calculation_Config.DataMember = "tbl_Similarity_Calculation_Config" + Me.BS_Similarity_Calculation_Config.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_001_Platform_Value + ' + Me.lbl_001_Platform_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_001_Platform_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_001_Platform_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_001_Platform", True)) + Me.lbl_001_Platform_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_001_Platform_Value.MKBoundControl1 = Nothing + Me.lbl_001_Platform_Value.MKBoundControl2 = Nothing + Me.lbl_001_Platform_Value.MKBoundControl3 = Nothing + Me.lbl_001_Platform_Value.MKBoundControl4 = Nothing + Me.lbl_001_Platform_Value.MKBoundControl5 = Nothing + Me.lbl_001_Platform_Value.Name = "lbl_001_Platform_Value" + Me.lbl_001_Platform_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem3.Text = "Platform" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Platform of the game's release" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.lbl_001_Platform_Value.SuperTip = SuperToolTip3 + Me.lbl_001_Platform_Value.TabIndex = 2 + Me.lbl_001_Platform_Value.Text = "0" + ' + 'lbl_002_MobyRank + ' + Me.lbl_002_MobyRank.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_002_MobyRank.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank.Location = New System.Drawing.Point(3, 3) + Me.lbl_002_MobyRank.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank.Name = "lbl_002_MobyRank" + Me.lbl_002_MobyRank.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem4.Text = "Rank" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "100 point rank based on reviews from various critics" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.lbl_002_MobyRank.SuperTip = SuperToolTip4 + Me.lbl_002_MobyRank.TabIndex = 0 + Me.lbl_002_MobyRank.Text = "Rank:" + ' + 'sld_002_MobyRank + ' + Me.sld_002_MobyRank.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_002_MobyRank.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_002_MobyRank", True)) + Me.sld_002_MobyRank.EditValue = Nothing + Me.sld_002_MobyRank.Location = New System.Drawing.Point(121, 2) + Me.sld_002_MobyRank.Name = "sld_002_MobyRank" + Me.sld_002_MobyRank.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_002_MobyRank.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel12.Label = "0" + TrackBarLabel13.Label = "1" + TrackBarLabel13.Value = 1 + TrackBarLabel14.Label = "2" + TrackBarLabel14.Value = 2 + TrackBarLabel15.Label = "3" + TrackBarLabel15.Value = 3 + TrackBarLabel16.Label = "4" + TrackBarLabel16.Value = 4 + TrackBarLabel17.Label = "5" + TrackBarLabel17.Value = 5 + TrackBarLabel18.Label = "6" + TrackBarLabel18.Value = 6 + TrackBarLabel19.Label = "7" + TrackBarLabel19.Value = 7 + TrackBarLabel20.Label = "8" + TrackBarLabel20.Value = 8 + TrackBarLabel21.Label = "9" + TrackBarLabel21.Value = 9 + TrackBarLabel22.Label = "10" + TrackBarLabel22.Value = 10 + Me.sld_002_MobyRank.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel12, TrackBarLabel13, TrackBarLabel14, TrackBarLabel15, TrackBarLabel16, TrackBarLabel17, TrackBarLabel18, TrackBarLabel19, TrackBarLabel20, TrackBarLabel21, TrackBarLabel22}) + Me.sld_002_MobyRank.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_002_MobyRank.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem5.Text = "Rank" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "100 point rank based on reviews from various critics" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.sld_002_MobyRank.SuperTip = SuperToolTip5 + Me.sld_002_MobyRank.TabIndex = 2 + ' + 'lbl_002_MobyRank_Value + ' + Me.lbl_002_MobyRank_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_002_MobyRank_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_002_MobyRank_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_002_MobyRank", True)) + Me.lbl_002_MobyRank_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_002_MobyRank_Value.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_Value.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_Value.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_Value.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_Value.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_Value.Name = "lbl_002_MobyRank_Value" + Me.lbl_002_MobyRank_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem6.Text = "Rank" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "100 point rank based on reviews from various critics" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.lbl_002_MobyRank_Value.SuperTip = SuperToolTip6 + Me.lbl_002_MobyRank_Value.TabIndex = 2 + Me.lbl_002_MobyRank_Value.Text = "0" + ' + 'lbl_003_MobyScore + ' + Me.lbl_003_MobyScore.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_003_MobyScore.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore.Location = New System.Drawing.Point(3, 3) + Me.lbl_003_MobyScore.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore.Name = "lbl_003_MobyScore" + Me.lbl_003_MobyScore.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem7.Text = "Score" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "5 point score based on MobyGames user ratings" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.lbl_003_MobyScore.SuperTip = SuperToolTip7 + Me.lbl_003_MobyScore.TabIndex = 0 + Me.lbl_003_MobyScore.Text = "Score:" + ' + 'sld_003_MobyScore + ' + Me.sld_003_MobyScore.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_003_MobyScore.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_003_MobyScore", True)) + Me.sld_003_MobyScore.EditValue = Nothing + Me.sld_003_MobyScore.Location = New System.Drawing.Point(121, 2) + Me.sld_003_MobyScore.Name = "sld_003_MobyScore" + Me.sld_003_MobyScore.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_003_MobyScore.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel23.Label = "0" + TrackBarLabel24.Label = "1" + TrackBarLabel24.Value = 1 + TrackBarLabel25.Label = "2" + TrackBarLabel25.Value = 2 + TrackBarLabel26.Label = "3" + TrackBarLabel26.Value = 3 + TrackBarLabel27.Label = "4" + TrackBarLabel27.Value = 4 + TrackBarLabel28.Label = "5" + TrackBarLabel28.Value = 5 + TrackBarLabel29.Label = "6" + TrackBarLabel29.Value = 6 + TrackBarLabel30.Label = "7" + TrackBarLabel30.Value = 7 + TrackBarLabel31.Label = "8" + TrackBarLabel31.Value = 8 + TrackBarLabel32.Label = "9" + TrackBarLabel32.Value = 9 + TrackBarLabel33.Label = "10" + TrackBarLabel33.Value = 10 + Me.sld_003_MobyScore.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel23, TrackBarLabel24, TrackBarLabel25, TrackBarLabel26, TrackBarLabel27, TrackBarLabel28, TrackBarLabel29, TrackBarLabel30, TrackBarLabel31, TrackBarLabel32, TrackBarLabel33}) + Me.sld_003_MobyScore.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_003_MobyScore.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem8.Text = "Score" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "5 point score based on MobyGames user ratings" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.sld_003_MobyScore.SuperTip = SuperToolTip8 + Me.sld_003_MobyScore.TabIndex = 3 + ' + 'lbl_003_MobyScore_Value + ' + Me.lbl_003_MobyScore_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_003_MobyScore_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_003_MobyScore_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_003_MobyScore", True)) + Me.lbl_003_MobyScore_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_003_MobyScore_Value.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_Value.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_Value.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_Value.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_Value.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_Value.Name = "lbl_003_MobyScore_Value" + Me.lbl_003_MobyScore_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem9.Text = "Score" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "5 point score based on MobyGames user ratings" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.lbl_003_MobyScore_Value.SuperTip = SuperToolTip9 + Me.lbl_003_MobyScore_Value.TabIndex = 2 + Me.lbl_003_MobyScore_Value.Text = "0" + ' + 'lbl_004_Publisher + ' + Me.lbl_004_Publisher.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_004_Publisher.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher.Location = New System.Drawing.Point(3, 3) + Me.lbl_004_Publisher.MKBoundControl1 = Nothing + Me.lbl_004_Publisher.MKBoundControl2 = Nothing + Me.lbl_004_Publisher.MKBoundControl3 = Nothing + Me.lbl_004_Publisher.MKBoundControl4 = Nothing + Me.lbl_004_Publisher.MKBoundControl5 = Nothing + Me.lbl_004_Publisher.Name = "lbl_004_Publisher" + Me.lbl_004_Publisher.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem10.Text = "Publisher" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Publishing company of the game's release" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem10) + Me.lbl_004_Publisher.SuperTip = SuperToolTip10 + Me.lbl_004_Publisher.TabIndex = 0 + Me.lbl_004_Publisher.Text = "Publisher:" + ' + 'sld_004_Publisher + ' + Me.sld_004_Publisher.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_004_Publisher.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_004_Publisher", True)) + Me.sld_004_Publisher.EditValue = Nothing + Me.sld_004_Publisher.Location = New System.Drawing.Point(121, 2) + Me.sld_004_Publisher.Name = "sld_004_Publisher" + Me.sld_004_Publisher.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_004_Publisher.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel34.Label = "0" + TrackBarLabel35.Label = "1" + TrackBarLabel35.Value = 1 + TrackBarLabel36.Label = "2" + TrackBarLabel36.Value = 2 + TrackBarLabel37.Label = "3" + TrackBarLabel37.Value = 3 + TrackBarLabel38.Label = "4" + TrackBarLabel38.Value = 4 + TrackBarLabel39.Label = "5" + TrackBarLabel39.Value = 5 + TrackBarLabel40.Label = "6" + TrackBarLabel40.Value = 6 + TrackBarLabel41.Label = "7" + TrackBarLabel41.Value = 7 + TrackBarLabel42.Label = "8" + TrackBarLabel42.Value = 8 + TrackBarLabel43.Label = "9" + TrackBarLabel43.Value = 9 + TrackBarLabel44.Label = "10" + TrackBarLabel44.Value = 10 + Me.sld_004_Publisher.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel34, TrackBarLabel35, TrackBarLabel36, TrackBarLabel37, TrackBarLabel38, TrackBarLabel39, TrackBarLabel40, TrackBarLabel41, TrackBarLabel42, TrackBarLabel43, TrackBarLabel44}) + Me.sld_004_Publisher.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_004_Publisher.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem11.Text = "Publisher" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Publishing company of the game's release" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem11) + Me.sld_004_Publisher.SuperTip = SuperToolTip11 + Me.sld_004_Publisher.TabIndex = 4 + ' + 'lbl_004_Publisher_Value + ' + Me.lbl_004_Publisher_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_004_Publisher_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_004_Publisher_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_004_Publisher", True)) + Me.lbl_004_Publisher_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_004_Publisher_Value.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_Value.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_Value.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_Value.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_Value.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_Value.Name = "lbl_004_Publisher_Value" + Me.lbl_004_Publisher_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem12.Text = "Publisher" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Publishing company of the game's release" + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem12) + Me.lbl_004_Publisher_Value.SuperTip = SuperToolTip12 + Me.lbl_004_Publisher_Value.TabIndex = 2 + Me.lbl_004_Publisher_Value.Text = "0" + ' + 'lbl_005_Developer + ' + Me.lbl_005_Developer.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_005_Developer.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer.Location = New System.Drawing.Point(3, 3) + Me.lbl_005_Developer.MKBoundControl1 = Nothing + Me.lbl_005_Developer.MKBoundControl2 = Nothing + Me.lbl_005_Developer.MKBoundControl3 = Nothing + Me.lbl_005_Developer.MKBoundControl4 = Nothing + Me.lbl_005_Developer.MKBoundControl5 = Nothing + Me.lbl_005_Developer.Name = "lbl_005_Developer" + Me.lbl_005_Developer.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem13.Text = "Developer" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Developing company of the game's release" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem13) + Me.lbl_005_Developer.SuperTip = SuperToolTip13 + Me.lbl_005_Developer.TabIndex = 0 + Me.lbl_005_Developer.Text = "Developer:" + ' + 'sld_005_Developer + ' + Me.sld_005_Developer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_005_Developer.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_005_Developer", True)) + Me.sld_005_Developer.EditValue = Nothing + Me.sld_005_Developer.Location = New System.Drawing.Point(121, 2) + Me.sld_005_Developer.Name = "sld_005_Developer" + Me.sld_005_Developer.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_005_Developer.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel45.Label = "0" + TrackBarLabel46.Label = "1" + TrackBarLabel46.Value = 1 + TrackBarLabel47.Label = "2" + TrackBarLabel47.Value = 2 + TrackBarLabel48.Label = "3" + TrackBarLabel48.Value = 3 + TrackBarLabel49.Label = "4" + TrackBarLabel49.Value = 4 + TrackBarLabel50.Label = "5" + TrackBarLabel50.Value = 5 + TrackBarLabel51.Label = "6" + TrackBarLabel51.Value = 6 + TrackBarLabel52.Label = "7" + TrackBarLabel52.Value = 7 + TrackBarLabel53.Label = "8" + TrackBarLabel53.Value = 8 + TrackBarLabel54.Label = "9" + TrackBarLabel54.Value = 9 + TrackBarLabel55.Label = "10" + TrackBarLabel55.Value = 10 + Me.sld_005_Developer.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel45, TrackBarLabel46, TrackBarLabel47, TrackBarLabel48, TrackBarLabel49, TrackBarLabel50, TrackBarLabel51, TrackBarLabel52, TrackBarLabel53, TrackBarLabel54, TrackBarLabel55}) + Me.sld_005_Developer.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_005_Developer.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem14.Text = "Developer" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "Developing company of the game's release" + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem14) + Me.sld_005_Developer.SuperTip = SuperToolTip14 + Me.sld_005_Developer.TabIndex = 5 + ' + 'lbl_005_Developer_Value + ' + Me.lbl_005_Developer_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_005_Developer_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_005_Developer_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_005_Developer", True)) + Me.lbl_005_Developer_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_005_Developer_Value.MKBoundControl1 = Nothing + Me.lbl_005_Developer_Value.MKBoundControl2 = Nothing + Me.lbl_005_Developer_Value.MKBoundControl3 = Nothing + Me.lbl_005_Developer_Value.MKBoundControl4 = Nothing + Me.lbl_005_Developer_Value.MKBoundControl5 = Nothing + Me.lbl_005_Developer_Value.Name = "lbl_005_Developer_Value" + Me.lbl_005_Developer_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem15.Text = "Developer" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "Developing company of the game's release" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem15) + Me.lbl_005_Developer_Value.SuperTip = SuperToolTip15 + Me.lbl_005_Developer_Value.TabIndex = 2 + Me.lbl_005_Developer_Value.Text = "0" + ' + 'lbl_006_Year + ' + Me.lbl_006_Year.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_006_Year.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year.Location = New System.Drawing.Point(3, 3) + Me.lbl_006_Year.MKBoundControl1 = Nothing + Me.lbl_006_Year.MKBoundControl2 = Nothing + Me.lbl_006_Year.MKBoundControl3 = Nothing + Me.lbl_006_Year.MKBoundControl4 = Nothing + Me.lbl_006_Year.MKBoundControl5 = Nothing + Me.lbl_006_Year.Name = "lbl_006_Year" + Me.lbl_006_Year.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem16.Text = "Year" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "Year of the game's release" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem16) + Me.lbl_006_Year.SuperTip = SuperToolTip16 + Me.lbl_006_Year.TabIndex = 0 + Me.lbl_006_Year.Text = "Year:" + ' + 'sld_006_Year + ' + Me.sld_006_Year.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_006_Year.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_006_Year", True)) + Me.sld_006_Year.EditValue = Nothing + Me.sld_006_Year.Location = New System.Drawing.Point(121, 2) + Me.sld_006_Year.Name = "sld_006_Year" + Me.sld_006_Year.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_006_Year.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel56.Label = "0" + TrackBarLabel57.Label = "1" + TrackBarLabel57.Value = 1 + TrackBarLabel58.Label = "2" + TrackBarLabel58.Value = 2 + TrackBarLabel59.Label = "3" + TrackBarLabel59.Value = 3 + TrackBarLabel60.Label = "4" + TrackBarLabel60.Value = 4 + TrackBarLabel61.Label = "5" + TrackBarLabel61.Value = 5 + TrackBarLabel62.Label = "6" + TrackBarLabel62.Value = 6 + TrackBarLabel63.Label = "7" + TrackBarLabel63.Value = 7 + TrackBarLabel64.Label = "8" + TrackBarLabel64.Value = 8 + TrackBarLabel65.Label = "9" + TrackBarLabel65.Value = 9 + TrackBarLabel66.Label = "10" + TrackBarLabel66.Value = 10 + Me.sld_006_Year.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel56, TrackBarLabel57, TrackBarLabel58, TrackBarLabel59, TrackBarLabel60, TrackBarLabel61, TrackBarLabel62, TrackBarLabel63, TrackBarLabel64, TrackBarLabel65, TrackBarLabel66}) + Me.sld_006_Year.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_006_Year.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem17.Text = "Year" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "Year of the game's release" + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem17) + Me.sld_006_Year.SuperTip = SuperToolTip17 + Me.sld_006_Year.TabIndex = 6 + ' + 'lbl_006_Year_Value + ' + Me.lbl_006_Year_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_006_Year_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_006_Year_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_006_Year", True)) + Me.lbl_006_Year_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_006_Year_Value.MKBoundControl1 = Nothing + Me.lbl_006_Year_Value.MKBoundControl2 = Nothing + Me.lbl_006_Year_Value.MKBoundControl3 = Nothing + Me.lbl_006_Year_Value.MKBoundControl4 = Nothing + Me.lbl_006_Year_Value.MKBoundControl5 = Nothing + Me.lbl_006_Year_Value.Name = "lbl_006_Year_Value" + Me.lbl_006_Year_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem18.Text = "Year" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "Year of the game's release" + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem18) + Me.lbl_006_Year_Value.SuperTip = SuperToolTip18 + Me.lbl_006_Year_Value.TabIndex = 2 + Me.lbl_006_Year_Value.Text = "0" + ' + 'lbl_201_MinPlayers + ' + Me.lbl_201_MinPlayers.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_201_MinPlayers.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers.Location = New System.Drawing.Point(3, 3) + Me.lbl_201_MinPlayers.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers.Name = "lbl_201_MinPlayers" + Me.lbl_201_MinPlayers.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem19.Text = "Min. Players" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "Minimum number of players supported by the game" + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem19) + Me.lbl_201_MinPlayers.SuperTip = SuperToolTip19 + Me.lbl_201_MinPlayers.TabIndex = 0 + Me.lbl_201_MinPlayers.Text = "Min. Players:" + ' + 'sld_201_MinPlayers + ' + Me.sld_201_MinPlayers.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_201_MinPlayers.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_201_MinPlayers", True)) + Me.sld_201_MinPlayers.EditValue = Nothing + Me.sld_201_MinPlayers.Location = New System.Drawing.Point(121, 2) + Me.sld_201_MinPlayers.Name = "sld_201_MinPlayers" + Me.sld_201_MinPlayers.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_201_MinPlayers.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel67.Label = "0" + TrackBarLabel68.Label = "1" + TrackBarLabel68.Value = 1 + TrackBarLabel69.Label = "2" + TrackBarLabel69.Value = 2 + TrackBarLabel70.Label = "3" + TrackBarLabel70.Value = 3 + TrackBarLabel71.Label = "4" + TrackBarLabel71.Value = 4 + TrackBarLabel72.Label = "5" + TrackBarLabel72.Value = 5 + TrackBarLabel73.Label = "6" + TrackBarLabel73.Value = 6 + TrackBarLabel74.Label = "7" + TrackBarLabel74.Value = 7 + TrackBarLabel75.Label = "8" + TrackBarLabel75.Value = 8 + TrackBarLabel76.Label = "9" + TrackBarLabel76.Value = 9 + TrackBarLabel77.Label = "10" + TrackBarLabel77.Value = 10 + Me.sld_201_MinPlayers.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel67, TrackBarLabel68, TrackBarLabel69, TrackBarLabel70, TrackBarLabel71, TrackBarLabel72, TrackBarLabel73, TrackBarLabel74, TrackBarLabel75, TrackBarLabel76, TrackBarLabel77}) + Me.sld_201_MinPlayers.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_201_MinPlayers.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem20.Text = "Min. Players" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "Minimum number of players supported by the game" + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem20) + Me.sld_201_MinPlayers.SuperTip = SuperToolTip20 + Me.sld_201_MinPlayers.TabIndex = 13 + ' + 'lbl_201_MinPlayers_Value + ' + Me.lbl_201_MinPlayers_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_201_MinPlayers_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_201_MinPlayers_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_201_MinPlayers", True)) + Me.lbl_201_MinPlayers_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_201_MinPlayers_Value.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_Value.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_Value.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_Value.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_Value.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_Value.Name = "lbl_201_MinPlayers_Value" + Me.lbl_201_MinPlayers_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem21.Text = "Min. Players" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.Text = "Minimum number of players supported by the game" + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem21) + Me.lbl_201_MinPlayers_Value.SuperTip = SuperToolTip21 + Me.lbl_201_MinPlayers_Value.TabIndex = 2 + Me.lbl_201_MinPlayers_Value.Text = "0" + ' + 'lbl_202_MaxPlayers + ' + Me.lbl_202_MaxPlayers.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_202_MaxPlayers.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers.Location = New System.Drawing.Point(3, 3) + Me.lbl_202_MaxPlayers.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers.Name = "lbl_202_MaxPlayers" + Me.lbl_202_MaxPlayers.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem22.Text = "Max. Players" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "Maximum number of players supported by the game" + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.lbl_202_MaxPlayers.SuperTip = SuperToolTip22 + Me.lbl_202_MaxPlayers.TabIndex = 0 + Me.lbl_202_MaxPlayers.Text = "Max. Players:" + ' + 'sld_202_MaxPlayers + ' + Me.sld_202_MaxPlayers.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_202_MaxPlayers.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_202_MaxPlayers", True)) + Me.sld_202_MaxPlayers.EditValue = Nothing + Me.sld_202_MaxPlayers.Location = New System.Drawing.Point(121, 2) + Me.sld_202_MaxPlayers.Name = "sld_202_MaxPlayers" + Me.sld_202_MaxPlayers.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_202_MaxPlayers.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel78.Label = "0" + TrackBarLabel79.Label = "1" + TrackBarLabel79.Value = 1 + TrackBarLabel80.Label = "2" + TrackBarLabel80.Value = 2 + TrackBarLabel81.Label = "3" + TrackBarLabel81.Value = 3 + TrackBarLabel82.Label = "4" + TrackBarLabel82.Value = 4 + TrackBarLabel83.Label = "5" + TrackBarLabel83.Value = 5 + TrackBarLabel84.Label = "6" + TrackBarLabel84.Value = 6 + TrackBarLabel85.Label = "7" + TrackBarLabel85.Value = 7 + TrackBarLabel86.Label = "8" + TrackBarLabel86.Value = 8 + TrackBarLabel87.Label = "9" + TrackBarLabel87.Value = 9 + TrackBarLabel88.Label = "10" + TrackBarLabel88.Value = 10 + Me.sld_202_MaxPlayers.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel78, TrackBarLabel79, TrackBarLabel80, TrackBarLabel81, TrackBarLabel82, TrackBarLabel83, TrackBarLabel84, TrackBarLabel85, TrackBarLabel86, TrackBarLabel87, TrackBarLabel88}) + Me.sld_202_MaxPlayers.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_202_MaxPlayers.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem23.Text = "Max. Players" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = "Maximum number of players supported by the game" + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.sld_202_MaxPlayers.SuperTip = SuperToolTip23 + Me.sld_202_MaxPlayers.TabIndex = 14 + ' + 'lbl_202_MaxPlayers_Value + ' + Me.lbl_202_MaxPlayers_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_202_MaxPlayers_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_202_MaxPlayers_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_202_MaxPlayers", True)) + Me.lbl_202_MaxPlayers_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_202_MaxPlayers_Value.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_Value.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_Value.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_Value.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_Value.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_Value.Name = "lbl_202_MaxPlayers_Value" + Me.lbl_202_MaxPlayers_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem24.Text = "Max. Players" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "Maximum number of players supported by the game" + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.lbl_202_MaxPlayers_Value.SuperTip = SuperToolTip24 + Me.lbl_202_MaxPlayers_Value.TabIndex = 2 + Me.lbl_202_MaxPlayers_Value.Text = "0" + ' + 'lbl_203_AgeO + ' + Me.lbl_203_AgeO.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_203_AgeO.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO.Location = New System.Drawing.Point(3, 3) + Me.lbl_203_AgeO.MKBoundControl1 = Nothing + Me.lbl_203_AgeO.MKBoundControl2 = Nothing + Me.lbl_203_AgeO.MKBoundControl3 = Nothing + Me.lbl_203_AgeO.MKBoundControl4 = Nothing + Me.lbl_203_AgeO.MKBoundControl5 = Nothing + Me.lbl_203_AgeO.Name = "lbl_203_AgeO" + Me.lbl_203_AgeO.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem25.Text = "AgeO" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = resources.GetString("ToolTipItem25.Text") + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.lbl_203_AgeO.SuperTip = SuperToolTip25 + Me.lbl_203_AgeO.TabIndex = 0 + Me.lbl_203_AgeO.Text = "AgeO:" + ' + 'sld_203_AgeO + ' + Me.sld_203_AgeO.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_203_AgeO.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_203_AgeO", True)) + Me.sld_203_AgeO.EditValue = Nothing + Me.sld_203_AgeO.Location = New System.Drawing.Point(121, 2) + Me.sld_203_AgeO.Name = "sld_203_AgeO" + Me.sld_203_AgeO.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_203_AgeO.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel89.Label = "0" + TrackBarLabel90.Label = "1" + TrackBarLabel90.Value = 1 + TrackBarLabel91.Label = "2" + TrackBarLabel91.Value = 2 + TrackBarLabel92.Label = "3" + TrackBarLabel92.Value = 3 + TrackBarLabel93.Label = "4" + TrackBarLabel93.Value = 4 + TrackBarLabel94.Label = "5" + TrackBarLabel94.Value = 5 + TrackBarLabel95.Label = "6" + TrackBarLabel95.Value = 6 + TrackBarLabel96.Label = "7" + TrackBarLabel96.Value = 7 + TrackBarLabel97.Label = "8" + TrackBarLabel97.Value = 8 + TrackBarLabel98.Label = "9" + TrackBarLabel98.Value = 9 + TrackBarLabel99.Label = "10" + TrackBarLabel99.Value = 10 + Me.sld_203_AgeO.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel89, TrackBarLabel90, TrackBarLabel91, TrackBarLabel92, TrackBarLabel93, TrackBarLabel94, TrackBarLabel95, TrackBarLabel96, TrackBarLabel97, TrackBarLabel98, TrackBarLabel99}) + Me.sld_203_AgeO.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_203_AgeO.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem26.Text = "AgeO" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = resources.GetString("ToolTipItem26.Text") + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.sld_203_AgeO.SuperTip = SuperToolTip26 + Me.sld_203_AgeO.TabIndex = 15 + ' + 'lbl_203_AgeO_Value + ' + Me.lbl_203_AgeO_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_203_AgeO_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_203_AgeO_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_203_AgeO", True)) + Me.lbl_203_AgeO_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_203_AgeO_Value.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_Value.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_Value.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_Value.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_Value.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_Value.Name = "lbl_203_AgeO_Value" + Me.lbl_203_AgeO_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem27.Text = "AgeO" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = resources.GetString("ToolTipItem27.Text") + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.lbl_203_AgeO_Value.SuperTip = SuperToolTip27 + Me.lbl_203_AgeO_Value.TabIndex = 2 + Me.lbl_203_AgeO_Value.Text = "0" + ' + 'lbl_204_AgeP + ' + Me.lbl_204_AgeP.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_204_AgeP.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP.Location = New System.Drawing.Point(3, 3) + Me.lbl_204_AgeP.MKBoundControl1 = Nothing + Me.lbl_204_AgeP.MKBoundControl2 = Nothing + Me.lbl_204_AgeP.MKBoundControl3 = Nothing + Me.lbl_204_AgeP.MKBoundControl4 = Nothing + Me.lbl_204_AgeP.MKBoundControl5 = Nothing + Me.lbl_204_AgeP.Name = "lbl_204_AgeP" + Me.lbl_204_AgeP.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem28.Text = "AgeP" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = resources.GetString("ToolTipItem28.Text") + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.lbl_204_AgeP.SuperTip = SuperToolTip28 + Me.lbl_204_AgeP.TabIndex = 0 + Me.lbl_204_AgeP.Text = "AgeP:" + ' + 'sld_204_AgeP + ' + Me.sld_204_AgeP.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_204_AgeP.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_204_AgeP", True)) + Me.sld_204_AgeP.EditValue = Nothing + Me.sld_204_AgeP.Location = New System.Drawing.Point(121, 2) + Me.sld_204_AgeP.Name = "sld_204_AgeP" + Me.sld_204_AgeP.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_204_AgeP.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel100.Label = "0" + TrackBarLabel101.Label = "1" + TrackBarLabel101.Value = 1 + TrackBarLabel102.Label = "2" + TrackBarLabel102.Value = 2 + TrackBarLabel103.Label = "3" + TrackBarLabel103.Value = 3 + TrackBarLabel104.Label = "4" + TrackBarLabel104.Value = 4 + TrackBarLabel105.Label = "5" + TrackBarLabel105.Value = 5 + TrackBarLabel106.Label = "6" + TrackBarLabel106.Value = 6 + TrackBarLabel107.Label = "7" + TrackBarLabel107.Value = 7 + TrackBarLabel108.Label = "8" + TrackBarLabel108.Value = 8 + TrackBarLabel109.Label = "9" + TrackBarLabel109.Value = 9 + TrackBarLabel110.Label = "10" + TrackBarLabel110.Value = 10 + Me.sld_204_AgeP.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel100, TrackBarLabel101, TrackBarLabel102, TrackBarLabel103, TrackBarLabel104, TrackBarLabel105, TrackBarLabel106, TrackBarLabel107, TrackBarLabel108, TrackBarLabel109, TrackBarLabel110}) + Me.sld_204_AgeP.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_204_AgeP.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem29.Text = "AgeP" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = resources.GetString("ToolTipItem29.Text") + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.sld_204_AgeP.SuperTip = SuperToolTip29 + Me.sld_204_AgeP.TabIndex = 16 + ' + 'lbl_204_AgeP_Value + ' + Me.lbl_204_AgeP_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_204_AgeP_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_204_AgeP_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_204_AgeP", True)) + Me.lbl_204_AgeP_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_204_AgeP_Value.MKBoundControl1 = Nothing + Me.lbl_204_AgeP_Value.MKBoundControl2 = Nothing + Me.lbl_204_AgeP_Value.MKBoundControl3 = Nothing + Me.lbl_204_AgeP_Value.MKBoundControl4 = Nothing + Me.lbl_204_AgeP_Value.MKBoundControl5 = Nothing + Me.lbl_204_AgeP_Value.Name = "lbl_204_AgeP_Value" + Me.lbl_204_AgeP_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem30.Text = "AgeP" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = resources.GetString("ToolTipItem30.Text") + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.lbl_204_AgeP_Value.SuperTip = SuperToolTip30 + Me.lbl_204_AgeP_Value.TabIndex = 2 + Me.lbl_204_AgeP_Value.Text = "0" + ' + 'lbl_205_Rating_Descriptors + ' + Me.lbl_205_Rating_Descriptors.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_205_Rating_Descriptors.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_205_Rating_Descriptors.Location = New System.Drawing.Point(3, 3) + Me.lbl_205_Rating_Descriptors.MKBoundControl1 = Nothing + Me.lbl_205_Rating_Descriptors.MKBoundControl2 = Nothing + Me.lbl_205_Rating_Descriptors.MKBoundControl3 = Nothing + Me.lbl_205_Rating_Descriptors.MKBoundControl4 = Nothing + Me.lbl_205_Rating_Descriptors.MKBoundControl5 = Nothing + Me.lbl_205_Rating_Descriptors.Name = "lbl_205_Rating_Descriptors" + Me.lbl_205_Rating_Descriptors.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem31.Text = "Rating Descriptors" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "Rating descriptors of the games (e.g. Strong Violence, Mild Use of Drugs, Animate" & + "d Blood etc.)" + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.lbl_205_Rating_Descriptors.SuperTip = SuperToolTip31 + Me.lbl_205_Rating_Descriptors.TabIndex = 0 + Me.lbl_205_Rating_Descriptors.Text = "Rating Descriptors:" + ' + 'sld_205_Rating_Descriptors + ' + Me.sld_205_Rating_Descriptors.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_205_Rating_Descriptors.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_205_Rating_Descriptors", True)) + Me.sld_205_Rating_Descriptors.EditValue = Nothing + Me.sld_205_Rating_Descriptors.Location = New System.Drawing.Point(121, 2) + Me.sld_205_Rating_Descriptors.Name = "sld_205_Rating_Descriptors" + Me.sld_205_Rating_Descriptors.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_205_Rating_Descriptors.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel111.Label = "0" + TrackBarLabel112.Label = "1" + TrackBarLabel112.Value = 1 + TrackBarLabel113.Label = "2" + TrackBarLabel113.Value = 2 + TrackBarLabel114.Label = "3" + TrackBarLabel114.Value = 3 + TrackBarLabel115.Label = "4" + TrackBarLabel115.Value = 4 + TrackBarLabel116.Label = "5" + TrackBarLabel116.Value = 5 + TrackBarLabel117.Label = "6" + TrackBarLabel117.Value = 6 + TrackBarLabel118.Label = "7" + TrackBarLabel118.Value = 7 + TrackBarLabel119.Label = "8" + TrackBarLabel119.Value = 8 + TrackBarLabel120.Label = "9" + TrackBarLabel120.Value = 9 + TrackBarLabel121.Label = "10" + TrackBarLabel121.Value = 10 + Me.sld_205_Rating_Descriptors.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel111, TrackBarLabel112, TrackBarLabel113, TrackBarLabel114, TrackBarLabel115, TrackBarLabel116, TrackBarLabel117, TrackBarLabel118, TrackBarLabel119, TrackBarLabel120, TrackBarLabel121}) + Me.sld_205_Rating_Descriptors.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_205_Rating_Descriptors.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem32.Text = "Rating Descriptors" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "Rating descriptors of the games (e.g. Strong Violence, Mild Use of Drugs, Animate" & + "d Blood etc.)" + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.sld_205_Rating_Descriptors.SuperTip = SuperToolTip32 + Me.sld_205_Rating_Descriptors.TabIndex = 17 + ' + 'lbl_205_Rating_Descriptors_Value + ' + Me.lbl_205_Rating_Descriptors_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_205_Rating_Descriptors_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_205_Rating_Descriptors_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_205_Rating_Descriptors_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_205_Rating_Descriptors", True)) + Me.lbl_205_Rating_Descriptors_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_205_Rating_Descriptors_Value.MKBoundControl1 = Nothing + Me.lbl_205_Rating_Descriptors_Value.MKBoundControl2 = Nothing + Me.lbl_205_Rating_Descriptors_Value.MKBoundControl3 = Nothing + Me.lbl_205_Rating_Descriptors_Value.MKBoundControl4 = Nothing + Me.lbl_205_Rating_Descriptors_Value.MKBoundControl5 = Nothing + Me.lbl_205_Rating_Descriptors_Value.Name = "lbl_205_Rating_Descriptors_Value" + Me.lbl_205_Rating_Descriptors_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem33.Text = "Rating Descriptors" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = "Rating descriptors of the games (e.g. Strong Violence, Mild Use of Drugs, Animate" & + "d Blood etc.)" + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.lbl_205_Rating_Descriptors_Value.SuperTip = SuperToolTip33 + Me.lbl_205_Rating_Descriptors_Value.TabIndex = 2 + Me.lbl_205_Rating_Descriptors_Value.Text = "0" + ' + 'lbl_206_Other_Attributes + ' + Me.lbl_206_Other_Attributes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_206_Other_Attributes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_206_Other_Attributes.Location = New System.Drawing.Point(3, 3) + Me.lbl_206_Other_Attributes.MKBoundControl1 = Nothing + Me.lbl_206_Other_Attributes.MKBoundControl2 = Nothing + Me.lbl_206_Other_Attributes.MKBoundControl3 = Nothing + Me.lbl_206_Other_Attributes.MKBoundControl4 = Nothing + Me.lbl_206_Other_Attributes.MKBoundControl5 = Nothing + Me.lbl_206_Other_Attributes.Name = "lbl_206_Other_Attributes" + Me.lbl_206_Other_Attributes.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem34.Text = "Tech Info" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "Technical attributes of the games (e.g. Direct3D, OpenGL, Cartridge, CD-Rom etc.)" & + "" + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.lbl_206_Other_Attributes.SuperTip = SuperToolTip34 + Me.lbl_206_Other_Attributes.TabIndex = 0 + Me.lbl_206_Other_Attributes.Text = "Tech Info:" + ' + 'sld_206_Other_Attributes + ' + Me.sld_206_Other_Attributes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_206_Other_Attributes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_206_Other_Attributes", True)) + Me.sld_206_Other_Attributes.EditValue = Nothing + Me.sld_206_Other_Attributes.Location = New System.Drawing.Point(121, 2) + Me.sld_206_Other_Attributes.Name = "sld_206_Other_Attributes" + Me.sld_206_Other_Attributes.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_206_Other_Attributes.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel122.Label = "0" + TrackBarLabel123.Label = "1" + TrackBarLabel123.Value = 1 + TrackBarLabel124.Label = "2" + TrackBarLabel124.Value = 2 + TrackBarLabel125.Label = "3" + TrackBarLabel125.Value = 3 + TrackBarLabel126.Label = "4" + TrackBarLabel126.Value = 4 + TrackBarLabel127.Label = "5" + TrackBarLabel127.Value = 5 + TrackBarLabel128.Label = "6" + TrackBarLabel128.Value = 6 + TrackBarLabel129.Label = "7" + TrackBarLabel129.Value = 7 + TrackBarLabel130.Label = "8" + TrackBarLabel130.Value = 8 + TrackBarLabel131.Label = "9" + TrackBarLabel131.Value = 9 + TrackBarLabel132.Label = "10" + TrackBarLabel132.Value = 10 + Me.sld_206_Other_Attributes.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel122, TrackBarLabel123, TrackBarLabel124, TrackBarLabel125, TrackBarLabel126, TrackBarLabel127, TrackBarLabel128, TrackBarLabel129, TrackBarLabel130, TrackBarLabel131, TrackBarLabel132}) + Me.sld_206_Other_Attributes.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_206_Other_Attributes.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem35.Text = "Tech Info" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "Technical attributes of the games (e.g. Direct3D, OpenGL, Cartridge, CD-Rom etc.)" & + "" + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.sld_206_Other_Attributes.SuperTip = SuperToolTip35 + Me.sld_206_Other_Attributes.TabIndex = 19 + ' + 'lbl_206_Other_Attributes_Value + ' + Me.lbl_206_Other_Attributes_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_206_Other_Attributes_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_206_Other_Attributes_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_206_Other_Attributes_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_206_Other_Attributes", True)) + Me.lbl_206_Other_Attributes_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_206_Other_Attributes_Value.MKBoundControl1 = Nothing + Me.lbl_206_Other_Attributes_Value.MKBoundControl2 = Nothing + Me.lbl_206_Other_Attributes_Value.MKBoundControl3 = Nothing + Me.lbl_206_Other_Attributes_Value.MKBoundControl4 = Nothing + Me.lbl_206_Other_Attributes_Value.MKBoundControl5 = Nothing + Me.lbl_206_Other_Attributes_Value.Name = "lbl_206_Other_Attributes_Value" + Me.lbl_206_Other_Attributes_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem36.Text = "Tech Info" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "Technical attributes of the games (e.g. Direct3D, OpenGL, Cartridge, CD-Rom etc.)" & + "" + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.lbl_206_Other_Attributes_Value.SuperTip = SuperToolTip36 + Me.lbl_206_Other_Attributes_Value.TabIndex = 2 + Me.lbl_206_Other_Attributes_Value.Text = "0" + ' + 'lbl_301_Group_Membership + ' + Me.lbl_301_Group_Membership.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_301_Group_Membership.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_301_Group_Membership.Location = New System.Drawing.Point(3, 3) + Me.lbl_301_Group_Membership.MKBoundControl1 = Nothing + Me.lbl_301_Group_Membership.MKBoundControl2 = Nothing + Me.lbl_301_Group_Membership.MKBoundControl3 = Nothing + Me.lbl_301_Group_Membership.MKBoundControl4 = Nothing + Me.lbl_301_Group_Membership.MKBoundControl5 = Nothing + Me.lbl_301_Group_Membership.Name = "lbl_301_Group_Membership" + Me.lbl_301_Group_Membership.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem37.Text = "Groups" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = "Game group memberships of the games" + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.lbl_301_Group_Membership.SuperTip = SuperToolTip37 + Me.lbl_301_Group_Membership.TabIndex = 0 + Me.lbl_301_Group_Membership.Text = "Groups:" + ' + 'sld_301_Group_Membership + ' + Me.sld_301_Group_Membership.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_301_Group_Membership.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_301_Group_Membership", True)) + Me.sld_301_Group_Membership.EditValue = Nothing + Me.sld_301_Group_Membership.Location = New System.Drawing.Point(121, 2) + Me.sld_301_Group_Membership.Name = "sld_301_Group_Membership" + Me.sld_301_Group_Membership.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_301_Group_Membership.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel133.Label = "0" + TrackBarLabel134.Label = "1" + TrackBarLabel134.Value = 1 + TrackBarLabel135.Label = "2" + TrackBarLabel135.Value = 2 + TrackBarLabel136.Label = "3" + TrackBarLabel136.Value = 3 + TrackBarLabel137.Label = "4" + TrackBarLabel137.Value = 4 + TrackBarLabel138.Label = "5" + TrackBarLabel138.Value = 5 + TrackBarLabel139.Label = "6" + TrackBarLabel139.Value = 6 + TrackBarLabel140.Label = "7" + TrackBarLabel140.Value = 7 + TrackBarLabel141.Label = "8" + TrackBarLabel141.Value = 8 + TrackBarLabel142.Label = "9" + TrackBarLabel142.Value = 9 + TrackBarLabel143.Label = "10" + TrackBarLabel143.Value = 10 + Me.sld_301_Group_Membership.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel133, TrackBarLabel134, TrackBarLabel135, TrackBarLabel136, TrackBarLabel137, TrackBarLabel138, TrackBarLabel139, TrackBarLabel140, TrackBarLabel141, TrackBarLabel142, TrackBarLabel143}) + Me.sld_301_Group_Membership.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_301_Group_Membership.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem38.Text = "Groups" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "Game group memberships of the games" + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.sld_301_Group_Membership.SuperTip = SuperToolTip38 + Me.sld_301_Group_Membership.TabIndex = 20 + ' + 'lbl_301_Group_Membership_Value + ' + Me.lbl_301_Group_Membership_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_301_Group_Membership_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_301_Group_Membership_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_301_Group_Membership_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_301_Group_Membership", True)) + Me.lbl_301_Group_Membership_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_301_Group_Membership_Value.MKBoundControl1 = Nothing + Me.lbl_301_Group_Membership_Value.MKBoundControl2 = Nothing + Me.lbl_301_Group_Membership_Value.MKBoundControl3 = Nothing + Me.lbl_301_Group_Membership_Value.MKBoundControl4 = Nothing + Me.lbl_301_Group_Membership_Value.MKBoundControl5 = Nothing + Me.lbl_301_Group_Membership_Value.Name = "lbl_301_Group_Membership_Value" + Me.lbl_301_Group_Membership_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem39.Text = "Groups" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "Game group memberships of the games" + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.lbl_301_Group_Membership_Value.SuperTip = SuperToolTip39 + Me.lbl_301_Group_Membership_Value.TabIndex = 2 + Me.lbl_301_Group_Membership_Value.Text = "0" + ' + 'lbl_401_Staff + ' + Me.lbl_401_Staff.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_401_Staff.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_401_Staff.Location = New System.Drawing.Point(3, 3) + Me.lbl_401_Staff.MKBoundControl1 = Nothing + Me.lbl_401_Staff.MKBoundControl2 = Nothing + Me.lbl_401_Staff.MKBoundControl3 = Nothing + Me.lbl_401_Staff.MKBoundControl4 = Nothing + Me.lbl_401_Staff.MKBoundControl5 = Nothing + Me.lbl_401_Staff.Name = "lbl_401_Staff" + Me.lbl_401_Staff.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem40.Text = "Staff" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "Staff memberships of the games" + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.lbl_401_Staff.SuperTip = SuperToolTip40 + Me.lbl_401_Staff.TabIndex = 0 + Me.lbl_401_Staff.Text = "Staff:" + ' + 'sld_401_Staff + ' + Me.sld_401_Staff.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_401_Staff.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_401_Staff", True)) + Me.sld_401_Staff.EditValue = Nothing + Me.sld_401_Staff.Location = New System.Drawing.Point(121, 2) + Me.sld_401_Staff.Name = "sld_401_Staff" + Me.sld_401_Staff.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_401_Staff.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel144.Label = "0" + TrackBarLabel145.Label = "1" + TrackBarLabel145.Value = 1 + TrackBarLabel146.Label = "2" + TrackBarLabel146.Value = 2 + TrackBarLabel147.Label = "3" + TrackBarLabel147.Value = 3 + TrackBarLabel148.Label = "4" + TrackBarLabel148.Value = 4 + TrackBarLabel149.Label = "5" + TrackBarLabel149.Value = 5 + TrackBarLabel150.Label = "6" + TrackBarLabel150.Value = 6 + TrackBarLabel151.Label = "7" + TrackBarLabel151.Value = 7 + TrackBarLabel152.Label = "8" + TrackBarLabel152.Value = 8 + TrackBarLabel153.Label = "9" + TrackBarLabel153.Value = 9 + TrackBarLabel154.Label = "10" + TrackBarLabel154.Value = 10 + Me.sld_401_Staff.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel144, TrackBarLabel145, TrackBarLabel146, TrackBarLabel147, TrackBarLabel148, TrackBarLabel149, TrackBarLabel150, TrackBarLabel151, TrackBarLabel152, TrackBarLabel153, TrackBarLabel154}) + Me.sld_401_Staff.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_401_Staff.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem41.Text = "Staff" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.Text = "Staff memberships of the games" + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem41) + Me.sld_401_Staff.SuperTip = SuperToolTip41 + Me.sld_401_Staff.TabIndex = 21 + ' + 'lbl_401_Staff_Value + ' + Me.lbl_401_Staff_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_401_Staff_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_401_Staff_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_401_Staff_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_401_Staff", True)) + Me.lbl_401_Staff_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_401_Staff_Value.MKBoundControl1 = Nothing + Me.lbl_401_Staff_Value.MKBoundControl2 = Nothing + Me.lbl_401_Staff_Value.MKBoundControl3 = Nothing + Me.lbl_401_Staff_Value.MKBoundControl4 = Nothing + Me.lbl_401_Staff_Value.MKBoundControl5 = Nothing + Me.lbl_401_Staff_Value.Name = "lbl_401_Staff_Value" + Me.lbl_401_Staff_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem42.Text = "Staff" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "Staff memberships of the games" + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.lbl_401_Staff_Value.SuperTip = SuperToolTip42 + Me.lbl_401_Staff_Value.TabIndex = 2 + Me.lbl_401_Staff_Value.Text = "0" + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.AutoEllipsis = True + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(524, 58) + Me.lbl_Explanation.TabIndex = 3 + Me.lbl_Explanation.Text = resources.GetString("lbl_Explanation.Text") + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(446, 515) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 23 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(368, 515) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 22 + Me.btn_OK.Text = "&OK" + ' + 'lbl_Name + ' + Me.lbl_Name.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.lbl_Name.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Name.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Name.Location = New System.Drawing.Point(3, 65) + Me.lbl_Name.MKBoundControl1 = Nothing + Me.lbl_Name.MKBoundControl2 = Nothing + Me.lbl_Name.MKBoundControl3 = Nothing + Me.lbl_Name.MKBoundControl4 = Nothing + Me.lbl_Name.MKBoundControl5 = Nothing + Me.lbl_Name.Name = "lbl_Name" + Me.lbl_Name.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem43.Text = "Name" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "Provide a name for this configuration" + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.lbl_Name.SuperTip = SuperToolTip43 + Me.lbl_Name.TabIndex = 0 + Me.lbl_Name.Text = "Name:" + ' + 'txb_Name + ' + Me.txb_Name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Name.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Name", True)) + Me.txb_Name.Location = New System.Drawing.Point(121, 65) + Me.txb_Name.MKBoundLabel = Nothing + Me.txb_Name.MKEditValue_Compare = Nothing + Me.txb_Name.Name = "txb_Name" + Me.txb_Name.Size = New System.Drawing.Size(400, 20) + ToolTipTitleItem44.Text = "Name" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "Provide a name for this configuration" + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.txb_Name.SuperTip = SuperToolTip44 + Me.txb_Name.TabIndex = 0 + ' + 'lbl_207_Multiplayer_Attributes + ' + Me.lbl_207_Multiplayer_Attributes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_207_Multiplayer_Attributes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_207_Multiplayer_Attributes.Location = New System.Drawing.Point(3, 3) + Me.lbl_207_Multiplayer_Attributes.MKBoundControl1 = Nothing + Me.lbl_207_Multiplayer_Attributes.MKBoundControl2 = Nothing + Me.lbl_207_Multiplayer_Attributes.MKBoundControl3 = Nothing + Me.lbl_207_Multiplayer_Attributes.MKBoundControl4 = Nothing + Me.lbl_207_Multiplayer_Attributes.MKBoundControl5 = Nothing + Me.lbl_207_Multiplayer_Attributes.Name = "lbl_207_Multiplayer_Attributes" + Me.lbl_207_Multiplayer_Attributes.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem45.Text = "Multiplayer Attributes" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = "Multiplayer modes and options of the games (e.g. Free-for-all, Co-Op, Same/Splits" & + "creen Multiplayer, LAN etc.)" + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem45) + Me.lbl_207_Multiplayer_Attributes.SuperTip = SuperToolTip45 + Me.lbl_207_Multiplayer_Attributes.TabIndex = 0 + Me.lbl_207_Multiplayer_Attributes.Text = "Multiplayer Attributes:" + ' + 'sld_207_Multiplayer_Attributes + ' + Me.sld_207_Multiplayer_Attributes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_207_Multiplayer_Attributes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_207_Multiplayer_Attributes", True)) + Me.sld_207_Multiplayer_Attributes.EditValue = Nothing + Me.sld_207_Multiplayer_Attributes.Location = New System.Drawing.Point(121, 2) + Me.sld_207_Multiplayer_Attributes.Name = "sld_207_Multiplayer_Attributes" + Me.sld_207_Multiplayer_Attributes.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_207_Multiplayer_Attributes.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel155.Label = "0" + TrackBarLabel156.Label = "1" + TrackBarLabel156.Value = 1 + TrackBarLabel157.Label = "2" + TrackBarLabel157.Value = 2 + TrackBarLabel158.Label = "3" + TrackBarLabel158.Value = 3 + TrackBarLabel159.Label = "4" + TrackBarLabel159.Value = 4 + TrackBarLabel160.Label = "5" + TrackBarLabel160.Value = 5 + TrackBarLabel161.Label = "6" + TrackBarLabel161.Value = 6 + TrackBarLabel162.Label = "7" + TrackBarLabel162.Value = 7 + TrackBarLabel163.Label = "8" + TrackBarLabel163.Value = 8 + TrackBarLabel164.Label = "9" + TrackBarLabel164.Value = 9 + TrackBarLabel165.Label = "10" + TrackBarLabel165.Value = 10 + Me.sld_207_Multiplayer_Attributes.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel155, TrackBarLabel156, TrackBarLabel157, TrackBarLabel158, TrackBarLabel159, TrackBarLabel160, TrackBarLabel161, TrackBarLabel162, TrackBarLabel163, TrackBarLabel164, TrackBarLabel165}) + Me.sld_207_Multiplayer_Attributes.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_207_Multiplayer_Attributes.Size = New System.Drawing.Size(110, 45) + ToolTipTitleItem46.Text = "Multiplayer Attributes" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.Text = "Multiplayer modes and options of the games (e.g. Free-for-all, Co-Op, Same/Splits" & + "creen Multiplayer, LAN etc.)" + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem46) + Me.sld_207_Multiplayer_Attributes.SuperTip = SuperToolTip46 + Me.sld_207_Multiplayer_Attributes.TabIndex = 18 + ' + 'lbl_207_Multiplayer_Attributes_Value + ' + Me.lbl_207_Multiplayer_Attributes_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_207_Multiplayer_Attributes_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_207_Multiplayer_Attributes_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_207_Multiplayer_Attributes_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_207_Multiplayer_Attributes", True)) + Me.lbl_207_Multiplayer_Attributes_Value.Location = New System.Drawing.Point(234, 3) + Me.lbl_207_Multiplayer_Attributes_Value.MKBoundControl1 = Nothing + Me.lbl_207_Multiplayer_Attributes_Value.MKBoundControl2 = Nothing + Me.lbl_207_Multiplayer_Attributes_Value.MKBoundControl3 = Nothing + Me.lbl_207_Multiplayer_Attributes_Value.MKBoundControl4 = Nothing + Me.lbl_207_Multiplayer_Attributes_Value.MKBoundControl5 = Nothing + Me.lbl_207_Multiplayer_Attributes_Value.Name = "lbl_207_Multiplayer_Attributes_Value" + Me.lbl_207_Multiplayer_Attributes_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem47.Text = "Multiplayer Attributes" + ToolTipItem47.LeftIndent = 6 + ToolTipItem47.Text = "Multiplayer modes and options of the games (e.g. Free-for-all, Co-Op, Same/Splits" & + "creen Multiplayer, LAN etc.)" + SuperToolTip47.Items.Add(ToolTipTitleItem47) + SuperToolTip47.Items.Add(ToolTipItem47) + Me.lbl_207_Multiplayer_Attributes_Value.SuperTip = SuperToolTip47 + Me.lbl_207_Multiplayer_Attributes_Value.TabIndex = 2 + Me.lbl_207_Multiplayer_Attributes_Value.Text = "0" + ' + 'tlp_Main + ' + Me.tlp_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_Main.ColumnCount = 2 + Me.tlp_Main.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_Main.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_Main.Controls.Add(Me.pnl_Right, 1, 0) + Me.tlp_Main.Controls.Add(Me.pnl_Left, 0, 0) + Me.tlp_Main.Location = New System.Drawing.Point(3, 88) + Me.tlp_Main.Name = "tlp_Main" + Me.tlp_Main.RowCount = 1 + Me.tlp_Main.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_Main.Size = New System.Drawing.Size(518, 424) + Me.tlp_Main.TabIndex = 24 + ' + 'pnl_Right + ' + Me.pnl_Right.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Right.Controls.Add(Me.pnl_106_Other_Attributes) + Me.pnl_Right.Controls.Add(Me.pnl_115_Special_Edition) + Me.pnl_Right.Controls.Add(Me.pnl_114_DLC_Addon) + Me.pnl_Right.Controls.Add(Me.pnl_113_Interface_Control) + Me.pnl_Right.Controls.Add(Me.pnl_105_Educational_Categories) + Me.pnl_Right.Controls.Add(Me.pnl_112_Vehicular_Themes) + Me.pnl_Right.Controls.Add(Me.pnl_Sports_Themes) + Me.pnl_Right.Controls.Add(Me.pnl_111_Setting) + Me.pnl_Right.Controls.Add(Me.pnl_110_Narrative_Theme_Topic) + Me.pnl_Right.Controls.Add(Me.pnl_109_Pacing) + Me.pnl_Right.Controls.Add(Me.pnl_108_Gameplay) + Me.pnl_Right.Controls.Add(Me.pnl_107_Visual_Presentation) + Me.pnl_Right.Controls.Add(Me.pnl_102_Perspective) + Me.pnl_Right.Controls.Add(Me.pnl_101_Basic_Genres) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(262, 3) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(253, 418) + Me.pnl_Right.TabIndex = 1 + ' + 'pnl_106_Other_Attributes + ' + Me.pnl_106_Other_Attributes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_106_Other_Attributes.Controls.Add(Me.lbl_106_Other_Attributes) + Me.pnl_106_Other_Attributes.Controls.Add(Me.sld_106_Other_Attributes) + Me.pnl_106_Other_Attributes.Controls.Add(Me.lbl_106_Other_Attributes_Value) + Me.pnl_106_Other_Attributes.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_106_Other_Attributes.Location = New System.Drawing.Point(0, 364) + Me.pnl_106_Other_Attributes.Name = "pnl_106_Other_Attributes" + Me.pnl_106_Other_Attributes.Size = New System.Drawing.Size(253, 28) + Me.pnl_106_Other_Attributes.TabIndex = 26 + ' + 'lbl_106_Other_Attributes + ' + Me.lbl_106_Other_Attributes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_106_Other_Attributes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_106_Other_Attributes.Location = New System.Drawing.Point(2, 3) + Me.lbl_106_Other_Attributes.MKBoundControl1 = Nothing + Me.lbl_106_Other_Attributes.MKBoundControl2 = Nothing + Me.lbl_106_Other_Attributes.MKBoundControl3 = Nothing + Me.lbl_106_Other_Attributes.MKBoundControl4 = Nothing + Me.lbl_106_Other_Attributes.MKBoundControl5 = Nothing + Me.lbl_106_Other_Attributes.Name = "lbl_106_Other_Attributes" + Me.lbl_106_Other_Attributes.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem48.Text = "Other Attributes" + ToolTipItem48.LeftIndent = 6 + ToolTipItem48.Text = "Other attributes of the game (e.g. Licensed Title etc.)" + SuperToolTip48.Items.Add(ToolTipTitleItem48) + SuperToolTip48.Items.Add(ToolTipItem48) + Me.lbl_106_Other_Attributes.SuperTip = SuperToolTip48 + Me.lbl_106_Other_Attributes.TabIndex = 0 + Me.lbl_106_Other_Attributes.Text = "Other Attributes:" + ' + 'sld_106_Other_Attributes + ' + Me.sld_106_Other_Attributes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_106_Other_Attributes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_106_Other_Attributes", True)) + Me.sld_106_Other_Attributes.EditValue = Nothing + Me.sld_106_Other_Attributes.Location = New System.Drawing.Point(129, 2) + Me.sld_106_Other_Attributes.Name = "sld_106_Other_Attributes" + Me.sld_106_Other_Attributes.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_106_Other_Attributes.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel166.Label = "0" + TrackBarLabel167.Label = "1" + TrackBarLabel167.Value = 1 + TrackBarLabel168.Label = "2" + TrackBarLabel168.Value = 2 + TrackBarLabel169.Label = "3" + TrackBarLabel169.Value = 3 + TrackBarLabel170.Label = "4" + TrackBarLabel170.Value = 4 + TrackBarLabel171.Label = "5" + TrackBarLabel171.Value = 5 + TrackBarLabel172.Label = "6" + TrackBarLabel172.Value = 6 + TrackBarLabel173.Label = "7" + TrackBarLabel173.Value = 7 + TrackBarLabel174.Label = "8" + TrackBarLabel174.Value = 8 + TrackBarLabel175.Label = "9" + TrackBarLabel175.Value = 9 + TrackBarLabel176.Label = "10" + TrackBarLabel176.Value = 10 + Me.sld_106_Other_Attributes.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel166, TrackBarLabel167, TrackBarLabel168, TrackBarLabel169, TrackBarLabel170, TrackBarLabel171, TrackBarLabel172, TrackBarLabel173, TrackBarLabel174, TrackBarLabel175, TrackBarLabel176}) + Me.sld_106_Other_Attributes.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_106_Other_Attributes.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem49.Text = "Other Attributes" + ToolTipItem49.LeftIndent = 6 + ToolTipItem49.Text = "Other attributes of the game (e.g. Licensed Title etc.)" + SuperToolTip49.Items.Add(ToolTipTitleItem49) + SuperToolTip49.Items.Add(ToolTipItem49) + Me.sld_106_Other_Attributes.SuperTip = SuperToolTip49 + Me.sld_106_Other_Attributes.TabIndex = 12 + ' + 'lbl_106_Other_Attributes_Value + ' + Me.lbl_106_Other_Attributes_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_106_Other_Attributes_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_106_Other_Attributes_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_106_Other_Attributes_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_106_Other_Attributes", True)) + Me.lbl_106_Other_Attributes_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_106_Other_Attributes_Value.MKBoundControl1 = Nothing + Me.lbl_106_Other_Attributes_Value.MKBoundControl2 = Nothing + Me.lbl_106_Other_Attributes_Value.MKBoundControl3 = Nothing + Me.lbl_106_Other_Attributes_Value.MKBoundControl4 = Nothing + Me.lbl_106_Other_Attributes_Value.MKBoundControl5 = Nothing + Me.lbl_106_Other_Attributes_Value.Name = "lbl_106_Other_Attributes_Value" + Me.lbl_106_Other_Attributes_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem50.Text = "Other Attributes" + ToolTipItem50.LeftIndent = 6 + ToolTipItem50.Text = "Other attributes of the game (e.g. Licensed Title etc.)" + SuperToolTip50.Items.Add(ToolTipTitleItem50) + SuperToolTip50.Items.Add(ToolTipItem50) + Me.lbl_106_Other_Attributes_Value.SuperTip = SuperToolTip50 + Me.lbl_106_Other_Attributes_Value.TabIndex = 2 + Me.lbl_106_Other_Attributes_Value.Text = "0" + ' + 'pnl_115_Special_Edition + ' + Me.pnl_115_Special_Edition.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_115_Special_Edition.Controls.Add(Me.lbl_115_Special_Edition) + Me.pnl_115_Special_Edition.Controls.Add(Me.sld_115_Special_Edition) + Me.pnl_115_Special_Edition.Controls.Add(Me.lbl_115_Special_Edition_Value) + Me.pnl_115_Special_Edition.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_115_Special_Edition.Location = New System.Drawing.Point(0, 336) + Me.pnl_115_Special_Edition.Name = "pnl_115_Special_Edition" + Me.pnl_115_Special_Edition.Size = New System.Drawing.Size(253, 28) + Me.pnl_115_Special_Edition.TabIndex = 25 + ' + 'lbl_115_Special_Edition + ' + Me.lbl_115_Special_Edition.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_115_Special_Edition.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_115_Special_Edition.Location = New System.Drawing.Point(2, 3) + Me.lbl_115_Special_Edition.MKBoundControl1 = Nothing + Me.lbl_115_Special_Edition.MKBoundControl2 = Nothing + Me.lbl_115_Special_Edition.MKBoundControl3 = Nothing + Me.lbl_115_Special_Edition.MKBoundControl4 = Nothing + Me.lbl_115_Special_Edition.MKBoundControl5 = Nothing + Me.lbl_115_Special_Edition.Name = "lbl_115_Special_Edition" + Me.lbl_115_Special_Edition.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem51.Text = "Special Edition" + ToolTipItem51.LeftIndent = 6 + ToolTipItem51.Text = "The game's release is a special edition (e.g. Digital Extras, Extra Content/Game," & + " Physical Extras)" + SuperToolTip51.Items.Add(ToolTipTitleItem51) + SuperToolTip51.Items.Add(ToolTipItem51) + Me.lbl_115_Special_Edition.SuperTip = SuperToolTip51 + Me.lbl_115_Special_Edition.TabIndex = 0 + Me.lbl_115_Special_Edition.Text = "Special Edition:" + ' + 'sld_115_Special_Edition + ' + Me.sld_115_Special_Edition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_115_Special_Edition.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_115_Special_Edition", True)) + Me.sld_115_Special_Edition.EditValue = Nothing + Me.sld_115_Special_Edition.Location = New System.Drawing.Point(129, 2) + Me.sld_115_Special_Edition.Name = "sld_115_Special_Edition" + Me.sld_115_Special_Edition.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_115_Special_Edition.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel177.Label = "0" + TrackBarLabel178.Label = "1" + TrackBarLabel178.Value = 1 + TrackBarLabel179.Label = "2" + TrackBarLabel179.Value = 2 + TrackBarLabel180.Label = "3" + TrackBarLabel180.Value = 3 + TrackBarLabel181.Label = "4" + TrackBarLabel181.Value = 4 + TrackBarLabel182.Label = "5" + TrackBarLabel182.Value = 5 + TrackBarLabel183.Label = "6" + TrackBarLabel183.Value = 6 + TrackBarLabel184.Label = "7" + TrackBarLabel184.Value = 7 + TrackBarLabel185.Label = "8" + TrackBarLabel185.Value = 8 + TrackBarLabel186.Label = "9" + TrackBarLabel186.Value = 9 + TrackBarLabel187.Label = "10" + TrackBarLabel187.Value = 10 + Me.sld_115_Special_Edition.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel177, TrackBarLabel178, TrackBarLabel179, TrackBarLabel180, TrackBarLabel181, TrackBarLabel182, TrackBarLabel183, TrackBarLabel184, TrackBarLabel185, TrackBarLabel186, TrackBarLabel187}) + Me.sld_115_Special_Edition.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_115_Special_Edition.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem52.Text = "Special Edition" + ToolTipItem52.LeftIndent = 6 + ToolTipItem52.Text = "The game's release is a special edition (e.g. Digital Extras, Extra Content/Game," & + " Physical Extras)" + SuperToolTip52.Items.Add(ToolTipTitleItem52) + SuperToolTip52.Items.Add(ToolTipItem52) + Me.sld_115_Special_Edition.SuperTip = SuperToolTip52 + Me.sld_115_Special_Edition.TabIndex = 11 + ' + 'lbl_115_Special_Edition_Value + ' + Me.lbl_115_Special_Edition_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_115_Special_Edition_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_115_Special_Edition_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_115_Special_Edition_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_115_Special_Edition", True)) + Me.lbl_115_Special_Edition_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_115_Special_Edition_Value.MKBoundControl1 = Nothing + Me.lbl_115_Special_Edition_Value.MKBoundControl2 = Nothing + Me.lbl_115_Special_Edition_Value.MKBoundControl3 = Nothing + Me.lbl_115_Special_Edition_Value.MKBoundControl4 = Nothing + Me.lbl_115_Special_Edition_Value.MKBoundControl5 = Nothing + Me.lbl_115_Special_Edition_Value.Name = "lbl_115_Special_Edition_Value" + Me.lbl_115_Special_Edition_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem53.Text = "Special Edition" + ToolTipItem53.LeftIndent = 6 + ToolTipItem53.Text = "The game's release is a special edition (e.g. Digital Extras, Extra Content/Game," & + " Physical Extras)" + SuperToolTip53.Items.Add(ToolTipTitleItem53) + SuperToolTip53.Items.Add(ToolTipItem53) + Me.lbl_115_Special_Edition_Value.SuperTip = SuperToolTip53 + Me.lbl_115_Special_Edition_Value.TabIndex = 2 + Me.lbl_115_Special_Edition_Value.Text = "0" + ' + 'pnl_114_DLC_Addon + ' + Me.pnl_114_DLC_Addon.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_114_DLC_Addon.Controls.Add(Me.lbl_114_DLC_Addon) + Me.pnl_114_DLC_Addon.Controls.Add(Me.sld_114_DLC_Addon) + Me.pnl_114_DLC_Addon.Controls.Add(Me.lbl_114_DLC_Addon_Value) + Me.pnl_114_DLC_Addon.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_114_DLC_Addon.Location = New System.Drawing.Point(0, 308) + Me.pnl_114_DLC_Addon.Name = "pnl_114_DLC_Addon" + Me.pnl_114_DLC_Addon.Size = New System.Drawing.Size(253, 28) + Me.pnl_114_DLC_Addon.TabIndex = 24 + ' + 'lbl_114_DLC_Addon + ' + Me.lbl_114_DLC_Addon.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_114_DLC_Addon.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_114_DLC_Addon.Location = New System.Drawing.Point(2, 3) + Me.lbl_114_DLC_Addon.MKBoundControl1 = Nothing + Me.lbl_114_DLC_Addon.MKBoundControl2 = Nothing + Me.lbl_114_DLC_Addon.MKBoundControl3 = Nothing + Me.lbl_114_DLC_Addon.MKBoundControl4 = Nothing + Me.lbl_114_DLC_Addon.MKBoundControl5 = Nothing + Me.lbl_114_DLC_Addon.Name = "lbl_114_DLC_Addon" + Me.lbl_114_DLC_Addon.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem54.Text = "DLC / Add-on" + ToolTipItem54.LeftIndent = 6 + ToolTipItem54.Text = "The game's release is a DLC/Add-on (e.g. Customization / Outfit / Skin, Game Mode" & + ", Map / Level etc.)" + SuperToolTip54.Items.Add(ToolTipTitleItem54) + SuperToolTip54.Items.Add(ToolTipItem54) + Me.lbl_114_DLC_Addon.SuperTip = SuperToolTip54 + Me.lbl_114_DLC_Addon.TabIndex = 0 + Me.lbl_114_DLC_Addon.Text = "DLC / Add-on:" + ' + 'sld_114_DLC_Addon + ' + Me.sld_114_DLC_Addon.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_114_DLC_Addon.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_114_DLC_Addon", True)) + Me.sld_114_DLC_Addon.EditValue = Nothing + Me.sld_114_DLC_Addon.Location = New System.Drawing.Point(129, 2) + Me.sld_114_DLC_Addon.Name = "sld_114_DLC_Addon" + Me.sld_114_DLC_Addon.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_114_DLC_Addon.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel188.Label = "0" + TrackBarLabel189.Label = "1" + TrackBarLabel189.Value = 1 + TrackBarLabel190.Label = "2" + TrackBarLabel190.Value = 2 + TrackBarLabel191.Label = "3" + TrackBarLabel191.Value = 3 + TrackBarLabel192.Label = "4" + TrackBarLabel192.Value = 4 + TrackBarLabel193.Label = "5" + TrackBarLabel193.Value = 5 + TrackBarLabel194.Label = "6" + TrackBarLabel194.Value = 6 + TrackBarLabel195.Label = "7" + TrackBarLabel195.Value = 7 + TrackBarLabel196.Label = "8" + TrackBarLabel196.Value = 8 + TrackBarLabel197.Label = "9" + TrackBarLabel197.Value = 9 + TrackBarLabel198.Label = "10" + TrackBarLabel198.Value = 10 + Me.sld_114_DLC_Addon.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel188, TrackBarLabel189, TrackBarLabel190, TrackBarLabel191, TrackBarLabel192, TrackBarLabel193, TrackBarLabel194, TrackBarLabel195, TrackBarLabel196, TrackBarLabel197, TrackBarLabel198}) + Me.sld_114_DLC_Addon.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_114_DLC_Addon.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem55.Text = "DLC / Add-on" + ToolTipItem55.LeftIndent = 6 + ToolTipItem55.Text = "The game's release is a DLC/Add-on (e.g. Customization / Outfit / Skin, Game Mode" & + ", Map / Level etc.)" + SuperToolTip55.Items.Add(ToolTipTitleItem55) + SuperToolTip55.Items.Add(ToolTipItem55) + Me.sld_114_DLC_Addon.SuperTip = SuperToolTip55 + Me.sld_114_DLC_Addon.TabIndex = 11 + ' + 'lbl_114_DLC_Addon_Value + ' + Me.lbl_114_DLC_Addon_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_114_DLC_Addon_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_114_DLC_Addon_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_114_DLC_Addon_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_114_DLC_Addon", True)) + Me.lbl_114_DLC_Addon_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_114_DLC_Addon_Value.MKBoundControl1 = Nothing + Me.lbl_114_DLC_Addon_Value.MKBoundControl2 = Nothing + Me.lbl_114_DLC_Addon_Value.MKBoundControl3 = Nothing + Me.lbl_114_DLC_Addon_Value.MKBoundControl4 = Nothing + Me.lbl_114_DLC_Addon_Value.MKBoundControl5 = Nothing + Me.lbl_114_DLC_Addon_Value.Name = "lbl_114_DLC_Addon_Value" + Me.lbl_114_DLC_Addon_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem56.Text = "DLC / Add-on" + ToolTipItem56.LeftIndent = 6 + ToolTipItem56.Text = "The game's release is a DLC/Add-on (e.g. Customization / Outfit / Skin, Game Mode" & + ", Map / Level etc.)" + SuperToolTip56.Items.Add(ToolTipTitleItem56) + SuperToolTip56.Items.Add(ToolTipItem56) + Me.lbl_114_DLC_Addon_Value.SuperTip = SuperToolTip56 + Me.lbl_114_DLC_Addon_Value.TabIndex = 2 + Me.lbl_114_DLC_Addon_Value.Text = "0" + ' + 'pnl_113_Interface_Control + ' + Me.pnl_113_Interface_Control.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_113_Interface_Control.Controls.Add(Me.lbl_113_Interface_Control) + Me.pnl_113_Interface_Control.Controls.Add(Me.sld_113_Interface_Control) + Me.pnl_113_Interface_Control.Controls.Add(Me.lbl_113_Interface_Control_Value) + Me.pnl_113_Interface_Control.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_113_Interface_Control.Location = New System.Drawing.Point(0, 280) + Me.pnl_113_Interface_Control.Name = "pnl_113_Interface_Control" + Me.pnl_113_Interface_Control.Size = New System.Drawing.Size(253, 28) + Me.pnl_113_Interface_Control.TabIndex = 23 + ' + 'lbl_113_Interface_Control + ' + Me.lbl_113_Interface_Control.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_113_Interface_Control.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_113_Interface_Control.Location = New System.Drawing.Point(2, 3) + Me.lbl_113_Interface_Control.MKBoundControl1 = Nothing + Me.lbl_113_Interface_Control.MKBoundControl2 = Nothing + Me.lbl_113_Interface_Control.MKBoundControl3 = Nothing + Me.lbl_113_Interface_Control.MKBoundControl4 = Nothing + Me.lbl_113_Interface_Control.MKBoundControl5 = Nothing + Me.lbl_113_Interface_Control.Name = "lbl_113_Interface_Control" + Me.lbl_113_Interface_Control.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem57.Text = "Interface / Control" + ToolTipItem57.LeftIndent = 6 + ToolTipItem57.Text = "Interface/Control of the game (e.g. Direct Control, Motion Control, Point and Sel" & + "ect, Text Parser etc.)" + SuperToolTip57.Items.Add(ToolTipTitleItem57) + SuperToolTip57.Items.Add(ToolTipItem57) + Me.lbl_113_Interface_Control.SuperTip = SuperToolTip57 + Me.lbl_113_Interface_Control.TabIndex = 0 + Me.lbl_113_Interface_Control.Text = "Interface / Control:" + ' + 'sld_113_Interface_Control + ' + Me.sld_113_Interface_Control.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_113_Interface_Control.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_113_Interface_Control", True)) + Me.sld_113_Interface_Control.EditValue = Nothing + Me.sld_113_Interface_Control.Location = New System.Drawing.Point(129, 2) + Me.sld_113_Interface_Control.Name = "sld_113_Interface_Control" + Me.sld_113_Interface_Control.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_113_Interface_Control.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel199.Label = "0" + TrackBarLabel200.Label = "1" + TrackBarLabel200.Value = 1 + TrackBarLabel201.Label = "2" + TrackBarLabel201.Value = 2 + TrackBarLabel202.Label = "3" + TrackBarLabel202.Value = 3 + TrackBarLabel203.Label = "4" + TrackBarLabel203.Value = 4 + TrackBarLabel204.Label = "5" + TrackBarLabel204.Value = 5 + TrackBarLabel205.Label = "6" + TrackBarLabel205.Value = 6 + TrackBarLabel206.Label = "7" + TrackBarLabel206.Value = 7 + TrackBarLabel207.Label = "8" + TrackBarLabel207.Value = 8 + TrackBarLabel208.Label = "9" + TrackBarLabel208.Value = 9 + TrackBarLabel209.Label = "10" + TrackBarLabel209.Value = 10 + Me.sld_113_Interface_Control.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel199, TrackBarLabel200, TrackBarLabel201, TrackBarLabel202, TrackBarLabel203, TrackBarLabel204, TrackBarLabel205, TrackBarLabel206, TrackBarLabel207, TrackBarLabel208, TrackBarLabel209}) + Me.sld_113_Interface_Control.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_113_Interface_Control.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem58.Text = "Interface / Control" + ToolTipItem58.LeftIndent = 6 + ToolTipItem58.Text = "Interface/Control of the game (e.g. Direct Control, Motion Control, Point and Sel" & + "ect, Text Parser etc.)" + SuperToolTip58.Items.Add(ToolTipTitleItem58) + SuperToolTip58.Items.Add(ToolTipItem58) + Me.sld_113_Interface_Control.SuperTip = SuperToolTip58 + Me.sld_113_Interface_Control.TabIndex = 11 + ' + 'lbl_113_Interface_Control_Value + ' + Me.lbl_113_Interface_Control_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_113_Interface_Control_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_113_Interface_Control_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_113_Interface_Control_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_113_Interface_Control", True)) + Me.lbl_113_Interface_Control_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_113_Interface_Control_Value.MKBoundControl1 = Nothing + Me.lbl_113_Interface_Control_Value.MKBoundControl2 = Nothing + Me.lbl_113_Interface_Control_Value.MKBoundControl3 = Nothing + Me.lbl_113_Interface_Control_Value.MKBoundControl4 = Nothing + Me.lbl_113_Interface_Control_Value.MKBoundControl5 = Nothing + Me.lbl_113_Interface_Control_Value.Name = "lbl_113_Interface_Control_Value" + Me.lbl_113_Interface_Control_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem59.Text = "Interface / Control" + ToolTipItem59.LeftIndent = 6 + ToolTipItem59.Text = "Interface/Control of the game (e.g. Direct Control, Motion Control, Point and Sel" & + "ect, Text Parser etc.)" + SuperToolTip59.Items.Add(ToolTipTitleItem59) + SuperToolTip59.Items.Add(ToolTipItem59) + Me.lbl_113_Interface_Control_Value.SuperTip = SuperToolTip59 + Me.lbl_113_Interface_Control_Value.TabIndex = 2 + Me.lbl_113_Interface_Control_Value.Text = "0" + ' + 'pnl_105_Educational_Categories + ' + Me.pnl_105_Educational_Categories.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_105_Educational_Categories.Controls.Add(Me.lbl_105_Educational_Categories) + Me.pnl_105_Educational_Categories.Controls.Add(Me.sld_105_Educational_Categories) + Me.pnl_105_Educational_Categories.Controls.Add(Me.lbl_105_Educational_Categories_Value) + Me.pnl_105_Educational_Categories.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_105_Educational_Categories.Location = New System.Drawing.Point(0, 252) + Me.pnl_105_Educational_Categories.Name = "pnl_105_Educational_Categories" + Me.pnl_105_Educational_Categories.Size = New System.Drawing.Size(253, 28) + Me.pnl_105_Educational_Categories.TabIndex = 22 + ' + 'lbl_105_Educational_Categories + ' + Me.lbl_105_Educational_Categories.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_105_Educational_Categories.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_105_Educational_Categories.Location = New System.Drawing.Point(2, 3) + Me.lbl_105_Educational_Categories.MKBoundControl1 = Nothing + Me.lbl_105_Educational_Categories.MKBoundControl2 = Nothing + Me.lbl_105_Educational_Categories.MKBoundControl3 = Nothing + Me.lbl_105_Educational_Categories.MKBoundControl4 = Nothing + Me.lbl_105_Educational_Categories.MKBoundControl5 = Nothing + Me.lbl_105_Educational_Categories.Name = "lbl_105_Educational_Categories" + Me.lbl_105_Educational_Categories.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem60.Text = "Educational Categories" + ToolTipItem60.LeftIndent = 6 + ToolTipItem60.Text = "Educational categories of the game (e.g. Foreign Language, History, Math / Logic," & + " Typing etc.)" + SuperToolTip60.Items.Add(ToolTipTitleItem60) + SuperToolTip60.Items.Add(ToolTipItem60) + Me.lbl_105_Educational_Categories.SuperTip = SuperToolTip60 + Me.lbl_105_Educational_Categories.TabIndex = 0 + Me.lbl_105_Educational_Categories.Text = "Educational Categories:" + ' + 'sld_105_Educational_Categories + ' + Me.sld_105_Educational_Categories.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_105_Educational_Categories.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_105_Educational_Categories", True)) + Me.sld_105_Educational_Categories.EditValue = Nothing + Me.sld_105_Educational_Categories.Location = New System.Drawing.Point(129, 2) + Me.sld_105_Educational_Categories.Name = "sld_105_Educational_Categories" + Me.sld_105_Educational_Categories.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_105_Educational_Categories.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel210.Label = "0" + TrackBarLabel211.Label = "1" + TrackBarLabel211.Value = 1 + TrackBarLabel212.Label = "2" + TrackBarLabel212.Value = 2 + TrackBarLabel213.Label = "3" + TrackBarLabel213.Value = 3 + TrackBarLabel214.Label = "4" + TrackBarLabel214.Value = 4 + TrackBarLabel215.Label = "5" + TrackBarLabel215.Value = 5 + TrackBarLabel216.Label = "6" + TrackBarLabel216.Value = 6 + TrackBarLabel217.Label = "7" + TrackBarLabel217.Value = 7 + TrackBarLabel218.Label = "8" + TrackBarLabel218.Value = 8 + TrackBarLabel219.Label = "9" + TrackBarLabel219.Value = 9 + TrackBarLabel220.Label = "10" + TrackBarLabel220.Value = 10 + Me.sld_105_Educational_Categories.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel210, TrackBarLabel211, TrackBarLabel212, TrackBarLabel213, TrackBarLabel214, TrackBarLabel215, TrackBarLabel216, TrackBarLabel217, TrackBarLabel218, TrackBarLabel219, TrackBarLabel220}) + Me.sld_105_Educational_Categories.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_105_Educational_Categories.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem61.Text = "Educational Categories" + ToolTipItem61.LeftIndent = 6 + ToolTipItem61.Text = "Educational categories of the game (e.g. Foreign Language, History, Math / Logic," & + " Typing etc.)" + SuperToolTip61.Items.Add(ToolTipTitleItem61) + SuperToolTip61.Items.Add(ToolTipItem61) + Me.sld_105_Educational_Categories.SuperTip = SuperToolTip61 + Me.sld_105_Educational_Categories.TabIndex = 11 + ' + 'lbl_105_Educational_Categories_Value + ' + Me.lbl_105_Educational_Categories_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_105_Educational_Categories_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_105_Educational_Categories_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_105_Educational_Categories_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_105_Educational_Categories", True)) + Me.lbl_105_Educational_Categories_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_105_Educational_Categories_Value.MKBoundControl1 = Nothing + Me.lbl_105_Educational_Categories_Value.MKBoundControl2 = Nothing + Me.lbl_105_Educational_Categories_Value.MKBoundControl3 = Nothing + Me.lbl_105_Educational_Categories_Value.MKBoundControl4 = Nothing + Me.lbl_105_Educational_Categories_Value.MKBoundControl5 = Nothing + Me.lbl_105_Educational_Categories_Value.Name = "lbl_105_Educational_Categories_Value" + Me.lbl_105_Educational_Categories_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem62.Text = "Educational Categories" + ToolTipItem62.LeftIndent = 6 + ToolTipItem62.Text = "Educational categories of the game (e.g. Foreign Language, History, Math / Logic," & + " Typing etc.)" + SuperToolTip62.Items.Add(ToolTipTitleItem62) + SuperToolTip62.Items.Add(ToolTipItem62) + Me.lbl_105_Educational_Categories_Value.SuperTip = SuperToolTip62 + Me.lbl_105_Educational_Categories_Value.TabIndex = 2 + Me.lbl_105_Educational_Categories_Value.Text = "0" + ' + 'pnl_112_Vehicular_Themes + ' + Me.pnl_112_Vehicular_Themes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_112_Vehicular_Themes.Controls.Add(Me.lbl_112_Vehicular_Themes) + Me.pnl_112_Vehicular_Themes.Controls.Add(Me.sld_112_Vehicular_Themes) + Me.pnl_112_Vehicular_Themes.Controls.Add(Me.lbl_112_Vehicular_Themes_Value) + Me.pnl_112_Vehicular_Themes.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_112_Vehicular_Themes.Location = New System.Drawing.Point(0, 224) + Me.pnl_112_Vehicular_Themes.Name = "pnl_112_Vehicular_Themes" + Me.pnl_112_Vehicular_Themes.Size = New System.Drawing.Size(253, 28) + Me.pnl_112_Vehicular_Themes.TabIndex = 21 + ' + 'lbl_112_Vehicular_Themes + ' + Me.lbl_112_Vehicular_Themes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_112_Vehicular_Themes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_112_Vehicular_Themes.Location = New System.Drawing.Point(2, 3) + Me.lbl_112_Vehicular_Themes.MKBoundControl1 = Nothing + Me.lbl_112_Vehicular_Themes.MKBoundControl2 = Nothing + Me.lbl_112_Vehicular_Themes.MKBoundControl3 = Nothing + Me.lbl_112_Vehicular_Themes.MKBoundControl4 = Nothing + Me.lbl_112_Vehicular_Themes.MKBoundControl5 = Nothing + Me.lbl_112_Vehicular_Themes.Name = "lbl_112_Vehicular_Themes" + Me.lbl_112_Vehicular_Themes.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem63.Text = "Vehicular Themes" + ToolTipItem63.LeftIndent = 6 + ToolTipItem63.Text = "Vehicular themes of the game (e.g. Automobile, Bike / Bicycling, Flight / Aviatio" & + "n etc.)" + SuperToolTip63.Items.Add(ToolTipTitleItem63) + SuperToolTip63.Items.Add(ToolTipItem63) + Me.lbl_112_Vehicular_Themes.SuperTip = SuperToolTip63 + Me.lbl_112_Vehicular_Themes.TabIndex = 0 + Me.lbl_112_Vehicular_Themes.Text = "Vehicular Themes:" + ' + 'sld_112_Vehicular_Themes + ' + Me.sld_112_Vehicular_Themes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_112_Vehicular_Themes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_112_Vehicular_Themes", True)) + Me.sld_112_Vehicular_Themes.EditValue = Nothing + Me.sld_112_Vehicular_Themes.Location = New System.Drawing.Point(129, 2) + Me.sld_112_Vehicular_Themes.Name = "sld_112_Vehicular_Themes" + Me.sld_112_Vehicular_Themes.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_112_Vehicular_Themes.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel221.Label = "0" + TrackBarLabel222.Label = "1" + TrackBarLabel222.Value = 1 + TrackBarLabel223.Label = "2" + TrackBarLabel223.Value = 2 + TrackBarLabel224.Label = "3" + TrackBarLabel224.Value = 3 + TrackBarLabel225.Label = "4" + TrackBarLabel225.Value = 4 + TrackBarLabel226.Label = "5" + TrackBarLabel226.Value = 5 + TrackBarLabel227.Label = "6" + TrackBarLabel227.Value = 6 + TrackBarLabel228.Label = "7" + TrackBarLabel228.Value = 7 + TrackBarLabel229.Label = "8" + TrackBarLabel229.Value = 8 + TrackBarLabel230.Label = "9" + TrackBarLabel230.Value = 9 + TrackBarLabel231.Label = "10" + TrackBarLabel231.Value = 10 + Me.sld_112_Vehicular_Themes.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel221, TrackBarLabel222, TrackBarLabel223, TrackBarLabel224, TrackBarLabel225, TrackBarLabel226, TrackBarLabel227, TrackBarLabel228, TrackBarLabel229, TrackBarLabel230, TrackBarLabel231}) + Me.sld_112_Vehicular_Themes.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_112_Vehicular_Themes.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem64.Text = "Vehicular Themes" + ToolTipItem64.LeftIndent = 6 + ToolTipItem64.Text = "Vehicular themes of the game (e.g. Automobile, Bike / Bicycling, Flight / Aviatio" & + "n etc.)" + SuperToolTip64.Items.Add(ToolTipTitleItem64) + SuperToolTip64.Items.Add(ToolTipItem64) + Me.sld_112_Vehicular_Themes.SuperTip = SuperToolTip64 + Me.sld_112_Vehicular_Themes.TabIndex = 10 + ' + 'lbl_112_Vehicular_Themes_Value + ' + Me.lbl_112_Vehicular_Themes_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_112_Vehicular_Themes_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_112_Vehicular_Themes_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_112_Vehicular_Themes_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_112_Vehicular_Themes", True)) + Me.lbl_112_Vehicular_Themes_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_112_Vehicular_Themes_Value.MKBoundControl1 = Nothing + Me.lbl_112_Vehicular_Themes_Value.MKBoundControl2 = Nothing + Me.lbl_112_Vehicular_Themes_Value.MKBoundControl3 = Nothing + Me.lbl_112_Vehicular_Themes_Value.MKBoundControl4 = Nothing + Me.lbl_112_Vehicular_Themes_Value.MKBoundControl5 = Nothing + Me.lbl_112_Vehicular_Themes_Value.Name = "lbl_112_Vehicular_Themes_Value" + Me.lbl_112_Vehicular_Themes_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem65.Text = "Vehicular Themes" + ToolTipItem65.LeftIndent = 6 + ToolTipItem65.Text = "Vehicular themes of the game (e.g. Automobile, Bike / Bicycling, Flight / Aviatio" & + "n etc.)" + SuperToolTip65.Items.Add(ToolTipTitleItem65) + SuperToolTip65.Items.Add(ToolTipItem65) + Me.lbl_112_Vehicular_Themes_Value.SuperTip = SuperToolTip65 + Me.lbl_112_Vehicular_Themes_Value.TabIndex = 2 + Me.lbl_112_Vehicular_Themes_Value.Text = "0" + ' + 'pnl_Sports_Themes + ' + Me.pnl_Sports_Themes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Sports_Themes.Controls.Add(Me.lbl_103_Sports_Themes) + Me.pnl_Sports_Themes.Controls.Add(Me.sld_103_Sports_Themes) + Me.pnl_Sports_Themes.Controls.Add(Me.lbl_103_Sports_Themes_Value) + Me.pnl_Sports_Themes.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Sports_Themes.Location = New System.Drawing.Point(0, 196) + Me.pnl_Sports_Themes.Name = "pnl_Sports_Themes" + Me.pnl_Sports_Themes.Size = New System.Drawing.Size(253, 28) + Me.pnl_Sports_Themes.TabIndex = 20 + ' + 'lbl_103_Sports_Themes + ' + Me.lbl_103_Sports_Themes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_103_Sports_Themes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_103_Sports_Themes.Location = New System.Drawing.Point(2, 3) + Me.lbl_103_Sports_Themes.MKBoundControl1 = Nothing + Me.lbl_103_Sports_Themes.MKBoundControl2 = Nothing + Me.lbl_103_Sports_Themes.MKBoundControl3 = Nothing + Me.lbl_103_Sports_Themes.MKBoundControl4 = Nothing + Me.lbl_103_Sports_Themes.MKBoundControl5 = Nothing + Me.lbl_103_Sports_Themes.Name = "lbl_103_Sports_Themes" + Me.lbl_103_Sports_Themes.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem66.Text = "Sports Themes" + ToolTipItem66.LeftIndent = 6 + ToolTipItem66.Text = "Sports themes of the game (e.g. Basketball, Football (European) / Soccer, Golf et" & + "c.)" + SuperToolTip66.Items.Add(ToolTipTitleItem66) + SuperToolTip66.Items.Add(ToolTipItem66) + Me.lbl_103_Sports_Themes.SuperTip = SuperToolTip66 + Me.lbl_103_Sports_Themes.TabIndex = 0 + Me.lbl_103_Sports_Themes.Text = "Sports Themes:" + ' + 'sld_103_Sports_Themes + ' + Me.sld_103_Sports_Themes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_103_Sports_Themes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_103_Sports_Themes", True)) + Me.sld_103_Sports_Themes.EditValue = Nothing + Me.sld_103_Sports_Themes.Location = New System.Drawing.Point(129, 2) + Me.sld_103_Sports_Themes.Name = "sld_103_Sports_Themes" + Me.sld_103_Sports_Themes.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_103_Sports_Themes.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel232.Label = "0" + TrackBarLabel233.Label = "1" + TrackBarLabel233.Value = 1 + TrackBarLabel234.Label = "2" + TrackBarLabel234.Value = 2 + TrackBarLabel235.Label = "3" + TrackBarLabel235.Value = 3 + TrackBarLabel236.Label = "4" + TrackBarLabel236.Value = 4 + TrackBarLabel237.Label = "5" + TrackBarLabel237.Value = 5 + TrackBarLabel238.Label = "6" + TrackBarLabel238.Value = 6 + TrackBarLabel239.Label = "7" + TrackBarLabel239.Value = 7 + TrackBarLabel240.Label = "8" + TrackBarLabel240.Value = 8 + TrackBarLabel241.Label = "9" + TrackBarLabel241.Value = 9 + TrackBarLabel242.Label = "10" + TrackBarLabel242.Value = 10 + Me.sld_103_Sports_Themes.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel232, TrackBarLabel233, TrackBarLabel234, TrackBarLabel235, TrackBarLabel236, TrackBarLabel237, TrackBarLabel238, TrackBarLabel239, TrackBarLabel240, TrackBarLabel241, TrackBarLabel242}) + Me.sld_103_Sports_Themes.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_103_Sports_Themes.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem67.Text = "Sports Themes" + ToolTipItem67.LeftIndent = 6 + ToolTipItem67.Text = "Sports themes of the game (e.g. Basketball, Football (European) / Soccer, Golf et" & + "c.)" + SuperToolTip67.Items.Add(ToolTipTitleItem67) + SuperToolTip67.Items.Add(ToolTipItem67) + Me.sld_103_Sports_Themes.SuperTip = SuperToolTip67 + Me.sld_103_Sports_Themes.TabIndex = 10 + ' + 'lbl_103_Sports_Themes_Value + ' + Me.lbl_103_Sports_Themes_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_103_Sports_Themes_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_103_Sports_Themes_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_103_Sports_Themes_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_103_Sports_Themes", True)) + Me.lbl_103_Sports_Themes_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_103_Sports_Themes_Value.MKBoundControl1 = Nothing + Me.lbl_103_Sports_Themes_Value.MKBoundControl2 = Nothing + Me.lbl_103_Sports_Themes_Value.MKBoundControl3 = Nothing + Me.lbl_103_Sports_Themes_Value.MKBoundControl4 = Nothing + Me.lbl_103_Sports_Themes_Value.MKBoundControl5 = Nothing + Me.lbl_103_Sports_Themes_Value.Name = "lbl_103_Sports_Themes_Value" + Me.lbl_103_Sports_Themes_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem68.Text = "Sports Themes" + ToolTipItem68.LeftIndent = 6 + ToolTipItem68.Text = "Sports themes of the game (e.g. Basketball, Football (European) / Soccer, Golf et" & + "c.)" + SuperToolTip68.Items.Add(ToolTipTitleItem68) + SuperToolTip68.Items.Add(ToolTipItem68) + Me.lbl_103_Sports_Themes_Value.SuperTip = SuperToolTip68 + Me.lbl_103_Sports_Themes_Value.TabIndex = 2 + Me.lbl_103_Sports_Themes_Value.Text = "0" + ' + 'pnl_111_Setting + ' + Me.pnl_111_Setting.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_111_Setting.Controls.Add(Me.lbl_111_Setting) + Me.pnl_111_Setting.Controls.Add(Me.lbl_111_Setting_Value) + Me.pnl_111_Setting.Controls.Add(Me.sld_111_Setting) + Me.pnl_111_Setting.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_111_Setting.Location = New System.Drawing.Point(0, 168) + Me.pnl_111_Setting.Name = "pnl_111_Setting" + Me.pnl_111_Setting.Size = New System.Drawing.Size(253, 28) + Me.pnl_111_Setting.TabIndex = 19 + ' + 'lbl_111_Setting + ' + Me.lbl_111_Setting.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_111_Setting.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_111_Setting.Location = New System.Drawing.Point(2, 3) + Me.lbl_111_Setting.MKBoundControl1 = Nothing + Me.lbl_111_Setting.MKBoundControl2 = Nothing + Me.lbl_111_Setting.MKBoundControl3 = Nothing + Me.lbl_111_Setting.MKBoundControl4 = Nothing + Me.lbl_111_Setting.MKBoundControl5 = Nothing + Me.lbl_111_Setting.Name = "lbl_111_Setting" + Me.lbl_111_Setting.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem69.Text = "Setting" + ToolTipItem69.LeftIndent = 6 + ToolTipItem69.Text = "Geographical/epochal setting of the game (e.g. Cyberpunk / Dark Sci-Fi, Industria" & + "l Age, Japan, Europe etc.)" + SuperToolTip69.Items.Add(ToolTipTitleItem69) + SuperToolTip69.Items.Add(ToolTipItem69) + Me.lbl_111_Setting.SuperTip = SuperToolTip69 + Me.lbl_111_Setting.TabIndex = 9 + Me.lbl_111_Setting.Text = "Setting:" + ' + 'lbl_111_Setting_Value + ' + Me.lbl_111_Setting_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_111_Setting_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_111_Setting_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_111_Setting_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_111_Setting", True)) + Me.lbl_111_Setting_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_111_Setting_Value.MKBoundControl1 = Nothing + Me.lbl_111_Setting_Value.MKBoundControl2 = Nothing + Me.lbl_111_Setting_Value.MKBoundControl3 = Nothing + Me.lbl_111_Setting_Value.MKBoundControl4 = Nothing + Me.lbl_111_Setting_Value.MKBoundControl5 = Nothing + Me.lbl_111_Setting_Value.Name = "lbl_111_Setting_Value" + Me.lbl_111_Setting_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem70.Text = "Setting" + ToolTipItem70.LeftIndent = 6 + ToolTipItem70.Text = "Geographical/epochal setting of the game (e.g. Cyberpunk / Dark Sci-Fi, Industria" & + "l Age, Japan, Europe etc.)" + SuperToolTip70.Items.Add(ToolTipTitleItem70) + SuperToolTip70.Items.Add(ToolTipItem70) + Me.lbl_111_Setting_Value.SuperTip = SuperToolTip70 + Me.lbl_111_Setting_Value.TabIndex = 10 + Me.lbl_111_Setting_Value.Text = "0" + ' + 'sld_111_Setting + ' + Me.sld_111_Setting.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_111_Setting.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_111_Setting", True)) + Me.sld_111_Setting.EditValue = Nothing + Me.sld_111_Setting.Location = New System.Drawing.Point(129, 2) + Me.sld_111_Setting.Name = "sld_111_Setting" + Me.sld_111_Setting.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_111_Setting.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel243.Label = "0" + TrackBarLabel244.Label = "1" + TrackBarLabel244.Value = 1 + TrackBarLabel245.Label = "2" + TrackBarLabel245.Value = 2 + TrackBarLabel246.Label = "3" + TrackBarLabel246.Value = 3 + TrackBarLabel247.Label = "4" + TrackBarLabel247.Value = 4 + TrackBarLabel248.Label = "5" + TrackBarLabel248.Value = 5 + TrackBarLabel249.Label = "6" + TrackBarLabel249.Value = 6 + TrackBarLabel250.Label = "7" + TrackBarLabel250.Value = 7 + TrackBarLabel251.Label = "8" + TrackBarLabel251.Value = 8 + TrackBarLabel252.Label = "9" + TrackBarLabel252.Value = 9 + TrackBarLabel253.Label = "10" + TrackBarLabel253.Value = 10 + Me.sld_111_Setting.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel243, TrackBarLabel244, TrackBarLabel245, TrackBarLabel246, TrackBarLabel247, TrackBarLabel248, TrackBarLabel249, TrackBarLabel250, TrackBarLabel251, TrackBarLabel252, TrackBarLabel253}) + Me.sld_111_Setting.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_111_Setting.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem71.Text = "Setting" + ToolTipItem71.LeftIndent = 6 + ToolTipItem71.Text = "Geographical/epochal setting of the game (e.g. Cyberpunk / Dark Sci-Fi, Industria" & + "l Age, Japan, Europe etc.)" + SuperToolTip71.Items.Add(ToolTipTitleItem71) + SuperToolTip71.Items.Add(ToolTipItem71) + Me.sld_111_Setting.SuperTip = SuperToolTip71 + Me.sld_111_Setting.TabIndex = 11 + ' + 'pnl_110_Narrative_Theme_Topic + ' + Me.pnl_110_Narrative_Theme_Topic.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_110_Narrative_Theme_Topic.Controls.Add(Me.lbl_110_Narrative_Theme_Topic) + Me.pnl_110_Narrative_Theme_Topic.Controls.Add(Me.lbl_110_Narrative_Theme_Topic_Value) + Me.pnl_110_Narrative_Theme_Topic.Controls.Add(Me.sld_110_Narrative_Theme_Topic) + Me.pnl_110_Narrative_Theme_Topic.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_110_Narrative_Theme_Topic.Location = New System.Drawing.Point(0, 140) + Me.pnl_110_Narrative_Theme_Topic.Name = "pnl_110_Narrative_Theme_Topic" + Me.pnl_110_Narrative_Theme_Topic.Size = New System.Drawing.Size(253, 28) + Me.pnl_110_Narrative_Theme_Topic.TabIndex = 18 + ' + 'lbl_110_Narrative_Theme_Topic + ' + Me.lbl_110_Narrative_Theme_Topic.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_110_Narrative_Theme_Topic.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_110_Narrative_Theme_Topic.Location = New System.Drawing.Point(2, 3) + Me.lbl_110_Narrative_Theme_Topic.MKBoundControl1 = Nothing + Me.lbl_110_Narrative_Theme_Topic.MKBoundControl2 = Nothing + Me.lbl_110_Narrative_Theme_Topic.MKBoundControl3 = Nothing + Me.lbl_110_Narrative_Theme_Topic.MKBoundControl4 = Nothing + Me.lbl_110_Narrative_Theme_Topic.MKBoundControl5 = Nothing + Me.lbl_110_Narrative_Theme_Topic.Name = "lbl_110_Narrative_Theme_Topic" + Me.lbl_110_Narrative_Theme_Topic.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem72.Text = "Narrative Theme / Topic" + ToolTipItem72.LeftIndent = 6 + ToolTipItem72.Text = "Narrative theme / topic of the game (e.g. Comedy, Crime, Horror, Survival etc.)" + SuperToolTip72.Items.Add(ToolTipTitleItem72) + SuperToolTip72.Items.Add(ToolTipItem72) + Me.lbl_110_Narrative_Theme_Topic.SuperTip = SuperToolTip72 + Me.lbl_110_Narrative_Theme_Topic.TabIndex = 9 + Me.lbl_110_Narrative_Theme_Topic.Text = "Narrative Theme / Topic:" + ' + 'lbl_110_Narrative_Theme_Topic_Value + ' + Me.lbl_110_Narrative_Theme_Topic_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_110_Narrative_Theme_Topic_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_110_Narrative_Theme_Topic_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_110_Narrative_Theme_Topic_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_110_Narrative_Theme_Topic", True)) + Me.lbl_110_Narrative_Theme_Topic_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_110_Narrative_Theme_Topic_Value.MKBoundControl1 = Nothing + Me.lbl_110_Narrative_Theme_Topic_Value.MKBoundControl2 = Nothing + Me.lbl_110_Narrative_Theme_Topic_Value.MKBoundControl3 = Nothing + Me.lbl_110_Narrative_Theme_Topic_Value.MKBoundControl4 = Nothing + Me.lbl_110_Narrative_Theme_Topic_Value.MKBoundControl5 = Nothing + Me.lbl_110_Narrative_Theme_Topic_Value.Name = "lbl_110_Narrative_Theme_Topic_Value" + Me.lbl_110_Narrative_Theme_Topic_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem73.Text = "Narrative Theme / Topic" + ToolTipItem73.LeftIndent = 6 + ToolTipItem73.Text = "Narrative theme / topic of the game (e.g. Comedy, Crime, Horror, Survival etc.)" + SuperToolTip73.Items.Add(ToolTipTitleItem73) + SuperToolTip73.Items.Add(ToolTipItem73) + Me.lbl_110_Narrative_Theme_Topic_Value.SuperTip = SuperToolTip73 + Me.lbl_110_Narrative_Theme_Topic_Value.TabIndex = 10 + Me.lbl_110_Narrative_Theme_Topic_Value.Text = "0" + ' + 'sld_110_Narrative_Theme_Topic + ' + Me.sld_110_Narrative_Theme_Topic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_110_Narrative_Theme_Topic.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_110_Narrative_Theme_Topic", True)) + Me.sld_110_Narrative_Theme_Topic.EditValue = Nothing + Me.sld_110_Narrative_Theme_Topic.Location = New System.Drawing.Point(129, 2) + Me.sld_110_Narrative_Theme_Topic.Name = "sld_110_Narrative_Theme_Topic" + Me.sld_110_Narrative_Theme_Topic.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_110_Narrative_Theme_Topic.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel254.Label = "0" + TrackBarLabel255.Label = "1" + TrackBarLabel255.Value = 1 + TrackBarLabel256.Label = "2" + TrackBarLabel256.Value = 2 + TrackBarLabel257.Label = "3" + TrackBarLabel257.Value = 3 + TrackBarLabel258.Label = "4" + TrackBarLabel258.Value = 4 + TrackBarLabel259.Label = "5" + TrackBarLabel259.Value = 5 + TrackBarLabel260.Label = "6" + TrackBarLabel260.Value = 6 + TrackBarLabel261.Label = "7" + TrackBarLabel261.Value = 7 + TrackBarLabel262.Label = "8" + TrackBarLabel262.Value = 8 + TrackBarLabel263.Label = "9" + TrackBarLabel263.Value = 9 + TrackBarLabel264.Label = "10" + TrackBarLabel264.Value = 10 + Me.sld_110_Narrative_Theme_Topic.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel254, TrackBarLabel255, TrackBarLabel256, TrackBarLabel257, TrackBarLabel258, TrackBarLabel259, TrackBarLabel260, TrackBarLabel261, TrackBarLabel262, TrackBarLabel263, TrackBarLabel264}) + Me.sld_110_Narrative_Theme_Topic.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_110_Narrative_Theme_Topic.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem74.Text = "Narrative Theme / Topic" + ToolTipItem74.LeftIndent = 6 + ToolTipItem74.Text = "Narrative theme / topic of the game (e.g. Comedy, Crime, Horror, Survival etc.)" + SuperToolTip74.Items.Add(ToolTipTitleItem74) + SuperToolTip74.Items.Add(ToolTipItem74) + Me.sld_110_Narrative_Theme_Topic.SuperTip = SuperToolTip74 + Me.sld_110_Narrative_Theme_Topic.TabIndex = 11 + ' + 'pnl_109_Pacing + ' + Me.pnl_109_Pacing.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_109_Pacing.Controls.Add(Me.lbl_109_Pacing) + Me.pnl_109_Pacing.Controls.Add(Me.lbl_109_Pacing_Value) + Me.pnl_109_Pacing.Controls.Add(Me.sld_109_Pacing) + Me.pnl_109_Pacing.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_109_Pacing.Location = New System.Drawing.Point(0, 112) + Me.pnl_109_Pacing.Name = "pnl_109_Pacing" + Me.pnl_109_Pacing.Size = New System.Drawing.Size(253, 28) + Me.pnl_109_Pacing.TabIndex = 17 + ' + 'lbl_109_Pacing + ' + Me.lbl_109_Pacing.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_109_Pacing.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_109_Pacing.Location = New System.Drawing.Point(2, 3) + Me.lbl_109_Pacing.MKBoundControl1 = Nothing + Me.lbl_109_Pacing.MKBoundControl2 = Nothing + Me.lbl_109_Pacing.MKBoundControl3 = Nothing + Me.lbl_109_Pacing.MKBoundControl4 = Nothing + Me.lbl_109_Pacing.MKBoundControl5 = Nothing + Me.lbl_109_Pacing.Name = "lbl_109_Pacing" + Me.lbl_109_Pacing.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem75.Text = "Pacing" + ToolTipItem75.LeftIndent = 6 + ToolTipItem75.Text = "Pacing of the game (e.g. Persistent, Real-Time, Turn-based etc.)" + SuperToolTip75.Items.Add(ToolTipTitleItem75) + SuperToolTip75.Items.Add(ToolTipItem75) + Me.lbl_109_Pacing.SuperTip = SuperToolTip75 + Me.lbl_109_Pacing.TabIndex = 9 + Me.lbl_109_Pacing.Text = "Pacing:" + ' + 'lbl_109_Pacing_Value + ' + Me.lbl_109_Pacing_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_109_Pacing_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_109_Pacing_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_109_Pacing_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_109_Pacing", True)) + Me.lbl_109_Pacing_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_109_Pacing_Value.MKBoundControl1 = Nothing + Me.lbl_109_Pacing_Value.MKBoundControl2 = Nothing + Me.lbl_109_Pacing_Value.MKBoundControl3 = Nothing + Me.lbl_109_Pacing_Value.MKBoundControl4 = Nothing + Me.lbl_109_Pacing_Value.MKBoundControl5 = Nothing + Me.lbl_109_Pacing_Value.Name = "lbl_109_Pacing_Value" + Me.lbl_109_Pacing_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem76.Text = "Pacing" + ToolTipItem76.LeftIndent = 6 + ToolTipItem76.Text = "Pacing of the game (e.g. Persistent, Real-Time, Turn-based etc.)" + SuperToolTip76.Items.Add(ToolTipTitleItem76) + SuperToolTip76.Items.Add(ToolTipItem76) + Me.lbl_109_Pacing_Value.SuperTip = SuperToolTip76 + Me.lbl_109_Pacing_Value.TabIndex = 10 + Me.lbl_109_Pacing_Value.Text = "0" + ' + 'sld_109_Pacing + ' + Me.sld_109_Pacing.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_109_Pacing.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_109_Pacing", True)) + Me.sld_109_Pacing.EditValue = Nothing + Me.sld_109_Pacing.Location = New System.Drawing.Point(129, 2) + Me.sld_109_Pacing.Name = "sld_109_Pacing" + Me.sld_109_Pacing.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_109_Pacing.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel265.Label = "0" + TrackBarLabel266.Label = "1" + TrackBarLabel266.Value = 1 + TrackBarLabel267.Label = "2" + TrackBarLabel267.Value = 2 + TrackBarLabel268.Label = "3" + TrackBarLabel268.Value = 3 + TrackBarLabel269.Label = "4" + TrackBarLabel269.Value = 4 + TrackBarLabel270.Label = "5" + TrackBarLabel270.Value = 5 + TrackBarLabel271.Label = "6" + TrackBarLabel271.Value = 6 + TrackBarLabel272.Label = "7" + TrackBarLabel272.Value = 7 + TrackBarLabel273.Label = "8" + TrackBarLabel273.Value = 8 + TrackBarLabel274.Label = "9" + TrackBarLabel274.Value = 9 + TrackBarLabel275.Label = "10" + TrackBarLabel275.Value = 10 + Me.sld_109_Pacing.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel265, TrackBarLabel266, TrackBarLabel267, TrackBarLabel268, TrackBarLabel269, TrackBarLabel270, TrackBarLabel271, TrackBarLabel272, TrackBarLabel273, TrackBarLabel274, TrackBarLabel275}) + Me.sld_109_Pacing.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_109_Pacing.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem77.Text = "Pacing" + ToolTipItem77.LeftIndent = 6 + ToolTipItem77.Text = "Pacing of the game (e.g. Persistent, Real-Time, Turn-based etc.)" + SuperToolTip77.Items.Add(ToolTipTitleItem77) + SuperToolTip77.Items.Add(ToolTipItem77) + Me.sld_109_Pacing.SuperTip = SuperToolTip77 + Me.sld_109_Pacing.TabIndex = 11 + ' + 'pnl_108_Gameplay + ' + Me.pnl_108_Gameplay.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_108_Gameplay.Controls.Add(Me.lbl_108_Gameplay) + Me.pnl_108_Gameplay.Controls.Add(Me.lbl_108_Gameplay_Value) + Me.pnl_108_Gameplay.Controls.Add(Me.sld_108_Gameplay) + Me.pnl_108_Gameplay.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_108_Gameplay.Location = New System.Drawing.Point(0, 84) + Me.pnl_108_Gameplay.Name = "pnl_108_Gameplay" + Me.pnl_108_Gameplay.Size = New System.Drawing.Size(253, 28) + Me.pnl_108_Gameplay.TabIndex = 14 + ' + 'lbl_108_Gameplay + ' + Me.lbl_108_Gameplay.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_108_Gameplay.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_108_Gameplay.Location = New System.Drawing.Point(2, 3) + Me.lbl_108_Gameplay.MKBoundControl1 = Nothing + Me.lbl_108_Gameplay.MKBoundControl2 = Nothing + Me.lbl_108_Gameplay.MKBoundControl3 = Nothing + Me.lbl_108_Gameplay.MKBoundControl4 = Nothing + Me.lbl_108_Gameplay.MKBoundControl5 = Nothing + Me.lbl_108_Gameplay.Name = "lbl_108_Gameplay" + Me.lbl_108_Gameplay.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem78.Text = "Gameplay" + ToolTipItem78.LeftIndent = 6 + ToolTipItem78.Text = "Gameplay of the game (e.g. Action RPG, Arcade, Beat 'em up / Brawler, Fighting, G" & + "raphic Adventure etc.)" + SuperToolTip78.Items.Add(ToolTipTitleItem78) + SuperToolTip78.Items.Add(ToolTipItem78) + Me.lbl_108_Gameplay.SuperTip = SuperToolTip78 + Me.lbl_108_Gameplay.TabIndex = 9 + Me.lbl_108_Gameplay.Text = "Gameplay:" + ' + 'lbl_108_Gameplay_Value + ' + Me.lbl_108_Gameplay_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_108_Gameplay_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_108_Gameplay_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_108_Gameplay_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_108_Gameplay", True)) + Me.lbl_108_Gameplay_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_108_Gameplay_Value.MKBoundControl1 = Nothing + Me.lbl_108_Gameplay_Value.MKBoundControl2 = Nothing + Me.lbl_108_Gameplay_Value.MKBoundControl3 = Nothing + Me.lbl_108_Gameplay_Value.MKBoundControl4 = Nothing + Me.lbl_108_Gameplay_Value.MKBoundControl5 = Nothing + Me.lbl_108_Gameplay_Value.Name = "lbl_108_Gameplay_Value" + Me.lbl_108_Gameplay_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem79.Text = "Gameplay" + ToolTipItem79.LeftIndent = 6 + ToolTipItem79.Text = "Gameplay of the game (e.g. Action RPG, Arcade, Beat 'em up / Brawler, Fighting, G" & + "raphic Adventure etc.)" + SuperToolTip79.Items.Add(ToolTipTitleItem79) + SuperToolTip79.Items.Add(ToolTipItem79) + Me.lbl_108_Gameplay_Value.SuperTip = SuperToolTip79 + Me.lbl_108_Gameplay_Value.TabIndex = 10 + Me.lbl_108_Gameplay_Value.Text = "0" + ' + 'sld_108_Gameplay + ' + Me.sld_108_Gameplay.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_108_Gameplay.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_108_Gameplay", True)) + Me.sld_108_Gameplay.EditValue = Nothing + Me.sld_108_Gameplay.Location = New System.Drawing.Point(129, 2) + Me.sld_108_Gameplay.Name = "sld_108_Gameplay" + Me.sld_108_Gameplay.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_108_Gameplay.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel276.Label = "0" + TrackBarLabel277.Label = "1" + TrackBarLabel277.Value = 1 + TrackBarLabel278.Label = "2" + TrackBarLabel278.Value = 2 + TrackBarLabel279.Label = "3" + TrackBarLabel279.Value = 3 + TrackBarLabel280.Label = "4" + TrackBarLabel280.Value = 4 + TrackBarLabel281.Label = "5" + TrackBarLabel281.Value = 5 + TrackBarLabel282.Label = "6" + TrackBarLabel282.Value = 6 + TrackBarLabel283.Label = "7" + TrackBarLabel283.Value = 7 + TrackBarLabel284.Label = "8" + TrackBarLabel284.Value = 8 + TrackBarLabel285.Label = "9" + TrackBarLabel285.Value = 9 + TrackBarLabel286.Label = "10" + TrackBarLabel286.Value = 10 + Me.sld_108_Gameplay.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel276, TrackBarLabel277, TrackBarLabel278, TrackBarLabel279, TrackBarLabel280, TrackBarLabel281, TrackBarLabel282, TrackBarLabel283, TrackBarLabel284, TrackBarLabel285, TrackBarLabel286}) + Me.sld_108_Gameplay.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_108_Gameplay.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem80.Text = "Gameplay" + ToolTipItem80.LeftIndent = 6 + ToolTipItem80.Text = "Gameplay of the game (e.g. Action RPG, Arcade, Beat 'em up / Brawler, Fighting, G" & + "raphic Adventure etc.)" + SuperToolTip80.Items.Add(ToolTipTitleItem80) + SuperToolTip80.Items.Add(ToolTipItem80) + Me.sld_108_Gameplay.SuperTip = SuperToolTip80 + Me.sld_108_Gameplay.TabIndex = 11 + ' + 'pnl_107_Visual_Presentation + ' + Me.pnl_107_Visual_Presentation.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_107_Visual_Presentation.Controls.Add(Me.lbl_107_Visual_Presentation) + Me.pnl_107_Visual_Presentation.Controls.Add(Me.lbl_107_Visual_Presentation_Value) + Me.pnl_107_Visual_Presentation.Controls.Add(Me.sld_107_Visual_Presentation) + Me.pnl_107_Visual_Presentation.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_107_Visual_Presentation.Location = New System.Drawing.Point(0, 56) + Me.pnl_107_Visual_Presentation.Name = "pnl_107_Visual_Presentation" + Me.pnl_107_Visual_Presentation.Size = New System.Drawing.Size(253, 28) + Me.pnl_107_Visual_Presentation.TabIndex = 13 + ' + 'lbl_107_Visual_Presentation + ' + Me.lbl_107_Visual_Presentation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_107_Visual_Presentation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_107_Visual_Presentation.Location = New System.Drawing.Point(2, 3) + Me.lbl_107_Visual_Presentation.MKBoundControl1 = Nothing + Me.lbl_107_Visual_Presentation.MKBoundControl2 = Nothing + Me.lbl_107_Visual_Presentation.MKBoundControl3 = Nothing + Me.lbl_107_Visual_Presentation.MKBoundControl4 = Nothing + Me.lbl_107_Visual_Presentation.MKBoundControl5 = Nothing + Me.lbl_107_Visual_Presentation.Name = "lbl_107_Visual_Presentation" + Me.lbl_107_Visual_Presentation.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem81.Text = "Visual Presentation" + ToolTipItem81.LeftIndent = 6 + ToolTipItem81.Text = "Visual Presentation of the game (e.g. 2D scrolling, Fixed / Flip-screen, Isometri" & + "c etc.)" + SuperToolTip81.Items.Add(ToolTipTitleItem81) + SuperToolTip81.Items.Add(ToolTipItem81) + Me.lbl_107_Visual_Presentation.SuperTip = SuperToolTip81 + Me.lbl_107_Visual_Presentation.TabIndex = 9 + Me.lbl_107_Visual_Presentation.Text = "Visual Presentation:" + ' + 'lbl_107_Visual_Presentation_Value + ' + Me.lbl_107_Visual_Presentation_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_107_Visual_Presentation_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_107_Visual_Presentation_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_107_Visual_Presentation_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_107_Visual_Presentation", True)) + Me.lbl_107_Visual_Presentation_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_107_Visual_Presentation_Value.MKBoundControl1 = Nothing + Me.lbl_107_Visual_Presentation_Value.MKBoundControl2 = Nothing + Me.lbl_107_Visual_Presentation_Value.MKBoundControl3 = Nothing + Me.lbl_107_Visual_Presentation_Value.MKBoundControl4 = Nothing + Me.lbl_107_Visual_Presentation_Value.MKBoundControl5 = Nothing + Me.lbl_107_Visual_Presentation_Value.Name = "lbl_107_Visual_Presentation_Value" + Me.lbl_107_Visual_Presentation_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem82.Text = "Visual Presentation" + ToolTipItem82.LeftIndent = 6 + ToolTipItem82.Text = "Visual Presentation of the game (e.g. 2D scrolling, Fixed / Flip-screen, Isometri" & + "c etc.)" + SuperToolTip82.Items.Add(ToolTipTitleItem82) + SuperToolTip82.Items.Add(ToolTipItem82) + Me.lbl_107_Visual_Presentation_Value.SuperTip = SuperToolTip82 + Me.lbl_107_Visual_Presentation_Value.TabIndex = 10 + Me.lbl_107_Visual_Presentation_Value.Text = "0" + ' + 'sld_107_Visual_Presentation + ' + Me.sld_107_Visual_Presentation.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_107_Visual_Presentation.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_107_Visual_Presentation", True)) + Me.sld_107_Visual_Presentation.EditValue = Nothing + Me.sld_107_Visual_Presentation.Location = New System.Drawing.Point(129, 2) + Me.sld_107_Visual_Presentation.Name = "sld_107_Visual_Presentation" + Me.sld_107_Visual_Presentation.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_107_Visual_Presentation.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel287.Label = "0" + TrackBarLabel288.Label = "1" + TrackBarLabel288.Value = 1 + TrackBarLabel289.Label = "2" + TrackBarLabel289.Value = 2 + TrackBarLabel290.Label = "3" + TrackBarLabel290.Value = 3 + TrackBarLabel291.Label = "4" + TrackBarLabel291.Value = 4 + TrackBarLabel292.Label = "5" + TrackBarLabel292.Value = 5 + TrackBarLabel293.Label = "6" + TrackBarLabel293.Value = 6 + TrackBarLabel294.Label = "7" + TrackBarLabel294.Value = 7 + TrackBarLabel295.Label = "8" + TrackBarLabel295.Value = 8 + TrackBarLabel296.Label = "9" + TrackBarLabel296.Value = 9 + TrackBarLabel297.Label = "10" + TrackBarLabel297.Value = 10 + Me.sld_107_Visual_Presentation.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel287, TrackBarLabel288, TrackBarLabel289, TrackBarLabel290, TrackBarLabel291, TrackBarLabel292, TrackBarLabel293, TrackBarLabel294, TrackBarLabel295, TrackBarLabel296, TrackBarLabel297}) + Me.sld_107_Visual_Presentation.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_107_Visual_Presentation.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem83.Text = "Visual Presentation" + ToolTipItem83.LeftIndent = 6 + ToolTipItem83.Text = "Visual Presentation of the game (e.g. 2D scrolling, Fixed / Flip-screen, Isometri" & + "c etc.)" + SuperToolTip83.Items.Add(ToolTipTitleItem83) + SuperToolTip83.Items.Add(ToolTipItem83) + Me.sld_107_Visual_Presentation.SuperTip = SuperToolTip83 + Me.sld_107_Visual_Presentation.TabIndex = 11 + ' + 'pnl_102_Perspective + ' + Me.pnl_102_Perspective.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_102_Perspective.Controls.Add(Me.lbl_102_Perspectives) + Me.pnl_102_Perspective.Controls.Add(Me.sld_102_Perspectives) + Me.pnl_102_Perspective.Controls.Add(Me.lbl_102_Perspectives_Value) + Me.pnl_102_Perspective.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_102_Perspective.Location = New System.Drawing.Point(0, 28) + Me.pnl_102_Perspective.Name = "pnl_102_Perspective" + Me.pnl_102_Perspective.Size = New System.Drawing.Size(253, 28) + Me.pnl_102_Perspective.TabIndex = 16 + ' + 'lbl_102_Perspectives + ' + Me.lbl_102_Perspectives.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_102_Perspectives.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_102_Perspectives.Location = New System.Drawing.Point(2, 3) + Me.lbl_102_Perspectives.MKBoundControl1 = Nothing + Me.lbl_102_Perspectives.MKBoundControl2 = Nothing + Me.lbl_102_Perspectives.MKBoundControl3 = Nothing + Me.lbl_102_Perspectives.MKBoundControl4 = Nothing + Me.lbl_102_Perspectives.MKBoundControl5 = Nothing + Me.lbl_102_Perspectives.Name = "lbl_102_Perspectives" + Me.lbl_102_Perspectives.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem84.Text = "Perspectives" + ToolTipItem84.LeftIndent = 6 + ToolTipItem84.Text = "Perspectives of the game (e.g. 1st-person, 3rd-person, Audio game, Top-down etc.)" & + "" + SuperToolTip84.Items.Add(ToolTipTitleItem84) + SuperToolTip84.Items.Add(ToolTipItem84) + Me.lbl_102_Perspectives.SuperTip = SuperToolTip84 + Me.lbl_102_Perspectives.TabIndex = 0 + Me.lbl_102_Perspectives.Text = "Perspectives:" + ' + 'sld_102_Perspectives + ' + Me.sld_102_Perspectives.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_102_Perspectives.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_102_Perspectives", True)) + Me.sld_102_Perspectives.EditValue = Nothing + Me.sld_102_Perspectives.Location = New System.Drawing.Point(129, 2) + Me.sld_102_Perspectives.Name = "sld_102_Perspectives" + Me.sld_102_Perspectives.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_102_Perspectives.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel298.Label = "0" + TrackBarLabel299.Label = "1" + TrackBarLabel299.Value = 1 + TrackBarLabel300.Label = "2" + TrackBarLabel300.Value = 2 + TrackBarLabel301.Label = "3" + TrackBarLabel301.Value = 3 + TrackBarLabel302.Label = "4" + TrackBarLabel302.Value = 4 + TrackBarLabel303.Label = "5" + TrackBarLabel303.Value = 5 + TrackBarLabel304.Label = "6" + TrackBarLabel304.Value = 6 + TrackBarLabel305.Label = "7" + TrackBarLabel305.Value = 7 + TrackBarLabel306.Label = "8" + TrackBarLabel306.Value = 8 + TrackBarLabel307.Label = "9" + TrackBarLabel307.Value = 9 + TrackBarLabel308.Label = "10" + TrackBarLabel308.Value = 10 + Me.sld_102_Perspectives.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel298, TrackBarLabel299, TrackBarLabel300, TrackBarLabel301, TrackBarLabel302, TrackBarLabel303, TrackBarLabel304, TrackBarLabel305, TrackBarLabel306, TrackBarLabel307, TrackBarLabel308}) + Me.sld_102_Perspectives.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_102_Perspectives.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem85.Text = "Perspectives" + ToolTipItem85.LeftIndent = 6 + ToolTipItem85.Text = "Perspectives of the game (e.g. 1st-person, 3rd-person, Audio game, Top-down etc.)" & + "" + SuperToolTip85.Items.Add(ToolTipTitleItem85) + SuperToolTip85.Items.Add(ToolTipItem85) + Me.sld_102_Perspectives.SuperTip = SuperToolTip85 + Me.sld_102_Perspectives.TabIndex = 8 + ' + 'lbl_102_Perspectives_Value + ' + Me.lbl_102_Perspectives_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_102_Perspectives_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_102_Perspectives_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_102_Perspectives_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_102_Perspectives", True)) + Me.lbl_102_Perspectives_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_102_Perspectives_Value.MKBoundControl1 = Nothing + Me.lbl_102_Perspectives_Value.MKBoundControl2 = Nothing + Me.lbl_102_Perspectives_Value.MKBoundControl3 = Nothing + Me.lbl_102_Perspectives_Value.MKBoundControl4 = Nothing + Me.lbl_102_Perspectives_Value.MKBoundControl5 = Nothing + Me.lbl_102_Perspectives_Value.Name = "lbl_102_Perspectives_Value" + Me.lbl_102_Perspectives_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem86.Text = "Perspectives" + ToolTipItem86.LeftIndent = 6 + ToolTipItem86.Text = "Perspectives of the game (e.g. 1st-person, 3rd-person, Audio game, Top-down etc.)" & + "" + SuperToolTip86.Items.Add(ToolTipTitleItem86) + SuperToolTip86.Items.Add(ToolTipItem86) + Me.lbl_102_Perspectives_Value.SuperTip = SuperToolTip86 + Me.lbl_102_Perspectives_Value.TabIndex = 2 + Me.lbl_102_Perspectives_Value.Text = "0" + ' + 'pnl_101_Basic_Genres + ' + Me.pnl_101_Basic_Genres.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_101_Basic_Genres.Controls.Add(Me.lbl_101_Basic_Genres) + Me.pnl_101_Basic_Genres.Controls.Add(Me.sld_101_Basic_Genres) + Me.pnl_101_Basic_Genres.Controls.Add(Me.lbl_101_Basic_Genres_Value) + Me.pnl_101_Basic_Genres.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_101_Basic_Genres.Location = New System.Drawing.Point(0, 0) + Me.pnl_101_Basic_Genres.Name = "pnl_101_Basic_Genres" + Me.pnl_101_Basic_Genres.Size = New System.Drawing.Size(253, 28) + Me.pnl_101_Basic_Genres.TabIndex = 15 + ' + 'lbl_101_Basic_Genres + ' + Me.lbl_101_Basic_Genres.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_101_Basic_Genres.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_101_Basic_Genres.Location = New System.Drawing.Point(2, 3) + Me.lbl_101_Basic_Genres.MKBoundControl1 = Nothing + Me.lbl_101_Basic_Genres.MKBoundControl2 = Nothing + Me.lbl_101_Basic_Genres.MKBoundControl3 = Nothing + Me.lbl_101_Basic_Genres.MKBoundControl4 = Nothing + Me.lbl_101_Basic_Genres.MKBoundControl5 = Nothing + Me.lbl_101_Basic_Genres.Name = "lbl_101_Basic_Genres" + Me.lbl_101_Basic_Genres.Size = New System.Drawing.Size(125, 20) + ToolTipTitleItem87.Text = "Genres" + ToolTipItem87.LeftIndent = 6 + ToolTipItem87.Text = "Basic genres of the game (e.g. Action, Adventure, Strategy etc.)" + SuperToolTip87.Items.Add(ToolTipTitleItem87) + SuperToolTip87.Items.Add(ToolTipItem87) + Me.lbl_101_Basic_Genres.SuperTip = SuperToolTip87 + Me.lbl_101_Basic_Genres.TabIndex = 0 + Me.lbl_101_Basic_Genres.Text = "Genres:" + ' + 'sld_101_Basic_Genres + ' + Me.sld_101_Basic_Genres.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.sld_101_Basic_Genres.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Similarity_Calculation_Config, "Weight_101_Basic_Genres", True)) + Me.sld_101_Basic_Genres.EditValue = Nothing + Me.sld_101_Basic_Genres.Location = New System.Drawing.Point(129, 2) + Me.sld_101_Basic_Genres.Name = "sld_101_Basic_Genres" + Me.sld_101_Basic_Genres.Properties.LabelAppearance.Options.UseTextOptions = True + Me.sld_101_Basic_Genres.Properties.LabelAppearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + TrackBarLabel309.Label = "0" + TrackBarLabel310.Label = "1" + TrackBarLabel310.Value = 1 + TrackBarLabel311.Label = "2" + TrackBarLabel311.Value = 2 + TrackBarLabel312.Label = "3" + TrackBarLabel312.Value = 3 + TrackBarLabel313.Label = "4" + TrackBarLabel313.Value = 4 + TrackBarLabel314.Label = "5" + TrackBarLabel314.Value = 5 + TrackBarLabel315.Label = "6" + TrackBarLabel315.Value = 6 + TrackBarLabel316.Label = "7" + TrackBarLabel316.Value = 7 + TrackBarLabel317.Label = "8" + TrackBarLabel317.Value = 8 + TrackBarLabel318.Label = "9" + TrackBarLabel318.Value = 9 + TrackBarLabel319.Label = "10" + TrackBarLabel319.Value = 10 + Me.sld_101_Basic_Genres.Properties.Labels.AddRange(New DevExpress.XtraEditors.Repository.TrackBarLabel() {TrackBarLabel309, TrackBarLabel310, TrackBarLabel311, TrackBarLabel312, TrackBarLabel313, TrackBarLabel314, TrackBarLabel315, TrackBarLabel316, TrackBarLabel317, TrackBarLabel318, TrackBarLabel319}) + Me.sld_101_Basic_Genres.Properties.TickStyle = System.Windows.Forms.TickStyle.None + Me.sld_101_Basic_Genres.Size = New System.Drawing.Size(99, 45) + ToolTipTitleItem88.Text = "Genres" + ToolTipItem88.LeftIndent = 6 + ToolTipItem88.Text = "Basic genres of the game (e.g. Action, Adventure, Strategy etc.)" + SuperToolTip88.Items.Add(ToolTipTitleItem88) + SuperToolTip88.Items.Add(ToolTipItem88) + Me.sld_101_Basic_Genres.SuperTip = SuperToolTip88 + Me.sld_101_Basic_Genres.TabIndex = 7 + ' + 'lbl_101_Basic_Genres_Value + ' + Me.lbl_101_Basic_Genres_Value.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_101_Basic_Genres_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_101_Basic_Genres_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_101_Basic_Genres_Value.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Similarity_Calculation_Config, "Weight_101_Basic_Genres", True)) + Me.lbl_101_Basic_Genres_Value.Location = New System.Drawing.Point(232, 3) + Me.lbl_101_Basic_Genres_Value.MKBoundControl1 = Nothing + Me.lbl_101_Basic_Genres_Value.MKBoundControl2 = Nothing + Me.lbl_101_Basic_Genres_Value.MKBoundControl3 = Nothing + Me.lbl_101_Basic_Genres_Value.MKBoundControl4 = Nothing + Me.lbl_101_Basic_Genres_Value.MKBoundControl5 = Nothing + Me.lbl_101_Basic_Genres_Value.Name = "lbl_101_Basic_Genres_Value" + Me.lbl_101_Basic_Genres_Value.Size = New System.Drawing.Size(16, 20) + ToolTipTitleItem89.Text = "Genres" + ToolTipItem89.LeftIndent = 6 + ToolTipItem89.Text = "Basic genres of the game (e.g. Action, Adventure, Strategy etc.)" + SuperToolTip89.Items.Add(ToolTipTitleItem89) + SuperToolTip89.Items.Add(ToolTipItem89) + Me.lbl_101_Basic_Genres_Value.SuperTip = SuperToolTip89 + Me.lbl_101_Basic_Genres_Value.TabIndex = 2 + Me.lbl_101_Basic_Genres_Value.Text = "0" + ' + 'pnl_Left + ' + Me.pnl_Left.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Left.Controls.Add(Me.pnl_401_Staff) + Me.pnl_Left.Controls.Add(Me.pnl_301_Group_Membership) + Me.pnl_Left.Controls.Add(Me.pnl_206_Other_Attributes) + Me.pnl_Left.Controls.Add(Me.pnl_207_Multiplayer_Attributes) + Me.pnl_Left.Controls.Add(Me.pnl_205_Rating_Descriptors) + Me.pnl_Left.Controls.Add(Me.pnl_204_AgeP) + Me.pnl_Left.Controls.Add(Me.pnl_203_AgeO) + Me.pnl_Left.Controls.Add(Me.pnl_202_MaxPlayers) + Me.pnl_Left.Controls.Add(Me.pnl_201_MinPlayers) + Me.pnl_Left.Controls.Add(Me.pnl_006_Year) + Me.pnl_Left.Controls.Add(Me.pnl_005_Developer) + Me.pnl_Left.Controls.Add(Me.pnl_004_Publisher) + Me.pnl_Left.Controls.Add(Me.pnl_003_MobyScore) + Me.pnl_Left.Controls.Add(Me.pnl_002_MobyRank) + Me.pnl_Left.Controls.Add(Me.pnl_001_Platform) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Left.Location = New System.Drawing.Point(3, 3) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(253, 418) + Me.pnl_Left.TabIndex = 0 + ' + 'pnl_401_Staff + ' + Me.pnl_401_Staff.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_401_Staff.Controls.Add(Me.lbl_401_Staff) + Me.pnl_401_Staff.Controls.Add(Me.sld_401_Staff) + Me.pnl_401_Staff.Controls.Add(Me.lbl_401_Staff_Value) + Me.pnl_401_Staff.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_401_Staff.Location = New System.Drawing.Point(0, 392) + Me.pnl_401_Staff.Name = "pnl_401_Staff" + Me.pnl_401_Staff.Size = New System.Drawing.Size(253, 28) + Me.pnl_401_Staff.TabIndex = 36 + ' + 'pnl_301_Group_Membership + ' + Me.pnl_301_Group_Membership.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_301_Group_Membership.Controls.Add(Me.lbl_301_Group_Membership) + Me.pnl_301_Group_Membership.Controls.Add(Me.sld_301_Group_Membership) + Me.pnl_301_Group_Membership.Controls.Add(Me.lbl_301_Group_Membership_Value) + Me.pnl_301_Group_Membership.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_301_Group_Membership.Location = New System.Drawing.Point(0, 364) + Me.pnl_301_Group_Membership.Name = "pnl_301_Group_Membership" + Me.pnl_301_Group_Membership.Size = New System.Drawing.Size(253, 28) + Me.pnl_301_Group_Membership.TabIndex = 35 + ' + 'pnl_206_Other_Attributes + ' + Me.pnl_206_Other_Attributes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_206_Other_Attributes.Controls.Add(Me.lbl_206_Other_Attributes) + Me.pnl_206_Other_Attributes.Controls.Add(Me.sld_206_Other_Attributes) + Me.pnl_206_Other_Attributes.Controls.Add(Me.lbl_206_Other_Attributes_Value) + Me.pnl_206_Other_Attributes.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_206_Other_Attributes.Location = New System.Drawing.Point(0, 336) + Me.pnl_206_Other_Attributes.Name = "pnl_206_Other_Attributes" + Me.pnl_206_Other_Attributes.Size = New System.Drawing.Size(253, 28) + Me.pnl_206_Other_Attributes.TabIndex = 34 + ' + 'pnl_207_Multiplayer_Attributes + ' + Me.pnl_207_Multiplayer_Attributes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_207_Multiplayer_Attributes.Controls.Add(Me.lbl_207_Multiplayer_Attributes) + Me.pnl_207_Multiplayer_Attributes.Controls.Add(Me.sld_207_Multiplayer_Attributes) + Me.pnl_207_Multiplayer_Attributes.Controls.Add(Me.lbl_207_Multiplayer_Attributes_Value) + Me.pnl_207_Multiplayer_Attributes.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_207_Multiplayer_Attributes.Location = New System.Drawing.Point(0, 308) + Me.pnl_207_Multiplayer_Attributes.Name = "pnl_207_Multiplayer_Attributes" + Me.pnl_207_Multiplayer_Attributes.Size = New System.Drawing.Size(253, 28) + Me.pnl_207_Multiplayer_Attributes.TabIndex = 33 + ' + 'pnl_205_Rating_Descriptors + ' + Me.pnl_205_Rating_Descriptors.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_205_Rating_Descriptors.Controls.Add(Me.lbl_205_Rating_Descriptors) + Me.pnl_205_Rating_Descriptors.Controls.Add(Me.sld_205_Rating_Descriptors) + Me.pnl_205_Rating_Descriptors.Controls.Add(Me.lbl_205_Rating_Descriptors_Value) + Me.pnl_205_Rating_Descriptors.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_205_Rating_Descriptors.Location = New System.Drawing.Point(0, 280) + Me.pnl_205_Rating_Descriptors.Name = "pnl_205_Rating_Descriptors" + Me.pnl_205_Rating_Descriptors.Size = New System.Drawing.Size(253, 28) + Me.pnl_205_Rating_Descriptors.TabIndex = 32 + ' + 'pnl_204_AgeP + ' + Me.pnl_204_AgeP.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_204_AgeP.Controls.Add(Me.lbl_204_AgeP) + Me.pnl_204_AgeP.Controls.Add(Me.sld_204_AgeP) + Me.pnl_204_AgeP.Controls.Add(Me.lbl_204_AgeP_Value) + Me.pnl_204_AgeP.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_204_AgeP.Location = New System.Drawing.Point(0, 252) + Me.pnl_204_AgeP.Name = "pnl_204_AgeP" + Me.pnl_204_AgeP.Size = New System.Drawing.Size(253, 28) + Me.pnl_204_AgeP.TabIndex = 31 + ' + 'pnl_203_AgeO + ' + Me.pnl_203_AgeO.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_203_AgeO.Controls.Add(Me.lbl_203_AgeO) + Me.pnl_203_AgeO.Controls.Add(Me.sld_203_AgeO) + Me.pnl_203_AgeO.Controls.Add(Me.lbl_203_AgeO_Value) + Me.pnl_203_AgeO.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_203_AgeO.Location = New System.Drawing.Point(0, 224) + Me.pnl_203_AgeO.Name = "pnl_203_AgeO" + Me.pnl_203_AgeO.Size = New System.Drawing.Size(253, 28) + Me.pnl_203_AgeO.TabIndex = 30 + ' + 'pnl_202_MaxPlayers + ' + Me.pnl_202_MaxPlayers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_202_MaxPlayers.Controls.Add(Me.lbl_202_MaxPlayers) + Me.pnl_202_MaxPlayers.Controls.Add(Me.sld_202_MaxPlayers) + Me.pnl_202_MaxPlayers.Controls.Add(Me.lbl_202_MaxPlayers_Value) + Me.pnl_202_MaxPlayers.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_202_MaxPlayers.Location = New System.Drawing.Point(0, 196) + Me.pnl_202_MaxPlayers.Name = "pnl_202_MaxPlayers" + Me.pnl_202_MaxPlayers.Size = New System.Drawing.Size(253, 28) + Me.pnl_202_MaxPlayers.TabIndex = 29 + ' + 'pnl_201_MinPlayers + ' + Me.pnl_201_MinPlayers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_201_MinPlayers.Controls.Add(Me.lbl_201_MinPlayers) + Me.pnl_201_MinPlayers.Controls.Add(Me.sld_201_MinPlayers) + Me.pnl_201_MinPlayers.Controls.Add(Me.lbl_201_MinPlayers_Value) + Me.pnl_201_MinPlayers.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_201_MinPlayers.Location = New System.Drawing.Point(0, 168) + Me.pnl_201_MinPlayers.Name = "pnl_201_MinPlayers" + Me.pnl_201_MinPlayers.Size = New System.Drawing.Size(253, 28) + Me.pnl_201_MinPlayers.TabIndex = 28 + ' + 'pnl_006_Year + ' + Me.pnl_006_Year.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_006_Year.Controls.Add(Me.lbl_006_Year) + Me.pnl_006_Year.Controls.Add(Me.sld_006_Year) + Me.pnl_006_Year.Controls.Add(Me.lbl_006_Year_Value) + Me.pnl_006_Year.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_006_Year.Location = New System.Drawing.Point(0, 140) + Me.pnl_006_Year.Name = "pnl_006_Year" + Me.pnl_006_Year.Size = New System.Drawing.Size(253, 28) + Me.pnl_006_Year.TabIndex = 27 + ' + 'pnl_005_Developer + ' + Me.pnl_005_Developer.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_005_Developer.Controls.Add(Me.lbl_005_Developer) + Me.pnl_005_Developer.Controls.Add(Me.sld_005_Developer) + Me.pnl_005_Developer.Controls.Add(Me.lbl_005_Developer_Value) + Me.pnl_005_Developer.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_005_Developer.Location = New System.Drawing.Point(0, 112) + Me.pnl_005_Developer.Name = "pnl_005_Developer" + Me.pnl_005_Developer.Size = New System.Drawing.Size(253, 28) + Me.pnl_005_Developer.TabIndex = 26 + ' + 'pnl_004_Publisher + ' + Me.pnl_004_Publisher.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_004_Publisher.Controls.Add(Me.lbl_004_Publisher) + Me.pnl_004_Publisher.Controls.Add(Me.sld_004_Publisher) + Me.pnl_004_Publisher.Controls.Add(Me.lbl_004_Publisher_Value) + Me.pnl_004_Publisher.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_004_Publisher.Location = New System.Drawing.Point(0, 84) + Me.pnl_004_Publisher.Name = "pnl_004_Publisher" + Me.pnl_004_Publisher.Size = New System.Drawing.Size(253, 28) + Me.pnl_004_Publisher.TabIndex = 25 + ' + 'pnl_003_MobyScore + ' + Me.pnl_003_MobyScore.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_003_MobyScore.Controls.Add(Me.lbl_003_MobyScore) + Me.pnl_003_MobyScore.Controls.Add(Me.sld_003_MobyScore) + Me.pnl_003_MobyScore.Controls.Add(Me.lbl_003_MobyScore_Value) + Me.pnl_003_MobyScore.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_003_MobyScore.Location = New System.Drawing.Point(0, 56) + Me.pnl_003_MobyScore.Name = "pnl_003_MobyScore" + Me.pnl_003_MobyScore.Size = New System.Drawing.Size(253, 28) + Me.pnl_003_MobyScore.TabIndex = 24 + ' + 'pnl_002_MobyRank + ' + Me.pnl_002_MobyRank.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_002_MobyRank.Controls.Add(Me.lbl_002_MobyRank) + Me.pnl_002_MobyRank.Controls.Add(Me.sld_002_MobyRank) + Me.pnl_002_MobyRank.Controls.Add(Me.lbl_002_MobyRank_Value) + Me.pnl_002_MobyRank.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_002_MobyRank.Location = New System.Drawing.Point(0, 28) + Me.pnl_002_MobyRank.Name = "pnl_002_MobyRank" + Me.pnl_002_MobyRank.Size = New System.Drawing.Size(253, 28) + Me.pnl_002_MobyRank.TabIndex = 23 + ' + 'pnl_001_Platform + ' + Me.pnl_001_Platform.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_001_Platform.Controls.Add(Me.lbl_001_Platform) + Me.pnl_001_Platform.Controls.Add(Me.sld_001_Platform) + Me.pnl_001_Platform.Controls.Add(Me.lbl_001_Platform_Value) + Me.pnl_001_Platform.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_001_Platform.Location = New System.Drawing.Point(0, 0) + Me.pnl_001_Platform.Name = "pnl_001_Platform" + Me.pnl_001_Platform.Size = New System.Drawing.Size(253, 28) + Me.pnl_001_Platform.TabIndex = 22 + ' + 'frm_Similarity_Calculation_Config_Edit + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(524, 541) + Me.Controls.Add(Me.tlp_Main) + Me.Controls.Add(Me.txb_Name) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.lbl_Name) + Me.MinimumSize = New System.Drawing.Size(540, 580) + Me.Name = "frm_Similarity_Calculation_Config_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Similarity Calculation Configuration" + CType(Me.sld_001_Platform.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_001_Platform, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Similarity_Calculation_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_002_MobyRank.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_002_MobyRank, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_003_MobyScore.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_003_MobyScore, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_004_Publisher.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_004_Publisher, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_005_Developer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_005_Developer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_006_Year.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_006_Year, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_201_MinPlayers.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_201_MinPlayers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_202_MaxPlayers.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_202_MaxPlayers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_203_AgeO.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_203_AgeO, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_204_AgeP.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_204_AgeP, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_205_Rating_Descriptors.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_206_Other_Attributes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_206_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_301_Group_Membership.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_301_Group_Membership, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_401_Staff.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_401_Staff, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Name.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_207_Multiplayer_Attributes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.tlp_Main.ResumeLayout(False) + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.pnl_106_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_106_Other_Attributes.ResumeLayout(False) + Me.pnl_106_Other_Attributes.PerformLayout() + CType(Me.sld_106_Other_Attributes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_106_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_115_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_115_Special_Edition.ResumeLayout(False) + Me.pnl_115_Special_Edition.PerformLayout() + CType(Me.sld_115_Special_Edition.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_115_Special_Edition, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_114_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_114_DLC_Addon.ResumeLayout(False) + Me.pnl_114_DLC_Addon.PerformLayout() + CType(Me.sld_114_DLC_Addon.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_114_DLC_Addon, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_113_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_113_Interface_Control.ResumeLayout(False) + Me.pnl_113_Interface_Control.PerformLayout() + CType(Me.sld_113_Interface_Control.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_113_Interface_Control, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_105_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_105_Educational_Categories.ResumeLayout(False) + Me.pnl_105_Educational_Categories.PerformLayout() + CType(Me.sld_105_Educational_Categories.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_105_Educational_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_112_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_112_Vehicular_Themes.ResumeLayout(False) + Me.pnl_112_Vehicular_Themes.PerformLayout() + CType(Me.sld_112_Vehicular_Themes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_112_Vehicular_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Sports_Themes.ResumeLayout(False) + Me.pnl_Sports_Themes.PerformLayout() + CType(Me.sld_103_Sports_Themes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_103_Sports_Themes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_111_Setting, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_111_Setting.ResumeLayout(False) + Me.pnl_111_Setting.PerformLayout() + CType(Me.sld_111_Setting.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_111_Setting, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_110_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_110_Narrative_Theme_Topic.ResumeLayout(False) + Me.pnl_110_Narrative_Theme_Topic.PerformLayout() + CType(Me.sld_110_Narrative_Theme_Topic.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_110_Narrative_Theme_Topic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_109_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_109_Pacing.ResumeLayout(False) + Me.pnl_109_Pacing.PerformLayout() + CType(Me.sld_109_Pacing.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_109_Pacing, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_108_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_108_Gameplay.ResumeLayout(False) + Me.pnl_108_Gameplay.PerformLayout() + CType(Me.sld_108_Gameplay.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_108_Gameplay, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_107_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_107_Visual_Presentation.ResumeLayout(False) + Me.pnl_107_Visual_Presentation.PerformLayout() + CType(Me.sld_107_Visual_Presentation.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_107_Visual_Presentation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_102_Perspective, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_102_Perspective.ResumeLayout(False) + Me.pnl_102_Perspective.PerformLayout() + CType(Me.sld_102_Perspectives.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_102_Perspectives, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_101_Basic_Genres, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_101_Basic_Genres.ResumeLayout(False) + Me.pnl_101_Basic_Genres.PerformLayout() + CType(Me.sld_101_Basic_Genres.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.sld_101_Basic_Genres, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.pnl_401_Staff, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_401_Staff.ResumeLayout(False) + Me.pnl_401_Staff.PerformLayout() + CType(Me.pnl_301_Group_Membership, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_301_Group_Membership.ResumeLayout(False) + Me.pnl_301_Group_Membership.PerformLayout() + CType(Me.pnl_206_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_206_Other_Attributes.ResumeLayout(False) + Me.pnl_206_Other_Attributes.PerformLayout() + CType(Me.pnl_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_207_Multiplayer_Attributes.ResumeLayout(False) + Me.pnl_207_Multiplayer_Attributes.PerformLayout() + CType(Me.pnl_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_205_Rating_Descriptors.ResumeLayout(False) + Me.pnl_205_Rating_Descriptors.PerformLayout() + CType(Me.pnl_204_AgeP, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_204_AgeP.ResumeLayout(False) + Me.pnl_204_AgeP.PerformLayout() + CType(Me.pnl_203_AgeO, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_203_AgeO.ResumeLayout(False) + Me.pnl_203_AgeO.PerformLayout() + CType(Me.pnl_202_MaxPlayers, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_202_MaxPlayers.ResumeLayout(False) + Me.pnl_202_MaxPlayers.PerformLayout() + CType(Me.pnl_201_MinPlayers, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_201_MinPlayers.ResumeLayout(False) + Me.pnl_201_MinPlayers.PerformLayout() + CType(Me.pnl_006_Year, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_006_Year.ResumeLayout(False) + Me.pnl_006_Year.PerformLayout() + CType(Me.pnl_005_Developer, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_005_Developer.ResumeLayout(False) + Me.pnl_005_Developer.PerformLayout() + CType(Me.pnl_004_Publisher, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_004_Publisher.ResumeLayout(False) + Me.pnl_004_Publisher.PerformLayout() + CType(Me.pnl_003_MobyScore, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_003_MobyScore.ResumeLayout(False) + Me.pnl_003_MobyScore.PerformLayout() + CType(Me.pnl_002_MobyRank, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_002_MobyRank.ResumeLayout(False) + Me.pnl_002_MobyRank.PerformLayout() + CType(Me.pnl_001_Platform, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_001_Platform.ResumeLayout(False) + Me.pnl_001_Platform.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lbl_001_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_001_Platform As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_001_Platform_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_002_MobyRank As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_002_MobyRank_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_003_MobyScore As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_003_MobyScore_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_004_Publisher As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_004_Publisher_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_005_Developer As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_005_Developer_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_006_Year As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_006_Year_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_201_MinPlayers As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_201_MinPlayers_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_202_MaxPlayers As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_202_MaxPlayers_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_203_AgeO As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_203_AgeO_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_204_AgeP As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_204_AgeP_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_205_Rating_Descriptors As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_205_Rating_Descriptors As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_205_Rating_Descriptors_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_206_Other_Attributes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_206_Other_Attributes As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_206_Other_Attributes_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_301_Group_Membership As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_301_Group_Membership As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_301_Group_Membership_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_401_Staff As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_401_Staff As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_401_Staff_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Name As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Name As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents BS_Similarity_Calculation_Config As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents lbl_207_Multiplayer_Attributes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_207_Multiplayer_Attributes As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_207_Multiplayer_Attributes_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tlp_Main As TableLayoutPanel + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_105_Educational_Categories As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_105_Educational_Categories As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_105_Educational_Categories As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_105_Educational_Categories_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_112_Vehicular_Themes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_112_Vehicular_Themes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_112_Vehicular_Themes As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_112_Vehicular_Themes_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Sports_Themes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_103_Sports_Themes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_103_Sports_Themes As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_103_Sports_Themes_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_111_Setting As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_111_Setting As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_111_Setting_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_111_Setting As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_110_Narrative_Theme_Topic As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_110_Narrative_Theme_Topic As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_110_Narrative_Theme_Topic_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_110_Narrative_Theme_Topic As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_109_Pacing As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_109_Pacing As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_109_Pacing_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_109_Pacing As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_108_Gameplay As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_108_Gameplay As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_108_Gameplay_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_108_Gameplay As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_107_Visual_Presentation As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_107_Visual_Presentation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_107_Visual_Presentation_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_107_Visual_Presentation As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_102_Perspective As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_102_Perspectives As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_102_Perspectives As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_102_Perspectives_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_101_Basic_Genres As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_101_Basic_Genres As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_101_Basic_Genres As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_101_Basic_Genres_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_106_Other_Attributes_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_106_Other_Attributes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_106_Other_Attributes As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents pnl_106_Other_Attributes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_115_Special_Edition As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_115_Special_Edition As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_115_Special_Edition As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_115_Special_Edition_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_114_DLC_Addon As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_114_DLC_Addon As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_114_DLC_Addon As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_114_DLC_Addon_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_113_Interface_Control As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_113_Interface_Control As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents sld_113_Interface_Control As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents lbl_113_Interface_Control_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_201_MinPlayers As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_006_Year As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_005_Developer As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_004_Publisher As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_003_MobyScore As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_002_MobyRank As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_001_Platform As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_202_MaxPlayers As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_205_Rating_Descriptors As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_204_AgeP As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_203_AgeO As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_401_Staff As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_301_Group_Membership As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_206_Other_Attributes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_207_Multiplayer_Attributes As MKNetDXLib.ctl_MKDXPanel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.resx b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.resx new file mode 100644 index 0000000..d8f37cc --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + + The optimistic minimum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the optimistic minimum age is the lowest among them. + + + The optimistic minimum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the optimistic minimum age is the lowest among them. + + + The optimistic minimum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the optimistic minimum age is the lowest among them. + + + The pessimistic minumum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the pessimistic minimum age is the highest among them. + + + The pessimistic minumum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the pessimistic minimum age is the highest among them. + + + The pessimistic minumum age. + +There are multiple rating systems in place, many of them feature minumum age tags (e.g. PG-13, USK 12 etc.). Of all given minimum age tags applying to the game, the pessimistic minimum age is the highest among them. + + + The similarity calculation configuration consists of the definition of weights for each feature set. If a weight for feature set A is set to 2 and for feature set B to 1, the calculated similarity in feature set A will be counted twice as important than the similarity in feature set B. If you set a weight to 0, the feature set will be ignored. + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.vb new file mode 100644 index 0000000..ba6a559 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Config_Edit.vb @@ -0,0 +1,83 @@ +Public Class frm_Similarity_Calculation_Config_Edit + Private _id_Similarity_Calculation_Config As Integer = 0 + + Public Sub New(Optional ByVal id_Similarity_Calculation_Config As Integer = 0) + InitializeComponent() + + _id_Similarity_Calculation_Config = id_Similarity_Calculation_Config + End Sub + + Private Sub frm_Similarity_Calculation_Config_Edit_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If _id_Similarity_Calculation_Config > 0 Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Similarity_Calculation_Config(tran, Me.DS_ML.tbl_Similarity_Calculation_Config, _id_Similarity_Calculation_Config) + + If Me.DS_ML.tbl_Similarity_Calculation_Config.Rows.Count <> 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while fetching data from the database.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.Close() + End If + End Using + Else + Dim row As DataRow = Me.DS_ML.tbl_Similarity_Calculation_Config.NewRow + Me.DS_ML.tbl_Similarity_Calculation_Config.Rows.Add(row) + End If + End Sub + + Private Sub Handle_Slider_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sld_401_Staff.EditValueChanged, sld_301_Group_Membership.EditValueChanged, sld_206_Other_Attributes.EditValueChanged, sld_205_Rating_Descriptors.EditValueChanged, sld_204_AgeP.EditValueChanged, sld_203_AgeO.EditValueChanged, sld_202_MaxPlayers.EditValueChanged, sld_201_MinPlayers.EditValueChanged, sld_106_Other_Attributes.EditValueChanged, sld_105_Educational_Categories.EditValueChanged, sld_103_Sports_Themes.EditValueChanged, sld_102_Perspectives.EditValueChanged, sld_101_Basic_Genres.EditValueChanged, sld_006_Year.EditValueChanged, sld_005_Developer.EditValueChanged, sld_004_Publisher.EditValueChanged, sld_003_MobyScore.EditValueChanged, sld_002_MobyRank.EditValueChanged, sld_001_Platform.EditValueChanged, sld_207_Multiplayer_Attributes.EditValueChanged, sld_115_Special_Edition.EditValueChanged, sld_114_DLC_Addon.EditValueChanged, sld_113_Interface_Control.EditValueChanged, sld_112_Vehicular_Themes.EditValueChanged, sld_111_Setting.EditValueChanged, sld_110_Narrative_Theme_Topic.EditValueChanged, sld_109_Pacing.EditValueChanged, sld_108_Gameplay.EditValueChanged, sld_107_Visual_Presentation.EditValueChanged + BS_Similarity_Calculation_Config.EndEdit() + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + BS_Similarity_Calculation_Config.EndEdit() + + Dim bOK As Boolean = False + For Each col As DataColumn In DS_ML.tbl_Similarity_Calculation_Config.Columns + If col.ColumnName.Contains("Weight") Then + If TC.NZ(DS_ML.tbl_Similarity_Calculation_Config.Rows(0)(col.ColumnName), 0) <> 0 Then + bOK = True + Exit For + End If + End If + Next + + If Not bOK Then + DevExpress.XtraEditors.XtraMessageBox.Show("Not all weights should be set to 0.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + If _id_Similarity_Calculation_Config = 0 Then + Dim sSQL As String = "INSERT INTO tbl_Similarity_Calculation_Config (" + Dim sSQL1 As String = "" + Dim sSQL2 As String = "" + For Each col As DataColumn In DS_ML.tbl_Similarity_Calculation_Config.Columns + If Not col.ColumnName.StartsWith("id_") Then + sSQL1 &= IIf(sSQL1 = "", "", ", ") & "[" & col.ColumnName & "]" + sSQL2 &= IIf(sSQL2 = "", "", ", ") & TC.getSQLFormat(DS_ML.tbl_Similarity_Calculation_Config.Rows(0)(col.ColumnName)) + End If + Next + + sSQL &= sSQL1 & ") VALUES (" & sSQL2 & ")" + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + Else + Dim sSQL As String = "UPDATE tbl_Similarity_Calculation_Config SET " + Dim sSQL1 As String = "" + + For Each col As DataColumn In DS_ML.tbl_Similarity_Calculation_Config.Columns + If Not col.ColumnName.StartsWith("id_") AndAlso Not col.ColumnName.ToLower = "sort" Then + sSQL1 &= IIf(sSQL1 = "", "", ", ") & "[" & col.ColumnName & "] = " & TC.getSQLFormat(DS_ML.tbl_Similarity_Calculation_Config.Rows(0)(col.ColumnName)) + End If + Next + + sSQL &= sSQL1 & " WHERE id_Similarity_Calculation_Config = " & _id_Similarity_Calculation_Config + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.Designer.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.Designer.vb new file mode 100644 index 0000000..3629609 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.Designer.vb @@ -0,0 +1,3861 @@ + _ +Partial Class frm_Similarity_Calculation_Details + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Similarity_Calculation_Details)) + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.splt_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.grd_Main = New MKNetDXLib.ctl_MKDXGrid() + Me.BTA_Main = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.gv_Main = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colFeature = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colScore = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWeight = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWeighted_Score = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tcl_Main = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_001_Platform = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_001_Platform = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_001_Platform_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_001_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_001_Platform_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_001_Platform_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_001_Platform_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_001_Platform_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_001_Platform_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_001_Platform_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_002_MobyRank = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_002_MobyRank = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_002_MobyRank_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_002_MobyRank = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_002_MobyRank_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_002_MobyRank_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_003_MobyScore = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_003_MobyScore = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_003_MobyScore_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_003_MobyScore = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_003_MobyScore_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_003_MobyScore_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_004_Publisher = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_004_Publisher = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_004_Publisher_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_004_Publisher = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_004_Publisher_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_004_Publisher_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_005_Developer = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_005_Developer = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_005_Developer_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_005_Developer = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_005_Developer_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_005_Developer_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_006_Year = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_006_Year = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_006_Year_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_006_Year = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_006_Year_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_006_Year_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_101_Basic_Genres = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_101_Basic_Genres = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_102_Perspectives = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_102_Perspectives = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_107_Visual_Presentation = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_107_Visual_Presentation = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_108_Gameplay = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_108_Gameplay = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_109_Pacing = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_109_Pacing = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_110_Narrative_Theme_Topic = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_110_Narrative_Theme_Topic = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_111_Setting = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_111_Setting = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_103_Sports_Themes = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_103_Sports_Themes = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_112_Vehicular_Themes = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_112_Vehicular_Themes = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_105_Educational_Categories = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_105_Educational_Categories = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_113_Interface_Control = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_113_Interface_Control = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_114_DLC_Addon = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_114_DLC_Addon = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_115_Special_Edition = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_115_Special_Edition = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_106_Other_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.ucr_106_Other_Attributes = New Metropolis_Launcher.ucr_Similarity_Calculation_Details_Genre() + Me.tpg_201_MinPlayers = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_201_MinPlayers = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_201_MinPlayers_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_201_MinPlayers = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_201_MinPlayers_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_201_MinPlayers_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_202_MaxPlayers = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_202_MaxPlayers = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_202_MaxPlayers_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_202_MaxPlayers = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_202_MaxPlayers_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_202_MaxPlayers_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_203_AgeO = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_203_AgeO = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_203_AgeO_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_203_AgeO = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_203_AgeO_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_203_AgeO_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_204_AgeP = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_204_AgeP = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_204_AgeP_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Weight_204_AgeP = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_204_AgeP_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_204_AgeP = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_205_Rating_Descriptors = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_205_Rating_Descriptors = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_205_Rating_Descriptors_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_205_Rating_Descriptors = New System.Windows.Forms.TableLayoutPanel() + Me.gb_205_Rating_Descriptors_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_205_Rating_Descriptors_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_205_Rating_Descriptors_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_205_Rating_Descriptors_AB = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_205_Rating_Descriptors_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_205_Rating_Descriptors_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_205_Rating_Descriptors_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_205_Rating_Descriptors_B = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_205_Rating_Descriptors_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_205_Rating_Descriptors_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_205_Rating_Descriptors_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_205_Rating_Descriptors_A = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight_205_Rating_Descriptors = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_205_Rating_Descriptors_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_205_Rating_Descriptors_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_207_Multiplayer_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_207_Multiplayer_Attributes = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_207_Multiplayer_Attributes_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_207_Multiplayer_Attributes = New System.Windows.Forms.TableLayoutPanel() + Me.gb_207_Multiplayer_Attributes_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_207_Multiplayer_Attributes_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_207_Multiplayer_Attributes_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_207_Multiplayer_Attributes_AB = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_207_Multiplayer_Attributes_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_207_Multiplayer_Attributes_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_207_Multiplayer_Attributes_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_207_Multiplayer_Attributes_B = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_207_Multiplayer_Attributes_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_207_Multiplayer_Attributes_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_207_Multiplayer_Attributes_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_207_Multiplayer_Attributes_A = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight_207_Multiplayer_Attributes = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_207_Multiplayer_Attributes_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_207_Multiplayer_Attributes_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_206_Other_Attributes = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_206_Other_Attributes = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_206_Other_Attributes_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_206_Other_Attributes = New System.Windows.Forms.TableLayoutPanel() + Me.gb_206_Other_Attributes_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_206_Other_Attributes_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_206_Other_Attributes_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_206_Other_Attributes_AB = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_206_Other_Attributes_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_206_Other_Attributes_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_206_Other_Attributes_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_206_Other_Attributes_B = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_206_Other_Attributes_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_206_Other_Attributes_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_206_Other_Attributes_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_206_Other_Attributes_A = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight_206_Other_Attributes = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_206_Other_Attributes_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_206_Other_Attributes_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_301_Group_Membership = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_301_Group_Membership = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_301_Group_Membership_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_301_Group_Membership = New System.Windows.Forms.TableLayoutPanel() + Me.gb_301_Group_Membership_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_301_Group_Membership_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_301_Group_Membership_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_301_Group_Membership_AB = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_301_Group_Membership_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_301_Group_Membership_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_301_Group_Membership_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_301_Group_Membership_B = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_301_Group_Membership_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_301_Group_Membership_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_301_Group_Membership_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_301_Group_Membership_A = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight_301_Group_Membership = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_301_Group_Membership_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_301_Group_Membership_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_401_Staff = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_401_Staff = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_401_Staff_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_401_Staff = New System.Windows.Forms.TableLayoutPanel() + Me.gb_401_Staff_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_401_Staff_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_401_Staff_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_401_Staff_AB = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_401_Staff_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_401_Staff_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_401_Staff_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_401_Staff_B = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_401_Staff_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_401_Staff_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_401_Staff_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_401_Staff_A = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight_401_Staff = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_401_Staff_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_401_Staff = New MKNetDXLib.ctl_MKDXLabel() + Me.DataTable1 = New System.Data.DataTable() + Me.col_id = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + Me.lbl_Game_A = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Game_A_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Game_B = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Game_B_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Similarity = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Similarity_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Similarity_Calculation_Configuration = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Similarity_Calculation_Configuration_Text = New MKNetDXLib.ctl_MKDXLabel() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_Main.SuspendLayout() + CType(Me.grd_Main, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_Main, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Main, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tcl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Main.SuspendLayout() + Me.tpg_001_Platform.SuspendLayout() + CType(Me.pnl_001_Platform, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_001_Platform.SuspendLayout() + CType(Me.pnl_001_Platform_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_001_Platform_Details.SuspendLayout() + Me.tpg_002_MobyRank.SuspendLayout() + CType(Me.pnl_002_MobyRank, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_002_MobyRank.SuspendLayout() + CType(Me.pnl_002_MobyRank_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_002_MobyRank_Details.SuspendLayout() + Me.tpg_003_MobyScore.SuspendLayout() + CType(Me.pnl_003_MobyScore, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_003_MobyScore.SuspendLayout() + CType(Me.pnl_003_MobyScore_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_003_MobyScore_Details.SuspendLayout() + Me.tpg_004_Publisher.SuspendLayout() + CType(Me.pnl_004_Publisher, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_004_Publisher.SuspendLayout() + CType(Me.pnl_004_Publisher_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_004_Publisher_Details.SuspendLayout() + Me.tpg_005_Developer.SuspendLayout() + CType(Me.pnl_005_Developer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_005_Developer.SuspendLayout() + CType(Me.pnl_005_Developer_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_005_Developer_Details.SuspendLayout() + Me.tpg_006_Year.SuspendLayout() + CType(Me.pnl_006_Year, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_006_Year.SuspendLayout() + CType(Me.pnl_006_Year_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_006_Year_Details.SuspendLayout() + Me.tpg_101_Basic_Genres.SuspendLayout() + Me.tpg_102_Perspectives.SuspendLayout() + Me.tpg_107_Visual_Presentation.SuspendLayout() + Me.tpg_108_Gameplay.SuspendLayout() + Me.tpg_109_Pacing.SuspendLayout() + Me.tpg_110_Narrative_Theme_Topic.SuspendLayout() + Me.tpg_111_Setting.SuspendLayout() + Me.tpg_103_Sports_Themes.SuspendLayout() + Me.tpg_112_Vehicular_Themes.SuspendLayout() + Me.tpg_105_Educational_Categories.SuspendLayout() + Me.tpg_113_Interface_Control.SuspendLayout() + Me.tpg_114_DLC_Addon.SuspendLayout() + Me.tpg_115_Special_Edition.SuspendLayout() + Me.tpg_106_Other_Attributes.SuspendLayout() + Me.tpg_201_MinPlayers.SuspendLayout() + CType(Me.pnl_201_MinPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_201_MinPlayers.SuspendLayout() + CType(Me.pnl_201_MinPlayers_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_201_MinPlayers_Details.SuspendLayout() + Me.tpg_202_MaxPlayers.SuspendLayout() + CType(Me.pnl_202_MaxPlayers, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_202_MaxPlayers.SuspendLayout() + CType(Me.pnl_202_MaxPlayers_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_202_MaxPlayers_Details.SuspendLayout() + Me.tpg_203_AgeO.SuspendLayout() + CType(Me.pnl_203_AgeO, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_203_AgeO.SuspendLayout() + CType(Me.pnl_203_AgeO_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_203_AgeO_Details.SuspendLayout() + Me.tpg_204_AgeP.SuspendLayout() + CType(Me.pnl_204_AgeP, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_204_AgeP.SuspendLayout() + CType(Me.pnl_204_AgeP_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_204_AgeP_Details.SuspendLayout() + Me.tpg_205_Rating_Descriptors.SuspendLayout() + CType(Me.pnl_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_205_Rating_Descriptors.SuspendLayout() + CType(Me.pnl_205_Rating_Descriptors_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_205_Rating_Descriptors_Details.SuspendLayout() + Me.tlp_205_Rating_Descriptors.SuspendLayout() + CType(Me.gb_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_205_Rating_Descriptors_AB.SuspendLayout() + CType(Me.grd_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_205_Rating_Descriptors_B.SuspendLayout() + CType(Me.grd_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_205_Rating_Descriptors_A.SuspendLayout() + CType(Me.grd_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_207_Multiplayer_Attributes.SuspendLayout() + CType(Me.pnl_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_207_Multiplayer_Attributes.SuspendLayout() + CType(Me.pnl_207_Multiplayer_Attributes_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_207_Multiplayer_Attributes_Details.SuspendLayout() + Me.tlp_207_Multiplayer_Attributes.SuspendLayout() + CType(Me.gb_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_207_Multiplayer_Attributes_AB.SuspendLayout() + CType(Me.grd_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_207_Multiplayer_Attributes_B.SuspendLayout() + CType(Me.grd_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_207_Multiplayer_Attributes_A.SuspendLayout() + CType(Me.grd_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_206_Other_Attributes.SuspendLayout() + CType(Me.pnl_206_Other_Attributes, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_206_Other_Attributes.SuspendLayout() + CType(Me.pnl_206_Other_Attributes_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_206_Other_Attributes_Details.SuspendLayout() + Me.tlp_206_Other_Attributes.SuspendLayout() + CType(Me.gb_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_206_Other_Attributes_AB.SuspendLayout() + CType(Me.grd_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_206_Other_Attributes_B.SuspendLayout() + CType(Me.grd_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_206_Other_Attributes_A.SuspendLayout() + CType(Me.grd_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_301_Group_Membership.SuspendLayout() + CType(Me.pnl_301_Group_Membership, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_301_Group_Membership.SuspendLayout() + CType(Me.pnl_301_Group_Membership_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_301_Group_Membership_Details.SuspendLayout() + Me.tlp_301_Group_Membership.SuspendLayout() + CType(Me.gb_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_301_Group_Membership_AB.SuspendLayout() + CType(Me.grd_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_301_Group_Membership_B.SuspendLayout() + CType(Me.grd_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_301_Group_Membership_A.SuspendLayout() + CType(Me.grd_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_401_Staff.SuspendLayout() + CType(Me.pnl_401_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_401_Staff.SuspendLayout() + CType(Me.pnl_401_Staff_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_401_Staff_Details.SuspendLayout() + Me.tlp_401_Staff.SuspendLayout() + CType(Me.gb_401_Staff_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_401_Staff_AB.SuspendLayout() + CType(Me.grd_401_Staff_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_401_Staff_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_401_Staff_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_401_Staff_B.SuspendLayout() + CType(Me.grd_401_Staff_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_401_Staff_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_401_Staff_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_401_Staff_A.SuspendLayout() + CType(Me.grd_401_Staff_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_401_Staff_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'splt_Main + ' + Me.splt_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.splt_Main.Location = New System.Drawing.Point(3, 96) + Me.splt_Main.Name = "splt_Main" + Me.splt_Main.Panel1.Controls.Add(Me.grd_Main) + Me.splt_Main.Panel1.Text = "Panel1" + Me.splt_Main.Panel2.Controls.Add(Me.tcl_Main) + Me.splt_Main.Panel2.Text = "Panel2" + Me.splt_Main.Size = New System.Drawing.Size(778, 502) + Me.splt_Main.SplitterPosition = 384 + Me.splt_Main.TabIndex = 0 + Me.splt_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'grd_Main + ' + Me.grd_Main.DataSource = Me.BTA_Main + Me.grd_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Main.Location = New System.Drawing.Point(0, 0) + Me.grd_Main.MainView = Me.gv_Main + Me.grd_Main.Name = "grd_Main" + Me.grd_Main.Size = New System.Drawing.Size(384, 502) + Me.grd_Main.TabIndex = 0 + Me.grd_Main.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Main}) + ' + 'BTA_Main + ' + Me.BTA_Main.AllowDelete = True + Me.BTA_Main.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Main.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Main.Connection = Nothing + Me.BTA_Main.DSStream = CType(resources.GetObject("BTA_Main.DSStream"), System.IO.MemoryStream) + Me.BTA_Main.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_Main.FillString = resources.GetString("BTA_Main.FillString") + Me.BTA_Main.Position = 0 + Me.BTA_Main.Transaction = Nothing + Me.BTA_Main.UpdateTablesStream = CType(resources.GetObject("BTA_Main.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'gv_Main + ' + Me.gv_Main.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colFeature, Me.colScore, Me.colWeight, Me.colWeighted_Score}) + Me.gv_Main.GridControl = Me.grd_Main + Me.gv_Main.Name = "gv_Main" + Me.gv_Main.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Main.OptionsView.ColumnAutoWidth = False + Me.gv_Main.OptionsView.ShowFooter = True + Me.gv_Main.OptionsView.ShowGroupPanel = False + Me.gv_Main.OptionsView.ShowIndicator = False + ' + 'colFeature + ' + Me.colFeature.FieldName = "Feature" + Me.colFeature.Name = "colFeature" + Me.colFeature.OptionsColumn.AllowEdit = False + Me.colFeature.OptionsColumn.ReadOnly = True + Me.colFeature.Visible = True + Me.colFeature.VisibleIndex = 0 + Me.colFeature.Width = 141 + ' + 'colScore + ' + Me.colScore.AppearanceCell.Options.UseTextOptions = True + Me.colScore.AppearanceCell.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.colScore.FieldName = "Score" + Me.colScore.Name = "colScore" + Me.colScore.OptionsColumn.AllowEdit = False + Me.colScore.OptionsColumn.ReadOnly = True + Me.colScore.Visible = True + Me.colScore.VisibleIndex = 1 + Me.colScore.Width = 57 + ' + 'colWeight + ' + Me.colWeight.FieldName = "Weight" + Me.colWeight.Name = "colWeight" + Me.colWeight.OptionsColumn.AllowEdit = False + Me.colWeight.OptionsColumn.ReadOnly = True + Me.colWeight.Summary.AddRange(New DevExpress.XtraGrid.GridSummaryItem() {New DevExpress.XtraGrid.GridColumnSummaryItem(DevExpress.Data.SummaryItemType.Custom, "Weight", "∑={0:#.##}")}) + Me.colWeight.Visible = True + Me.colWeight.VisibleIndex = 2 + Me.colWeight.Width = 63 + ' + 'colWeighted_Score + ' + Me.colWeighted_Score.Caption = "Weighted Score" + Me.colWeighted_Score.FieldName = "Weighted_Score" + Me.colWeighted_Score.Name = "colWeighted_Score" + Me.colWeighted_Score.OptionsColumn.AllowEdit = False + Me.colWeighted_Score.OptionsColumn.ReadOnly = True + Me.colWeighted_Score.Summary.AddRange(New DevExpress.XtraGrid.GridSummaryItem() {New DevExpress.XtraGrid.GridColumnSummaryItem(DevExpress.Data.SummaryItemType.Sum, "Weighted_Score", "∑={0:#.##}")}) + Me.colWeighted_Score.Visible = True + Me.colWeighted_Score.VisibleIndex = 3 + Me.colWeighted_Score.Width = 96 + ' + 'tcl_Main + ' + Me.tcl_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_Main.Location = New System.Drawing.Point(0, 0) + Me.tcl_Main.Name = "tcl_Main" + Me.tcl_Main.SelectedTabPage = Me.tpg_001_Platform + Me.tcl_Main.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] + Me.tcl_Main.Size = New System.Drawing.Size(389, 502) + Me.tcl_Main.TabIndex = 0 + Me.tcl_Main.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_001_Platform, Me.tpg_002_MobyRank, Me.tpg_003_MobyScore, Me.tpg_004_Publisher, Me.tpg_005_Developer, Me.tpg_006_Year, Me.tpg_101_Basic_Genres, Me.tpg_102_Perspectives, Me.tpg_107_Visual_Presentation, Me.tpg_108_Gameplay, Me.tpg_109_Pacing, Me.tpg_110_Narrative_Theme_Topic, Me.tpg_111_Setting, Me.tpg_103_Sports_Themes, Me.tpg_112_Vehicular_Themes, Me.tpg_105_Educational_Categories, Me.tpg_113_Interface_Control, Me.tpg_114_DLC_Addon, Me.tpg_115_Special_Edition, Me.tpg_106_Other_Attributes, Me.tpg_201_MinPlayers, Me.tpg_202_MaxPlayers, Me.tpg_203_AgeO, Me.tpg_204_AgeP, Me.tpg_205_Rating_Descriptors, Me.tpg_207_Multiplayer_Attributes, Me.tpg_206_Other_Attributes, Me.tpg_301_Group_Membership, Me.tpg_401_Staff}) + ' + 'tpg_001_Platform + ' + Me.tpg_001_Platform.Controls.Add(Me.pnl_001_Platform) + Me.tpg_001_Platform.Name = "tpg_001_Platform" + Me.tpg_001_Platform.Size = New System.Drawing.Size(383, 474) + Me.tpg_001_Platform.Text = "001_Platform" + ' + 'pnl_001_Platform + ' + Me.pnl_001_Platform.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_001_Platform.Controls.Add(Me.pnl_001_Platform_Details) + Me.pnl_001_Platform.Controls.Add(Me.lbl_001_Platform_Explanation) + Me.pnl_001_Platform.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_001_Platform.Location = New System.Drawing.Point(0, 0) + Me.pnl_001_Platform.Name = "pnl_001_Platform" + Me.pnl_001_Platform.Size = New System.Drawing.Size(383, 474) + Me.pnl_001_Platform.TabIndex = 8 + ' + 'pnl_001_Platform_Details + ' + Me.pnl_001_Platform_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_Weight_001_Platform) + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_001_Platform_A) + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_001_Platform_B) + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_Weight_001_Platform_Text) + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_001_Platform_A_Text) + Me.pnl_001_Platform_Details.Controls.Add(Me.lbl_001_Platform_B_Text) + Me.pnl_001_Platform_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_001_Platform_Details.Location = New System.Drawing.Point(0, 19) + Me.pnl_001_Platform_Details.Name = "pnl_001_Platform_Details" + Me.pnl_001_Platform_Details.Size = New System.Drawing.Size(383, 455) + Me.pnl_001_Platform_Details.TabIndex = 1 + ' + 'lbl_Weight_001_Platform + ' + Me.lbl_Weight_001_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_001_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_001_Platform.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_001_Platform.MKBoundControl1 = Nothing + Me.lbl_Weight_001_Platform.MKBoundControl2 = Nothing + Me.lbl_Weight_001_Platform.MKBoundControl3 = Nothing + Me.lbl_Weight_001_Platform.MKBoundControl4 = Nothing + Me.lbl_Weight_001_Platform.MKBoundControl5 = Nothing + Me.lbl_Weight_001_Platform.Name = "lbl_Weight_001_Platform" + Me.lbl_Weight_001_Platform.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_001_Platform.TabIndex = 7 + Me.lbl_Weight_001_Platform.Text = "Weight:" + ' + 'lbl_001_Platform_A + ' + Me.lbl_001_Platform_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_001_Platform_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_001_Platform_A.MKBoundControl1 = Nothing + Me.lbl_001_Platform_A.MKBoundControl2 = Nothing + Me.lbl_001_Platform_A.MKBoundControl3 = Nothing + Me.lbl_001_Platform_A.MKBoundControl4 = Nothing + Me.lbl_001_Platform_A.MKBoundControl5 = Nothing + Me.lbl_001_Platform_A.Name = "lbl_001_Platform_A" + Me.lbl_001_Platform_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_001_Platform_A.TabIndex = 7 + Me.lbl_001_Platform_A.Text = "Platform of Game A:" + ' + 'lbl_001_Platform_B + ' + Me.lbl_001_Platform_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_001_Platform_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_001_Platform_B.MKBoundControl1 = Nothing + Me.lbl_001_Platform_B.MKBoundControl2 = Nothing + Me.lbl_001_Platform_B.MKBoundControl3 = Nothing + Me.lbl_001_Platform_B.MKBoundControl4 = Nothing + Me.lbl_001_Platform_B.MKBoundControl5 = Nothing + Me.lbl_001_Platform_B.Name = "lbl_001_Platform_B" + Me.lbl_001_Platform_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_001_Platform_B.TabIndex = 7 + Me.lbl_001_Platform_B.Text = "Platform of Game B:" + ' + 'lbl_Weight_001_Platform_Text + ' + Me.lbl_Weight_001_Platform_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_001_Platform_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_001_Platform_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_001_Platform_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_001_Platform_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_001_Platform_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_001_Platform_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_001_Platform_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_001_Platform_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_001_Platform_Text.Name = "lbl_Weight_001_Platform_Text" + Me.lbl_Weight_001_Platform_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_001_Platform_Text.TabIndex = 7 + ' + 'lbl_001_Platform_A_Text + ' + Me.lbl_001_Platform_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_001_Platform_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_001_Platform_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_001_Platform_A_Text.MKBoundControl1 = Nothing + Me.lbl_001_Platform_A_Text.MKBoundControl2 = Nothing + Me.lbl_001_Platform_A_Text.MKBoundControl3 = Nothing + Me.lbl_001_Platform_A_Text.MKBoundControl4 = Nothing + Me.lbl_001_Platform_A_Text.MKBoundControl5 = Nothing + Me.lbl_001_Platform_A_Text.Name = "lbl_001_Platform_A_Text" + Me.lbl_001_Platform_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_001_Platform_A_Text.TabIndex = 7 + ' + 'lbl_001_Platform_B_Text + ' + Me.lbl_001_Platform_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_001_Platform_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_001_Platform_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_001_Platform_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_001_Platform_B_Text.MKBoundControl1 = Nothing + Me.lbl_001_Platform_B_Text.MKBoundControl2 = Nothing + Me.lbl_001_Platform_B_Text.MKBoundControl3 = Nothing + Me.lbl_001_Platform_B_Text.MKBoundControl4 = Nothing + Me.lbl_001_Platform_B_Text.MKBoundControl5 = Nothing + Me.lbl_001_Platform_B_Text.Name = "lbl_001_Platform_B_Text" + Me.lbl_001_Platform_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_001_Platform_B_Text.TabIndex = 7 + ' + 'lbl_001_Platform_Explanation + ' + Me.lbl_001_Platform_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_001_Platform_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_001_Platform_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_001_Platform_Explanation.MKBoundControl1 = Nothing + Me.lbl_001_Platform_Explanation.MKBoundControl2 = Nothing + Me.lbl_001_Platform_Explanation.MKBoundControl3 = Nothing + Me.lbl_001_Platform_Explanation.MKBoundControl4 = Nothing + Me.lbl_001_Platform_Explanation.MKBoundControl5 = Nothing + Me.lbl_001_Platform_Explanation.Name = "lbl_001_Platform_Explanation" + Me.lbl_001_Platform_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_001_Platform_Explanation.Size = New System.Drawing.Size(383, 19) + Me.lbl_001_Platform_Explanation.TabIndex = 0 + Me.lbl_001_Platform_Explanation.Text = "If both platforms match, a similarity score of 100 is applied, else 0." + ' + 'tpg_002_MobyRank + ' + Me.tpg_002_MobyRank.Controls.Add(Me.pnl_002_MobyRank) + Me.tpg_002_MobyRank.Name = "tpg_002_MobyRank" + Me.tpg_002_MobyRank.Size = New System.Drawing.Size(383, 474) + Me.tpg_002_MobyRank.Text = "002_MobyRank" + ' + 'pnl_002_MobyRank + ' + Me.pnl_002_MobyRank.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_002_MobyRank.Controls.Add(Me.pnl_002_MobyRank_Details) + Me.pnl_002_MobyRank.Controls.Add(Me.lbl_002_MobyRank_Explanation) + Me.pnl_002_MobyRank.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_002_MobyRank.Location = New System.Drawing.Point(0, 0) + Me.pnl_002_MobyRank.Name = "pnl_002_MobyRank" + Me.pnl_002_MobyRank.Size = New System.Drawing.Size(383, 474) + Me.pnl_002_MobyRank.TabIndex = 9 + ' + 'pnl_002_MobyRank_Details + ' + Me.pnl_002_MobyRank_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_Weight_002_MobyRank) + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_002_MobyRank_A) + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_002_MobyRank_B) + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_Weight_002_MobyRank_Text) + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_002_MobyRank_A_Text) + Me.pnl_002_MobyRank_Details.Controls.Add(Me.lbl_002_MobyRank_B_Text) + Me.pnl_002_MobyRank_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_002_MobyRank_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_002_MobyRank_Details.Name = "pnl_002_MobyRank_Details" + Me.pnl_002_MobyRank_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_002_MobyRank_Details.TabIndex = 1 + ' + 'lbl_Weight_002_MobyRank + ' + Me.lbl_Weight_002_MobyRank.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_002_MobyRank.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_002_MobyRank.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_002_MobyRank.MKBoundControl1 = Nothing + Me.lbl_Weight_002_MobyRank.MKBoundControl2 = Nothing + Me.lbl_Weight_002_MobyRank.MKBoundControl3 = Nothing + Me.lbl_Weight_002_MobyRank.MKBoundControl4 = Nothing + Me.lbl_Weight_002_MobyRank.MKBoundControl5 = Nothing + Me.lbl_Weight_002_MobyRank.Name = "lbl_Weight_002_MobyRank" + Me.lbl_Weight_002_MobyRank.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_002_MobyRank.TabIndex = 7 + Me.lbl_Weight_002_MobyRank.Text = "Weight:" + ' + 'lbl_002_MobyRank_A + ' + Me.lbl_002_MobyRank_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_002_MobyRank_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_002_MobyRank_A.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_A.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_A.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_A.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_A.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_A.Name = "lbl_002_MobyRank_A" + Me.lbl_002_MobyRank_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_002_MobyRank_A.TabIndex = 7 + Me.lbl_002_MobyRank_A.Text = "Rank of Game A:" + ' + 'lbl_002_MobyRank_B + ' + Me.lbl_002_MobyRank_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_002_MobyRank_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_002_MobyRank_B.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_B.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_B.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_B.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_B.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_B.Name = "lbl_002_MobyRank_B" + Me.lbl_002_MobyRank_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_002_MobyRank_B.TabIndex = 7 + Me.lbl_002_MobyRank_B.Text = "Rank of Game B:" + ' + 'lbl_Weight_002_MobyRank_Text + ' + Me.lbl_Weight_002_MobyRank_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_002_MobyRank_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_002_MobyRank_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_002_MobyRank_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_002_MobyRank_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_002_MobyRank_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_002_MobyRank_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_002_MobyRank_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_002_MobyRank_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_002_MobyRank_Text.Name = "lbl_Weight_002_MobyRank_Text" + Me.lbl_Weight_002_MobyRank_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_002_MobyRank_Text.TabIndex = 7 + ' + 'lbl_002_MobyRank_A_Text + ' + Me.lbl_002_MobyRank_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_002_MobyRank_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_002_MobyRank_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_002_MobyRank_A_Text.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_A_Text.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_A_Text.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_A_Text.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_A_Text.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_A_Text.Name = "lbl_002_MobyRank_A_Text" + Me.lbl_002_MobyRank_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_002_MobyRank_A_Text.TabIndex = 7 + ' + 'lbl_002_MobyRank_B_Text + ' + Me.lbl_002_MobyRank_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_002_MobyRank_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_002_MobyRank_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_002_MobyRank_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_002_MobyRank_B_Text.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_B_Text.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_B_Text.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_B_Text.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_B_Text.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_B_Text.Name = "lbl_002_MobyRank_B_Text" + Me.lbl_002_MobyRank_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_002_MobyRank_B_Text.TabIndex = 7 + ' + 'lbl_002_MobyRank_Explanation + ' + Me.lbl_002_MobyRank_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_002_MobyRank_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_002_MobyRank_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_002_MobyRank_Explanation.MKBoundControl1 = Nothing + Me.lbl_002_MobyRank_Explanation.MKBoundControl2 = Nothing + Me.lbl_002_MobyRank_Explanation.MKBoundControl3 = Nothing + Me.lbl_002_MobyRank_Explanation.MKBoundControl4 = Nothing + Me.lbl_002_MobyRank_Explanation.MKBoundControl5 = Nothing + Me.lbl_002_MobyRank_Explanation.Name = "lbl_002_MobyRank_Explanation" + Me.lbl_002_MobyRank_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_002_MobyRank_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_002_MobyRank_Explanation.TabIndex = 0 + Me.lbl_002_MobyRank_Explanation.Text = "The similarity score of 100 is reduced by the difference between the ranks of bot" & + "h games." + ' + 'tpg_003_MobyScore + ' + Me.tpg_003_MobyScore.Controls.Add(Me.pnl_003_MobyScore) + Me.tpg_003_MobyScore.Name = "tpg_003_MobyScore" + Me.tpg_003_MobyScore.Size = New System.Drawing.Size(383, 474) + Me.tpg_003_MobyScore.Text = "003_MobyScore" + ' + 'pnl_003_MobyScore + ' + Me.pnl_003_MobyScore.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_003_MobyScore.Controls.Add(Me.pnl_003_MobyScore_Details) + Me.pnl_003_MobyScore.Controls.Add(Me.lbl_003_MobyScore_Explanation) + Me.pnl_003_MobyScore.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_003_MobyScore.Location = New System.Drawing.Point(0, 0) + Me.pnl_003_MobyScore.Name = "pnl_003_MobyScore" + Me.pnl_003_MobyScore.Size = New System.Drawing.Size(383, 474) + Me.pnl_003_MobyScore.TabIndex = 10 + ' + 'pnl_003_MobyScore_Details + ' + Me.pnl_003_MobyScore_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_Weight_003_MobyScore) + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_003_MobyScore_A) + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_003_MobyScore_B) + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_Weight_003_MobyScore_Text) + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_003_MobyScore_A_Text) + Me.pnl_003_MobyScore_Details.Controls.Add(Me.lbl_003_MobyScore_B_Text) + Me.pnl_003_MobyScore_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_003_MobyScore_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_003_MobyScore_Details.Name = "pnl_003_MobyScore_Details" + Me.pnl_003_MobyScore_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_003_MobyScore_Details.TabIndex = 1 + ' + 'lbl_Weight_003_MobyScore + ' + Me.lbl_Weight_003_MobyScore.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_003_MobyScore.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_003_MobyScore.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_003_MobyScore.MKBoundControl1 = Nothing + Me.lbl_Weight_003_MobyScore.MKBoundControl2 = Nothing + Me.lbl_Weight_003_MobyScore.MKBoundControl3 = Nothing + Me.lbl_Weight_003_MobyScore.MKBoundControl4 = Nothing + Me.lbl_Weight_003_MobyScore.MKBoundControl5 = Nothing + Me.lbl_Weight_003_MobyScore.Name = "lbl_Weight_003_MobyScore" + Me.lbl_Weight_003_MobyScore.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_003_MobyScore.TabIndex = 7 + Me.lbl_Weight_003_MobyScore.Text = "Weight:" + ' + 'lbl_003_MobyScore_A + ' + Me.lbl_003_MobyScore_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_003_MobyScore_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_003_MobyScore_A.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_A.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_A.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_A.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_A.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_A.Name = "lbl_003_MobyScore_A" + Me.lbl_003_MobyScore_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_003_MobyScore_A.TabIndex = 7 + Me.lbl_003_MobyScore_A.Text = "Score of Game A:" + ' + 'lbl_003_MobyScore_B + ' + Me.lbl_003_MobyScore_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_003_MobyScore_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_003_MobyScore_B.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_B.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_B.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_B.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_B.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_B.Name = "lbl_003_MobyScore_B" + Me.lbl_003_MobyScore_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_003_MobyScore_B.TabIndex = 7 + Me.lbl_003_MobyScore_B.Text = "Score of Game B:" + ' + 'lbl_Weight_003_MobyScore_Text + ' + Me.lbl_Weight_003_MobyScore_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_003_MobyScore_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_003_MobyScore_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_003_MobyScore_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_003_MobyScore_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_003_MobyScore_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_003_MobyScore_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_003_MobyScore_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_003_MobyScore_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_003_MobyScore_Text.Name = "lbl_Weight_003_MobyScore_Text" + Me.lbl_Weight_003_MobyScore_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_003_MobyScore_Text.TabIndex = 7 + ' + 'lbl_003_MobyScore_A_Text + ' + Me.lbl_003_MobyScore_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_003_MobyScore_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_003_MobyScore_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_003_MobyScore_A_Text.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_A_Text.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_A_Text.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_A_Text.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_A_Text.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_A_Text.Name = "lbl_003_MobyScore_A_Text" + Me.lbl_003_MobyScore_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_003_MobyScore_A_Text.TabIndex = 7 + ' + 'lbl_003_MobyScore_B_Text + ' + Me.lbl_003_MobyScore_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_003_MobyScore_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_003_MobyScore_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_003_MobyScore_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_003_MobyScore_B_Text.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_B_Text.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_B_Text.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_B_Text.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_B_Text.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_B_Text.Name = "lbl_003_MobyScore_B_Text" + Me.lbl_003_MobyScore_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_003_MobyScore_B_Text.TabIndex = 7 + ' + 'lbl_003_MobyScore_Explanation + ' + Me.lbl_003_MobyScore_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_003_MobyScore_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_003_MobyScore_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_003_MobyScore_Explanation.MKBoundControl1 = Nothing + Me.lbl_003_MobyScore_Explanation.MKBoundControl2 = Nothing + Me.lbl_003_MobyScore_Explanation.MKBoundControl3 = Nothing + Me.lbl_003_MobyScore_Explanation.MKBoundControl4 = Nothing + Me.lbl_003_MobyScore_Explanation.MKBoundControl5 = Nothing + Me.lbl_003_MobyScore_Explanation.Name = "lbl_003_MobyScore_Explanation" + Me.lbl_003_MobyScore_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_003_MobyScore_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_003_MobyScore_Explanation.TabIndex = 0 + Me.lbl_003_MobyScore_Explanation.Text = "The similarity score of 100 is reduced by 20 times the difference between the (mo" & + "bygames users) score of both games." + ' + 'tpg_004_Publisher + ' + Me.tpg_004_Publisher.Controls.Add(Me.pnl_004_Publisher) + Me.tpg_004_Publisher.Name = "tpg_004_Publisher" + Me.tpg_004_Publisher.Size = New System.Drawing.Size(383, 474) + Me.tpg_004_Publisher.Text = "004_Publisher" + ' + 'pnl_004_Publisher + ' + Me.pnl_004_Publisher.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_004_Publisher.Controls.Add(Me.pnl_004_Publisher_Details) + Me.pnl_004_Publisher.Controls.Add(Me.lbl_004_Publisher_Explanation) + Me.pnl_004_Publisher.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_004_Publisher.Location = New System.Drawing.Point(0, 0) + Me.pnl_004_Publisher.Name = "pnl_004_Publisher" + Me.pnl_004_Publisher.Size = New System.Drawing.Size(383, 474) + Me.pnl_004_Publisher.TabIndex = 9 + ' + 'pnl_004_Publisher_Details + ' + Me.pnl_004_Publisher_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_Weight_004_Publisher) + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_004_Publisher_A) + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_004_Publisher_B) + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_Weight_004_Publisher_Text) + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_004_Publisher_A_Text) + Me.pnl_004_Publisher_Details.Controls.Add(Me.lbl_004_Publisher_B_Text) + Me.pnl_004_Publisher_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_004_Publisher_Details.Location = New System.Drawing.Point(0, 19) + Me.pnl_004_Publisher_Details.Name = "pnl_004_Publisher_Details" + Me.pnl_004_Publisher_Details.Size = New System.Drawing.Size(383, 455) + Me.pnl_004_Publisher_Details.TabIndex = 1 + ' + 'lbl_Weight_004_Publisher + ' + Me.lbl_Weight_004_Publisher.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_004_Publisher.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_004_Publisher.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_004_Publisher.MKBoundControl1 = Nothing + Me.lbl_Weight_004_Publisher.MKBoundControl2 = Nothing + Me.lbl_Weight_004_Publisher.MKBoundControl3 = Nothing + Me.lbl_Weight_004_Publisher.MKBoundControl4 = Nothing + Me.lbl_Weight_004_Publisher.MKBoundControl5 = Nothing + Me.lbl_Weight_004_Publisher.Name = "lbl_Weight_004_Publisher" + Me.lbl_Weight_004_Publisher.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_004_Publisher.TabIndex = 7 + Me.lbl_Weight_004_Publisher.Text = "Weight:" + ' + 'lbl_004_Publisher_A + ' + Me.lbl_004_Publisher_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_004_Publisher_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_004_Publisher_A.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_A.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_A.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_A.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_A.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_A.Name = "lbl_004_Publisher_A" + Me.lbl_004_Publisher_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_004_Publisher_A.TabIndex = 7 + Me.lbl_004_Publisher_A.Text = "Publisher of Game A:" + ' + 'lbl_004_Publisher_B + ' + Me.lbl_004_Publisher_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_004_Publisher_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_004_Publisher_B.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_B.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_B.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_B.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_B.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_B.Name = "lbl_004_Publisher_B" + Me.lbl_004_Publisher_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_004_Publisher_B.TabIndex = 7 + Me.lbl_004_Publisher_B.Text = "Publisher of Game B:" + ' + 'lbl_Weight_004_Publisher_Text + ' + Me.lbl_Weight_004_Publisher_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_004_Publisher_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_004_Publisher_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_004_Publisher_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_004_Publisher_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_004_Publisher_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_004_Publisher_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_004_Publisher_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_004_Publisher_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_004_Publisher_Text.Name = "lbl_Weight_004_Publisher_Text" + Me.lbl_Weight_004_Publisher_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_004_Publisher_Text.TabIndex = 7 + ' + 'lbl_004_Publisher_A_Text + ' + Me.lbl_004_Publisher_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_004_Publisher_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_004_Publisher_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_004_Publisher_A_Text.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_A_Text.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_A_Text.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_A_Text.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_A_Text.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_A_Text.Name = "lbl_004_Publisher_A_Text" + Me.lbl_004_Publisher_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_004_Publisher_A_Text.TabIndex = 7 + ' + 'lbl_004_Publisher_B_Text + ' + Me.lbl_004_Publisher_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_004_Publisher_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_004_Publisher_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_004_Publisher_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_004_Publisher_B_Text.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_B_Text.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_B_Text.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_B_Text.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_B_Text.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_B_Text.Name = "lbl_004_Publisher_B_Text" + Me.lbl_004_Publisher_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_004_Publisher_B_Text.TabIndex = 7 + ' + 'lbl_004_Publisher_Explanation + ' + Me.lbl_004_Publisher_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_004_Publisher_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_004_Publisher_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_004_Publisher_Explanation.MKBoundControl1 = Nothing + Me.lbl_004_Publisher_Explanation.MKBoundControl2 = Nothing + Me.lbl_004_Publisher_Explanation.MKBoundControl3 = Nothing + Me.lbl_004_Publisher_Explanation.MKBoundControl4 = Nothing + Me.lbl_004_Publisher_Explanation.MKBoundControl5 = Nothing + Me.lbl_004_Publisher_Explanation.Name = "lbl_004_Publisher_Explanation" + Me.lbl_004_Publisher_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_004_Publisher_Explanation.Size = New System.Drawing.Size(383, 19) + Me.lbl_004_Publisher_Explanation.TabIndex = 0 + Me.lbl_004_Publisher_Explanation.Text = "If both publishers match, a similarity score of 100 is applied, else 0." + ' + 'tpg_005_Developer + ' + Me.tpg_005_Developer.Controls.Add(Me.pnl_005_Developer) + Me.tpg_005_Developer.Name = "tpg_005_Developer" + Me.tpg_005_Developer.Size = New System.Drawing.Size(383, 474) + Me.tpg_005_Developer.Text = "005_Developer" + ' + 'pnl_005_Developer + ' + Me.pnl_005_Developer.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_005_Developer.Controls.Add(Me.pnl_005_Developer_Details) + Me.pnl_005_Developer.Controls.Add(Me.lbl_005_Developer_Explanation) + Me.pnl_005_Developer.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_005_Developer.Location = New System.Drawing.Point(0, 0) + Me.pnl_005_Developer.Name = "pnl_005_Developer" + Me.pnl_005_Developer.Size = New System.Drawing.Size(383, 474) + Me.pnl_005_Developer.TabIndex = 10 + ' + 'pnl_005_Developer_Details + ' + Me.pnl_005_Developer_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_Weight_005_Developer) + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_005_Developer_A) + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_005_Developer_B) + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_Weight_005_Developer_Text) + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_005_Developer_A_Text) + Me.pnl_005_Developer_Details.Controls.Add(Me.lbl_005_Developer_B_Text) + Me.pnl_005_Developer_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_005_Developer_Details.Location = New System.Drawing.Point(0, 19) + Me.pnl_005_Developer_Details.Name = "pnl_005_Developer_Details" + Me.pnl_005_Developer_Details.Size = New System.Drawing.Size(383, 455) + Me.pnl_005_Developer_Details.TabIndex = 1 + ' + 'lbl_Weight_005_Developer + ' + Me.lbl_Weight_005_Developer.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_005_Developer.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_005_Developer.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_005_Developer.MKBoundControl1 = Nothing + Me.lbl_Weight_005_Developer.MKBoundControl2 = Nothing + Me.lbl_Weight_005_Developer.MKBoundControl3 = Nothing + Me.lbl_Weight_005_Developer.MKBoundControl4 = Nothing + Me.lbl_Weight_005_Developer.MKBoundControl5 = Nothing + Me.lbl_Weight_005_Developer.Name = "lbl_Weight_005_Developer" + Me.lbl_Weight_005_Developer.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_005_Developer.TabIndex = 7 + Me.lbl_Weight_005_Developer.Text = "Weight:" + ' + 'lbl_005_Developer_A + ' + Me.lbl_005_Developer_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_005_Developer_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_005_Developer_A.MKBoundControl1 = Nothing + Me.lbl_005_Developer_A.MKBoundControl2 = Nothing + Me.lbl_005_Developer_A.MKBoundControl3 = Nothing + Me.lbl_005_Developer_A.MKBoundControl4 = Nothing + Me.lbl_005_Developer_A.MKBoundControl5 = Nothing + Me.lbl_005_Developer_A.Name = "lbl_005_Developer_A" + Me.lbl_005_Developer_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_005_Developer_A.TabIndex = 7 + Me.lbl_005_Developer_A.Text = "Developer of Game A:" + ' + 'lbl_005_Developer_B + ' + Me.lbl_005_Developer_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_005_Developer_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_005_Developer_B.MKBoundControl1 = Nothing + Me.lbl_005_Developer_B.MKBoundControl2 = Nothing + Me.lbl_005_Developer_B.MKBoundControl3 = Nothing + Me.lbl_005_Developer_B.MKBoundControl4 = Nothing + Me.lbl_005_Developer_B.MKBoundControl5 = Nothing + Me.lbl_005_Developer_B.Name = "lbl_005_Developer_B" + Me.lbl_005_Developer_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_005_Developer_B.TabIndex = 7 + Me.lbl_005_Developer_B.Text = "Developer of Game B:" + ' + 'lbl_Weight_005_Developer_Text + ' + Me.lbl_Weight_005_Developer_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_005_Developer_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_005_Developer_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_005_Developer_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_005_Developer_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_005_Developer_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_005_Developer_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_005_Developer_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_005_Developer_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_005_Developer_Text.Name = "lbl_Weight_005_Developer_Text" + Me.lbl_Weight_005_Developer_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_005_Developer_Text.TabIndex = 7 + ' + 'lbl_005_Developer_A_Text + ' + Me.lbl_005_Developer_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_005_Developer_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_005_Developer_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_005_Developer_A_Text.MKBoundControl1 = Nothing + Me.lbl_005_Developer_A_Text.MKBoundControl2 = Nothing + Me.lbl_005_Developer_A_Text.MKBoundControl3 = Nothing + Me.lbl_005_Developer_A_Text.MKBoundControl4 = Nothing + Me.lbl_005_Developer_A_Text.MKBoundControl5 = Nothing + Me.lbl_005_Developer_A_Text.Name = "lbl_005_Developer_A_Text" + Me.lbl_005_Developer_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_005_Developer_A_Text.TabIndex = 7 + ' + 'lbl_005_Developer_B_Text + ' + Me.lbl_005_Developer_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_005_Developer_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_005_Developer_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_005_Developer_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_005_Developer_B_Text.MKBoundControl1 = Nothing + Me.lbl_005_Developer_B_Text.MKBoundControl2 = Nothing + Me.lbl_005_Developer_B_Text.MKBoundControl3 = Nothing + Me.lbl_005_Developer_B_Text.MKBoundControl4 = Nothing + Me.lbl_005_Developer_B_Text.MKBoundControl5 = Nothing + Me.lbl_005_Developer_B_Text.Name = "lbl_005_Developer_B_Text" + Me.lbl_005_Developer_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_005_Developer_B_Text.TabIndex = 7 + ' + 'lbl_005_Developer_Explanation + ' + Me.lbl_005_Developer_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_005_Developer_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_005_Developer_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_005_Developer_Explanation.MKBoundControl1 = Nothing + Me.lbl_005_Developer_Explanation.MKBoundControl2 = Nothing + Me.lbl_005_Developer_Explanation.MKBoundControl3 = Nothing + Me.lbl_005_Developer_Explanation.MKBoundControl4 = Nothing + Me.lbl_005_Developer_Explanation.MKBoundControl5 = Nothing + Me.lbl_005_Developer_Explanation.Name = "lbl_005_Developer_Explanation" + Me.lbl_005_Developer_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_005_Developer_Explanation.Size = New System.Drawing.Size(383, 19) + Me.lbl_005_Developer_Explanation.TabIndex = 0 + Me.lbl_005_Developer_Explanation.Text = "If both developers match, a similarity score of 100 is applied, else 0." + ' + 'tpg_006_Year + ' + Me.tpg_006_Year.Controls.Add(Me.pnl_006_Year) + Me.tpg_006_Year.Name = "tpg_006_Year" + Me.tpg_006_Year.Size = New System.Drawing.Size(383, 474) + Me.tpg_006_Year.Text = "006_Year" + ' + 'pnl_006_Year + ' + Me.pnl_006_Year.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_006_Year.Controls.Add(Me.pnl_006_Year_Details) + Me.pnl_006_Year.Controls.Add(Me.lbl_006_Year_Explanation) + Me.pnl_006_Year.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_006_Year.Location = New System.Drawing.Point(0, 0) + Me.pnl_006_Year.Name = "pnl_006_Year" + Me.pnl_006_Year.Size = New System.Drawing.Size(383, 474) + Me.pnl_006_Year.TabIndex = 11 + ' + 'pnl_006_Year_Details + ' + Me.pnl_006_Year_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_Weight_006_Year) + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_006_Year_A) + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_006_Year_B) + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_Weight_006_Year_Text) + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_006_Year_A_Text) + Me.pnl_006_Year_Details.Controls.Add(Me.lbl_006_Year_B_Text) + Me.pnl_006_Year_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_006_Year_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_006_Year_Details.Name = "pnl_006_Year_Details" + Me.pnl_006_Year_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_006_Year_Details.TabIndex = 1 + ' + 'lbl_Weight_006_Year + ' + Me.lbl_Weight_006_Year.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_006_Year.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_006_Year.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_006_Year.MKBoundControl1 = Nothing + Me.lbl_Weight_006_Year.MKBoundControl2 = Nothing + Me.lbl_Weight_006_Year.MKBoundControl3 = Nothing + Me.lbl_Weight_006_Year.MKBoundControl4 = Nothing + Me.lbl_Weight_006_Year.MKBoundControl5 = Nothing + Me.lbl_Weight_006_Year.Name = "lbl_Weight_006_Year" + Me.lbl_Weight_006_Year.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_006_Year.TabIndex = 7 + Me.lbl_Weight_006_Year.Text = "Weight:" + ' + 'lbl_006_Year_A + ' + Me.lbl_006_Year_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_006_Year_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_006_Year_A.MKBoundControl1 = Nothing + Me.lbl_006_Year_A.MKBoundControl2 = Nothing + Me.lbl_006_Year_A.MKBoundControl3 = Nothing + Me.lbl_006_Year_A.MKBoundControl4 = Nothing + Me.lbl_006_Year_A.MKBoundControl5 = Nothing + Me.lbl_006_Year_A.Name = "lbl_006_Year_A" + Me.lbl_006_Year_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_006_Year_A.TabIndex = 7 + Me.lbl_006_Year_A.Text = "Year of Game A:" + ' + 'lbl_006_Year_B + ' + Me.lbl_006_Year_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_006_Year_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_006_Year_B.MKBoundControl1 = Nothing + Me.lbl_006_Year_B.MKBoundControl2 = Nothing + Me.lbl_006_Year_B.MKBoundControl3 = Nothing + Me.lbl_006_Year_B.MKBoundControl4 = Nothing + Me.lbl_006_Year_B.MKBoundControl5 = Nothing + Me.lbl_006_Year_B.Name = "lbl_006_Year_B" + Me.lbl_006_Year_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_006_Year_B.TabIndex = 7 + Me.lbl_006_Year_B.Text = "Year of Game B:" + ' + 'lbl_Weight_006_Year_Text + ' + Me.lbl_Weight_006_Year_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_006_Year_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_006_Year_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_006_Year_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_006_Year_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_006_Year_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_006_Year_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_006_Year_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_006_Year_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_006_Year_Text.Name = "lbl_Weight_006_Year_Text" + Me.lbl_Weight_006_Year_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_006_Year_Text.TabIndex = 7 + ' + 'lbl_006_Year_A_Text + ' + Me.lbl_006_Year_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_006_Year_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_006_Year_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_006_Year_A_Text.MKBoundControl1 = Nothing + Me.lbl_006_Year_A_Text.MKBoundControl2 = Nothing + Me.lbl_006_Year_A_Text.MKBoundControl3 = Nothing + Me.lbl_006_Year_A_Text.MKBoundControl4 = Nothing + Me.lbl_006_Year_A_Text.MKBoundControl5 = Nothing + Me.lbl_006_Year_A_Text.Name = "lbl_006_Year_A_Text" + Me.lbl_006_Year_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_006_Year_A_Text.TabIndex = 7 + ' + 'lbl_006_Year_B_Text + ' + Me.lbl_006_Year_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_006_Year_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_006_Year_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_006_Year_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_006_Year_B_Text.MKBoundControl1 = Nothing + Me.lbl_006_Year_B_Text.MKBoundControl2 = Nothing + Me.lbl_006_Year_B_Text.MKBoundControl3 = Nothing + Me.lbl_006_Year_B_Text.MKBoundControl4 = Nothing + Me.lbl_006_Year_B_Text.MKBoundControl5 = Nothing + Me.lbl_006_Year_B_Text.Name = "lbl_006_Year_B_Text" + Me.lbl_006_Year_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_006_Year_B_Text.TabIndex = 7 + ' + 'lbl_006_Year_Explanation + ' + Me.lbl_006_Year_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_006_Year_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_006_Year_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_006_Year_Explanation.MKBoundControl1 = Nothing + Me.lbl_006_Year_Explanation.MKBoundControl2 = Nothing + Me.lbl_006_Year_Explanation.MKBoundControl3 = Nothing + Me.lbl_006_Year_Explanation.MKBoundControl4 = Nothing + Me.lbl_006_Year_Explanation.MKBoundControl5 = Nothing + Me.lbl_006_Year_Explanation.Name = "lbl_006_Year_Explanation" + Me.lbl_006_Year_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_006_Year_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_006_Year_Explanation.TabIndex = 0 + Me.lbl_006_Year_Explanation.Text = "The similarity score of 100 gets reduced by 10 for each 2-year difference in both" & + " years." + ' + 'tpg_101_Basic_Genres + ' + Me.tpg_101_Basic_Genres.Controls.Add(Me.ucr_101_Basic_Genres) + Me.tpg_101_Basic_Genres.Name = "tpg_101_Basic_Genres" + Me.tpg_101_Basic_Genres.Size = New System.Drawing.Size(383, 474) + Me.tpg_101_Basic_Genres.Text = "101_Basic_Genres" + ' + 'ucr_101_Basic_Genres + ' + Me.ucr_101_Basic_Genres.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_101_Basic_Genres.Location = New System.Drawing.Point(0, 0) + Me.ucr_101_Basic_Genres.Name = "ucr_101_Basic_Genres" + Me.ucr_101_Basic_Genres.Size = New System.Drawing.Size(383, 474) + Me.ucr_101_Basic_Genres.TabIndex = 1 + ' + 'tpg_102_Perspectives + ' + Me.tpg_102_Perspectives.Controls.Add(Me.ucr_102_Perspectives) + Me.tpg_102_Perspectives.Name = "tpg_102_Perspectives" + Me.tpg_102_Perspectives.Size = New System.Drawing.Size(383, 474) + Me.tpg_102_Perspectives.Text = "102_Perspectives" + ' + 'ucr_102_Perspectives + ' + Me.ucr_102_Perspectives.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_102_Perspectives.Location = New System.Drawing.Point(0, 0) + Me.ucr_102_Perspectives.Name = "ucr_102_Perspectives" + Me.ucr_102_Perspectives.Size = New System.Drawing.Size(383, 474) + Me.ucr_102_Perspectives.TabIndex = 1 + ' + 'tpg_107_Visual_Presentation + ' + Me.tpg_107_Visual_Presentation.Controls.Add(Me.ucr_107_Visual_Presentation) + Me.tpg_107_Visual_Presentation.Name = "tpg_107_Visual_Presentation" + Me.tpg_107_Visual_Presentation.Size = New System.Drawing.Size(383, 474) + Me.tpg_107_Visual_Presentation.Text = "107_Visual_Presentation" + ' + 'ucr_107_Visual_Presentation + ' + Me.ucr_107_Visual_Presentation.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_107_Visual_Presentation.Location = New System.Drawing.Point(0, 0) + Me.ucr_107_Visual_Presentation.Name = "ucr_107_Visual_Presentation" + Me.ucr_107_Visual_Presentation.Size = New System.Drawing.Size(383, 474) + Me.ucr_107_Visual_Presentation.TabIndex = 0 + ' + 'tpg_108_Gameplay + ' + Me.tpg_108_Gameplay.Controls.Add(Me.ucr_108_Gameplay) + Me.tpg_108_Gameplay.Name = "tpg_108_Gameplay" + Me.tpg_108_Gameplay.Size = New System.Drawing.Size(383, 474) + Me.tpg_108_Gameplay.Text = "108_Gameplay" + ' + 'ucr_108_Gameplay + ' + Me.ucr_108_Gameplay.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_108_Gameplay.Location = New System.Drawing.Point(0, 0) + Me.ucr_108_Gameplay.Name = "ucr_108_Gameplay" + Me.ucr_108_Gameplay.Size = New System.Drawing.Size(383, 474) + Me.ucr_108_Gameplay.TabIndex = 1 + ' + 'tpg_109_Pacing + ' + Me.tpg_109_Pacing.Controls.Add(Me.ucr_109_Pacing) + Me.tpg_109_Pacing.Name = "tpg_109_Pacing" + Me.tpg_109_Pacing.Size = New System.Drawing.Size(383, 474) + Me.tpg_109_Pacing.Text = "109_Pacing" + ' + 'ucr_109_Pacing + ' + Me.ucr_109_Pacing.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_109_Pacing.Location = New System.Drawing.Point(0, 0) + Me.ucr_109_Pacing.Name = "ucr_109_Pacing" + Me.ucr_109_Pacing.Size = New System.Drawing.Size(383, 474) + Me.ucr_109_Pacing.TabIndex = 2 + ' + 'tpg_110_Narrative_Theme_Topic + ' + Me.tpg_110_Narrative_Theme_Topic.Controls.Add(Me.ucr_110_Narrative_Theme_Topic) + Me.tpg_110_Narrative_Theme_Topic.Name = "tpg_110_Narrative_Theme_Topic" + Me.tpg_110_Narrative_Theme_Topic.Size = New System.Drawing.Size(383, 474) + Me.tpg_110_Narrative_Theme_Topic.Text = "110_Narrative_Theme_Topic" + ' + 'ucr_110_Narrative_Theme_Topic + ' + Me.ucr_110_Narrative_Theme_Topic.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_110_Narrative_Theme_Topic.Location = New System.Drawing.Point(0, 0) + Me.ucr_110_Narrative_Theme_Topic.Name = "ucr_110_Narrative_Theme_Topic" + Me.ucr_110_Narrative_Theme_Topic.Size = New System.Drawing.Size(383, 474) + Me.ucr_110_Narrative_Theme_Topic.TabIndex = 2 + ' + 'tpg_111_Setting + ' + Me.tpg_111_Setting.Controls.Add(Me.ucr_111_Setting) + Me.tpg_111_Setting.Name = "tpg_111_Setting" + Me.tpg_111_Setting.Size = New System.Drawing.Size(383, 474) + Me.tpg_111_Setting.Text = "111_Setting" + ' + 'ucr_111_Setting + ' + Me.ucr_111_Setting.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_111_Setting.Location = New System.Drawing.Point(0, 0) + Me.ucr_111_Setting.Name = "ucr_111_Setting" + Me.ucr_111_Setting.Size = New System.Drawing.Size(383, 474) + Me.ucr_111_Setting.TabIndex = 2 + ' + 'tpg_103_Sports_Themes + ' + Me.tpg_103_Sports_Themes.Controls.Add(Me.ucr_103_Sports_Themes) + Me.tpg_103_Sports_Themes.Name = "tpg_103_Sports_Themes" + Me.tpg_103_Sports_Themes.Size = New System.Drawing.Size(383, 474) + Me.tpg_103_Sports_Themes.Text = "103_Sports_Themes" + ' + 'ucr_103_Sports_Themes + ' + Me.ucr_103_Sports_Themes.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_103_Sports_Themes.Location = New System.Drawing.Point(0, 0) + Me.ucr_103_Sports_Themes.Name = "ucr_103_Sports_Themes" + Me.ucr_103_Sports_Themes.Size = New System.Drawing.Size(383, 474) + Me.ucr_103_Sports_Themes.TabIndex = 1 + ' + 'tpg_112_Vehicular_Themes + ' + Me.tpg_112_Vehicular_Themes.Controls.Add(Me.ucr_112_Vehicular_Themes) + Me.tpg_112_Vehicular_Themes.Name = "tpg_112_Vehicular_Themes" + Me.tpg_112_Vehicular_Themes.Size = New System.Drawing.Size(383, 474) + Me.tpg_112_Vehicular_Themes.Text = "112_Vehicular_Themes" + ' + 'ucr_112_Vehicular_Themes + ' + Me.ucr_112_Vehicular_Themes.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_112_Vehicular_Themes.Location = New System.Drawing.Point(0, 0) + Me.ucr_112_Vehicular_Themes.Name = "ucr_112_Vehicular_Themes" + Me.ucr_112_Vehicular_Themes.Size = New System.Drawing.Size(383, 474) + Me.ucr_112_Vehicular_Themes.TabIndex = 2 + ' + 'tpg_105_Educational_Categories + ' + Me.tpg_105_Educational_Categories.Controls.Add(Me.ucr_105_Educational_Categories) + Me.tpg_105_Educational_Categories.Name = "tpg_105_Educational_Categories" + Me.tpg_105_Educational_Categories.Size = New System.Drawing.Size(383, 474) + Me.tpg_105_Educational_Categories.Text = "105_Educational_Categories" + ' + 'ucr_105_Educational_Categories + ' + Me.ucr_105_Educational_Categories.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_105_Educational_Categories.Location = New System.Drawing.Point(0, 0) + Me.ucr_105_Educational_Categories.Name = "ucr_105_Educational_Categories" + Me.ucr_105_Educational_Categories.Size = New System.Drawing.Size(383, 474) + Me.ucr_105_Educational_Categories.TabIndex = 1 + ' + 'tpg_113_Interface_Control + ' + Me.tpg_113_Interface_Control.Controls.Add(Me.ucr_113_Interface_Control) + Me.tpg_113_Interface_Control.Name = "tpg_113_Interface_Control" + Me.tpg_113_Interface_Control.Size = New System.Drawing.Size(383, 474) + Me.tpg_113_Interface_Control.Text = "113_Interface_Control" + ' + 'ucr_113_Interface_Control + ' + Me.ucr_113_Interface_Control.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_113_Interface_Control.Location = New System.Drawing.Point(0, 0) + Me.ucr_113_Interface_Control.Name = "ucr_113_Interface_Control" + Me.ucr_113_Interface_Control.Size = New System.Drawing.Size(383, 474) + Me.ucr_113_Interface_Control.TabIndex = 2 + ' + 'tpg_114_DLC_Addon + ' + Me.tpg_114_DLC_Addon.Controls.Add(Me.ucr_114_DLC_Addon) + Me.tpg_114_DLC_Addon.Name = "tpg_114_DLC_Addon" + Me.tpg_114_DLC_Addon.Size = New System.Drawing.Size(383, 474) + Me.tpg_114_DLC_Addon.Text = "114_DLC_Addon" + ' + 'ucr_114_DLC_Addon + ' + Me.ucr_114_DLC_Addon.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_114_DLC_Addon.Location = New System.Drawing.Point(0, 0) + Me.ucr_114_DLC_Addon.Name = "ucr_114_DLC_Addon" + Me.ucr_114_DLC_Addon.Size = New System.Drawing.Size(383, 474) + Me.ucr_114_DLC_Addon.TabIndex = 2 + ' + 'tpg_115_Special_Edition + ' + Me.tpg_115_Special_Edition.Controls.Add(Me.ucr_115_Special_Edition) + Me.tpg_115_Special_Edition.Name = "tpg_115_Special_Edition" + Me.tpg_115_Special_Edition.Size = New System.Drawing.Size(383, 474) + Me.tpg_115_Special_Edition.Text = "115_Special_Edition" + ' + 'ucr_115_Special_Edition + ' + Me.ucr_115_Special_Edition.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_115_Special_Edition.Location = New System.Drawing.Point(0, 0) + Me.ucr_115_Special_Edition.Name = "ucr_115_Special_Edition" + Me.ucr_115_Special_Edition.Size = New System.Drawing.Size(383, 474) + Me.ucr_115_Special_Edition.TabIndex = 2 + ' + 'tpg_106_Other_Attributes + ' + Me.tpg_106_Other_Attributes.Controls.Add(Me.ucr_106_Other_Attributes) + Me.tpg_106_Other_Attributes.Name = "tpg_106_Other_Attributes" + Me.tpg_106_Other_Attributes.Size = New System.Drawing.Size(383, 474) + Me.tpg_106_Other_Attributes.Text = "106_Other_Attributes" + ' + 'ucr_106_Other_Attributes + ' + Me.ucr_106_Other_Attributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucr_106_Other_Attributes.Location = New System.Drawing.Point(0, 0) + Me.ucr_106_Other_Attributes.Name = "ucr_106_Other_Attributes" + Me.ucr_106_Other_Attributes.Size = New System.Drawing.Size(383, 474) + Me.ucr_106_Other_Attributes.TabIndex = 1 + ' + 'tpg_201_MinPlayers + ' + Me.tpg_201_MinPlayers.Controls.Add(Me.pnl_201_MinPlayers) + Me.tpg_201_MinPlayers.Name = "tpg_201_MinPlayers" + Me.tpg_201_MinPlayers.Size = New System.Drawing.Size(383, 474) + Me.tpg_201_MinPlayers.Text = "201_MinPlayers" + ' + 'pnl_201_MinPlayers + ' + Me.pnl_201_MinPlayers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_201_MinPlayers.Controls.Add(Me.pnl_201_MinPlayers_Details) + Me.pnl_201_MinPlayers.Controls.Add(Me.lbl_201_MinPlayers_Explanation) + Me.pnl_201_MinPlayers.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_201_MinPlayers.Location = New System.Drawing.Point(0, 0) + Me.pnl_201_MinPlayers.Name = "pnl_201_MinPlayers" + Me.pnl_201_MinPlayers.Size = New System.Drawing.Size(383, 474) + Me.pnl_201_MinPlayers.TabIndex = 9 + ' + 'pnl_201_MinPlayers_Details + ' + Me.pnl_201_MinPlayers_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_Weight_201_MinPlayers) + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_201_MinPlayers_A) + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_201_MinPlayers_B) + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_Weight_201_MinPlayers_Text) + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_201_MinPlayers_A_Text) + Me.pnl_201_MinPlayers_Details.Controls.Add(Me.lbl_201_MinPlayers_B_Text) + Me.pnl_201_MinPlayers_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_201_MinPlayers_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_201_MinPlayers_Details.Name = "pnl_201_MinPlayers_Details" + Me.pnl_201_MinPlayers_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_201_MinPlayers_Details.TabIndex = 1 + ' + 'lbl_Weight_201_MinPlayers + ' + Me.lbl_Weight_201_MinPlayers.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_201_MinPlayers.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_201_MinPlayers.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_201_MinPlayers.MKBoundControl1 = Nothing + Me.lbl_Weight_201_MinPlayers.MKBoundControl2 = Nothing + Me.lbl_Weight_201_MinPlayers.MKBoundControl3 = Nothing + Me.lbl_Weight_201_MinPlayers.MKBoundControl4 = Nothing + Me.lbl_Weight_201_MinPlayers.MKBoundControl5 = Nothing + Me.lbl_Weight_201_MinPlayers.Name = "lbl_Weight_201_MinPlayers" + Me.lbl_Weight_201_MinPlayers.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_201_MinPlayers.TabIndex = 7 + Me.lbl_Weight_201_MinPlayers.Text = "Weight:" + ' + 'lbl_201_MinPlayers_A + ' + Me.lbl_201_MinPlayers_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_201_MinPlayers_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_201_MinPlayers_A.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_A.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_A.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_A.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_A.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_A.Name = "lbl_201_MinPlayers_A" + Me.lbl_201_MinPlayers_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_201_MinPlayers_A.TabIndex = 7 + Me.lbl_201_MinPlayers_A.Text = "Min. Players of Game A:" + ' + 'lbl_201_MinPlayers_B + ' + Me.lbl_201_MinPlayers_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_201_MinPlayers_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_201_MinPlayers_B.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_B.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_B.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_B.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_B.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_B.Name = "lbl_201_MinPlayers_B" + Me.lbl_201_MinPlayers_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_201_MinPlayers_B.TabIndex = 7 + Me.lbl_201_MinPlayers_B.Text = "Min. Players of Game B:" + ' + 'lbl_Weight_201_MinPlayers_Text + ' + Me.lbl_Weight_201_MinPlayers_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_201_MinPlayers_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_201_MinPlayers_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_201_MinPlayers_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_201_MinPlayers_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_201_MinPlayers_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_201_MinPlayers_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_201_MinPlayers_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_201_MinPlayers_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_201_MinPlayers_Text.Name = "lbl_Weight_201_MinPlayers_Text" + Me.lbl_Weight_201_MinPlayers_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_201_MinPlayers_Text.TabIndex = 7 + ' + 'lbl_201_MinPlayers_A_Text + ' + Me.lbl_201_MinPlayers_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_201_MinPlayers_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_201_MinPlayers_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_201_MinPlayers_A_Text.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_A_Text.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_A_Text.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_A_Text.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_A_Text.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_A_Text.Name = "lbl_201_MinPlayers_A_Text" + Me.lbl_201_MinPlayers_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_201_MinPlayers_A_Text.TabIndex = 7 + ' + 'lbl_201_MinPlayers_B_Text + ' + Me.lbl_201_MinPlayers_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_201_MinPlayers_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_201_MinPlayers_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_201_MinPlayers_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_201_MinPlayers_B_Text.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_B_Text.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_B_Text.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_B_Text.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_B_Text.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_B_Text.Name = "lbl_201_MinPlayers_B_Text" + Me.lbl_201_MinPlayers_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_201_MinPlayers_B_Text.TabIndex = 7 + ' + 'lbl_201_MinPlayers_Explanation + ' + Me.lbl_201_MinPlayers_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_201_MinPlayers_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_201_MinPlayers_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_201_MinPlayers_Explanation.MKBoundControl1 = Nothing + Me.lbl_201_MinPlayers_Explanation.MKBoundControl2 = Nothing + Me.lbl_201_MinPlayers_Explanation.MKBoundControl3 = Nothing + Me.lbl_201_MinPlayers_Explanation.MKBoundControl4 = Nothing + Me.lbl_201_MinPlayers_Explanation.MKBoundControl5 = Nothing + Me.lbl_201_MinPlayers_Explanation.Name = "lbl_201_MinPlayers_Explanation" + Me.lbl_201_MinPlayers_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_201_MinPlayers_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_201_MinPlayers_Explanation.TabIndex = 0 + Me.lbl_201_MinPlayers_Explanation.Text = "The similarity score of 100 is reduced by 10 times the difference between the min" & + "umum number of players supported by both games." + ' + 'tpg_202_MaxPlayers + ' + Me.tpg_202_MaxPlayers.Controls.Add(Me.pnl_202_MaxPlayers) + Me.tpg_202_MaxPlayers.Name = "tpg_202_MaxPlayers" + Me.tpg_202_MaxPlayers.Size = New System.Drawing.Size(383, 474) + Me.tpg_202_MaxPlayers.Text = "202_MaxPlayers" + ' + 'pnl_202_MaxPlayers + ' + Me.pnl_202_MaxPlayers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_202_MaxPlayers.Controls.Add(Me.pnl_202_MaxPlayers_Details) + Me.pnl_202_MaxPlayers.Controls.Add(Me.lbl_202_MaxPlayers_Explanation) + Me.pnl_202_MaxPlayers.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_202_MaxPlayers.Location = New System.Drawing.Point(0, 0) + Me.pnl_202_MaxPlayers.Name = "pnl_202_MaxPlayers" + Me.pnl_202_MaxPlayers.Size = New System.Drawing.Size(383, 474) + Me.pnl_202_MaxPlayers.TabIndex = 10 + ' + 'pnl_202_MaxPlayers_Details + ' + Me.pnl_202_MaxPlayers_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_Weight_202_MaxPlayers) + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_202_MaxPlayers_A) + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_202_MaxPlayers_B) + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_Weight_202_MaxPlayers_Text) + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_202_MaxPlayers_A_Text) + Me.pnl_202_MaxPlayers_Details.Controls.Add(Me.lbl_202_MaxPlayers_B_Text) + Me.pnl_202_MaxPlayers_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_202_MaxPlayers_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_202_MaxPlayers_Details.Name = "pnl_202_MaxPlayers_Details" + Me.pnl_202_MaxPlayers_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_202_MaxPlayers_Details.TabIndex = 1 + ' + 'lbl_Weight_202_MaxPlayers + ' + Me.lbl_Weight_202_MaxPlayers.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_202_MaxPlayers.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_202_MaxPlayers.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_202_MaxPlayers.MKBoundControl1 = Nothing + Me.lbl_Weight_202_MaxPlayers.MKBoundControl2 = Nothing + Me.lbl_Weight_202_MaxPlayers.MKBoundControl3 = Nothing + Me.lbl_Weight_202_MaxPlayers.MKBoundControl4 = Nothing + Me.lbl_Weight_202_MaxPlayers.MKBoundControl5 = Nothing + Me.lbl_Weight_202_MaxPlayers.Name = "lbl_Weight_202_MaxPlayers" + Me.lbl_Weight_202_MaxPlayers.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_202_MaxPlayers.TabIndex = 7 + Me.lbl_Weight_202_MaxPlayers.Text = "Weight:" + ' + 'lbl_202_MaxPlayers_A + ' + Me.lbl_202_MaxPlayers_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_202_MaxPlayers_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_202_MaxPlayers_A.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_A.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_A.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_A.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_A.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_A.Name = "lbl_202_MaxPlayers_A" + Me.lbl_202_MaxPlayers_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_202_MaxPlayers_A.TabIndex = 7 + Me.lbl_202_MaxPlayers_A.Text = "Max. Players of Game A:" + ' + 'lbl_202_MaxPlayers_B + ' + Me.lbl_202_MaxPlayers_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_202_MaxPlayers_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_202_MaxPlayers_B.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_B.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_B.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_B.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_B.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_B.Name = "lbl_202_MaxPlayers_B" + Me.lbl_202_MaxPlayers_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_202_MaxPlayers_B.TabIndex = 7 + Me.lbl_202_MaxPlayers_B.Text = "Max. Players of Game B:" + ' + 'lbl_Weight_202_MaxPlayers_Text + ' + Me.lbl_Weight_202_MaxPlayers_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_202_MaxPlayers_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_202_MaxPlayers_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_202_MaxPlayers_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_202_MaxPlayers_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_202_MaxPlayers_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_202_MaxPlayers_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_202_MaxPlayers_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_202_MaxPlayers_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_202_MaxPlayers_Text.Name = "lbl_Weight_202_MaxPlayers_Text" + Me.lbl_Weight_202_MaxPlayers_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_202_MaxPlayers_Text.TabIndex = 7 + ' + 'lbl_202_MaxPlayers_A_Text + ' + Me.lbl_202_MaxPlayers_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_202_MaxPlayers_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_202_MaxPlayers_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_202_MaxPlayers_A_Text.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_A_Text.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_A_Text.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_A_Text.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_A_Text.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_A_Text.Name = "lbl_202_MaxPlayers_A_Text" + Me.lbl_202_MaxPlayers_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_202_MaxPlayers_A_Text.TabIndex = 7 + ' + 'lbl_202_MaxPlayers_B_Text + ' + Me.lbl_202_MaxPlayers_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_202_MaxPlayers_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_202_MaxPlayers_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_202_MaxPlayers_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_202_MaxPlayers_B_Text.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_B_Text.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_B_Text.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_B_Text.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_B_Text.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_B_Text.Name = "lbl_202_MaxPlayers_B_Text" + Me.lbl_202_MaxPlayers_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_202_MaxPlayers_B_Text.TabIndex = 7 + ' + 'lbl_202_MaxPlayers_Explanation + ' + Me.lbl_202_MaxPlayers_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_202_MaxPlayers_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_202_MaxPlayers_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_202_MaxPlayers_Explanation.MKBoundControl1 = Nothing + Me.lbl_202_MaxPlayers_Explanation.MKBoundControl2 = Nothing + Me.lbl_202_MaxPlayers_Explanation.MKBoundControl3 = Nothing + Me.lbl_202_MaxPlayers_Explanation.MKBoundControl4 = Nothing + Me.lbl_202_MaxPlayers_Explanation.MKBoundControl5 = Nothing + Me.lbl_202_MaxPlayers_Explanation.Name = "lbl_202_MaxPlayers_Explanation" + Me.lbl_202_MaxPlayers_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_202_MaxPlayers_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_202_MaxPlayers_Explanation.TabIndex = 0 + Me.lbl_202_MaxPlayers_Explanation.Text = "The similarity score of 100 is reduced by 10 times the difference between the max" & + "imum number of players supported by both games." + ' + 'tpg_203_AgeO + ' + Me.tpg_203_AgeO.Controls.Add(Me.pnl_203_AgeO) + Me.tpg_203_AgeO.Name = "tpg_203_AgeO" + Me.tpg_203_AgeO.Size = New System.Drawing.Size(383, 474) + Me.tpg_203_AgeO.Text = "203_AgeO" + ' + 'pnl_203_AgeO + ' + Me.pnl_203_AgeO.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_203_AgeO.Controls.Add(Me.pnl_203_AgeO_Details) + Me.pnl_203_AgeO.Controls.Add(Me.lbl_203_AgeO_Explanation) + Me.pnl_203_AgeO.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_203_AgeO.Location = New System.Drawing.Point(0, 0) + Me.pnl_203_AgeO.Name = "pnl_203_AgeO" + Me.pnl_203_AgeO.Size = New System.Drawing.Size(383, 474) + Me.pnl_203_AgeO.TabIndex = 11 + ' + 'pnl_203_AgeO_Details + ' + Me.pnl_203_AgeO_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_Weight_203_AgeO) + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_203_AgeO_A) + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_203_AgeO_B) + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_Weight_203_AgeO_Text) + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_203_AgeO_A_Text) + Me.pnl_203_AgeO_Details.Controls.Add(Me.lbl_203_AgeO_B_Text) + Me.pnl_203_AgeO_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_203_AgeO_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_203_AgeO_Details.Name = "pnl_203_AgeO_Details" + Me.pnl_203_AgeO_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_203_AgeO_Details.TabIndex = 1 + ' + 'lbl_Weight_203_AgeO + ' + Me.lbl_Weight_203_AgeO.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_203_AgeO.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_203_AgeO.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_203_AgeO.MKBoundControl1 = Nothing + Me.lbl_Weight_203_AgeO.MKBoundControl2 = Nothing + Me.lbl_Weight_203_AgeO.MKBoundControl3 = Nothing + Me.lbl_Weight_203_AgeO.MKBoundControl4 = Nothing + Me.lbl_Weight_203_AgeO.MKBoundControl5 = Nothing + Me.lbl_Weight_203_AgeO.Name = "lbl_Weight_203_AgeO" + Me.lbl_Weight_203_AgeO.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_203_AgeO.TabIndex = 7 + Me.lbl_Weight_203_AgeO.Text = "Weight:" + ' + 'lbl_203_AgeO_A + ' + Me.lbl_203_AgeO_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_203_AgeO_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_203_AgeO_A.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_A.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_A.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_A.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_A.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_A.Name = "lbl_203_AgeO_A" + Me.lbl_203_AgeO_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_203_AgeO_A.TabIndex = 7 + Me.lbl_203_AgeO_A.Text = "AgeO of Game A:" + ' + 'lbl_203_AgeO_B + ' + Me.lbl_203_AgeO_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_203_AgeO_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_203_AgeO_B.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_B.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_B.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_B.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_B.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_B.Name = "lbl_203_AgeO_B" + Me.lbl_203_AgeO_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_203_AgeO_B.TabIndex = 7 + Me.lbl_203_AgeO_B.Text = "AgeO of Game B:" + ' + 'lbl_Weight_203_AgeO_Text + ' + Me.lbl_Weight_203_AgeO_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_203_AgeO_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_203_AgeO_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_203_AgeO_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_203_AgeO_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_203_AgeO_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_203_AgeO_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_203_AgeO_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_203_AgeO_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_203_AgeO_Text.Name = "lbl_Weight_203_AgeO_Text" + Me.lbl_Weight_203_AgeO_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_203_AgeO_Text.TabIndex = 7 + ' + 'lbl_203_AgeO_A_Text + ' + Me.lbl_203_AgeO_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_203_AgeO_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_203_AgeO_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_203_AgeO_A_Text.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_A_Text.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_A_Text.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_A_Text.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_A_Text.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_A_Text.Name = "lbl_203_AgeO_A_Text" + Me.lbl_203_AgeO_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_203_AgeO_A_Text.TabIndex = 7 + ' + 'lbl_203_AgeO_B_Text + ' + Me.lbl_203_AgeO_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_203_AgeO_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_203_AgeO_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_203_AgeO_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_203_AgeO_B_Text.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_B_Text.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_B_Text.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_B_Text.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_B_Text.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_B_Text.Name = "lbl_203_AgeO_B_Text" + Me.lbl_203_AgeO_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_203_AgeO_B_Text.TabIndex = 7 + ' + 'lbl_203_AgeO_Explanation + ' + Me.lbl_203_AgeO_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_203_AgeO_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_203_AgeO_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_203_AgeO_Explanation.MKBoundControl1 = Nothing + Me.lbl_203_AgeO_Explanation.MKBoundControl2 = Nothing + Me.lbl_203_AgeO_Explanation.MKBoundControl3 = Nothing + Me.lbl_203_AgeO_Explanation.MKBoundControl4 = Nothing + Me.lbl_203_AgeO_Explanation.MKBoundControl5 = Nothing + Me.lbl_203_AgeO_Explanation.Name = "lbl_203_AgeO_Explanation" + Me.lbl_203_AgeO_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_203_AgeO_Explanation.Size = New System.Drawing.Size(383, 32) + Me.lbl_203_AgeO_Explanation.TabIndex = 0 + Me.lbl_203_AgeO_Explanation.Text = "The similarity score of 100 is reduced by 10 times the difference between the opt" & + "imistic minumum age for both games." + ' + 'tpg_204_AgeP + ' + Me.tpg_204_AgeP.Controls.Add(Me.pnl_204_AgeP) + Me.tpg_204_AgeP.Name = "tpg_204_AgeP" + Me.tpg_204_AgeP.Size = New System.Drawing.Size(383, 474) + Me.tpg_204_AgeP.Text = "204_AgeP" + ' + 'pnl_204_AgeP + ' + Me.pnl_204_AgeP.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_204_AgeP.Controls.Add(Me.pnl_204_AgeP_Details) + Me.pnl_204_AgeP.Controls.Add(Me.lbl_204_AgeP) + Me.pnl_204_AgeP.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_204_AgeP.Location = New System.Drawing.Point(0, 0) + Me.pnl_204_AgeP.Name = "pnl_204_AgeP" + Me.pnl_204_AgeP.Size = New System.Drawing.Size(383, 474) + Me.pnl_204_AgeP.TabIndex = 12 + ' + 'pnl_204_AgeP_Details + ' + Me.pnl_204_AgeP_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_Weight_204_AgeP) + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_204_AgeP_A) + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_204_AgeP_B) + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_Weight_204_AgeP_Text) + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_204_AgeP_A_Text) + Me.pnl_204_AgeP_Details.Controls.Add(Me.lbl_204_AgeP_B_Text) + Me.pnl_204_AgeP_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_204_AgeP_Details.Location = New System.Drawing.Point(0, 32) + Me.pnl_204_AgeP_Details.Name = "pnl_204_AgeP_Details" + Me.pnl_204_AgeP_Details.Size = New System.Drawing.Size(383, 442) + Me.pnl_204_AgeP_Details.TabIndex = 1 + ' + 'lbl_Weight_204_AgeP + ' + Me.lbl_Weight_204_AgeP.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_204_AgeP.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_204_AgeP.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_204_AgeP.MKBoundControl1 = Nothing + Me.lbl_Weight_204_AgeP.MKBoundControl2 = Nothing + Me.lbl_Weight_204_AgeP.MKBoundControl3 = Nothing + Me.lbl_Weight_204_AgeP.MKBoundControl4 = Nothing + Me.lbl_Weight_204_AgeP.MKBoundControl5 = Nothing + Me.lbl_Weight_204_AgeP.Name = "lbl_Weight_204_AgeP" + Me.lbl_Weight_204_AgeP.Size = New System.Drawing.Size(113, 20) + Me.lbl_Weight_204_AgeP.TabIndex = 7 + Me.lbl_Weight_204_AgeP.Text = "Weight:" + ' + 'lbl_204_AgeP_A + ' + Me.lbl_204_AgeP_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_204_AgeP_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP_A.Location = New System.Drawing.Point(3, 26) + Me.lbl_204_AgeP_A.MKBoundControl1 = Nothing + Me.lbl_204_AgeP_A.MKBoundControl2 = Nothing + Me.lbl_204_AgeP_A.MKBoundControl3 = Nothing + Me.lbl_204_AgeP_A.MKBoundControl4 = Nothing + Me.lbl_204_AgeP_A.MKBoundControl5 = Nothing + Me.lbl_204_AgeP_A.Name = "lbl_204_AgeP_A" + Me.lbl_204_AgeP_A.Size = New System.Drawing.Size(113, 20) + Me.lbl_204_AgeP_A.TabIndex = 7 + Me.lbl_204_AgeP_A.Text = "AgeP of Game A:" + ' + 'lbl_204_AgeP_B + ' + Me.lbl_204_AgeP_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_204_AgeP_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP_B.Location = New System.Drawing.Point(3, 49) + Me.lbl_204_AgeP_B.MKBoundControl1 = Nothing + Me.lbl_204_AgeP_B.MKBoundControl2 = Nothing + Me.lbl_204_AgeP_B.MKBoundControl3 = Nothing + Me.lbl_204_AgeP_B.MKBoundControl4 = Nothing + Me.lbl_204_AgeP_B.MKBoundControl5 = Nothing + Me.lbl_204_AgeP_B.Name = "lbl_204_AgeP_B" + Me.lbl_204_AgeP_B.Size = New System.Drawing.Size(113, 20) + Me.lbl_204_AgeP_B.TabIndex = 7 + Me.lbl_204_AgeP_B.Text = "AgeP of Game B:" + ' + 'lbl_Weight_204_AgeP_Text + ' + Me.lbl_Weight_204_AgeP_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_204_AgeP_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_204_AgeP_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_204_AgeP_Text.Location = New System.Drawing.Point(119, 3) + Me.lbl_Weight_204_AgeP_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_204_AgeP_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_204_AgeP_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_204_AgeP_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_204_AgeP_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_204_AgeP_Text.Name = "lbl_Weight_204_AgeP_Text" + Me.lbl_Weight_204_AgeP_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_Weight_204_AgeP_Text.TabIndex = 7 + ' + 'lbl_204_AgeP_A_Text + ' + Me.lbl_204_AgeP_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_204_AgeP_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_204_AgeP_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP_A_Text.Location = New System.Drawing.Point(119, 26) + Me.lbl_204_AgeP_A_Text.MKBoundControl1 = Nothing + Me.lbl_204_AgeP_A_Text.MKBoundControl2 = Nothing + Me.lbl_204_AgeP_A_Text.MKBoundControl3 = Nothing + Me.lbl_204_AgeP_A_Text.MKBoundControl4 = Nothing + Me.lbl_204_AgeP_A_Text.MKBoundControl5 = Nothing + Me.lbl_204_AgeP_A_Text.Name = "lbl_204_AgeP_A_Text" + Me.lbl_204_AgeP_A_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_204_AgeP_A_Text.TabIndex = 7 + ' + 'lbl_204_AgeP_B_Text + ' + Me.lbl_204_AgeP_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_204_AgeP_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_204_AgeP_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_204_AgeP_B_Text.Location = New System.Drawing.Point(119, 49) + Me.lbl_204_AgeP_B_Text.MKBoundControl1 = Nothing + Me.lbl_204_AgeP_B_Text.MKBoundControl2 = Nothing + Me.lbl_204_AgeP_B_Text.MKBoundControl3 = Nothing + Me.lbl_204_AgeP_B_Text.MKBoundControl4 = Nothing + Me.lbl_204_AgeP_B_Text.MKBoundControl5 = Nothing + Me.lbl_204_AgeP_B_Text.Name = "lbl_204_AgeP_B_Text" + Me.lbl_204_AgeP_B_Text.Size = New System.Drawing.Size(260, 20) + Me.lbl_204_AgeP_B_Text.TabIndex = 7 + ' + 'lbl_204_AgeP + ' + Me.lbl_204_AgeP.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_204_AgeP.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_204_AgeP.Location = New System.Drawing.Point(0, 0) + Me.lbl_204_AgeP.MKBoundControl1 = Nothing + Me.lbl_204_AgeP.MKBoundControl2 = Nothing + Me.lbl_204_AgeP.MKBoundControl3 = Nothing + Me.lbl_204_AgeP.MKBoundControl4 = Nothing + Me.lbl_204_AgeP.MKBoundControl5 = Nothing + Me.lbl_204_AgeP.Name = "lbl_204_AgeP" + Me.lbl_204_AgeP.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_204_AgeP.Size = New System.Drawing.Size(383, 32) + Me.lbl_204_AgeP.TabIndex = 0 + Me.lbl_204_AgeP.Text = "The similarity score of 100 is reduced by 10 times the difference between the pes" & + "simistic minumum age for both games." + ' + 'tpg_205_Rating_Descriptors + ' + Me.tpg_205_Rating_Descriptors.Controls.Add(Me.pnl_205_Rating_Descriptors) + Me.tpg_205_Rating_Descriptors.Name = "tpg_205_Rating_Descriptors" + Me.tpg_205_Rating_Descriptors.Size = New System.Drawing.Size(383, 474) + Me.tpg_205_Rating_Descriptors.Text = "205_Rating_Descriptors" + ' + 'pnl_205_Rating_Descriptors + ' + Me.pnl_205_Rating_Descriptors.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_205_Rating_Descriptors.Controls.Add(Me.pnl_205_Rating_Descriptors_Details) + Me.pnl_205_Rating_Descriptors.Controls.Add(Me.lbl_205_Rating_Descriptors_Explanation) + Me.pnl_205_Rating_Descriptors.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_205_Rating_Descriptors.Location = New System.Drawing.Point(0, 0) + Me.pnl_205_Rating_Descriptors.Name = "pnl_205_Rating_Descriptors" + Me.pnl_205_Rating_Descriptors.Size = New System.Drawing.Size(383, 474) + Me.pnl_205_Rating_Descriptors.TabIndex = 16 + ' + 'pnl_205_Rating_Descriptors_Details + ' + Me.pnl_205_Rating_Descriptors_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_205_Rating_Descriptors_Details.Controls.Add(Me.tlp_205_Rating_Descriptors) + Me.pnl_205_Rating_Descriptors_Details.Controls.Add(Me.lbl_Weight_205_Rating_Descriptors) + Me.pnl_205_Rating_Descriptors_Details.Controls.Add(Me.lbl_Weight_205_Rating_Descriptors_Text) + Me.pnl_205_Rating_Descriptors_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_205_Rating_Descriptors_Details.Location = New System.Drawing.Point(0, 97) + Me.pnl_205_Rating_Descriptors_Details.Name = "pnl_205_Rating_Descriptors_Details" + Me.pnl_205_Rating_Descriptors_Details.Size = New System.Drawing.Size(383, 377) + Me.pnl_205_Rating_Descriptors_Details.TabIndex = 1 + ' + 'tlp_205_Rating_Descriptors + ' + Me.tlp_205_Rating_Descriptors.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_205_Rating_Descriptors.ColumnCount = 1 + Me.tlp_205_Rating_Descriptors.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_205_Rating_Descriptors.Controls.Add(Me.gb_205_Rating_Descriptors_AB, 0, 2) + Me.tlp_205_Rating_Descriptors.Controls.Add(Me.gb_205_Rating_Descriptors_B, 0, 1) + Me.tlp_205_Rating_Descriptors.Controls.Add(Me.gb_205_Rating_Descriptors_A, 0, 0) + Me.tlp_205_Rating_Descriptors.Location = New System.Drawing.Point(0, 27) + Me.tlp_205_Rating_Descriptors.Name = "tlp_205_Rating_Descriptors" + Me.tlp_205_Rating_Descriptors.RowCount = 3 + Me.tlp_205_Rating_Descriptors.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_205_Rating_Descriptors.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_205_Rating_Descriptors.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_205_Rating_Descriptors.Size = New System.Drawing.Size(383, 351) + Me.tlp_205_Rating_Descriptors.TabIndex = 8 + ' + 'gb_205_Rating_Descriptors_AB + ' + Me.gb_205_Rating_Descriptors_AB.Controls.Add(Me.grd_205_Rating_Descriptors_AB) + Me.gb_205_Rating_Descriptors_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_205_Rating_Descriptors_AB.Location = New System.Drawing.Point(3, 237) + Me.gb_205_Rating_Descriptors_AB.Name = "gb_205_Rating_Descriptors_AB" + Me.gb_205_Rating_Descriptors_AB.Size = New System.Drawing.Size(377, 111) + Me.gb_205_Rating_Descriptors_AB.TabIndex = 2 + Me.gb_205_Rating_Descriptors_AB.Text = "Rating Descriptors shared by Games A and B" + ' + 'grd_205_Rating_Descriptors_AB + ' + Me.grd_205_Rating_Descriptors_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_205_Rating_Descriptors_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_205_Rating_Descriptors_AB.MainView = Me.gv_205_Rating_Descriptors_AB + Me.grd_205_Rating_Descriptors_AB.Name = "grd_205_Rating_Descriptors_AB" + Me.grd_205_Rating_Descriptors_AB.Size = New System.Drawing.Size(373, 89) + Me.grd_205_Rating_Descriptors_AB.TabIndex = 3 + Me.grd_205_Rating_Descriptors_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_205_Rating_Descriptors_AB}) + ' + 'gv_205_Rating_Descriptors_AB + ' + Me.gv_205_Rating_Descriptors_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_205_Rating_Descriptors_AB}) + Me.gv_205_Rating_Descriptors_AB.GridControl = Me.grd_205_Rating_Descriptors_AB + Me.gv_205_Rating_Descriptors_AB.Name = "gv_205_Rating_Descriptors_AB" + Me.gv_205_Rating_Descriptors_AB.OptionsSelection.InvertSelection = True + Me.gv_205_Rating_Descriptors_AB.OptionsView.ShowColumnHeaders = False + Me.gv_205_Rating_Descriptors_AB.OptionsView.ShowGroupPanel = False + Me.gv_205_Rating_Descriptors_AB.OptionsView.ShowIndicator = False + ' + 'col_205_Rating_Descriptors_AB + ' + Me.col_205_Rating_Descriptors_AB.FieldName = "Name" + Me.col_205_Rating_Descriptors_AB.Name = "col_205_Rating_Descriptors_AB" + Me.col_205_Rating_Descriptors_AB.OptionsColumn.AllowEdit = False + Me.col_205_Rating_Descriptors_AB.OptionsColumn.ReadOnly = True + Me.col_205_Rating_Descriptors_AB.Visible = True + Me.col_205_Rating_Descriptors_AB.VisibleIndex = 0 + ' + 'gb_205_Rating_Descriptors_B + ' + Me.gb_205_Rating_Descriptors_B.Controls.Add(Me.grd_205_Rating_Descriptors_B) + Me.gb_205_Rating_Descriptors_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_205_Rating_Descriptors_B.Location = New System.Drawing.Point(3, 120) + Me.gb_205_Rating_Descriptors_B.Name = "gb_205_Rating_Descriptors_B" + Me.gb_205_Rating_Descriptors_B.Size = New System.Drawing.Size(377, 111) + Me.gb_205_Rating_Descriptors_B.TabIndex = 1 + Me.gb_205_Rating_Descriptors_B.Text = "Rating Descriptors of Game B" + ' + 'grd_205_Rating_Descriptors_B + ' + Me.grd_205_Rating_Descriptors_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_205_Rating_Descriptors_B.Location = New System.Drawing.Point(2, 20) + Me.grd_205_Rating_Descriptors_B.MainView = Me.gv_205_Rating_Descriptors_B + Me.grd_205_Rating_Descriptors_B.Name = "grd_205_Rating_Descriptors_B" + Me.grd_205_Rating_Descriptors_B.Size = New System.Drawing.Size(373, 89) + Me.grd_205_Rating_Descriptors_B.TabIndex = 2 + Me.grd_205_Rating_Descriptors_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_205_Rating_Descriptors_B}) + ' + 'gv_205_Rating_Descriptors_B + ' + Me.gv_205_Rating_Descriptors_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_205_Rating_Descriptors_B}) + Me.gv_205_Rating_Descriptors_B.GridControl = Me.grd_205_Rating_Descriptors_B + Me.gv_205_Rating_Descriptors_B.Name = "gv_205_Rating_Descriptors_B" + Me.gv_205_Rating_Descriptors_B.OptionsSelection.InvertSelection = True + Me.gv_205_Rating_Descriptors_B.OptionsView.ShowColumnHeaders = False + Me.gv_205_Rating_Descriptors_B.OptionsView.ShowGroupPanel = False + Me.gv_205_Rating_Descriptors_B.OptionsView.ShowIndicator = False + ' + 'col_205_Rating_Descriptors_B + ' + Me.col_205_Rating_Descriptors_B.FieldName = "Name" + Me.col_205_Rating_Descriptors_B.Name = "col_205_Rating_Descriptors_B" + Me.col_205_Rating_Descriptors_B.OptionsColumn.AllowEdit = False + Me.col_205_Rating_Descriptors_B.OptionsColumn.ReadOnly = True + Me.col_205_Rating_Descriptors_B.Visible = True + Me.col_205_Rating_Descriptors_B.VisibleIndex = 0 + ' + 'gb_205_Rating_Descriptors_A + ' + Me.gb_205_Rating_Descriptors_A.Controls.Add(Me.grd_205_Rating_Descriptors_A) + Me.gb_205_Rating_Descriptors_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_205_Rating_Descriptors_A.Location = New System.Drawing.Point(3, 3) + Me.gb_205_Rating_Descriptors_A.Name = "gb_205_Rating_Descriptors_A" + Me.gb_205_Rating_Descriptors_A.Size = New System.Drawing.Size(377, 111) + Me.gb_205_Rating_Descriptors_A.TabIndex = 0 + Me.gb_205_Rating_Descriptors_A.Text = "Rating Descriptors of Game A" + ' + 'grd_205_Rating_Descriptors_A + ' + Me.grd_205_Rating_Descriptors_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_205_Rating_Descriptors_A.Location = New System.Drawing.Point(2, 20) + Me.grd_205_Rating_Descriptors_A.MainView = Me.gv_205_Rating_Descriptors_A + Me.grd_205_Rating_Descriptors_A.Name = "grd_205_Rating_Descriptors_A" + Me.grd_205_Rating_Descriptors_A.Size = New System.Drawing.Size(373, 89) + Me.grd_205_Rating_Descriptors_A.TabIndex = 1 + Me.grd_205_Rating_Descriptors_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_205_Rating_Descriptors_A}) + ' + 'gv_205_Rating_Descriptors_A + ' + Me.gv_205_Rating_Descriptors_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_205_Rating_Descriptors_A}) + Me.gv_205_Rating_Descriptors_A.GridControl = Me.grd_205_Rating_Descriptors_A + Me.gv_205_Rating_Descriptors_A.Name = "gv_205_Rating_Descriptors_A" + Me.gv_205_Rating_Descriptors_A.OptionsSelection.InvertSelection = True + Me.gv_205_Rating_Descriptors_A.OptionsView.ShowColumnHeaders = False + Me.gv_205_Rating_Descriptors_A.OptionsView.ShowGroupPanel = False + Me.gv_205_Rating_Descriptors_A.OptionsView.ShowIndicator = False + ' + 'col_205_Rating_Descriptors_A + ' + Me.col_205_Rating_Descriptors_A.FieldName = "Name" + Me.col_205_Rating_Descriptors_A.Name = "col_205_Rating_Descriptors_A" + Me.col_205_Rating_Descriptors_A.OptionsColumn.AllowEdit = False + Me.col_205_Rating_Descriptors_A.OptionsColumn.ReadOnly = True + Me.col_205_Rating_Descriptors_A.Visible = True + Me.col_205_Rating_Descriptors_A.VisibleIndex = 0 + ' + 'lbl_Weight_205_Rating_Descriptors + ' + Me.lbl_Weight_205_Rating_Descriptors.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_205_Rating_Descriptors.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_205_Rating_Descriptors.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_205_Rating_Descriptors.MKBoundControl1 = Nothing + Me.lbl_Weight_205_Rating_Descriptors.MKBoundControl2 = Nothing + Me.lbl_Weight_205_Rating_Descriptors.MKBoundControl3 = Nothing + Me.lbl_Weight_205_Rating_Descriptors.MKBoundControl4 = Nothing + Me.lbl_Weight_205_Rating_Descriptors.MKBoundControl5 = Nothing + Me.lbl_Weight_205_Rating_Descriptors.Name = "lbl_Weight_205_Rating_Descriptors" + Me.lbl_Weight_205_Rating_Descriptors.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight_205_Rating_Descriptors.TabIndex = 7 + Me.lbl_Weight_205_Rating_Descriptors.Text = "Weight:" + ' + 'lbl_Weight_205_Rating_Descriptors_Text + ' + Me.lbl_Weight_205_Rating_Descriptors_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_205_Rating_Descriptors_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_205_Rating_Descriptors_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_205_Rating_Descriptors_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_205_Rating_Descriptors_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_205_Rating_Descriptors_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_205_Rating_Descriptors_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_205_Rating_Descriptors_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_205_Rating_Descriptors_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_205_Rating_Descriptors_Text.Name = "lbl_Weight_205_Rating_Descriptors_Text" + Me.lbl_Weight_205_Rating_Descriptors_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_205_Rating_Descriptors_Text.TabIndex = 7 + ' + 'lbl_205_Rating_Descriptors_Explanation + ' + Me.lbl_205_Rating_Descriptors_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_205_Rating_Descriptors_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_205_Rating_Descriptors_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_205_Rating_Descriptors_Explanation.MKBoundControl1 = Nothing + Me.lbl_205_Rating_Descriptors_Explanation.MKBoundControl2 = Nothing + Me.lbl_205_Rating_Descriptors_Explanation.MKBoundControl3 = Nothing + Me.lbl_205_Rating_Descriptors_Explanation.MKBoundControl4 = Nothing + Me.lbl_205_Rating_Descriptors_Explanation.MKBoundControl5 = Nothing + Me.lbl_205_Rating_Descriptors_Explanation.Name = "lbl_205_Rating_Descriptors_Explanation" + Me.lbl_205_Rating_Descriptors_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_205_Rating_Descriptors_Explanation.Size = New System.Drawing.Size(383, 97) + Me.lbl_205_Rating_Descriptors_Explanation.TabIndex = 0 + Me.lbl_205_Rating_Descriptors_Explanation.Text = resources.GetString("lbl_205_Rating_Descriptors_Explanation.Text") + ' + 'tpg_207_Multiplayer_Attributes + ' + Me.tpg_207_Multiplayer_Attributes.Controls.Add(Me.pnl_207_Multiplayer_Attributes) + Me.tpg_207_Multiplayer_Attributes.Name = "tpg_207_Multiplayer_Attributes" + Me.tpg_207_Multiplayer_Attributes.Size = New System.Drawing.Size(383, 474) + Me.tpg_207_Multiplayer_Attributes.Text = "207_Multiplayer_Attributes" + ' + 'pnl_207_Multiplayer_Attributes + ' + Me.pnl_207_Multiplayer_Attributes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_207_Multiplayer_Attributes.Controls.Add(Me.pnl_207_Multiplayer_Attributes_Details) + Me.pnl_207_Multiplayer_Attributes.Controls.Add(Me.lbl_207_Multiplayer_Attributes_Explanation) + Me.pnl_207_Multiplayer_Attributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_207_Multiplayer_Attributes.Location = New System.Drawing.Point(0, 0) + Me.pnl_207_Multiplayer_Attributes.Name = "pnl_207_Multiplayer_Attributes" + Me.pnl_207_Multiplayer_Attributes.Size = New System.Drawing.Size(383, 474) + Me.pnl_207_Multiplayer_Attributes.TabIndex = 17 + ' + 'pnl_207_Multiplayer_Attributes_Details + ' + Me.pnl_207_Multiplayer_Attributes_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_207_Multiplayer_Attributes_Details.Controls.Add(Me.tlp_207_Multiplayer_Attributes) + Me.pnl_207_Multiplayer_Attributes_Details.Controls.Add(Me.lbl_Weight_207_Multiplayer_Attributes) + Me.pnl_207_Multiplayer_Attributes_Details.Controls.Add(Me.lbl_Weight_207_Multiplayer_Attributes_Text) + Me.pnl_207_Multiplayer_Attributes_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_207_Multiplayer_Attributes_Details.Location = New System.Drawing.Point(0, 97) + Me.pnl_207_Multiplayer_Attributes_Details.Name = "pnl_207_Multiplayer_Attributes_Details" + Me.pnl_207_Multiplayer_Attributes_Details.Size = New System.Drawing.Size(383, 377) + Me.pnl_207_Multiplayer_Attributes_Details.TabIndex = 1 + ' + 'tlp_207_Multiplayer_Attributes + ' + Me.tlp_207_Multiplayer_Attributes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_207_Multiplayer_Attributes.ColumnCount = 1 + Me.tlp_207_Multiplayer_Attributes.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_207_Multiplayer_Attributes.Controls.Add(Me.gb_207_Multiplayer_Attributes_AB, 0, 2) + Me.tlp_207_Multiplayer_Attributes.Controls.Add(Me.gb_207_Multiplayer_Attributes_B, 0, 1) + Me.tlp_207_Multiplayer_Attributes.Controls.Add(Me.gb_207_Multiplayer_Attributes_A, 0, 0) + Me.tlp_207_Multiplayer_Attributes.Location = New System.Drawing.Point(0, 27) + Me.tlp_207_Multiplayer_Attributes.Name = "tlp_207_Multiplayer_Attributes" + Me.tlp_207_Multiplayer_Attributes.RowCount = 3 + Me.tlp_207_Multiplayer_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_207_Multiplayer_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_207_Multiplayer_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_207_Multiplayer_Attributes.Size = New System.Drawing.Size(383, 351) + Me.tlp_207_Multiplayer_Attributes.TabIndex = 8 + ' + 'gb_207_Multiplayer_Attributes_AB + ' + Me.gb_207_Multiplayer_Attributes_AB.Controls.Add(Me.grd_207_Multiplayer_Attributes_AB) + Me.gb_207_Multiplayer_Attributes_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_207_Multiplayer_Attributes_AB.Location = New System.Drawing.Point(3, 237) + Me.gb_207_Multiplayer_Attributes_AB.Name = "gb_207_Multiplayer_Attributes_AB" + Me.gb_207_Multiplayer_Attributes_AB.Size = New System.Drawing.Size(377, 111) + Me.gb_207_Multiplayer_Attributes_AB.TabIndex = 2 + Me.gb_207_Multiplayer_Attributes_AB.Text = "Multiplayer Attributes shared by Games A and B" + ' + 'grd_207_Multiplayer_Attributes_AB + ' + Me.grd_207_Multiplayer_Attributes_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_207_Multiplayer_Attributes_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_207_Multiplayer_Attributes_AB.MainView = Me.gv_207_Multiplayer_Attributes_AB + Me.grd_207_Multiplayer_Attributes_AB.Name = "grd_207_Multiplayer_Attributes_AB" + Me.grd_207_Multiplayer_Attributes_AB.Size = New System.Drawing.Size(373, 89) + Me.grd_207_Multiplayer_Attributes_AB.TabIndex = 3 + Me.grd_207_Multiplayer_Attributes_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_207_Multiplayer_Attributes_AB}) + ' + 'gv_207_Multiplayer_Attributes_AB + ' + Me.gv_207_Multiplayer_Attributes_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_207_Multiplayer_Attributes_AB}) + Me.gv_207_Multiplayer_Attributes_AB.GridControl = Me.grd_207_Multiplayer_Attributes_AB + Me.gv_207_Multiplayer_Attributes_AB.Name = "gv_207_Multiplayer_Attributes_AB" + Me.gv_207_Multiplayer_Attributes_AB.OptionsSelection.InvertSelection = True + Me.gv_207_Multiplayer_Attributes_AB.OptionsView.ShowColumnHeaders = False + Me.gv_207_Multiplayer_Attributes_AB.OptionsView.ShowGroupPanel = False + Me.gv_207_Multiplayer_Attributes_AB.OptionsView.ShowIndicator = False + ' + 'col_207_Multiplayer_Attributes_AB + ' + Me.col_207_Multiplayer_Attributes_AB.FieldName = "Name" + Me.col_207_Multiplayer_Attributes_AB.Name = "col_207_Multiplayer_Attributes_AB" + Me.col_207_Multiplayer_Attributes_AB.OptionsColumn.AllowEdit = False + Me.col_207_Multiplayer_Attributes_AB.OptionsColumn.ReadOnly = True + Me.col_207_Multiplayer_Attributes_AB.Visible = True + Me.col_207_Multiplayer_Attributes_AB.VisibleIndex = 0 + ' + 'gb_207_Multiplayer_Attributes_B + ' + Me.gb_207_Multiplayer_Attributes_B.Controls.Add(Me.grd_207_Multiplayer_Attributes_B) + Me.gb_207_Multiplayer_Attributes_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_207_Multiplayer_Attributes_B.Location = New System.Drawing.Point(3, 120) + Me.gb_207_Multiplayer_Attributes_B.Name = "gb_207_Multiplayer_Attributes_B" + Me.gb_207_Multiplayer_Attributes_B.Size = New System.Drawing.Size(377, 111) + Me.gb_207_Multiplayer_Attributes_B.TabIndex = 1 + Me.gb_207_Multiplayer_Attributes_B.Text = "Multiplayer Attributes of Game B" + ' + 'grd_207_Multiplayer_Attributes_B + ' + Me.grd_207_Multiplayer_Attributes_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_207_Multiplayer_Attributes_B.Location = New System.Drawing.Point(2, 20) + Me.grd_207_Multiplayer_Attributes_B.MainView = Me.gv_207_Multiplayer_Attributes_B + Me.grd_207_Multiplayer_Attributes_B.Name = "grd_207_Multiplayer_Attributes_B" + Me.grd_207_Multiplayer_Attributes_B.Size = New System.Drawing.Size(373, 89) + Me.grd_207_Multiplayer_Attributes_B.TabIndex = 2 + Me.grd_207_Multiplayer_Attributes_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_207_Multiplayer_Attributes_B}) + ' + 'gv_207_Multiplayer_Attributes_B + ' + Me.gv_207_Multiplayer_Attributes_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_207_Multiplayer_Attributes_B}) + Me.gv_207_Multiplayer_Attributes_B.GridControl = Me.grd_207_Multiplayer_Attributes_B + Me.gv_207_Multiplayer_Attributes_B.Name = "gv_207_Multiplayer_Attributes_B" + Me.gv_207_Multiplayer_Attributes_B.OptionsSelection.InvertSelection = True + Me.gv_207_Multiplayer_Attributes_B.OptionsView.ShowColumnHeaders = False + Me.gv_207_Multiplayer_Attributes_B.OptionsView.ShowGroupPanel = False + Me.gv_207_Multiplayer_Attributes_B.OptionsView.ShowIndicator = False + ' + 'col_207_Multiplayer_Attributes_B + ' + Me.col_207_Multiplayer_Attributes_B.FieldName = "Name" + Me.col_207_Multiplayer_Attributes_B.Name = "col_207_Multiplayer_Attributes_B" + Me.col_207_Multiplayer_Attributes_B.OptionsColumn.AllowEdit = False + Me.col_207_Multiplayer_Attributes_B.OptionsColumn.ReadOnly = True + Me.col_207_Multiplayer_Attributes_B.Visible = True + Me.col_207_Multiplayer_Attributes_B.VisibleIndex = 0 + ' + 'gb_207_Multiplayer_Attributes_A + ' + Me.gb_207_Multiplayer_Attributes_A.Controls.Add(Me.grd_207_Multiplayer_Attributes_A) + Me.gb_207_Multiplayer_Attributes_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_207_Multiplayer_Attributes_A.Location = New System.Drawing.Point(3, 3) + Me.gb_207_Multiplayer_Attributes_A.Name = "gb_207_Multiplayer_Attributes_A" + Me.gb_207_Multiplayer_Attributes_A.Size = New System.Drawing.Size(377, 111) + Me.gb_207_Multiplayer_Attributes_A.TabIndex = 0 + Me.gb_207_Multiplayer_Attributes_A.Text = "Multiplayer Attributes of Game A" + ' + 'grd_207_Multiplayer_Attributes_A + ' + Me.grd_207_Multiplayer_Attributes_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_207_Multiplayer_Attributes_A.Location = New System.Drawing.Point(2, 20) + Me.grd_207_Multiplayer_Attributes_A.MainView = Me.gv_207_Multiplayer_Attributes_A + Me.grd_207_Multiplayer_Attributes_A.Name = "grd_207_Multiplayer_Attributes_A" + Me.grd_207_Multiplayer_Attributes_A.Size = New System.Drawing.Size(373, 89) + Me.grd_207_Multiplayer_Attributes_A.TabIndex = 1 + Me.grd_207_Multiplayer_Attributes_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_207_Multiplayer_Attributes_A}) + ' + 'gv_207_Multiplayer_Attributes_A + ' + Me.gv_207_Multiplayer_Attributes_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_207_Multiplayer_Attributes_A}) + Me.gv_207_Multiplayer_Attributes_A.GridControl = Me.grd_207_Multiplayer_Attributes_A + Me.gv_207_Multiplayer_Attributes_A.Name = "gv_207_Multiplayer_Attributes_A" + Me.gv_207_Multiplayer_Attributes_A.OptionsSelection.InvertSelection = True + Me.gv_207_Multiplayer_Attributes_A.OptionsView.ShowColumnHeaders = False + Me.gv_207_Multiplayer_Attributes_A.OptionsView.ShowGroupPanel = False + Me.gv_207_Multiplayer_Attributes_A.OptionsView.ShowIndicator = False + ' + 'col_207_Multiplayer_Attributes_A + ' + Me.col_207_Multiplayer_Attributes_A.FieldName = "Name" + Me.col_207_Multiplayer_Attributes_A.Name = "col_207_Multiplayer_Attributes_A" + Me.col_207_Multiplayer_Attributes_A.OptionsColumn.AllowEdit = False + Me.col_207_Multiplayer_Attributes_A.OptionsColumn.ReadOnly = True + Me.col_207_Multiplayer_Attributes_A.Visible = True + Me.col_207_Multiplayer_Attributes_A.VisibleIndex = 0 + ' + 'lbl_Weight_207_Multiplayer_Attributes + ' + Me.lbl_Weight_207_Multiplayer_Attributes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_207_Multiplayer_Attributes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_207_Multiplayer_Attributes.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_207_Multiplayer_Attributes.MKBoundControl1 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes.MKBoundControl2 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes.MKBoundControl3 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes.MKBoundControl4 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes.MKBoundControl5 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes.Name = "lbl_Weight_207_Multiplayer_Attributes" + Me.lbl_Weight_207_Multiplayer_Attributes.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight_207_Multiplayer_Attributes.TabIndex = 7 + Me.lbl_Weight_207_Multiplayer_Attributes.Text = "Weight:" + ' + 'lbl_Weight_207_Multiplayer_Attributes_Text + ' + Me.lbl_Weight_207_Multiplayer_Attributes_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_207_Multiplayer_Attributes_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_207_Multiplayer_Attributes_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_207_Multiplayer_Attributes_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_207_Multiplayer_Attributes_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_207_Multiplayer_Attributes_Text.Name = "lbl_Weight_207_Multiplayer_Attributes_Text" + Me.lbl_Weight_207_Multiplayer_Attributes_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_207_Multiplayer_Attributes_Text.TabIndex = 7 + ' + 'lbl_207_Multiplayer_Attributes_Explanation + ' + Me.lbl_207_Multiplayer_Attributes_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_207_Multiplayer_Attributes_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_207_Multiplayer_Attributes_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_207_Multiplayer_Attributes_Explanation.MKBoundControl1 = Nothing + Me.lbl_207_Multiplayer_Attributes_Explanation.MKBoundControl2 = Nothing + Me.lbl_207_Multiplayer_Attributes_Explanation.MKBoundControl3 = Nothing + Me.lbl_207_Multiplayer_Attributes_Explanation.MKBoundControl4 = Nothing + Me.lbl_207_Multiplayer_Attributes_Explanation.MKBoundControl5 = Nothing + Me.lbl_207_Multiplayer_Attributes_Explanation.Name = "lbl_207_Multiplayer_Attributes_Explanation" + Me.lbl_207_Multiplayer_Attributes_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_207_Multiplayer_Attributes_Explanation.Size = New System.Drawing.Size(383, 97) + Me.lbl_207_Multiplayer_Attributes_Explanation.TabIndex = 0 + Me.lbl_207_Multiplayer_Attributes_Explanation.Text = resources.GetString("lbl_207_Multiplayer_Attributes_Explanation.Text") + ' + 'tpg_206_Other_Attributes + ' + Me.tpg_206_Other_Attributes.Controls.Add(Me.pnl_206_Other_Attributes) + Me.tpg_206_Other_Attributes.Name = "tpg_206_Other_Attributes" + Me.tpg_206_Other_Attributes.Size = New System.Drawing.Size(383, 474) + Me.tpg_206_Other_Attributes.Text = "206_Other_Attributes" + ' + 'pnl_206_Other_Attributes + ' + Me.pnl_206_Other_Attributes.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_206_Other_Attributes.Controls.Add(Me.pnl_206_Other_Attributes_Details) + Me.pnl_206_Other_Attributes.Controls.Add(Me.lbl_206_Other_Attributes_Explanation) + Me.pnl_206_Other_Attributes.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_206_Other_Attributes.Location = New System.Drawing.Point(0, 0) + Me.pnl_206_Other_Attributes.Name = "pnl_206_Other_Attributes" + Me.pnl_206_Other_Attributes.Size = New System.Drawing.Size(383, 474) + Me.pnl_206_Other_Attributes.TabIndex = 17 + ' + 'pnl_206_Other_Attributes_Details + ' + Me.pnl_206_Other_Attributes_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_206_Other_Attributes_Details.Controls.Add(Me.tlp_206_Other_Attributes) + Me.pnl_206_Other_Attributes_Details.Controls.Add(Me.lbl_Weight_206_Other_Attributes) + Me.pnl_206_Other_Attributes_Details.Controls.Add(Me.lbl_Weight_206_Other_Attributes_Text) + Me.pnl_206_Other_Attributes_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_206_Other_Attributes_Details.Location = New System.Drawing.Point(0, 84) + Me.pnl_206_Other_Attributes_Details.Name = "pnl_206_Other_Attributes_Details" + Me.pnl_206_Other_Attributes_Details.Size = New System.Drawing.Size(383, 390) + Me.pnl_206_Other_Attributes_Details.TabIndex = 1 + ' + 'tlp_206_Other_Attributes + ' + Me.tlp_206_Other_Attributes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_206_Other_Attributes.ColumnCount = 1 + Me.tlp_206_Other_Attributes.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_206_Other_Attributes.Controls.Add(Me.gb_206_Other_Attributes_AB, 0, 2) + Me.tlp_206_Other_Attributes.Controls.Add(Me.gb_206_Other_Attributes_B, 0, 1) + Me.tlp_206_Other_Attributes.Controls.Add(Me.gb_206_Other_Attributes_A, 0, 0) + Me.tlp_206_Other_Attributes.Location = New System.Drawing.Point(0, 27) + Me.tlp_206_Other_Attributes.Name = "tlp_206_Other_Attributes" + Me.tlp_206_Other_Attributes.RowCount = 3 + Me.tlp_206_Other_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_206_Other_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_206_Other_Attributes.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_206_Other_Attributes.Size = New System.Drawing.Size(383, 364) + Me.tlp_206_Other_Attributes.TabIndex = 8 + ' + 'gb_206_Other_Attributes_AB + ' + Me.gb_206_Other_Attributes_AB.Controls.Add(Me.grd_206_Other_Attributes_AB) + Me.gb_206_Other_Attributes_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_206_Other_Attributes_AB.Location = New System.Drawing.Point(3, 245) + Me.gb_206_Other_Attributes_AB.Name = "gb_206_Other_Attributes_AB" + Me.gb_206_Other_Attributes_AB.Size = New System.Drawing.Size(377, 116) + Me.gb_206_Other_Attributes_AB.TabIndex = 2 + Me.gb_206_Other_Attributes_AB.Text = "Tech Info shared by Games A and B" + ' + 'grd_206_Other_Attributes_AB + ' + Me.grd_206_Other_Attributes_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_206_Other_Attributes_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_206_Other_Attributes_AB.MainView = Me.gv_206_Other_Attributes_AB + Me.grd_206_Other_Attributes_AB.Name = "grd_206_Other_Attributes_AB" + Me.grd_206_Other_Attributes_AB.Size = New System.Drawing.Size(373, 94) + Me.grd_206_Other_Attributes_AB.TabIndex = 3 + Me.grd_206_Other_Attributes_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_206_Other_Attributes_AB}) + ' + 'gv_206_Other_Attributes_AB + ' + Me.gv_206_Other_Attributes_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_206_Other_Attributes_AB}) + Me.gv_206_Other_Attributes_AB.GridControl = Me.grd_206_Other_Attributes_AB + Me.gv_206_Other_Attributes_AB.Name = "gv_206_Other_Attributes_AB" + Me.gv_206_Other_Attributes_AB.OptionsSelection.InvertSelection = True + Me.gv_206_Other_Attributes_AB.OptionsView.ShowColumnHeaders = False + Me.gv_206_Other_Attributes_AB.OptionsView.ShowGroupPanel = False + Me.gv_206_Other_Attributes_AB.OptionsView.ShowIndicator = False + ' + 'col_206_Other_Attributes_AB + ' + Me.col_206_Other_Attributes_AB.FieldName = "Name" + Me.col_206_Other_Attributes_AB.Name = "col_206_Other_Attributes_AB" + Me.col_206_Other_Attributes_AB.OptionsColumn.AllowEdit = False + Me.col_206_Other_Attributes_AB.OptionsColumn.ReadOnly = True + Me.col_206_Other_Attributes_AB.Visible = True + Me.col_206_Other_Attributes_AB.VisibleIndex = 0 + ' + 'gb_206_Other_Attributes_B + ' + Me.gb_206_Other_Attributes_B.Controls.Add(Me.grd_206_Other_Attributes_B) + Me.gb_206_Other_Attributes_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_206_Other_Attributes_B.Location = New System.Drawing.Point(3, 124) + Me.gb_206_Other_Attributes_B.Name = "gb_206_Other_Attributes_B" + Me.gb_206_Other_Attributes_B.Size = New System.Drawing.Size(377, 115) + Me.gb_206_Other_Attributes_B.TabIndex = 1 + Me.gb_206_Other_Attributes_B.Text = "Tech Info of Game B" + ' + 'grd_206_Other_Attributes_B + ' + Me.grd_206_Other_Attributes_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_206_Other_Attributes_B.Location = New System.Drawing.Point(2, 20) + Me.grd_206_Other_Attributes_B.MainView = Me.gv_206_Other_Attributes_B + Me.grd_206_Other_Attributes_B.Name = "grd_206_Other_Attributes_B" + Me.grd_206_Other_Attributes_B.Size = New System.Drawing.Size(373, 93) + Me.grd_206_Other_Attributes_B.TabIndex = 2 + Me.grd_206_Other_Attributes_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_206_Other_Attributes_B}) + ' + 'gv_206_Other_Attributes_B + ' + Me.gv_206_Other_Attributes_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_206_Other_Attributes_B}) + Me.gv_206_Other_Attributes_B.GridControl = Me.grd_206_Other_Attributes_B + Me.gv_206_Other_Attributes_B.Name = "gv_206_Other_Attributes_B" + Me.gv_206_Other_Attributes_B.OptionsSelection.InvertSelection = True + Me.gv_206_Other_Attributes_B.OptionsView.ShowColumnHeaders = False + Me.gv_206_Other_Attributes_B.OptionsView.ShowGroupPanel = False + Me.gv_206_Other_Attributes_B.OptionsView.ShowIndicator = False + ' + 'col_206_Other_Attributes_B + ' + Me.col_206_Other_Attributes_B.FieldName = "Name" + Me.col_206_Other_Attributes_B.Name = "col_206_Other_Attributes_B" + Me.col_206_Other_Attributes_B.OptionsColumn.AllowEdit = False + Me.col_206_Other_Attributes_B.OptionsColumn.ReadOnly = True + Me.col_206_Other_Attributes_B.Visible = True + Me.col_206_Other_Attributes_B.VisibleIndex = 0 + ' + 'gb_206_Other_Attributes_A + ' + Me.gb_206_Other_Attributes_A.Controls.Add(Me.grd_206_Other_Attributes_A) + Me.gb_206_Other_Attributes_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_206_Other_Attributes_A.Location = New System.Drawing.Point(3, 3) + Me.gb_206_Other_Attributes_A.Name = "gb_206_Other_Attributes_A" + Me.gb_206_Other_Attributes_A.Size = New System.Drawing.Size(377, 115) + Me.gb_206_Other_Attributes_A.TabIndex = 0 + Me.gb_206_Other_Attributes_A.Text = "Tech Info of Game A" + ' + 'grd_206_Other_Attributes_A + ' + Me.grd_206_Other_Attributes_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_206_Other_Attributes_A.Location = New System.Drawing.Point(2, 20) + Me.grd_206_Other_Attributes_A.MainView = Me.gv_206_Other_Attributes_A + Me.grd_206_Other_Attributes_A.Name = "grd_206_Other_Attributes_A" + Me.grd_206_Other_Attributes_A.Size = New System.Drawing.Size(373, 93) + Me.grd_206_Other_Attributes_A.TabIndex = 1 + Me.grd_206_Other_Attributes_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_206_Other_Attributes_A}) + ' + 'gv_206_Other_Attributes_A + ' + Me.gv_206_Other_Attributes_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_206_Other_Attributes_A}) + Me.gv_206_Other_Attributes_A.GridControl = Me.grd_206_Other_Attributes_A + Me.gv_206_Other_Attributes_A.Name = "gv_206_Other_Attributes_A" + Me.gv_206_Other_Attributes_A.OptionsSelection.InvertSelection = True + Me.gv_206_Other_Attributes_A.OptionsView.ShowColumnHeaders = False + Me.gv_206_Other_Attributes_A.OptionsView.ShowGroupPanel = False + Me.gv_206_Other_Attributes_A.OptionsView.ShowIndicator = False + ' + 'col_206_Other_Attributes_A + ' + Me.col_206_Other_Attributes_A.FieldName = "Name" + Me.col_206_Other_Attributes_A.Name = "col_206_Other_Attributes_A" + Me.col_206_Other_Attributes_A.OptionsColumn.AllowEdit = False + Me.col_206_Other_Attributes_A.OptionsColumn.ReadOnly = True + Me.col_206_Other_Attributes_A.Visible = True + Me.col_206_Other_Attributes_A.VisibleIndex = 0 + ' + 'lbl_Weight_206_Other_Attributes + ' + Me.lbl_Weight_206_Other_Attributes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_206_Other_Attributes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_206_Other_Attributes.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_206_Other_Attributes.MKBoundControl1 = Nothing + Me.lbl_Weight_206_Other_Attributes.MKBoundControl2 = Nothing + Me.lbl_Weight_206_Other_Attributes.MKBoundControl3 = Nothing + Me.lbl_Weight_206_Other_Attributes.MKBoundControl4 = Nothing + Me.lbl_Weight_206_Other_Attributes.MKBoundControl5 = Nothing + Me.lbl_Weight_206_Other_Attributes.Name = "lbl_Weight_206_Other_Attributes" + Me.lbl_Weight_206_Other_Attributes.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight_206_Other_Attributes.TabIndex = 7 + Me.lbl_Weight_206_Other_Attributes.Text = "Weight:" + ' + 'lbl_Weight_206_Other_Attributes_Text + ' + Me.lbl_Weight_206_Other_Attributes_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_206_Other_Attributes_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_206_Other_Attributes_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_206_Other_Attributes_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_206_Other_Attributes_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_206_Other_Attributes_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_206_Other_Attributes_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_206_Other_Attributes_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_206_Other_Attributes_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_206_Other_Attributes_Text.Name = "lbl_Weight_206_Other_Attributes_Text" + Me.lbl_Weight_206_Other_Attributes_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_206_Other_Attributes_Text.TabIndex = 7 + ' + 'lbl_206_Other_Attributes_Explanation + ' + Me.lbl_206_Other_Attributes_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_206_Other_Attributes_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_206_Other_Attributes_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_206_Other_Attributes_Explanation.MKBoundControl1 = Nothing + Me.lbl_206_Other_Attributes_Explanation.MKBoundControl2 = Nothing + Me.lbl_206_Other_Attributes_Explanation.MKBoundControl3 = Nothing + Me.lbl_206_Other_Attributes_Explanation.MKBoundControl4 = Nothing + Me.lbl_206_Other_Attributes_Explanation.MKBoundControl5 = Nothing + Me.lbl_206_Other_Attributes_Explanation.Name = "lbl_206_Other_Attributes_Explanation" + Me.lbl_206_Other_Attributes_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_206_Other_Attributes_Explanation.Size = New System.Drawing.Size(383, 84) + Me.lbl_206_Other_Attributes_Explanation.TabIndex = 0 + Me.lbl_206_Other_Attributes_Explanation.Text = resources.GetString("lbl_206_Other_Attributes_Explanation.Text") + ' + 'tpg_301_Group_Membership + ' + Me.tpg_301_Group_Membership.Controls.Add(Me.pnl_301_Group_Membership) + Me.tpg_301_Group_Membership.Name = "tpg_301_Group_Membership" + Me.tpg_301_Group_Membership.Size = New System.Drawing.Size(383, 474) + Me.tpg_301_Group_Membership.Text = "301_Group_Membership" + ' + 'pnl_301_Group_Membership + ' + Me.pnl_301_Group_Membership.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_301_Group_Membership.Controls.Add(Me.pnl_301_Group_Membership_Details) + Me.pnl_301_Group_Membership.Controls.Add(Me.lbl_301_Group_Membership_Explanation) + Me.pnl_301_Group_Membership.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_301_Group_Membership.Location = New System.Drawing.Point(0, 0) + Me.pnl_301_Group_Membership.Name = "pnl_301_Group_Membership" + Me.pnl_301_Group_Membership.Size = New System.Drawing.Size(383, 474) + Me.pnl_301_Group_Membership.TabIndex = 18 + ' + 'pnl_301_Group_Membership_Details + ' + Me.pnl_301_Group_Membership_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_301_Group_Membership_Details.Controls.Add(Me.tlp_301_Group_Membership) + Me.pnl_301_Group_Membership_Details.Controls.Add(Me.lbl_Weight_301_Group_Membership) + Me.pnl_301_Group_Membership_Details.Controls.Add(Me.lbl_Weight_301_Group_Membership_Text) + Me.pnl_301_Group_Membership_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_301_Group_Membership_Details.Location = New System.Drawing.Point(0, 97) + Me.pnl_301_Group_Membership_Details.Name = "pnl_301_Group_Membership_Details" + Me.pnl_301_Group_Membership_Details.Size = New System.Drawing.Size(383, 377) + Me.pnl_301_Group_Membership_Details.TabIndex = 1 + ' + 'tlp_301_Group_Membership + ' + Me.tlp_301_Group_Membership.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_301_Group_Membership.ColumnCount = 1 + Me.tlp_301_Group_Membership.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_301_Group_Membership.Controls.Add(Me.gb_301_Group_Membership_AB, 0, 2) + Me.tlp_301_Group_Membership.Controls.Add(Me.gb_301_Group_Membership_B, 0, 1) + Me.tlp_301_Group_Membership.Controls.Add(Me.gb_301_Group_Membership_A, 0, 0) + Me.tlp_301_Group_Membership.Location = New System.Drawing.Point(0, 27) + Me.tlp_301_Group_Membership.Name = "tlp_301_Group_Membership" + Me.tlp_301_Group_Membership.RowCount = 3 + Me.tlp_301_Group_Membership.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_301_Group_Membership.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_301_Group_Membership.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_301_Group_Membership.Size = New System.Drawing.Size(383, 351) + Me.tlp_301_Group_Membership.TabIndex = 8 + ' + 'gb_301_Group_Membership_AB + ' + Me.gb_301_Group_Membership_AB.Controls.Add(Me.grd_301_Group_Membership_AB) + Me.gb_301_Group_Membership_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_301_Group_Membership_AB.Location = New System.Drawing.Point(3, 237) + Me.gb_301_Group_Membership_AB.Name = "gb_301_Group_Membership_AB" + Me.gb_301_Group_Membership_AB.Size = New System.Drawing.Size(377, 111) + Me.gb_301_Group_Membership_AB.TabIndex = 2 + Me.gb_301_Group_Membership_AB.Text = "Group Membership shared by Games A and B" + ' + 'grd_301_Group_Membership_AB + ' + Me.grd_301_Group_Membership_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_301_Group_Membership_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_301_Group_Membership_AB.MainView = Me.gv_301_Group_Membership_AB + Me.grd_301_Group_Membership_AB.Name = "grd_301_Group_Membership_AB" + Me.grd_301_Group_Membership_AB.Size = New System.Drawing.Size(373, 89) + Me.grd_301_Group_Membership_AB.TabIndex = 3 + Me.grd_301_Group_Membership_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_301_Group_Membership_AB}) + ' + 'gv_301_Group_Membership_AB + ' + Me.gv_301_Group_Membership_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_301_Group_Membership_AB}) + Me.gv_301_Group_Membership_AB.GridControl = Me.grd_301_Group_Membership_AB + Me.gv_301_Group_Membership_AB.Name = "gv_301_Group_Membership_AB" + Me.gv_301_Group_Membership_AB.OptionsSelection.InvertSelection = True + Me.gv_301_Group_Membership_AB.OptionsView.ShowColumnHeaders = False + Me.gv_301_Group_Membership_AB.OptionsView.ShowGroupPanel = False + Me.gv_301_Group_Membership_AB.OptionsView.ShowIndicator = False + ' + 'col_301_Group_Membership_AB + ' + Me.col_301_Group_Membership_AB.FieldName = "Name" + Me.col_301_Group_Membership_AB.Name = "col_301_Group_Membership_AB" + Me.col_301_Group_Membership_AB.OptionsColumn.AllowEdit = False + Me.col_301_Group_Membership_AB.OptionsColumn.ReadOnly = True + Me.col_301_Group_Membership_AB.Visible = True + Me.col_301_Group_Membership_AB.VisibleIndex = 0 + ' + 'gb_301_Group_Membership_B + ' + Me.gb_301_Group_Membership_B.Controls.Add(Me.grd_301_Group_Membership_B) + Me.gb_301_Group_Membership_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_301_Group_Membership_B.Location = New System.Drawing.Point(3, 120) + Me.gb_301_Group_Membership_B.Name = "gb_301_Group_Membership_B" + Me.gb_301_Group_Membership_B.Size = New System.Drawing.Size(377, 111) + Me.gb_301_Group_Membership_B.TabIndex = 1 + Me.gb_301_Group_Membership_B.Text = "Group Membership of Game B" + ' + 'grd_301_Group_Membership_B + ' + Me.grd_301_Group_Membership_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_301_Group_Membership_B.Location = New System.Drawing.Point(2, 20) + Me.grd_301_Group_Membership_B.MainView = Me.gv_301_Group_Membership_B + Me.grd_301_Group_Membership_B.Name = "grd_301_Group_Membership_B" + Me.grd_301_Group_Membership_B.Size = New System.Drawing.Size(373, 89) + Me.grd_301_Group_Membership_B.TabIndex = 2 + Me.grd_301_Group_Membership_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_301_Group_Membership_B}) + ' + 'gv_301_Group_Membership_B + ' + Me.gv_301_Group_Membership_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_301_Group_Membership_B}) + Me.gv_301_Group_Membership_B.GridControl = Me.grd_301_Group_Membership_B + Me.gv_301_Group_Membership_B.Name = "gv_301_Group_Membership_B" + Me.gv_301_Group_Membership_B.OptionsSelection.InvertSelection = True + Me.gv_301_Group_Membership_B.OptionsView.ShowColumnHeaders = False + Me.gv_301_Group_Membership_B.OptionsView.ShowGroupPanel = False + Me.gv_301_Group_Membership_B.OptionsView.ShowIndicator = False + ' + 'col_301_Group_Membership_B + ' + Me.col_301_Group_Membership_B.FieldName = "Name" + Me.col_301_Group_Membership_B.Name = "col_301_Group_Membership_B" + Me.col_301_Group_Membership_B.OptionsColumn.AllowEdit = False + Me.col_301_Group_Membership_B.OptionsColumn.ReadOnly = True + Me.col_301_Group_Membership_B.Visible = True + Me.col_301_Group_Membership_B.VisibleIndex = 0 + ' + 'gb_301_Group_Membership_A + ' + Me.gb_301_Group_Membership_A.Controls.Add(Me.grd_301_Group_Membership_A) + Me.gb_301_Group_Membership_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_301_Group_Membership_A.Location = New System.Drawing.Point(3, 3) + Me.gb_301_Group_Membership_A.Name = "gb_301_Group_Membership_A" + Me.gb_301_Group_Membership_A.Size = New System.Drawing.Size(377, 111) + Me.gb_301_Group_Membership_A.TabIndex = 0 + Me.gb_301_Group_Membership_A.Text = "Group Membership of Game A" + ' + 'grd_301_Group_Membership_A + ' + Me.grd_301_Group_Membership_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_301_Group_Membership_A.Location = New System.Drawing.Point(2, 20) + Me.grd_301_Group_Membership_A.MainView = Me.gv_301_Group_Membership_A + Me.grd_301_Group_Membership_A.Name = "grd_301_Group_Membership_A" + Me.grd_301_Group_Membership_A.Size = New System.Drawing.Size(373, 89) + Me.grd_301_Group_Membership_A.TabIndex = 1 + Me.grd_301_Group_Membership_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_301_Group_Membership_A}) + ' + 'gv_301_Group_Membership_A + ' + Me.gv_301_Group_Membership_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_301_Group_Membership_A}) + Me.gv_301_Group_Membership_A.GridControl = Me.grd_301_Group_Membership_A + Me.gv_301_Group_Membership_A.Name = "gv_301_Group_Membership_A" + Me.gv_301_Group_Membership_A.OptionsSelection.InvertSelection = True + Me.gv_301_Group_Membership_A.OptionsView.ShowColumnHeaders = False + Me.gv_301_Group_Membership_A.OptionsView.ShowGroupPanel = False + Me.gv_301_Group_Membership_A.OptionsView.ShowIndicator = False + ' + 'col_301_Group_Membership_A + ' + Me.col_301_Group_Membership_A.FieldName = "Name" + Me.col_301_Group_Membership_A.Name = "col_301_Group_Membership_A" + Me.col_301_Group_Membership_A.OptionsColumn.AllowEdit = False + Me.col_301_Group_Membership_A.OptionsColumn.ReadOnly = True + Me.col_301_Group_Membership_A.Visible = True + Me.col_301_Group_Membership_A.VisibleIndex = 0 + ' + 'lbl_Weight_301_Group_Membership + ' + Me.lbl_Weight_301_Group_Membership.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_301_Group_Membership.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_301_Group_Membership.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_301_Group_Membership.MKBoundControl1 = Nothing + Me.lbl_Weight_301_Group_Membership.MKBoundControl2 = Nothing + Me.lbl_Weight_301_Group_Membership.MKBoundControl3 = Nothing + Me.lbl_Weight_301_Group_Membership.MKBoundControl4 = Nothing + Me.lbl_Weight_301_Group_Membership.MKBoundControl5 = Nothing + Me.lbl_Weight_301_Group_Membership.Name = "lbl_Weight_301_Group_Membership" + Me.lbl_Weight_301_Group_Membership.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight_301_Group_Membership.TabIndex = 7 + Me.lbl_Weight_301_Group_Membership.Text = "Weight:" + ' + 'lbl_Weight_301_Group_Membership_Text + ' + Me.lbl_Weight_301_Group_Membership_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_301_Group_Membership_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_301_Group_Membership_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_301_Group_Membership_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_301_Group_Membership_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_301_Group_Membership_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_301_Group_Membership_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_301_Group_Membership_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_301_Group_Membership_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_301_Group_Membership_Text.Name = "lbl_Weight_301_Group_Membership_Text" + Me.lbl_Weight_301_Group_Membership_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_301_Group_Membership_Text.TabIndex = 7 + ' + 'lbl_301_Group_Membership_Explanation + ' + Me.lbl_301_Group_Membership_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_301_Group_Membership_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_301_Group_Membership_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_301_Group_Membership_Explanation.MKBoundControl1 = Nothing + Me.lbl_301_Group_Membership_Explanation.MKBoundControl2 = Nothing + Me.lbl_301_Group_Membership_Explanation.MKBoundControl3 = Nothing + Me.lbl_301_Group_Membership_Explanation.MKBoundControl4 = Nothing + Me.lbl_301_Group_Membership_Explanation.MKBoundControl5 = Nothing + Me.lbl_301_Group_Membership_Explanation.Name = "lbl_301_Group_Membership_Explanation" + Me.lbl_301_Group_Membership_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_301_Group_Membership_Explanation.Size = New System.Drawing.Size(383, 97) + Me.lbl_301_Group_Membership_Explanation.TabIndex = 0 + Me.lbl_301_Group_Membership_Explanation.Text = resources.GetString("lbl_301_Group_Membership_Explanation.Text") + ' + 'tpg_401_Staff + ' + Me.tpg_401_Staff.Controls.Add(Me.pnl_401_Staff) + Me.tpg_401_Staff.Name = "tpg_401_Staff" + Me.tpg_401_Staff.Size = New System.Drawing.Size(383, 474) + Me.tpg_401_Staff.Text = "401_Staff" + ' + 'pnl_401_Staff + ' + Me.pnl_401_Staff.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_401_Staff.Controls.Add(Me.pnl_401_Staff_Details) + Me.pnl_401_Staff.Controls.Add(Me.lbl_401_Staff) + Me.pnl_401_Staff.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_401_Staff.Location = New System.Drawing.Point(0, 0) + Me.pnl_401_Staff.Name = "pnl_401_Staff" + Me.pnl_401_Staff.Size = New System.Drawing.Size(383, 474) + Me.pnl_401_Staff.TabIndex = 19 + ' + 'pnl_401_Staff_Details + ' + Me.pnl_401_Staff_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_401_Staff_Details.Controls.Add(Me.tlp_401_Staff) + Me.pnl_401_Staff_Details.Controls.Add(Me.lbl_Weight_401_Staff) + Me.pnl_401_Staff_Details.Controls.Add(Me.lbl_Weight_401_Staff_Text) + Me.pnl_401_Staff_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_401_Staff_Details.Location = New System.Drawing.Point(0, 84) + Me.pnl_401_Staff_Details.Name = "pnl_401_Staff_Details" + Me.pnl_401_Staff_Details.Size = New System.Drawing.Size(383, 390) + Me.pnl_401_Staff_Details.TabIndex = 1 + ' + 'tlp_401_Staff + ' + Me.tlp_401_Staff.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_401_Staff.ColumnCount = 1 + Me.tlp_401_Staff.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_401_Staff.Controls.Add(Me.gb_401_Staff_AB, 0, 2) + Me.tlp_401_Staff.Controls.Add(Me.gb_401_Staff_B, 0, 1) + Me.tlp_401_Staff.Controls.Add(Me.gb_401_Staff_A, 0, 0) + Me.tlp_401_Staff.Location = New System.Drawing.Point(0, 27) + Me.tlp_401_Staff.Name = "tlp_401_Staff" + Me.tlp_401_Staff.RowCount = 3 + Me.tlp_401_Staff.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_401_Staff.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_401_Staff.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_401_Staff.Size = New System.Drawing.Size(383, 364) + Me.tlp_401_Staff.TabIndex = 8 + ' + 'gb_401_Staff_AB + ' + Me.gb_401_Staff_AB.Controls.Add(Me.grd_401_Staff_AB) + Me.gb_401_Staff_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_401_Staff_AB.Location = New System.Drawing.Point(3, 245) + Me.gb_401_Staff_AB.Name = "gb_401_Staff_AB" + Me.gb_401_Staff_AB.Size = New System.Drawing.Size(377, 116) + Me.gb_401_Staff_AB.TabIndex = 2 + Me.gb_401_Staff_AB.Text = "Staff involved in both Games A and B" + ' + 'grd_401_Staff_AB + ' + Me.grd_401_Staff_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_401_Staff_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_401_Staff_AB.MainView = Me.gv_401_Staff_AB + Me.grd_401_Staff_AB.Name = "grd_401_Staff_AB" + Me.grd_401_Staff_AB.Size = New System.Drawing.Size(373, 94) + Me.grd_401_Staff_AB.TabIndex = 3 + Me.grd_401_Staff_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_401_Staff_AB}) + ' + 'gv_401_Staff_AB + ' + Me.gv_401_Staff_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_401_Staff_AB}) + Me.gv_401_Staff_AB.GridControl = Me.grd_401_Staff_AB + Me.gv_401_Staff_AB.Name = "gv_401_Staff_AB" + Me.gv_401_Staff_AB.OptionsSelection.InvertSelection = True + Me.gv_401_Staff_AB.OptionsView.ShowColumnHeaders = False + Me.gv_401_Staff_AB.OptionsView.ShowGroupPanel = False + Me.gv_401_Staff_AB.OptionsView.ShowIndicator = False + ' + 'col_401_Staff_AB + ' + Me.col_401_Staff_AB.FieldName = "Name" + Me.col_401_Staff_AB.Name = "col_401_Staff_AB" + Me.col_401_Staff_AB.OptionsColumn.AllowEdit = False + Me.col_401_Staff_AB.OptionsColumn.ReadOnly = True + Me.col_401_Staff_AB.Visible = True + Me.col_401_Staff_AB.VisibleIndex = 0 + ' + 'gb_401_Staff_B + ' + Me.gb_401_Staff_B.Controls.Add(Me.grd_401_Staff_B) + Me.gb_401_Staff_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_401_Staff_B.Location = New System.Drawing.Point(3, 124) + Me.gb_401_Staff_B.Name = "gb_401_Staff_B" + Me.gb_401_Staff_B.Size = New System.Drawing.Size(377, 115) + Me.gb_401_Staff_B.TabIndex = 1 + Me.gb_401_Staff_B.Text = "Staff involved in Game B" + ' + 'grd_401_Staff_B + ' + Me.grd_401_Staff_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_401_Staff_B.Location = New System.Drawing.Point(2, 20) + Me.grd_401_Staff_B.MainView = Me.gv_401_Staff_B + Me.grd_401_Staff_B.Name = "grd_401_Staff_B" + Me.grd_401_Staff_B.Size = New System.Drawing.Size(373, 93) + Me.grd_401_Staff_B.TabIndex = 2 + Me.grd_401_Staff_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_401_Staff_B}) + ' + 'gv_401_Staff_B + ' + Me.gv_401_Staff_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_401_Staff_B}) + Me.gv_401_Staff_B.GridControl = Me.grd_401_Staff_B + Me.gv_401_Staff_B.Name = "gv_401_Staff_B" + Me.gv_401_Staff_B.OptionsSelection.InvertSelection = True + Me.gv_401_Staff_B.OptionsView.ShowColumnHeaders = False + Me.gv_401_Staff_B.OptionsView.ShowGroupPanel = False + Me.gv_401_Staff_B.OptionsView.ShowIndicator = False + ' + 'col_401_Staff_B + ' + Me.col_401_Staff_B.FieldName = "Name" + Me.col_401_Staff_B.Name = "col_401_Staff_B" + Me.col_401_Staff_B.OptionsColumn.AllowEdit = False + Me.col_401_Staff_B.OptionsColumn.ReadOnly = True + Me.col_401_Staff_B.Visible = True + Me.col_401_Staff_B.VisibleIndex = 0 + ' + 'gb_401_Staff_A + ' + Me.gb_401_Staff_A.Controls.Add(Me.grd_401_Staff_A) + Me.gb_401_Staff_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_401_Staff_A.Location = New System.Drawing.Point(3, 3) + Me.gb_401_Staff_A.Name = "gb_401_Staff_A" + Me.gb_401_Staff_A.Size = New System.Drawing.Size(377, 115) + Me.gb_401_Staff_A.TabIndex = 0 + Me.gb_401_Staff_A.Text = "Staff involved in Game A" + ' + 'grd_401_Staff_A + ' + Me.grd_401_Staff_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_401_Staff_A.Location = New System.Drawing.Point(2, 20) + Me.grd_401_Staff_A.MainView = Me.gv_401_Staff_A + Me.grd_401_Staff_A.Name = "grd_401_Staff_A" + Me.grd_401_Staff_A.Size = New System.Drawing.Size(373, 93) + Me.grd_401_Staff_A.TabIndex = 1 + Me.grd_401_Staff_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_401_Staff_A}) + ' + 'gv_401_Staff_A + ' + Me.gv_401_Staff_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_401_Staff_A}) + Me.gv_401_Staff_A.GridControl = Me.grd_401_Staff_A + Me.gv_401_Staff_A.Name = "gv_401_Staff_A" + Me.gv_401_Staff_A.OptionsSelection.InvertSelection = True + Me.gv_401_Staff_A.OptionsView.ShowColumnHeaders = False + Me.gv_401_Staff_A.OptionsView.ShowGroupPanel = False + Me.gv_401_Staff_A.OptionsView.ShowIndicator = False + ' + 'col_401_Staff_A + ' + Me.col_401_Staff_A.FieldName = "Name" + Me.col_401_Staff_A.Name = "col_401_Staff_A" + Me.col_401_Staff_A.OptionsColumn.AllowEdit = False + Me.col_401_Staff_A.OptionsColumn.ReadOnly = True + Me.col_401_Staff_A.Visible = True + Me.col_401_Staff_A.VisibleIndex = 0 + ' + 'lbl_Weight_401_Staff + ' + Me.lbl_Weight_401_Staff.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight_401_Staff.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_401_Staff.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight_401_Staff.MKBoundControl1 = Nothing + Me.lbl_Weight_401_Staff.MKBoundControl2 = Nothing + Me.lbl_Weight_401_Staff.MKBoundControl3 = Nothing + Me.lbl_Weight_401_Staff.MKBoundControl4 = Nothing + Me.lbl_Weight_401_Staff.MKBoundControl5 = Nothing + Me.lbl_Weight_401_Staff.Name = "lbl_Weight_401_Staff" + Me.lbl_Weight_401_Staff.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight_401_Staff.TabIndex = 7 + Me.lbl_Weight_401_Staff.Text = "Weight:" + ' + 'lbl_Weight_401_Staff_Text + ' + Me.lbl_Weight_401_Staff_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_401_Staff_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_401_Staff_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_401_Staff_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_401_Staff_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_401_Staff_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_401_Staff_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_401_Staff_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_401_Staff_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_401_Staff_Text.Name = "lbl_Weight_401_Staff_Text" + Me.lbl_Weight_401_Staff_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_401_Staff_Text.TabIndex = 7 + ' + 'lbl_401_Staff + ' + Me.lbl_401_Staff.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_401_Staff.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_401_Staff.Location = New System.Drawing.Point(0, 0) + Me.lbl_401_Staff.MKBoundControl1 = Nothing + Me.lbl_401_Staff.MKBoundControl2 = Nothing + Me.lbl_401_Staff.MKBoundControl3 = Nothing + Me.lbl_401_Staff.MKBoundControl4 = Nothing + Me.lbl_401_Staff.MKBoundControl5 = Nothing + Me.lbl_401_Staff.Name = "lbl_401_Staff" + Me.lbl_401_Staff.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_401_Staff.Size = New System.Drawing.Size(383, 84) + Me.lbl_401_Staff.TabIndex = 0 + Me.lbl_401_Staff.Text = resources.GetString("lbl_401_Staff.Text") + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.col_id, Me.DataColumn2, Me.DataColumn3, Me.DataColumn4}) + Me.DataTable1.TableName = "Table1" + ' + 'col_id + ' + Me.col_id.ColumnName = "id" + Me.col_id.DataType = GetType(Integer) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Feature" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Calculation" + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "Score" + ' + 'lbl_Game_A + ' + Me.lbl_Game_A.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Game_A.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Game_A.Location = New System.Drawing.Point(3, 3) + Me.lbl_Game_A.MKBoundControl1 = Nothing + Me.lbl_Game_A.MKBoundControl2 = Nothing + Me.lbl_Game_A.MKBoundControl3 = Nothing + Me.lbl_Game_A.MKBoundControl4 = Nothing + Me.lbl_Game_A.MKBoundControl5 = Nothing + Me.lbl_Game_A.Name = "lbl_Game_A" + Me.lbl_Game_A.Size = New System.Drawing.Size(121, 20) + Me.lbl_Game_A.TabIndex = 7 + Me.lbl_Game_A.Text = "Game A:" + ' + 'lbl_Game_A_Text + ' + Me.lbl_Game_A_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Game_A_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Game_A_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Game_A_Text.Location = New System.Drawing.Point(127, 3) + Me.lbl_Game_A_Text.MKBoundControl1 = Nothing + Me.lbl_Game_A_Text.MKBoundControl2 = Nothing + Me.lbl_Game_A_Text.MKBoundControl3 = Nothing + Me.lbl_Game_A_Text.MKBoundControl4 = Nothing + Me.lbl_Game_A_Text.MKBoundControl5 = Nothing + Me.lbl_Game_A_Text.Name = "lbl_Game_A_Text" + Me.lbl_Game_A_Text.Size = New System.Drawing.Size(654, 20) + Me.lbl_Game_A_Text.TabIndex = 7 + ' + 'lbl_Game_B + ' + Me.lbl_Game_B.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Game_B.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Game_B.Location = New System.Drawing.Point(3, 26) + Me.lbl_Game_B.MKBoundControl1 = Nothing + Me.lbl_Game_B.MKBoundControl2 = Nothing + Me.lbl_Game_B.MKBoundControl3 = Nothing + Me.lbl_Game_B.MKBoundControl4 = Nothing + Me.lbl_Game_B.MKBoundControl5 = Nothing + Me.lbl_Game_B.Name = "lbl_Game_B" + Me.lbl_Game_B.Size = New System.Drawing.Size(121, 20) + Me.lbl_Game_B.TabIndex = 7 + Me.lbl_Game_B.Text = "Game B:" + ' + 'lbl_Game_B_Text + ' + Me.lbl_Game_B_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Game_B_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Game_B_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Game_B_Text.Location = New System.Drawing.Point(127, 26) + Me.lbl_Game_B_Text.MKBoundControl1 = Nothing + Me.lbl_Game_B_Text.MKBoundControl2 = Nothing + Me.lbl_Game_B_Text.MKBoundControl3 = Nothing + Me.lbl_Game_B_Text.MKBoundControl4 = Nothing + Me.lbl_Game_B_Text.MKBoundControl5 = Nothing + Me.lbl_Game_B_Text.Name = "lbl_Game_B_Text" + Me.lbl_Game_B_Text.Size = New System.Drawing.Size(654, 20) + Me.lbl_Game_B_Text.TabIndex = 7 + ' + 'lbl_Similarity + ' + Me.lbl_Similarity.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Similarity.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity.Location = New System.Drawing.Point(3, 72) + Me.lbl_Similarity.MKBoundControl1 = Nothing + Me.lbl_Similarity.MKBoundControl2 = Nothing + Me.lbl_Similarity.MKBoundControl3 = Nothing + Me.lbl_Similarity.MKBoundControl4 = Nothing + Me.lbl_Similarity.MKBoundControl5 = Nothing + Me.lbl_Similarity.Name = "lbl_Similarity" + Me.lbl_Similarity.Size = New System.Drawing.Size(121, 20) + ToolTipTitleItem1.Text = "Overall Similarity" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_Similarity.SuperTip = SuperToolTip1 + Me.lbl_Similarity.TabIndex = 7 + Me.lbl_Similarity.Text = "Overall Similarity:" + ' + 'lbl_Similarity_Text + ' + Me.lbl_Similarity_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Similarity_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Similarity_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity_Text.Location = New System.Drawing.Point(127, 72) + Me.lbl_Similarity_Text.MKBoundControl1 = Nothing + Me.lbl_Similarity_Text.MKBoundControl2 = Nothing + Me.lbl_Similarity_Text.MKBoundControl3 = Nothing + Me.lbl_Similarity_Text.MKBoundControl4 = Nothing + Me.lbl_Similarity_Text.MKBoundControl5 = Nothing + Me.lbl_Similarity_Text.Name = "lbl_Similarity_Text" + Me.lbl_Similarity_Text.Size = New System.Drawing.Size(654, 20) + ToolTipTitleItem2.Text = "Overall Similarity" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = resources.GetString("ToolTipItem2.Text") + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.lbl_Similarity_Text.SuperTip = SuperToolTip2 + Me.lbl_Similarity_Text.TabIndex = 7 + ' + 'btn_Close + ' + Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Close.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Close.Location = New System.Drawing.Point(706, 602) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 19) + Me.btn_Close.TabIndex = 0 + Me.btn_Close.Text = "&Close" + ' + 'lbl_Similarity_Calculation_Configuration + ' + Me.lbl_Similarity_Calculation_Configuration.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Similarity_Calculation_Configuration.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity_Calculation_Configuration.Location = New System.Drawing.Point(3, 49) + Me.lbl_Similarity_Calculation_Configuration.MKBoundControl1 = Nothing + Me.lbl_Similarity_Calculation_Configuration.MKBoundControl2 = Nothing + Me.lbl_Similarity_Calculation_Configuration.MKBoundControl3 = Nothing + Me.lbl_Similarity_Calculation_Configuration.MKBoundControl4 = Nothing + Me.lbl_Similarity_Calculation_Configuration.MKBoundControl5 = Nothing + Me.lbl_Similarity_Calculation_Configuration.Name = "lbl_Similarity_Calculation_Configuration" + Me.lbl_Similarity_Calculation_Configuration.Size = New System.Drawing.Size(121, 20) + Me.lbl_Similarity_Calculation_Configuration.TabIndex = 7 + Me.lbl_Similarity_Calculation_Configuration.Text = "Similarity Configuration:" + ' + 'lbl_Similarity_Calculation_Configuration_Text + ' + Me.lbl_Similarity_Calculation_Configuration_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Similarity_Calculation_Configuration_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Similarity_Calculation_Configuration_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity_Calculation_Configuration_Text.Location = New System.Drawing.Point(127, 49) + Me.lbl_Similarity_Calculation_Configuration_Text.MKBoundControl1 = Nothing + Me.lbl_Similarity_Calculation_Configuration_Text.MKBoundControl2 = Nothing + Me.lbl_Similarity_Calculation_Configuration_Text.MKBoundControl3 = Nothing + Me.lbl_Similarity_Calculation_Configuration_Text.MKBoundControl4 = Nothing + Me.lbl_Similarity_Calculation_Configuration_Text.MKBoundControl5 = Nothing + Me.lbl_Similarity_Calculation_Configuration_Text.Name = "lbl_Similarity_Calculation_Configuration_Text" + Me.lbl_Similarity_Calculation_Configuration_Text.Size = New System.Drawing.Size(654, 20) + Me.lbl_Similarity_Calculation_Configuration_Text.TabIndex = 7 + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "Weight" + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "Weighted_Score" + ' + 'frm_Similarity_Calculation_Details + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 624) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.lbl_Similarity_Calculation_Configuration_Text) + Me.Controls.Add(Me.lbl_Similarity_Text) + Me.Controls.Add(Me.lbl_Game_B_Text) + Me.Controls.Add(Me.lbl_Game_A_Text) + Me.Controls.Add(Me.lbl_Similarity_Calculation_Configuration) + Me.Controls.Add(Me.lbl_Similarity) + Me.Controls.Add(Me.lbl_Game_B) + Me.Controls.Add(Me.lbl_Game_A) + Me.Controls.Add(Me.splt_Main) + Me.Name = "frm_Similarity_Calculation_Details" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Similarity Calculation Details" + CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_Main.ResumeLayout(False) + CType(Me.grd_Main, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Main, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Main, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tcl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Main.ResumeLayout(False) + Me.tpg_001_Platform.ResumeLayout(False) + CType(Me.pnl_001_Platform, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_001_Platform.ResumeLayout(False) + CType(Me.pnl_001_Platform_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_001_Platform_Details.ResumeLayout(False) + Me.tpg_002_MobyRank.ResumeLayout(False) + CType(Me.pnl_002_MobyRank, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_002_MobyRank.ResumeLayout(False) + CType(Me.pnl_002_MobyRank_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_002_MobyRank_Details.ResumeLayout(False) + Me.tpg_003_MobyScore.ResumeLayout(False) + CType(Me.pnl_003_MobyScore, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_003_MobyScore.ResumeLayout(False) + CType(Me.pnl_003_MobyScore_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_003_MobyScore_Details.ResumeLayout(False) + Me.tpg_004_Publisher.ResumeLayout(False) + CType(Me.pnl_004_Publisher, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_004_Publisher.ResumeLayout(False) + CType(Me.pnl_004_Publisher_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_004_Publisher_Details.ResumeLayout(False) + Me.tpg_005_Developer.ResumeLayout(False) + CType(Me.pnl_005_Developer, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_005_Developer.ResumeLayout(False) + CType(Me.pnl_005_Developer_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_005_Developer_Details.ResumeLayout(False) + Me.tpg_006_Year.ResumeLayout(False) + CType(Me.pnl_006_Year, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_006_Year.ResumeLayout(False) + CType(Me.pnl_006_Year_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_006_Year_Details.ResumeLayout(False) + Me.tpg_101_Basic_Genres.ResumeLayout(False) + Me.tpg_102_Perspectives.ResumeLayout(False) + Me.tpg_107_Visual_Presentation.ResumeLayout(False) + Me.tpg_108_Gameplay.ResumeLayout(False) + Me.tpg_109_Pacing.ResumeLayout(False) + Me.tpg_110_Narrative_Theme_Topic.ResumeLayout(False) + Me.tpg_111_Setting.ResumeLayout(False) + Me.tpg_103_Sports_Themes.ResumeLayout(False) + Me.tpg_112_Vehicular_Themes.ResumeLayout(False) + Me.tpg_105_Educational_Categories.ResumeLayout(False) + Me.tpg_113_Interface_Control.ResumeLayout(False) + Me.tpg_114_DLC_Addon.ResumeLayout(False) + Me.tpg_115_Special_Edition.ResumeLayout(False) + Me.tpg_106_Other_Attributes.ResumeLayout(False) + Me.tpg_201_MinPlayers.ResumeLayout(False) + CType(Me.pnl_201_MinPlayers, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_201_MinPlayers.ResumeLayout(False) + CType(Me.pnl_201_MinPlayers_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_201_MinPlayers_Details.ResumeLayout(False) + Me.tpg_202_MaxPlayers.ResumeLayout(False) + CType(Me.pnl_202_MaxPlayers, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_202_MaxPlayers.ResumeLayout(False) + CType(Me.pnl_202_MaxPlayers_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_202_MaxPlayers_Details.ResumeLayout(False) + Me.tpg_203_AgeO.ResumeLayout(False) + CType(Me.pnl_203_AgeO, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_203_AgeO.ResumeLayout(False) + CType(Me.pnl_203_AgeO_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_203_AgeO_Details.ResumeLayout(False) + Me.tpg_204_AgeP.ResumeLayout(False) + CType(Me.pnl_204_AgeP, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_204_AgeP.ResumeLayout(False) + CType(Me.pnl_204_AgeP_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_204_AgeP_Details.ResumeLayout(False) + Me.tpg_205_Rating_Descriptors.ResumeLayout(False) + CType(Me.pnl_205_Rating_Descriptors, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_205_Rating_Descriptors.ResumeLayout(False) + CType(Me.pnl_205_Rating_Descriptors_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_205_Rating_Descriptors_Details.ResumeLayout(False) + Me.tlp_205_Rating_Descriptors.ResumeLayout(False) + CType(Me.gb_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_205_Rating_Descriptors_AB.ResumeLayout(False) + CType(Me.grd_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_205_Rating_Descriptors_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_205_Rating_Descriptors_B.ResumeLayout(False) + CType(Me.grd_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_205_Rating_Descriptors_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_205_Rating_Descriptors_A.ResumeLayout(False) + CType(Me.grd_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_205_Rating_Descriptors_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_207_Multiplayer_Attributes.ResumeLayout(False) + CType(Me.pnl_207_Multiplayer_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_207_Multiplayer_Attributes.ResumeLayout(False) + CType(Me.pnl_207_Multiplayer_Attributes_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_207_Multiplayer_Attributes_Details.ResumeLayout(False) + Me.tlp_207_Multiplayer_Attributes.ResumeLayout(False) + CType(Me.gb_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_207_Multiplayer_Attributes_AB.ResumeLayout(False) + CType(Me.grd_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_207_Multiplayer_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_207_Multiplayer_Attributes_B.ResumeLayout(False) + CType(Me.grd_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_207_Multiplayer_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_207_Multiplayer_Attributes_A.ResumeLayout(False) + CType(Me.grd_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_207_Multiplayer_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_206_Other_Attributes.ResumeLayout(False) + CType(Me.pnl_206_Other_Attributes, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_206_Other_Attributes.ResumeLayout(False) + CType(Me.pnl_206_Other_Attributes_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_206_Other_Attributes_Details.ResumeLayout(False) + Me.tlp_206_Other_Attributes.ResumeLayout(False) + CType(Me.gb_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_206_Other_Attributes_AB.ResumeLayout(False) + CType(Me.grd_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_206_Other_Attributes_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_206_Other_Attributes_B.ResumeLayout(False) + CType(Me.grd_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_206_Other_Attributes_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_206_Other_Attributes_A.ResumeLayout(False) + CType(Me.grd_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_206_Other_Attributes_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_301_Group_Membership.ResumeLayout(False) + CType(Me.pnl_301_Group_Membership, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_301_Group_Membership.ResumeLayout(False) + CType(Me.pnl_301_Group_Membership_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_301_Group_Membership_Details.ResumeLayout(False) + Me.tlp_301_Group_Membership.ResumeLayout(False) + CType(Me.gb_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_301_Group_Membership_AB.ResumeLayout(False) + CType(Me.grd_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_301_Group_Membership_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_301_Group_Membership_B.ResumeLayout(False) + CType(Me.grd_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_301_Group_Membership_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_301_Group_Membership_A.ResumeLayout(False) + CType(Me.grd_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_301_Group_Membership_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_401_Staff.ResumeLayout(False) + CType(Me.pnl_401_Staff, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_401_Staff.ResumeLayout(False) + CType(Me.pnl_401_Staff_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_401_Staff_Details.ResumeLayout(False) + Me.tlp_401_Staff.ResumeLayout(False) + CType(Me.gb_401_Staff_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_401_Staff_AB.ResumeLayout(False) + CType(Me.grd_401_Staff_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_401_Staff_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_401_Staff_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_401_Staff_B.ResumeLayout(False) + CType(Me.grd_401_Staff_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_401_Staff_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_401_Staff_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_401_Staff_A.ResumeLayout(False) + CType(Me.grd_401_Staff_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_401_Staff_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents splt_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents tcl_Main As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_001_Platform As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_002_MobyRank As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_003_MobyScore As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_004_Publisher As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_005_Developer As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_006_Year As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_101_Basic_Genres As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_102_Perspectives As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_103_Sports_Themes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_105_Educational_Categories As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_106_Other_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_201_MinPlayers As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_202_MaxPlayers As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_203_AgeO As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_204_AgeP As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_205_Rating_Descriptors As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_206_Other_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_301_Group_Membership As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_401_Staff As DevExpress.XtraTab.XtraTabPage + Friend WithEvents grd_Main As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BTA_Main As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents gv_Main As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colFeature As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colScore As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents col_id As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents DataColumn4 As System.Data.DataColumn + Friend WithEvents lbl_Game_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Game_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Game_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Game_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Similarity As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Similarity_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Similarity_Calculation_Configuration As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Similarity_Calculation_Configuration_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_001_Platform_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_001_Platform_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_001_Platform_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_001_Platform_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_001_Platform As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_001_Platform_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_001_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_001_Platform_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_001_Platform_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_002_MobyRank As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_002_MobyRank_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_002_MobyRank As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_002_MobyRank_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_002_MobyRank_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_003_MobyScore As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_003_MobyScore_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_003_MobyScore As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_003_MobyScore_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_003_MobyScore_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_004_Publisher As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_004_Publisher_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_004_Publisher As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_004_Publisher_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_004_Publisher_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_005_Developer As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_005_Developer_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_005_Developer As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_005_Developer_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_005_Developer_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_006_Year As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_006_Year_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_006_Year As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_006_Year_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_006_Year_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_201_MinPlayers As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_201_MinPlayers_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_201_MinPlayers As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_201_MinPlayers_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_201_MinPlayers_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_202_MaxPlayers As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_202_MaxPlayers_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_202_MaxPlayers As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_202_MaxPlayers_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_202_MaxPlayers_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_203_AgeO As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_203_AgeO_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_203_AgeO As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_203_AgeO_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_203_AgeO_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_204_AgeP As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_204_AgeP_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Weight_204_AgeP As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP_A As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP_B As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_204_AgeP_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP_A_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP_B_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_204_AgeP As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_205_Rating_Descriptors As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_205_Rating_Descriptors_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_205_Rating_Descriptors As System.Windows.Forms.TableLayoutPanel + Friend WithEvents gb_205_Rating_Descriptors_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_205_Rating_Descriptors_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_205_Rating_Descriptors_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_205_Rating_Descriptors_AB As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_205_Rating_Descriptors_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_205_Rating_Descriptors_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_205_Rating_Descriptors_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_205_Rating_Descriptors_B As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_205_Rating_Descriptors_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_205_Rating_Descriptors_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_205_Rating_Descriptors_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_205_Rating_Descriptors_A As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight_205_Rating_Descriptors As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_205_Rating_Descriptors_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_205_Rating_Descriptors_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_206_Other_Attributes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_206_Other_Attributes_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_206_Other_Attributes As System.Windows.Forms.TableLayoutPanel + Friend WithEvents gb_206_Other_Attributes_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_206_Other_Attributes_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_206_Other_Attributes_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_206_Other_Attributes_AB As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_206_Other_Attributes_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_206_Other_Attributes_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_206_Other_Attributes_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_206_Other_Attributes_B As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_206_Other_Attributes_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_206_Other_Attributes_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_206_Other_Attributes_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_206_Other_Attributes_A As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight_206_Other_Attributes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_206_Other_Attributes_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_206_Other_Attributes_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_301_Group_Membership As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_301_Group_Membership_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_301_Group_Membership As System.Windows.Forms.TableLayoutPanel + Friend WithEvents gb_301_Group_Membership_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_301_Group_Membership_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_301_Group_Membership_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_301_Group_Membership_AB As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_301_Group_Membership_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_301_Group_Membership_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_301_Group_Membership_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_301_Group_Membership_B As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_301_Group_Membership_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_301_Group_Membership_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_301_Group_Membership_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_301_Group_Membership_A As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight_301_Group_Membership As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_301_Group_Membership_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_301_Group_Membership_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_401_Staff As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_401_Staff_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_401_Staff As System.Windows.Forms.TableLayoutPanel + Friend WithEvents gb_401_Staff_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_401_Staff_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_401_Staff_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_401_Staff_AB As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_401_Staff_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_401_Staff_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_401_Staff_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_401_Staff_B As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_401_Staff_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_401_Staff_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_401_Staff_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_401_Staff_A As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight_401_Staff As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_401_Staff_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_401_Staff As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents colWeight As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colWeighted_Score As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tpg_207_Multiplayer_Attributes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pnl_207_Multiplayer_Attributes As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_207_Multiplayer_Attributes_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_207_Multiplayer_Attributes As System.Windows.Forms.TableLayoutPanel + Friend WithEvents gb_207_Multiplayer_Attributes_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_207_Multiplayer_Attributes_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_207_Multiplayer_Attributes_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_207_Multiplayer_Attributes_AB As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_207_Multiplayer_Attributes_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_207_Multiplayer_Attributes_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_207_Multiplayer_Attributes_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_207_Multiplayer_Attributes_B As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_207_Multiplayer_Attributes_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_207_Multiplayer_Attributes_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_207_Multiplayer_Attributes_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_207_Multiplayer_Attributes_A As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight_207_Multiplayer_Attributes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_207_Multiplayer_Attributes_Text As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_207_Multiplayer_Attributes_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_107_Visual_Presentation As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_108_Gameplay As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_109_Pacing As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_110_Narrative_Theme_Topic As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_111_Setting As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_112_Vehicular_Themes As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_113_Interface_Control As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_114_DLC_Addon As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_115_Special_Edition As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ucr_107_Visual_Presentation As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_108_Gameplay As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_109_Pacing As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_110_Narrative_Theme_Topic As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_111_Setting As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_112_Vehicular_Themes As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_113_Interface_Control As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_114_DLC_Addon As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_115_Special_Edition As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_101_Basic_Genres As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_102_Perspectives As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_103_Sports_Themes As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_105_Educational_Categories As ucr_Similarity_Calculation_Details_Genre + Friend WithEvents ucr_106_Other_Attributes As ucr_Similarity_Calculation_Details_Genre +End Class diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.resx b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.resx new file mode 100644 index 0000000..7d75336 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.resx @@ -0,0 +1,233 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAPgIAAD4CAABsBAAAAQEBAQoPAgAAAGwEAAACH4sIAAAAAAAEALVUW2/TMBRud6lW + BrzwwGuU57Zp2I1FzSaxCYTYCloL7K1yk9PWENvFdnp542/x68Zx4l7VCYSKI9nOuXzfZ+fkFIqFQuEB + h1nNeLqDU7M1VRpY7ZpoUnG+gFRU8PC4VjdPxblKE51KCDmkWpKk4nxKuwmNPsC0Lb4DD7tnZ+QkOjn1 + z4+Oof76fN+Av1jCzKYW6F20v7T72h0woSnvW7ryPUta0QAYOcTdNe313knCdovF5xbIxhm9ZQNU2sPp + 10HjcsISZ2Q1u36t7jrAIxEjdOimulf1T93Li2dPGhMVqIzAoXHoNmFslbgOInAVunYTTHA/0HoYeN54 + PK6Nj2pC9r1X9brv3d/e5CJnsUzFiIJEklt0VWU0kkKJnq5GggUYV82jXFThOEYHJMCAa4cTBqtS8sjg + vbKW0NUyhbn9s4KrVErMvRERScC6M+AcGimHCUza0yFYq7UPBI3AYZR/jKJU4hHxohiZzN5S3hUpjyF2 + 52mbtLZJNwF/OeZx2oVXwY8UP8q6axMBjV1HI0rooovyxZVoIvugmxikhiQC87lWD+P9BfpbIKaUlyiU + llgp22VpRWKFY+vH+Aq0P9D/nwHizlbP0vAeK4bMs7mIMpdVtyhpb17Ts+LfhLCWm/Nnv+lFaR/7x89i + I8ZW05dBvhD2L/+1zckh/pQzI6qOfHNBe6aXrfU409lKnVvyTUhcKDfLm5QmcblzByNqQkzvPsCxY/v4 + gx2HvwF6cNgN4gUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + 001;Platform;;;;002;Rank;;;;003;Score;;;;004;Publisher;;;;005;Developer;;;;006;Year;;;;101;Genres;;;;102;Perspectives;;;;107;Visual Presentation;;;;108;Gameplay;;;;109;Pacing;;;;110;Narrative Theme / Topic;;;;111;Setting;;;;103;Sports Themes;;;;112;Vehicular Themes;;;;105;Educational Categories;;;;113;Interface/Control;;;;114;DLC / Add-on;;;;115;Special Edition;;;;106;Other Attributes;;;;201;Min. Players;;;;202;Max. Players;;;;203;AgeO;;;;204;AgeP;;;;205;Rating Descriptors;;;;207;Multiplayer Attributes;;;;206;Tech. Info;;;;301;Groups;;;;401;Staff;;; + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct rating descriptors shared by both games A and B. +Let Y be the number of distinct rating descriptors of game A and B. + +score = 100 * (X / Y) + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct multiplayer attributes shared by both games A and B. +Let Y be the number of distinct multiplayer attributes of game A and B. + +score = 100 * (X / Y) + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct tech info shared by both games A and B. +Let Y be the number of distinct tech info of game A and B. + +score = 100 * (X / Y) + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct group membership shared by both games A and B. +Let Y be the number of distinct group membership of game A and B. + +score = 100 * (X / Y) + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct staff involved in both games A and B. +Let Y be the number of distinct staff involved in game A and B. + +score = 100 * (X / Y) + + + The overall similarity is calculated the following way: + +Let ∑(Weighted Scores) be the total sum of weighted scores +Let ∑(Weights) be the total sum of all involved weights. A weight is involved if there was a chance to calculate a score. + + ∑(Weighted Scores) +Overall Similarity = ------------------------ + ∑(Weights) * 100 + + + The overall similarity is calculated the following way: + +Let ∑(Weighted Scores) be the total sum of weighted scores +Let ∑(Weights) be the total sum of all involved weights. A weight is involved if there was a chance to calculate a score. + + ∑(Weighted Scores) +Overall Similarity = ------------------------ + ∑(Weights) * 100 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.vb b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.vb new file mode 100644 index 0000000..4344c87 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Similarity_Calculation_Details.vb @@ -0,0 +1,569 @@ +Public Class frm_Similarity_Calculation_Details + + Private _id_Similarity_Calculation_Results As Integer = 0 + Private _id_Emu_Games_A As Integer = 0 + Private _id_Emu_Games_B As Integer = 0 + Private _id_Moby_Releases_B As Integer = 0 + Private _row_Emu_Game_Similarity_Result As DataRow = Nothing + Private _id_Similarity_Calculation_Configuration As Integer = 0 + + Public Sub New(ByVal id_Similarity_Calculation_Results As Integer, ByVal row_Emu_Game_Similarity_Result As DataRow, Optional ByVal id_Emu_Games_B As Integer = 0, Optional ByVal id_Moby_Releases_B As Integer = 0, Optional ByVal id_Similarity_Calculation_Configuration As Integer = 0, Optional ByVal id_Emu_Games_A As Integer = 0) + InitializeComponent() + + If Not Me.DesignMode Then + tcl_Main.ShowTabHeader = DevExpress.Utils.DefaultBoolean.False + End If + + _id_Similarity_Calculation_Results = id_Similarity_Calculation_Results + _id_Emu_Games_B = id_Emu_Games_B + _id_Moby_Releases_B = id_Moby_Releases_B + _row_Emu_Game_Similarity_Result = row_Emu_Game_Similarity_Result + _id_Similarity_Calculation_Configuration = id_Similarity_Calculation_Configuration + _id_Emu_Games_A = id_Emu_Games_A + End Sub + + Private Sub BTA_Main_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTA_Main.CurrentChanged + If BTA_Main.Current IsNot Nothing Then + For Each tabpg As DevExpress.XtraTab.XtraTabPage In tcl_Main.TabPages + Dim tabname = tabpg.Name + Dim tabNum As Integer = CInt(tabname.Substring(4, 3)) + + If tabNum = BTA_Main.Current("id") Then + tcl_Main.SelectedTabPage = tabpg + End If + Next + End If + End Sub + + Private Sub Get_Details() + Dim bUseMobyReleaseOnly As Boolean = False + Dim bTestUseMobyRelease As Boolean = False + bUseMobyReleaseOnly = (_id_Emu_Games_B = 0) + +#If DEBUG Then + 'If Not bUseMobyReleaseOnly Then bTestUseMobyRelease = True + 'Devexpress.XtraEditors.XtraMessageBox.Show("Debug: Test with id_Moby_Releases") +#End If + + Dim id_Emu_Games_A As Integer = _id_Emu_Games_A + If id_Emu_Games_A = 0 Then id_Emu_Games_A = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Emu_Games FROM tbl_Similarity_Calculation_Results WHERE id_Similarity_Calculation_Results = " & TC.getSQLFormat(_id_Similarity_Calculation_Results)), 0) + Dim id_Moby_Releases_A As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))"), 0) + + If _id_Moby_Releases_B = 0 Then + _id_Moby_Releases_B = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & "))"), 0) + End If + + Dim dt_Similarity_Calculation_Configuration As DataTable = Nothing + If _id_Similarity_Calculation_Configuration <> 0 Then + dt_Similarity_Calculation_Configuration = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT CONF.Name, [Weight_001_Platform], [Weight_002_MobyRank], [Weight_003_MobyScore], [Weight_004_Publisher], [Weight_005_Developer], [Weight_006_Year], [Weight_101_Basic_Genres], [Weight_102_Perspectives], [Weight_103_Sports_Themes], [Weight_105_Educational_Categories], [Weight_106_Other_Attributes], [Weight_107_Visual_Presentation], [Weight_108_Gameplay], [Weight_109_Pacing], [Weight_110_Narrative_Theme_Topic], [Weight_111_Setting], [Weight_112_Vehicular_Themes], [Weight_113_Interface_Control], [Weight_114_DLC_Addon], [Weight_115_Special_Edition], [Weight_201_MinPlayers], [Weight_202_MaxPlayers], [Weight_203_AgeO], [Weight_204_AgeP], [Weight_205_Rating_Descriptors], [Weight_206_Other_Attributes], [Weight_207_Multiplayer_Attributes], [Weight_301_Group_Membership], [Weight_401_Staff] FROM tbl_Similarity_Calculation_Config CONF WHERE id_Similarity_Calculation_Config = " & TC.getSQLFormat(_id_Similarity_Calculation_Configuration)) + Else + dt_Similarity_Calculation_Configuration = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT CONF.Name, [Weight_001_Platform], [Weight_002_MobyRank], [Weight_003_MobyScore], [Weight_004_Publisher], [Weight_005_Developer], [Weight_006_Year], [Weight_101_Basic_Genres], [Weight_102_Perspectives], [Weight_103_Sports_Themes], [Weight_105_Educational_Categories], [Weight_106_Other_Attributes], [Weight_107_Visual_Presentation], [Weight_108_Gameplay], [Weight_109_Pacing], [Weight_110_Narrative_Theme_Topic], [Weight_111_Setting], [Weight_112_Vehicular_Themes], [Weight_113_Interface_Control], [Weight_114_DLC_Addon], [Weight_115_Special_Edition], [Weight_201_MinPlayers], [Weight_202_MaxPlayers], [Weight_203_AgeO], [Weight_204_AgeP], [Weight_205_Rating_Descriptors], [Weight_206_Other_Attributes], [Weight_207_Multiplayer_Attributes], [Weight_301_Group_Membership], [Weight_401_Staff] FROM tbl_Similarity_Calculation_Results RES INNER JOIN tbl_Similarity_Calculation_Config CONF ON RES.id_Similarity_Calculation_Config = CONF.id_Similarity_Calculation_Config WHERE RES.id_Similarity_Calculation_Results = " & TC.getSQLFormat(_id_Similarity_Calculation_Results)) + End If + + If dt_Similarity_Calculation_Configuration.Rows.Count <> 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while retrieving the configuration.", "Similarity Details", MessageBoxButtons.OK, MessageBoxIcon.Error) + Return + End If + + Dim row_Similarity_Calculation_Configuration As DataRow = dt_Similarity_Calculation_Configuration.Rows(0) + + lbl_Similarity_Calculation_Configuration_Text.Text = TC.NZ(row_Similarity_Calculation_Configuration("Name"), "") + + lbl_Game_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT CASE WHEN EG.Name IS NULL THEN CASE WHEN MG.Name IS NULL THEN IFNULL(EG.InnerFile, EG.File) ELSE IFNULL(EG.Name_Prefix || ' ', IFNULL(MG.Name_Prefix || ' ', '')) || IFNULL(MG.Name, '') || IFNULL(' (' || EG.Note || ')', '') END ELSE IFNULL(EG.Name_Prefix || ' ', '') || IFNULL(EG.Name, '') || IFNULL(' (' || EG.Note || ')', '') END || ' (' || PLTFM.Name || ')' FROM tbl_Emu_Games EG LEFT JOIN tbl_Moby_Games MG ON EG.Moby_Games_URLPart = MG.URLPart LEFT JOIN tbl_Moby_Releases MR ON EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games LEFT JOIN tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_Game_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(MG.Name_Prefix || ' ', '') || IFNULL(MG.Name, '') || ' (' || PLTFM.Name || ')' FROM tbl_Moby_Releases MR LEFT JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games LEFT JOIN tbl_Moby_Platforms PLTFM ON MR.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_Game_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT CASE WHEN EG.Name IS NULL THEN CASE WHEN MG.Name IS NULL THEN IFNULL(EG.InnerFile, EG.File) ELSE IFNULL(EG.Name_Prefix || ' ', IFNULL(MG.Name_Prefix || ' ', '')) || IFNULL(MG.Name, '') || IFNULL(' (' || EG.Note || ')', '') END ELSE IFNULL(EG.Name_Prefix || ' ', '') || IFNULL(EG.Name, '') || IFNULL(' (' || EG.Note || ')', '') END || ' (' || PLTFM.Name || ')' FROM tbl_Emu_Games EG LEFT JOIN tbl_Moby_Games MG ON EG.Moby_Games_URLPart = MG.URLPart LEFT JOIN tbl_Moby_Releases MR ON EG.id_Moby_Platforms = MR.id_Moby_Platforms AND MG.id_Moby_Games = MR.id_Moby_Games LEFT JOIN tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE EG.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + lbl_Similarity_Text.Text = _row_Emu_Game_Similarity_Result("Similarity") + + Dim row_BTA As DataRow = Nothing + + Dim iSumWeightedScore As Integer = 0 + Dim iSumWeights As Integer = 0 + + '001_Platform + lbl_Weight_001_Platform_Text.Text = row_Similarity_Calculation_Configuration("Weight_001_Platform") + row_BTA = BTA_Main.Table.Select("id = 001")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_001_Platform") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("001_Platform") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + lbl_001_Platform_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT PLTFM.Name FROM tbl_Emu_Games EG LEFT JOIN tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_001_Platform_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT PLTFM.Name FROM tbl_Moby_Releases MR LEFT JOIN tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games LEFT JOIN tbl_Moby_Platforms PLTFM ON MR.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE MR.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_001_Platform_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT PLTFM.Name FROM tbl_Emu_Games EG LEFT JOIN tbl_Moby_Platforms PLTFM ON EG.id_Moby_Platforms = PLTFM.id_Moby_Platforms WHERE EG.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '002_MobyRank + lbl_Weight_002_MobyRank_Text.Text = row_Similarity_Calculation_Configuration("Weight_002_MobyRank") + row_BTA = BTA_Main.Table.Select("id = 002")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_002_MobyRank") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("002_MobyRank") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + lbl_002_MobyRank_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyRank FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_002_MobyRank_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyRank FROM tbl_Moby_Releases REL WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_002_MobyRank_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyRank FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '003_MobyScore + lbl_Weight_003_MobyScore_Text.Text = row_Similarity_Calculation_Configuration("Weight_003_MobyScore") + row_BTA = BTA_Main.Table.Select("id = 003")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_003_MobyScore") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("003_MobyScore") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + lbl_003_MobyScore_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyScore FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_003_MobyScore_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyScore FROM tbl_Moby_Releases REL WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_003_MobyScore_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.MobyScore FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '004_Publisher + lbl_Weight_004_Publisher_Text.Text = row_Similarity_Calculation_Configuration("Weight_004_Publisher") + row_BTA = BTA_Main.Table.Select("id = 004")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_004_Publisher") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("004_Publisher") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + lbl_004_Publisher_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Publisher, C1.Name) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games LEFT JOIN tbl_Moby_Companies C1 ON REL.Publisher_id_Moby_Companies = C1.id_Moby_Companies WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_004_Publisher_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT C1.Name FROM tbl_Moby_Releases REL LEFT JOIN tbl_Moby_Companies C1 ON REL.Publisher_id_Moby_Companies = C1.id_Moby_Companies WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_004_Publisher_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Publisher, C1.Name) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games LEFT JOIN tbl_Moby_Companies C1 ON REL.Publisher_id_Moby_Companies = C1.id_Moby_Companies WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '005_Developer + lbl_Weight_005_Developer_Text.Text = row_Similarity_Calculation_Configuration("Weight_005_Developer") + row_BTA = BTA_Main.Table.Select("id = 005")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_005_Developer") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("005_Developer") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + lbl_005_Developer_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Developer, C2.Name) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games LEFT JOIN tbl_Moby_Companies C2 ON REL.Developer_id_Moby_Companies = C2.id_Moby_Companies WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_005_Developer_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT C2.Name FROM tbl_Moby_Releases REL LEFT JOIN tbl_Moby_Companies C2 ON REL.Developer_id_Moby_Companies = C2.id_Moby_Companies WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_005_Developer_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Developer, C2.Name) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games LEFT JOIN tbl_Moby_Companies C2 ON REL.Developer_id_Moby_Companies = C2.id_Moby_Companies WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '006_Year + lbl_Weight_006_Year_Text.Text = row_Similarity_Calculation_Configuration("Weight_006_Year") + row_BTA = BTA_Main.Table.Select("id = 006")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_006_Year") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("006_Year") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + lbl_006_Year_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Year, REL.Year) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A)), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_006_Year_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT REL.Year FROM tbl_Moby_Releases REL WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B)), "") + Else + lbl_006_Year_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT IFNULL(EMUGAME.Year, REL.Year) FROM tbl_Emu_Games EMUGAME LEFT JOIN tbl_Moby_Games GAME ON EMUGAME.Moby_Games_URLPart = GAME.URLPart LEFT JOIN tbl_Moby_Releases REL ON EMUGAME.id_Moby_Platforms = REL.id_Moby_Platforms AND GAME.id_Moby_Games = REL.id_Moby_Games WHERE EMUGAME.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B)), "") + End If + + '101_Basic_Genres + row_BTA = BTA_Main.Table.Select("id = 101")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_101_Basic_Genres") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("101_Basic_Genres") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_101_Basic_Genres.Init(cls_Globals.enm_Moby_Genres_Categories.Basic_Genres, "Basic Genres", row_Similarity_Calculation_Configuration("Weight_101_Basic_Genres"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '102_Perspectives + row_BTA = BTA_Main.Table.Select("id = 102")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_102_Perspectives") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("102_Perspectives") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_102_Perspectives.Init(cls_Globals.enm_Moby_Genres_Categories.Perspective, "Perspectives", row_Similarity_Calculation_Configuration("Weight_102_Perspectives"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '103_Sports_Themes + row_BTA = BTA_Main.Table.Select("id = 103")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_103_Sports_Themes") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("103_Sports_Themes") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_103_Sports_Themes.Init(cls_Globals.enm_Moby_Genres_Categories.Sports_Themes, "Sports Themes", row_Similarity_Calculation_Configuration("Weight_103_Sports_Themes"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '105_Educational_Categories + row_BTA = BTA_Main.Table.Select("id = 105")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_105_Educational_Categories") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("105_Educational_Categories") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_105_Educational_Categories.Init(cls_Globals.enm_Moby_Genres_Categories.Educational_Categories, "Educational Categories", row_Similarity_Calculation_Configuration("Weight_105_Educational_Categories"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '106_Other_Attributes + row_BTA = BTA_Main.Table.Select("id = 106")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_106_Other_Attributes") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("106_Other_Attributes") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_106_Other_Attributes.Init(cls_Globals.enm_Moby_Genres_Categories.Other_Attributes, "Other Attributes", row_Similarity_Calculation_Configuration("Weight_106_Other_Attributes"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '107_Visual_Presentation + row_BTA = BTA_Main.Table.Select("id = 107")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_107_Visual_Presentation") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("107_Visual_Presentation") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_107_Visual_Presentation.Init(cls_Globals.enm_Moby_Genres_Categories.Visual_Presentation, "Visual Presentations", row_Similarity_Calculation_Configuration("Weight_107_Visual_Presentation"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '108_Gameplay + row_BTA = BTA_Main.Table.Select("id = 108")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_108_Gameplay") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("108_Gameplay") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_108_Gameplay.Init(cls_Globals.enm_Moby_Genres_Categories.Gameplay, "Gameplay Attributes", row_Similarity_Calculation_Configuration("Weight_108_Gameplay"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '109_Pacing + row_BTA = BTA_Main.Table.Select("id = 109")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_109_Pacing") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("109_Pacing") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_109_Pacing.Init(cls_Globals.enm_Moby_Genres_Categories.Pacing, "Pacing Attributes", row_Similarity_Calculation_Configuration("Weight_109_Pacing"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '110_Narrative_Theme_Topic + row_BTA = BTA_Main.Table.Select("id = 110")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_110_Narrative_Theme_Topic") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("110_Narrative_Theme_Topic") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_110_Narrative_Theme_Topic.Init(cls_Globals.enm_Moby_Genres_Categories.Narrative_Theme_Topic, "Narrative Themes / Topics", row_Similarity_Calculation_Configuration("Weight_110_Narrative_Theme_Topic"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '111_Setting + row_BTA = BTA_Main.Table.Select("id = 111")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_111_Setting") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("111_Setting") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_111_Setting.Init(cls_Globals.enm_Moby_Genres_Categories.Setting, "Setting Attributes", row_Similarity_Calculation_Configuration("Weight_111_Setting"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '112_Vehicular_Themes + row_BTA = BTA_Main.Table.Select("id = 112")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_112_Vehicular_Themes") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("112_Vehicular_Themes") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_112_Vehicular_Themes.Init(cls_Globals.enm_Moby_Genres_Categories.Vehicular_Themes, "Vehicular Themes", row_Similarity_Calculation_Configuration("Weight_112_Vehicular_Themes"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '113_Interface_Control + row_BTA = BTA_Main.Table.Select("id = 113")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_113_Interface_Control") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("113_Interface_Control") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_113_Interface_Control.Init(cls_Globals.enm_Moby_Genres_Categories.Interface_Control, "Interface / Control Attributes", row_Similarity_Calculation_Configuration("Weight_113_Interface_Control"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '114 DLC / Add-on + row_BTA = BTA_Main.Table.Select("id = 114")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_114_DLC_Addon") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("114_DLC_Addon") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_114_DLC_Addon.Init(cls_Globals.enm_Moby_Genres_Categories.DLC_Addon, "DLC / Add-On Attributes", row_Similarity_Calculation_Configuration("Weight_114_DLC_Addon"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '115 Special Edition + row_BTA = BTA_Main.Table.Select("id = 115")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_115_Special_Edition") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("115_Special_Edition") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + Me.ucr_115_Special_Edition.Init(cls_Globals.enm_Moby_Genres_Categories.Special_Edition, "Special Edition Attributes", row_Similarity_Calculation_Configuration("Weight_115_Special_Edition"), bUseMobyReleaseOnly, bTestUseMobyRelease, id_Emu_Games_A, _id_Emu_Games_B, _id_Moby_Releases_B) + + '201_MinPlayers + lbl_Weight_201_MinPlayers_Text.Text = row_Similarity_Calculation_Configuration("Weight_201_MinPlayers") + row_BTA = BTA_Main.Table.Select("id = 201")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_201_MinPlayers") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("201_MinPlayers") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + lbl_201_MinPlayers_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.MinPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & " AND Used = 0)"), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_201_MinPlayers_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.MinPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes"), "") + Else + lbl_201_MinPlayers_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.MinPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & " AND Used = 0)"), "") + End If + + '202_MaxPlayers + lbl_Weight_202_MaxPlayers_Text.Text = row_Similarity_Calculation_Configuration("Weight_202_MaxPlayers") + row_BTA = BTA_Main.Table.Select("id = 202")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_202_MaxPlayers") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("202_MaxPlayers") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + lbl_202_MaxPlayers_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.MaxPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & " AND Used = 0)"), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_202_MaxPlayers_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.MaxPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes"), "") + Else + lbl_202_MaxPlayers_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.MaxPlayers) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & " AND Used = 0)"), "") + End If + + '203_AgeO + lbl_Weight_203_AgeO_Text.Text = row_Similarity_Calculation_Configuration("Weight_203_AgeO") + row_BTA = BTA_Main.Table.Select("id = 203")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_203_AgeO") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("203_AgeO") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + lbl_203_AgeO_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & " AND Used = 0)"), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_203_AgeO_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes"), "") + Else + lbl_203_AgeO_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MIN(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & " AND Used = 0)"), "") + End If + + '204_AgeP + lbl_Weight_204_AgeP_Text.Text = row_Similarity_Calculation_Configuration("Weight_204_AgeP") + row_BTA = BTA_Main.Table.Select("id = 204")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_204_AgeP") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("204_AgeP") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + lbl_204_AgeP_A_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games_A) & " AND Used = 0)"), "") + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + lbl_204_AgeP_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes"), "") + Else + lbl_204_AgeP_B_Text.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT MAX(A.Rating_Age_From) FROM (SELECT id_Moby_Attributes FROM tbl_Moby_Releases_Attributes RA WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Moby_Releases WHERE id_Moby_Platforms = (SELECT id_Moby_Platforms FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AND id_Moby_Games = (SELECT id_Moby_Games FROM moby.tbl_Moby_Games MG WHERE MG.URLPart = (SELECT Moby_Games_URLPart FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & "))) UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & ") AS temp_Attributes LEFT JOIN tbl_Moby_Attributes A ON temp_Attributes.id_Moby_Attributes = A.id_Moby_Attributes WHERE A.id_Moby_Attributes NOT IN(SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes WHERE id_Emu_Games = " & TC.getSQLFormat(_id_Emu_Games_B) & " AND Used = 0)"), "") + End If + + '205_Rating_Descriptors + lbl_Weight_205_Rating_Descriptors_Text.Text = row_Similarity_Calculation_Configuration("Weight_205_Rating_Descriptors") + row_BTA = BTA_Main.Table.Select("id = 205")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_205_Rating_Descriptors") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("205_Rating_Descriptors") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + grd_205_Rating_Descriptors_A.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(id_Emu_Games_A, DS_ML.enm_Attributes_Types.Rating_Descriptors) + + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + grd_205_Rating_Descriptors_B.DataSource = DS_ML.Select_Attributes_By_id_Moby_Releases(_id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Rating_Descriptors) + grd_205_Rating_Descriptors_AB.DataSource = DS_ML.Select_Attributes_AB_By_Moby_Releases(id_Emu_Games_A, _id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Rating_Descriptors) + Else + grd_205_Rating_Descriptors_B.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(_id_Emu_Games_B, DS_ML.enm_Attributes_Types.Rating_Descriptors) + grd_205_Rating_Descriptors_AB.DataSource = DS_ML.Select_Attributes_AB_By_id_Emu_Games(id_Emu_Games_A, _id_Emu_Games_B, DS_ML.enm_Attributes_Types.Rating_Descriptors) + End If + + gb_205_Rating_Descriptors_A.Text &= " (" & grd_205_Rating_Descriptors_A.DataSource.Rows.Count & ")" + gb_205_Rating_Descriptors_B.Text &= " (" & grd_205_Rating_Descriptors_B.DataSource.Rows.Count & ")" + gb_205_Rating_Descriptors_AB.Text &= " (" & grd_205_Rating_Descriptors_AB.DataSource.Rows.Count & ")" + + '206_Other_Attributes (TechInfo) + lbl_Weight_206_Other_Attributes_Text.Text = row_Similarity_Calculation_Configuration("Weight_206_Other_Attributes") + row_BTA = BTA_Main.Table.Select("id = 206")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_206_Other_Attributes") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("206_Other_Attributes") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + grd_206_Other_Attributes_A.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(id_Emu_Games_A, DS_ML.enm_Attributes_Types.Other_Attributes) + + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + grd_206_Other_Attributes_B.DataSource = DS_ML.Select_Attributes_By_id_Moby_Releases(_id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Other_Attributes) + grd_206_Other_Attributes_AB.DataSource = DS_ML.Select_Attributes_AB_By_Moby_Releases(id_Emu_Games_A, _id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Other_Attributes) + Else + grd_206_Other_Attributes_B.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(_id_Emu_Games_B, DS_ML.enm_Attributes_Types.Other_Attributes) + grd_206_Other_Attributes_AB.DataSource = DS_ML.Select_Attributes_AB_By_id_Emu_Games(id_Emu_Games_A, _id_Emu_Games_B, DS_ML.enm_Attributes_Types.Other_Attributes) + End If + + gb_206_Other_Attributes_A.Text &= " (" & grd_206_Other_Attributes_A.DataSource.Rows.Count & ")" + gb_206_Other_Attributes_B.Text &= " (" & grd_206_Other_Attributes_B.DataSource.Rows.Count & ")" + gb_206_Other_Attributes_AB.Text &= " (" & grd_206_Other_Attributes_AB.DataSource.Rows.Count & ")" + + '207_Multiplayer_Attributes + lbl_Weight_207_Multiplayer_Attributes_Text.Text = row_Similarity_Calculation_Configuration("Weight_207_Multiplayer_Attributes") + row_BTA = BTA_Main.Table.Select("id = 207")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_207_Multiplayer_Attributes") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("207_Multiplayer_Attributes") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + grd_207_Multiplayer_Attributes_A.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(id_Emu_Games_A, DS_ML.enm_Attributes_Types.Multiplayer_Attributes) + + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + grd_207_Multiplayer_Attributes_B.DataSource = DS_ML.Select_Attributes_By_id_Moby_Releases(_id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Multiplayer_Attributes) + grd_207_Multiplayer_Attributes_AB.DataSource = DS_ML.Select_Attributes_AB_By_Moby_Releases(id_Emu_Games_A, _id_Moby_Releases_B, DS_ML.enm_Attributes_Types.Multiplayer_Attributes) + Else + grd_207_Multiplayer_Attributes_B.DataSource = DS_ML.Select_Attributes_By_id_Emu_Games(_id_Emu_Games_B, DS_ML.enm_Attributes_Types.Multiplayer_Attributes) + grd_207_Multiplayer_Attributes_AB.DataSource = DS_ML.Select_Attributes_AB_By_id_Emu_Games(id_Emu_Games_A, _id_Emu_Games_B, DS_ML.enm_Attributes_Types.Multiplayer_Attributes) + End If + + gb_207_Multiplayer_Attributes_A.Text &= " (" & grd_207_Multiplayer_Attributes_A.DataSource.Rows.Count & ")" + gb_207_Multiplayer_Attributes_B.Text &= " (" & grd_207_Multiplayer_Attributes_B.DataSource.Rows.Count & ")" + gb_207_Multiplayer_Attributes_AB.Text &= " (" & grd_207_Multiplayer_Attributes_AB.DataSource.Rows.Count & ")" + + '301_Group_Membership + lbl_Weight_301_Group_Membership_Text.Text = row_Similarity_Calculation_Configuration("Weight_301_Group_Membership") + row_BTA = BTA_Main.Table.Select("id = 301")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_301_Group_Membership") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("301_Group_Membership") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + grd_301_Group_Membership_A.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT MGG.Name AS Name FROM moby.tbl_Moby_Game_Groups_Moby_Releases MGGMR INNER JOIN moby.tbl_Moby_Game_Groups MGG ON MGGMR.id_Moby_Game_Groups = MGG.id_Moby_Game_Groups WHERE MGGMR.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_A) & " ORDER BY MGG.Name") + + grd_301_Group_Membership_B.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT MGG.Name AS Name FROM moby.tbl_Moby_Game_Groups_Moby_Releases MGGMR INNER JOIN moby.tbl_Moby_Game_Groups MGG ON MGGMR.id_Moby_Game_Groups = MGG.id_Moby_Game_Groups WHERE MGGMR.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & " ORDER BY MGG.Name") + grd_301_Group_Membership_AB.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT MGG.Name AS Name FROM moby.tbl_Moby_Game_Groups_Moby_Releases MGGMR INNER JOIN moby.tbl_Moby_Game_Groups MGG ON MGGMR.id_Moby_Game_Groups = MGG.id_Moby_Game_Groups WHERE MGGMR.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_A) & " AND MGGMR.id_Moby_Game_Groups IN (SELECT id_Moby_Game_Groups FROM moby.tbl_Moby_Game_Groups_Moby_Releases WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") ORDER BY MGG.Name") + + gb_301_Group_Membership_A.Text &= " (" & grd_301_Group_Membership_A.DataSource.Rows.Count & ")" + gb_301_Group_Membership_B.Text &= " (" & grd_301_Group_Membership_B.DataSource.Rows.Count & ")" + gb_301_Group_Membership_AB.Text &= " (" & grd_301_Group_Membership_AB.DataSource.Rows.Count & ")" + + '401_Staff + lbl_Weight_401_Staff_Text.Text = row_Similarity_Calculation_Configuration("Weight_401_Staff") + row_BTA = BTA_Main.Table.Select("id = 401")(0) + row_BTA("Weight") = row_Similarity_Calculation_Configuration("Weight_401_Staff") + row_BTA("Score") = _row_Emu_Game_Similarity_Result("401_Staff") + If IsNumeric(row_BTA("Weight")) AndAlso IsNumeric(row_BTA("Score")) Then + row_BTA("Weighted_Score") = row_BTA("Weight") * row_BTA("Score") + iSumWeights += 100 * row_BTA("Weight") + iSumWeightedScore += row_BTA("Weighted_Score") + End If + + grd_401_Staff_A.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT DISTINCT MS.Name AS Name FROM moby.tbl_Moby_Releases_Staff MRS INNER JOIN moby.tbl_Moby_Staff MS ON MRS.id_Moby_Staff = MS.id_Moby_Staff WHERE MRS.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_A) & " ORDER BY MS.Name") + + grd_401_Staff_B.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT DISTINCT MS.Name AS Name FROM moby.tbl_Moby_Releases_Staff MRS INNER JOIN moby.tbl_Moby_Staff MS ON MRS.id_Moby_Staff = MS.id_Moby_Staff WHERE MRS.id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & " ORDER BY MS.Name") + grd_401_Staff_AB.DataSource = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT DISTINCT MS.Name AS Name FROM moby.tbl_Moby_Releases_Staff MRS INNER JOIN moby.tbl_Moby_Staff MS ON MRS.id_Moby_Staff = MS.id_Moby_Staff WHERE MRS.id_Moby_Releases = " & TC.getSQLFormat(id_Moby_Releases_A) & " AND MRS.id_Moby_Staff IN (SELECT id_Moby_Staff FROM moby.tbl_Moby_Releases_Staff WHERE id_Moby_Releases = " & TC.getSQLFormat(_id_Moby_Releases_B) & ") ORDER BY MS.Name") + + gb_401_Staff_A.Text &= " (" & grd_401_Staff_A.DataSource.Rows.Count & ")" + gb_401_Staff_B.Text &= " (" & grd_401_Staff_B.DataSource.Rows.Count & ")" + gb_401_Staff_AB.Text &= " (" & grd_401_Staff_AB.DataSource.Rows.Count & ")" + End Sub + + Private Sub frm_Similarity_Calculation_Details_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Get_Details() + End Sub + + Private _Sum_Weights As Integer = 0 + + Private Sub gv_Main_CustomSummaryCalculate(ByVal sender As System.Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles gv_Main.CustomSummaryCalculate + If e.IsTotalSummary = True And e.Item Is Me.colWeight.SummaryItem Then + If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Start Then + _Sum_Weights = 0 + End If + + If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Calculate Then + If IsNumeric(e.FieldValue) AndAlso IsNumeric(e.Row("Score")) Then + _Sum_Weights += 100 * e.FieldValue + End If + End If + + If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Finalize Then + e.TotalValue = _Sum_Weights + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.Designer.vb new file mode 100644 index 0000000..8485565 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.Designer.vb @@ -0,0 +1,2401 @@ + _ +Partial Class frm_Tag_Parser_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem15 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem17 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip19 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem19 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem20 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip21 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem21 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem23 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip26 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip28 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip29 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip30 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem31 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem36 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem37 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem37 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem38 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem38 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem39 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem40 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip41 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem41 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem41 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem42 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem43 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem44 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem45 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem46 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem46 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip47 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem47 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem47 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip48 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem48 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem48 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip49 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem49 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem49 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip50 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem50 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem50 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip51 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem51 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem51 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip52 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem52 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem52 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip53 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem53 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem53 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip54 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem54 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem54 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip55 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem55 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem55 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip56 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem56 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem56 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip57 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem57 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem57 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip58 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem58 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem58 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip59 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem59 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem59 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip60 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem60 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem60 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip61 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem61 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem61 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip62 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem62 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem62 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip63 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem63 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem63 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip64 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem64 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem64 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip65 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem65 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem65 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip66 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem66 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem66 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip67 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem67 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem67 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Tag_Parser_Edit)) + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.grd_Tag_Parser = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Tag_Parser = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Tag_Parser = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colApply = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Apply = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colContent = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.chb_New_Tags_Only = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.splt = New MKNetDXLib.ctl_MKDXSplitter() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.gb_Languages = New MKNetDXLib.ctl_MKDXGroupBox() + Me.chb_Cz = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Sr = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Sl = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Be = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Ar = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Ru = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Gr = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Hu = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Pl = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Ko = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Zh = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Fi = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Da = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_No = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Sv = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Pt = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Nl = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_It = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Es = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_De = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Fr = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Ja = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_En = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.gb_Regions = New MKNetDXLib.ctl_MKDXGroupBox() + Me.chb_Asia = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_USA = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Europe = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Brazil = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Canada = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_HongKong = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Germany = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_France = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_China = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Italy = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Sweden = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Spain = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Netherlands = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Korea = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Japan = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Russia = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Taiwan = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Australia = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_PAL = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_NTSC = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_World = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.gb_ReleaseInfo = New MKNetDXLib.ctl_MKDXGroupBox() + Me.chb_Alpha = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Pirated = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Fixed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Overdump = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Bad = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Good = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Unlicensed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Alt = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Translation = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Beta = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Kiosk = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Demo = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Prototype = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Version = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Trainer = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Hack = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Bios = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.cb_Publisher = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Year = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.gb_MultiVolume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.cmb_MV_Volume = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_MV_Volume = New System.Windows.Forms.BindingSource(Me.components) + Me.chb_MV_Group_Criteria = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.gb_Note = New MKNetDXLib.ctl_MKDXGroupBox() + Me.txb_Note = New MKNetDXLib.ctl_MKDXTextEdit() + Me.gb_Found_In = New MKNetDXLib.ctl_MKDXGroupBox() + Me.lbl_Found_In_Right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Found_In_Middle = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Found_In_Left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Set_Additional_Note = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Remove_Additional_Note = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Set_Group_Criteria = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Remove_Group_Criteria = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Set_Publisher = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Remove_Publisher = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Export = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Import = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_TagParser = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.grd_Tag_Parser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Tag_Parser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Tag_Parser, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.chb_New_Tags_Only.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() + CType(Me.gb_Languages, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Languages.SuspendLayout() + CType(Me.chb_Cz.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sr.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sl.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Be.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Ar.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Ru.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Gr.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Hu.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Pl.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Ko.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Zh.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Fi.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Da.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_No.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sv.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Pt.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Nl.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_It.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Es.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_De.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Fr.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Ja.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_En.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Regions, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Regions.SuspendLayout() + CType(Me.chb_Asia.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_USA.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Europe.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Brazil.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Canada.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_HongKong.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Germany.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_France.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_China.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Italy.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Sweden.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Spain.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Netherlands.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Korea.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Japan.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Russia.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Taiwan.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Australia.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_PAL.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_NTSC.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_World.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_ReleaseInfo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_ReleaseInfo.SuspendLayout() + CType(Me.chb_Alpha.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Pirated.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Fixed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Overdump.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Bad.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Good.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Unlicensed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Alt.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Translation.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Beta.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Kiosk.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Demo.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Prototype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Version.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Trainer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Hack.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Bios.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cb_Publisher.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Year.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_MultiVolume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_MultiVolume.SuspendLayout() + CType(Me.cmb_MV_Volume.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_MV_Group_Criteria.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Note, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Note.SuspendLayout() + CType(Me.txb_Note.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Found_In, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Found_In.SuspendLayout() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_TagParser, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl_Left + ' + Me.pnl_Left.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Left.Controls.Add(Me.grd_Tag_Parser) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(289, 694) + Me.pnl_Left.TabIndex = 0 + ' + 'grd_Tag_Parser + ' + Me.grd_Tag_Parser.DataSource = Me.BS_Tag_Parser + Me.grd_Tag_Parser.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Tag_Parser.Location = New System.Drawing.Point(0, 0) + Me.grd_Tag_Parser.MainView = Me.gv_Tag_Parser + Me.grd_Tag_Parser.Name = "grd_Tag_Parser" + Me.grd_Tag_Parser.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Apply}) + Me.grd_Tag_Parser.Size = New System.Drawing.Size(289, 694) + Me.grd_Tag_Parser.TabIndex = 0 + Me.grd_Tag_Parser.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Tag_Parser}) + ' + 'BS_Tag_Parser + ' + Me.BS_Tag_Parser.DataMember = "tbl_Tag_Parser" + Me.BS_Tag_Parser.DataSource = Me.DS_ML + Me.BS_Tag_Parser.Sort = "Content ASC" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Tag_Parser + ' + Me.gv_Tag_Parser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colApply, Me.colContent}) + Me.gv_Tag_Parser.GridControl = Me.grd_Tag_Parser + Me.gv_Tag_Parser.Name = "gv_Tag_Parser" + Me.gv_Tag_Parser.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Tag_Parser.OptionsSelection.MultiSelect = True + Me.gv_Tag_Parser.OptionsView.ShowGroupPanel = False + ' + 'colApply + ' + Me.colApply.ColumnEdit = Me.rpi_Apply + Me.colApply.FieldName = "Apply" + Me.colApply.Name = "colApply" + Me.colApply.Visible = True + Me.colApply.VisibleIndex = 0 + Me.colApply.Width = 40 + ' + 'rpi_Apply + ' + Me.rpi_Apply.AutoHeight = False + Me.rpi_Apply.Name = "rpi_Apply" + Me.rpi_Apply.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'colContent + ' + Me.colContent.FieldName = "Content" + Me.colContent.Name = "colContent" + Me.colContent.OptionsColumn.AllowEdit = False + Me.colContent.OptionsColumn.ReadOnly = True + Me.colContent.Visible = True + Me.colContent.VisibleIndex = 1 + Me.colContent.Width = 202 + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom.Controls.Add(Me.chb_New_Tags_Only) + Me.pnl_Bottom.Controls.Add(Me.btn_Cancel) + Me.pnl_Bottom.Controls.Add(Me.btn_OK) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 694) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(675, 30) + Me.pnl_Bottom.TabIndex = 1 + ' + 'chb_New_Tags_Only + ' + Me.chb_New_Tags_Only.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chb_New_Tags_Only.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_New_Tags_Only.Location = New System.Drawing.Point(4, 6) + Me.chb_New_Tags_Only.MKBoldOnTrue = True + Me.chb_New_Tags_Only.MKBoundLabel = Nothing + Me.chb_New_Tags_Only.MKEditValue_Compare = Nothing + Me.chb_New_Tags_Only.Name = "chb_New_Tags_Only" + Me.chb_New_Tags_Only.Properties.Caption = "Only show newly detected tags" + Me.chb_New_Tags_Only.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_New_Tags_Only.Size = New System.Drawing.Size(181, 19) + ToolTipTitleItem1.Text = "Publisher" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "The content of the Tag is the Publisher's name." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.chb_New_Tags_Only.SuperTip = SuperToolTip1 + Me.chb_New_Tags_Only.TabIndex = 6 + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.Location = New System.Drawing.Point(596, 4) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 1 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(518, 4) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 0 + Me.btn_OK.Text = "&OK" + ' + 'splt + ' + Me.splt.Location = New System.Drawing.Point(289, 0) + Me.splt.Name = "splt" + Me.splt.Size = New System.Drawing.Size(5, 694) + Me.splt.TabIndex = 2 + Me.splt.TabStop = False + ' + 'pnl_Right + ' + Me.pnl_Right.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Right.Controls.Add(Me.gb_Languages) + Me.pnl_Right.Controls.Add(Me.gb_Regions) + Me.pnl_Right.Controls.Add(Me.gb_ReleaseInfo) + Me.pnl_Right.Controls.Add(Me.gb_MultiVolume) + Me.pnl_Right.Controls.Add(Me.gb_Note) + Me.pnl_Right.Controls.Add(Me.gb_Found_In) + Me.pnl_Right.Controls.Add(Me.Ctl_MKDXLabel1) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(294, 0) + Me.pnl_Right.MinimumSize = New System.Drawing.Size(381, 694) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(381, 694) + Me.pnl_Right.TabIndex = 3 + ' + 'gb_Languages + ' + Me.gb_Languages.Controls.Add(Me.chb_Cz) + Me.gb_Languages.Controls.Add(Me.chb_Sr) + Me.gb_Languages.Controls.Add(Me.chb_Sl) + Me.gb_Languages.Controls.Add(Me.chb_Be) + Me.gb_Languages.Controls.Add(Me.chb_Ar) + Me.gb_Languages.Controls.Add(Me.chb_Ru) + Me.gb_Languages.Controls.Add(Me.chb_Gr) + Me.gb_Languages.Controls.Add(Me.chb_Hu) + Me.gb_Languages.Controls.Add(Me.chb_Pl) + Me.gb_Languages.Controls.Add(Me.chb_Ko) + Me.gb_Languages.Controls.Add(Me.chb_Zh) + Me.gb_Languages.Controls.Add(Me.chb_Fi) + Me.gb_Languages.Controls.Add(Me.chb_Da) + Me.gb_Languages.Controls.Add(Me.chb_No) + Me.gb_Languages.Controls.Add(Me.chb_Sv) + Me.gb_Languages.Controls.Add(Me.chb_Pt) + Me.gb_Languages.Controls.Add(Me.chb_Nl) + Me.gb_Languages.Controls.Add(Me.chb_It) + Me.gb_Languages.Controls.Add(Me.chb_Es) + Me.gb_Languages.Controls.Add(Me.chb_De) + Me.gb_Languages.Controls.Add(Me.chb_Fr) + Me.gb_Languages.Controls.Add(Me.chb_Ja) + Me.gb_Languages.Controls.Add(Me.chb_En) + Me.gb_Languages.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_Languages.Location = New System.Drawing.Point(0, 537) + Me.gb_Languages.Name = "gb_Languages" + Me.gb_Languages.Size = New System.Drawing.Size(381, 157) + Me.gb_Languages.TabIndex = 5 + Me.gb_Languages.Text = "Languages" + ' + 'chb_Cz + ' + Me.chb_Cz.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Cz.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Cz", True)) + Me.chb_Cz.Location = New System.Drawing.Point(289, 68) + Me.chb_Cz.MKBoldOnTrue = True + Me.chb_Cz.MKBoundLabel = Nothing + Me.chb_Cz.MKEditValue_Compare = Nothing + Me.chb_Cz.Name = "chb_Cz" + Me.chb_Cz.Properties.Caption = "Cz - Czech" + Me.chb_Cz.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Cz.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem2.Text = "Greek" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.chb_Cz.SuperTip = SuperToolTip2 + Me.chb_Cz.TabIndex = 22 + ' + 'chb_Sr + ' + Me.chb_Sr.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sr.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Sr", True)) + Me.chb_Sr.Location = New System.Drawing.Point(289, 112) + Me.chb_Sr.MKBoldOnTrue = True + Me.chb_Sr.MKBoundLabel = Nothing + Me.chb_Sr.MKEditValue_Compare = Nothing + Me.chb_Sr.Name = "chb_Sr" + Me.chb_Sr.Properties.Caption = "Sr - Serbian" + Me.chb_Sr.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Sr.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem3.Text = "Greek" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.chb_Sr.SuperTip = SuperToolTip3 + Me.chb_Sr.TabIndex = 21 + ' + 'chb_Sl + ' + Me.chb_Sl.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sl.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Sl", True)) + Me.chb_Sl.Location = New System.Drawing.Point(289, 90) + Me.chb_Sl.MKBoldOnTrue = True + Me.chb_Sl.MKBoundLabel = Nothing + Me.chb_Sl.MKEditValue_Compare = Nothing + Me.chb_Sl.Name = "chb_Sl" + Me.chb_Sl.Properties.Caption = "Sl - Slovenian" + Me.chb_Sl.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Sl.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem4.Text = "Greek" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.chb_Sl.SuperTip = SuperToolTip4 + Me.chb_Sl.TabIndex = 20 + ' + 'chb_Be + ' + Me.chb_Be.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Be.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Be", True)) + Me.chb_Be.Location = New System.Drawing.Point(289, 46) + Me.chb_Be.MKBoldOnTrue = True + Me.chb_Be.MKBoundLabel = Nothing + Me.chb_Be.MKEditValue_Compare = Nothing + Me.chb_Be.Name = "chb_Be" + Me.chb_Be.Properties.Caption = "Be - Belgian" + Me.chb_Be.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Be.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem5.Text = "Greek" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.chb_Be.SuperTip = SuperToolTip5 + Me.chb_Be.TabIndex = 19 + ' + 'chb_Ar + ' + Me.chb_Ar.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Ar.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Ar", True)) + Me.chb_Ar.Location = New System.Drawing.Point(289, 24) + Me.chb_Ar.MKBoldOnTrue = True + Me.chb_Ar.MKBoundLabel = Nothing + Me.chb_Ar.MKEditValue_Compare = Nothing + Me.chb_Ar.Name = "chb_Ar" + Me.chb_Ar.Properties.Caption = "Ar - Arabic" + Me.chb_Ar.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Ar.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem6.Text = "Greek" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.chb_Ar.SuperTip = SuperToolTip6 + Me.chb_Ar.TabIndex = 18 + ' + 'chb_Ru + ' + Me.chb_Ru.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Ru.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Ru", True)) + Me.chb_Ru.Location = New System.Drawing.Point(196, 133) + Me.chb_Ru.MKBoldOnTrue = True + Me.chb_Ru.MKBoundLabel = Nothing + Me.chb_Ru.MKEditValue_Compare = Nothing + Me.chb_Ru.Name = "chb_Ru" + Me.chb_Ru.Properties.Caption = "Ru - Russian" + Me.chb_Ru.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Ru.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem7.Text = "Greek" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.chb_Ru.SuperTip = SuperToolTip7 + Me.chb_Ru.TabIndex = 17 + ' + 'chb_Gr + ' + Me.chb_Gr.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Gr.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Gr", True)) + Me.chb_Gr.Location = New System.Drawing.Point(196, 112) + Me.chb_Gr.MKBoldOnTrue = True + Me.chb_Gr.MKBoundLabel = Nothing + Me.chb_Gr.MKEditValue_Compare = Nothing + Me.chb_Gr.Name = "chb_Gr" + Me.chb_Gr.Properties.Caption = "Gr - Greek" + Me.chb_Gr.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Gr.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem8.Text = "Greek" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "The tag or a part of it denotes the release supports the greek language" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.chb_Gr.SuperTip = SuperToolTip8 + Me.chb_Gr.TabIndex = 16 + ' + 'chb_Hu + ' + Me.chb_Hu.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Hu.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Hu", True)) + Me.chb_Hu.Location = New System.Drawing.Point(196, 90) + Me.chb_Hu.MKBoldOnTrue = True + Me.chb_Hu.MKBoundLabel = Nothing + Me.chb_Hu.MKEditValue_Compare = Nothing + Me.chb_Hu.Name = "chb_Hu" + Me.chb_Hu.Properties.Caption = "Hu - Hungarian" + Me.chb_Hu.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Hu.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem9.Text = "Hungarian" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "The tag or a part of it denotes the release supports the hungarian language" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.chb_Hu.SuperTip = SuperToolTip9 + Me.chb_Hu.TabIndex = 15 + ' + 'chb_Pl + ' + Me.chb_Pl.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Pl.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Pl", True)) + Me.chb_Pl.Location = New System.Drawing.Point(196, 68) + Me.chb_Pl.MKBoldOnTrue = True + Me.chb_Pl.MKBoundLabel = Nothing + Me.chb_Pl.MKEditValue_Compare = Nothing + Me.chb_Pl.Name = "chb_Pl" + Me.chb_Pl.Properties.Caption = "Pl - Polish" + Me.chb_Pl.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Pl.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem10.Text = "Polish" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "The tag or a part of it denotes the release supports the polish language" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem10) + Me.chb_Pl.SuperTip = SuperToolTip10 + Me.chb_Pl.TabIndex = 14 + ' + 'chb_Ko + ' + Me.chb_Ko.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Ko.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Ko", True)) + Me.chb_Ko.Location = New System.Drawing.Point(196, 46) + Me.chb_Ko.MKBoldOnTrue = True + Me.chb_Ko.MKBoundLabel = Nothing + Me.chb_Ko.MKEditValue_Compare = Nothing + Me.chb_Ko.Name = "chb_Ko" + Me.chb_Ko.Properties.Caption = "Ko - Korean" + Me.chb_Ko.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Ko.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem11.Text = "Korean" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "The tag or a part of it denotes the release supports the korean language" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem11) + Me.chb_Ko.SuperTip = SuperToolTip11 + Me.chb_Ko.TabIndex = 13 + ' + 'chb_Zh + ' + Me.chb_Zh.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Zh.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Zh", True)) + Me.chb_Zh.Location = New System.Drawing.Point(196, 24) + Me.chb_Zh.MKBoldOnTrue = True + Me.chb_Zh.MKBoundLabel = Nothing + Me.chb_Zh.MKEditValue_Compare = Nothing + Me.chb_Zh.Name = "chb_Zh" + Me.chb_Zh.Properties.Caption = "Zh - Chinese" + Me.chb_Zh.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Zh.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem12.Text = "Chinese" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "The tag or a part of it denotes the release supports the chinese language" + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem12) + Me.chb_Zh.SuperTip = SuperToolTip12 + Me.chb_Zh.TabIndex = 12 + ' + 'chb_Fi + ' + Me.chb_Fi.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Fi.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Fi", True)) + Me.chb_Fi.Location = New System.Drawing.Point(98, 133) + Me.chb_Fi.MKBoldOnTrue = True + Me.chb_Fi.MKBoundLabel = Nothing + Me.chb_Fi.MKEditValue_Compare = Nothing + Me.chb_Fi.Name = "chb_Fi" + Me.chb_Fi.Properties.Caption = "Fi - Finnish" + Me.chb_Fi.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Fi.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem13.Text = "Finnish" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "The tag or a part of it denotes the release supports the finnish language" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem13) + Me.chb_Fi.SuperTip = SuperToolTip13 + Me.chb_Fi.TabIndex = 11 + ' + 'chb_Da + ' + Me.chb_Da.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Da.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Da", True)) + Me.chb_Da.Location = New System.Drawing.Point(98, 112) + Me.chb_Da.MKBoldOnTrue = True + Me.chb_Da.MKBoundLabel = Nothing + Me.chb_Da.MKEditValue_Compare = Nothing + Me.chb_Da.Name = "chb_Da" + Me.chb_Da.Properties.Caption = "Da - Danish" + Me.chb_Da.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Da.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem14.Text = "Danish" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "The tag or a part of it denotes the release supports the danish language" + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem14) + Me.chb_Da.SuperTip = SuperToolTip14 + Me.chb_Da.TabIndex = 10 + ' + 'chb_No + ' + Me.chb_No.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_No.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "No", True)) + Me.chb_No.Location = New System.Drawing.Point(98, 90) + Me.chb_No.MKBoldOnTrue = True + Me.chb_No.MKBoundLabel = Nothing + Me.chb_No.MKEditValue_Compare = Nothing + Me.chb_No.Name = "chb_No" + Me.chb_No.Properties.Caption = "No - Norwegian" + Me.chb_No.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_No.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem15.Text = "Norwegian" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "The tag or a part of it denotes the release supports the norwegian language" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem15) + Me.chb_No.SuperTip = SuperToolTip15 + Me.chb_No.TabIndex = 9 + ' + 'chb_Sv + ' + Me.chb_Sv.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sv.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Sv", True)) + Me.chb_Sv.Location = New System.Drawing.Point(98, 68) + Me.chb_Sv.MKBoldOnTrue = True + Me.chb_Sv.MKBoundLabel = Nothing + Me.chb_Sv.MKEditValue_Compare = Nothing + Me.chb_Sv.Name = "chb_Sv" + Me.chb_Sv.Properties.Caption = "Sv - Swedish" + Me.chb_Sv.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Sv.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem16.Text = "Swedish" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "The tag or a part of it denotes the release supports the swedish language" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem16) + Me.chb_Sv.SuperTip = SuperToolTip16 + Me.chb_Sv.TabIndex = 8 + ' + 'chb_Pt + ' + Me.chb_Pt.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Pt.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Pt", True)) + Me.chb_Pt.Location = New System.Drawing.Point(98, 46) + Me.chb_Pt.MKBoldOnTrue = True + Me.chb_Pt.MKBoundLabel = Nothing + Me.chb_Pt.MKEditValue_Compare = Nothing + Me.chb_Pt.Name = "chb_Pt" + Me.chb_Pt.Properties.Caption = "Pt - Portuguese" + Me.chb_Pt.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Pt.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem17.Text = "Portuguese" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "The tag or a part of it denotes the release supports the portuguese language" + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem17) + Me.chb_Pt.SuperTip = SuperToolTip17 + Me.chb_Pt.TabIndex = 7 + ' + 'chb_Nl + ' + Me.chb_Nl.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Nl.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Nl", True)) + Me.chb_Nl.Location = New System.Drawing.Point(98, 24) + Me.chb_Nl.MKBoldOnTrue = True + Me.chb_Nl.MKBoundLabel = Nothing + Me.chb_Nl.MKEditValue_Compare = Nothing + Me.chb_Nl.Name = "chb_Nl" + Me.chb_Nl.Properties.Caption = "Nl - Dutch" + Me.chb_Nl.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Nl.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem18.Text = "Dutch" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "The tag or a part of it denotes the release supports the dutch language" + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem18) + Me.chb_Nl.SuperTip = SuperToolTip18 + Me.chb_Nl.TabIndex = 6 + ' + 'chb_It + ' + Me.chb_It.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_It.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "It", True)) + Me.chb_It.Location = New System.Drawing.Point(4, 133) + Me.chb_It.MKBoldOnTrue = True + Me.chb_It.MKBoundLabel = Nothing + Me.chb_It.MKEditValue_Compare = Nothing + Me.chb_It.Name = "chb_It" + Me.chb_It.Properties.Caption = "It - Italian" + Me.chb_It.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_It.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem19.Text = "Italian" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "The tag or a part of it denotes the release supports the italian language" + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem19) + Me.chb_It.SuperTip = SuperToolTip19 + Me.chb_It.TabIndex = 5 + ' + 'chb_Es + ' + Me.chb_Es.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Es.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Es", True)) + Me.chb_Es.Location = New System.Drawing.Point(4, 112) + Me.chb_Es.MKBoldOnTrue = True + Me.chb_Es.MKBoundLabel = Nothing + Me.chb_Es.MKEditValue_Compare = Nothing + Me.chb_Es.Name = "chb_Es" + Me.chb_Es.Properties.Caption = "Es - Spanish" + Me.chb_Es.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Es.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem20.Text = "Spanish" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "The tag or a part of it denotes the release supports the spanish language" + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem20) + Me.chb_Es.SuperTip = SuperToolTip20 + Me.chb_Es.TabIndex = 4 + ' + 'chb_De + ' + Me.chb_De.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_De.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "De", True)) + Me.chb_De.Location = New System.Drawing.Point(4, 90) + Me.chb_De.MKBoldOnTrue = True + Me.chb_De.MKBoundLabel = Nothing + Me.chb_De.MKEditValue_Compare = Nothing + Me.chb_De.Name = "chb_De" + Me.chb_De.Properties.Caption = "De - German" + Me.chb_De.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_De.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem21.Text = "German" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.Text = "The tag or a part of it denotes the release supports the german language" + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem21) + Me.chb_De.SuperTip = SuperToolTip21 + Me.chb_De.TabIndex = 3 + ' + 'chb_Fr + ' + Me.chb_Fr.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Fr.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Fr", True)) + Me.chb_Fr.Location = New System.Drawing.Point(4, 68) + Me.chb_Fr.MKBoldOnTrue = True + Me.chb_Fr.MKBoundLabel = Nothing + Me.chb_Fr.MKEditValue_Compare = Nothing + Me.chb_Fr.Name = "chb_Fr" + Me.chb_Fr.Properties.Caption = "Fr - French" + Me.chb_Fr.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Fr.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem22.Text = "French" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "The tag or a part of it denotes the release supports the french language" + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.chb_Fr.SuperTip = SuperToolTip22 + Me.chb_Fr.TabIndex = 2 + ' + 'chb_Ja + ' + Me.chb_Ja.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Ja.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Ja", True)) + Me.chb_Ja.Location = New System.Drawing.Point(4, 46) + Me.chb_Ja.MKBoldOnTrue = True + Me.chb_Ja.MKBoundLabel = Nothing + Me.chb_Ja.MKEditValue_Compare = Nothing + Me.chb_Ja.Name = "chb_Ja" + Me.chb_Ja.Properties.Caption = "Ja - Japanese" + Me.chb_Ja.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Ja.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem23.Text = "Japanese" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = "The tag or a part of it denotes the release supports the japanese language" + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.chb_Ja.SuperTip = SuperToolTip23 + Me.chb_Ja.TabIndex = 1 + ' + 'chb_En + ' + Me.chb_En.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_En.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "En", True)) + Me.chb_En.Location = New System.Drawing.Point(4, 24) + Me.chb_En.MKBoldOnTrue = True + Me.chb_En.MKBoundLabel = Nothing + Me.chb_En.MKEditValue_Compare = Nothing + Me.chb_En.Name = "chb_En" + Me.chb_En.Properties.Caption = "En - English" + Me.chb_En.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_En.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem24.Text = "English" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "The tag or a part of it denotes the release supports the english language" + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.chb_En.SuperTip = SuperToolTip24 + Me.chb_En.TabIndex = 0 + ' + 'gb_Regions + ' + Me.gb_Regions.Controls.Add(Me.chb_Asia) + Me.gb_Regions.Controls.Add(Me.chb_USA) + Me.gb_Regions.Controls.Add(Me.chb_Europe) + Me.gb_Regions.Controls.Add(Me.chb_Brazil) + Me.gb_Regions.Controls.Add(Me.chb_Canada) + Me.gb_Regions.Controls.Add(Me.chb_HongKong) + Me.gb_Regions.Controls.Add(Me.chb_Germany) + Me.gb_Regions.Controls.Add(Me.chb_France) + Me.gb_Regions.Controls.Add(Me.chb_China) + Me.gb_Regions.Controls.Add(Me.chb_Italy) + Me.gb_Regions.Controls.Add(Me.chb_Sweden) + Me.gb_Regions.Controls.Add(Me.chb_Spain) + Me.gb_Regions.Controls.Add(Me.chb_Netherlands) + Me.gb_Regions.Controls.Add(Me.chb_Korea) + Me.gb_Regions.Controls.Add(Me.chb_Japan) + Me.gb_Regions.Controls.Add(Me.chb_Russia) + Me.gb_Regions.Controls.Add(Me.chb_Taiwan) + Me.gb_Regions.Controls.Add(Me.chb_Australia) + Me.gb_Regions.Controls.Add(Me.chb_PAL) + Me.gb_Regions.Controls.Add(Me.chb_NTSC) + Me.gb_Regions.Controls.Add(Me.chb_World) + Me.gb_Regions.Dock = System.Windows.Forms.DockStyle.Top + Me.gb_Regions.Location = New System.Drawing.Point(0, 362) + Me.gb_Regions.Name = "gb_Regions" + Me.gb_Regions.Size = New System.Drawing.Size(381, 175) + Me.gb_Regions.TabIndex = 4 + Me.gb_Regions.Text = "Regions" + ' + 'chb_Asia + ' + Me.chb_Asia.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Asia.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Asia", True)) + Me.chb_Asia.Location = New System.Drawing.Point(4, 133) + Me.chb_Asia.MKBoldOnTrue = True + Me.chb_Asia.MKBoundLabel = Nothing + Me.chb_Asia.MKEditValue_Compare = Nothing + Me.chb_Asia.Name = "chb_Asia" + Me.chb_Asia.Properties.Caption = "Asia" + Me.chb_Asia.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Asia.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem25.Text = "Asia" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "The tag or a part of it denotes the release is asian" + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.chb_Asia.SuperTip = SuperToolTip25 + Me.chb_Asia.TabIndex = 5 + ' + 'chb_USA + ' + Me.chb_USA.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_USA.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "USA", True)) + Me.chb_USA.Location = New System.Drawing.Point(4, 111) + Me.chb_USA.MKBoldOnTrue = True + Me.chb_USA.MKBoundLabel = Nothing + Me.chb_USA.MKEditValue_Compare = Nothing + Me.chb_USA.Name = "chb_USA" + Me.chb_USA.Properties.Caption = "USA" + Me.chb_USA.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_USA.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem26.Text = "USA" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "The tag or a part of it denotes the release is american" + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.chb_USA.SuperTip = SuperToolTip26 + Me.chb_USA.TabIndex = 4 + ' + 'chb_Europe + ' + Me.chb_Europe.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Europe.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Europe", True)) + Me.chb_Europe.Location = New System.Drawing.Point(4, 89) + Me.chb_Europe.MKBoldOnTrue = True + Me.chb_Europe.MKBoundLabel = Nothing + Me.chb_Europe.MKEditValue_Compare = Nothing + Me.chb_Europe.Name = "chb_Europe" + Me.chb_Europe.Properties.Caption = "Europe" + Me.chb_Europe.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Europe.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem27.Text = "Europe" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "The tag or a part of it denotes the release is european" + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.chb_Europe.SuperTip = SuperToolTip27 + Me.chb_Europe.TabIndex = 3 + ' + 'chb_Brazil + ' + Me.chb_Brazil.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Brazil.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Brazil", True)) + Me.chb_Brazil.Location = New System.Drawing.Point(100, 24) + Me.chb_Brazil.MKBoldOnTrue = True + Me.chb_Brazil.MKBoundLabel = Nothing + Me.chb_Brazil.MKEditValue_Compare = Nothing + Me.chb_Brazil.Name = "chb_Brazil" + Me.chb_Brazil.Properties.Caption = "Brazil" + Me.chb_Brazil.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Brazil.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem28.Text = "Brazil" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = "The tag or a part of it denotes the release is brazilian" + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.chb_Brazil.SuperTip = SuperToolTip28 + Me.chb_Brazil.TabIndex = 7 + ' + 'chb_Canada + ' + Me.chb_Canada.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Canada.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Canada", True)) + Me.chb_Canada.Location = New System.Drawing.Point(100, 46) + Me.chb_Canada.MKBoldOnTrue = True + Me.chb_Canada.MKBoundLabel = Nothing + Me.chb_Canada.MKEditValue_Compare = Nothing + Me.chb_Canada.Name = "chb_Canada" + Me.chb_Canada.Properties.Caption = "Canada" + Me.chb_Canada.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Canada.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem29.Text = "Canada" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = "The tag or a part of it denotes the release is canadian" + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.chb_Canada.SuperTip = SuperToolTip29 + Me.chb_Canada.TabIndex = 8 + ' + 'chb_HongKong + ' + Me.chb_HongKong.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_HongKong.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "HongKong", True)) + Me.chb_HongKong.Location = New System.Drawing.Point(100, 133) + Me.chb_HongKong.MKBoldOnTrue = True + Me.chb_HongKong.MKBoundLabel = Nothing + Me.chb_HongKong.MKEditValue_Compare = Nothing + Me.chb_HongKong.Name = "chb_HongKong" + Me.chb_HongKong.Properties.Caption = "Hong Kong" + Me.chb_HongKong.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_HongKong.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem30.Text = "Hong Kong" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = "The tag or a part of it denotes the release is from Hong Kong" + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.chb_HongKong.SuperTip = SuperToolTip30 + Me.chb_HongKong.TabIndex = 12 + ' + 'chb_Germany + ' + Me.chb_Germany.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Germany.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Germany", True)) + Me.chb_Germany.Location = New System.Drawing.Point(100, 112) + Me.chb_Germany.MKBoldOnTrue = True + Me.chb_Germany.MKBoundLabel = Nothing + Me.chb_Germany.MKEditValue_Compare = Nothing + Me.chb_Germany.Name = "chb_Germany" + Me.chb_Germany.Properties.Caption = "Germany" + Me.chb_Germany.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Germany.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem31.Text = "Germany" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "The tag or a part of it denotes the release is german" + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.chb_Germany.SuperTip = SuperToolTip31 + Me.chb_Germany.TabIndex = 11 + ' + 'chb_France + ' + Me.chb_France.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_France.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "France", True)) + Me.chb_France.Location = New System.Drawing.Point(100, 90) + Me.chb_France.MKBoldOnTrue = True + Me.chb_France.MKBoundLabel = Nothing + Me.chb_France.MKEditValue_Compare = Nothing + Me.chb_France.Name = "chb_France" + Me.chb_France.Properties.Caption = "France" + Me.chb_France.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_France.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem32.Text = "France" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "The tag or a part of it denotes the release is french" + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.chb_France.SuperTip = SuperToolTip32 + Me.chb_France.TabIndex = 10 + ' + 'chb_China + ' + Me.chb_China.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_China.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "China", True)) + Me.chb_China.Location = New System.Drawing.Point(100, 68) + Me.chb_China.MKBoldOnTrue = True + Me.chb_China.MKBoundLabel = Nothing + Me.chb_China.MKEditValue_Compare = Nothing + Me.chb_China.Name = "chb_China" + Me.chb_China.Properties.Caption = "China" + Me.chb_China.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_China.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem33.Text = "China" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = "The tag or a part of it denotes the release is chinese" + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.chb_China.SuperTip = SuperToolTip33 + Me.chb_China.TabIndex = 9 + ' + 'chb_Italy + ' + Me.chb_Italy.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Italy.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Italy", True)) + Me.chb_Italy.Location = New System.Drawing.Point(100, 155) + Me.chb_Italy.MKBoldOnTrue = True + Me.chb_Italy.MKBoundLabel = Nothing + Me.chb_Italy.MKEditValue_Compare = Nothing + Me.chb_Italy.Name = "chb_Italy" + Me.chb_Italy.Properties.Caption = "Italy" + Me.chb_Italy.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Italy.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem34.Text = "Italy" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "The tag or a part of it denotes the release is italian" + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.chb_Italy.SuperTip = SuperToolTip34 + Me.chb_Italy.TabIndex = 13 + ' + 'chb_Sweden + ' + Me.chb_Sweden.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Sweden.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Sweden", True)) + Me.chb_Sweden.Location = New System.Drawing.Point(196, 133) + Me.chb_Sweden.MKBoldOnTrue = True + Me.chb_Sweden.MKBoundLabel = Nothing + Me.chb_Sweden.MKEditValue_Compare = Nothing + Me.chb_Sweden.Name = "chb_Sweden" + Me.chb_Sweden.Properties.Caption = "Sweden" + Me.chb_Sweden.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Sweden.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem35.Text = "Sweden" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "The tag or a part of it denotes the release is swedish" + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.chb_Sweden.SuperTip = SuperToolTip35 + Me.chb_Sweden.TabIndex = 19 + ' + 'chb_Spain + ' + Me.chb_Spain.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Spain.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Spain", True)) + Me.chb_Spain.Location = New System.Drawing.Point(196, 112) + Me.chb_Spain.MKBoldOnTrue = True + Me.chb_Spain.MKBoundLabel = Nothing + Me.chb_Spain.MKEditValue_Compare = Nothing + Me.chb_Spain.Name = "chb_Spain" + Me.chb_Spain.Properties.Caption = "Spain" + Me.chb_Spain.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Spain.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem36.Text = "Spain" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "The tag or a part of it denotes the release is spanish" + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.chb_Spain.SuperTip = SuperToolTip36 + Me.chb_Spain.TabIndex = 18 + ' + 'chb_Netherlands + ' + Me.chb_Netherlands.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Netherlands.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Netherlands", True)) + Me.chb_Netherlands.Location = New System.Drawing.Point(196, 68) + Me.chb_Netherlands.MKBoldOnTrue = True + Me.chb_Netherlands.MKBoundLabel = Nothing + Me.chb_Netherlands.MKEditValue_Compare = Nothing + Me.chb_Netherlands.Name = "chb_Netherlands" + Me.chb_Netherlands.Properties.Caption = "Netherlands" + Me.chb_Netherlands.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Netherlands.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem37.Text = "Netherlands" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = "The tag or a part of it denotes the release is dutch" + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.chb_Netherlands.SuperTip = SuperToolTip37 + Me.chb_Netherlands.TabIndex = 16 + ' + 'chb_Korea + ' + Me.chb_Korea.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Korea.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Korea", True)) + Me.chb_Korea.Location = New System.Drawing.Point(196, 46) + Me.chb_Korea.MKBoldOnTrue = True + Me.chb_Korea.MKBoundLabel = Nothing + Me.chb_Korea.MKEditValue_Compare = Nothing + Me.chb_Korea.Name = "chb_Korea" + Me.chb_Korea.Properties.Caption = "Korea" + Me.chb_Korea.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Korea.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem38.Text = "Korea" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "The tag or a part of it denotes the release is korean" + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.chb_Korea.SuperTip = SuperToolTip38 + Me.chb_Korea.TabIndex = 15 + ' + 'chb_Japan + ' + Me.chb_Japan.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Japan.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Japan", True)) + Me.chb_Japan.Location = New System.Drawing.Point(196, 24) + Me.chb_Japan.MKBoldOnTrue = True + Me.chb_Japan.MKBoundLabel = Nothing + Me.chb_Japan.MKEditValue_Compare = Nothing + Me.chb_Japan.Name = "chb_Japan" + Me.chb_Japan.Properties.Caption = "Japan" + Me.chb_Japan.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Japan.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem39.Text = "Japan" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "The tag or a part of it denotes the release is japanese" + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.chb_Japan.SuperTip = SuperToolTip39 + Me.chb_Japan.TabIndex = 14 + ' + 'chb_Russia + ' + Me.chb_Russia.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Russia.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Russia", True)) + Me.chb_Russia.Location = New System.Drawing.Point(196, 90) + Me.chb_Russia.MKBoldOnTrue = True + Me.chb_Russia.MKBoundLabel = Nothing + Me.chb_Russia.MKEditValue_Compare = Nothing + Me.chb_Russia.Name = "chb_Russia" + Me.chb_Russia.Properties.Caption = "Russia" + Me.chb_Russia.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Russia.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem40.Text = "Russia" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "The tag or a part of it denotes the release is russian" + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.chb_Russia.SuperTip = SuperToolTip40 + Me.chb_Russia.TabIndex = 17 + ' + 'chb_Taiwan + ' + Me.chb_Taiwan.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Taiwan.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Taiwan", True)) + Me.chb_Taiwan.Location = New System.Drawing.Point(196, 155) + Me.chb_Taiwan.MKBoldOnTrue = True + Me.chb_Taiwan.MKBoundLabel = Nothing + Me.chb_Taiwan.MKEditValue_Compare = Nothing + Me.chb_Taiwan.Name = "chb_Taiwan" + Me.chb_Taiwan.Properties.Caption = "Taiwan" + Me.chb_Taiwan.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Taiwan.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem41.Text = "Taiwan" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.Text = "The tag or a part of it denotes the release is taiwanese" + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem41) + Me.chb_Taiwan.SuperTip = SuperToolTip41 + Me.chb_Taiwan.TabIndex = 20 + ' + 'chb_Australia + ' + Me.chb_Australia.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Australia.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Australia", True)) + Me.chb_Australia.Location = New System.Drawing.Point(4, 155) + Me.chb_Australia.MKBoldOnTrue = True + Me.chb_Australia.MKBoundLabel = Nothing + Me.chb_Australia.MKEditValue_Compare = Nothing + Me.chb_Australia.Name = "chb_Australia" + Me.chb_Australia.Properties.Caption = "Australia" + Me.chb_Australia.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Australia.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem42.Text = "Australia" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "The tag or a part of it denotes the release is australian" + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.chb_Australia.SuperTip = SuperToolTip42 + Me.chb_Australia.TabIndex = 6 + ' + 'chb_PAL + ' + Me.chb_PAL.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_PAL.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "PAL", True)) + Me.chb_PAL.Location = New System.Drawing.Point(3, 46) + Me.chb_PAL.MKBoldOnTrue = True + Me.chb_PAL.MKBoundLabel = Nothing + Me.chb_PAL.MKEditValue_Compare = Nothing + Me.chb_PAL.Name = "chb_PAL" + Me.chb_PAL.Properties.Caption = "PAL" + Me.chb_PAL.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_PAL.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem43.Text = "PAL" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "The tag or a part of it denotes the release is PAL" + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.chb_PAL.SuperTip = SuperToolTip43 + Me.chb_PAL.TabIndex = 1 + ' + 'chb_NTSC + ' + Me.chb_NTSC.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_NTSC.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "NTSC", True)) + Me.chb_NTSC.Location = New System.Drawing.Point(3, 24) + Me.chb_NTSC.MKBoldOnTrue = True + Me.chb_NTSC.MKBoundLabel = Nothing + Me.chb_NTSC.MKEditValue_Compare = Nothing + Me.chb_NTSC.Name = "chb_NTSC" + Me.chb_NTSC.Properties.Caption = "NTSC" + Me.chb_NTSC.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_NTSC.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem44.Text = "NTSC" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "The tag or a part of it denotes the release is NTSC" + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.chb_NTSC.SuperTip = SuperToolTip44 + Me.chb_NTSC.TabIndex = 0 + ' + 'chb_World + ' + Me.chb_World.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_World.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "World", True)) + Me.chb_World.Location = New System.Drawing.Point(4, 67) + Me.chb_World.MKBoldOnTrue = True + Me.chb_World.MKBoundLabel = Nothing + Me.chb_World.MKEditValue_Compare = Nothing + Me.chb_World.Name = "chb_World" + Me.chb_World.Properties.Caption = "World" + Me.chb_World.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_World.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem45.Text = "World" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = "The tag or a part of it denotes the release is world-wide" + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem45) + Me.chb_World.SuperTip = SuperToolTip45 + Me.chb_World.TabIndex = 2 + ' + 'gb_ReleaseInfo + ' + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Alpha) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Pirated) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Fixed) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Overdump) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Bad) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Good) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Unlicensed) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Alt) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Translation) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Beta) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Kiosk) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Demo) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Prototype) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Version) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Trainer) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Hack) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Bios) + Me.gb_ReleaseInfo.Controls.Add(Me.cb_Publisher) + Me.gb_ReleaseInfo.Controls.Add(Me.chb_Year) + Me.gb_ReleaseInfo.Dock = System.Windows.Forms.DockStyle.Top + Me.gb_ReleaseInfo.Location = New System.Drawing.Point(0, 185) + Me.gb_ReleaseInfo.Name = "gb_ReleaseInfo" + Me.gb_ReleaseInfo.Size = New System.Drawing.Size(381, 177) + Me.gb_ReleaseInfo.TabIndex = 3 + Me.gb_ReleaseInfo.Text = "Release Info" + ' + 'chb_Alpha + ' + Me.chb_Alpha.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Alpha.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Alpha", True)) + Me.chb_Alpha.Location = New System.Drawing.Point(100, 90) + Me.chb_Alpha.MKBoldOnTrue = True + Me.chb_Alpha.MKBoundLabel = Nothing + Me.chb_Alpha.MKEditValue_Compare = Nothing + Me.chb_Alpha.Name = "chb_Alpha" + Me.chb_Alpha.Properties.Caption = "Alpha" + Me.chb_Alpha.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Alpha.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem46.Text = "Alpha" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.Text = "The tag denotes the game is an alpha version." + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem46) + Me.chb_Alpha.SuperTip = SuperToolTip46 + Me.chb_Alpha.TabIndex = 9 + ' + 'chb_Pirated + ' + Me.chb_Pirated.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Pirated.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Pirated", True)) + Me.chb_Pirated.Location = New System.Drawing.Point(196, 90) + Me.chb_Pirated.MKBoldOnTrue = True + Me.chb_Pirated.MKBoundLabel = Nothing + Me.chb_Pirated.MKEditValue_Compare = Nothing + Me.chb_Pirated.Name = "chb_Pirated" + Me.chb_Pirated.Properties.Caption = "Pirated" + Me.chb_Pirated.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Pirated.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem47.Text = "Pirated" + ToolTipItem47.LeftIndent = 6 + ToolTipItem47.Text = "The tag denotes the game is a pirated game (e.g. pirate carts)." + SuperToolTip47.Items.Add(ToolTipTitleItem47) + SuperToolTip47.Items.Add(ToolTipItem47) + Me.chb_Pirated.SuperTip = SuperToolTip47 + Me.chb_Pirated.TabIndex = 15 + ' + 'chb_Fixed + ' + Me.chb_Fixed.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Fixed.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Fixed", True)) + Me.chb_Fixed.Location = New System.Drawing.Point(196, 68) + Me.chb_Fixed.MKBoldOnTrue = True + Me.chb_Fixed.MKBoundLabel = Nothing + Me.chb_Fixed.MKEditValue_Compare = Nothing + Me.chb_Fixed.Name = "chb_Fixed" + Me.chb_Fixed.Properties.Caption = "Fixed" + Me.chb_Fixed.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Fixed.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem48.Text = "Fixed" + ToolTipItem48.LeftIndent = 6 + ToolTipItem48.Text = "The tag denotes the game contains a fix." + SuperToolTip48.Items.Add(ToolTipTitleItem48) + SuperToolTip48.Items.Add(ToolTipItem48) + Me.chb_Fixed.SuperTip = SuperToolTip48 + Me.chb_Fixed.TabIndex = 14 + ' + 'chb_Overdump + ' + Me.chb_Overdump.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Overdump.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Overdump", True)) + Me.chb_Overdump.Location = New System.Drawing.Point(196, 156) + Me.chb_Overdump.MKBoldOnTrue = True + Me.chb_Overdump.MKBoundLabel = Nothing + Me.chb_Overdump.MKEditValue_Compare = Nothing + Me.chb_Overdump.Name = "chb_Overdump" + Me.chb_Overdump.Properties.Caption = "Overdump" + Me.chb_Overdump.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Overdump.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem49.Text = "Hack" + ToolTipItem49.LeftIndent = 6 + ToolTipItem49.Text = "The tag denotes the game is an overdump." + SuperToolTip49.Items.Add(ToolTipTitleItem49) + SuperToolTip49.Items.Add(ToolTipItem49) + Me.chb_Overdump.SuperTip = SuperToolTip49 + Me.chb_Overdump.TabIndex = 18 + ' + 'chb_Bad + ' + Me.chb_Bad.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Bad.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Bad", True)) + Me.chb_Bad.Location = New System.Drawing.Point(196, 134) + Me.chb_Bad.MKBoldOnTrue = True + Me.chb_Bad.MKBoundLabel = Nothing + Me.chb_Bad.MKEditValue_Compare = Nothing + Me.chb_Bad.Name = "chb_Bad" + Me.chb_Bad.Properties.Caption = "Bad" + Me.chb_Bad.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Bad.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem50.Text = "Bad" + ToolTipItem50.LeftIndent = 6 + ToolTipItem50.Text = "The tag denotes the game is bad dump." + SuperToolTip50.Items.Add(ToolTipTitleItem50) + SuperToolTip50.Items.Add(ToolTipItem50) + Me.chb_Bad.SuperTip = SuperToolTip50 + Me.chb_Bad.TabIndex = 17 + ' + 'chb_Good + ' + Me.chb_Good.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Good.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Good", True)) + Me.chb_Good.Location = New System.Drawing.Point(196, 112) + Me.chb_Good.MKBoldOnTrue = True + Me.chb_Good.MKBoundLabel = Nothing + Me.chb_Good.MKEditValue_Compare = Nothing + Me.chb_Good.Name = "chb_Good" + Me.chb_Good.Properties.Caption = "Good" + Me.chb_Good.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Good.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem51.Text = "Good" + ToolTipItem51.LeftIndent = 6 + ToolTipItem51.Text = "The tag denotes the game is a known good dump." + SuperToolTip51.Items.Add(ToolTipTitleItem51) + SuperToolTip51.Items.Add(ToolTipItem51) + Me.chb_Good.SuperTip = SuperToolTip51 + Me.chb_Good.TabIndex = 16 + ' + 'chb_Unlicensed + ' + Me.chb_Unlicensed.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Unlicensed.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Unlicensed", True)) + Me.chb_Unlicensed.Location = New System.Drawing.Point(196, 46) + Me.chb_Unlicensed.MKBoldOnTrue = True + Me.chb_Unlicensed.MKBoundLabel = Nothing + Me.chb_Unlicensed.MKEditValue_Compare = Nothing + Me.chb_Unlicensed.Name = "chb_Unlicensed" + Me.chb_Unlicensed.Properties.Caption = "Unlicensed" + Me.chb_Unlicensed.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Unlicensed.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem52.Text = "Unlicensed" + ToolTipItem52.LeftIndent = 6 + ToolTipItem52.Text = "The tag denotes the game is an unlicensed game." + SuperToolTip52.Items.Add(ToolTipTitleItem52) + SuperToolTip52.Items.Add(ToolTipItem52) + Me.chb_Unlicensed.SuperTip = SuperToolTip52 + Me.chb_Unlicensed.TabIndex = 13 + ' + 'chb_Alt + ' + Me.chb_Alt.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Alt.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Alt", True)) + Me.chb_Alt.Location = New System.Drawing.Point(4, 90) + Me.chb_Alt.MKBoldOnTrue = True + Me.chb_Alt.MKBoundLabel = Nothing + Me.chb_Alt.MKEditValue_Compare = Nothing + Me.chb_Alt.Name = "chb_Alt" + Me.chb_Alt.Properties.Caption = "Alt" + Me.chb_Alt.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Alt.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem53.Text = "Alt" + ToolTipItem53.LeftIndent = 6 + ToolTipItem53.Text = "The tag denotes the game is an alternate dump." + SuperToolTip53.Items.Add(ToolTipTitleItem53) + SuperToolTip53.Items.Add(ToolTipItem53) + Me.chb_Alt.SuperTip = SuperToolTip53 + Me.chb_Alt.TabIndex = 3 + ' + 'chb_Translation + ' + Me.chb_Translation.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Translation.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Translation", True)) + Me.chb_Translation.Location = New System.Drawing.Point(4, 134) + Me.chb_Translation.MKBoldOnTrue = True + Me.chb_Translation.MKBoundLabel = Nothing + Me.chb_Translation.MKEditValue_Compare = Nothing + Me.chb_Translation.Name = "chb_Translation" + Me.chb_Translation.Properties.Caption = "Translation" + Me.chb_Translation.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Translation.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem54.Text = "Translation" + ToolTipItem54.LeftIndent = 6 + ToolTipItem54.Text = "The tag denotes the game is an (inofficial) translation. Please also keep in mind" & + " to select the appropriate language/s in the language section." + SuperToolTip54.Items.Add(ToolTipTitleItem54) + SuperToolTip54.Items.Add(ToolTipItem54) + Me.chb_Translation.SuperTip = SuperToolTip54 + Me.chb_Translation.TabIndex = 5 + ' + 'chb_Beta + ' + Me.chb_Beta.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Beta.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Beta", True)) + Me.chb_Beta.Location = New System.Drawing.Point(100, 112) + Me.chb_Beta.MKBoldOnTrue = True + Me.chb_Beta.MKBoundLabel = Nothing + Me.chb_Beta.MKEditValue_Compare = Nothing + Me.chb_Beta.Name = "chb_Beta" + Me.chb_Beta.Properties.Caption = "Beta" + Me.chb_Beta.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Beta.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem55.Text = "Beta" + ToolTipItem55.LeftIndent = 6 + ToolTipItem55.Text = "The tag denotes the game is a beta version." + SuperToolTip55.Items.Add(ToolTipTitleItem55) + SuperToolTip55.Items.Add(ToolTipItem55) + Me.chb_Beta.SuperTip = SuperToolTip55 + Me.chb_Beta.TabIndex = 10 + ' + 'chb_Kiosk + ' + Me.chb_Kiosk.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Kiosk.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Kiosk", True)) + Me.chb_Kiosk.Location = New System.Drawing.Point(100, 156) + Me.chb_Kiosk.MKBoldOnTrue = True + Me.chb_Kiosk.MKBoundLabel = Nothing + Me.chb_Kiosk.MKEditValue_Compare = Nothing + Me.chb_Kiosk.Name = "chb_Kiosk" + Me.chb_Kiosk.Properties.Caption = "Kiosk" + Me.chb_Kiosk.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Kiosk.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem56.Text = "Kiosk" + ToolTipItem56.LeftIndent = 6 + ToolTipItem56.Text = "The tag denotes the game is a kiosk version." + SuperToolTip56.Items.Add(ToolTipTitleItem56) + SuperToolTip56.Items.Add(ToolTipItem56) + Me.chb_Kiosk.SuperTip = SuperToolTip56 + Me.chb_Kiosk.TabIndex = 12 + ' + 'chb_Demo + ' + Me.chb_Demo.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Demo.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Sample", True)) + Me.chb_Demo.Location = New System.Drawing.Point(100, 134) + Me.chb_Demo.MKBoldOnTrue = True + Me.chb_Demo.MKBoundLabel = Nothing + Me.chb_Demo.MKEditValue_Compare = Nothing + Me.chb_Demo.Name = "chb_Demo" + Me.chb_Demo.Properties.Caption = "Sample" + Me.chb_Demo.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Demo.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem57.Text = "Sample" + ToolTipItem57.LeftIndent = 6 + ToolTipItem57.Text = "The tag denotes the game is a sample or demo." + SuperToolTip57.Items.Add(ToolTipTitleItem57) + SuperToolTip57.Items.Add(ToolTipItem57) + Me.chb_Demo.SuperTip = SuperToolTip57 + Me.chb_Demo.TabIndex = 11 + ' + 'chb_Prototype + ' + Me.chb_Prototype.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Prototype.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Prototype", True)) + Me.chb_Prototype.Location = New System.Drawing.Point(100, 68) + Me.chb_Prototype.MKBoldOnTrue = True + Me.chb_Prototype.MKBoundLabel = Nothing + Me.chb_Prototype.MKEditValue_Compare = Nothing + Me.chb_Prototype.Name = "chb_Prototype" + Me.chb_Prototype.Properties.Caption = "Prototype" + Me.chb_Prototype.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Prototype.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem58.Text = "Prototype" + ToolTipItem58.LeftIndent = 6 + ToolTipItem58.Text = "The tag denotes the game is a prototype." + SuperToolTip58.Items.Add(ToolTipTitleItem58) + SuperToolTip58.Items.Add(ToolTipItem58) + Me.chb_Prototype.SuperTip = SuperToolTip58 + Me.chb_Prototype.TabIndex = 8 + ' + 'chb_Version + ' + Me.chb_Version.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Version.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Version", True)) + Me.chb_Version.Location = New System.Drawing.Point(4, 68) + Me.chb_Version.MKBoldOnTrue = True + Me.chb_Version.MKBoundLabel = Nothing + Me.chb_Version.MKEditValue_Compare = Nothing + Me.chb_Version.Name = "chb_Version" + Me.chb_Version.Properties.Caption = "Version" + Me.chb_Version.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Version.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem59.Text = "Version" + ToolTipItem59.LeftIndent = 6 + ToolTipItem59.Text = "The content of the tag is the version info for the game." + SuperToolTip59.Items.Add(ToolTipTitleItem59) + SuperToolTip59.Items.Add(ToolTipItem59) + Me.chb_Version.SuperTip = SuperToolTip59 + Me.chb_Version.TabIndex = 2 + ' + 'chb_Trainer + ' + Me.chb_Trainer.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Trainer.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Trainer", True)) + Me.chb_Trainer.Location = New System.Drawing.Point(4, 112) + Me.chb_Trainer.MKBoldOnTrue = True + Me.chb_Trainer.MKBoundLabel = Nothing + Me.chb_Trainer.MKEditValue_Compare = Nothing + Me.chb_Trainer.Name = "chb_Trainer" + Me.chb_Trainer.Properties.Caption = "Trainer" + Me.chb_Trainer.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Trainer.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem60.Text = "Trainer" + ToolTipItem60.LeftIndent = 6 + ToolTipItem60.Text = "The tag denotes the game contains a trainer." + SuperToolTip60.Items.Add(ToolTipTitleItem60) + SuperToolTip60.Items.Add(ToolTipItem60) + Me.chb_Trainer.SuperTip = SuperToolTip60 + Me.chb_Trainer.TabIndex = 4 + ' + 'chb_Hack + ' + Me.chb_Hack.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Hack.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Hack", True)) + Me.chb_Hack.Location = New System.Drawing.Point(4, 156) + Me.chb_Hack.MKBoldOnTrue = True + Me.chb_Hack.MKBoundLabel = Nothing + Me.chb_Hack.MKEditValue_Compare = Nothing + Me.chb_Hack.Name = "chb_Hack" + Me.chb_Hack.Properties.Caption = "Hack" + Me.chb_Hack.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Hack.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem61.Text = "Hack" + ToolTipItem61.LeftIndent = 6 + ToolTipItem61.Text = "The tag denotes the game is a hack." + SuperToolTip61.Items.Add(ToolTipTitleItem61) + SuperToolTip61.Items.Add(ToolTipItem61) + Me.chb_Hack.SuperTip = SuperToolTip61 + Me.chb_Hack.TabIndex = 6 + ' + 'chb_Bios + ' + Me.chb_Bios.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Bios.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Bios", True)) + Me.chb_Bios.Location = New System.Drawing.Point(100, 46) + Me.chb_Bios.MKBoldOnTrue = True + Me.chb_Bios.MKBoundLabel = Nothing + Me.chb_Bios.MKEditValue_Compare = Nothing + Me.chb_Bios.Name = "chb_Bios" + Me.chb_Bios.Properties.Caption = "Bios" + Me.chb_Bios.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Bios.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem62.Text = "Bios" + ToolTipItem62.LeftIndent = 6 + ToolTipItem62.Text = "The tag denotes the rom is a Bios image." + SuperToolTip62.Items.Add(ToolTipTitleItem62) + SuperToolTip62.Items.Add(ToolTipItem62) + Me.chb_Bios.SuperTip = SuperToolTip62 + Me.chb_Bios.TabIndex = 7 + ' + 'cb_Publisher + ' + Me.cb_Publisher.Cursor = System.Windows.Forms.Cursors.Hand + Me.cb_Publisher.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Publisher", True)) + Me.cb_Publisher.Location = New System.Drawing.Point(4, 24) + Me.cb_Publisher.MKBoldOnTrue = True + Me.cb_Publisher.MKBoundLabel = Nothing + Me.cb_Publisher.MKEditValue_Compare = Nothing + Me.cb_Publisher.Name = "cb_Publisher" + Me.cb_Publisher.Properties.Caption = "Publisher" + Me.cb_Publisher.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.cb_Publisher.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem63.Text = "Publisher" + ToolTipItem63.LeftIndent = 6 + ToolTipItem63.Text = "The content of the Tag is the Publisher's name." + SuperToolTip63.Items.Add(ToolTipTitleItem63) + SuperToolTip63.Items.Add(ToolTipItem63) + Me.cb_Publisher.SuperTip = SuperToolTip63 + Me.cb_Publisher.TabIndex = 0 + ' + 'chb_Year + ' + Me.chb_Year.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Year.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Year", True)) + Me.chb_Year.Location = New System.Drawing.Point(4, 46) + Me.chb_Year.MKBoldOnTrue = True + Me.chb_Year.MKBoundLabel = Nothing + Me.chb_Year.MKEditValue_Compare = Nothing + Me.chb_Year.Name = "chb_Year" + Me.chb_Year.Properties.Caption = "Year" + Me.chb_Year.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_Year.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem64.Text = "Year" + ToolTipItem64.LeftIndent = 6 + ToolTipItem64.Text = "The content or part of it is the year of release." + SuperToolTip64.Items.Add(ToolTipTitleItem64) + SuperToolTip64.Items.Add(ToolTipItem64) + Me.chb_Year.SuperTip = SuperToolTip64 + Me.chb_Year.TabIndex = 1 + ' + 'gb_MultiVolume + ' + Me.gb_MultiVolume.AppearanceCaption.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.gb_MultiVolume.AppearanceCaption.Options.UseFont = True + Me.gb_MultiVolume.Controls.Add(Me.cmb_MV_Volume) + Me.gb_MultiVolume.Controls.Add(Me.chb_MV_Group_Criteria) + Me.gb_MultiVolume.Dock = System.Windows.Forms.DockStyle.Top + Me.gb_MultiVolume.Location = New System.Drawing.Point(0, 119) + Me.gb_MultiVolume.Name = "gb_MultiVolume" + Me.gb_MultiVolume.Size = New System.Drawing.Size(381, 66) + Me.gb_MultiVolume.TabIndex = 2 + Me.gb_MultiVolume.Text = "Multiple Volumes" + Me.gb_MultiVolume.Visible = False + ' + 'cmb_MV_Volume + ' + Me.cmb_MV_Volume.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "MV_Volume_Number", True)) + Me.cmb_MV_Volume.Location = New System.Drawing.Point(5, 42) + Me.cmb_MV_Volume.MKBoundLabel = Nothing + Me.cmb_MV_Volume.MKEditValue_Compare = Nothing + Me.cmb_MV_Volume.Name = "cmb_MV_Volume" + Me.cmb_MV_Volume.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_MV_Volume.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Tag_Parser_Volumes", "id_Tag_Parser_Volumes", 137, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_MV_Volume.Properties.DataSource = Me.BS_MV_Volume + Me.cmb_MV_Volume.Properties.DisplayMember = "DisplayText" + Me.cmb_MV_Volume.Properties.NullText = "Not a volume" + Me.cmb_MV_Volume.Properties.ValueMember = "id_Tag_Parser_Volumes" + Me.cmb_MV_Volume.Size = New System.Drawing.Size(123, 20) + ToolTipTitleItem65.Text = "Volume N°" + ToolTipItem65.LeftIndent = 6 + ToolTipItem65.Text = "If the tag denotes a certain volume number, choose the approrpiate volume number " & + "here." + SuperToolTip65.Items.Add(ToolTipTitleItem65) + SuperToolTip65.Items.Add(ToolTipItem65) + Me.cmb_MV_Volume.SuperTip = SuperToolTip65 + Me.cmb_MV_Volume.TabIndex = 1 + ' + 'BS_MV_Volume + ' + Me.BS_MV_Volume.DataMember = "ttb_Tag_Parser_Volumes" + Me.BS_MV_Volume.DataSource = Me.DS_ML + ' + 'chb_MV_Group_Criteria + ' + Me.chb_MV_Group_Criteria.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_MV_Group_Criteria.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "MV_Group_Criteria", True)) + Me.chb_MV_Group_Criteria.Location = New System.Drawing.Point(4, 22) + Me.chb_MV_Group_Criteria.MKBoldOnTrue = True + Me.chb_MV_Group_Criteria.MKBoundLabel = Nothing + Me.chb_MV_Group_Criteria.MKEditValue_Compare = Nothing + Me.chb_MV_Group_Criteria.Name = "chb_MV_Group_Criteria" + Me.chb_MV_Group_Criteria.Properties.Caption = "Use as group criteria" + Me.chb_MV_Group_Criteria.Properties.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + Me.chb_MV_Group_Criteria.Size = New System.Drawing.Size(178, 19) + ToolTipTitleItem66.Text = "Multiple Volumes: Use as group criteria" + ToolTipItem66.LeftIndent = 6 + ToolTipItem66.Text = "Use this tag to group volumes into a single game." + SuperToolTip66.Items.Add(ToolTipTitleItem66) + SuperToolTip66.Items.Add(ToolTipItem66) + Me.chb_MV_Group_Criteria.SuperTip = SuperToolTip66 + Me.chb_MV_Group_Criteria.TabIndex = 0 + ' + 'gb_Note + ' + Me.gb_Note.Controls.Add(Me.txb_Note) + Me.gb_Note.Dock = System.Windows.Forms.DockStyle.Top + Me.gb_Note.Location = New System.Drawing.Point(0, 75) + Me.gb_Note.Name = "gb_Note" + Me.gb_Note.Size = New System.Drawing.Size(381, 44) + Me.gb_Note.TabIndex = 1 + Me.gb_Note.Text = "Additional Note" + ' + 'txb_Note + ' + Me.txb_Note.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Tag_Parser, "Note", True)) + Me.txb_Note.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Note.Location = New System.Drawing.Point(2, 20) + Me.txb_Note.MKBoundLabel = Nothing + Me.txb_Note.MKEditValue_Compare = Nothing + Me.txb_Note.Name = "txb_Note" + Me.txb_Note.Size = New System.Drawing.Size(377, 20) + ToolTipTitleItem67.Text = "Additional Note" + ToolTipItem67.LeftIndent = 6 + ToolTipItem67.Text = resources.GetString("ToolTipItem67.Text") + SuperToolTip67.Items.Add(ToolTipTitleItem67) + SuperToolTip67.Items.Add(ToolTipItem67) + Me.txb_Note.SuperTip = SuperToolTip67 + Me.txb_Note.TabIndex = 0 + ' + 'gb_Found_In + ' + Me.gb_Found_In.Controls.Add(Me.lbl_Found_In_Right) + Me.gb_Found_In.Controls.Add(Me.lbl_Found_In_Middle) + Me.gb_Found_In.Controls.Add(Me.lbl_Found_In_Left) + Me.gb_Found_In.Dock = System.Windows.Forms.DockStyle.Top + Me.gb_Found_In.Location = New System.Drawing.Point(0, 35) + Me.gb_Found_In.Name = "gb_Found_In" + Me.gb_Found_In.Padding = New System.Windows.Forms.Padding(3) + Me.gb_Found_In.Size = New System.Drawing.Size(381, 40) + Me.gb_Found_In.TabIndex = 0 + Me.gb_Found_In.Text = "Tag first found in" + ' + 'lbl_Found_In_Right + ' + Me.lbl_Found_In_Right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Horizontal + Me.lbl_Found_In_Right.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Found_In_Right.Location = New System.Drawing.Point(71, 23) + Me.lbl_Found_In_Right.MKBoundControl1 = Nothing + Me.lbl_Found_In_Right.MKBoundControl2 = Nothing + Me.lbl_Found_In_Right.MKBoundControl3 = Nothing + Me.lbl_Found_In_Right.MKBoundControl4 = Nothing + Me.lbl_Found_In_Right.MKBoundControl5 = Nothing + Me.lbl_Found_In_Right.Name = "lbl_Found_In_Right" + Me.lbl_Found_In_Right.Size = New System.Drawing.Size(31, 13) + Me.lbl_Found_In_Right.TabIndex = 2 + Me.lbl_Found_In_Right.Text = "RIGHT" + ' + 'lbl_Found_In_Middle + ' + Me.lbl_Found_In_Middle.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.lbl_Found_In_Middle.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Horizontal + Me.lbl_Found_In_Middle.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Found_In_Middle.Location = New System.Drawing.Point(28, 23) + Me.lbl_Found_In_Middle.MKBoundControl1 = Nothing + Me.lbl_Found_In_Middle.MKBoundControl2 = Nothing + Me.lbl_Found_In_Middle.MKBoundControl3 = Nothing + Me.lbl_Found_In_Middle.MKBoundControl4 = Nothing + Me.lbl_Found_In_Middle.MKBoundControl5 = Nothing + Me.lbl_Found_In_Middle.Name = "lbl_Found_In_Middle" + Me.lbl_Found_In_Middle.Size = New System.Drawing.Size(43, 13) + Me.lbl_Found_In_Middle.TabIndex = 1 + Me.lbl_Found_In_Middle.Text = "MIDDLE" + ' + 'lbl_Found_In_Left + ' + Me.lbl_Found_In_Left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Horizontal + Me.lbl_Found_In_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.lbl_Found_In_Left.Location = New System.Drawing.Point(5, 23) + Me.lbl_Found_In_Left.MKBoundControl1 = Nothing + Me.lbl_Found_In_Left.MKBoundControl2 = Nothing + Me.lbl_Found_In_Left.MKBoundControl3 = Nothing + Me.lbl_Found_In_Left.MKBoundControl4 = Nothing + Me.lbl_Found_In_Left.MKBoundControl5 = Nothing + Me.lbl_Found_In_Left.Name = "lbl_Found_In_Left" + Me.lbl_Found_In_Left.Size = New System.Drawing.Size(23, 13) + Me.lbl_Found_In_Left.TabIndex = 0 + Me.lbl_Found_In_Left.Text = "LEFT" + ' + 'Ctl_MKDXLabel1 + ' + Me.Ctl_MKDXLabel1.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.Ctl_MKDXLabel1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Ctl_MKDXLabel1.Location = New System.Drawing.Point(0, 0) + Me.Ctl_MKDXLabel1.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel1.Name = "Ctl_MKDXLabel1" + Me.Ctl_MKDXLabel1.Size = New System.Drawing.Size(381, 35) + Me.Ctl_MKDXLabel1.TabIndex = 3 + Me.Ctl_MKDXLabel1.Text = " Properties" + ' + 'barmng + ' + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Set_Additional_Note, Me.bbi_Remove_Additional_Note, Me.bbi_Set_Group_Criteria, Me.bbi_Remove_Group_Criteria, Me.bbi_Set_Publisher, Me.bbi_Remove_Publisher, Me.bbi_Export, Me.bbi_Import}) + Me.barmng.MaxItemId = 8 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(675, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 724) + Me.barDockControlBottom.Size = New System.Drawing.Size(675, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 724) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(675, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 724) + ' + 'bbi_Set_Additional_Note + ' + Me.bbi_Set_Additional_Note.Caption = "&Set Additional Note for %0% Tags" + Me.bbi_Set_Additional_Note.Id = 0 + Me.bbi_Set_Additional_Note.ImageUri.Uri = "Redo" + Me.bbi_Set_Additional_Note.Name = "bbi_Set_Additional_Note" + ' + 'bbi_Remove_Additional_Note + ' + Me.bbi_Remove_Additional_Note.Caption = "&Remove Additional Note for %0% Tags" + Me.bbi_Remove_Additional_Note.Id = 1 + Me.bbi_Remove_Additional_Note.ImageUri.Uri = "Undo" + Me.bbi_Remove_Additional_Note.Name = "bbi_Remove_Additional_Note" + ' + 'bbi_Set_Group_Criteria + ' + Me.bbi_Set_Group_Criteria.Caption = "Set 'Use as group criteria' for %0% Tags" + Me.bbi_Set_Group_Criteria.Id = 2 + Me.bbi_Set_Group_Criteria.ImageUri.Uri = "Redo" + Me.bbi_Set_Group_Criteria.Name = "bbi_Set_Group_Criteria" + ' + 'bbi_Remove_Group_Criteria + ' + Me.bbi_Remove_Group_Criteria.Caption = "Remove 'Use as group criteria' for %0% Tags" + Me.bbi_Remove_Group_Criteria.Id = 3 + Me.bbi_Remove_Group_Criteria.ImageUri.Uri = "Undo" + Me.bbi_Remove_Group_Criteria.Name = "bbi_Remove_Group_Criteria" + ' + 'bbi_Set_Publisher + ' + Me.bbi_Set_Publisher.Caption = "Set Publisher for %0% Tags" + Me.bbi_Set_Publisher.Id = 4 + Me.bbi_Set_Publisher.ImageUri.Uri = "Redo" + Me.bbi_Set_Publisher.Name = "bbi_Set_Publisher" + ' + 'bbi_Remove_Publisher + ' + Me.bbi_Remove_Publisher.Caption = "Remove Publisher for %0% Tags" + Me.bbi_Remove_Publisher.Id = 5 + Me.bbi_Remove_Publisher.ImageUri.Uri = "Undo" + Me.bbi_Remove_Publisher.Name = "bbi_Remove_Publisher" + ' + 'bbi_Export + ' + Me.bbi_Export.Caption = "&Export Tag Settings..." + Me.bbi_Export.Id = 6 + Me.bbi_Export.ImageUri.Uri = "ExportFile" + Me.bbi_Export.Name = "bbi_Export" + ' + 'bbi_Import + ' + Me.bbi_Import.Caption = "&Import Tag Settings..." + Me.bbi_Import.Id = 7 + Me.bbi_Import.ImageUri.Uri = "Open" + Me.bbi_Import.Name = "bbi_Import" + ' + 'popmnu_TagParser + ' + Me.popmnu_TagParser.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Set_Additional_Note), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Remove_Additional_Note), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Set_Group_Criteria, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Remove_Group_Criteria), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Set_Publisher, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Remove_Publisher), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Import)}) + Me.popmnu_TagParser.Manager = Me.barmng + Me.popmnu_TagParser.Name = "popmnu_TagParser" + ' + 'frm_Tag_Parser_Edit + ' + Me.ClientSize = New System.Drawing.Size(675, 724) + Me.Controls.Add(Me.pnl_Right) + Me.Controls.Add(Me.splt) + Me.Controls.Add(Me.pnl_Left) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.MinimumSize = New System.Drawing.Size(691, 763) + Me.Name = "frm_Tag_Parser_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Tag Parser Settings" + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.grd_Tag_Parser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Tag_Parser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Tag_Parser, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Apply, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.chb_New_Tags_Only.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) + CType(Me.gb_Languages, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Languages.ResumeLayout(False) + CType(Me.chb_Cz.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sr.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sl.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Be.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Ar.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Ru.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Gr.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Hu.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Pl.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Ko.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Zh.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Fi.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Da.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_No.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sv.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Pt.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Nl.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_It.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Es.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_De.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Fr.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Ja.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_En.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Regions, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Regions.ResumeLayout(False) + CType(Me.chb_Asia.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_USA.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Europe.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Brazil.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Canada.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_HongKong.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Germany.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_France.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_China.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Italy.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Sweden.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Spain.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Netherlands.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Korea.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Japan.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Russia.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Taiwan.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Australia.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_PAL.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_NTSC.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_World.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_ReleaseInfo, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_ReleaseInfo.ResumeLayout(False) + CType(Me.chb_Alpha.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Pirated.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Fixed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Overdump.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Bad.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Good.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Unlicensed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Alt.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Translation.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Beta.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Kiosk.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Demo.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Prototype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Version.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Trainer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Hack.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Bios.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cb_Publisher.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Year.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_MultiVolume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_MultiVolume.ResumeLayout(False) + CType(Me.cmb_MV_Volume.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_MV_Volume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_MV_Group_Criteria.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Note, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Note.ResumeLayout(False) + CType(Me.txb_Note.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Found_In, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Found_In.ResumeLayout(False) + Me.gb_Found_In.PerformLayout() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_TagParser, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents grd_Tag_Parser As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Tag_Parser As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents splt As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXLabel1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_Tag_Parser As System.Windows.Forms.BindingSource + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents colApply As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colContent As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_ReleaseInfo As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents chb_Hack As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Bios As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Year As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents gb_Note As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents txb_Note As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents chb_Alpha As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Pirated As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Fixed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Overdump As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Bad As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Good As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Unlicensed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Alt As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Translation As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Beta As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Kiosk As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Demo As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Prototype As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Version As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Trainer As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents gb_Regions As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents chb_USA As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Europe As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_China As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Korea As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Japan As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Australia As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_World As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents gb_Languages As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents chb_Pl As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Ko As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Zh As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Fi As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Da As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_No As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Sv As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Pt As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Nl As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_It As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Es As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_De As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Fr As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Ja As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_En As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Asia As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Brazil As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Canada As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_HongKong As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Germany As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_France As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Italy As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Sweden As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Spain As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Netherlands As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rpi_Apply As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents chb_Russia As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Taiwan As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_PAL As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_NTSC As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents gb_MultiVolume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents chb_MV_Group_Criteria As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents cmb_MV_Volume As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_MV_Volume As System.Windows.Forms.BindingSource + Friend WithEvents cb_Publisher As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Gr As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Hu As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents gb_Found_In As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Set_Additional_Note As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Remove_Additional_Note As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Set_Group_Criteria As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Remove_Group_Criteria As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Set_Publisher As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Remove_Publisher As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Export As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Import As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_TagParser As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents chb_New_Tags_Only As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Ar As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Ru As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Be As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Sr As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Sl As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Cz As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Found_In_Right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Found_In_Middle As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Found_In_Left As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.resx b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.resx new file mode 100644 index 0000000..169f3a9 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.resx @@ -0,0 +1,143 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 106, 17 + + + 17, 17 + + + 367, 17 + + + Provide the addtitional note that should be displayed alongside the game name when it comes with the tag (leave empty otherwise) + +Doubleclick here or doubleclick the tag to automatically fill the content in here. + + + 503, 17 + + + 51 + + + 597, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.vb b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.vb new file mode 100644 index 0000000..a355b38 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.vb @@ -0,0 +1,1099 @@ +Public Class frm_Tag_Parser_Edit + Private Shared _Regions As String() = {"NTSC", "PAL", "World", "Europe", "USA", "Australia", "Japan", "Korea", "China", "Asia", "Brazil", "Canada", "France", "Germany", "Hong Kong", "Italy", "Netherlands", "Spain", "Sweden", "Taiwan", "Russia"} + + 'Private Shared _Languages As String() = {"En", "Ja", "Fr", "De", "Es", "It", "Nl", "Pt", "Sv", "No", "Da", "Fi", "Zh", "Ko", "Pl", "Hu", "Gr"} + 'Private Shared _Languages_Alt As String() = {"Eng", "Jp", "Fre", "Ger", "Spa", "Ita", "Dut", "(Pt)", "(Sv)", "(No)", "(Da)", "(Fi)", "(Zh)", "(Ko)", "(Pl)", "(Hu)", "(Gr)"} + + Private Shared _Languages As String(,) = { + {"En", "Eng"}, + {"Ja", "Jp"}, + {"Fr", "Fre"}, + {"De", "Ger"}, + {"Es", "Spa"}, + {"It", "Ita"}, + {"Nl", "Dut"}, + {"Pt", "__"}, + {"Sv", "Se"}, + {"No", "__"}, + {"Da", "__"}, + {"Fi", "__"}, + {"Zh", "Cn"}, + {"Ko", "Kr"}, + {"Pl", "__"}, + {"Hu", "__"}, + {"Gr", "__"}, + {"Ar", "__"}, + {"Be", "__"}, + {"Cz", "Cs"}, + {"Sl", "__"}, + {"Sr", "__"}, + {"Ru", "__"} + } + + Private Shared _Attributes As String() = {"Year", "Version", "Alt", "Trainer", "Translation", "Hack", "Bios", "Prototype", "Alpha", "Beta", "Sample", "Kiosk", "Unlicensed", "Fixed", "Pirated", "Good", "Bad", "Overdump", "PublicDomain"} + + Private _DoContentAnalysis As Boolean = False + Private _Path As String + Private _Files As String() + Private _Contents As New Dictionary(Of String, String) + + Private _Allowed_Extensions As ArrayList = Nothing + + Private _bbi_Set_Additional_Note_Caption As String + Private _bbi_Remove_Additional_Note_Caption As String + + Private _bbi_Set_Group_Criteria_Caption As String + Private _bbi_Remove_Group_Criteria_Caption As String + Private _bbi_Set_Publisher_Caption As String + Private _bbi_Remove_Publisher_Caption As String + + Private _MultiVolume As Boolean = False + + Private _tran As SQLite.SQLiteTransaction = Nothing + + Public Sub New(ByRef tran As SQLite.SQLiteTransaction) + InitializeComponent() + + Me._tran = tran + + Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) + + barmng.SetPopupContextMenu(grd_Tag_Parser, popmnu_TagParser) + End Sub + + ''' + ''' Contructor + ''' + ''' Path to directory or single file + ''' Allowed Extensions for filtering + ''' + Public Sub New(ByRef tran As SQLite.SQLiteTransaction, ByVal Path As String, Optional ByVal Allowed_Extensions As ArrayList = Nothing, Optional ByVal MultiVolume As Boolean = False) + Me.New(tran) + + _Path = Path + + Init(Allowed_Extensions, MultiVolume) + End Sub + + ''' + ''' Constructor + ''' + ''' File Paths in String Array + ''' Allowed Extensions for filtering" + ''' + Public Sub New(ByRef tran As SQLite.SQLiteTransaction, ByVal Files As String(), Optional ByVal Allowed_Extensions As ArrayList = Nothing, Optional ByVal MultiVolume As Boolean = False) + Me.New(tran) + + _Files = Files + + Init(Allowed_Extensions, MultiVolume) + End Sub + + Public Sub Init(ByVal Allowed_Extensions As ArrayList, ByVal MultiVolume As Boolean) + _DoContentAnalysis = True + + _Allowed_Extensions = Allowed_Extensions + + _bbi_Remove_Additional_Note_Caption = bbi_Remove_Additional_Note.Caption + _bbi_Set_Additional_Note_Caption = bbi_Set_Additional_Note.Caption + + _bbi_Remove_Group_Criteria_Caption = bbi_Remove_Group_Criteria.Caption + _bbi_Set_Group_Criteria_Caption = bbi_Set_Group_Criteria.Caption + + _bbi_Remove_Publisher_Caption = bbi_Remove_Publisher.Caption + _bbi_Set_Publisher_Caption = bbi_Set_Publisher.Caption + + Me._MultiVolume = MultiVolume + Me.gb_MultiVolume.Visible = Me._MultiVolume + + Me.bbi_Set_Group_Criteria.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Me.bbi_Remove_Group_Criteria.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + If Me._MultiVolume Then + Me.bbi_Set_Group_Criteria.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Me.bbi_Remove_Group_Criteria.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + End Sub + + + Private Sub ReadAllowedExtensions(ByVal Allowed_Extensions As String) + For Each ext As String In Allowed_Extensions.Split(";") + If Not TC.IsNullNothingOrEmpty(ext) Then + _Allowed_Extensions.Add(ext.ToLower.Replace(".", "")) + End If + Next + End Sub + + Public Shared Sub Fill_Tag_Parser_Volumes(ByRef dt As DS_ML.ttb_Tag_Parser_VolumesDataTable) + 'Dim first_row As DS_ML.ttb_Tag_Parser_VolumesRow = dt.NewRow + 'first_row.id_Tag_Parser_Volumes = Convert.ToInt64(0) + 'first_row.DisplayText = "Not a volume" + 'dt.Rows.Add(first_row) + + For i As Integer = 1 To 99 + Dim row As DS_ML.ttb_Tag_Parser_VolumesRow = dt.NewRow + row.id_Tag_Parser_Volumes = Convert.ToInt64(i) + row.DisplayText = "Disc/Volume " & IIf(i < 10, "0", "") & i + dt.Rows.Add(row) + Next + End Sub + + ''' + ''' Analyze all tags in _Contents and either create or fetch data from/for database + ''' + ''' + Private Sub Analyze_Contents() + Dim tran As SQLite.SQLiteTransaction + + If _tran IsNot Nothing Then tran = _tran Else tran = cls_Globals.Conn.BeginTransaction + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 60, ProgressBarStyle.Blocks, False, "Analyzing tag {0} of {1}", 0, _Contents.Count, False) + prg.Start() + + 'SPEEDUP + Dim dt_Tags_Have As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Tag_Parser, Content FROM tbl_Tag_Parser", Nothing, tran) + + Dim dict_Tags_Have As New Dictionary(Of String, Long) + + For Each row_Tag_Have As DataRow In dt_Tags_Have.Rows + If Not dict_Tags_Have.ContainsKey(row_Tag_Have("Content")) Then + dict_Tags_Have.Add(row_Tag_Have("Content"), row_Tag_Have("id_Tag_Parser")) + End If + Next + + Dim dt_Rombase_Tags_Have As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Rombase_Tag_Parser, Content FROM rombase.tbl_Rombase_Tag_Parser", Nothing, tran) + + Dim dict_Rombase_Tags_Have As New Dictionary(Of String, Long) + + For Each row_Tag_Have As DataRow In dt_Rombase_Tags_Have.Rows + If Not dict_Rombase_Tags_Have.ContainsKey(row_Tag_Have("Content")) Then + dict_Rombase_Tags_Have.Add(row_Tag_Have("Content"), row_Tag_Have("id_Rombase_Tag_Parser")) + End If + Next + + Dim id_Tag_Parser As Long = 0 + + For Each sContent As String In _Contents.Keys + prg.IncreaseCurrentValue() + + id_Tag_Parser = 0 + id_Rombase_Tag_Parser = 0 + + 'id_Tag_Parser = DS_ML.Select_tbl_Tag_Parser(tran, sContent) + + 'SPEEDUP + If dict_Tags_Have.ContainsKey(sContent) Then + id_Tag_Parser = dict_Tags_Have(sContent) + ElseIf dict_Rombase_Tags_Have.ContainsKey(sContent) Then + id_Rombase_Tag_Parser = dict_Rombase_Tags_Have(sContent) + End If + + If id_Tag_Parser > 0 Then + 'Entry is already available - load from database + If _Contents(sContent).Length > 0 Then + 'Fill but replace Found_In with the current one + DS_ML.Fill_tbl_Tag_Parser(tran, DS_ML.tbl_Tag_Parser, id_Tag_Parser, _Contents(sContent)) + Else + DS_ML.Fill_tbl_Tag_Parser(tran, DS_ML.tbl_Tag_Parser, id_Tag_Parser) + End If + ElseIf id_Rombase_Tag_Parser > 0 Then + 'Found an entry in Rombase Tag Parser - load it + If _Contents(sContent).Length > 0 Then + 'Fill but replace Found_In with the current one + DS_ML.Fill_tbl_Rombase_Tag_Parser(tran, DS_ML.tbl_Tag_Parser, id_Rombase_Tag_Parser, _Contents(sContent)) + Else + DS_ML.Fill_tbl_Rombase_Tag_Parser(tran, DS_ML.tbl_Tag_Parser, id_Rombase_Tag_Parser) + End If + Else + 'No Entry found - add new + Dim row As DS_ML.tbl_Tag_ParserRow = DS_ML.tbl_Tag_Parser.NewRow + row("Content") = sContent + row("Apply") = True + + If _Contents(sContent).Length > 0 Then + row("Found_In") = _Contents(sContent) + End If + + row("MV_Group_Criteria") = True + + If sContent.ToLower = "[bios]" OrElse sContent.ToLower = "(bios)" Then + row("Bios") = True + End If + + 'If sContent.ToLower.Contains("hack") Then + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\(|\s)(h|H)ack(\s|\)|\])") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\()h\s") Then + row("Hack") = True + End If + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\(|\s)19(7|8|9)\d") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\(|\s)20\d\d") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "\d\d\d\d\d\d") Then + row("Year") = True + End If + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "v\d+\.\d+") Then + row("Version") = True + End If + + If sContent.ToLower = "(proto)" OrElse sContent.ToLower = "(prototype)" Then + row("Prototype") = True + End If + + If sContent.ToLower = "(alpha)" Then + row("Alpha") = True + End If + + If sContent.ToLower = "(beta)" Then + row("Beta") = True + End If + + 'If sContent.Contains("[T-") OrElse sContent.Contains("+T-") OrElse sContent.Contains("T+") Then + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\()tr\s") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\()(t|T)\+") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "\+(t|T)\-") Then + row("Translation") = True + End If + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\[|\(|\s)t\s*\+\s*\d") Then + row("Trainer") = True + End If + + If Me._MultiVolume Then + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])") Then + Try + If MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "A" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "a" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "1" Then + row("MV_Volume_Number") = 1L + row("MV_Group_Criteria") = False + End If + If MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "B" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "b" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(S|s)ide\s*(A|B|a|b|1|2)(\)|\])")(0).Groups(2).Value = "2" Then + row("MV_Volume_Number") = 2L + row("MV_Group_Criteria") = False + End If + Catch ex As Exception + + End Try + End If + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\(|\[)(disc|Disc|disk|Disk|CD|cd)\s*(\d*)") Then + Try + Dim match As String = MKNetLib.cls_MKRegex.GetMatches(sContent, "(\(|\[)(disc|Disc|disk|Disk|CD|cd)\s*(\d*)")(0).Groups(3).Value + If IsNumeric(match) Then + Dim iVolume As Int64 = Convert.ToInt64(match) + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(S|s)ide\s*(A|B|a|b|1|2)") Then + Try + Dim rx As String = "(S|s)ide\s*(A|B|a|b|1|2)" + Dim rx_grp As Integer = 2 + + If MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "A" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "a" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "1" Then + iVolume = iVolume * 2 - 1 + End If + If MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "B" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "b" OrElse MKNetLib.cls_MKRegex.GetMatches(sContent, rx)(0).Groups(rx_grp).Value = "2" Then + iVolume = iVolume * 2 + End If + Catch ex As Exception + + End Try + End If + + If iVolume > 0 Then + row("MV_Volume_Number") = iVolume + End If + + row("MV_Group_Criteria") = False + End If + Catch ex As Exception + + End Try + End If + End If + + If sContent.ToLower.Contains("(alt ") Then + row("Alt") = True + End If + + If sContent.ToLower = "(unl)" Then + row("Unlicensed") = True + End If + + If sContent = "[!]" Then + row("Good") = True + End If + + If sContent = "[b]" Then + row("Bad") = True + End If + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "(\(|\[|\s)Fix") OrElse MKNetLib.cls_MKRegex.IsMatch(sContent, "(\(|\[)f\s") Then + row("Fixed") = True + End If + + If sContent.ToLower = "(pirate)" Then + row("Pirated") = True + End If + + If sContent.ToLower = "(sample)" Then + row("Sample") = True + End If + + If sContent.StartsWith("~") Then + row("Note_HighPriority") = True + End If + + 'Languages + For iLng As Integer = 0 To (_Languages.Length / 2) - 1 + Dim sID As String = _Languages(iLng, 0) + + For iLngString As Integer = 0 To 1 + Dim sContent_Lower = sContent.ToLower + Dim sLanguage_Lower = _Languages(iLng, iLngString).ToLower + If sContent_Lower.Contains("(" & sLanguage_Lower & ")") OrElse sContent_Lower.Contains("(" & sLanguage_Lower & ",") OrElse sContent_Lower.Contains("," & sLanguage_Lower & ",") OrElse sContent_Lower.Contains("," & sLanguage_Lower & ")") OrElse sContent_Lower.Contains("(" & sLanguage_Lower & "+") OrElse sContent_Lower.Contains("," & sLanguage_Lower & "+") OrElse sContent_Lower.Contains("+" & sLanguage_Lower & ",") OrElse sContent_Lower.Contains("+" & sLanguage_Lower & ")") OrElse sContent_Lower.Contains("(" & sLanguage_Lower & "-") OrElse sContent_Lower.Contains("-" & sLanguage_Lower & ")") OrElse sContent_Lower.Contains("-" & sLanguage_Lower & "-") Then + row(sID) = True + End If + Next + Next + + For Each sRegion As String In _Regions + If sContent.Contains("(" & sRegion & ")") OrElse sContent.Contains("(" & sRegion & ",") OrElse sContent.Contains(", " & sRegion & ",") OrElse sContent.Contains(", " & sRegion & ")") Then + row(sRegion.Replace(" ", "")) = True + End If + Next + + DS_ML.tbl_Tag_Parser.Rows.Add(row) + End If + Next + + prg.Close() + + If _tran Is Nothing Then tran.Commit() + End Sub + + ''' + ''' Extract Content from filenames and put the tags into al_Contents + ''' + ''' + ''' Optional Dictionary which get the tags and filenames appended + ''' ArrayList of the tags within the filename in their order + ''' + Public Shared Function Extract_Content_From_FileName(ByVal FileName As String, Optional ByRef dict_Contents As Dictionary(Of String, String) = Nothing, Optional ByRef al_Allowed_Extensions As ArrayList = Nothing) As Dictionary(Of String, String) + If al_Allowed_Extensions IsNot Nothing AndAlso al_Allowed_Extensions.Count > 0 AndAlso Not al_Allowed_Extensions.Contains(Alphaleonis.Win32.Filesystem.Path.GetExtension(FileName).ToLower.Replace(".", "")) Then Return New Dictionary(Of String, String) + + If dict_Contents Is Nothing Then dict_Contents = New Dictionary(Of String, String) + + 'Match tags in round brackets "()" + For Each match As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "(\(.*?\))") + Dim sValue As String = match.Value + + 'Exclude all tags in round brackets that are within square braces, e.g. [Role Playing (RPG)] + Dim bExcluded As Boolean = False + For Each match_exclude As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "\[[^\[\]]*(\(.*?\))[^\[\]]*\]") + If sValue = match_exclude.Groups(1).Value Then + bExcluded = True + End If + Next + + If Not bExcluded AndAlso Not dict_Contents.ContainsKey(sValue) Then + dict_Contents.Add(sValue, FileName) + End If + Next + + 'Match tags in square brackets "[]" + For Each match As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "(\[.*?\])") + Dim sValue As String = match.Value + + 'Exclude all tags in square brackets that are within round braces, e.g. (Role Playing [RPG]) + Dim bExcluded As Boolean = False + For Each match_exclude As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "\([^\(\)]*(\[.*?\])[^\(\)]*\)") + If sValue = match_exclude.Groups(1).Value Then + bExcluded = True + End If + Next + + If Not bExcluded AndAlso Not dict_Contents.ContainsKey(sValue) Then + dict_Contents.Add(sValue, FileName) + End If + Next + + 'Match alternate titles + For Each match As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "\~(.*?)[\(\[]") + Dim sValue As String = match.Groups(1).Value.Trim + + If sValue.Length > 0 AndAlso Not dict_Contents.ContainsKey("~" & sValue) Then + dict_Contents.Add("~" & sValue, FileName) + End If + Next + + 'Match Version info that is NOT inside a bracket tag + For Each match As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "[^\(\[]\s+(v\d[\w.]+)") + Dim sValue As String = match.Groups(1).Value + + If Not dict_Contents.ContainsKey(sValue) Then + dict_Contents.Add(sValue, FileName) + End If + Next + + 'Match Version info that is NOT inside a bracket tag and especially starts with a letter + For Each match As System.Text.RegularExpressions.Match In MKNetLib.cls_MKRegex.GetMatches(FileName, "[^\(\[]\s+(v[a-zA-Z]+[.\d+]+)\s*?[\[\(]") + Dim sValue As String = match.Groups(1).Value + + If Not dict_Contents.ContainsKey(sValue) Then + dict_Contents.Add(sValue, FileName) + End If + Next + + Return dict_Contents + End Function + + ''' + ''' Extract content from a filename and put it into the dictionary + ''' + ''' + ''' + ''' + Private Sub Extract_Content_From_FileInfo(ByVal fi As Alphaleonis.Win32.Filesystem.FileInfo, ByRef dict_Contents As Dictionary(Of String, String)) + Dim archive As SharpCompress.Archive.IArchive = Nothing + + Try + If frm_Rom_Manager.Is_Archive(fi.FullName) Then + archive = SharpCompress.Archive.ArchiveFactory.Open(fi.FullName) + End If + Catch ex As Exception + + End Try + + If archive IsNot Nothing Then + Dim sTmpDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") + + 'one or more files in archive - extract and call AddGameFromFile with the extracted fileinfo + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + 'entry.FilePath + Dim sFileName As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath) + Extract_Content_From_FileName(sFileName, dict_Contents, _Allowed_Extensions) + End If + Next + + MKNetLib.cls_MKFileSupport.Delete_Directory(sTmpDir) + Else + 'fi.Name + Dim sFileName As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(fi.FullName) + Extract_Content_From_FileName(sFileName, dict_Contents, _Allowed_Extensions) + End If + End Sub + + Private Sub Extract_Content_From_Path(ByVal Path As String) + Dim al_Contents As New Dictionary(Of String, String) + + If Alphaleonis.Win32.Filesystem.Directory.Exists(Path) Then + Dim arrFiles As New ArrayList + Dim fsrch As New MKNetLib.cls_MKFileSearch(New Alphaleonis.Win32.Filesystem.DirectoryInfo(Path)) + fsrch.Search(New Alphaleonis.Win32.Filesystem.DirectoryInfo(Path), "*.*") + arrFiles.AddRange(fsrch.Files) + + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 60, ProgressBarStyle.Blocks, False, "Extracting tags from file {0} of {1}", 0, arrFiles.Count, False) + prg.Start() + + For Each fi As Alphaleonis.Win32.Filesystem.FileInfo In arrFiles + prg.IncreaseCurrentValue() + + Extract_Content_From_FileInfo(fi, al_Contents) + Next + + prg.Close() + End If + + _Contents = al_Contents + End Sub + + ''' + ''' Result of the tag analysis + ''' + ''' False, when no tags have been found and the window will be closed, else True + ''' + Private Function Show_Analysis_Result() As Boolean + iTotalTags = DS_ML.tbl_Tag_Parser.Rows.Count + iNewTags = TC.NZ(DS_ML.tbl_Tag_Parser.Select("id_Tag_Parser < 0 AND id_Rombase_Tag_Parser IS NULL").Length, 0) + + If iTotalTags = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("No tags have been found, the window will be closed.", "Tag Analysis Result", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return False + End If + + If iNewTags = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Out of " & iTotalTags & " tags, no new tags have been found. Please use the Tag Parser Settings window to review the settings.", "Tag Analysis Result", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return True + End If + + DevExpress.XtraEditors.XtraMessageBox.Show("Out of " & iTotalTags & " tags, " & iNewTags & " new " & IIf(iNewTags = 1, "tag has", "tags have") & " been found and will be displayed in bold. Please use the Tag Parser Settings window to adjust the settings.", "Tag Analysis Result", MessageBoxButtons.OK, MessageBoxIcon.Information) + Return True + End Function + + Private Sub frm_Tag_Parser_Edit_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + If Me.DialogResult <> Windows.Forms.DialogResult.OK Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to cancel the import process?", "Cancel", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then + e.Cancel = True + Return + End If + End If + End Sub + + Private Sub frm_Tag_Parser_Edit_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + Me.lbl_Found_In_Left.Text = "" + Me.lbl_Found_In_Middle.Text = "" + Me.lbl_Found_In_Right.Text = "" + + 'Content Analysis, fetch already known tags from database, put unknown only in datatable + If _DoContentAnalysis Then + If Alphaleonis.Win32.Filesystem.Directory.Exists(_Path) Then + Extract_Content_From_Path(_Path) + End If + + If _Files IsNot Nothing Then + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Me._tran), 400, 60, ProgressBarStyle.Blocks, False, "Extracting tags from file {0} of {1}", 0, _Files.Length, False) + prg.Start() + + For Each sFile As String In _Files + prg.IncreaseCurrentValue() + Extract_Content_From_FileName(Alphaleonis.Win32.Filesystem.Path.GetFileName(sFile), _Contents, _Allowed_Extensions) + Next + + prg.Close() + End If + + Analyze_Contents() + + If Show_Analysis_Result() = False Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + Return + End If + End If + End Sub + + Private Sub txb_Note_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txb_Note.DoubleClick, gv_Tag_Parser.DoubleClick + 'automatically write the content of the tag in the Textbox + If BS_Tag_Parser.Current IsNot Nothing Then + txb_Note.EditValue = MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Right(MKNetLib.cls_MKStringSupport.Clean_Right(BS_Tag_Parser.Current("Content"), ")"), "]"), "("), "["), "~") + End If + End Sub + + Private Sub txb_Note_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txb_Note.EditValueChanged + If txb_Note IsNot Nothing AndAlso TC.NZ(txb_Note.EditValue, "") = "" Then + txb_Note.EditValue = DBNull.Value + End If + End Sub + + Private Sub gv_Tag_Parser_RowCellStyle(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles gv_Tag_Parser.RowCellStyle + Dim row As DataRow = gv_Tag_Parser.GetRow(e.RowHandle).Row + If row("id_Tag_Parser") < 0 AndAlso TC.NZ(row("id_Rombase_Tag_Parser"), 0) <= 0 Then + e.Appearance.Font = New System.Drawing.Font(e.Appearance.Font.Name, e.Appearance.Font.Size, FontStyle.Bold) + End If + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If Me._MultiVolume AndAlso DevExpress.XtraEditors.XtraMessageBox.Show("The current platform has multiple volumes, did you check for each tag the possibility of multi-volume relevance (either if it denotes a specific disc/volume or needs to be considered for grouping) and wish to proceed?", "Multiple Volumes", MessageBoxButtons.YesNo, MessageBoxIcon.Question) <> Windows.Forms.DialogResult.Yes Then + Return + End If + + BS_Tag_Parser.EndEdit() + Dim dt_Changes As DataTable = DS_ML.tbl_Tag_Parser.GetChanges + If dt_Changes IsNot Nothing OrElse DS_ML.tbl_Tag_Parser.Select("id_Tag_Parser < 0").Length > 0 Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + If dt_Changes IsNot Nothing Then + For Each row As DataRow In dt_Changes.Rows + DS_ML.Upsert_tbl_Tag_Parser(tran, row) + Next + End If + + Dim rows_New_from_Rombase() As DataRow = DS_ML.tbl_Tag_Parser.Select("id_Tag_Parser < 0") + For Each row As DataRow In rows_New_from_Rombase + DS_ML.Upsert_tbl_Tag_Parser(tran, row) + Next + + tran.Commit() + End Using + End If + + Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click + Me.Close() + End Sub + + Public Shared Sub Apply_Filename_Tags(ByRef tran As SQLite.SQLiteTransaction, ByRef row_emu_games As DS_ML.tbl_Emu_GamesRow, ByRef dt_Emu_Games_Languages As DataTable, ByRef dt_Emu_Games_Regions As DataTable, Optional ByRef al_Allowed_Extensions As ArrayList = Nothing, Optional ByVal MultiVolume As Boolean = False) + 'Clean up + For Each col As String In _Attributes + row_emu_games(col) = DBNull.Value + Next + + 'Cleanup dt_Emu_Games_Languages + Dim rows_Emu_Games_Languages As DataRow() = dt_Emu_Games_Languages.Select("id_Emu_Games = " & row_emu_games("id_Emu_Games")) + For Each row_Emu_Games_Languages In rows_Emu_Games_Languages + dt_Emu_Games_Languages.Rows.Remove(row_Emu_Games_Languages) + Next + + 'Cleanup dt_Emu_Games_Regions + Dim rows_Emu_Games_Regions As DataRow() = dt_Emu_Games_Regions.Select("id_Emu_Games = " & row_emu_games("id_Emu_Games")) + For Each row_Emu_Games_Regions In rows_Emu_Games_Regions + dt_Emu_Games_Regions.Rows.Remove(row_Emu_Games_Regions) + Next + + row_emu_games("Note") = DBNull.Value + + Dim sFilteredName As String = "" + Dim sCleanName As String = "" + Dim sFileName As String = "" + + If TC.NZ(row_emu_games("InnerFile"), "") <> "" Then + sFilteredName = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_emu_games("InnerFile")) + sCleanName = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_emu_games("InnerFile")) + sFileName = row_emu_games("InnerFile") + ElseIf TC.NZ(row_emu_games("File"), "") <> "" Then + sFilteredName = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_emu_games("File")) + sCleanName = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_emu_games("File")) + sFileName = row_emu_games("File") + End If + + 'Find tags + Dim dict_Contents As Dictionary(Of String, String) = Extract_Content_From_FileName(sFileName, Nothing, al_Allowed_Extensions) + + 'Apply rules + Dim dt As New DS_ML.tbl_Tag_ParserDataTable + + For Each sContent As String In dict_Contents.Keys + Try + Dim id_Tag_Parser As Integer = TC.NZ(DS_ML.Select_tbl_Tag_Parser(tran, sContent), 0) + + If id_Tag_Parser <= 0 Then + Continue For + End If + + dt.Clear() + + DS_ML.Fill_tbl_Tag_Parser(tran, dt, id_Tag_Parser) + + If dt.Rows.Count = 0 Then + Continue For + End If + + Dim row_tag_parser As DS_ML.tbl_Tag_ParserRow = dt.Rows(0) + + 'Always check for Group Criteria + If TC.NZ(row_tag_parser("MV_Group_Criteria"), True) = False Then + sFilteredName = sFilteredName.Replace(sContent, "") + End If + + sCleanName = sCleanName.Replace(sContent, "").Trim 'Remove all tags from CleanName (anything to be displayed in brackets will be chosen by the user as Additional Note) + + If TC.NZ(row_tag_parser("Apply"), False) = False Then + Continue For + End If + + 'Year + If TC.NZ(row_tag_parser("Year"), False) = True Then + Dim year As String = "" + + If MKNetLib.cls_MKRegex.IsMatch(sContent, "\d\d\d\d\d\d\d\d") Then + year = MKNetLib.cls_MKRegex.GetMatches(sContent, "\d\d\d\d")(0).Value + ElseIf MKNetLib.cls_MKRegex.IsMatch(sContent, "\d\d\d\d\d\d") Then + Dim mcoll As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(sContent, "(\d\d)(\d\d)(\d\d)") + + Try + If CInt(mcoll(0).Groups(2).Value) > 0 AndAlso CInt(mcoll(0).Groups(2).Value) < 13 AndAlso CInt(mcoll(0).Groups(3).Value) > 0 AndAlso CInt(mcoll(0).Groups(3).Value) < 32 Then + If CInt(mcoll(0).Groups(1).Value) > 89 Then + year = "19" & mcoll(0).Groups(1).Value + Else + year = "20" & mcoll(0).Groups(1).Value + End If + + End If + Catch ex As Exception + + End Try + + ElseIf MKNetLib.cls_MKRegex.IsMatch(sContent, "19\d\d") Then + year = MKNetLib.cls_MKRegex.GetMatches(sContent, "19\d\d")(0).Value + ElseIf MKNetLib.cls_MKRegex.IsMatch(sContent, "20\d\d") Then + year = MKNetLib.cls_MKRegex.GetMatches(sContent, "20\d\d")(0).Value + End If + + 'Cleanup possible false years + If year.StartsWith("19") OrElse year.StartsWith("20") Then + row_emu_games("Year") = year + End If + End If + + 'Version + If TC.NZ(row_tag_parser("Version"), False) = True Then + Dim sVersion As String = sContent + sVersion = MKNetLib.cls_MKStringSupport.Clean_Left(sVersion.Trim, "(").Trim + sVersion = MKNetLib.cls_MKStringSupport.Clean_Left(sVersion.Trim, "[").Trim + sVersion = MKNetLib.cls_MKStringSupport.Clean_Right(sVersion.Trim, ")").Trim + sVersion = MKNetLib.cls_MKStringSupport.Clean_Right(sVersion.Trim, "]").Trim + sVersion = MKNetLib.cls_MKStringSupport.Clean_Left(sVersion.Trim, "v").Trim + row_emu_games("Version") = sVersion + End If + + 'Alt + If TC.NZ(row_tag_parser("Alt"), False) = True Then row_emu_games("Alt") = True + + 'Trainer + If TC.NZ(row_tag_parser("Trainer"), False) = True Then row_emu_games("Trainer") = True + + 'Translation + If TC.NZ(row_tag_parser("Translation"), False) = True Then row_emu_games("Translation") = True + + 'Hack + If TC.NZ(row_tag_parser("Hack"), False) = True Then row_emu_games("Hack") = True + + 'Bios + If TC.NZ(row_tag_parser("Bios"), False) = True Then row_emu_games("Bios") = True + + 'Prototype + If TC.NZ(row_tag_parser("Prototype"), False) = True Then row_emu_games("Prototype") = True + + 'Alpha + If TC.NZ(row_tag_parser("Alpha"), False) = True Then row_emu_games("Alpha") = True + + 'Beta + If TC.NZ(row_tag_parser("Beta"), False) = True Then row_emu_games("Beta") = True + + 'Sample + If TC.NZ(row_tag_parser("Sample"), False) = True Then row_emu_games("Sample") = True + + 'Kiosk + If TC.NZ(row_tag_parser("Kiosk"), False) = True Then row_emu_games("Kiosk") = True + + 'Unlicensed + If TC.NZ(row_tag_parser("Unlicensed"), False) = True Then row_emu_games("Unlicensed") = True + + 'Fixed + If TC.NZ(row_tag_parser("Fixed"), False) = True Then row_emu_games("Fixed") = True + + 'Pirated + If TC.NZ(row_tag_parser("Pirated"), False) = True Then row_emu_games("Pirated") = True + + 'Good + If TC.NZ(row_tag_parser("Good"), False) = True Then row_emu_games("Good") = True + + 'Bad + If TC.NZ(row_tag_parser("Bad"), False) = True Then row_emu_games("Bad") = True + + 'Overdump + If TC.NZ(row_tag_parser("Overdump"), False) = True Then row_emu_games("Overdump") = True + + 'PublicDomain + 'If TC.NZ(row_tag_parser("PublicDomain"), False) = True Then row_emu_games("PublicDomain") = True + + 'Volume Number + If MultiVolume Then + If TC.NZ(row_tag_parser("MV_Volume_Number"), 0) > 0 Then + row_emu_games("Volume_Number") = row_tag_parser("MV_Volume_Number") + End If + End If + + 'Languages + For iLng As Integer = 0 To (_Languages.Length / 2) - 1 + Dim language As String = _Languages(iLng, 0) + If TC.NZ(row_tag_parser(language), False) = True Then + Dim id_Languages As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Languages FROM tbl_Languages WHERE Language_Short = " & TC.getSQLFormat(language), tran), 0) + If id_Languages > 0 Then + Dim row_Emu_Games_Languages As DataRow = dt_Emu_Games_Languages.NewRow + row_Emu_Games_Languages("id_Languages") = id_Languages + row_Emu_Games_Languages("id_Emu_Games") = row_emu_games("id_Emu_Games") + dt_Emu_Games_Languages.Rows.Add(row_Emu_Games_Languages) + End If + End If + Next + + 'Regions + For Each region As String In _Regions + If TC.NZ(row_tag_parser(region.Replace(" ", "")), False) = True Then + Dim id_Regions As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Regions FROM tbl_Regions WHERE Region = " & TC.getSQLFormat(region), tran), 0) + If id_Regions > 0 Then + Dim row_Emu_Games_Regions As DataRow = dt_Emu_Games_Regions.NewRow + row_Emu_Games_Regions("id_Regions") = id_Regions + row_Emu_Games_Regions("id_Emu_Games") = row_emu_games("id_Emu_Games") + dt_Emu_Games_Regions.Rows.Add(row_Emu_Games_Regions) + End If + End If + Next + + 'Add additional information + If TC.NZ(row_tag_parser("Note"), "").Length > 0 Then + If TC.NZ(row_tag_parser("Note_HighPriority"), False) Then + 'Append left + If TC.NZ(row_emu_games("Note"), "").Length > 0 Then + row_emu_games("Note") = row_tag_parser("Note") & ", " & row_emu_games("Note") + Else + row_emu_games("Note") = row_tag_parser("Note") + End If + Else + 'Append right + If TC.NZ(row_emu_games("Note"), "").Length > 0 Then + row_emu_games("Note") &= ", " & row_tag_parser("Note") + Else + row_emu_games("Note") = row_tag_parser("Note") + End If + End If + End If + + 'Publisher + If TC.NZ(row_tag_parser("Publisher"), False) = True Then + Dim sPublisher As String = TC.NZ(row_tag_parser("Content"), "") + sPublisher = MKNetLib.cls_MKStringSupport.Clean_Left(sPublisher, "(") + sPublisher = MKNetLib.cls_MKStringSupport.Clean_Left(sPublisher, "[") + sPublisher = MKNetLib.cls_MKStringSupport.Clean_Right(sPublisher, ")") + sPublisher = MKNetLib.cls_MKStringSupport.Clean_Right(sPublisher, "]") + row_emu_games("Publisher") = sPublisher.Trim + End If + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message) + End Try + Next + + While sFilteredName.Contains(" ") + sFilteredName = sFilteredName.Replace(" ", " ") + End While + sFilteredName = Trim(sFilteredName) + + 'Set filtered Name when in MultiVolume mode + If MultiVolume Then + row_emu_games("Filtered_Name") = sFilteredName + End If + row_emu_games("Name") = sCleanName + 'row_emu_games("Name_USR") = sCleanName 'This collides with Mobygames name + End Sub + + Private Sub popmnu_TagParser_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_TagParser.BeforePopup + If Not grd_Tag_Parser.Allow_Popup Then + e.Cancel = True + Return + End If + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows = 0 Then + e.Cancel = True + Return + End If + + bbi_Remove_Additional_Note.Caption = _bbi_Remove_Additional_Note_Caption.Replace("%0%", iNumRows) + bbi_Set_Additional_Note.Caption = _bbi_Set_Additional_Note_Caption.Replace("%0%", iNumRows) + bbi_Remove_Group_Criteria.Caption = _bbi_Remove_Group_Criteria_Caption.Replace("%0%", iNumRows) + bbi_Set_Group_Criteria.Caption = _bbi_Set_Group_Criteria_Caption.Replace("%0%", iNumRows) + bbi_Remove_Publisher.Caption = _bbi_Remove_Publisher_Caption.Replace("%0%", iNumRows) + bbi_Set_Publisher.Caption = _bbi_Set_Publisher_Caption.Replace("%0%", iNumRows) + End Sub + + Private Sub bbi_Set_Additional_Note_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Set_Additional_Note.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("Note") = MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Left(MKNetLib.cls_MKStringSupport.Clean_Right(MKNetLib.cls_MKStringSupport.Clean_Right(row("Content"), ")"), "]"), "("), "["), "~") + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub bbi_Remove_Additional_Note_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Remove_Additional_Note.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("Note") = DBNull.Value + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub cmb_MV_Volume_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_MV_Volume.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + cmb_MV_Volume.EditValue = DBNull.Value + End If + End Sub + + Private _sem_chb_MV_Group_Criteria_EditValueChanged As Boolean = False + + Private Sub chb_MV_Group_Criteria_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chb_MV_Group_Criteria.EditValueChanged + If _sem_chb_MV_Group_Criteria_EditValueChanged Then Return + + If TC.NZ(chb_MV_Group_Criteria.EditValue, False) = True Then + cmb_MV_Volume.EditValue = DBNull.Value + End If + End Sub + + Private Sub cmb_MV_Volume_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_MV_Volume.EditValueChanged + _sem_chb_MV_Group_Criteria_EditValueChanged = True + + If TC.NZ(cmb_MV_Volume.EditValue, 0) > 0 Then + chb_MV_Group_Criteria.EditValue = False + Else + chb_MV_Group_Criteria.EditValue = True + End If + + _sem_chb_MV_Group_Criteria_EditValueChanged = False + End Sub + + Private Sub bbi_Set_Group_Criteria_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Set_Group_Criteria.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("MV_Group_Criteria") = True + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub bbi_Remove_Group_Criteria_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Remove_Group_Criteria.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("MV_Group_Criteria") = False + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub bbi_Set_Publisher_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Set_Publisher.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("Publisher") = True + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub bbi_Remove_Publisher_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Remove_Publisher.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Tag_Parser) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Tag_Parser.GetRow(iRowHandle).Row + Try + row("Publisher") = False + Catch ex As Exception + + End Try + Next + End Sub + + Private Sub bbi_Export_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Export.ItemClick + Dim sPath As Object = MKNetLib.cls_MKFileSupport.SaveFile("Export Tag Settings", "Tag Settings Files (*.mlts)|*.mlts", 0, "mlts") + If TC.NZ(sPath, "") <> "" Then + Me.DS_ML.tbl_Tag_Parser.WriteXml(sPath) + DevExpress.XtraEditors.XtraMessageBox.Show("Export done.", "Export Tag Settings", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Sub + + Private Sub bbi_Import_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbi_Import.ItemClick + Dim sPath As Object = MKNetLib.cls_MKFileSupport.OpenFileDialog("Import Tag Settings", "Tag Settings Files (*.mlts)|*.mlts", ParentForm:=Me) + If Alphaleonis.Win32.Filesystem.File.Exists(sPath) Then + Try + Dim DS_Import As New DS_ML + DS_Import.tbl_Tag_Parser.ReadXml(sPath) + + For Each row_Import As DS_ML.tbl_Tag_ParserRow In DS_Import.tbl_Tag_Parser.Rows + If TC.NZ(row_Import("Content"), "").Length > 0 Then + Dim rows() As DataRow = Me.DS_ML.tbl_Tag_Parser.Select("Content = " & TC.getSQLFormat(row_Import("Content"))) + If rows.Length = 1 Then + Dim row As DataRow = rows(0) + For i As Integer = 1 To Me.DS_ML.tbl_Tag_Parser.Columns.Count - 1 + If Me.DS_ML.tbl_Tag_Parser.Columns(i).ColumnName <> "Found_In" Then + row(i) = row_Import(i) + End If + Next + End If + End If + Next + + DevExpress.XtraEditors.XtraMessageBox.Show("Import done.", "Import Tag Settings XML", MessageBoxButtons.OK, MessageBoxIcon.Information) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Error while importing Tag Settings: " & ControlChars.CrLf & ControlChars.CrLf & ex.Message, "Import Tag Settings XML", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + End If + End Sub + + Private Sub chb_New_Tags_Only_CheckedChanged(sender As Object, e As EventArgs) Handles chb_New_Tags_Only.CheckedChanged + If chb_New_Tags_Only.Checked Then + Me.BS_Tag_Parser.Filter = "id_Tag_Parser < 0 AND id_Rombase_Tag_Parser IS NULL" + Else + Me.BS_Tag_Parser.Filter = "" + End If + End Sub + + Private Sub BS_Tag_Parser_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Tag_Parser.CurrentChanged + Me.lbl_Found_In_Left.Text = "" + Me.lbl_Found_In_Middle.Text = "" + Me.lbl_Found_In_Right.Text = "" + + If BS_Tag_Parser.Current Is Nothing Then + Return + End If + + 'Dim splitName As String() = System.Text.RegularExpressions.Regex.Split(TC.NZ(BS_Tag_Parser.Current("Found_In"), ""), TC.NZ(BS_Tag_Parser.Current("Content"), "|||")) + Dim filename As String = TC.NZ(BS_Tag_Parser.Current("Found_In"), "") + Dim delimiter As String = TC.NZ(BS_Tag_Parser.Current("Content"), "|||") + Dim findindex As Integer = filename.IndexOf(delimiter) + + Me.lbl_Found_In_Left.Text = filename.Substring(0, findindex) + Me.lbl_Found_In_Middle.Text = delimiter + Me.lbl_Found_In_Right.Text = filename.Substring(findindex + delimiter.Length, filename.Length - findindex - delimiter.Length) + + End Sub + + Private Sub gv_Tag_Parser_MouseMove(sender As Object, e As MouseEventArgs) Handles gv_Tag_Parser.MouseMove + Me.grd_Tag_Parser.ShowHandInColumns(gv_Tag_Parser, {"Apply"}, e) + End Sub + + Private Sub gv_Tag_Parser_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gv_Tag_Parser.FocusedRowChanged + Dim gv As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevExpress.XtraGrid.Views.Grid.GridView) + + If TC.NZ(gv.GetIncrementalText(), "") <> "" Then + gv.ClearSelection() + gv.SelectRow(gv.FocusedRowHandle) + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb new file mode 100644 index 0000000..64df14f --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb @@ -0,0 +1,252 @@ + _ +Partial Class frm_Users_Edit + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_Password = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Password = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Username = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Username = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Restricted = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Restricted = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Password = New MKNetDXLib.ctl_MKDXCheckEdit() + CType(Me.txb_Password.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Username.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Restricted.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Password.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(218, 77) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 5 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Enabled = False + Me.btn_OK.Location = New System.Drawing.Point(140, 77) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 4 + Me.btn_OK.Text = "&OK" + ' + 'txb_Password + ' + Me.txb_Password.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Password.Enabled = False + Me.txb_Password.Location = New System.Drawing.Point(83, 26) + Me.txb_Password.MKBoundLabel = Nothing + Me.txb_Password.MKEditValue_Compare = Nothing + Me.txb_Password.Name = "txb_Password" + Me.txb_Password.Size = New System.Drawing.Size(210, 20) + ToolTipTitleItem1.Text = "Password" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Enable this option to (re-)define the password for the user. Leave it unchecked a" & + "nd there will be no alterations on the user's password." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_Password.SuperTip = SuperToolTip1 + Me.txb_Password.TabIndex = 2 + ' + 'lbl_Password + ' + Me.lbl_Password.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Password.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Password.Enabled = False + Me.lbl_Password.Location = New System.Drawing.Point(24, 26) + Me.lbl_Password.MKBoundControl1 = Nothing + Me.lbl_Password.MKBoundControl2 = Nothing + Me.lbl_Password.MKBoundControl3 = Nothing + Me.lbl_Password.MKBoundControl4 = Nothing + Me.lbl_Password.MKBoundControl5 = Nothing + Me.lbl_Password.Name = "lbl_Password" + Me.lbl_Password.Size = New System.Drawing.Size(56, 20) + ToolTipTitleItem2.Text = "Password" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Enable this option to (re-)define the password for the user. Leave it unchecked a" & + "nd there will be no alterations on the user's password." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.lbl_Password.SuperTip = SuperToolTip2 + Me.lbl_Password.TabIndex = 5 + Me.lbl_Password.Text = "Password:" + ' + 'lbl_Username + ' + Me.lbl_Username.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Username.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Username.Location = New System.Drawing.Point(3, 3) + Me.lbl_Username.MKBoundControl1 = Nothing + Me.lbl_Username.MKBoundControl2 = Nothing + Me.lbl_Username.MKBoundControl3 = Nothing + Me.lbl_Username.MKBoundControl4 = Nothing + Me.lbl_Username.MKBoundControl5 = Nothing + Me.lbl_Username.Name = "lbl_Username" + Me.lbl_Username.Size = New System.Drawing.Size(77, 20) + ToolTipTitleItem3.Text = "Username" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Define or rename the user's name here." + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.lbl_Username.SuperTip = SuperToolTip3 + Me.lbl_Username.TabIndex = 4 + Me.lbl_Username.Text = "Username:" + ' + 'txb_Username + ' + Me.txb_Username.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Username.Location = New System.Drawing.Point(83, 3) + Me.txb_Username.MKBoundLabel = Nothing + Me.txb_Username.MKEditValue_Compare = Nothing + Me.txb_Username.Name = "txb_Username" + Me.txb_Username.Size = New System.Drawing.Size(210, 20) + ToolTipTitleItem4.Text = "Username" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Define or rename the user's name here." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.txb_Username.SuperTip = SuperToolTip4 + Me.txb_Username.TabIndex = 0 + Me.txb_Username.Tag = "" + ' + 'lbl_Restricted + ' + Me.lbl_Restricted.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Restricted.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Restricted.Location = New System.Drawing.Point(3, 49) + Me.lbl_Restricted.MKBoundControl1 = Nothing + Me.lbl_Restricted.MKBoundControl2 = Nothing + Me.lbl_Restricted.MKBoundControl3 = Nothing + Me.lbl_Restricted.MKBoundControl4 = Nothing + Me.lbl_Restricted.MKBoundControl5 = Nothing + Me.lbl_Restricted.Name = "lbl_Restricted" + Me.lbl_Restricted.Size = New System.Drawing.Size(77, 20) + ToolTipTitleItem5.Text = "Restricted" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Enable this option and the user will have restricted access to games and media." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.lbl_Restricted.SuperTip = SuperToolTip5 + Me.lbl_Restricted.TabIndex = 5 + Me.lbl_Restricted.Text = "Restricted:" + ' + 'chb_Restricted + ' + Me.chb_Restricted.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Restricted.Location = New System.Drawing.Point(83, 49) + Me.chb_Restricted.MKBoundLabel = Nothing + Me.chb_Restricted.MKEditValue_Compare = Nothing + Me.chb_Restricted.Name = "chb_Restricted" + Me.chb_Restricted.Properties.Caption = "" + Me.chb_Restricted.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem6.Text = "Restricted" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Enable this option and the user will have restricted access to games and media." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.chb_Restricted.SuperTip = SuperToolTip6 + Me.chb_Restricted.TabIndex = 3 + ' + 'chb_Password + ' + Me.chb_Password.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Password.Location = New System.Drawing.Point(6, 26) + Me.chb_Password.MKBoundLabel = Nothing + Me.chb_Password.MKEditValue_Compare = Nothing + Me.chb_Password.Name = "chb_Password" + Me.chb_Password.Properties.Caption = "" + Me.chb_Password.Size = New System.Drawing.Size(16, 19) + ToolTipTitleItem7.Text = "Password" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Enable this option to (re-)define the password for the user. Leave it unchecked a" & + "nd there will be no alterations on the user's password." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.chb_Password.SuperTip = SuperToolTip7 + Me.chb_Password.TabIndex = 1 + ' + 'frm_Users_Edit + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(303, 112) + Me.Controls.Add(Me.chb_Password) + Me.Controls.Add(Me.chb_Restricted) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.txb_Username) + Me.Controls.Add(Me.txb_Password) + Me.Controls.Add(Me.lbl_Restricted) + Me.Controls.Add(Me.lbl_Password) + Me.Controls.Add(Me.lbl_Username) + Me.Name = "frm_Users_Edit" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit User" + CType(Me.txb_Password.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Username.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Restricted.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Password.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_Password As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Password As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Username As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Username As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Restricted As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Restricted As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Password As MKNetDXLib.ctl_MKDXCheckEdit +End Class diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.resx b/Metropolis_Launcher/Forms/frm_Users_Edit.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.vb b/Metropolis_Launcher/Forms/frm_Users_Edit.vb new file mode 100644 index 0000000..9260477 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.vb @@ -0,0 +1,71 @@ +Public Class frm_Users_Edit + Private _id_Users As Integer = 0 + Private _tbl_Users As DS_ML.tbl_UsersDataTable = Nothing + + Public Enum enm_EditMode + All = 0 + Password = 1 + UserRestriction = 2 + Username = 4 + End Enum + + Public Sub New(ByVal tbl_Users As DS_ML.tbl_UsersDataTable, Optional ByVal id_Users As Integer = 0, Optional ByVal editMode As enm_EditMode = enm_EditMode.All) + InitializeComponent() + + Me._tbl_Users = tbl_Users + Me._id_Users = id_Users + + If Not editMode = enm_EditMode.All Then + Me.lbl_Username.Enabled = False + Me.txb_Username.Enabled = False + + Me.lbl_Password.Enabled = False + Me.chb_Password.Enabled = False + + Me.lbl_Restricted.Visible = False + Me.chb_Restricted.Visible = False + + If (editMode And enm_EditMode.Password) = enm_EditMode.Password Then + Me.Name &= "_P" + Me.Text = "Change Password" + Me.lbl_Password.Enabled = True + Me.chb_Password.Enabled = True + End If + + If (editMode And enm_EditMode.Username) = enm_EditMode.Username Then + Me.Name &= "_U" + Me.lbl_Username.Enabled = False + Me.txb_Username.Enabled = False + End If + + If (editMode And enm_EditMode.UserRestriction) = enm_EditMode.UserRestriction Then + Me.Name &= "_R" + Me.lbl_Restricted.Visible = False + Me.chb_Restricted.Visible = False + End If + End If + End Sub + + Private Sub chb_Password_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chb_Password.CheckedChanged + Me.lbl_Password.Enabled = chb_Password.Checked + Me.txb_Password.Enabled = chb_Password.Checked + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + If Me._tbl_Users.Select("Username = " & TC.getSQLFormat(Me.txb_Username.EditValue) & " AND id_Users <> " & Me._id_Users).Length > 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("This Username is already used, please choose another one.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Me.DialogResult = DialogResult.OK + Me.Close() + End Sub + + Private Sub txb_Username_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txb_Username.EditValueChanged + If TC.NZ(txb_Username.EditValue, "") <> "" Then + btn_OK.Enabled = True + Else + btn_OK.Enabled = False + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb b/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb new file mode 100644 index 0000000..ab1c669 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb @@ -0,0 +1,252 @@ + _ +Partial Class frm_Users_Setup + Inherits MKNetDXLib.frm_MKDXBaseForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.BS_Users = New System.Windows.Forms.BindingSource(Me.components) + Me.grd_Users = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Users = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPassword = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdmin = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRestricted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.barmng_Users = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Add_User = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete_User = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Edit_User = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Users = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Users, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Users, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Users, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng_Users, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Users, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Users + ' + Me.BS_Users.DataMember = "tbl_Users" + Me.BS_Users.DataSource = Me.DS_ML + ' + 'grd_Users + ' + Me.grd_Users.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Users.DataSource = Me.BS_Users + Me.grd_Users.Location = New System.Drawing.Point(3, 3) + Me.grd_Users.MainView = Me.gv_Users + Me.grd_Users.Name = "grd_Users" + Me.grd_Users.Size = New System.Drawing.Size(468, 342) + Me.grd_Users.TabIndex = 0 + Me.grd_Users.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Users}) + ' + 'gv_Users + ' + Me.gv_Users.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUsername, Me.colPassword, Me.colAdmin, Me.colRestricted}) + Me.gv_Users.GridControl = Me.grd_Users + Me.gv_Users.Name = "gv_Users" + Me.gv_Users.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Users.OptionsView.ColumnAutoWidth = False + Me.gv_Users.OptionsView.ShowGroupPanel = False + ' + 'colUsername + ' + Me.colUsername.FieldName = "Username" + Me.colUsername.Name = "colUsername" + Me.colUsername.OptionsColumn.AllowEdit = False + Me.colUsername.OptionsColumn.ReadOnly = True + Me.colUsername.Visible = True + Me.colUsername.VisibleIndex = 0 + Me.colUsername.Width = 150 + ' + 'colPassword + ' + Me.colPassword.FieldName = "Password" + Me.colPassword.Name = "colPassword" + Me.colPassword.OptionsColumn.AllowEdit = False + Me.colPassword.OptionsColumn.ReadOnly = True + Me.colPassword.Visible = True + Me.colPassword.VisibleIndex = 1 + Me.colPassword.Width = 79 + ' + 'colAdmin + ' + Me.colAdmin.FieldName = "Admin" + Me.colAdmin.Name = "colAdmin" + Me.colAdmin.OptionsColumn.AllowEdit = False + Me.colAdmin.OptionsColumn.ReadOnly = True + Me.colAdmin.Visible = True + Me.colAdmin.VisibleIndex = 2 + ' + 'colRestricted + ' + Me.colRestricted.FieldName = "Restricted" + Me.colRestricted.Name = "colRestricted" + Me.colRestricted.OptionsColumn.AllowEdit = False + Me.colRestricted.OptionsColumn.ReadOnly = True + Me.colRestricted.Visible = True + Me.colRestricted.VisibleIndex = 3 + ' + 'btn_Cancel + ' + Me.btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btn_Cancel.Location = New System.Drawing.Point(396, 348) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) + Me.btn_Cancel.TabIndex = 2 + Me.btn_Cancel.Text = "&Cancel" + ' + 'btn_OK + ' + Me.btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_OK.Location = New System.Drawing.Point(318, 348) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(75, 23) + Me.btn_OK.TabIndex = 1 + Me.btn_OK.Text = "&OK" + ' + 'barmng_Users + ' + Me.barmng_Users.DockControls.Add(Me.barDockControlTop) + Me.barmng_Users.DockControls.Add(Me.barDockControlBottom) + Me.barmng_Users.DockControls.Add(Me.barDockControlLeft) + Me.barmng_Users.DockControls.Add(Me.barDockControlRight) + Me.barmng_Users.Form = Me + Me.barmng_Users.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Add_User, Me.bbi_Delete_User, Me.bbi_Edit_User}) + Me.barmng_Users.MaxItemId = 3 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(483, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 383) + Me.barDockControlBottom.Size = New System.Drawing.Size(483, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 383) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(483, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 383) + ' + 'bbi_Add_User + ' + Me.bbi_Add_User.Caption = "&Add user" + Me.bbi_Add_User.Id = 0 + Me.bbi_Add_User.ImageUri.Uri = "Add" + Me.bbi_Add_User.Name = "bbi_Add_User" + ' + 'bbi_Delete_User + ' + Me.bbi_Delete_User.Caption = "&Delete user" + Me.bbi_Delete_User.Id = 1 + Me.bbi_Delete_User.ImageUri.Uri = "Delete" + Me.bbi_Delete_User.Name = "bbi_Delete_User" + ' + 'bbi_Edit_User + ' + Me.bbi_Edit_User.Caption = "&Edit user" + Me.bbi_Edit_User.Id = 2 + Me.bbi_Edit_User.ImageUri.Uri = "Edit" + Me.bbi_Edit_User.Name = "bbi_Edit_User" + ' + 'popmnu_Users + ' + Me.popmnu_Users.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_User), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit_User), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete_User)}) + Me.popmnu_Users.Manager = Me.barmng_Users + Me.popmnu_Users.Name = "popmnu_Users" + ' + 'frm_Users_Setup + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(483, 383) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.grd_Users) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Users_Setup" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Setup Users (Multi User Mode)" + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Users, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Users As System.Windows.Forms.BindingSource + Friend WithEvents grd_Users As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Users As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPassword As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdmin As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRestricted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents barmng_Users As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents bbi_Add_User As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete_User As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Edit_User As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Users As MKNetDXLib.cmp_MKDXPopupMenu +End Class diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.resx b/Metropolis_Launcher/Forms/frm_Users_Setup.resx new file mode 100644 index 0000000..a60b933 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 18, 14 + + + 107, 14 + + + 207, 14 + + + 336, 14 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.vb b/Metropolis_Launcher/Forms/frm_Users_Setup.vb new file mode 100644 index 0000000..47cb584 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.vb @@ -0,0 +1,81 @@ +Public Class frm_Users_Setup + + Public Sub New() + InitializeComponent() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Users(tran, Me.DS_ML.tbl_Users, 0, False) + End Using + + barmng_Users.SetPopupContextMenu(grd_Users, popmnu_Users) + End Sub + + Private Sub bbi_Add_User_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Add_User.ItemClick + Dim row As DataRow = Me.DS_ML.tbl_Users.NewRow + Using frm As New frm_Users_Edit(Me.DS_ML.tbl_Users) + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + row("Username") = frm.txb_Username.EditValue + row("Password") = IIf(frm.chb_Password.Checked, IIf(frm.txb_Password.Text.Length > 0, cls_Globals.Encode_Password(frm.txb_Password.EditValue), DBNull.Value), DBNull.Value) + row("Restricted") = frm.chb_Restricted.Checked + row("Admin") = False + + Me.DS_ML.tbl_Users.Rows.Add(row) + End If + End Using + End Sub + + Private Sub bbi_Edit_User_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Edit_User.ItemClick + If BS_Users.Current Is Nothing Then Return + + Dim row As DataRow = BS_Users.Current.Row + Using frm As New frm_Users_Edit(Me.DS_ML.tbl_Users, row("id_Users")) + frm.txb_Username.EditValue = row("Username") + frm.lbl_Restricted.Enabled = Not TC.NZ(row("Admin"), False) + frm.chb_Restricted.Enabled = Not TC.NZ(row("Admin"), False) + frm.chb_Restricted.Checked = TC.NZ(row("Restricted"), False) + + If frm.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + row("Username") = frm.txb_Username.EditValue + row("Password") = IIf(frm.chb_Password.Checked, IIf(frm.txb_Password.Text.Length > 0, cls_Globals.Encode_Password(frm.txb_Password.EditValue), DBNull.Value), row("Password")) + row("Restricted") = frm.chb_Restricted.Checked + End If + End Using + End Sub + + Private Sub bbi_Delete_User_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Delete_User.ItemClick + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete user '" & BS_Users.Current("Username") & "'?", "Delete User", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then + BS_Users.RemoveCurrent() + End If + End Sub + + Private Sub popmnu_Users_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Users.BeforePopup + If Not grd_Users.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_Users.Current Is Nothing Then + bbi_Delete_User.Enabled = False + bbi_Edit_User.Enabled = False + Else + bbi_Edit_User.Enabled = True + If TC.NZ(BS_Users.Current("Admin"), False) = True OrElse TC.NZ(BS_Users.Current("id_Users"), 0) = cls_Globals.id_Users Then + bbi_Delete_User.Enabled = False + Else + bbi_Delete_User.Enabled = True + End If + End If + End Sub + + Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click + Me.BS_Users.EndEdit() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_Users(tran, Me.DS_ML.tbl_Users) + tran.Commit() + End Using + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Libs/AlphaFS.dll b/Metropolis_Launcher/Libs/AlphaFS.dll new file mode 100644 index 0000000..29d8346 Binary files /dev/null and b/Metropolis_Launcher/Libs/AlphaFS.dll differ diff --git a/Metropolis_Launcher/Libs/DamienG.Library.dll b/Metropolis_Launcher/Libs/DamienG.Library.dll new file mode 100644 index 0000000..61a5440 Binary files /dev/null and b/Metropolis_Launcher/Libs/DamienG.Library.dll differ diff --git a/Metropolis_Launcher/Libs/DiscUtils.Common.dll b/Metropolis_Launcher/Libs/DiscUtils.Common.dll new file mode 100644 index 0000000..32ce08e Binary files /dev/null and b/Metropolis_Launcher/Libs/DiscUtils.Common.dll differ diff --git a/Metropolis_Launcher/Libs/DiscUtils.dll b/Metropolis_Launcher/Libs/DiscUtils.dll new file mode 100644 index 0000000..9970b0c Binary files /dev/null and b/Metropolis_Launcher/Libs/DiscUtils.dll differ diff --git a/Metropolis_Launcher/Libs/HtmlAgilityPack.dll b/Metropolis_Launcher/Libs/HtmlAgilityPack.dll new file mode 100644 index 0000000..5e43b01 Binary files /dev/null and b/Metropolis_Launcher/Libs/HtmlAgilityPack.dll differ diff --git a/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll b/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll new file mode 100644 index 0000000..eaea4f5 Binary files /dev/null and b/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll differ diff --git a/Metropolis_Launcher/Libs/MKNetDXLib.dll b/Metropolis_Launcher/Libs/MKNetDXLib.dll new file mode 100644 index 0000000..b2d4ae6 Binary files /dev/null and b/Metropolis_Launcher/Libs/MKNetDXLib.dll differ diff --git a/Metropolis_Launcher/Libs/MKNetLib.dll b/Metropolis_Launcher/Libs/MKNetLib.dll new file mode 100644 index 0000000..fbb5c57 Binary files /dev/null and b/Metropolis_Launcher/Libs/MKNetLib.dll differ diff --git a/Metropolis_Launcher/Libs/Ookii.Dialogs.dll b/Metropolis_Launcher/Libs/Ookii.Dialogs.dll new file mode 100644 index 0000000..deeca3c Binary files /dev/null and b/Metropolis_Launcher/Libs/Ookii.Dialogs.dll differ diff --git a/Metropolis_Launcher/Libs/SgmlReaderDll.dll b/Metropolis_Launcher/Libs/SgmlReaderDll.dll new file mode 100644 index 0000000..2fe82ac Binary files /dev/null and b/Metropolis_Launcher/Libs/SgmlReaderDll.dll differ diff --git a/Metropolis_Launcher/Libs/SharpCompress.3.5.dll b/Metropolis_Launcher/Libs/SharpCompress.3.5.dll new file mode 100644 index 0000000..0438fd5 Binary files /dev/null and b/Metropolis_Launcher/Libs/SharpCompress.3.5.dll differ diff --git a/Metropolis_Launcher/Libs/System.Data.SQLite.dll b/Metropolis_Launcher/Libs/System.Data.SQLite.dll new file mode 100644 index 0000000..aa398bb Binary files /dev/null and b/Metropolis_Launcher/Libs/System.Data.SQLite.dll differ diff --git a/Metropolis_Launcher/Metropolis_Launcher.vbproj b/Metropolis_Launcher/Metropolis_Launcher.vbproj new file mode 100644 index 0000000..4f2eb10 --- /dev/null +++ b/Metropolis_Launcher/Metropolis_Launcher.vbproj @@ -0,0 +1,1759 @@ + + + + Debug + x86 + + + 2.0 + {FAFBA71A-26CF-4A0D-B880-F467C92BF104} + WinExe + Metropolis_Launcher.My.MyApplication + Metropolis_Launcher + Metropolis_Launcher + 512 + WindowsForms + v4.0 + + + false + SAK + SAK + SAK + SAK + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 1 + 1.0.0.%2a + false + true + true + + + x86 + true + full + true + true + bin\Debug\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + 42030,42104,42108,42109 + false + + + x86 + pdbonly + false + true + true + bin\Release\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + 42030,42104,42108,42109 + false + + + Off + + + Binary + + + Off + + + On + + + My Project\app.manifest + + + true + bin\x86\PreRelease\ + Metropolis_Launcher.xml + true + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + pdbonly + x86 + bin\Release\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\\Rule Sets + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + false + false + PreRelease + false + 42030,42104,42108,42109 + true + false + + + space_invader_icon_1_by_moglenstar.ico + + + true + true + true + bin\x64\Debug\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x64 + bin\Debug\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + 42030,42104,42108,42109 + + + true + bin\x64\Release\ + Metropolis_Launcher.xml + true + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + pdbonly + x64 + bin\Release\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + true + 42030,42104,42108,42109 + + + true + bin\x64\PreRelease\ + PreRelease + Metropolis_Launcher.xml + true + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + pdbonly + x64 + bin\Release\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\\Rule Sets;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + false + 42030,42104,42108,42109 + + + true + true + true + bin\Debug\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + AnyCPU + bin\Debug\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + true + 42030,42104,42108,42109 + + + true + bin\Release\ + Metropolis_Launcher.xml + true + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + pdbonly + AnyCPU + bin\Release\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + true + 42030,42104,42108,42109 + + + true + bin\PreRelease\ + PreRelease + Metropolis_Launcher.xml + true + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + pdbonly + AnyCPU + bin\Release\Metropolis_Launcher.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + MinimumRecommendedRules.ruleset + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\\Rule Sets;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\\Rule Sets + true + ;D:\Apps\Programming\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules;C:\C-Apps\VS10\Team Tools\Static Analysis Tools\FxCop\\Rules + false + 42030,42104,42108,42109 + + + 84B0622CCE92CFC97025B9B7BBE9F1E75B0DE6B9 + + + Metropolis_Launcher_TemporaryKey.pfx + + + false + + + false + + + true + true + true + bin\x86\DebugTEST\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x86 + 42030,42104,42108,42109 + MinimumRecommendedRules.ruleset + false + + + true + true + true + bin\x64\DebugTEST\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + x64 + 42030,42104,42108,42109 + MinimumRecommendedRules.ruleset + + + true + true + true + bin\DebugTEST\ + Metropolis_Launcher.xml + 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 + full + AnyCPU + 42030,42104,42108,42109 + MinimumRecommendedRules.ruleset + + + LocalIntranet + + + false + + + Metropolis_Launcher_TemporaryKey.pfx + + + + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\AlphaFS.dll + + + False + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\DamienG.Library.dll + + + False + True + + + False + True + + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + Libs\DiscUtils.dll + + + False + Libs\DiscUtils.Common.dll + + + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\HtmlAgilityPack.dll + + + Libs\Interop.IWshRuntimeLibrary.dll + True + + + + False + Libs\MKNetDXLib.dll + + + False + Libs\MKNetLib.dll + + + False + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\Ookii.Dialogs.dll + + + False + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\SgmlReaderDll.dll + + + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\SharpCompress.3.5.dll + + + + + + False + ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\System.Data.SQLite.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + True + DS_IMDB.xsd + + + DS_IMDB.xsd + + + DS_ML.xsd + True + True + + + DS_ML.xsd + + + True + True + DS_MLApps.xsd + + + DS_MLApps.xsd + + + True + True + DS_MobyDB.xsd + + + DS_MobyDB.xsd + + + True + True + DS_Rombase.xsd + + + DS_Rombase.xsd + + + frm_About.vb + + + Form + + + frm_App_Edit.vb + + + Form + + + frm_Backup.vb + + + Form + + + frm_Moby_Auto_Link.vb + + + Form + + + frm_Moby_Auto_Link_Options.vb + + + Form + + + frm_Rescan_Options.vb + + + Form + + + frm_Rombase_Manager.vb + + + Form + + + frm_DOSBox_Choose_Exe.vb + + + Form + + + frm_DOSBox_Choose_NIC.vb + + + Form + + + frm_DOSBox_Templates.vb + + + Form + + + frm_Emu_Game_Screenshotviewer.vb + + + Form + + + frm_Export.vb + + + Form + + + frm_Login.vb + + + Form + + + frm_Mame_Config.vb + + + Form + + + frm_Moby_Staff_Info.vb + + + Form + + + frm_Moby_Game_Group_Info.vb + + + Form + + + frm_Moby_Platforms_Configuration.vb + + + Form + + + frm_PermDecision.vb + + + Form + + + frm_Rom_Manager_ChangeDirectory.vb + + + Form + + + frm_Description.vb + + + Form + + + frm_Emulators.vb + + + Form + + + frm_Emu_Game_Edit.vb + + + Form + + + frm_Emu_Game_Edit_GenreDescription.vb + + + Form + + + frm_Emu_Game_Rating_Weights_Edit.vb + + + Form + + + frm_Emu_ImageSettings.vb + + + Form + + + frm_FilterSet.vb + + + Form + + + frm_Movie_Manager.vb + + + Form + + + frm_Rom_Manager.vb + + + Form + + + Form + + + frm_Main.vb + Form + + + frm_Moby_Import.vb + + + Form + + + frm_Screenshot_Edit.vb + + + Form + + + frm_Search_Missing_Extras.vb + + + Form + + + frm_Similarity_Calculation.vb + + + Form + + + frm_Similarity_Calculation_Config_Edit.vb + + + Form + + + frm_Similarity_Calculation_Details.vb + + + Form + + + frm_Tag_Parser_Edit.vb + + + Form + + + frm_Users_Edit.vb + + + Form + + + frm_Users_Setup.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + ucr_Apps.vb + + + UserControl + + + ucr_Emulation.vb + + + UserControl + + + ucr_Settings.vb + + + UserControl + + + ucr_Todo.vb + + + UserControl + + + ucr_DOSBox_Config.vb + + + UserControl + + + ucr_Similarity_Calculation_Details_Genre.vb + + + UserControl + + + + + frm_About.vb + + + frm_App_Edit.vb + + + frm_Backup.vb + + + frm_Moby_Auto_Link.vb + + + frm_Moby_Auto_Link_Options.vb + + + frm_Rescan_Options.vb + + + frm_Rombase_Manager.vb + + + frm_DOSBox_Choose_Exe.vb + + + frm_DOSBox_Choose_NIC.vb + + + frm_DOSBox_Templates.vb + + + frm_Emu_Game_Screenshotviewer.vb + + + frm_Export.vb + + + frm_Login.vb + + + frm_Mame_Config.vb + + + frm_Moby_Staff_Info.vb + + + frm_Moby_Game_Group_Info.vb + + + frm_Moby_Platforms_Configuration.vb + + + frm_PermDecision.vb + + + frm_Rom_Manager_ChangeDirectory.vb + + + frm_Description.vb + + + frm_Emulators.vb + Designer + + + frm_Emu_Game_Edit.vb + + + frm_Emu_Game_Edit_GenreDescription.vb + + + frm_Emu_Game_Rating_Weights_Edit.vb + + + frm_Emu_ImageSettings.vb + + + frm_FilterSet.vb + + + frm_Movie_Manager.vb + + + frm_Rom_Manager.vb + + + frm_Main.vb + + + frm_Moby_Import.vb + + + frm_Screenshot_Edit.vb + + + frm_Search_Missing_Extras.vb + + + frm_Similarity_Calculation.vb + + + frm_Similarity_Calculation_Config_Edit.vb + + + frm_Similarity_Calculation_Details.vb + Designer + + + frm_Tag_Parser_Edit.vb + + + frm_Users_Edit.vb + + + frm_Users_Setup.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + ucr_Apps.vb + + + ucr_Emulation.vb + + + ucr_Settings.vb + + + ucr_Todo.vb + + + ucr_DOSBox_Config.vb + + + ucr_Similarity_Calculation_Details_Genre.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DS_IMDB.xsd + + + Designer + MSDataSetGenerator + DS_IMDB.Designer.vb + + + DS_IMDB.xsd + + + DS_ML.xsd + + + Designer + MSDataSetGenerator + DS_ML.Designer.vb + + + DS_ML.xsd + + + DS_MobyDB.xsd + + + Designer + MSDataSetGenerator + DS_MobyDB.Designer.vb + + + DS_MobyDB.xsd + + + DS_Rombase.xsd + + + Designer + MSDataSetGenerator + DS_Rombase.Designer.vb + + + DS_Rombase.xsd + + + PreserveNewest + + + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + + + + + + + + + + + + + + + + + + + DS_MLApps.xsd + + + Designer + MSDataSetGenerator + DS_MLApps.Designer.vb + + + DS_MLApps.xsd + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + PreserveNewest + + + + + + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + False + + + + + Exclude + True + Satellite + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + + + + + + call "$(DevEnvDir)..\..\vc\vcvarsall.bat" x86 +"$(DevEnvDir)..\..\vc\bin\EditBin.exe" "$(TargetPath)" /LARGEADDRESSAWARE + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Metropolis_Launcher_TemporaryKey.pfx b/Metropolis_Launcher/Metropolis_Launcher_TemporaryKey.pfx new file mode 100644 index 0000000..bca4ec3 Binary files /dev/null and b/Metropolis_Launcher/Metropolis_Launcher_TemporaryKey.pfx differ diff --git a/Metropolis_Launcher/My Project/Application.Designer.vb b/Metropolis_Launcher/My Project/Application.Designer.vb new file mode 100644 index 0000000..85b9b99 --- /dev/null +++ b/Metropolis_Launcher/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern + ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Metropolis_Launcher.frm_Main + End Sub + End Class +End Namespace diff --git a/Metropolis_Launcher/My Project/Application.myapp b/Metropolis_Launcher/My Project/Application.myapp new file mode 100644 index 0000000..c20a8a4 --- /dev/null +++ b/Metropolis_Launcher/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frm_Main + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/Metropolis_Launcher/My Project/AssemblyInfo.vb b/Metropolis_Launcher/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..36a347d --- /dev/null +++ b/Metropolis_Launcher/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/Metropolis_Launcher/My Project/Resources.Designer.vb b/Metropolis_Launcher/My Project/Resources.Designer.vb new file mode 100644 index 0000000..cc2b72c --- /dev/null +++ b/Metropolis_Launcher/My Project/Resources.Designer.vb @@ -0,0 +1,85 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Metropolis_Launcher.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die <doc> + ''' <chm>ml.chm</chm> + ''' <web>http://emulation-evolved.net/ml/</web> + '''</doc> ähnelt. + ''' + Friend ReadOnly Property helpmap() As String + Get + Return ResourceManager.GetString("helpmap", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property pen_white() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("pen_white", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/Metropolis_Launcher/My Project/Resources.resx b/Metropolis_Launcher/My Project/Resources.resx new file mode 100644 index 0000000..64f2837 --- /dev/null +++ b/Metropolis_Launcher/My Project/Resources.resx @@ -0,0 +1,128 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\helpmap.xml;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + + + + ..\Resources\pen_white.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Metropolis_Launcher/My Project/Settings.Designer.vb b/Metropolis_Launcher/My Project/Settings.Designer.vb new file mode 100644 index 0000000..4c59ed3 --- /dev/null +++ b/Metropolis_Launcher/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34209 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Metropolis_Launcher.My.MySettings + Get + Return Global.Metropolis_Launcher.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Metropolis_Launcher/My Project/Settings.settings b/Metropolis_Launcher/My Project/Settings.settings new file mode 100644 index 0000000..f7f176a --- /dev/null +++ b/Metropolis_Launcher/My Project/Settings.settings @@ -0,0 +1,5 @@ + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/My Project/app.manifest b/Metropolis_Launcher/My Project/app.manifest new file mode 100644 index 0000000..db7cf36 --- /dev/null +++ b/Metropolis_Launcher/My Project/app.manifest @@ -0,0 +1,47 @@ + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/My Project/licenses.licx b/Metropolis_Launcher/My Project/licenses.licx new file mode 100644 index 0000000..50dda33 --- /dev/null +++ b/Metropolis_Launcher/My Project/licenses.licx @@ -0,0 +1,5 @@ +DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v15.2, Version=15.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.Utils.Filtering.FilteringUIContext, DevExpress.Utils.v15.2, Version=15.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit, DevExpress.XtraEditors.v15.2, Version=15.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v15.2, Version=15.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Metropolis_Launcher/My Project/licenses.licx.bak b/Metropolis_Launcher/My Project/licenses.licx.bak new file mode 100644 index 0000000..2fef289 --- /dev/null +++ b/Metropolis_Launcher/My Project/licenses.licx.bak @@ -0,0 +1,4 @@ +DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit, DevExpress.XtraEditors.v15.2, Version=15.2.10.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v15.2, Version=15.2.10.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.RangeTrackBarControl, DevExpress.XtraEditors.v15.2, Version=15.2.10.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.Utils.Filtering.FilteringUIContext, DevExpress.Utils.v15.2, Version=15.2.10.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Metropolis_Launcher/Pages/ucr_Apps.Designer.vb b/Metropolis_Launcher/Pages/ucr_Apps.Designer.vb new file mode 100644 index 0000000..f996907 --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Apps.Designer.vb @@ -0,0 +1,305 @@ + _ +Partial Class ucr_Apps + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.grd_Apps = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Apps = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MLApps = New Metropolis_Launcher.DS_MLApps() + Me.gv_Apps = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colid_Categories = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Category = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BS_Categories = New System.Windows.Forms.BindingSource(Me.components) + Me.colDisplayName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() + Me.txb_Description = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.barmng_Apps = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Run = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Edit = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Reset = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_ResetAll = New DevExpress.XtraBars.BarButtonItem() + Me.lbl_Displayname = New MKNetDXLib.ctl_MKDXLabel() + Me.popmnu_Apps = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.grd_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Category, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Categories, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Apps, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'grd_Apps + ' + Me.grd_Apps.DataSource = Me.BS_Apps + Me.grd_Apps.Dock = System.Windows.Forms.DockStyle.Left + Me.grd_Apps.Location = New System.Drawing.Point(0, 0) + Me.grd_Apps.MainView = Me.gv_Apps + Me.grd_Apps.Name = "grd_Apps" + Me.grd_Apps.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Category}) + Me.grd_Apps.Size = New System.Drawing.Size(411, 600) + Me.grd_Apps.TabIndex = 0 + Me.grd_Apps.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Apps}) + ' + 'BS_Apps + ' + Me.BS_Apps.DataMember = "Apps" + Me.BS_Apps.DataSource = Me.DS_MLApps + ' + 'DS_MLApps + ' + Me.DS_MLApps.DataSetName = "DS_MLApps" + Me.DS_MLApps.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Apps + ' + Me.gv_Apps.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colid_Categories, Me.colDisplayName}) + Me.gv_Apps.GridControl = Me.grd_Apps + Me.gv_Apps.Name = "gv_Apps" + Me.gv_Apps.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.gv_Apps.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Apps.OptionsView.ColumnAutoWidth = False + Me.gv_Apps.OptionsView.ShowGroupPanel = False + Me.gv_Apps.OptionsView.ShowIndicator = False + ' + 'colid_Categories + ' + Me.colid_Categories.Caption = "Category" + Me.colid_Categories.ColumnEdit = Me.rpi_Category + Me.colid_Categories.FieldName = "id_Categories" + Me.colid_Categories.Name = "colid_Categories" + Me.colid_Categories.OptionsColumn.AllowEdit = False + Me.colid_Categories.OptionsColumn.ReadOnly = True + Me.colid_Categories.Visible = True + Me.colid_Categories.VisibleIndex = 0 + Me.colid_Categories.Width = 105 + ' + 'rpi_Category + ' + Me.rpi_Category.AutoHeight = False + Me.rpi_Category.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_Category.DataSource = Me.BS_Categories + Me.rpi_Category.DisplayMember = "Category" + Me.rpi_Category.Name = "rpi_Category" + Me.rpi_Category.ValueMember = "id_Categories" + ' + 'BS_Categories + ' + Me.BS_Categories.DataMember = "Categories" + Me.BS_Categories.DataSource = Me.DS_MLApps + ' + 'colDisplayName + ' + Me.colDisplayName.Caption = "Application" + Me.colDisplayName.FieldName = "DisplayName" + Me.colDisplayName.Name = "colDisplayName" + Me.colDisplayName.OptionsColumn.AllowEdit = False + Me.colDisplayName.OptionsColumn.ReadOnly = True + Me.colDisplayName.Visible = True + Me.colDisplayName.VisibleIndex = 1 + Me.colDisplayName.Width = 292 + ' + 'Ctl_MKDXSplitter1 + ' + Me.Ctl_MKDXSplitter1.Location = New System.Drawing.Point(411, 0) + Me.Ctl_MKDXSplitter1.Name = "Ctl_MKDXSplitter1" + Me.Ctl_MKDXSplitter1.Size = New System.Drawing.Size(5, 600) + Me.Ctl_MKDXSplitter1.TabIndex = 1 + Me.Ctl_MKDXSplitter1.TabStop = False + ' + 'txb_Description + ' + Me.txb_Description.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Apps, "Description", True)) + Me.txb_Description.Dock = System.Windows.Forms.DockStyle.Fill + Me.txb_Description.Location = New System.Drawing.Point(416, 36) + Me.txb_Description.MenuManager = Me.barmng_Apps + Me.txb_Description.MKBoundLabel = Nothing + Me.txb_Description.MKEditValue_Compare = Nothing + Me.txb_Description.Name = "txb_Description" + Me.txb_Description.Properties.ReadOnly = True + Me.txb_Description.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_Description.Size = New System.Drawing.Size(384, 564) + Me.txb_Description.TabIndex = 0 + ' + 'barmng_Apps + ' + Me.barmng_Apps.DockControls.Add(Me.barDockControlTop) + Me.barmng_Apps.DockControls.Add(Me.barDockControlBottom) + Me.barmng_Apps.DockControls.Add(Me.barDockControlLeft) + Me.barmng_Apps.DockControls.Add(Me.barDockControlRight) + Me.barmng_Apps.Form = Me + Me.barmng_Apps.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Run, Me.bbi_Add, Me.bbi_Edit, Me.bbi_Delete, Me.bbi_Reset, Me.bbi_ResetAll}) + Me.barmng_Apps.MaxItemId = 14 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(800, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 600) + Me.barDockControlBottom.Size = New System.Drawing.Size(800, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 600) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(800, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 600) + ' + 'bbi_Run + ' + Me.bbi_Run.Caption = "&Run" + Me.bbi_Run.Id = 8 + Me.bbi_Run.ImageUri.Uri = "DoubleNext" + Me.bbi_Run.Name = "bbi_Run" + ' + 'bbi_Add + ' + Me.bbi_Add.Caption = "&Add" + Me.bbi_Add.Id = 9 + Me.bbi_Add.ImageUri.Uri = "Add" + Me.bbi_Add.Name = "bbi_Add" + ' + 'bbi_Edit + ' + Me.bbi_Edit.Caption = "&Edit" + Me.bbi_Edit.Id = 10 + Me.bbi_Edit.ImageUri.Uri = "Edit" + Me.bbi_Edit.Name = "bbi_Edit" + ' + 'bbi_Delete + ' + Me.bbi_Delete.Caption = "&Delete" + Me.bbi_Delete.Id = 11 + Me.bbi_Delete.ImageUri.Uri = "Delete" + Me.bbi_Delete.Name = "bbi_Delete" + ' + 'bbi_Reset + ' + Me.bbi_Reset.Caption = "Reset &Statistics" + Me.bbi_Reset.Id = 12 + Me.bbi_Reset.ImageUri.Uri = "Clear" + Me.bbi_Reset.Name = "bbi_Reset" + Me.bbi_Reset.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'bbi_ResetAll + ' + Me.bbi_ResetAll.Caption = "Reset &all Statistics" + Me.bbi_ResetAll.Id = 13 + Me.bbi_ResetAll.ImageUri.Uri = "Clear" + Me.bbi_ResetAll.Name = "bbi_ResetAll" + Me.bbi_ResetAll.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' + 'lbl_Displayname + ' + Me.lbl_Displayname.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Displayname.AutoEllipsis = True + Me.lbl_Displayname.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Displayname.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.BS_Apps, "DisplayName", True)) + Me.lbl_Displayname.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Displayname.Location = New System.Drawing.Point(416, 0) + Me.lbl_Displayname.MKBoundControl1 = Nothing + Me.lbl_Displayname.MKBoundControl2 = Nothing + Me.lbl_Displayname.MKBoundControl3 = Nothing + Me.lbl_Displayname.MKBoundControl4 = Nothing + Me.lbl_Displayname.MKBoundControl5 = Nothing + Me.lbl_Displayname.Name = "lbl_Displayname" + Me.lbl_Displayname.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Displayname.Size = New System.Drawing.Size(384, 36) + Me.lbl_Displayname.TabIndex = 0 + ' + 'popmnu_Apps + ' + Me.popmnu_Apps.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Run), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Delete), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Reset, True), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_ResetAll)}) + Me.popmnu_Apps.Manager = Me.barmng_Apps + Me.popmnu_Apps.Name = "popmnu_Apps" + ' + 'ucr_Apps + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.Controls.Add(Me.txb_Description) + Me.Controls.Add(Me.lbl_Displayname) + Me.Controls.Add(Me.Ctl_MKDXSplitter1) + Me.Controls.Add(Me.grd_Apps) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "ucr_Apps" + Me.Size = New System.Drawing.Size(800, 600) + CType(Me.grd_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MLApps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Category, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Categories, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Description.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng_Apps, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Apps, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents grd_Apps As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Apps As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DS_MLApps As Metropolis_Launcher.DS_MLApps + Friend WithEvents BS_Apps As System.Windows.Forms.BindingSource + Friend WithEvents BS_Categories As System.Windows.Forms.BindingSource + Friend WithEvents colid_Categories As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDisplayName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Ctl_MKDXSplitter1 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents lbl_Displayname As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents barmng_Apps As MKNetDXLib.ctl_MKDXBarManager + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents popmnu_Apps As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Run As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Add As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Edit As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Reset As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_ResetAll As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txb_Description As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents rpi_Category As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Apps.resx b/Metropolis_Launcher/Pages/ucr_Apps.resx new file mode 100644 index 0000000..2d84528 --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Apps.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 134, 17 + + + 17, 17 + + + 232, 17 + + + 360, 17 + + + 17, 56 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Apps.vb b/Metropolis_Launcher/Pages/ucr_Apps.vb new file mode 100644 index 0000000..2ff6dc4 --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Apps.vb @@ -0,0 +1,122 @@ +Public Class ucr_Apps + Public Event E_Hide() + Public Event E_Show() + + Public Sub New() + InitializeComponent() + + DS_MLApps.Fill_Categories(cls_Globals.Conn, Me.DS_MLApps.Categories) + DS_MLApps.Fill_Apps(cls_Globals.Conn, Me.DS_MLApps.Apps) + + barmng_Apps.SetPopupContextMenu(grd_Apps, popmnu_Apps) + End Sub + + Private Sub grd_Apps_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grd_Apps.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + cls_Globals.Suppress_MetroUINavigationBarsShowing = True + End If + + 'Show Popupmenu here + If e.Button = Windows.Forms.MouseButtons.Right Then + popmnu_Apps.ShowPopup(Control.MousePosition) + End If + End Sub + + Private Sub Run() + If BS_Apps.Current Is Nothing Then + Return + End If + + If TC.NZ(BS_Apps.Current("Executable"), "") = "" Then + Return + End If + + Dim procinfo As New ProcessStartInfo(TC.NZ(BS_Apps.Current("Executable"), ""), TC.NZ(BS_Apps.Current("Arguments"), "")) + procinfo.UseShellExecute = Not TC.NZ(BS_Apps.Current("RunExclusive"), False) + + If Not procinfo.UseShellExecute Then + 'Me.Visible = False + RaiseEvent E_Hide() + End If + + Dim proc As System.Diagnostics.Process = System.Diagnostics.Process.Start(procinfo) + + If Not procinfo.UseShellExecute Then + proc.WaitForExit() + 'Me.Visible = True + RaiseEvent E_Show() + End If + End Sub + +#Region "Popupmenu" + Private Sub popmnu_Apps_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Apps.BeforePopup + If Not grd_Apps.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_Apps.Current Is Nothing Then + bbi_Run.Enabled = False + bbi_Edit.Enabled = False + bbi_Delete.Enabled = False + bbi_Reset.Enabled = False + bbi_ResetAll.Enabled = False + Else + bbi_Run.Enabled = True + bbi_Edit.Enabled = True + bbi_Delete.Enabled = True + bbi_Reset.Enabled = True + bbi_ResetAll.Enabled = True + End If + End Sub + + Private Sub bbi_Run_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Run.ItemClick + Run() + End Sub + + Private Sub bbi_Add_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Add.ItemClick + BS_Apps.AddNew() + BS_Apps.MoveLast() + Using frm As New frm_App_Edit(BS_Categories, BS_Apps) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + BS_Apps.EndEdit() + DS_MLApps.Update_Apps(cls_Globals.Conn, Me.DS_MLApps.Apps) + Else + BS_Apps.RemoveCurrent() + Me.DS_MLApps.Apps.RejectChanges() + End If + End Using + End Sub + + Private Sub bbi_Edit_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Edit.ItemClick + Using frm As New frm_App_Edit(BS_Categories, BS_Apps) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + BS_Apps.EndEdit() + DS_MLApps.Update_Apps(cls_Globals.Conn, Me.DS_MLApps.Apps) + Else + DS_MLApps.Apps.RejectChanges() + End If + End Using + End Sub + + Private Sub bbi_Delete_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Delete.ItemClick + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete the current application entry?", "", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then + BS_Apps.RemoveCurrent() + DS_MLApps.Update_Apps(cls_Globals.Conn, Me.DS_MLApps.Apps) + End If + End Sub + + Private Sub bbi_Reset_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Reset.ItemClick + + End Sub + + Private Sub bbi_ResetAll_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_ResetAll.ItemClick + + End Sub + + Private Sub grd_Apps_DoubleClick(sender As Object, e As EventArgs) Handles grd_Apps.DoubleClick + Run() + End Sub +#End Region + +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb b/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb new file mode 100644 index 0000000..e9ea29e --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb @@ -0,0 +1,4389 @@ + +Partial Class ucr_Emulation + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SerializableAppearanceObject9 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject10 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject11 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject12 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject13 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject14 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject15 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject16 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject17 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject18 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject19 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject20 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SerializableAppearanceObject21 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject22 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject23 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject24 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SerializableAppearanceObject25 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject26 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject27 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject28 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject29 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject30 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject31 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject32 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip19 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject33 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject34 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject35 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject36 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip21 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ScaleIndicatorState1 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState2 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState3 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState4 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState5 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState6 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState7 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState8 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState9 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState10 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState11 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState12 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState13 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState14 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState15 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState16 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState17 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState18 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState19 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState20 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState21 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState22 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState23 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState24 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState25 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState26 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState27 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState28 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState29 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState30 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState31 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState32 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState33 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState34 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState35 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState36 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState37 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState38 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState39 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState40 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState41 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState42 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState43 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState44 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState45 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState46 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState47 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState48 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState49 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Dim ScaleIndicatorState50 As DevExpress.XtraGauges.Core.Model.ScaleIndicatorState = New DevExpress.XtraGauges.Core.Model.ScaleIndicatorState() + Me.pnl_Emu_Games = New MKNetDXLib.ctl_MKDXPanel() + Me.splt_FilterUI_grdMain = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.accordion_FilterUI = New DevExpress.XtraBars.Navigation.AccordionControl() + Me.AccordionControlElement2 = New DevExpress.XtraBars.Navigation.AccordionControlElement() + Me.lbl_QuickFilter = New MKNetDXLib.ctl_MKDXLabel() + Me.grd_Emu_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Emu_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.gv_Emu_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSimilarity = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatform_Short = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGame = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWant = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Want = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colHave = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Have = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colTrade = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Trade = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.coltmp_Highlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Fav = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colFolder = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRegions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLanguages = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVersion = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRank = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colScore = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colYear = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdded = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNum_Played = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNum_Runtime = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLast_Played = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFavourite = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPlatform_Exclusive = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAge_Pessimistic = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAge_Optimistic = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPublisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDeveloper = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBasic_Genres = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPerspectives = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVisual_Presentation = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPacing = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGameplay = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInterface_Control = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSports_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colEducational_Categories = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVehicular_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSetting = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colNarrative_Theme_Topic = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDLC_Addon = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSpecial_Edition = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colOther_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMinPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMaxPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAlt = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colTrainer = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colTranslation = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colHack = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBios = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPrototype = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAlpha = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBeta = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSample = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colKiosk = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUnlicensed = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFixed = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPirated = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGood = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBad = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colOverdump = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPublicDomain = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating_Gameplay = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating_Personal = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating_Graphics = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating_Sound = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRating_Story = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMP_GameModes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMP_Options = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col001_Platform = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col002_MobyRank = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col003_MobyScore = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col004_Publisher = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col005_Developer = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col006_Year = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col101_Basic_Genres = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col102_Perspectives = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col107_Visual_Presentation = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col109_Pacing = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col108_Gameplay = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col113_Interface_Control = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col103_Sports_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col105_Educational_Categories = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col112_Vehicular_Themes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col111_Setting = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col110_Narrative_Theme_Topic = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col114_DLC_Addon = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col115_Special_Edition = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col106_Other_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col201_MinPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col202_MaxPlayers = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col203_AgeO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col204_AgeP = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col205_Rating_Descriptors = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col207_Multiplayer_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col206_Other_Attributes = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col301_Group_Membership = New DevExpress.XtraGrid.Columns.GridColumn() + Me.col401_Staff = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Emu_Games = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Moby_Games = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Moby_Platforms = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_Moby_Releases = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_DOSBox_Configs = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colid_DOSBox_Configs_Template = New DevExpress.XtraGrid.Columns.GridColumn() + Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.bbi_Contribute_TechInfo = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Open_Moby_Page = New DevExpress.XtraBars.BarButtonItem() + Me.bsi_Launch = New DevExpress.XtraBars.BarSubItem() + Me.bbi_Edit_Game = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_DOSBox_Clear_Exe_Config = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Rom_Manager = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Rombase_Manager = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Edit_Multiple_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Export = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Emu_Settings = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_DOSBox_Templates = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Analyze_Missing_Extras = New DevExpress.XtraBars.BarButtonItem() + Me.bsi_MultiUser = New DevExpress.XtraBars.BarSubItem() + Me.bbi_MultiUser_Add_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_MultiUser_Remove_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_MultiUser_Show_Games = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Staff_Info = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Staff_Filter = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Similarity_Calculation = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Show_Similarity_Feature_Columns = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Open_Similarity_Details = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Launch_Random = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Extras_Image_Manager = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Extras_Viewer_Settings = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_GameGroup_Info = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_GameGroup_Filter = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Statistics_Remove = New DevExpress.XtraBars.BarButtonItem() + Me.bsi_Export = New DevExpress.XtraBars.BarSubItem() + Me.bbi_Export_CSV = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Export_XLSX = New DevExpress.XtraBars.BarButtonItem() + Me.ttctl_TecSpec = New DevExpress.Utils.DefaultToolTipController(Me.components) + Me.tlp_Combos = New System.Windows.Forms.TableLayoutPanel() + Me.pnl_31 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Search = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Search = New MKNetDXLib.ctl_MKDXButtonEdit() + Me.pnl_32 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Similarity = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Similarity_Calculation_Results = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Similarity_Calculation_Results = New System.Windows.Forms.BindingSource(Me.components) + Me.pnl_22 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Group = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Groups = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Group = New System.Windows.Forms.BindingSource(Me.components) + Me.pnl_12 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Filterset = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Filterset = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_FilterSets = New System.Windows.Forms.BindingSource(Me.components) + Me.pnl_21 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Staff = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Staff = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Developer = New System.Windows.Forms.BindingSource(Me.components) + Me.pnl_11 = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Platform = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Platform = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.spnl_Summary = New MKNetDXLib.ctl_MKDXScrollablePanel() + Me.filteringUIContext = New DevExpress.Utils.Filtering.FilteringUIContext(Me.components) + Me.tcl_App = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_Summary = New DevExpress.XtraTab.XtraTabPage() + Me.tpg_TechnicalSpecs = New DevExpress.XtraTab.XtraTabPage() + Me.grd_TechnicalSpecs = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_TechnicalSpecs = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colCategory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAttribute = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_NoSpecs = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Stats = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Statistics = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Emu_Games_History = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Statistics = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colStart = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colEnd = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colRuntime = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Emu_Games_Runtime = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Emu_Games_Runtime_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Emu_Games_Playcount = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Emu_Games_Plays = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Rating = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_Rating_Edit_Weights = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel4 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel3 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel2 = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Rating_Gameplay = New MKNetDXLib.ctl_MKDXLabel() + Me.gc_Rating_Personal = New MKNetDXLib.ctl_MKDXGaugeControl() + Me.LinearGauge5 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge() + Me.LinearScaleStateIndicatorComponent21 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleComponent5 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() + Me.LinearScaleStateIndicatorComponent22 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent23 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent24 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent25 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.gc_Rating_Story = New MKNetDXLib.ctl_MKDXGaugeControl() + Me.LinearGauge4 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge() + Me.LinearScaleStateIndicatorComponent16 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleComponent4 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() + Me.LinearScaleStateIndicatorComponent17 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent18 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent19 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent20 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.gc_Rating_Sound = New MKNetDXLib.ctl_MKDXGaugeControl() + Me.LinearGauge3 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge() + Me.LinearScaleStateIndicatorComponent11 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleComponent3 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() + Me.LinearScaleStateIndicatorComponent12 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent13 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent14 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent15 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.gc_Rating_Graphics = New MKNetDXLib.ctl_MKDXGaugeControl() + Me.LinearGauge2 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge() + Me.LinearScaleStateIndicatorComponent6 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleComponent2 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() + Me.LinearScaleStateIndicatorComponent7 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent8 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent9 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent10 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.gc_Rating_Gameplay = New MKNetDXLib.ctl_MKDXGaugeControl() + Me.LinearGauge1 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge() + Me.LinearScaleStateIndicatorComponent1 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleComponent1 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() + Me.LinearScaleStateIndicatorComponent2 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent3 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent4 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.LinearScaleStateIndicatorComponent5 = New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() + Me.tpg_Game_Groups = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Game_Groups = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Game_Groups = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Game_Groups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGameCount = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Game_Groups = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Staff = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Staff = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Moby_Releases_Staff = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Staff = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colPosition = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colName1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Staff_Grid = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Have = New DevExpress.XtraTab.XtraTabPage() + Me.grd_Have = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Have = New System.Windows.Forms.BindingSource(Me.components) + Me.crdv_Have = New DevExpress.XtraGrid.Views.Card.CardView() + Me.colid_Emu_Games_Have_Want_Lists = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDescription = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colComments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_Have_Comments = New DevExpress.XtraEditors.Repository.RepositoryItemMemoEdit() + Me.colPurchase_Date = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPurchase_Price = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCurrency = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPurchase_Location = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWilling_to_Trade = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colLocation = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colBox_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMedia_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colManual_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCatalog_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colReference_Card_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colAdditional_Items_Comments = New DevExpress.XtraGrid.Columns.GridColumn() + Me.tpg_Want = New DevExpress.XtraTab.XtraTabPage() + Me.spltpnl_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.spltpnl_Details = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.pic_Game = New MKNetDXLib.ctl_MKDXPictureEdit() + Me.lbl_Displayname = New MKNetDXLib.ctl_MKDXLabel() + Me.tmr_ImageUpdate = New System.Windows.Forms.Timer(Me.components) + Me.popmnu_Emu = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.tmr = New System.Windows.Forms.Timer(Me.components) + Me.popmnu_GameGroups = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Staff = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Extras = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_Statistics = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.BS_Want = New System.Windows.Forms.BindingSource(Me.components) + CType(Me.pnl_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Emu_Games.SuspendLayout() + CType(Me.splt_FilterUI_grdMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_FilterUI_grdMain.SuspendLayout() + CType(Me.accordion_FilterUI, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Want, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Have, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Trade, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Fav, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tlp_Combos.SuspendLayout() + CType(Me.pnl_31, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_31.SuspendLayout() + CType(Me.txb_Search.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_32, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_32.SuspendLayout() + CType(Me.cmb_Similarity_Calculation_Results.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Similarity_Calculation_Results, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_22, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_22.SuspendLayout() + CType(Me.cmb_Groups.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Group, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_12, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_12.SuspendLayout() + CType(Me.cmb_Filterset.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_FilterSets, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_21, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_21.SuspendLayout() + CType(Me.cmb_Staff.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Developer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_11, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_11.SuspendLayout() + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.filteringUIContext, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tcl_App, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_App.SuspendLayout() + Me.tpg_Summary.SuspendLayout() + Me.tpg_TechnicalSpecs.SuspendLayout() + CType(Me.grd_TechnicalSpecs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_TechnicalSpecs, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Stats.SuspendLayout() + CType(Me.grd_Statistics, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emu_Games_History, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Statistics, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Rating.SuspendLayout() + CType(Me.LinearGauge5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleComponent5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearGauge4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleComponent4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearGauge3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleComponent3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearGauge2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleComponent2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearGauge1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleComponent1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LinearScaleStateIndicatorComponent5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Game_Groups.SuspendLayout() + CType(Me.grd_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Game_Groups, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Staff.SuspendLayout() + CType(Me.grd_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Releases_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Have.SuspendLayout() + CType(Me.grd_Have, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Have, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.crdv_Have, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_Have_Comments, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Main.SuspendLayout() + CType(Me.spltpnl_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Details.SuspendLayout() + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Emu, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_GameGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Staff, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Extras, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Statistics, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Want, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl_Emu_Games + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_Emu_Games, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_Emu_Games.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Emu_Games.Controls.Add(Me.splt_FilterUI_grdMain) + Me.pnl_Emu_Games.Controls.Add(Me.tlp_Combos) + Me.pnl_Emu_Games.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Emu_Games.Location = New System.Drawing.Point(0, 0) + Me.pnl_Emu_Games.Name = "pnl_Emu_Games" + Me.pnl_Emu_Games.Size = New System.Drawing.Size(488, 600) + Me.pnl_Emu_Games.TabIndex = 0 + ' + 'splt_FilterUI_grdMain + ' + Me.splt_FilterUI_grdMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.splt_FilterUI_grdMain.Collapsed = True + Me.splt_FilterUI_grdMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.splt_FilterUI_grdMain.Location = New System.Drawing.Point(3, 70) + Me.splt_FilterUI_grdMain.Name = "splt_FilterUI_grdMain" + Me.splt_FilterUI_grdMain.Panel1.Controls.Add(Me.accordion_FilterUI) + Me.splt_FilterUI_grdMain.Panel1.Controls.Add(Me.lbl_QuickFilter) + Me.splt_FilterUI_grdMain.Panel1.Text = "Panel1" + Me.splt_FilterUI_grdMain.Panel2.Controls.Add(Me.grd_Emu_Games) + Me.splt_FilterUI_grdMain.Panel2.Text = "Panel2" + Me.splt_FilterUI_grdMain.Size = New System.Drawing.Size(483, 527) + Me.splt_FilterUI_grdMain.SplitterPosition = 171 + Me.splt_FilterUI_grdMain.TabIndex = 7 + Me.splt_FilterUI_grdMain.Text = "Ctl_MKDXSplitPanel1" + Me.splt_FilterUI_grdMain.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'accordion_FilterUI + ' + Me.accordion_FilterUI.Dock = System.Windows.Forms.DockStyle.Fill + Me.accordion_FilterUI.Elements.AddRange(New DevExpress.XtraBars.Navigation.AccordionControlElement() {Me.AccordionControlElement2}) + Me.accordion_FilterUI.ExpandElementMode = DevExpress.XtraBars.Navigation.ExpandElementMode.Multiple + Me.accordion_FilterUI.Location = New System.Drawing.Point(0, 27) + Me.accordion_FilterUI.Name = "accordion_FilterUI" + Me.accordion_FilterUI.Size = New System.Drawing.Size(0, 0) + Me.accordion_FilterUI.TabIndex = 0 + Me.accordion_FilterUI.Text = "AccordionControl1" + ' + 'AccordionControlElement2 + ' + Me.AccordionControlElement2.Expanded = True + Me.AccordionControlElement2.HeaderVisible = False + Me.AccordionControlElement2.Name = "AccordionControlElement2" + ' + 'lbl_QuickFilter + ' + Me.lbl_QuickFilter.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_QuickFilter.AutoEllipsis = True + Me.lbl_QuickFilter.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_QuickFilter.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_QuickFilter.Location = New System.Drawing.Point(0, 0) + Me.lbl_QuickFilter.MKBoundControl1 = Nothing + Me.lbl_QuickFilter.MKBoundControl2 = Nothing + Me.lbl_QuickFilter.MKBoundControl3 = Nothing + Me.lbl_QuickFilter.MKBoundControl4 = Nothing + Me.lbl_QuickFilter.MKBoundControl5 = Nothing + Me.lbl_QuickFilter.Name = "lbl_QuickFilter" + Me.lbl_QuickFilter.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_QuickFilter.Size = New System.Drawing.Size(0, 27) + Me.lbl_QuickFilter.TabIndex = 5 + Me.lbl_QuickFilter.Text = "Quick Filter" + ' + 'grd_Emu_Games + ' + Me.grd_Emu_Games.DataSource = Me.BS_Emu_Games + Me.grd_Emu_Games.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Append.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.CancelEdit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Edit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.EndEdit.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.First.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Last.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Next.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.NextPage.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Prev.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.PrevPage.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.Buttons.Remove.Visible = False + Me.grd_Emu_Games.EmbeddedNavigator.TextStringFormat = "{0} of {1}" + Me.grd_Emu_Games.Location = New System.Drawing.Point(0, 0) + Me.grd_Emu_Games.MainView = Me.gv_Emu_Games + Me.grd_Emu_Games.MenuManager = Me.barmng + Me.grd_Emu_Games.Name = "grd_Emu_Games" + Me.grd_Emu_Games.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Fav, Me.RepositoryItemCheckEdit1, Me.rpi_Have, Me.rpi_Want, Me.rpi_Trade}) + Me.grd_Emu_Games.Size = New System.Drawing.Size(478, 527) + Me.grd_Emu_Games.TabIndex = 0 + Me.grd_Emu_Games.UseEmbeddedNavigator = True + Me.grd_Emu_Games.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Emu_Games}) + ' + 'BS_Emu_Games + ' + Me.BS_Emu_Games.DataMember = "src_ucr_Emulation_Games" + Me.BS_Emu_Games.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'gv_Emu_Games + ' + Me.gv_Emu_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSimilarity, Me.colPlatform_Short, Me.colGame, Me.colWant, Me.colHave, Me.colTrade, Me.coltmp_Highlighted, Me.colFolder, Me.colFile, Me.colInnerFile, Me.colRegions, Me.colLanguages, Me.colVersion, Me.colRank, Me.colScore, Me.colRating, Me.colYear, Me.colAdded, Me.colNum_Played, Me.colNum_Runtime, Me.colLast_Played, Me.colFavourite, Me.colPlatform_Exclusive, Me.colAge_Pessimistic, Me.colAge_Optimistic, Me.colPublisher, Me.colDeveloper, Me.colBasic_Genres, Me.colPerspectives, Me.colVisual_Presentation, Me.colPacing, Me.colGameplay, Me.colInterface_Control, Me.colSports_Themes, Me.colEducational_Categories, Me.colVehicular_Themes, Me.colSetting, Me.colNarrative_Theme_Topic, Me.colDLC_Addon, Me.colSpecial_Edition, Me.colOther_Attributes, Me.colMinPlayers, Me.colMaxPlayers, Me.colAlt, Me.colTrainer, Me.colTranslation, Me.colHack, Me.colBios, Me.colPrototype, Me.colAlpha, Me.colBeta, Me.colSample, Me.colKiosk, Me.colUnlicensed, Me.colFixed, Me.colPirated, Me.colGood, Me.colBad, Me.colOverdump, Me.colPublicDomain, Me.colRating_Gameplay, Me.colRating_Personal, Me.colRating_Graphics, Me.colRating_Sound, Me.colRating_Story, Me.colMP_GameModes, Me.colMP_Options, Me.col001_Platform, Me.col002_MobyRank, Me.col003_MobyScore, Me.col004_Publisher, Me.col005_Developer, Me.col006_Year, Me.col101_Basic_Genres, Me.col102_Perspectives, Me.col107_Visual_Presentation, Me.col109_Pacing, Me.col108_Gameplay, Me.col113_Interface_Control, Me.col103_Sports_Themes, Me.col105_Educational_Categories, Me.col112_Vehicular_Themes, Me.col111_Setting, Me.col110_Narrative_Theme_Topic, Me.col114_DLC_Addon, Me.col115_Special_Edition, Me.col106_Other_Attributes, Me.col201_MinPlayers, Me.col202_MaxPlayers, Me.col203_AgeO, Me.col204_AgeP, Me.col205_Rating_Descriptors, Me.col207_Multiplayer_Attributes, Me.col206_Other_Attributes, Me.col301_Group_Membership, Me.col401_Staff, Me.colid_Emu_Games, Me.colid_Moby_Games, Me.colid_Moby_Platforms, Me.colid_Moby_Releases, Me.colid_DOSBox_Configs, Me.colid_DOSBox_Configs_Template}) + Me.gv_Emu_Games.GridControl = Me.grd_Emu_Games + Me.gv_Emu_Games.Name = "gv_Emu_Games" + Me.gv_Emu_Games.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Emu_Games.OptionsSelection.MultiSelect = True + Me.gv_Emu_Games.OptionsView.ColumnAutoWidth = False + Me.gv_Emu_Games.OptionsView.ShowAutoFilterRow = True + Me.gv_Emu_Games.OptionsView.ShowGroupPanel = False + ' + 'colSimilarity + ' + Me.colSimilarity.Caption = "«Similarity»" + Me.colSimilarity.FieldName = "Similarity" + Me.colSimilarity.Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + Me.colSimilarity.Name = "colSimilarity" + Me.colSimilarity.OptionsColumn.AllowEdit = False + Me.colSimilarity.OptionsColumn.AllowShowHide = False + Me.colSimilarity.OptionsColumn.ReadOnly = True + Me.colSimilarity.ToolTip = "The total similarity score (0-100)" + ' + 'colPlatform_Short + ' + Me.colPlatform_Short.Caption = "Platform" + Me.colPlatform_Short.FieldName = "Platform_Short" + Me.colPlatform_Short.Name = "colPlatform_Short" + Me.colPlatform_Short.OptionsColumn.AllowEdit = False + Me.colPlatform_Short.OptionsColumn.ReadOnly = True + Me.colPlatform_Short.ToolTip = "Abbreviation of the game's platform" + Me.colPlatform_Short.Visible = True + Me.colPlatform_Short.VisibleIndex = 1 + ' + 'colGame + ' + Me.colGame.FieldName = "Game" + Me.colGame.Name = "colGame" + Me.colGame.OptionsColumn.AllowEdit = False + Me.colGame.OptionsColumn.ReadOnly = True + Me.colGame.ToolTip = "Name of the game" + Me.colGame.Visible = True + Me.colGame.VisibleIndex = 3 + Me.colGame.Width = 182 + ' + 'colWant + ' + Me.colWant.ColumnEdit = Me.rpi_Want + Me.colWant.FieldName = "Want" + Me.colWant.Name = "colWant" + Me.colWant.OptionsColumn.AllowEdit = False + Me.colWant.OptionsColumn.ReadOnly = True + Me.colWant.ToolTip = "Mark games you want to buy a physical copy of" + Me.colWant.Visible = True + Me.colWant.VisibleIndex = 7 + Me.colWant.Width = 45 + ' + 'rpi_Want + ' + Me.rpi_Want.AutoHeight = False + Me.rpi_Want.Name = "rpi_Want" + ' + 'colHave + ' + Me.colHave.ColumnEdit = Me.rpi_Have + Me.colHave.FieldName = "Have" + Me.colHave.Name = "colHave" + Me.colHave.OptionsColumn.AllowEdit = False + Me.colHave.OptionsColumn.ReadOnly = True + Me.colHave.ToolTip = "Mark games you have a physical copy of" + Me.colHave.Visible = True + Me.colHave.VisibleIndex = 8 + Me.colHave.Width = 44 + ' + 'rpi_Have + ' + Me.rpi_Have.AutoHeight = False + Me.rpi_Have.Name = "rpi_Have" + ' + 'colTrade + ' + Me.colTrade.ColumnEdit = Me.rpi_Trade + Me.colTrade.FieldName = "Trade" + Me.colTrade.Name = "colTrade" + Me.colTrade.OptionsColumn.AllowEdit = False + Me.colTrade.OptionsColumn.ReadOnly = True + Me.colTrade.ToolTip = "Mark games you have a physical copy up for trade/sell" + Me.colTrade.Visible = True + Me.colTrade.VisibleIndex = 9 + Me.colTrade.Width = 46 + ' + 'rpi_Trade + ' + Me.rpi_Trade.AutoHeight = False + Me.rpi_Trade.Name = "rpi_Trade" + ' + 'coltmp_Highlighted + ' + Me.coltmp_Highlighted.Caption = "Highlighted" + Me.coltmp_Highlighted.ColumnEdit = Me.rpi_Fav + Me.coltmp_Highlighted.FieldName = "tmp_Highlighted" + Me.coltmp_Highlighted.Name = "coltmp_Highlighted" + Me.coltmp_Highlighted.OptionsColumn.AllowEdit = False + Me.coltmp_Highlighted.OptionsColumn.ReadOnly = True + Me.coltmp_Highlighted.ToolTip = "Highlight this game (this is temporary and will not be saved to the database)" + Me.coltmp_Highlighted.Visible = True + Me.coltmp_Highlighted.VisibleIndex = 2 + ' + 'rpi_Fav + ' + Me.rpi_Fav.AutoHeight = False + Me.rpi_Fav.Name = "rpi_Fav" + ' + 'colFolder + ' + Me.colFolder.Caption = "Directory" + Me.colFolder.FieldName = "Folder" + Me.colFolder.Name = "colFolder" + Me.colFolder.OptionsColumn.AllowEdit = False + Me.colFolder.OptionsColumn.ReadOnly = True + Me.colFolder.ToolTip = "Directory of the game's file/s" + ' + 'colFile + ' + Me.colFile.FieldName = "File" + Me.colFile.Name = "colFile" + Me.colFile.OptionsColumn.AllowEdit = False + Me.colFile.OptionsColumn.ReadOnly = True + Me.colFile.ToolTip = "Filename of the game" + ' + 'colInnerFile + ' + Me.colInnerFile.FieldName = "InnerFile" + Me.colInnerFile.Name = "colInnerFile" + Me.colInnerFile.OptionsColumn.AllowEdit = False + Me.colInnerFile.OptionsColumn.ReadOnly = True + Me.colInnerFile.ToolTip = "Inner file name of the game (e.g. a file within a .zip)" + ' + 'colRegions + ' + Me.colRegions.FieldName = "Regions" + Me.colRegions.Name = "colRegions" + Me.colRegions.OptionsColumn.AllowEdit = False + Me.colRegions.OptionsColumn.ReadOnly = True + Me.colRegions.ToolTip = "Regions of the release" + Me.colRegions.Visible = True + Me.colRegions.VisibleIndex = 27 + ' + 'colLanguages + ' + Me.colLanguages.FieldName = "Languages" + Me.colLanguages.Name = "colLanguages" + Me.colLanguages.OptionsColumn.AllowEdit = False + Me.colLanguages.OptionsColumn.ReadOnly = True + Me.colLanguages.ToolTip = "Languages supported by the game, (En) is used when no language has been explicitl" & + "y specified" + Me.colLanguages.Visible = True + Me.colLanguages.VisibleIndex = 28 + ' + 'colVersion + ' + Me.colVersion.FieldName = "Version" + Me.colVersion.Name = "colVersion" + Me.colVersion.OptionsColumn.AllowEdit = False + Me.colVersion.OptionsColumn.ReadOnly = True + Me.colVersion.ToolTip = "Version info of the release" + ' + 'colRank + ' + Me.colRank.FieldName = "Rank" + Me.colRank.Name = "colRank" + Me.colRank.OptionsColumn.AllowEdit = False + Me.colRank.OptionsColumn.ReadOnly = True + Me.colRank.ToolTip = "100 point rank based on reviews from various critics" + Me.colRank.Visible = True + Me.colRank.VisibleIndex = 11 + ' + 'colScore + ' + Me.colScore.FieldName = "Score" + Me.colScore.Name = "colScore" + Me.colScore.OptionsColumn.AllowEdit = False + Me.colScore.OptionsColumn.ReadOnly = True + Me.colScore.ToolTip = "5 point score based on mobygames user ratings" + Me.colScore.Visible = True + Me.colScore.VisibleIndex = 12 + ' + 'colRating + ' + Me.colRating.Caption = "Rating" + Me.colRating.FieldName = "Rating" + Me.colRating.Name = "colRating" + Me.colRating.OptionsColumn.AllowEdit = False + Me.colRating.OptionsColumn.ReadOnly = True + Me.colRating.ToolTip = "Your total rating calculated from Gameplay, Graphics, Sound etc. and rating weigh" & + "ts" + Me.colRating.Visible = True + Me.colRating.VisibleIndex = 10 + ' + 'colYear + ' + Me.colYear.FieldName = "Year" + Me.colYear.Name = "colYear" + Me.colYear.OptionsColumn.AllowEdit = False + Me.colYear.OptionsColumn.ReadOnly = True + Me.colYear.ToolTip = "Year of the game's release" + Me.colYear.Visible = True + Me.colYear.VisibleIndex = 6 + Me.colYear.Width = 67 + ' + 'colAdded + ' + Me.colAdded.Caption = "Added" + Me.colAdded.DisplayFormat.FormatString = "g" + Me.colAdded.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colAdded.FieldName = "created" + Me.colAdded.Name = "colAdded" + Me.colAdded.OptionsColumn.AllowEdit = False + Me.colAdded.OptionsColumn.ReadOnly = True + Me.colAdded.ToolTip = "Date and time when the game has been added to Metropolis Launcher" + Me.colAdded.Visible = True + Me.colAdded.VisibleIndex = 19 + Me.colAdded.Width = 95 + ' + 'colNum_Played + ' + Me.colNum_Played.Caption = "Plays" + Me.colNum_Played.FieldName = "Num_Played" + Me.colNum_Played.Name = "colNum_Played" + Me.colNum_Played.OptionsColumn.AllowEdit = False + Me.colNum_Played.OptionsColumn.ReadOnly = True + Me.colNum_Played.ToolTip = "Your total number of plays (Statistics feature has to be activated in the Setting" & + "s)" + Me.colNum_Played.Visible = True + Me.colNum_Played.VisibleIndex = 14 + ' + 'colNum_Runtime + ' + Me.colNum_Runtime.Caption = "Runtime" + Me.colNum_Runtime.FieldName = "Num_Runtime" + Me.colNum_Runtime.Name = "colNum_Runtime" + Me.colNum_Runtime.OptionsColumn.AllowEdit = False + Me.colNum_Runtime.OptionsColumn.ReadOnly = True + Me.colNum_Runtime.ToolTip = "Your total runtime (Statistics feature has to be activated in the Settings)" + Me.colNum_Runtime.Visible = True + Me.colNum_Runtime.VisibleIndex = 15 + ' + 'colLast_Played + ' + Me.colLast_Played.Caption = "Last play" + Me.colLast_Played.DisplayFormat.FormatString = "g" + Me.colLast_Played.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colLast_Played.FieldName = "Last_Played" + Me.colLast_Played.Name = "colLast_Played" + Me.colLast_Played.OptionsColumn.AllowEdit = False + Me.colLast_Played.OptionsColumn.ReadOnly = True + Me.colLast_Played.ToolTip = "Date and time of the last play session (Statistics feature has to be activated in" & + " the Settings)" + Me.colLast_Played.Visible = True + Me.colLast_Played.VisibleIndex = 13 + ' + 'colFavourite + ' + Me.colFavourite.Caption = "Fav" + Me.colFavourite.ColumnEdit = Me.rpi_Fav + Me.colFavourite.FieldName = "Favourite" + Me.colFavourite.Name = "colFavourite" + Me.colFavourite.OptionsColumn.AllowEdit = False + Me.colFavourite.OptionsColumn.ReadOnly = True + Me.colFavourite.ToolTip = "Mark your favourite games" + Me.colFavourite.Visible = True + Me.colFavourite.VisibleIndex = 0 + Me.colFavourite.Width = 33 + ' + 'colPlatform_Exclusive + ' + Me.colPlatform_Exclusive.Caption = "Exclusive" + Me.colPlatform_Exclusive.ColumnEdit = Me.rpi_Fav + Me.colPlatform_Exclusive.FieldName = "Platform_Exclusive" + Me.colPlatform_Exclusive.Name = "colPlatform_Exclusive" + Me.colPlatform_Exclusive.OptionsColumn.AllowEdit = False + Me.colPlatform_Exclusive.OptionsColumn.ReadOnly = True + Me.colPlatform_Exclusive.ToolTip = "The game is only available on a single platform (only platforms supported by Metr" & + "opolis Launcher are considered)" + Me.colPlatform_Exclusive.Visible = True + Me.colPlatform_Exclusive.VisibleIndex = 16 + Me.colPlatform_Exclusive.Width = 33 + ' + 'colAge_Pessimistic + ' + Me.colAge_Pessimistic.Caption = "AgeP" + Me.colAge_Pessimistic.FieldName = "Age_Pessimistic" + Me.colAge_Pessimistic.Name = "colAge_Pessimistic" + Me.colAge_Pessimistic.OptionsColumn.AllowEdit = False + Me.colAge_Pessimistic.OptionsColumn.ReadOnly = True + Me.colAge_Pessimistic.ToolTip = "Pessimistic age rating (multiple ratings may apply, the pessimistic age is the ma" & + "ximum age by all ratings)" + Me.colAge_Pessimistic.Visible = True + Me.colAge_Pessimistic.VisibleIndex = 17 + ' + 'colAge_Optimistic + ' + Me.colAge_Optimistic.Caption = "AgeO" + Me.colAge_Optimistic.FieldName = "Age_Optimistic" + Me.colAge_Optimistic.Name = "colAge_Optimistic" + Me.colAge_Optimistic.OptionsColumn.AllowEdit = False + Me.colAge_Optimistic.OptionsColumn.ReadOnly = True + Me.colAge_Optimistic.ToolTip = "Optimistic age rating (multiple ratings may apply, the optimistic age is the mini" & + "mum age by all ratings)" + Me.colAge_Optimistic.Visible = True + Me.colAge_Optimistic.VisibleIndex = 18 + ' + 'colPublisher + ' + Me.colPublisher.FieldName = "Publisher" + Me.colPublisher.Name = "colPublisher" + Me.colPublisher.OptionsColumn.AllowEdit = False + Me.colPublisher.OptionsColumn.ReadOnly = True + Me.colPublisher.ToolTip = "Publishing company of the game's release" + Me.colPublisher.Visible = True + Me.colPublisher.VisibleIndex = 20 + ' + 'colDeveloper + ' + Me.colDeveloper.FieldName = "Developer" + Me.colDeveloper.Name = "colDeveloper" + Me.colDeveloper.OptionsColumn.AllowEdit = False + Me.colDeveloper.OptionsColumn.ReadOnly = True + Me.colDeveloper.ToolTip = "Developing company of the game's release" + Me.colDeveloper.Visible = True + Me.colDeveloper.VisibleIndex = 21 + ' + 'colBasic_Genres + ' + Me.colBasic_Genres.Caption = "Genres" + Me.colBasic_Genres.FieldName = "Basic_Genres" + Me.colBasic_Genres.Name = "colBasic_Genres" + Me.colBasic_Genres.OptionsColumn.AllowEdit = False + Me.colBasic_Genres.OptionsColumn.ReadOnly = True + Me.colBasic_Genres.ToolTip = "Basic genres of the game (e.g. Action, Adventure, Strategy etc.)" + Me.colBasic_Genres.Visible = True + Me.colBasic_Genres.VisibleIndex = 4 + Me.colBasic_Genres.Width = 116 + ' + 'colPerspectives + ' + Me.colPerspectives.Caption = "Perspectives" + Me.colPerspectives.FieldName = "Perspectives" + Me.colPerspectives.Name = "colPerspectives" + Me.colPerspectives.OptionsColumn.AllowEdit = False + Me.colPerspectives.OptionsColumn.ReadOnly = True + Me.colPerspectives.ToolTip = "Perspectives of the game (e.g. 1st-person, 3rd-person, Audio game, Top-down etc.)" & + "" + Me.colPerspectives.Visible = True + Me.colPerspectives.VisibleIndex = 5 + Me.colPerspectives.Width = 119 + ' + 'colVisual_Presentation + ' + Me.colVisual_Presentation.Caption = "Visual Presentation" + Me.colVisual_Presentation.FieldName = "Visual_Presentation" + Me.colVisual_Presentation.Name = "colVisual_Presentation" + Me.colVisual_Presentation.OptionsColumn.AllowEdit = False + Me.colVisual_Presentation.OptionsColumn.ReadOnly = True + Me.colVisual_Presentation.ToolTip = "Visual Presentation of the game (e.g. 2D scrolling, Fixed / Flip-screen, Isometri" & + "c etc.)" + Me.colVisual_Presentation.Visible = True + Me.colVisual_Presentation.VisibleIndex = 31 + ' + 'colPacing + ' + Me.colPacing.Caption = "Pacing" + Me.colPacing.FieldName = "Pacing" + Me.colPacing.Name = "colPacing" + Me.colPacing.OptionsColumn.AllowEdit = False + Me.colPacing.OptionsColumn.ReadOnly = True + Me.colPacing.ToolTip = "Pacing of the game (e.g. Persistent, Real-Time, Turn-based etc.)" + Me.colPacing.Visible = True + Me.colPacing.VisibleIndex = 35 + ' + 'colGameplay + ' + Me.colGameplay.Caption = "Gameplay" + Me.colGameplay.FieldName = "Gameplay" + Me.colGameplay.Name = "colGameplay" + Me.colGameplay.OptionsColumn.AllowEdit = False + Me.colGameplay.OptionsColumn.ReadOnly = True + Me.colGameplay.ToolTip = "Gameplay of the game (e.g. Action RPG, Arcade, Beat 'em up / Brawler, Fighting, G" & + "raphic Adventure etc.)" + Me.colGameplay.Visible = True + Me.colGameplay.VisibleIndex = 34 + ' + 'colInterface_Control + ' + Me.colInterface_Control.Caption = "Interface / Control" + Me.colInterface_Control.FieldName = "Interface_Control" + Me.colInterface_Control.Name = "colInterface_Control" + Me.colInterface_Control.OptionsColumn.AllowEdit = False + Me.colInterface_Control.OptionsColumn.ReadOnly = True + Me.colInterface_Control.ToolTip = "Interface/Control of the game (e.g. Direct Control, Motion Control, Point and Sel" & + "ect, Text Parser etc.)" + Me.colInterface_Control.Visible = True + Me.colInterface_Control.VisibleIndex = 38 + ' + 'colSports_Themes + ' + Me.colSports_Themes.Caption = "Sports Themes" + Me.colSports_Themes.FieldName = "Sports_Themes" + Me.colSports_Themes.Name = "colSports_Themes" + Me.colSports_Themes.OptionsColumn.AllowEdit = False + Me.colSports_Themes.OptionsColumn.ReadOnly = True + Me.colSports_Themes.ToolTip = "Sports themes of the game (e.g. Basketball, Football (European) / Soccer, Golf et" & + "c.)" + Me.colSports_Themes.Visible = True + Me.colSports_Themes.VisibleIndex = 22 + Me.colSports_Themes.Width = 90 + ' + 'colEducational_Categories + ' + Me.colEducational_Categories.Caption = "Educational Categories" + Me.colEducational_Categories.FieldName = "Educational_Categories" + Me.colEducational_Categories.Name = "colEducational_Categories" + Me.colEducational_Categories.OptionsColumn.AllowEdit = False + Me.colEducational_Categories.OptionsColumn.ReadOnly = True + Me.colEducational_Categories.ToolTip = "Educational categories of the game (e.g. Foreign Language, History, Math / Logic," & + " Typing etc.)" + Me.colEducational_Categories.Visible = True + Me.colEducational_Categories.VisibleIndex = 23 + Me.colEducational_Categories.Width = 129 + ' + 'colVehicular_Themes + ' + Me.colVehicular_Themes.Caption = "Vehicular Themes" + Me.colVehicular_Themes.FieldName = "Vehicular_Themes" + Me.colVehicular_Themes.Name = "colVehicular_Themes" + Me.colVehicular_Themes.OptionsColumn.AllowEdit = False + Me.colVehicular_Themes.OptionsColumn.ReadOnly = True + Me.colVehicular_Themes.ToolTip = "Vehicular themes of the game (e.g. Automobile, Bike / Bicycling, Flight / Aviatio" & + "n etc.)" + Me.colVehicular_Themes.Visible = True + Me.colVehicular_Themes.VisibleIndex = 30 + ' + 'colSetting + ' + Me.colSetting.Caption = "Setting" + Me.colSetting.FieldName = "Setting" + Me.colSetting.Name = "colSetting" + Me.colSetting.OptionsColumn.AllowEdit = False + Me.colSetting.OptionsColumn.ReadOnly = True + Me.colSetting.ToolTip = "Geographical/epochal setting of the game (e.g. Cyberpunk / Dark Sci-Fi, Industria" & + "l Age, Japan, Europe etc.)" + Me.colSetting.Visible = True + Me.colSetting.VisibleIndex = 37 + ' + 'colNarrative_Theme_Topic + ' + Me.colNarrative_Theme_Topic.Caption = "Narrative Theme / Topic" + Me.colNarrative_Theme_Topic.FieldName = "Narrative_Theme_Topic" + Me.colNarrative_Theme_Topic.Name = "colNarrative_Theme_Topic" + Me.colNarrative_Theme_Topic.OptionsColumn.AllowEdit = False + Me.colNarrative_Theme_Topic.OptionsColumn.ReadOnly = True + Me.colNarrative_Theme_Topic.ToolTip = "Narrative theme / topic of the game (e.g. Comedy, Crime, Horror, Survival etc.)" + Me.colNarrative_Theme_Topic.Visible = True + Me.colNarrative_Theme_Topic.VisibleIndex = 36 + ' + 'colDLC_Addon + ' + Me.colDLC_Addon.Caption = "DLC/Add-On" + Me.colDLC_Addon.FieldName = "DLC_Addon" + Me.colDLC_Addon.Name = "colDLC_Addon" + Me.colDLC_Addon.OptionsColumn.AllowEdit = False + Me.colDLC_Addon.OptionsColumn.ReadOnly = True + Me.colDLC_Addon.ToolTip = "The game's release is a DLC/Add-on (e.g. Customization / Outfit / Skin, Game Mode" & + ", Map / Level etc.)" + Me.colDLC_Addon.Visible = True + Me.colDLC_Addon.VisibleIndex = 33 + ' + 'colSpecial_Edition + ' + Me.colSpecial_Edition.Caption = "Special Edition" + Me.colSpecial_Edition.FieldName = "Special_Edition" + Me.colSpecial_Edition.Name = "colSpecial_Edition" + Me.colSpecial_Edition.OptionsColumn.AllowEdit = False + Me.colSpecial_Edition.OptionsColumn.ReadOnly = True + Me.colSpecial_Edition.ToolTip = "The game's release is a special edition (e.g. Digital Extras, Extra Content/Game," & + " Physical Extras)" + Me.colSpecial_Edition.Visible = True + Me.colSpecial_Edition.VisibleIndex = 39 + ' + 'colOther_Attributes + ' + Me.colOther_Attributes.Caption = "Other Attributes" + Me.colOther_Attributes.FieldName = "Other_Attributes" + Me.colOther_Attributes.Name = "colOther_Attributes" + Me.colOther_Attributes.OptionsColumn.AllowEdit = False + Me.colOther_Attributes.OptionsColumn.ReadOnly = True + Me.colOther_Attributes.ToolTip = "Other attributes of the game (e.g. Licensed Title etc.)" + Me.colOther_Attributes.Visible = True + Me.colOther_Attributes.VisibleIndex = 24 + Me.colOther_Attributes.Width = 98 + ' + 'colMinPlayers + ' + Me.colMinPlayers.Caption = "Min. Players" + Me.colMinPlayers.FieldName = "MinPlayers" + Me.colMinPlayers.Name = "colMinPlayers" + Me.colMinPlayers.OptionsColumn.AllowEdit = False + Me.colMinPlayers.OptionsColumn.ReadOnly = True + Me.colMinPlayers.ToolTip = "Minimum number of players supported by the game" + Me.colMinPlayers.Visible = True + Me.colMinPlayers.VisibleIndex = 25 + ' + 'colMaxPlayers + ' + Me.colMaxPlayers.Caption = "Max. Players" + Me.colMaxPlayers.FieldName = "MaxPlayers" + Me.colMaxPlayers.Name = "colMaxPlayers" + Me.colMaxPlayers.OptionsColumn.AllowEdit = False + Me.colMaxPlayers.OptionsColumn.ReadOnly = True + Me.colMaxPlayers.ToolTip = "Maximum number of players supported by the game" + Me.colMaxPlayers.Visible = True + Me.colMaxPlayers.VisibleIndex = 26 + ' + 'colAlt + ' + Me.colAlt.FieldName = "Alt" + Me.colAlt.Name = "colAlt" + Me.colAlt.OptionsColumn.AllowEdit = False + Me.colAlt.OptionsColumn.ReadOnly = True + Me.colAlt.ToolTip = "Denotes if the release is an alternate dump" + ' + 'colTrainer + ' + Me.colTrainer.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colTrainer.FieldName = "Trainer" + Me.colTrainer.Name = "colTrainer" + Me.colTrainer.OptionsColumn.AllowEdit = False + Me.colTrainer.OptionsColumn.ReadOnly = True + Me.colTrainer.ToolTip = "Denotes if the release contains a trainer (for cheating)" + ' + 'RepositoryItemCheckEdit1 + ' + Me.RepositoryItemCheckEdit1.AutoHeight = False + Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" + Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'colTranslation + ' + Me.colTranslation.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colTranslation.FieldName = "Translation" + Me.colTranslation.Name = "colTranslation" + Me.colTranslation.OptionsColumn.AllowEdit = False + Me.colTranslation.OptionsColumn.ReadOnly = True + Me.colTranslation.ToolTip = "Denotes if the release is an unofficially translated version of the game" + ' + 'colHack + ' + Me.colHack.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colHack.FieldName = "Hack" + Me.colHack.Name = "colHack" + Me.colHack.OptionsColumn.AllowEdit = False + Me.colHack.OptionsColumn.ReadOnly = True + Me.colHack.ToolTip = "Denotes if the release is a modified/hacked version of the game" + ' + 'colBios + ' + Me.colBios.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colBios.FieldName = "Bios" + Me.colBios.Name = "colBios" + Me.colBios.OptionsColumn.AllowEdit = False + Me.colBios.OptionsColumn.ReadOnly = True + Me.colBios.ToolTip = "Denotes if the release is a bios image (instead of an actual game)" + ' + 'colPrototype + ' + Me.colPrototype.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colPrototype.FieldName = "Prototype" + Me.colPrototype.Name = "colPrototype" + Me.colPrototype.OptionsColumn.AllowEdit = False + Me.colPrototype.OptionsColumn.ReadOnly = True + Me.colPrototype.ToolTip = "Denotes if the release is a prototype of the game" + ' + 'colAlpha + ' + Me.colAlpha.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colAlpha.FieldName = "Alpha" + Me.colAlpha.Name = "colAlpha" + Me.colAlpha.OptionsColumn.AllowEdit = False + Me.colAlpha.OptionsColumn.ReadOnly = True + Me.colAlpha.ToolTip = "Denotes if the release is an alpha version of the game" + ' + 'colBeta + ' + Me.colBeta.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colBeta.FieldName = "Beta" + Me.colBeta.Name = "colBeta" + Me.colBeta.OptionsColumn.AllowEdit = False + Me.colBeta.OptionsColumn.ReadOnly = True + Me.colBeta.ToolTip = "Denotes if the release is a beta version of the game" + ' + 'colSample + ' + Me.colSample.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colSample.FieldName = "Sample" + Me.colSample.Name = "colSample" + Me.colSample.OptionsColumn.AllowEdit = False + Me.colSample.OptionsColumn.ReadOnly = True + Me.colSample.ToolTip = "Denotes if the release is a sample (playable demo, unregistered shareware) of the" & + " game" + ' + 'colKiosk + ' + Me.colKiosk.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colKiosk.FieldName = "Kiosk" + Me.colKiosk.Name = "colKiosk" + Me.colKiosk.OptionsColumn.AllowEdit = False + Me.colKiosk.OptionsColumn.ReadOnly = True + Me.colKiosk.ToolTip = "Denotes if the release is a kiosk version (unplayable demo) of the game" + ' + 'colUnlicensed + ' + Me.colUnlicensed.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colUnlicensed.FieldName = "Unlicensed" + Me.colUnlicensed.Name = "colUnlicensed" + Me.colUnlicensed.OptionsColumn.AllowEdit = False + Me.colUnlicensed.OptionsColumn.ReadOnly = True + Me.colUnlicensed.ToolTip = "Denotes if the game is unlicensed/bootleg" + ' + 'colFixed + ' + Me.colFixed.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colFixed.FieldName = "Fixed" + Me.colFixed.Name = "colFixed" + Me.colFixed.OptionsColumn.AllowEdit = False + Me.colFixed.OptionsColumn.ReadOnly = True + Me.colFixed.ToolTip = "Denotes if the release is a modified/fixed version of the game" + ' + 'colPirated + ' + Me.colPirated.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colPirated.FieldName = "Pirated" + Me.colPirated.Name = "colPirated" + Me.colPirated.OptionsColumn.AllowEdit = False + Me.colPirated.OptionsColumn.ReadOnly = True + Me.colPirated.ToolTip = "Denotes if the release contains pirated material (e.g. multicarts)" + ' + 'colGood + ' + Me.colGood.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colGood.FieldName = "Good" + Me.colGood.Name = "colGood" + Me.colGood.OptionsColumn.AllowEdit = False + Me.colGood.OptionsColumn.ReadOnly = True + Me.colGood.ToolTip = "Denotes if the release is a verified good dump of the game" + ' + 'colBad + ' + Me.colBad.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colBad.FieldName = "Bad" + Me.colBad.Name = "colBad" + Me.colBad.OptionsColumn.AllowEdit = False + Me.colBad.OptionsColumn.ReadOnly = True + Me.colBad.ToolTip = "Denotes if the release is a bad dump of the game" + ' + 'colOverdump + ' + Me.colOverdump.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colOverdump.FieldName = "Overdump" + Me.colOverdump.Name = "colOverdump" + Me.colOverdump.OptionsColumn.AllowEdit = False + Me.colOverdump.OptionsColumn.ReadOnly = True + Me.colOverdump.ToolTip = "Denotes if the release is an overdump of the game" + ' + 'colPublicDomain + ' + Me.colPublicDomain.ColumnEdit = Me.RepositoryItemCheckEdit1 + Me.colPublicDomain.FieldName = "PublicDomain" + Me.colPublicDomain.Name = "colPublicDomain" + Me.colPublicDomain.OptionsColumn.AllowEdit = False + Me.colPublicDomain.OptionsColumn.ReadOnly = True + Me.colPublicDomain.ToolTip = "Denotes if the game is public domain/freeware" + ' + 'colRating_Gameplay + ' + Me.colRating_Gameplay.FieldName = "Rating_Gameplay" + Me.colRating_Gameplay.Name = "colRating_Gameplay" + Me.colRating_Gameplay.OptionsColumn.AllowEdit = False + Me.colRating_Gameplay.OptionsColumn.ReadOnly = True + Me.colRating_Gameplay.ToolTip = "Your rating for how well do the game mechanics work (player controls, game action" & + ", interface, etc.)" + ' + 'colRating_Personal + ' + Me.colRating_Personal.FieldName = "Rating_Personal" + Me.colRating_Personal.Name = "colRating_Personal" + Me.colRating_Personal.OptionsColumn.AllowEdit = False + Me.colRating_Personal.OptionsColumn.ReadOnly = True + Me.colRating_Personal.ToolTip = "Your rating for how much you personally like the game, regardless of other attrib" & + "utes" + ' + 'colRating_Graphics + ' + Me.colRating_Graphics.FieldName = "Rating_Graphics" + Me.colRating_Graphics.Name = "colRating_Graphics" + Me.colRating_Graphics.OptionsColumn.AllowEdit = False + Me.colRating_Graphics.OptionsColumn.ReadOnly = True + Me.colRating_Graphics.ToolTip = "Your rating for the quality of the art, or the quality/speed of the drawing routi" & + "nes" + ' + 'colRating_Sound + ' + Me.colRating_Sound.FieldName = "Rating_Sound" + Me.colRating_Sound.Name = "colRating_Sound" + Me.colRating_Sound.OptionsColumn.AllowEdit = False + Me.colRating_Sound.OptionsColumn.ReadOnly = True + Me.colRating_Sound.ToolTip = "Your rating for the quality of the sound effects and/or music composition" + ' + 'colRating_Story + ' + Me.colRating_Story.FieldName = "Rating_Story" + Me.colRating_Story.Name = "colRating_Story" + Me.colRating_Story.OptionsColumn.AllowEdit = False + Me.colRating_Story.OptionsColumn.ReadOnly = True + Me.colRating_Story.ToolTip = "Your rating for the main creative ideas in the game and how well they're executed" & + "" + ' + 'colMP_GameModes + ' + Me.colMP_GameModes.Caption = "Multiplayer Modes" + Me.colMP_GameModes.FieldName = "MP_GameModes" + Me.colMP_GameModes.Name = "colMP_GameModes" + Me.colMP_GameModes.OptionsColumn.AllowEdit = False + Me.colMP_GameModes.OptionsColumn.ReadOnly = True + Me.colMP_GameModes.ToolTip = "Multiplayer game modes supported by the game (e.g. Free-for-all, Co-Op, Team, Bot" & + "s etc.)" + Me.colMP_GameModes.Visible = True + Me.colMP_GameModes.VisibleIndex = 29 + ' + 'colMP_Options + ' + Me.colMP_Options.Caption = "Multiplayer Options" + Me.colMP_Options.FieldName = "MP_Options" + Me.colMP_Options.Name = "colMP_Options" + Me.colMP_Options.OptionsColumn.AllowEdit = False + Me.colMP_Options.OptionsColumn.ReadOnly = True + Me.colMP_Options.ToolTip = "Multiplayer options supported by the game (e.g. Same/Splitscreen Multiplayer, Hot" & + " Seat, LAN etc.)" + Me.colMP_Options.Visible = True + Me.colMP_Options.VisibleIndex = 32 + ' + 'col001_Platform + ' + Me.col001_Platform.Caption = "«Platform»" + Me.col001_Platform.FieldName = "001_Platform" + Me.col001_Platform.Name = "col001_Platform" + Me.col001_Platform.OptionsColumn.AllowEdit = False + Me.col001_Platform.OptionsColumn.AllowShowHide = False + Me.col001_Platform.OptionsColumn.ReadOnly = True + Me.col001_Platform.OptionsColumn.ShowInExpressionEditor = False + Me.col001_Platform.ToolTip = "Similarity score (0-100) for the platforms of the games' releases" + ' + 'col002_MobyRank + ' + Me.col002_MobyRank.Caption = "«Rank»" + Me.col002_MobyRank.FieldName = "002_MobyRank" + Me.col002_MobyRank.Name = "col002_MobyRank" + Me.col002_MobyRank.OptionsColumn.AllowEdit = False + Me.col002_MobyRank.OptionsColumn.AllowShowHide = False + Me.col002_MobyRank.OptionsColumn.ReadOnly = True + Me.col002_MobyRank.OptionsColumn.ShowInExpressionEditor = False + Me.col002_MobyRank.ToolTip = "Similarity score (0-100) for the games' ranks based on reviews from various criti" & + "cs" + ' + 'col003_MobyScore + ' + Me.col003_MobyScore.Caption = "«Score»" + Me.col003_MobyScore.FieldName = "003_MobyScore" + Me.col003_MobyScore.Name = "col003_MobyScore" + Me.col003_MobyScore.OptionsColumn.AllowEdit = False + Me.col003_MobyScore.OptionsColumn.AllowShowHide = False + Me.col003_MobyScore.OptionsColumn.ReadOnly = True + Me.col003_MobyScore.OptionsColumn.ShowInExpressionEditor = False + Me.col003_MobyScore.ToolTip = "Similarity score (0-100) for the games' scores based on MobyGames user ratings" + ' + 'col004_Publisher + ' + Me.col004_Publisher.Caption = "«Publisher»" + Me.col004_Publisher.FieldName = "004_Publisher" + Me.col004_Publisher.Name = "col004_Publisher" + Me.col004_Publisher.OptionsColumn.AllowEdit = False + Me.col004_Publisher.OptionsColumn.AllowShowHide = False + Me.col004_Publisher.OptionsColumn.ReadOnly = True + Me.col004_Publisher.OptionsColumn.ShowInExpressionEditor = False + Me.col004_Publisher.ToolTip = "Similarity score (0-100) for the publishing companies of the games' releases" + ' + 'col005_Developer + ' + Me.col005_Developer.Caption = "«Developer»" + Me.col005_Developer.FieldName = "005_Developer" + Me.col005_Developer.Name = "col005_Developer" + Me.col005_Developer.OptionsColumn.AllowEdit = False + Me.col005_Developer.OptionsColumn.AllowShowHide = False + Me.col005_Developer.OptionsColumn.ReadOnly = True + Me.col005_Developer.OptionsColumn.ShowInExpressionEditor = False + Me.col005_Developer.ToolTip = "Similarity score (0-100) for the developing companies of the games' releases" + ' + 'col006_Year + ' + Me.col006_Year.Caption = "«Year»" + Me.col006_Year.FieldName = "006_Year" + Me.col006_Year.Name = "col006_Year" + Me.col006_Year.OptionsColumn.AllowEdit = False + Me.col006_Year.OptionsColumn.AllowShowHide = False + Me.col006_Year.OptionsColumn.ReadOnly = True + Me.col006_Year.OptionsColumn.ShowInExpressionEditor = False + Me.col006_Year.ToolTip = "Similarity score (0-100) for the years of the games' releases" + ' + 'col101_Basic_Genres + ' + Me.col101_Basic_Genres.Caption = "«Genres»" + Me.col101_Basic_Genres.FieldName = "101_Basic_Genres" + Me.col101_Basic_Genres.Name = "col101_Basic_Genres" + Me.col101_Basic_Genres.OptionsColumn.AllowEdit = False + Me.col101_Basic_Genres.OptionsColumn.AllowShowHide = False + Me.col101_Basic_Genres.OptionsColumn.ReadOnly = True + Me.col101_Basic_Genres.OptionsColumn.ShowInExpressionEditor = False + Me.col101_Basic_Genres.ToolTip = "Similarity score (0-100) for the basic genres of the games (e.g. Action, Adventur" & + "e, Strategy etc.)" + ' + 'col102_Perspectives + ' + Me.col102_Perspectives.Caption = "«Perspectives»" + Me.col102_Perspectives.FieldName = "102_Perspectives" + Me.col102_Perspectives.Name = "col102_Perspectives" + Me.col102_Perspectives.OptionsColumn.AllowEdit = False + Me.col102_Perspectives.OptionsColumn.AllowShowHide = False + Me.col102_Perspectives.OptionsColumn.ReadOnly = True + Me.col102_Perspectives.OptionsColumn.ShowInExpressionEditor = False + Me.col102_Perspectives.ToolTip = "Similarity score (0-100) for the perspectives of the games (e.g. 1st-person, 3rd-" & + "person, Audio game, Top-down etc.)" + ' + 'col107_Visual_Presentation + ' + Me.col107_Visual_Presentation.Caption = "«Visual Presentation»" + Me.col107_Visual_Presentation.FieldName = "107_Visual_Presentation" + Me.col107_Visual_Presentation.Name = "col107_Visual_Presentation" + Me.col107_Visual_Presentation.OptionsColumn.AllowEdit = False + Me.col107_Visual_Presentation.OptionsColumn.AllowShowHide = False + Me.col107_Visual_Presentation.OptionsColumn.ReadOnly = True + Me.col107_Visual_Presentation.OptionsColumn.ShowInExpressionEditor = False + Me.col107_Visual_Presentation.ToolTip = "Similarity score (0-100) for the visual presentations of the games (e.g. 2D scrol" & + "ling, Fixed / Flip-screen, Isometric etc.)" + ' + 'col109_Pacing + ' + Me.col109_Pacing.Caption = "«Pacing»" + Me.col109_Pacing.FieldName = "109_Pacing" + Me.col109_Pacing.Name = "col109_Pacing" + Me.col109_Pacing.OptionsColumn.AllowEdit = False + Me.col109_Pacing.OptionsColumn.AllowShowHide = False + Me.col109_Pacing.OptionsColumn.ReadOnly = True + Me.col109_Pacing.OptionsColumn.ShowInExpressionEditor = False + Me.col109_Pacing.ToolTip = "Similarity score (0-100) for the pacing characteristics of the games (e.g. Persis" & + "tent, Real-Time, Turn-based etc.)" + ' + 'col108_Gameplay + ' + Me.col108_Gameplay.Caption = "«Gameplay»" + Me.col108_Gameplay.FieldName = "108_Gameplay" + Me.col108_Gameplay.Name = "col108_Gameplay" + Me.col108_Gameplay.OptionsColumn.AllowEdit = False + Me.col108_Gameplay.OptionsColumn.AllowShowHide = False + Me.col108_Gameplay.OptionsColumn.ReadOnly = True + Me.col108_Gameplay.OptionsColumn.ShowInExpressionEditor = False + Me.col108_Gameplay.ToolTip = "Similarity score (0-100) for the gameplay characteristics of the games (e.g. Acti" & + "on RPG, Arcade, Beat 'em up / Brawler, Fighting, Graphic Adventure etc.)" + ' + 'col113_Interface_Control + ' + Me.col113_Interface_Control.Caption = "«Interface / Control»" + Me.col113_Interface_Control.FieldName = "113_Interface_Control" + Me.col113_Interface_Control.Name = "col113_Interface_Control" + Me.col113_Interface_Control.OptionsColumn.AllowEdit = False + Me.col113_Interface_Control.OptionsColumn.AllowShowHide = False + Me.col113_Interface_Control.OptionsColumn.ReadOnly = True + Me.col113_Interface_Control.OptionsColumn.ShowInExpressionEditor = False + Me.col113_Interface_Control.ToolTip = "Similarity score (0-100) for the interface/control characteristics of the games (" & + "e.g. Direct Control, Motion Control, Point and Select, Text Parser etc.)" + ' + 'col103_Sports_Themes + ' + Me.col103_Sports_Themes.Caption = "«Sports Themes»" + Me.col103_Sports_Themes.FieldName = "103_Sports_Themes" + Me.col103_Sports_Themes.Name = "col103_Sports_Themes" + Me.col103_Sports_Themes.OptionsColumn.AllowEdit = False + Me.col103_Sports_Themes.OptionsColumn.AllowShowHide = False + Me.col103_Sports_Themes.OptionsColumn.ReadOnly = True + Me.col103_Sports_Themes.OptionsColumn.ShowInExpressionEditor = False + Me.col103_Sports_Themes.ToolTip = "Similarity score (0-100) for the sports themes of the games (e.g. Basketball, Foo" & + "tball (European) / Soccer, Golf etc.)" + ' + 'col105_Educational_Categories + ' + Me.col105_Educational_Categories.Caption = "«Educational Categories»" + Me.col105_Educational_Categories.FieldName = "105_Educational_Categories" + Me.col105_Educational_Categories.Name = "col105_Educational_Categories" + Me.col105_Educational_Categories.OptionsColumn.AllowEdit = False + Me.col105_Educational_Categories.OptionsColumn.AllowShowHide = False + Me.col105_Educational_Categories.OptionsColumn.ReadOnly = True + Me.col105_Educational_Categories.OptionsColumn.ShowInExpressionEditor = False + Me.col105_Educational_Categories.ToolTip = "Similarity score (0-100) for the educational categories of the games (e.g. Foreig" & + "n Language, History, Math / Logic, Typing etc.)" + ' + 'col112_Vehicular_Themes + ' + Me.col112_Vehicular_Themes.Caption = "«Vehicular Themes»" + Me.col112_Vehicular_Themes.FieldName = "112_Vehicular_Themes" + Me.col112_Vehicular_Themes.Name = "col112_Vehicular_Themes" + Me.col112_Vehicular_Themes.OptionsColumn.AllowEdit = False + Me.col112_Vehicular_Themes.OptionsColumn.AllowShowHide = False + Me.col112_Vehicular_Themes.OptionsColumn.ReadOnly = True + Me.col112_Vehicular_Themes.OptionsColumn.ShowInExpressionEditor = False + Me.col112_Vehicular_Themes.ToolTip = "Similarity score (0-100) for the vehicular themes of the games (e.g. Automobile, " & + "Bike / Bicycling, Flight / Aviation etc.)" + ' + 'col111_Setting + ' + Me.col111_Setting.Caption = "«Setting»" + Me.col111_Setting.FieldName = "111_Setting" + Me.col111_Setting.Name = "col111_Setting" + Me.col111_Setting.OptionsColumn.AllowEdit = False + Me.col111_Setting.OptionsColumn.AllowShowHide = False + Me.col111_Setting.OptionsColumn.ReadOnly = True + Me.col111_Setting.OptionsColumn.ShowInExpressionEditor = False + Me.col111_Setting.ToolTip = "Similarity score (0-100) for the geographical/epochal settings of the games (e.g." & + " Cyberpunk / Dark Sci-Fi, Industrial Age, Japan, Europe etc.)" + ' + 'col110_Narrative_Theme_Topic + ' + Me.col110_Narrative_Theme_Topic.Caption = "«Narrative Theme / Topic»" + Me.col110_Narrative_Theme_Topic.FieldName = "110_Narrative_Theme_Topic" + Me.col110_Narrative_Theme_Topic.Name = "col110_Narrative_Theme_Topic" + Me.col110_Narrative_Theme_Topic.OptionsColumn.AllowEdit = False + Me.col110_Narrative_Theme_Topic.OptionsColumn.AllowShowHide = False + Me.col110_Narrative_Theme_Topic.OptionsColumn.ReadOnly = True + Me.col110_Narrative_Theme_Topic.OptionsColumn.ShowInExpressionEditor = False + Me.col110_Narrative_Theme_Topic.ToolTip = "Similarity score (0-100) for the narrative themes / topics of the games (e.g. Com" & + "edy, Crime, Horror, Survival etc.)" + ' + 'col114_DLC_Addon + ' + Me.col114_DLC_Addon.Caption = "«DLC / Add-On»" + Me.col114_DLC_Addon.FieldName = "114_DLC_Addon" + Me.col114_DLC_Addon.Name = "col114_DLC_Addon" + Me.col114_DLC_Addon.OptionsColumn.AllowEdit = False + Me.col114_DLC_Addon.OptionsColumn.AllowShowHide = False + Me.col114_DLC_Addon.OptionsColumn.ReadOnly = True + Me.col114_DLC_Addon.OptionsColumn.ShowInExpressionEditor = False + Me.col114_DLC_Addon.ToolTip = "Similarity score (0-100) for the games' release DLC/Add-on characteristics (e.g. " & + "Customization / Outfit / Skin, Game Mode, Map / Level etc.)" + ' + 'col115_Special_Edition + ' + Me.col115_Special_Edition.Caption = "«Special Edition»" + Me.col115_Special_Edition.FieldName = "115_Special_Edition" + Me.col115_Special_Edition.Name = "col115_Special_Edition" + Me.col115_Special_Edition.OptionsColumn.AllowEdit = False + Me.col115_Special_Edition.OptionsColumn.AllowShowHide = False + Me.col115_Special_Edition.OptionsColumn.ReadOnly = True + Me.col115_Special_Edition.OptionsColumn.ShowInExpressionEditor = False + Me.col115_Special_Edition.ToolTip = "Similarity score (0-100) for the games' release special edition characteristics (" & + "e.g. Digital Extras, Extra Content/Game, Physical Extras)" + ' + 'col106_Other_Attributes + ' + Me.col106_Other_Attributes.Caption = "«Other Attributes»" + Me.col106_Other_Attributes.FieldName = "106_Other_Attributes" + Me.col106_Other_Attributes.Name = "col106_Other_Attributes" + Me.col106_Other_Attributes.OptionsColumn.AllowEdit = False + Me.col106_Other_Attributes.OptionsColumn.AllowShowHide = False + Me.col106_Other_Attributes.OptionsColumn.ReadOnly = True + Me.col106_Other_Attributes.OptionsColumn.ShowInExpressionEditor = False + Me.col106_Other_Attributes.ToolTip = "Similarity score (0-100) for other attributes of the games (e.g. Licensed Title e" & + "tc.)" + ' + 'col201_MinPlayers + ' + Me.col201_MinPlayers.Caption = "«Min. Players»" + Me.col201_MinPlayers.FieldName = "201_MinPlayers" + Me.col201_MinPlayers.Name = "col201_MinPlayers" + Me.col201_MinPlayers.OptionsColumn.AllowEdit = False + Me.col201_MinPlayers.OptionsColumn.AllowShowHide = False + Me.col201_MinPlayers.OptionsColumn.ReadOnly = True + Me.col201_MinPlayers.OptionsColumn.ShowInExpressionEditor = False + Me.col201_MinPlayers.ToolTip = "Similarity score (0-100) for minimum number of players supported by the games" + ' + 'col202_MaxPlayers + ' + Me.col202_MaxPlayers.Caption = "«Max. Players»" + Me.col202_MaxPlayers.FieldName = "202_MaxPlayers" + Me.col202_MaxPlayers.Name = "col202_MaxPlayers" + Me.col202_MaxPlayers.OptionsColumn.AllowEdit = False + Me.col202_MaxPlayers.OptionsColumn.AllowShowHide = False + Me.col202_MaxPlayers.OptionsColumn.ReadOnly = True + Me.col202_MaxPlayers.OptionsColumn.ShowInExpressionEditor = False + Me.col202_MaxPlayers.ToolTip = "Similarity score (0-100) for maximum number of players supported by the games" + ' + 'col203_AgeO + ' + Me.col203_AgeO.Caption = "«AgeO»" + Me.col203_AgeO.FieldName = "203_AgeO" + Me.col203_AgeO.Name = "col203_AgeO" + Me.col203_AgeO.OptionsColumn.AllowEdit = False + Me.col203_AgeO.OptionsColumn.AllowShowHide = False + Me.col203_AgeO.OptionsColumn.ReadOnly = True + Me.col203_AgeO.OptionsColumn.ShowInExpressionEditor = False + Me.col203_AgeO.ToolTip = "Similarity score (0-100) for the pessimistic age rating of the games (multiple ra" & + "tings may apply, the optimistic age is the minimum age by all ratings)" + ' + 'col204_AgeP + ' + Me.col204_AgeP.Caption = "«AgeP»" + Me.col204_AgeP.FieldName = "204_AgeP" + Me.col204_AgeP.Name = "col204_AgeP" + Me.col204_AgeP.OptionsColumn.AllowEdit = False + Me.col204_AgeP.OptionsColumn.AllowShowHide = False + Me.col204_AgeP.OptionsColumn.ReadOnly = True + Me.col204_AgeP.OptionsColumn.ShowInExpressionEditor = False + Me.col204_AgeP.ToolTip = "Similarity score (0-100) for the pessimistic age rating of the games (multiple ra" & + "tings may apply, the pessimistic age is the maximum age by all ratings)" + ' + 'col205_Rating_Descriptors + ' + Me.col205_Rating_Descriptors.Caption = "«Rating Descriptors»" + Me.col205_Rating_Descriptors.FieldName = "205_Rating_Descriptors" + Me.col205_Rating_Descriptors.Name = "col205_Rating_Descriptors" + Me.col205_Rating_Descriptors.OptionsColumn.AllowEdit = False + Me.col205_Rating_Descriptors.OptionsColumn.AllowShowHide = False + Me.col205_Rating_Descriptors.OptionsColumn.ReadOnly = True + Me.col205_Rating_Descriptors.OptionsColumn.ShowInExpressionEditor = False + Me.col205_Rating_Descriptors.ToolTip = "Similarity score (0-100) for rating descriptors of the games (e.g. Strong Violenc" & + "e, Mild Use of Drugs, Animated Blood etc.)" + ' + 'col207_Multiplayer_Attributes + ' + Me.col207_Multiplayer_Attributes.Caption = "«Multiplayer Attributes»" + Me.col207_Multiplayer_Attributes.FieldName = "207_Multiplayer_Attributes" + Me.col207_Multiplayer_Attributes.Name = "col207_Multiplayer_Attributes" + Me.col207_Multiplayer_Attributes.OptionsColumn.AllowEdit = False + Me.col207_Multiplayer_Attributes.OptionsColumn.AllowShowHide = False + Me.col207_Multiplayer_Attributes.OptionsColumn.ReadOnly = True + Me.col207_Multiplayer_Attributes.OptionsColumn.ShowInExpressionEditor = False + Me.col207_Multiplayer_Attributes.ToolTip = "Similarity score (0-100) for multiplayer modes and options of the games (e.g. Fre" & + "e-for-all, Co-Op, Same/Splitscreen Multiplayer, LAN etc.)" + ' + 'col206_Other_Attributes + ' + Me.col206_Other_Attributes.Caption = "«Tech Info»" + Me.col206_Other_Attributes.FieldName = "206_Other_Attributes" + Me.col206_Other_Attributes.Name = "col206_Other_Attributes" + Me.col206_Other_Attributes.OptionsColumn.AllowEdit = False + Me.col206_Other_Attributes.OptionsColumn.AllowShowHide = False + Me.col206_Other_Attributes.OptionsColumn.ReadOnly = True + Me.col206_Other_Attributes.OptionsColumn.ShowInExpressionEditor = False + Me.col206_Other_Attributes.ToolTip = "Similarity score (0-100) for technical attributes of the games (e.g. Direct3D, Op" & + "enGL, Cartridge, CD-Rom etc.)" + ' + 'col301_Group_Membership + ' + Me.col301_Group_Membership.Caption = "«Groups»" + Me.col301_Group_Membership.FieldName = "301_Group_Membership" + Me.col301_Group_Membership.Name = "col301_Group_Membership" + Me.col301_Group_Membership.OptionsColumn.AllowEdit = False + Me.col301_Group_Membership.OptionsColumn.AllowShowHide = False + Me.col301_Group_Membership.OptionsColumn.ReadOnly = True + Me.col301_Group_Membership.OptionsColumn.ShowInExpressionEditor = False + Me.col301_Group_Membership.ToolTip = "Similarity score (0-100) for game group memberships of the games" + ' + 'col401_Staff + ' + Me.col401_Staff.Caption = "«Staff»" + Me.col401_Staff.FieldName = "401_Staff" + Me.col401_Staff.Name = "col401_Staff" + Me.col401_Staff.OptionsColumn.AllowEdit = False + Me.col401_Staff.OptionsColumn.AllowShowHide = False + Me.col401_Staff.OptionsColumn.ReadOnly = True + Me.col401_Staff.OptionsColumn.ShowInExpressionEditor = False + Me.col401_Staff.ToolTip = "Similarity score (0-100) for staff memberships of the games" + ' + 'colid_Emu_Games + ' + Me.colid_Emu_Games.FieldName = "id_Emu_Games" + Me.colid_Emu_Games.Name = "colid_Emu_Games" + Me.colid_Emu_Games.OptionsColumn.AllowEdit = False + Me.colid_Emu_Games.OptionsColumn.ReadOnly = True + Me.colid_Emu_Games.OptionsColumn.ShowInCustomizationForm = False + Me.colid_Emu_Games.OptionsColumn.ShowInExpressionEditor = False + Me.colid_Emu_Games.ToolTip = "Metropolis Launcher's internal ID of the game's entry" + ' + 'colid_Moby_Games + ' + Me.colid_Moby_Games.FieldName = "id_Moby_Games" + Me.colid_Moby_Games.Name = "colid_Moby_Games" + Me.colid_Moby_Games.OptionsColumn.AllowEdit = False + Me.colid_Moby_Games.OptionsColumn.ReadOnly = True + Me.colid_Moby_Games.OptionsColumn.ShowInCustomizationForm = False + Me.colid_Moby_Games.OptionsColumn.ShowInExpressionEditor = False + Me.colid_Moby_Games.ToolTip = "Metropolis Launcher's internal ID of the MobyGames game entry" + ' + 'colid_Moby_Platforms + ' + Me.colid_Moby_Platforms.FieldName = "id_Moby_Platforms" + Me.colid_Moby_Platforms.Name = "colid_Moby_Platforms" + Me.colid_Moby_Platforms.OptionsColumn.AllowEdit = False + Me.colid_Moby_Platforms.OptionsColumn.ReadOnly = True + Me.colid_Moby_Platforms.OptionsColumn.ShowInCustomizationForm = False + Me.colid_Moby_Platforms.OptionsColumn.ShowInExpressionEditor = False + Me.colid_Moby_Platforms.ToolTip = "Metropolis Launcher's internal ID of the platform" + ' + 'colid_Moby_Releases + ' + Me.colid_Moby_Releases.FieldName = "id_Moby_Releases" + Me.colid_Moby_Releases.Name = "colid_Moby_Releases" + Me.colid_Moby_Releases.OptionsColumn.AllowEdit = False + Me.colid_Moby_Releases.OptionsColumn.ReadOnly = True + Me.colid_Moby_Releases.OptionsColumn.ShowInCustomizationForm = False + Me.colid_Moby_Releases.OptionsColumn.ShowInExpressionEditor = False + Me.colid_Moby_Releases.ToolTip = "Metropolis Launcher's internal ID of the MobyGames release entry" + ' + 'colid_DOSBox_Configs + ' + Me.colid_DOSBox_Configs.FieldName = "id_DOSBox_Configs" + Me.colid_DOSBox_Configs.Name = "colid_DOSBox_Configs" + Me.colid_DOSBox_Configs.OptionsColumn.AllowEdit = False + Me.colid_DOSBox_Configs.OptionsColumn.ReadOnly = True + Me.colid_DOSBox_Configs.OptionsColumn.ShowInCustomizationForm = False + Me.colid_DOSBox_Configs.OptionsColumn.ShowInExpressionEditor = False + Me.colid_DOSBox_Configs.ToolTip = "Metropolis Launcher's internal ID of the DOSBox configuration" + ' + 'colid_DOSBox_Configs_Template + ' + Me.colid_DOSBox_Configs_Template.FieldName = "id_DOSBox_Configs_Template" + Me.colid_DOSBox_Configs_Template.Name = "colid_DOSBox_Configs_Template" + Me.colid_DOSBox_Configs_Template.OptionsColumn.AllowEdit = False + Me.colid_DOSBox_Configs_Template.OptionsColumn.ReadOnly = True + Me.colid_DOSBox_Configs_Template.OptionsColumn.ShowInCustomizationForm = False + Me.colid_DOSBox_Configs_Template.OptionsColumn.ShowInExpressionEditor = False + Me.colid_DOSBox_Configs_Template.ToolTip = "Metropolis Launcher's internal ID of the DOSBox configuration template" + ' + 'barmng + ' + Me.barmng.AllowCustomization = False + Me.barmng.AllowMoveBarOnToolbar = False + Me.barmng.AllowQuickCustomization = False + Me.barmng.DockControls.Add(Me.barDockControlTop) + Me.barmng.DockControls.Add(Me.barDockControlBottom) + Me.barmng.DockControls.Add(Me.barDockControlLeft) + Me.barmng.DockControls.Add(Me.barDockControlRight) + Me.barmng.Form = Me + Me.barmng.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.bbi_Contribute_TechInfo, Me.bbi_Open_Moby_Page, Me.bsi_Launch, Me.bbi_Edit_Game, Me.bbi_DOSBox_Clear_Exe_Config, Me.bbi_Rom_Manager, Me.bbi_Rombase_Manager, Me.bbi_Edit_Multiple_Games, Me.bbi_Export, Me.bbi_Emu_Settings, Me.bbi_DOSBox_Templates, Me.bbi_Analyze_Missing_Extras, Me.bsi_MultiUser, Me.bbi_MultiUser_Add_Games, Me.bbi_MultiUser_Show_Games, Me.bbi_MultiUser_Remove_Games, Me.bbi_Staff_Info, Me.bbi_Staff_Filter, Me.bbi_Similarity_Calculation, Me.bbi_Show_Similarity_Feature_Columns, Me.bbi_Open_Similarity_Details, Me.bbi_Launch_Random, Me.bbi_Extras_Image_Manager, Me.bbi_Extras_Viewer_Settings, Me.bbi_GameGroup_Info, Me.bbi_GameGroup_Filter, Me.bbi_Statistics_Remove, Me.bsi_Export, Me.bbi_Export_CSV, Me.bbi_Export_XLSX}) + Me.barmng.MaxItemId = 29 + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(800, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 600) + Me.barDockControlBottom.Size = New System.Drawing.Size(800, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 0) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 600) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(800, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 600) + ' + 'bbi_Contribute_TechInfo + ' + Me.bbi_Contribute_TechInfo.AllowRightClickInMenu = False + Me.bbi_Contribute_TechInfo.Caption = "&Contribute Tech-Info" + Me.bbi_Contribute_TechInfo.Id = 0 + Me.bbi_Contribute_TechInfo.ImageUri.Uri = "NavigationBar" + Me.bbi_Contribute_TechInfo.Name = "bbi_Contribute_TechInfo" + ' + 'bbi_Open_Moby_Page + ' + Me.bbi_Open_Moby_Page.AllowRightClickInMenu = False + Me.bbi_Open_Moby_Page.Caption = "&Open Moby Page" + Me.bbi_Open_Moby_Page.Id = 1 + Me.bbi_Open_Moby_Page.ImageUri.Uri = "NavigationBar" + Me.bbi_Open_Moby_Page.Name = "bbi_Open_Moby_Page" + ' + 'bsi_Launch + ' + Me.bsi_Launch.AllowRightClickInMenu = False + Me.bsi_Launch.Caption = "&Launch" + Me.bsi_Launch.Id = 2 + Me.bsi_Launch.ImageUri.Uri = "DoubleNext" + Me.bsi_Launch.Name = "bsi_Launch" + ' + 'bbi_Edit_Game + ' + Me.bbi_Edit_Game.AllowRightClickInMenu = False + Me.bbi_Edit_Game.Caption = "&Edit Game" + Me.bbi_Edit_Game.Id = 3 + Me.bbi_Edit_Game.ImageUri.Uri = "Edit" + Me.bbi_Edit_Game.Name = "bbi_Edit_Game" + ' + 'bbi_DOSBox_Clear_Exe_Config + ' + Me.bbi_DOSBox_Clear_Exe_Config.AllowRightClickInMenu = False + Me.bbi_DOSBox_Clear_Exe_Config.Caption = "&Clear Executables Config" + Me.bbi_DOSBox_Clear_Exe_Config.Id = 11 + Me.bbi_DOSBox_Clear_Exe_Config.ImageUri.Uri = "Clear" + Me.bbi_DOSBox_Clear_Exe_Config.Name = "bbi_DOSBox_Clear_Exe_Config" + ' + 'bbi_Rom_Manager + ' + Me.bbi_Rom_Manager.AllowRightClickInMenu = False + Me.bbi_Rom_Manager.Caption = "Open &Rom Manager" + Me.bbi_Rom_Manager.Id = 5 + Me.bbi_Rom_Manager.ImageUri.Uri = "AddNewDataSource" + Me.bbi_Rom_Manager.Name = "bbi_Rom_Manager" + ' + 'bbi_Rombase_Manager + ' + Me.bbi_Rombase_Manager.AllowRightClickInMenu = False + Me.bbi_Rombase_Manager.Caption = "Open Rom&Base Manager" + Me.bbi_Rombase_Manager.Id = 6 + Me.bbi_Rombase_Manager.ImageUri.Uri = "EditDataSource" + Me.bbi_Rombase_Manager.Name = "bbi_Rombase_Manager" + ' + 'bbi_Edit_Multiple_Games + ' + Me.bbi_Edit_Multiple_Games.AllowRightClickInMenu = False + Me.bbi_Edit_Multiple_Games.Caption = "E&dit Multiple Games" + Me.bbi_Edit_Multiple_Games.Id = 7 + Me.bbi_Edit_Multiple_Games.ImageUri.Uri = "CustomizeGrid" + Me.bbi_Edit_Multiple_Games.Name = "bbi_Edit_Multiple_Games" + ' + 'bbi_Export + ' + Me.bbi_Export.AllowRightClickInMenu = False + Me.bbi_Export.Caption = "Export selected &Games..." + Me.bbi_Export.Id = 8 + Me.bbi_Export.ImageUri.Uri = "ExportToIMG" + Me.bbi_Export.Name = "bbi_Export" + ' + 'bbi_Emu_Settings + ' + Me.bbi_Emu_Settings.AllowRightClickInMenu = False + Me.bbi_Emu_Settings.Caption = "Open Emulator &Settings" + Me.bbi_Emu_Settings.Id = 9 + Me.bbi_Emu_Settings.ImageUri.Uri = "Customization" + Me.bbi_Emu_Settings.Name = "bbi_Emu_Settings" + ' + 'bbi_DOSBox_Templates + ' + Me.bbi_DOSBox_Templates.AllowRightClickInMenu = False + Me.bbi_DOSBox_Templates.Caption = "Open DOSBox &Templates" + Me.bbi_DOSBox_Templates.Id = 10 + Me.bbi_DOSBox_Templates.ImageUri.Uri = "Replace" + Me.bbi_DOSBox_Templates.Name = "bbi_DOSBox_Templates" + ' + 'bbi_Analyze_Missing_Extras + ' + Me.bbi_Analyze_Missing_Extras.Caption = "Search for missing Extras" + Me.bbi_Analyze_Missing_Extras.Id = 10 + Me.bbi_Analyze_Missing_Extras.ImageUri.Uri = "Find" + Me.bbi_Analyze_Missing_Extras.Name = "bbi_Analyze_Missing_Extras" + ' + 'bsi_MultiUser + ' + Me.bsi_MultiUser.Caption = "Multi User" + Me.bsi_MultiUser.Id = 11 + Me.bsi_MultiUser.ImageUri.Uri = "Chart" + Me.bsi_MultiUser.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_MultiUser_Add_Games), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_MultiUser_Remove_Games), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_MultiUser_Show_Games)}) + Me.bsi_MultiUser.Name = "bsi_MultiUser" + ' + 'bbi_MultiUser_Add_Games + ' + Me.bbi_MultiUser_Add_Games.Caption = "Add selected games to restricted user" + Me.bbi_MultiUser_Add_Games.Id = 12 + Me.bbi_MultiUser_Add_Games.ImageUri.Uri = "Add" + Me.bbi_MultiUser_Add_Games.Name = "bbi_MultiUser_Add_Games" + ' + 'bbi_MultiUser_Remove_Games + ' + Me.bbi_MultiUser_Remove_Games.Caption = "Remove selected games from restricted user" + Me.bbi_MultiUser_Remove_Games.Id = 14 + Me.bbi_MultiUser_Remove_Games.ImageUri.Uri = "Delete" + Me.bbi_MultiUser_Remove_Games.Name = "bbi_MultiUser_Remove_Games" + ' + 'bbi_MultiUser_Show_Games + ' + Me.bbi_MultiUser_Show_Games.Caption = "Show Games of restricted user" + Me.bbi_MultiUser_Show_Games.Id = 13 + Me.bbi_MultiUser_Show_Games.ImageUri.Uri = "Show" + Me.bbi_MultiUser_Show_Games.Name = "bbi_MultiUser_Show_Games" + ' + 'bbi_Staff_Info + ' + Me.bbi_Staff_Info.Caption = "&Open Staff Info" + Me.bbi_Staff_Info.Id = 15 + Me.bbi_Staff_Info.ImageUri.Uri = "Preview" + Me.bbi_Staff_Info.Name = "bbi_Staff_Info" + ' + 'bbi_Staff_Filter + ' + Me.bbi_Staff_Filter.Caption = "&Filter by this staff member" + Me.bbi_Staff_Filter.Id = 16 + Me.bbi_Staff_Filter.ImageUri.Uri = "Filter" + Me.bbi_Staff_Filter.Name = "bbi_Staff_Filter" + ' + 'bbi_Similarity_Calculation + ' + Me.bbi_Similarity_Calculation.Caption = "Find Similar Games" + Me.bbi_Similarity_Calculation.Id = 17 + Me.bbi_Similarity_Calculation.ImageUri.Uri = "Find" + Me.bbi_Similarity_Calculation.Name = "bbi_Similarity_Calculation" + ' + 'bbi_Show_Similarity_Feature_Columns + ' + Me.bbi_Show_Similarity_Feature_Columns.Caption = "{0} Similarity Feature Columns" + Me.bbi_Show_Similarity_Feature_Columns.Id = 18 + Me.bbi_Show_Similarity_Feature_Columns.ImageUri.Uri = "AlignVerticalLeft" + Me.bbi_Show_Similarity_Feature_Columns.Name = "bbi_Show_Similarity_Feature_Columns" + ' + 'bbi_Open_Similarity_Details + ' + Me.bbi_Open_Similarity_Details.Caption = "Open Similarity Details" + Me.bbi_Open_Similarity_Details.Id = 19 + Me.bbi_Open_Similarity_Details.ImageUri.Uri = "Preview" + Me.bbi_Open_Similarity_Details.Name = "bbi_Open_Similarity_Details" + ' + 'bbi_Launch_Random + ' + Me.bbi_Launch_Random.Caption = "Launch Random Title" + Me.bbi_Launch_Random.Id = 20 + Me.bbi_Launch_Random.ImageUri.Uri = "DoubleLast" + Me.bbi_Launch_Random.Name = "bbi_Launch_Random" + ToolTipTitleItem1.Text = "Launch Random Title" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "A title within the current list is randomly selected and launched with the defaul" & + "t emulator of that title." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.bbi_Launch_Random.SuperTip = SuperToolTip1 + ' + 'bbi_Extras_Image_Manager + ' + Me.bbi_Extras_Image_Manager.Caption = "Open Extras &Manager" + Me.bbi_Extras_Image_Manager.Id = 21 + Me.bbi_Extras_Image_Manager.ImageUri.Uri = "Zoom2" + Me.bbi_Extras_Image_Manager.Name = "bbi_Extras_Image_Manager" + ' + 'bbi_Extras_Viewer_Settings + ' + Me.bbi_Extras_Viewer_Settings.Caption = "Open Viewer Settings" + Me.bbi_Extras_Viewer_Settings.Id = 22 + Me.bbi_Extras_Viewer_Settings.ImageUri.Uri = "Customization" + Me.bbi_Extras_Viewer_Settings.Name = "bbi_Extras_Viewer_Settings" + ' + 'bbi_GameGroup_Info + ' + Me.bbi_GameGroup_Info.Caption = "Open Group Info" + Me.bbi_GameGroup_Info.Id = 23 + Me.bbi_GameGroup_Info.ImageUri.Uri = "Preview" + Me.bbi_GameGroup_Info.Name = "bbi_GameGroup_Info" + ' + 'bbi_GameGroup_Filter + ' + Me.bbi_GameGroup_Filter.Caption = "Filter by this group" + Me.bbi_GameGroup_Filter.Id = 24 + Me.bbi_GameGroup_Filter.ImageUri.Uri = "Filter" + Me.bbi_GameGroup_Filter.Name = "bbi_GameGroup_Filter" + ' + 'bbi_Statistics_Remove + ' + Me.bbi_Statistics_Remove.Caption = "&Remove this statistics entry" + Me.bbi_Statistics_Remove.Id = 25 + Me.bbi_Statistics_Remove.ImageUri.Uri = "Delete" + Me.bbi_Statistics_Remove.Name = "bbi_Statistics_Remove" + ' + 'bsi_Export + ' + Me.bsi_Export.Caption = "Export" + Me.bsi_Export.Id = 26 + Me.bsi_Export.ImageUri.Uri = "SaveAndNew" + Me.bsi_Export.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export_CSV), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export_XLSX)}) + Me.bsi_Export.Name = "bsi_Export" + ' + 'bbi_Export_CSV + ' + Me.bbi_Export_CSV.Caption = "Export List to CSV" + Me.bbi_Export_CSV.Id = 27 + Me.bbi_Export_CSV.ImageUri.Uri = "ExportToCSV" + Me.bbi_Export_CSV.Name = "bbi_Export_CSV" + ' + 'bbi_Export_XLSX + ' + Me.bbi_Export_XLSX.Caption = "Export List to Excel (XLSX)" + Me.bbi_Export_XLSX.Id = 28 + Me.bbi_Export_XLSX.ImageUri.Uri = "ExportToXLSX" + Me.bbi_Export_XLSX.Name = "bbi_Export_XLSX" + ' + 'ttctl_TecSpec + ' + ' + ' + ' + ' + 'tlp_Combos + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.tlp_Combos, DevExpress.Utils.DefaultBoolean.[Default]) + Me.tlp_Combos.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_Combos.ColumnCount = 2 + Me.tlp_Combos.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_Combos.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_Combos.Controls.Add(Me.pnl_31, 0, 2) + Me.tlp_Combos.Controls.Add(Me.pnl_32, 0, 2) + Me.tlp_Combos.Controls.Add(Me.pnl_22, 1, 1) + Me.tlp_Combos.Controls.Add(Me.pnl_12, 1, 0) + Me.tlp_Combos.Controls.Add(Me.pnl_21, 0, 1) + Me.tlp_Combos.Controls.Add(Me.pnl_11, 0, 0) + Me.tlp_Combos.Location = New System.Drawing.Point(2, 0) + Me.tlp_Combos.Margin = New System.Windows.Forms.Padding(0) + Me.tlp_Combos.Name = "tlp_Combos" + Me.tlp_Combos.RowCount = 3 + Me.tlp_Combos.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!)) + Me.tlp_Combos.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!)) + Me.tlp_Combos.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 22.0!)) + Me.tlp_Combos.Size = New System.Drawing.Size(486, 67) + Me.tlp_Combos.TabIndex = 6 + ' + 'pnl_31 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_31, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_31.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_31.Controls.Add(Me.lbl_Search) + Me.pnl_31.Controls.Add(Me.txb_Search) + Me.pnl_31.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_31.Location = New System.Drawing.Point(0, 44) + Me.pnl_31.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_31.Name = "pnl_31" + Me.pnl_31.Size = New System.Drawing.Size(243, 23) + Me.pnl_31.TabIndex = 8 + ' + 'lbl_Search + ' + Me.lbl_Search.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Search.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Search.Location = New System.Drawing.Point(0, 0) + Me.lbl_Search.MKBoundControl1 = Nothing + Me.lbl_Search.MKBoundControl2 = Nothing + Me.lbl_Search.MKBoundControl3 = Nothing + Me.lbl_Search.MKBoundControl4 = Nothing + Me.lbl_Search.MKBoundControl5 = Nothing + Me.lbl_Search.Name = "lbl_Search" + Me.lbl_Search.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem2.Text = "Search" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Database-wide search in the following fields:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Name, Alternate Titles, Filename" & + ", Description, Note and Special Info." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can also perform a table-wide searc" & + "h by pressing CTRL+F." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.lbl_Search.SuperTip = SuperToolTip2 + Me.lbl_Search.TabIndex = 0 + Me.lbl_Search.Text = "Search:" + ' + 'txb_Search + ' + Me.txb_Search.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Search.Location = New System.Drawing.Point(56, 0) + Me.txb_Search.Name = "txb_Search" + Me.txb_Search.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Redo, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "Apply Search", Nothing, Nothing, True)}) + Me.txb_Search.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem3.Text = "Search" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Database-wide search in the following fields:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Name, Alternate Titles, Filename" & + ", Description, Note and Special Info." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can always perform a table-wide sea" & + "rch by pressing CTRL+F." + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.txb_Search.SuperTip = SuperToolTip3 + Me.txb_Search.TabIndex = 1 + ' + 'pnl_32 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_32, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_32.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_32.Controls.Add(Me.lbl_Similarity) + Me.pnl_32.Controls.Add(Me.cmb_Similarity_Calculation_Results) + Me.pnl_32.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_32.Location = New System.Drawing.Point(243, 44) + Me.pnl_32.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_32.Name = "pnl_32" + Me.pnl_32.Size = New System.Drawing.Size(243, 23) + Me.pnl_32.TabIndex = 9 + ' + 'lbl_Similarity + ' + Me.lbl_Similarity.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Similarity.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Similarity.Location = New System.Drawing.Point(1, -1) + Me.lbl_Similarity.MKBoundControl1 = Nothing + Me.lbl_Similarity.MKBoundControl2 = Nothing + Me.lbl_Similarity.MKBoundControl3 = Nothing + Me.lbl_Similarity.MKBoundControl4 = Nothing + Me.lbl_Similarity.MKBoundControl5 = Nothing + Me.lbl_Similarity.Name = "lbl_Similarity" + Me.lbl_Similarity.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem4.Text = "Similar to" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Choose from your saved Similarity Calculation results to feed them to the main ta" & + "ble" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.lbl_Similarity.SuperTip = SuperToolTip4 + Me.lbl_Similarity.TabIndex = 0 + Me.lbl_Similarity.Text = "Similar to:" + ' + 'cmb_Similarity_Calculation_Results + ' + Me.cmb_Similarity_Calculation_Results.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Similarity_Calculation_Results.EditValue = 0 + Me.cmb_Similarity_Calculation_Results.Location = New System.Drawing.Point(57, -1) + Me.cmb_Similarity_Calculation_Results.MKBoundLabel = Nothing + Me.cmb_Similarity_Calculation_Results.MKEditValue_Compare = Nothing + Me.cmb_Similarity_Calculation_Results.Name = "cmb_Similarity_Calculation_Results" + ToolTipTitleItem5.Text = "Delete similarity calculation results" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + ToolTipTitleItem6.Text = "Show similarity calculation results" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + Me.cmb_Similarity_Calculation_Results.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", Nothing, SuperToolTip5, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", Nothing, SuperToolTip6, True)}) + Me.cmb_Similarity_Calculation_Results.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Similarity_Calculation_Results", "id_Similarity_Calculation_Results", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Similarity_Calculation_Results.Properties.DataSource = Me.BS_Similarity_Calculation_Results + Me.cmb_Similarity_Calculation_Results.Properties.DisplayMember = "Name" + Me.cmb_Similarity_Calculation_Results.Properties.NullText = "" + Me.cmb_Similarity_Calculation_Results.Properties.ShowHeader = False + Me.cmb_Similarity_Calculation_Results.Properties.ValueMember = "id_Similarity_Calculation_Results" + Me.cmb_Similarity_Calculation_Results.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem7.Text = "Similar to" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Choose from your saved Similarity Calculation results to feed them to the main ta" & + "ble" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem5) + Me.cmb_Similarity_Calculation_Results.SuperTip = SuperToolTip7 + Me.cmb_Similarity_Calculation_Results.TabIndex = 1 + ' + 'BS_Similarity_Calculation_Results + ' + Me.BS_Similarity_Calculation_Results.DataMember = "src_ucr_Emulation_cmb_Similarity_Calculation_Results" + Me.BS_Similarity_Calculation_Results.DataSource = Me.DS_ML + ' + 'pnl_22 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_22, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_22.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_22.Controls.Add(Me.lbl_Group) + Me.pnl_22.Controls.Add(Me.cmb_Groups) + Me.pnl_22.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_22.Location = New System.Drawing.Point(243, 22) + Me.pnl_22.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_22.Name = "pnl_22" + Me.pnl_22.Size = New System.Drawing.Size(243, 22) + Me.pnl_22.TabIndex = 7 + ' + 'lbl_Group + ' + Me.lbl_Group.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Group.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Group.Location = New System.Drawing.Point(1, -1) + Me.lbl_Group.MKBoundControl1 = Nothing + Me.lbl_Group.MKBoundControl2 = Nothing + Me.lbl_Group.MKBoundControl3 = Nothing + Me.lbl_Group.MKBoundControl4 = Nothing + Me.lbl_Group.MKBoundControl5 = Nothing + Me.lbl_Group.Name = "lbl_Group" + Me.lbl_Group.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem8.Text = "Group" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Filter by Game Groups" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem6) + Me.lbl_Group.SuperTip = SuperToolTip8 + Me.lbl_Group.TabIndex = 0 + Me.lbl_Group.Text = "Group:" + ' + 'cmb_Groups + ' + Me.cmb_Groups.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Groups.Location = New System.Drawing.Point(57, -1) + Me.cmb_Groups.MKBoundLabel = Nothing + Me.cmb_Groups.MKEditValue_Compare = Nothing + Me.cmb_Groups.Name = "cmb_Groups" + ToolTipTitleItem9.Text = "Show Group info" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + Me.cmb_Groups.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", Nothing, SuperToolTip9, True)}) + Me.cmb_Groups.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Game_Groups", "id_Moby_Game_Groups", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Groups.Properties.DataSource = Me.BS_Group + Me.cmb_Groups.Properties.DisplayMember = "Name" + Me.cmb_Groups.Properties.NullText = "" + Me.cmb_Groups.Properties.ShowHeader = False + Me.cmb_Groups.Properties.ValueMember = "id_Moby_Game_Groups" + Me.cmb_Groups.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem10.Text = "Group" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Filter by Game Groups" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem7) + Me.cmb_Groups.SuperTip = SuperToolTip10 + Me.cmb_Groups.TabIndex = 1 + ' + 'BS_Group + ' + Me.BS_Group.DataMember = "src_ucr_Emulation_cmb_Groups" + Me.BS_Group.DataSource = Me.DS_ML + ' + 'pnl_12 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_12, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_12.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_12.Controls.Add(Me.lbl_Filterset) + Me.pnl_12.Controls.Add(Me.cmb_Filterset) + Me.pnl_12.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_12.Location = New System.Drawing.Point(243, 0) + Me.pnl_12.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_12.Name = "pnl_12" + Me.pnl_12.Size = New System.Drawing.Size(243, 22) + Me.pnl_12.TabIndex = 7 + ' + 'lbl_Filterset + ' + Me.lbl_Filterset.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Filterset.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Filterset.Location = New System.Drawing.Point(1, 0) + Me.lbl_Filterset.MKBoundControl1 = Nothing + Me.lbl_Filterset.MKBoundControl2 = Nothing + Me.lbl_Filterset.MKBoundControl3 = Nothing + Me.lbl_Filterset.MKBoundControl4 = Nothing + Me.lbl_Filterset.MKBoundControl5 = Nothing + Me.lbl_Filterset.Name = "lbl_Filterset" + Me.lbl_Filterset.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem11.Text = "Filterset" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Organize your filters in saved and re-usable filter sets" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem8) + Me.lbl_Filterset.SuperTip = SuperToolTip11 + Me.lbl_Filterset.TabIndex = 0 + Me.lbl_Filterset.Text = "Filterset:" + ' + 'cmb_Filterset + ' + Me.cmb_Filterset.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Filterset.Location = New System.Drawing.Point(57, 0) + Me.cmb_Filterset.MKBoundLabel = Nothing + Me.cmb_Filterset.MKEditValue_Compare = Nothing + Me.cmb_Filterset.Name = "cmb_Filterset" + ToolTipTitleItem12.Text = "Add a new filterset" + SuperToolTip12.Items.Add(ToolTipTitleItem12) + ToolTipTitleItem13.Text = "Delete this filterset" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + ToolTipTitleItem14.Text = "Edit this filterset" + SuperToolTip14.Items.Add(ToolTipTitleItem14) + Me.cmb_Filterset.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject17, SerializableAppearanceObject18, SerializableAppearanceObject19, SerializableAppearanceObject20, "", Nothing, SuperToolTip12, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject21, SerializableAppearanceObject22, SerializableAppearanceObject23, SerializableAppearanceObject24, "", Nothing, SuperToolTip13, True), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject25, SerializableAppearanceObject26, SerializableAppearanceObject27, SerializableAppearanceObject28, "", Nothing, SuperToolTip14, True)}) + Me.cmb_Filterset.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_FilterSets", "id_Filter Sets", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Type", "Type", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ApplyGridFilter", "Apply Grid Filter", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("GridFilter", "Grid Filter", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Platforms", "id_Moby_Platforms", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Display_Name", "Display_Name", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Filterset.Properties.DataSource = Me.BS_FilterSets + Me.cmb_Filterset.Properties.DisplayMember = "Name" + Me.cmb_Filterset.Properties.NullText = "" + Me.cmb_Filterset.Properties.ShowHeader = False + Me.cmb_Filterset.Properties.ValueMember = "id_FilterSets" + Me.cmb_Filterset.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem15.Text = "Filterset" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Organize your filters in saved and re-usable filter sets" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem9) + Me.cmb_Filterset.SuperTip = SuperToolTip15 + Me.cmb_Filterset.TabIndex = 1 + ' + 'BS_FilterSets + ' + Me.BS_FilterSets.DataMember = "tbl_FilterSets" + Me.BS_FilterSets.DataSource = Me.DS_ML + ' + 'pnl_21 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_21, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_21.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_21.Controls.Add(Me.lbl_Staff) + Me.pnl_21.Controls.Add(Me.cmb_Staff) + Me.pnl_21.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_21.Location = New System.Drawing.Point(0, 22) + Me.pnl_21.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_21.Name = "pnl_21" + Me.pnl_21.Size = New System.Drawing.Size(243, 22) + Me.pnl_21.TabIndex = 7 + ' + 'lbl_Staff + ' + Me.lbl_Staff.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Staff.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Staff.Location = New System.Drawing.Point(0, 0) + Me.lbl_Staff.MKBoundControl1 = Nothing + Me.lbl_Staff.MKBoundControl2 = Nothing + Me.lbl_Staff.MKBoundControl3 = Nothing + Me.lbl_Staff.MKBoundControl4 = Nothing + Me.lbl_Staff.MKBoundControl5 = Nothing + Me.lbl_Staff.Name = "lbl_Staff" + Me.lbl_Staff.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem16.Text = "Staff" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Filter by individual staff members" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem10) + Me.lbl_Staff.SuperTip = SuperToolTip16 + Me.lbl_Staff.TabIndex = 0 + Me.lbl_Staff.Text = "Staff:" + ' + 'cmb_Staff + ' + Me.cmb_Staff.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Staff.Location = New System.Drawing.Point(56, 0) + Me.cmb_Staff.MKBoundLabel = Nothing + Me.cmb_Staff.MKEditValue_Compare = Nothing + Me.cmb_Staff.Name = "cmb_Staff" + ToolTipTitleItem17.Text = "Show Staff Info" + SuperToolTip17.Items.Add(ToolTipTitleItem17) + Me.cmb_Staff.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject29, SerializableAppearanceObject30, SerializableAppearanceObject31, SerializableAppearanceObject32, "", Nothing, SuperToolTip17, True)}) + Me.cmb_Staff.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Staff", "id_Moby_Staff", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Staff.Properties.DataSource = Me.BS_Developer + Me.cmb_Staff.Properties.DisplayMember = "Name" + Me.cmb_Staff.Properties.NullText = "" + Me.cmb_Staff.Properties.ShowHeader = False + Me.cmb_Staff.Properties.ValueMember = "id_Moby_Staff" + Me.cmb_Staff.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem18.Text = "Developer" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Filter by individual staff members" + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem11) + Me.cmb_Staff.SuperTip = SuperToolTip18 + Me.cmb_Staff.TabIndex = 1 + ' + 'BS_Developer + ' + Me.BS_Developer.DataMember = "src_ucr_Emulation_cmb_Staff" + Me.BS_Developer.DataSource = Me.DS_ML + ' + 'pnl_11 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_11, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_11.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_11.Controls.Add(Me.lbl_Platform) + Me.pnl_11.Controls.Add(Me.cmb_Platform) + Me.pnl_11.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_11.Location = New System.Drawing.Point(0, 0) + Me.pnl_11.Margin = New System.Windows.Forms.Padding(0) + Me.pnl_11.Name = "pnl_11" + Me.pnl_11.Size = New System.Drawing.Size(243, 22) + Me.pnl_11.TabIndex = 7 + ' + 'lbl_Platform + ' + Me.lbl_Platform.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Platform.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platform.Location = New System.Drawing.Point(0, 0) + Me.lbl_Platform.MKBoundControl1 = Nothing + Me.lbl_Platform.MKBoundControl2 = Nothing + Me.lbl_Platform.MKBoundControl3 = Nothing + Me.lbl_Platform.MKBoundControl4 = Nothing + Me.lbl_Platform.MKBoundControl5 = Nothing + Me.lbl_Platform.Name = "lbl_Platform" + Me.lbl_Platform.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem19.Text = "Platform" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Filter by a specific platform - or choose ""All Platforms""" + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem12) + Me.lbl_Platform.SuperTip = SuperToolTip19 + Me.lbl_Platform.TabIndex = 0 + Me.lbl_Platform.Text = "Platform:" + ' + 'cmb_Platform + ' + Me.cmb_Platform.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Platform.Location = New System.Drawing.Point(56, 0) + Me.cmb_Platform.MKBoundLabel = Nothing + Me.cmb_Platform.MKEditValue_Compare = Nothing + Me.cmb_Platform.Name = "cmb_Platform" + ToolTipTitleItem20.Text = "Open the Platform Settings dialog" + SuperToolTip20.Items.Add(ToolTipTitleItem20) + Me.cmb_Platform.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject33, SerializableAppearanceObject34, SerializableAppearanceObject35, SerializableAppearanceObject36, "", Nothing, SuperToolTip20, True)}) + Me.cmb_Platform.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Platforms", "id_Moby_Platforms", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 200, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ShortName", "Short Name", 50, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Platform.Properties.DataSource = Me.BS_Platforms + Me.cmb_Platform.Properties.DisplayMember = "Name" + Me.cmb_Platform.Properties.NullText = "[please select]" + Me.cmb_Platform.Properties.ShowHeader = False + Me.cmb_Platform.Properties.ValueMember = "id_Moby_Platforms" + Me.cmb_Platform.Size = New System.Drawing.Size(186, 20) + ToolTipTitleItem21.Text = "Platform" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Filter by a specific platform - or choose ""All Platforms""" + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem13) + Me.cmb_Platform.SuperTip = SuperToolTip21 + Me.cmb_Platform.TabIndex = 1 + ' + 'BS_Platforms + ' + Me.BS_Platforms.DataMember = "src_ucr_Emulation_Platforms" + Me.BS_Platforms.DataSource = Me.DS_ML + ' + 'spnl_Summary + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.spnl_Summary, DevExpress.Utils.DefaultBoolean.[Default]) + Me.spnl_Summary.Dock = System.Windows.Forms.DockStyle.Fill + Me.spnl_Summary.Location = New System.Drawing.Point(0, 0) + Me.spnl_Summary.Name = "spnl_Summary" + Me.spnl_Summary.Padding = New System.Windows.Forms.Padding(3) + Me.spnl_Summary.Size = New System.Drawing.Size(301, 299) + Me.spnl_Summary.TabIndex = 0 + ' + 'filteringUIContext + ' + Me.filteringUIContext.Control = Me.accordion_FilterUI + Me.filteringUIContext.ModelType = GetType(Metropolis_Launcher.cls_FilteringModel_Emulation_Games) + ' + 'tcl_App + ' + Me.tcl_App.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_App.Location = New System.Drawing.Point(0, 0) + Me.tcl_App.Name = "tcl_App" + Me.tcl_App.SelectedTabPage = Me.tpg_Summary + Me.tcl_App.Size = New System.Drawing.Size(307, 327) + Me.tcl_App.TabIndex = 0 + Me.tcl_App.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Summary, Me.tpg_TechnicalSpecs, Me.tpg_Stats, Me.tpg_Rating, Me.tpg_Game_Groups, Me.tpg_Staff, Me.tpg_Have, Me.tpg_Want}) + ' + 'tpg_Summary + ' + Me.tpg_Summary.Controls.Add(Me.spnl_Summary) + Me.tpg_Summary.Name = "tpg_Summary" + Me.tpg_Summary.Size = New System.Drawing.Size(301, 299) + Me.tpg_Summary.Text = "Summary" + ' + 'tpg_TechnicalSpecs + ' + Me.tpg_TechnicalSpecs.Controls.Add(Me.grd_TechnicalSpecs) + Me.tpg_TechnicalSpecs.Controls.Add(Me.lbl_NoSpecs) + Me.tpg_TechnicalSpecs.Name = "tpg_TechnicalSpecs" + Me.tpg_TechnicalSpecs.Size = New System.Drawing.Size(301, 299) + Me.tpg_TechnicalSpecs.Text = "Technical Specs" + ' + 'grd_TechnicalSpecs + ' + Me.grd_TechnicalSpecs.DataMember = "tbl_Technical_Specs" + Me.grd_TechnicalSpecs.DataSource = Me.DS_ML + Me.grd_TechnicalSpecs.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_TechnicalSpecs.Location = New System.Drawing.Point(0, 25) + Me.grd_TechnicalSpecs.MainView = Me.gv_TechnicalSpecs + Me.grd_TechnicalSpecs.Name = "grd_TechnicalSpecs" + Me.grd_TechnicalSpecs.Size = New System.Drawing.Size(301, 274) + Me.grd_TechnicalSpecs.TabIndex = 6 + Me.grd_TechnicalSpecs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_TechnicalSpecs}) + ' + 'gv_TechnicalSpecs + ' + Me.gv_TechnicalSpecs.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colCategory, Me.colAttribute}) + Me.gv_TechnicalSpecs.GridControl = Me.grd_TechnicalSpecs + Me.gv_TechnicalSpecs.Name = "gv_TechnicalSpecs" + Me.gv_TechnicalSpecs.OptionsSelection.EnableAppearanceFocusedCell = False + Me.gv_TechnicalSpecs.OptionsSelection.EnableAppearanceFocusedRow = False + Me.gv_TechnicalSpecs.OptionsView.ShowGroupPanel = False + Me.gv_TechnicalSpecs.OptionsView.ShowIndicator = False + ' + 'colCategory + ' + Me.colCategory.FieldName = "Category" + Me.colCategory.Name = "colCategory" + Me.colCategory.OptionsColumn.AllowEdit = False + Me.colCategory.OptionsColumn.AllowFocus = False + Me.colCategory.OptionsColumn.ReadOnly = True + Me.colCategory.Visible = True + Me.colCategory.VisibleIndex = 0 + ' + 'colAttribute + ' + Me.colAttribute.FieldName = "Attribute" + Me.colAttribute.Name = "colAttribute" + Me.colAttribute.OptionsColumn.AllowEdit = False + Me.colAttribute.OptionsColumn.AllowFocus = False + Me.colAttribute.OptionsColumn.ReadOnly = True + Me.colAttribute.Visible = True + Me.colAttribute.VisibleIndex = 1 + ' + 'lbl_NoSpecs + ' + Me.lbl_NoSpecs.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_NoSpecs.AutoEllipsis = True + Me.lbl_NoSpecs.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_NoSpecs.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_NoSpecs.Location = New System.Drawing.Point(0, 0) + Me.lbl_NoSpecs.MKBoundControl1 = Nothing + Me.lbl_NoSpecs.MKBoundControl2 = Nothing + Me.lbl_NoSpecs.MKBoundControl3 = Nothing + Me.lbl_NoSpecs.MKBoundControl4 = Nothing + Me.lbl_NoSpecs.MKBoundControl5 = Nothing + Me.lbl_NoSpecs.Name = "lbl_NoSpecs" + Me.lbl_NoSpecs.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_NoSpecs.Size = New System.Drawing.Size(301, 25) + Me.lbl_NoSpecs.TabIndex = 5 + Me.lbl_NoSpecs.Text = "There are no technical specs for this game" + ' + 'tpg_Stats + ' + Me.tpg_Stats.Controls.Add(Me.grd_Statistics) + Me.tpg_Stats.Controls.Add(Me.lbl_Emu_Games_Runtime) + Me.tpg_Stats.Controls.Add(Me.lbl_Emu_Games_Runtime_Value) + Me.tpg_Stats.Controls.Add(Me.lbl_Emu_Games_Playcount) + Me.tpg_Stats.Controls.Add(Me.lbl_Emu_Games_Plays) + Me.tpg_Stats.Name = "tpg_Stats" + Me.tpg_Stats.Size = New System.Drawing.Size(301, 299) + Me.tpg_Stats.Text = "Statistics" + ' + 'grd_Statistics + ' + Me.grd_Statistics.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Statistics.DataSource = Me.BS_Emu_Games_History + Me.grd_Statistics.Location = New System.Drawing.Point(3, 62) + Me.grd_Statistics.MainView = Me.gv_Statistics + Me.grd_Statistics.MenuManager = Me.barmng + Me.grd_Statistics.Name = "grd_Statistics" + Me.grd_Statistics.Size = New System.Drawing.Size(295, 234) + Me.grd_Statistics.TabIndex = 0 + Me.grd_Statistics.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Statistics}) + ' + 'BS_Emu_Games_History + ' + Me.BS_Emu_Games_History.DataMember = "tbl_History" + Me.BS_Emu_Games_History.DataSource = Me.DS_ML + ' + 'gv_Statistics + ' + Me.gv_Statistics.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colStart, Me.colEnd, Me.colRuntime}) + Me.gv_Statistics.GridControl = Me.grd_Statistics + Me.gv_Statistics.Name = "gv_Statistics" + Me.gv_Statistics.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Statistics.OptionsView.ColumnAutoWidth = False + Me.gv_Statistics.OptionsView.ShowGroupPanel = False + Me.gv_Statistics.OptionsView.ShowIndicator = False + ' + 'colStart + ' + Me.colStart.DisplayFormat.FormatString = "g" + Me.colStart.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colStart.FieldName = "Start" + Me.colStart.Name = "colStart" + Me.colStart.OptionsColumn.AllowEdit = False + Me.colStart.OptionsColumn.ReadOnly = True + Me.colStart.Visible = True + Me.colStart.VisibleIndex = 0 + Me.colStart.Width = 104 + ' + 'colEnd + ' + Me.colEnd.DisplayFormat.FormatString = "g" + Me.colEnd.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colEnd.FieldName = "End" + Me.colEnd.Name = "colEnd" + Me.colEnd.OptionsColumn.AllowEdit = False + Me.colEnd.OptionsColumn.ReadOnly = True + Me.colEnd.Visible = True + Me.colEnd.VisibleIndex = 1 + Me.colEnd.Width = 92 + ' + 'colRuntime + ' + Me.colRuntime.FieldName = "Runtime" + Me.colRuntime.Name = "colRuntime" + Me.colRuntime.OptionsColumn.AllowEdit = False + Me.colRuntime.OptionsColumn.ReadOnly = True + Me.colRuntime.Visible = True + Me.colRuntime.VisibleIndex = 2 + Me.colRuntime.Width = 96 + ' + 'lbl_Emu_Games_Runtime + ' + Me.lbl_Emu_Games_Runtime.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Emu_Games_Runtime.AutoEllipsis = True + Me.lbl_Emu_Games_Runtime.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Emu_Games_Runtime.Location = New System.Drawing.Point(2, 31) + Me.lbl_Emu_Games_Runtime.MKBoundControl1 = Nothing + Me.lbl_Emu_Games_Runtime.MKBoundControl2 = Nothing + Me.lbl_Emu_Games_Runtime.MKBoundControl3 = Nothing + Me.lbl_Emu_Games_Runtime.MKBoundControl4 = Nothing + Me.lbl_Emu_Games_Runtime.MKBoundControl5 = Nothing + Me.lbl_Emu_Games_Runtime.Name = "lbl_Emu_Games_Runtime" + Me.lbl_Emu_Games_Runtime.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Emu_Games_Runtime.Size = New System.Drawing.Size(90, 25) + Me.lbl_Emu_Games_Runtime.TabIndex = 7 + Me.lbl_Emu_Games_Runtime.Text = "Total runtime:" + ' + 'lbl_Emu_Games_Runtime_Value + ' + Me.lbl_Emu_Games_Runtime_Value.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Emu_Games_Runtime_Value.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Emu_Games_Runtime_Value.AutoEllipsis = True + Me.lbl_Emu_Games_Runtime_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Emu_Games_Runtime_Value.Location = New System.Drawing.Point(94, 31) + Me.lbl_Emu_Games_Runtime_Value.MKBoundControl1 = Nothing + Me.lbl_Emu_Games_Runtime_Value.MKBoundControl2 = Nothing + Me.lbl_Emu_Games_Runtime_Value.MKBoundControl3 = Nothing + Me.lbl_Emu_Games_Runtime_Value.MKBoundControl4 = Nothing + Me.lbl_Emu_Games_Runtime_Value.MKBoundControl5 = Nothing + Me.lbl_Emu_Games_Runtime_Value.Name = "lbl_Emu_Games_Runtime_Value" + Me.lbl_Emu_Games_Runtime_Value.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Emu_Games_Runtime_Value.Size = New System.Drawing.Size(213, 25) + Me.lbl_Emu_Games_Runtime_Value.TabIndex = 6 + ' + 'lbl_Emu_Games_Playcount + ' + Me.lbl_Emu_Games_Playcount.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Emu_Games_Playcount.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Emu_Games_Playcount.AutoEllipsis = True + Me.lbl_Emu_Games_Playcount.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Emu_Games_Playcount.Location = New System.Drawing.Point(94, 3) + Me.lbl_Emu_Games_Playcount.MKBoundControl1 = Nothing + Me.lbl_Emu_Games_Playcount.MKBoundControl2 = Nothing + Me.lbl_Emu_Games_Playcount.MKBoundControl3 = Nothing + Me.lbl_Emu_Games_Playcount.MKBoundControl4 = Nothing + Me.lbl_Emu_Games_Playcount.MKBoundControl5 = Nothing + Me.lbl_Emu_Games_Playcount.Name = "lbl_Emu_Games_Playcount" + Me.lbl_Emu_Games_Playcount.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Emu_Games_Playcount.Size = New System.Drawing.Size(213, 25) + Me.lbl_Emu_Games_Playcount.TabIndex = 6 + ' + 'lbl_Emu_Games_Plays + ' + Me.lbl_Emu_Games_Plays.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Emu_Games_Plays.AutoEllipsis = True + Me.lbl_Emu_Games_Plays.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Emu_Games_Plays.Location = New System.Drawing.Point(3, 3) + Me.lbl_Emu_Games_Plays.MKBoundControl1 = Nothing + Me.lbl_Emu_Games_Plays.MKBoundControl2 = Nothing + Me.lbl_Emu_Games_Plays.MKBoundControl3 = Nothing + Me.lbl_Emu_Games_Plays.MKBoundControl4 = Nothing + Me.lbl_Emu_Games_Plays.MKBoundControl5 = Nothing + Me.lbl_Emu_Games_Plays.Name = "lbl_Emu_Games_Plays" + Me.lbl_Emu_Games_Plays.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Emu_Games_Plays.Size = New System.Drawing.Size(89, 25) + Me.lbl_Emu_Games_Plays.TabIndex = 6 + Me.lbl_Emu_Games_Plays.Text = "Total plays:" + ' + 'tpg_Rating + ' + Me.tpg_Rating.Controls.Add(Me.lbl_Rating_Edit_Weights) + Me.tpg_Rating.Controls.Add(Me.Ctl_MKDXLabel4) + Me.tpg_Rating.Controls.Add(Me.Ctl_MKDXLabel3) + Me.tpg_Rating.Controls.Add(Me.Ctl_MKDXLabel2) + Me.tpg_Rating.Controls.Add(Me.Ctl_MKDXLabel1) + Me.tpg_Rating.Controls.Add(Me.lbl_Rating_Gameplay) + Me.tpg_Rating.Controls.Add(Me.gc_Rating_Personal) + Me.tpg_Rating.Controls.Add(Me.gc_Rating_Story) + Me.tpg_Rating.Controls.Add(Me.gc_Rating_Sound) + Me.tpg_Rating.Controls.Add(Me.gc_Rating_Graphics) + Me.tpg_Rating.Controls.Add(Me.gc_Rating_Gameplay) + Me.tpg_Rating.Name = "tpg_Rating" + Me.tpg_Rating.Size = New System.Drawing.Size(301, 299) + Me.tpg_Rating.Text = "Rating" + ' + 'lbl_Rating_Edit_Weights + ' + Me.lbl_Rating_Edit_Weights.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Rating_Edit_Weights.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Underline) + Me.lbl_Rating_Edit_Weights.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Rating_Edit_Weights.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Rating_Edit_Weights.Cursor = System.Windows.Forms.Cursors.Hand + Me.lbl_Rating_Edit_Weights.Location = New System.Drawing.Point(236, 3) + Me.lbl_Rating_Edit_Weights.MKBoundControl1 = Nothing + Me.lbl_Rating_Edit_Weights.MKBoundControl2 = Nothing + Me.lbl_Rating_Edit_Weights.MKBoundControl3 = Nothing + Me.lbl_Rating_Edit_Weights.MKBoundControl4 = Nothing + Me.lbl_Rating_Edit_Weights.MKBoundControl5 = Nothing + Me.lbl_Rating_Edit_Weights.Name = "lbl_Rating_Edit_Weights" + Me.lbl_Rating_Edit_Weights.Size = New System.Drawing.Size(62, 20) + Me.lbl_Rating_Edit_Weights.TabIndex = 2 + Me.lbl_Rating_Edit_Weights.Text = "Edit weights" + ' + 'Ctl_MKDXLabel4 + ' + Me.Ctl_MKDXLabel4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel4.Location = New System.Drawing.Point(3, 95) + Me.Ctl_MKDXLabel4.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel4.Name = "Ctl_MKDXLabel4" + Me.Ctl_MKDXLabel4.Size = New System.Drawing.Size(75, 20) + Me.Ctl_MKDXLabel4.TabIndex = 1 + Me.Ctl_MKDXLabel4.Text = "Personal:" + ' + 'Ctl_MKDXLabel3 + ' + Me.Ctl_MKDXLabel3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel3.Location = New System.Drawing.Point(3, 72) + Me.Ctl_MKDXLabel3.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel3.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel3.Name = "Ctl_MKDXLabel3" + Me.Ctl_MKDXLabel3.Size = New System.Drawing.Size(75, 20) + Me.Ctl_MKDXLabel3.TabIndex = 1 + Me.Ctl_MKDXLabel3.Text = "Story:" + ' + 'Ctl_MKDXLabel2 + ' + Me.Ctl_MKDXLabel2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel2.Location = New System.Drawing.Point(3, 49) + Me.Ctl_MKDXLabel2.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel2.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel2.Name = "Ctl_MKDXLabel2" + Me.Ctl_MKDXLabel2.Size = New System.Drawing.Size(75, 20) + Me.Ctl_MKDXLabel2.TabIndex = 1 + Me.Ctl_MKDXLabel2.Text = "Sound:" + ' + 'Ctl_MKDXLabel1 + ' + Me.Ctl_MKDXLabel1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel1.Location = New System.Drawing.Point(3, 26) + Me.Ctl_MKDXLabel1.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel1.Name = "Ctl_MKDXLabel1" + Me.Ctl_MKDXLabel1.Size = New System.Drawing.Size(75, 20) + Me.Ctl_MKDXLabel1.TabIndex = 1 + Me.Ctl_MKDXLabel1.Text = "Graphics:" + ' + 'lbl_Rating_Gameplay + ' + Me.lbl_Rating_Gameplay.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Rating_Gameplay.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Rating_Gameplay.Location = New System.Drawing.Point(3, 3) + Me.lbl_Rating_Gameplay.MKBoundControl1 = Nothing + Me.lbl_Rating_Gameplay.MKBoundControl2 = Nothing + Me.lbl_Rating_Gameplay.MKBoundControl3 = Nothing + Me.lbl_Rating_Gameplay.MKBoundControl4 = Nothing + Me.lbl_Rating_Gameplay.MKBoundControl5 = Nothing + Me.lbl_Rating_Gameplay.Name = "lbl_Rating_Gameplay" + Me.lbl_Rating_Gameplay.Size = New System.Drawing.Size(75, 20) + Me.lbl_Rating_Gameplay.TabIndex = 1 + Me.lbl_Rating_Gameplay.Text = "Gameplay:" + ' + 'gc_Rating_Personal + ' + Me.gc_Rating_Personal.AutoLayout = False + Me.gc_Rating_Personal.Cursor = System.Windows.Forms.Cursors.Hand + Me.gc_Rating_Personal.Gauges.AddRange(New DevExpress.XtraGauges.Base.IGauge() {Me.LinearGauge5}) + Me.gc_Rating_Personal.Location = New System.Drawing.Point(84, 95) + Me.gc_Rating_Personal.Name = "gc_Rating_Personal" + Me.gc_Rating_Personal.Size = New System.Drawing.Size(82, 20) + Me.gc_Rating_Personal.TabIndex = 0 + Me.gc_Rating_Personal.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'LinearGauge5 + ' + Me.LinearGauge5.Bounds = New System.Drawing.Rectangle(0, 0, 80, 20) + Me.LinearGauge5.Indicators.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() {Me.LinearScaleStateIndicatorComponent21, Me.LinearScaleStateIndicatorComponent22, Me.LinearScaleStateIndicatorComponent23, Me.LinearScaleStateIndicatorComponent24, Me.LinearScaleStateIndicatorComponent25}) + Me.LinearGauge5.Name = "LinearGauge5" + Me.LinearGauge5.Orientation = DevExpress.XtraGauges.Core.Model.ScaleOrientation.Horizontal + Me.LinearGauge5.Scales.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() {Me.LinearScaleComponent5}) + ' + 'LinearScaleStateIndicatorComponent21 + ' + Me.LinearScaleStateIndicatorComponent21.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleStateIndicatorComponent21.IndicatorScale = Me.LinearScaleComponent5 + Me.LinearScaleStateIndicatorComponent21.Name = "Indicator0" + Me.LinearScaleStateIndicatorComponent21.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState1.IntervalLength = 5.0! + ScaleIndicatorState1.Name = "Colored" + ScaleIndicatorState1.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState1.StartValue = 1.0! + ScaleIndicatorState2.IntervalLength = 5.0! + ScaleIndicatorState2.Name = "Empty" + ScaleIndicatorState2.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent21.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState1, ScaleIndicatorState2}) + Me.LinearScaleStateIndicatorComponent21.ZOrder = 100 + ' + 'LinearScaleComponent5 + ' + Me.LinearScaleComponent5.AppearanceMajorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent5.AppearanceMajorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent5.AppearanceMinorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent5.AppearanceMinorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent5.AppearanceTickmarkText.TextBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:Black") + Me.LinearScaleComponent5.CustomLogarithmicBase = 2.0! + Me.LinearScaleComponent5.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.BS_Emu_Games, "Rating_Personal", True)) + Me.LinearScaleComponent5.EndPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleComponent5.MajorTickCount = 2 + Me.LinearScaleComponent5.MajorTickmark.FormatString = "{0:F0}" + Me.LinearScaleComponent5.MajorTickmark.ShapeOffset = -20.0! + Me.LinearScaleComponent5.MajorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_1 + Me.LinearScaleComponent5.MajorTickmark.ShowText = False + Me.LinearScaleComponent5.MajorTickmark.ShowTick = False + Me.LinearScaleComponent5.MajorTickmark.TextOffset = -32.0! + Me.LinearScaleComponent5.MaxValue = 5.0! + Me.LinearScaleComponent5.MinorTickCount = 0 + Me.LinearScaleComponent5.MinorTickmark.ShapeOffset = -14.0! + Me.LinearScaleComponent5.MinorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_2 + Me.LinearScaleComponent5.MinorTickmark.ShowTick = False + Me.LinearScaleComponent5.Name = "Gauge0_Scale1" + Me.LinearScaleComponent5.StartPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + ' + 'LinearScaleStateIndicatorComponent22 + ' + Me.LinearScaleStateIndicatorComponent22.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 175.0!) + Me.LinearScaleStateIndicatorComponent22.IndicatorScale = Me.LinearScaleComponent5 + Me.LinearScaleStateIndicatorComponent22.Name = "Indicator1" + Me.LinearScaleStateIndicatorComponent22.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState3.IntervalLength = 5.0! + ScaleIndicatorState3.Name = "Colored" + ScaleIndicatorState3.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState3.StartValue = 2.0! + ScaleIndicatorState4.IntervalLength = 5.0! + ScaleIndicatorState4.Name = "Empty" + ScaleIndicatorState4.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent22.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState3, ScaleIndicatorState4}) + Me.LinearScaleStateIndicatorComponent22.ZOrder = 99 + ' + 'LinearScaleStateIndicatorComponent23 + ' + Me.LinearScaleStateIndicatorComponent23.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 125.0!) + Me.LinearScaleStateIndicatorComponent23.IndicatorScale = Me.LinearScaleComponent5 + Me.LinearScaleStateIndicatorComponent23.Name = "Indicator2" + Me.LinearScaleStateIndicatorComponent23.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState5.IntervalLength = 5.0! + ScaleIndicatorState5.Name = "Colored" + ScaleIndicatorState5.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState5.StartValue = 3.0! + ScaleIndicatorState6.IntervalLength = 5.0! + ScaleIndicatorState6.Name = "Empty" + ScaleIndicatorState6.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent23.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState5, ScaleIndicatorState6}) + Me.LinearScaleStateIndicatorComponent23.ZOrder = 98 + ' + 'LinearScaleStateIndicatorComponent24 + ' + Me.LinearScaleStateIndicatorComponent24.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 75.0!) + Me.LinearScaleStateIndicatorComponent24.IndicatorScale = Me.LinearScaleComponent5 + Me.LinearScaleStateIndicatorComponent24.Name = "Indicator3" + Me.LinearScaleStateIndicatorComponent24.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState7.IntervalLength = 5.0! + ScaleIndicatorState7.Name = "Colored" + ScaleIndicatorState7.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState7.StartValue = 4.0! + ScaleIndicatorState8.IntervalLength = 5.0! + ScaleIndicatorState8.Name = "Empty" + ScaleIndicatorState8.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent24.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState7, ScaleIndicatorState8}) + Me.LinearScaleStateIndicatorComponent24.ZOrder = 97 + ' + 'LinearScaleStateIndicatorComponent25 + ' + Me.LinearScaleStateIndicatorComponent25.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + Me.LinearScaleStateIndicatorComponent25.IndicatorScale = Me.LinearScaleComponent5 + Me.LinearScaleStateIndicatorComponent25.Name = "Indicator4" + Me.LinearScaleStateIndicatorComponent25.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState9.IntervalLength = 5.0! + ScaleIndicatorState9.Name = "Colored" + ScaleIndicatorState9.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState9.StartValue = 5.0! + ScaleIndicatorState10.IntervalLength = 5.0! + ScaleIndicatorState10.Name = "Empty" + ScaleIndicatorState10.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent25.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState9, ScaleIndicatorState10}) + Me.LinearScaleStateIndicatorComponent25.ZOrder = 96 + ' + 'gc_Rating_Story + ' + Me.gc_Rating_Story.AutoLayout = False + Me.gc_Rating_Story.Cursor = System.Windows.Forms.Cursors.Hand + Me.gc_Rating_Story.Gauges.AddRange(New DevExpress.XtraGauges.Base.IGauge() {Me.LinearGauge4}) + Me.gc_Rating_Story.Location = New System.Drawing.Point(84, 72) + Me.gc_Rating_Story.Name = "gc_Rating_Story" + Me.gc_Rating_Story.Size = New System.Drawing.Size(82, 20) + Me.gc_Rating_Story.TabIndex = 0 + Me.gc_Rating_Story.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'LinearGauge4 + ' + Me.LinearGauge4.Bounds = New System.Drawing.Rectangle(0, 0, 80, 20) + Me.LinearGauge4.Indicators.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() {Me.LinearScaleStateIndicatorComponent16, Me.LinearScaleStateIndicatorComponent17, Me.LinearScaleStateIndicatorComponent18, Me.LinearScaleStateIndicatorComponent19, Me.LinearScaleStateIndicatorComponent20}) + Me.LinearGauge4.Name = "LinearGauge4" + Me.LinearGauge4.Orientation = DevExpress.XtraGauges.Core.Model.ScaleOrientation.Horizontal + Me.LinearGauge4.Scales.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() {Me.LinearScaleComponent4}) + ' + 'LinearScaleStateIndicatorComponent16 + ' + Me.LinearScaleStateIndicatorComponent16.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleStateIndicatorComponent16.IndicatorScale = Me.LinearScaleComponent4 + Me.LinearScaleStateIndicatorComponent16.Name = "Indicator0" + Me.LinearScaleStateIndicatorComponent16.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState11.IntervalLength = 5.0! + ScaleIndicatorState11.Name = "Colored" + ScaleIndicatorState11.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState11.StartValue = 1.0! + ScaleIndicatorState12.IntervalLength = 5.0! + ScaleIndicatorState12.Name = "Empty" + ScaleIndicatorState12.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent16.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState11, ScaleIndicatorState12}) + Me.LinearScaleStateIndicatorComponent16.ZOrder = 100 + ' + 'LinearScaleComponent4 + ' + Me.LinearScaleComponent4.AppearanceMajorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent4.AppearanceMajorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent4.AppearanceMinorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent4.AppearanceMinorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent4.AppearanceTickmarkText.TextBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:Black") + Me.LinearScaleComponent4.CustomLogarithmicBase = 2.0! + Me.LinearScaleComponent4.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.BS_Emu_Games, "Rating_Story", True)) + Me.LinearScaleComponent4.EndPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleComponent4.MajorTickCount = 2 + Me.LinearScaleComponent4.MajorTickmark.FormatString = "{0:F0}" + Me.LinearScaleComponent4.MajorTickmark.ShapeOffset = -20.0! + Me.LinearScaleComponent4.MajorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_1 + Me.LinearScaleComponent4.MajorTickmark.ShowText = False + Me.LinearScaleComponent4.MajorTickmark.ShowTick = False + Me.LinearScaleComponent4.MajorTickmark.TextOffset = -32.0! + Me.LinearScaleComponent4.MaxValue = 5.0! + Me.LinearScaleComponent4.MinorTickCount = 0 + Me.LinearScaleComponent4.MinorTickmark.ShapeOffset = -14.0! + Me.LinearScaleComponent4.MinorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_2 + Me.LinearScaleComponent4.MinorTickmark.ShowTick = False + Me.LinearScaleComponent4.Name = "Gauge0_Scale1" + Me.LinearScaleComponent4.StartPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + ' + 'LinearScaleStateIndicatorComponent17 + ' + Me.LinearScaleStateIndicatorComponent17.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 175.0!) + Me.LinearScaleStateIndicatorComponent17.IndicatorScale = Me.LinearScaleComponent4 + Me.LinearScaleStateIndicatorComponent17.Name = "Indicator1" + Me.LinearScaleStateIndicatorComponent17.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState13.IntervalLength = 5.0! + ScaleIndicatorState13.Name = "Colored" + ScaleIndicatorState13.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState13.StartValue = 2.0! + ScaleIndicatorState14.IntervalLength = 5.0! + ScaleIndicatorState14.Name = "Empty" + ScaleIndicatorState14.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent17.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState13, ScaleIndicatorState14}) + Me.LinearScaleStateIndicatorComponent17.ZOrder = 99 + ' + 'LinearScaleStateIndicatorComponent18 + ' + Me.LinearScaleStateIndicatorComponent18.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 125.0!) + Me.LinearScaleStateIndicatorComponent18.IndicatorScale = Me.LinearScaleComponent4 + Me.LinearScaleStateIndicatorComponent18.Name = "Indicator2" + Me.LinearScaleStateIndicatorComponent18.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState15.IntervalLength = 5.0! + ScaleIndicatorState15.Name = "Colored" + ScaleIndicatorState15.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState15.StartValue = 3.0! + ScaleIndicatorState16.IntervalLength = 5.0! + ScaleIndicatorState16.Name = "Empty" + ScaleIndicatorState16.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent18.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState15, ScaleIndicatorState16}) + Me.LinearScaleStateIndicatorComponent18.ZOrder = 98 + ' + 'LinearScaleStateIndicatorComponent19 + ' + Me.LinearScaleStateIndicatorComponent19.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 75.0!) + Me.LinearScaleStateIndicatorComponent19.IndicatorScale = Me.LinearScaleComponent4 + Me.LinearScaleStateIndicatorComponent19.Name = "Indicator3" + Me.LinearScaleStateIndicatorComponent19.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState17.IntervalLength = 5.0! + ScaleIndicatorState17.Name = "Colored" + ScaleIndicatorState17.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState17.StartValue = 4.0! + ScaleIndicatorState18.IntervalLength = 5.0! + ScaleIndicatorState18.Name = "Empty" + ScaleIndicatorState18.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent19.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState17, ScaleIndicatorState18}) + Me.LinearScaleStateIndicatorComponent19.ZOrder = 97 + ' + 'LinearScaleStateIndicatorComponent20 + ' + Me.LinearScaleStateIndicatorComponent20.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + Me.LinearScaleStateIndicatorComponent20.IndicatorScale = Me.LinearScaleComponent4 + Me.LinearScaleStateIndicatorComponent20.Name = "Indicator4" + Me.LinearScaleStateIndicatorComponent20.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState19.IntervalLength = 5.0! + ScaleIndicatorState19.Name = "Colored" + ScaleIndicatorState19.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState19.StartValue = 5.0! + ScaleIndicatorState20.IntervalLength = 5.0! + ScaleIndicatorState20.Name = "Empty" + ScaleIndicatorState20.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent20.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState19, ScaleIndicatorState20}) + Me.LinearScaleStateIndicatorComponent20.ZOrder = 96 + ' + 'gc_Rating_Sound + ' + Me.gc_Rating_Sound.AutoLayout = False + Me.gc_Rating_Sound.Cursor = System.Windows.Forms.Cursors.Hand + Me.gc_Rating_Sound.Gauges.AddRange(New DevExpress.XtraGauges.Base.IGauge() {Me.LinearGauge3}) + Me.gc_Rating_Sound.Location = New System.Drawing.Point(84, 49) + Me.gc_Rating_Sound.Name = "gc_Rating_Sound" + Me.gc_Rating_Sound.Size = New System.Drawing.Size(82, 20) + Me.gc_Rating_Sound.TabIndex = 0 + Me.gc_Rating_Sound.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'LinearGauge3 + ' + Me.LinearGauge3.Bounds = New System.Drawing.Rectangle(0, 0, 80, 20) + Me.LinearGauge3.Indicators.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() {Me.LinearScaleStateIndicatorComponent11, Me.LinearScaleStateIndicatorComponent12, Me.LinearScaleStateIndicatorComponent13, Me.LinearScaleStateIndicatorComponent14, Me.LinearScaleStateIndicatorComponent15}) + Me.LinearGauge3.Name = "LinearGauge3" + Me.LinearGauge3.Orientation = DevExpress.XtraGauges.Core.Model.ScaleOrientation.Horizontal + Me.LinearGauge3.Scales.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() {Me.LinearScaleComponent3}) + ' + 'LinearScaleStateIndicatorComponent11 + ' + Me.LinearScaleStateIndicatorComponent11.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleStateIndicatorComponent11.IndicatorScale = Me.LinearScaleComponent3 + Me.LinearScaleStateIndicatorComponent11.Name = "Indicator0" + Me.LinearScaleStateIndicatorComponent11.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState21.IntervalLength = 5.0! + ScaleIndicatorState21.Name = "Colored" + ScaleIndicatorState21.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState21.StartValue = 1.0! + ScaleIndicatorState22.IntervalLength = 5.0! + ScaleIndicatorState22.Name = "Empty" + ScaleIndicatorState22.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent11.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState21, ScaleIndicatorState22}) + Me.LinearScaleStateIndicatorComponent11.ZOrder = 100 + ' + 'LinearScaleComponent3 + ' + Me.LinearScaleComponent3.AppearanceMajorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent3.AppearanceMajorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent3.AppearanceMinorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent3.AppearanceMinorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent3.AppearanceTickmarkText.TextBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:Black") + Me.LinearScaleComponent3.CustomLogarithmicBase = 2.0! + Me.LinearScaleComponent3.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.BS_Emu_Games, "Rating_Sound", True)) + Me.LinearScaleComponent3.EndPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleComponent3.MajorTickCount = 2 + Me.LinearScaleComponent3.MajorTickmark.FormatString = "{0:F0}" + Me.LinearScaleComponent3.MajorTickmark.ShapeOffset = -20.0! + Me.LinearScaleComponent3.MajorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_1 + Me.LinearScaleComponent3.MajorTickmark.ShowText = False + Me.LinearScaleComponent3.MajorTickmark.ShowTick = False + Me.LinearScaleComponent3.MajorTickmark.TextOffset = -32.0! + Me.LinearScaleComponent3.MaxValue = 5.0! + Me.LinearScaleComponent3.MinorTickCount = 0 + Me.LinearScaleComponent3.MinorTickmark.ShapeOffset = -14.0! + Me.LinearScaleComponent3.MinorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_2 + Me.LinearScaleComponent3.MinorTickmark.ShowTick = False + Me.LinearScaleComponent3.Name = "Gauge0_Scale1" + Me.LinearScaleComponent3.StartPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + ' + 'LinearScaleStateIndicatorComponent12 + ' + Me.LinearScaleStateIndicatorComponent12.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 175.0!) + Me.LinearScaleStateIndicatorComponent12.IndicatorScale = Me.LinearScaleComponent3 + Me.LinearScaleStateIndicatorComponent12.Name = "Indicator1" + Me.LinearScaleStateIndicatorComponent12.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState23.IntervalLength = 5.0! + ScaleIndicatorState23.Name = "Colored" + ScaleIndicatorState23.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState23.StartValue = 2.0! + ScaleIndicatorState24.IntervalLength = 5.0! + ScaleIndicatorState24.Name = "Empty" + ScaleIndicatorState24.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent12.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState23, ScaleIndicatorState24}) + Me.LinearScaleStateIndicatorComponent12.ZOrder = 99 + ' + 'LinearScaleStateIndicatorComponent13 + ' + Me.LinearScaleStateIndicatorComponent13.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 125.0!) + Me.LinearScaleStateIndicatorComponent13.IndicatorScale = Me.LinearScaleComponent3 + Me.LinearScaleStateIndicatorComponent13.Name = "Indicator2" + Me.LinearScaleStateIndicatorComponent13.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState25.IntervalLength = 5.0! + ScaleIndicatorState25.Name = "Colored" + ScaleIndicatorState25.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState25.StartValue = 3.0! + ScaleIndicatorState26.IntervalLength = 5.0! + ScaleIndicatorState26.Name = "Empty" + ScaleIndicatorState26.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent13.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState25, ScaleIndicatorState26}) + Me.LinearScaleStateIndicatorComponent13.ZOrder = 98 + ' + 'LinearScaleStateIndicatorComponent14 + ' + Me.LinearScaleStateIndicatorComponent14.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 75.0!) + Me.LinearScaleStateIndicatorComponent14.IndicatorScale = Me.LinearScaleComponent3 + Me.LinearScaleStateIndicatorComponent14.Name = "Indicator3" + Me.LinearScaleStateIndicatorComponent14.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState27.IntervalLength = 5.0! + ScaleIndicatorState27.Name = "Colored" + ScaleIndicatorState27.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState27.StartValue = 4.0! + ScaleIndicatorState28.IntervalLength = 5.0! + ScaleIndicatorState28.Name = "Empty" + ScaleIndicatorState28.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent14.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState27, ScaleIndicatorState28}) + Me.LinearScaleStateIndicatorComponent14.ZOrder = 97 + ' + 'LinearScaleStateIndicatorComponent15 + ' + Me.LinearScaleStateIndicatorComponent15.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + Me.LinearScaleStateIndicatorComponent15.IndicatorScale = Me.LinearScaleComponent3 + Me.LinearScaleStateIndicatorComponent15.Name = "Indicator4" + Me.LinearScaleStateIndicatorComponent15.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState29.IntervalLength = 5.0! + ScaleIndicatorState29.Name = "Colored" + ScaleIndicatorState29.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState29.StartValue = 5.0! + ScaleIndicatorState30.IntervalLength = 5.0! + ScaleIndicatorState30.Name = "Empty" + ScaleIndicatorState30.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent15.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState29, ScaleIndicatorState30}) + Me.LinearScaleStateIndicatorComponent15.ZOrder = 96 + ' + 'gc_Rating_Graphics + ' + Me.gc_Rating_Graphics.AutoLayout = False + Me.gc_Rating_Graphics.Cursor = System.Windows.Forms.Cursors.Hand + Me.gc_Rating_Graphics.Gauges.AddRange(New DevExpress.XtraGauges.Base.IGauge() {Me.LinearGauge2}) + Me.gc_Rating_Graphics.Location = New System.Drawing.Point(84, 26) + Me.gc_Rating_Graphics.Name = "gc_Rating_Graphics" + Me.gc_Rating_Graphics.Size = New System.Drawing.Size(82, 20) + Me.gc_Rating_Graphics.TabIndex = 0 + Me.gc_Rating_Graphics.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'LinearGauge2 + ' + Me.LinearGauge2.Bounds = New System.Drawing.Rectangle(0, 0, 80, 20) + Me.LinearGauge2.Indicators.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() {Me.LinearScaleStateIndicatorComponent6, Me.LinearScaleStateIndicatorComponent7, Me.LinearScaleStateIndicatorComponent8, Me.LinearScaleStateIndicatorComponent9, Me.LinearScaleStateIndicatorComponent10}) + Me.LinearGauge2.Name = "LinearGauge2" + Me.LinearGauge2.Orientation = DevExpress.XtraGauges.Core.Model.ScaleOrientation.Horizontal + Me.LinearGauge2.Scales.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() {Me.LinearScaleComponent2}) + ' + 'LinearScaleStateIndicatorComponent6 + ' + Me.LinearScaleStateIndicatorComponent6.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleStateIndicatorComponent6.IndicatorScale = Me.LinearScaleComponent2 + Me.LinearScaleStateIndicatorComponent6.Name = "Indicator0" + Me.LinearScaleStateIndicatorComponent6.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState31.IntervalLength = 5.0! + ScaleIndicatorState31.Name = "Colored" + ScaleIndicatorState31.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState31.StartValue = 1.0! + ScaleIndicatorState32.IntervalLength = 5.0! + ScaleIndicatorState32.Name = "Empty" + ScaleIndicatorState32.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent6.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState31, ScaleIndicatorState32}) + Me.LinearScaleStateIndicatorComponent6.ZOrder = 100 + ' + 'LinearScaleComponent2 + ' + Me.LinearScaleComponent2.AppearanceMajorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent2.AppearanceMajorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent2.AppearanceMinorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent2.AppearanceMinorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent2.AppearanceTickmarkText.TextBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:Black") + Me.LinearScaleComponent2.CustomLogarithmicBase = 2.0! + Me.LinearScaleComponent2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.BS_Emu_Games, "Rating_Graphics", True)) + Me.LinearScaleComponent2.EndPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleComponent2.MajorTickCount = 2 + Me.LinearScaleComponent2.MajorTickmark.FormatString = "{0:F0}" + Me.LinearScaleComponent2.MajorTickmark.ShapeOffset = -20.0! + Me.LinearScaleComponent2.MajorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_1 + Me.LinearScaleComponent2.MajorTickmark.ShowText = False + Me.LinearScaleComponent2.MajorTickmark.ShowTick = False + Me.LinearScaleComponent2.MajorTickmark.TextOffset = -32.0! + Me.LinearScaleComponent2.MaxValue = 5.0! + Me.LinearScaleComponent2.MinorTickCount = 0 + Me.LinearScaleComponent2.MinorTickmark.ShapeOffset = -14.0! + Me.LinearScaleComponent2.MinorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_2 + Me.LinearScaleComponent2.MinorTickmark.ShowTick = False + Me.LinearScaleComponent2.Name = "Gauge0_Scale1" + Me.LinearScaleComponent2.StartPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + ' + 'LinearScaleStateIndicatorComponent7 + ' + Me.LinearScaleStateIndicatorComponent7.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 175.0!) + Me.LinearScaleStateIndicatorComponent7.IndicatorScale = Me.LinearScaleComponent2 + Me.LinearScaleStateIndicatorComponent7.Name = "Indicator1" + Me.LinearScaleStateIndicatorComponent7.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState33.IntervalLength = 5.0! + ScaleIndicatorState33.Name = "Colored" + ScaleIndicatorState33.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState33.StartValue = 2.0! + ScaleIndicatorState34.IntervalLength = 5.0! + ScaleIndicatorState34.Name = "Empty" + ScaleIndicatorState34.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent7.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState33, ScaleIndicatorState34}) + Me.LinearScaleStateIndicatorComponent7.ZOrder = 99 + ' + 'LinearScaleStateIndicatorComponent8 + ' + Me.LinearScaleStateIndicatorComponent8.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 125.0!) + Me.LinearScaleStateIndicatorComponent8.IndicatorScale = Me.LinearScaleComponent2 + Me.LinearScaleStateIndicatorComponent8.Name = "Indicator2" + Me.LinearScaleStateIndicatorComponent8.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState35.IntervalLength = 5.0! + ScaleIndicatorState35.Name = "Colored" + ScaleIndicatorState35.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState35.StartValue = 3.0! + ScaleIndicatorState36.IntervalLength = 5.0! + ScaleIndicatorState36.Name = "Empty" + ScaleIndicatorState36.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent8.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState35, ScaleIndicatorState36}) + Me.LinearScaleStateIndicatorComponent8.ZOrder = 98 + ' + 'LinearScaleStateIndicatorComponent9 + ' + Me.LinearScaleStateIndicatorComponent9.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 75.0!) + Me.LinearScaleStateIndicatorComponent9.IndicatorScale = Me.LinearScaleComponent2 + Me.LinearScaleStateIndicatorComponent9.Name = "Indicator3" + Me.LinearScaleStateIndicatorComponent9.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState37.IntervalLength = 5.0! + ScaleIndicatorState37.Name = "Colored" + ScaleIndicatorState37.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState37.StartValue = 4.0! + ScaleIndicatorState38.IntervalLength = 5.0! + ScaleIndicatorState38.Name = "Empty" + ScaleIndicatorState38.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent9.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState37, ScaleIndicatorState38}) + Me.LinearScaleStateIndicatorComponent9.ZOrder = 97 + ' + 'LinearScaleStateIndicatorComponent10 + ' + Me.LinearScaleStateIndicatorComponent10.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + Me.LinearScaleStateIndicatorComponent10.IndicatorScale = Me.LinearScaleComponent2 + Me.LinearScaleStateIndicatorComponent10.Name = "Indicator4" + Me.LinearScaleStateIndicatorComponent10.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState39.IntervalLength = 5.0! + ScaleIndicatorState39.Name = "Colored" + ScaleIndicatorState39.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState39.StartValue = 5.0! + ScaleIndicatorState40.IntervalLength = 5.0! + ScaleIndicatorState40.Name = "Empty" + ScaleIndicatorState40.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent10.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState39, ScaleIndicatorState40}) + Me.LinearScaleStateIndicatorComponent10.ZOrder = 96 + ' + 'gc_Rating_Gameplay + ' + Me.gc_Rating_Gameplay.AutoLayout = False + Me.gc_Rating_Gameplay.Cursor = System.Windows.Forms.Cursors.Hand + Me.gc_Rating_Gameplay.Gauges.AddRange(New DevExpress.XtraGauges.Base.IGauge() {Me.LinearGauge1}) + Me.gc_Rating_Gameplay.Location = New System.Drawing.Point(84, 3) + Me.gc_Rating_Gameplay.Name = "gc_Rating_Gameplay" + Me.gc_Rating_Gameplay.Size = New System.Drawing.Size(82, 20) + Me.gc_Rating_Gameplay.TabIndex = 0 + Me.gc_Rating_Gameplay.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'LinearGauge1 + ' + Me.LinearGauge1.Bounds = New System.Drawing.Rectangle(0, 0, 80, 20) + Me.LinearGauge1.Indicators.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent() {Me.LinearScaleStateIndicatorComponent1, Me.LinearScaleStateIndicatorComponent2, Me.LinearScaleStateIndicatorComponent3, Me.LinearScaleStateIndicatorComponent4, Me.LinearScaleStateIndicatorComponent5}) + Me.LinearGauge1.Name = "LinearGauge1" + Me.LinearGauge1.Orientation = DevExpress.XtraGauges.Core.Model.ScaleOrientation.Horizontal + Me.LinearGauge1.Scales.AddRange(New DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent() {Me.LinearScaleComponent1}) + ' + 'LinearScaleStateIndicatorComponent1 + ' + Me.LinearScaleStateIndicatorComponent1.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleStateIndicatorComponent1.IndicatorScale = Me.LinearScaleComponent1 + Me.LinearScaleStateIndicatorComponent1.Name = "Indicator0" + Me.LinearScaleStateIndicatorComponent1.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState41.IntervalLength = 5.0! + ScaleIndicatorState41.Name = "Colored" + ScaleIndicatorState41.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState41.StartValue = 1.0! + ScaleIndicatorState42.IntervalLength = 5.0! + ScaleIndicatorState42.Name = "Empty" + ScaleIndicatorState42.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent1.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState41, ScaleIndicatorState42}) + Me.LinearScaleStateIndicatorComponent1.ZOrder = 100 + ' + 'LinearScaleComponent1 + ' + Me.LinearScaleComponent1.AppearanceMajorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent1.AppearanceMajorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent1.AppearanceMinorTickmark.BorderBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent1.AppearanceMinorTickmark.ContentBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:White") + Me.LinearScaleComponent1.AppearanceTickmarkText.TextBrush = New DevExpress.XtraGauges.Core.Drawing.SolidBrushObject("Color:Black") + Me.LinearScaleComponent1.CustomLogarithmicBase = 2.0! + Me.LinearScaleComponent1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.BS_Emu_Games, "Rating_Gameplay", True)) + Me.LinearScaleComponent1.EndPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 225.0!) + Me.LinearScaleComponent1.MajorTickCount = 2 + Me.LinearScaleComponent1.MajorTickmark.FormatString = "{0:F0}" + Me.LinearScaleComponent1.MajorTickmark.ShapeOffset = -20.0! + Me.LinearScaleComponent1.MajorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_1 + Me.LinearScaleComponent1.MajorTickmark.ShowText = False + Me.LinearScaleComponent1.MajorTickmark.ShowTick = False + Me.LinearScaleComponent1.MajorTickmark.TextOffset = -32.0! + Me.LinearScaleComponent1.MaxValue = 5.0! + Me.LinearScaleComponent1.MinorTickCount = 0 + Me.LinearScaleComponent1.MinorTickmark.ShapeOffset = -14.0! + Me.LinearScaleComponent1.MinorTickmark.ShapeType = DevExpress.XtraGauges.Core.Model.TickmarkShapeType.Linear_Style1_2 + Me.LinearScaleComponent1.MinorTickmark.ShowTick = False + Me.LinearScaleComponent1.Name = "Gauge0_Scale1" + Me.LinearScaleComponent1.StartPoint = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + ' + 'LinearScaleStateIndicatorComponent2 + ' + Me.LinearScaleStateIndicatorComponent2.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 175.0!) + Me.LinearScaleStateIndicatorComponent2.IndicatorScale = Me.LinearScaleComponent1 + Me.LinearScaleStateIndicatorComponent2.Name = "Indicator1" + Me.LinearScaleStateIndicatorComponent2.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState43.IntervalLength = 5.0! + ScaleIndicatorState43.Name = "Colored" + ScaleIndicatorState43.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState43.StartValue = 2.0! + ScaleIndicatorState44.IntervalLength = 5.0! + ScaleIndicatorState44.Name = "Empty" + ScaleIndicatorState44.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent2.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState43, ScaleIndicatorState44}) + Me.LinearScaleStateIndicatorComponent2.ZOrder = 99 + ' + 'LinearScaleStateIndicatorComponent3 + ' + Me.LinearScaleStateIndicatorComponent3.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 125.0!) + Me.LinearScaleStateIndicatorComponent3.IndicatorScale = Me.LinearScaleComponent1 + Me.LinearScaleStateIndicatorComponent3.Name = "Indicator2" + Me.LinearScaleStateIndicatorComponent3.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState45.IntervalLength = 5.0! + ScaleIndicatorState45.Name = "Colored" + ScaleIndicatorState45.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState45.StartValue = 3.0! + ScaleIndicatorState46.IntervalLength = 5.0! + ScaleIndicatorState46.Name = "Empty" + ScaleIndicatorState46.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent3.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState45, ScaleIndicatorState46}) + Me.LinearScaleStateIndicatorComponent3.ZOrder = 98 + ' + 'LinearScaleStateIndicatorComponent4 + ' + Me.LinearScaleStateIndicatorComponent4.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 75.0!) + Me.LinearScaleStateIndicatorComponent4.IndicatorScale = Me.LinearScaleComponent1 + Me.LinearScaleStateIndicatorComponent4.Name = "Indicator3" + Me.LinearScaleStateIndicatorComponent4.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState47.IntervalLength = 5.0! + ScaleIndicatorState47.Name = "Colored" + ScaleIndicatorState47.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState47.StartValue = 4.0! + ScaleIndicatorState48.IntervalLength = 5.0! + ScaleIndicatorState48.Name = "Empty" + ScaleIndicatorState48.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent4.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState47, ScaleIndicatorState48}) + Me.LinearScaleStateIndicatorComponent4.ZOrder = 97 + ' + 'LinearScaleStateIndicatorComponent5 + ' + Me.LinearScaleStateIndicatorComponent5.Center = New DevExpress.XtraGauges.Core.Base.PointF2D(62.5!, 25.0!) + Me.LinearScaleStateIndicatorComponent5.IndicatorScale = Me.LinearScaleComponent1 + Me.LinearScaleStateIndicatorComponent5.Name = "Indicator4" + Me.LinearScaleStateIndicatorComponent5.Size = New System.Drawing.SizeF(48.23927!, 48.23927!) + ScaleIndicatorState49.IntervalLength = 5.0! + ScaleIndicatorState49.Name = "Colored" + ScaleIndicatorState49.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem13 + ScaleIndicatorState49.StartValue = 5.0! + ScaleIndicatorState50.IntervalLength = 5.0! + ScaleIndicatorState50.Name = "Empty" + ScaleIndicatorState50.ShapeType = DevExpress.XtraGauges.Core.Model.StateIndicatorShapeType.ProgressItem10 + Me.LinearScaleStateIndicatorComponent5.States.AddRange(New DevExpress.XtraGauges.Core.Model.IIndicatorState() {ScaleIndicatorState49, ScaleIndicatorState50}) + Me.LinearScaleStateIndicatorComponent5.ZOrder = 96 + ' + 'tpg_Game_Groups + ' + Me.tpg_Game_Groups.Controls.Add(Me.grd_Game_Groups) + Me.tpg_Game_Groups.Controls.Add(Me.lbl_Game_Groups) + Me.tpg_Game_Groups.Name = "tpg_Game_Groups" + Me.tpg_Game_Groups.Size = New System.Drawing.Size(301, 299) + Me.tpg_Game_Groups.Text = "Groups" + ' + 'grd_Game_Groups + ' + Me.grd_Game_Groups.DataSource = Me.BS_Game_Groups + Me.grd_Game_Groups.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Game_Groups.Location = New System.Drawing.Point(0, 25) + Me.grd_Game_Groups.MainView = Me.gv_Game_Groups + Me.grd_Game_Groups.Name = "grd_Game_Groups" + Me.grd_Game_Groups.Size = New System.Drawing.Size(301, 274) + Me.grd_Game_Groups.TabIndex = 7 + Me.grd_Game_Groups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Game_Groups}) + Me.grd_Game_Groups.Visible = False + ' + 'BS_Game_Groups + ' + Me.BS_Game_Groups.DataMember = "src_ucr_Emulation_GameGroups" + Me.BS_Game_Groups.DataSource = Me.DS_ML + ' + 'gv_Game_Groups + ' + Me.gv_Game_Groups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colGameCount}) + Me.gv_Game_Groups.GridControl = Me.grd_Game_Groups + Me.gv_Game_Groups.Name = "gv_Game_Groups" + Me.gv_Game_Groups.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Game_Groups.OptionsView.ShowGroupPanel = False + Me.gv_Game_Groups.OptionsView.ShowIndicator = False + ' + 'colName + ' + Me.colName.Caption = "Group" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.Visible = True + Me.colName.VisibleIndex = 0 + Me.colName.Width = 1134 + ' + 'colGameCount + ' + Me.colGameCount.Caption = "N° of Games" + Me.colGameCount.FieldName = "GameCount" + Me.colGameCount.Name = "colGameCount" + Me.colGameCount.OptionsColumn.AllowEdit = False + Me.colGameCount.OptionsColumn.ReadOnly = True + Me.colGameCount.Visible = True + Me.colGameCount.VisibleIndex = 1 + Me.colGameCount.Width = 376 + ' + 'lbl_Game_Groups + ' + Me.lbl_Game_Groups.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Game_Groups.AutoEllipsis = True + Me.lbl_Game_Groups.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Game_Groups.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Game_Groups.Location = New System.Drawing.Point(0, 0) + Me.lbl_Game_Groups.MKBoundControl1 = Nothing + Me.lbl_Game_Groups.MKBoundControl2 = Nothing + Me.lbl_Game_Groups.MKBoundControl3 = Nothing + Me.lbl_Game_Groups.MKBoundControl4 = Nothing + Me.lbl_Game_Groups.MKBoundControl5 = Nothing + Me.lbl_Game_Groups.Name = "lbl_Game_Groups" + Me.lbl_Game_Groups.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Game_Groups.Size = New System.Drawing.Size(301, 25) + Me.lbl_Game_Groups.TabIndex = 6 + Me.lbl_Game_Groups.Text = "This game is not part of any group." + ' + 'tpg_Staff + ' + Me.tpg_Staff.Controls.Add(Me.grd_Staff) + Me.tpg_Staff.Controls.Add(Me.lbl_Staff_Grid) + Me.tpg_Staff.Name = "tpg_Staff" + Me.tpg_Staff.Size = New System.Drawing.Size(301, 299) + Me.tpg_Staff.Text = "Staff" + ' + 'grd_Staff + ' + Me.grd_Staff.DataSource = Me.BS_Moby_Releases_Staff + Me.grd_Staff.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Staff.Location = New System.Drawing.Point(0, 25) + Me.grd_Staff.MainView = Me.gv_Staff + Me.grd_Staff.Name = "grd_Staff" + Me.grd_Staff.Size = New System.Drawing.Size(301, 274) + Me.grd_Staff.TabIndex = 8 + Me.grd_Staff.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Staff}) + Me.grd_Staff.Visible = False + ' + 'BS_Moby_Releases_Staff + ' + Me.BS_Moby_Releases_Staff.DataMember = "src_ucr_Emulation_Moby_Releases_Staff" + Me.BS_Moby_Releases_Staff.DataSource = Me.DS_ML + ' + 'gv_Staff + ' + Me.gv_Staff.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPosition, Me.colName1}) + Me.gv_Staff.GridControl = Me.grd_Staff + Me.gv_Staff.Name = "gv_Staff" + Me.gv_Staff.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_Staff.OptionsView.ShowGroupPanel = False + Me.gv_Staff.OptionsView.ShowIndicator = False + ' + 'colPosition + ' + Me.colPosition.FieldName = "Position" + Me.colPosition.Name = "colPosition" + Me.colPosition.OptionsColumn.AllowEdit = False + Me.colPosition.OptionsColumn.ReadOnly = True + Me.colPosition.Visible = True + Me.colPosition.VisibleIndex = 0 + Me.colPosition.Width = 126 + ' + 'colName1 + ' + Me.colName1.FieldName = "Name" + Me.colName1.Name = "colName1" + Me.colName1.OptionsColumn.AllowEdit = False + Me.colName1.OptionsColumn.ReadOnly = True + Me.colName1.Visible = True + Me.colName1.VisibleIndex = 1 + Me.colName1.Width = 173 + ' + 'lbl_Staff_Grid + ' + Me.lbl_Staff_Grid.Appearance.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.lbl_Staff_Grid.AutoEllipsis = True + Me.lbl_Staff_Grid.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Staff_Grid.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Staff_Grid.Location = New System.Drawing.Point(0, 0) + Me.lbl_Staff_Grid.MKBoundControl1 = Nothing + Me.lbl_Staff_Grid.MKBoundControl2 = Nothing + Me.lbl_Staff_Grid.MKBoundControl3 = Nothing + Me.lbl_Staff_Grid.MKBoundControl4 = Nothing + Me.lbl_Staff_Grid.MKBoundControl5 = Nothing + Me.lbl_Staff_Grid.Name = "lbl_Staff_Grid" + Me.lbl_Staff_Grid.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Staff_Grid.Size = New System.Drawing.Size(301, 25) + Me.lbl_Staff_Grid.TabIndex = 7 + Me.lbl_Staff_Grid.Text = "There is no staff listed for this game." + ' + 'tpg_Have + ' + Me.tpg_Have.Controls.Add(Me.grd_Have) + Me.tpg_Have.Name = "tpg_Have" + Me.tpg_Have.PageVisible = False + Me.tpg_Have.Size = New System.Drawing.Size(301, 299) + Me.tpg_Have.Text = "Have" + ' + 'grd_Have + ' + Me.grd_Have.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.grd_Have.DataSource = Me.BS_Have + Me.grd_Have.Location = New System.Drawing.Point(3, 3) + Me.grd_Have.MainView = Me.crdv_Have + Me.grd_Have.MenuManager = Me.barmng + Me.grd_Have.Name = "grd_Have" + Me.grd_Have.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_Have_Comments}) + Me.grd_Have.Size = New System.Drawing.Size(295, 293) + Me.grd_Have.TabIndex = 0 + Me.grd_Have.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.crdv_Have}) + ' + 'BS_Have + ' + Me.BS_Have.DataMember = "tbl_Emu_Games_Have_Want_List_Items" + Me.BS_Have.DataSource = Me.DS_ML + ' + 'crdv_Have + ' + Me.crdv_Have.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colid_Emu_Games_Have_Want_Lists, Me.colDescription, Me.colComments, Me.colPurchase_Date, Me.colPurchase_Price, Me.colCurrency, Me.colPurchase_Location, Me.colWilling_to_Trade, Me.colLocation, Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colBox_Comments, Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colMedia_Comments, Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colManual_Comments, Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colCatalog_Comments, Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colReference_Card_Comments, Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions, Me.colAdditional_Items_Comments}) + Me.crdv_Have.FocusedCardTopFieldIndex = 0 + Me.crdv_Have.GridControl = Me.grd_Have + Me.crdv_Have.MaximumCardColumns = 1 + Me.crdv_Have.Name = "crdv_Have" + Me.crdv_Have.OptionsBehavior.AutoHorzWidth = True + Me.crdv_Have.OptionsBehavior.FieldAutoHeight = True + Me.crdv_Have.OptionsBehavior.ReadOnly = True + Me.crdv_Have.OptionsView.ShowEmptyFields = False + Me.crdv_Have.VertScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.[Auto] + ' + 'colid_Emu_Games_Have_Want_Lists + ' + Me.colid_Emu_Games_Have_Want_Lists.Caption = "List" + Me.colid_Emu_Games_Have_Want_Lists.FieldName = "id_Emu_Games_Have_Want_Lists" + Me.colid_Emu_Games_Have_Want_Lists.Name = "colid_Emu_Games_Have_Want_Lists" + Me.colid_Emu_Games_Have_Want_Lists.Visible = True + Me.colid_Emu_Games_Have_Want_Lists.VisibleIndex = 0 + ' + 'colDescription + ' + Me.colDescription.FieldName = "Description" + Me.colDescription.Name = "colDescription" + Me.colDescription.Visible = True + Me.colDescription.VisibleIndex = 1 + ' + 'colComments + ' + Me.colComments.ColumnEdit = Me.rpi_Have_Comments + Me.colComments.FieldName = "Comments" + Me.colComments.Name = "colComments" + Me.colComments.Visible = True + Me.colComments.VisibleIndex = 2 + ' + 'rpi_Have_Comments + ' + Me.rpi_Have_Comments.Name = "rpi_Have_Comments" + ' + 'colPurchase_Date + ' + Me.colPurchase_Date.DisplayFormat.FormatString = "d" + Me.colPurchase_Date.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colPurchase_Date.FieldName = "Purchase_Date" + Me.colPurchase_Date.Name = "colPurchase_Date" + Me.colPurchase_Date.Visible = True + Me.colPurchase_Date.VisibleIndex = 3 + ' + 'colPurchase_Price + ' + Me.colPurchase_Price.DisplayFormat.FormatString = "n2" + Me.colPurchase_Price.DisplayFormat.FormatType = DevExpress.Utils.FormatType.Numeric + Me.colPurchase_Price.FieldName = "Purchase_Price" + Me.colPurchase_Price.Name = "colPurchase_Price" + Me.colPurchase_Price.Visible = True + Me.colPurchase_Price.VisibleIndex = 4 + ' + 'colCurrency + ' + Me.colCurrency.FieldName = "Currency" + Me.colCurrency.Name = "colCurrency" + Me.colCurrency.Visible = True + Me.colCurrency.VisibleIndex = 5 + ' + 'colPurchase_Location + ' + Me.colPurchase_Location.FieldName = "Purchase_Location" + Me.colPurchase_Location.Name = "colPurchase_Location" + Me.colPurchase_Location.Visible = True + Me.colPurchase_Location.VisibleIndex = 6 + ' + 'colWilling_to_Trade + ' + Me.colWilling_to_Trade.Caption = "Willing to trade" + Me.colWilling_to_Trade.FieldName = "Willing_to_Trade" + Me.colWilling_to_Trade.Name = "colWilling_to_Trade" + Me.colWilling_to_Trade.Visible = True + Me.colWilling_to_Trade.VisibleIndex = 7 + ' + 'colLocation + ' + Me.colLocation.FieldName = "Location" + Me.colLocation.Name = "colLocation" + Me.colLocation.Visible = True + Me.colLocation.VisibleIndex = 8 + ' + 'colBox_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Box Condition" + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Box_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colBox_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colBox_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 9 + ' + 'colBox_Comments + ' + Me.colBox_Comments.Caption = "Box Comments" + Me.colBox_Comments.FieldName = "Box_Comments" + Me.colBox_Comments.Name = "colBox_Comments" + Me.colBox_Comments.Visible = True + Me.colBox_Comments.VisibleIndex = 10 + ' + 'colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Media Condition" + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Media_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 11 + ' + 'colMedia_Comments + ' + Me.colMedia_Comments.Caption = "Media Comments" + Me.colMedia_Comments.FieldName = "Media_Comments" + Me.colMedia_Comments.Name = "colMedia_Comments" + Me.colMedia_Comments.Visible = True + Me.colMedia_Comments.VisibleIndex = 12 + ' + 'colManual_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Manual Condition" + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Manual_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colManual_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colManual_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 13 + ' + 'colManual_Comments + ' + Me.colManual_Comments.Caption = "Manual Comments" + Me.colManual_Comments.FieldName = "Manual_Comments" + Me.colManual_Comments.Name = "colManual_Comments" + Me.colManual_Comments.Visible = True + Me.colManual_Comments.VisibleIndex = 14 + ' + 'colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Catalog Condition" + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 15 + ' + 'colCatalog_Comments + ' + Me.colCatalog_Comments.Caption = "Catalog Comments" + Me.colCatalog_Comments.FieldName = "Catalog_Comments" + Me.colCatalog_Comments.Name = "colCatalog_Comments" + Me.colCatalog_Comments.Visible = True + Me.colCatalog_Comments.VisibleIndex = 16 + ' + 'colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Ref. Card Condition" + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 17 + ' + 'colReference_Card_Comments + ' + Me.colReference_Card_Comments.Caption = "Ref. Card Comments" + Me.colReference_Card_Comments.FieldName = "Reference_Card_Comments" + Me.colReference_Card_Comments.Name = "colReference_Card_Comments" + Me.colReference_Card_Comments.Visible = True + Me.colReference_Card_Comments.VisibleIndex = 18 + ' + 'colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions + ' + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions.Caption = "Add. Items Condition" + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions.FieldName = "Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions.Name = "colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions" + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions.Visible = True + Me.colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions.VisibleIndex = 19 + ' + 'colAdditional_Items_Comments + ' + Me.colAdditional_Items_Comments.Caption = "Add. Items Comments" + Me.colAdditional_Items_Comments.FieldName = "Additional_Items_Comments" + Me.colAdditional_Items_Comments.Name = "colAdditional_Items_Comments" + Me.colAdditional_Items_Comments.Visible = True + Me.colAdditional_Items_Comments.VisibleIndex = 20 + ' + 'tpg_Want + ' + Me.tpg_Want.Name = "tpg_Want" + Me.tpg_Want.PageVisible = False + Me.tpg_Want.Size = New System.Drawing.Size(301, 299) + Me.tpg_Want.Text = "Want" + ' + 'spltpnl_Main + ' + Me.spltpnl_Main.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.spltpnl_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.spltpnl_Main.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 + Me.spltpnl_Main.Location = New System.Drawing.Point(0, 0) + Me.spltpnl_Main.Name = "spltpnl_Main" + Me.spltpnl_Main.Panel1.Controls.Add(Me.pnl_Emu_Games) + Me.spltpnl_Main.Panel1.Text = "Panel1" + Me.spltpnl_Main.Panel2.Controls.Add(Me.spltpnl_Details) + Me.spltpnl_Main.Panel2.Text = "Panel2" + Me.spltpnl_Main.Size = New System.Drawing.Size(800, 600) + Me.spltpnl_Main.SplitterPosition = 307 + Me.spltpnl_Main.TabIndex = 7 + Me.spltpnl_Main.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'spltpnl_Details + ' + Me.spltpnl_Details.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.spltpnl_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.spltpnl_Details.Horizontal = False + Me.spltpnl_Details.Location = New System.Drawing.Point(0, 0) + Me.spltpnl_Details.Name = "spltpnl_Details" + Me.spltpnl_Details.Panel1.Controls.Add(Me.pic_Game) + Me.spltpnl_Details.Panel1.Controls.Add(Me.lbl_Displayname) + Me.spltpnl_Details.Panel1.Text = "Panel1" + Me.spltpnl_Details.Panel2.Controls.Add(Me.tcl_App) + Me.spltpnl_Details.Panel2.Text = "Panel2" + Me.spltpnl_Details.Size = New System.Drawing.Size(307, 600) + Me.spltpnl_Details.SplitterPosition = 268 + Me.spltpnl_Details.TabIndex = 3 + Me.spltpnl_Details.Text = "Ctl_MKDXSplitPanel1" + Me.spltpnl_Details.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'pic_Game + ' + Me.pic_Game.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic_Game.Dock = System.Windows.Forms.DockStyle.Fill + Me.pic_Game.Location = New System.Drawing.Point(0, 43) + Me.pic_Game.MenuManager = Me.barmng + Me.pic_Game.Name = "pic_Game" + Me.pic_Game.Properties.AllowFocused = False + Me.pic_Game.Properties.AppearanceFocused.BorderColor = System.Drawing.Color.Transparent + Me.pic_Game.Properties.AppearanceFocused.Options.UseBorderColor = True + Me.pic_Game.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pic_Game.Properties.ErrorImage = Nothing + Me.pic_Game.Properties.InitialImage = Nothing + Me.pic_Game.Properties.NullText = " " + Me.pic_Game.Properties.PictureInterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic + Me.pic_Game.Properties.ReadOnly = True + Me.pic_Game.Properties.ShowMenu = False + Me.pic_Game.Properties.ShowZoomSubMenu = DevExpress.Utils.DefaultBoolean.[True] + Me.pic_Game.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom + Me.pic_Game.Size = New System.Drawing.Size(307, 225) + Me.pic_Game.TabIndex = 0 + ' + 'lbl_Displayname + ' + Me.lbl_Displayname.Appearance.Font = New System.Drawing.Font("Segoe UI", 16.0!) + Me.lbl_Displayname.AutoEllipsis = True + Me.lbl_Displayname.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Displayname.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Displayname.Location = New System.Drawing.Point(0, 0) + Me.lbl_Displayname.MKBoundControl1 = Nothing + Me.lbl_Displayname.MKBoundControl2 = Nothing + Me.lbl_Displayname.MKBoundControl3 = Nothing + Me.lbl_Displayname.MKBoundControl4 = Nothing + Me.lbl_Displayname.MKBoundControl5 = Nothing + Me.lbl_Displayname.Name = "lbl_Displayname" + Me.lbl_Displayname.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Displayname.Size = New System.Drawing.Size(307, 43) + Me.lbl_Displayname.TabIndex = 4 + ' + 'tmr_ImageUpdate + ' + Me.tmr_ImageUpdate.Enabled = True + Me.tmr_ImageUpdate.Interval = 5000 + ' + 'popmnu_Emu + ' + Me.popmnu_Emu.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bsi_Launch), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Launch_Random), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit_Game), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Edit_Multiple_Games), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Clear_Exe_Config), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Similarity_Calculation), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Open_Similarity_Details), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Show_Similarity_Feature_Columns), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Open_Moby_Page), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Contribute_TechInfo), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Emu_Settings), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_DOSBox_Templates), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Rom_Manager), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Rombase_Manager), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Analyze_Missing_Extras), New DevExpress.XtraBars.LinkPersistInfo(Me.bsi_MultiUser), New DevExpress.XtraBars.LinkPersistInfo(Me.bsi_Export)}) + Me.popmnu_Emu.Manager = Me.barmng + Me.popmnu_Emu.Name = "popmnu_Emu" + ' + 'tmr + ' + ' + 'popmnu_GameGroups + ' + Me.popmnu_GameGroups.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_GameGroup_Info), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_GameGroup_Filter)}) + Me.popmnu_GameGroups.Manager = Me.barmng + Me.popmnu_GameGroups.Name = "popmnu_GameGroups" + ' + 'popmnu_Staff + ' + Me.popmnu_Staff.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Staff_Info), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Staff_Filter)}) + Me.popmnu_Staff.Manager = Me.barmng + Me.popmnu_Staff.Name = "popmnu_Staff" + ' + 'popmnu_Extras + ' + Me.popmnu_Extras.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Extras_Image_Manager), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Extras_Viewer_Settings)}) + Me.popmnu_Extras.Manager = Me.barmng + Me.popmnu_Extras.Name = "popmnu_Extras" + ' + 'popmnu_Statistics + ' + Me.popmnu_Statistics.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Statistics_Remove)}) + Me.popmnu_Statistics.Manager = Me.barmng + Me.popmnu_Statistics.Name = "popmnu_Statistics" + ' + 'BS_Want + ' + Me.BS_Want.DataMember = "tbl_Emu_Games_Have_Want_List_Items" + Me.BS_Want.DataSource = Me.DS_ML + ' + 'ucr_Emulation + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me, DevExpress.Utils.DefaultBoolean.[Default]) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.Controls.Add(Me.spltpnl_Main) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "ucr_Emulation" + Me.Size = New System.Drawing.Size(800, 600) + CType(Me.pnl_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Emu_Games.ResumeLayout(False) + CType(Me.splt_FilterUI_grdMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_FilterUI_grdMain.ResumeLayout(False) + CType(Me.accordion_FilterUI, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Want, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Have, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Trade, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Fav, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + Me.tlp_Combos.ResumeLayout(False) + CType(Me.pnl_31, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_31.ResumeLayout(False) + CType(Me.txb_Search.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_32, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_32.ResumeLayout(False) + CType(Me.cmb_Similarity_Calculation_Results.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Similarity_Calculation_Results, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_22, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_22.ResumeLayout(False) + CType(Me.cmb_Groups.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Group, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_12, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_12.ResumeLayout(False) + CType(Me.cmb_Filterset.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_FilterSets, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_21, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_21.ResumeLayout(False) + CType(Me.cmb_Staff.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Developer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_11, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_11.ResumeLayout(False) + CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.filteringUIContext, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tcl_App, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_App.ResumeLayout(False) + Me.tpg_Summary.ResumeLayout(False) + Me.tpg_TechnicalSpecs.ResumeLayout(False) + CType(Me.grd_TechnicalSpecs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_TechnicalSpecs, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Stats.ResumeLayout(False) + CType(Me.grd_Statistics, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emu_Games_History, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Statistics, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Rating.ResumeLayout(False) + CType(Me.LinearGauge5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleComponent5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearGauge4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleComponent4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearGauge3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleComponent3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearGauge2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleComponent2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearGauge1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleComponent1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LinearScaleStateIndicatorComponent5, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Game_Groups.ResumeLayout(False) + CType(Me.grd_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Game_Groups, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Staff.ResumeLayout(False) + CType(Me.grd_Staff, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Releases_Staff, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Staff, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Have.ResumeLayout(False) + CType(Me.grd_Have, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Have, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.crdv_Have, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_Have_Comments, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Main.ResumeLayout(False) + CType(Me.spltpnl_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Details.ResumeLayout(False) + CType(Me.pic_Game.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Emu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_GameGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Staff, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Extras, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Statistics, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Want, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents pnl_Emu_Games As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tcl_App As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents tpg_Summary As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Stats As DevExpress.XtraTab.XtraTabPage + Friend WithEvents pic_Game As MKNetDXLib.ctl_MKDXPictureEdit + Friend WithEvents lbl_Displayname As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents grd_Emu_Games As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Emu_Games As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lbl_Filterset As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Platform As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Filterset As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_Platform As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents tlp_Combos As System.Windows.Forms.TableLayoutPanel + Friend WithEvents pnl_12 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_11 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Search As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Search As MKNetDXLib.ctl_MKDXButtonEdit + Friend WithEvents BS_Emu_Games As System.Windows.Forms.BindingSource + Friend WithEvents colGame As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFolder As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRank As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colScore As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colYear As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNum_Played As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNum_Runtime As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFavourite As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPlatform_Exclusive As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAge_Pessimistic As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAge_Optimistic As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPublisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDeveloper As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBasic_Genres As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPerspectives As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSports_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEducational_Categories As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colOther_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPlatform_Short As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tmr_ImageUpdate As System.Windows.Forms.Timer + Friend WithEvents spnl_Summary As MKNetDXLib.ctl_MKDXScrollablePanel + Friend WithEvents tpg_TechnicalSpecs As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_NoSpecs As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents grd_TechnicalSpecs As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_TechnicalSpecs As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colCategory As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAttribute As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ttctl_TecSpec As DevExpress.Utils.DefaultToolTipController + Friend WithEvents colMinPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMaxPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BS_FilterSets As System.Windows.Forms.BindingSource + Friend WithEvents rpi_Fav As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents tpg_Rating As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Ctl_MKDXLabel4 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel3 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Rating_Gameplay As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents gc_Rating_Gameplay As MKNetDXLib.ctl_MKDXGaugeControl + Friend WithEvents gc_Rating_Personal As MKNetDXLib.ctl_MKDXGaugeControl + Friend WithEvents LinearGauge5 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge + Private WithEvents LinearScaleStateIndicatorComponent21 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleComponent5 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent + Private WithEvents LinearScaleStateIndicatorComponent22 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent23 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent24 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent25 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Friend WithEvents gc_Rating_Story As MKNetDXLib.ctl_MKDXGaugeControl + Friend WithEvents LinearGauge4 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge + Private WithEvents LinearScaleStateIndicatorComponent16 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleComponent4 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent + Private WithEvents LinearScaleStateIndicatorComponent17 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent18 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent19 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent20 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Friend WithEvents gc_Rating_Sound As MKNetDXLib.ctl_MKDXGaugeControl + Friend WithEvents LinearGauge3 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge + Private WithEvents LinearScaleStateIndicatorComponent11 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleComponent3 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent + Private WithEvents LinearScaleStateIndicatorComponent12 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent13 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent14 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent15 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Friend WithEvents gc_Rating_Graphics As MKNetDXLib.ctl_MKDXGaugeControl + Friend WithEvents LinearGauge2 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge + Private WithEvents LinearScaleStateIndicatorComponent6 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleComponent2 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent + Private WithEvents LinearScaleStateIndicatorComponent7 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent8 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent9 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent10 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Friend WithEvents LinearGauge1 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge + Private WithEvents LinearScaleStateIndicatorComponent1 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleComponent1 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleComponent + Private WithEvents LinearScaleStateIndicatorComponent2 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent3 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent4 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Private WithEvents LinearScaleStateIndicatorComponent5 As DevExpress.XtraGauges.Win.Gauges.Linear.LinearScaleStateIndicatorComponent + Friend WithEvents colRating As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Rating_Edit_Weights As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colVersion As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAlt As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTrainer As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTranslation As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colHack As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBios As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPrototype As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAlpha As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBeta As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSample As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colKiosk As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUnlicensed As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFixed As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPirated As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGood As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBad As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colOverdump As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPublicDomain As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colRegions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLanguages As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents grd_Statistics As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Statistics As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents BS_Emu_Games_History As System.Windows.Forms.BindingSource + Friend WithEvents lbl_Emu_Games_Runtime As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Emu_Games_Runtime_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Emu_Games_Playcount As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Emu_Games_Plays As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colStart As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEnd As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRuntime As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tmr As System.Windows.Forms.Timer + Friend WithEvents spltpnl_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents spltpnl_Details As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents colRating_Gameplay As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRating_Personal As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRating_Graphics As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRating_Sound As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colRating_Story As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMP_GameModes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMP_Options As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tpg_Game_Groups As DevExpress.XtraTab.XtraTabPage + Friend WithEvents grd_Game_Groups As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Game_Groups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lbl_Game_Groups As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_Game_Groups As System.Windows.Forms.BindingSource + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGameCount As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents pnl_22 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Group As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Groups As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents pnl_21 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents BS_Group As System.Windows.Forms.BindingSource + Friend WithEvents colLast_Played As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdded As DevExpress.XtraGrid.Columns.GridColumn + Private WithEvents popmnu_Emu As MKNetDXLib.cmp_MKDXPopupMenu + Private WithEvents barmng As MKNetDXLib.ctl_MKDXBarManager + Private WithEvents bbi_Contribute_TechInfo As DevExpress.XtraBars.BarButtonItem + Private WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Private WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Private WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Private WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Private WithEvents bbi_Open_Moby_Page As DevExpress.XtraBars.BarButtonItem + Private WithEvents bsi_Launch As DevExpress.XtraBars.BarSubItem + Private WithEvents bbi_Edit_Game As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_Rom_Manager As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_Rombase_Manager As DevExpress.XtraBars.BarButtonItem + Private WithEvents popmnu_GameGroups As MKNetDXLib.cmp_MKDXPopupMenu + Private WithEvents bbi_Edit_Multiple_Games As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_Export As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_Emu_Settings As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_DOSBox_Templates As DevExpress.XtraBars.BarButtonItem + Private WithEvents bbi_DOSBox_Clear_Exe_Config As DevExpress.XtraBars.BarButtonItem + Friend WithEvents coltmp_Highlighted As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_Analyze_Missing_Extras As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsi_MultiUser As DevExpress.XtraBars.BarSubItem + Friend WithEvents bbi_MultiUser_Add_Games As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_MultiUser_Show_Games As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_MultiUser_Remove_Games As DevExpress.XtraBars.BarButtonItem + Friend WithEvents tpg_Staff As DevExpress.XtraTab.XtraTabPage + Friend WithEvents grd_Staff As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Staff As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents lbl_Staff_Grid As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_Moby_Releases_Staff As System.Windows.Forms.BindingSource + Friend WithEvents colPosition As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colName1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_Staff_Info As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Staff_Filter As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Staff As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents pnl_31 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Staff As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Staff As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Developer As System.Windows.Forms.BindingSource + Friend WithEvents bbi_Similarity_Calculation As DevExpress.XtraBars.BarButtonItem + Friend WithEvents pnl_32 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Similarity As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Similarity_Calculation_Results As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Similarity_Calculation_Results As System.Windows.Forms.BindingSource + Friend WithEvents colSimilarity As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col001_Platform As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col002_MobyRank As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col003_MobyScore As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col004_Publisher As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col005_Developer As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col006_Year As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col101_Basic_Genres As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col102_Perspectives As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col103_Sports_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col105_Educational_Categories As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col106_Other_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col201_MinPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col202_MaxPlayers As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col203_AgeO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col204_AgeP As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col205_Rating_Descriptors As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col206_Other_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col301_Group_Membership As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col401_Staff As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_Show_Similarity_Feature_Columns As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Open_Similarity_Details As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colid_Emu_Games As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col207_Multiplayer_Attributes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_Moby_Games As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_Moby_Platforms As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_Moby_Releases As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_DOSBox_Configs As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colid_DOSBox_Configs_Template As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_Launch_Random As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Extras As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents bbi_Extras_Image_Manager As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Extras_Viewer_Settings As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_GameGroup_Info As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_GameGroup_Filter As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Statistics_Remove As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Statistics As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents splt_FilterUI_grdMain As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents accordion_FilterUI As DevExpress.XtraBars.Navigation.AccordionControl + Friend WithEvents filteringUIContext As DevExpress.Utils.Filtering.FilteringUIContext + Friend WithEvents AccordionControlElement2 As DevExpress.XtraBars.Navigation.AccordionControlElement + Friend WithEvents lbl_QuickFilter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colHave As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Have As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colWant As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Want As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents tpg_Have As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Want As DevExpress.XtraTab.XtraTabPage + Friend WithEvents grd_Have As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents crdv_Have As DevExpress.XtraGrid.Views.Card.CardView + Friend WithEvents BS_Have As BindingSource + Friend WithEvents BS_Want As BindingSource + Friend WithEvents colid_Emu_Games_Have_Want_Lists As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDescription As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colComments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Have_Comments As DevExpress.XtraEditors.Repository.RepositoryItemMemoEdit + Friend WithEvents colPurchase_Date As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPurchase_Price As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCurrency As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPurchase_Location As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colWilling_to_Trade As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colLocation As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBox_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colBox_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMedia_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMedia_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colManual_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colManual_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCatalog_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCatalog_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colReference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colReference_Card_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdditional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colAdditional_Items_Comments As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTrade As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_Trade As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colVehicular_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVisual_Presentation As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGameplay As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPacing As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colNarrative_Theme_Topic As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSetting As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInterface_Control As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDLC_Addon As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSpecial_Edition As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bsi_Export As DevExpress.XtraBars.BarSubItem + Friend WithEvents bbi_Export_CSV As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Export_XLSX As DevExpress.XtraBars.BarButtonItem + Friend WithEvents col107_Visual_Presentation As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col108_Gameplay As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col109_Pacing As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col110_Narrative_Theme_Topic As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col111_Setting As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col112_Vehicular_Themes As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col113_Interface_Control As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col114_DLC_Addon As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents col115_Special_Edition As DevExpress.XtraGrid.Columns.GridColumn +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.resx b/Metropolis_Launcher/Pages/ucr_Emulation.resx new file mode 100644 index 0000000..e0977dd --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Emulation.resx @@ -0,0 +1,189 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1041, 17 + + + 623, 17 + + + 412, 17 + + + 318, 17 + + + 165 + + + 137, 56 + + + 388, 56 + + + 766, 56 + + + 806, 95 + + + 143, 95 + + + 535, 56 + + + 17, 56 + + + 17, 95 + + + 501, 17 + + + 658, 95 + + + 891, 17 + + + 191, 17 + + + 317, 56 + + + 17, 17 + + + 986, 56 + + + 372, 95 + + + 507, 95 + + + 904, 95 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.vb b/Metropolis_Launcher/Pages/ucr_Emulation.vb new file mode 100644 index 0000000..090ae0e --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Emulation.vb @@ -0,0 +1,3261 @@ +Imports DevExpress.Utils.Filtering +Imports DevExpress.XtraBars +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraGrid.Views.Base + +Public Class ucr_Emulation + + Public Class cls_Emu_Game_ProcInfo + Public id_Emu_Games As Integer + Public Snapshot_Directory As String + + Public Sub New(ByVal id_Emu_Games As Integer, ByVal Snapshot_Directory As String) + Me.id_Emu_Games = id_Emu_Games + Me.Snapshot_Directory = Snapshot_Directory + End Sub + End Class + + Public Event E_Hide() + Public Event E_Show() + + Private ExtraType As Object = Nothing 'Name of the extra (Image in upper left corner), e.g. "box", "title", "snap" etc. + Private ExtraNum As Integer = 0 'Number of image currently used (first image is always "name of game (US) (BLABLA).png", next image is "name of game (US) (BLABLA)_002 [image2].png" ...) + Private NoExtraFound As Boolean = False + + Private _sem_FilterChange As Boolean = False + + Private _Slideshow As Boolean = False + Private _Slideshow_Delay As Integer = 1 + + Private _Initializing As Boolean = True + Private _Platform_Changing As Boolean = False + + Private dict_Proc_EmuGames As New Dictionary(Of Integer, cls_Emu_Game_ProcInfo) + + Private _al_StatsChanges As New ArrayList + Private _al_Screenshots_EmuGames As New ArrayList + Private _al_Screenshots As New ArrayList + + 'Watching the clipboard could be viewed as a security issue - temp. disabled + 'Private WithEvents _ClipboardWatcher As MKNetLib.cls_MKClipboardWatcher = MKNetLib.cls_MKClipboardWatcher.ClipboardWatcher + + Private _bbi_Show_Similarity_Feature_Columns_Caption As String = "" + + Public Sub New() + InitializeComponent() + +#If DEBUG Then + colid_Emu_Games.OptionsColumn.ShowInCustomizationForm = True + colid_Moby_Games.OptionsColumn.ShowInCustomizationForm = True + colid_Moby_Platforms.OptionsColumn.ShowInCustomizationForm = True + colid_Moby_Releases.OptionsColumn.ShowInCustomizationForm = True + colid_DOSBox_Configs.OptionsColumn.ShowInCustomizationForm = True + colid_DOSBox_Configs_Template.OptionsColumn.ShowInCustomizationForm = True +#End If + + Me._bbi_Show_Similarity_Feature_Columns_Caption = bbi_Show_Similarity_Feature_Columns.Caption + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Ensure_Moby_Platform_Caches(tran) + Me.DS_ML.Fill_src_ucr_Emulators_Platforms(tran, Me.DS_ML.src_ucr_Emulation_Platforms) + Me.DS_ML.Fill_tbl_FilterSets(tran, Me.DS_ML.tbl_FilterSets, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation) + DS_ML.Fill_src_ucr_Emulation_cmb_Groups(tran, Me.DS_ML.src_ucr_Emulation_cmb_Groups) + DS_ML.Fill_src_ucr_Emulation_cmb_Staff(tran, Me.DS_ML.src_ucr_Emulation_cmb_Staff) + DS_ML.Fill_src_ucr_Emulation_cmb_Similarity_Calculation_Results(tran, Me.DS_ML.src_ucr_Emulation_cmb_Similarity_Calculation_Results) + Me.cmb_Filterset.EditValue = CLng(0) + Me.cmb_Groups.EditValue = CLng(0) + Me.cmb_Staff.EditValue = CLng(0) + 'Me.DS_ML.Fill_src_ucr_Emulation_Games(tran, Me.DS_ML.src_ucr_Emulation_Games) + + _Slideshow = TC.NZ(cls_Settings.GetSetting("Emu_Slideshow", cls_Settings.enm_Settingmodes.Per_User, tran), "0") = "1" + _Slideshow_Delay = CInt(TC.NZ(cls_Settings.GetSetting("Emu_Slideshow_Delay", cls_Settings.enm_Settingmodes.Per_User, tran), "1")) + + tmr_ImageUpdate.Interval = _Slideshow_Delay * 1000 + + tran.Commit() + End Using + + barmng.SetPopupContextMenu(grd_Emu_Games, popmnu_Emu) + barmng.SetPopupContextMenu(grd_Game_Groups, popmnu_GameGroups) + barmng.SetPopupContextMenu(grd_Staff, popmnu_Staff) + barmng.SetPopupContextMenu(pic_Game, popmnu_Extras) + barmng.SetPopupContextMenu(grd_Statistics, popmnu_Statistics) + + cmb_Platform.EditValue = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Platform", cls_Settings.enm_Settingmodes.Per_User), CLng(-1)) + cmb_Groups.EditValue = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Group", cls_Settings.enm_Settingmodes.Per_User), CLng(0)) + cmb_Staff.EditValue = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Developer", cls_Settings.enm_Settingmodes.Per_User), CLng(0)) + + Apply_cmb_Similarity_Calculation_Results_Buttons_Enabled() + + _Initializing = False + + Call_J2K() 'Just call J2K with the Default Config + + tmr.Start() + End Sub + + Public Class cls_Romfiledata +#Region "Member" + Private _Fullpath As String = "" + Private _IsValid As String +#End Region + +#Region "Properties" + Public Property Fullpath() As String + Get + Return _Fullpath + End Get + Set(ByVal value As String) + _Fullpath = value + End Set + End Property + + Public ReadOnly Property DirName() As String + Get + Return Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(_Fullpath) + End Get + End Property + + Public ReadOnly Property FileName() As String + Get + Return Alphaleonis.Win32.Filesystem.Path.GetFileName(_Fullpath) + End Get + End Property + + Public ReadOnly Property IsValid() As Boolean + Get + Return _IsValid + End Get + End Property +#End Region + + Public Sub New(ByVal File As String, ByVal InnerFile As String, ByVal TempDir As String, Optional ByVal DecompressIfPossible As Boolean = True, Optional ByVal ShowError As Boolean = True) + Dim bIsDirectory As Boolean = False + If File.Contains(":WorkDir:") Then + bIsDirectory = True + + Dim fullpath = File.Replace(":WorkDir:", "") + + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(fullpath) Then + If ShowError Then + DevExpress.XtraEditors.XtraMessageBox.Show("The directory has not been found: " & fullpath, "Directory not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End If + + Me._IsValid = False + Return + End If + + Me._Fullpath = fullpath + Me._IsValid = True + Else + If Not Alphaleonis.Win32.Filesystem.File.Exists(File) Then + If ShowError Then + DevExpress.XtraEditors.XtraMessageBox.Show("The game has not been found: " & File, "Game not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End If + + Me._IsValid = False + Return + End If + + Me._Fullpath = File + + If DecompressIfPossible AndAlso InnerFile <> "" Then + If Me.FileName.ToLower <> InnerFile.ToLower Then + Try + 'We have an archive with a specific inner file + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(File) + + If archive IsNot Nothing Then + For Each entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not entry.IsDirectory Then + If Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath).ToLower = InnerFile.ToLower Then + 'We found the file we want to extract + Dim sOutFile As String = TempDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(entry.FilePath) + If Not Alphaleonis.Win32.Filesystem.File.Exists(sOutFile) Then + Using sw As New IO.StreamWriter(sOutFile) + GC.SuppressFinalize(sw.BaseStream) + entry.WriteTo(sw.BaseStream) + 'sw.BaseStream.Close() + sw.Close() + + Me._Fullpath = sOutFile + Exit For + End Using + End If + End If + End If + Next + End If + + If Not Alphaleonis.Win32.Filesystem.File.Exists(Me.Fullpath) Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("The expected inner file " & InnerFile & " could not be found in " & File & ". Please have a look in the Rom Manager and check the archive.", "Inner file not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me._IsValid = False + Return + End If + Catch ex As Exception + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error on decompressing " & File & " with the expected inner file " & InnerFile & ". Please have a look in the Rom Manager and check the archive." & ControlChars.CrLf & ControlChars.CrLf & "The error was: " & ex.Message, "Error on decompression", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me._IsValid = False + Return + End Try + End If + End If + + _IsValid = True + End If + End Sub + End Class + + Private Function isDOSBoxPatchActivated(ByRef tbl_patches As DS_ML.src_frm_Emulators_DOSBox_PatchesDataTable, ByVal Patchname As String) + For Each row As DataRow In tbl_patches + If row("Identifier") = Patchname Then + Return TC.NZ(row("Activated"), False) + End If + Next + + Throw New NotImplementedException("The DOSBox patch '" & Patchname & "' cannot be found") + Return False + End Function + + ''' + ''' Prepare the DOSBox config for launching the game + ''' + ''' DOSBox startup parameters (incl. temp. DOSBox config), else empty String + ''' + Private Function Prepare_DOSBox(ByVal row_Emulators As DataRow, ByVal row_Emu_Game As DataRow, Optional ByVal id_Rombase_DOSBox_Exe_Types As Integer = 0) As String + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + Dim tbl_patches As New DS_ML.src_frm_Emulators_DOSBox_PatchesDataTable + DS_ML.Fill_src_frm_Emulators_DOSBox_Patches(tran, tbl_patches, row_Emulators("id_Emulators")) + + 'Get the config for the game + Dim dt_DOSBox_Config As DS_ML.tbl_DOSBox_ConfigsDataTable = Nothing + DS_ML.Fill_tbl_DOSBox_Configs(tran, dt_DOSBox_Config, row_Emu_Game("id_Emu_Games")) + + If dt_DOSBox_Config Is Nothing OrElse dt_DOSBox_Config.Rows.Count <> 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while creating the DOSBox config (Errorcode 1).", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + Dim row_DOSBox_Config As DataRow = dt_DOSBox_Config.Rows(0) + + Dim sb_DOSBox_Config As New System.Text.StringBuilder() + + Dim sb_sdl As New System.Text.StringBuilder("[sdl]" & ControlChars.CrLf) + Dim sb_dosbox As New System.Text.StringBuilder("[dosbox]" & ControlChars.CrLf) + Dim sb_render As New System.Text.StringBuilder("[render]" & ControlChars.CrLf) + Dim sb_cpu As New System.Text.StringBuilder("[cpu]" & ControlChars.CrLf) + Dim sb_mixer As New System.Text.StringBuilder("[mixer]" & ControlChars.CrLf) + Dim sb_midi As New System.Text.StringBuilder("[midi]" & ControlChars.CrLf) + Dim sb_sblaster As New System.Text.StringBuilder("[sblaster]" & ControlChars.CrLf) + Dim sb_gus As New System.Text.StringBuilder("[gus]" & ControlChars.CrLf) + Dim sb_speaker As New System.Text.StringBuilder("[speaker]" & ControlChars.CrLf) + Dim sb_joystick As New System.Text.StringBuilder("[joystick]" & ControlChars.CrLf) + Dim sb_serial As New System.Text.StringBuilder("[serial]" & ControlChars.CrLf) + Dim sb_dos As New System.Text.StringBuilder("[dos]" & ControlChars.CrLf) + Dim sb_ipx As New System.Text.StringBuilder("[ipx]" & ControlChars.CrLf) + Dim sb_vsync As New System.Text.StringBuilder() + Dim sb_pci As New System.Text.StringBuilder() + Dim sb_glide As New System.Text.StringBuilder() + Dim sb_keyboard As New System.Text.StringBuilder() + Dim sb_ne2000 As New System.Text.StringBuilder() + Dim sb_autoexec As New System.Text.StringBuilder("[autoexec]" & ControlChars.CrLf) + + '[sdl] + sb_sdl.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sdl-fullscreen"), False), "fullscreen=true", "fullscreen=false")) + sb_sdl.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sdl-fulldouble"), False), "fulldouble=true", "fulldouble=false")) + sb_sdl.AppendLine("fullresolution=" & TC.NZ(row_DOSBox_Config("sdl-fullresolution"), "original")) + sb_sdl.AppendLine("windowresolution=" & TC.NZ(row_DOSBox_Config("sdl-windowresolution"), "original")) + + Dim sdl_output As String = TC.NZ(row_DOSBox_Config("sdl-output"), "surface") + Dim p_sdl_output As String = TC.NZ(row_DOSBox_Config("p_sdl_output"), "") + If p_sdl_output.Length > 0 Then + If (p_sdl_output = "direct3d" AndAlso isDOSBoxPatchActivated(tbl_patches, "direct3d_with_pixelshader")) _ + OrElse (p_sdl_output = "openglhq" AndAlso isDOSBoxPatchActivated(tbl_patches, "hq2x_openglhq")) Then + sdl_output = p_sdl_output + End If + End If + sb_sdl.AppendLine("output=" & sdl_output) + + sb_sdl.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sdl-autolock"), True), "autolock=true", "autolock=false")) + sb_sdl.AppendLine("sensitivity=" & TC.NZ(row_DOSBox_Config("sdl-sensitivity"), 100).ToString) + sb_sdl.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sdl-waitonerror"), True), "waitonerror=true", "waitonerror=false")) + sb_sdl.AppendLine("priority=" & TC.NZ(row_DOSBox_Config("sdl-priority_1"), "higher") & "," & TC.NZ(row_DOSBox_Config("sdl-priority_2"), "normal")) + sb_sdl.AppendLine("mapperfile=" & TC.NZ(row_DOSBox_Config("sdl-mapperfile"), "mapper.map")) + sb_sdl.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sdl-usescancodes"), True), "usescancodes=true", "usescancodes=false")) + + If isDOSBoxPatchActivated(tbl_patches, "direct3d_with_pixelshader") Then + sb_sdl.AppendLine("pixelshader=" & TC.NZ(row_DOSBox_Config("p_sdl_pixelshader"), "none") & IIf(TC.NZ(row_DOSBox_Config("p_sdl_pixelshader_forced"), False), " forced", "")) + End If + + '[dosbox] + sb_dosbox.AppendLine("language=" & TC.NZ(row_DOSBox_Config("dosbox-language"), "")) + sb_dosbox.AppendLine("machine=" & TC.NZ(row_DOSBox_Config("dosbox-machine"), "svga_s3")) + + sb_dosbox.AppendLine("memsize=" & TC.NZ(row_DOSBox_Config("dosbox-memsize"), 16).ToString) + If isDOSBoxPatchActivated(tbl_patches, "memsizekb") Then + sb_dosbox.AppendLine("memsizekb=" & TC.NZ(row_DOSBox_Config("p_dosbox_memsizekb"), 0).ToString) + End If + + If isDOSBoxPatchActivated(tbl_patches, "pit_timer") Then sb_dosbox.AppendLine("pit hack=" & TC.NZ(row_DOSBox_Config("p_dosbox_pit_hack"), "")) + + If isDOSBoxPatchActivated(tbl_patches, "vmemsize") Then sb_dosbox.AppendLine("vmemsize=" & TC.NZ(row_DOSBox_Config("p_dosbox_vmemsize"), 4).ToString) + If isDOSBoxPatchActivated(tbl_patches, "forcerate") Then sb_dosbox.AppendLine("forcerate=" & TC.NZ(row_DOSBox_Config("p_dosbox_forcerate"), "")) + + + '[render] + sb_render.AppendLine("frameskip=" & TC.NZ(row_DOSBox_Config("render-frameskip"), 0).ToString) + sb_render.AppendLine(IIf(TC.NZ(row_DOSBox_Config("render-aspect"), True), "aspect=true", "aspect=false")) + + Dim render_scaler As String = TC.NZ(row_DOSBox_Config("render-scaler"), "normal2x") + Dim p_render_scaler As String = TC.NZ(row_DOSBox_Config("p_render_scaler"), "") + If p_render_scaler.Length > 0 AndAlso isDOSBoxPatchActivated(tbl_patches, "scaler_" & p_render_scaler) Then + render_scaler = p_render_scaler + End If + sb_render.AppendLine("scaler=" & render_scaler & IIf(TC.NZ(row_DOSBox_Config("render-scaler_forced"), False), " forced", "")) + + If isDOSBoxPatchActivated(tbl_patches, "autofit") Then + sb_render.AppendLine("autofit=" & IIf(TC.NZ(row_DOSBox_Config("p_render_autofit"), True), "true", "false")) + End If + + '[cpu] + sb_cpu.AppendLine("core=" & TC.NZ(row_DOSBox_Config("cpu-core"), "auto")) + + Dim cpu_cputype As String = TC.NZ(row_DOSBox_Config("cpu-cputype"), "auto") + Dim p_cpu_cputype As String = TC.NZ(row_DOSBox_Config("p_cpu_cputype"), "") + If p_cpu_cputype.Length > 0 AndAlso isDOSBoxPatchActivated(tbl_patches, "cputype_" & p_cpu_cputype) Then + cpu_cputype = p_cpu_cputype + End If + sb_cpu.AppendLine("cputype=" & cpu_cputype) + + sb_cpu.AppendLine("cycles=" & TC.NZ(row_DOSBox_Config("cpu-cycles"), "auto")) + sb_cpu.AppendLine("cycleup=" & TC.NZ(row_DOSBox_Config("cpu-cycleup"), 200).ToString) + sb_cpu.AppendLine("cycledown=" & TC.NZ(row_DOSBox_Config("cpu-cycledown"), 200).ToString) + + '[mixer] + sb_mixer.AppendLine(IIf(TC.NZ(row_DOSBox_Config("mixer-nosound"), False), "nosound=true", "nosound=false")) + sb_mixer.AppendLine("rate=" & TC.NZ(row_DOSBox_Config("mixer-rate"), "44100")) + sb_mixer.AppendLine("blocksize=" & TC.NZ(row_DOSBox_Config("mixer-blocksize"), "1024")) + sb_mixer.AppendLine("prebuffer=" & TC.NZ(row_DOSBox_Config("mixer-prebuffer"), 20).ToString) + If isDOSBoxPatchActivated(tbl_patches, "swapstereo") Then + sb_mixer.AppendLine("swapstereo=" & IIf(TC.NZ(row_DOSBox_Config("p_mixer_swapstereo"), False), "true", "false")) + End If + + '[midi] + sb_midi.AppendLine("mpu401=" & TC.NZ(row_DOSBox_Config("midi-mpu401"), "intelligent")) + + Dim midi_mididevice As String = TC.NZ(row_DOSBox_Config("midi-mididevice"), "default") + Dim p_midi_mididevice As String = TC.NZ(row_DOSBox_Config("p_midi_mididevice"), "default") + If p_midi_mididevice.Length > 0 Then + If (p_midi_mididevice = "mt32" AndAlso isDOSBoxPatchActivated(tbl_patches, "mt32")) _ + OrElse (p_midi_mididevice = "synth" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_synth")) _ + OrElse (p_midi_mididevice = "timidity" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_timidity")) Then + midi_mididevice = p_midi_mididevice + End If + End If + sb_midi.AppendLine("mididevice=" & midi_mididevice) + + sb_midi.AppendLine("midiconfig=" & TC.NZ(row_DOSBox_Config("midi-midiconfig"), "")) + + If isDOSBoxPatchActivated(tbl_patches, "mt32") Then + sb_midi.AppendLine("mt32.reverse.stereo=" & IIf(TC.NZ(row_DOSBox_Config("p_midi_mt32_reverse_stereo"), False), "on", "off")) + sb_midi.AppendLine("mt32.verbose=" & IIf(TC.NZ(row_DOSBox_Config("p_midi_mt32_verbose"), False), "on", "off")) + sb_midi.AppendLine("mt32.thread=" & IIf(TC.NZ(row_DOSBox_Config("p_midi_mt32_thread"), False), "on", "off")) + sb_midi.AppendLine("mt32.dac=" & TC.NZ(row_DOSBox_Config("p_midi_mt32_dac"), "auto")) + sb_midi.AppendLine("mt32.reverb.mode=" & TC.NZ(row_DOSBox_Config("p_midi_mt32_reverb_mode"), "auto").ToString) + sb_midi.AppendLine("mt32.reverb.time=" & TC.NZ(row_DOSBox_Config("p_midi_mt32_reverb_time"), 5).ToString) + sb_midi.AppendLine("mt32.reverb.level=" & TC.NZ(row_DOSBox_Config("p_midi_mt32_reverb_level"), 3).ToString) + sb_midi.AppendLine("mt32.partials=" & TC.NZ(row_DOSBox_Config("p_midi_mt32_partials"), 32).ToString) + End If + + '[sblaster] + sb_sblaster.AppendLine("sbtype=" & TC.NZ(row_DOSBox_Config("sblaster-sbtype"), "sb16")) + sb_sblaster.AppendLine("sbbase=" & TC.NZ(row_DOSBox_Config("sblaster-sbbase"), "220")) + sb_sblaster.AppendLine("irq=" & TC.NZ(row_DOSBox_Config("sblaster-irq"), "7")) + sb_sblaster.AppendLine("dma=" & TC.NZ(row_DOSBox_Config("sblaster-dma"), "1")) + sb_sblaster.AppendLine("hdma=" & TC.NZ(row_DOSBox_Config("sblaster-hdma"), "5")) + sb_sblaster.AppendLine(IIf(TC.NZ(row_DOSBox_Config("sblaster-sbmixer"), True), "sbmixer=true", "sbmixer=false")) + + Dim sblaster_oplmode As String = TC.NZ(row_DOSBox_Config("sblaster-oplmode"), "auto") + Dim p_sblaster_oplmode As String = TC.NZ(row_DOSBox_Config("p_sblaster_oplmode"), "") + If p_sblaster_oplmode.Length > 0 AndAlso isDOSBoxPatchActivated(tbl_patches, "opl_cms_passthrough") Then + sblaster_oplmode = p_sblaster_oplmode + End If + sb_sblaster.AppendLine("oplmode=" & sblaster_oplmode) + + sb_sblaster.AppendLine("oplemu=" & TC.NZ(row_DOSBox_Config("sblaster-oplemu"), "default")) + sb_sblaster.AppendLine("oplrate=" & TC.NZ(row_DOSBox_Config("sblaster-oplrate"), "44100")) + + If isDOSBoxPatchActivated(tbl_patches, "opl_cms_passthrough") Then + sb_sblaster.AppendLine("hardwarebase=" & TC.NZ(row_DOSBox_Config("p_sblaster_hardwarebase"), "220")) + End If + + If isDOSBoxPatchActivated(tbl_patches, "goldplay") Then + sb_sblaster.AppendLine("goldplay=" & IIf(TC.NZ(row_DOSBox_Config("p_sblaster_goldplay"), False), "true", "false")) + End If + + '[gus] + sb_gus.AppendLine("gus=" & IIf(TC.NZ(row_DOSBox_Config("gus-gus"), False), "true", "false")) + sb_gus.AppendLine("gusrate=" & TC.NZ(row_DOSBox_Config("gus-gusrate"), "44100")) + sb_gus.AppendLine("gusbase=" & TC.NZ(row_DOSBox_Config("gus-gusrate"), "240")) + sb_gus.AppendLine("gusirq=" & TC.NZ(row_DOSBox_Config("gus-gusirq"), "5")) + sb_gus.AppendLine("gusdma=" & TC.NZ(row_DOSBox_Config("gus-gusdma"), "3")) + sb_gus.AppendLine("ultradir=" & TC.NZ(row_DOSBox_Config("gus-ultradir"), "")) + + '[speaker] + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("speaker-pcspeaker"), True), "pcspeaker=true", "pcspeaker=false")) + sb_speaker.AppendLine("pcrate=" & TC.NZ(row_DOSBox_Config("speaker-pcrate"), "44100")) + sb_speaker.AppendLine("tandy=" & TC.NZ(row_DOSBox_Config("speaker-tandy"), "auto")) + sb_speaker.AppendLine("tandyrate=" & TC.NZ(row_DOSBox_Config("speaker-tandyrate"), "44100")) + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("speaker-disney"), True), "disney=true", "disney=false")) + + '[joystick] + sb_joystick.AppendLine("joysticktype=" & TC.NZ(row_DOSBox_Config("joystick-joysticktype"), "auto")) + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("joystick-timed"), True), "timed=true", "timed=false")) + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("joystick-autofire"), True), "autofire=true", "autofire=false")) + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("joystick-swap34"), True), "swap34=true", "swap34=false")) + sb_speaker.AppendLine(IIf(TC.NZ(row_DOSBox_Config("joystick-buttonwrap"), True), "buttonwrap=true", "buttonwrap=false")) + + 'TODO: [serial] + sb_serial.AppendLine("serial1=" & TC.NZ(row_DOSBox_Config("serial-serial1"), "dummy")) + sb_serial.AppendLine("serial2=" & TC.NZ(row_DOSBox_Config("serial-serial2"), "dummy")) + sb_serial.AppendLine("serial3=" & TC.NZ(row_DOSBox_Config("serial-serial3"), "disabled")) + sb_serial.AppendLine("serial4=" & TC.NZ(row_DOSBox_Config("serial-serial4"), "disabled")) + + '[dos] + sb_dos.AppendLine(IIf(TC.NZ(row_DOSBox_Config("dos-xms"), True), "xms=true", "xms=false")) + sb_dos.AppendLine(IIf(TC.NZ(row_DOSBox_Config("dos-ems"), True), "ems=true", "ems=false")) + sb_dos.AppendLine(IIf(TC.NZ(row_DOSBox_Config("dos-umb"), True), "umb=true", "umb=false")) + sb_dos.AppendLine("keyboardlayout=" & TC.NZ(row_DOSBox_Config("dos-keyboardlayout"), "auto")) + + '[ipx] + sb_ipx.AppendLine(IIf(TC.NZ(row_DOSBox_Config("ipx-ipx"), True), "ipx=true", "ipx=false")) + + '[vsync] - if patch is active + If isDOSBoxPatchActivated(tbl_patches, "vsync") Then + sb_vsync.AppendLine("[vsync]") + sb_vsync.AppendLine("vsyncmode=" & TC.NZ(row_DOSBox_Config("p_vsync_vsyncmode"), "off")) + sb_vsync.AppendLine("vsyncrate=" & TC.NZ(row_DOSBox_Config("p_vsync_vsyncrate"), 75).ToString) + End If + + '[pci] - if patches are active + If isDOSBoxPatchActivated(tbl_patches, "voodoo") Then + sb_pci.AppendLine("[pci]") + sb_pci.AppendLine("voodoo=" & TC.NZ(row_DOSBox_Config("p_voodoo"), "auto")) + End If + + '[glide] - if patch is active + If isDOSBoxPatchActivated(tbl_patches, "glide") Then + sb_glide.AppendLine("[glide]") + sb_pci.AppendLine("glide=" & TC.NZ(row_DOSBox_Config("p_glide_glide"), "true")) + sb_pci.AppendLine("lfb=" & TC.NZ(row_DOSBox_Config("p_glide_lfb"), "full")) + sb_pci.AppendLine("splash=" & IIf(TC.NZ(row_DOSBox_Config("p_glide_splash"), True), "true", "false")) + End If + + '[keyboard] - if patches are active + If isDOSBoxPatchActivated(tbl_patches, "aux") Then + sb_keyboard.AppendLine("[keyboard]") + sb_keyboard.AppendLine("aux=" & IIf(TC.NZ(row_DOSBox_Config("p_keyboard_aux"), False), "true", "false")) + sb_keyboard.AppendLine("auxdevice=" & TC.NZ(row_DOSBox_Config("p_keyboard_auxdevice"), "intellimouse")) + End If + + '[ne2000] - if patch is active + If isDOSBoxPatchActivated(tbl_patches, "ne2000") Then + sb_ne2000.AppendLine("[ne2000]") + sb_ne2000.AppendLine("ne2000=" & IIf(TC.NZ(row_DOSBox_Config("p_ne2000_ne2000"), True), "true", "false")) + sb_ne2000.AppendLine("nicbase=" & TC.NZ(row_DOSBox_Config("p_ne2000_nicbase"), "300")) + sb_ne2000.AppendLine("nicirq=" & TC.NZ(row_DOSBox_Config("p_ne2000_nicirq"), 3).ToString) + sb_ne2000.AppendLine("realnic=" & TC.NZ(row_DOSBox_Config("p_ne2000_realnic"), "list")) + + Dim ne2000_macaddr As String = TC.NZ(row_DOSBox_Config("p_ne2000_macaddr"), "AC:DE:48:??:??:??") + If ne2000_macaddr.Contains("?") Then + Dim sb_macaddr As New System.Text.StringBuilder + Dim guid As String = System.Guid.NewGuid.ToString.ToUpper + Dim counter As Integer = guid.Length - 1 + For i = 0 To ne2000_macaddr.Length - 1 + If ne2000_macaddr(i) = "?" Then + sb_macaddr.Append(guid(counter)) + counter -= 1 + Else + sb_macaddr.Append(ne2000_macaddr(i)) + End If + Next + ne2000_macaddr = sb_macaddr.ToString + End If + sb_ne2000.AppendLine("macaddr=" & ne2000_macaddr) + End If + + 'TODO: ml_customsettings + + '[autoexec] + 'autoexec-before + If TC.NZ(row_DOSBox_Config("autoexec-before"), "").Length > 0 Then + sb_autoexec.AppendLine(row_DOSBox_Config("autoexec-before")) + End If + + 'TODO: ml-volume + + 'TODO: ml-ipx + + 'MOUNT Preparation + Dim dt_Files As New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Files, row_Emu_Game("id_Moby_Platforms"), row_Emu_Game("id_Emu_Games"), row_Emu_Game("id_Emu_Games")) + + Dim dview_Mount As New DataView(dt_Files) + dview_Mount.Sort = "DOSBox_Mount_Destination ASC, Volume_Number ASC" + Dim dt_Mount As DataTable = dview_Mount.ToTable + + Dim Working_Directory As String = "" + + Dim rows_Mount As DataRow() = dt_Mount.Select("DOSBox_Mount_Destination IS NOT NULL AND DOSBox_Mount_Destination <> ''") + + Dim al_Mount_Destination As New ArrayList() + For Each row_Mount As DataRow In rows_Mount + If Not al_Mount_Destination.Contains(row_Mount("DOSBox_Mount_Destination")) Then + al_Mount_Destination.Add(row_Mount("DOSBox_Mount_Destination")) + End If + + If TC.NZ(row_Mount("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd And Working_Directory = "" Then 'is Working Directory + Working_Directory = row_Mount("Folder") + End If + Next + + If al_Mount_Destination.Count = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There is nothing to mount, please check the Rom Manager.", "Nothing to mount", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + 'TODO: Booters don't need working directories! + If Working_Directory = "" Then + DevExpress.XtraEditors.XtraMessageBox.Show("There is no working directory to be mounted, please check the Rom Manager.", "Working directory not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + Dim al_Remove_Mount_Destination As New ArrayList + + Dim bUnpacked As Boolean = False + + For Each Mount_Destination As String In al_Mount_Destination + Dim rows_Mount_Destination() As DataRow = dt_Mount.Select("DOSBox_Mount_Destination = " & TC.getSQLFormat(Mount_Destination)) + + For Each row_Mount_Destination In rows_Mount_Destination + 'Packed files + If Not isDOSBoxPatchActivated(tbl_patches, "zipmount") Then + If TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.zip Then + 'Unpack, add to al_Remove_Mount_Destination, relocate file entries + Dim file As String = row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File") + If Not Alphaleonis.Win32.Filesystem.File.Exists(file) Then + 'File not found + DevExpress.XtraEditors.XtraMessageBox.Show("The file " & file & "could not be found, please check the Rom Manager.", "File not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + Else + 'Unpack + Dim prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing + + Try + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(file) + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 100, ProgressBarStyle.Marquee, False, "Unpacking " & file, 0, archive.Entries.Count, False) + prg.Start() + + For Each archive_entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + prg.IncreaseCurrentValue() + If Not archive_entry.IsDirectory Then + SharpCompress.Archive.IArchiveEntryExtensions.WriteToDirectory(archive_entry, Working_Directory, SharpCompress.Common.ExtractOptions.ExtractFullPath Or SharpCompress.Common.ExtractOptions.Overwrite) + End If + Next + + al_Remove_Mount_Destination.Add(row_Mount_Destination("id_Emu_Games")) + Catch ex As Exception + If prg IsNot Nothing Then prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an exception while unpacking " & file & "." & ControlChars.CrLf & "The error was: " & ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Finally + If prg IsNot Nothing Then prg.Close() + End Try + + bUnpacked = True + End If + End If + End If + + 'Packed CD images + If TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso AndAlso Not Equals(row_Mount_Destination("File"), row_Mount_Destination("InnerFile")) Then + 'we have to unpack CD images (also unpack the .bin files alongside .cue files) + Dim file As String = row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File") + + If Not Alphaleonis.Win32.Filesystem.File.Exists(file) Then + 'File not found + DevExpress.XtraEditors.XtraMessageBox.Show("The file " & file & "could not be found, please check the Rom Manager.", "File not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + Else + 'Unpack + Dim prg As MKNetDXLib.cls_MKDXBaseform_Progress_Helper = Nothing + + Try + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(file) + + prg = New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(tran), 400, 100, ProgressBarStyle.Marquee, False, "Unpacking CD image " & row_Mount_Destination("InnerFile"), 0, 1, False) + prg.Start() + + Dim sCueSheet As String = "" + + For Each archive_entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not archive_entry.IsDirectory Then + If Equals(archive_entry.FilePath, row_Mount_Destination("InnerFile")) Then + 'Only unpack if not already exists + If Not Alphaleonis.Win32.Filesystem.File.Exists(Working_Directory & "\" & archive_entry.FilePath) Then + SharpCompress.Archive.IArchiveEntryExtensions.WriteToDirectory(archive_entry, Working_Directory, SharpCompress.Common.ExtractOptions.ExtractFullPath Or SharpCompress.Common.ExtractOptions.Overwrite) + If archive_entry.FilePath.ToLower.EndsWith(".cue") Then + sCueSheet = archive_entry.FilePath + End If + End If + End If + End If + Next + + If sCueSheet <> "" Then + 'extract all the stuff within the cuesheet + Dim sCueSheetContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(Working_Directory & "\" & sCueSheet) + Dim matches As Object = MKNetLib.cls_MKRegex.GetMatches(sCueSheetContent, "FILE\s*\""(.*?)""") + For Each match As System.Text.RegularExpressions.Match In matches + Dim targetfile As String = match.Groups(1).Value.ToLower + + For Each archive_entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not archive_entry.IsDirectory Then + If archive_entry.FilePath.ToLower.EndsWith(targetfile) Then + 'Only unpack if not already exists + If Not Alphaleonis.Win32.Filesystem.File.Exists(Working_Directory & "\" & archive_entry.FilePath) Then + SharpCompress.Archive.IArchiveEntryExtensions.WriteToDirectory(archive_entry, Working_Directory, SharpCompress.Common.ExtractOptions.ExtractFullPath Or SharpCompress.Common.ExtractOptions.Overwrite) + End If + End If + End If + Next + Next + End If + + Catch ex As Exception + If prg IsNot Nothing Then prg.Close() + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an exception while unpacking " & row_Mount_Destination("InnerFile") & "." & ControlChars.CrLf & "The error was: " & ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Finally + If prg IsNot Nothing Then prg.Close() + End Try + + bUnpacked = True + End If + End If + Next + + 'Remove mount destinations of packed files after unpacking + For Each remove_id As Integer In al_Remove_Mount_Destination + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET DOSBox_Mount_Destination = NULL WHERE id_Emu_Games = " & TC.getSQLFormat(remove_id), tran) + Next + Next + + If bUnpacked Then + 'Rescan DOSBox Working Directory + Try + frm_Rom_Manager.Rescan_DOSBox_Game(row_Emu_Game("id_Emu_Games"), tran) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an error while rescanning a DOSBox game after unpacking. The error was: " & ex.Message, "Error while rescanning DOSBox game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + + 'Reload the file list + dt_Files = New DS_ML.tbl_Emu_GamesDataTable + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, dt_Files, row_Emu_Game("id_Moby_Platforms"), row_Emu_Game("id_Emu_Games"), row_Emu_Game("id_Emu_Games")) + + dview_Mount = New DataView(dt_Files) + dview_Mount.Sort = "DOSBox_Mount_Destination ASC, Volume_Number ASC" + dt_Mount = dview_Mount.ToTable + End If + + 'MOUNT + Dim sFirstMountLetter As String = "" + + For Each Mount_Destination As String In al_Mount_Destination + Dim Mount_Command As String = "" + + Dim rows_Mount_Destination() As DataRow = dt_Mount.Select("DOSBox_Mount_Destination = " & TC.getSQLFormat(Mount_Destination)) + + Dim is_CD_Images As Boolean = False + Dim is_Working_Directory As Boolean = False + Dim is_Packed_Content As Boolean = False + Dim is_Floppy_Images As Boolean = False + Dim is_Floppy_Booter As Boolean = False + + For Each row_Mount_Destination In rows_Mount_Destination + Select Case TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) + Case cls_Globals.enm_Rombase_DOSBox_Filetypes.zip + is_Packed_Content = True + Case cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd + is_Working_Directory = True + Case cls_Globals.enm_Rombase_DOSBox_Filetypes.iso + is_CD_Images = True + Case cls_Globals.enm_Rombase_DOSBox_Filetypes.img + is_Floppy_Images = True + Case cls_Globals.enm_Rombase_DOSBox_Filetypes.img_boot + is_Floppy_Booter = True + End Select + Next + + 'TODO: use short paths for all files + + If is_CD_Images Then + If is_Working_Directory OrElse is_Packed_Content OrElse is_Floppy_Images OrElse is_Floppy_Booter Then + DevExpress.XtraEditors.XtraMessageBox.Show("You cannot mount CD image/s but also other media on drive " & Mount_Destination & ". Please check the Rom Manager.", "Cannot mix CD with other media", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + Mount_Command = "imgmount " & Mount_Destination + + For Each row_Mount_Destination In rows_Mount_Destination + If TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.iso Then 'Only CD Images + Mount_Command &= " """ & row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File") & """" + End If + Next + + Mount_Command &= " -t iso" + ElseIf is_Floppy_Images OrElse is_Floppy_Booter Then + If is_Working_Directory OrElse is_Packed_Content OrElse is_CD_Images Then + DevExpress.XtraEditors.XtraMessageBox.Show("You cannot mount floppy image/s but also other media on drive " & Mount_Destination & ". Please check the Rom Manager.", "Cannot mix CD with other media", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + Mount_Command = "imgmount " & Mount_Destination + + For Each row_Mount_Destination In rows_Mount_Destination + If {cls_Globals.enm_Rombase_DOSBox_Filetypes.img, cls_Globals.enm_Rombase_DOSBox_Filetypes.img_boot}.Contains(TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0)) Then 'Only Floppy or Booter Images + Mount_Command &= " """ & row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File") & """" + End If + Next + + Mount_Command &= " -t floppy" + ElseIf is_Packed_Content Then + If isDOSBoxPatchActivated(tbl_patches, "zipmount") Then + Mount_Command = "mount " & Mount_Destination & " """ + + If is_Working_Directory Then + For Each row_Mount_Destination In rows_Mount_Destination + If TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then 'Only Working Directories + Dim sb_shortpath As New System.Text.StringBuilder(256) + MKNetLib.cls_MKFileSupport.GetShortPathName(row_Mount_Destination("Folder"), sb_shortpath, sb_shortpath.Capacity) + + Mount_Command &= sb_shortpath.ToString & ":" + End If + Next + End If + + For Each row_Mount_Destination In rows_Mount_Destination + If TC.NZ(row_Mount_Destination("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.zip Then 'Only Packed Content + Dim sb_shortpath As New System.Text.StringBuilder(256) + MKNetLib.cls_MKFileSupport.GetShortPathName(row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File"), sb_shortpath, sb_shortpath.Capacity) + + Mount_Command &= sb_shortpath.ToString & ":" + End If + Next + + Mount_Command &= "/" & """" + End If + ElseIf is_Working_Directory Then + If rows_Mount_Destination.Length > 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("You cannot mount more than one working directory to drive " & Mount_Destination & ". Please check the Rom Manager.", "Cannot mix CD with other media", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + + Dim sb_shortpath As New System.Text.StringBuilder(256) + MKNetLib.cls_MKFileSupport.GetShortPathName(rows_Mount_Destination(0)("Folder"), sb_shortpath, sb_shortpath.Capacity) + + Mount_Command = "mount " & Mount_Destination & " """ & sb_shortpath.ToString & """" + End If + + sb_autoexec.AppendLine(Mount_Command) + + If sFirstMountLetter = "" Then sFirstMountLetter = Mount_Destination + Next + + 'autoexec-after + If TC.NZ(row_DOSBox_Config("autoexec-after"), "").Length > 0 Then + sb_autoexec.AppendLine(row_DOSBox_Config("autoexec-after")) + End If + + 'Autostart an .exe file + Dim Autostart_Exe As Boolean = False + If id_Rombase_DOSBox_Exe_Types <> 0 Then + Dim row_Exe As DataRow = Nothing + Dim rows_Exe As DataRow() = dt_Files.Select("id_Rombase_DOSBox_Exe_Types = " & id_Rombase_DOSBox_Exe_Types) + + Dim Exe_Type As String = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT Displayname FROM rombase.tbl_Rombase_DOSBox_Exe_Types WHERE id_Rombase_DOSBox_Exe_Types = " & TC.getSQLFormat(id_Rombase_DOSBox_Exe_Types), tran), "") + + If rows_Exe.Length = 0 Then + 'No exe of the wanted type could be found + 'Using frm As New frm_DOSBox_Choose_Exe(Exe_Type.ToUpper & " executable", "id_Rombase_DOSBox_Filetypes = " & TC.getSQLFormat(cls_Globals.enm_Rombase_DOSBox_Filetypes.exe), dt_Files, "Please select a file for autostart as the " & Exe_Type & " executable in the list below and press OK. If you choose 'Just mount', DOSBox will start but won't autostart an executable.") + Using frm As New frm_DOSBox_Choose_Exe(Exe_Type.ToUpper, "id_Rombase_DOSBox_Filetypes = " & TC.getSQLFormat(cls_Globals.enm_Rombase_DOSBox_Filetypes.exe), dt_Files) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + If frm.BS_DOSBox_Files_and_Folders.Current IsNot Nothing Then + row_Exe = frm.BS_DOSBox_Files_and_Folders.Current.Row + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase_DOSBox_Exe_Types = " & TC.getSQLFormat(id_Rombase_DOSBox_Exe_Types) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Exe("id_Emu_Games")), tran) + End If + End If + End Using + Else + If rows_Exe.Length > 1 Then + 'More than one exe of that type found + 'Using frm As New frm_DOSBox_Choose_Exe(Exe_Type.ToUpper & " executable", "id_Rombase_DOSBox_Exe_Types = " & id_Rombase_DOSBox_Exe_Types, dt_Files, "Please select a file for autostart as the " & Exe_Type & " executable in the list below and press OK. If you choose 'Just mount', DOSBox will start but won't autostart an executable.") + Using frm As New frm_DOSBox_Choose_Exe(Exe_Type.ToUpper, "id_Rombase_DOSBox_Exe_Types = " & id_Rombase_DOSBox_Exe_Types, dt_Files) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + If frm.BS_DOSBox_Files_and_Folders.Current IsNot Nothing Then + For Each row_Exe_Chosen As DataRow In rows_Exe + If row_Exe_Chosen Is frm.BS_DOSBox_Files_and_Folders.Current.Row Then + row_Exe = row_Exe_Chosen + Exit For + End If + Next + End If + End If + End Using + Else + row_Exe = rows_Exe(0) + End If + End If + + If row_Exe IsNot Nothing Then + Autostart_Exe = False + Dim Exe_Path As String = row_Exe("InnerFile").Replace("/", "\") + + If Not Equals(row_Exe("File"), row_Exe("InnerFile")) AndAlso TC.NZ(row_Exe("InnerFile"), "").Length > 0 Then + 'Inside packed content + For Each row_mount As DataRow In dt_Files.Select("DOSBox_Mount_Destination IS NOT NULL") + If row_mount("File") = row_Exe("File") Then + sb_autoexec.AppendLine(row_mount("DOSBox_Mount_Destination") & ":") 'change drive + sb_autoexec.AppendLine("cd \") 'change to root + If Exe_Path.Contains("\") Then + sb_autoexec.AppendLine("cd " & Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(Exe_Path)) + End If + + If Exe_Path.ToLower.Contains(".bat") Then + sb_autoexec.AppendLine("call " & Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) + Else + sb_autoexec.AppendLine(Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) + End If + Autostart_Exe = True + Exit For + End If + Next + Else + 'Inside directory + For Each row_mount As DataRow In dt_Files.Select("DOSBox_Mount_Destination IS NOT NULL") + If row_Exe("Folder").ToLower.Contains(row_mount("Folder").ToLower) Then + Exe_Path = Replace(row_Exe("Folder").ToLower, row_mount("Folder").tolower, "") + Exe_Path = MKNetLib.cls_MKStringSupport.Clean_Left(Exe_Path, "\") + Exe_Path = MKNetLib.cls_MKStringSupport.Clean_Right(Exe_Path, "\") + Exe_Path &= "\" & row_Exe("InnerFile") + sb_autoexec.AppendLine(row_mount("DOSBox_Mount_Destination") & ":") 'change drive + sb_autoexec.AppendLine("cd \") 'change to root + If Exe_Path.Contains("\") Then + sb_autoexec.AppendLine("cd " & Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(Exe_Path)) + End If + + If Exe_Path.ToLower.Contains(".bat") Then + sb_autoexec.AppendLine("call " & Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) + Else + sb_autoexec.AppendLine(Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) + End If + Autostart_Exe = True + Exit For + End If + Next + End If + + If Not Autostart_Exe Then + DevExpress.XtraEditors.XtraMessageBox.Show("The mounted media or directory for the executable " & Exe_Path & " could not be found, please check the Rom Manager.", "No mounted media for executable found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + End If + End If + + If Not Autostart_Exe Then + 'Don't autostart .exe file but cd into the first mounted drive (else it would reside in Z:\) + If sFirstMountLetter <> "" Then + sb_autoexec.AppendLine(sFirstMountLetter & ":") + End If + End If + + 'ml-autoclose + If Autostart_Exe Then + If TC.NZ(row_DOSBox_Config("ml-autoclose"), True) Then + sb_autoexec.AppendLine("exit") + End If + End If + + 'Compile the complete DOSBox Config + sb_DOSBox_Config.AppendLine(sb_sdl.ToString) + sb_DOSBox_Config.AppendLine(sb_dosbox.ToString) + sb_DOSBox_Config.AppendLine(sb_render.ToString) + sb_DOSBox_Config.AppendLine(sb_cpu.ToString) + sb_DOSBox_Config.AppendLine(sb_mixer.ToString) + sb_DOSBox_Config.AppendLine(sb_midi.ToString) + sb_DOSBox_Config.AppendLine(sb_sblaster.ToString) + sb_DOSBox_Config.AppendLine(sb_gus.ToString) + sb_DOSBox_Config.AppendLine(sb_speaker.ToString) + sb_DOSBox_Config.AppendLine(sb_joystick.ToString) + sb_DOSBox_Config.AppendLine(sb_serial.ToString) + sb_DOSBox_Config.AppendLine(sb_dos.ToString) + sb_DOSBox_Config.AppendLine(sb_ipx.ToString) + sb_DOSBox_Config.AppendLine(sb_vsync.ToString) + sb_DOSBox_Config.AppendLine(sb_pci.ToString) + sb_DOSBox_Config.AppendLine(sb_glide.ToString) + sb_DOSBox_Config.AppendLine(sb_keyboard.ToString) + sb_DOSBox_Config.AppendLine(sb_ne2000.ToString) + sb_DOSBox_Config.AppendLine(sb_autoexec.ToString) + + Try + tran.Commit() + Catch ex As Exception + + End Try + + Dim sb_Startup As New System.Text.StringBuilder + + 'Save Config and create startup parameters + Dim TempDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms + Dim ConfFile As String = TempDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row_Emu_Game("File")) & ".conf" + If MKNetLib.cls_MKFileSupport.SaveTextToFile(sb_DOSBox_Config.ToString, ConfFile) Then + 'Startup params + If TC.NZ(row_DOSBox_Config("ml-showconsole"), False) = False Then + sb_Startup.Append("-noconsole ") + End If + + sb_Startup.Append(" -conf " & """" & ConfFile & """") + + Return sb_Startup.ToString + Else + DevExpress.XtraEditors.XtraMessageBox.Show("An error occured while saving the DOSBox config '" & ConfFile & "'.", "Error while saving DOSBox config", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("There has been an exception while creating the DOSBox config." & ControlChars.CrLf & "The error was: " & ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + If tran IsNot Nothing AndAlso tran.Connection IsNot Nothing Then + Try + tran.Commit() + Catch ex2 As Exception + + End Try + End If + Return "" + End Try + End Using + End Function + + Private Sub Launch_Game(Optional ByVal id_Emulators As Object = Nothing, Optional ByVal id_Rombase_DOSBox_Exe_Types As Integer = cls_Globals.enm_Rombase_DOSBox_Exe_Types.main) + Dim bShiftKeyPressed As Boolean = My.Computer.Keyboard.ShiftKeyDown + + 'Clean up Temp Dir of files older than 2 hours + MKNetLib.cls_MKFileSupport.Delete_Directorycontent(cls_Globals.TempDir(Nothing), 7200) + + MKNetLib.cls_MKFileSupport.DeleteContainedFiles(cls_Globals.Dir_Screenshot, cls_Extras._SupportedExtensions_Masks, IO.SearchOption.TopDirectoryOnly, FileIO.UIOption.OnlyErrorDialogs) + _al_Screenshots.Clear() + _al_Screenshots_EmuGames.Clear() + + If BS_Emu_Games.Current Is Nothing Then + Return + End If + + Dim proc = New System.Diagnostics.Process + + Select Case BS_Emu_Games.Current("id_Moby_Platforms") + Case cls_Globals.enm_Moby_Platforms.mame + Dim romname As String = BS_Emu_Games.Current("File") 'Unique MAME Rom Name + + proc.StartInfo.FileName = TC.NZ(cls_Settings.GetSetting("Mame_Executable"), "") 'MAME Fullpath to mame.exe + proc.StartInfo.WorkingDirectory = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(TC.NZ(cls_Settings.GetSetting("Mame_Executable"), "")) 'MAME Folder + proc.StartInfo.Arguments = romname + + proc.StartInfo.UseShellExecute = True + + proc.EnableRaisingEvents = True + + If bShiftKeyPressed Then + Using frm As New MKNetDXLib.frm_TextBoxEdit("Command:", "This is the command for launching the emulator.", """" & proc.StartInfo.FileName & """ " & proc.StartInfo.Arguments, True) + If frm.ShowDialog(Me.ParentForm) <> DialogResult.OK Then + Return + End If + End Using + End If + + AddHandler proc.Exited, AddressOf Handle_Proc_Exited + + proc.Start() + + Try + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "")) + Catch ex As Exception + + End Try + Case cls_Globals.enm_Moby_Platforms.win + Dim fullpath As String = BS_Emu_Games.Current("Folder") & "\" & BS_Emu_Games.Current("File") 'TODO: Inner File? (maybe extract .exe from .lnk - also target directory) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(fullpath) Then + DevExpress.XtraEditors.XtraMessageBox.Show("ERROR: The file cannot be found: " & fullpath, "File not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + proc.StartInfo.WorkingDirectory = BS_Emu_Games.Current("Folder") + + If Alphaleonis.Win32.Filesystem.Path.GetExtension(fullpath).ToLower.Replace(".", "") = "lnk" Then + 'get executable and things from lnk info + Dim lnk As String = fullpath + fullpath = MKNetLib.cls_MKFileSupport.LNK_GetPath(lnk) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(fullpath) Then + DevExpress.XtraEditors.XtraMessageBox.Show("ERROR: The file referenced by the link file cannot be found!" & ControlChars.CrLf & ControlChars.CrLf & "Link file: " & lnk & ControlChars.CrLf & "Referenced file:" & fullpath, "File not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + proc.StartInfo.WorkingDirectory = MKNetLib.cls_MKFileSupport.LNK_GetWorkingDirectory(lnk) + proc.StartInfo.Arguments = MKNetLib.cls_MKFileSupport.LNK_GetArguments(lnk) + End If + + + proc.StartInfo.FileName = fullpath + + 'TODO: game-based args - proc.StartInfo.Arguments = Args + + proc.StartInfo.UseShellExecute = True + proc.EnableRaisingEvents = True + + AddHandler proc.Exited, AddressOf Handle_Proc_Exited + + Call_J2K(TC.NZ(BS_Emu_Games.Current("J2KPreset"), "")) 'Call J2K + + Try + proc.Start() + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message & ControlChars.CrLf & ex.StackTrace.ToString) + End Try + + Try + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "")) + Catch ex As Exception + + End Try + Case cls_Globals.enm_Moby_Platforms.dos + Dim sSQL_DefaultEmu As String = " SELECT" & ControlChars.CrLf & + " EMU.id_Emulators" & ControlChars.CrLf & + " , EMU.Displayname" & ControlChars.CrLf & + " , EMU.InstallDirectory" & ControlChars.CrLf & + " , EMU.Executable" & ControlChars.CrLf & + " , EMU.StartupParameter" & ControlChars.CrLf & + " , EMU.AutoItScript" & ControlChars.CrLf & + " , EMU.J2KPreset" & ControlChars.CrLf & + " , EMU.ScreenshotDirectory" & ControlChars.CrLf & + " , EMU.DOSBox_Patch_NE2000_Ethernet" & ControlChars.CrLf & + " , EMU.DOSBox_Patch_ZIP_Mount" & ControlChars.CrLf & + " FROM tbl_Emulators_Moby_Platforms EMUPLTFM" & ControlChars.CrLf & + " LEFT JOIN tbl_Emulators EMU ON EMUPLTFM.id_Emulators = EMU.id_Emulators" & ControlChars.CrLf & + IIf(id_Emulators Is Nothing, " WHERE EMUPLTFM.id_Emulators = (SELECT id_Emulators FROM tbl_Emu_Games WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & ") OR (EMUPLTFM.DefaultEmulator = 1 AND id_Moby_Platforms = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Moby_Platforms")) & ") ORDER BY EMUPLTFM.DefaultEmulator ", " WHERE EMU.id_Emulators = " & TC.getSQLFormat(id_Emulators)) & ControlChars.CrLf & + " LIMIT 1" + + Dim dt_Emulators As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_DefaultEmu) + + If TC.NZ(id_Emulators, 0) <= 0 Then + If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then + If DevExpress.XtraEditors.XtraMessageBox.Show("There is no default DOSBox found for this platform, do you want to set one up?", "No default DOSBox found", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then + Using frm As New frm_Emulators + frm.ShowDialog(Me.ParentForm) + End Using + End If + Return + End If + Else + If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("ERROR: DOSBox not found.", "DOSBox not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End If + + id_Emulators = TC.NZ(dt_Emulators.Rows(0)("id_Emulators"), 0) + + Dim emufullpath As String = TC.NZ(dt_Emulators.Rows(0)("InstallDirectory"), "") & "\" & TC.NZ(dt_Emulators.Rows(0)("Executable"), "") + If Not Alphaleonis.Win32.Filesystem.File.Exists(emufullpath) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The DOSBox executable has not been found: " & emufullpath, "DOSBox exe not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim snapdir As String = TC.NZ(dt_Emulators.Rows(0)("ScreenshotDirectory"), "") + MKNetLib.cls_MKFileSupport.DeleteContainedFiles(snapdir, cls_Extras._SupportedExtensions_Masks, IO.SearchOption.TopDirectoryOnly, FileIO.UIOption.OnlyErrorDialogs) + + Dim emuexe As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(emufullpath) + Dim emudir As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(emufullpath) + + Dim Args As String = Prepare_DOSBox(dt_Emulators.Rows(0), BS_Emu_Games.Current.Row, id_Rombase_DOSBox_Exe_Types) 'Autolaunch Main exe + + If Args = "" Then + Return 'DOSBox Preparation had an error or has been cancelled + End If + + Dim TempDir As String = "" + + proc.StartInfo.FileName = emufullpath + proc.StartInfo.WorkingDirectory = emudir + + proc.StartInfo.Arguments = Args + + proc.StartInfo.UseShellExecute = True + + proc.EnableRaisingEvents = True + + AddHandler proc.Exited, AddressOf Handle_Proc_Exited + + 'Shell call would be: emufullpath & " " & Args + + Dim J2K_Preset = TC.NZ(dt_Emulators.Rows(0)("J2KPreset"), "") + + If TC.NZ(BS_Emu_Games.Current("J2KPreset"), "").Length > 0 Then + J2K_Preset = TC.NZ(BS_Emu_Games.Current("J2KPreset"), "") + End If + + Call_J2K(J2K_Preset) 'Call J2K + + proc.Start() + + Try + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir)) + Catch ex As Exception + + End Try + Case Else 'Standard Emulation + Dim sSQL_DefaultEmu As String = " SELECT" & ControlChars.CrLf & + " EMU.id_Emulators" & ControlChars.CrLf & + " , EMU.Displayname" & ControlChars.CrLf & + " , EMU.InstallDirectory" & ControlChars.CrLf & + " , EMU.Executable" & ControlChars.CrLf & + " , EMU.StartupParameter" & ControlChars.CrLf & + " , EMU.AutoItScript" & ControlChars.CrLf & + " , EMU.J2KPreset" & ControlChars.CrLf & + " , EMU.ScreenshotDirectory" & ControlChars.CrLf & + " , EMU.Libretro_Core" & ControlChars.CrLf & + " FROM tbl_Emulators_Moby_Platforms EMUPLTFM" & ControlChars.CrLf & + " LEFT JOIN tbl_Emulators EMU ON EMUPLTFM.id_Emulators = EMU.id_Emulators" & ControlChars.CrLf & + IIf(id_Emulators Is Nothing, " WHERE EMUPLTFM.id_Emulators = (SELECT id_Emulators FROM tbl_Emu_Games WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & ") OR (EMUPLTFM.DefaultEmulator = 1 AND id_Moby_Platforms = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Moby_Platforms")) & ") ORDER BY EMUPLTFM.DefaultEmulator ", " WHERE EMU.id_Emulators = " & TC.getSQLFormat(id_Emulators)) & ControlChars.CrLf & + " LIMIT 1" + + Dim dt_Emulators As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_DefaultEmu) + + If TC.NZ(id_Emulators, 0) <= 0 Then + If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then + If DevExpress.XtraEditors.XtraMessageBox.Show("There is no default emulator found for this platform, do you want to set one up?", "No default emulator found", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then + Using frm As New frm_Emulators + frm.ShowDialog(Me.ParentForm) + End Using + End If + Return + End If + Else + If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then + DevExpress.XtraEditors.XtraMessageBox.Show("ERROR: Emulator not found.", "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End If + + id_Emulators = TC.NZ(dt_Emulators.Rows(0)("id_Emulators"), 0) + + Dim emufullpath As String = TC.NZ(dt_Emulators.Rows(0)("InstallDirectory"), "") & "\" & TC.NZ(dt_Emulators.Rows(0)("Executable"), "") + If Not Alphaleonis.Win32.Filesystem.File.Exists(emufullpath) Then + DevExpress.XtraEditors.XtraMessageBox.Show("The emulator's executable has not been found: " & emufullpath, "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim snapdir As String = TC.NZ(dt_Emulators.Rows(0)("ScreenshotDirectory"), "") + MKNetLib.cls_MKFileSupport.DeleteContainedFiles(snapdir, cls_Extras._SupportedExtensions_Masks, IO.SearchOption.TopDirectoryOnly, FileIO.UIOption.OnlyErrorDialogs) + + Dim emuexe As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(emufullpath) + Dim emudir As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(emufullpath) + + Dim Args As String = dt_Emulators.Rows(0)("StartupParameter") + Args = Args.Replace("%emudir%", emudir) + Args = Args.Replace("%emuexe%", emuexe) + Args = Args.Replace("%emufullpath%", emufullpath) + + Dim TempDir As String = "" + + 'Main Romfile Args + If Args.Contains("%rom") Then + TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms + + Dim rfd As New cls_Romfiledata(TC.NZ(BS_Emu_Games.Current("Folder"), "") & "\" & TC.NZ(BS_Emu_Games.Current("File"), ""), TC.NZ(BS_Emu_Games.Current("Innerfile"), ""), TempDir) + + If Not rfd.IsValid Then Return + + + Args = Args.Replace("%romdir%", rfd.DirName) + Args = Args.Replace("%romfile%", rfd.FileName) + Args = Args.Replace("%romfullpath%", rfd.Fullpath) + End If + + If Args.Contains("%multivolume%") Then + If BS_Emu_Games.Current("MultiVolume") = True Then + Dim sMultiVolume As String = "" + + Dim iMaxVol As Integer = 0 + + Dim dt_MV_Params As New DS_ML.tbl_Emulators_Multivolume_ParametersDataTable + Dim dt_Emu_Games_Volumes As New DS_ML.src_ucr_Emulation_GamesDataTable + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Emulators_Multivolume_Parameters(tran, dt_MV_Params, id_Emulators) + + If dt_MV_Params.Select("Volume_Number = 1").Length = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("A parameter setup for volume 1 could not be found, please check your emulator settings for " & dt_Emulators.Rows(0)("Displayname") & ".", "No entry set up for volume 1", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return + End If + + iMaxVol = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "Select MAX(Volume_Number) FROM tbl_Emulators_Multivolume_Parameters WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators), tran), 0) + + DS_ML.Fill_src_ucr_Emulation_Games(tran, dt_Emu_Games_Volumes, Nothing, Nothing, Nothing, BS_Emu_Games.Current("id_Emu_Games"), True, 0, True) + + tran.Commit() + End Using + + For iVol As Integer = 1 To iMaxVol + Dim rowsVolParam() As DataRow = dt_MV_Params.Select("Volume_Number = " & TC.getSQLFormat(iVol)) + + If rowsVolParam.Length > 0 Then + Dim rowsVolGames() As DataRow = dt_Emu_Games_Volumes.Select("Volume_Number = " & TC.getSQLFormat(iVol)) + + If iVol = 1 AndAlso rowsVolGames.Length = 0 Then + rowsVolGames = dt_Emu_Games_Volumes.Select("Volume_Number IS NULL") + End If + + If iVol = 1 AndAlso rowsVolGames.Length = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + If rowsVolGames.Length > 0 Then + Dim sParam As String = rowsVolParam(0)("Parameter") + + sParam = sParam.Replace("%emudir%", emudir) + sParam = sParam.Replace("%emuexe%", emuexe) + sParam = sParam.Replace("%emufullpath%", emufullpath) + + If sParam.Contains("%rom") Then + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TempDir) Then TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms + + Dim rfdVol As New cls_Romfiledata(TC.NZ(rowsVolGames(0)("Folder"), "") & "\" & TC.NZ(rowsVolGames(0)("File"), ""), TC.NZ(rowsVolGames(0)("Innerfile"), ""), TempDir) + + If Not rfdVol.IsValid Then Return + + sParam = sParam.Replace("%romdir%", rfdVol.DirName) + sParam = sParam.Replace("%romfile%", rfdVol.FileName) + sParam = sParam.Replace("%romfullpath%", rfdVol.Fullpath) + End If + + sMultiVolume &= sParam + End If + End If + Next + + Args = Args.Replace("%multivolume%", sMultiVolume) + Else + Args = Args.Replace("%multivolume%", "") + End If + End If + + If Not TC.IsNullNothingOrEmpty(dt_Emulators.Rows(0)("Libretro_Core")) Then + Args = "-L cores\" & dt_Emulators.Rows(0)("Libretro_Core").Trim & (IIf(Args <> "", " ", "")) & Args + End If + + proc.StartInfo.FileName = emufullpath + proc.StartInfo.WorkingDirectory = emudir + + proc.StartInfo.Arguments = Args + + proc.StartInfo.UseShellExecute = True + + proc.EnableRaisingEvents = True + + AddHandler proc.Exited, AddressOf Handle_Proc_Exited + + 'Shell call would be: emufullpath & " " & Args + + If bShiftKeyPressed Then + Using frm As New MKNetDXLib.frm_TextBoxEdit("Command:", "This is the command for launching the emulator.", """" & proc.StartInfo.FileName & """ " & proc.StartInfo.Arguments, True) + If frm.ShowDialog(Me.ParentForm) <> DialogResult.OK Then + Return + End If + End Using + End If + + Dim J2K_Preset = TC.NZ(dt_Emulators.Rows(0)("J2KPreset"), "") + + If TC.NZ(BS_Emu_Games.Current("J2KPreset"), "").Length > 0 Then + J2K_Preset = TC.NZ(BS_Emu_Games.Current("J2KPreset"), "") + End If + + Call_J2K(J2K_Preset) 'Call J2K + + proc.Start() + + Try + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir)) + Catch ex As Exception + + End Try + End Select + End Sub + + Private Sub Handle_Proc_Exited(ByVal sender As Object, ByVal e As System.EventArgs) + 'Check if user wants to log history, check if enough time went by + Dim proc As System.Diagnostics.Process = CType(sender, System.Diagnostics.Process) + + Call_J2K() 'Reset J2K + + RemoveHandler proc.Exited, AddressOf Handle_Proc_Exited + + Dim pi As cls_Emu_Game_ProcInfo = Nothing + Try + pi = dict_Proc_EmuGames(proc.Id) + Catch ex As Exception + + End Try + + If pi Is Nothing Then Return + + Dim id_Emu_Games As Integer = pi.id_Emu_Games + Dim snapdir As String = pi.Snapshot_Directory + + dict_Proc_EmuGames.Remove(proc.Id) + + If TC.NZ(cls_Settings.GetSetting("Stats_Enabled", cls_Settings.enm_Settingmodes.Per_User), True) Then + Dim MinTime As Integer = TC.NZ(cls_Settings.GetSetting("Stats_MinTime", cls_Settings.enm_Settingmodes.Per_User), 0) + + If MinTime = 0 OrElse DateDiff(DateInterval.Minute, proc.StartTime, proc.ExitTime) >= MinTime Then + _al_StatsChanges.Add(New cls_3ObjVec(id_Emu_Games, proc.StartTime, proc.ExitTime)) + End If + End If + + _al_Screenshots_EmuGames.Add(New cls_Emu_Game_ProcInfo(id_Emu_Games, snapdir)) + + 'Rescan DOSBox Working Directory (an installer could have been used!) + frm_Rom_Manager.Rescan_DOSBox_Game(id_Emu_Games) + End Sub + + Private Function Get_DOSBox_Exe_Type() As Integer + Dim id_Rombase_DOSBox_Exe_Types As Integer = cls_Globals.enm_Rombase_DOSBox_Exe_Types.main 'Main .exe + + If My.Computer.Keyboard.ShiftKeyDown Then + id_Rombase_DOSBox_Exe_Types = cls_Globals.enm_Rombase_DOSBox_Exe_Types.setup 'Setup .exe + End If + + If My.Computer.Keyboard.CtrlKeyDown Then + id_Rombase_DOSBox_Exe_Types = cls_Globals.enm_Rombase_DOSBox_Exe_Types.inst 'Installer .exe + End If + + If My.Computer.Keyboard.ShiftKeyDown AndAlso My.Computer.Keyboard.CtrlKeyDown Then + id_Rombase_DOSBox_Exe_Types = 0 'No autolaunch + End If + + Return id_Rombase_DOSBox_Exe_Types + End Function + + Private Sub grd_Emu_Games_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Emu_Games.DoubleClick + Dim pt As System.Drawing.Point = gv_Emu_Games.GridControl.PointToClient(Control.MousePosition) + + Dim info As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Emu_Games.CalcHitInfo(pt) + If info.InRowCell Then + Launch_Game(Nothing, Get_DOSBox_Exe_Type) + End If + End Sub + + Private Sub grd_Emu_Games_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grd_Emu_Games.KeyDown + If e.KeyCode = Keys.Enter Then + Launch_Game(Nothing, Get_DOSBox_Exe_Type) + End If + + If e.KeyCode = Keys.F5 Then + Me.Refill_Emu_Games() + End If + End Sub + + Public Sub Select_BindingSource_Row_on_gv_Emu_Games() + Me.gv_Emu_Games.ClearSelection() + Me.gv_Emu_Games.SelectRow(Me.gv_Emu_Games.FocusedRowHandle) + End Sub + + Public Sub Refill_Emu_Games() + Cursor.Current = Cursors.WaitCursor + + If TC.IsNullNothingOrEmpty(cmb_Platform.EditValue) Then + DS_ML.src_ucr_Emulation_Games.Clear() + Return + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + + Dim id_Emu_Games As Object = Nothing + If BS_Emu_Games.Current IsNot Nothing Then + id_Emu_Games = BS_Emu_Games.Current("id_Emu_Games") + End If + + _Platform_Changing = True + DS_ML.Fill_src_ucr_Emulation_Games(tran, Me.DS_ML.src_ucr_Emulation_Games, cmb_Platform.EditValue, txb_Search.EditValue, cmb_Filterset.EditValue, Nothing, False, cmb_Groups.EditValue, False, cmb_Staff.EditValue, cmb_Similarity_Calculation_Results.EditValue) + + If id_Emu_Games IsNot Nothing AndAlso BS_Emu_Games.Current IsNot Nothing Then + BS_Emu_Games.Position = BS_Emu_Games.Find("id_Emu_Games", id_Emu_Games) + Select_BindingSource_Row_on_gv_Emu_Games() + End If + + _Platform_Changing = False + + BS_Emu_Games_CurrentChanged(BS_Emu_Games, New System.EventArgs) + + 'tran.Commit() + End Using + + If TC.NZ(cmb_Similarity_Calculation_Results.EditValue, 0) <> 0 Then + colSimilarity.Visible = True + Else + _bbi_Show_Similarity_Feature_Columns_Shown = False + colSimilarity.Visible = False + col001_Platform.Visible = False + col002_MobyRank.Visible = False + col003_MobyScore.Visible = False + col004_Publisher.Visible = False + col005_Developer.Visible = False + col006_Year.Visible = False + col101_Basic_Genres.Visible = False + col102_Perspectives.Visible = False + col103_Sports_Themes.Visible = False + col105_Educational_Categories.Visible = False + col106_Other_Attributes.Visible = False + col107_Visual_Presentation.Visible = False + col108_Gameplay.Visible = False + col109_Pacing.Visible = False + col110_Narrative_Theme_Topic.Visible = False + col111_Setting.Visible = False + col112_Vehicular_Themes.Visible = False + col113_Interface_Control.Visible = False + col114_DLC_Addon.Visible = False + col115_Special_Edition.Visible = False + col201_MinPlayers.Visible = False + col202_MaxPlayers.Visible = False + col203_AgeO.Visible = False + col204_AgeP.Visible = False + col205_Rating_Descriptors.Visible = False + col207_Multiplayer_Attributes.Visible = False + col206_Other_Attributes.Visible = False + col301_Group_Membership.Visible = False + col401_Staff.Visible = False + End If + + Prepare_filteringUIContext_QueryRangeData() + filteringUIContext.UpdateMemberBindings() + + Cursor.Current = Cursors.Default + End Sub + + Public Sub Refill_cmb_Similarity_Calculation_Results() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + _Initializing = True + Dim obj_id As Object = cmb_Similarity_Calculation_Results.EditValue + DS_ML.Fill_src_ucr_Emulation_cmb_Similarity_Calculation_Results(tran, Me.DS_ML.src_ucr_Emulation_cmb_Similarity_Calculation_Results) + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_Similarity_Calculation_Results, "id_Similarity_Calculation_Results", obj_id) + cmb_Similarity_Calculation_Results.EditValue = obj_id + _Initializing = False + End Using + End Sub + + + Private Sub Handle_LabelsMouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) + 'We need to focus here, else we can't assure scrolling by mouse wheel + Me.spnl_Summary.Focus() + End Sub + + Private Sub InsertDescriptionBlock(ByVal title As String, ByVal text As Object) + If Not TC.IsNullNothingOrEmpty(text) Then + Dim lbl As New MKNetDXLib.ctl_MKDXLabel + 'AddHandler lbl.MouseWheel, AddressOf Handle_LabelsMouseWheelEvent + AddHandler lbl.MouseEnter, AddressOf Handle_LabelsMouseEnter + lbl.Font = New Font("SegoeUI", 8.25) + lbl.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + lbl.Padding = New Padding(0, 0, 0, 3) + lbl.Text = text 'MKNetLib.cls_MKISO_8859_1_Replace.ToASCII(System.Text.RegularExpressions.Regex.Replace(text.Replace("
    ", ControlChars.CrLf), "<.*?>", ""), True).Replace("&", "&&") + Me.spnl_Summary.Controls.Add(lbl) + lbl.Dock = DockStyle.Top + + lbl = New MKNetDXLib.ctl_MKDXLabel + AddHandler lbl.MouseEnter, AddressOf Handle_LabelsMouseEnter + lbl.Font = New Font("SegoeUI", 10, FontStyle.Bold) + lbl.Padding = New Padding(0, 0, 0, 3) + lbl.Text = title.Replace("&", "&&") + Me.spnl_Summary.Controls.Add(lbl) + lbl.Dock = DockStyle.Top + End If + End Sub + + Private Sub InsertTechnicalSpecs(ByVal id_Emu_Games As Integer) + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " MAC.Name as Category" & ControlChars.CrLf + sSQL &= " , MA.Name as Attribute" & ControlChars.CrLf + sSQL &= " , MA.Description" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Moby_Releases_Attributes RA" & ControlChars.CrLf + sSQL &= " WHERE RA.id_Moby_Releases = (SELECT id_Moby_Releases FROM tbl_Emu_Games EG LEFT JOIN tbl_Moby_Releases REL ON REL.id_Moby_Platforms = EG.id_Moby_Platforms AND REL.id_Moby_Games = (SELECT id_Moby_Games FROM tbl_Moby_Games MG WHERE URLPart = EG.Moby_Games_URLPart) WHERE EG.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ")" & ControlChars.CrLf + sSQL &= " UNION SELECT id_Moby_Attributes FROM tbl_Emu_Games_Moby_Attributes EGMA" & ControlChars.CrLf + sSQL &= " WHERE EGMA.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & ControlChars.CrLf + sSQL &= " ) AS temp_Attributes" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Moby_Attributes MA ON temp_Attributes.id_Moby_Attributes = MA.id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " INNER JOIN tbl_Moby_Attributes_Categories MAC ON MAC.id_Moby_Attributes_Categories = MA.id_Moby_Attributes_Categories" & ControlChars.CrLf + sSQL &= " WHERE MA.id_Moby_Attributes NOT IN" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " SELECT id_Moby_Attributes" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games_Moby_Attributes" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) & " AND Used = 0" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY Category, Attribute" + + DS_ML.tbl_Technical_Specs.Clear() + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Technical_Specs) + If DS_ML.tbl_Technical_Specs.Rows.Count = 0 Then + lbl_NoSpecs.Visible = True + Me.grd_TechnicalSpecs.Visible = False + Else + lbl_NoSpecs.Visible = False + Me.grd_TechnicalSpecs.Visible = True + End If + End Sub + + Private Sub Update_Description() + spnl_Summary.Controls.Clear() + + spnl_Summary.SuspendLayout() + + If BS_Emu_Games.Current Is Nothing Then + Return + End If + + InsertTechnicalSpecs(BS_Emu_Games.Current("id_Emu_Games")) + + InsertDescriptionBlock("Description", BS_Emu_Games.Current("Description")) + InsertDescriptionBlock("Alternate Titles", BS_Emu_Games.Current("Alternate_Titles")) + InsertDescriptionBlock("Special Info", BS_Emu_Games.Current("SpecialInfo")) + + spnl_Summary.ResumeLayout() + End Sub + + Private Sub BS_Emu_Games_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS_Emu_Games.CurrentChanged + If _Initializing Then Return + If _Platform_Changing Then Return + + tmr_ImageUpdate.Stop() + + If BS_Emu_Games.Current Is Nothing Then + pic_Game.Image = Nothing + lbl_Displayname.Text = "" + DS_ML.tbl_History.Clear() + DS_ML.src_ucr_Emulation_GameGroups.Clear() + lbl_Emu_Games_Playcount.Text = "" + lbl_Emu_Games_Runtime_Value.Text = "" + Return + End If + + lbl_Displayname.Text = TC.NZ(BS_Emu_Games.Current("Game"), "").Replace("&", "&&") + + If TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.win AndAlso TC.NZ(BS_Emu_Games.Current("Game"), "nope1").ToLower = TC.NZ(BS_Emu_Games.Current("InnerFile"), "nope2").ToLower Then + lbl_Displayname.Text = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(BS_Emu_Games.Current("Game")) + End If + + Update_Description() + + ApplyFirstExtra() + + tmr_ImageUpdate.Start() + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_History(tran, DS_ML.tbl_History, BS_Emu_Games.Current("id_Emu_Games")) + + lbl_Emu_Games_Playcount.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT COUNT(1) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0) + lbl_Emu_Games_Runtime_Value.Text = MKNetLib.cls_MKStringSupport.GetTimeString(TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT SUM(strftime('%s', End) - strftime('%s', Start)) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0)) + + DS_ML.Fill_src_ucr_Emulation_Game_Groups(tran, DS_ML.src_ucr_Emulation_GameGroups, BS_Emu_Games.Current("id_Moby_Games"), BS_Emu_Games.Current("id_Moby_Platforms")) + If DS_ML.src_ucr_Emulation_GameGroups.Rows.Count = 0 Then + Me.lbl_Game_Groups.Text = "This game is not part of any group." + Me.grd_Game_Groups.Visible = False + Else + Me.lbl_Game_Groups.Text = "This game is part of the following groups:" + Me.grd_Game_Groups.Visible = True + End If + + DS_ML.Fill_src_ucr_Emulation_Moby_Releases_Staff(tran, DS_ML.src_ucr_Emulation_Moby_Releases_Staff, BS_Emu_Games.Current("id_Moby_Games"), BS_Emu_Games.Current("id_Moby_Platforms")) + If DS_ML.src_ucr_Emulation_Moby_Releases_Staff.Rows.Count = 0 Then + Me.lbl_Staff_Grid.Text = "There is no staff listed for this game." + Me.grd_Staff.Visible = False + Else + Me.lbl_Staff_Grid.Text = "This game has been created by the following staff:" + Me.grd_Staff.Visible = True + End If + 'tran.Commit() + End Using + End Sub + + Private Sub pic_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_Game.Click + ApplyNextExtra(True) + End Sub + + ''' + ''' Get the first extra + ''' + ''' + Private Sub ApplyFirstExtra() + pic_Game.Image = Nothing + ExtraType = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE Sort = (SELECT MIN(Sort) from tbl_Emu_Extras WHERE IFNULL(Hide, 0) = 0 LIMIT 1)") + ExtraNum = 0 + NoExtraFound = False + ApplyNextExtra(False) + + tmr_ImageUpdate.Start() + End Sub + + Private Sub Analyze_Missing_Extras() + Dim SearchMode As Integer = 0 + + Using frm As New frm_Search_Missing_Extras + If frm.ShowDialog(Me.ParentForm) <> DialogResult.OK Then + Return + End If + + SearchMode = TC.NZ(frm.cmb_Extra_Type.EditValue, 0) + End Using + + Me.Cursor = Cursors.WaitCursor + + Dim extraType As String = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras " & IIf(SearchMode = 0, "", "WHERE id_Emu_Extras = " & TC.getSQLFormat(SearchMode)) & " LIMIT 1") + + For Each row As DataRow In Me.DS_ML.src_ucr_Emulation_Games.Rows + If TC.IsNullNothingOrEmpty(row("id_Emu_Games_Owner")) Then + Dim res As cls_Extras.cls_Extras_Result = cls_Extras.FindNextExtra(row("id_Emu_Games"), 0, False, extraType, True, IIf(SearchMode = 0, False, True)) + row("tmp_Highlighted") = res._NoExtraFound + End If + Next + Me.Cursor = Cursors.Default + End Sub + + ''' + ''' Get the next extra + ''' + ''' + Private Sub ApplyNextExtra(ByVal SkipToNextImmediately As Boolean) + If BS_Emu_Games.Current Is Nothing Then Return + If TC.NZ(ExtraType, "").Length = 0 Then Return + + Dim res As cls_Extras.cls_Extras_Result = cls_Extras.FindNextExtra(BS_Emu_Games.Current("id_Emu_Games"), Me.ExtraNum, SkipToNextImmediately, Me.ExtraType) + + If res._NoExtraFound Then + Return + Else + pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(res._Path))) 'Image.FromFile(res._Path) + Me.ExtraType = res._ExtraType + Me.ExtraNum = res._ExtraNum + End If + End Sub + + Private Sub cmb_Platform_ButtonClick(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Platform.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + Using frm As New frm_Moby_Platforms_Configuration + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Dim objPltfm As Object = cmb_Platform.EditValue + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Me.DS_ML.Fill_src_ucr_Emulators_Platforms(tran, Me.DS_ML.src_ucr_Emulation_Platforms) + tran.Commit() + End Using + + If Not TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Visible FROM main.tbl_Moby_Platforms_Settings WHERE id_Moby_Platforms = " & TC.getSQLFormat(objPltfm)), True) Then + cmb_Platform.EditValue = -1 + End If + End If + End Using + End If + End Sub + + Private Sub cmb_Platform_EditValueChanging(sender As Object, e As ChangingEventArgs) Handles cmb_Platform.EditValueChanging + Save_EmuGame_Position() + End Sub + + Private Sub cmb_Platform_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Platform.EditValueChanged + If _Initializing Then Return + Refill_Emu_Games() + Load_EmuGame_Position() + End Sub + + Private Sub cmb_Group_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Groups.EditValueChanged + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Groups.Properties.Buttons + If btn.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + If TC.NZ(cmb_Groups.EditValue, 0) = 0 Then + btn.Enabled = False + Else + btn.Enabled = True + End If + End If + Next + + If _Initializing Then Return + Refill_Emu_Games() + End Sub + + Private Sub cmb_Staff_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Staff.EditValueChanged + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Staff.Properties.Buttons + If btn.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + If TC.NZ(cmb_Staff.EditValue, 0) = 0 Then + btn.Enabled = False + Else + btn.Enabled = True + End If + End If + Next + + If _Initializing Then Return + Refill_Emu_Games() + End Sub + + Private Sub txb_Search_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles txb_Search.ButtonClick + Refill_Emu_Games() + End Sub + + Private Sub txb_Search_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txb_Search.KeyDown + If e.KeyCode = Keys.Enter Then + Refill_Emu_Games() + End If + End Sub + + Private Sub Apply_cmb_Similarity_Calculation_Results_Buttons_Enabled() + If TC.NZ(cmb_Similarity_Calculation_Results.EditValue, 0) = 0 Then + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Similarity_Calculation_Results.Properties.Buttons + If {DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis}.Contains(btn.Kind) Then + btn.Enabled = False + End If + Next + Else + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Similarity_Calculation_Results.Properties.Buttons + If {DevExpress.XtraEditors.Controls.ButtonPredefines.Minus, DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis}.Contains(btn.Kind) Then + btn.Enabled = True + End If + Next + End If + End Sub + + Private Sub cmb_Similarity_Calculation_Results_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Similarity_Calculation_Results.EditValueChanged + Apply_cmb_Similarity_Calculation_Results_Buttons_Enabled() + + If _Initializing Then Return + Refill_Emu_Games() + End Sub + + Private Sub tmr_ImageUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_ImageUpdate.Tick + If _Slideshow Then + ApplyNextExtra(True) + End If + End Sub + + Private Sub ttctl_TecSpec_DefaultController_GetActiveObjectInfo(ByVal sender As System.Object, ByVal e As DevExpress.Utils.ToolTipControllerGetActiveObjectInfoEventArgs) Handles ttctl_TecSpec.DefaultController.GetActiveObjectInfo + Try + If e.SelectedControl Is Me.grd_TechnicalSpecs Then + Dim info As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_TechnicalSpecs.CalcHitInfo(e.ControlMousePosition) + If info.InRowCell Then + Dim sCategory = gv_TechnicalSpecs.GetRowCellDisplayText(info.RowHandle, "Category") + Dim sAttribute As String = gv_TechnicalSpecs.GetRowCellDisplayText(info.RowHandle, "Attribute") + Dim sDescription As String = gv_TechnicalSpecs.GetRow(info.RowHandle).Row("Description") + Dim cellKey As String = info.RowHandle.ToString() & " - " & info.Column.ToString() + Dim result As New DevExpress.Utils.ToolTipControlInfo(cellKey, "asd") + result.SuperTip = New DevExpress.Utils.SuperToolTip + Dim args As New DevExpress.Utils.SuperToolTipSetupArgs + args.Title.Text = sCategory & ": " & sAttribute + args.Contents.Text = sDescription + result.SuperTip.Setup(args) + result.ToolTipType = DevExpress.Utils.ToolTipType.SuperTip + result.Interval = 0 + e.Info = result + End If + End If + Catch ex As Exception + + End Try + End Sub + + Dim stream As IO.MemoryStream + Dim _Filters As String = "" + + Private Sub cmb_Filterset_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Filterset.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Plus Then + Using frm As New frm_FilterSet(Nothing, MKNetDXLib.cls_MKDXGrid_Serializer.SaveLayoutBase64(Me.gv_Emu_Games, MKNetDXLib.enm_MKDXGrid_Serialize_Options.Filters), Nothing, True, "New Filterset") + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim id_FilterSets As Object = DS_ML.Upsert_tbl_Filtersets(tran, frm.id_FilterSet, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation, frm.FilterSet_Name, frm.UseQuickFilter, frm.QuickFilter) + Me.DS_ML.Fill_tbl_FilterSets(tran, Me.DS_ML.tbl_FilterSets, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation) + tran.Commit() + + Me.cmb_Filterset.EditValue = CLng(id_FilterSets) + End Using + End If + End Using + End If + + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Minus Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete this Filterset?", "Delete Filterset", MessageBoxButtons.YesNo) = DialogResult.Yes Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_FilterSets WHERE id_FilterSets = " & TC.getSQLFormat(cmb_Filterset.EditValue)) + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Me.DS_ML.Fill_tbl_FilterSets(tran, Me.DS_ML.tbl_FilterSets, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation) + tran.Commit() + + Me.cmb_Filterset.EditValue = CLng(0) + End Using + End If + End If + + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + Using frm As New frm_FilterSet(BS_FilterSets.Current("id_FilterSets"), MKNetDXLib.cls_MKDXGrid_Serializer.SaveLayoutBase64(Me.gv_Emu_Games, MKNetDXLib.enm_MKDXGrid_Serialize_Options.Filters), BS_FilterSets.Current("GridFilter"), BS_FilterSets.Current("ApplyGridFilter"), BS_FilterSets.Current("Name")) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim id_FilterSets As Object = DS_ML.Upsert_tbl_Filtersets(tran, frm.id_FilterSet, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation, frm.FilterSet_Name, frm.UseQuickFilter, frm.QuickFilter) + Me.DS_ML.Fill_tbl_FilterSets(tran, Me.DS_ML.tbl_FilterSets, Metropolis_Launcher.DS_ML.enm_FilterSetTypes.Emulation) + tran.Commit() + + Me.cmb_Filterset.EditValue = CLng(id_FilterSets) + End Using + End If + End Using + End If + End Sub + + Private Sub grd_Emu_Games_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grd_Emu_Games.MouseEnter + grd_Emu_Games.Focus() + End Sub + + Private Sub Handle_LaunchBarItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) + Launch_Game(e.Item.Tag, Get_DOSBox_Exe_Type) + End Sub + +#Region "Popupmenu" + + Private _bbi_Show_Similarity_Feature_Columns_Shown As Boolean = False + + Private Sub popmnu_Emulation_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Emu.BeforePopup + If Not grd_Emu_Games.Allow_Popup Then + e.Cancel = True + Return + End If + + If cls_Globals.Restricted OrElse Not cls_Globals.MultiUserMode Then + bsi_MultiUser.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + Else + bsi_MultiUser.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + + bbi_Open_Moby_Page.Enabled = False + bbi_Contribute_TechInfo.Enabled = False + bsi_Launch.Enabled = False + bbi_Launch_Random.Enabled = False + bbi_DOSBox_Templates.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_DOSBox_Clear_Exe_Config.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + bbi_Edit_Game.Enabled = False + bbi_Edit_Multiple_Games.Enabled = False + bsi_Export.Enabled = False + + bbi_Analyze_Missing_Extras.Enabled = False + + bbi_MultiUser_Add_Games.Enabled = False + bbi_MultiUser_Show_Games.Enabled = False + bbi_MultiUser_Remove_Games.Enabled = False + + ' bbi_Rombase_Manager.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + '#If DEBUG Then + ' bbi_Rombase_Manager.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + '#End If + + bbi_Similarity_Calculation.Enabled = False + bbi_Show_Similarity_Feature_Columns.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Open_Similarity_Details.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + + If MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games).Length > 0 Then + If BS_Emu_Games.Current IsNot Nothing Then + bbi_Edit_Game.Enabled = True + bbi_Edit_Multiple_Games.Enabled = True + bsi_Export.Enabled = True + + bbi_Analyze_Missing_Extras.Enabled = True + + bbi_MultiUser_Add_Games.Enabled = True + bbi_MultiUser_Show_Games.Enabled = True + + bbi_Similarity_Calculation.Enabled = True + + If TC.NZ(cmb_Similarity_Calculation_Results.EditValue, 0) Then + bbi_Show_Similarity_Feature_Columns.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_Open_Similarity_Details.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + + If _bbi_Show_Similarity_Feature_Columns_Shown Then + bbi_Show_Similarity_Feature_Columns.Caption = _bbi_Show_Similarity_Feature_Columns_Caption.Replace("{0}", "Hide") + Else + bbi_Show_Similarity_Feature_Columns.Caption = _bbi_Show_Similarity_Feature_Columns_Caption.Replace("{0}", "Show") + End If + End If + + If {cls_Globals.enm_Moby_Platforms.dos, cls_Globals.enm_Moby_Platforms.pcboot}.Contains(TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0)) Then 'DOS or PC Booter + bbi_DOSBox_Templates.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bbi_DOSBox_Clear_Exe_Config.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End If + + If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("File")) Then + + Dim sSQL_Emus As String = " SELECT" & ControlChars.CrLf & + " EMU.id_Emulators" & ControlChars.CrLf & + " , EMU.Displayname" & ControlChars.CrLf & + " , EMU.InstallDirectory" & ControlChars.CrLf & + " , EMU.Executable" & ControlChars.CrLf & + " , EMU.StartupParameter" & ControlChars.CrLf & + " , EMU.AutoItScript" & ControlChars.CrLf & + " , EMU.J2KPreset" & ControlChars.CrLf & + " , EMU.ScreenshotDirectory" & ControlChars.CrLf & + " , EMUPLTFM.DefaultEmulator AS DefaultEmulator_Global" & ControlChars.CrLf & + " , CASE WHEN EMU.id_Emulators = EMUGAME.id_Emulators THEN 1 ELSE 0 END AS DefaultEmulator" & ControlChars.CrLf & + " FROM tbl_Emulators_Moby_Platforms EMUPLTFM" & ControlChars.CrLf & + " LEFT JOIN tbl_Emulators EMU ON EMUPLTFM.id_Emulators = EMU.id_Emulators" & ControlChars.CrLf & + " LEFT JOIN tbl_Emu_Games EMUGAME ON EMUGAME.id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")) & ControlChars.CrLf & + " WHERE EMUPLTFM.id_Moby_Platforms = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Moby_Platforms")) & ControlChars.CrLf & + " ORDER BY EMU.DisplayName" + + Dim dt As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_Emus) + + 'Dynamic Launch Menu Bar Items + For Each bbi As DevExpress.XtraBars.BarItemLink In bsi_Launch.ItemLinks + RemoveHandler bbi.Item.ItemClick, AddressOf Handle_LaunchBarItemClick + Next + + bsi_Launch.ClearLinks() + + For Each row As DataRow In dt.Rows + Dim bbi As New DevExpress.XtraBars.BarButtonItem(Me.barmng, row("DisplayName") & IIf(TC.NZ(row("DefaultEmulator_Global"), False), " (Global Default)", IIf(TC.NZ(row("DefaultEmulator"), False), " (Default)", ""))) + bbi.Tag = row("id_Emulators") + AddHandler bbi.ItemClick, AddressOf Handle_LaunchBarItemClick + + bsi_Launch.AddItem(bbi) + Next + + ''PC - Windows Platform + 'If TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.win Then + + 'End If + + ''M.A.M.E. Platform + 'If TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0) = cls_Globals.enm_Moby_Platforms.mame Then + ' Dim bbi As New DevExpress.XtraBars.BarButtonItem(Me.barmng_Emu, "M.A.M.E. (Global Default)") + ' bbi.Tag = -2 + ' AddHandler bbi.ItemClick, AddressOf Handle_LaunchBarItemClick + + ' bsi_Launch.AddItem(bbi) + 'End If + + bsi_Launch.Enabled = True + + End If + + bbi_MultiUser_Remove_Games.Enabled = True + bbi_Launch_Random.Enabled = True + + If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("Moby_URL")) Then + bbi_Open_Moby_Page.Enabled = True + End If + + If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("Moby_Platforms_URLPart")) AndAlso Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("Moby_Games_URLPart")) Then + bbi_Contribute_TechInfo.Enabled = True + End If + End If + Else + 'No Game selected + End If + + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + bsi_MultiUser.Enabled = False + bbi_DOSBox_Clear_Exe_Config.Enabled = False + bbi_DOSBox_Templates.Enabled = False + bbi_Edit_Game.Enabled = False + bbi_Edit_Multiple_Games.Enabled = False + bbi_Emu_Settings.Enabled = False + bbi_Rom_Manager.Enabled = False + bbi_Rombase_Manager.Enabled = False + bsi_Export.Enabled = False + End If + End Sub + + Private Sub popmnu_Extras_BeforePopup(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Extras.BeforePopup + If BS_Emu_Games.Current Is Nothing Then + bbi_Extras_Image_Manager.Enabled = False + Else + bbi_Extras_Image_Manager.Enabled = True + End If + End Sub + + Private Sub gv_Emu_Games_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gv_Emu_Games.MouseDown + Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Emu_Games.CalcHitInfo(e.Location) + + 'Dim sResult As String = "" + 'sResult &= "InColumn: " & hitinfo.InColumn & ControlChars.CrLf + 'sResult &= "InColumnPanel: " & hitinfo.InColumnPanel & ControlChars.CrLf + 'sResult &= "InFilterPanel: " & hitinfo.InFilterPanel & ControlChars.CrLf + 'sResult &= "InGroupColumn: " & hitinfo.InGroupColumn & ControlChars.CrLf + 'sResult &= "InGroupPanel: " & hitinfo.InGroupPanel & ControlChars.CrLf + 'sResult &= "InRow: " & hitinfo.InRow & ControlChars.CrLf + 'sResult &= "InRowCell: " & hitinfo.InRowCell + + 'DevExpress.XtraEditors.XtraMessageBox.Show(sResult) + + If Not hitinfo.InColumn AndAlso Not hitinfo.InColumnPanel AndAlso Not hitinfo.InFilterPanel AndAlso Not hitinfo.InGroupColumn AndAlso Not hitinfo.InGroupPanel Then + + 'Boolean switches + If hitinfo.Column IsNot Nothing AndAlso {"Favourite", "Have", "Want", "Trade"}.Contains(hitinfo.Column.FieldName) AndAlso hitinfo.RowHandle > -1 Then + Dim colName As String = hitinfo.Column.FieldName + + Dim row As DataRow = gv_Emu_Games.GetRow(hitinfo.RowHandle).Row + + If Not cls_Globals.Admin Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + If DS_ML.Upsert_tbl_Users_Emu_Games(tran, cls_Globals.id_Users, TC.getSQLFormat(row("id_Emu_Games")), Nothing, Nothing, Nothing, IIf(colName = "Favourite", Not TC.NZ(row("Favourite"), False), TC.NZ(row("Favourite"), False)), IIf(colName = "Have", Not TC.NZ(row("Have"), False), TC.NZ(row("Have"), False)), IIf(colName = "Want", Not TC.NZ(row("Want"), False), TC.NZ(row("Want"), False)), IIf(colName = "Trade", Not TC.NZ(row("Trade"), False), TC.NZ(row("Trade"), False))) Then + tran.Commit() + row(colName) = Not TC.NZ(row(colName), False) + grd_Emu_Games.Refresh() + End If + End Using + Else + If DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET " & colName & " = CASE WHEN " & colName & " = 1 THEN 0 ELSE 1 END WHERE id_Emu_Games = " & TC.getSQLFormat(row("id_Emu_Games"))) Then + row(colName) = Not TC.NZ(row(colName), False) + grd_Emu_Games.Refresh() + End If + End If + End If + + If hitinfo.Column IsNot Nothing AndAlso hitinfo.Column.FieldName = "tmp_Highlighted" AndAlso hitinfo.RowHandle > -1 Then + Dim row As DataRow = gv_Emu_Games.GetRow(hitinfo.RowHandle).Row + + row("tmp_Highlighted") = Not TC.NZ(row("tmp_Highlighted"), False) + grd_Emu_Games.Refresh() + End If + End If + End Sub + + Private Sub grd_Emu_Games_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grd_Emu_Games.MouseDown + Application.DoEvents() + + If e.Button = Windows.Forms.MouseButtons.Right Then + cls_Globals.Suppress_MetroUINavigationBarsShowing = True + End If + End Sub + + Private Sub bbi_Open_Moby_Page_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Open_Moby_Page.ItemClick + Dim sURL As String = BS_Emu_Games.Current("Moby_URL") + Dim procinfo As New ProcessStartInfo(sURL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + End Sub + + Private Sub bbi_Contribute_TechInfo_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Contribute_TechInfo.ItemClick + Dim sURL As String = "http://www.mobygames.com/game/sheet/contribute/tech_info/acg,1/" & BS_Emu_Games.Current("Moby_Games_URLPart") & "/" & BS_Emu_Games.Current("Moby_Platforms_URLPart") & "/" + Dim procinfo As New ProcessStartInfo(sURL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + End Sub + + Private Sub grd_Game_Groups_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grd_Game_Groups.MouseDown + Application.DoEvents() + + If e.Button = Windows.Forms.MouseButtons.Right Then + cls_Globals.Suppress_MetroUINavigationBarsShowing = True + End If + End Sub + + Private Sub popmnu_GameGroups_BeforePopup(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_GameGroups.BeforePopup + If Not grd_Game_Groups.Allow_Popup Then + e.Cancel = True + Return + End If + + bbi_Contribute_TechInfo.Enabled = False + bsi_Launch.Enabled = False + + If MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Game_Groups).Length = 0 Then + e.Cancel = True + End If + End Sub + + Private Sub popmnu_Staff_BeforePopup(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles popmnu_Staff.BeforePopup + If Not grd_Staff.Allow_Popup Then + e.Cancel = True + Return + End If + + If MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Staff).Length = 0 Then + e.Cancel = True + End If + End Sub +#End Region + + Private Sub cmb_Filterset_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Filterset.Validated + If _Initializing Then Return + End Sub + + Private Sub cmb_Group_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Groups.Validated + If _Initializing Then Return + End Sub + + Private Sub cmb_Staff_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Staff.Validated + If _Initializing Then Return + End Sub + + Private Sub BS_FilterSets_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BS_FilterSets.CurrentChanged + If BS_FilterSets.Current Is Nothing OrElse BS_FilterSets.Current("id_FilterSets") = 0 Then + cmb_Filterset.Properties.Buttons(2).Enabled = False + cmb_Filterset.Properties.Buttons(3).Enabled = False + + Me.gv_Emu_Games.ActiveFilter.Clear() + + Return + Else + cmb_Filterset.Properties.Buttons(2).Enabled = True + cmb_Filterset.Properties.Buttons(3).Enabled = True + End If + + If TC.NZ(BS_FilterSets.Current("ApplyGridFilter"), False) = True AndAlso Not TC.IsNullNothingOrEmpty(BS_FilterSets.Current("GridFilter")) Then + Me.gv_Emu_Games.RestoreLayoutFromStream(New System.IO.MemoryStream(Convert.FromBase64String(BS_FilterSets.Current("GridFilter")))) + End If + End Sub + + 'Removed: should already be handled in the MouseMove and MouseClick events of the rating gauges + 'Private Sub gv_Emu_Games_BeforeLeaveRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.RowAllowEventArgs) Handles gv_Emu_Games.BeforeLeaveRow + ' BS_Emu_Games.EndEdit() + + ' If gv_Emu_Games.GetRow(e.RowHandle) Is Nothing Then Return + + ' Dim row As DataRow = gv_Emu_Games.GetRow(e.RowHandle).Row + + ' If row.RowState = DataRowState.Modified Then + ' Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + ' DS_ML.Update_tbl_Emu_Games_Ratings(tran, row("id_Emu_Games"), row("Rating_Gameplay"), row("Rating_Graphics"), row("Rating_Personal"), row("Rating_Sound"), row("Rating_Story")) + ' row("Rating") = DS_ML.Select_src_ucr_Emulation_Games_Rating(tran, row("id_Emu_Games")) + ' tran.Commit() + ' row.AcceptChanges() + ' End Using + ' End If + + 'End Sub + + Private Sub gv_Emu_Games_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gv_Emu_Games.MouseMove + 'Dim hitinfo As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo = gv_Emu_Games.CalcHitInfo(e.Location) + + 'If hitinfo.InRowCell AndAlso Not hitinfo.InGroupRow AndAlso Not hitinfo.InColumnPanel AndAlso Not hitinfo.InFilterPanel AndAlso Not hitinfo.InGroupColumn AndAlso Not hitinfo.InGroupPanel AndAlso Not hitinfo.InGroupRow Then + ' If {"Favourite", "Have", "Want", "Trade", "tmp_Highlighted"}.Contains(hitinfo.Column.FieldName) Then + ' grd_Emu_Games.Cursor = Cursors.Hand + ' End If + 'Else + ' If grd_Emu_Games.Cursor = Cursors.Hand Then + ' grd_Emu_Games.Cursor = Cursors.Default + ' End If + 'End If + grd_Emu_Games.ShowHandInColumns(gv_Emu_Games, {"Favourite", "Have", "Want", "Trade", "tmp_Highlighted"}, e) + End Sub + + Private Sub bbi_Edit_Game_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Edit_Game.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + + Dim id_Emu_Games As Integer = TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")) + + Using frm As New frm_Emu_Game_Edit(id_Emu_Games) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Refill_Emu_Games() + End If + End Using + End Sub + + Private Sub bbi_Edit_Multiple_Games_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Edit_Multiple_Games.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + Dim al_id_Emu_Games As New ArrayList + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + al_id_Emu_Games.Add(CInt(row("id_Emu_Games"))) + Next + + Dim id_Emu_Games_Int As Integer() = CType(al_id_Emu_Games.ToArray(GetType(Integer)), Integer()) + + Using frm As New frm_Emu_Game_Edit(id_Emu_Games_Int, "Edit " & iRowHandles.Length & " Games", "", False, IIf(TC.NZ(cmb_Platform.EditValue, 0) > 0, TC.NZ(cmb_Platform.EditValue, 0), Nothing)) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Refill_Emu_Games() + End If + End Using + End Sub + + Private Sub Gauge_Rating_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gc_Rating_Gameplay.MouseMove, gc_Rating_Personal.MouseMove, gc_Rating_Story.MouseMove, gc_Rating_Sound.MouseMove, gc_Rating_Graphics.MouseMove + If e.Button = Windows.Forms.MouseButtons.Left Then + CType(CType(sender, MKNetDXLib.ctl_MKDXGaugeControl).Gauges(0), DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge).Scales(0).Value = Math.Max(0, Math.Min(5, CType(CType(e.Location.X, Double) / CType(sender.width, Double) * 5 + 0.5, Integer))) + + If BS_Emu_Games.Current Is Nothing Then Return + + BS_Emu_Games.EndEdit() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim row As DataRow = BS_Emu_Games.Current.Row + DS_ML.Update_tbl_Emu_Games_Ratings(tran, row("id_Emu_Games"), row("Rating_Gameplay"), row("Rating_Graphics"), row("Rating_Personal"), row("Rating_Sound"), row("Rating_Story")) + row("Rating") = DS_ML.Select_src_ucr_Emulation_Games_Rating(tran, row("id_Emu_Games")) + tran.Commit() + row.AcceptChanges() + End Using + End If + End Sub + + Private Sub Gauge_Rating_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gc_Rating_Gameplay.MouseClick, gc_Rating_Graphics.MouseClick, gc_Rating_Personal.MouseClick, gc_Rating_Sound.MouseClick, gc_Rating_Story.MouseClick + If e.Button = Windows.Forms.MouseButtons.Left Then + CType(CType(sender, MKNetDXLib.ctl_MKDXGaugeControl).Gauges(0), DevExpress.XtraGauges.Win.Gauges.Linear.LinearGauge).Scales(0).Value = Math.Max(0, Math.Min(5, CType(CType(e.Location.X, Double) / CType(sender.width, Double) * 5 + 0.5, Integer))) + + If BS_Emu_Games.Current Is Nothing Then Return + + BS_Emu_Games.EndEdit() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim row As DataRow = BS_Emu_Games.Current.Row + DS_ML.Update_tbl_Emu_Games_Ratings(tran, row("id_Emu_Games"), row("Rating_Gameplay"), row("Rating_Graphics"), row("Rating_Personal"), row("Rating_Sound"), row("Rating_Story")) + row("Rating") = DS_ML.Select_src_ucr_Emulation_Games_Rating(tran, row("id_Emu_Games")) + tran.Commit() + row.AcceptChanges() + End Using + End If + End Sub + + Private Sub lbl_Rating_Edit_Weights_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_Rating_Edit_Weights.Click + Using frm As New frm_Emu_Game_Rating_Weights_Edit + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Refill_Emu_Games() + End If + End Using + End Sub + + Private Sub Save_EmuGame_Position() + Dim pltfm As String = "" + If TC.NZ(cmb_Platform.EditValue, 0) <> 0 Then + pltfm = "_pltfm_" & cmb_Platform.EditValue.ToString + End If + + If BS_Emu_Games.Current IsNot Nothing Then + cls_Settings.SetSetting("ucr_Emulation-Game" & pltfm, BS_Emu_Games.Current("id_Emu_Games"), cls_Settings.enm_Settingmodes.Per_User) + Else + cls_Settings.SetSetting("ucr_Emulation-Game" & pltfm, DBNull.Value, cls_Settings.enm_Settingmodes.Per_User) + End If + End Sub + + Private Sub Load_EmuGame_Position() + Dim pltfm As String = "" + If TC.NZ(cmb_Platform.EditValue, 0) <> 0 Then + pltfm = "_pltfm_" & cmb_Platform.EditValue.ToString + End If + + BS_Emu_Games.Position = BS_Emu_Games.Find("id_Emu_Games", TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Game" & pltfm, cls_Settings.enm_Settingmodes.Per_User), 0L)) + Select_BindingSource_Row_on_gv_Emu_Games() + End Sub + + Private Sub ucr_Emulation_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave + 'Save Position, Platform and Filterset here + cls_Settings.SetSetting("ucr_Emulation-Platform", cmb_Platform.EditValue, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("ucr_Emulation-Group", cmb_Groups.EditValue, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("ucr_Emulation-Developer", cmb_Staff.EditValue, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("ucr_Emulation-Filterset", cmb_Filterset.EditValue, cls_Settings.enm_Settingmodes.Per_User) + + Save_EmuGame_Position() + End Sub + + Private Sub grd_Emu_Games_DDAfterLoadSettings(ByVal Sender As Object, ByVal e As MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXGrid).SettingEventArg_WithResult) Handles grd_Emu_Games.DDAfterLoadSettings + Refill_Emu_Games() + End Sub + + Private Sub gv_Game_Stats_CustomColumnDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) Handles gv_Statistics.CustomColumnDisplayText + Try + If e.Column.FieldName = "Runtime" Then + e.DisplayText = MKNetLib.cls_MKStringSupport.GetTimeString(TC.NZ(e.Value, 0)) + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub gv_Emu_Games_CustomColumnDisplayText(ByVal sender As System.Object, ByVal e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) Handles gv_Emu_Games.CustomColumnDisplayText + Try + If e.Column.FieldName = "Num_Played" Then + If TC.NZ(e.Value, 0) = 0 Then + e.DisplayText = "" + End If + End If + + If e.Column.FieldName = "Num_Runtime" Then + If TC.NZ(e.Value, 0) = 0 Then + e.DisplayText = "" + Else + e.DisplayText = MKNetLib.cls_MKStringSupport.GetTimeString(TC.NZ(e.Value, 0)) + End If + End If + + If e.Column.FieldName = "Game" AndAlso TC.NZ(gv_Emu_Games.GetListSourceRowCellValue(e.ListSourceRowIndex, "Game"), "nope1").ToLower = TC.NZ(gv_Emu_Games.GetListSourceRowCellValue(e.ListSourceRowIndex, "InnerFile"), "nope2").ToLower Then + e.DisplayText = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(e.Value) + End If + Catch ex As Exception + + End Try + End Sub + + Private Sub AddNewScreenshots(ByVal id_Emu_Games As Integer, ByRef al_Screenshots As ArrayList, ByVal Snapshot_Directories As String()) + 'Get Screenshots from Snapshot Directories + For Each Snapshot_Directory As String In Snapshot_Directories + If Alphaleonis.Win32.Filesystem.Directory.Exists(Snapshot_Directory) Then + For Each file As String In Alphaleonis.Win32.Filesystem.Directory.GetFiles(Snapshot_Directory, "*.*") + Dim ext As String = Alphaleonis.Win32.Filesystem.Path.GetExtension(file).ToLower.Replace(".", "") + If ext = "bmp" OrElse ext = "png" OrElse ext = "jpg" OrElse ext = "tif" Then + Try + 'Dim img As New Bitmap(file) + Dim img As Bitmap = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(file))) + + If img.PhysicalDimension.Width > 1 And img.PhysicalDimension.Height > 1 Then + al_Screenshots.Add(img) + End If + Catch ex As Exception + + End Try + End If + Next + End If + Next + + If al_Screenshots.Count = 0 Then Return + + Using frm As New frm_Emu_Game_Screenshotviewer(id_Emu_Games, al_Screenshots) + frm.Name = frm.Name & "_ADD" + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + For Each row As DataRow In frm.DS_Screenshots.Tables("tbl_Screenshots").Select("", "Sort") + If TC.NZ(row("Use"), False) = False Then Continue For + + Dim ExtraCategory As String = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE id_Emu_Extras = " & TC.getSQLFormat(row("Category"))) + Dim FileName As String = cls_Extras.FindNextFreeExtraFilename(frm.Platform_Short, ExtraCategory, frm.FileName) + + If FileName = "" Then Continue For + + Try + Dim mediadir As String = cls_Globals.Dir_Extras & "\emulation\" & frm.Platform_Short & "\" & ExtraCategory + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(mediadir) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(mediadir) + End If + CType(frm._al_Screenshots.Item(row("id")), Image).Save(cls_Globals.Dir_Extras & "\emulation\" & frm.Platform_Short & "\" & ExtraCategory & "\" & FileName & ".png", System.Drawing.Imaging.ImageFormat.Png) + Catch ex As Exception + + End Try + Next + + ApplyFirstExtra() + End If + End Using + End Sub + + Private Sub Refresh_Emu_Game_History(ByVal id_Emu_Games As Integer, ByVal tran As SQLite.SQLiteTransaction) + Dim TotalPlaycount As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT COUNT(1) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0) + Dim TotalRuntime As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT SUM(strftime('%s', End) - strftime('%s', Start)) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0) + + If cls_Globals.Admin Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET Num_Played = " & TC.getSQLFormat(TotalPlaycount) & ", Num_Runtime = " & TC.getSQLFormat(TotalRuntime) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran) + Else + DS_ML.Upsert_tbl_Users_Emu_Games(tran, cls_Globals.id_Users, BS_Emu_Games.Current("id_Emu_Games"), TotalPlaycount, TotalRuntime) + End If + + Dim rows() As DataRow = DS_ML.src_ucr_Emulation_Games.Select("id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + If rows.Length = 1 Then + Try + rows(0)("Num_Played") = TotalPlaycount + Catch ex As Exception + + End Try + Try + rows(0)("Num_Runtime") = TotalRuntime + Catch ex As Exception + + End Try + Try + rows(0)("Last_Played") = DateTime.Now + Catch ex As Exception + + End Try + End If + + DS_ML.Fill_tbl_History(tran, DS_ML.tbl_History, BS_Emu_Games.Current("id_Emu_Games")) + lbl_Emu_Games_Playcount.Text = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT COUNT(1) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0) + lbl_Emu_Games_Runtime_Value.Text = MKNetLib.cls_MKStringSupport.GetTimeString(TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT SUM(strftime('%s', End) - strftime('%s', Start)) FROM tbl_History WHERE id_Users " & IIf(cls_Globals.Admin, "IS NULL", "= " & TC.getSQLFormat(cls_Globals.id_Users)) & " AND id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")), tran), 0)) + + End Sub + + Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick + If _al_StatsChanges.Count > 0 Then + For Each objvec As cls_3ObjVec In _al_StatsChanges + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Dim id_Emu_Games As Integer = objvec._x + Dim StartTime As DateTime = objvec._y + Dim ExitTime As DateTime = objvec._z + + DS_ML.Insert_tbl_History(tran, StartTime, ExitTime, id_Emu_Games) + + If cls_Globals.Admin Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET Last_Played = " & TC.getSQLFormat(ExitTime) & " WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran) + Else + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Users_Emu_Games SET Last_Played = " & TC.getSQLFormat(ExitTime) & " WHERE id_Users = " & TC.getSQLFormat(cls_Globals.id_Users) & " AND id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games), tran) + End If + + Refresh_Emu_Game_History(id_Emu_Games, tran) + + Try + tran.Commit() + Catch ex As Exception + + End Try + End Using + Next + + _al_StatsChanges.Clear() + End If + + If _al_Screenshots_EmuGames.Count > 0 Then + Dim al_Shots As New ArrayList + + If _al_Screenshots.Count > 0 Then + If _al_Screenshots.Count > 0 Then + For Each item As Object In _al_Screenshots + al_Shots.Add(item) + Next + End If + End If + + Dim id_Emu_Games As Integer = CType(_al_Screenshots_EmuGames.Item(0), cls_Emu_Game_ProcInfo).id_Emu_Games + Dim snapdir As String = CType(_al_Screenshots_EmuGames.Item(0), cls_Emu_Game_ProcInfo).Snapshot_Directory + + _al_Screenshots.Clear() + _al_Screenshots_EmuGames.Clear() + + 'AddNewScreenshots(id_Emu_Games, al_Shots, snapdir) + AddNewScreenshots(id_Emu_Games, al_Shots, New String() {snapdir, cls_Globals.Dir_Screenshot}) + End If + End Sub + + Private Sub grd_Emu_Games_DDAfterSaveSettings(ByVal Sender As Object, ByVal e As MKNetDXLib.cls_DDSettingHandlerDelegates(Of MKNetDXLib.ctl_MKDXGrid).SettingEventArg_WithResult) Handles grd_Emu_Games.DDAfterSaveSettings + 'cls_Settings.SetSetting("Emu_Games_Splt1", Me.spltpnl1.SplitterPosition, per_user) + End Sub + + Dim _First_Paint_Handled As Boolean = False + + Private Sub ucr_Emulation_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint + If _First_Paint_Handled = True Then Return + + _First_Paint_Handled = True + + grd_Emu_Games.ForceInitialize() + cmb_Filterset.EditValue = CLng(TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Filterset", cls_Settings.enm_Settingmodes.Per_User), 0)) + Load_EmuGame_Position() + 'gv_Emu_Games.MakeRowVisible(gv_Emu_Games.FocusedRowHandle) + + filteringUIContext.RetrieveFields() + 'accordion_FilterUI.ExpandAll() + + _Initializing = False + End Sub + + Private Sub bbi_Rom_Manager_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Rom_Manager.ItemClick + Dim id_Emu_Games As Object = Nothing + Dim id_Moby_Platforms As Object = Nothing + + If BS_Emu_Games.Current IsNot Nothing Then + id_Emu_Games = BS_Emu_Games.Current("id_Emu_Games") + Else + If TC.NZ(cmb_Platform.EditValue, 0) > 0 Then + id_Moby_Platforms = cmb_Platform.EditValue + End If + End If + + Using frm As New frm_Rom_Manager(id_Emu_Games, id_Moby_Platforms) + If frm.ShowDialog(Me.ParentForm) Then + Me.Refill_Emu_Games() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Me.DS_ML.Fill_src_ucr_Emulators_Platforms(tran, Me.DS_ML.src_ucr_Emulation_Platforms) + End Using + End If + End Using + End Sub + + Private Sub bbi_Rombase_Manager_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Rombase_Manager.ItemClick + Dim id_Rombase As Object = Nothing + + If BS_Emu_Games.Current IsNot Nothing Then + id_Rombase = BS_Emu_Games.Current("id_Rombase") + End If + + Using frm As New frm_ROMBase_Manager(id_Rombase) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + 'Watching the clipboard can be seen as a security issue - temp. disabled + 'Private Sub _ClipboardWatcher_ClipboardContentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles _ClipboardWatcher.ClipboardContentChanged + ' If Clipboard.ContainsImage Then + ' _al_Screenshots.Add(Clipboard.GetImage) + ' End If + 'End Sub + + Private Sub bbi_GameGroup_Info_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_GameGroup_Info.ItemClick + If BS_Game_Groups.Current Is Nothing Then Return + + Dim id_Moby_Game_Groups As Integer = TC.NZ(BS_Game_Groups.Current("id_Moby_Game_Groups"), 0) + + If id_Moby_Game_Groups = 0 Then Return + + Using frm As New frm_Moby_Game_Group_Info(id_Moby_Game_Groups) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub bbi_Staff_Info_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Staff_Info.ItemClick + If BS_Moby_Releases_Staff.Current Is Nothing Then Return + + Dim id_Moby_Staff As Integer = TC.NZ(BS_Moby_Releases_Staff.Current("id_Moby_Staff"), 0) + + If id_Moby_Staff = 0 Then Return + + Using frm As New frm_Moby_Staff_Info(id_Moby_Staff) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub bbi_GameGroup_Filter_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_GameGroup_Filter.ItemClick + If BS_Game_Groups.Current Is Nothing Then Return + + Dim id_Moby_Game_Groups As Long = TC.NZ(BS_Game_Groups.Current("id_Moby_Game_Groups"), 0) + + If id_Moby_Game_Groups = 0 Then Return + + Me.cmb_Groups.EditValue = id_Moby_Game_Groups + End Sub + + Private Sub bbi_Developer_Filter_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Staff_Filter.ItemClick + If BS_Moby_Releases_Staff.Current Is Nothing Then Return + + Dim id_Moby_Staff As Long = TC.NZ(BS_Moby_Releases_Staff.Current("id_Moby_Staff"), 0) + + If id_Moby_Staff = 0 Then Return + + Me.cmb_Staff.EditValue = id_Moby_Staff + End Sub + + Private Sub bbi_Export_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Export.ItemClick + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length + + If iNumRows <= 0 Then + Return + End If + + Dim al_id_Emu_Games As New ArrayList + + Dim bHasDOSEntry As Boolean = False + + For Each iRowHandle As Integer In iRowHandles + Dim row As DataRow = gv_Emu_Games.GetRow(iRowHandle).Row + al_id_Emu_Games.Add(row("id_Emu_Games")) + If TC.NZ(row("id_Moby_Platforms"), 0) = 2 Then + bHasDOSEntry = True + End If + Next + + Using frm As New frm_Export(al_id_Emu_Games, bHasDOSEntry) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub bbi_Emu_Settings_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Emu_Settings.ItemClick + Using frm As New frm_Emulators + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub bbi_DOSBox_Templates_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_DOSBox_Templates.ItemClick + Using frm As New frm_DOSBox_Templates + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub bbi_DOSBox_Clear_Exe_Config_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_DOSBox_Clear_Exe_Config.ItemClick + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you want to clear the executables configuration for the selected game?" & ControlChars.CrLf & "After clearing the configuration you will be prompted with a selection when launching the game.", "Clear Executables Configuration", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET id_Rombase_DOSBox_Exe_Types = NULL WHERE id_Emu_Games = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games")) & " OR id_Emu_Games_Owner = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Emu_Games"))) + DevExpress.XtraEditors.XtraMessageBox.Show("The executables configuration for the selected game has been cleared.", "Clear Executables Configuration", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Sub + + Private Sub Call_J2K(Optional ByVal J2K_Preset As String = "") + Dim file_J2K As String = TC.NZ(cls_Settings.GetSetting("Path_J2K"), "") + If Not Alphaleonis.Win32.Filesystem.File.Exists(file_J2K) Then Return + + If J2K_Preset = "" Then J2K_Preset = TC.NZ(cls_Settings.GetSetting("Config_J2K"), "") + If J2K_Preset = "" Then J2K_Preset = "Empty" + + Dim TempDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms + Dim batch_J2K As String = TempDir & "\" & "j2k.bat" + + Dim batch_Content As String = """" & file_J2K & """" & " " & """" & J2K_Preset & """" + + If MKNetLib.cls_MKFileSupport.SaveTextToFile(batch_Content, batch_J2K) Then + Dim proc As New System.Diagnostics.Process + proc.StartInfo.FileName = batch_J2K + proc.StartInfo.UseShellExecute = True + proc.StartInfo.CreateNoWindow = True + proc.Start() + End If + End Sub + + Private Sub bsi_Launch_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bsi_Launch.ItemPress + If BS_Emu_Games.Current IsNot Nothing Then + Launch_Game(Nothing, Get_DOSBox_Exe_Type) + End If + End Sub + + Private Sub gv_Emu_Games_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles gv_Emu_Games.RowCellStyle + If e.RowHandle >= 0 Then + Dim row As DataRow = gv_Emu_Games.GetRow(e.RowHandle).Row + If TC.NZ(row("tmp_Highlighted"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + End If + End If + End Sub + + Private Sub bbi_Analyze_Missing_Extras_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Analyze_Missing_Extras.ItemClick + Analyze_Missing_Extras() + End Sub + + Private Sub Handle_bbi_MultiUser_Add_Remove_Games_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_MultiUser_Add_Games.ItemClick, bbi_MultiUser_Remove_Games.ItemClick + Dim bAdd As Boolean = e.Item Is bbi_MultiUser_Add_Games + + Dim id_Users As Integer = 0 + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_Users WHERE Restricted = 1"), 0) = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There is no restricted user to choose from, please set one up in Settings -> Multi User Mode.", "Add Games to restricted user", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Using frm As New frm_Login(True, True, "Select the target user.") + frm.Text = IIf(bAdd, "Add Games to restricted user", "Remove Games from restricted user") + If frm.ShowDialog(Me.ParentForm) <> DialogResult.OK Then + Return + End If + + id_Users = frm.cmb_Users.EditValue + + If id_Users > 0 Then + Dim iRowHandles() As Integer = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iAdded As Integer = 0 + Dim iSkipped As Integer = 0 + Dim iDeleted As Integer = 0 + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each iRowHandle As Integer In iRowHandles + Dim row_Emu_Games As DS_ML.src_ucr_Emulation_GamesRow = gv_Emu_Games.GetRow(iRowHandle).Row + Dim id_Users_Emu_Games As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Users_Emu_Games FROM tbl_Users_Emu_Games WHERE id_Users = " & TC.getSQLFormat(id_Users) & " AND id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")), tran), 0) + If id_Users_Emu_Games > 0 Then + If Not bAdd Then + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Users_Emu_Games WHERE id_Users_Emu_Games = " & TC.getSQLFormat(id_Users_Emu_Games), tran) + iDeleted += 1 + Else + iSkipped += 1 + End If + Else + If bAdd Then + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Users_Emu_Games (id_Users, id_Emu_Games) VALUES (" & TC.getSQLParameter(id_Users, row_Emu_Games("id_Emu_Games")) & ")", tran) + iAdded += 1 + Else + iSkipped += 1 + End If + End If + Next + + DS_ML.Update_Platform_NumGames_Cache(tran, Me.cmb_Platform.EditValue, id_Users) + + tran.Commit() + + If bAdd Then + DevExpress.XtraEditors.XtraMessageBox.Show("For the restricted user ' " & frm.cmb_Users.Text & "' out of " & iRowHandles.Length & " selected games " & iAdded & " have been added and " & iSkipped & " have been skipped (because they were already added to this user).", "Add selected games to restricted user", MessageBoxButtons.OK, MessageBoxIcon.Information) + Else + DevExpress.XtraEditors.XtraMessageBox.Show("For the restricted user ' " & frm.cmb_Users.Text & "' out of " & iRowHandles.Length & " selected games " & iDeleted & " have been removed and " & iSkipped & " have been skipped (because they were not added to this user in the first place).", "Remove selected games from restricted user", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Using + End If + + End Using + + End Sub + + Private Sub bbi_MultiUser_Show_Games_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_MultiUser_Show_Games.ItemClick + Dim id_User As Integer = 0 + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM tbl_Users WHERE Restricted = 1"), 0) = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("There is no restricted user to choose from, please set one up in Settings -> Multi User Mode.", "No restricted user found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Using frm As New frm_Login(True, True, "Select the restricted user, whose games you want to view in bold font.") + frm.Text = "Show Games of restricted user" + If frm.ShowDialog(Me.ParentForm) <> DialogResult.OK Then + Return + End If + + id_User = frm.cmb_Users.EditValue + + Me.Cursor = Cursors.WaitCursor + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + For Each row As DataRow In Me.DS_ML.src_ucr_Emulation_Games.Rows + If TC.IsNullNothingOrEmpty(row("id_Emu_Games_Owner")) Then + If TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Users_Emu_Games FROM tbl_Users_Emu_Games WHERE id_Users = " & TC.getSQLFormat(id_User) & " AND id_Emu_Games = " & row("id_Emu_Games"), tran), 0) > 0 Then + row("tmp_Highlighted") = True + Else + row("tmp_Highlighted") = False + End If + End If + Next + End Using + + Me.Cursor = Cursors.Default + End Using + End Sub + + Private Sub bbi_Similarity_Calculation_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Similarity_Calculation.ItemClick + Using frm As New frm_Similarity_Calculation(BS_Emu_Games.Current("id_Emu_Games"), BS_Emu_Games.Current("Game"), BS_Emu_Games.Current("Platform")) + frm.ShowDialog(Me.ParentForm) + + Refill_cmb_Similarity_Calculation_Results() + + If frm.Updated_Results.Contains(cmb_Similarity_Calculation_Results.EditValue) Then + Refill_Emu_Games() + End If + End Using + End Sub + + Private Sub cmb_Similarity_Calculation_Results_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Similarity_Calculation_Results.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Minus Then + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to delete the similarity calculation results '" & cmb_Similarity_Calculation_Results.Text & "'?", "Delete", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Similarity_Calculation_Results_Entries WHERE id_Similarity_Calculation_Results = " & TC.getSQLFormat(cmb_Similarity_Calculation_Results.EditValue)) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Similarity_Calculation_Results WHERE id_Similarity_Calculation_Results = " & TC.getSQLFormat(cmb_Similarity_Calculation_Results.EditValue)) + + Refill_cmb_Similarity_Calculation_Results() + cmb_Similarity_Calculation_Results.EditValue = 0 + Refill_Emu_Games() + End If + ElseIf e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + Using frm As New frm_Similarity_Calculation(BS_Similarity_Calculation_Results.Current("id_Similarity_Calculation_Results")) + frm.ShowDialog(Me.ParentForm) + End Using + End If + End Sub + + Private Sub bbi_Show_Similarity_Features_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Show_Similarity_Feature_Columns.ItemClick + If Not _bbi_Show_Similarity_Feature_Columns_Shown Then + _bbi_Show_Similarity_Feature_Columns_Shown = True + col001_Platform.Visible = True + col001_Platform.VisibleIndex = 0 + col002_MobyRank.Visible = True + col002_MobyRank.VisibleIndex = 0 + col003_MobyScore.Visible = True + col003_MobyScore.VisibleIndex = 0 + col004_Publisher.Visible = True + col004_Publisher.VisibleIndex = 0 + col005_Developer.Visible = True + col005_Developer.VisibleIndex = 0 + col006_Year.Visible = True + col006_Year.VisibleIndex = 0 + col101_Basic_Genres.Visible = True + col101_Basic_Genres.VisibleIndex = 0 + col102_Perspectives.Visible = True + col102_Perspectives.VisibleIndex = 0 + col103_Sports_Themes.Visible = True + col103_Sports_Themes.VisibleIndex = 0 + col105_Educational_Categories.Visible = True + col105_Educational_Categories.VisibleIndex = 0 + col106_Other_Attributes.Visible = True + col106_Other_Attributes.VisibleIndex = 0 + col107_Visual_Presentation.Visible = True + col107_Visual_Presentation.VisibleIndex = 0 + col108_Gameplay.Visible = True + col108_Gameplay.VisibleIndex = 0 + col109_Pacing.Visible = True + col109_Pacing.VisibleIndex = 0 + col110_Narrative_Theme_Topic.Visible = True + col110_Narrative_Theme_Topic.VisibleIndex = 0 + col111_Setting.Visible = True + col111_Setting.VisibleIndex = 0 + col112_Vehicular_Themes.Visible = True + col112_Vehicular_Themes.VisibleIndex = 0 + col113_Interface_Control.Visible = True + col113_Interface_Control.VisibleIndex = 0 + col114_DLC_Addon.Visible = True + col114_DLC_Addon.VisibleIndex = 0 + col115_Special_Edition.Visible = True + col115_Special_Edition.VisibleIndex = 0 + col201_MinPlayers.Visible = True + col201_MinPlayers.VisibleIndex = 0 + col202_MaxPlayers.Visible = True + col202_MaxPlayers.VisibleIndex = 0 + col203_AgeO.Visible = True + col203_AgeO.VisibleIndex = 0 + col204_AgeP.Visible = True + col204_AgeP.VisibleIndex = 0 + col205_Rating_Descriptors.Visible = True + col205_Rating_Descriptors.VisibleIndex = 0 + col207_Multiplayer_Attributes.Visible = True + col207_Multiplayer_Attributes.VisibleIndex = 0 + col206_Other_Attributes.Visible = True + col206_Other_Attributes.VisibleIndex = 0 + col301_Group_Membership.Visible = True + col301_Group_Membership.VisibleIndex = 0 + col401_Staff.Visible = True + col401_Staff.VisibleIndex = 0 + Else + _bbi_Show_Similarity_Feature_Columns_Shown = False + col001_Platform.Visible = False + col002_MobyRank.Visible = False + col003_MobyScore.Visible = False + col004_Publisher.Visible = False + col005_Developer.Visible = False + col006_Year.Visible = False + col101_Basic_Genres.Visible = False + col102_Perspectives.Visible = False + col103_Sports_Themes.Visible = False + col105_Educational_Categories.Visible = False + col106_Other_Attributes.Visible = False + col107_Visual_Presentation.Visible = False + col108_Gameplay.Visible = False + col109_Pacing.Visible = False + col110_Narrative_Theme_Topic.Visible = False + col111_Setting.Visible = False + col112_Vehicular_Themes.Visible = False + col113_Interface_Control.Visible = False + col114_DLC_Addon.Visible = False + col115_Special_Edition.Visible = False + col201_MinPlayers.Visible = False + col202_MaxPlayers.Visible = False + col203_AgeO.Visible = False + col204_AgeP.Visible = False + col205_Rating_Descriptors.Visible = False + col207_Multiplayer_Attributes.Visible = False + col206_Other_Attributes.Visible = False + col301_Group_Membership.Visible = False + col401_Staff.Visible = False + End If + End Sub + + Private Sub bbi_Open_Similarity_Details_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Open_Similarity_Details.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + + Using frm As New frm_Similarity_Calculation_Details(TC.NZ(cmb_Similarity_Calculation_Results.EditValue, 0), BS_Emu_Games.Current.Row, TC.NZ(BS_Emu_Games.Current("id_Emu_Games"), 0), TC.NZ(BS_Emu_Games.Current("id_Moby_Releases"), 0)) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub cmb_Staff_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Staff.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + Dim id_Moby_Staff As Integer = TC.NZ(cmb_Staff.EditValue, 0) + + If id_Moby_Staff = 0 Then Return + + Using frm As New frm_Moby_Staff_Info(id_Moby_Staff) + frm.ShowDialog(Me.ParentForm) + End Using + End If + End Sub + + Private Sub cmb_Groups_ButtonClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Groups.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + Dim id_Moby_Groups As Integer = TC.NZ(cmb_Groups.EditValue, 0) + + If id_Moby_Groups = 0 Then Return + + Using frm As New frm_Moby_Game_Group_Info(id_Moby_Groups) + frm.ShowDialog(Me.ParentForm) + End Using + End If + End Sub + + Private Sub bbi_Launch_Random_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Launch_Random.ItemClick + Dim iMaxRow = Me.gv_Emu_Games.DataRowCount + + If iMaxRow < 1 Then + Return + End If + + Dim rnd As New Random(Environment.TickCount) + Dim iChosen As Integer = rnd.Next() Mod iMaxRow + + Dim rowChosen As DataRow = gv_Emu_Games.GetRow(iChosen).Row + + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_Emu_Games, "id_Emu_Games", rowChosen("id_Emu_Games")) + + Launch_Game() + End Sub + + Private Sub bbi_Extras_Image_Manager_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Extras_Image_Manager.ItemClick + If BS_Emu_Games.Current Is Nothing Then Return + + Dim ar_Extras As ArrayList = cls_Extras.FindAllExtras(BS_Emu_Games.Current("Platform_Short"), BS_Emu_Games.Current("id_Moby_Platforms"), BS_Emu_Games.Current("Game"), BS_Emu_Games.Current("File")) + + Using frm As New frm_Emu_Game_Screenshotviewer(BS_Emu_Games.Current("id_Emu_Games"), ar_Extras) + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + For Each old_extra As cls_Extras.cls_Extras_Result In ar_Extras + Try + If Not old_extra._NoExtraFound Then + Alphaleonis.Win32.Filesystem.File.Delete(old_extra._Path) + End If + Catch ex As Exception + + End Try + Next + + For Each row As DataRow In frm.DS_Screenshots.Tables("tbl_Screenshots").Select("", "Sort") + If TC.NZ(row("Use"), False) = False Then Continue For + + Dim ExtraCategory As String = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Emu_Extras WHERE id_Emu_Extras = " & TC.getSQLFormat(row("Category"))) + Dim FileName As String = cls_Extras.FindNextFreeExtraFilename(frm.Platform_Short, ExtraCategory, frm.FileName) + + If FileName = "" Then Continue For + + Try + Dim mediadir As String = cls_Globals.Dir_Extras & "\emulation\" & frm.Platform_Short & "\" & ExtraCategory + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(mediadir) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(mediadir) + End If + CType(frm._al_Screenshots.Item(row("id")), Image).Save(cls_Globals.Dir_Extras & "\emulation\" & frm.Platform_Short & "\" & ExtraCategory & "\" & FileName & ".png", System.Drawing.Imaging.ImageFormat.Png) + Catch ex As Exception + + End Try + Next + + ApplyFirstExtra() + End If + End Using + End Sub + + Private Sub bbi_Extras_Viewer_Settings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Extras_Viewer_Settings.ItemClick + Using frm As New frm_Emu_ImageSettings + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + ApplyFirstExtra() + _Slideshow = TC.NZ(cls_Settings.GetSetting("Emu_Slideshow", cls_Settings.enm_Settingmodes.Per_User), "0") = "1" + _Slideshow_Delay = CInt(TC.NZ(cls_Settings.GetSetting("Emu_Slideshow_Delay", cls_Settings.enm_Settingmodes.Per_User), "1")) + tmr_ImageUpdate.Interval = _Slideshow_Delay * 1000 + End If + End Using + End Sub + + Private Sub bbi_Statistics_Remove_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Statistics_Remove.ItemClick + If BS_Emu_Games_History.Current Is Nothing Then Return + + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to remove the current statistics entry?", "Remove statistics entry", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_History WHERE id_History = " & TC.getSQLFormat(BS_Emu_Games_History.Current("id_History"))) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Refresh_Emu_Game_History(BS_Emu_Games.Current("id_Emu_Games"), tran) + tran.Commit() + End Using + End If + End Sub + + Private Sub popmnu_Statistics_BeforePopup(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles popmnu_Statistics.BeforePopup + If Not grd_Statistics.Allow_Popup OrElse BS_Emu_Games_History.Current Is Nothing Then + e.Cancel = True + End If + End Sub + + Private Sub filteringUIContext_QueryRangeData(sender As Object, e As DevExpress.Utils.Filtering.QueryRangeDataEventArgs) Handles filteringUIContext.QueryRangeData + If e.PropertyPath = "Rank" Then + e.Result.Minimum = 0 + e.Result.Maximum = 100 + End If + + If e.PropertyPath = "Score" Then + e.Result.Minimum = 0.0 + e.Result.Maximum = 5.0 + End If + + If e.PropertyPath = "MinPlayers" Then + e.Result.Minimum = 1 + e.Result.Maximum = Me._FilterUI_MinPlayers_Max + End If + + If e.PropertyPath = "MaxPlayers" Then + e.Result.Minimum = 1 + e.Result.Maximum = Me._FilterUI_MaxPlayers_Max + End If + End Sub + + Private _FilterUI_ar_Year As ArrayList + Private _FilterUI_ar_Platform As ArrayList + Private _FilterUI_ar_Basic_Genres As ArrayList + Private _FilterUI_ar_Perspectives As ArrayList + Private _FilterUI_ar_Sports_Themes As ArrayList + Private _FilterUI_ar_Educational_Categories As ArrayList + Private _FilterUI_ar_Other_Attributes As ArrayList + Private _FilterUI_ar_Visual_Presentation As ArrayList + Private _FilterUI_ar_Pacing As ArrayList + Private _FilterUI_ar_Gameplay As ArrayList + Private _FilterUI_ar_Interface_Control As ArrayList + Private _FilterUI_ar_Vehicular_Themes As ArrayList + Private _FilterUI_ar_Setting As ArrayList + Private _FilterUI_ar_Narrative_Theme_Topic As ArrayList + Private _FilterUI_ar_DLC_Addon As ArrayList + Private _FilterUI_ar_Special_Edition As ArrayList + Private _FilterUI_ar_Regions As ArrayList + Private _FilterUI_ar_Languages As ArrayList + Private _FilterUI_ar_MP_GameModes As ArrayList + Private _FilterUI_ar_MP_Options As ArrayList + + Private _FilterUI_MinPlayers_Max As Integer + Private _FilterUI_MaxPlayers_Max As Integer + + Private Sub Prepare_filteringUIContext_QueryRangeData() + Dim bWaitCursor = False + If Cursor <> Cursors.WaitCursor Then + bWaitCursor = True + Cursor = Cursors.WaitCursor + End If + + Me._FilterUI_ar_Year = New ArrayList + Me._FilterUI_ar_Platform = New ArrayList + Me._FilterUI_ar_Basic_Genres = New ArrayList + Me._FilterUI_ar_Perspectives = New ArrayList + Me._FilterUI_ar_Visual_Presentation = New ArrayList + Me._FilterUI_ar_Pacing = New ArrayList + Me._FilterUI_ar_Gameplay = New ArrayList + Me._FilterUI_ar_Interface_Control = New ArrayList + Me._FilterUI_ar_Vehicular_Themes = New ArrayList + Me._FilterUI_ar_Setting = New ArrayList + Me._FilterUI_ar_Narrative_Theme_Topic = New ArrayList + Me._FilterUI_ar_DLC_Addon = New ArrayList + Me._FilterUI_ar_Special_Edition = New ArrayList + Me._FilterUI_ar_Sports_Themes = New ArrayList + Me._FilterUI_ar_Educational_Categories = New ArrayList + Me._FilterUI_ar_Other_Attributes = New ArrayList + Me._FilterUI_ar_Regions = New ArrayList + Me._FilterUI_ar_Languages = New ArrayList + Me._FilterUI_ar_MP_GameModes = New ArrayList + Me._FilterUI_ar_MP_Options = New ArrayList + + Me._FilterUI_MinPlayers_Max = 1 + Me._FilterUI_MaxPlayers_Max = 1 + + For Each row As DataRow In Me.DS_ML.src_ucr_Emulation_Games.Rows + AddToFilterUIArray(row("Year"), Me._FilterUI_ar_Year) + AddToFilterUIArray(row("Platform"), Me._FilterUI_ar_Platform) + AddToFilterUIArray(row("Basic_Genres"), Me._FilterUI_ar_Basic_Genres) + AddToFilterUIArray(row("Perspectives"), Me._FilterUI_ar_Perspectives) + AddToFilterUIArray(row("Sports_Themes"), Me._FilterUI_ar_Sports_Themes) + AddToFilterUIArray(row("Educational_Categories"), Me._FilterUI_ar_Educational_Categories) + AddToFilterUIArray(row("Other_Attributes"), Me._FilterUI_ar_Other_Attributes) + AddToFilterUIArray(row("Visual_Presentation"), Me._FilterUI_ar_Visual_Presentation) + AddToFilterUIArray(row("Pacing"), Me._FilterUI_ar_Pacing) + AddToFilterUIArray(row("Gameplay"), Me._FilterUI_ar_Gameplay) + AddToFilterUIArray(row("Interface_Control"), Me._FilterUI_ar_Interface_Control) + AddToFilterUIArray(row("Vehicular_Themes"), Me._FilterUI_ar_Vehicular_Themes) + AddToFilterUIArray(row("Setting"), Me._FilterUI_ar_Setting) + AddToFilterUIArray(row("Narrative_Theme_Topic"), Me._FilterUI_ar_Narrative_Theme_Topic) + AddToFilterUIArray(row("DLC_Addon"), Me._FilterUI_ar_DLC_Addon) + AddToFilterUIArray(row("Special_Edition"), Me._FilterUI_ar_Special_Edition) + AddToFilterUIArray(row("Regions"), Me._FilterUI_ar_Regions) + AddToFilterUIArray(row("Languages"), Me._FilterUI_ar_Languages) + AddToFilterUIArray(row("MP_GameModes"), Me._FilterUI_ar_MP_GameModes) + AddToFilterUIArray(row("MP_Options"), Me._FilterUI_ar_MP_Options) + + If TC.NZ(row("MinPlayers"), 0) > Me._FilterUI_MinPlayers_Max Then Me._FilterUI_MinPlayers_Max = TC.NZ(row("MinPlayers"), 0) + If TC.NZ(row("MaxPlayers"), 0) > Me._FilterUI_MaxPlayers_Max Then Me._FilterUI_MaxPlayers_Max = TC.NZ(row("MaxPlayers"), 0) + Next + + Me._FilterUI_ar_Year.Sort() + Me._FilterUI_ar_Platform.Sort() + Me._FilterUI_ar_Basic_Genres.Sort() + Me._FilterUI_ar_Perspectives.Sort() + Me._FilterUI_ar_Sports_Themes.Sort() + Me._FilterUI_ar_Educational_Categories.Sort() + Me._FilterUI_ar_Visual_Presentation.Sort() + Me._FilterUI_ar_Pacing.Sort() + Me._FilterUI_ar_Gameplay.Sort() + Me._FilterUI_ar_Interface_Control.Sort() + Me._FilterUI_ar_Vehicular_Themes.Sort() + Me._FilterUI_ar_Setting.Sort() + Me._FilterUI_ar_Narrative_Theme_Topic.Sort() + Me._FilterUI_ar_DLC_Addon.Sort() + Me._FilterUI_ar_Special_Edition.Sort() + Me._FilterUI_ar_Sports_Themes.Sort() + Me._FilterUI_ar_Educational_Categories.Sort() + Me._FilterUI_ar_Other_Attributes.Sort() + Me._FilterUI_ar_Regions.Sort() + Me._FilterUI_ar_Languages.Sort() + Me._FilterUI_ar_MP_GameModes.Sort() + Me._FilterUI_ar_MP_Options.Sort() + + If bWaitCursor Then + Cursor = Cursors.Default + End If + End Sub + + Private Sub AddToFilterUIArray(ByVal oItem As Object, ByVal arList As ArrayList) + If Not TC.IsNullNothingOrEmpty(oItem) Then + Dim sItem As String = oItem.ToString + + For Each sItemSplit As String In sItem.Split(",") + sItemSplit = sItemSplit.Trim + + If sItemSplit <> "" Then + If Not arList.Contains(sItemSplit) Then + arList.Add(sItemSplit) + End If + End If + Next + End If + End Sub + + Private Sub filteringUIContext_QueryLookupData(sender As Object, e As QueryLookupDataEventArgs) Handles filteringUIContext.QueryLookupData + If e.PropertyPath = "Year" AndAlso Me._FilterUI_ar_Year IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Year.ToArray(GetType(String)) + If e.PropertyPath = "Platform" AndAlso Me._FilterUI_ar_Platform IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Platform.ToArray(GetType(String)) + If e.PropertyPath = "Basic_Genres" AndAlso Me._FilterUI_ar_Basic_Genres IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Basic_Genres.ToArray(GetType(String)) + If e.PropertyPath = "Perspectives" AndAlso Me._FilterUI_ar_Perspectives IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Perspectives.ToArray(GetType(String)) + If e.PropertyPath = "Sports_Themes" AndAlso Me._FilterUI_ar_Sports_Themes IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Sports_Themes.ToArray(GetType(String)) + If e.PropertyPath = "Educational_Categories" AndAlso Me._FilterUI_ar_Educational_Categories IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Educational_Categories.ToArray(GetType(String)) + If e.PropertyPath = "Other_Attributes" AndAlso Me._FilterUI_ar_Other_Attributes IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Other_Attributes.ToArray(GetType(String)) + + If e.PropertyPath = "Visual_Presentation" AndAlso Me._FilterUI_ar_Visual_Presentation IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Visual_Presentation.ToArray(GetType(String)) + If e.PropertyPath = "Pacing" AndAlso Me._FilterUI_ar_Pacing IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Pacing.ToArray(GetType(String)) + If e.PropertyPath = "Gameplay" AndAlso Me._FilterUI_ar_Gameplay IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Gameplay.ToArray(GetType(String)) + If e.PropertyPath = "Interface_Control" AndAlso Me._FilterUI_ar_Interface_Control IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Interface_Control.ToArray(GetType(String)) + If e.PropertyPath = "Vehicular_Themes" AndAlso Me._FilterUI_ar_Vehicular_Themes IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Vehicular_Themes.ToArray(GetType(String)) + If e.PropertyPath = "Setting" AndAlso Me._FilterUI_ar_Setting IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Setting.ToArray(GetType(String)) + If e.PropertyPath = "Narrative_Theme_Topic" AndAlso Me._FilterUI_ar_Narrative_Theme_Topic IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Narrative_Theme_Topic.ToArray(GetType(String)) + If e.PropertyPath = "DLC_Addon" AndAlso Me._FilterUI_ar_DLC_Addon IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_DLC_Addon.ToArray(GetType(String)) + If e.PropertyPath = "Special_Edition" AndAlso Me._FilterUI_ar_Special_Edition IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Special_Edition.ToArray(GetType(String)) + + If e.PropertyPath = "Regions" AndAlso Me._FilterUI_ar_Regions IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Regions.ToArray(GetType(String)) + If e.PropertyPath = "Languages" AndAlso Me._FilterUI_ar_Languages IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_Languages.ToArray(GetType(String)) + If e.PropertyPath = "MP_GameModes" AndAlso Me._FilterUI_ar_MP_GameModes IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_MP_GameModes.ToArray(GetType(String)) + If e.PropertyPath = "MP_Options" AndAlso Me._FilterUI_ar_MP_Options IsNot Nothing Then e.Result.DataSource = Me._FilterUI_ar_MP_Options.ToArray(GetType(String)) + End Sub + + Private _FilterUI_CriteriaChanged As Integer = 0 + + Private Function Generate_Filter_String(filterCriteria As DevExpress.Data.Filtering.CriteriaOperator) As String + Dim filterString As String = "" + + If filterCriteria.GetType Is GetType(DevExpress.Data.Filtering.GroupOperator) Then + ' TODO: Concat all subsequent Operators with the Operatortype ("AND", "OR" etc.) + Dim op As DevExpress.Data.Filtering.GroupOperator = CType(filterCriteria, DevExpress.Data.Filtering.GroupOperator) + + For Each subop As DevExpress.Data.Filtering.CriteriaOperator In op.Operands + Dim opType As String = "AND" + If op.OperatorType = DevExpress.Data.Filtering.GroupOperatorType.Or Then + opType = "OR" + End If + filterString &= IIf(filterString = "", "(", " " & opType & " ") & Generate_Filter_String(subop) + Next + filterString &= ")" + ElseIf filterCriteria.GetType Is GetType(DevExpress.Data.Filtering.BinaryOperator) AndAlso CType(filterCriteria, DevExpress.Data.Filtering.BinaryOperator).OperatorType = DevExpress.Data.Filtering.BinaryOperatorType.Equal Then + ' TODO: transform to "Contains([col], 'str')" + Dim op As DevExpress.Data.Filtering.BinaryOperator = CType(filterCriteria, DevExpress.Data.Filtering.BinaryOperator) + filterString = "Contains(" & op.LeftOperand.ToString & ", " & op.RightOperand.ToString & ")" + ElseIf filterCriteria.GetType Is GetType(DevExpress.Data.Filtering.InOperator) Then + ' TODO: transform to "(Contains([col], 'str1') Or Contains([col], 'str2')" + Dim op As DevExpress.Data.Filtering.InOperator = CType(filterCriteria, DevExpress.Data.Filtering.InOperator) + Dim col As String = op.LeftOperand.ToString + For Each val As DevExpress.Data.Filtering.OperandValue In op.Operands + filterString &= IIf(filterString = "", "(", " OR ") & "Contains(" & col & ", " & val.ToString & ")" + Next + filterString &= ")" + Else + Return filterCriteria.ToString + End If + + Return filterString + End Function + + Private Sub filteringUIContext_FilterCriteriaChanged(ByVal sender As Object, ByVal e As FilterCiteriaChangedEventArgs) Handles filteringUIContext.FilterCriteriaChanged + _FilterUI_CriteriaChanged += 1 + + Dim newFilter = "" + + If e.FilterCriteria IsNot Nothing Then + newFilter = Generate_Filter_String(e.FilterCriteria) + End If + + Me.gv_Emu_Games.ActiveFilterString = newFilter + + _FilterUI_CriteriaChanged -= 1 + End Sub + + Private Sub gv_Emu_Games_ColumnFilterChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gv_Emu_Games.ColumnFilterChanged + If _FilterUI_CriteriaChanged > 0 Then + Return + End If + If gv_Emu_Games.ActiveFilter.IsEmpty Then + filteringUIContext.ClearFilterCriteria() + End If + End Sub + + Private Sub gv_Emu_Games_FilterEditorCreated(sender As Object, e As FilterControlEventArgs) Handles gv_Emu_Games.FilterEditorCreated + Dim al_RemoveColumns As New ArrayList + + For Each col As DevExpress.XtraGrid.FilterEditor.GridFilterColumn In e.FilterControl.FilterColumns + If col.ColumnCaption.Contains("«") Then + al_RemoveColumns.Add(col) + End If + Next + + For Each col As DevExpress.XtraGrid.FilterEditor.GridFilterColumn In al_RemoveColumns + e.FilterControl.FilterColumns.Remove(col) + Next + End Sub + + Private Sub bbi_Export_XLSX_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Export_XLSX.ItemClick + Dim filename As String = MKNetLib.cls_MKFileSupport.SaveFile("Export to Excel", "Excel Files (*.xlsx)|*.xlsx", 0, "xlsx") + If filename <> "" Then + Me.gv_Emu_Games.ExportToXlsx(filename) + End If + End Sub + + Private Sub bbi_Export_CSV_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Export_CSV.ItemClick + Dim filename As String = MKNetLib.cls_MKFileSupport.SaveFile("Export to CSV", "CSV Files (*.csv)|*.csv", 0, "csv") + If filename <> "" Then + Me.gv_Emu_Games.ExportToCsv(filename) + End If + End Sub + + Private Sub gv_Emu_Games_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles gv_Emu_Games.FocusedRowChanged + If TC.NZ(gv_Emu_Games.GetIncrementalText(), "") <> "" Then + Me.Select_BindingSource_Row_on_gv_Emu_Games() + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Settings.Designer.vb b/Metropolis_Launcher/Pages/ucr_Settings.Designer.vb new file mode 100644 index 0000000..c2b7888 --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Settings.Designer.vb @@ -0,0 +1,1759 @@ + _ +Partial Class ucr_Settings + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem15 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucr_Settings)) + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem17 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip19 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem19 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem20 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip21 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem21 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem23 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip26 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip28 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip29 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip30 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem31 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem36 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem37 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem37 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem38 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem38 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem39 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem40 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip41 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem41 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem41 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem42 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem43 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem44 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem45 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem46 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem46 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip47 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem47 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem47 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip48 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem48 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem48 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip49 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem49 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem49 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Launch_Counter_Value = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Launch_Counter = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Backup_Retention_Backups = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_Backup_Retention = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_Backup_Retention_keep = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Backup_Retention = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Backup_Frequency_Launches = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Backup_every = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_Backup_Frequency = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_Backup = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_J2K_Config = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_J2K = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_J2K = New System.Data.DataSet() + Me.tbl_Config = New System.Data.DataTable() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + Me.chb_StatsEnable = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.gb_Internal = New MKNetDXLib.ctl_MKDXGroupBox() + Me.lbl_MobyImport = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Moby_Platforms = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Moby_Platforms = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() + Me.btn_MobyImport_with_Groups = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_MobyImport = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Moby_Update = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_RombaseCheck = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_ReSync = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Movie_Manager = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Movie_Manager = New MKNetDXLib.ctl_MKDXLabel() + Me.font_Grid = New MKNetDXLib.ctl_MKDXFontEdit() + Me.lbl_Font = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_FontSize = New MKNetDXLib.ctl_MKDXLabel() + Me.spin_FontSize = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.btn_J2K = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Backup_Dir = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_DOSBox_Working_Directory = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Screenshot_Dir = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Temp_Dir = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Dir_Extras = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_RomBase_Manager = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_Backup_Dir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_DOSBox_Working_Directory = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Screenshot_Dir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Temp_Dir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Dir_Extras = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_StatsMinutes = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Templates = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Rombase_Manager = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_RefreshCaches = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Mame_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_DOSBox_Templates = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_StatsMinTime = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Refresh_Caches = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Mame_Config = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Stats = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Password = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Users = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_J2K_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_J2K = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Backup_Directory = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_DOSBox_Working_Directory = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Screnshots_Dir = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Dir_Temp = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Dir_Extras = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Rom_Manager = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Password = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Users = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Platform_Settings = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_EmulatorSettings = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.spn_StatsMinTime = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.cmb_Skin = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Skin = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_Skin = New System.Data.DataSet() + Me.tbl_Skin = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() + Me.lbl_Rom_Manager = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Platform_Settings = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_EmulatorSettings = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Skin = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_J2K = New MKNetDXLib.ctl_MKDXButtonEdit() + Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() + Me.Ctl_MKDXPanel2 = New MKNetDXLib.ctl_MKDXPanel() + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Left.SuspendLayout() + CType(Me.spn_Backup_Retention.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Backup_Frequency.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_StatsEnable.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Internal, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Internal.SuspendLayout() + CType(Me.cmb_Moby_Platforms.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.font_Grid.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spin_FontSize.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Backup_Dir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_DOSBox_Working_Directory.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Screenshot_Dir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Temp_Dir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Dir_Extras.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_StatsMinTime.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Skin.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Skin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_Skin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tbl_Skin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_J2K.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Ctl_MKDXPanel2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pnl_Left + ' + Me.pnl_Left.Controls.Add(Me.lbl_Launch_Counter_Value) + Me.pnl_Left.Controls.Add(Me.lbl_Launch_Counter) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_Retention_Backups) + Me.pnl_Left.Controls.Add(Me.spn_Backup_Retention) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_Retention_keep) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_Retention) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_Frequency_Launches) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_every) + Me.pnl_Left.Controls.Add(Me.spn_Backup_Frequency) + Me.pnl_Left.Controls.Add(Me.lbl_Backup) + Me.pnl_Left.Controls.Add(Me.cmb_J2K_Config) + Me.pnl_Left.Controls.Add(Me.chb_StatsEnable) + Me.pnl_Left.Controls.Add(Me.gb_Internal) + Me.pnl_Left.Controls.Add(Me.btn_J2K) + Me.pnl_Left.Controls.Add(Me.btn_Backup_Dir) + Me.pnl_Left.Controls.Add(Me.btn_DOSBox_Working_Directory) + Me.pnl_Left.Controls.Add(Me.btn_Screenshot_Dir) + Me.pnl_Left.Controls.Add(Me.btn_Temp_Dir) + Me.pnl_Left.Controls.Add(Me.btn_Dir_Extras) + Me.pnl_Left.Controls.Add(Me.btn_RomBase_Manager) + Me.pnl_Left.Controls.Add(Me.txb_Backup_Dir) + Me.pnl_Left.Controls.Add(Me.txb_DOSBox_Working_Directory) + Me.pnl_Left.Controls.Add(Me.txb_Screenshot_Dir) + Me.pnl_Left.Controls.Add(Me.txb_Temp_Dir) + Me.pnl_Left.Controls.Add(Me.txb_Dir_Extras) + Me.pnl_Left.Controls.Add(Me.lbl_StatsMinutes) + Me.pnl_Left.Controls.Add(Me.lbl_DOSBox_Templates) + Me.pnl_Left.Controls.Add(Me.lbl_Rombase_Manager) + Me.pnl_Left.Controls.Add(Me.lbl_RefreshCaches) + Me.pnl_Left.Controls.Add(Me.lbl_Mame_Config) + Me.pnl_Left.Controls.Add(Me.btn_DOSBox_Templates) + Me.pnl_Left.Controls.Add(Me.lbl_StatsMinTime) + Me.pnl_Left.Controls.Add(Me.btn_Refresh_Caches) + Me.pnl_Left.Controls.Add(Me.btn_Mame_Config) + Me.pnl_Left.Controls.Add(Me.lbl_Stats) + Me.pnl_Left.Controls.Add(Me.lbl_Password) + Me.pnl_Left.Controls.Add(Me.lbl_Users) + Me.pnl_Left.Controls.Add(Me.lbl_J2K_Config) + Me.pnl_Left.Controls.Add(Me.lbl_J2K) + Me.pnl_Left.Controls.Add(Me.lbl_Backup_Directory) + Me.pnl_Left.Controls.Add(Me.lbl_DOSBox_Working_Directory) + Me.pnl_Left.Controls.Add(Me.lbl_Screnshots_Dir) + Me.pnl_Left.Controls.Add(Me.lbl_Dir_Temp) + Me.pnl_Left.Controls.Add(Me.lbl_Dir_Extras) + Me.pnl_Left.Controls.Add(Me.btn_Rom_Manager) + Me.pnl_Left.Controls.Add(Me.btn_Password) + Me.pnl_Left.Controls.Add(Me.btn_Users) + Me.pnl_Left.Controls.Add(Me.btn_Platform_Settings) + Me.pnl_Left.Controls.Add(Me.btn_EmulatorSettings) + Me.pnl_Left.Controls.Add(Me.spn_StatsMinTime) + Me.pnl_Left.Controls.Add(Me.cmb_Skin) + Me.pnl_Left.Controls.Add(Me.lbl_Rom_Manager) + Me.pnl_Left.Controls.Add(Me.lbl_Platform_Settings) + Me.pnl_Left.Controls.Add(Me.lbl_EmulatorSettings) + Me.pnl_Left.Controls.Add(Me.lbl_Skin) + Me.pnl_Left.Controls.Add(Me.txb_J2K) + Me.pnl_Left.Dock = System.Windows.Forms.DockStyle.Left + Me.pnl_Left.Location = New System.Drawing.Point(0, 0) + Me.pnl_Left.MinimumSize = New System.Drawing.Size(396, 600) + Me.pnl_Left.Name = "pnl_Left" + Me.pnl_Left.Size = New System.Drawing.Size(396, 600) + Me.pnl_Left.TabIndex = 0 + ' + 'lbl_Launch_Counter_Value + ' + Me.lbl_Launch_Counter_Value.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Launch_Counter_Value.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Launch_Counter_Value.Location = New System.Drawing.Point(358, 417) + Me.lbl_Launch_Counter_Value.MKBoundControl1 = Nothing + Me.lbl_Launch_Counter_Value.MKBoundControl2 = Nothing + Me.lbl_Launch_Counter_Value.MKBoundControl3 = Nothing + Me.lbl_Launch_Counter_Value.MKBoundControl4 = Nothing + Me.lbl_Launch_Counter_Value.MKBoundControl5 = Nothing + Me.lbl_Launch_Counter_Value.Name = "lbl_Launch_Counter_Value" + Me.lbl_Launch_Counter_Value.Size = New System.Drawing.Size(34, 20) + ToolTipTitleItem1.Text = "Launch Counter" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "the current launch count" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_Launch_Counter_Value.SuperTip = SuperToolTip1 + Me.lbl_Launch_Counter_Value.TabIndex = 37 + ' + 'lbl_Launch_Counter + ' + Me.lbl_Launch_Counter.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Launch_Counter.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Launch_Counter.Location = New System.Drawing.Point(269, 417) + Me.lbl_Launch_Counter.MKBoundControl1 = Nothing + Me.lbl_Launch_Counter.MKBoundControl2 = Nothing + Me.lbl_Launch_Counter.MKBoundControl3 = Nothing + Me.lbl_Launch_Counter.MKBoundControl4 = Nothing + Me.lbl_Launch_Counter.MKBoundControl5 = Nothing + Me.lbl_Launch_Counter.Name = "lbl_Launch_Counter" + Me.lbl_Launch_Counter.Size = New System.Drawing.Size(86, 20) + ToolTipTitleItem2.Text = "Launch Counter" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "The current launch count" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.lbl_Launch_Counter.SuperTip = SuperToolTip2 + Me.lbl_Launch_Counter.TabIndex = 36 + Me.lbl_Launch_Counter.Text = "Launch Counter:" + ' + 'lbl_Backup_Retention_Backups + ' + Me.lbl_Backup_Retention_Backups.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Backup_Retention_Backups.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_Retention_Backups.Location = New System.Drawing.Point(218, 440) + Me.lbl_Backup_Retention_Backups.MKBoundControl1 = Nothing + Me.lbl_Backup_Retention_Backups.MKBoundControl2 = Nothing + Me.lbl_Backup_Retention_Backups.MKBoundControl3 = Nothing + Me.lbl_Backup_Retention_Backups.MKBoundControl4 = Nothing + Me.lbl_Backup_Retention_Backups.MKBoundControl5 = Nothing + Me.lbl_Backup_Retention_Backups.Name = "lbl_Backup_Retention_Backups" + Me.lbl_Backup_Retention_Backups.Size = New System.Drawing.Size(46, 20) + ToolTipTitleItem3.Text = "Backup Retention" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.lbl_Backup_Retention_Backups.SuperTip = SuperToolTip3 + Me.lbl_Backup_Retention_Backups.TabIndex = 35 + Me.lbl_Backup_Retention_Backups.Text = "backups" + ' + 'spn_Backup_Retention + ' + Me.spn_Backup_Retention.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Backup_Retention.Location = New System.Drawing.Point(175, 440) + Me.spn_Backup_Retention.MKBoundLabel = Nothing + Me.spn_Backup_Retention.MKEditValue_Compare = Nothing + Me.spn_Backup_Retention.Name = "spn_Backup_Retention" + Me.spn_Backup_Retention.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Backup_Retention.Properties.Mask.EditMask = "##;" + Me.spn_Backup_Retention.Properties.MaxValue = New Decimal(New Integer() {999999, 0, 0, 0}) + Me.spn_Backup_Retention.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_Backup_Retention.Size = New System.Drawing.Size(40, 20) + ToolTipTitleItem4.Text = "Backup Retention" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.spn_Backup_Retention.SuperTip = SuperToolTip4 + Me.spn_Backup_Retention.TabIndex = 34 + ' + 'lbl_Backup_Retention_keep + ' + Me.lbl_Backup_Retention_keep.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Backup_Retention_keep.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_Retention_keep.Location = New System.Drawing.Point(141, 440) + Me.lbl_Backup_Retention_keep.MKBoundControl1 = Nothing + Me.lbl_Backup_Retention_keep.MKBoundControl2 = Nothing + Me.lbl_Backup_Retention_keep.MKBoundControl3 = Nothing + Me.lbl_Backup_Retention_keep.MKBoundControl4 = Nothing + Me.lbl_Backup_Retention_keep.MKBoundControl5 = Nothing + Me.lbl_Backup_Retention_keep.Name = "lbl_Backup_Retention_keep" + Me.lbl_Backup_Retention_keep.Size = New System.Drawing.Size(30, 20) + ToolTipTitleItem5.Text = "Backup Retention" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.lbl_Backup_Retention_keep.SuperTip = SuperToolTip5 + Me.lbl_Backup_Retention_keep.TabIndex = 33 + Me.lbl_Backup_Retention_keep.Text = "keep" + ' + 'lbl_Backup_Retention + ' + Me.lbl_Backup_Retention.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Backup_Retention.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_Retention.Location = New System.Drawing.Point(4, 440) + Me.lbl_Backup_Retention.MKBoundControl1 = Nothing + Me.lbl_Backup_Retention.MKBoundControl2 = Nothing + Me.lbl_Backup_Retention.MKBoundControl3 = Nothing + Me.lbl_Backup_Retention.MKBoundControl4 = Nothing + Me.lbl_Backup_Retention.MKBoundControl5 = Nothing + Me.lbl_Backup_Retention.Name = "lbl_Backup_Retention" + Me.lbl_Backup_Retention.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem6.Text = "Backup Retention" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.lbl_Backup_Retention.SuperTip = SuperToolTip6 + Me.lbl_Backup_Retention.TabIndex = 32 + Me.lbl_Backup_Retention.Text = "Backup Retention:" + ' + 'lbl_Backup_Frequency_Launches + ' + Me.lbl_Backup_Frequency_Launches.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Backup_Frequency_Launches.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_Frequency_Launches.Location = New System.Drawing.Point(218, 417) + Me.lbl_Backup_Frequency_Launches.MKBoundControl1 = Nothing + Me.lbl_Backup_Frequency_Launches.MKBoundControl2 = Nothing + Me.lbl_Backup_Frequency_Launches.MKBoundControl3 = Nothing + Me.lbl_Backup_Frequency_Launches.MKBoundControl4 = Nothing + Me.lbl_Backup_Frequency_Launches.MKBoundControl5 = Nothing + Me.lbl_Backup_Frequency_Launches.Name = "lbl_Backup_Frequency_Launches" + Me.lbl_Backup_Frequency_Launches.Size = New System.Drawing.Size(46, 20) + ToolTipTitleItem7.Text = "Backup Frequency" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Do a Backup every X launches." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 0 to never backup." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 1 to always backup" & + " (every launch)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use any number higher than 1 to backup less often." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.lbl_Backup_Frequency_Launches.SuperTip = SuperToolTip7 + Me.lbl_Backup_Frequency_Launches.TabIndex = 31 + Me.lbl_Backup_Frequency_Launches.Text = "launches" + ' + 'lbl_Backup_every + ' + Me.lbl_Backup_every.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Backup_every.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_every.Location = New System.Drawing.Point(140, 417) + Me.lbl_Backup_every.MKBoundControl1 = Nothing + Me.lbl_Backup_every.MKBoundControl2 = Nothing + Me.lbl_Backup_every.MKBoundControl3 = Nothing + Me.lbl_Backup_every.MKBoundControl4 = Nothing + Me.lbl_Backup_every.MKBoundControl5 = Nothing + Me.lbl_Backup_every.Name = "lbl_Backup_every" + Me.lbl_Backup_every.Size = New System.Drawing.Size(31, 20) + ToolTipTitleItem8.Text = "Backup Frequency" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Do a Backup every X launches." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 0 to never backup." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 1 to always backup" & + " (every launch)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use any number higher than 1 to backup less often." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.lbl_Backup_every.SuperTip = SuperToolTip8 + Me.lbl_Backup_every.TabIndex = 30 + Me.lbl_Backup_every.Text = "every" + ' + 'spn_Backup_Frequency + ' + Me.spn_Backup_Frequency.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Backup_Frequency.Location = New System.Drawing.Point(175, 417) + Me.spn_Backup_Frequency.MKBoundLabel = Nothing + Me.spn_Backup_Frequency.MKEditValue_Compare = Nothing + Me.spn_Backup_Frequency.Name = "spn_Backup_Frequency" + Me.spn_Backup_Frequency.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_Backup_Frequency.Properties.Mask.EditMask = "##;" + Me.spn_Backup_Frequency.Properties.MaxValue = New Decimal(New Integer() {99, 0, 0, 0}) + Me.spn_Backup_Frequency.Size = New System.Drawing.Size(40, 20) + ToolTipTitleItem9.Text = "Backup Frequency" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Do a Backup every X launches." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 0 to never backup." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 1 to always backup" & + " (every launch)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use any number higher than 1 to backup less often." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.spn_Backup_Frequency.SuperTip = SuperToolTip9 + Me.spn_Backup_Frequency.TabIndex = 29 + ' + 'lbl_Backup + ' + Me.lbl_Backup.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Backup.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup.Location = New System.Drawing.Point(4, 417) + Me.lbl_Backup.MKBoundControl1 = Nothing + Me.lbl_Backup.MKBoundControl2 = Nothing + Me.lbl_Backup.MKBoundControl3 = Nothing + Me.lbl_Backup.MKBoundControl4 = Nothing + Me.lbl_Backup.MKBoundControl5 = Nothing + Me.lbl_Backup.Name = "lbl_Backup" + Me.lbl_Backup.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem10.Text = "Backup Frequency" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Do a Backup every X launches." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 0 to never backup." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use 1 to always backup" & + " (every launch)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use any number higher than 1 to backup less often." + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem10) + Me.lbl_Backup.SuperTip = SuperToolTip10 + Me.lbl_Backup.TabIndex = 25 + Me.lbl_Backup.Text = "Backup Frequency:" + ' + 'cmb_J2K_Config + ' + Me.cmb_J2K_Config.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_J2K_Config.Location = New System.Drawing.Point(141, 166) + Me.cmb_J2K_Config.MKBoundLabel = Nothing + Me.cmb_J2K_Config.MKEditValue_Compare = Nothing + Me.cmb_J2K_Config.Name = "cmb_J2K_Config" + Me.cmb_J2K_Config.Properties.AllowFocused = False + Me.cmb_J2K_Config.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_J2K_Config.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Config", "id_Config", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ConfigName", "Config Name", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_J2K_Config.Properties.DataSource = Me.BS_J2K + Me.cmb_J2K_Config.Properties.DisplayMember = "ConfigName" + Me.cmb_J2K_Config.Properties.NullText = "" + Me.cmb_J2K_Config.Properties.ShowFooter = False + Me.cmb_J2K_Config.Properties.ShowHeader = False + Me.cmb_J2K_Config.Properties.ValueMember = "id_Config" + Me.cmb_J2K_Config.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem11.Text = "Default J2K Config" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "J2K runs all the time, the configuration you select here will be used when no gam" & + "e or emulator is running." + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem11) + Me.cmb_J2K_Config.SuperTip = SuperToolTip11 + Me.cmb_J2K_Config.TabIndex = 11 + ' + 'BS_J2K + ' + Me.BS_J2K.DataMember = "tbl_Config" + Me.BS_J2K.DataSource = Me.DS_J2K + ' + 'DS_J2K + ' + Me.DS_J2K.DataSetName = "DS" + Me.DS_J2K.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Config}) + ' + 'tbl_Config + ' + Me.tbl_Config.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn5, Me.DataColumn6}) + Me.tbl_Config.TableName = "tbl_Config" + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "id_Config" + Me.DataColumn5.DataType = GetType(Integer) + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "ConfigName" + ' + 'chb_StatsEnable + ' + Me.chb_StatsEnable.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_StatsEnable.Location = New System.Drawing.Point(112, 234) + Me.chb_StatsEnable.MKBoundLabel = Nothing + Me.chb_StatsEnable.MKEditValue_Compare = Nothing + Me.chb_StatsEnable.Name = "chb_StatsEnable" + Me.chb_StatsEnable.Properties.Caption = "Enabled" + Me.chb_StatsEnable.Size = New System.Drawing.Size(63, 19) + ToolTipTitleItem12.Text = "Statistics" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & + "when you played a certain game." + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem12) + Me.chb_StatsEnable.SuperTip = SuperToolTip12 + Me.chb_StatsEnable.TabIndex = 14 + ' + 'gb_Internal + ' + Me.gb_Internal.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.gb_Internal.Controls.Add(Me.lbl_MobyImport) + Me.gb_Internal.Controls.Add(Me.cmb_Moby_Platforms) + Me.gb_Internal.Controls.Add(Me.btn_MobyImport_with_Groups) + Me.gb_Internal.Controls.Add(Me.btn_MobyImport) + Me.gb_Internal.Controls.Add(Me.btn_Moby_Update) + Me.gb_Internal.Controls.Add(Me.btn_RombaseCheck) + Me.gb_Internal.Controls.Add(Me.btn_ReSync) + Me.gb_Internal.Controls.Add(Me.btn_Movie_Manager) + Me.gb_Internal.Controls.Add(Me.lbl_Movie_Manager) + Me.gb_Internal.Controls.Add(Me.font_Grid) + Me.gb_Internal.Controls.Add(Me.lbl_Font) + Me.gb_Internal.Controls.Add(Me.lbl_FontSize) + Me.gb_Internal.Controls.Add(Me.spin_FontSize) + Me.gb_Internal.Location = New System.Drawing.Point(4, 462) + Me.gb_Internal.Name = "gb_Internal" + Me.gb_Internal.Size = New System.Drawing.Size(389, 138) + Me.gb_Internal.TabIndex = 24 + Me.gb_Internal.Text = "Internal" + Me.gb_Internal.Visible = False + ' + 'lbl_MobyImport + ' + Me.lbl_MobyImport.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_MobyImport.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_MobyImport.Location = New System.Drawing.Point(5, 22) + Me.lbl_MobyImport.MKBoundControl1 = Nothing + Me.lbl_MobyImport.MKBoundControl2 = Nothing + Me.lbl_MobyImport.MKBoundControl3 = Nothing + Me.lbl_MobyImport.MKBoundControl4 = Nothing + Me.lbl_MobyImport.MKBoundControl5 = Nothing + Me.lbl_MobyImport.Name = "lbl_MobyImport" + Me.lbl_MobyImport.Size = New System.Drawing.Size(105, 20) + Me.lbl_MobyImport.TabIndex = 0 + Me.lbl_MobyImport.Text = "Moby Import:" + ' + 'cmb_Moby_Platforms + ' + Me.cmb_Moby_Platforms.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Moby_Platforms.Location = New System.Drawing.Point(113, 22) + Me.cmb_Moby_Platforms.MKBoundLabel = Nothing + Me.cmb_Moby_Platforms.MKEditValue_Compare = Nothing + Me.cmb_Moby_Platforms.Name = "cmb_Moby_Platforms" + Me.cmb_Moby_Platforms.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Moby_Platforms.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Moby_Platforms", "id_Moby_Platforms", 114, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 37, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("URLPart", "URL Part", 52, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Display_Name", "Display_Name", 77, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Moby_Platforms.Properties.DataSource = Me.BS_Moby_Platforms + Me.cmb_Moby_Platforms.Properties.DisplayMember = "Display_Name" + Me.cmb_Moby_Platforms.Properties.NullText = "please choose..." + Me.cmb_Moby_Platforms.Properties.ShowHeader = False + Me.cmb_Moby_Platforms.Properties.ValueMember = "id_Moby_Platforms" + Me.cmb_Moby_Platforms.Size = New System.Drawing.Size(167, 20) + Me.cmb_Moby_Platforms.TabIndex = 1 + ' + 'BS_Moby_Platforms + ' + Me.BS_Moby_Platforms.DataMember = "tbl_Moby_Platforms" + Me.BS_Moby_Platforms.DataSource = Me.DS_MobyDB + ' + 'DS_MobyDB + ' + Me.DS_MobyDB.DataSetName = "DS_MobyDB" + Me.DS_MobyDB.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'btn_MobyImport_with_Groups + ' + Me.btn_MobyImport_with_Groups.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_MobyImport_with_Groups.Location = New System.Drawing.Point(336, 22) + Me.btn_MobyImport_with_Groups.Name = "btn_MobyImport_with_Groups" + Me.btn_MobyImport_with_Groups.Size = New System.Drawing.Size(49, 20) + Me.btn_MobyImport_with_Groups.TabIndex = 3 + Me.btn_MobyImport_with_Groups.Text = "+ grps" + ' + 'btn_MobyImport + ' + Me.btn_MobyImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_MobyImport.Location = New System.Drawing.Point(283, 22) + Me.btn_MobyImport.Name = "btn_MobyImport" + Me.btn_MobyImport.Size = New System.Drawing.Size(50, 20) + Me.btn_MobyImport.TabIndex = 2 + Me.btn_MobyImport.Text = "Run" + ' + 'btn_Moby_Update + ' + Me.btn_Moby_Update.Location = New System.Drawing.Point(33, 45) + Me.btn_Moby_Update.Name = "btn_Moby_Update" + Me.btn_Moby_Update.Size = New System.Drawing.Size(140, 20) + Me.btn_Moby_Update.TabIndex = 4 + Me.btn_Moby_Update.Text = "Moby Update" + ' + 'btn_RombaseCheck + ' + Me.btn_RombaseCheck.Location = New System.Drawing.Point(33, 115) + Me.btn_RombaseCheck.Name = "btn_RombaseCheck" + Me.btn_RombaseCheck.Size = New System.Drawing.Size(103, 20) + Me.btn_RombaseCheck.TabIndex = 10 + Me.btn_RombaseCheck.Text = "Rombase Check" + ' + 'btn_ReSync + ' + Me.btn_ReSync.Location = New System.Drawing.Point(247, 45) + Me.btn_ReSync.Name = "btn_ReSync" + Me.btn_ReSync.Size = New System.Drawing.Size(140, 20) + Me.btn_ReSync.TabIndex = 7 + Me.btn_ReSync.Text = "Re-Sync to Rombase" + ' + 'btn_Movie_Manager + ' + Me.btn_Movie_Manager.Location = New System.Drawing.Point(285, 116) + Me.btn_Movie_Manager.Name = "btn_Movie_Manager" + Me.btn_Movie_Manager.Size = New System.Drawing.Size(102, 20) + Me.btn_Movie_Manager.TabIndex = 0 + Me.btn_Movie_Manager.Text = "Open" + ' + 'lbl_Movie_Manager + ' + Me.lbl_Movie_Manager.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Movie_Manager.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Movie_Manager.Location = New System.Drawing.Point(197, 116) + Me.lbl_Movie_Manager.MKBoundControl1 = Nothing + Me.lbl_Movie_Manager.MKBoundControl2 = Nothing + Me.lbl_Movie_Manager.MKBoundControl3 = Nothing + Me.lbl_Movie_Manager.MKBoundControl4 = Nothing + Me.lbl_Movie_Manager.MKBoundControl5 = Nothing + Me.lbl_Movie_Manager.Name = "lbl_Movie_Manager" + Me.lbl_Movie_Manager.Size = New System.Drawing.Size(85, 20) + Me.lbl_Movie_Manager.TabIndex = 8 + Me.lbl_Movie_Manager.Text = "Movie Manager:" + ' + 'font_Grid + ' + Me.font_Grid.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.font_Grid.Location = New System.Drawing.Point(135, 68) + Me.font_Grid.Name = "font_Grid" + Me.font_Grid.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.font_Grid.Size = New System.Drawing.Size(254, 20) + Me.font_Grid.TabIndex = 8 + ' + 'lbl_Font + ' + Me.lbl_Font.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Font.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Font.Location = New System.Drawing.Point(2, 68) + Me.lbl_Font.MKBoundControl1 = Nothing + Me.lbl_Font.MKBoundControl2 = Nothing + Me.lbl_Font.MKBoundControl3 = Nothing + Me.lbl_Font.MKBoundControl4 = Nothing + Me.lbl_Font.MKBoundControl5 = Nothing + Me.lbl_Font.Name = "lbl_Font" + Me.lbl_Font.Size = New System.Drawing.Size(129, 20) + Me.lbl_Font.TabIndex = 0 + Me.lbl_Font.Text = "Browser Font:" + ' + 'lbl_FontSize + ' + Me.lbl_FontSize.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_FontSize.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_FontSize.Location = New System.Drawing.Point(2, 91) + Me.lbl_FontSize.MKBoundControl1 = Nothing + Me.lbl_FontSize.MKBoundControl2 = Nothing + Me.lbl_FontSize.MKBoundControl3 = Nothing + Me.lbl_FontSize.MKBoundControl4 = Nothing + Me.lbl_FontSize.MKBoundControl5 = Nothing + Me.lbl_FontSize.Name = "lbl_FontSize" + Me.lbl_FontSize.Size = New System.Drawing.Size(129, 20) + Me.lbl_FontSize.TabIndex = 0 + Me.lbl_FontSize.Text = "Browser Font Size:" + ' + 'spin_FontSize + ' + Me.spin_FontSize.EditValue = New Decimal(New Integer() {8, 0, 0, 0}) + Me.spin_FontSize.Location = New System.Drawing.Point(135, 91) + Me.spin_FontSize.MKBoundLabel = Nothing + Me.spin_FontSize.MKEditValue_Compare = Nothing + Me.spin_FontSize.Name = "spin_FontSize" + Me.spin_FontSize.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spin_FontSize.Properties.MaxValue = New Decimal(New Integer() {100, 0, 0, 0}) + Me.spin_FontSize.Properties.MinValue = New Decimal(New Integer() {8, 0, 0, 0}) + Me.spin_FontSize.Size = New System.Drawing.Size(50, 20) + Me.spin_FontSize.TabIndex = 9 + ' + 'btn_J2K + ' + Me.btn_J2K.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_J2K.Location = New System.Drawing.Point(365, 143) + Me.btn_J2K.Name = "btn_J2K" + Me.btn_J2K.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem13.Text = "J2K Installation" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + "//www.emulation-evolved.net" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem13) + Me.btn_J2K.SuperTip = SuperToolTip13 + Me.btn_J2K.TabIndex = 10 + Me.btn_J2K.Text = "..." + ' + 'btn_Backup_Dir + ' + Me.btn_Backup_Dir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Backup_Dir.Location = New System.Drawing.Point(365, 97) + Me.btn_Backup_Dir.Name = "btn_Backup_Dir" + Me.btn_Backup_Dir.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem14.Text = "Backup Directory" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "This directory is used for backups of your databases." + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem14) + Me.btn_Backup_Dir.SuperTip = SuperToolTip14 + Me.btn_Backup_Dir.TabIndex = 8 + Me.btn_Backup_Dir.Text = "..." + ' + 'btn_DOSBox_Working_Directory + ' + Me.btn_DOSBox_Working_Directory.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_DOSBox_Working_Directory.Location = New System.Drawing.Point(365, 120) + Me.btn_DOSBox_Working_Directory.Name = "btn_DOSBox_Working_Directory" + Me.btn_DOSBox_Working_Directory.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem15.Text = "DOSBox Working Directory" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = resources.GetString("ToolTipItem15.Text") + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem15) + Me.btn_DOSBox_Working_Directory.SuperTip = SuperToolTip15 + Me.btn_DOSBox_Working_Directory.TabIndex = 8 + Me.btn_DOSBox_Working_Directory.Text = "..." + ' + 'btn_Screenshot_Dir + ' + Me.btn_Screenshot_Dir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Screenshot_Dir.Location = New System.Drawing.Point(365, 74) + Me.btn_Screenshot_Dir.Name = "btn_Screenshot_Dir" + Me.btn_Screenshot_Dir.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem16.Text = "Screenshots Directory" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + "certain directory, put that location in here. FRAPS is a good candidate for this" & + "." + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem16) + Me.btn_Screenshot_Dir.SuperTip = SuperToolTip16 + Me.btn_Screenshot_Dir.TabIndex = 6 + Me.btn_Screenshot_Dir.Text = "..." + ' + 'btn_Temp_Dir + ' + Me.btn_Temp_Dir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Temp_Dir.Location = New System.Drawing.Point(365, 27) + Me.btn_Temp_Dir.Name = "btn_Temp_Dir" + Me.btn_Temp_Dir.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem17.Text = "Temp Directory" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = resources.GetString("ToolTipItem17.Text") + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem17) + Me.btn_Temp_Dir.SuperTip = SuperToolTip17 + Me.btn_Temp_Dir.TabIndex = 2 + Me.btn_Temp_Dir.Text = "..." + ' + 'btn_Dir_Extras + ' + Me.btn_Dir_Extras.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Dir_Extras.Location = New System.Drawing.Point(365, 50) + Me.btn_Dir_Extras.Name = "btn_Dir_Extras" + Me.btn_Dir_Extras.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem18.Text = "Extras Directory" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + "are used by Metropolis Launcher." + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem18) + Me.btn_Dir_Extras.SuperTip = SuperToolTip18 + Me.btn_Dir_Extras.TabIndex = 4 + Me.btn_Dir_Extras.Text = "..." + ' + 'btn_RomBase_Manager + ' + Me.btn_RomBase_Manager.Location = New System.Drawing.Point(140, 394) + Me.btn_RomBase_Manager.Name = "btn_RomBase_Manager" + Me.btn_RomBase_Manager.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem19.Text = "RomBase Manager" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "This is NOT the Rom Manager!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The RomBase Manager is a Database Tool, use it if" & + " you know what you're doing." + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem19) + Me.btn_RomBase_Manager.SuperTip = SuperToolTip19 + Me.btn_RomBase_Manager.TabIndex = 5 + Me.btn_RomBase_Manager.Text = "Open" + ' + 'txb_Backup_Dir + ' + Me.txb_Backup_Dir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Backup_Dir.Location = New System.Drawing.Point(141, 97) + Me.txb_Backup_Dir.MKBoundLabel = Nothing + Me.txb_Backup_Dir.MKEditValue_Compare = Nothing + Me.txb_Backup_Dir.Name = "txb_Backup_Dir" + Me.txb_Backup_Dir.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem20.Text = "Backup Directory" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "This directory is used for backups of your databases." + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem20) + Me.txb_Backup_Dir.SuperTip = SuperToolTip20 + Me.txb_Backup_Dir.TabIndex = 7 + ' + 'txb_DOSBox_Working_Directory + ' + Me.txb_DOSBox_Working_Directory.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_DOSBox_Working_Directory.Location = New System.Drawing.Point(141, 120) + Me.txb_DOSBox_Working_Directory.MKBoundLabel = Nothing + Me.txb_DOSBox_Working_Directory.MKEditValue_Compare = Nothing + Me.txb_DOSBox_Working_Directory.Name = "txb_DOSBox_Working_Directory" + Me.txb_DOSBox_Working_Directory.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem21.Text = "DOSBox Working Directory" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.Text = resources.GetString("ToolTipItem21.Text") + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem21) + Me.txb_DOSBox_Working_Directory.SuperTip = SuperToolTip21 + Me.txb_DOSBox_Working_Directory.TabIndex = 7 + ' + 'txb_Screenshot_Dir + ' + Me.txb_Screenshot_Dir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Screenshot_Dir.Location = New System.Drawing.Point(141, 74) + Me.txb_Screenshot_Dir.MKBoundLabel = Nothing + Me.txb_Screenshot_Dir.MKEditValue_Compare = Nothing + Me.txb_Screenshot_Dir.Name = "txb_Screenshot_Dir" + Me.txb_Screenshot_Dir.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem22.Text = "Screenshots Directory" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + "certain directory, put that location in here. FRAPS, RivaTuner and Afterburner a" & + "re good candidates for this." + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.txb_Screenshot_Dir.SuperTip = SuperToolTip22 + Me.txb_Screenshot_Dir.TabIndex = 5 + ' + 'txb_Temp_Dir + ' + Me.txb_Temp_Dir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Temp_Dir.Location = New System.Drawing.Point(141, 27) + Me.txb_Temp_Dir.MKBoundLabel = Nothing + Me.txb_Temp_Dir.MKEditValue_Compare = Nothing + Me.txb_Temp_Dir.Name = "txb_Temp_Dir" + Me.txb_Temp_Dir.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem23.Text = "Temp Directory" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = resources.GetString("ToolTipItem23.Text") + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.txb_Temp_Dir.SuperTip = SuperToolTip23 + Me.txb_Temp_Dir.TabIndex = 1 + ' + 'txb_Dir_Extras + ' + Me.txb_Dir_Extras.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Dir_Extras.Location = New System.Drawing.Point(141, 50) + Me.txb_Dir_Extras.MKBoundLabel = Nothing + Me.txb_Dir_Extras.MKEditValue_Compare = Nothing + Me.txb_Dir_Extras.Name = "txb_Dir_Extras" + Me.txb_Dir_Extras.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem24.Text = "Extras Directory" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + "are used by Metropolis Launcher." + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.txb_Dir_Extras.SuperTip = SuperToolTip24 + Me.txb_Dir_Extras.TabIndex = 3 + ' + 'lbl_StatsMinutes + ' + Me.lbl_StatsMinutes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_StatsMinutes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_StatsMinutes.Location = New System.Drawing.Point(355, 234) + Me.lbl_StatsMinutes.MKBoundControl1 = Nothing + Me.lbl_StatsMinutes.MKBoundControl2 = Nothing + Me.lbl_StatsMinutes.MKBoundControl3 = Nothing + Me.lbl_StatsMinutes.MKBoundControl4 = Nothing + Me.lbl_StatsMinutes.MKBoundControl5 = Nothing + Me.lbl_StatsMinutes.Name = "lbl_StatsMinutes" + Me.lbl_StatsMinutes.Size = New System.Drawing.Size(37, 20) + ToolTipTitleItem25.Text = "Minimum amount of time" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = resources.GetString("ToolTipItem25.Text") + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.lbl_StatsMinutes.SuperTip = SuperToolTip25 + Me.lbl_StatsMinutes.TabIndex = 17 + Me.lbl_StatsMinutes.Text = "minutes" + ' + 'lbl_DOSBox_Templates + ' + Me.lbl_DOSBox_Templates.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Templates.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Templates.Location = New System.Drawing.Point(4, 325) + Me.lbl_DOSBox_Templates.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Templates.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Templates.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Templates.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Templates.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Templates.Name = "lbl_DOSBox_Templates" + Me.lbl_DOSBox_Templates.Size = New System.Drawing.Size(133, 20) + Me.lbl_DOSBox_Templates.TabIndex = 0 + Me.lbl_DOSBox_Templates.Text = "DOSBox Templates:" + Me.lbl_DOSBox_Templates.Visible = False + ' + 'lbl_Rombase_Manager + ' + Me.lbl_Rombase_Manager.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Rombase_Manager.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Rombase_Manager.Location = New System.Drawing.Point(4, 394) + Me.lbl_Rombase_Manager.MKBoundControl1 = Nothing + Me.lbl_Rombase_Manager.MKBoundControl2 = Nothing + Me.lbl_Rombase_Manager.MKBoundControl3 = Nothing + Me.lbl_Rombase_Manager.MKBoundControl4 = Nothing + Me.lbl_Rombase_Manager.MKBoundControl5 = Nothing + Me.lbl_Rombase_Manager.Name = "lbl_Rombase_Manager" + Me.lbl_Rombase_Manager.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem26.Text = "RomBase Manager" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "This is NOT the Rom Manager!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The RomBase Manager is a Database Tool, use it if" & + " you know what you're doing." + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.lbl_Rombase_Manager.SuperTip = SuperToolTip26 + Me.lbl_Rombase_Manager.TabIndex = 0 + Me.lbl_Rombase_Manager.Text = "RomBase Manager:" + ' + 'lbl_RefreshCaches + ' + Me.lbl_RefreshCaches.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RefreshCaches.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RefreshCaches.Location = New System.Drawing.Point(4, 371) + Me.lbl_RefreshCaches.MKBoundControl1 = Nothing + Me.lbl_RefreshCaches.MKBoundControl2 = Nothing + Me.lbl_RefreshCaches.MKBoundControl3 = Nothing + Me.lbl_RefreshCaches.MKBoundControl4 = Nothing + Me.lbl_RefreshCaches.MKBoundControl5 = Nothing + Me.lbl_RefreshCaches.Name = "lbl_RefreshCaches" + Me.lbl_RefreshCaches.Size = New System.Drawing.Size(133, 20) + Me.lbl_RefreshCaches.TabIndex = 0 + Me.lbl_RefreshCaches.Text = "Refresh Caches:" + ' + 'lbl_Mame_Config + ' + Me.lbl_Mame_Config.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Mame_Config.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Mame_Config.Location = New System.Drawing.Point(4, 348) + Me.lbl_Mame_Config.MKBoundControl1 = Nothing + Me.lbl_Mame_Config.MKBoundControl2 = Nothing + Me.lbl_Mame_Config.MKBoundControl3 = Nothing + Me.lbl_Mame_Config.MKBoundControl4 = Nothing + Me.lbl_Mame_Config.MKBoundControl5 = Nothing + Me.lbl_Mame_Config.Name = "lbl_Mame_Config" + Me.lbl_Mame_Config.Size = New System.Drawing.Size(133, 20) + Me.lbl_Mame_Config.TabIndex = 0 + Me.lbl_Mame_Config.Text = "M.A.M.E. Configuration:" + Me.lbl_Mame_Config.Visible = False + ' + 'btn_DOSBox_Templates + ' + Me.btn_DOSBox_Templates.Location = New System.Drawing.Point(140, 325) + Me.btn_DOSBox_Templates.Name = "btn_DOSBox_Templates" + Me.btn_DOSBox_Templates.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem27.Text = "DOSBox Templates" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "Manage your DOSBox Templates here." + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.btn_DOSBox_Templates.SuperTip = SuperToolTip27 + Me.btn_DOSBox_Templates.TabIndex = 21 + Me.btn_DOSBox_Templates.Text = "Open" + Me.btn_DOSBox_Templates.Visible = False + ' + 'lbl_StatsMinTime + ' + Me.lbl_StatsMinTime.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_StatsMinTime.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_StatsMinTime.Location = New System.Drawing.Point(174, 234) + Me.lbl_StatsMinTime.MKBoundControl1 = Nothing + Me.lbl_StatsMinTime.MKBoundControl2 = Nothing + Me.lbl_StatsMinTime.MKBoundControl3 = Nothing + Me.lbl_StatsMinTime.MKBoundControl4 = Nothing + Me.lbl_StatsMinTime.MKBoundControl5 = Nothing + Me.lbl_StatsMinTime.Name = "lbl_StatsMinTime" + Me.lbl_StatsMinTime.Size = New System.Drawing.Size(124, 20) + ToolTipTitleItem28.Text = "Minimum amount of time" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = resources.GetString("ToolTipItem28.Text") + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.lbl_StatsMinTime.SuperTip = SuperToolTip28 + Me.lbl_StatsMinTime.TabIndex = 15 + Me.lbl_StatsMinTime.Text = "Minimum amount of time:" + ' + 'btn_Refresh_Caches + ' + Me.btn_Refresh_Caches.Location = New System.Drawing.Point(140, 371) + Me.btn_Refresh_Caches.Name = "btn_Refresh_Caches" + Me.btn_Refresh_Caches.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem29.Text = "Refresh Caches" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = "You don't have to click it, if you're not told to." + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.btn_Refresh_Caches.SuperTip = SuperToolTip29 + Me.btn_Refresh_Caches.TabIndex = 23 + Me.btn_Refresh_Caches.Text = "Now!" + ' + 'btn_Mame_Config + ' + Me.btn_Mame_Config.Location = New System.Drawing.Point(140, 348) + Me.btn_Mame_Config.Name = "btn_Mame_Config" + Me.btn_Mame_Config.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem30.Text = "M.A.M.E. Configuration" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = "If you want to run M.A.M.E. Roms, this is the right place to set it up." + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.btn_Mame_Config.SuperTip = SuperToolTip30 + Me.btn_Mame_Config.TabIndex = 22 + Me.btn_Mame_Config.Text = "Open" + Me.btn_Mame_Config.Visible = False + ' + 'lbl_Stats + ' + Me.lbl_Stats.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Stats.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Stats.Location = New System.Drawing.Point(4, 234) + Me.lbl_Stats.MKBoundControl1 = Nothing + Me.lbl_Stats.MKBoundControl2 = Nothing + Me.lbl_Stats.MKBoundControl3 = Nothing + Me.lbl_Stats.MKBoundControl4 = Nothing + Me.lbl_Stats.MKBoundControl5 = Nothing + Me.lbl_Stats.Name = "lbl_Stats" + Me.lbl_Stats.Size = New System.Drawing.Size(105, 20) + ToolTipTitleItem31.Text = "Statistics" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & + "when you played a certain game." + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.lbl_Stats.SuperTip = SuperToolTip31 + Me.lbl_Stats.TabIndex = 8 + Me.lbl_Stats.Text = "Statistics:" + ' + 'lbl_Password + ' + Me.lbl_Password.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Password.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Password.Location = New System.Drawing.Point(5, 212) + Me.lbl_Password.MKBoundControl1 = Nothing + Me.lbl_Password.MKBoundControl2 = Nothing + Me.lbl_Password.MKBoundControl3 = Nothing + Me.lbl_Password.MKBoundControl4 = Nothing + Me.lbl_Password.MKBoundControl5 = Nothing + Me.lbl_Password.Name = "lbl_Password" + Me.lbl_Password.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem32.Text = "Change your Password" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "Change your own password here" + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.lbl_Password.SuperTip = SuperToolTip32 + Me.lbl_Password.TabIndex = 8 + Me.lbl_Password.Text = "Change your Password:" + ' + 'lbl_Users + ' + Me.lbl_Users.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Users.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Users.Location = New System.Drawing.Point(5, 189) + Me.lbl_Users.MKBoundControl1 = Nothing + Me.lbl_Users.MKBoundControl2 = Nothing + Me.lbl_Users.MKBoundControl3 = Nothing + Me.lbl_Users.MKBoundControl4 = Nothing + Me.lbl_Users.MKBoundControl5 = Nothing + Me.lbl_Users.Name = "lbl_Users" + Me.lbl_Users.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem33.Text = "Multi User Mode" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = "Enable this mode and set up multiple users. They can be restricted and password p" & + "rotected." + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.lbl_Users.SuperTip = SuperToolTip33 + Me.lbl_Users.TabIndex = 8 + Me.lbl_Users.Text = "Multi User Mode:" + ' + 'lbl_J2K_Config + ' + Me.lbl_J2K_Config.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_J2K_Config.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_J2K_Config.Location = New System.Drawing.Point(5, 166) + Me.lbl_J2K_Config.MKBoundControl1 = Nothing + Me.lbl_J2K_Config.MKBoundControl2 = Nothing + Me.lbl_J2K_Config.MKBoundControl3 = Nothing + Me.lbl_J2K_Config.MKBoundControl4 = Nothing + Me.lbl_J2K_Config.MKBoundControl5 = Nothing + Me.lbl_J2K_Config.Name = "lbl_J2K_Config" + Me.lbl_J2K_Config.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem34.Text = "Default J2K Preset" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "J2K runs all the time, the preset you select here will be used when no game or em" & + "ulator is run." + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.lbl_J2K_Config.SuperTip = SuperToolTip34 + Me.lbl_J2K_Config.TabIndex = 8 + Me.lbl_J2K_Config.Text = "Default J2K Preset:" + ' + 'lbl_J2K + ' + Me.lbl_J2K.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_J2K.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_J2K.Location = New System.Drawing.Point(5, 143) + Me.lbl_J2K.MKBoundControl1 = Nothing + Me.lbl_J2K.MKBoundControl2 = Nothing + Me.lbl_J2K.MKBoundControl3 = Nothing + Me.lbl_J2K.MKBoundControl4 = Nothing + Me.lbl_J2K.MKBoundControl5 = Nothing + Me.lbl_J2K.Name = "lbl_J2K" + Me.lbl_J2K.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem35.Text = "J2K Installation" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + "//www.emulation-evolved.net" + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.lbl_J2K.SuperTip = SuperToolTip35 + Me.lbl_J2K.TabIndex = 8 + Me.lbl_J2K.Text = "J2K Installation:" + ' + 'lbl_Backup_Directory + ' + Me.lbl_Backup_Directory.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Backup_Directory.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Backup_Directory.Location = New System.Drawing.Point(5, 97) + Me.lbl_Backup_Directory.MKBoundControl1 = Nothing + Me.lbl_Backup_Directory.MKBoundControl2 = Nothing + Me.lbl_Backup_Directory.MKBoundControl3 = Nothing + Me.lbl_Backup_Directory.MKBoundControl4 = Nothing + Me.lbl_Backup_Directory.MKBoundControl5 = Nothing + Me.lbl_Backup_Directory.Name = "lbl_Backup_Directory" + Me.lbl_Backup_Directory.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem36.Text = "Backup Directory" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "This directory is used for backups of your databases." + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.lbl_Backup_Directory.SuperTip = SuperToolTip36 + Me.lbl_Backup_Directory.TabIndex = 8 + Me.lbl_Backup_Directory.Text = "Backup Directory:" + ' + 'lbl_DOSBox_Working_Directory + ' + Me.lbl_DOSBox_Working_Directory.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DOSBox_Working_Directory.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DOSBox_Working_Directory.Location = New System.Drawing.Point(5, 120) + Me.lbl_DOSBox_Working_Directory.MKBoundControl1 = Nothing + Me.lbl_DOSBox_Working_Directory.MKBoundControl2 = Nothing + Me.lbl_DOSBox_Working_Directory.MKBoundControl3 = Nothing + Me.lbl_DOSBox_Working_Directory.MKBoundControl4 = Nothing + Me.lbl_DOSBox_Working_Directory.MKBoundControl5 = Nothing + Me.lbl_DOSBox_Working_Directory.Name = "lbl_DOSBox_Working_Directory" + Me.lbl_DOSBox_Working_Directory.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem37.Text = "DOSBox Working Directory" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = resources.GetString("ToolTipItem37.Text") + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.lbl_DOSBox_Working_Directory.SuperTip = SuperToolTip37 + Me.lbl_DOSBox_Working_Directory.TabIndex = 8 + Me.lbl_DOSBox_Working_Directory.Text = "DOSBox Working Directory:" + ' + 'lbl_Screnshots_Dir + ' + Me.lbl_Screnshots_Dir.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Screnshots_Dir.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Screnshots_Dir.Location = New System.Drawing.Point(5, 74) + Me.lbl_Screnshots_Dir.MKBoundControl1 = Nothing + Me.lbl_Screnshots_Dir.MKBoundControl2 = Nothing + Me.lbl_Screnshots_Dir.MKBoundControl3 = Nothing + Me.lbl_Screnshots_Dir.MKBoundControl4 = Nothing + Me.lbl_Screnshots_Dir.MKBoundControl5 = Nothing + Me.lbl_Screnshots_Dir.Name = "lbl_Screnshots_Dir" + Me.lbl_Screnshots_Dir.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem38.Text = "Screenshots Directory" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + "certain directory, put that location in here. FRAPS, RivaTuner and Afterburner a" & + "re good candidates for this." + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.lbl_Screnshots_Dir.SuperTip = SuperToolTip38 + Me.lbl_Screnshots_Dir.TabIndex = 8 + Me.lbl_Screnshots_Dir.Text = "Screenshots Directory:" + ' + 'lbl_Dir_Temp + ' + Me.lbl_Dir_Temp.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Dir_Temp.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Dir_Temp.Location = New System.Drawing.Point(5, 27) + Me.lbl_Dir_Temp.MKBoundControl1 = Nothing + Me.lbl_Dir_Temp.MKBoundControl2 = Nothing + Me.lbl_Dir_Temp.MKBoundControl3 = Nothing + Me.lbl_Dir_Temp.MKBoundControl4 = Nothing + Me.lbl_Dir_Temp.MKBoundControl5 = Nothing + Me.lbl_Dir_Temp.Name = "lbl_Dir_Temp" + Me.lbl_Dir_Temp.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem39.Text = "Temp Directory" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = resources.GetString("ToolTipItem39.Text") + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.lbl_Dir_Temp.SuperTip = SuperToolTip39 + Me.lbl_Dir_Temp.TabIndex = 8 + Me.lbl_Dir_Temp.Text = "Temp Directory:" + ' + 'lbl_Dir_Extras + ' + Me.lbl_Dir_Extras.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Dir_Extras.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Dir_Extras.Location = New System.Drawing.Point(5, 50) + Me.lbl_Dir_Extras.MKBoundControl1 = Nothing + Me.lbl_Dir_Extras.MKBoundControl2 = Nothing + Me.lbl_Dir_Extras.MKBoundControl3 = Nothing + Me.lbl_Dir_Extras.MKBoundControl4 = Nothing + Me.lbl_Dir_Extras.MKBoundControl5 = Nothing + Me.lbl_Dir_Extras.Name = "lbl_Dir_Extras" + Me.lbl_Dir_Extras.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem40.Text = "Extras Directory" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + "are used by Metropolis Launcher." + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.lbl_Dir_Extras.SuperTip = SuperToolTip40 + Me.lbl_Dir_Extras.TabIndex = 8 + Me.lbl_Dir_Extras.Text = "Extras Directory:" + ' + 'btn_Rom_Manager + ' + Me.btn_Rom_Manager.Location = New System.Drawing.Point(140, 302) + Me.btn_Rom_Manager.Name = "btn_Rom_Manager" + Me.btn_Rom_Manager.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem41.Text = "Rom Manager" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.Text = "Manage your Roms, Diskettes, CDs etc. here." + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem41) + Me.btn_Rom_Manager.SuperTip = SuperToolTip41 + Me.btn_Rom_Manager.TabIndex = 20 + Me.btn_Rom_Manager.Text = "Open" + ' + 'btn_Password + ' + Me.btn_Password.Location = New System.Drawing.Point(141, 212) + Me.btn_Password.Name = "btn_Password" + Me.btn_Password.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem42.Text = "Change your Password" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "Change your own password here" + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.btn_Password.SuperTip = SuperToolTip42 + Me.btn_Password.TabIndex = 13 + Me.btn_Password.Text = "Change PW" + ' + 'btn_Users + ' + Me.btn_Users.Location = New System.Drawing.Point(141, 189) + Me.btn_Users.Name = "btn_Users" + Me.btn_Users.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem43.Text = "Multi User Mode" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "Manage multiple users (unrestricted, restricted, with or without password authent" & + "ification)" + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.btn_Users.SuperTip = SuperToolTip43 + Me.btn_Users.TabIndex = 12 + Me.btn_Users.Text = "Enable" + ' + 'btn_Platform_Settings + ' + Me.btn_Platform_Settings.Location = New System.Drawing.Point(140, 256) + Me.btn_Platform_Settings.Name = "btn_Platform_Settings" + Me.btn_Platform_Settings.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem44.Text = "Platform Settings" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "Decide which platforms are supported by your Metropolis Launcher installation." + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.btn_Platform_Settings.SuperTip = SuperToolTip44 + Me.btn_Platform_Settings.TabIndex = 18 + Me.btn_Platform_Settings.Text = "Open" + ' + 'btn_EmulatorSettings + ' + Me.btn_EmulatorSettings.Location = New System.Drawing.Point(140, 279) + Me.btn_EmulatorSettings.Name = "btn_EmulatorSettings" + Me.btn_EmulatorSettings.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem45.Text = "Emulator Settings" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = "Set up your emulators here." + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem45) + Me.btn_EmulatorSettings.SuperTip = SuperToolTip45 + Me.btn_EmulatorSettings.TabIndex = 19 + Me.btn_EmulatorSettings.Text = "Open" + ' + 'spn_StatsMinTime + ' + Me.spn_StatsMinTime.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_StatsMinTime.Location = New System.Drawing.Point(302, 234) + Me.spn_StatsMinTime.MKBoundLabel = Nothing + Me.spn_StatsMinTime.MKEditValue_Compare = Nothing + Me.spn_StatsMinTime.Name = "spn_StatsMinTime" + Me.spn_StatsMinTime.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_StatsMinTime.Properties.IsFloatValue = False + Me.spn_StatsMinTime.Properties.Mask.EditMask = "##;" + Me.spn_StatsMinTime.Properties.MaxValue = New Decimal(New Integer() {99, 0, 0, 0}) + Me.spn_StatsMinTime.Size = New System.Drawing.Size(50, 20) + ToolTipTitleItem46.Text = "Minimum amount of time" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.Text = resources.GetString("ToolTipItem46.Text") + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem46) + Me.spn_StatsMinTime.SuperTip = SuperToolTip46 + Me.spn_StatsMinTime.TabIndex = 16 + ' + 'cmb_Skin + ' + Me.cmb_Skin.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Skin.Location = New System.Drawing.Point(141, 4) + Me.cmb_Skin.MKBoundLabel = Nothing + Me.cmb_Skin.MKEditValue_Compare = Nothing + Me.cmb_Skin.Name = "cmb_Skin" + Me.cmb_Skin.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Skin.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id", "id", 31, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Skinname", "Skinname", 55, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 70, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Seasonal", "Seasonal", 53, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Skin.Properties.DataSource = Me.BS_Skin + Me.cmb_Skin.Properties.DisplayMember = "Displayname" + Me.cmb_Skin.Properties.ShowHeader = False + Me.cmb_Skin.Properties.ValueMember = "id" + Me.cmb_Skin.Size = New System.Drawing.Size(251, 20) + ToolTipTitleItem47.Text = "Skin" + ToolTipItem47.LeftIndent = 6 + ToolTipItem47.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." + SuperToolTip47.Items.Add(ToolTipTitleItem47) + SuperToolTip47.Items.Add(ToolTipItem47) + Me.cmb_Skin.SuperTip = SuperToolTip47 + Me.cmb_Skin.TabIndex = 0 + ' + 'BS_Skin + ' + Me.BS_Skin.DataMember = "tbl_Skin" + Me.BS_Skin.DataSource = Me.DS_Skin + Me.BS_Skin.Filter = "" + Me.BS_Skin.Sort = "Displayname" + ' + 'DS_Skin + ' + Me.DS_Skin.DataSetName = "NewDataSet" + Me.DS_Skin.Tables.AddRange(New System.Data.DataTable() {Me.tbl_Skin}) + ' + 'tbl_Skin + ' + Me.tbl_Skin.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn3, Me.DataColumn2, Me.DataColumn4}) + Me.tbl_Skin.TableName = "tbl_Skin" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id" + Me.DataColumn1.DataType = GetType(Integer) + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Skinname" + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Displayname" + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "Seasonal" + Me.DataColumn4.DataType = GetType(Boolean) + ' + 'lbl_Rom_Manager + ' + Me.lbl_Rom_Manager.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Rom_Manager.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Rom_Manager.Location = New System.Drawing.Point(4, 302) + Me.lbl_Rom_Manager.MKBoundControl1 = Nothing + Me.lbl_Rom_Manager.MKBoundControl2 = Nothing + Me.lbl_Rom_Manager.MKBoundControl3 = Nothing + Me.lbl_Rom_Manager.MKBoundControl4 = Nothing + Me.lbl_Rom_Manager.MKBoundControl5 = Nothing + Me.lbl_Rom_Manager.Name = "lbl_Rom_Manager" + Me.lbl_Rom_Manager.Size = New System.Drawing.Size(133, 20) + Me.lbl_Rom_Manager.TabIndex = 0 + Me.lbl_Rom_Manager.Text = "Rom Manager:" + ' + 'lbl_Platform_Settings + ' + Me.lbl_Platform_Settings.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Platform_Settings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Platform_Settings.Location = New System.Drawing.Point(4, 256) + Me.lbl_Platform_Settings.MKBoundControl1 = Nothing + Me.lbl_Platform_Settings.MKBoundControl2 = Nothing + Me.lbl_Platform_Settings.MKBoundControl3 = Nothing + Me.lbl_Platform_Settings.MKBoundControl4 = Nothing + Me.lbl_Platform_Settings.MKBoundControl5 = Nothing + Me.lbl_Platform_Settings.Name = "lbl_Platform_Settings" + Me.lbl_Platform_Settings.Size = New System.Drawing.Size(133, 20) + Me.lbl_Platform_Settings.TabIndex = 0 + Me.lbl_Platform_Settings.Text = "Platform Settings:" + ' + 'lbl_EmulatorSettings + ' + Me.lbl_EmulatorSettings.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_EmulatorSettings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_EmulatorSettings.Location = New System.Drawing.Point(4, 279) + Me.lbl_EmulatorSettings.MKBoundControl1 = Nothing + Me.lbl_EmulatorSettings.MKBoundControl2 = Nothing + Me.lbl_EmulatorSettings.MKBoundControl3 = Nothing + Me.lbl_EmulatorSettings.MKBoundControl4 = Nothing + Me.lbl_EmulatorSettings.MKBoundControl5 = Nothing + Me.lbl_EmulatorSettings.Name = "lbl_EmulatorSettings" + Me.lbl_EmulatorSettings.Size = New System.Drawing.Size(133, 20) + Me.lbl_EmulatorSettings.TabIndex = 0 + Me.lbl_EmulatorSettings.Text = "Emulator Settings:" + ' + 'lbl_Skin + ' + Me.lbl_Skin.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Skin.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Skin.Location = New System.Drawing.Point(5, 4) + Me.lbl_Skin.MKBoundControl1 = Nothing + Me.lbl_Skin.MKBoundControl2 = Nothing + Me.lbl_Skin.MKBoundControl3 = Nothing + Me.lbl_Skin.MKBoundControl4 = Nothing + Me.lbl_Skin.MKBoundControl5 = Nothing + Me.lbl_Skin.Name = "lbl_Skin" + Me.lbl_Skin.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem48.Text = "Skin" + ToolTipItem48.LeftIndent = 6 + ToolTipItem48.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." + SuperToolTip48.Items.Add(ToolTipTitleItem48) + SuperToolTip48.Items.Add(ToolTipItem48) + Me.lbl_Skin.SuperTip = SuperToolTip48 + Me.lbl_Skin.TabIndex = 0 + Me.lbl_Skin.Text = "Skin:" + ' + 'txb_J2K + ' + Me.txb_J2K.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_J2K.Location = New System.Drawing.Point(141, 143) + Me.txb_J2K.Name = "txb_J2K" + Me.txb_J2K.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.txb_J2K.Properties.ReadOnly = True + Me.txb_J2K.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem49.Text = "J2K Installation" + ToolTipItem49.LeftIndent = 6 + ToolTipItem49.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + "//www.emulation-evolved.net" + SuperToolTip49.Items.Add(ToolTipTitleItem49) + SuperToolTip49.Items.Add(ToolTipItem49) + Me.txb_J2K.SuperTip = SuperToolTip49 + Me.txb_J2K.TabIndex = 9 + ' + 'Ctl_MKDXSplitter1 + ' + Me.Ctl_MKDXSplitter1.Location = New System.Drawing.Point(396, 0) + Me.Ctl_MKDXSplitter1.Name = "Ctl_MKDXSplitter1" + Me.Ctl_MKDXSplitter1.Size = New System.Drawing.Size(5, 600) + Me.Ctl_MKDXSplitter1.TabIndex = 1 + Me.Ctl_MKDXSplitter1.TabStop = False + ' + 'Ctl_MKDXPanel2 + ' + Me.Ctl_MKDXPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXPanel2.Location = New System.Drawing.Point(401, 0) + Me.Ctl_MKDXPanel2.Name = "Ctl_MKDXPanel2" + Me.Ctl_MKDXPanel2.Size = New System.Drawing.Size(399, 600) + Me.Ctl_MKDXPanel2.TabIndex = 2 + ' + 'ucr_Settings + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.Controls.Add(Me.Ctl_MKDXPanel2) + Me.Controls.Add(Me.Ctl_MKDXSplitter1) + Me.Controls.Add(Me.pnl_Left) + Me.Name = "ucr_Settings" + Me.Size = New System.Drawing.Size(800, 600) + CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Left.ResumeLayout(False) + CType(Me.spn_Backup_Retention.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Backup_Frequency.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_J2K_Config.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_J2K, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_StatsEnable.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Internal, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Internal.ResumeLayout(False) + CType(Me.cmb_Moby_Platforms.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.font_Grid.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spin_FontSize.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Backup_Dir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_DOSBox_Working_Directory.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Screenshot_Dir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Temp_Dir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Dir_Extras.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_StatsMinTime.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Skin.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Skin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_Skin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tbl_Skin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_J2K.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Ctl_MKDXPanel2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents pnl_Left As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents Ctl_MKDXSplitter1 As MKNetDXLib.ctl_MKDXSplitter + Friend WithEvents Ctl_MKDXPanel2 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents cmb_Skin As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Skin As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DS_Skin As System.Data.DataSet + Friend WithEvents tbl_Skin As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents BS_Skin As System.Windows.Forms.BindingSource + Friend WithEvents DataColumn4 As System.Data.DataColumn + Friend WithEvents font_Grid As MKNetDXLib.ctl_MKDXFontEdit + Friend WithEvents lbl_Font As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spin_FontSize As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_FontSize As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_MobyImport As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Moby_Platforms As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Moby_Platforms As System.Windows.Forms.BindingSource + Friend WithEvents btn_MobyImport As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_MobyDB As Metropolis_Launcher.DS_MobyDB + Friend WithEvents btn_RomBase_Manager As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Moby_Update As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_EmulatorSettings As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_EmulatorSettings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Rom_Manager As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Rom_Manager As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Movie_Manager As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Movie_Manager As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_Dir_Extras As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Dir_Extras As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Dir_Extras As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents gb_Internal As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents chb_StatsEnable As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_StatsMinutes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_StatsMinTime As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Stats As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_StatsMinTime As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents btn_ReSync As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Screenshot_Dir As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_Screenshot_Dir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Screnshots_Dir As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Mame_Config As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Mame_Config As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Temp_Dir As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_Temp_Dir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Dir_Temp As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_DOSBox_Templates As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_DOSBox_Templates As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_DOSBox_Working_Directory As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_DOSBox_Working_Directory As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_DOSBox_Working_Directory As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_J2K As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_J2K As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_J2K_Config As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_J2K_Config As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BS_J2K As System.Windows.Forms.BindingSource + Friend WithEvents DS_J2K As DataSet + Friend WithEvents tbl_Config As System.Data.DataTable + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents btn_RombaseCheck As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Platform_Settings As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Platform_Settings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_RefreshCaches As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Refresh_Caches As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_MobyImport_with_Groups As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Users As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Users As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Password As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Password As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Rombase_Manager As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Backup_Retention_Backups As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Backup_Retention As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_Backup_Retention_keep As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Backup_Retention As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Backup_Frequency_Launches As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Backup_every As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Backup_Frequency As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_Backup As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Backup_Dir As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_Backup_Dir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Backup_Directory As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Launch_Counter_Value As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Launch_Counter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_J2K As MKNetDXLib.ctl_MKDXButtonEdit +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Settings.resx b/Metropolis_Launcher/Pages/ucr_Settings.resx new file mode 100644 index 0000000..b10154b --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Settings.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 322, 20 + + + 208, 18 + + + 634, 17 + + + 481, 19 + + + This directory will be used for initial extracting of games and most importantly for all the write access of games and applications. Each game will get its own subdirectory within the DOSBox working directory. Metropolis Launcher will not delete anything in here. + + + This directory will be used for temporary files, in most cases ROM files will be extracted for their respective emulators. Metropolis Launcher will delete files that are not neccessary anymore on it's own. + + + This directory will be used for initial extracting of games and most importantly for all the write access of games and applications. Each game will get its own subdirectory within the DOSBox working directory. Metropolis Launcher will not delete anything in here. + + + This directory will be used for temporary files, in most cases ROM files will be extracted for their respective emulators. Metropolis Launcher will delete files that are not neccessary anymore on it's own. + + + Set here the minimum amount of time a game has to run in order to be added to the statistics. Set this for example to 5 minutes in order to prevent any playtesting below 5 minutes to be counted towards your statistics. + + + Set here the minimum amount of time a game has to run in order to be added to the statistics. Set this for example to 5 minutes in order to prevent any playtesting below 5 minutes to be counted towards your statistics. + + + This directory will be used for initial extracting of games and most importantly for all the write access of games and applications. Each game will get its own subdirectory within the DOSBox working directory. Metropolis Launcher will not delete anything in here. + + + This directory will be used for temporary files, in most cases ROM files will be extracted for their respective emulators. Metropolis Launcher will delete files that are not neccessary anymore on it's own. + + + Set here the minimum amount of time a game has to run in order to be added to the statistics. Set this for example to 5 minutes in order to prevent any playtesting below 5 minutes to be counted towards your statistics. + + + 112, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Settings.vb b/Metropolis_Launcher/Pages/ucr_Settings.vb new file mode 100644 index 0000000..40526e8 --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Settings.vb @@ -0,0 +1,699 @@ +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess +Imports TC = MKNetLib.cls_MKTypeConverter + +Public Class ucr_Settings + Private _sem_Loading As Boolean = True + + Public Event E_Rom_Manager_Changed() + + Public Sub New() + _sem_Handle_Textboxes_EditValueChanged = True + + InitializeComponent() + + For i As Integer = 0 To cls_Skins.Skins.GetUpperBound(0) + Dim row As DataRow = BS_Skin.AddNew.Row + row("id") = i + row("Skinname") = cls_Skins.Skins(i, 0) + row("Displayname") = cls_Skins.Skins(i, 1) + row("Seasonal") = TC.NZ(cls_Skins.Skins(i, 2), False) + Next + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Ensure_Moby_Platform_Caches(tran) + tran.Commit() + End Using + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Moby_Platforms, Name, URLPart, Display_Name || ' (' || (SELECT COUNT(1) FROM tbl_Moby_Releases REL WHERE REL.id_Moby_Platforms = PF.id_Moby_Platforms) || ')' AS Display_Name FROM tbl_Moby_Platforms PF WHERE Visible = 1 ORDER BY Display_Name", DS_MobyDB.tbl_Moby_Platforms) + + If cls_Globals.MultiUserMode Then + btn_Users.Text = "Setup" + End If + + Me._sem_Loading = False + + txb_Dir_Extras.Text = cls_Settings.Get_Extras_Directory + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Dir_Extras.Text) Then + txb_Dir_Extras.ErrorText = "Directory not found!" + Else + cls_Globals.Dir_Extras = txb_Dir_Extras.Text + End If + + txb_Screenshot_Dir.Text = TC.NZ(cls_Settings.GetSetting("Dir_Screenshot"), "") + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Screenshot_Dir.Text) Then + txb_Screenshot_Dir.ErrorText = "Directory not found!" + Else + cls_Globals.Dir_Screenshot = txb_Screenshot_Dir.Text + End If + + txb_Temp_Dir.Text = cls_Globals.TempDir(Nothing) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Temp_Dir.Text) Then + txb_Temp_Dir.ErrorText = "Directory not found!" + Else + MKNetLib.cls_MKFileSupport.TempDirRoot = cls_Globals.TempDir(Nothing) + End If + + txb_Backup_Dir.Text = cls_Globals.BackupsDir(Nothing) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Backup_Dir.Text) Then + txb_Backup_Dir.ErrorText = "Directory not found!" + End If + + txb_DOSBox_Working_Directory.Text = cls_Settings.Get_DOSBox_CWD + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_DOSBox_Working_Directory.Text) Then + txb_DOSBox_Working_Directory.ErrorText = "Directory not found!" + End If + + txb_J2K.Text = TC.NZ(cls_Settings.GetSetting("Path_J2K"), "") + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_J2K.Text) Then + txb_J2K.ErrorText = "File not found!" + Else + 'Fill the J2K Config DS + cls_Settings.Fill_J2K_DS(Me.DS_J2K, TC.NZ(cls_Settings.GetSetting("Path_J2K"), "")) + + 'Set the Config + Dim j2k_config As String = TC.NZ(cls_Settings.GetSetting("Config_J2K"), "") + + If j2k_config = "" Then + cmb_J2K_Config.EditValue = DBNull.Value + Else + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", TC.NZ(cls_Settings.GetSetting("Config_J2K"), "Empty")) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + End If + End If + + Me.chb_StatsEnable.Checked = TC.NZ(cls_Settings.GetSetting("Stats_Enabled", cls_Settings.enm_Settingmodes.Per_User), True) + Me.spn_StatsMinTime.Value = TC.NZ(cls_Settings.GetSetting("Stats_MinTime", cls_Settings.enm_Settingmodes.Per_User), 0) + Me.spn_StatsMinTime.Enabled = Me.chb_StatsEnable.Checked + + Me.cmb_Skin.EditValue = TC.NZ(cls_Settings.GetSetting("Skin", cls_Settings.enm_Settingmodes.Per_User), 4) + + Me.font_Grid.EditValue = TC.NZ(cls_Settings.GetSetting("Font", cls_Settings.enm_Settingmodes.Per_User), "Segoe UI") + Me.spin_FontSize.EditValue = TC.NZ(cls_Settings.GetSetting("FontSize", cls_Settings.enm_Settingmodes.Per_User), 8) + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM moby.tbl_Moby_Platforms WHERE id_Moby_Platforms = " & cls_Globals.enm_Moby_Platforms.mame), 0) > 0 Then + lbl_Mame_Config.Visible = True + btn_Mame_Config.Visible = True + End If + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT COUNT(1) FROM moby.tbl_Moby_Platforms WHERE id_Moby_Platforms = " & cls_Globals.enm_Moby_Platforms.dos), 0) > 0 Then + lbl_DOSBox_Templates.Visible = True + btn_DOSBox_Templates.Visible = True + End If + + Me.spn_Backup_Frequency.Value = TC.NZ(cls_Settings.GetSetting("Backup_Frequency", cls_Settings.enm_Settingmodes.Same_for_All), 5) + Me.spn_Backup_Retention.Value = TC.NZ(cls_Settings.GetSetting("Backup_Retention", cls_Settings.enm_Settingmodes.Same_for_All), 3) + + Me.lbl_Launch_Counter_Value.Text = TC.NZ(cls_Settings.GetSetting("LaunchCounter_BackupRotation"), 0) + +#If DEBUG Then + gb_Internal.Visible = True +#End If + + _sem_Handle_Textboxes_EditValueChanged = False + End Sub + + Public Sub Set_Controls_Enable() + 'Set any control Enabled = False + For Each ctrl As Control In pnl_Left.Controls + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + ctrl.Enabled = False + Else + ctrl.Enabled = True + End If + Next + + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + lbl_Skin.Enabled = True + cmb_Skin.Enabled = True + lbl_Stats.Enabled = True + lbl_StatsMinTime.Enabled = True + lbl_StatsMinutes.Enabled = True + chb_StatsEnable.Enabled = True + spn_StatsMinTime.Enabled = True + End If + + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Restricted = False Then + + End If + + If Not cls_Globals.MultiUserMode Then + lbl_Password.Visible = False + btn_Password.Visible = False + Else + lbl_Password.Enabled = True + btn_Password.Enabled = True + End If + + End Sub + + Private Sub cmb_Skin_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Skin.EditValueChanged + If _sem_Loading Then Return + cls_Skins.LoadSkin(cmb_Skin.EditValue) + End Sub + + Public Sub Save_Settings() + If cls_Globals.Conn.State = ConnectionState.Closed Then + Try + cls_Globals.Conn.Open() + Catch ex As Exception + Return + End Try + End If + + cls_Settings.SetSetting("Skin", TC.NZ(Me.cmb_Skin.EditValue, 0), cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("Dir_Extras", TC.NZ(Me.txb_Dir_Extras.EditValue, "")) + cls_Settings.SetSetting("Dir_Screenshot", TC.NZ(Me.txb_Screenshot_Dir.EditValue, "")) + cls_Settings.SetSetting("Dir_Temp", TC.NZ(Me.txb_Temp_Dir.EditValue, "")) + cls_Settings.SetSetting("Dir_DOSBox_CWD", TC.NZ(Me.txb_DOSBox_Working_Directory.EditValue, "")) + cls_Settings.SetSetting("Path_J2K", TC.NZ(Me.txb_J2K.EditValue, "")) + + If TC.IsNullNothingOrEmpty(Me.cmb_J2K_Config.EditValue) Then + cls_Settings.SetSetting("Config_J2K", DBNull.Value) + Else + cls_Settings.SetSetting("Config_J2K", IIf(TC.NZ(Me.cmb_J2K_Config.Text, "") = "", "Empty", TC.NZ(Me.cmb_J2K_Config.Text, ""))) + End If + + cls_Settings.SetSetting("Font", TC.NZ(Me.font_Grid.EditValue, "Segoe UI"), cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("FontSize", TC.NZ(Me.spin_FontSize.EditValue, 8), cls_Settings.enm_Settingmodes.Per_User) + + cls_Settings.SetSetting("Stats_Enabled", Me.chb_StatsEnable.Checked, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("Stats_MinTime", Me.spn_StatsMinTime.Value, cls_Settings.enm_Settingmodes.Per_User) + + cls_Settings.SetSetting("Backup_Frequency", spn_Backup_Frequency.Value) + cls_Settings.SetSetting("Backup_Retention", spn_Backup_Retention.Value) + cls_Settings.SetSetting("Dir_Backup", txb_Backup_Dir.Text) + End Sub + + Private Sub Handle_Font_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles font_Grid.EditValueChanged, spin_FontSize.EditValueChanged, spn_StatsMinTime.EditValueChanged + If Me._sem_Loading Then Return + If Not TC.IsNullNothingOrEmpty(font_Grid.EditValue) AndAlso spin_FontSize.Value > 0 Then + cls_Fonts.ApplyFont(font_Grid.EditValue, spin_FontSize.Value) + End If + End Sub + + Private Sub btn_MobyImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MobyImport.Click, btn_MobyImport_with_Groups.Click + If TC.IsNullNothingOrEmpty(cmb_Moby_Platforms.EditValue) Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please select a platform first!", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + BS_Moby_Platforms.EndEdit() + + Using frm As New frm_Moby_Import(cmb_Moby_Platforms.GetSelectedDataRow.Row("id_Moby_Platforms"), cmb_Moby_Platforms.GetSelectedDataRow.Row("URLPart"), cmb_Moby_Platforms.GetSelectedDataRow.Row("Display_Name"), IIf(sender Is btn_MobyImport_with_Groups, True, False)) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_Rombase_Manager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_RomBase_Manager.Click + Using frm As New frm_ROMBase_Manager + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_Moby_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Moby_Update.Click + Using frm As New frm_Moby_Import(Me.DS_MobyDB.tbl_Moby_Platforms) + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub tbl_EmulatorSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EmulatorSettings.Click + Using frm As New frm_Emulators + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_Rom_Manager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Rom_Manager.Click + Using frm As New frm_Rom_Manager + If frm.ShowDialog(Me.ParentForm) <> DialogResult.Cancel Then + RaiseEvent E_Rom_Manager_Changed() + End If + End Using + End Sub + + Private Sub Btn_MovieManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Movie_Manager.Click + Using frm As New frm_Movie_Manager + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub Handle_Directory_Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Dir_Extras.Click, btn_Screenshot_Dir.Click, btn_Temp_Dir.Click, btn_DOSBox_Working_Directory.Click, btn_Backup_Dir.Click + Dim sFolder As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog + If Alphaleonis.Win32.Filesystem.Directory.Exists(sFolder) Then + If sender Is btn_Dir_Extras Then + txb_Dir_Extras.Focus() + Me.txb_Dir_Extras.EditValue = sFolder + cls_Globals.Dir_Extras = sFolder + txb_Dir_Extras.DoValidate() + btn_Dir_Extras.Focus() + End If + If sender Is btn_Screenshot_Dir Then + txb_Screenshot_Dir.Focus() + Me.txb_Screenshot_Dir.EditValue = sFolder + cls_Globals.Dir_Screenshot = sFolder + txb_Screenshot_Dir.DoValidate() + btn_Screenshot_Dir.Focus() + End If + If sender Is btn_Temp_Dir Then + txb_Temp_Dir.Focus() + Me.txb_Temp_Dir.EditValue = sFolder + txb_Temp_Dir.DoValidate() + btn_Temp_Dir.Focus() + End If + If sender Is btn_DOSBox_Working_Directory Then + txb_DOSBox_Working_Directory.Focus() + Me.txb_DOSBox_Working_Directory.EditValue = sFolder + txb_DOSBox_Working_Directory.DoValidate() + btn_DOSBox_Working_Directory.Focus() + End If + If sender Is btn_Backup_Dir Then + txb_Backup_Dir.Focus() + Me.txb_Backup_Dir.EditValue = sFolder + txb_Backup_Dir.DoValidate() + txb_Backup_Dir.Focus() + End If + End If + End Sub + + Private Sub Handle_Directory_Textboxes_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs, Optional ByVal NewValue As Object = Nothing) Handles txb_Dir_Extras.Validating, txb_Screenshot_Dir.Validating, txb_Temp_Dir.Validating, txb_DOSBox_Working_Directory.Validating + If NewValue Is Nothing Then + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TC.NZ(CType(sender, MKNetDXLib.ctl_MKDXTextEdit).EditValue, "")) Then + CType(sender, MKNetDXLib.ctl_MKDXTextEdit).ErrorText = "Directory not found!" + Else + If sender Is txb_Dir_Extras Then cls_Globals.Dir_Extras = CType(sender, MKNetDXLib.ctl_MKDXTextEdit).Text + If sender Is txb_Screenshot_Dir Then cls_Globals.Dir_Screenshot = CType(sender, MKNetDXLib.ctl_MKDXTextEdit).Text + End If + Else + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TC.NZ(NewValue, "")) Then + CType(sender, MKNetDXLib.ctl_MKDXTextEdit).ErrorText = "Directory not found!" + Else + If sender Is txb_Dir_Extras Then cls_Globals.Dir_Extras = TC.NZ(NewValue, "") + If sender Is txb_Screenshot_Dir Then cls_Globals.Dir_Screenshot = TC.NZ(NewValue, "") + End If + End If + End Sub + + Private Sub Handle_File_Textboxes_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txb_J2K.Validating + If TC.NZ(CType(sender, MKNetDXLib.ctl_MKDXButtonEdit).EditValue, "") <> "" AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(TC.NZ(CType(sender, MKNetDXLib.ctl_MKDXButtonEdit).EditValue, "")) Then + CType(sender, MKNetDXLib.ctl_MKDXButtonEdit).ErrorText = "File not found!" + End If + End Sub + + Private Sub chb_StatsEnable_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chb_StatsEnable.CheckStateChanged + Me.spn_StatsMinTime.Enabled = Me.chb_StatsEnable.Checked + End Sub + + Private Sub btn_ReSync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ReSync.Click + If DevExpress.XtraEditors.XtraMessageBox.Show("Do you really want to re-sync every data to the rombase?", "Re-Sync", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Try + '### 0. Find Data in tbl_Emu_Games Main Entries (id_Emu_Games_Owner IS NULL) not associated to tbl_Rombase but containing interesting data + 'filename, size, crc, md5, sha1, id_Moby_Platforms, id_Moby_Releases, Moby_Platforms_URLPart, Moby_Games_URLPart + 'or all the Mapping entries + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " GAME.id_Emu_Games" & ControlChars.CrLf + sSQL &= " , GAME.InnerFile" & ControlChars.CrLf + sSQL &= " , GAME.Size" & ControlChars.CrLf + sSQL &= " , GAME.CRC32" & ControlChars.CrLf + sSQL &= " , GAME.MD5" & ControlChars.CrLf + sSQL &= " , GAME.SHA1" & ControlChars.CrLf + sSQL &= " , GAME.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , REL.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , PLTFM.URLPart AS Moby_Platforms_URLPart" & ControlChars.CrLf + sSQL &= " , MG.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , GAME.CustomIdentifier" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games GAME" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Platforms PLTFM ON GAME.id_Moby_Platforms = PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Games MG ON GAME.Moby_Games_URLPart = MG.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Releases REL ON REL.id_Moby_Platforms = GAME.id_Moby_Platforms AND REL.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " WHERE REL.id_Moby_Platforms <> 3 AND REL.id_Moby_Platforms <> -2 " & ControlChars.CrLf 'Don't export Windows games (3) and M.A.M.E. games (-2) + sSQL &= " AND id_Emu_Games_Owner IS NULL" & ControlChars.CrLf 'Only Main Entries + sSQL &= " AND REL.id_Moby_Platforms IS NOT NULL" & ControlChars.CrLf + sSQL &= " AND GAME.id_Rombase IS NULL" & ControlChars.CrLf + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " (" & ControlChars.CrLf + sSQL &= " GAME.id_Moby_Platforms <> 2" & ControlChars.CrLf 'If Platform is not DOS, just import every entry, even without interesting info + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " GAME.Moby_Games_URLPart IS NOT NULL" & ControlChars.CrLf + sSQL &= " OR" & ControlChars.CrLf + sSQL &= " GAME.Name IS NOT NULL OR GAME.Note IS NOT NULL OR GAME.Publisher IS NOT NULL OR GAME.Developer IS NOT NULL OR GAME.Description IS NOT NULL OR GAME.SpecialInfo IS NOT NULL OR GAME.Year IS NOT NULL OR GAME.Version IS NOT NULL OR GAME.Alt IS NOT NULL OR GAME.Trainer IS NOT NULL OR GAME.Translation IS NOT NULL OR GAME.Hack IS NOT NULL OR GAME.Bios IS NOT NULL OR GAME.Prototype IS NOT NULL OR GAME.Alpha IS NOT NULL OR GAME.Beta IS NOT NULL OR GAME.Sample IS NOT NULL OR GAME.Kiosk IS NOT NULL OR GAME.Unlicensed IS NOT NULL OR GAME.Fixed IS NOT NULL OR GAME.Pirated IS NOT NULL OR GAME.Good IS NOT NULL OR GAME.Bad IS NOT NULL OR GAME.Overdump IS NOT NULL OR GAME.PublicDomain IS NOT NULL" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " ORDER BY GAME.InnerFile" & ControlChars.CrLf + + Dim dt_EmuGames As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, Nothing, tran) + + 'Write Main Entry to tbl_Rombase + 'Get id_Rombase + 'Write id_Rombase to tbl_Emu_Games + + 'Get Sub-Entries, write those into tbl_Rombase, update id_Rombase for each Sub-Entry + For Each row_Emu_Games In dt_EmuGames.Rows + Dim id_Rombase As Integer = DS_Rombase.Upsert_Rombase(tran, DBNull.Value, row_Emu_Games("InnerFile"), row_Emu_Games("Size"), row_Emu_Games("CRC32"), row_Emu_Games("MD5"), row_Emu_Games("SHA1"), row_Emu_Games("id_Moby_Platforms"), row_Emu_Games("id_Moby_Releases"), row_Emu_Games("Moby_Platforms_URLPart"), row_Emu_Games("Moby_Games_URLPart"), CustomIdentifier:=row_Emu_Games("CustomIdentifier")) + If id_Rombase <> 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase = " & TC.getSQLFormat(id_Rombase) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")), tran) + End If + + 'Sub-Entries + sSQL = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " GAME.id_Emu_Games" & ControlChars.CrLf + sSQL &= " , GAME.InnerFile" & ControlChars.CrLf + sSQL &= " , GAME.Size" & ControlChars.CrLf + sSQL &= " , GAME.CRC32" & ControlChars.CrLf + sSQL &= " , GAME.MD5" & ControlChars.CrLf + sSQL &= " , GAME.SHA1" & ControlChars.CrLf + sSQL &= " , GAME.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , REL.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " , PLTFM.URLPart AS Moby_Platforms_URLPart" & ControlChars.CrLf + sSQL &= " , MG.URLPart AS Moby_Games_URLPart" & ControlChars.CrLf + sSQL &= " , GAME.CustomIdentifier" & ControlChars.CrLf + sSQL &= " FROM tbl_Emu_Games GAME" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Platforms PLTFM ON GAME.id_Moby_Platforms = PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Games MG ON GAME.Moby_Games_URLPart = MG.URLPart" & ControlChars.CrLf + sSQL &= " LEFT JOIN moby.tbl_Moby_Releases REL ON REL.id_Moby_Platforms = GAME.id_Moby_Platforms AND REL.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf + sSQL &= " WHERE id_Emu_Games_Owner = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")) & ControlChars.CrLf 'All the Sub-Entries of the current Emu_Game + sSQL &= " ORDER BY GAME.InnerFile" & ControlChars.CrLf + + Dim dt_EmuGames_Sub As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, Nothing, tran) + + For Each row_Emu_Games_Sub In dt_EmuGames_Sub.Rows + 'Note: this takes ages! + Dim id_Rombase_Sub As Integer = DS_Rombase.Upsert_Rombase(tran, DBNull.Value, row_Emu_Games_Sub("InnerFile"), row_Emu_Games_Sub("Size"), row_Emu_Games_Sub("CRC32"), row_Emu_Games_Sub("MD5"), row_Emu_Games_Sub("SHA1"), row_Emu_Games_Sub("id_Moby_Platforms"), row_Emu_Games_Sub("id_Moby_Releases"), row_Emu_Games_Sub("Moby_Platforms_URLPart"), row_Emu_Games_Sub("Moby_Games_URLPart"), id_Rombase, row_Emu_Games_Sub("CustomIdentifier")) + If id_Rombase_Sub <> 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase = " & TC.getSQLFormat(id_Rombase_Sub) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games_Sub("id_Emu_Games")), tran) + End If + Next + Next + + 'Mapping Templates + Dim dt_Templates As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM tbl_Emu_Games WHERE id_Rombase IS NULL AND id_Emu_Games < 0 AND Mapping_Identifier IS NOT NULL") + For Each row_Emu_Games In dt_Templates.Rows + Dim id_Rombase As Integer = DS_Rombase.Upsert_Rombase(tran, row_Emu_Games("Mapping_Identifier"), DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value) + If id_Rombase <> 0 Then + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emu_Games SET id_Rombase = " & TC.getSQLFormat(id_Rombase) & " WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games")), tran) + End If + Next + + '### 1. Pump Data from main.tbl_Emu_Games into rombase.tbl_Rombase + 'Get all necessary columns + 'TODO: CAREFUL with id_DOSBox_Configs_Templates! + Dim dt_cols As DataTable = DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT * FROM rombase.tbl_Rombase LIMIT 0", Nothing, tran) + + sSQL = "" + sSQL &= " REPLACE INTO rombase.tbl_Rombase" + sSQL &= " (" + + Dim bSkipComma As Boolean = True + For Each col As DataColumn In dt_cols.Columns + If bSkipComma Then + bSkipComma = False + Else + sSQL &= " , " + End If + + sSQL &= " [" & col.ColumnName & "]" & ControlChars.CrLf + Next + sSQL &= " )" + sSQL &= " SELECT" + + bSkipComma = True + + For Each col As DataColumn In dt_cols.Columns + If bSkipComma Then + bSkipComma = False + Else + sSQL &= " , " + End If + + Select Case col.ColumnName.ToLower + Case "filename", "size", "crc", "md5", "sha1", "id_moby_platforms", "id_rombase_owner" + sSQL &= " RB.[" & col.ColumnName & "]" & ControlChars.CrLf + Case "id_moby_releases" + sSQL &= " (" + sSQL &= " SELECT id_Moby_Releases" + sSQL &= " FROM moby.tbl_Moby_Releases MR" + sSQL &= " INNER JOIN moby.tbl_Moby_Games MG ON MR.id_Moby_Games = MG.id_Moby_Games AND MG.URLPart = EG.Moby_Games_URLPart" + sSQL &= " INNER JOIN moby.tbl_Moby_Platforms MP ON MR.id_Moby_Platforms = MP.id_Moby_Platforms" + sSQL &= " WHERE MR.id_Moby_Platforms = EG.id_Moby_Platforms" + sSQL &= " AND MG.URLPart = EG.Moby_Games_URLPart" + sSQL &= " LIMIT 1" + sSQL &= " ) AS id_Moby_Releases" & ControlChars.CrLf + Case "moby_platforms_urlpart" + sSQL &= " (SELECT URLPart FROM moby.tbl_Moby_Platforms WHERE id_Moby_Platforms = EG.id_Moby_Platforms) AS Moby_Platforms_URLPart" & ControlChars.CrLf + Case "id_rombase_dosbox_configs" + sSQL &= " (" + sSQL &= " SELECT DBC.id_Rombase_DOSBox_Configs" + sSQL &= " FROM tbl_DOSBox_Configs DBC" + sSQL &= " WHERE DBC.id_DOSBox_Configs = EG.id_DOSBox_Configs_Template" + sSQL &= " ) AS id_Rombase_DOSBox_Configs" & ControlChars.CrLf + Case Else + sSQL &= " EG.[" & col.ColumnName & "]" & ControlChars.CrLf + End Select + Next + + sSQL &= " FROM main.tbl_Emu_Games EG" + sSQL &= " INNER JOIN rombase.tbl_Rombase RB ON EG.id_Rombase = RB.id_Rombase" + sSQL &= " WHERE EG.id_Rombase IS NOT NULL" + + DataAccess.FireProcedure(tran.Connection, 0, sSQL, tran) + + '### 2. tbl_Emu_Games_Alternate_Titles -> tbl_Rombase_Alternate_Titles + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Alternate_Titles WHERE id_Rombase IN (SELECT EG.id_Rombase FROM main.tbl_Emu_Games_Alternate_Titles EGAT INNER JOIN main.tbl_Emu_Games EG ON EGAT.id_Emu_Games = EG.id_Emu_Games); INSERT INTO rombase.tbl_Rombase_Alternate_Titles (id_Rombase, Alternate_Title, Description) SELECT EG.id_Rombase, EGAT.Alternate_Title, EGAT.Description FROM main.tbl_Emu_Games_Alternate_Titles EGAT INNER JOIN main.tbl_Emu_Games EG ON EGAT.id_Emu_Games = EG.id_Emu_Games WHERE EG.id_Rombase IS NOT NULL", tran) + + '### 3. tbl_Emu_Games_Moby_Attributes -> tbl_Rombase_Moby_Attributes + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Moby_Attributes WHERE id_Rombase IN (SELECT EG.id_Rombase FROM main.tbl_Emu_Games_Moby_Attributes EGMA INNER JOIN main.tbl_Emu_Games EG ON EGMA.id_Emu_Games = EG.id_Emu_Games); INSERT INTO rombase.tbl_Rombase_Moby_Attributes (id_Rombase, id_Moby_Attributes, Used) SELECT EG.id_Rombase, EGMA.id_Moby_Attributes, EGMA.Used FROM main.tbl_Emu_Games_Moby_Attributes EGMA INNER JOIN main.tbl_Emu_Games EG ON EGMA.id_Emu_Games = EG.id_Emu_Games WHERE EG.id_Rombase IS NOT NULL", tran) + + '### 4. Moby Genres + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Moby_Genres WHERE id_Rombase IN (SELECT EG.id_Rombase FROM main.tbl_Emu_Games_Moby_Genres EGMG INNER JOIN main.tbl_Emu_Games EG ON EGMG.id_Emu_Games = EG.id_Emu_Games); INSERT INTO rombase.tbl_Rombase_Moby_Genres (id_Rombase, id_Moby_Genres, Used) SELECT EG.id_Rombase, EGMG.id_Moby_Genres, EGMG.Used FROM main.tbl_Emu_Games_Moby_Genres EGMG INNER JOIN main.tbl_Emu_Games EG ON EGMG.id_Emu_Games = EG.id_Emu_Games WHERE EG.id_Rombase IS NOT NULL", tran) + + '### 5. Languages + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Languages WHERE id_Rombase IN (SELECT EG.id_Rombase FROM main.tbl_Emu_Games_Languages EGL INNER JOIN main.tbl_Emu_Games EG ON EGL.id_Emu_Games = EG.id_Emu_Games); INSERT INTO rombase.tbl_Rombase_Languages (id_Rombase, id_Languages) SELECT EG.id_Rombase, EGL.id_Languages FROM main.tbl_Emu_Games_Languages EGL INNER JOIN main.tbl_Emu_Games EG ON EGL.id_Emu_Games = EG.id_Emu_Games WHERE EG.id_Rombase IS NOT NULL", tran) + + '### 6. Regions + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Regions WHERE id_Rombase IN (SELECT EG.id_Rombase FROM main.tbl_Emu_Games_Regions EGR INNER JOIN main.tbl_Emu_Games EG ON EGR.id_Emu_Games = EG.id_Emu_Games); INSERT INTO rombase.tbl_Rombase_Regions (id_Rombase, id_Regions) SELECT EG.id_Rombase, EGR.id_Regions FROM main.tbl_Emu_Games_Regions EGR INNER JOIN main.tbl_Emu_Games EG ON EGR.id_Emu_Games = EG.id_Emu_Games WHERE EG.id_Rombase IS NOT NULL", tran) + + '### 7. tbl_Tag_Parser + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM rombase.tbl_Rombase_Tag_Parser; INSERT INTO rombase.tbl_Rombase_Tag_Parser (Apply, Content, Note, Note_HighPriority, Year, Bios, Hack, Trainer, Version, Prototype, Beta, Translation, Alt, Unlicensed, Good, Bad, Fixed, Overdump, Pirated, Alpha, Kiosk, Sample, En, Ja, Fr, De, Es, It, Nl, Pt, Sv, No, Da, Fi, Zh, Ko, Pl, NTSC, PAL, World, Europe, USA, Australia, Japan, Korea, China, Asia, Brazil, Canada, France, Germany, HongKong, Italy, Netherlands, Russia, Spain, Sweden, Taiwan, created, updated, MV_Group_Criteria, MV_Volume_Number, Publisher, Hu, Gr, Found_In) SELECT Apply, Content, Note, Note_HighPriority, Year, Bios, Hack, Trainer, Version, Prototype, Beta, Translation, Alt, Unlicensed, Good, Bad, Fixed, Overdump, Pirated, Alpha, Kiosk, Sample, En, Ja, Fr, De, Es, It, Nl, Pt, Sv, No, Da, Fi, Zh, Ko, Pl, NTSC, PAL, World, Europe, USA, Australia, Japan, Korea, China, Asia, Brazil, Canada, France, Germany, HongKong, Italy, Netherlands, Russia, Spain, Sweden, Taiwan, created, updated, MV_Group_Criteria, MV_Volume_Number, Publisher, Hu, Gr, Found_In FROM main.tbl_Tag_Parser", tran) + + tran.Commit() + + DevExpress.XtraEditors.XtraMessageBox.Show("Re-Sync to Rombase successful.", "Re-Sync successful", MessageBoxButtons.OK, MessageBoxIcon.Information) + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Exception: " & ex.Message) + tran.Rollback() + End Try + End Using + End Sub + + Private Sub btn_Mame_Config_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Mame_Config.Click + Using frm As New frm_Mame_Config + If frm.ShowDialog(Me.ParentForm) <> DialogResult.Cancel Then + RaiseEvent E_Rom_Manager_Changed() + End If + End Using + End Sub + + Private Sub btn_DOSBox_Templates_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_DOSBox_Templates.Click + Using frm As New frm_DOSBox_Templates + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_J2K_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_J2K.Click + Dim j2k_path As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse to your J2K Installation", "(J2K.exe)|J2K.exe", ParentForm:=Me.ParentForm) + If Alphaleonis.Win32.Filesystem.File.Exists(j2k_path) Then + Me.DS_J2K.Clear() + Try + Dim fv As FileVersionInfo = FileVersionInfo.GetVersionInfo(j2k_path) + If fv.ProductName.ToLower = "j2k" Then + 'All Good + txb_J2K.Focus() + Me.txb_J2K.EditValue = j2k_path + txb_J2K.DoValidate() + btn_J2K.Focus() + + 'Fill the J2K Config DS + Dim Config_Old As Object = Nothing + If BS_J2K.Current IsNot Nothing AndAlso Not TC.IsNullNothingOrEmpty(cmb_J2K_Config.EditValue) Then + Config_Old = BS_J2K.Current("ConfigName") + End If + + If cmb_J2K_Config.EditValue Is DBNull.Value OrElse cmb_J2K_Config.EditValue Is Nothing Then + Config_Old = DBNull.Value + End If + + cls_Settings.Fill_J2K_DS(Me.DS_J2K, j2k_path) + + If TC.NZ(Config_Old, "") <> "" Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_J2K, "ConfigName", Config_Old) + Try + cmb_J2K_Config.EditValue = BS_J2K.Current("id_Config") + Catch ex As Exception + + End Try + Else + cmb_J2K_Config.EditValue = DBNull.Value + End If + + If Config_Old Is DBNull.Value OrElse Config_Old Is Nothing Then + cmb_J2K_Config.EditValue = DBNull.Value + End If + Else + DevExpress.XtraEditors.XtraMessageBox.Show("The file you selected cannot be recognized as J2K.") + Return + End If + Catch ex As Exception + DevExpress.XtraEditors.XtraMessageBox.Show("Error while reading " & j2k_path & ". The error was:" & ControlChars.CrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End Try + End If + End Sub + + Private Sub cmb_J2K_Config_ButtonPressed(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_J2K_Config.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + cmb_J2K_Config.EditValue = DBNull.Value + End If + End Sub + + Private Sub btn_RombaseCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_RombaseCheck.Click + 'frm_Rom_Manager.Get_and_Apply_id_Rombase(cls_Globals.Conn.BeginTransaction, Nothing, 653677) + End Sub + + Private Sub btn_Platform_Settings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Platform_Settings.Click + Using frm As New frm_Moby_Platforms_Configuration + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_Refresh_Caches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Refresh_Caches.Click + Me.Cursor = Cursors.WaitCursor + + Try + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Update_tbl_Emu_Games_Caches(tran) + tran.Commit() + End Using + + DevExpress.XtraEditors.XtraMessageBox.Show("Caches have been successfully refreshed.") + Catch ex As Exception + + End Try + + Me.Cursor = Cursors.Default + End Sub + + Private Sub btn_Users_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Users.Click + If Not cls_Globals.MultiUserMode Then + 'Initial Setup + If DevExpress.XtraEditors.XtraMessageBox.Show("Multi User Mode allows you to define more than one user for Metropolis Launcher. Each user can be given a password. It is also possible to restict any user to certain pre-selected games (parental control *hint*hint*)." & ControlChars.CrLf & ControlChars.CrLf & "If you click 'yes', you will enable Multi User mode and an unrestricted user 'Admin' will be created. It is strongly advised to define a password for this user.", "Enable Multi User Mode", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + If Not DataAccess.FireProcedure(cls_Globals.Conn, 0, "INSERT INTO tbl_Users (Admin, Username, Restricted) VALUES (1, 'Admin', 0)") Then + DevExpress.XtraEditors.XtraMessageBox.Show("Enabling Multi User Mode was not possible, please try again after restarting Metropolis Launcher. If the problem still persists, please contact the developer.", "Enable Multi User Mode", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + cls_Globals.MultiUserMode = True + cls_Globals.id_Users = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Users FROM tbl_Users WHERE Admin = 1") + cls_Globals.Restricted = False + btn_Users.Text = "Setup" + Else + Return + End If + End If + + Using frm As New frm_Users_Setup + frm.ShowDialog(Me.ParentForm) + End Using + End Sub + + Private Sub btn_Password_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Password.Click + Dim DS_ML As New DS_ML + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_Users(tran, DS_ML.tbl_Users, cls_Globals.id_Users, False) + End Using + + Dim row As DataRow = DS_ML.tbl_Users.Select("id_Users = " & cls_Globals.id_Users)(0) + + Using frm As New frm_Users_Edit(New DS_ML.tbl_UsersDataTable, cls_Globals.id_Users, frm_Users_Edit.enm_EditMode.Password) + frm.txb_Username.EditValue = row("Username") + frm.lbl_Restricted.Enabled = Not TC.NZ(row("Admin"), False) + frm.chb_Restricted.Enabled = Not TC.NZ(row("Admin"), False) + frm.chb_Restricted.Checked = TC.NZ(row("Restricted"), False) + frm.chb_Password.Checked = True + frm.chb_Password.Visible = False + + frm.lbl_Password.SuperTip = Nothing + frm.txb_Password.SuperTip = Nothing + + frm.lbl_Username.SuperTip = Nothing + frm.txb_Username.SuperTip = Nothing + + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + 'row("Username") = frm.txb_Username.EditValue + row("Password") = IIf(frm.chb_Password.Checked, IIf(frm.txb_Password.Text.Length > 0, cls_Globals.Encode_Password(frm.txb_Password.EditValue), DBNull.Value), row("Password")) + 'row("Restricted") = frm.chb_Restricted.Checked + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_Users(tran, DS_ML.tbl_Users) + tran.Commit() + End Using + End If + End Using + End Sub + + Private _sem_Handle_Textboxes_EditValueChanged As Boolean = False + + Private Sub Handle_Textboxes_EditValueChanged(sender As Object, e As EventArgs) Handles txb_Temp_Dir.EditValueChanged, txb_Screenshot_Dir.EditValueChanged, txb_J2K.EditValueChanged, txb_DOSBox_Working_Directory.EditValueChanged, txb_Dir_Extras.EditValueChanged, txb_Backup_Dir.EditValueChanged + If _sem_Handle_Textboxes_EditValueChanged Then Return + + If sender Is txb_Dir_Extras Then + txb_Dir_Extras.DoValidate() + End If + If sender Is txb_Screenshot_Dir Then + txb_Screenshot_Dir.DoValidate() + End If + If sender Is txb_Temp_Dir Then + txb_Temp_Dir.DoValidate() + End If + If sender Is txb_DOSBox_Working_Directory Then + txb_DOSBox_Working_Directory.DoValidate() + End If + + Save_Settings() + End Sub + + Private Sub Handle_Textboxes_EditValueChanging(sender As Object, e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles txb_Temp_Dir.EditValueChanging, txb_Screenshot_Dir.EditValueChanging, txb_J2K.EditValueChanging, txb_DOSBox_Working_Directory.EditValueChanging, txb_Dir_Extras.EditValueChanging, txb_Backup_Dir.EditValueChanging + If _sem_Handle_Textboxes_EditValueChanged Then Return + + If sender Is txb_Dir_Extras Then + If Alphaleonis.Win32.Filesystem.Directory.Exists(e.NewValue) Then + cls_Globals.Dir_Extras = e.NewValue + End If + Handle_Directory_Textboxes_Validating(txb_Dir_Extras, Nothing, e.NewValue) + End If + If sender Is txb_Screenshot_Dir Then + If Alphaleonis.Win32.Filesystem.Directory.Exists(e.NewValue) Then + cls_Globals.Dir_Screenshot = e.NewValue + End If + Handle_Directory_Textboxes_Validating(txb_Screenshot_Dir, Nothing, e.NewValue) + End If + If sender Is txb_Temp_Dir Then + Handle_Directory_Textboxes_Validating(txb_Temp_Dir, Nothing, e.NewValue) + End If + If sender Is txb_DOSBox_Working_Directory Then + Handle_Directory_Textboxes_Validating(txb_DOSBox_Working_Directory, Nothing, e.NewValue) + End If + End Sub + + Private Sub txb_J2K_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles txb_J2K.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + txb_J2K.Text = "" + End If + End Sub +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Todo.Designer.vb b/Metropolis_Launcher/Pages/ucr_Todo.Designer.vb new file mode 100644 index 0000000..9fc46bb --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Todo.Designer.vb @@ -0,0 +1,33 @@ + _ +Partial Class ucr_Todo + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Sie kann mit dem Windows Form-Designer geändert werden. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'ucr_Todo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.Name = "ucr_Todo" + Me.Size = New System.Drawing.Size(800, 600) + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Metropolis_Launcher/Pages/ucr_Todo.resx b/Metropolis_Launcher/Pages/ucr_Todo.resx new file mode 100644 index 0000000..7080a7d --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Todo.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Todo.vb b/Metropolis_Launcher/Pages/ucr_Todo.vb new file mode 100644 index 0000000..213440d --- /dev/null +++ b/Metropolis_Launcher/Pages/ucr_Todo.vb @@ -0,0 +1,3 @@ +Public Class ucr_Todo + +End Class diff --git a/Metropolis_Launcher/Resources/helpmap.xml b/Metropolis_Launcher/Resources/helpmap.xml new file mode 100644 index 0000000..141ca57 --- /dev/null +++ b/Metropolis_Launcher/Resources/helpmap.xml @@ -0,0 +1,493 @@ + + ml.chm + http://emulation-evolved.net/mlhelp/ + +
    frm_Login
    + + + login.htm + login.htm +     + +
    frm_Main
    + + + welcome.htm + + +     + +
    frm_Main
    + ucr_Emulation;grd_Emu_Games + games__emulation_main_screen.htm + + +     + +
    frm_Moby_Platforms_Configuration
    + + + platform_settings.htm + + +     + +
    frm_FilterSet
    + + + edit_filterset.htm + + +     + +
    frm_Emu_Game_Rating_Weights_Edit
    + + + edit_rating_weights.htm + + +     + +
    frm_Moby_Developers_Info
    + + + developer_info.htm + + +     + +
    frm_Moby_Game_Group_Info
    + + + group_info.htm + + +     + +
    frm_Similarity_Calculation
    + + + find_similar_games.htm + find_similar_games.htm +     + +
    frm_Main
    + ucr_Apps + apps.htm + + +     + +
    frm_App_Edit
    + + + apps.htm + + +     + +
    frm_Main
    + ucr_Settings;cmb_Skin + settings.htm + + +     + +
    frm_Main
    + ucr_Settings + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Temp_Dir + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Dir_Extras + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Screenshot_Dir + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_DOSBox_Working_Directory + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_J2K + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;cmb_J2K_Config + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Users + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Password + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;chb_StatsEnable + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Platform_Settings + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_EmulatorSettings + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Rom_Manager + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_DOSBox_Templates + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Mame_Config + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Refresh_Caches + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_RomBase_Manager + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Movie_Manager + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;cmb_Moby_Platforms + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_MobyImport + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_MobyImport_with_Groups + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_Moby_Update + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_MobyGamesTest + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_ReSync + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;font_Grid + settings.htm + + +     + +
    frm_Main
    + ucr_Settings;btn_RombaseCheck + settings.htm + + +     + +
    frm_Emulators
    + + + emulator_settings.htm + + +     + +
    frm_Rom_Manager
    + + + rom_manager.htm + + +     + +
    frm_Users_Setup
    + + + setup_users_multi_user_mode.htm + + +     + +
    frm_Users_Edit_P
    + + + change_password.htm + + +     + +
    frm_Emu_Game_Edit
    + + + edit_game.htm + + +     + +
    frm_DOSBox_Templates
    + + + dosbox_templates.htm + + +     + +
    frm_Mame_Config
    + + + m_a_m_e__configuration.htm + + +     + +
    frm_ROMBase_Manager
    + + + rombase_manager.htm + + +     + +
    frm_Tag_Parser_Edit
    + + + tag_parser_settings.htm + + +     + +
    frm_About
    + + + about.htm + + +     + +
    frm_DOSBox_Choose_Exe
    + + + dosbox___choose_exe.htm + + +     + +
    frm_DOSBox_Choose_NIC
    + + + choose_network_interface.htm + + +     + +
    frm_Emu_Game_Edit_GenreDescription
    + + + description_window.htm + + +     + +
    frm_Emu_Game_Screenshotviewer
    + + + extras_manager.htm + + +     + +
    frm_Screenshot_Edit
    + + + edit_image.htm + + +     + +
    frm_Emu_Game_Screenshotviewer_ADD
    + + + new_screenshots.htm + + +     + +
    frm_Emu_ImageSettings
    + + + viewer_settings.htm + + +     + +
    frm_Moby_Auto_Link_Options
    + + + detect_mobygames_links_filter_.htm + + +     + +
    frm_Rom_Manager_ChangeDirectory
    + + + change_directory.htm + + +     + +
    frm_Search_Missing_Extras
    + + + search_for_missing_extras.htm + + +     + +
    frm_Similarity_Calculation_Config_Edit
    + + + edit_similarity_calculation_co.htm + + +     + +
    frm_Similarity_Calculation_Details
    + + + similarity_calculation_details.htm + + +     + +
    frm_Users_Edit
    + + + edit_user.htm + + +     + +
    frm_Description
    + + + description_window.htm + + +     + +
    frm_Export
    + + + export_games.htm + + +     + +
    frm_Moby_Auto_Link
    + + + detect_mobygames_links.htm + + +     + +
    frm_Rescan_Options
    + + + rescan_options.htm + + +     +     \ No newline at end of file diff --git a/Metropolis_Launcher/Resources/pen_white.png b/Metropolis_Launcher/Resources/pen_white.png new file mode 100644 index 0000000..6f32f07 Binary files /dev/null and b/Metropolis_Launcher/Resources/pen_white.png differ diff --git a/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.Designer.vb b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.Designer.vb new file mode 100644 index 0000000..2d2f5cd --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.Designer.vb @@ -0,0 +1,9981 @@ + _ +Partial Class ucr_DOSBox_Config + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem2 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip4 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip3 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem3 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucr_DOSBox_Config)) + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip11 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem15 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem15 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem17 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem18 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem20 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip19 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem19 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip21 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem21 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem23 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip26 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip28 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip29 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip30 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem31 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem37 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem37 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem36 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem39 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem38 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem38 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip41 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem41 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem41 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem40 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem43 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem42 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem46 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem46 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem45 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem44 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip48 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem48 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem48 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip47 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem47 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem47 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip50 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem50 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem50 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip49 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem49 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem49 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip52 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem52 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem52 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip51 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem51 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem51 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip54 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem54 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem54 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip53 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem53 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem53 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip56 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem56 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem56 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip55 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem55 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem55 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip58 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem58 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem58 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip57 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem57 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem57 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip60 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem60 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem60 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip63 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem63 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem63 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip62 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem62 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem62 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip59 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem59 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem59 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip61 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem61 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem61 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip64 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem64 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem64 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip66 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem66 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip65 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem65 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip68 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem68 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem66 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip67 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem67 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem65 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip70 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem70 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem68 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip69 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem69 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem67 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip72 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem72 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem70 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip71 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem71 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem69 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip74 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem74 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem72 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip73 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem73 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem71 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip76 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem76 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem74 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip75 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem75 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem73 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip78 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem78 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem76 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip77 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem77 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem75 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip80 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem80 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem78 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip79 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem79 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem77 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip82 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem82 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem80 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip81 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem81 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem79 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip84 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem84 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem82 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip83 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem83 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem81 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip86 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem86 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem84 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip85 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem85 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem83 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip88 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem88 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem86 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip87 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem87 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem85 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip90 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem90 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem88 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip89 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem89 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem87 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip92 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem92 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem90 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip91 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem91 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem89 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip93 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem93 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem91 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip94 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem94 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem92 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip95 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem95 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem93 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip96 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem96 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem94 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip97 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem97 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem95 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip98 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem98 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem96 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip99 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem99 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem97 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip100 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem100 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem98 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip101 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem101 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem99 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip102 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem102 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem100 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip103 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem103 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem101 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip104 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem104 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem102 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip105 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem105 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem103 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip106 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem106 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem104 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip107 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem107 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem105 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip108 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem108 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem106 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip109 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem109 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem107 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip110 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem110 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem108 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip111 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem111 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem109 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip112 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem112 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem110 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip113 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem113 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem111 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip114 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem114 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem112 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip115 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem115 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem113 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip116 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem116 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem114 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip117 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem117 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem115 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip118 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem118 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem116 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip119 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem119 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem117 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip120 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem120 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem118 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip122 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem122 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem120 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip121 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem121 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem119 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip124 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem124 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem122 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip123 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem123 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem121 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip126 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem126 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem124 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip125 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem125 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem123 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip128 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem128 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem126 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip127 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem127 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem125 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip130 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem130 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem128 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip129 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem129 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem127 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip132 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem132 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem130 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip131 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem131 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem129 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip134 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem134 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem132 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip133 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem133 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem131 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip136 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem136 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem134 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip135 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem135 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem133 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip138 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem138 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem136 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip137 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem137 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem135 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip140 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem140 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem138 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip139 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem139 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem137 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip142 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem142 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem140 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip141 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem141 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem139 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip144 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem144 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem142 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip143 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem143 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem141 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip146 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem146 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem144 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip145 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem145 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem143 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip148 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem148 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem146 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip147 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem147 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem145 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip150 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem150 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem148 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip149 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem149 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem147 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip152 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem152 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem150 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip151 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem151 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem149 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip154 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem154 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem152 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip153 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem153 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem151 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip156 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem156 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem154 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip155 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem155 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem153 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip158 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem158 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem156 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip157 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem157 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem155 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip160 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem160 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem158 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip159 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem159 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem157 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip162 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem162 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem160 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip161 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem161 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem159 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip164 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem164 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem162 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip163 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem163 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem161 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip166 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem166 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem164 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip165 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem165 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem163 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip168 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem168 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem166 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip167 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem167 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem165 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip170 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem170 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem168 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip169 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem169 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem167 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip171 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem171 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem169 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip173 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem173 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem171 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip172 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem172 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem170 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip176 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem176 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem174 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip175 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem175 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem173 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip174 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem174 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem172 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip177 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem177 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem175 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip179 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem179 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem177 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip178 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem178 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem176 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip180 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem180 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem178 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip181 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem181 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem179 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip182 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem182 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem180 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip183 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem183 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem181 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip184 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem184 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem182 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip185 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem185 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem183 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip187 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem187 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem185 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip186 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem186 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem184 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip190 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem190 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem188 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip189 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem189 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem187 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip188 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem188 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem186 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip191 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem191 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem189 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip193 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem193 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem191 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip192 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem192 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem190 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip195 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem195 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem193 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip194 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem194 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem192 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip197 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem197 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem195 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip196 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem196 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem194 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip199 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem199 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem197 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip198 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem198 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem196 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip201 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem201 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem199 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip200 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem200 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem198 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip202 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem202 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem200 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip203 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem203 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem201 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip205 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem205 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem203 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip204 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem204 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem202 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip207 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem207 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem205 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip206 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem206 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem204 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip209 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem209 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem207 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip208 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem208 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem206 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip211 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem211 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem209 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip210 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem210 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem208 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip213 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem213 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem211 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip212 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem212 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem210 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip214 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem214 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem212 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip215 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem215 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem213 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip217 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem217 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem215 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip216 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem216 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem214 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip219 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem219 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip218 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem218 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip221 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem221 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem217 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip220 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem220 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem216 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip223 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem223 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip222 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem222 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip225 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem225 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem219 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip224 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem224 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem218 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip227 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem227 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem221 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip226 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem226 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem220 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip229 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem229 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem223 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip228 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem228 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem222 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip231 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem231 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem225 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip230 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem230 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem224 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip233 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem233 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem227 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip232 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem232 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem226 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip235 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem235 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem229 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip234 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem234 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem228 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip237 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem237 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem231 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip236 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem236 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem230 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip239 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem239 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem233 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip238 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem238 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem232 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip240 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem240 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem234 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip241 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem241 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem235 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip243 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem243 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem237 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip242 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem242 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem236 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip245 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem245 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem239 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip244 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem244 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem238 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip247 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem247 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem241 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip246 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem246 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem240 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip249 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem249 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem243 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip248 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem248 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem242 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip251 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem251 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem245 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip250 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem250 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem244 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip252 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem252 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem246 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip253 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem253 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem247 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Me.tcl_Dosbox_Config = New MKNetDXLib.ctl_MKDXTabControl() + Me.tpg_DOSBox_Settings = New DevExpress.XtraTab.XtraTabPage() + Me.chb_sdl_waitonerror = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.BS_DOSBox_Configs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.BS_Templates = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML_Templates = New Metropolis_Launcher.DS_ML() + Me.lbl_sdl_waitonerror = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_sdl_priority_2 = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_priorities = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_sdl_priority_1 = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_sdl_priority_1 = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.BTA_sdl_priority_2 = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_sdl_priority_2 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_sdl_priority_1 = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_autoexec_after = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_autoexec_before = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.lbl_autoexec_before = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_ml_customsettings = New MKNetDXLib.ctl_MKDXMemoEdit() + Me.lbl_ml_customsettings = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_dosbox_language = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_dosbox_language = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_ml_showconsole = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_ml_showconsole = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_ml_autoclose = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_ml_autoclose = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_dosbox_language = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.tpg_CPU = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_cpu_cycledown_unit = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_cpu_cycleup_unit = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_cpu_cycledown = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_cpu_cycledown = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_cpu_cycleup = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_cpu_cycleup = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_cpu_cycles_fixed = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.cmb_cpu_type = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_cpu_type = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_cpu_type = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_cpu_core = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_cpu_core = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_cpu_core = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.rb_cpu_cycles_fixed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.rb_cpu_cycles_max = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.rb_cpu_cycles_auto = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_cpu_cycles = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Memory = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_dosbox_memsize_unit = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_ml_loadfix = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_ml_loadfix = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_ml_useloadfix = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_ml_useloadfix = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_dos_umb = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_dos_umb = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_dos_ems = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_dos_ems = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_dos_xms = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_dos_xms = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_dosbox_memsize = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_dosbox_memsize = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Video = New DevExpress.XtraTab.XtraTabPage() + Me.chb_render_scaler_forced = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_render_scaler = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_render_scaler = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_render_scaler = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.spn_render_frameskip = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_render_frameskip = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_dosbox_machine = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_dosbox_machine = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_dosbox_machine = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sdl_output = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sdl_output = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sdl_output = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_render_aspect = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_render_aspect = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_sdl_fulldouble = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_sdl_fulldouble = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_sdl_fullscreen = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_sdl_fullscreen = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_sdl_windowresolution = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_resolution = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_sdl_fullresolution = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_sdl_fullresolution = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.BTA_sdl_windowresolution = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_sdl_windowresolution = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_sdl_fullresolution = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Keyboard = New DevExpress.XtraTab.XtraTabPage() + Me.btn_sdl_mapperfile = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.spn_sdl_sensitivity = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_sdl_sensitivity = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_sdl_autolock = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_sdl_autolock = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_sdl_mapperfile = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_sdl_mapperfile = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_dos_keyboardlayout = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_dos_keyboardlayout = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_dos_keyboardlayout = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_sdl_usescancodes = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_sdl_usescancodes = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Sound = New DevExpress.XtraTab.XtraTabPage() + Me.spn_mixer_prebuffer = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_mixer_prebuffer = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_speaker_tandyrate = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_speaker_tandyrate = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_speaker_tandyrate = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_speaker_pcrate = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_speaker_pcrate = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_speaker_pcrate = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_speaker_tandy = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_speaker_tandy = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_speaker_tandy = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_speaker_disney = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_speaker_disney = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_speaker_pcspeaker = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_speaker_pcspeaker = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_mixer_blocksize = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_mixer_blocksize = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_mixer_blocksize = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_mixer_rate = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_mixer_rate = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_mixer_samplerate = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_mixer_nosound = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_mixer_nosound = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Volume = New DevExpress.XtraTab.XtraTabPage() + Me.gb_PC_Speaker_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_spkr_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel17 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_spkr_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_spkr_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel20 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_spkr_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_CD_Audio_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_cdaudio_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel33 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_cdaudio_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_cdaudio_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel36 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_cdaudio_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_FM_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_fm_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel29 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_fm_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_fm_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel32 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_fm_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_GUS_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_gus_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel25 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_gus_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_gus_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel28 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_gus_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_Sound_Blaster_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_sb_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel21 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_sb_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_sb_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel24 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_sb_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_Disney_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_disney_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel13 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_disney_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_disney_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel16 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_disney_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.gb_Master_Volume = New MKNetDXLib.ctl_MKDXGroupBox() + Me.tb_ml_volume_master_left = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.Ctl_MKDXLabel10 = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_master_right = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_ml_volume_master_left = New MKNetDXLib.ctl_MKDXLabel() + Me.Ctl_MKDXLabel9 = New MKNetDXLib.ctl_MKDXLabel() + Me.tb_ml_volume_master_right = New MKNetDXLib.ctl_MKDXTrackBarControl() + Me.tpg_Sound_Blaster = New DevExpress.XtraTab.XtraTabPage() + Me.cmb_sblaster_oplrate = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.Ctl_MKDXLabel4 = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_oplrate = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_oplemu = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_oplemu = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_oplemu = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_oplmode = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_oplmode = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_oplmode = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_hdma = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_hdma = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_hdma = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_dma = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_dma = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_dma = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_irq = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_irq = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_irq = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_sbbase = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_sbbase = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_sbbase = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_sblaster_sbtype = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_sblaster_sbtype = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_sblaster_sbtype = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_sblaster_sbmixer = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_sblaster_sbmixer = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_GUS = New DevExpress.XtraTab.XtraTabPage() + Me.txb_gus_ultradir = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_gus_ultradir = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_gus_gusdma = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_gus_gusdma = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_gus_gusdma = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_gus_gusirq = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_gus_gusirq = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_gus_gusirq = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_gus_gusbase = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_gus_gusbase = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_gus_gusbase = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_gus_gusrate = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_gus_gusrate = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_gus_gusrate = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_gus_gus = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_gus_gus = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_MIDI = New DevExpress.XtraTab.XtraTabPage() + Me.txb_midi_midiconfig = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_midi_midiconfig = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_midi_mididevice = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_midi_mididevice = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_midi_mididevice = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_midi_mpu401 = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_midi_mpu401 = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_midi_mpu401 = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.tpg_Joystick = New DevExpress.XtraTab.XtraTabPage() + Me.cmb_joystick_joysticktype = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_joystick_joysticktype = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_joystick_joysticktype = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_joystick_buttonwrap = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_joystick_buttonwrap = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_joystick_swap34 = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_joystick_swap34 = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_joystick_autofire = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_joystick_autofire = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_joystick_timed = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_joystick_timed = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Mount_Options = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_mount_options = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Serial = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_serial_ports = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Serial1 = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_serial1 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Serial2 = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_serial2 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Serial3 = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_serial3 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Serial4 = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_serial4 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Patch_Options = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_patches = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_DOSBox_Settings_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_dosbox_settings = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_CPU_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.cmb_p_dosbox_pit_hack = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_dosbox_pit_hack = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_dosbox_pit_hack = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_cputype = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_cpu_cputype = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_cpu_cputype = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.tpg_Memory_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_dosbox_memsizekb2 = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_dosbox_memsizekb = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_dosbox_memsizekb = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Video_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.chb_p_glide_splash = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_glide_glide = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_p_glide_glide = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_p_glide_glide = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_p_dosbox_forcerate_specific = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_vsync_vsyncrate = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_vsync_vsyncrate = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_dosbox_forcerate_specific = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.btn_p_sdl_pixelshader_Clear = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.rb_p_dosbox_forcerate_specific = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.rb_p_dosbox_forcerate_pal = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.rb_p_dosbox_forcerate_ntsc = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.rb_p_dosbox_forcerate_disabled = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_p_render_autofit = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_render_autofit = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_p_sdl_pixelshader_forced = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_sdl_pixelshader = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_p_sdl_pixelshader = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_p_sdl_pixelshader = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.cmb_p_glide_lfb = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_glide_lfb = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_glide_lfb = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_pci_voodoo = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_pci_voodoo = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_voodoo = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_vsync_vsyncmode = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_vsync_vsyncmode = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_vsync_vsyncmode = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_dosbox_vmemsize = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_dosbox_vmemsize = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_dosbox_vmemsize = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_render_scaler = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_render_scaler = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_render_scaler = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_p_dosbox_vmemsize_details = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_p_dosbox_forcerate = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_p_sdl_output = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_sdl_output = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_sdl_output = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.tpg_Sound_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.chb_p_mixer_swapstereo = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_mixer_swapstereo = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Sound_Blaster_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.chb_p_sblaster_goldplay = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_sblaster_goldplay = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_p_sblaster_hardwarebase = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_sblaster_hardwarebase = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_sblaster_hardwarebase = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_sblaster_oplmode = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_sblaster_oplmode = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_sblaster_oplmode = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_sblaster_sbtype = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_sblaster_sbtype = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_MIDI_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.spn_p_midi_mt32_partials = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_midi_mt32_partials = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_midi_mt32_reverb_level = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_midi_mt32_reverb_level = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_midi_mt32_reverb_time = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_midi_mt32_reverb_time = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_p_midi_mt32_reverb_mode = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_midi_mt32_reverb_mode = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_midi_mt32_reverb_mode = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.cmb_p_midi_mt32_dac = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_midi_mt32_dac = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_midi_mt32_dac = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_p_midi_mt32_thread = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_midi_mt32_thread = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_p_midi_mt32_verbose = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_midi_mt32_verbose = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_p_midi_mt32_reverse_stereo = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_midi_mt32_reverse_stereo = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_p_midi_midiconfig = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_p_midi_midiconfig = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_p_midi_mididevice = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_midi_mididevice = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_midi_mididevice = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.tpg_SSI_2001_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_ssi2001 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_PS1_Audio_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_ps1audio = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Keyboard_Mouse_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.cmb_p_keyboard_auxdevice = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_p_keyboard_auxdevice = New MKNetDXLib.ctl_MKDXLabel() + Me.BTA_p_keyboard_auxdevice = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.chb_p_keyboard_aux = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_keyboard_aux = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_Parallel_Ports_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_parallelports = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_NE2000_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.btn_p_ne2000_realnic_clear = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_p_ne2000_realnic = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_p_ne2000_realnic = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_p_ne2000_realnic = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_p_ne2000_nicirq = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_p_ne2000_nicirq = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_p_ne2000_macaddr = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_p_ne2000_macaddr = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_p_ne2000_nicbase = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_p_ne2000_nicbase = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_p_ne2000_ne2000 = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_p_ne2000_ne2000 = New MKNetDXLib.ctl_MKDXLabel() + Me.tpg_IDE_Patches = New DevExpress.XtraTab.XtraTabPage() + Me.lbl_p_ide = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Top = New MKNetDXLib.ctl_MKDXPanel() + Me.cmb_Template = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_Template = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Save_Template = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.pnl_Bottom = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Cancel_Template = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.spltpnl_Main = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.tree_Pages = New MKNetDXLib.ctl_MKDXTreelist() + Me.colTabName = New DevExpress.XtraTreeList.Columns.TreeListColumn() + Me.BTA_Tabs = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataTable2 = New System.Data.DataTable() + Me.DataColumn4 = New System.Data.DataColumn() + Me.DataTable3 = New System.Data.DataTable() + Me.DataColumn5 = New System.Data.DataColumn() + Me.DataTable4 = New System.Data.DataTable() + Me.DataColumn6 = New System.Data.DataColumn() + Me.DataTable5 = New System.Data.DataTable() + Me.DataColumn7 = New System.Data.DataColumn() + Me.DataTable6 = New System.Data.DataTable() + Me.DataColumn8 = New System.Data.DataColumn() + Me.DataTable7 = New System.Data.DataTable() + Me.DataColumn9 = New System.Data.DataColumn() + Me.DataTable8 = New System.Data.DataTable() + Me.DataColumn10 = New System.Data.DataColumn() + Me.DataTable9 = New System.Data.DataTable() + Me.DataColumn11 = New System.Data.DataColumn() + Me.DataTable10 = New System.Data.DataTable() + Me.DataColumn12 = New System.Data.DataColumn() + Me.DataTable11 = New System.Data.DataTable() + Me.DataColumn13 = New System.Data.DataColumn() + Me.DataTable12 = New System.Data.DataTable() + Me.DataColumn14 = New System.Data.DataColumn() + Me.DataTable13 = New System.Data.DataTable() + Me.DataColumn15 = New System.Data.DataColumn() + Me.DataColumn16 = New System.Data.DataColumn() + Me.DataTable14 = New System.Data.DataTable() + Me.DataColumn17 = New System.Data.DataColumn() + Me.DataTable15 = New System.Data.DataTable() + Me.DataColumn18 = New System.Data.DataColumn() + Me.DataTable17 = New System.Data.DataTable() + Me.DataColumn20 = New System.Data.DataColumn() + Me.DataTable18 = New System.Data.DataTable() + Me.DataColumn21 = New System.Data.DataColumn() + Me.DataTable19 = New System.Data.DataTable() + Me.DataColumn22 = New System.Data.DataColumn() + Me.DataTable16 = New System.Data.DataTable() + Me.DataColumn19 = New System.Data.DataColumn() + Me.DataTable20 = New System.Data.DataTable() + Me.DataColumn23 = New System.Data.DataColumn() + Me.DataTable21 = New System.Data.DataTable() + Me.DataColumn24 = New System.Data.DataColumn() + Me.DataTable22 = New System.Data.DataTable() + Me.DataColumn25 = New System.Data.DataColumn() + Me.DataTable23 = New System.Data.DataTable() + Me.DataColumn26 = New System.Data.DataColumn() + Me.DataTable24 = New System.Data.DataTable() + Me.DataColumn27 = New System.Data.DataColumn() + Me.DataTable25 = New System.Data.DataTable() + Me.DataColumn28 = New System.Data.DataColumn() + Me.DataTable26 = New System.Data.DataTable() + Me.DataColumn29 = New System.Data.DataColumn() + Me.DataTable27 = New System.Data.DataTable() + Me.DataColumn30 = New System.Data.DataColumn() + Me.DataTable28 = New System.Data.DataTable() + Me.DataColumn31 = New System.Data.DataColumn() + Me.DataTable29 = New System.Data.DataTable() + Me.DataColumn32 = New System.Data.DataColumn() + Me.DataTable30 = New System.Data.DataTable() + Me.DataColumn33 = New System.Data.DataColumn() + Me.DataTable31 = New System.Data.DataTable() + Me.DataColumn34 = New System.Data.DataColumn() + Me.DataTable32 = New System.Data.DataTable() + Me.DataColumn35 = New System.Data.DataColumn() + Me.DataTable33 = New System.Data.DataTable() + Me.DataColumn36 = New System.Data.DataColumn() + Me.DataColumn37 = New System.Data.DataColumn() + Me.pnl_Top_Templates = New MKNetDXLib.ctl_MKDXPanel() + Me.txb_Template_Name = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Template_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.DataTable34 = New System.Data.DataTable() + Me.DataColumn38 = New System.Data.DataColumn() + Me.DataTable35 = New System.Data.DataTable() + Me.DataColumn39 = New System.Data.DataColumn() + Me.DataColumn40 = New System.Data.DataColumn() + Me.DataTable36 = New System.Data.DataTable() + Me.DataColumn41 = New System.Data.DataColumn() + Me.DataTable37 = New System.Data.DataTable() + Me.DataColumn42 = New System.Data.DataColumn() + Me.DataTable38 = New System.Data.DataTable() + Me.DataColumn43 = New System.Data.DataColumn() + Me.DataColumn44 = New System.Data.DataColumn() + Me.DataTable39 = New System.Data.DataTable() + Me.DataColumn45 = New System.Data.DataColumn() + Me.DataTable40 = New System.Data.DataTable() + Me.DataColumn46 = New System.Data.DataColumn() + Me.DataTable41 = New System.Data.DataTable() + Me.DataColumn47 = New System.Data.DataColumn() + Me.DataTable42 = New System.Data.DataTable() + Me.DataColumn48 = New System.Data.DataColumn() + Me.DataTable43 = New System.Data.DataTable() + Me.DataColumn49 = New System.Data.DataColumn() + Me.DataTable44 = New System.Data.DataTable() + Me.DataColumn50 = New System.Data.DataColumn() + Me.DataTable45 = New System.Data.DataTable() + Me.DataColumn51 = New System.Data.DataColumn() + Me.DataTable46 = New System.Data.DataTable() + Me.DataColumn52 = New System.Data.DataColumn() + Me.DataTable47 = New System.Data.DataTable() + Me.DataColumn53 = New System.Data.DataColumn() + Me.DataColumn54 = New System.Data.DataColumn() + Me.DataTable48 = New System.Data.DataTable() + Me.DataColumn55 = New System.Data.DataColumn() + Me.BS_DOSBox_Configs_Compare = New System.Windows.Forms.BindingSource(Me.components) + CType(Me.tcl_Dosbox_Config, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Dosbox_Config.SuspendLayout() + Me.tpg_DOSBox_Settings.SuspendLayout() + CType(Me.chb_sdl_waitonerror.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Configs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Templates, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML_Templates, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sdl_priority_2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sdl_priority_1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sdl_priority_1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sdl_priority_2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_autoexec_after.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_autoexec_before.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_ml_customsettings.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_dosbox_language.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_ml_showconsole.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_ml_autoclose.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_CPU.SuspendLayout() + CType(Me.spn_cpu_cycledown.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_cpu_cycleup.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_cpu_cycles_fixed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_cpu_type.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_cpu_type, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_cpu_core.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_cpu_core, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_cpu_cycles_fixed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_cpu_cycles_max.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_cpu_cycles_auto.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Memory.SuspendLayout() + CType(Me.spn_ml_loadfix.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_ml_useloadfix.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_dos_umb.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_dos_ems.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_dos_xms.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_dosbox_memsize.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Video.SuspendLayout() + CType(Me.chb_render_scaler_forced.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_render_scaler.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_render_scaler, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_render_frameskip.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_dosbox_machine.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_dosbox_machine, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sdl_output.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sdl_output, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_render_aspect.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_sdl_fulldouble.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_sdl_fullscreen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sdl_windowresolution.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sdl_fullresolution.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sdl_fullresolution, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sdl_windowresolution, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Keyboard.SuspendLayout() + CType(Me.spn_sdl_sensitivity.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_sdl_autolock.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_sdl_mapperfile.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_dos_keyboardlayout.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_dos_keyboardlayout, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_sdl_usescancodes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Sound.SuspendLayout() + CType(Me.spn_mixer_prebuffer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_speaker_tandyrate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_speaker_tandyrate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_speaker_pcrate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_speaker_pcrate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_speaker_tandy.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_speaker_tandy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_speaker_disney.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_speaker_pcspeaker.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_mixer_blocksize.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_mixer_blocksize, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_mixer_rate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_mixer_samplerate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_mixer_nosound.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Volume.SuspendLayout() + CType(Me.gb_PC_Speaker_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_PC_Speaker_Volume.SuspendLayout() + CType(Me.tb_ml_volume_spkr_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_spkr_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_spkr_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_spkr_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_CD_Audio_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_CD_Audio_Volume.SuspendLayout() + CType(Me.tb_ml_volume_cdaudio_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_cdaudio_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_cdaudio_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_cdaudio_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_FM_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_FM_Volume.SuspendLayout() + CType(Me.tb_ml_volume_fm_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_fm_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_fm_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_fm_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_GUS_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_GUS_Volume.SuspendLayout() + CType(Me.tb_ml_volume_gus_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_gus_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_gus_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_gus_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Sound_Blaster_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Sound_Blaster_Volume.SuspendLayout() + CType(Me.tb_ml_volume_sb_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_sb_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_sb_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_sb_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Disney_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Disney_Volume.SuspendLayout() + CType(Me.tb_ml_volume_disney_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_disney_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_disney_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_disney_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Master_Volume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Master_Volume.SuspendLayout() + CType(Me.tb_ml_volume_master_left, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_master_left.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_master_right, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.tb_ml_volume_master_right.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Sound_Blaster.SuspendLayout() + CType(Me.cmb_sblaster_oplrate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_oplrate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_oplemu.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_oplemu, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_oplmode.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_oplmode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_hdma.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_hdma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_dma.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_dma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_irq.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_irq, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_sbbase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_sbbase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_sblaster_sbtype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_sblaster_sbtype, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_sblaster_sbmixer.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_GUS.SuspendLayout() + CType(Me.txb_gus_ultradir.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_gus_gusdma.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_gus_gusdma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_gus_gusirq.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_gus_gusirq, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_gus_gusbase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_gus_gusbase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_gus_gusrate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_gus_gusrate, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_gus_gus.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_MIDI.SuspendLayout() + CType(Me.txb_midi_midiconfig.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_midi_mididevice.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_midi_mididevice, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_midi_mpu401.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_midi_mpu401, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Joystick.SuspendLayout() + CType(Me.cmb_joystick_joysticktype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_joystick_joysticktype, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_joystick_buttonwrap.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_joystick_swap34.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_joystick_autofire.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_joystick_timed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Mount_Options.SuspendLayout() + Me.tpg_Serial.SuspendLayout() + Me.tpg_Serial1.SuspendLayout() + Me.tpg_Serial2.SuspendLayout() + Me.tpg_Serial3.SuspendLayout() + Me.tpg_Serial4.SuspendLayout() + Me.tpg_Patch_Options.SuspendLayout() + Me.tpg_DOSBox_Settings_Patches.SuspendLayout() + Me.tpg_CPU_Patches.SuspendLayout() + CType(Me.cmb_p_dosbox_pit_hack.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_dosbox_pit_hack, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_cputype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_cpu_cputype, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Memory_Patches.SuspendLayout() + CType(Me.spn_p_dosbox_memsizekb.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Video_Patches.SuspendLayout() + CType(Me.chb_p_glide_splash.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_glide_glide.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_glide_glide, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_p_vsync_vsyncrate.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_p_dosbox_forcerate_specific.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_p_dosbox_forcerate_specific.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_p_dosbox_forcerate_pal.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_p_dosbox_forcerate_ntsc.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rb_p_dosbox_forcerate_disabled.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_render_autofit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_sdl_pixelshader_forced.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_p_sdl_pixelshader.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_glide_lfb.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_glide_lfb, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_pci_voodoo.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_voodoo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_vsync_vsyncmode.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_vsync_vsyncmode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_dosbox_vmemsize.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_dosbox_vmemsize, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_render_scaler.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_render_scaler, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_sdl_output.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_sdl_output, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Sound_Patches.SuspendLayout() + CType(Me.chb_p_mixer_swapstereo.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Sound_Blaster_Patches.SuspendLayout() + CType(Me.chb_p_sblaster_goldplay.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_sblaster_hardwarebase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_sblaster_hardwarebase, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_sblaster_oplmode.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_sblaster_oplmode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_sblaster_sbtype.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_MIDI_Patches.SuspendLayout() + CType(Me.spn_p_midi_mt32_partials.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_p_midi_mt32_reverb_level.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_p_midi_mt32_reverb_time.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_midi_mt32_reverb_mode.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_midi_mt32_reverb_mode, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_midi_mt32_dac.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_midi_mt32_dac, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_midi_mt32_thread.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_midi_mt32_verbose.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_midi_mt32_reverse_stereo.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_p_midi_midiconfig.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_p_midi_mididevice.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_midi_mididevice, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_SSI_2001_Patches.SuspendLayout() + Me.tpg_PS1_Audio_Patches.SuspendLayout() + Me.tpg_Keyboard_Mouse_Patches.SuspendLayout() + CType(Me.cmb_p_keyboard_auxdevice.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_p_keyboard_auxdevice, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_keyboard_aux.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_Parallel_Ports_Patches.SuspendLayout() + Me.tpg_NE2000_Patches.SuspendLayout() + CType(Me.txb_p_ne2000_realnic.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_p_ne2000_nicirq.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_p_ne2000_macaddr.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_p_ne2000_nicbase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_p_ne2000_ne2000.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tpg_IDE_Patches.SuspendLayout() + CType(Me.pnl_Top, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Top.SuspendLayout() + CType(Me.cmb_Template.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Bottom.SuspendLayout() + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() + Me.spltpnl_Main.SuspendLayout() + CType(Me.tree_Pages, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_Tabs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Top_Templates, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Top_Templates.SuspendLayout() + CType(Me.txb_Template_Name.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable35, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable36, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable37, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable38, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable39, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable40, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable41, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable42, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable43, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable44, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable45, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable46, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable47, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable48, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_DOSBox_Configs_Compare, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'tcl_Dosbox_Config + ' + Me.tcl_Dosbox_Config.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_Dosbox_Config.Location = New System.Drawing.Point(0, 0) + Me.tcl_Dosbox_Config.Name = "tcl_Dosbox_Config" + Me.tcl_Dosbox_Config.SelectedTabPage = Me.tpg_DOSBox_Settings + Me.tcl_Dosbox_Config.ShowTabHeader = DevExpress.Utils.DefaultBoolean.[True] + Me.tcl_Dosbox_Config.Size = New System.Drawing.Size(552, 462) + Me.tcl_Dosbox_Config.TabIndex = 0 + Me.tcl_Dosbox_Config.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_DOSBox_Settings, Me.tpg_CPU, Me.tpg_Memory, Me.tpg_Video, Me.tpg_Keyboard, Me.tpg_Sound, Me.tpg_Volume, Me.tpg_Sound_Blaster, Me.tpg_GUS, Me.tpg_MIDI, Me.tpg_Joystick, Me.tpg_Mount_Options, Me.tpg_Serial, Me.tpg_Serial1, Me.tpg_Serial2, Me.tpg_Serial3, Me.tpg_Serial4, Me.tpg_Patch_Options, Me.tpg_DOSBox_Settings_Patches, Me.tpg_CPU_Patches, Me.tpg_Memory_Patches, Me.tpg_Video_Patches, Me.tpg_Sound_Patches, Me.tpg_Sound_Blaster_Patches, Me.tpg_MIDI_Patches, Me.tpg_SSI_2001_Patches, Me.tpg_PS1_Audio_Patches, Me.tpg_Keyboard_Mouse_Patches, Me.tpg_Parallel_Ports_Patches, Me.tpg_NE2000_Patches, Me.tpg_IDE_Patches}) + ' + 'tpg_DOSBox_Settings + ' + Me.tpg_DOSBox_Settings.Controls.Add(Me.chb_sdl_waitonerror) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_sdl_waitonerror) + Me.tpg_DOSBox_Settings.Controls.Add(Me.cmb_sdl_priority_2) + Me.tpg_DOSBox_Settings.Controls.Add(Me.cmb_sdl_priority_1) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_sdl_priority_2) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_sdl_priority_1) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_priorities) + Me.tpg_DOSBox_Settings.Controls.Add(Me.txb_autoexec_after) + Me.tpg_DOSBox_Settings.Controls.Add(Me.txb_autoexec_before) + Me.tpg_DOSBox_Settings.Controls.Add(Me.txb_ml_customsettings) + Me.tpg_DOSBox_Settings.Controls.Add(Me.txb_dosbox_language) + Me.tpg_DOSBox_Settings.Controls.Add(Me.Ctl_MKDXLabel1) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_autoexec_before) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_ml_customsettings) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_dosbox_language) + Me.tpg_DOSBox_Settings.Controls.Add(Me.chb_ml_showconsole) + Me.tpg_DOSBox_Settings.Controls.Add(Me.chb_ml_autoclose) + Me.tpg_DOSBox_Settings.Controls.Add(Me.btn_dosbox_language) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_ml_showconsole) + Me.tpg_DOSBox_Settings.Controls.Add(Me.lbl_ml_autoclose) + Me.tpg_DOSBox_Settings.Name = "tpg_DOSBox_Settings" + Me.tpg_DOSBox_Settings.Size = New System.Drawing.Size(546, 434) + Me.tpg_DOSBox_Settings.Text = "DOSBox Settings" + ' + 'chb_sdl_waitonerror + ' + Me.chb_sdl_waitonerror.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-waitonerror", True)) + Me.chb_sdl_waitonerror.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-waitonerror", True)) + Me.chb_sdl_waitonerror.Location = New System.Drawing.Point(123, 118) + Me.chb_sdl_waitonerror.MKBoundLabel = Me.lbl_sdl_waitonerror + Me.chb_sdl_waitonerror.MKEditValue_Compare = Nothing + Me.chb_sdl_waitonerror.Name = "chb_sdl_waitonerror" + Me.chb_sdl_waitonerror.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.chb_sdl_waitonerror.Properties.Appearance.Options.UseFont = True + Me.chb_sdl_waitonerror.Properties.Caption = "" + Me.chb_sdl_waitonerror.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem2.Text = "Wait on Error" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Wait before closing the console if dosbox has an error." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.chb_sdl_waitonerror.SuperTip = SuperToolTip2 + Me.chb_sdl_waitonerror.TabIndex = 8 + ' + 'BS_DOSBox_Configs + ' + Me.BS_DOSBox_Configs.DataMember = "tbl_DOSBox_Configs" + Me.BS_DOSBox_Configs.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Templates + ' + Me.BS_Templates.DataMember = "tbl_DOSBox_Configs" + Me.BS_Templates.DataSource = Me.DS_ML_Templates + ' + 'DS_ML_Templates + ' + Me.DS_ML_Templates.DataSetName = "DS_ML" + Me.DS_ML_Templates.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_sdl_waitonerror + ' + Me.lbl_sdl_waitonerror.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_waitonerror.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_waitonerror.Location = New System.Drawing.Point(3, 117) + Me.lbl_sdl_waitonerror.MKBoundControl1 = Me.chb_sdl_waitonerror + Me.lbl_sdl_waitonerror.MKBoundControl2 = Nothing + Me.lbl_sdl_waitonerror.MKBoundControl3 = Nothing + Me.lbl_sdl_waitonerror.MKBoundControl4 = Nothing + Me.lbl_sdl_waitonerror.MKBoundControl5 = Nothing + Me.lbl_sdl_waitonerror.Name = "lbl_sdl_waitonerror" + Me.lbl_sdl_waitonerror.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem1.Text = "Wait on Error" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Wait before closing the console if dosbox has an error." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_sdl_waitonerror.SuperTip = SuperToolTip1 + Me.lbl_sdl_waitonerror.TabIndex = 26 + Me.lbl_sdl_waitonerror.Text = "Wait on Error:" + ' + 'cmb_sdl_priority_2 + ' + Me.cmb_sdl_priority_2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-priority_2", True)) + Me.cmb_sdl_priority_2.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-priority_2", True)) + Me.cmb_sdl_priority_2.Location = New System.Drawing.Point(123, 95) + Me.cmb_sdl_priority_2.MKBoundLabel = Me.lbl_priorities + Me.cmb_sdl_priority_2.MKEditValue_Compare = Nothing + Me.cmb_sdl_priority_2.Name = "cmb_sdl_priority_2" + Me.cmb_sdl_priority_2.Properties.AllowFocused = False + Me.cmb_sdl_priority_2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sdl_priority_2.Properties.DataSource = Me.BTA_sdl_priority_2 + Me.cmb_sdl_priority_2.Properties.DisplayMember = "value" + Me.cmb_sdl_priority_2.Properties.NullText = "" + Me.cmb_sdl_priority_2.Properties.ShowFooter = False + Me.cmb_sdl_priority_2.Properties.ShowHeader = False + Me.cmb_sdl_priority_2.Properties.ValueMember = "value" + Me.cmb_sdl_priority_2.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem5.Text = "Process Priorities when out of focus / minimized" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "The process priority for dosbox when out of focus or minimized." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.cmb_sdl_priority_2.SuperTip = SuperToolTip5 + Me.cmb_sdl_priority_2.TabIndex = 6 + ' + 'lbl_priorities + ' + Me.lbl_priorities.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_priorities.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_priorities.Location = New System.Drawing.Point(3, 72) + Me.lbl_priorities.MKBoundControl1 = Me.cmb_sdl_priority_1 + Me.lbl_priorities.MKBoundControl2 = Me.cmb_sdl_priority_2 + Me.lbl_priorities.MKBoundControl3 = Nothing + Me.lbl_priorities.MKBoundControl4 = Nothing + Me.lbl_priorities.MKBoundControl5 = Nothing + Me.lbl_priorities.Name = "lbl_priorities" + Me.lbl_priorities.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem4.Text = "Process Priorities" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Priority levels for dosbox." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.lbl_priorities.SuperTip = SuperToolTip4 + Me.lbl_priorities.TabIndex = 23 + Me.lbl_priorities.Text = "Process Priorities:" + ' + 'cmb_sdl_priority_1 + ' + Me.cmb_sdl_priority_1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-priority_1", True)) + Me.cmb_sdl_priority_1.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-priority_1", True)) + Me.cmb_sdl_priority_1.Location = New System.Drawing.Point(123, 72) + Me.cmb_sdl_priority_1.MKBoundLabel = Me.lbl_priorities + Me.cmb_sdl_priority_1.MKEditValue_Compare = Nothing + Me.cmb_sdl_priority_1.Name = "cmb_sdl_priority_1" + Me.cmb_sdl_priority_1.Properties.AllowFocused = False + Me.cmb_sdl_priority_1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sdl_priority_1.Properties.DataSource = Me.BTA_sdl_priority_1 + Me.cmb_sdl_priority_1.Properties.DisplayMember = "value" + Me.cmb_sdl_priority_1.Properties.NullText = "" + Me.cmb_sdl_priority_1.Properties.ShowFooter = False + Me.cmb_sdl_priority_1.Properties.ShowHeader = False + Me.cmb_sdl_priority_1.Properties.ValueMember = "value" + Me.cmb_sdl_priority_1.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem3.Text = "Process Priority when focussed" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "The process priority for dosbox when focussed." + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.cmb_sdl_priority_1.SuperTip = SuperToolTip3 + Me.cmb_sdl_priority_1.TabIndex = 4 + ' + 'BTA_sdl_priority_1 + ' + Me.BTA_sdl_priority_1.AllowDelete = True + Me.BTA_sdl_priority_1.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sdl_priority_1.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sdl_priority_1.Connection = Nothing + Me.BTA_sdl_priority_1.DSStream = CType(resources.GetObject("BTA_sdl_priority_1.DSStream"), System.IO.MemoryStream) + Me.BTA_sdl_priority_1.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sdl_priority_1.FillString = "highest;higher;normal;lower;lowest" + Me.BTA_sdl_priority_1.Position = 0 + Me.BTA_sdl_priority_1.Transaction = Nothing + Me.BTA_sdl_priority_1.UpdateTablesStream = CType(resources.GetObject("BTA_sdl_priority_1.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'BTA_sdl_priority_2 + ' + Me.BTA_sdl_priority_2.AllowDelete = True + Me.BTA_sdl_priority_2.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sdl_priority_2.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sdl_priority_2.Connection = Nothing + Me.BTA_sdl_priority_2.DSStream = CType(resources.GetObject("BTA_sdl_priority_2.DSStream"), System.IO.MemoryStream) + Me.BTA_sdl_priority_2.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sdl_priority_2.FillString = "highest;higher;normal;lower;lowest;pause" + Me.BTA_sdl_priority_2.Position = 0 + Me.BTA_sdl_priority_2.Transaction = Nothing + Me.BTA_sdl_priority_2.UpdateTablesStream = CType(resources.GetObject("BTA_sdl_priority_2.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_sdl_priority_2 + ' + Me.lbl_sdl_priority_2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_sdl_priority_2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_priority_2.Location = New System.Drawing.Point(233, 95) + Me.lbl_sdl_priority_2.MKBoundControl1 = Nothing + Me.lbl_sdl_priority_2.MKBoundControl2 = Nothing + Me.lbl_sdl_priority_2.MKBoundControl3 = Nothing + Me.lbl_sdl_priority_2.MKBoundControl4 = Nothing + Me.lbl_sdl_priority_2.MKBoundControl5 = Nothing + Me.lbl_sdl_priority_2.Name = "lbl_sdl_priority_2" + Me.lbl_sdl_priority_2.Size = New System.Drawing.Size(120, 20) + Me.lbl_sdl_priority_2.TabIndex = 7 + Me.lbl_sdl_priority_2.Text = "out of focus / minimized" + ' + 'lbl_sdl_priority_1 + ' + Me.lbl_sdl_priority_1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_sdl_priority_1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_priority_1.Location = New System.Drawing.Point(233, 72) + Me.lbl_sdl_priority_1.MKBoundControl1 = Nothing + Me.lbl_sdl_priority_1.MKBoundControl2 = Nothing + Me.lbl_sdl_priority_1.MKBoundControl3 = Nothing + Me.lbl_sdl_priority_1.MKBoundControl4 = Nothing + Me.lbl_sdl_priority_1.MKBoundControl5 = Nothing + Me.lbl_sdl_priority_1.Name = "lbl_sdl_priority_1" + Me.lbl_sdl_priority_1.Size = New System.Drawing.Size(120, 20) + Me.lbl_sdl_priority_1.TabIndex = 5 + Me.lbl_sdl_priority_1.Text = "when focussed" + ' + 'txb_autoexec_after + ' + Me.txb_autoexec_after.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_autoexec_after.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "autoexec-after", True)) + Me.txb_autoexec_after.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "autoexec-after", True)) + Me.txb_autoexec_after.Location = New System.Drawing.Point(123, 340) + Me.txb_autoexec_after.MKBoundLabel = Me.Ctl_MKDXLabel1 + Me.txb_autoexec_after.MKEditValue_Compare = Nothing + Me.txb_autoexec_after.Name = "txb_autoexec_after" + Me.txb_autoexec_after.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_autoexec_after.Size = New System.Drawing.Size(420, 91) + ToolTipTitleItem7.Text = "Autoexec Append" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Provide lines here that will appear right after volume, ipx and mount lines in th" & + "e autoexec section. They will be followed by the execution of the game's binary." & + "" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.txb_autoexec_after.SuperTip = SuperToolTip7 + Me.txb_autoexec_after.TabIndex = 11 + ' + 'Ctl_MKDXLabel1 + ' + Me.Ctl_MKDXLabel1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel1.Location = New System.Drawing.Point(3, 340) + Me.Ctl_MKDXLabel1.MKBoundControl1 = Me.txb_autoexec_after + Me.Ctl_MKDXLabel1.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel1.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel1.Name = "Ctl_MKDXLabel1" + Me.Ctl_MKDXLabel1.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem6.Text = "Autoexec Append" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Provide lines here that will appear right after volume, ipx and mount lines in th" & + "e autoexec section. They will be followed by the execution of the game's binary." & + "" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.Ctl_MKDXLabel1.SuperTip = SuperToolTip6 + Me.Ctl_MKDXLabel1.TabIndex = 16 + Me.Ctl_MKDXLabel1.Text = "Autoexec Append:" + ' + 'txb_autoexec_before + ' + Me.txb_autoexec_before.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_autoexec_before.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "autoexec-before", True)) + Me.txb_autoexec_before.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "autoexec-before", True)) + Me.txb_autoexec_before.Location = New System.Drawing.Point(123, 240) + Me.txb_autoexec_before.MKBoundLabel = Me.lbl_autoexec_before + Me.txb_autoexec_before.MKEditValue_Compare = Nothing + Me.txb_autoexec_before.Name = "txb_autoexec_before" + Me.txb_autoexec_before.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_autoexec_before.Size = New System.Drawing.Size(420, 97) + ToolTipTitleItem9.Text = "Autoexec Prepend" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Provide lines here that will appear first in the autoexec section. They will be f" & + "ollowed by volume, ipx and mount lines." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.txb_autoexec_before.SuperTip = SuperToolTip9 + Me.txb_autoexec_before.TabIndex = 10 + ' + 'lbl_autoexec_before + ' + Me.lbl_autoexec_before.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_autoexec_before.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_autoexec_before.Location = New System.Drawing.Point(3, 240) + Me.lbl_autoexec_before.MKBoundControl1 = Me.txb_autoexec_before + Me.lbl_autoexec_before.MKBoundControl2 = Nothing + Me.lbl_autoexec_before.MKBoundControl3 = Nothing + Me.lbl_autoexec_before.MKBoundControl4 = Nothing + Me.lbl_autoexec_before.MKBoundControl5 = Nothing + Me.lbl_autoexec_before.Name = "lbl_autoexec_before" + Me.lbl_autoexec_before.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem8.Text = "Autoexec Prepend" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Provide lines here that will appear first in the autoexec section. They will be f" & + "ollowed by volume, ipx and mount lines." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.lbl_autoexec_before.SuperTip = SuperToolTip8 + Me.lbl_autoexec_before.TabIndex = 16 + Me.lbl_autoexec_before.Text = "Autoexec Prepend:" + ' + 'txb_ml_customsettings + ' + Me.txb_ml_customsettings.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_ml_customsettings.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-customsettings", True)) + Me.txb_ml_customsettings.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "ml-customsettings", True)) + Me.txb_ml_customsettings.Location = New System.Drawing.Point(123, 140) + Me.txb_ml_customsettings.MKBoundLabel = Me.lbl_ml_customsettings + Me.txb_ml_customsettings.MKEditValue_Compare = Nothing + Me.txb_ml_customsettings.Name = "txb_ml_customsettings" + Me.txb_ml_customsettings.Properties.ScrollBars = System.Windows.Forms.ScrollBars.None + Me.txb_ml_customsettings.Size = New System.Drawing.Size(420, 97) + ToolTipTitleItem11.Text = "Custom Settings" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Your custom settings which will be added after the settings sections in the DOSBo" & + "x Configuration file. Please don't forget to provide sections yourself." + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem11) + Me.txb_ml_customsettings.SuperTip = SuperToolTip11 + Me.txb_ml_customsettings.TabIndex = 9 + ' + 'lbl_ml_customsettings + ' + Me.lbl_ml_customsettings.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ml_customsettings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_customsettings.Location = New System.Drawing.Point(3, 140) + Me.lbl_ml_customsettings.MKBoundControl1 = Me.txb_ml_customsettings + Me.lbl_ml_customsettings.MKBoundControl2 = Nothing + Me.lbl_ml_customsettings.MKBoundControl3 = Nothing + Me.lbl_ml_customsettings.MKBoundControl4 = Nothing + Me.lbl_ml_customsettings.MKBoundControl5 = Nothing + Me.lbl_ml_customsettings.Name = "lbl_ml_customsettings" + Me.lbl_ml_customsettings.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem10.Text = "Custom Settings" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Your custom settings which will be added after the settings sections in the DOSBo" & + "x Configuration file. Please don't forget to provide sections yourself." + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem10) + Me.lbl_ml_customsettings.SuperTip = SuperToolTip10 + Me.lbl_ml_customsettings.TabIndex = 16 + Me.lbl_ml_customsettings.Text = "Custom Settings:" + ' + 'txb_dosbox_language + ' + Me.txb_dosbox_language.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_dosbox_language.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dosbox-language", True)) + Me.txb_dosbox_language.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dosbox-language", True)) + Me.txb_dosbox_language.Location = New System.Drawing.Point(123, 49) + Me.txb_dosbox_language.MKBoundLabel = Me.lbl_dosbox_language + Me.txb_dosbox_language.MKEditValue_Compare = Nothing + Me.txb_dosbox_language.Name = "txb_dosbox_language" + Me.txb_dosbox_language.Size = New System.Drawing.Size(390, 20) + SuperToolTip13.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem13.Text = "Language File" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Use a language file for localization." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download language files at http:" & + "//www.dosbox.com/download.php" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem13) + Me.txb_dosbox_language.SuperTip = SuperToolTip13 + Me.txb_dosbox_language.TabIndex = 2 + ' + 'lbl_dosbox_language + ' + Me.lbl_dosbox_language.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dosbox_language.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dosbox_language.Location = New System.Drawing.Point(3, 49) + Me.lbl_dosbox_language.MKBoundControl1 = Me.txb_dosbox_language + Me.lbl_dosbox_language.MKBoundControl2 = Nothing + Me.lbl_dosbox_language.MKBoundControl3 = Nothing + Me.lbl_dosbox_language.MKBoundControl4 = Nothing + Me.lbl_dosbox_language.MKBoundControl5 = Nothing + Me.lbl_dosbox_language.Name = "lbl_dosbox_language" + Me.lbl_dosbox_language.Size = New System.Drawing.Size(117, 20) + SuperToolTip12.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem12.Text = "Language File" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Use a language file for localization." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You can download language files at http:" & + "//www.dosbox.com/download.php" + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem12) + Me.lbl_dosbox_language.SuperTip = SuperToolTip12 + Me.lbl_dosbox_language.TabIndex = 16 + Me.lbl_dosbox_language.Text = "Language File:" + ' + 'chb_ml_showconsole + ' + Me.chb_ml_showconsole.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-showconsole", True)) + Me.chb_ml_showconsole.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "ml-showconsole", True)) + Me.chb_ml_showconsole.Location = New System.Drawing.Point(123, 28) + Me.chb_ml_showconsole.MKBoundLabel = Me.lbl_ml_showconsole + Me.chb_ml_showconsole.MKEditValue_Compare = Nothing + Me.chb_ml_showconsole.Name = "chb_ml_showconsole" + Me.chb_ml_showconsole.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.chb_ml_showconsole.Properties.Appearance.Options.UseFont = True + Me.chb_ml_showconsole.Properties.Caption = "" + Me.chb_ml_showconsole.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem15.Text = "Show Console" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "Show the DOSBox Console Window." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "If unchecked, DOSBox will be started with the " & + "-noconsole parameter." + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem15) + Me.chb_ml_showconsole.SuperTip = SuperToolTip15 + Me.chb_ml_showconsole.TabIndex = 1 + ' + 'lbl_ml_showconsole + ' + Me.lbl_ml_showconsole.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ml_showconsole.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_showconsole.Location = New System.Drawing.Point(3, 27) + Me.lbl_ml_showconsole.MKBoundControl1 = Me.chb_ml_showconsole + Me.lbl_ml_showconsole.MKBoundControl2 = Nothing + Me.lbl_ml_showconsole.MKBoundControl3 = Nothing + Me.lbl_ml_showconsole.MKBoundControl4 = Nothing + Me.lbl_ml_showconsole.MKBoundControl5 = Nothing + Me.lbl_ml_showconsole.Name = "lbl_ml_showconsole" + Me.lbl_ml_showconsole.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem14.Text = "Show Console" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "Show the DOSBox Console Window." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "If unchecked, DOSBox will be started with the " & + "-noconsole parameter." + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem14) + Me.lbl_ml_showconsole.SuperTip = SuperToolTip14 + Me.lbl_ml_showconsole.TabIndex = 8 + Me.lbl_ml_showconsole.Text = "Show Console:" + ' + 'chb_ml_autoclose + ' + Me.chb_ml_autoclose.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-autoclose", True)) + Me.chb_ml_autoclose.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "ml-autoclose", True)) + Me.chb_ml_autoclose.Location = New System.Drawing.Point(123, 5) + Me.chb_ml_autoclose.MKBoundLabel = Me.lbl_ml_autoclose + Me.chb_ml_autoclose.MKEditValue_Compare = Nothing + Me.chb_ml_autoclose.Name = "chb_ml_autoclose" + Me.chb_ml_autoclose.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.chb_ml_autoclose.Properties.Appearance.Options.UseFont = True + Me.chb_ml_autoclose.Properties.Caption = "" + Me.chb_ml_autoclose.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem17.Text = "Autoclose DOSBox" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "Close DOSBox when the program exits." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "This adds an ""exit"" line to the [autoexec" & + "] section in the DOSBox Configuration file." + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem17) + Me.chb_ml_autoclose.SuperTip = SuperToolTip17 + Me.chb_ml_autoclose.TabIndex = 0 + ' + 'lbl_ml_autoclose + ' + Me.lbl_ml_autoclose.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ml_autoclose.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_autoclose.Location = New System.Drawing.Point(3, 4) + Me.lbl_ml_autoclose.MKBoundControl1 = Me.chb_ml_autoclose + Me.lbl_ml_autoclose.MKBoundControl2 = Nothing + Me.lbl_ml_autoclose.MKBoundControl3 = Nothing + Me.lbl_ml_autoclose.MKBoundControl4 = Nothing + Me.lbl_ml_autoclose.MKBoundControl5 = Nothing + Me.lbl_ml_autoclose.Name = "lbl_ml_autoclose" + Me.lbl_ml_autoclose.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem16.Text = "Autoclose DOSBox" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "Close DOSBox when the program exits." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "This adds an ""exit"" line to the [autoexec" & + "] section in the DOSBox Configuration file." + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem16) + Me.lbl_ml_autoclose.SuperTip = SuperToolTip16 + Me.lbl_ml_autoclose.TabIndex = 8 + Me.lbl_ml_autoclose.Text = "Autoclose DOSBox:" + ' + 'btn_dosbox_language + ' + Me.btn_dosbox_language.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_dosbox_language.Location = New System.Drawing.Point(516, 50) + Me.btn_dosbox_language.Name = "btn_dosbox_language" + Me.btn_dosbox_language.Size = New System.Drawing.Size(27, 20) + SuperToolTip18.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem18.Text = "Browse Language file" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "Browse for a language file." + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem18) + Me.btn_dosbox_language.SuperTip = SuperToolTip18 + Me.btn_dosbox_language.TabIndex = 3 + Me.btn_dosbox_language.Text = "..." + ' + 'tpg_CPU + ' + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_cycledown_unit) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_cycleup_unit) + Me.tpg_CPU.Controls.Add(Me.spn_cpu_cycledown) + Me.tpg_CPU.Controls.Add(Me.spn_cpu_cycleup) + Me.tpg_CPU.Controls.Add(Me.spn_cpu_cycles_fixed) + Me.tpg_CPU.Controls.Add(Me.cmb_cpu_type) + Me.tpg_CPU.Controls.Add(Me.cmb_cpu_core) + Me.tpg_CPU.Controls.Add(Me.rb_cpu_cycles_fixed) + Me.tpg_CPU.Controls.Add(Me.rb_cpu_cycles_max) + Me.tpg_CPU.Controls.Add(Me.rb_cpu_cycles_auto) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_cycledown) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_cycleup) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_cycles) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_type) + Me.tpg_CPU.Controls.Add(Me.lbl_cpu_core) + Me.tpg_CPU.Name = "tpg_CPU" + Me.tpg_CPU.Size = New System.Drawing.Size(546, 434) + Me.tpg_CPU.Text = "CPU" + ' + 'lbl_cpu_cycledown_unit + ' + Me.lbl_cpu_cycledown_unit.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_cpu_cycledown_unit.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_cycledown_unit.Location = New System.Drawing.Point(180, 142) + Me.lbl_cpu_cycledown_unit.MKBoundControl1 = Nothing + Me.lbl_cpu_cycledown_unit.MKBoundControl2 = Nothing + Me.lbl_cpu_cycledown_unit.MKBoundControl3 = Nothing + Me.lbl_cpu_cycledown_unit.MKBoundControl4 = Nothing + Me.lbl_cpu_cycledown_unit.MKBoundControl5 = Nothing + Me.lbl_cpu_cycledown_unit.Name = "lbl_cpu_cycledown_unit" + Me.lbl_cpu_cycledown_unit.Size = New System.Drawing.Size(120, 20) + Me.lbl_cpu_cycledown_unit.TabIndex = 9 + Me.lbl_cpu_cycledown_unit.Text = "%" + ' + 'lbl_cpu_cycleup_unit + ' + Me.lbl_cpu_cycleup_unit.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_cpu_cycleup_unit.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_cycleup_unit.Location = New System.Drawing.Point(180, 119) + Me.lbl_cpu_cycleup_unit.MKBoundControl1 = Nothing + Me.lbl_cpu_cycleup_unit.MKBoundControl2 = Nothing + Me.lbl_cpu_cycleup_unit.MKBoundControl3 = Nothing + Me.lbl_cpu_cycleup_unit.MKBoundControl4 = Nothing + Me.lbl_cpu_cycleup_unit.MKBoundControl5 = Nothing + Me.lbl_cpu_cycleup_unit.Name = "lbl_cpu_cycleup_unit" + Me.lbl_cpu_cycleup_unit.Size = New System.Drawing.Size(120, 20) + Me.lbl_cpu_cycleup_unit.TabIndex = 7 + Me.lbl_cpu_cycleup_unit.Text = "%" + ' + 'spn_cpu_cycledown + ' + Me.spn_cpu_cycledown.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "cpu-cycledown", True)) + Me.spn_cpu_cycledown.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "cpu-cycledown", True)) + Me.spn_cpu_cycledown.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_cpu_cycledown.Location = New System.Drawing.Point(123, 142) + Me.spn_cpu_cycledown.MKBoundLabel = Me.lbl_cpu_cycledown + Me.spn_cpu_cycledown.MKEditValue_Compare = Nothing + Me.spn_cpu_cycledown.Name = "spn_cpu_cycledown" + Me.spn_cpu_cycledown.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_cpu_cycledown.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.[Default] + Me.spn_cpu_cycledown.Properties.IsFloatValue = False + Me.spn_cpu_cycledown.Properties.Mask.EditMask = "N00" + Me.spn_cpu_cycledown.Properties.MaxValue = New Decimal(New Integer() {2147483647, 0, 0, 0}) + Me.spn_cpu_cycledown.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem20.Text = "CPU Cycle Down" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "Amount of cycles to decrease with keycombo CTRL-F11." + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem20) + Me.spn_cpu_cycledown.SuperTip = SuperToolTip20 + Me.spn_cpu_cycledown.TabIndex = 8 + ' + 'lbl_cpu_cycledown + ' + Me.lbl_cpu_cycledown.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cpu_cycledown.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_cycledown.Location = New System.Drawing.Point(3, 142) + Me.lbl_cpu_cycledown.MKBoundControl1 = Me.spn_cpu_cycledown + Me.lbl_cpu_cycledown.MKBoundControl2 = Nothing + Me.lbl_cpu_cycledown.MKBoundControl3 = Nothing + Me.lbl_cpu_cycledown.MKBoundControl4 = Nothing + Me.lbl_cpu_cycledown.MKBoundControl5 = Nothing + Me.lbl_cpu_cycledown.Name = "lbl_cpu_cycledown" + Me.lbl_cpu_cycledown.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem19.Text = "CPU Cycle Down" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "Amount of cycles to decrease with keycombo CTRL-F11." + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem19) + Me.lbl_cpu_cycledown.SuperTip = SuperToolTip19 + Me.lbl_cpu_cycledown.TabIndex = 8 + Me.lbl_cpu_cycledown.Text = "CPU Cycle Down:" + ' + 'spn_cpu_cycleup + ' + Me.spn_cpu_cycleup.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "cpu-cycleup", True)) + Me.spn_cpu_cycleup.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "cpu-cycleup", True)) + Me.spn_cpu_cycleup.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_cpu_cycleup.Location = New System.Drawing.Point(123, 119) + Me.spn_cpu_cycleup.MKBoundLabel = Me.lbl_cpu_cycleup + Me.spn_cpu_cycleup.MKEditValue_Compare = Nothing + Me.spn_cpu_cycleup.Name = "spn_cpu_cycleup" + Me.spn_cpu_cycleup.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_cpu_cycleup.Properties.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.[Default] + Me.spn_cpu_cycleup.Properties.IsFloatValue = False + Me.spn_cpu_cycleup.Properties.Mask.EditMask = "N00" + Me.spn_cpu_cycleup.Properties.MaxValue = New Decimal(New Integer() {2147483647, 0, 0, 0}) + Me.spn_cpu_cycleup.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem22.Text = "CPU Cycle Up" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "Amount of cycles to increase with keycombo CTRL-F12." + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.spn_cpu_cycleup.SuperTip = SuperToolTip22 + Me.spn_cpu_cycleup.TabIndex = 6 + ' + 'lbl_cpu_cycleup + ' + Me.lbl_cpu_cycleup.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cpu_cycleup.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_cycleup.Location = New System.Drawing.Point(3, 119) + Me.lbl_cpu_cycleup.MKBoundControl1 = Me.spn_cpu_cycleup + Me.lbl_cpu_cycleup.MKBoundControl2 = Nothing + Me.lbl_cpu_cycleup.MKBoundControl3 = Nothing + Me.lbl_cpu_cycleup.MKBoundControl4 = Nothing + Me.lbl_cpu_cycleup.MKBoundControl5 = Nothing + Me.lbl_cpu_cycleup.Name = "lbl_cpu_cycleup" + Me.lbl_cpu_cycleup.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem21.Text = "CPU Cycle Up" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.Text = "Amount of cycles to increase with keycombo CTRL-F12." + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem21) + Me.lbl_cpu_cycleup.SuperTip = SuperToolTip21 + Me.lbl_cpu_cycleup.TabIndex = 9 + Me.lbl_cpu_cycleup.Text = "CPU Cycle Up:" + ' + 'spn_cpu_cycles_fixed + ' + Me.spn_cpu_cycles_fixed.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_cpu_cycles_fixed.Enabled = False + Me.spn_cpu_cycles_fixed.Location = New System.Drawing.Point(176, 95) + Me.spn_cpu_cycles_fixed.MKBoundLabel = Nothing + Me.spn_cpu_cycles_fixed.MKEditValue_Compare = Nothing + Me.spn_cpu_cycles_fixed.Name = "spn_cpu_cycles_fixed" + Me.spn_cpu_cycles_fixed.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_cpu_cycles_fixed.Properties.IsFloatValue = False + Me.spn_cpu_cycles_fixed.Properties.Mask.EditMask = "N00" + Me.spn_cpu_cycles_fixed.Properties.MaxValue = New Decimal(New Integer() {2147483647, 0, 0, 0}) + Me.spn_cpu_cycles_fixed.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem23.Text = "CPU Cycles = fixed #NUMBER" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = "Set a fixed amount of cycles. This is what you usually need if CPU Cycles = auto " & + "fails." + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.spn_cpu_cycles_fixed.SuperTip = SuperToolTip23 + Me.spn_cpu_cycles_fixed.TabIndex = 5 + ' + 'cmb_cpu_type + ' + Me.cmb_cpu_type.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "cpu-cputype", True)) + Me.cmb_cpu_type.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "cpu-cputype", True)) + Me.cmb_cpu_type.Location = New System.Drawing.Point(123, 27) + Me.cmb_cpu_type.MKBoundLabel = Me.lbl_cpu_type + Me.cmb_cpu_type.MKEditValue_Compare = Nothing + Me.cmb_cpu_type.Name = "cmb_cpu_type" + Me.cmb_cpu_type.Properties.AllowFocused = False + Me.cmb_cpu_type.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_cpu_type.Properties.DataSource = Me.BTA_cpu_type + Me.cmb_cpu_type.Properties.DisplayMember = "value" + Me.cmb_cpu_type.Properties.NullText = "" + Me.cmb_cpu_type.Properties.ShowFooter = False + Me.cmb_cpu_type.Properties.ShowHeader = False + Me.cmb_cpu_type.Properties.ValueMember = "value" + Me.cmb_cpu_type.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem25.Text = "CPU Type" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "CPU Type used in emulation. 'auto' is the fastest choice." + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.cmb_cpu_type.SuperTip = SuperToolTip25 + Me.cmb_cpu_type.TabIndex = 1 + ' + 'lbl_cpu_type + ' + Me.lbl_cpu_type.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cpu_type.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_type.Location = New System.Drawing.Point(3, 27) + Me.lbl_cpu_type.MKBoundControl1 = Me.cmb_cpu_type + Me.lbl_cpu_type.MKBoundControl2 = Nothing + Me.lbl_cpu_type.MKBoundControl3 = Nothing + Me.lbl_cpu_type.MKBoundControl4 = Nothing + Me.lbl_cpu_type.MKBoundControl5 = Nothing + Me.lbl_cpu_type.Name = "lbl_cpu_type" + Me.lbl_cpu_type.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem24.Text = "CPU Type" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "CPU Type used in emulation. 'auto' is the fastest choice." + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.lbl_cpu_type.SuperTip = SuperToolTip24 + Me.lbl_cpu_type.TabIndex = 10 + Me.lbl_cpu_type.Text = "CPU Type:" + ' + 'BTA_cpu_type + ' + Me.BTA_cpu_type.AllowDelete = True + Me.BTA_cpu_type.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_cpu_type.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_cpu_type.Connection = Nothing + Me.BTA_cpu_type.DSStream = CType(resources.GetObject("BTA_cpu_type.DSStream"), System.IO.MemoryStream) + Me.BTA_cpu_type.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_cpu_type.FillString = "auto;386;386_slow;486_slow;pentium_slow;386_prefetch" + Me.BTA_cpu_type.Position = 0 + Me.BTA_cpu_type.Transaction = Nothing + Me.BTA_cpu_type.UpdateTablesStream = CType(resources.GetObject("BTA_cpu_type.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_cpu_core + ' + Me.cmb_cpu_core.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "cpu-core", True)) + Me.cmb_cpu_core.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "cpu-core", True)) + Me.cmb_cpu_core.Location = New System.Drawing.Point(123, 4) + Me.cmb_cpu_core.MKBoundLabel = Me.lbl_cpu_core + Me.cmb_cpu_core.MKEditValue_Compare = Nothing + Me.cmb_cpu_core.Name = "cmb_cpu_core" + Me.cmb_cpu_core.Properties.AllowFocused = False + Me.cmb_cpu_core.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_cpu_core.Properties.DataSource = Me.BTA_cpu_core + Me.cmb_cpu_core.Properties.DisplayMember = "value" + Me.cmb_cpu_core.Properties.NullText = "" + Me.cmb_cpu_core.Properties.ShowFooter = False + Me.cmb_cpu_core.Properties.ShowHeader = False + Me.cmb_cpu_core.Properties.ValueMember = "value" + Me.cmb_cpu_core.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem27.Text = "CPU Core" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "CPU Core used in emulation. 'auto' will switch to 'dynamic' if available and appr" & + "opriate." + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.cmb_cpu_core.SuperTip = SuperToolTip27 + Me.cmb_cpu_core.TabIndex = 0 + ' + 'lbl_cpu_core + ' + Me.lbl_cpu_core.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cpu_core.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_core.Location = New System.Drawing.Point(3, 4) + Me.lbl_cpu_core.MKBoundControl1 = Me.cmb_cpu_core + Me.lbl_cpu_core.MKBoundControl2 = Nothing + Me.lbl_cpu_core.MKBoundControl3 = Nothing + Me.lbl_cpu_core.MKBoundControl4 = Nothing + Me.lbl_cpu_core.MKBoundControl5 = Nothing + Me.lbl_cpu_core.Name = "lbl_cpu_core" + Me.lbl_cpu_core.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem26.Text = "CPU Core" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "CPU Core used in emulation. 'auto' will switch to 'dynamic' if available and appr" & + "opriate." + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.lbl_cpu_core.SuperTip = SuperToolTip26 + Me.lbl_cpu_core.TabIndex = 12 + Me.lbl_cpu_core.Text = "CPU Core:" + ' + 'BTA_cpu_core + ' + Me.BTA_cpu_core.AllowDelete = True + Me.BTA_cpu_core.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_cpu_core.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_cpu_core.Connection = Nothing + Me.BTA_cpu_core.DSStream = CType(resources.GetObject("BTA_cpu_core.DSStream"), System.IO.MemoryStream) + Me.BTA_cpu_core.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_cpu_core.FillString = "auto;dynamic;normal;simple" + Me.BTA_cpu_core.Position = 0 + Me.BTA_cpu_core.Transaction = Nothing + Me.BTA_cpu_core.UpdateTablesStream = CType(resources.GetObject("BTA_cpu_core.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'rb_cpu_cycles_fixed + ' + Me.rb_cpu_cycles_fixed.Location = New System.Drawing.Point(123, 96) + Me.rb_cpu_cycles_fixed.MKBoundLabel = Nothing + Me.rb_cpu_cycles_fixed.MKEditValue_Compare = Nothing + Me.rb_cpu_cycles_fixed.Name = "rb_cpu_cycles_fixed" + Me.rb_cpu_cycles_fixed.Properties.Caption = "fixed:" + Me.rb_cpu_cycles_fixed.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_cpu_cycles_fixed.Properties.RadioGroupIndex = 1 + Me.rb_cpu_cycles_fixed.Size = New System.Drawing.Size(50, 19) + ToolTipTitleItem28.Text = "CPU Cycles = fixed #NUMBER" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = "Set a fixed amount of cycles. This is what you usually need if CPU Cycles = auto " & + "fails." + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.rb_cpu_cycles_fixed.SuperTip = SuperToolTip28 + Me.rb_cpu_cycles_fixed.TabIndex = 4 + Me.rb_cpu_cycles_fixed.TabStop = False + ' + 'rb_cpu_cycles_max + ' + Me.rb_cpu_cycles_max.Location = New System.Drawing.Point(123, 73) + Me.rb_cpu_cycles_max.MKBoundLabel = Nothing + Me.rb_cpu_cycles_max.MKEditValue_Compare = Nothing + Me.rb_cpu_cycles_max.Name = "rb_cpu_cycles_max" + Me.rb_cpu_cycles_max.Properties.Caption = "max" + Me.rb_cpu_cycles_max.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_cpu_cycles_max.Properties.RadioGroupIndex = 1 + Me.rb_cpu_cycles_max.Size = New System.Drawing.Size(54, 19) + ToolTipTitleItem29.Text = "CPU Cycles = max" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = "Allocate as much cycles as your computer is able to handle." + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.rb_cpu_cycles_max.SuperTip = SuperToolTip29 + Me.rb_cpu_cycles_max.TabIndex = 3 + Me.rb_cpu_cycles_max.TabStop = False + ' + 'rb_cpu_cycles_auto + ' + Me.rb_cpu_cycles_auto.Location = New System.Drawing.Point(123, 51) + Me.rb_cpu_cycles_auto.MKBoundLabel = Nothing + Me.rb_cpu_cycles_auto.MKEditValue_Compare = Nothing + Me.rb_cpu_cycles_auto.Name = "rb_cpu_cycles_auto" + Me.rb_cpu_cycles_auto.Properties.Caption = "auto" + Me.rb_cpu_cycles_auto.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_cpu_cycles_auto.Properties.RadioGroupIndex = 1 + Me.rb_cpu_cycles_auto.Size = New System.Drawing.Size(54, 19) + ToolTipTitleItem30.Text = "CPU Cycles = auto" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = "Try to guess what a game needs. It usually works, but can fail for certain games." & + "" + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.rb_cpu_cycles_auto.SuperTip = SuperToolTip30 + Me.rb_cpu_cycles_auto.TabIndex = 2 + Me.rb_cpu_cycles_auto.TabStop = False + ' + 'lbl_cpu_cycles + ' + Me.lbl_cpu_cycles.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cpu_cycles.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cpu_cycles.Location = New System.Drawing.Point(3, 50) + Me.lbl_cpu_cycles.MKBoundControl1 = Nothing + Me.lbl_cpu_cycles.MKBoundControl2 = Nothing + Me.lbl_cpu_cycles.MKBoundControl3 = Nothing + Me.lbl_cpu_cycles.MKBoundControl4 = Nothing + Me.lbl_cpu_cycles.MKBoundControl5 = Nothing + Me.lbl_cpu_cycles.Name = "lbl_cpu_cycles" + Me.lbl_cpu_cycles.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem31.Text = "CPU Cycles" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "Amount of instructions DOSBox tries to emulate each millisecond. Setting this val" & + "ue too high results in sound dropouts and lags." + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.lbl_cpu_cycles.SuperTip = SuperToolTip31 + Me.lbl_cpu_cycles.TabIndex = 11 + Me.lbl_cpu_cycles.Text = "CPU Cycles:" + ' + 'tpg_Memory + ' + Me.tpg_Memory.Controls.Add(Me.lbl_dosbox_memsize_unit) + Me.tpg_Memory.Controls.Add(Me.spn_ml_loadfix) + Me.tpg_Memory.Controls.Add(Me.chb_ml_useloadfix) + Me.tpg_Memory.Controls.Add(Me.chb_dos_umb) + Me.tpg_Memory.Controls.Add(Me.chb_dos_ems) + Me.tpg_Memory.Controls.Add(Me.chb_dos_xms) + Me.tpg_Memory.Controls.Add(Me.lbl_ml_loadfix) + Me.tpg_Memory.Controls.Add(Me.lbl_ml_useloadfix) + Me.tpg_Memory.Controls.Add(Me.lbl_dos_umb) + Me.tpg_Memory.Controls.Add(Me.lbl_dos_ems) + Me.tpg_Memory.Controls.Add(Me.lbl_dos_xms) + Me.tpg_Memory.Controls.Add(Me.spn_dosbox_memsize) + Me.tpg_Memory.Controls.Add(Me.lbl_dosbox_memsize) + Me.tpg_Memory.Name = "tpg_Memory" + Me.tpg_Memory.Size = New System.Drawing.Size(546, 434) + Me.tpg_Memory.Text = "Memory" + ' + 'lbl_dosbox_memsize_unit + ' + Me.lbl_dosbox_memsize_unit.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_dosbox_memsize_unit.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dosbox_memsize_unit.Location = New System.Drawing.Point(180, 4) + Me.lbl_dosbox_memsize_unit.MKBoundControl1 = Nothing + Me.lbl_dosbox_memsize_unit.MKBoundControl2 = Nothing + Me.lbl_dosbox_memsize_unit.MKBoundControl3 = Nothing + Me.lbl_dosbox_memsize_unit.MKBoundControl4 = Nothing + Me.lbl_dosbox_memsize_unit.MKBoundControl5 = Nothing + Me.lbl_dosbox_memsize_unit.Name = "lbl_dosbox_memsize_unit" + Me.lbl_dosbox_memsize_unit.Size = New System.Drawing.Size(87, 20) + Me.lbl_dosbox_memsize_unit.TabIndex = 1 + Me.lbl_dosbox_memsize_unit.Text = "MB" + ' + 'spn_ml_loadfix + ' + Me.spn_ml_loadfix.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-loadfix", True)) + Me.spn_ml_loadfix.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "ml-loadfix", True)) + Me.spn_ml_loadfix.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_ml_loadfix.Enabled = False + Me.spn_ml_loadfix.Location = New System.Drawing.Point(289, 96) + Me.spn_ml_loadfix.MKBoundLabel = Me.lbl_ml_loadfix + Me.spn_ml_loadfix.MKEditValue_Compare = Nothing + Me.spn_ml_loadfix.Name = "spn_ml_loadfix" + Me.spn_ml_loadfix.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_ml_loadfix.Properties.IsFloatValue = False + Me.spn_ml_loadfix.Properties.Mask.EditMask = "N00" + Me.spn_ml_loadfix.Properties.MaxValue = New Decimal(New Integer() {512, 0, 0, 0}) + Me.spn_ml_loadfix.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_ml_loadfix.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem33.Text = "Loadfix Memory (kB)" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = "Set here, how much memory should be allocated by loadfix." + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.spn_ml_loadfix.SuperTip = SuperToolTip33 + Me.spn_ml_loadfix.TabIndex = 7 + Me.spn_ml_loadfix.Visible = False + ' + 'lbl_ml_loadfix + ' + Me.lbl_ml_loadfix.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ml_loadfix.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_loadfix.Enabled = False + Me.lbl_ml_loadfix.Location = New System.Drawing.Point(180, 96) + Me.lbl_ml_loadfix.MKBoundControl1 = Me.spn_ml_loadfix + Me.lbl_ml_loadfix.MKBoundControl2 = Nothing + Me.lbl_ml_loadfix.MKBoundControl3 = Nothing + Me.lbl_ml_loadfix.MKBoundControl4 = Nothing + Me.lbl_ml_loadfix.MKBoundControl5 = Nothing + Me.lbl_ml_loadfix.Name = "lbl_ml_loadfix" + Me.lbl_ml_loadfix.Size = New System.Drawing.Size(106, 20) + ToolTipTitleItem32.Text = "Loadfix Memory (kB)" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "Set here, how much memory should be allocated by loadfix." + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.lbl_ml_loadfix.SuperTip = SuperToolTip32 + Me.lbl_ml_loadfix.TabIndex = 6 + Me.lbl_ml_loadfix.Text = "Loadfix Memory (kB):" + Me.lbl_ml_loadfix.Visible = False + ' + 'chb_ml_useloadfix + ' + Me.chb_ml_useloadfix.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-useloadfix", True)) + Me.chb_ml_useloadfix.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "ml-useloadfix", True)) + Me.chb_ml_useloadfix.Location = New System.Drawing.Point(123, 97) + Me.chb_ml_useloadfix.MKBoundLabel = Me.lbl_ml_useloadfix + Me.chb_ml_useloadfix.MKEditValue_Compare = Nothing + Me.chb_ml_useloadfix.Name = "chb_ml_useloadfix" + Me.chb_ml_useloadfix.Properties.Caption = "" + Me.chb_ml_useloadfix.Size = New System.Drawing.Size(54, 19) + ToolTipTitleItem35.Text = "Use Loadfix" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "LOADFIX is a program to reduce the amount of available conventional memory." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "It" & + "'s useful for old programs which don't expect much memory to be free." + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.chb_ml_useloadfix.SuperTip = SuperToolTip35 + Me.chb_ml_useloadfix.TabIndex = 5 + Me.chb_ml_useloadfix.Visible = False + ' + 'lbl_ml_useloadfix + ' + Me.lbl_ml_useloadfix.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ml_useloadfix.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_useloadfix.Location = New System.Drawing.Point(3, 96) + Me.lbl_ml_useloadfix.MKBoundControl1 = Me.chb_ml_useloadfix + Me.lbl_ml_useloadfix.MKBoundControl2 = Nothing + Me.lbl_ml_useloadfix.MKBoundControl3 = Nothing + Me.lbl_ml_useloadfix.MKBoundControl4 = Nothing + Me.lbl_ml_useloadfix.MKBoundControl5 = Nothing + Me.lbl_ml_useloadfix.Name = "lbl_ml_useloadfix" + Me.lbl_ml_useloadfix.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem34.Text = "Use Loadfix" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "LOADFIX is a program to reduce the amount of available conventional memory." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "It" & + "'s useful for old programs which don't expect much memory to be free." + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.lbl_ml_useloadfix.SuperTip = SuperToolTip34 + Me.lbl_ml_useloadfix.TabIndex = 16 + Me.lbl_ml_useloadfix.Text = "Use Loadfix:" + Me.lbl_ml_useloadfix.Visible = False + ' + 'chb_dos_umb + ' + Me.chb_dos_umb.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dos-umb", True)) + Me.chb_dos_umb.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dos-umb", True)) + Me.chb_dos_umb.Location = New System.Drawing.Point(123, 74) + Me.chb_dos_umb.MKBoundLabel = Me.lbl_dos_umb + Me.chb_dos_umb.MKEditValue_Compare = Nothing + Me.chb_dos_umb.Name = "chb_dos_umb" + Me.chb_dos_umb.Properties.Caption = "" + Me.chb_dos_umb.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem37.Text = "UMB Support" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = "Enable support for the upper memory block in the upper memory area." + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.chb_dos_umb.SuperTip = SuperToolTip37 + Me.chb_dos_umb.TabIndex = 4 + ' + 'lbl_dos_umb + ' + Me.lbl_dos_umb.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dos_umb.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dos_umb.Location = New System.Drawing.Point(3, 73) + Me.lbl_dos_umb.MKBoundControl1 = Me.chb_dos_umb + Me.lbl_dos_umb.MKBoundControl2 = Nothing + Me.lbl_dos_umb.MKBoundControl3 = Nothing + Me.lbl_dos_umb.MKBoundControl4 = Nothing + Me.lbl_dos_umb.MKBoundControl5 = Nothing + Me.lbl_dos_umb.Name = "lbl_dos_umb" + Me.lbl_dos_umb.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem36.Text = "UMB Support" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "Enable support for the upper memory block in the upper memory area." + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.lbl_dos_umb.SuperTip = SuperToolTip36 + Me.lbl_dos_umb.TabIndex = 16 + Me.lbl_dos_umb.Text = "UMB Support:" + ' + 'chb_dos_ems + ' + Me.chb_dos_ems.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dos-ems", True)) + Me.chb_dos_ems.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dos-ems", True)) + Me.chb_dos_ems.Location = New System.Drawing.Point(123, 51) + Me.chb_dos_ems.MKBoundLabel = Me.lbl_dos_ems + Me.chb_dos_ems.MKEditValue_Compare = Nothing + Me.chb_dos_ems.Name = "chb_dos_ems" + Me.chb_dos_ems.Properties.Caption = "" + Me.chb_dos_ems.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem39.Text = "EMS Support" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "Enable support for expanded memory." + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.chb_dos_ems.SuperTip = SuperToolTip39 + Me.chb_dos_ems.TabIndex = 3 + ' + 'lbl_dos_ems + ' + Me.lbl_dos_ems.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dos_ems.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dos_ems.Location = New System.Drawing.Point(3, 50) + Me.lbl_dos_ems.MKBoundControl1 = Me.chb_dos_ems + Me.lbl_dos_ems.MKBoundControl2 = Nothing + Me.lbl_dos_ems.MKBoundControl3 = Nothing + Me.lbl_dos_ems.MKBoundControl4 = Nothing + Me.lbl_dos_ems.MKBoundControl5 = Nothing + Me.lbl_dos_ems.Name = "lbl_dos_ems" + Me.lbl_dos_ems.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem38.Text = "EMS Support" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "Enable support for expanded memory." + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.lbl_dos_ems.SuperTip = SuperToolTip38 + Me.lbl_dos_ems.TabIndex = 15 + Me.lbl_dos_ems.Text = "EMS Support:" + ' + 'chb_dos_xms + ' + Me.chb_dos_xms.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dos-xms", True)) + Me.chb_dos_xms.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dos-xms", True)) + Me.chb_dos_xms.Location = New System.Drawing.Point(123, 28) + Me.chb_dos_xms.MKBoundLabel = Me.lbl_dos_xms + Me.chb_dos_xms.MKEditValue_Compare = Nothing + Me.chb_dos_xms.Name = "chb_dos_xms" + Me.chb_dos_xms.Properties.Caption = "" + Me.chb_dos_xms.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem41.Text = "XMS Support" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.Text = "Enable support for extended memory." + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem41) + Me.chb_dos_xms.SuperTip = SuperToolTip41 + Me.chb_dos_xms.TabIndex = 2 + ' + 'lbl_dos_xms + ' + Me.lbl_dos_xms.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dos_xms.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dos_xms.Location = New System.Drawing.Point(3, 27) + Me.lbl_dos_xms.MKBoundControl1 = Me.chb_dos_xms + Me.lbl_dos_xms.MKBoundControl2 = Nothing + Me.lbl_dos_xms.MKBoundControl3 = Nothing + Me.lbl_dos_xms.MKBoundControl4 = Nothing + Me.lbl_dos_xms.MKBoundControl5 = Nothing + Me.lbl_dos_xms.Name = "lbl_dos_xms" + Me.lbl_dos_xms.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem40.Text = "XMS Support" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "Enable support for extended memory." + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.lbl_dos_xms.SuperTip = SuperToolTip40 + Me.lbl_dos_xms.TabIndex = 17 + Me.lbl_dos_xms.Text = "XMS Support:" + ' + 'spn_dosbox_memsize + ' + Me.spn_dosbox_memsize.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dosbox-memsize", True)) + Me.spn_dosbox_memsize.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dosbox-memsize", True)) + Me.spn_dosbox_memsize.EditValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_dosbox_memsize.Location = New System.Drawing.Point(123, 4) + Me.spn_dosbox_memsize.MKBoundLabel = Me.lbl_dosbox_memsize + Me.spn_dosbox_memsize.MKEditValue_Compare = Nothing + Me.spn_dosbox_memsize.Name = "spn_dosbox_memsize" + Me.spn_dosbox_memsize.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_dosbox_memsize.Properties.IsFloatValue = False + Me.spn_dosbox_memsize.Properties.Mask.EditMask = "N00" + Me.spn_dosbox_memsize.Properties.MaxValue = New Decimal(New Integer() {128, 0, 0, 0}) + Me.spn_dosbox_memsize.Properties.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.spn_dosbox_memsize.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem43.Text = "Memory Size" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = resources.GetString("ToolTipItem43.Text") + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.spn_dosbox_memsize.SuperTip = SuperToolTip43 + Me.spn_dosbox_memsize.TabIndex = 0 + ' + 'lbl_dosbox_memsize + ' + Me.lbl_dosbox_memsize.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dosbox_memsize.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dosbox_memsize.Location = New System.Drawing.Point(3, 4) + Me.lbl_dosbox_memsize.MKBoundControl1 = Me.spn_dosbox_memsize + Me.lbl_dosbox_memsize.MKBoundControl2 = Nothing + Me.lbl_dosbox_memsize.MKBoundControl3 = Nothing + Me.lbl_dosbox_memsize.MKBoundControl4 = Nothing + Me.lbl_dosbox_memsize.MKBoundControl5 = Nothing + Me.lbl_dosbox_memsize.Name = "lbl_dosbox_memsize" + Me.lbl_dosbox_memsize.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem42.Text = "Memory Size" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = resources.GetString("ToolTipItem42.Text") + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.lbl_dosbox_memsize.SuperTip = SuperToolTip42 + Me.lbl_dosbox_memsize.TabIndex = 6 + Me.lbl_dosbox_memsize.Text = "Memory Size:" + ' + 'tpg_Video + ' + Me.tpg_Video.Controls.Add(Me.chb_render_scaler_forced) + Me.tpg_Video.Controls.Add(Me.spn_render_frameskip) + Me.tpg_Video.Controls.Add(Me.lbl_render_frameskip) + Me.tpg_Video.Controls.Add(Me.cmb_render_scaler) + Me.tpg_Video.Controls.Add(Me.lbl_render_scaler) + Me.tpg_Video.Controls.Add(Me.cmb_dosbox_machine) + Me.tpg_Video.Controls.Add(Me.lbl_dosbox_machine) + Me.tpg_Video.Controls.Add(Me.cmb_sdl_output) + Me.tpg_Video.Controls.Add(Me.lbl_sdl_output) + Me.tpg_Video.Controls.Add(Me.chb_render_aspect) + Me.tpg_Video.Controls.Add(Me.lbl_render_aspect) + Me.tpg_Video.Controls.Add(Me.chb_sdl_fulldouble) + Me.tpg_Video.Controls.Add(Me.lbl_sdl_fulldouble) + Me.tpg_Video.Controls.Add(Me.chb_sdl_fullscreen) + Me.tpg_Video.Controls.Add(Me.lbl_sdl_fullscreen) + Me.tpg_Video.Controls.Add(Me.cmb_sdl_windowresolution) + Me.tpg_Video.Controls.Add(Me.cmb_sdl_fullresolution) + Me.tpg_Video.Controls.Add(Me.lbl_sdl_windowresolution) + Me.tpg_Video.Controls.Add(Me.lbl_sdl_fullresolution) + Me.tpg_Video.Controls.Add(Me.lbl_resolution) + Me.tpg_Video.Name = "tpg_Video" + Me.tpg_Video.Size = New System.Drawing.Size(546, 434) + Me.tpg_Video.Text = "Video" + ' + 'chb_render_scaler_forced + ' + Me.chb_render_scaler_forced.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "render-scaler_forced", True)) + Me.chb_render_scaler_forced.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "render-scaler_forced", True)) + Me.chb_render_scaler_forced.Location = New System.Drawing.Point(233, 166) + Me.chb_render_scaler_forced.MKBoundLabel = Me.lbl_render_scaler + Me.chb_render_scaler_forced.MKEditValue_Compare = Nothing + Me.chb_render_scaler_forced.Name = "chb_render_scaler_forced" + Me.chb_render_scaler_forced.Properties.Caption = "forced" + Me.chb_render_scaler_forced.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem46.Text = "Scaler" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.Text = "Scaler used to enlarge/enhance low resolution modes. If forced, then the scaler w" & + "ill be used even if the result might not be desired." + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem46) + Me.chb_render_scaler_forced.SuperTip = SuperToolTip46 + Me.chb_render_scaler_forced.TabIndex = 10 + ' + 'lbl_render_scaler + ' + Me.lbl_render_scaler.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_render_scaler.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_render_scaler.Location = New System.Drawing.Point(3, 165) + Me.lbl_render_scaler.MKBoundControl1 = Me.cmb_render_scaler + Me.lbl_render_scaler.MKBoundControl2 = Me.chb_render_scaler_forced + Me.lbl_render_scaler.MKBoundControl3 = Nothing + Me.lbl_render_scaler.MKBoundControl4 = Nothing + Me.lbl_render_scaler.MKBoundControl5 = Nothing + Me.lbl_render_scaler.Name = "lbl_render_scaler" + Me.lbl_render_scaler.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem45.Text = "Scaler" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = "Scaler used to enlarge/enhance low resolution modes. If forced, then the scaler w" & + "ill be used even if the result might not be desired." + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem45) + Me.lbl_render_scaler.SuperTip = SuperToolTip45 + Me.lbl_render_scaler.TabIndex = 20 + Me.lbl_render_scaler.Text = "Scaler:" + ' + 'cmb_render_scaler + ' + Me.cmb_render_scaler.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "render-scaler", True)) + Me.cmb_render_scaler.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "render-scaler", True)) + Me.cmb_render_scaler.Location = New System.Drawing.Point(123, 165) + Me.cmb_render_scaler.MKBoundLabel = Me.lbl_render_scaler + Me.cmb_render_scaler.MKEditValue_Compare = Nothing + Me.cmb_render_scaler.Name = "cmb_render_scaler" + Me.cmb_render_scaler.Properties.AllowFocused = False + Me.cmb_render_scaler.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_render_scaler.Properties.DataSource = Me.BTA_render_scaler + Me.cmb_render_scaler.Properties.DisplayMember = "value" + Me.cmb_render_scaler.Properties.NullText = "" + Me.cmb_render_scaler.Properties.ShowFooter = False + Me.cmb_render_scaler.Properties.ShowHeader = False + Me.cmb_render_scaler.Properties.ValueMember = "value" + Me.cmb_render_scaler.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem44.Text = "Scaler" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "Scaler used to enlarge/enhance low resolution modes. If forced, then the scaler w" & + "ill be used even if the result might not be desired." + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.cmb_render_scaler.SuperTip = SuperToolTip44 + Me.cmb_render_scaler.TabIndex = 9 + ' + 'BTA_render_scaler + ' + Me.BTA_render_scaler.AllowDelete = True + Me.BTA_render_scaler.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_render_scaler.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_render_scaler.Connection = Nothing + Me.BTA_render_scaler.DSStream = CType(resources.GetObject("BTA_render_scaler.DSStream"), System.IO.MemoryStream) + Me.BTA_render_scaler.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_render_scaler.FillString = "none;normal2x;normal3x;advmame2x;advmame3x;advinterp2x;advinterp3x;hq2x;hq3x;2xsa" & + "i;super2xsai;supereagle;tv2x;tv3x;rgb2x;rgb3x;scan2x;scan3x" + Me.BTA_render_scaler.Position = 0 + Me.BTA_render_scaler.Transaction = Nothing + Me.BTA_render_scaler.UpdateTablesStream = CType(resources.GetObject("BTA_render_scaler.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'spn_render_frameskip + ' + Me.spn_render_frameskip.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "render-frameskip", True)) + Me.spn_render_frameskip.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "render-frameskip", True)) + Me.spn_render_frameskip.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_render_frameskip.Location = New System.Drawing.Point(123, 188) + Me.spn_render_frameskip.MKBoundLabel = Me.lbl_render_frameskip + Me.spn_render_frameskip.MKEditValue_Compare = Nothing + Me.spn_render_frameskip.Name = "spn_render_frameskip" + Me.spn_render_frameskip.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_render_frameskip.Properties.IsFloatValue = False + Me.spn_render_frameskip.Properties.Mask.EditMask = "N00" + Me.spn_render_frameskip.Properties.MaxValue = New Decimal(New Integer() {20, 0, 0, 0}) + Me.spn_render_frameskip.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem48.Text = "Frameskip" + ToolTipItem48.LeftIndent = 6 + ToolTipItem48.Text = "How many frames DOSBox skips before drawing one." + SuperToolTip48.Items.Add(ToolTipTitleItem48) + SuperToolTip48.Items.Add(ToolTipItem48) + Me.spn_render_frameskip.SuperTip = SuperToolTip48 + Me.spn_render_frameskip.TabIndex = 11 + ' + 'lbl_render_frameskip + ' + Me.lbl_render_frameskip.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_render_frameskip.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_render_frameskip.Location = New System.Drawing.Point(3, 188) + Me.lbl_render_frameskip.MKBoundControl1 = Me.spn_render_frameskip + Me.lbl_render_frameskip.MKBoundControl2 = Nothing + Me.lbl_render_frameskip.MKBoundControl3 = Nothing + Me.lbl_render_frameskip.MKBoundControl4 = Nothing + Me.lbl_render_frameskip.MKBoundControl5 = Nothing + Me.lbl_render_frameskip.Name = "lbl_render_frameskip" + Me.lbl_render_frameskip.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem47.Text = "Frameskip" + ToolTipItem47.LeftIndent = 6 + ToolTipItem47.Text = "How many frames DOSBox skips before drawing one." + SuperToolTip47.Items.Add(ToolTipTitleItem47) + SuperToolTip47.Items.Add(ToolTipItem47) + Me.lbl_render_frameskip.SuperTip = SuperToolTip47 + Me.lbl_render_frameskip.TabIndex = 21 + Me.lbl_render_frameskip.Text = "Frameskip:" + ' + 'cmb_dosbox_machine + ' + Me.cmb_dosbox_machine.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dosbox-machine", True)) + Me.cmb_dosbox_machine.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dosbox-machine", True)) + Me.cmb_dosbox_machine.Location = New System.Drawing.Point(123, 142) + Me.cmb_dosbox_machine.MKBoundLabel = Me.lbl_dosbox_machine + Me.cmb_dosbox_machine.MKEditValue_Compare = Nothing + Me.cmb_dosbox_machine.Name = "cmb_dosbox_machine" + Me.cmb_dosbox_machine.Properties.AllowFocused = False + Me.cmb_dosbox_machine.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_dosbox_machine.Properties.DataSource = Me.BTA_dosbox_machine + Me.cmb_dosbox_machine.Properties.DisplayMember = "value" + Me.cmb_dosbox_machine.Properties.NullText = "" + Me.cmb_dosbox_machine.Properties.ShowFooter = False + Me.cmb_dosbox_machine.Properties.ShowHeader = False + Me.cmb_dosbox_machine.Properties.ValueMember = "value" + Me.cmb_dosbox_machine.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem50.Text = "Graphics Adapter" + ToolTipItem50.LeftIndent = 6 + ToolTipItem50.Text = "The type of graphics adapter (machine) emulated by DOSBox." + SuperToolTip50.Items.Add(ToolTipTitleItem50) + SuperToolTip50.Items.Add(ToolTipItem50) + Me.cmb_dosbox_machine.SuperTip = SuperToolTip50 + Me.cmb_dosbox_machine.TabIndex = 8 + ' + 'lbl_dosbox_machine + ' + Me.lbl_dosbox_machine.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dosbox_machine.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dosbox_machine.Location = New System.Drawing.Point(3, 142) + Me.lbl_dosbox_machine.MKBoundControl1 = Me.cmb_dosbox_machine + Me.lbl_dosbox_machine.MKBoundControl2 = Nothing + Me.lbl_dosbox_machine.MKBoundControl3 = Nothing + Me.lbl_dosbox_machine.MKBoundControl4 = Nothing + Me.lbl_dosbox_machine.MKBoundControl5 = Nothing + Me.lbl_dosbox_machine.Name = "lbl_dosbox_machine" + Me.lbl_dosbox_machine.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem49.Text = "Graphics Adapter" + ToolTipItem49.LeftIndent = 6 + ToolTipItem49.Text = "The type of graphics adapter (machine) emulated by DOSBox." + SuperToolTip49.Items.Add(ToolTipTitleItem49) + SuperToolTip49.Items.Add(ToolTipItem49) + Me.lbl_dosbox_machine.SuperTip = SuperToolTip49 + Me.lbl_dosbox_machine.TabIndex = 18 + Me.lbl_dosbox_machine.Text = "Graphics Adapter:" + ' + 'BTA_dosbox_machine + ' + Me.BTA_dosbox_machine.AllowDelete = True + Me.BTA_dosbox_machine.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_dosbox_machine.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_dosbox_machine.Connection = Nothing + Me.BTA_dosbox_machine.DSStream = CType(resources.GetObject("BTA_dosbox_machine.DSStream"), System.IO.MemoryStream) + Me.BTA_dosbox_machine.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_dosbox_machine.FillString = "hercules;cga;tandy;pcjr;ega;vgaonly;svga_s3;svga_et3000;svga_et4000;svga_paradise" & + ";vesa_nolfb;vesa_oldvbe" + Me.BTA_dosbox_machine.Position = 0 + Me.BTA_dosbox_machine.Transaction = Nothing + Me.BTA_dosbox_machine.UpdateTablesStream = CType(resources.GetObject("BTA_dosbox_machine.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sdl_output + ' + Me.cmb_sdl_output.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-output", True)) + Me.cmb_sdl_output.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-output", True)) + Me.cmb_sdl_output.Location = New System.Drawing.Point(123, 119) + Me.cmb_sdl_output.MKBoundLabel = Me.lbl_sdl_output + Me.cmb_sdl_output.MKEditValue_Compare = Nothing + Me.cmb_sdl_output.Name = "cmb_sdl_output" + Me.cmb_sdl_output.Properties.AllowFocused = False + Me.cmb_sdl_output.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sdl_output.Properties.DataSource = Me.BTA_sdl_output + Me.cmb_sdl_output.Properties.DisplayMember = "value" + Me.cmb_sdl_output.Properties.NullText = "" + Me.cmb_sdl_output.Properties.ShowFooter = False + Me.cmb_sdl_output.Properties.ShowHeader = False + Me.cmb_sdl_output.Properties.ValueMember = "value" + Me.cmb_sdl_output.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem52.Text = "Output" + ToolTipItem52.LeftIndent = 6 + ToolTipItem52.Text = "Which video system to use for output." + SuperToolTip52.Items.Add(ToolTipTitleItem52) + SuperToolTip52.Items.Add(ToolTipItem52) + Me.cmb_sdl_output.SuperTip = SuperToolTip52 + Me.cmb_sdl_output.TabIndex = 7 + ' + 'lbl_sdl_output + ' + Me.lbl_sdl_output.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_output.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_output.Location = New System.Drawing.Point(3, 119) + Me.lbl_sdl_output.MKBoundControl1 = Me.cmb_sdl_output + Me.lbl_sdl_output.MKBoundControl2 = Nothing + Me.lbl_sdl_output.MKBoundControl3 = Nothing + Me.lbl_sdl_output.MKBoundControl4 = Nothing + Me.lbl_sdl_output.MKBoundControl5 = Nothing + Me.lbl_sdl_output.Name = "lbl_sdl_output" + Me.lbl_sdl_output.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem51.Text = "Output" + ToolTipItem51.LeftIndent = 6 + ToolTipItem51.Text = "Which video system to use for output." + SuperToolTip51.Items.Add(ToolTipTitleItem51) + SuperToolTip51.Items.Add(ToolTipItem51) + Me.lbl_sdl_output.SuperTip = SuperToolTip51 + Me.lbl_sdl_output.TabIndex = 16 + Me.lbl_sdl_output.Text = "Output:" + ' + 'BTA_sdl_output + ' + Me.BTA_sdl_output.AllowDelete = True + Me.BTA_sdl_output.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sdl_output.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sdl_output.Connection = Nothing + Me.BTA_sdl_output.DSStream = CType(resources.GetObject("BTA_sdl_output.DSStream"), System.IO.MemoryStream) + Me.BTA_sdl_output.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sdl_output.FillString = "surface;overlay;opengl;openglnb;ddraw" + Me.BTA_sdl_output.Position = 0 + Me.BTA_sdl_output.Transaction = Nothing + Me.BTA_sdl_output.UpdateTablesStream = CType(resources.GetObject("BTA_sdl_output.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_render_aspect + ' + Me.chb_render_aspect.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "render-aspect", True)) + Me.chb_render_aspect.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "render-aspect", True)) + Me.chb_render_aspect.Location = New System.Drawing.Point(123, 97) + Me.chb_render_aspect.MKBoundLabel = Me.lbl_render_aspect + Me.chb_render_aspect.MKEditValue_Compare = Nothing + Me.chb_render_aspect.Name = "chb_render_aspect" + Me.chb_render_aspect.Properties.Caption = "" + Me.chb_render_aspect.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem54.Text = "Keep Aspect Ratio" + ToolTipItem54.LeftIndent = 6 + ToolTipItem54.Text = "Do aspect correction, if your output method doesn't support scaling this can slow" & + " things down!" + SuperToolTip54.Items.Add(ToolTipTitleItem54) + SuperToolTip54.Items.Add(ToolTipItem54) + Me.chb_render_aspect.SuperTip = SuperToolTip54 + Me.chb_render_aspect.TabIndex = 6 + ' + 'lbl_render_aspect + ' + Me.lbl_render_aspect.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_render_aspect.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_render_aspect.Location = New System.Drawing.Point(3, 96) + Me.lbl_render_aspect.MKBoundControl1 = Me.chb_render_aspect + Me.lbl_render_aspect.MKBoundControl2 = Nothing + Me.lbl_render_aspect.MKBoundControl3 = Nothing + Me.lbl_render_aspect.MKBoundControl4 = Nothing + Me.lbl_render_aspect.MKBoundControl5 = Nothing + Me.lbl_render_aspect.Name = "lbl_render_aspect" + Me.lbl_render_aspect.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem53.Text = "Keep Aspect Ratio" + ToolTipItem53.LeftIndent = 6 + ToolTipItem53.Text = "Do aspect correction, if your output method doesn't support scaling this can slow" & + " things down!" + SuperToolTip53.Items.Add(ToolTipTitleItem53) + SuperToolTip53.Items.Add(ToolTipItem53) + Me.lbl_render_aspect.SuperTip = SuperToolTip53 + Me.lbl_render_aspect.TabIndex = 13 + Me.lbl_render_aspect.Text = "Keep Aspect Ratio:" + ' + 'chb_sdl_fulldouble + ' + Me.chb_sdl_fulldouble.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-fulldouble", True)) + Me.chb_sdl_fulldouble.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-fulldouble", True)) + Me.chb_sdl_fulldouble.Location = New System.Drawing.Point(123, 74) + Me.chb_sdl_fulldouble.MKBoundLabel = Me.lbl_sdl_fulldouble + Me.chb_sdl_fulldouble.MKEditValue_Compare = Nothing + Me.chb_sdl_fulldouble.Name = "chb_sdl_fulldouble" + Me.chb_sdl_fulldouble.Properties.Caption = "" + Me.chb_sdl_fulldouble.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem56.Text = "Double Buffering" + ToolTipItem56.LeftIndent = 6 + ToolTipItem56.Text = "Use double buffering in fullscreen. It can reduce screen flickering, but it can a" & + "lso result in a slow DOSBox." + SuperToolTip56.Items.Add(ToolTipTitleItem56) + SuperToolTip56.Items.Add(ToolTipItem56) + Me.chb_sdl_fulldouble.SuperTip = SuperToolTip56 + Me.chb_sdl_fulldouble.TabIndex = 5 + ' + 'lbl_sdl_fulldouble + ' + Me.lbl_sdl_fulldouble.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_fulldouble.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_fulldouble.Location = New System.Drawing.Point(3, 73) + Me.lbl_sdl_fulldouble.MKBoundControl1 = Me.chb_sdl_fulldouble + Me.lbl_sdl_fulldouble.MKBoundControl2 = Nothing + Me.lbl_sdl_fulldouble.MKBoundControl3 = Nothing + Me.lbl_sdl_fulldouble.MKBoundControl4 = Nothing + Me.lbl_sdl_fulldouble.MKBoundControl5 = Nothing + Me.lbl_sdl_fulldouble.Name = "lbl_sdl_fulldouble" + Me.lbl_sdl_fulldouble.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem55.Text = "Double Buffering" + ToolTipItem55.LeftIndent = 6 + ToolTipItem55.Text = "Use double buffering in fullscreen. It can reduce screen flickering, but it can a" & + "lso result in a slow DOSBox." + SuperToolTip55.Items.Add(ToolTipTitleItem55) + SuperToolTip55.Items.Add(ToolTipItem55) + Me.lbl_sdl_fulldouble.SuperTip = SuperToolTip55 + Me.lbl_sdl_fulldouble.TabIndex = 11 + Me.lbl_sdl_fulldouble.Text = "Double Buffering:" + ' + 'chb_sdl_fullscreen + ' + Me.chb_sdl_fullscreen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-fullscreen", True)) + Me.chb_sdl_fullscreen.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-fullscreen", True)) + Me.chb_sdl_fullscreen.Location = New System.Drawing.Point(123, 51) + Me.chb_sdl_fullscreen.MKBoundLabel = Me.lbl_sdl_fullscreen + Me.chb_sdl_fullscreen.MKEditValue_Compare = Nothing + Me.chb_sdl_fullscreen.Name = "chb_sdl_fullscreen" + Me.chb_sdl_fullscreen.Properties.Caption = "" + Me.chb_sdl_fullscreen.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem58.Text = "Fullscreen" + ToolTipItem58.LeftIndent = 6 + ToolTipItem58.Text = "Start dosbox directly in fullscreen. (Press ALT-Enter to go back)" + SuperToolTip58.Items.Add(ToolTipTitleItem58) + SuperToolTip58.Items.Add(ToolTipItem58) + Me.chb_sdl_fullscreen.SuperTip = SuperToolTip58 + Me.chb_sdl_fullscreen.TabIndex = 4 + ' + 'lbl_sdl_fullscreen + ' + Me.lbl_sdl_fullscreen.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_fullscreen.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_fullscreen.Location = New System.Drawing.Point(3, 50) + Me.lbl_sdl_fullscreen.MKBoundControl1 = Me.chb_sdl_fullscreen + Me.lbl_sdl_fullscreen.MKBoundControl2 = Nothing + Me.lbl_sdl_fullscreen.MKBoundControl3 = Nothing + Me.lbl_sdl_fullscreen.MKBoundControl4 = Nothing + Me.lbl_sdl_fullscreen.MKBoundControl5 = Nothing + Me.lbl_sdl_fullscreen.Name = "lbl_sdl_fullscreen" + Me.lbl_sdl_fullscreen.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem57.Text = "Fullscreen" + ToolTipItem57.LeftIndent = 6 + ToolTipItem57.Text = "Start dosbox directly in fullscreen. (Press ALT-Enter to go back)" + SuperToolTip57.Items.Add(ToolTipTitleItem57) + SuperToolTip57.Items.Add(ToolTipItem57) + Me.lbl_sdl_fullscreen.SuperTip = SuperToolTip57 + Me.lbl_sdl_fullscreen.TabIndex = 9 + Me.lbl_sdl_fullscreen.Text = "Fullscreen:" + ' + 'cmb_sdl_windowresolution + ' + Me.cmb_sdl_windowresolution.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-windowresolution", True)) + Me.cmb_sdl_windowresolution.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-windowresolution", True)) + Me.cmb_sdl_windowresolution.Location = New System.Drawing.Point(123, 27) + Me.cmb_sdl_windowresolution.MKBoundLabel = Me.lbl_sdl_windowresolution + Me.cmb_sdl_windowresolution.MKEditValue_Compare = Nothing + Me.cmb_sdl_windowresolution.Name = "cmb_sdl_windowresolution" + Me.cmb_sdl_windowresolution.Properties.AllowFocused = False + Me.cmb_sdl_windowresolution.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sdl_windowresolution.Properties.DataSource = Me.BTA_sdl_windowresolution + Me.cmb_sdl_windowresolution.Properties.DisplayMember = "value" + Me.cmb_sdl_windowresolution.Properties.NullText = "" + Me.cmb_sdl_windowresolution.Properties.ShowFooter = False + Me.cmb_sdl_windowresolution.Properties.ShowHeader = False + Me.cmb_sdl_windowresolution.Properties.ValueMember = "value" + Me.cmb_sdl_windowresolution.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem60.Text = "Resolution in windowed mode" + ToolTipItem60.LeftIndent = 6 + ToolTipItem60.Text = "Scale the window to this size IF the output device supports hardware scaling." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ou" & + "tput 'surface' does not support hardware scaling!" + SuperToolTip60.Items.Add(ToolTipTitleItem60) + SuperToolTip60.Items.Add(ToolTipItem60) + Me.cmb_sdl_windowresolution.SuperTip = SuperToolTip60 + Me.cmb_sdl_windowresolution.TabIndex = 2 + ' + 'lbl_resolution + ' + Me.lbl_resolution.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_resolution.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_resolution.Location = New System.Drawing.Point(3, 4) + Me.lbl_resolution.MKBoundControl1 = Me.cmb_sdl_fullresolution + Me.lbl_resolution.MKBoundControl2 = Me.cmb_sdl_windowresolution + Me.lbl_resolution.MKBoundControl3 = Nothing + Me.lbl_resolution.MKBoundControl4 = Nothing + Me.lbl_resolution.MKBoundControl5 = Nothing + Me.lbl_resolution.Name = "lbl_resolution" + Me.lbl_resolution.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem63.Text = "Resolutions" + ToolTipItem63.LeftIndent = 6 + ToolTipItem63.Text = "Which resolutions to use for fullscreen and windowed modes." + SuperToolTip63.Items.Add(ToolTipTitleItem63) + SuperToolTip63.Items.Add(ToolTipItem63) + Me.lbl_resolution.SuperTip = SuperToolTip63 + Me.lbl_resolution.TabIndex = 6 + Me.lbl_resolution.Text = "Resolutions:" + ' + 'cmb_sdl_fullresolution + ' + Me.cmb_sdl_fullresolution.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-fullresolution", True)) + Me.cmb_sdl_fullresolution.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-fullresolution", True)) + Me.cmb_sdl_fullresolution.Location = New System.Drawing.Point(123, 4) + Me.cmb_sdl_fullresolution.MKBoundLabel = Me.lbl_sdl_fullresolution + Me.cmb_sdl_fullresolution.MKEditValue_Compare = Nothing + Me.cmb_sdl_fullresolution.Name = "cmb_sdl_fullresolution" + Me.cmb_sdl_fullresolution.Properties.AllowFocused = False + Me.cmb_sdl_fullresolution.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sdl_fullresolution.Properties.DataSource = Me.BTA_sdl_fullresolution + Me.cmb_sdl_fullresolution.Properties.DisplayMember = "value" + Me.cmb_sdl_fullresolution.Properties.NullText = "" + Me.cmb_sdl_fullresolution.Properties.ShowFooter = False + Me.cmb_sdl_fullresolution.Properties.ShowHeader = False + Me.cmb_sdl_fullresolution.Properties.ValueMember = "value" + Me.cmb_sdl_fullresolution.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem62.Text = "Resolution in fullscreen mode" + ToolTipItem62.LeftIndent = 6 + ToolTipItem62.Text = resources.GetString("ToolTipItem62.Text") + SuperToolTip62.Items.Add(ToolTipTitleItem62) + SuperToolTip62.Items.Add(ToolTipItem62) + Me.cmb_sdl_fullresolution.SuperTip = SuperToolTip62 + Me.cmb_sdl_fullresolution.TabIndex = 0 + ' + 'BTA_sdl_fullresolution + ' + Me.BTA_sdl_fullresolution.AllowDelete = True + Me.BTA_sdl_fullresolution.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sdl_fullresolution.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sdl_fullresolution.Connection = Nothing + Me.BTA_sdl_fullresolution.DSStream = CType(resources.GetObject("BTA_sdl_fullresolution.DSStream"), System.IO.MemoryStream) + Me.BTA_sdl_fullresolution.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sdl_fullresolution.FillString = resources.GetString("BTA_sdl_fullresolution.FillString") + Me.BTA_sdl_fullresolution.Position = 0 + Me.BTA_sdl_fullresolution.Transaction = Nothing + Me.BTA_sdl_fullresolution.UpdateTablesStream = CType(resources.GetObject("BTA_sdl_fullresolution.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'BTA_sdl_windowresolution + ' + Me.BTA_sdl_windowresolution.AllowDelete = True + Me.BTA_sdl_windowresolution.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sdl_windowresolution.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sdl_windowresolution.Connection = Nothing + Me.BTA_sdl_windowresolution.DSStream = CType(resources.GetObject("BTA_sdl_windowresolution.DSStream"), System.IO.MemoryStream) + Me.BTA_sdl_windowresolution.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sdl_windowresolution.FillString = resources.GetString("BTA_sdl_windowresolution.FillString") + Me.BTA_sdl_windowresolution.Position = 0 + Me.BTA_sdl_windowresolution.Transaction = Nothing + Me.BTA_sdl_windowresolution.UpdateTablesStream = CType(resources.GetObject("BTA_sdl_windowresolution.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_sdl_windowresolution + ' + Me.lbl_sdl_windowresolution.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_sdl_windowresolution.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_windowresolution.Location = New System.Drawing.Point(233, 27) + Me.lbl_sdl_windowresolution.MKBoundControl1 = Me.cmb_sdl_windowresolution + Me.lbl_sdl_windowresolution.MKBoundControl2 = Nothing + Me.lbl_sdl_windowresolution.MKBoundControl3 = Nothing + Me.lbl_sdl_windowresolution.MKBoundControl4 = Nothing + Me.lbl_sdl_windowresolution.MKBoundControl5 = Nothing + Me.lbl_sdl_windowresolution.Name = "lbl_sdl_windowresolution" + Me.lbl_sdl_windowresolution.Size = New System.Drawing.Size(120, 20) + ToolTipTitleItem59.Text = "Resolution in windowed mode" + ToolTipItem59.LeftIndent = 6 + ToolTipItem59.Text = "Scale the window to this size IF the output device supports hardware scaling." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ou" & + "tput 'surface' does not support hardware scaling!" + SuperToolTip59.Items.Add(ToolTipTitleItem59) + SuperToolTip59.Items.Add(ToolTipItem59) + Me.lbl_sdl_windowresolution.SuperTip = SuperToolTip59 + Me.lbl_sdl_windowresolution.TabIndex = 3 + Me.lbl_sdl_windowresolution.Text = "in windowed mode" + ' + 'lbl_sdl_fullresolution + ' + Me.lbl_sdl_fullresolution.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_sdl_fullresolution.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_fullresolution.Location = New System.Drawing.Point(233, 4) + Me.lbl_sdl_fullresolution.MKBoundControl1 = Me.cmb_sdl_fullresolution + Me.lbl_sdl_fullresolution.MKBoundControl2 = Nothing + Me.lbl_sdl_fullresolution.MKBoundControl3 = Nothing + Me.lbl_sdl_fullresolution.MKBoundControl4 = Nothing + Me.lbl_sdl_fullresolution.MKBoundControl5 = Nothing + Me.lbl_sdl_fullresolution.Name = "lbl_sdl_fullresolution" + Me.lbl_sdl_fullresolution.Size = New System.Drawing.Size(120, 20) + ToolTipTitleItem61.Text = "Resolution in fullscreen mode" + ToolTipItem61.LeftIndent = 6 + ToolTipItem61.Text = resources.GetString("ToolTipItem61.Text") + SuperToolTip61.Items.Add(ToolTipTitleItem61) + SuperToolTip61.Items.Add(ToolTipItem61) + Me.lbl_sdl_fullresolution.SuperTip = SuperToolTip61 + Me.lbl_sdl_fullresolution.TabIndex = 1 + Me.lbl_sdl_fullresolution.Text = "in fullscreen mode" + ' + 'tpg_Keyboard + ' + Me.tpg_Keyboard.Controls.Add(Me.btn_sdl_mapperfile) + Me.tpg_Keyboard.Controls.Add(Me.spn_sdl_sensitivity) + Me.tpg_Keyboard.Controls.Add(Me.chb_sdl_autolock) + Me.tpg_Keyboard.Controls.Add(Me.lbl_sdl_sensitivity) + Me.tpg_Keyboard.Controls.Add(Me.lbl_sdl_autolock) + Me.tpg_Keyboard.Controls.Add(Me.txb_sdl_mapperfile) + Me.tpg_Keyboard.Controls.Add(Me.lbl_sdl_mapperfile) + Me.tpg_Keyboard.Controls.Add(Me.cmb_dos_keyboardlayout) + Me.tpg_Keyboard.Controls.Add(Me.chb_sdl_usescancodes) + Me.tpg_Keyboard.Controls.Add(Me.lbl_dos_keyboardlayout) + Me.tpg_Keyboard.Controls.Add(Me.lbl_sdl_usescancodes) + Me.tpg_Keyboard.Name = "tpg_Keyboard" + Me.tpg_Keyboard.Size = New System.Drawing.Size(546, 434) + Me.tpg_Keyboard.Text = "Keyboard & Mouse" + ' + 'btn_sdl_mapperfile + ' + Me.btn_sdl_mapperfile.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_sdl_mapperfile.Location = New System.Drawing.Point(1081, 50) + Me.btn_sdl_mapperfile.Name = "btn_sdl_mapperfile" + Me.btn_sdl_mapperfile.Size = New System.Drawing.Size(27, 20) + ToolTipTitleItem64.Text = "Mapper File" + ToolTipItem64.LeftIndent = 6 + ToolTipItem64.Text = "File used to load/save the key/event mappings from. Resetmapper only works with t" & + "he default value." + SuperToolTip64.Items.Add(ToolTipTitleItem64) + SuperToolTip64.Items.Add(ToolTipItem64) + Me.btn_sdl_mapperfile.SuperTip = SuperToolTip64 + Me.btn_sdl_mapperfile.TabIndex = 14 + Me.btn_sdl_mapperfile.Text = "..." + ' + 'spn_sdl_sensitivity + ' + Me.spn_sdl_sensitivity.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-sensitivity", True)) + Me.spn_sdl_sensitivity.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-sensitivity", True)) + Me.spn_sdl_sensitivity.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_sdl_sensitivity.Location = New System.Drawing.Point(123, 96) + Me.spn_sdl_sensitivity.MKBoundLabel = Me.lbl_sdl_sensitivity + Me.spn_sdl_sensitivity.MKEditValue_Compare = Nothing + Me.spn_sdl_sensitivity.Name = "spn_sdl_sensitivity" + Me.spn_sdl_sensitivity.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_sdl_sensitivity.Properties.IsFloatValue = False + Me.spn_sdl_sensitivity.Properties.Mask.EditMask = "N00" + Me.spn_sdl_sensitivity.Properties.MaxValue = New Decimal(New Integer() {2147483647, 0, 0, 0}) + Me.spn_sdl_sensitivity.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem66.Text = "Mouse Sensitivity" + SuperToolTip66.Items.Add(ToolTipTitleItem66) + Me.spn_sdl_sensitivity.SuperTip = SuperToolTip66 + Me.spn_sdl_sensitivity.TabIndex = 4 + ' + 'lbl_sdl_sensitivity + ' + Me.lbl_sdl_sensitivity.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_sensitivity.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_sensitivity.Location = New System.Drawing.Point(3, 96) + Me.lbl_sdl_sensitivity.MKBoundControl1 = Me.spn_sdl_sensitivity + Me.lbl_sdl_sensitivity.MKBoundControl2 = Nothing + Me.lbl_sdl_sensitivity.MKBoundControl3 = Nothing + Me.lbl_sdl_sensitivity.MKBoundControl4 = Nothing + Me.lbl_sdl_sensitivity.MKBoundControl5 = Nothing + Me.lbl_sdl_sensitivity.Name = "lbl_sdl_sensitivity" + Me.lbl_sdl_sensitivity.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem65.Text = "Mouse Sensitivity" + SuperToolTip65.Items.Add(ToolTipTitleItem65) + Me.lbl_sdl_sensitivity.SuperTip = SuperToolTip65 + Me.lbl_sdl_sensitivity.TabIndex = 10 + Me.lbl_sdl_sensitivity.Text = "Mouse Sensitivity:" + ' + 'chb_sdl_autolock + ' + Me.chb_sdl_autolock.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-autolock", True)) + Me.chb_sdl_autolock.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-autolock", True)) + Me.chb_sdl_autolock.Location = New System.Drawing.Point(123, 74) + Me.chb_sdl_autolock.MKBoundLabel = Me.lbl_sdl_autolock + Me.chb_sdl_autolock.MKEditValue_Compare = Nothing + Me.chb_sdl_autolock.Name = "chb_sdl_autolock" + Me.chb_sdl_autolock.Properties.Caption = "" + Me.chb_sdl_autolock.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem68.Text = "Mouse Autolock" + ToolTipItem66.LeftIndent = 6 + ToolTipItem66.Text = "Mouse will automatically lock, if you click on the screen. (Press CTRL-F10 to unl" & + "ock)" + SuperToolTip68.Items.Add(ToolTipTitleItem68) + SuperToolTip68.Items.Add(ToolTipItem66) + Me.chb_sdl_autolock.SuperTip = SuperToolTip68 + Me.chb_sdl_autolock.TabIndex = 3 + ' + 'lbl_sdl_autolock + ' + Me.lbl_sdl_autolock.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_autolock.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_autolock.Location = New System.Drawing.Point(3, 73) + Me.lbl_sdl_autolock.MKBoundControl1 = Me.chb_sdl_autolock + Me.lbl_sdl_autolock.MKBoundControl2 = Nothing + Me.lbl_sdl_autolock.MKBoundControl3 = Nothing + Me.lbl_sdl_autolock.MKBoundControl4 = Nothing + Me.lbl_sdl_autolock.MKBoundControl5 = Nothing + Me.lbl_sdl_autolock.Name = "lbl_sdl_autolock" + Me.lbl_sdl_autolock.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem67.Text = "Mouse Autolock" + ToolTipItem65.LeftIndent = 6 + ToolTipItem65.Text = "Mouse will automatically lock, if you click on the screen. (Press CTRL-F10 to unl" & + "ock)" + SuperToolTip67.Items.Add(ToolTipTitleItem67) + SuperToolTip67.Items.Add(ToolTipItem65) + Me.lbl_sdl_autolock.SuperTip = SuperToolTip67 + Me.lbl_sdl_autolock.TabIndex = 11 + Me.lbl_sdl_autolock.Text = "Mouse Autolock:" + ' + 'txb_sdl_mapperfile + ' + Me.txb_sdl_mapperfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_sdl_mapperfile.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-mapperfile", True)) + Me.txb_sdl_mapperfile.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-mapperfile", True)) + Me.txb_sdl_mapperfile.Location = New System.Drawing.Point(123, 50) + Me.txb_sdl_mapperfile.MKBoundLabel = Me.lbl_sdl_mapperfile + Me.txb_sdl_mapperfile.MKEditValue_Compare = Nothing + Me.txb_sdl_mapperfile.Name = "txb_sdl_mapperfile" + Me.txb_sdl_mapperfile.Size = New System.Drawing.Size(420, 20) + ToolTipTitleItem70.Text = "Mapper File" + ToolTipItem68.LeftIndent = 6 + ToolTipItem68.Text = "File used to load/save the key/event mappings from. Resetmapper only works with t" & + "he default value." + SuperToolTip70.Items.Add(ToolTipTitleItem70) + SuperToolTip70.Items.Add(ToolTipItem68) + Me.txb_sdl_mapperfile.SuperTip = SuperToolTip70 + Me.txb_sdl_mapperfile.TabIndex = 2 + ' + 'lbl_sdl_mapperfile + ' + Me.lbl_sdl_mapperfile.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_mapperfile.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_mapperfile.Location = New System.Drawing.Point(3, 50) + Me.lbl_sdl_mapperfile.MKBoundControl1 = Me.txb_sdl_mapperfile + Me.lbl_sdl_mapperfile.MKBoundControl2 = Nothing + Me.lbl_sdl_mapperfile.MKBoundControl3 = Nothing + Me.lbl_sdl_mapperfile.MKBoundControl4 = Nothing + Me.lbl_sdl_mapperfile.MKBoundControl5 = Nothing + Me.lbl_sdl_mapperfile.Name = "lbl_sdl_mapperfile" + Me.lbl_sdl_mapperfile.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem69.Text = "Mapper File" + ToolTipItem67.LeftIndent = 6 + ToolTipItem67.Text = "File used to load/save the key/event mappings from. Resetmapper only works with t" & + "he default value." + SuperToolTip69.Items.Add(ToolTipTitleItem69) + SuperToolTip69.Items.Add(ToolTipItem67) + Me.lbl_sdl_mapperfile.SuperTip = SuperToolTip69 + Me.lbl_sdl_mapperfile.TabIndex = 8 + Me.lbl_sdl_mapperfile.Text = "Mapper File:" + ' + 'cmb_dos_keyboardlayout + ' + Me.cmb_dos_keyboardlayout.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "dos-keyboardlayout", True)) + Me.cmb_dos_keyboardlayout.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "dos-keyboardlayout", True)) + Me.cmb_dos_keyboardlayout.Location = New System.Drawing.Point(123, 27) + Me.cmb_dos_keyboardlayout.MKBoundLabel = Me.lbl_dos_keyboardlayout + Me.cmb_dos_keyboardlayout.MKEditValue_Compare = Nothing + Me.cmb_dos_keyboardlayout.Name = "cmb_dos_keyboardlayout" + Me.cmb_dos_keyboardlayout.Properties.AllowFocused = False + Me.cmb_dos_keyboardlayout.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_dos_keyboardlayout.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Value", "Value", 30, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displaytext", "Displaytext", 157, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_dos_keyboardlayout.Properties.DataSource = Me.BTA_dos_keyboardlayout + Me.cmb_dos_keyboardlayout.Properties.DisplayMember = "Displaytext" + Me.cmb_dos_keyboardlayout.Properties.NullText = "" + Me.cmb_dos_keyboardlayout.Properties.ShowFooter = False + Me.cmb_dos_keyboardlayout.Properties.ShowHeader = False + Me.cmb_dos_keyboardlayout.Properties.ValueMember = "Value" + Me.cmb_dos_keyboardlayout.Size = New System.Drawing.Size(157, 20) + ToolTipTitleItem72.Text = "Keyboard Layout" + ToolTipItem70.LeftIndent = 6 + ToolTipItem70.Text = "Language code of the keyboard layout." + SuperToolTip72.Items.Add(ToolTipTitleItem72) + SuperToolTip72.Items.Add(ToolTipItem70) + Me.cmb_dos_keyboardlayout.SuperTip = SuperToolTip72 + Me.cmb_dos_keyboardlayout.TabIndex = 1 + ' + 'lbl_dos_keyboardlayout + ' + Me.lbl_dos_keyboardlayout.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_dos_keyboardlayout.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_dos_keyboardlayout.Location = New System.Drawing.Point(3, 27) + Me.lbl_dos_keyboardlayout.MKBoundControl1 = Me.cmb_dos_keyboardlayout + Me.lbl_dos_keyboardlayout.MKBoundControl2 = Nothing + Me.lbl_dos_keyboardlayout.MKBoundControl3 = Nothing + Me.lbl_dos_keyboardlayout.MKBoundControl4 = Nothing + Me.lbl_dos_keyboardlayout.MKBoundControl5 = Nothing + Me.lbl_dos_keyboardlayout.Name = "lbl_dos_keyboardlayout" + Me.lbl_dos_keyboardlayout.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem71.Text = "Keyboard Layout" + ToolTipItem69.LeftIndent = 6 + ToolTipItem69.Text = "Language code of the keyboard layout." + SuperToolTip71.Items.Add(ToolTipTitleItem71) + SuperToolTip71.Items.Add(ToolTipItem69) + Me.lbl_dos_keyboardlayout.SuperTip = SuperToolTip71 + Me.lbl_dos_keyboardlayout.TabIndex = 5 + Me.lbl_dos_keyboardlayout.Text = "Keyboard Layout:" + ' + 'BTA_dos_keyboardlayout + ' + Me.BTA_dos_keyboardlayout.AllowDelete = True + Me.BTA_dos_keyboardlayout.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_dos_keyboardlayout.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_dos_keyboardlayout.Connection = Nothing + Me.BTA_dos_keyboardlayout.DSStream = CType(resources.GetObject("BTA_dos_keyboardlayout.DSStream"), System.IO.MemoryStream) + Me.BTA_dos_keyboardlayout.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_dos_keyboardlayout.FillString = resources.GetString("BTA_dos_keyboardlayout.FillString") + Me.BTA_dos_keyboardlayout.Position = 0 + Me.BTA_dos_keyboardlayout.Transaction = Nothing + Me.BTA_dos_keyboardlayout.UpdateTablesStream = CType(resources.GetObject("BTA_dos_keyboardlayout.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_sdl_usescancodes + ' + Me.chb_sdl_usescancodes.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sdl-usescancodes", True)) + Me.chb_sdl_usescancodes.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sdl-usescancodes", True)) + Me.chb_sdl_usescancodes.Location = New System.Drawing.Point(123, 5) + Me.chb_sdl_usescancodes.MKBoundLabel = Me.lbl_sdl_usescancodes + Me.chb_sdl_usescancodes.MKEditValue_Compare = Nothing + Me.chb_sdl_usescancodes.Name = "chb_sdl_usescancodes" + Me.chb_sdl_usescancodes.Properties.Caption = "" + Me.chb_sdl_usescancodes.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem74.Text = "Use Scancodes" + ToolTipItem72.LeftIndent = 6 + ToolTipItem72.Text = "Avoid usage of symkeys, might not work on all operating systems." + SuperToolTip74.Items.Add(ToolTipTitleItem74) + SuperToolTip74.Items.Add(ToolTipItem72) + Me.chb_sdl_usescancodes.SuperTip = SuperToolTip74 + Me.chb_sdl_usescancodes.TabIndex = 0 + ' + 'lbl_sdl_usescancodes + ' + Me.lbl_sdl_usescancodes.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sdl_usescancodes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sdl_usescancodes.Location = New System.Drawing.Point(3, 4) + Me.lbl_sdl_usescancodes.MKBoundControl1 = Me.chb_sdl_usescancodes + Me.lbl_sdl_usescancodes.MKBoundControl2 = Nothing + Me.lbl_sdl_usescancodes.MKBoundControl3 = Nothing + Me.lbl_sdl_usescancodes.MKBoundControl4 = Nothing + Me.lbl_sdl_usescancodes.MKBoundControl5 = Nothing + Me.lbl_sdl_usescancodes.Name = "lbl_sdl_usescancodes" + Me.lbl_sdl_usescancodes.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem73.Text = "Use Scancodes" + ToolTipItem71.LeftIndent = 6 + ToolTipItem71.Text = "Avoid usage of symkeys, might not work on all operating systems." + SuperToolTip73.Items.Add(ToolTipTitleItem73) + SuperToolTip73.Items.Add(ToolTipItem71) + Me.lbl_sdl_usescancodes.SuperTip = SuperToolTip73 + Me.lbl_sdl_usescancodes.TabIndex = 5 + Me.lbl_sdl_usescancodes.Text = "Use Scancodes:" + ' + 'tpg_Sound + ' + Me.tpg_Sound.Controls.Add(Me.spn_mixer_prebuffer) + Me.tpg_Sound.Controls.Add(Me.cmb_speaker_tandyrate) + Me.tpg_Sound.Controls.Add(Me.cmb_speaker_pcrate) + Me.tpg_Sound.Controls.Add(Me.cmb_speaker_tandy) + Me.tpg_Sound.Controls.Add(Me.chb_speaker_disney) + Me.tpg_Sound.Controls.Add(Me.chb_speaker_pcspeaker) + Me.tpg_Sound.Controls.Add(Me.lbl_speaker_tandyrate) + Me.tpg_Sound.Controls.Add(Me.lbl_speaker_pcrate) + Me.tpg_Sound.Controls.Add(Me.lbl_speaker_tandy) + Me.tpg_Sound.Controls.Add(Me.lbl_speaker_disney) + Me.tpg_Sound.Controls.Add(Me.lbl_speaker_pcspeaker) + Me.tpg_Sound.Controls.Add(Me.cmb_mixer_blocksize) + Me.tpg_Sound.Controls.Add(Me.cmb_mixer_rate) + Me.tpg_Sound.Controls.Add(Me.lbl_mixer_prebuffer) + Me.tpg_Sound.Controls.Add(Me.lbl_mixer_blocksize) + Me.tpg_Sound.Controls.Add(Me.lbl_mixer_rate) + Me.tpg_Sound.Controls.Add(Me.chb_mixer_nosound) + Me.tpg_Sound.Controls.Add(Me.lbl_mixer_nosound) + Me.tpg_Sound.Name = "tpg_Sound" + Me.tpg_Sound.Size = New System.Drawing.Size(546, 434) + Me.tpg_Sound.Text = "Sound" + ' + 'spn_mixer_prebuffer + ' + Me.spn_mixer_prebuffer.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "mixer-prebuffer", True)) + Me.spn_mixer_prebuffer.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "mixer-prebuffer", True)) + Me.spn_mixer_prebuffer.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_mixer_prebuffer.Location = New System.Drawing.Point(123, 73) + Me.spn_mixer_prebuffer.MKBoundLabel = Me.lbl_mixer_prebuffer + Me.spn_mixer_prebuffer.MKEditValue_Compare = Nothing + Me.spn_mixer_prebuffer.Name = "spn_mixer_prebuffer" + Me.spn_mixer_prebuffer.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_mixer_prebuffer.Properties.IsFloatValue = False + Me.spn_mixer_prebuffer.Properties.Mask.EditMask = "N00" + Me.spn_mixer_prebuffer.Properties.MaxValue = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.spn_mixer_prebuffer.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem76.Text = "Mixer Prebuffer" + ToolTipItem74.LeftIndent = 6 + ToolTipItem74.Text = "The amount of milliseconds of data to keep on top of the blocksize." + SuperToolTip76.Items.Add(ToolTipTitleItem76) + SuperToolTip76.Items.Add(ToolTipItem74) + Me.spn_mixer_prebuffer.SuperTip = SuperToolTip76 + Me.spn_mixer_prebuffer.TabIndex = 3 + ' + 'lbl_mixer_prebuffer + ' + Me.lbl_mixer_prebuffer.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_mixer_prebuffer.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mixer_prebuffer.Location = New System.Drawing.Point(3, 73) + Me.lbl_mixer_prebuffer.MKBoundControl1 = Me.spn_mixer_prebuffer + Me.lbl_mixer_prebuffer.MKBoundControl2 = Nothing + Me.lbl_mixer_prebuffer.MKBoundControl3 = Nothing + Me.lbl_mixer_prebuffer.MKBoundControl4 = Nothing + Me.lbl_mixer_prebuffer.MKBoundControl5 = Nothing + Me.lbl_mixer_prebuffer.Name = "lbl_mixer_prebuffer" + Me.lbl_mixer_prebuffer.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem75.Text = "Mixer Prebuffer" + ToolTipItem73.LeftIndent = 6 + ToolTipItem73.Text = "The amount of milliseconds of data to keep on top of the blocksize." + SuperToolTip75.Items.Add(ToolTipTitleItem75) + SuperToolTip75.Items.Add(ToolTipItem73) + Me.lbl_mixer_prebuffer.SuperTip = SuperToolTip75 + Me.lbl_mixer_prebuffer.TabIndex = 20 + Me.lbl_mixer_prebuffer.Text = "Mixer Prebuffer:" + ' + 'cmb_speaker_tandyrate + ' + Me.cmb_speaker_tandyrate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "speaker-tandyrate", True)) + Me.cmb_speaker_tandyrate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "speaker-tandyrate", True)) + Me.cmb_speaker_tandyrate.Location = New System.Drawing.Point(123, 165) + Me.cmb_speaker_tandyrate.MKBoundLabel = Me.lbl_speaker_tandyrate + Me.cmb_speaker_tandyrate.MKEditValue_Compare = Nothing + Me.cmb_speaker_tandyrate.Name = "cmb_speaker_tandyrate" + Me.cmb_speaker_tandyrate.Properties.AllowFocused = False + Me.cmb_speaker_tandyrate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_speaker_tandyrate.Properties.DataSource = Me.BTA_speaker_tandyrate + Me.cmb_speaker_tandyrate.Properties.DisplayMember = "value" + Me.cmb_speaker_tandyrate.Properties.NullText = "" + Me.cmb_speaker_tandyrate.Properties.ShowFooter = False + Me.cmb_speaker_tandyrate.Properties.ShowHeader = False + Me.cmb_speaker_tandyrate.Properties.ValueMember = "value" + Me.cmb_speaker_tandyrate.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem78.Text = "Tandy Rate" + ToolTipItem76.LeftIndent = 6 + ToolTipItem76.Text = "Sample rate of the Tandy 3-Voice generation." + SuperToolTip78.Items.Add(ToolTipTitleItem78) + SuperToolTip78.Items.Add(ToolTipItem76) + Me.cmb_speaker_tandyrate.SuperTip = SuperToolTip78 + Me.cmb_speaker_tandyrate.TabIndex = 7 + ' + 'lbl_speaker_tandyrate + ' + Me.lbl_speaker_tandyrate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_speaker_tandyrate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_speaker_tandyrate.Location = New System.Drawing.Point(3, 165) + Me.lbl_speaker_tandyrate.MKBoundControl1 = Me.cmb_speaker_tandyrate + Me.lbl_speaker_tandyrate.MKBoundControl2 = Nothing + Me.lbl_speaker_tandyrate.MKBoundControl3 = Nothing + Me.lbl_speaker_tandyrate.MKBoundControl4 = Nothing + Me.lbl_speaker_tandyrate.MKBoundControl5 = Nothing + Me.lbl_speaker_tandyrate.Name = "lbl_speaker_tandyrate" + Me.lbl_speaker_tandyrate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem77.Text = "Tandy Rate" + ToolTipItem75.LeftIndent = 6 + ToolTipItem75.Text = "Sample rate of the Tandy 3-Voice generation." + SuperToolTip77.Items.Add(ToolTipTitleItem77) + SuperToolTip77.Items.Add(ToolTipItem75) + Me.lbl_speaker_tandyrate.SuperTip = SuperToolTip77 + Me.lbl_speaker_tandyrate.TabIndex = 28 + Me.lbl_speaker_tandyrate.Text = "Tandy Rate:" + ' + 'BTA_speaker_tandyrate + ' + Me.BTA_speaker_tandyrate.AllowDelete = True + Me.BTA_speaker_tandyrate.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_speaker_tandyrate.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_speaker_tandyrate.Connection = Nothing + Me.BTA_speaker_tandyrate.DSStream = CType(resources.GetObject("BTA_speaker_tandyrate.DSStream"), System.IO.MemoryStream) + Me.BTA_speaker_tandyrate.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_speaker_tandyrate.FillString = "49716;48000;44100;32000;22050;16000;11025;8000" + Me.BTA_speaker_tandyrate.Position = 0 + Me.BTA_speaker_tandyrate.Transaction = Nothing + Me.BTA_speaker_tandyrate.UpdateTablesStream = CType(resources.GetObject("BTA_speaker_tandyrate.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_speaker_pcrate + ' + Me.cmb_speaker_pcrate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "speaker-pcrate", True)) + Me.cmb_speaker_pcrate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "speaker-pcrate", True)) + Me.cmb_speaker_pcrate.Location = New System.Drawing.Point(123, 119) + Me.cmb_speaker_pcrate.MKBoundLabel = Me.lbl_speaker_pcrate + Me.cmb_speaker_pcrate.MKEditValue_Compare = Nothing + Me.cmb_speaker_pcrate.Name = "cmb_speaker_pcrate" + Me.cmb_speaker_pcrate.Properties.AllowFocused = False + Me.cmb_speaker_pcrate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_speaker_pcrate.Properties.DataSource = Me.BTA_speaker_pcrate + Me.cmb_speaker_pcrate.Properties.DisplayMember = "value" + Me.cmb_speaker_pcrate.Properties.NullText = "" + Me.cmb_speaker_pcrate.Properties.ShowFooter = False + Me.cmb_speaker_pcrate.Properties.ShowHeader = False + Me.cmb_speaker_pcrate.Properties.ValueMember = "value" + Me.cmb_speaker_pcrate.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem80.Text = "PC-Speaker Rate" + ToolTipItem78.LeftIndent = 6 + ToolTipItem78.Text = "Sample rate of the PC-Speaker sound generation." + SuperToolTip80.Items.Add(ToolTipTitleItem80) + SuperToolTip80.Items.Add(ToolTipItem78) + Me.cmb_speaker_pcrate.SuperTip = SuperToolTip80 + Me.cmb_speaker_pcrate.TabIndex = 5 + ' + 'lbl_speaker_pcrate + ' + Me.lbl_speaker_pcrate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_speaker_pcrate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_speaker_pcrate.Location = New System.Drawing.Point(3, 119) + Me.lbl_speaker_pcrate.MKBoundControl1 = Me.cmb_speaker_pcrate + Me.lbl_speaker_pcrate.MKBoundControl2 = Nothing + Me.lbl_speaker_pcrate.MKBoundControl3 = Nothing + Me.lbl_speaker_pcrate.MKBoundControl4 = Nothing + Me.lbl_speaker_pcrate.MKBoundControl5 = Nothing + Me.lbl_speaker_pcrate.Name = "lbl_speaker_pcrate" + Me.lbl_speaker_pcrate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem79.Text = "PC-Speaker Rate" + ToolTipItem77.LeftIndent = 6 + ToolTipItem77.Text = "Sample rate of the PC-Speaker sound generation." + SuperToolTip79.Items.Add(ToolTipTitleItem79) + SuperToolTip79.Items.Add(ToolTipItem77) + Me.lbl_speaker_pcrate.SuperTip = SuperToolTip79 + Me.lbl_speaker_pcrate.TabIndex = 27 + Me.lbl_speaker_pcrate.Text = "PC-Speaker Rate:" + ' + 'BTA_speaker_pcrate + ' + Me.BTA_speaker_pcrate.AllowDelete = True + Me.BTA_speaker_pcrate.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_speaker_pcrate.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_speaker_pcrate.Connection = Nothing + Me.BTA_speaker_pcrate.DSStream = CType(resources.GetObject("BTA_speaker_pcrate.DSStream"), System.IO.MemoryStream) + Me.BTA_speaker_pcrate.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_speaker_pcrate.FillString = "49716;48000;44100;32000;22050;16000;11025;8000" + Me.BTA_speaker_pcrate.Position = 0 + Me.BTA_speaker_pcrate.Transaction = Nothing + Me.BTA_speaker_pcrate.UpdateTablesStream = CType(resources.GetObject("BTA_speaker_pcrate.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_speaker_tandy + ' + Me.cmb_speaker_tandy.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "speaker-tandy", True)) + Me.cmb_speaker_tandy.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "speaker-tandy", True)) + Me.cmb_speaker_tandy.Location = New System.Drawing.Point(123, 142) + Me.cmb_speaker_tandy.MKBoundLabel = Me.lbl_speaker_tandy + Me.cmb_speaker_tandy.MKEditValue_Compare = Nothing + Me.cmb_speaker_tandy.Name = "cmb_speaker_tandy" + Me.cmb_speaker_tandy.Properties.AllowFocused = False + Me.cmb_speaker_tandy.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_speaker_tandy.Properties.DataSource = Me.BTA_speaker_tandy + Me.cmb_speaker_tandy.Properties.DisplayMember = "value" + Me.cmb_speaker_tandy.Properties.NullText = "" + Me.cmb_speaker_tandy.Properties.ShowFooter = False + Me.cmb_speaker_tandy.Properties.ShowHeader = False + Me.cmb_speaker_tandy.Properties.ValueMember = "value" + Me.cmb_speaker_tandy.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem82.Text = "Tandy" + ToolTipItem80.LeftIndent = 6 + ToolTipItem80.Text = "Enable Tandy Sound System emulation. For 'auto', emulation is present only if mac" & + "hine is set to 'tandy'." + SuperToolTip82.Items.Add(ToolTipTitleItem82) + SuperToolTip82.Items.Add(ToolTipItem80) + Me.cmb_speaker_tandy.SuperTip = SuperToolTip82 + Me.cmb_speaker_tandy.TabIndex = 6 + ' + 'lbl_speaker_tandy + ' + Me.lbl_speaker_tandy.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_speaker_tandy.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_speaker_tandy.Location = New System.Drawing.Point(3, 142) + Me.lbl_speaker_tandy.MKBoundControl1 = Me.cmb_speaker_tandy + Me.lbl_speaker_tandy.MKBoundControl2 = Nothing + Me.lbl_speaker_tandy.MKBoundControl3 = Nothing + Me.lbl_speaker_tandy.MKBoundControl4 = Nothing + Me.lbl_speaker_tandy.MKBoundControl5 = Nothing + Me.lbl_speaker_tandy.Name = "lbl_speaker_tandy" + Me.lbl_speaker_tandy.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem81.Text = "Tandy" + ToolTipItem79.LeftIndent = 6 + ToolTipItem79.Text = "Enable Tandy Sound System emulation. For 'auto', emulation is present only if mac" & + "hine is set to 'tandy'." + SuperToolTip81.Items.Add(ToolTipTitleItem81) + SuperToolTip81.Items.Add(ToolTipItem79) + Me.lbl_speaker_tandy.SuperTip = SuperToolTip81 + Me.lbl_speaker_tandy.TabIndex = 26 + Me.lbl_speaker_tandy.Text = "Tandy:" + ' + 'BTA_speaker_tandy + ' + Me.BTA_speaker_tandy.AllowDelete = True + Me.BTA_speaker_tandy.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_speaker_tandy.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_speaker_tandy.Connection = Nothing + Me.BTA_speaker_tandy.DSStream = CType(resources.GetObject("BTA_speaker_tandy.DSStream"), System.IO.MemoryStream) + Me.BTA_speaker_tandy.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_speaker_tandy.FillString = "auto;on;off" + Me.BTA_speaker_tandy.Position = 0 + Me.BTA_speaker_tandy.Transaction = Nothing + Me.BTA_speaker_tandy.UpdateTablesStream = CType(resources.GetObject("BTA_speaker_tandy.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_speaker_disney + ' + Me.chb_speaker_disney.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "speaker-disney", True)) + Me.chb_speaker_disney.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "speaker-disney", True)) + Me.chb_speaker_disney.Location = New System.Drawing.Point(123, 189) + Me.chb_speaker_disney.MKBoundLabel = Me.lbl_speaker_disney + Me.chb_speaker_disney.MKEditValue_Compare = Nothing + Me.chb_speaker_disney.Name = "chb_speaker_disney" + Me.chb_speaker_disney.Properties.Caption = "" + Me.chb_speaker_disney.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem84.Text = "Enable Disney" + ToolTipItem82.LeftIndent = 6 + ToolTipItem82.Text = "Enable Disney Sound Source emulation. (Covox Voice Master and Speech Thing compat" & + "ible)." + SuperToolTip84.Items.Add(ToolTipTitleItem84) + SuperToolTip84.Items.Add(ToolTipItem82) + Me.chb_speaker_disney.SuperTip = SuperToolTip84 + Me.chb_speaker_disney.TabIndex = 8 + ' + 'lbl_speaker_disney + ' + Me.lbl_speaker_disney.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_speaker_disney.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_speaker_disney.Location = New System.Drawing.Point(3, 188) + Me.lbl_speaker_disney.MKBoundControl1 = Me.chb_speaker_disney + Me.lbl_speaker_disney.MKBoundControl2 = Nothing + Me.lbl_speaker_disney.MKBoundControl3 = Nothing + Me.lbl_speaker_disney.MKBoundControl4 = Nothing + Me.lbl_speaker_disney.MKBoundControl5 = Nothing + Me.lbl_speaker_disney.Name = "lbl_speaker_disney" + Me.lbl_speaker_disney.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem83.Text = "Enable Disney" + ToolTipItem81.LeftIndent = 6 + ToolTipItem81.Text = "Enable Disney Sound Source emulation. (Covox Voice Master and Speech Thing compat" & + "ible)." + SuperToolTip83.Items.Add(ToolTipTitleItem83) + SuperToolTip83.Items.Add(ToolTipItem81) + Me.lbl_speaker_disney.SuperTip = SuperToolTip83 + Me.lbl_speaker_disney.TabIndex = 24 + Me.lbl_speaker_disney.Text = "Enable Disney:" + ' + 'chb_speaker_pcspeaker + ' + Me.chb_speaker_pcspeaker.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "speaker-pcspeaker", True)) + Me.chb_speaker_pcspeaker.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "speaker-pcspeaker", True)) + Me.chb_speaker_pcspeaker.Location = New System.Drawing.Point(123, 97) + Me.chb_speaker_pcspeaker.MKBoundLabel = Me.lbl_speaker_pcspeaker + Me.chb_speaker_pcspeaker.MKEditValue_Compare = Nothing + Me.chb_speaker_pcspeaker.Name = "chb_speaker_pcspeaker" + Me.chb_speaker_pcspeaker.Properties.Caption = "" + Me.chb_speaker_pcspeaker.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem86.Text = "Enable PC-Speaker" + ToolTipItem84.LeftIndent = 6 + ToolTipItem84.Text = "Enable PC-Speaker emulation." + SuperToolTip86.Items.Add(ToolTipTitleItem86) + SuperToolTip86.Items.Add(ToolTipItem84) + Me.chb_speaker_pcspeaker.SuperTip = SuperToolTip86 + Me.chb_speaker_pcspeaker.TabIndex = 4 + ' + 'lbl_speaker_pcspeaker + ' + Me.lbl_speaker_pcspeaker.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_speaker_pcspeaker.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_speaker_pcspeaker.Location = New System.Drawing.Point(3, 96) + Me.lbl_speaker_pcspeaker.MKBoundControl1 = Me.chb_speaker_pcspeaker + Me.lbl_speaker_pcspeaker.MKBoundControl2 = Nothing + Me.lbl_speaker_pcspeaker.MKBoundControl3 = Nothing + Me.lbl_speaker_pcspeaker.MKBoundControl4 = Nothing + Me.lbl_speaker_pcspeaker.MKBoundControl5 = Nothing + Me.lbl_speaker_pcspeaker.Name = "lbl_speaker_pcspeaker" + Me.lbl_speaker_pcspeaker.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem85.Text = "Enable PC-Speaker" + ToolTipItem83.LeftIndent = 6 + ToolTipItem83.Text = "Enable PC-Speaker emulation." + SuperToolTip85.Items.Add(ToolTipTitleItem85) + SuperToolTip85.Items.Add(ToolTipItem83) + Me.lbl_speaker_pcspeaker.SuperTip = SuperToolTip85 + Me.lbl_speaker_pcspeaker.TabIndex = 25 + Me.lbl_speaker_pcspeaker.Text = "Enable PC-Speaker:" + ' + 'cmb_mixer_blocksize + ' + Me.cmb_mixer_blocksize.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "mixer-blocksize", True)) + Me.cmb_mixer_blocksize.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "mixer-blocksize", True)) + Me.cmb_mixer_blocksize.Location = New System.Drawing.Point(123, 50) + Me.cmb_mixer_blocksize.MKBoundLabel = Me.lbl_mixer_blocksize + Me.cmb_mixer_blocksize.MKEditValue_Compare = Nothing + Me.cmb_mixer_blocksize.Name = "cmb_mixer_blocksize" + Me.cmb_mixer_blocksize.Properties.AllowFocused = False + Me.cmb_mixer_blocksize.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_mixer_blocksize.Properties.DataSource = Me.BTA_mixer_blocksize + Me.cmb_mixer_blocksize.Properties.DisplayMember = "value" + Me.cmb_mixer_blocksize.Properties.NullText = "" + Me.cmb_mixer_blocksize.Properties.ShowFooter = False + Me.cmb_mixer_blocksize.Properties.ShowHeader = False + Me.cmb_mixer_blocksize.Properties.ValueMember = "value" + Me.cmb_mixer_blocksize.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem88.Text = "Mixer Blocksize" + ToolTipItem86.LeftIndent = 6 + ToolTipItem86.Text = "Larger blocks might help against sound stuttering but sound will also be more lag" & + "ged." + SuperToolTip88.Items.Add(ToolTipTitleItem88) + SuperToolTip88.Items.Add(ToolTipItem86) + Me.cmb_mixer_blocksize.SuperTip = SuperToolTip88 + Me.cmb_mixer_blocksize.TabIndex = 2 + ' + 'lbl_mixer_blocksize + ' + Me.lbl_mixer_blocksize.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_mixer_blocksize.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mixer_blocksize.Location = New System.Drawing.Point(3, 50) + Me.lbl_mixer_blocksize.MKBoundControl1 = Me.cmb_mixer_blocksize + Me.lbl_mixer_blocksize.MKBoundControl2 = Nothing + Me.lbl_mixer_blocksize.MKBoundControl3 = Nothing + Me.lbl_mixer_blocksize.MKBoundControl4 = Nothing + Me.lbl_mixer_blocksize.MKBoundControl5 = Nothing + Me.lbl_mixer_blocksize.Name = "lbl_mixer_blocksize" + Me.lbl_mixer_blocksize.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem87.Text = "Mixer Blocksize" + ToolTipItem85.LeftIndent = 6 + ToolTipItem85.Text = "Larger blocks might help against sound stuttering but sound will also be more lag" & + "ged." + SuperToolTip87.Items.Add(ToolTipTitleItem87) + SuperToolTip87.Items.Add(ToolTipItem85) + Me.lbl_mixer_blocksize.SuperTip = SuperToolTip87 + Me.lbl_mixer_blocksize.TabIndex = 18 + Me.lbl_mixer_blocksize.Text = "Mixer Blocksize:" + ' + 'BTA_mixer_blocksize + ' + Me.BTA_mixer_blocksize.AllowDelete = True + Me.BTA_mixer_blocksize.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_mixer_blocksize.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_mixer_blocksize.Connection = Nothing + Me.BTA_mixer_blocksize.DSStream = CType(resources.GetObject("BTA_mixer_blocksize.DSStream"), System.IO.MemoryStream) + Me.BTA_mixer_blocksize.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_mixer_blocksize.FillString = "8192;4096;2048;1024;512;256" + Me.BTA_mixer_blocksize.Position = 0 + Me.BTA_mixer_blocksize.Transaction = Nothing + Me.BTA_mixer_blocksize.UpdateTablesStream = CType(resources.GetObject("BTA_mixer_blocksize.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_mixer_rate + ' + Me.cmb_mixer_rate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "mixer-rate", True)) + Me.cmb_mixer_rate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "mixer-rate", True)) + Me.cmb_mixer_rate.Location = New System.Drawing.Point(123, 27) + Me.cmb_mixer_rate.MKBoundLabel = Me.lbl_mixer_rate + Me.cmb_mixer_rate.MKEditValue_Compare = Nothing + Me.cmb_mixer_rate.Name = "cmb_mixer_rate" + Me.cmb_mixer_rate.Properties.AllowFocused = False + Me.cmb_mixer_rate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_mixer_rate.Properties.DataSource = Me.BTA_mixer_samplerate + Me.cmb_mixer_rate.Properties.DisplayMember = "value" + Me.cmb_mixer_rate.Properties.NullText = "" + Me.cmb_mixer_rate.Properties.ShowFooter = False + Me.cmb_mixer_rate.Properties.ShowHeader = False + Me.cmb_mixer_rate.Properties.ValueMember = "value" + Me.cmb_mixer_rate.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem90.Text = "Mixer Sample Rate" + ToolTipItem88.LeftIndent = 6 + ToolTipItem88.Text = "Setting any device's sample rate higher than this will probably lower their sound" & + " quality." + SuperToolTip90.Items.Add(ToolTipTitleItem90) + SuperToolTip90.Items.Add(ToolTipItem88) + Me.cmb_mixer_rate.SuperTip = SuperToolTip90 + Me.cmb_mixer_rate.TabIndex = 1 + ' + 'lbl_mixer_rate + ' + Me.lbl_mixer_rate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_mixer_rate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mixer_rate.Location = New System.Drawing.Point(3, 27) + Me.lbl_mixer_rate.MKBoundControl1 = Me.cmb_mixer_rate + Me.lbl_mixer_rate.MKBoundControl2 = Nothing + Me.lbl_mixer_rate.MKBoundControl3 = Nothing + Me.lbl_mixer_rate.MKBoundControl4 = Nothing + Me.lbl_mixer_rate.MKBoundControl5 = Nothing + Me.lbl_mixer_rate.Name = "lbl_mixer_rate" + Me.lbl_mixer_rate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem89.Text = "Mixer Sample Rate" + ToolTipItem87.LeftIndent = 6 + ToolTipItem87.Text = "Setting any device's sample rate higher than this will probably lower their sound" & + " quality." + SuperToolTip89.Items.Add(ToolTipTitleItem89) + SuperToolTip89.Items.Add(ToolTipItem87) + Me.lbl_mixer_rate.SuperTip = SuperToolTip89 + Me.lbl_mixer_rate.TabIndex = 19 + Me.lbl_mixer_rate.Text = "Mixer Sample Rate:" + ' + 'BTA_mixer_samplerate + ' + Me.BTA_mixer_samplerate.AllowDelete = True + Me.BTA_mixer_samplerate.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_mixer_samplerate.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_mixer_samplerate.Connection = Nothing + Me.BTA_mixer_samplerate.DSStream = CType(resources.GetObject("BTA_mixer_samplerate.DSStream"), System.IO.MemoryStream) + Me.BTA_mixer_samplerate.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_mixer_samplerate.FillString = "49716;48000;44100;32000;22050;16000;11025;8000" + Me.BTA_mixer_samplerate.Position = 0 + Me.BTA_mixer_samplerate.Transaction = Nothing + Me.BTA_mixer_samplerate.UpdateTablesStream = CType(resources.GetObject("BTA_mixer_samplerate.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_mixer_nosound + ' + Me.chb_mixer_nosound.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "mixer-nosound", True)) + Me.chb_mixer_nosound.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "mixer-nosound", True)) + Me.chb_mixer_nosound.Location = New System.Drawing.Point(123, 5) + Me.chb_mixer_nosound.MKBoundLabel = Me.lbl_mixer_nosound + Me.chb_mixer_nosound.MKEditValue_Compare = Nothing + Me.chb_mixer_nosound.Name = "chb_mixer_nosound" + Me.chb_mixer_nosound.Properties.Caption = "" + Me.chb_mixer_nosound.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem92.Text = "Disable Sound Output" + ToolTipItem90.LeftIndent = 6 + ToolTipItem90.Text = "Sound output will be disabled, sound is still emulated though." + SuperToolTip92.Items.Add(ToolTipTitleItem92) + SuperToolTip92.Items.Add(ToolTipItem90) + Me.chb_mixer_nosound.SuperTip = SuperToolTip92 + Me.chb_mixer_nosound.TabIndex = 0 + ' + 'lbl_mixer_nosound + ' + Me.lbl_mixer_nosound.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_mixer_nosound.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mixer_nosound.Location = New System.Drawing.Point(3, 4) + Me.lbl_mixer_nosound.MKBoundControl1 = Me.chb_mixer_nosound + Me.lbl_mixer_nosound.MKBoundControl2 = Nothing + Me.lbl_mixer_nosound.MKBoundControl3 = Nothing + Me.lbl_mixer_nosound.MKBoundControl4 = Nothing + Me.lbl_mixer_nosound.MKBoundControl5 = Nothing + Me.lbl_mixer_nosound.Name = "lbl_mixer_nosound" + Me.lbl_mixer_nosound.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem91.Text = "Disable Sound Output" + ToolTipItem89.LeftIndent = 6 + ToolTipItem89.Text = "Sound output will be disabled, sound is still emulated though." + SuperToolTip91.Items.Add(ToolTipTitleItem91) + SuperToolTip91.Items.Add(ToolTipItem89) + Me.lbl_mixer_nosound.SuperTip = SuperToolTip91 + Me.lbl_mixer_nosound.TabIndex = 13 + Me.lbl_mixer_nosound.Text = "Disable Sound Output:" + ' + 'tpg_Volume + ' + Me.tpg_Volume.Controls.Add(Me.gb_PC_Speaker_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_CD_Audio_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_FM_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_GUS_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_Sound_Blaster_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_Disney_Volume) + Me.tpg_Volume.Controls.Add(Me.gb_Master_Volume) + Me.tpg_Volume.Name = "tpg_Volume" + Me.tpg_Volume.Size = New System.Drawing.Size(546, 434) + Me.tpg_Volume.Text = "Volumes" + ' + 'gb_PC_Speaker_Volume + ' + Me.gb_PC_Speaker_Volume.Controls.Add(Me.tb_ml_volume_spkr_left) + Me.gb_PC_Speaker_Volume.Controls.Add(Me.Ctl_MKDXLabel17) + Me.gb_PC_Speaker_Volume.Controls.Add(Me.lbl_ml_volume_spkr_right) + Me.gb_PC_Speaker_Volume.Controls.Add(Me.lbl_ml_volume_spkr_left) + Me.gb_PC_Speaker_Volume.Controls.Add(Me.Ctl_MKDXLabel20) + Me.gb_PC_Speaker_Volume.Controls.Add(Me.tb_ml_volume_spkr_right) + Me.gb_PC_Speaker_Volume.Location = New System.Drawing.Point(111, 3) + Me.gb_PC_Speaker_Volume.Name = "gb_PC_Speaker_Volume" + Me.gb_PC_Speaker_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_PC_Speaker_Volume.TabIndex = 1 + Me.gb_PC_Speaker_Volume.Text = "PC Speaker" + ' + 'tb_ml_volume_spkr_left + ' + Me.tb_ml_volume_spkr_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_spkr_left", True)) + Me.tb_ml_volume_spkr_left.EditValue = 100 + Me.tb_ml_volume_spkr_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_spkr_left.Name = "tb_ml_volume_spkr_left" + Me.tb_ml_volume_spkr_left.Properties.Maximum = 200 + Me.tb_ml_volume_spkr_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_spkr_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_spkr_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_spkr_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_spkr_left.TabIndex = 0 + Me.tb_ml_volume_spkr_left.Value = 100 + ' + 'Ctl_MKDXLabel17 + ' + Me.Ctl_MKDXLabel17.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel17.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel17.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel17.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel17.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel17.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel17.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel17.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel17.Name = "Ctl_MKDXLabel17" + Me.Ctl_MKDXLabel17.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem93.Text = "Resolution in fullscreen mode" + ToolTipItem91.LeftIndent = 6 + ToolTipItem91.Text = resources.GetString("ToolTipItem91.Text") + SuperToolTip93.Items.Add(ToolTipTitleItem93) + SuperToolTip93.Items.Add(ToolTipItem91) + Me.Ctl_MKDXLabel17.SuperTip = SuperToolTip93 + Me.Ctl_MKDXLabel17.TabIndex = 8 + Me.Ctl_MKDXLabel17.Text = "Right" + ' + 'lbl_ml_volume_spkr_right + ' + Me.lbl_ml_volume_spkr_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_spkr_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_spkr_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_spkr_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_spkr_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_spkr_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_spkr_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_spkr_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_spkr_right.Name = "lbl_ml_volume_spkr_right" + Me.lbl_ml_volume_spkr_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem94.Text = "Resolution in fullscreen mode" + ToolTipItem92.LeftIndent = 6 + ToolTipItem92.Text = resources.GetString("ToolTipItem92.Text") + SuperToolTip94.Items.Add(ToolTipTitleItem94) + SuperToolTip94.Items.Add(ToolTipItem92) + Me.lbl_ml_volume_spkr_right.SuperTip = SuperToolTip94 + Me.lbl_ml_volume_spkr_right.TabIndex = 8 + Me.lbl_ml_volume_spkr_right.Text = "100" + ' + 'lbl_ml_volume_spkr_left + ' + Me.lbl_ml_volume_spkr_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_spkr_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_spkr_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_spkr_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_spkr_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_spkr_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_spkr_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_spkr_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_spkr_left.Name = "lbl_ml_volume_spkr_left" + Me.lbl_ml_volume_spkr_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem95.Text = "Resolution in fullscreen mode" + ToolTipItem93.LeftIndent = 6 + ToolTipItem93.Text = resources.GetString("ToolTipItem93.Text") + SuperToolTip95.Items.Add(ToolTipTitleItem95) + SuperToolTip95.Items.Add(ToolTipItem93) + Me.lbl_ml_volume_spkr_left.SuperTip = SuperToolTip95 + Me.lbl_ml_volume_spkr_left.TabIndex = 8 + Me.lbl_ml_volume_spkr_left.Text = "100" + ' + 'Ctl_MKDXLabel20 + ' + Me.Ctl_MKDXLabel20.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel20.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel20.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel20.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel20.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel20.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel20.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel20.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel20.Name = "Ctl_MKDXLabel20" + Me.Ctl_MKDXLabel20.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem96.Text = "Resolution in fullscreen mode" + ToolTipItem94.LeftIndent = 6 + ToolTipItem94.Text = resources.GetString("ToolTipItem94.Text") + SuperToolTip96.Items.Add(ToolTipTitleItem96) + SuperToolTip96.Items.Add(ToolTipItem94) + Me.Ctl_MKDXLabel20.SuperTip = SuperToolTip96 + Me.Ctl_MKDXLabel20.TabIndex = 8 + Me.Ctl_MKDXLabel20.Text = "Left" + ' + 'tb_ml_volume_spkr_right + ' + Me.tb_ml_volume_spkr_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_spkr_right", True)) + Me.tb_ml_volume_spkr_right.EditValue = 100 + Me.tb_ml_volume_spkr_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_spkr_right.Name = "tb_ml_volume_spkr_right" + Me.tb_ml_volume_spkr_right.Properties.Maximum = 200 + Me.tb_ml_volume_spkr_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_spkr_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_spkr_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_spkr_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_spkr_right.TabIndex = 1 + Me.tb_ml_volume_spkr_right.Value = 100 + ' + 'gb_CD_Audio_Volume + ' + Me.gb_CD_Audio_Volume.Controls.Add(Me.tb_ml_volume_cdaudio_left) + Me.gb_CD_Audio_Volume.Controls.Add(Me.Ctl_MKDXLabel33) + Me.gb_CD_Audio_Volume.Controls.Add(Me.lbl_ml_volume_cdaudio_right) + Me.gb_CD_Audio_Volume.Controls.Add(Me.lbl_ml_volume_cdaudio_left) + Me.gb_CD_Audio_Volume.Controls.Add(Me.Ctl_MKDXLabel36) + Me.gb_CD_Audio_Volume.Controls.Add(Me.tb_ml_volume_cdaudio_right) + Me.gb_CD_Audio_Volume.Location = New System.Drawing.Point(327, 232) + Me.gb_CD_Audio_Volume.Name = "gb_CD_Audio_Volume" + Me.gb_CD_Audio_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_CD_Audio_Volume.TabIndex = 6 + Me.gb_CD_Audio_Volume.Text = "CD Audio" + ' + 'tb_ml_volume_cdaudio_left + ' + Me.tb_ml_volume_cdaudio_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_cdaudio_left", True)) + Me.tb_ml_volume_cdaudio_left.EditValue = 100 + Me.tb_ml_volume_cdaudio_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_cdaudio_left.Name = "tb_ml_volume_cdaudio_left" + Me.tb_ml_volume_cdaudio_left.Properties.Maximum = 200 + Me.tb_ml_volume_cdaudio_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_cdaudio_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_cdaudio_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_cdaudio_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_cdaudio_left.TabIndex = 0 + Me.tb_ml_volume_cdaudio_left.Value = 100 + ' + 'Ctl_MKDXLabel33 + ' + Me.Ctl_MKDXLabel33.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel33.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel33.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel33.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel33.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel33.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel33.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel33.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel33.Name = "Ctl_MKDXLabel33" + Me.Ctl_MKDXLabel33.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem97.Text = "Resolution in fullscreen mode" + ToolTipItem95.LeftIndent = 6 + ToolTipItem95.Text = resources.GetString("ToolTipItem95.Text") + SuperToolTip97.Items.Add(ToolTipTitleItem97) + SuperToolTip97.Items.Add(ToolTipItem95) + Me.Ctl_MKDXLabel33.SuperTip = SuperToolTip97 + Me.Ctl_MKDXLabel33.TabIndex = 8 + Me.Ctl_MKDXLabel33.Text = "Right" + ' + 'lbl_ml_volume_cdaudio_right + ' + Me.lbl_ml_volume_cdaudio_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_cdaudio_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_cdaudio_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_cdaudio_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_cdaudio_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_cdaudio_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_cdaudio_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_cdaudio_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_cdaudio_right.Name = "lbl_ml_volume_cdaudio_right" + Me.lbl_ml_volume_cdaudio_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem98.Text = "Resolution in fullscreen mode" + ToolTipItem96.LeftIndent = 6 + ToolTipItem96.Text = resources.GetString("ToolTipItem96.Text") + SuperToolTip98.Items.Add(ToolTipTitleItem98) + SuperToolTip98.Items.Add(ToolTipItem96) + Me.lbl_ml_volume_cdaudio_right.SuperTip = SuperToolTip98 + Me.lbl_ml_volume_cdaudio_right.TabIndex = 8 + Me.lbl_ml_volume_cdaudio_right.Text = "100" + ' + 'lbl_ml_volume_cdaudio_left + ' + Me.lbl_ml_volume_cdaudio_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_cdaudio_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_cdaudio_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_cdaudio_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_cdaudio_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_cdaudio_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_cdaudio_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_cdaudio_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_cdaudio_left.Name = "lbl_ml_volume_cdaudio_left" + Me.lbl_ml_volume_cdaudio_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem99.Text = "Resolution in fullscreen mode" + ToolTipItem97.LeftIndent = 6 + ToolTipItem97.Text = resources.GetString("ToolTipItem97.Text") + SuperToolTip99.Items.Add(ToolTipTitleItem99) + SuperToolTip99.Items.Add(ToolTipItem97) + Me.lbl_ml_volume_cdaudio_left.SuperTip = SuperToolTip99 + Me.lbl_ml_volume_cdaudio_left.TabIndex = 8 + Me.lbl_ml_volume_cdaudio_left.Text = "100" + ' + 'Ctl_MKDXLabel36 + ' + Me.Ctl_MKDXLabel36.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel36.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel36.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel36.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel36.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel36.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel36.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel36.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel36.Name = "Ctl_MKDXLabel36" + Me.Ctl_MKDXLabel36.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem100.Text = "Resolution in fullscreen mode" + ToolTipItem98.LeftIndent = 6 + ToolTipItem98.Text = resources.GetString("ToolTipItem98.Text") + SuperToolTip100.Items.Add(ToolTipTitleItem100) + SuperToolTip100.Items.Add(ToolTipItem98) + Me.Ctl_MKDXLabel36.SuperTip = SuperToolTip100 + Me.Ctl_MKDXLabel36.TabIndex = 8 + Me.Ctl_MKDXLabel36.Text = "Left" + ' + 'tb_ml_volume_cdaudio_right + ' + Me.tb_ml_volume_cdaudio_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_cdaudio_right", True)) + Me.tb_ml_volume_cdaudio_right.EditValue = 100 + Me.tb_ml_volume_cdaudio_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_cdaudio_right.Name = "tb_ml_volume_cdaudio_right" + Me.tb_ml_volume_cdaudio_right.Properties.Maximum = 200 + Me.tb_ml_volume_cdaudio_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_cdaudio_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_cdaudio_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_cdaudio_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_cdaudio_right.TabIndex = 1 + Me.tb_ml_volume_cdaudio_right.Value = 100 + ' + 'gb_FM_Volume + ' + Me.gb_FM_Volume.Controls.Add(Me.tb_ml_volume_fm_left) + Me.gb_FM_Volume.Controls.Add(Me.Ctl_MKDXLabel29) + Me.gb_FM_Volume.Controls.Add(Me.lbl_ml_volume_fm_right) + Me.gb_FM_Volume.Controls.Add(Me.lbl_ml_volume_fm_left) + Me.gb_FM_Volume.Controls.Add(Me.Ctl_MKDXLabel32) + Me.gb_FM_Volume.Controls.Add(Me.tb_ml_volume_fm_right) + Me.gb_FM_Volume.Location = New System.Drawing.Point(219, 232) + Me.gb_FM_Volume.Name = "gb_FM_Volume" + Me.gb_FM_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_FM_Volume.TabIndex = 5 + Me.gb_FM_Volume.Text = "FM" + ' + 'tb_ml_volume_fm_left + ' + Me.tb_ml_volume_fm_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_fm_left", True)) + Me.tb_ml_volume_fm_left.EditValue = 100 + Me.tb_ml_volume_fm_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_fm_left.Name = "tb_ml_volume_fm_left" + Me.tb_ml_volume_fm_left.Properties.Maximum = 200 + Me.tb_ml_volume_fm_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_fm_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_fm_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_fm_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_fm_left.TabIndex = 0 + Me.tb_ml_volume_fm_left.Value = 100 + ' + 'Ctl_MKDXLabel29 + ' + Me.Ctl_MKDXLabel29.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel29.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel29.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel29.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel29.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel29.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel29.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel29.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel29.Name = "Ctl_MKDXLabel29" + Me.Ctl_MKDXLabel29.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem101.Text = "Resolution in fullscreen mode" + ToolTipItem99.LeftIndent = 6 + ToolTipItem99.Text = resources.GetString("ToolTipItem99.Text") + SuperToolTip101.Items.Add(ToolTipTitleItem101) + SuperToolTip101.Items.Add(ToolTipItem99) + Me.Ctl_MKDXLabel29.SuperTip = SuperToolTip101 + Me.Ctl_MKDXLabel29.TabIndex = 8 + Me.Ctl_MKDXLabel29.Text = "Right" + ' + 'lbl_ml_volume_fm_right + ' + Me.lbl_ml_volume_fm_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_fm_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_fm_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_fm_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_fm_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_fm_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_fm_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_fm_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_fm_right.Name = "lbl_ml_volume_fm_right" + Me.lbl_ml_volume_fm_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem102.Text = "Resolution in fullscreen mode" + ToolTipItem100.LeftIndent = 6 + ToolTipItem100.Text = resources.GetString("ToolTipItem100.Text") + SuperToolTip102.Items.Add(ToolTipTitleItem102) + SuperToolTip102.Items.Add(ToolTipItem100) + Me.lbl_ml_volume_fm_right.SuperTip = SuperToolTip102 + Me.lbl_ml_volume_fm_right.TabIndex = 8 + Me.lbl_ml_volume_fm_right.Text = "100" + ' + 'lbl_ml_volume_fm_left + ' + Me.lbl_ml_volume_fm_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_fm_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_fm_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_fm_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_fm_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_fm_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_fm_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_fm_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_fm_left.Name = "lbl_ml_volume_fm_left" + Me.lbl_ml_volume_fm_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem103.Text = "Resolution in fullscreen mode" + ToolTipItem101.LeftIndent = 6 + ToolTipItem101.Text = resources.GetString("ToolTipItem101.Text") + SuperToolTip103.Items.Add(ToolTipTitleItem103) + SuperToolTip103.Items.Add(ToolTipItem101) + Me.lbl_ml_volume_fm_left.SuperTip = SuperToolTip103 + Me.lbl_ml_volume_fm_left.TabIndex = 8 + Me.lbl_ml_volume_fm_left.Text = "100" + ' + 'Ctl_MKDXLabel32 + ' + Me.Ctl_MKDXLabel32.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel32.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel32.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel32.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel32.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel32.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel32.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel32.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel32.Name = "Ctl_MKDXLabel32" + Me.Ctl_MKDXLabel32.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem104.Text = "Resolution in fullscreen mode" + ToolTipItem102.LeftIndent = 6 + ToolTipItem102.Text = resources.GetString("ToolTipItem102.Text") + SuperToolTip104.Items.Add(ToolTipTitleItem104) + SuperToolTip104.Items.Add(ToolTipItem102) + Me.Ctl_MKDXLabel32.SuperTip = SuperToolTip104 + Me.Ctl_MKDXLabel32.TabIndex = 8 + Me.Ctl_MKDXLabel32.Text = "Left" + ' + 'tb_ml_volume_fm_right + ' + Me.tb_ml_volume_fm_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_fm_right", True)) + Me.tb_ml_volume_fm_right.EditValue = 100 + Me.tb_ml_volume_fm_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_fm_right.Name = "tb_ml_volume_fm_right" + Me.tb_ml_volume_fm_right.Properties.Maximum = 200 + Me.tb_ml_volume_fm_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_fm_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_fm_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_fm_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_fm_right.TabIndex = 1 + Me.tb_ml_volume_fm_right.Value = 100 + ' + 'gb_GUS_Volume + ' + Me.gb_GUS_Volume.Controls.Add(Me.tb_ml_volume_gus_left) + Me.gb_GUS_Volume.Controls.Add(Me.Ctl_MKDXLabel25) + Me.gb_GUS_Volume.Controls.Add(Me.lbl_ml_volume_gus_right) + Me.gb_GUS_Volume.Controls.Add(Me.lbl_ml_volume_gus_left) + Me.gb_GUS_Volume.Controls.Add(Me.Ctl_MKDXLabel28) + Me.gb_GUS_Volume.Controls.Add(Me.tb_ml_volume_gus_right) + Me.gb_GUS_Volume.Location = New System.Drawing.Point(111, 232) + Me.gb_GUS_Volume.Name = "gb_GUS_Volume" + Me.gb_GUS_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_GUS_Volume.TabIndex = 4 + Me.gb_GUS_Volume.Text = "GUS" + ' + 'tb_ml_volume_gus_left + ' + Me.tb_ml_volume_gus_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_gus_left", True)) + Me.tb_ml_volume_gus_left.EditValue = 100 + Me.tb_ml_volume_gus_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_gus_left.Name = "tb_ml_volume_gus_left" + Me.tb_ml_volume_gus_left.Properties.Maximum = 200 + Me.tb_ml_volume_gus_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_gus_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_gus_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_gus_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_gus_left.TabIndex = 0 + Me.tb_ml_volume_gus_left.Value = 100 + ' + 'Ctl_MKDXLabel25 + ' + Me.Ctl_MKDXLabel25.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel25.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel25.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel25.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel25.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel25.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel25.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel25.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel25.Name = "Ctl_MKDXLabel25" + Me.Ctl_MKDXLabel25.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem105.Text = "Resolution in fullscreen mode" + ToolTipItem103.LeftIndent = 6 + ToolTipItem103.Text = resources.GetString("ToolTipItem103.Text") + SuperToolTip105.Items.Add(ToolTipTitleItem105) + SuperToolTip105.Items.Add(ToolTipItem103) + Me.Ctl_MKDXLabel25.SuperTip = SuperToolTip105 + Me.Ctl_MKDXLabel25.TabIndex = 8 + Me.Ctl_MKDXLabel25.Text = "Right" + ' + 'lbl_ml_volume_gus_right + ' + Me.lbl_ml_volume_gus_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_gus_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_gus_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_gus_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_gus_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_gus_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_gus_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_gus_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_gus_right.Name = "lbl_ml_volume_gus_right" + Me.lbl_ml_volume_gus_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem106.Text = "Resolution in fullscreen mode" + ToolTipItem104.LeftIndent = 6 + ToolTipItem104.Text = resources.GetString("ToolTipItem104.Text") + SuperToolTip106.Items.Add(ToolTipTitleItem106) + SuperToolTip106.Items.Add(ToolTipItem104) + Me.lbl_ml_volume_gus_right.SuperTip = SuperToolTip106 + Me.lbl_ml_volume_gus_right.TabIndex = 8 + Me.lbl_ml_volume_gus_right.Text = "100" + ' + 'lbl_ml_volume_gus_left + ' + Me.lbl_ml_volume_gus_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_gus_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_gus_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_gus_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_gus_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_gus_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_gus_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_gus_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_gus_left.Name = "lbl_ml_volume_gus_left" + Me.lbl_ml_volume_gus_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem107.Text = "Resolution in fullscreen mode" + ToolTipItem105.LeftIndent = 6 + ToolTipItem105.Text = resources.GetString("ToolTipItem105.Text") + SuperToolTip107.Items.Add(ToolTipTitleItem107) + SuperToolTip107.Items.Add(ToolTipItem105) + Me.lbl_ml_volume_gus_left.SuperTip = SuperToolTip107 + Me.lbl_ml_volume_gus_left.TabIndex = 8 + Me.lbl_ml_volume_gus_left.Text = "100" + ' + 'Ctl_MKDXLabel28 + ' + Me.Ctl_MKDXLabel28.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel28.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel28.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel28.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel28.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel28.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel28.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel28.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel28.Name = "Ctl_MKDXLabel28" + Me.Ctl_MKDXLabel28.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem108.Text = "Resolution in fullscreen mode" + ToolTipItem106.LeftIndent = 6 + ToolTipItem106.Text = resources.GetString("ToolTipItem106.Text") + SuperToolTip108.Items.Add(ToolTipTitleItem108) + SuperToolTip108.Items.Add(ToolTipItem106) + Me.Ctl_MKDXLabel28.SuperTip = SuperToolTip108 + Me.Ctl_MKDXLabel28.TabIndex = 8 + Me.Ctl_MKDXLabel28.Text = "Left" + ' + 'tb_ml_volume_gus_right + ' + Me.tb_ml_volume_gus_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_gus_right", True)) + Me.tb_ml_volume_gus_right.EditValue = 100 + Me.tb_ml_volume_gus_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_gus_right.Name = "tb_ml_volume_gus_right" + Me.tb_ml_volume_gus_right.Properties.Maximum = 200 + Me.tb_ml_volume_gus_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_gus_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_gus_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_gus_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_gus_right.TabIndex = 1 + Me.tb_ml_volume_gus_right.Value = 100 + ' + 'gb_Sound_Blaster_Volume + ' + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.tb_ml_volume_sb_left) + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.Ctl_MKDXLabel21) + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.lbl_ml_volume_sb_right) + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.lbl_ml_volume_sb_left) + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.Ctl_MKDXLabel24) + Me.gb_Sound_Blaster_Volume.Controls.Add(Me.tb_ml_volume_sb_right) + Me.gb_Sound_Blaster_Volume.Location = New System.Drawing.Point(3, 232) + Me.gb_Sound_Blaster_Volume.Name = "gb_Sound_Blaster_Volume" + Me.gb_Sound_Blaster_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_Sound_Blaster_Volume.TabIndex = 3 + Me.gb_Sound_Blaster_Volume.Text = "Sound Blaster" + ' + 'tb_ml_volume_sb_left + ' + Me.tb_ml_volume_sb_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_sb_left", True)) + Me.tb_ml_volume_sb_left.EditValue = 100 + Me.tb_ml_volume_sb_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_sb_left.Name = "tb_ml_volume_sb_left" + Me.tb_ml_volume_sb_left.Properties.Maximum = 200 + Me.tb_ml_volume_sb_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_sb_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_sb_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_sb_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_sb_left.TabIndex = 0 + Me.tb_ml_volume_sb_left.Value = 100 + ' + 'Ctl_MKDXLabel21 + ' + Me.Ctl_MKDXLabel21.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel21.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel21.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel21.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel21.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel21.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel21.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel21.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel21.Name = "Ctl_MKDXLabel21" + Me.Ctl_MKDXLabel21.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem109.Text = "Resolution in fullscreen mode" + ToolTipItem107.LeftIndent = 6 + ToolTipItem107.Text = resources.GetString("ToolTipItem107.Text") + SuperToolTip109.Items.Add(ToolTipTitleItem109) + SuperToolTip109.Items.Add(ToolTipItem107) + Me.Ctl_MKDXLabel21.SuperTip = SuperToolTip109 + Me.Ctl_MKDXLabel21.TabIndex = 8 + Me.Ctl_MKDXLabel21.Text = "Right" + ' + 'lbl_ml_volume_sb_right + ' + Me.lbl_ml_volume_sb_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_sb_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_sb_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_sb_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_sb_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_sb_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_sb_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_sb_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_sb_right.Name = "lbl_ml_volume_sb_right" + Me.lbl_ml_volume_sb_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem110.Text = "Resolution in fullscreen mode" + ToolTipItem108.LeftIndent = 6 + ToolTipItem108.Text = resources.GetString("ToolTipItem108.Text") + SuperToolTip110.Items.Add(ToolTipTitleItem110) + SuperToolTip110.Items.Add(ToolTipItem108) + Me.lbl_ml_volume_sb_right.SuperTip = SuperToolTip110 + Me.lbl_ml_volume_sb_right.TabIndex = 8 + Me.lbl_ml_volume_sb_right.Text = "100" + ' + 'lbl_ml_volume_sb_left + ' + Me.lbl_ml_volume_sb_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_sb_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_sb_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_sb_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_sb_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_sb_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_sb_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_sb_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_sb_left.Name = "lbl_ml_volume_sb_left" + Me.lbl_ml_volume_sb_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem111.Text = "Resolution in fullscreen mode" + ToolTipItem109.LeftIndent = 6 + ToolTipItem109.Text = resources.GetString("ToolTipItem109.Text") + SuperToolTip111.Items.Add(ToolTipTitleItem111) + SuperToolTip111.Items.Add(ToolTipItem109) + Me.lbl_ml_volume_sb_left.SuperTip = SuperToolTip111 + Me.lbl_ml_volume_sb_left.TabIndex = 8 + Me.lbl_ml_volume_sb_left.Text = "100" + ' + 'Ctl_MKDXLabel24 + ' + Me.Ctl_MKDXLabel24.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel24.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel24.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel24.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel24.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel24.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel24.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel24.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel24.Name = "Ctl_MKDXLabel24" + Me.Ctl_MKDXLabel24.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem112.Text = "Resolution in fullscreen mode" + ToolTipItem110.LeftIndent = 6 + ToolTipItem110.Text = resources.GetString("ToolTipItem110.Text") + SuperToolTip112.Items.Add(ToolTipTitleItem112) + SuperToolTip112.Items.Add(ToolTipItem110) + Me.Ctl_MKDXLabel24.SuperTip = SuperToolTip112 + Me.Ctl_MKDXLabel24.TabIndex = 8 + Me.Ctl_MKDXLabel24.Text = "Left" + ' + 'tb_ml_volume_sb_right + ' + Me.tb_ml_volume_sb_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_sb_right", True)) + Me.tb_ml_volume_sb_right.EditValue = 100 + Me.tb_ml_volume_sb_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_sb_right.Name = "tb_ml_volume_sb_right" + Me.tb_ml_volume_sb_right.Properties.Maximum = 200 + Me.tb_ml_volume_sb_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_sb_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_sb_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_sb_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_sb_right.TabIndex = 1 + Me.tb_ml_volume_sb_right.Value = 100 + ' + 'gb_Disney_Volume + ' + Me.gb_Disney_Volume.Controls.Add(Me.tb_ml_volume_disney_left) + Me.gb_Disney_Volume.Controls.Add(Me.Ctl_MKDXLabel13) + Me.gb_Disney_Volume.Controls.Add(Me.lbl_ml_volume_disney_right) + Me.gb_Disney_Volume.Controls.Add(Me.lbl_ml_volume_disney_left) + Me.gb_Disney_Volume.Controls.Add(Me.Ctl_MKDXLabel16) + Me.gb_Disney_Volume.Controls.Add(Me.tb_ml_volume_disney_right) + Me.gb_Disney_Volume.Location = New System.Drawing.Point(219, 3) + Me.gb_Disney_Volume.Name = "gb_Disney_Volume" + Me.gb_Disney_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_Disney_Volume.TabIndex = 2 + Me.gb_Disney_Volume.Text = "Disney" + ' + 'tb_ml_volume_disney_left + ' + Me.tb_ml_volume_disney_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_disney_left", True)) + Me.tb_ml_volume_disney_left.EditValue = 100 + Me.tb_ml_volume_disney_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_disney_left.Name = "tb_ml_volume_disney_left" + Me.tb_ml_volume_disney_left.Properties.Maximum = 200 + Me.tb_ml_volume_disney_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_disney_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_disney_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_disney_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_disney_left.TabIndex = 0 + Me.tb_ml_volume_disney_left.Value = 100 + ' + 'Ctl_MKDXLabel13 + ' + Me.Ctl_MKDXLabel13.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel13.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel13.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel13.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel13.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel13.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel13.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel13.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel13.Name = "Ctl_MKDXLabel13" + Me.Ctl_MKDXLabel13.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem113.Text = "Resolution in fullscreen mode" + ToolTipItem111.LeftIndent = 6 + ToolTipItem111.Text = resources.GetString("ToolTipItem111.Text") + SuperToolTip113.Items.Add(ToolTipTitleItem113) + SuperToolTip113.Items.Add(ToolTipItem111) + Me.Ctl_MKDXLabel13.SuperTip = SuperToolTip113 + Me.Ctl_MKDXLabel13.TabIndex = 8 + Me.Ctl_MKDXLabel13.Text = "Right" + ' + 'lbl_ml_volume_disney_right + ' + Me.lbl_ml_volume_disney_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_disney_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_disney_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_disney_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_disney_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_disney_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_disney_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_disney_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_disney_right.Name = "lbl_ml_volume_disney_right" + Me.lbl_ml_volume_disney_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem114.Text = "Resolution in fullscreen mode" + ToolTipItem112.LeftIndent = 6 + ToolTipItem112.Text = resources.GetString("ToolTipItem112.Text") + SuperToolTip114.Items.Add(ToolTipTitleItem114) + SuperToolTip114.Items.Add(ToolTipItem112) + Me.lbl_ml_volume_disney_right.SuperTip = SuperToolTip114 + Me.lbl_ml_volume_disney_right.TabIndex = 8 + Me.lbl_ml_volume_disney_right.Text = "100" + ' + 'lbl_ml_volume_disney_left + ' + Me.lbl_ml_volume_disney_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_disney_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_disney_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_disney_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_disney_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_disney_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_disney_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_disney_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_disney_left.Name = "lbl_ml_volume_disney_left" + Me.lbl_ml_volume_disney_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem115.Text = "Resolution in fullscreen mode" + ToolTipItem113.LeftIndent = 6 + ToolTipItem113.Text = resources.GetString("ToolTipItem113.Text") + SuperToolTip115.Items.Add(ToolTipTitleItem115) + SuperToolTip115.Items.Add(ToolTipItem113) + Me.lbl_ml_volume_disney_left.SuperTip = SuperToolTip115 + Me.lbl_ml_volume_disney_left.TabIndex = 8 + Me.lbl_ml_volume_disney_left.Text = "100" + ' + 'Ctl_MKDXLabel16 + ' + Me.Ctl_MKDXLabel16.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel16.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel16.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel16.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel16.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel16.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel16.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel16.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel16.Name = "Ctl_MKDXLabel16" + Me.Ctl_MKDXLabel16.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem116.Text = "Resolution in fullscreen mode" + ToolTipItem114.LeftIndent = 6 + ToolTipItem114.Text = resources.GetString("ToolTipItem114.Text") + SuperToolTip116.Items.Add(ToolTipTitleItem116) + SuperToolTip116.Items.Add(ToolTipItem114) + Me.Ctl_MKDXLabel16.SuperTip = SuperToolTip116 + Me.Ctl_MKDXLabel16.TabIndex = 8 + Me.Ctl_MKDXLabel16.Text = "Left" + ' + 'tb_ml_volume_disney_right + ' + Me.tb_ml_volume_disney_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_disney_right", True)) + Me.tb_ml_volume_disney_right.EditValue = 100 + Me.tb_ml_volume_disney_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_disney_right.Name = "tb_ml_volume_disney_right" + Me.tb_ml_volume_disney_right.Properties.Maximum = 200 + Me.tb_ml_volume_disney_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_disney_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_disney_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_disney_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_disney_right.TabIndex = 1 + Me.tb_ml_volume_disney_right.Value = 100 + ' + 'gb_Master_Volume + ' + Me.gb_Master_Volume.Controls.Add(Me.tb_ml_volume_master_left) + Me.gb_Master_Volume.Controls.Add(Me.Ctl_MKDXLabel10) + Me.gb_Master_Volume.Controls.Add(Me.lbl_ml_volume_master_right) + Me.gb_Master_Volume.Controls.Add(Me.lbl_ml_volume_master_left) + Me.gb_Master_Volume.Controls.Add(Me.Ctl_MKDXLabel9) + Me.gb_Master_Volume.Controls.Add(Me.tb_ml_volume_master_right) + Me.gb_Master_Volume.Location = New System.Drawing.Point(3, 3) + Me.gb_Master_Volume.Name = "gb_Master_Volume" + Me.gb_Master_Volume.Size = New System.Drawing.Size(105, 226) + Me.gb_Master_Volume.TabIndex = 0 + Me.gb_Master_Volume.Text = "Master" + ' + 'tb_ml_volume_master_left + ' + Me.tb_ml_volume_master_left.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_master_left", True)) + Me.tb_ml_volume_master_left.EditValue = 100 + Me.tb_ml_volume_master_left.Location = New System.Drawing.Point(5, 24) + Me.tb_ml_volume_master_left.Name = "tb_ml_volume_master_left" + Me.tb_ml_volume_master_left.Properties.Maximum = 200 + Me.tb_ml_volume_master_left.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_master_left.Properties.TickFrequency = 10 + Me.tb_ml_volume_master_left.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_master_left.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_master_left.TabIndex = 0 + Me.tb_ml_volume_master_left.Value = 100 + ' + 'Ctl_MKDXLabel10 + ' + Me.Ctl_MKDXLabel10.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel10.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel10.Location = New System.Drawing.Point(56, 180) + Me.Ctl_MKDXLabel10.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel10.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel10.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel10.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel10.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel10.Name = "Ctl_MKDXLabel10" + Me.Ctl_MKDXLabel10.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem117.Text = "Resolution in fullscreen mode" + ToolTipItem115.LeftIndent = 6 + ToolTipItem115.Text = resources.GetString("ToolTipItem115.Text") + SuperToolTip117.Items.Add(ToolTipTitleItem117) + SuperToolTip117.Items.Add(ToolTipItem115) + Me.Ctl_MKDXLabel10.SuperTip = SuperToolTip117 + Me.Ctl_MKDXLabel10.TabIndex = 8 + Me.Ctl_MKDXLabel10.Text = "Right" + ' + 'lbl_ml_volume_master_right + ' + Me.lbl_ml_volume_master_right.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_master_right.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_master_right.Location = New System.Drawing.Point(56, 203) + Me.lbl_ml_volume_master_right.MKBoundControl1 = Nothing + Me.lbl_ml_volume_master_right.MKBoundControl2 = Nothing + Me.lbl_ml_volume_master_right.MKBoundControl3 = Nothing + Me.lbl_ml_volume_master_right.MKBoundControl4 = Nothing + Me.lbl_ml_volume_master_right.MKBoundControl5 = Nothing + Me.lbl_ml_volume_master_right.Name = "lbl_ml_volume_master_right" + Me.lbl_ml_volume_master_right.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem118.Text = "Resolution in fullscreen mode" + ToolTipItem116.LeftIndent = 6 + ToolTipItem116.Text = resources.GetString("ToolTipItem116.Text") + SuperToolTip118.Items.Add(ToolTipTitleItem118) + SuperToolTip118.Items.Add(ToolTipItem116) + Me.lbl_ml_volume_master_right.SuperTip = SuperToolTip118 + Me.lbl_ml_volume_master_right.TabIndex = 8 + Me.lbl_ml_volume_master_right.Text = "100" + ' + 'lbl_ml_volume_master_left + ' + Me.lbl_ml_volume_master_left.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.lbl_ml_volume_master_left.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ml_volume_master_left.Location = New System.Drawing.Point(5, 203) + Me.lbl_ml_volume_master_left.MKBoundControl1 = Nothing + Me.lbl_ml_volume_master_left.MKBoundControl2 = Nothing + Me.lbl_ml_volume_master_left.MKBoundControl3 = Nothing + Me.lbl_ml_volume_master_left.MKBoundControl4 = Nothing + Me.lbl_ml_volume_master_left.MKBoundControl5 = Nothing + Me.lbl_ml_volume_master_left.Name = "lbl_ml_volume_master_left" + Me.lbl_ml_volume_master_left.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem119.Text = "Resolution in fullscreen mode" + ToolTipItem117.LeftIndent = 6 + ToolTipItem117.Text = resources.GetString("ToolTipItem117.Text") + SuperToolTip119.Items.Add(ToolTipTitleItem119) + SuperToolTip119.Items.Add(ToolTipItem117) + Me.lbl_ml_volume_master_left.SuperTip = SuperToolTip119 + Me.lbl_ml_volume_master_left.TabIndex = 8 + Me.lbl_ml_volume_master_left.Text = "100" + ' + 'Ctl_MKDXLabel9 + ' + Me.Ctl_MKDXLabel9.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center + Me.Ctl_MKDXLabel9.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel9.Location = New System.Drawing.Point(5, 180) + Me.Ctl_MKDXLabel9.MKBoundControl1 = Nothing + Me.Ctl_MKDXLabel9.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel9.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel9.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel9.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel9.Name = "Ctl_MKDXLabel9" + Me.Ctl_MKDXLabel9.Size = New System.Drawing.Size(45, 20) + ToolTipTitleItem120.Text = "Resolution in fullscreen mode" + ToolTipItem118.LeftIndent = 6 + ToolTipItem118.Text = resources.GetString("ToolTipItem118.Text") + SuperToolTip120.Items.Add(ToolTipTitleItem120) + SuperToolTip120.Items.Add(ToolTipItem118) + Me.Ctl_MKDXLabel9.SuperTip = SuperToolTip120 + Me.Ctl_MKDXLabel9.TabIndex = 8 + Me.Ctl_MKDXLabel9.Text = "Left" + ' + 'tb_ml_volume_master_right + ' + Me.tb_ml_volume_master_right.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "ml-volume_master_right", True)) + Me.tb_ml_volume_master_right.EditValue = 100 + Me.tb_ml_volume_master_right.Location = New System.Drawing.Point(56, 24) + Me.tb_ml_volume_master_right.Name = "tb_ml_volume_master_right" + Me.tb_ml_volume_master_right.Properties.Maximum = 200 + Me.tb_ml_volume_master_right.Properties.Orientation = System.Windows.Forms.Orientation.Vertical + Me.tb_ml_volume_master_right.Properties.TickFrequency = 10 + Me.tb_ml_volume_master_right.Properties.TickStyle = System.Windows.Forms.TickStyle.Both + Me.tb_ml_volume_master_right.Size = New System.Drawing.Size(45, 153) + Me.tb_ml_volume_master_right.TabIndex = 1 + Me.tb_ml_volume_master_right.Value = 100 + ' + 'tpg_Sound_Blaster + ' + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_oplrate) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_oplemu) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_oplmode) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_hdma) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_dma) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_irq) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_sbbase) + Me.tpg_Sound_Blaster.Controls.Add(Me.cmb_sblaster_sbtype) + Me.tpg_Sound_Blaster.Controls.Add(Me.chb_sblaster_sbmixer) + Me.tpg_Sound_Blaster.Controls.Add(Me.Ctl_MKDXLabel4) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_oplemu) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_oplmode) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_sbmixer) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_hdma) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_dma) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_irq) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_sbbase) + Me.tpg_Sound_Blaster.Controls.Add(Me.lbl_sblaster_sbtype) + Me.tpg_Sound_Blaster.Name = "tpg_Sound_Blaster" + Me.tpg_Sound_Blaster.Size = New System.Drawing.Size(546, 434) + Me.tpg_Sound_Blaster.Text = "Sound Blaster" + ' + 'cmb_sblaster_oplrate + ' + Me.cmb_sblaster_oplrate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-oplrate", True)) + Me.cmb_sblaster_oplrate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-oplrate", True)) + Me.cmb_sblaster_oplrate.Location = New System.Drawing.Point(123, 165) + Me.cmb_sblaster_oplrate.MKBoundLabel = Me.Ctl_MKDXLabel4 + Me.cmb_sblaster_oplrate.MKEditValue_Compare = Nothing + Me.cmb_sblaster_oplrate.Name = "cmb_sblaster_oplrate" + Me.cmb_sblaster_oplrate.Properties.AllowFocused = False + Me.cmb_sblaster_oplrate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_oplrate.Properties.DataSource = Me.BTA_sblaster_oplrate + Me.cmb_sblaster_oplrate.Properties.DisplayMember = "value" + Me.cmb_sblaster_oplrate.Properties.NullText = "" + Me.cmb_sblaster_oplrate.Properties.ShowFooter = False + Me.cmb_sblaster_oplrate.Properties.ShowHeader = False + Me.cmb_sblaster_oplrate.Properties.ValueMember = "value" + Me.cmb_sblaster_oplrate.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem122.Text = "SB OPL Rate" + ToolTipItem120.LeftIndent = 6 + ToolTipItem120.Text = "Sample Rate of OPL music emulation. Use 49716 for highest quality (Set the Mixer " & + "Rate accordingly)." + SuperToolTip122.Items.Add(ToolTipTitleItem122) + SuperToolTip122.Items.Add(ToolTipItem120) + Me.cmb_sblaster_oplrate.SuperTip = SuperToolTip122 + Me.cmb_sblaster_oplrate.TabIndex = 7 + ' + 'Ctl_MKDXLabel4 + ' + Me.Ctl_MKDXLabel4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.Ctl_MKDXLabel4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.Ctl_MKDXLabel4.Location = New System.Drawing.Point(3, 165) + Me.Ctl_MKDXLabel4.MKBoundControl1 = Me.cmb_sblaster_oplrate + Me.Ctl_MKDXLabel4.MKBoundControl2 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl3 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl4 = Nothing + Me.Ctl_MKDXLabel4.MKBoundControl5 = Nothing + Me.Ctl_MKDXLabel4.Name = "Ctl_MKDXLabel4" + Me.Ctl_MKDXLabel4.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem121.Text = "SB OPL Rate" + ToolTipItem119.LeftIndent = 6 + ToolTipItem119.Text = "Sample Rate of OPL music emulation. Use 49716 for highest quality (Set the Mixer " & + "Rate accordingly)." + SuperToolTip121.Items.Add(ToolTipTitleItem121) + SuperToolTip121.Items.Add(ToolTipItem119) + Me.Ctl_MKDXLabel4.SuperTip = SuperToolTip121 + Me.Ctl_MKDXLabel4.TabIndex = 26 + Me.Ctl_MKDXLabel4.Text = "SB OPL Rate:" + ' + 'BTA_sblaster_oplrate + ' + Me.BTA_sblaster_oplrate.AllowDelete = True + Me.BTA_sblaster_oplrate.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_oplrate.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_oplrate.Connection = Nothing + Me.BTA_sblaster_oplrate.DSStream = CType(resources.GetObject("BTA_sblaster_oplrate.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_oplrate.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_oplrate.FillString = "49716;48000;44100;32000;22050;16000;11025;8000" + Me.BTA_sblaster_oplrate.Position = 0 + Me.BTA_sblaster_oplrate.Transaction = Nothing + Me.BTA_sblaster_oplrate.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_oplrate.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_oplemu + ' + Me.cmb_sblaster_oplemu.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-oplemu", True)) + Me.cmb_sblaster_oplemu.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-oplemu", True)) + Me.cmb_sblaster_oplemu.Location = New System.Drawing.Point(123, 142) + Me.cmb_sblaster_oplemu.MKBoundLabel = Me.lbl_sblaster_oplemu + Me.cmb_sblaster_oplemu.MKEditValue_Compare = Nothing + Me.cmb_sblaster_oplemu.Name = "cmb_sblaster_oplemu" + Me.cmb_sblaster_oplemu.Properties.AllowFocused = False + Me.cmb_sblaster_oplemu.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_oplemu.Properties.DataSource = Me.BTA_sblaster_oplemu + Me.cmb_sblaster_oplemu.Properties.DisplayMember = "value" + Me.cmb_sblaster_oplemu.Properties.NullText = "" + Me.cmb_sblaster_oplemu.Properties.ShowFooter = False + Me.cmb_sblaster_oplemu.Properties.ShowHeader = False + Me.cmb_sblaster_oplemu.Properties.ValueMember = "value" + Me.cmb_sblaster_oplemu.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem124.Text = "SB OPL Emulation" + ToolTipItem122.LeftIndent = 6 + ToolTipItem122.Text = "Provider for the OPL Emulation. 'compat' might provide better quality (see SB OPL" & + " Rate as well)." + SuperToolTip124.Items.Add(ToolTipTitleItem124) + SuperToolTip124.Items.Add(ToolTipItem122) + Me.cmb_sblaster_oplemu.SuperTip = SuperToolTip124 + Me.cmb_sblaster_oplemu.TabIndex = 6 + ' + 'lbl_sblaster_oplemu + ' + Me.lbl_sblaster_oplemu.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_oplemu.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_oplemu.Location = New System.Drawing.Point(3, 142) + Me.lbl_sblaster_oplemu.MKBoundControl1 = Me.cmb_sblaster_oplemu + Me.lbl_sblaster_oplemu.MKBoundControl2 = Nothing + Me.lbl_sblaster_oplemu.MKBoundControl3 = Nothing + Me.lbl_sblaster_oplemu.MKBoundControl4 = Nothing + Me.lbl_sblaster_oplemu.MKBoundControl5 = Nothing + Me.lbl_sblaster_oplemu.Name = "lbl_sblaster_oplemu" + Me.lbl_sblaster_oplemu.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem123.Text = "SB OPL Emulation" + ToolTipItem121.LeftIndent = 6 + ToolTipItem121.Text = "Provider for the OPL Emulation. 'compat' might provide better quality (see SB OPL" & + " Rate as well)." + SuperToolTip123.Items.Add(ToolTipTitleItem123) + SuperToolTip123.Items.Add(ToolTipItem121) + Me.lbl_sblaster_oplemu.SuperTip = SuperToolTip123 + Me.lbl_sblaster_oplemu.TabIndex = 29 + Me.lbl_sblaster_oplemu.Text = "SB OPL Emulation:" + ' + 'BTA_sblaster_oplemu + ' + Me.BTA_sblaster_oplemu.AllowDelete = True + Me.BTA_sblaster_oplemu.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_oplemu.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_oplemu.Connection = Nothing + Me.BTA_sblaster_oplemu.DSStream = CType(resources.GetObject("BTA_sblaster_oplemu.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_oplemu.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_oplemu.FillString = "default;compat;fast" + Me.BTA_sblaster_oplemu.Position = 0 + Me.BTA_sblaster_oplemu.Transaction = Nothing + Me.BTA_sblaster_oplemu.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_oplemu.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_oplmode + ' + Me.cmb_sblaster_oplmode.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-oplmode", True)) + Me.cmb_sblaster_oplmode.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-oplmode", True)) + Me.cmb_sblaster_oplmode.Location = New System.Drawing.Point(123, 119) + Me.cmb_sblaster_oplmode.MKBoundLabel = Me.lbl_sblaster_oplmode + Me.cmb_sblaster_oplmode.MKEditValue_Compare = Nothing + Me.cmb_sblaster_oplmode.Name = "cmb_sblaster_oplmode" + Me.cmb_sblaster_oplmode.Properties.AllowFocused = False + Me.cmb_sblaster_oplmode.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_oplmode.Properties.DataSource = Me.BTA_sblaster_oplmode + Me.cmb_sblaster_oplmode.Properties.DisplayMember = "value" + Me.cmb_sblaster_oplmode.Properties.NullText = "" + Me.cmb_sblaster_oplmode.Properties.ShowFooter = False + Me.cmb_sblaster_oplmode.Properties.ShowHeader = False + Me.cmb_sblaster_oplmode.Properties.ValueMember = "value" + Me.cmb_sblaster_oplmode.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem126.Text = "SB OPL Mode" + ToolTipItem124.LeftIndent = 6 + ToolTipItem124.Text = "Type of OPL emulation. On 'auto' the mode is determined by SB Type. All OPL modes" & + " are Adlib-compatible, except for 'cms'." + SuperToolTip126.Items.Add(ToolTipTitleItem126) + SuperToolTip126.Items.Add(ToolTipItem124) + Me.cmb_sblaster_oplmode.SuperTip = SuperToolTip126 + Me.cmb_sblaster_oplmode.TabIndex = 5 + ' + 'lbl_sblaster_oplmode + ' + Me.lbl_sblaster_oplmode.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_oplmode.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_oplmode.Location = New System.Drawing.Point(3, 119) + Me.lbl_sblaster_oplmode.MKBoundControl1 = Me.cmb_sblaster_oplmode + Me.lbl_sblaster_oplmode.MKBoundControl2 = Nothing + Me.lbl_sblaster_oplmode.MKBoundControl3 = Nothing + Me.lbl_sblaster_oplmode.MKBoundControl4 = Nothing + Me.lbl_sblaster_oplmode.MKBoundControl5 = Nothing + Me.lbl_sblaster_oplmode.Name = "lbl_sblaster_oplmode" + Me.lbl_sblaster_oplmode.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem125.Text = "SB OPL Mode" + ToolTipItem123.LeftIndent = 6 + ToolTipItem123.Text = "Type of OPL emulation. On 'auto' the mode is determined by SB Type. All OPL modes" & + " are Adlib-compatible, except for 'cms'." + SuperToolTip125.Items.Add(ToolTipTitleItem125) + SuperToolTip125.Items.Add(ToolTipItem123) + Me.lbl_sblaster_oplmode.SuperTip = SuperToolTip125 + Me.lbl_sblaster_oplmode.TabIndex = 28 + Me.lbl_sblaster_oplmode.Text = "SB OPL Mode:" + ' + 'BTA_sblaster_oplmode + ' + Me.BTA_sblaster_oplmode.AllowDelete = True + Me.BTA_sblaster_oplmode.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_oplmode.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_oplmode.Connection = Nothing + Me.BTA_sblaster_oplmode.DSStream = CType(resources.GetObject("BTA_sblaster_oplmode.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_oplmode.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_oplmode.FillString = "none;auto;cms;opl2;dualopl2;opl3" + Me.BTA_sblaster_oplmode.Position = 0 + Me.BTA_sblaster_oplmode.Transaction = Nothing + Me.BTA_sblaster_oplmode.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_oplmode.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_hdma + ' + Me.cmb_sblaster_hdma.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-hdma", True)) + Me.cmb_sblaster_hdma.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-hdma", True)) + Me.cmb_sblaster_hdma.Location = New System.Drawing.Point(123, 96) + Me.cmb_sblaster_hdma.MKBoundLabel = Me.lbl_sblaster_hdma + Me.cmb_sblaster_hdma.MKEditValue_Compare = Nothing + Me.cmb_sblaster_hdma.Name = "cmb_sblaster_hdma" + Me.cmb_sblaster_hdma.Properties.AllowFocused = False + Me.cmb_sblaster_hdma.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_hdma.Properties.DataSource = Me.BTA_sblaster_hdma + Me.cmb_sblaster_hdma.Properties.DisplayMember = "value" + Me.cmb_sblaster_hdma.Properties.NullText = "" + Me.cmb_sblaster_hdma.Properties.ShowFooter = False + Me.cmb_sblaster_hdma.Properties.ShowHeader = False + Me.cmb_sblaster_hdma.Properties.ValueMember = "value" + Me.cmb_sblaster_hdma.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem128.Text = "SB High DMA" + ToolTipItem126.LeftIndent = 6 + ToolTipItem126.Text = "The High DMA number of the Sound Blaster." + SuperToolTip128.Items.Add(ToolTipTitleItem128) + SuperToolTip128.Items.Add(ToolTipItem126) + Me.cmb_sblaster_hdma.SuperTip = SuperToolTip128 + Me.cmb_sblaster_hdma.TabIndex = 4 + ' + 'lbl_sblaster_hdma + ' + Me.lbl_sblaster_hdma.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_hdma.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_hdma.Location = New System.Drawing.Point(3, 96) + Me.lbl_sblaster_hdma.MKBoundControl1 = Me.cmb_sblaster_hdma + Me.lbl_sblaster_hdma.MKBoundControl2 = Nothing + Me.lbl_sblaster_hdma.MKBoundControl3 = Nothing + Me.lbl_sblaster_hdma.MKBoundControl4 = Nothing + Me.lbl_sblaster_hdma.MKBoundControl5 = Nothing + Me.lbl_sblaster_hdma.Name = "lbl_sblaster_hdma" + Me.lbl_sblaster_hdma.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem127.Text = "SB High DMA" + ToolTipItem125.LeftIndent = 6 + ToolTipItem125.Text = "The High DMA number of the Sound Blaster." + SuperToolTip127.Items.Add(ToolTipTitleItem127) + SuperToolTip127.Items.Add(ToolTipItem125) + Me.lbl_sblaster_hdma.SuperTip = SuperToolTip127 + Me.lbl_sblaster_hdma.TabIndex = 22 + Me.lbl_sblaster_hdma.Text = "SB High DMA:" + ' + 'BTA_sblaster_hdma + ' + Me.BTA_sblaster_hdma.AllowDelete = True + Me.BTA_sblaster_hdma.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_hdma.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_hdma.Connection = Nothing + Me.BTA_sblaster_hdma.DSStream = CType(resources.GetObject("BTA_sblaster_hdma.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_hdma.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_hdma.FillString = "0;1;3;5;6;7" + Me.BTA_sblaster_hdma.Position = 0 + Me.BTA_sblaster_hdma.Transaction = Nothing + Me.BTA_sblaster_hdma.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_hdma.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_dma + ' + Me.cmb_sblaster_dma.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-dma", True)) + Me.cmb_sblaster_dma.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-dma", True)) + Me.cmb_sblaster_dma.Location = New System.Drawing.Point(123, 73) + Me.cmb_sblaster_dma.MKBoundLabel = Me.lbl_sblaster_dma + Me.cmb_sblaster_dma.MKEditValue_Compare = Nothing + Me.cmb_sblaster_dma.Name = "cmb_sblaster_dma" + Me.cmb_sblaster_dma.Properties.AllowFocused = False + Me.cmb_sblaster_dma.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_dma.Properties.DataSource = Me.BTA_sblaster_dma + Me.cmb_sblaster_dma.Properties.DisplayMember = "value" + Me.cmb_sblaster_dma.Properties.NullText = "" + Me.cmb_sblaster_dma.Properties.ShowFooter = False + Me.cmb_sblaster_dma.Properties.ShowHeader = False + Me.cmb_sblaster_dma.Properties.ValueMember = "value" + Me.cmb_sblaster_dma.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem130.Text = "SB DMA" + ToolTipItem128.LeftIndent = 6 + ToolTipItem128.Text = "The DMA number of the Sound Blaster." + SuperToolTip130.Items.Add(ToolTipTitleItem130) + SuperToolTip130.Items.Add(ToolTipItem128) + Me.cmb_sblaster_dma.SuperTip = SuperToolTip130 + Me.cmb_sblaster_dma.TabIndex = 3 + ' + 'lbl_sblaster_dma + ' + Me.lbl_sblaster_dma.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_dma.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_dma.Location = New System.Drawing.Point(3, 73) + Me.lbl_sblaster_dma.MKBoundControl1 = Me.cmb_sblaster_dma + Me.lbl_sblaster_dma.MKBoundControl2 = Nothing + Me.lbl_sblaster_dma.MKBoundControl3 = Nothing + Me.lbl_sblaster_dma.MKBoundControl4 = Nothing + Me.lbl_sblaster_dma.MKBoundControl5 = Nothing + Me.lbl_sblaster_dma.Name = "lbl_sblaster_dma" + Me.lbl_sblaster_dma.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem129.Text = "SB DMA" + ToolTipItem127.LeftIndent = 6 + ToolTipItem127.Text = "The DMA number of the Sound Blaster." + SuperToolTip129.Items.Add(ToolTipTitleItem129) + SuperToolTip129.Items.Add(ToolTipItem127) + Me.lbl_sblaster_dma.SuperTip = SuperToolTip129 + Me.lbl_sblaster_dma.TabIndex = 21 + Me.lbl_sblaster_dma.Text = "SB DMA:" + ' + 'BTA_sblaster_dma + ' + Me.BTA_sblaster_dma.AllowDelete = True + Me.BTA_sblaster_dma.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_dma.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_dma.Connection = Nothing + Me.BTA_sblaster_dma.DSStream = CType(resources.GetObject("BTA_sblaster_dma.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_dma.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_dma.FillString = "0;1;3;5;6;7" + Me.BTA_sblaster_dma.Position = 0 + Me.BTA_sblaster_dma.Transaction = Nothing + Me.BTA_sblaster_dma.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_dma.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_irq + ' + Me.cmb_sblaster_irq.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-irq", True)) + Me.cmb_sblaster_irq.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-irq", True)) + Me.cmb_sblaster_irq.Location = New System.Drawing.Point(123, 50) + Me.cmb_sblaster_irq.MKBoundLabel = Me.lbl_sblaster_irq + Me.cmb_sblaster_irq.MKEditValue_Compare = Nothing + Me.cmb_sblaster_irq.Name = "cmb_sblaster_irq" + Me.cmb_sblaster_irq.Properties.AllowFocused = False + Me.cmb_sblaster_irq.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_irq.Properties.DataSource = Me.BTA_sblaster_irq + Me.cmb_sblaster_irq.Properties.DisplayMember = "value" + Me.cmb_sblaster_irq.Properties.NullText = "" + Me.cmb_sblaster_irq.Properties.ShowFooter = False + Me.cmb_sblaster_irq.Properties.ShowHeader = False + Me.cmb_sblaster_irq.Properties.ValueMember = "value" + Me.cmb_sblaster_irq.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem132.Text = "SB IRQ" + ToolTipItem130.LeftIndent = 6 + ToolTipItem130.Text = "The IRQ number of the Sound Blaster." + SuperToolTip132.Items.Add(ToolTipTitleItem132) + SuperToolTip132.Items.Add(ToolTipItem130) + Me.cmb_sblaster_irq.SuperTip = SuperToolTip132 + Me.cmb_sblaster_irq.TabIndex = 2 + ' + 'lbl_sblaster_irq + ' + Me.lbl_sblaster_irq.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_irq.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_irq.Location = New System.Drawing.Point(3, 50) + Me.lbl_sblaster_irq.MKBoundControl1 = Me.cmb_sblaster_irq + Me.lbl_sblaster_irq.MKBoundControl2 = Nothing + Me.lbl_sblaster_irq.MKBoundControl3 = Nothing + Me.lbl_sblaster_irq.MKBoundControl4 = Nothing + Me.lbl_sblaster_irq.MKBoundControl5 = Nothing + Me.lbl_sblaster_irq.Name = "lbl_sblaster_irq" + Me.lbl_sblaster_irq.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem131.Text = "SB IRQ" + ToolTipItem129.LeftIndent = 6 + ToolTipItem129.Text = "The IRQ number of the Sound Blaster." + SuperToolTip131.Items.Add(ToolTipTitleItem131) + SuperToolTip131.Items.Add(ToolTipItem129) + Me.lbl_sblaster_irq.SuperTip = SuperToolTip131 + Me.lbl_sblaster_irq.TabIndex = 24 + Me.lbl_sblaster_irq.Text = "SB IRQ:" + ' + 'BTA_sblaster_irq + ' + Me.BTA_sblaster_irq.AllowDelete = True + Me.BTA_sblaster_irq.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_irq.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_irq.Connection = Nothing + Me.BTA_sblaster_irq.DSStream = CType(resources.GetObject("BTA_sblaster_irq.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_irq.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_irq.FillString = "3;5;7;9;10;11;12" + Me.BTA_sblaster_irq.Position = 0 + Me.BTA_sblaster_irq.Transaction = Nothing + Me.BTA_sblaster_irq.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_irq.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_sbbase + ' + Me.cmb_sblaster_sbbase.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-sbbase", True)) + Me.cmb_sblaster_sbbase.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-sbbase", True)) + Me.cmb_sblaster_sbbase.Location = New System.Drawing.Point(123, 27) + Me.cmb_sblaster_sbbase.MKBoundLabel = Me.lbl_sblaster_sbbase + Me.cmb_sblaster_sbbase.MKEditValue_Compare = Nothing + Me.cmb_sblaster_sbbase.Name = "cmb_sblaster_sbbase" + Me.cmb_sblaster_sbbase.Properties.AllowFocused = False + Me.cmb_sblaster_sbbase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_sbbase.Properties.DataSource = Me.BTA_sblaster_sbbase + Me.cmb_sblaster_sbbase.Properties.DisplayMember = "value" + Me.cmb_sblaster_sbbase.Properties.NullText = "" + Me.cmb_sblaster_sbbase.Properties.ShowFooter = False + Me.cmb_sblaster_sbbase.Properties.ShowHeader = False + Me.cmb_sblaster_sbbase.Properties.ValueMember = "value" + Me.cmb_sblaster_sbbase.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem134.Text = "SB Address" + ToolTipItem132.LeftIndent = 6 + ToolTipItem132.Text = "The IO address of the Sound Blaster." + SuperToolTip134.Items.Add(ToolTipTitleItem134) + SuperToolTip134.Items.Add(ToolTipItem132) + Me.cmb_sblaster_sbbase.SuperTip = SuperToolTip134 + Me.cmb_sblaster_sbbase.TabIndex = 1 + ' + 'lbl_sblaster_sbbase + ' + Me.lbl_sblaster_sbbase.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_sbbase.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_sbbase.Location = New System.Drawing.Point(3, 27) + Me.lbl_sblaster_sbbase.MKBoundControl1 = Me.cmb_sblaster_sbbase + Me.lbl_sblaster_sbbase.MKBoundControl2 = Nothing + Me.lbl_sblaster_sbbase.MKBoundControl3 = Nothing + Me.lbl_sblaster_sbbase.MKBoundControl4 = Nothing + Me.lbl_sblaster_sbbase.MKBoundControl5 = Nothing + Me.lbl_sblaster_sbbase.Name = "lbl_sblaster_sbbase" + Me.lbl_sblaster_sbbase.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem133.Text = "SB Address" + ToolTipItem131.LeftIndent = 6 + ToolTipItem131.Text = "The IO address of the Sound Blaster." + SuperToolTip133.Items.Add(ToolTipTitleItem133) + SuperToolTip133.Items.Add(ToolTipItem131) + Me.lbl_sblaster_sbbase.SuperTip = SuperToolTip133 + Me.lbl_sblaster_sbbase.TabIndex = 23 + Me.lbl_sblaster_sbbase.Text = "SB Address:" + ' + 'BTA_sblaster_sbbase + ' + Me.BTA_sblaster_sbbase.AllowDelete = True + Me.BTA_sblaster_sbbase.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_sbbase.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_sbbase.Connection = Nothing + Me.BTA_sblaster_sbbase.DSStream = CType(resources.GetObject("BTA_sblaster_sbbase.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_sbbase.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_sbbase.FillString = "220;240;260;280;2a0;2c0;2e0;300" + Me.BTA_sblaster_sbbase.Position = 0 + Me.BTA_sblaster_sbbase.Transaction = Nothing + Me.BTA_sblaster_sbbase.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_sbbase.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_sblaster_sbtype + ' + Me.cmb_sblaster_sbtype.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-sbtype", True)) + Me.cmb_sblaster_sbtype.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-sbtype", True)) + Me.cmb_sblaster_sbtype.Location = New System.Drawing.Point(123, 4) + Me.cmb_sblaster_sbtype.MKBoundLabel = Me.lbl_sblaster_sbtype + Me.cmb_sblaster_sbtype.MKEditValue_Compare = Nothing + Me.cmb_sblaster_sbtype.Name = "cmb_sblaster_sbtype" + Me.cmb_sblaster_sbtype.Properties.AllowFocused = False + Me.cmb_sblaster_sbtype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_sblaster_sbtype.Properties.DataSource = Me.BTA_sblaster_sbtype + Me.cmb_sblaster_sbtype.Properties.DisplayMember = "value" + Me.cmb_sblaster_sbtype.Properties.NullText = "" + Me.cmb_sblaster_sbtype.Properties.ShowFooter = False + Me.cmb_sblaster_sbtype.Properties.ShowHeader = False + Me.cmb_sblaster_sbtype.Properties.ValueMember = "value" + Me.cmb_sblaster_sbtype.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem136.Text = "SB Type" + ToolTipItem134.LeftIndent = 6 + ToolTipItem134.Text = "Type of Sound Blaster to emulate. gb is Gameblaster." + SuperToolTip136.Items.Add(ToolTipTitleItem136) + SuperToolTip136.Items.Add(ToolTipItem134) + Me.cmb_sblaster_sbtype.SuperTip = SuperToolTip136 + Me.cmb_sblaster_sbtype.TabIndex = 0 + ' + 'lbl_sblaster_sbtype + ' + Me.lbl_sblaster_sbtype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_sbtype.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_sbtype.Location = New System.Drawing.Point(3, 4) + Me.lbl_sblaster_sbtype.MKBoundControl1 = Me.cmb_sblaster_sbtype + Me.lbl_sblaster_sbtype.MKBoundControl2 = Nothing + Me.lbl_sblaster_sbtype.MKBoundControl3 = Nothing + Me.lbl_sblaster_sbtype.MKBoundControl4 = Nothing + Me.lbl_sblaster_sbtype.MKBoundControl5 = Nothing + Me.lbl_sblaster_sbtype.Name = "lbl_sblaster_sbtype" + Me.lbl_sblaster_sbtype.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem135.Text = "SB Type" + ToolTipItem133.LeftIndent = 6 + ToolTipItem133.Text = "Type of Sound Blaster to emulate. gb is Gameblaster." + SuperToolTip135.Items.Add(ToolTipTitleItem135) + SuperToolTip135.Items.Add(ToolTipItem133) + Me.lbl_sblaster_sbtype.SuperTip = SuperToolTip135 + Me.lbl_sblaster_sbtype.TabIndex = 27 + Me.lbl_sblaster_sbtype.Text = "SB Type:" + ' + 'BTA_sblaster_sbtype + ' + Me.BTA_sblaster_sbtype.AllowDelete = True + Me.BTA_sblaster_sbtype.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_sblaster_sbtype.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_sblaster_sbtype.Connection = Nothing + Me.BTA_sblaster_sbtype.DSStream = CType(resources.GetObject("BTA_sblaster_sbtype.DSStream"), System.IO.MemoryStream) + Me.BTA_sblaster_sbtype.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_sblaster_sbtype.FillString = "none;sb1;sb2;sbpro1;sbpro2;sb16;gb" + Me.BTA_sblaster_sbtype.Position = 0 + Me.BTA_sblaster_sbtype.Transaction = Nothing + Me.BTA_sblaster_sbtype.UpdateTablesStream = CType(resources.GetObject("BTA_sblaster_sbtype.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_sblaster_sbmixer + ' + Me.chb_sblaster_sbmixer.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "sblaster-sbmixer", True)) + Me.chb_sblaster_sbmixer.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "sblaster-sbmixer", True)) + Me.chb_sblaster_sbmixer.Location = New System.Drawing.Point(123, 189) + Me.chb_sblaster_sbmixer.MKBoundLabel = Me.lbl_sblaster_sbmixer + Me.chb_sblaster_sbmixer.MKEditValue_Compare = Nothing + Me.chb_sblaster_sbmixer.Name = "chb_sblaster_sbmixer" + Me.chb_sblaster_sbmixer.Properties.Caption = "" + Me.chb_sblaster_sbmixer.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem138.Text = "SB Use Mixer" + ToolTipItem136.LeftIndent = 6 + ToolTipItem136.Text = "Allow the Sound Blaster mixer to modify the DOSBox mixer." + SuperToolTip138.Items.Add(ToolTipTitleItem138) + SuperToolTip138.Items.Add(ToolTipItem136) + Me.chb_sblaster_sbmixer.SuperTip = SuperToolTip138 + Me.chb_sblaster_sbmixer.TabIndex = 8 + ' + 'lbl_sblaster_sbmixer + ' + Me.lbl_sblaster_sbmixer.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_sblaster_sbmixer.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_sblaster_sbmixer.Location = New System.Drawing.Point(3, 188) + Me.lbl_sblaster_sbmixer.MKBoundControl1 = Me.chb_sblaster_sbmixer + Me.lbl_sblaster_sbmixer.MKBoundControl2 = Nothing + Me.lbl_sblaster_sbmixer.MKBoundControl3 = Nothing + Me.lbl_sblaster_sbmixer.MKBoundControl4 = Nothing + Me.lbl_sblaster_sbmixer.MKBoundControl5 = Nothing + Me.lbl_sblaster_sbmixer.Name = "lbl_sblaster_sbmixer" + Me.lbl_sblaster_sbmixer.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem137.Text = "SB Use Mixer" + ToolTipItem135.LeftIndent = 6 + ToolTipItem135.Text = "Allow the Sound Blaster mixer to modify the DOSBox mixer." + SuperToolTip137.Items.Add(ToolTipTitleItem137) + SuperToolTip137.Items.Add(ToolTipItem135) + Me.lbl_sblaster_sbmixer.SuperTip = SuperToolTip137 + Me.lbl_sblaster_sbmixer.TabIndex = 25 + Me.lbl_sblaster_sbmixer.Text = "SB Use Mixer:" + ' + 'tpg_GUS + ' + Me.tpg_GUS.Controls.Add(Me.txb_gus_ultradir) + Me.tpg_GUS.Controls.Add(Me.cmb_gus_gusdma) + Me.tpg_GUS.Controls.Add(Me.cmb_gus_gusirq) + Me.tpg_GUS.Controls.Add(Me.cmb_gus_gusbase) + Me.tpg_GUS.Controls.Add(Me.cmb_gus_gusrate) + Me.tpg_GUS.Controls.Add(Me.chb_gus_gus) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_ultradir) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_gusdma) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_gusirq) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_gusbase) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_gusrate) + Me.tpg_GUS.Controls.Add(Me.lbl_gus_gus) + Me.tpg_GUS.Name = "tpg_GUS" + Me.tpg_GUS.Size = New System.Drawing.Size(546, 434) + Me.tpg_GUS.Text = "GUS" + ' + 'txb_gus_ultradir + ' + Me.txb_gus_ultradir.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-ultradir", True)) + Me.txb_gus_ultradir.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-ultradir", True)) + Me.txb_gus_ultradir.Location = New System.Drawing.Point(123, 120) + Me.txb_gus_ultradir.MKBoundLabel = Me.lbl_gus_ultradir + Me.txb_gus_ultradir.MKEditValue_Compare = Nothing + Me.txb_gus_ultradir.Name = "txb_gus_ultradir" + Me.txb_gus_ultradir.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem140.Text = "GUS Directory" + ToolTipItem138.LeftIndent = 6 + ToolTipItem138.Text = "Path to Ultrasound directory. In this directory there should be a MIDI directory " & + "that contains the patch files for GUS playback. Patch sets used with Timidity sh" & + "ould work fine." + SuperToolTip140.Items.Add(ToolTipTitleItem140) + SuperToolTip140.Items.Add(ToolTipItem138) + Me.txb_gus_ultradir.SuperTip = SuperToolTip140 + Me.txb_gus_ultradir.TabIndex = 5 + ' + 'lbl_gus_ultradir + ' + Me.lbl_gus_ultradir.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_ultradir.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_ultradir.Location = New System.Drawing.Point(3, 120) + Me.lbl_gus_ultradir.MKBoundControl1 = Me.txb_gus_ultradir + Me.lbl_gus_ultradir.MKBoundControl2 = Nothing + Me.lbl_gus_ultradir.MKBoundControl3 = Nothing + Me.lbl_gus_ultradir.MKBoundControl4 = Nothing + Me.lbl_gus_ultradir.MKBoundControl5 = Nothing + Me.lbl_gus_ultradir.Name = "lbl_gus_ultradir" + Me.lbl_gus_ultradir.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem139.Text = "GUS Directory" + ToolTipItem137.LeftIndent = 6 + ToolTipItem137.Text = "Path to Ultrasound directory. In this directory there should be a MIDI directory " & + "that contains the patch files for GUS playback. Patch sets used with Timidity sh" & + "ould work fine." + SuperToolTip139.Items.Add(ToolTipTitleItem139) + SuperToolTip139.Items.Add(ToolTipItem137) + Me.lbl_gus_ultradir.SuperTip = SuperToolTip139 + Me.lbl_gus_ultradir.TabIndex = 22 + Me.lbl_gus_ultradir.Text = "GUS Directory:" + ' + 'cmb_gus_gusdma + ' + Me.cmb_gus_gusdma.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-gusdma", True)) + Me.cmb_gus_gusdma.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-gusdma", True)) + Me.cmb_gus_gusdma.Location = New System.Drawing.Point(123, 97) + Me.cmb_gus_gusdma.MKBoundLabel = Me.lbl_gus_gusdma + Me.cmb_gus_gusdma.MKEditValue_Compare = Nothing + Me.cmb_gus_gusdma.Name = "cmb_gus_gusdma" + Me.cmb_gus_gusdma.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_gus_gusdma.Properties.DataSource = Me.BTA_gus_gusdma + Me.cmb_gus_gusdma.Properties.DisplayMember = "value" + Me.cmb_gus_gusdma.Properties.NullText = "" + Me.cmb_gus_gusdma.Properties.ValueMember = "value" + Me.cmb_gus_gusdma.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem142.Text = "GUS DMA" + ToolTipItem140.LeftIndent = 6 + ToolTipItem140.Text = "The DMA channel of the Gravis Ultrasound." + SuperToolTip142.Items.Add(ToolTipTitleItem142) + SuperToolTip142.Items.Add(ToolTipItem140) + Me.cmb_gus_gusdma.SuperTip = SuperToolTip142 + Me.cmb_gus_gusdma.TabIndex = 4 + ' + 'lbl_gus_gusdma + ' + Me.lbl_gus_gusdma.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_gusdma.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_gusdma.Location = New System.Drawing.Point(3, 97) + Me.lbl_gus_gusdma.MKBoundControl1 = Me.cmb_gus_gusdma + Me.lbl_gus_gusdma.MKBoundControl2 = Nothing + Me.lbl_gus_gusdma.MKBoundControl3 = Nothing + Me.lbl_gus_gusdma.MKBoundControl4 = Nothing + Me.lbl_gus_gusdma.MKBoundControl5 = Nothing + Me.lbl_gus_gusdma.Name = "lbl_gus_gusdma" + Me.lbl_gus_gusdma.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem141.Text = "GUS DMA" + ToolTipItem139.LeftIndent = 6 + ToolTipItem139.Text = "The DMA channel of the Gravis Ultrasound." + SuperToolTip141.Items.Add(ToolTipTitleItem141) + SuperToolTip141.Items.Add(ToolTipItem139) + Me.lbl_gus_gusdma.SuperTip = SuperToolTip141 + Me.lbl_gus_gusdma.TabIndex = 23 + Me.lbl_gus_gusdma.Text = "GUS DMA:" + ' + 'BTA_gus_gusdma + ' + Me.BTA_gus_gusdma.AllowDelete = True + Me.BTA_gus_gusdma.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_gus_gusdma.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_gus_gusdma.Connection = Nothing + Me.BTA_gus_gusdma.DSStream = CType(resources.GetObject("BTA_gus_gusdma.DSStream"), System.IO.MemoryStream) + Me.BTA_gus_gusdma.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_gus_gusdma.FillString = "0;1;3;5;6;7" + Me.BTA_gus_gusdma.Position = 0 + Me.BTA_gus_gusdma.Transaction = Nothing + Me.BTA_gus_gusdma.UpdateTablesStream = CType(resources.GetObject("BTA_gus_gusdma.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_gus_gusirq + ' + Me.cmb_gus_gusirq.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-gusirq", True)) + Me.cmb_gus_gusirq.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-gusirq", True)) + Me.cmb_gus_gusirq.Location = New System.Drawing.Point(123, 74) + Me.cmb_gus_gusirq.MKBoundLabel = Me.lbl_gus_gusirq + Me.cmb_gus_gusirq.MKEditValue_Compare = Nothing + Me.cmb_gus_gusirq.Name = "cmb_gus_gusirq" + Me.cmb_gus_gusirq.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_gus_gusirq.Properties.DataSource = Me.BTA_gus_gusirq + Me.cmb_gus_gusirq.Properties.DisplayMember = "value" + Me.cmb_gus_gusirq.Properties.NullText = "" + Me.cmb_gus_gusirq.Properties.ValueMember = "value" + Me.cmb_gus_gusirq.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem144.Text = "GUS IRQ" + ToolTipItem142.LeftIndent = 6 + ToolTipItem142.Text = "The IRQ number of the Gravis Ultrasound." + SuperToolTip144.Items.Add(ToolTipTitleItem144) + SuperToolTip144.Items.Add(ToolTipItem142) + Me.cmb_gus_gusirq.SuperTip = SuperToolTip144 + Me.cmb_gus_gusirq.TabIndex = 3 + ' + 'lbl_gus_gusirq + ' + Me.lbl_gus_gusirq.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_gusirq.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_gusirq.Location = New System.Drawing.Point(3, 74) + Me.lbl_gus_gusirq.MKBoundControl1 = Me.cmb_gus_gusirq + Me.lbl_gus_gusirq.MKBoundControl2 = Nothing + Me.lbl_gus_gusirq.MKBoundControl3 = Nothing + Me.lbl_gus_gusirq.MKBoundControl4 = Nothing + Me.lbl_gus_gusirq.MKBoundControl5 = Nothing + Me.lbl_gus_gusirq.Name = "lbl_gus_gusirq" + Me.lbl_gus_gusirq.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem143.Text = "GUS IRQ" + ToolTipItem141.LeftIndent = 6 + ToolTipItem141.Text = "The IRQ number of the Gravis Ultrasound." + SuperToolTip143.Items.Add(ToolTipTitleItem143) + SuperToolTip143.Items.Add(ToolTipItem141) + Me.lbl_gus_gusirq.SuperTip = SuperToolTip143 + Me.lbl_gus_gusirq.TabIndex = 20 + Me.lbl_gus_gusirq.Text = "GUS IRQ:" + ' + 'BTA_gus_gusirq + ' + Me.BTA_gus_gusirq.AllowDelete = True + Me.BTA_gus_gusirq.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_gus_gusirq.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_gus_gusirq.Connection = Nothing + Me.BTA_gus_gusirq.DSStream = CType(resources.GetObject("BTA_gus_gusirq.DSStream"), System.IO.MemoryStream) + Me.BTA_gus_gusirq.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_gus_gusirq.FillString = "3;5;7;9;10;11;12" + Me.BTA_gus_gusirq.Position = 0 + Me.BTA_gus_gusirq.Transaction = Nothing + Me.BTA_gus_gusirq.UpdateTablesStream = CType(resources.GetObject("BTA_gus_gusirq.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_gus_gusbase + ' + Me.cmb_gus_gusbase.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-gusbase", True)) + Me.cmb_gus_gusbase.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-gusbase", True)) + Me.cmb_gus_gusbase.Location = New System.Drawing.Point(123, 51) + Me.cmb_gus_gusbase.MKBoundLabel = Me.lbl_gus_gusbase + Me.cmb_gus_gusbase.MKEditValue_Compare = Nothing + Me.cmb_gus_gusbase.Name = "cmb_gus_gusbase" + Me.cmb_gus_gusbase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_gus_gusbase.Properties.DataSource = Me.BTA_gus_gusbase + Me.cmb_gus_gusbase.Properties.DisplayMember = "value" + Me.cmb_gus_gusbase.Properties.NullText = "" + Me.cmb_gus_gusbase.Properties.ValueMember = "value" + Me.cmb_gus_gusbase.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem146.Text = "GUS Address" + ToolTipItem144.LeftIndent = 6 + ToolTipItem144.Text = "The IO base address of the Gravis Ultrasound." + SuperToolTip146.Items.Add(ToolTipTitleItem146) + SuperToolTip146.Items.Add(ToolTipItem144) + Me.cmb_gus_gusbase.SuperTip = SuperToolTip146 + Me.cmb_gus_gusbase.TabIndex = 2 + ' + 'lbl_gus_gusbase + ' + Me.lbl_gus_gusbase.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_gusbase.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_gusbase.Location = New System.Drawing.Point(3, 51) + Me.lbl_gus_gusbase.MKBoundControl1 = Me.cmb_gus_gusbase + Me.lbl_gus_gusbase.MKBoundControl2 = Nothing + Me.lbl_gus_gusbase.MKBoundControl3 = Nothing + Me.lbl_gus_gusbase.MKBoundControl4 = Nothing + Me.lbl_gus_gusbase.MKBoundControl5 = Nothing + Me.lbl_gus_gusbase.Name = "lbl_gus_gusbase" + Me.lbl_gus_gusbase.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem145.Text = "GUS Address" + ToolTipItem143.LeftIndent = 6 + ToolTipItem143.Text = "The IO base address of the Gravis Ultrasound." + SuperToolTip145.Items.Add(ToolTipTitleItem145) + SuperToolTip145.Items.Add(ToolTipItem143) + Me.lbl_gus_gusbase.SuperTip = SuperToolTip145 + Me.lbl_gus_gusbase.TabIndex = 21 + Me.lbl_gus_gusbase.Text = "GUS Address:" + ' + 'BTA_gus_gusbase + ' + Me.BTA_gus_gusbase.AllowDelete = True + Me.BTA_gus_gusbase.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_gus_gusbase.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_gus_gusbase.Connection = Nothing + Me.BTA_gus_gusbase.DSStream = CType(resources.GetObject("BTA_gus_gusbase.DSStream"), System.IO.MemoryStream) + Me.BTA_gus_gusbase.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_gus_gusbase.FillString = "240;220;260;280;2a0;2c0;2e0;300" + Me.BTA_gus_gusbase.Position = 0 + Me.BTA_gus_gusbase.Transaction = Nothing + Me.BTA_gus_gusbase.UpdateTablesStream = CType(resources.GetObject("BTA_gus_gusbase.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_gus_gusrate + ' + Me.cmb_gus_gusrate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-gusrate", True)) + Me.cmb_gus_gusrate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-gusrate", True)) + Me.cmb_gus_gusrate.Location = New System.Drawing.Point(123, 28) + Me.cmb_gus_gusrate.MKBoundLabel = Me.lbl_gus_gusrate + Me.cmb_gus_gusrate.MKEditValue_Compare = Nothing + Me.cmb_gus_gusrate.Name = "cmb_gus_gusrate" + Me.cmb_gus_gusrate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_gus_gusrate.Properties.DataSource = Me.BTA_gus_gusrate + Me.cmb_gus_gusrate.Properties.DisplayMember = "value" + Me.cmb_gus_gusrate.Properties.NullText = "" + Me.cmb_gus_gusrate.Properties.ValueMember = "value" + Me.cmb_gus_gusrate.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem148.Text = "GUS Sample Rate" + ToolTipItem146.LeftIndent = 6 + ToolTipItem146.Text = "Sample Rate of Ultrasound emulation." + SuperToolTip148.Items.Add(ToolTipTitleItem148) + SuperToolTip148.Items.Add(ToolTipItem146) + Me.cmb_gus_gusrate.SuperTip = SuperToolTip148 + Me.cmb_gus_gusrate.TabIndex = 1 + ' + 'lbl_gus_gusrate + ' + Me.lbl_gus_gusrate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_gusrate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_gusrate.Location = New System.Drawing.Point(3, 28) + Me.lbl_gus_gusrate.MKBoundControl1 = Me.cmb_gus_gusrate + Me.lbl_gus_gusrate.MKBoundControl2 = Nothing + Me.lbl_gus_gusrate.MKBoundControl3 = Nothing + Me.lbl_gus_gusrate.MKBoundControl4 = Nothing + Me.lbl_gus_gusrate.MKBoundControl5 = Nothing + Me.lbl_gus_gusrate.Name = "lbl_gus_gusrate" + Me.lbl_gus_gusrate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem147.Text = "GUS Sample Rate" + ToolTipItem145.LeftIndent = 6 + ToolTipItem145.Text = "Sample Rate of Ultrasound emulation." + SuperToolTip147.Items.Add(ToolTipTitleItem147) + SuperToolTip147.Items.Add(ToolTipItem145) + Me.lbl_gus_gusrate.SuperTip = SuperToolTip147 + Me.lbl_gus_gusrate.TabIndex = 18 + Me.lbl_gus_gusrate.Text = "GUS Sample Rate:" + ' + 'BTA_gus_gusrate + ' + Me.BTA_gus_gusrate.AllowDelete = True + Me.BTA_gus_gusrate.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_gus_gusrate.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_gus_gusrate.Connection = Nothing + Me.BTA_gus_gusrate.DSStream = CType(resources.GetObject("BTA_gus_gusrate.DSStream"), System.IO.MemoryStream) + Me.BTA_gus_gusrate.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_gus_gusrate.FillString = "49716;48000;44100;32000;22050;16000;11025;8000" + Me.BTA_gus_gusrate.Position = 0 + Me.BTA_gus_gusrate.Transaction = Nothing + Me.BTA_gus_gusrate.UpdateTablesStream = CType(resources.GetObject("BTA_gus_gusrate.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_gus_gus + ' + Me.chb_gus_gus.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "gus-gus", True)) + Me.chb_gus_gus.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "gus-gus", True)) + Me.chb_gus_gus.Location = New System.Drawing.Point(123, 5) + Me.chb_gus_gus.MKBoundLabel = Me.lbl_gus_gus + Me.chb_gus_gus.MKEditValue_Compare = Nothing + Me.chb_gus_gus.Name = "chb_gus_gus" + Me.chb_gus_gus.Properties.Caption = "" + Me.chb_gus_gus.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem150.Text = "Enable GUS" + ToolTipItem148.LeftIndent = 6 + ToolTipItem148.Text = "Enable the Gravis Ultrasound emulation." + SuperToolTip150.Items.Add(ToolTipTitleItem150) + SuperToolTip150.Items.Add(ToolTipItem148) + Me.chb_gus_gus.SuperTip = SuperToolTip150 + Me.chb_gus_gus.TabIndex = 0 + ' + 'lbl_gus_gus + ' + Me.lbl_gus_gus.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_gus_gus.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_gus_gus.Location = New System.Drawing.Point(3, 4) + Me.lbl_gus_gus.MKBoundControl1 = Me.chb_gus_gus + Me.lbl_gus_gus.MKBoundControl2 = Nothing + Me.lbl_gus_gus.MKBoundControl3 = Nothing + Me.lbl_gus_gus.MKBoundControl4 = Nothing + Me.lbl_gus_gus.MKBoundControl5 = Nothing + Me.lbl_gus_gus.Name = "lbl_gus_gus" + Me.lbl_gus_gus.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem149.Text = "Enable GUS" + ToolTipItem147.LeftIndent = 6 + ToolTipItem147.Text = "Enable the Gravis Ultrasound emulation." + SuperToolTip149.Items.Add(ToolTipTitleItem149) + SuperToolTip149.Items.Add(ToolTipItem147) + Me.lbl_gus_gus.SuperTip = SuperToolTip149 + Me.lbl_gus_gus.TabIndex = 19 + Me.lbl_gus_gus.Text = "Enable GUS:" + ' + 'tpg_MIDI + ' + Me.tpg_MIDI.Controls.Add(Me.txb_midi_midiconfig) + Me.tpg_MIDI.Controls.Add(Me.cmb_midi_mididevice) + Me.tpg_MIDI.Controls.Add(Me.cmb_midi_mpu401) + Me.tpg_MIDI.Controls.Add(Me.lbl_midi_midiconfig) + Me.tpg_MIDI.Controls.Add(Me.lbl_midi_mididevice) + Me.tpg_MIDI.Controls.Add(Me.lbl_midi_mpu401) + Me.tpg_MIDI.Name = "tpg_MIDI" + Me.tpg_MIDI.Size = New System.Drawing.Size(546, 434) + Me.tpg_MIDI.Text = "MIDI" + ' + 'txb_midi_midiconfig + ' + Me.txb_midi_midiconfig.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "midi-midiconfig", True)) + Me.txb_midi_midiconfig.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "midi-midiconfig", True)) + Me.txb_midi_midiconfig.Location = New System.Drawing.Point(123, 50) + Me.txb_midi_midiconfig.MKBoundLabel = Me.lbl_midi_midiconfig + Me.txb_midi_midiconfig.MKEditValue_Compare = Nothing + Me.txb_midi_midiconfig.Name = "txb_midi_midiconfig" + Me.txb_midi_midiconfig.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem152.Text = "MIDI Config" + ToolTipItem150.LeftIndent = 6 + ToolTipItem150.Text = "Special configuration options for the device driver. This is usually the id of th" & + "e device you want to use." + SuperToolTip152.Items.Add(ToolTipTitleItem152) + SuperToolTip152.Items.Add(ToolTipItem150) + Me.txb_midi_midiconfig.SuperTip = SuperToolTip152 + Me.txb_midi_midiconfig.TabIndex = 2 + ' + 'lbl_midi_midiconfig + ' + Me.lbl_midi_midiconfig.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_midi_midiconfig.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_midi_midiconfig.Location = New System.Drawing.Point(3, 50) + Me.lbl_midi_midiconfig.MKBoundControl1 = Me.txb_midi_midiconfig + Me.lbl_midi_midiconfig.MKBoundControl2 = Nothing + Me.lbl_midi_midiconfig.MKBoundControl3 = Nothing + Me.lbl_midi_midiconfig.MKBoundControl4 = Nothing + Me.lbl_midi_midiconfig.MKBoundControl5 = Nothing + Me.lbl_midi_midiconfig.Name = "lbl_midi_midiconfig" + Me.lbl_midi_midiconfig.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem151.Text = "MIDI Config" + ToolTipItem149.LeftIndent = 6 + ToolTipItem149.Text = "Special configuration options for the device driver. This is usually the id of th" & + "e device you want to use." + SuperToolTip151.Items.Add(ToolTipTitleItem151) + SuperToolTip151.Items.Add(ToolTipItem149) + Me.lbl_midi_midiconfig.SuperTip = SuperToolTip151 + Me.lbl_midi_midiconfig.TabIndex = 17 + Me.lbl_midi_midiconfig.Text = "MIDI Config:" + ' + 'cmb_midi_mididevice + ' + Me.cmb_midi_mididevice.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "midi-mididevice", True)) + Me.cmb_midi_mididevice.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "midi-mididevice", True)) + Me.cmb_midi_mididevice.Location = New System.Drawing.Point(123, 27) + Me.cmb_midi_mididevice.MKBoundLabel = Me.lbl_midi_mididevice + Me.cmb_midi_mididevice.MKEditValue_Compare = Nothing + Me.cmb_midi_mididevice.Name = "cmb_midi_mididevice" + Me.cmb_midi_mididevice.Properties.AllowFocused = False + Me.cmb_midi_mididevice.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_midi_mididevice.Properties.DataSource = Me.BTA_midi_mididevice + Me.cmb_midi_mididevice.Properties.DisplayMember = "value" + Me.cmb_midi_mididevice.Properties.NullText = "" + Me.cmb_midi_mididevice.Properties.ShowFooter = False + Me.cmb_midi_mididevice.Properties.ShowHeader = False + Me.cmb_midi_mididevice.Properties.ValueMember = "value" + Me.cmb_midi_mididevice.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem154.Text = "MIDI Device" + ToolTipItem152.LeftIndent = 6 + ToolTipItem152.Text = "Device that will receive the MIDI data from MPU-401." + SuperToolTip154.Items.Add(ToolTipTitleItem154) + SuperToolTip154.Items.Add(ToolTipItem152) + Me.cmb_midi_mididevice.SuperTip = SuperToolTip154 + Me.cmb_midi_mididevice.TabIndex = 1 + ' + 'lbl_midi_mididevice + ' + Me.lbl_midi_mididevice.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_midi_mididevice.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_midi_mididevice.Location = New System.Drawing.Point(3, 27) + Me.lbl_midi_mididevice.MKBoundControl1 = Me.cmb_midi_mididevice + Me.lbl_midi_mididevice.MKBoundControl2 = Nothing + Me.lbl_midi_mididevice.MKBoundControl3 = Nothing + Me.lbl_midi_mididevice.MKBoundControl4 = Nothing + Me.lbl_midi_mididevice.MKBoundControl5 = Nothing + Me.lbl_midi_mididevice.Name = "lbl_midi_mididevice" + Me.lbl_midi_mididevice.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem153.Text = "MIDI Device" + ToolTipItem151.LeftIndent = 6 + ToolTipItem151.Text = "Device that will receive the MIDI data from MPU-401." + SuperToolTip153.Items.Add(ToolTipTitleItem153) + SuperToolTip153.Items.Add(ToolTipItem151) + Me.lbl_midi_mididevice.SuperTip = SuperToolTip153 + Me.lbl_midi_mididevice.TabIndex = 16 + Me.lbl_midi_mididevice.Text = "MIDI Device:" + ' + 'BTA_midi_mididevice + ' + Me.BTA_midi_mididevice.AllowDelete = True + Me.BTA_midi_mididevice.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_midi_mididevice.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_midi_mididevice.Connection = Nothing + Me.BTA_midi_mididevice.DSStream = CType(resources.GetObject("BTA_midi_mididevice.DSStream"), System.IO.MemoryStream) + Me.BTA_midi_mididevice.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_midi_mididevice.FillString = "none;default;win32;alsa;oss;coreaudio;coremidi" + Me.BTA_midi_mididevice.Position = 0 + Me.BTA_midi_mididevice.Transaction = Nothing + Me.BTA_midi_mididevice.UpdateTablesStream = CType(resources.GetObject("BTA_midi_mididevice.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_midi_mpu401 + ' + Me.cmb_midi_mpu401.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "midi-mpu401", True)) + Me.cmb_midi_mpu401.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "midi-mpu401", True)) + Me.cmb_midi_mpu401.Location = New System.Drawing.Point(123, 4) + Me.cmb_midi_mpu401.MKBoundLabel = Me.lbl_midi_mpu401 + Me.cmb_midi_mpu401.MKEditValue_Compare = Nothing + Me.cmb_midi_mpu401.Name = "cmb_midi_mpu401" + Me.cmb_midi_mpu401.Properties.AllowFocused = False + Me.cmb_midi_mpu401.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_midi_mpu401.Properties.DataSource = Me.BTA_midi_mpu401 + Me.cmb_midi_mpu401.Properties.DisplayMember = "value" + Me.cmb_midi_mpu401.Properties.NullText = "" + Me.cmb_midi_mpu401.Properties.ShowFooter = False + Me.cmb_midi_mpu401.Properties.ShowHeader = False + Me.cmb_midi_mpu401.Properties.ValueMember = "value" + Me.cmb_midi_mpu401.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem156.Text = "MPU-401" + ToolTipItem154.LeftIndent = 6 + ToolTipItem154.Text = "Type of MPU-401 to emulate." + SuperToolTip156.Items.Add(ToolTipTitleItem156) + SuperToolTip156.Items.Add(ToolTipItem154) + Me.cmb_midi_mpu401.SuperTip = SuperToolTip156 + Me.cmb_midi_mpu401.TabIndex = 0 + ' + 'lbl_midi_mpu401 + ' + Me.lbl_midi_mpu401.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_midi_mpu401.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_midi_mpu401.Location = New System.Drawing.Point(3, 4) + Me.lbl_midi_mpu401.MKBoundControl1 = Me.cmb_midi_mpu401 + Me.lbl_midi_mpu401.MKBoundControl2 = Nothing + Me.lbl_midi_mpu401.MKBoundControl3 = Nothing + Me.lbl_midi_mpu401.MKBoundControl4 = Nothing + Me.lbl_midi_mpu401.MKBoundControl5 = Nothing + Me.lbl_midi_mpu401.Name = "lbl_midi_mpu401" + Me.lbl_midi_mpu401.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem155.Text = "MPU-401" + ToolTipItem153.LeftIndent = 6 + ToolTipItem153.Text = "Type of MPU-401 to emulate." + SuperToolTip155.Items.Add(ToolTipTitleItem155) + SuperToolTip155.Items.Add(ToolTipItem153) + Me.lbl_midi_mpu401.SuperTip = SuperToolTip155 + Me.lbl_midi_mpu401.TabIndex = 18 + Me.lbl_midi_mpu401.Text = "MPU-401:" + ' + 'BTA_midi_mpu401 + ' + Me.BTA_midi_mpu401.AllowDelete = True + Me.BTA_midi_mpu401.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_midi_mpu401.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_midi_mpu401.Connection = Nothing + Me.BTA_midi_mpu401.DSStream = CType(resources.GetObject("BTA_midi_mpu401.DSStream"), System.IO.MemoryStream) + Me.BTA_midi_mpu401.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_midi_mpu401.FillString = "none;intelligent;uart" + Me.BTA_midi_mpu401.Position = 0 + Me.BTA_midi_mpu401.Transaction = Nothing + Me.BTA_midi_mpu401.UpdateTablesStream = CType(resources.GetObject("BTA_midi_mpu401.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'tpg_Joystick + ' + Me.tpg_Joystick.Controls.Add(Me.cmb_joystick_joysticktype) + Me.tpg_Joystick.Controls.Add(Me.chb_joystick_buttonwrap) + Me.tpg_Joystick.Controls.Add(Me.chb_joystick_swap34) + Me.tpg_Joystick.Controls.Add(Me.chb_joystick_autofire) + Me.tpg_Joystick.Controls.Add(Me.chb_joystick_timed) + Me.tpg_Joystick.Controls.Add(Me.lbl_joystick_joysticktype) + Me.tpg_Joystick.Controls.Add(Me.lbl_joystick_buttonwrap) + Me.tpg_Joystick.Controls.Add(Me.lbl_joystick_swap34) + Me.tpg_Joystick.Controls.Add(Me.lbl_joystick_autofire) + Me.tpg_Joystick.Controls.Add(Me.lbl_joystick_timed) + Me.tpg_Joystick.Name = "tpg_Joystick" + Me.tpg_Joystick.Size = New System.Drawing.Size(546, 434) + Me.tpg_Joystick.Text = "Joystick" + ' + 'cmb_joystick_joysticktype + ' + Me.cmb_joystick_joysticktype.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "joystick-joysticktype", True)) + Me.cmb_joystick_joysticktype.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "joystick-joysticktype", True)) + Me.cmb_joystick_joysticktype.Location = New System.Drawing.Point(123, 4) + Me.cmb_joystick_joysticktype.MKBoundLabel = Me.lbl_joystick_joysticktype + Me.cmb_joystick_joysticktype.MKEditValue_Compare = Nothing + Me.cmb_joystick_joysticktype.Name = "cmb_joystick_joysticktype" + Me.cmb_joystick_joysticktype.Properties.AllowFocused = False + Me.cmb_joystick_joysticktype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_joystick_joysticktype.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Value", "Value", 49, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 69, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_joystick_joysticktype.Properties.DataSource = Me.BTA_joystick_joysticktype + Me.cmb_joystick_joysticktype.Properties.DisplayMember = "DisplayText" + Me.cmb_joystick_joysticktype.Properties.NullText = "" + Me.cmb_joystick_joysticktype.Properties.ShowFooter = False + Me.cmb_joystick_joysticktype.Properties.ShowHeader = False + Me.cmb_joystick_joysticktype.Properties.ValueMember = "Value" + Me.cmb_joystick_joysticktype.Size = New System.Drawing.Size(107, 20) + ToolTipTitleItem158.Text = "Joystick Type" + ToolTipItem156.LeftIndent = 6 + ToolTipItem156.Text = "Type of joystick to emulate." + SuperToolTip158.Items.Add(ToolTipTitleItem158) + SuperToolTip158.Items.Add(ToolTipItem156) + Me.cmb_joystick_joysticktype.SuperTip = SuperToolTip158 + Me.cmb_joystick_joysticktype.TabIndex = 0 + ' + 'lbl_joystick_joysticktype + ' + Me.lbl_joystick_joysticktype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_joystick_joysticktype.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_joystick_joysticktype.Location = New System.Drawing.Point(3, 4) + Me.lbl_joystick_joysticktype.MKBoundControl1 = Me.cmb_joystick_joysticktype + Me.lbl_joystick_joysticktype.MKBoundControl2 = Nothing + Me.lbl_joystick_joysticktype.MKBoundControl3 = Nothing + Me.lbl_joystick_joysticktype.MKBoundControl4 = Nothing + Me.lbl_joystick_joysticktype.MKBoundControl5 = Nothing + Me.lbl_joystick_joysticktype.Name = "lbl_joystick_joysticktype" + Me.lbl_joystick_joysticktype.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem157.Text = "Joystick Type" + ToolTipItem155.LeftIndent = 6 + ToolTipItem155.Text = "Type of joystick to emulate." + SuperToolTip157.Items.Add(ToolTipTitleItem157) + SuperToolTip157.Items.Add(ToolTipItem155) + Me.lbl_joystick_joysticktype.SuperTip = SuperToolTip157 + Me.lbl_joystick_joysticktype.TabIndex = 18 + Me.lbl_joystick_joysticktype.Text = "Joystick Type:" + ' + 'BTA_joystick_joysticktype + ' + Me.BTA_joystick_joysticktype.AllowDelete = True + Me.BTA_joystick_joysticktype.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_joystick_joysticktype.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_joystick_joysticktype.Connection = Nothing + Me.BTA_joystick_joysticktype.DSStream = CType(resources.GetObject("BTA_joystick_joysticktype.DSStream"), System.IO.MemoryStream) + Me.BTA_joystick_joysticktype.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_joystick_joysticktype.FillString = resources.GetString("BTA_joystick_joysticktype.FillString") + Me.BTA_joystick_joysticktype.Position = 0 + Me.BTA_joystick_joysticktype.Transaction = Nothing + Me.BTA_joystick_joysticktype.UpdateTablesStream = CType(resources.GetObject("BTA_joystick_joysticktype.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_joystick_buttonwrap + ' + Me.chb_joystick_buttonwrap.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "joystick-buttonwrap", True)) + Me.chb_joystick_buttonwrap.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "joystick-buttonwrap", True)) + Me.chb_joystick_buttonwrap.Location = New System.Drawing.Point(123, 97) + Me.chb_joystick_buttonwrap.MKBoundLabel = Me.lbl_joystick_buttonwrap + Me.chb_joystick_buttonwrap.MKEditValue_Compare = Nothing + Me.chb_joystick_buttonwrap.Name = "chb_joystick_buttonwrap" + Me.chb_joystick_buttonwrap.Properties.Caption = "" + Me.chb_joystick_buttonwrap.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem160.Text = "Joystick Button Wrap" + ToolTipItem158.LeftIndent = 6 + ToolTipItem158.Text = "Enable button wrapping at the number of emulated buttons." + SuperToolTip160.Items.Add(ToolTipTitleItem160) + SuperToolTip160.Items.Add(ToolTipItem158) + Me.chb_joystick_buttonwrap.SuperTip = SuperToolTip160 + Me.chb_joystick_buttonwrap.TabIndex = 4 + ' + 'lbl_joystick_buttonwrap + ' + Me.lbl_joystick_buttonwrap.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_joystick_buttonwrap.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_joystick_buttonwrap.Location = New System.Drawing.Point(3, 96) + Me.lbl_joystick_buttonwrap.MKBoundControl1 = Me.chb_joystick_buttonwrap + Me.lbl_joystick_buttonwrap.MKBoundControl2 = Nothing + Me.lbl_joystick_buttonwrap.MKBoundControl3 = Nothing + Me.lbl_joystick_buttonwrap.MKBoundControl4 = Nothing + Me.lbl_joystick_buttonwrap.MKBoundControl5 = Nothing + Me.lbl_joystick_buttonwrap.Name = "lbl_joystick_buttonwrap" + Me.lbl_joystick_buttonwrap.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem159.Text = "Joystick Button Wrap" + ToolTipItem157.LeftIndent = 6 + ToolTipItem157.Text = "Enable button wrapping at the number of emulated buttons." + SuperToolTip159.Items.Add(ToolTipTitleItem159) + SuperToolTip159.Items.Add(ToolTipItem157) + Me.lbl_joystick_buttonwrap.SuperTip = SuperToolTip159 + Me.lbl_joystick_buttonwrap.TabIndex = 14 + Me.lbl_joystick_buttonwrap.Text = "Joystick Button Wrap:" + ' + 'chb_joystick_swap34 + ' + Me.chb_joystick_swap34.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "joystick-swap34", True)) + Me.chb_joystick_swap34.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "joystick-swap34", True)) + Me.chb_joystick_swap34.Location = New System.Drawing.Point(123, 74) + Me.chb_joystick_swap34.MKBoundLabel = Me.lbl_joystick_swap34 + Me.chb_joystick_swap34.MKEditValue_Compare = Nothing + Me.chb_joystick_swap34.Name = "chb_joystick_swap34" + Me.chb_joystick_swap34.Properties.Caption = "" + Me.chb_joystick_swap34.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem162.Text = "Joystick Swap 3/4" + ToolTipItem160.LeftIndent = 6 + ToolTipItem160.Text = "Swap the 3rd and the 4th axis. can be useful for certain joysticks." + SuperToolTip162.Items.Add(ToolTipTitleItem162) + SuperToolTip162.Items.Add(ToolTipItem160) + Me.chb_joystick_swap34.SuperTip = SuperToolTip162 + Me.chb_joystick_swap34.TabIndex = 3 + ' + 'lbl_joystick_swap34 + ' + Me.lbl_joystick_swap34.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_joystick_swap34.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_joystick_swap34.Location = New System.Drawing.Point(3, 73) + Me.lbl_joystick_swap34.MKBoundControl1 = Me.chb_joystick_swap34 + Me.lbl_joystick_swap34.MKBoundControl2 = Nothing + Me.lbl_joystick_swap34.MKBoundControl3 = Nothing + Me.lbl_joystick_swap34.MKBoundControl4 = Nothing + Me.lbl_joystick_swap34.MKBoundControl5 = Nothing + Me.lbl_joystick_swap34.Name = "lbl_joystick_swap34" + Me.lbl_joystick_swap34.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem161.Text = "Joystick Swap 3/4" + ToolTipItem159.LeftIndent = 6 + ToolTipItem159.Text = "Swap the 3rd and the 4th axis. can be useful for certain joysticks." + SuperToolTip161.Items.Add(ToolTipTitleItem161) + SuperToolTip161.Items.Add(ToolTipItem159) + Me.lbl_joystick_swap34.SuperTip = SuperToolTip161 + Me.lbl_joystick_swap34.TabIndex = 15 + Me.lbl_joystick_swap34.Text = "Joystick Swap 3/4:" + ' + 'chb_joystick_autofire + ' + Me.chb_joystick_autofire.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "joystick-autofire", True)) + Me.chb_joystick_autofire.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "joystick-autofire", True)) + Me.chb_joystick_autofire.Location = New System.Drawing.Point(123, 51) + Me.chb_joystick_autofire.MKBoundLabel = Me.lbl_joystick_autofire + Me.chb_joystick_autofire.MKEditValue_Compare = Nothing + Me.chb_joystick_autofire.Name = "chb_joystick_autofire" + Me.chb_joystick_autofire.Properties.Caption = "" + Me.chb_joystick_autofire.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem164.Text = "Joystick Autofire" + ToolTipItem162.LeftIndent = 6 + ToolTipItem162.Text = "Continuously fires as long as you keep the button pressed." + SuperToolTip164.Items.Add(ToolTipTitleItem164) + SuperToolTip164.Items.Add(ToolTipItem162) + Me.chb_joystick_autofire.SuperTip = SuperToolTip164 + Me.chb_joystick_autofire.TabIndex = 2 + ' + 'lbl_joystick_autofire + ' + Me.lbl_joystick_autofire.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_joystick_autofire.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_joystick_autofire.Location = New System.Drawing.Point(3, 50) + Me.lbl_joystick_autofire.MKBoundControl1 = Me.chb_joystick_autofire + Me.lbl_joystick_autofire.MKBoundControl2 = Nothing + Me.lbl_joystick_autofire.MKBoundControl3 = Nothing + Me.lbl_joystick_autofire.MKBoundControl4 = Nothing + Me.lbl_joystick_autofire.MKBoundControl5 = Nothing + Me.lbl_joystick_autofire.Name = "lbl_joystick_autofire" + Me.lbl_joystick_autofire.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem163.Text = "Joystick Autofire" + ToolTipItem161.LeftIndent = 6 + ToolTipItem161.Text = "Continuously fires as long as you keep the button pressed." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + SuperToolTip163.Items.Add(ToolTipTitleItem163) + SuperToolTip163.Items.Add(ToolTipItem161) + Me.lbl_joystick_autofire.SuperTip = SuperToolTip163 + Me.lbl_joystick_autofire.TabIndex = 16 + Me.lbl_joystick_autofire.Text = "Joystick Autofire:" + ' + 'chb_joystick_timed + ' + Me.chb_joystick_timed.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "joystick-timed", True)) + Me.chb_joystick_timed.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "joystick-timed", True)) + Me.chb_joystick_timed.Location = New System.Drawing.Point(123, 28) + Me.chb_joystick_timed.MKBoundLabel = Me.lbl_joystick_timed + Me.chb_joystick_timed.MKEditValue_Compare = Nothing + Me.chb_joystick_timed.Name = "chb_joystick_timed" + Me.chb_joystick_timed.Properties.Caption = "" + Me.chb_joystick_timed.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem166.Text = "Joystick timed Intervals" + ToolTipItem164.LeftIndent = 6 + ToolTipItem164.Text = "Enable timed intervals for axis. Experiment with this option, if your joystick dr" & + "ifts (away)." + SuperToolTip166.Items.Add(ToolTipTitleItem166) + SuperToolTip166.Items.Add(ToolTipItem164) + Me.chb_joystick_timed.SuperTip = SuperToolTip166 + Me.chb_joystick_timed.TabIndex = 1 + ' + 'lbl_joystick_timed + ' + Me.lbl_joystick_timed.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_joystick_timed.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_joystick_timed.Location = New System.Drawing.Point(3, 27) + Me.lbl_joystick_timed.MKBoundControl1 = Me.chb_joystick_timed + Me.lbl_joystick_timed.MKBoundControl2 = Nothing + Me.lbl_joystick_timed.MKBoundControl3 = Nothing + Me.lbl_joystick_timed.MKBoundControl4 = Nothing + Me.lbl_joystick_timed.MKBoundControl5 = Nothing + Me.lbl_joystick_timed.Name = "lbl_joystick_timed" + Me.lbl_joystick_timed.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem165.Text = "Joystick timed Intervals" + ToolTipItem163.LeftIndent = 6 + ToolTipItem163.Text = "Enable timed intervals for axis. Experiment with this option, if your joystick dr" & + "ifts (away)." + SuperToolTip165.Items.Add(ToolTipTitleItem165) + SuperToolTip165.Items.Add(ToolTipItem163) + Me.lbl_joystick_timed.SuperTip = SuperToolTip165 + Me.lbl_joystick_timed.TabIndex = 17 + Me.lbl_joystick_timed.Text = "Joystick timed Int.:" + ' + 'tpg_Mount_Options + ' + Me.tpg_Mount_Options.Controls.Add(Me.lbl_mount_options) + Me.tpg_Mount_Options.Name = "tpg_Mount_Options" + Me.tpg_Mount_Options.Size = New System.Drawing.Size(546, 434) + Me.tpg_Mount_Options.Text = "Mount Options" + ' + 'lbl_mount_options + ' + Me.lbl_mount_options.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_mount_options.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_mount_options.Location = New System.Drawing.Point(3, 3) + Me.lbl_mount_options.MKBoundControl1 = Nothing + Me.lbl_mount_options.MKBoundControl2 = Nothing + Me.lbl_mount_options.MKBoundControl3 = Nothing + Me.lbl_mount_options.MKBoundControl4 = Nothing + Me.lbl_mount_options.MKBoundControl5 = Nothing + Me.lbl_mount_options.Name = "lbl_mount_options" + Me.lbl_mount_options.Size = New System.Drawing.Size(448, 20) + Me.lbl_mount_options.TabIndex = 19 + Me.lbl_mount_options.Text = "There are currently no settings for mount options." + ' + 'tpg_Serial + ' + Me.tpg_Serial.Controls.Add(Me.lbl_serial_ports) + Me.tpg_Serial.Name = "tpg_Serial" + Me.tpg_Serial.Size = New System.Drawing.Size(546, 434) + Me.tpg_Serial.Text = "Serial Ports" + ' + 'lbl_serial_ports + ' + Me.lbl_serial_ports.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_serial_ports.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_serial_ports.Location = New System.Drawing.Point(3, 3) + Me.lbl_serial_ports.MKBoundControl1 = Nothing + Me.lbl_serial_ports.MKBoundControl2 = Nothing + Me.lbl_serial_ports.MKBoundControl3 = Nothing + Me.lbl_serial_ports.MKBoundControl4 = Nothing + Me.lbl_serial_ports.MKBoundControl5 = Nothing + Me.lbl_serial_ports.Name = "lbl_serial_ports" + Me.lbl_serial_ports.Size = New System.Drawing.Size(440, 20) + Me.lbl_serial_ports.TabIndex = 20 + Me.lbl_serial_ports.Text = "There are currently no settings for serial ports." + ' + 'tpg_Serial1 + ' + Me.tpg_Serial1.Controls.Add(Me.lbl_serial1) + Me.tpg_Serial1.Name = "tpg_Serial1" + Me.tpg_Serial1.Size = New System.Drawing.Size(546, 434) + Me.tpg_Serial1.Text = "Serial 1" + ' + 'lbl_serial1 + ' + Me.lbl_serial1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_serial1.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_serial1.Location = New System.Drawing.Point(3, 3) + Me.lbl_serial1.MKBoundControl1 = Nothing + Me.lbl_serial1.MKBoundControl2 = Nothing + Me.lbl_serial1.MKBoundControl3 = Nothing + Me.lbl_serial1.MKBoundControl4 = Nothing + Me.lbl_serial1.MKBoundControl5 = Nothing + Me.lbl_serial1.Name = "lbl_serial1" + Me.lbl_serial1.Size = New System.Drawing.Size(212, 20) + Me.lbl_serial1.TabIndex = 21 + Me.lbl_serial1.Text = "There are currently no settings for Serial 1." + ' + 'tpg_Serial2 + ' + Me.tpg_Serial2.Controls.Add(Me.lbl_serial2) + Me.tpg_Serial2.Name = "tpg_Serial2" + Me.tpg_Serial2.Size = New System.Drawing.Size(546, 434) + Me.tpg_Serial2.Text = "Serial 2" + ' + 'lbl_serial2 + ' + Me.lbl_serial2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_serial2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_serial2.Location = New System.Drawing.Point(3, 3) + Me.lbl_serial2.MKBoundControl1 = Nothing + Me.lbl_serial2.MKBoundControl2 = Nothing + Me.lbl_serial2.MKBoundControl3 = Nothing + Me.lbl_serial2.MKBoundControl4 = Nothing + Me.lbl_serial2.MKBoundControl5 = Nothing + Me.lbl_serial2.Name = "lbl_serial2" + Me.lbl_serial2.Size = New System.Drawing.Size(212, 20) + Me.lbl_serial2.TabIndex = 22 + Me.lbl_serial2.Text = "There are currently no settings for Serial 2." + ' + 'tpg_Serial3 + ' + Me.tpg_Serial3.Controls.Add(Me.lbl_serial3) + Me.tpg_Serial3.Name = "tpg_Serial3" + Me.tpg_Serial3.Size = New System.Drawing.Size(546, 434) + Me.tpg_Serial3.Text = "Serial 3" + ' + 'lbl_serial3 + ' + Me.lbl_serial3.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_serial3.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_serial3.Location = New System.Drawing.Point(3, 3) + Me.lbl_serial3.MKBoundControl1 = Nothing + Me.lbl_serial3.MKBoundControl2 = Nothing + Me.lbl_serial3.MKBoundControl3 = Nothing + Me.lbl_serial3.MKBoundControl4 = Nothing + Me.lbl_serial3.MKBoundControl5 = Nothing + Me.lbl_serial3.Name = "lbl_serial3" + Me.lbl_serial3.Size = New System.Drawing.Size(212, 20) + Me.lbl_serial3.TabIndex = 23 + Me.lbl_serial3.Text = "There are currently no settings for Serial 3." + ' + 'tpg_Serial4 + ' + Me.tpg_Serial4.Controls.Add(Me.lbl_serial4) + Me.tpg_Serial4.Name = "tpg_Serial4" + Me.tpg_Serial4.Size = New System.Drawing.Size(546, 434) + Me.tpg_Serial4.Text = "Serial 4" + ' + 'lbl_serial4 + ' + Me.lbl_serial4.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_serial4.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_serial4.Location = New System.Drawing.Point(3, 3) + Me.lbl_serial4.MKBoundControl1 = Nothing + Me.lbl_serial4.MKBoundControl2 = Nothing + Me.lbl_serial4.MKBoundControl3 = Nothing + Me.lbl_serial4.MKBoundControl4 = Nothing + Me.lbl_serial4.MKBoundControl5 = Nothing + Me.lbl_serial4.Name = "lbl_serial4" + Me.lbl_serial4.Size = New System.Drawing.Size(212, 20) + Me.lbl_serial4.TabIndex = 24 + Me.lbl_serial4.Text = "There are currently no settings for Serial 4." + ' + 'tpg_Patch_Options + ' + Me.tpg_Patch_Options.Controls.Add(Me.lbl_patches) + Me.tpg_Patch_Options.Name = "tpg_Patch_Options" + Me.tpg_Patch_Options.Size = New System.Drawing.Size(546, 434) + Me.tpg_Patch_Options.Text = "Patch Options" + ' + 'lbl_patches + ' + Me.lbl_patches.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_patches.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_patches.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_patches.Location = New System.Drawing.Point(3, 3) + Me.lbl_patches.MKBoundControl1 = Nothing + Me.lbl_patches.MKBoundControl2 = Nothing + Me.lbl_patches.MKBoundControl3 = Nothing + Me.lbl_patches.MKBoundControl4 = Nothing + Me.lbl_patches.MKBoundControl5 = Nothing + Me.lbl_patches.Name = "lbl_patches" + Me.lbl_patches.Size = New System.Drawing.Size(540, 26) + Me.lbl_patches.TabIndex = 26 + Me.lbl_patches.Text = "The settings below this category apply to DOSBox patches. Individual patches have" & + " to be activated in the Emulator Settings." + ' + 'tpg_DOSBox_Settings_Patches + ' + Me.tpg_DOSBox_Settings_Patches.Controls.Add(Me.lbl_p_dosbox_settings) + Me.tpg_DOSBox_Settings_Patches.Name = "tpg_DOSBox_Settings_Patches" + Me.tpg_DOSBox_Settings_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_DOSBox_Settings_Patches.Text = "DOSBox Settings (Patches)" + ' + 'lbl_p_dosbox_settings + ' + Me.lbl_p_dosbox_settings.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_dosbox_settings.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_settings.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_dosbox_settings.MKBoundControl1 = Nothing + Me.lbl_p_dosbox_settings.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_settings.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_settings.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_settings.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_settings.Name = "lbl_p_dosbox_settings" + Me.lbl_p_dosbox_settings.Size = New System.Drawing.Size(540, 20) + Me.lbl_p_dosbox_settings.TabIndex = 24 + Me.lbl_p_dosbox_settings.Text = "There are currently no settings for DOSBox Settings (Patches)." + ' + 'tpg_CPU_Patches + ' + Me.tpg_CPU_Patches.Controls.Add(Me.cmb_p_dosbox_pit_hack) + Me.tpg_CPU_Patches.Controls.Add(Me.lbl_p_dosbox_pit_hack) + Me.tpg_CPU_Patches.Controls.Add(Me.cmb_p_cputype) + Me.tpg_CPU_Patches.Controls.Add(Me.lbl_p_cpu_cputype) + Me.tpg_CPU_Patches.Name = "tpg_CPU_Patches" + Me.tpg_CPU_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_CPU_Patches.Text = "CPU (Patches)" + ' + 'cmb_p_dosbox_pit_hack + ' + Me.cmb_p_dosbox_pit_hack.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_dosbox_pit_hack", True)) + Me.cmb_p_dosbox_pit_hack.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_dosbox_pit_hack", True)) + Me.cmb_p_dosbox_pit_hack.Location = New System.Drawing.Point(123, 26) + Me.cmb_p_dosbox_pit_hack.MKBoundLabel = Me.lbl_p_dosbox_pit_hack + Me.cmb_p_dosbox_pit_hack.MKEditValue_Compare = Nothing + Me.cmb_p_dosbox_pit_hack.Name = "cmb_p_dosbox_pit_hack" + Me.cmb_p_dosbox_pit_hack.Properties.AllowFocused = False + Me.cmb_p_dosbox_pit_hack.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_dosbox_pit_hack.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 108, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("displaytext", "displaytext", 108, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_dosbox_pit_hack.Properties.DataSource = Me.BTA_p_dosbox_pit_hack + Me.cmb_p_dosbox_pit_hack.Properties.DisplayMember = "displaytext" + Me.cmb_p_dosbox_pit_hack.Properties.NullText = "deactivated" + Me.cmb_p_dosbox_pit_hack.Properties.ShowFooter = False + Me.cmb_p_dosbox_pit_hack.Properties.ShowHeader = False + Me.cmb_p_dosbox_pit_hack.Properties.ValueMember = "value" + Me.cmb_p_dosbox_pit_hack.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem168.Text = "PIT timer hack" + ToolTipItem166.LeftIndent = 6 + ToolTipItem166.Text = resources.GetString("ToolTipItem166.Text") + SuperToolTip168.Items.Add(ToolTipTitleItem168) + SuperToolTip168.Items.Add(ToolTipItem166) + Me.cmb_p_dosbox_pit_hack.SuperTip = SuperToolTip168 + Me.cmb_p_dosbox_pit_hack.TabIndex = 1 + ' + 'lbl_p_dosbox_pit_hack + ' + Me.lbl_p_dosbox_pit_hack.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_dosbox_pit_hack.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_pit_hack.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_dosbox_pit_hack.MKBoundControl1 = Me.cmb_p_dosbox_pit_hack + Me.lbl_p_dosbox_pit_hack.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_pit_hack.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_pit_hack.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_pit_hack.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_pit_hack.Name = "lbl_p_dosbox_pit_hack" + Me.lbl_p_dosbox_pit_hack.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem167.Text = "PIT timer hack" + ToolTipItem165.LeftIndent = 6 + ToolTipItem165.Text = resources.GetString("ToolTipItem165.Text") + SuperToolTip167.Items.Add(ToolTipTitleItem167) + SuperToolTip167.Items.Add(ToolTipItem165) + Me.lbl_p_dosbox_pit_hack.SuperTip = SuperToolTip167 + Me.lbl_p_dosbox_pit_hack.TabIndex = 16 + Me.lbl_p_dosbox_pit_hack.Text = "PIT timer hack:" + ' + 'BTA_p_dosbox_pit_hack + ' + Me.BTA_p_dosbox_pit_hack.AllowDelete = True + Me.BTA_p_dosbox_pit_hack.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_dosbox_pit_hack.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_dosbox_pit_hack.Connection = Nothing + Me.BTA_p_dosbox_pit_hack.DSStream = CType(resources.GetObject("BTA_p_dosbox_pit_hack.DSStream"), System.IO.MemoryStream) + Me.BTA_p_dosbox_pit_hack.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_dosbox_pit_hack.FillString = "project_angel_demo;project_angel_demo;pc_speaker_as_timer;pc_speaker_as_timer" + Me.BTA_p_dosbox_pit_hack.Position = 0 + Me.BTA_p_dosbox_pit_hack.Transaction = Nothing + Me.BTA_p_dosbox_pit_hack.UpdateTablesStream = CType(resources.GetObject("BTA_p_dosbox_pit_hack.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_cputype + ' + Me.cmb_p_cputype.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_cpu_cputype", True)) + Me.cmb_p_cputype.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_cpu_cputype", True)) + Me.cmb_p_cputype.Location = New System.Drawing.Point(123, 3) + Me.cmb_p_cputype.MKBoundLabel = Me.lbl_p_cpu_cputype + Me.cmb_p_cputype.MKEditValue_Compare = Nothing + Me.cmb_p_cputype.Name = "cmb_p_cputype" + Me.cmb_p_cputype.Properties.AllowFocused = False + Me.cmb_p_cputype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_cputype.Properties.DataSource = Me.BTA_p_cpu_cputype + Me.cmb_p_cputype.Properties.DisplayMember = "value" + Me.cmb_p_cputype.Properties.NullText = "" + Me.cmb_p_cputype.Properties.ShowFooter = False + Me.cmb_p_cputype.Properties.ShowHeader = False + Me.cmb_p_cputype.Properties.ValueMember = "value" + Me.cmb_p_cputype.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem170.Text = "CPU Type (Patches)" + ToolTipItem168.LeftIndent = 6 + ToolTipItem168.Text = "Some patches introduce new CPU Types, this setting overrides the (standard) CPU T" & + "ype setting." + SuperToolTip170.Items.Add(ToolTipTitleItem170) + SuperToolTip170.Items.Add(ToolTipItem168) + Me.cmb_p_cputype.SuperTip = SuperToolTip170 + Me.cmb_p_cputype.TabIndex = 0 + ' + 'lbl_p_cpu_cputype + ' + Me.lbl_p_cpu_cputype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_cpu_cputype.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_cpu_cputype.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_cpu_cputype.MKBoundControl1 = Me.cmb_p_cputype + Me.lbl_p_cpu_cputype.MKBoundControl2 = Nothing + Me.lbl_p_cpu_cputype.MKBoundControl3 = Nothing + Me.lbl_p_cpu_cputype.MKBoundControl4 = Nothing + Me.lbl_p_cpu_cputype.MKBoundControl5 = Nothing + Me.lbl_p_cpu_cputype.Name = "lbl_p_cpu_cputype" + Me.lbl_p_cpu_cputype.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem169.Text = "CPU Type (Patches)" + ToolTipItem167.LeftIndent = 6 + ToolTipItem167.Text = "Some patches introduce new CPU Types, this setting overrides the (standard) CPU T" & + "ype setting." + SuperToolTip169.Items.Add(ToolTipTitleItem169) + SuperToolTip169.Items.Add(ToolTipItem167) + Me.lbl_p_cpu_cputype.SuperTip = SuperToolTip169 + Me.lbl_p_cpu_cputype.TabIndex = 12 + Me.lbl_p_cpu_cputype.Text = "CPU Type:" + ' + 'BTA_p_cpu_cputype + ' + Me.BTA_p_cpu_cputype.AllowDelete = True + Me.BTA_p_cpu_cputype.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_cpu_cputype.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_cpu_cputype.Connection = Nothing + Me.BTA_p_cpu_cputype.DSStream = CType(resources.GetObject("BTA_p_cpu_cputype.DSStream"), System.IO.MemoryStream) + Me.BTA_p_cpu_cputype.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_cpu_cputype.FillString = "486;pentium;pentium_mmx" + Me.BTA_p_cpu_cputype.Position = 0 + Me.BTA_p_cpu_cputype.Transaction = Nothing + Me.BTA_p_cpu_cputype.UpdateTablesStream = CType(resources.GetObject("BTA_p_cpu_cputype.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'tpg_Memory_Patches + ' + Me.tpg_Memory_Patches.Controls.Add(Me.lbl_p_dosbox_memsizekb2) + Me.tpg_Memory_Patches.Controls.Add(Me.spn_p_dosbox_memsizekb) + Me.tpg_Memory_Patches.Controls.Add(Me.lbl_p_dosbox_memsizekb) + Me.tpg_Memory_Patches.Name = "tpg_Memory_Patches" + Me.tpg_Memory_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Memory_Patches.Text = "Memory (Patches)" + ' + 'lbl_p_dosbox_memsizekb2 + ' + Me.lbl_p_dosbox_memsizekb2.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_dosbox_memsizekb2.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_memsizekb2.Location = New System.Drawing.Point(180, 3) + Me.lbl_p_dosbox_memsizekb2.MKBoundControl1 = Nothing + Me.lbl_p_dosbox_memsizekb2.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_memsizekb2.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_memsizekb2.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_memsizekb2.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_memsizekb2.Name = "lbl_p_dosbox_memsizekb2" + Me.lbl_p_dosbox_memsizekb2.Size = New System.Drawing.Size(87, 20) + ToolTipTitleItem171.Text = "Memory size in kB" + ToolTipItem169.LeftIndent = 6 + ToolTipItem169.Text = resources.GetString("ToolTipItem169.Text") + SuperToolTip171.Items.Add(ToolTipTitleItem171) + SuperToolTip171.Items.Add(ToolTipItem169) + Me.lbl_p_dosbox_memsizekb2.SuperTip = SuperToolTip171 + Me.lbl_p_dosbox_memsizekb2.TabIndex = 28 + Me.lbl_p_dosbox_memsizekb2.Text = "kB" + ' + 'spn_p_dosbox_memsizekb + ' + Me.spn_p_dosbox_memsizekb.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_dosbox_memsizekb", True)) + Me.spn_p_dosbox_memsizekb.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_dosbox_memsizekb", True)) + Me.spn_p_dosbox_memsizekb.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_dosbox_memsizekb.Location = New System.Drawing.Point(123, 3) + Me.spn_p_dosbox_memsizekb.MKBoundLabel = Me.lbl_p_dosbox_memsizekb + Me.spn_p_dosbox_memsizekb.MKEditValue_Compare = Nothing + Me.spn_p_dosbox_memsizekb.Name = "spn_p_dosbox_memsizekb" + Me.spn_p_dosbox_memsizekb.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_dosbox_memsizekb.Properties.IsFloatValue = False + Me.spn_p_dosbox_memsizekb.Properties.Mask.EditMask = "N00" + Me.spn_p_dosbox_memsizekb.Properties.MaxValue = New Decimal(New Integer() {999, 0, 0, 0}) + Me.spn_p_dosbox_memsizekb.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem173.Text = "Memory Size in kB" + ToolTipItem171.LeftIndent = 6 + ToolTipItem171.Text = resources.GetString("ToolTipItem171.Text") + SuperToolTip173.Items.Add(ToolTipTitleItem173) + SuperToolTip173.Items.Add(ToolTipItem171) + Me.spn_p_dosbox_memsizekb.SuperTip = SuperToolTip173 + Me.spn_p_dosbox_memsizekb.TabIndex = 0 + ' + 'lbl_p_dosbox_memsizekb + ' + Me.lbl_p_dosbox_memsizekb.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_dosbox_memsizekb.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_memsizekb.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_dosbox_memsizekb.MKBoundControl1 = Me.spn_p_dosbox_memsizekb + Me.lbl_p_dosbox_memsizekb.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_memsizekb.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_memsizekb.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_memsizekb.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_memsizekb.Name = "lbl_p_dosbox_memsizekb" + Me.lbl_p_dosbox_memsizekb.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem172.Text = "Memory Size in kB" + ToolTipItem170.LeftIndent = 6 + ToolTipItem170.Text = resources.GetString("ToolTipItem170.Text") + SuperToolTip172.Items.Add(ToolTipTitleItem172) + SuperToolTip172.Items.Add(ToolTipItem170) + Me.lbl_p_dosbox_memsizekb.SuperTip = SuperToolTip172 + Me.lbl_p_dosbox_memsizekb.TabIndex = 26 + Me.lbl_p_dosbox_memsizekb.Text = "Memory Size:" + ' + 'tpg_Video_Patches + ' + Me.tpg_Video_Patches.Controls.Add(Me.chb_p_glide_splash) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_dosbox_forcerate_specific) + Me.tpg_Video_Patches.Controls.Add(Me.spn_p_vsync_vsyncrate) + Me.tpg_Video_Patches.Controls.Add(Me.spn_p_dosbox_forcerate_specific) + Me.tpg_Video_Patches.Controls.Add(Me.btn_p_sdl_pixelshader_Clear) + Me.tpg_Video_Patches.Controls.Add(Me.rb_p_dosbox_forcerate_specific) + Me.tpg_Video_Patches.Controls.Add(Me.rb_p_dosbox_forcerate_pal) + Me.tpg_Video_Patches.Controls.Add(Me.rb_p_dosbox_forcerate_ntsc) + Me.tpg_Video_Patches.Controls.Add(Me.rb_p_dosbox_forcerate_disabled) + Me.tpg_Video_Patches.Controls.Add(Me.chb_p_render_autofit) + Me.tpg_Video_Patches.Controls.Add(Me.chb_p_sdl_pixelshader_forced) + Me.tpg_Video_Patches.Controls.Add(Me.txb_p_sdl_pixelshader) + Me.tpg_Video_Patches.Controls.Add(Me.btn_p_sdl_pixelshader) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_sdl_pixelshader) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_glide_lfb) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_glide_glide) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_pci_voodoo) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_vsync_vsyncmode) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_dosbox_vmemsize) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_render_scaler) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_dosbox_vmemsize_details) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_vsync_vsyncrate) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_vsync_vsyncmode) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_glide_lfb) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_glide_glide) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_pci_voodoo) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_render_autofit) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_dosbox_forcerate) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_dosbox_vmemsize) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_render_scaler) + Me.tpg_Video_Patches.Controls.Add(Me.cmb_p_sdl_output) + Me.tpg_Video_Patches.Controls.Add(Me.lbl_p_sdl_output) + Me.tpg_Video_Patches.Name = "tpg_Video_Patches" + Me.tpg_Video_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Video_Patches.Text = "Video (Patches)" + ' + 'chb_p_glide_splash + ' + Me.chb_p_glide_splash.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_glide_splash", True)) + Me.chb_p_glide_splash.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_DOSBox_Configs, "p_glide_splash", True)) + Me.chb_p_glide_splash.Location = New System.Drawing.Point(262, 276) + Me.chb_p_glide_splash.MKBoundLabel = Me.lbl_p_glide_glide + Me.chb_p_glide_splash.MKEditValue_Compare = Nothing + Me.chb_p_glide_splash.Name = "chb_p_glide_splash" + Me.chb_p_glide_splash.Properties.Caption = "Splash" + Me.chb_p_glide_splash.Size = New System.Drawing.Size(60, 19) + ToolTipTitleItem176.Text = "GLide Splash" + ToolTipItem174.LeftIndent = 6 + ToolTipItem174.Text = "Show 3dfx splash screen (requires 3dfxSpl2.dll)." + SuperToolTip176.Items.Add(ToolTipTitleItem176) + SuperToolTip176.Items.Add(ToolTipItem174) + Me.chb_p_glide_splash.SuperTip = SuperToolTip176 + Me.chb_p_glide_splash.TabIndex = 19 + ' + 'lbl_p_glide_glide + ' + Me.lbl_p_glide_glide.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_glide_glide.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_glide_glide.Location = New System.Drawing.Point(3, 276) + Me.lbl_p_glide_glide.MKBoundControl1 = Me.cmb_p_glide_glide + Me.lbl_p_glide_glide.MKBoundControl2 = Me.chb_p_glide_splash + Me.lbl_p_glide_glide.MKBoundControl3 = Nothing + Me.lbl_p_glide_glide.MKBoundControl4 = Nothing + Me.lbl_p_glide_glide.MKBoundControl5 = Nothing + Me.lbl_p_glide_glide.Name = "lbl_p_glide_glide" + Me.lbl_p_glide_glide.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem175.Text = "GLide Support" + ToolTipItem173.LeftIndent = 6 + ToolTipItem173.Text = "Enable GLide support." + SuperToolTip175.Items.Add(ToolTipTitleItem175) + SuperToolTip175.Items.Add(ToolTipItem173) + Me.lbl_p_glide_glide.SuperTip = SuperToolTip175 + Me.lbl_p_glide_glide.TabIndex = 24 + Me.lbl_p_glide_glide.Text = "GLide Support:" + ' + 'cmb_p_glide_glide + ' + Me.cmb_p_glide_glide.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_glide_glide", True)) + Me.cmb_p_glide_glide.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_glide_glide", True)) + Me.cmb_p_glide_glide.Location = New System.Drawing.Point(123, 276) + Me.cmb_p_glide_glide.MKBoundLabel = Me.lbl_p_glide_glide + Me.cmb_p_glide_glide.MKEditValue_Compare = Nothing + Me.cmb_p_glide_glide.Name = "cmb_p_glide_glide" + Me.cmb_p_glide_glide.Properties.AllowFocused = False + Me.cmb_p_glide_glide.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_glide_glide.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 29, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_glide_glide.Properties.DataSource = Me.BTA_p_glide_glide + Me.cmb_p_glide_glide.Properties.DisplayMember = "value" + Me.cmb_p_glide_glide.Properties.NullText = "" + Me.cmb_p_glide_glide.Properties.ShowFooter = False + Me.cmb_p_glide_glide.Properties.ShowHeader = False + Me.cmb_p_glide_glide.Properties.ValueMember = "value" + Me.cmb_p_glide_glide.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem174.Text = "GLide Support" + ToolTipItem172.LeftIndent = 6 + ToolTipItem172.Text = "Enable GLide support." + SuperToolTip174.Items.Add(ToolTipTitleItem174) + SuperToolTip174.Items.Add(ToolTipItem172) + Me.cmb_p_glide_glide.SuperTip = SuperToolTip174 + Me.cmb_p_glide_glide.TabIndex = 18 + ' + 'BTA_p_glide_glide + ' + Me.BTA_p_glide_glide.AllowDelete = True + Me.BTA_p_glide_glide.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_glide_glide.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_glide_glide.Connection = Nothing + Me.BTA_p_glide_glide.DSStream = CType(resources.GetObject("BTA_p_glide_glide.DSStream"), System.IO.MemoryStream) + Me.BTA_p_glide_glide.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_glide_glide.FillString = "false;true;emu" + Me.BTA_p_glide_glide.Position = 0 + Me.BTA_p_glide_glide.Transaction = Nothing + Me.BTA_p_glide_glide.UpdateTablesStream = CType(resources.GetObject("BTA_p_glide_glide.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_p_dosbox_forcerate_specific + ' + Me.lbl_p_dosbox_forcerate_specific.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_dosbox_forcerate_specific.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_forcerate_specific.Enabled = False + Me.lbl_p_dosbox_forcerate_specific.Location = New System.Drawing.Point(240, 161) + Me.lbl_p_dosbox_forcerate_specific.MKBoundControl1 = Nothing + Me.lbl_p_dosbox_forcerate_specific.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_forcerate_specific.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_forcerate_specific.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_forcerate_specific.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_forcerate_specific.Name = "lbl_p_dosbox_forcerate_specific" + Me.lbl_p_dosbox_forcerate_specific.Size = New System.Drawing.Size(19, 20) + ToolTipTitleItem177.Text = "Force Framerate" + ToolTipItem175.LeftIndent = 6 + ToolTipItem175.Text = "Force the VGA framerate." + SuperToolTip177.Items.Add(ToolTipTitleItem177) + SuperToolTip177.Items.Add(ToolTipItem175) + Me.lbl_p_dosbox_forcerate_specific.SuperTip = SuperToolTip177 + Me.lbl_p_dosbox_forcerate_specific.TabIndex = 13 + Me.lbl_p_dosbox_forcerate_specific.Text = "Hz" + ' + 'spn_p_vsync_vsyncrate + ' + Me.spn_p_vsync_vsyncrate.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_vsync_vsyncrate", True)) + Me.spn_p_vsync_vsyncrate.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_vsync_vsyncrate", True)) + Me.spn_p_vsync_vsyncrate.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_vsync_vsyncrate.Enabled = False + Me.spn_p_vsync_vsyncrate.Location = New System.Drawing.Point(123, 207) + Me.spn_p_vsync_vsyncrate.MKBoundLabel = Me.lbl_p_vsync_vsyncrate + Me.spn_p_vsync_vsyncrate.MKEditValue_Compare = Nothing + Me.spn_p_vsync_vsyncrate.Name = "spn_p_vsync_vsyncrate" + Me.spn_p_vsync_vsyncrate.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_vsync_vsyncrate.Properties.MaxValue = New Decimal(New Integer() {999, 0, 0, 0}) + Me.spn_p_vsync_vsyncrate.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem179.Text = "VSync Rate" + ToolTipItem177.LeftIndent = 6 + ToolTipItem177.Text = "VSync rate used if vsync is enabled. Ignored if VSync Mode is set to host (win32)" & + "." + SuperToolTip179.Items.Add(ToolTipTitleItem179) + SuperToolTip179.Items.Add(ToolTipItem177) + Me.spn_p_vsync_vsyncrate.SuperTip = SuperToolTip179 + Me.spn_p_vsync_vsyncrate.TabIndex = 15 + ' + 'lbl_p_vsync_vsyncrate + ' + Me.lbl_p_vsync_vsyncrate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_vsync_vsyncrate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_vsync_vsyncrate.Enabled = False + Me.lbl_p_vsync_vsyncrate.Location = New System.Drawing.Point(3, 207) + Me.lbl_p_vsync_vsyncrate.MKBoundControl1 = Me.spn_p_vsync_vsyncrate + Me.lbl_p_vsync_vsyncrate.MKBoundControl2 = Nothing + Me.lbl_p_vsync_vsyncrate.MKBoundControl3 = Nothing + Me.lbl_p_vsync_vsyncrate.MKBoundControl4 = Nothing + Me.lbl_p_vsync_vsyncrate.MKBoundControl5 = Nothing + Me.lbl_p_vsync_vsyncrate.Name = "lbl_p_vsync_vsyncrate" + Me.lbl_p_vsync_vsyncrate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem178.Text = "VSync Rate" + ToolTipItem176.LeftIndent = 6 + ToolTipItem176.Text = "VSync rate used if vsync is enabled. Ignored if VSync Mode is set to host (win32)" & + "." + SuperToolTip178.Items.Add(ToolTipTitleItem178) + SuperToolTip178.Items.Add(ToolTipItem176) + Me.lbl_p_vsync_vsyncrate.SuperTip = SuperToolTip178 + Me.lbl_p_vsync_vsyncrate.TabIndex = 24 + Me.lbl_p_vsync_vsyncrate.Text = "VSync Rate:" + ' + 'spn_p_dosbox_forcerate_specific + ' + Me.spn_p_dosbox_forcerate_specific.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_dosbox_forcerate_specific.Enabled = False + Me.spn_p_dosbox_forcerate_specific.Location = New System.Drawing.Point(183, 161) + Me.spn_p_dosbox_forcerate_specific.MKBoundLabel = Nothing + Me.spn_p_dosbox_forcerate_specific.MKEditValue_Compare = Nothing + Me.spn_p_dosbox_forcerate_specific.Name = "spn_p_dosbox_forcerate_specific" + Me.spn_p_dosbox_forcerate_specific.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_dosbox_forcerate_specific.Properties.MaxValue = New Decimal(New Integer() {999, 0, 0, 0}) + Me.spn_p_dosbox_forcerate_specific.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem180.Text = "Force Framerate" + ToolTipItem178.LeftIndent = 6 + ToolTipItem178.Text = "Force the VGA framerate." + SuperToolTip180.Items.Add(ToolTipTitleItem180) + SuperToolTip180.Items.Add(ToolTipItem178) + Me.spn_p_dosbox_forcerate_specific.SuperTip = SuperToolTip180 + Me.spn_p_dosbox_forcerate_specific.TabIndex = 12 + ' + 'btn_p_sdl_pixelshader_Clear + ' + Me.btn_p_sdl_pixelshader_Clear.Location = New System.Drawing.Point(300, 26) + Me.btn_p_sdl_pixelshader_Clear.Name = "btn_p_sdl_pixelshader_Clear" + Me.btn_p_sdl_pixelshader_Clear.Size = New System.Drawing.Size(35, 20) + SuperToolTip181.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem181.Text = "Clear Pixelshader" + ToolTipItem179.LeftIndent = 6 + ToolTipItem179.Text = "Clear the pixelshader." + SuperToolTip181.Items.Add(ToolTipTitleItem181) + SuperToolTip181.Items.Add(ToolTipItem179) + Me.btn_p_sdl_pixelshader_Clear.SuperTip = SuperToolTip181 + Me.btn_p_sdl_pixelshader_Clear.TabIndex = 3 + Me.btn_p_sdl_pixelshader_Clear.Text = "&clear" + ' + 'rb_p_dosbox_forcerate_specific + ' + Me.rb_p_dosbox_forcerate_specific.Location = New System.Drawing.Point(121, 161) + Me.rb_p_dosbox_forcerate_specific.MKBoundLabel = Nothing + Me.rb_p_dosbox_forcerate_specific.MKEditValue_Compare = Nothing + Me.rb_p_dosbox_forcerate_specific.Name = "rb_p_dosbox_forcerate_specific" + Me.rb_p_dosbox_forcerate_specific.Properties.Caption = "specific:" + Me.rb_p_dosbox_forcerate_specific.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_p_dosbox_forcerate_specific.Properties.RadioGroupIndex = 2 + Me.rb_p_dosbox_forcerate_specific.Size = New System.Drawing.Size(59, 19) + ToolTipTitleItem182.Text = "Force Framerate" + ToolTipItem180.LeftIndent = 6 + ToolTipItem180.Text = "Force the VGA framerate." + SuperToolTip182.Items.Add(ToolTipTitleItem182) + SuperToolTip182.Items.Add(ToolTipItem180) + Me.rb_p_dosbox_forcerate_specific.SuperTip = SuperToolTip182 + Me.rb_p_dosbox_forcerate_specific.TabIndex = 11 + Me.rb_p_dosbox_forcerate_specific.TabStop = False + ' + 'rb_p_dosbox_forcerate_pal + ' + Me.rb_p_dosbox_forcerate_pal.Location = New System.Drawing.Point(121, 139) + Me.rb_p_dosbox_forcerate_pal.MKBoundLabel = Nothing + Me.rb_p_dosbox_forcerate_pal.MKEditValue_Compare = Nothing + Me.rb_p_dosbox_forcerate_pal.Name = "rb_p_dosbox_forcerate_pal" + Me.rb_p_dosbox_forcerate_pal.Properties.Caption = "pal" + Me.rb_p_dosbox_forcerate_pal.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_p_dosbox_forcerate_pal.Properties.RadioGroupIndex = 2 + Me.rb_p_dosbox_forcerate_pal.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem183.Text = "Force Framerate" + ToolTipItem181.LeftIndent = 6 + ToolTipItem181.Text = "Force the VGA framerate." + SuperToolTip183.Items.Add(ToolTipTitleItem183) + SuperToolTip183.Items.Add(ToolTipItem181) + Me.rb_p_dosbox_forcerate_pal.SuperTip = SuperToolTip183 + Me.rb_p_dosbox_forcerate_pal.TabIndex = 10 + Me.rb_p_dosbox_forcerate_pal.TabStop = False + ' + 'rb_p_dosbox_forcerate_ntsc + ' + Me.rb_p_dosbox_forcerate_ntsc.Location = New System.Drawing.Point(121, 117) + Me.rb_p_dosbox_forcerate_ntsc.MKBoundLabel = Nothing + Me.rb_p_dosbox_forcerate_ntsc.MKEditValue_Compare = Nothing + Me.rb_p_dosbox_forcerate_ntsc.Name = "rb_p_dosbox_forcerate_ntsc" + Me.rb_p_dosbox_forcerate_ntsc.Properties.Caption = "ntsc" + Me.rb_p_dosbox_forcerate_ntsc.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_p_dosbox_forcerate_ntsc.Properties.RadioGroupIndex = 2 + Me.rb_p_dosbox_forcerate_ntsc.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem184.Text = "Force Framerate" + ToolTipItem182.LeftIndent = 6 + ToolTipItem182.Text = "Force the VGA framerate." + SuperToolTip184.Items.Add(ToolTipTitleItem184) + SuperToolTip184.Items.Add(ToolTipItem182) + Me.rb_p_dosbox_forcerate_ntsc.SuperTip = SuperToolTip184 + Me.rb_p_dosbox_forcerate_ntsc.TabIndex = 9 + Me.rb_p_dosbox_forcerate_ntsc.TabStop = False + ' + 'rb_p_dosbox_forcerate_disabled + ' + Me.rb_p_dosbox_forcerate_disabled.Location = New System.Drawing.Point(121, 95) + Me.rb_p_dosbox_forcerate_disabled.MKBoundLabel = Nothing + Me.rb_p_dosbox_forcerate_disabled.MKEditValue_Compare = Nothing + Me.rb_p_dosbox_forcerate_disabled.Name = "rb_p_dosbox_forcerate_disabled" + Me.rb_p_dosbox_forcerate_disabled.Properties.Caption = "disabled" + Me.rb_p_dosbox_forcerate_disabled.Properties.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Radio + Me.rb_p_dosbox_forcerate_disabled.Properties.RadioGroupIndex = 2 + Me.rb_p_dosbox_forcerate_disabled.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem185.Text = "Force Framerate" + ToolTipItem183.LeftIndent = 6 + ToolTipItem183.Text = "Force the VGA framerate." + SuperToolTip185.Items.Add(ToolTipTitleItem185) + SuperToolTip185.Items.Add(ToolTipItem183) + Me.rb_p_dosbox_forcerate_disabled.SuperTip = SuperToolTip185 + Me.rb_p_dosbox_forcerate_disabled.TabIndex = 8 + Me.rb_p_dosbox_forcerate_disabled.TabStop = False + ' + 'chb_p_render_autofit + ' + Me.chb_p_render_autofit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_render_autofit", True)) + Me.chb_p_render_autofit.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_render_autofit", True)) + Me.chb_p_render_autofit.Location = New System.Drawing.Point(123, 230) + Me.chb_p_render_autofit.MKBoundLabel = Me.lbl_p_render_autofit + Me.chb_p_render_autofit.MKEditValue_Compare = Nothing + Me.chb_p_render_autofit.Name = "chb_p_render_autofit" + Me.chb_p_render_autofit.Properties.Caption = "" + Me.chb_p_render_autofit.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem187.Text = "Autofit" + ToolTipItem185.LeftIndent = 6 + ToolTipItem185.Text = "Best fits image to window. Intended for:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- output=direct3d" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- fullresolution=ori" & + "ginal" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- aspect=true" + SuperToolTip187.Items.Add(ToolTipTitleItem187) + SuperToolTip187.Items.Add(ToolTipItem185) + Me.chb_p_render_autofit.SuperTip = SuperToolTip187 + Me.chb_p_render_autofit.TabIndex = 16 + ' + 'lbl_p_render_autofit + ' + Me.lbl_p_render_autofit.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_render_autofit.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_render_autofit.Location = New System.Drawing.Point(3, 230) + Me.lbl_p_render_autofit.MKBoundControl1 = Me.chb_p_render_autofit + Me.lbl_p_render_autofit.MKBoundControl2 = Nothing + Me.lbl_p_render_autofit.MKBoundControl3 = Nothing + Me.lbl_p_render_autofit.MKBoundControl4 = Nothing + Me.lbl_p_render_autofit.MKBoundControl5 = Nothing + Me.lbl_p_render_autofit.Name = "lbl_p_render_autofit" + Me.lbl_p_render_autofit.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem186.Text = "Autofit" + ToolTipItem184.LeftIndent = 6 + ToolTipItem184.Text = "Best fits image to window. Intended for:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- output=direct3d" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- fullresolution=ori" & + "ginal" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "- aspect=true" + SuperToolTip186.Items.Add(ToolTipTitleItem186) + SuperToolTip186.Items.Add(ToolTipItem184) + Me.lbl_p_render_autofit.SuperTip = SuperToolTip186 + Me.lbl_p_render_autofit.TabIndex = 24 + Me.lbl_p_render_autofit.Text = "Autofit:" + ' + 'chb_p_sdl_pixelshader_forced + ' + Me.chb_p_sdl_pixelshader_forced.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sdl_pixelshader_forced", True)) + Me.chb_p_sdl_pixelshader_forced.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_DOSBox_Configs, "p_sdl_pixelshader_forced", True)) + Me.chb_p_sdl_pixelshader_forced.Location = New System.Drawing.Point(338, 26) + Me.chb_p_sdl_pixelshader_forced.MKBoundLabel = Me.lbl_p_sdl_pixelshader + Me.chb_p_sdl_pixelshader_forced.MKEditValue_Compare = Nothing + Me.chb_p_sdl_pixelshader_forced.Name = "chb_p_sdl_pixelshader_forced" + Me.chb_p_sdl_pixelshader_forced.Properties.Caption = "forced" + Me.chb_p_sdl_pixelshader_forced.Size = New System.Drawing.Size(60, 19) + ToolTipTitleItem190.Text = "Pixelshader" + ToolTipItem188.LeftIndent = 6 + ToolTipItem188.Text = "Pixelshader program (effect file must be in Shaders subdirectory). If forced is a" & + "ctivated, the shader will be used even if the result might not be desired." + SuperToolTip190.Items.Add(ToolTipTitleItem190) + SuperToolTip190.Items.Add(ToolTipItem188) + Me.chb_p_sdl_pixelshader_forced.SuperTip = SuperToolTip190 + Me.chb_p_sdl_pixelshader_forced.TabIndex = 4 + ' + 'lbl_p_sdl_pixelshader + ' + Me.lbl_p_sdl_pixelshader.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sdl_pixelshader.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sdl_pixelshader.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_sdl_pixelshader.MKBoundControl1 = Me.txb_p_sdl_pixelshader + Me.lbl_p_sdl_pixelshader.MKBoundControl2 = Me.chb_p_sdl_pixelshader_forced + Me.lbl_p_sdl_pixelshader.MKBoundControl3 = Nothing + Me.lbl_p_sdl_pixelshader.MKBoundControl4 = Nothing + Me.lbl_p_sdl_pixelshader.MKBoundControl5 = Nothing + Me.lbl_p_sdl_pixelshader.Name = "lbl_p_sdl_pixelshader" + Me.lbl_p_sdl_pixelshader.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem189.Text = "Pixelshader" + ToolTipItem187.LeftIndent = 6 + ToolTipItem187.Text = "Pixelshader program (effect file must be in Shaders subdirectory). If forced is a" & + "ctivated, the shader will be used even if the result might not be desired." + SuperToolTip189.Items.Add(ToolTipTitleItem189) + SuperToolTip189.Items.Add(ToolTipItem187) + Me.lbl_p_sdl_pixelshader.SuperTip = SuperToolTip189 + Me.lbl_p_sdl_pixelshader.TabIndex = 26 + Me.lbl_p_sdl_pixelshader.Text = "Pixelshader:" + ' + 'txb_p_sdl_pixelshader + ' + Me.txb_p_sdl_pixelshader.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sdl_pixelshader", True)) + Me.txb_p_sdl_pixelshader.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_sdl_pixelshader", True)) + Me.txb_p_sdl_pixelshader.Location = New System.Drawing.Point(123, 26) + Me.txb_p_sdl_pixelshader.MKBoundLabel = Me.lbl_p_sdl_pixelshader + Me.txb_p_sdl_pixelshader.MKEditValue_Compare = Nothing + Me.txb_p_sdl_pixelshader.Name = "txb_p_sdl_pixelshader" + Me.txb_p_sdl_pixelshader.Properties.ReadOnly = True + Me.txb_p_sdl_pixelshader.Size = New System.Drawing.Size(136, 20) + SuperToolTip188.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem188.Text = "Pixelshader" + ToolTipItem186.LeftIndent = 6 + ToolTipItem186.Text = "Pixelshader program (effect file must be in Shaders subdirectory). If forced is a" & + "ctivated, the shader will be used even if the result might not be desired." + SuperToolTip188.Items.Add(ToolTipTitleItem188) + SuperToolTip188.Items.Add(ToolTipItem186) + Me.txb_p_sdl_pixelshader.SuperTip = SuperToolTip188 + Me.txb_p_sdl_pixelshader.TabIndex = 1 + ' + 'btn_p_sdl_pixelshader + ' + Me.btn_p_sdl_pixelshader.Location = New System.Drawing.Point(262, 26) + Me.btn_p_sdl_pixelshader.Name = "btn_p_sdl_pixelshader" + Me.btn_p_sdl_pixelshader.Size = New System.Drawing.Size(35, 20) + SuperToolTip191.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem191.Text = "Choose Pixelshader" + ToolTipItem189.LeftIndent = 6 + ToolTipItem189.Text = "Browse the pixelshader program file." + SuperToolTip191.Items.Add(ToolTipTitleItem191) + SuperToolTip191.Items.Add(ToolTipItem189) + Me.btn_p_sdl_pixelshader.SuperTip = SuperToolTip191 + Me.btn_p_sdl_pixelshader.TabIndex = 2 + Me.btn_p_sdl_pixelshader.Text = "..." + ' + 'cmb_p_glide_lfb + ' + Me.cmb_p_glide_lfb.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_glide_lfb", True)) + Me.cmb_p_glide_lfb.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_glide_lfb", True)) + Me.cmb_p_glide_lfb.Location = New System.Drawing.Point(123, 299) + Me.cmb_p_glide_lfb.MKBoundLabel = Me.lbl_p_glide_lfb + Me.cmb_p_glide_lfb.MKEditValue_Compare = Nothing + Me.cmb_p_glide_lfb.Name = "cmb_p_glide_lfb" + Me.cmb_p_glide_lfb.Properties.AllowFocused = False + Me.cmb_p_glide_lfb.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_glide_lfb.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 66, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_glide_lfb.Properties.DataSource = Me.BTA_p_glide_lfb + Me.cmb_p_glide_lfb.Properties.DisplayMember = "value" + Me.cmb_p_glide_lfb.Properties.NullText = "" + Me.cmb_p_glide_lfb.Properties.ShowFooter = False + Me.cmb_p_glide_lfb.Properties.ShowHeader = False + Me.cmb_p_glide_lfb.Properties.ValueMember = "value" + Me.cmb_p_glide_lfb.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem193.Text = "GLide LFB Access" + ToolTipItem191.LeftIndent = 6 + ToolTipItem191.Text = "OpenGlide does not support locking aux buffer, please use _noaux modes in this ca" & + "se." + SuperToolTip193.Items.Add(ToolTipTitleItem193) + SuperToolTip193.Items.Add(ToolTipItem191) + Me.cmb_p_glide_lfb.SuperTip = SuperToolTip193 + Me.cmb_p_glide_lfb.TabIndex = 20 + ' + 'lbl_p_glide_lfb + ' + Me.lbl_p_glide_lfb.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_glide_lfb.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_glide_lfb.Location = New System.Drawing.Point(3, 299) + Me.lbl_p_glide_lfb.MKBoundControl1 = Me.cmb_p_glide_lfb + Me.lbl_p_glide_lfb.MKBoundControl2 = Nothing + Me.lbl_p_glide_lfb.MKBoundControl3 = Nothing + Me.lbl_p_glide_lfb.MKBoundControl4 = Nothing + Me.lbl_p_glide_lfb.MKBoundControl5 = Nothing + Me.lbl_p_glide_lfb.Name = "lbl_p_glide_lfb" + Me.lbl_p_glide_lfb.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem192.Text = "GLide LFB Access" + ToolTipItem190.LeftIndent = 6 + ToolTipItem190.Text = "OpenGlide does not support locking aux buffer, please use _noaux modes in this ca" & + "se." + SuperToolTip192.Items.Add(ToolTipTitleItem192) + SuperToolTip192.Items.Add(ToolTipItem190) + Me.lbl_p_glide_lfb.SuperTip = SuperToolTip192 + Me.lbl_p_glide_lfb.TabIndex = 24 + Me.lbl_p_glide_lfb.Text = "GLide LFB Access:" + ' + 'BTA_p_glide_lfb + ' + Me.BTA_p_glide_lfb.AllowDelete = True + Me.BTA_p_glide_lfb.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_glide_lfb.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_glide_lfb.Connection = Nothing + Me.BTA_p_glide_lfb.DSStream = CType(resources.GetObject("BTA_p_glide_lfb.DSStream"), System.IO.MemoryStream) + Me.BTA_p_glide_lfb.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_glide_lfb.FillString = "none;full;full_noaux;read;read_noaux;write;write_noaux" + Me.BTA_p_glide_lfb.Position = 0 + Me.BTA_p_glide_lfb.Transaction = Nothing + Me.BTA_p_glide_lfb.UpdateTablesStream = CType(resources.GetObject("BTA_p_glide_lfb.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_pci_voodoo + ' + Me.cmb_p_pci_voodoo.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_voodoo", True)) + Me.cmb_p_pci_voodoo.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_voodoo", True)) + Me.cmb_p_pci_voodoo.Location = New System.Drawing.Point(123, 253) + Me.cmb_p_pci_voodoo.MKBoundLabel = Me.lbl_p_pci_voodoo + Me.cmb_p_pci_voodoo.MKEditValue_Compare = Nothing + Me.cmb_p_pci_voodoo.Name = "cmb_p_pci_voodoo" + Me.cmb_p_pci_voodoo.Properties.AllowFocused = False + Me.cmb_p_pci_voodoo.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_pci_voodoo.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 49, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_pci_voodoo.Properties.DataSource = Me.BTA_p_voodoo + Me.cmb_p_pci_voodoo.Properties.DisplayMember = "value" + Me.cmb_p_pci_voodoo.Properties.NullText = "" + Me.cmb_p_pci_voodoo.Properties.ShowFooter = False + Me.cmb_p_pci_voodoo.Properties.ShowHeader = False + Me.cmb_p_pci_voodoo.Properties.ValueMember = "value" + Me.cmb_p_pci_voodoo.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem195.Text = "Voodoo" + ToolTipItem193.LeftIndent = 6 + ToolTipItem193.Text = "VOODOO support." + SuperToolTip195.Items.Add(ToolTipTitleItem195) + SuperToolTip195.Items.Add(ToolTipItem193) + Me.cmb_p_pci_voodoo.SuperTip = SuperToolTip195 + Me.cmb_p_pci_voodoo.TabIndex = 17 + ' + 'lbl_p_pci_voodoo + ' + Me.lbl_p_pci_voodoo.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_pci_voodoo.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_pci_voodoo.Location = New System.Drawing.Point(3, 253) + Me.lbl_p_pci_voodoo.MKBoundControl1 = Me.cmb_p_pci_voodoo + Me.lbl_p_pci_voodoo.MKBoundControl2 = Nothing + Me.lbl_p_pci_voodoo.MKBoundControl3 = Nothing + Me.lbl_p_pci_voodoo.MKBoundControl4 = Nothing + Me.lbl_p_pci_voodoo.MKBoundControl5 = Nothing + Me.lbl_p_pci_voodoo.Name = "lbl_p_pci_voodoo" + Me.lbl_p_pci_voodoo.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem194.Text = "Voodoo" + ToolTipItem192.LeftIndent = 6 + ToolTipItem192.Text = "VOODOO support." + SuperToolTip194.Items.Add(ToolTipTitleItem194) + SuperToolTip194.Items.Add(ToolTipItem192) + Me.lbl_p_pci_voodoo.SuperTip = SuperToolTip194 + Me.lbl_p_pci_voodoo.TabIndex = 24 + Me.lbl_p_pci_voodoo.Text = "Voodoo:" + ' + 'BTA_p_voodoo + ' + Me.BTA_p_voodoo.AllowDelete = True + Me.BTA_p_voodoo.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_voodoo.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_voodoo.Connection = Nothing + Me.BTA_p_voodoo.DSStream = CType(resources.GetObject("BTA_p_voodoo.DSStream"), System.IO.MemoryStream) + Me.BTA_p_voodoo.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_voodoo.FillString = "false;software;opengl;auto" + Me.BTA_p_voodoo.Position = 0 + Me.BTA_p_voodoo.Transaction = Nothing + Me.BTA_p_voodoo.UpdateTablesStream = CType(resources.GetObject("BTA_p_voodoo.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_vsync_vsyncmode + ' + Me.cmb_p_vsync_vsyncmode.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_vsync_vsyncmode", True)) + Me.cmb_p_vsync_vsyncmode.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_vsync_vsyncmode", True)) + Me.cmb_p_vsync_vsyncmode.Location = New System.Drawing.Point(123, 184) + Me.cmb_p_vsync_vsyncmode.MKBoundLabel = Me.lbl_p_vsync_vsyncmode + Me.cmb_p_vsync_vsyncmode.MKEditValue_Compare = Nothing + Me.cmb_p_vsync_vsyncmode.Name = "cmb_p_vsync_vsyncmode" + Me.cmb_p_vsync_vsyncmode.Properties.AllowFocused = False + Me.cmb_p_vsync_vsyncmode.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_vsync_vsyncmode.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", 18, "value")}) + Me.cmb_p_vsync_vsyncmode.Properties.DataSource = Me.BTA_p_vsync_vsyncmode + Me.cmb_p_vsync_vsyncmode.Properties.DisplayMember = "value" + Me.cmb_p_vsync_vsyncmode.Properties.NullText = "" + Me.cmb_p_vsync_vsyncmode.Properties.ShowFooter = False + Me.cmb_p_vsync_vsyncmode.Properties.ShowHeader = False + Me.cmb_p_vsync_vsyncmode.Properties.ValueMember = "value" + Me.cmb_p_vsync_vsyncmode.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem197.Text = "VSync" + ToolTipItem195.LeftIndent = 6 + ToolTipItem195.Text = "Synchronize vsync timing to the host display. Requires calibration within dosbox." & + "" + SuperToolTip197.Items.Add(ToolTipTitleItem197) + SuperToolTip197.Items.Add(ToolTipItem195) + Me.cmb_p_vsync_vsyncmode.SuperTip = SuperToolTip197 + Me.cmb_p_vsync_vsyncmode.TabIndex = 14 + ' + 'lbl_p_vsync_vsyncmode + ' + Me.lbl_p_vsync_vsyncmode.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_vsync_vsyncmode.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_vsync_vsyncmode.Location = New System.Drawing.Point(3, 184) + Me.lbl_p_vsync_vsyncmode.MKBoundControl1 = Me.cmb_p_vsync_vsyncmode + Me.lbl_p_vsync_vsyncmode.MKBoundControl2 = Nothing + Me.lbl_p_vsync_vsyncmode.MKBoundControl3 = Nothing + Me.lbl_p_vsync_vsyncmode.MKBoundControl4 = Nothing + Me.lbl_p_vsync_vsyncmode.MKBoundControl5 = Nothing + Me.lbl_p_vsync_vsyncmode.Name = "lbl_p_vsync_vsyncmode" + Me.lbl_p_vsync_vsyncmode.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem196.Text = "VSync" + ToolTipItem194.LeftIndent = 6 + ToolTipItem194.Text = "Synchronize vsync timing to the host display. Requires calibration within dosbox." & + "" + SuperToolTip196.Items.Add(ToolTipTitleItem196) + SuperToolTip196.Items.Add(ToolTipItem194) + Me.lbl_p_vsync_vsyncmode.SuperTip = SuperToolTip196 + Me.lbl_p_vsync_vsyncmode.TabIndex = 24 + Me.lbl_p_vsync_vsyncmode.Text = "VSync Mode:" + ' + 'BTA_p_vsync_vsyncmode + ' + Me.BTA_p_vsync_vsyncmode.AllowDelete = True + Me.BTA_p_vsync_vsyncmode.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_vsync_vsyncmode.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_vsync_vsyncmode.Connection = Nothing + Me.BTA_p_vsync_vsyncmode.DSStream = CType(resources.GetObject("BTA_p_vsync_vsyncmode.DSStream"), System.IO.MemoryStream) + Me.BTA_p_vsync_vsyncmode.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_vsync_vsyncmode.FillString = "off;on;force;host" + Me.BTA_p_vsync_vsyncmode.Position = 0 + Me.BTA_p_vsync_vsyncmode.Transaction = Nothing + Me.BTA_p_vsync_vsyncmode.UpdateTablesStream = CType(resources.GetObject("BTA_p_vsync_vsyncmode.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_dosbox_vmemsize + ' + Me.cmb_p_dosbox_vmemsize.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_dosbox_vmemsize", True)) + Me.cmb_p_dosbox_vmemsize.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_dosbox_vmemsize", True)) + Me.cmb_p_dosbox_vmemsize.Location = New System.Drawing.Point(123, 72) + Me.cmb_p_dosbox_vmemsize.MKBoundLabel = Me.lbl_p_dosbox_vmemsize + Me.cmb_p_dosbox_vmemsize.MKEditValue_Compare = Nothing + Me.cmb_p_dosbox_vmemsize.Name = "cmb_p_dosbox_vmemsize" + Me.cmb_p_dosbox_vmemsize.Properties.AllowFocused = False + Me.cmb_p_dosbox_vmemsize.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_dosbox_vmemsize.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 18, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("displaytext", "displaytext", 38, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_dosbox_vmemsize.Properties.DataSource = Me.BTA_p_dosbox_vmemsize + Me.cmb_p_dosbox_vmemsize.Properties.DisplayMember = "displaytext" + Me.cmb_p_dosbox_vmemsize.Properties.NullText = "" + Me.cmb_p_dosbox_vmemsize.Properties.ShowFooter = False + Me.cmb_p_dosbox_vmemsize.Properties.ShowHeader = False + Me.cmb_p_dosbox_vmemsize.Properties.ValueMember = "value" + Me.cmb_p_dosbox_vmemsize.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem199.Text = "Video Memory size" + ToolTipItem197.LeftIndent = 6 + ToolTipItem197.Text = resources.GetString("ToolTipItem197.Text") + SuperToolTip199.Items.Add(ToolTipTitleItem199) + SuperToolTip199.Items.Add(ToolTipItem197) + Me.cmb_p_dosbox_vmemsize.SuperTip = SuperToolTip199 + Me.cmb_p_dosbox_vmemsize.TabIndex = 6 + ' + 'lbl_p_dosbox_vmemsize + ' + Me.lbl_p_dosbox_vmemsize.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_dosbox_vmemsize.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_vmemsize.Location = New System.Drawing.Point(3, 72) + Me.lbl_p_dosbox_vmemsize.MKBoundControl1 = Me.cmb_p_dosbox_vmemsize + Me.lbl_p_dosbox_vmemsize.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_vmemsize.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_vmemsize.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_vmemsize.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_vmemsize.Name = "lbl_p_dosbox_vmemsize" + Me.lbl_p_dosbox_vmemsize.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem198.Text = "Video Memory size" + ToolTipItem196.LeftIndent = 6 + ToolTipItem196.Text = resources.GetString("ToolTipItem196.Text") + SuperToolTip198.Items.Add(ToolTipTitleItem198) + SuperToolTip198.Items.Add(ToolTipItem196) + Me.lbl_p_dosbox_vmemsize.SuperTip = SuperToolTip198 + Me.lbl_p_dosbox_vmemsize.TabIndex = 24 + Me.lbl_p_dosbox_vmemsize.Text = "Video Memory size:" + ' + 'BTA_p_dosbox_vmemsize + ' + Me.BTA_p_dosbox_vmemsize.AllowDelete = True + Me.BTA_p_dosbox_vmemsize.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_dosbox_vmemsize.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_dosbox_vmemsize.Connection = Nothing + Me.BTA_p_dosbox_vmemsize.DSStream = CType(resources.GetObject("BTA_p_dosbox_vmemsize.DSStream"), System.IO.MemoryStream) + Me.BTA_p_dosbox_vmemsize.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_dosbox_vmemsize.FillString = "0;512 kB;1;1 MB;2;2 MB;4;4 MB;8;8 MB;16;16 MB;24;24 MB;32;32 MB" + Me.BTA_p_dosbox_vmemsize.Position = 0 + Me.BTA_p_dosbox_vmemsize.Transaction = Nothing + Me.BTA_p_dosbox_vmemsize.UpdateTablesStream = CType(resources.GetObject("BTA_p_dosbox_vmemsize.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_render_scaler + ' + Me.cmb_p_render_scaler.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_render_scaler", True)) + Me.cmb_p_render_scaler.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_render_scaler", True)) + Me.cmb_p_render_scaler.Location = New System.Drawing.Point(123, 49) + Me.cmb_p_render_scaler.MKBoundLabel = Me.lbl_p_render_scaler + Me.cmb_p_render_scaler.MKEditValue_Compare = Nothing + Me.cmb_p_render_scaler.Name = "cmb_p_render_scaler" + Me.cmb_p_render_scaler.Properties.AllowFocused = False + Me.cmb_p_render_scaler.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_render_scaler.Properties.DataSource = Me.BTA_p_render_scaler + Me.cmb_p_render_scaler.Properties.DisplayMember = "value" + Me.cmb_p_render_scaler.Properties.NullText = "" + Me.cmb_p_render_scaler.Properties.ShowFooter = False + Me.cmb_p_render_scaler.Properties.ShowHeader = False + Me.cmb_p_render_scaler.Properties.ValueMember = "value" + Me.cmb_p_render_scaler.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem201.Text = "Scaler (Patched)" + ToolTipItem199.LeftIndent = 6 + ToolTipItem199.Text = resources.GetString("ToolTipItem199.Text") + SuperToolTip201.Items.Add(ToolTipTitleItem201) + SuperToolTip201.Items.Add(ToolTipItem199) + Me.cmb_p_render_scaler.SuperTip = SuperToolTip201 + Me.cmb_p_render_scaler.TabIndex = 5 + ' + 'lbl_p_render_scaler + ' + Me.lbl_p_render_scaler.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_render_scaler.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_render_scaler.Location = New System.Drawing.Point(3, 49) + Me.lbl_p_render_scaler.MKBoundControl1 = Me.cmb_p_render_scaler + Me.lbl_p_render_scaler.MKBoundControl2 = Nothing + Me.lbl_p_render_scaler.MKBoundControl3 = Nothing + Me.lbl_p_render_scaler.MKBoundControl4 = Nothing + Me.lbl_p_render_scaler.MKBoundControl5 = Nothing + Me.lbl_p_render_scaler.Name = "lbl_p_render_scaler" + Me.lbl_p_render_scaler.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem200.Text = "Scaler (Patched)" + ToolTipItem198.LeftIndent = 6 + ToolTipItem198.Text = resources.GetString("ToolTipItem198.Text") + SuperToolTip200.Items.Add(ToolTipTitleItem200) + SuperToolTip200.Items.Add(ToolTipItem198) + Me.lbl_p_render_scaler.SuperTip = SuperToolTip200 + Me.lbl_p_render_scaler.TabIndex = 24 + Me.lbl_p_render_scaler.Text = "Scaler:" + ' + 'BTA_p_render_scaler + ' + Me.BTA_p_render_scaler.AllowDelete = True + Me.BTA_p_render_scaler.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_render_scaler.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_render_scaler.Connection = Nothing + Me.BTA_p_render_scaler.DSStream = CType(resources.GetObject("BTA_p_render_scaler.DSStream"), System.IO.MemoryStream) + Me.BTA_p_render_scaler.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_render_scaler.FillString = "normal5x;hardware_none;hardware3x;hardware4x;hardware5x;xbrz" + Me.BTA_p_render_scaler.Position = 0 + Me.BTA_p_render_scaler.Transaction = Nothing + Me.BTA_p_render_scaler.UpdateTablesStream = CType(resources.GetObject("BTA_p_render_scaler.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_p_dosbox_vmemsize_details + ' + Me.lbl_p_dosbox_vmemsize_details.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_p_dosbox_vmemsize_details.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_dosbox_vmemsize_details.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_vmemsize_details.Location = New System.Drawing.Point(262, 72) + Me.lbl_p_dosbox_vmemsize_details.MKBoundControl1 = Nothing + Me.lbl_p_dosbox_vmemsize_details.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_vmemsize_details.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_vmemsize_details.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_vmemsize_details.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_vmemsize_details.Name = "lbl_p_dosbox_vmemsize_details" + Me.lbl_p_dosbox_vmemsize_details.Size = New System.Drawing.Size(281, 20) + ToolTipTitleItem202.Text = "Video Memory size" + ToolTipItem200.LeftIndent = 6 + ToolTipItem200.Text = resources.GetString("ToolTipItem200.Text") + SuperToolTip202.Items.Add(ToolTipTitleItem202) + SuperToolTip202.Items.Add(ToolTipItem200) + Me.lbl_p_dosbox_vmemsize_details.SuperTip = SuperToolTip202 + Me.lbl_p_dosbox_vmemsize_details.TabIndex = 7 + ' + 'lbl_p_dosbox_forcerate + ' + Me.lbl_p_dosbox_forcerate.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_dosbox_forcerate.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_dosbox_forcerate.Location = New System.Drawing.Point(3, 95) + Me.lbl_p_dosbox_forcerate.MKBoundControl1 = Nothing + Me.lbl_p_dosbox_forcerate.MKBoundControl2 = Nothing + Me.lbl_p_dosbox_forcerate.MKBoundControl3 = Nothing + Me.lbl_p_dosbox_forcerate.MKBoundControl4 = Nothing + Me.lbl_p_dosbox_forcerate.MKBoundControl5 = Nothing + Me.lbl_p_dosbox_forcerate.Name = "lbl_p_dosbox_forcerate" + Me.lbl_p_dosbox_forcerate.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem203.Text = "Force Framerate" + ToolTipItem201.LeftIndent = 6 + ToolTipItem201.Text = "Force the VGA framerate." + SuperToolTip203.Items.Add(ToolTipTitleItem203) + SuperToolTip203.Items.Add(ToolTipItem201) + Me.lbl_p_dosbox_forcerate.SuperTip = SuperToolTip203 + Me.lbl_p_dosbox_forcerate.TabIndex = 24 + Me.lbl_p_dosbox_forcerate.Text = "Force Framerate:" + ' + 'cmb_p_sdl_output + ' + Me.cmb_p_sdl_output.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sdl_output", True)) + Me.cmb_p_sdl_output.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_sdl_output", True)) + Me.cmb_p_sdl_output.Location = New System.Drawing.Point(123, 3) + Me.cmb_p_sdl_output.MKBoundLabel = Me.lbl_p_sdl_output + Me.cmb_p_sdl_output.MKEditValue_Compare = Nothing + Me.cmb_p_sdl_output.Name = "cmb_p_sdl_output" + Me.cmb_p_sdl_output.Properties.AllowFocused = False + Me.cmb_p_sdl_output.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_sdl_output.Properties.DataSource = Me.BTA_p_sdl_output + Me.cmb_p_sdl_output.Properties.DisplayMember = "value" + Me.cmb_p_sdl_output.Properties.NullText = "" + Me.cmb_p_sdl_output.Properties.ShowFooter = False + Me.cmb_p_sdl_output.Properties.ShowHeader = False + Me.cmb_p_sdl_output.Properties.ValueMember = "value" + Me.cmb_p_sdl_output.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem205.Text = "Output (Patches)" + ToolTipItem203.LeftIndent = 6 + ToolTipItem203.Text = "Some patches introduce new systems for output. This setting overrides the (standa" & + "rd) Output setting." + SuperToolTip205.Items.Add(ToolTipTitleItem205) + SuperToolTip205.Items.Add(ToolTipItem203) + Me.cmb_p_sdl_output.SuperTip = SuperToolTip205 + Me.cmb_p_sdl_output.TabIndex = 0 + ' + 'lbl_p_sdl_output + ' + Me.lbl_p_sdl_output.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sdl_output.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sdl_output.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_sdl_output.MKBoundControl1 = Me.cmb_p_sdl_output + Me.lbl_p_sdl_output.MKBoundControl2 = Nothing + Me.lbl_p_sdl_output.MKBoundControl3 = Nothing + Me.lbl_p_sdl_output.MKBoundControl4 = Nothing + Me.lbl_p_sdl_output.MKBoundControl5 = Nothing + Me.lbl_p_sdl_output.Name = "lbl_p_sdl_output" + Me.lbl_p_sdl_output.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem204.Text = "Output (Patches)" + ToolTipItem202.LeftIndent = 6 + ToolTipItem202.Text = "Some patches introduce new systems for output. This setting overrides the (standa" & + "rd) Output setting." + SuperToolTip204.Items.Add(ToolTipTitleItem204) + SuperToolTip204.Items.Add(ToolTipItem202) + Me.lbl_p_sdl_output.SuperTip = SuperToolTip204 + Me.lbl_p_sdl_output.TabIndex = 22 + Me.lbl_p_sdl_output.Text = "Output:" + ' + 'BTA_p_sdl_output + ' + Me.BTA_p_sdl_output.AllowDelete = True + Me.BTA_p_sdl_output.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_sdl_output.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_sdl_output.Connection = Nothing + Me.BTA_p_sdl_output.DSStream = CType(resources.GetObject("BTA_p_sdl_output.DSStream"), System.IO.MemoryStream) + Me.BTA_p_sdl_output.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_sdl_output.FillString = "direct3d;openglhq" + Me.BTA_p_sdl_output.Position = 0 + Me.BTA_p_sdl_output.Transaction = Nothing + Me.BTA_p_sdl_output.UpdateTablesStream = CType(resources.GetObject("BTA_p_sdl_output.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'tpg_Sound_Patches + ' + Me.tpg_Sound_Patches.Controls.Add(Me.chb_p_mixer_swapstereo) + Me.tpg_Sound_Patches.Controls.Add(Me.lbl_p_mixer_swapstereo) + Me.tpg_Sound_Patches.Name = "tpg_Sound_Patches" + Me.tpg_Sound_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Sound_Patches.Text = "Sound (Patches)" + ' + 'chb_p_mixer_swapstereo + ' + Me.chb_p_mixer_swapstereo.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_mixer_swapstereo", True)) + Me.chb_p_mixer_swapstereo.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_mixer_swapstereo", True)) + Me.chb_p_mixer_swapstereo.Location = New System.Drawing.Point(123, 3) + Me.chb_p_mixer_swapstereo.MKBoundLabel = Me.lbl_p_mixer_swapstereo + Me.chb_p_mixer_swapstereo.MKEditValue_Compare = Nothing + Me.chb_p_mixer_swapstereo.Name = "chb_p_mixer_swapstereo" + Me.chb_p_mixer_swapstereo.Properties.Caption = "" + Me.chb_p_mixer_swapstereo.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem207.Text = "Swap Stereo" + ToolTipItem205.LeftIndent = 6 + ToolTipItem205.Text = "Swaps the left and right stereo channels." + SuperToolTip207.Items.Add(ToolTipTitleItem207) + SuperToolTip207.Items.Add(ToolTipItem205) + Me.chb_p_mixer_swapstereo.SuperTip = SuperToolTip207 + Me.chb_p_mixer_swapstereo.TabIndex = 33 + ' + 'lbl_p_mixer_swapstereo + ' + Me.lbl_p_mixer_swapstereo.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_mixer_swapstereo.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_mixer_swapstereo.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_mixer_swapstereo.MKBoundControl1 = Me.chb_p_mixer_swapstereo + Me.lbl_p_mixer_swapstereo.MKBoundControl2 = Nothing + Me.lbl_p_mixer_swapstereo.MKBoundControl3 = Nothing + Me.lbl_p_mixer_swapstereo.MKBoundControl4 = Nothing + Me.lbl_p_mixer_swapstereo.MKBoundControl5 = Nothing + Me.lbl_p_mixer_swapstereo.Name = "lbl_p_mixer_swapstereo" + Me.lbl_p_mixer_swapstereo.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem206.Text = "Swap Stereo" + ToolTipItem204.LeftIndent = 6 + ToolTipItem204.Text = "Swaps the left and right stereo channels." + SuperToolTip206.Items.Add(ToolTipTitleItem206) + SuperToolTip206.Items.Add(ToolTipItem204) + Me.lbl_p_mixer_swapstereo.SuperTip = SuperToolTip206 + Me.lbl_p_mixer_swapstereo.TabIndex = 32 + Me.lbl_p_mixer_swapstereo.Text = "Swap Stereo:" + ' + 'tpg_Sound_Blaster_Patches + ' + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.chb_p_sblaster_goldplay) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.lbl_p_sblaster_goldplay) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.cmb_p_sblaster_hardwarebase) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.cmb_p_sblaster_oplmode) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.cmb_p_sblaster_sbtype) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.lbl_p_sblaster_hardwarebase) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.lbl_p_sblaster_oplmode) + Me.tpg_Sound_Blaster_Patches.Controls.Add(Me.lbl_p_sblaster_sbtype) + Me.tpg_Sound_Blaster_Patches.Name = "tpg_Sound_Blaster_Patches" + Me.tpg_Sound_Blaster_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Sound_Blaster_Patches.Text = "Sound Blaster (Patches)" + ' + 'chb_p_sblaster_goldplay + ' + Me.chb_p_sblaster_goldplay.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sblaster_goldplay", True)) + Me.chb_p_sblaster_goldplay.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_sblaster_goldplay", True)) + Me.chb_p_sblaster_goldplay.Location = New System.Drawing.Point(123, 49) + Me.chb_p_sblaster_goldplay.MKBoundLabel = Me.lbl_p_sblaster_goldplay + Me.chb_p_sblaster_goldplay.MKEditValue_Compare = Nothing + Me.chb_p_sblaster_goldplay.Name = "chb_p_sblaster_goldplay" + Me.chb_p_sblaster_goldplay.Properties.Caption = "" + Me.chb_p_sblaster_goldplay.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem209.Text = "Goldplay" + ToolTipItem207.LeftIndent = 6 + ToolTipItem207.Text = "Enable Goldplay emulation." + SuperToolTip209.Items.Add(ToolTipTitleItem209) + SuperToolTip209.Items.Add(ToolTipItem207) + Me.chb_p_sblaster_goldplay.SuperTip = SuperToolTip209 + Me.chb_p_sblaster_goldplay.TabIndex = 3 + ' + 'lbl_p_sblaster_goldplay + ' + Me.lbl_p_sblaster_goldplay.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sblaster_goldplay.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sblaster_goldplay.Location = New System.Drawing.Point(3, 49) + Me.lbl_p_sblaster_goldplay.MKBoundControl1 = Me.chb_p_sblaster_goldplay + Me.lbl_p_sblaster_goldplay.MKBoundControl2 = Nothing + Me.lbl_p_sblaster_goldplay.MKBoundControl3 = Nothing + Me.lbl_p_sblaster_goldplay.MKBoundControl4 = Nothing + Me.lbl_p_sblaster_goldplay.MKBoundControl5 = Nothing + Me.lbl_p_sblaster_goldplay.Name = "lbl_p_sblaster_goldplay" + Me.lbl_p_sblaster_goldplay.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem208.Text = "Goldplay" + ToolTipItem206.LeftIndent = 6 + ToolTipItem206.Text = "Enable Goldplay emulation." + SuperToolTip208.Items.Add(ToolTipTitleItem208) + SuperToolTip208.Items.Add(ToolTipItem206) + Me.lbl_p_sblaster_goldplay.SuperTip = SuperToolTip208 + Me.lbl_p_sblaster_goldplay.TabIndex = 30 + Me.lbl_p_sblaster_goldplay.Text = "Goldplay:" + ' + 'cmb_p_sblaster_hardwarebase + ' + Me.cmb_p_sblaster_hardwarebase.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sblaster_hardwarebase", True)) + Me.cmb_p_sblaster_hardwarebase.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_sblaster_hardwarebase", True)) + Me.cmb_p_sblaster_hardwarebase.Location = New System.Drawing.Point(123, 26) + Me.cmb_p_sblaster_hardwarebase.MKBoundLabel = Me.lbl_p_sblaster_hardwarebase + Me.cmb_p_sblaster_hardwarebase.MKEditValue_Compare = Nothing + Me.cmb_p_sblaster_hardwarebase.Name = "cmb_p_sblaster_hardwarebase" + Me.cmb_p_sblaster_hardwarebase.Properties.AllowFocused = False + Me.cmb_p_sblaster_hardwarebase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_sblaster_hardwarebase.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 64, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_sblaster_hardwarebase.Properties.DataSource = Me.BTA_p_sblaster_hardwarebase + Me.cmb_p_sblaster_hardwarebase.Properties.DisplayMember = "value" + Me.cmb_p_sblaster_hardwarebase.Properties.NullText = "" + Me.cmb_p_sblaster_hardwarebase.Properties.ShowFooter = False + Me.cmb_p_sblaster_hardwarebase.Properties.ShowHeader = False + Me.cmb_p_sblaster_hardwarebase.Properties.ValueMember = "value" + Me.cmb_p_sblaster_hardwarebase.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem211.Text = "Hardware Base" + ToolTipItem209.LeftIndent = 6 + ToolTipItem209.Text = "Base address of the real hardware soundblaster." + SuperToolTip211.Items.Add(ToolTipTitleItem211) + SuperToolTip211.Items.Add(ToolTipItem209) + Me.cmb_p_sblaster_hardwarebase.SuperTip = SuperToolTip211 + Me.cmb_p_sblaster_hardwarebase.TabIndex = 2 + ' + 'lbl_p_sblaster_hardwarebase + ' + Me.lbl_p_sblaster_hardwarebase.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sblaster_hardwarebase.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sblaster_hardwarebase.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_sblaster_hardwarebase.MKBoundControl1 = Me.cmb_p_sblaster_hardwarebase + Me.lbl_p_sblaster_hardwarebase.MKBoundControl2 = Nothing + Me.lbl_p_sblaster_hardwarebase.MKBoundControl3 = Nothing + Me.lbl_p_sblaster_hardwarebase.MKBoundControl4 = Nothing + Me.lbl_p_sblaster_hardwarebase.MKBoundControl5 = Nothing + Me.lbl_p_sblaster_hardwarebase.Name = "lbl_p_sblaster_hardwarebase" + Me.lbl_p_sblaster_hardwarebase.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem210.Text = "Hardware Base" + ToolTipItem208.LeftIndent = 6 + ToolTipItem208.Text = "Base address of the real hardware soundblaster." + SuperToolTip210.Items.Add(ToolTipTitleItem210) + SuperToolTip210.Items.Add(ToolTipItem208) + Me.lbl_p_sblaster_hardwarebase.SuperTip = SuperToolTip210 + Me.lbl_p_sblaster_hardwarebase.TabIndex = 29 + Me.lbl_p_sblaster_hardwarebase.Text = "Hardware Base:" + ' + 'BTA_p_sblaster_hardwarebase + ' + Me.BTA_p_sblaster_hardwarebase.AllowDelete = True + Me.BTA_p_sblaster_hardwarebase.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_sblaster_hardwarebase.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_sblaster_hardwarebase.Connection = Nothing + Me.BTA_p_sblaster_hardwarebase.DSStream = CType(resources.GetObject("BTA_p_sblaster_hardwarebase.DSStream"), System.IO.MemoryStream) + Me.BTA_p_sblaster_hardwarebase.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_sblaster_hardwarebase.FillString = "210;220;230;240;250;260;280" + Me.BTA_p_sblaster_hardwarebase.Position = 0 + Me.BTA_p_sblaster_hardwarebase.Transaction = Nothing + Me.BTA_p_sblaster_hardwarebase.UpdateTablesStream = CType(resources.GetObject("BTA_p_sblaster_hardwarebase.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_sblaster_oplmode + ' + Me.cmb_p_sblaster_oplmode.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_sblaster_oplmode", True)) + Me.cmb_p_sblaster_oplmode.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_sblaster_oplmode", True)) + Me.cmb_p_sblaster_oplmode.Location = New System.Drawing.Point(123, 3) + Me.cmb_p_sblaster_oplmode.MKBoundLabel = Me.lbl_p_sblaster_oplmode + Me.cmb_p_sblaster_oplmode.MKEditValue_Compare = Nothing + Me.cmb_p_sblaster_oplmode.Name = "cmb_p_sblaster_oplmode" + Me.cmb_p_sblaster_oplmode.Properties.AllowFocused = False + Me.cmb_p_sblaster_oplmode.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_sblaster_oplmode.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 64, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_sblaster_oplmode.Properties.DataSource = Me.BTA_p_sblaster_oplmode + Me.cmb_p_sblaster_oplmode.Properties.DisplayMember = "value" + Me.cmb_p_sblaster_oplmode.Properties.NullText = "" + Me.cmb_p_sblaster_oplmode.Properties.ShowFooter = False + Me.cmb_p_sblaster_oplmode.Properties.ShowHeader = False + Me.cmb_p_sblaster_oplmode.Properties.ValueMember = "value" + Me.cmb_p_sblaster_oplmode.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem213.Text = "OPL Mode" + ToolTipItem211.LeftIndent = 6 + ToolTipItem211.Text = "Some patches introduce new types of OPL emulation. This setting overrides the (st" & + "andard) OPL Mode setting." + SuperToolTip213.Items.Add(ToolTipTitleItem213) + SuperToolTip213.Items.Add(ToolTipItem211) + Me.cmb_p_sblaster_oplmode.SuperTip = SuperToolTip213 + Me.cmb_p_sblaster_oplmode.TabIndex = 0 + ' + 'lbl_p_sblaster_oplmode + ' + Me.lbl_p_sblaster_oplmode.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sblaster_oplmode.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sblaster_oplmode.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_sblaster_oplmode.MKBoundControl1 = Me.cmb_p_sblaster_oplmode + Me.lbl_p_sblaster_oplmode.MKBoundControl2 = Nothing + Me.lbl_p_sblaster_oplmode.MKBoundControl3 = Nothing + Me.lbl_p_sblaster_oplmode.MKBoundControl4 = Nothing + Me.lbl_p_sblaster_oplmode.MKBoundControl5 = Nothing + Me.lbl_p_sblaster_oplmode.Name = "lbl_p_sblaster_oplmode" + Me.lbl_p_sblaster_oplmode.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem212.Text = "OPL Mode" + ToolTipItem210.LeftIndent = 6 + ToolTipItem210.Text = "Some patches introduce new types of OPL emulation. This setting overrides the (st" & + "andard) OPL Mode setting." + SuperToolTip212.Items.Add(ToolTipTitleItem212) + SuperToolTip212.Items.Add(ToolTipItem210) + Me.lbl_p_sblaster_oplmode.SuperTip = SuperToolTip212 + Me.lbl_p_sblaster_oplmode.TabIndex = 29 + Me.lbl_p_sblaster_oplmode.Text = "OPL Mode:" + ' + 'BTA_p_sblaster_oplmode + ' + Me.BTA_p_sblaster_oplmode.AllowDelete = True + Me.BTA_p_sblaster_oplmode.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_sblaster_oplmode.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_sblaster_oplmode.Connection = Nothing + Me.BTA_p_sblaster_oplmode.DSStream = CType(resources.GetObject("BTA_p_sblaster_oplmode.DSStream"), System.IO.MemoryStream) + Me.BTA_p_sblaster_oplmode.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_sblaster_oplmode.FillString = "hardware;hardwaregb" + Me.BTA_p_sblaster_oplmode.Position = 0 + Me.BTA_p_sblaster_oplmode.Transaction = Nothing + Me.BTA_p_sblaster_oplmode.UpdateTablesStream = CType(resources.GetObject("BTA_p_sblaster_oplmode.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_sblaster_sbtype + ' + Me.cmb_p_sblaster_sbtype.Location = New System.Drawing.Point(406, 3) + Me.cmb_p_sblaster_sbtype.MKBoundLabel = Nothing + Me.cmb_p_sblaster_sbtype.MKEditValue_Compare = Nothing + Me.cmb_p_sblaster_sbtype.Name = "cmb_p_sblaster_sbtype" + Me.cmb_p_sblaster_sbtype.Properties.AllowFocused = False + Me.cmb_p_sblaster_sbtype.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_sblaster_sbtype.Properties.NullText = "" + Me.cmb_p_sblaster_sbtype.Properties.ShowFooter = False + Me.cmb_p_sblaster_sbtype.Properties.ShowHeader = False + Me.cmb_p_sblaster_sbtype.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem214.Text = "SB Type" + ToolTipItem212.LeftIndent = 6 + ToolTipItem212.Text = "Type of Sound Blaster to emulate. gb is Gameblaster." + SuperToolTip214.Items.Add(ToolTipTitleItem214) + SuperToolTip214.Items.Add(ToolTipItem212) + Me.cmb_p_sblaster_sbtype.SuperTip = SuperToolTip214 + Me.cmb_p_sblaster_sbtype.TabIndex = 1 + Me.cmb_p_sblaster_sbtype.Visible = False + ' + 'lbl_p_sblaster_sbtype + ' + Me.lbl_p_sblaster_sbtype.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_sblaster_sbtype.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_sblaster_sbtype.Location = New System.Drawing.Point(306, 3) + Me.lbl_p_sblaster_sbtype.MKBoundControl1 = Nothing + Me.lbl_p_sblaster_sbtype.MKBoundControl2 = Nothing + Me.lbl_p_sblaster_sbtype.MKBoundControl3 = Nothing + Me.lbl_p_sblaster_sbtype.MKBoundControl4 = Nothing + Me.lbl_p_sblaster_sbtype.MKBoundControl5 = Nothing + Me.lbl_p_sblaster_sbtype.Name = "lbl_p_sblaster_sbtype" + Me.lbl_p_sblaster_sbtype.Size = New System.Drawing.Size(97, 20) + ToolTipTitleItem215.Text = "SB Type" + ToolTipItem213.LeftIndent = 6 + ToolTipItem213.Text = "Type of Sound Blaster to emulate. gb is Gameblaster." + SuperToolTip215.Items.Add(ToolTipTitleItem215) + SuperToolTip215.Items.Add(ToolTipItem213) + Me.lbl_p_sblaster_sbtype.SuperTip = SuperToolTip215 + Me.lbl_p_sblaster_sbtype.TabIndex = 29 + Me.lbl_p_sblaster_sbtype.Text = "SB Type:" + Me.lbl_p_sblaster_sbtype.Visible = False + ' + 'tpg_MIDI_Patches + ' + Me.tpg_MIDI_Patches.Controls.Add(Me.spn_p_midi_mt32_partials) + Me.tpg_MIDI_Patches.Controls.Add(Me.spn_p_midi_mt32_reverb_level) + Me.tpg_MIDI_Patches.Controls.Add(Me.spn_p_midi_mt32_reverb_time) + Me.tpg_MIDI_Patches.Controls.Add(Me.cmb_p_midi_mt32_reverb_mode) + Me.tpg_MIDI_Patches.Controls.Add(Me.cmb_p_midi_mt32_dac) + Me.tpg_MIDI_Patches.Controls.Add(Me.chb_p_midi_mt32_thread) + Me.tpg_MIDI_Patches.Controls.Add(Me.chb_p_midi_mt32_verbose) + Me.tpg_MIDI_Patches.Controls.Add(Me.chb_p_midi_mt32_reverse_stereo) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_partials) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_reverb_level) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_reverb_time) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_reverb_mode) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_dac) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_thread) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_verbose) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mt32_reverse_stereo) + Me.tpg_MIDI_Patches.Controls.Add(Me.txb_p_midi_midiconfig) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_midiconfig) + Me.tpg_MIDI_Patches.Controls.Add(Me.cmb_p_midi_mididevice) + Me.tpg_MIDI_Patches.Controls.Add(Me.lbl_p_midi_mididevice) + Me.tpg_MIDI_Patches.Name = "tpg_MIDI_Patches" + Me.tpg_MIDI_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_MIDI_Patches.Text = "MIDI (Patches)" + ' + 'spn_p_midi_mt32_partials + ' + Me.spn_p_midi_mt32_partials.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_partials", True)) + Me.spn_p_midi_mt32_partials.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_DOSBox_Configs, "p_midi_mt32_partials", True)) + Me.spn_p_midi_mt32_partials.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_midi_mt32_partials.Enabled = False + Me.spn_p_midi_mt32_partials.Location = New System.Drawing.Point(123, 210) + Me.spn_p_midi_mt32_partials.MKBoundLabel = Me.lbl_p_midi_mt32_partials + Me.spn_p_midi_mt32_partials.MKEditValue_Compare = Nothing + Me.spn_p_midi_mt32_partials.Name = "spn_p_midi_mt32_partials" + Me.spn_p_midi_mt32_partials.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_midi_mt32_partials.Properties.IsFloatValue = False + Me.spn_p_midi_mt32_partials.Properties.Mask.EditMask = "N00" + Me.spn_p_midi_mt32_partials.Properties.MaxValue = New Decimal(New Integer() {256, 0, 0, 0}) + Me.spn_p_midi_mt32_partials.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem217.Text = "MT-32 Partials" + ToolTipItem215.LeftIndent = 6 + ToolTipItem215.Text = "MT-32 max partials allowed" + SuperToolTip217.Items.Add(ToolTipTitleItem217) + SuperToolTip217.Items.Add(ToolTipItem215) + Me.spn_p_midi_mt32_partials.SuperTip = SuperToolTip217 + Me.spn_p_midi_mt32_partials.TabIndex = 9 + ' + 'lbl_p_midi_mt32_partials + ' + Me.lbl_p_midi_mt32_partials.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_partials.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_partials.Enabled = False + Me.lbl_p_midi_mt32_partials.Location = New System.Drawing.Point(3, 210) + Me.lbl_p_midi_mt32_partials.MKBoundControl1 = Me.spn_p_midi_mt32_partials + Me.lbl_p_midi_mt32_partials.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_partials.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_partials.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_partials.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_partials.Name = "lbl_p_midi_mt32_partials" + Me.lbl_p_midi_mt32_partials.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem216.Text = "MT-32 Partials" + ToolTipItem214.LeftIndent = 6 + ToolTipItem214.Text = "MT-32 max partials allowed" + SuperToolTip216.Items.Add(ToolTipTitleItem216) + SuperToolTip216.Items.Add(ToolTipItem214) + Me.lbl_p_midi_mt32_partials.SuperTip = SuperToolTip216 + Me.lbl_p_midi_mt32_partials.TabIndex = 34 + Me.lbl_p_midi_mt32_partials.Text = "MT-32 Partials:" + ' + 'spn_p_midi_mt32_reverb_level + ' + Me.spn_p_midi_mt32_reverb_level.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_reverb_level", True)) + Me.spn_p_midi_mt32_reverb_level.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_reverb_level", True)) + Me.spn_p_midi_mt32_reverb_level.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_midi_mt32_reverb_level.Enabled = False + Me.spn_p_midi_mt32_reverb_level.Location = New System.Drawing.Point(123, 187) + Me.spn_p_midi_mt32_reverb_level.MKBoundLabel = Me.lbl_p_midi_mt32_reverb_level + Me.spn_p_midi_mt32_reverb_level.MKEditValue_Compare = Nothing + Me.spn_p_midi_mt32_reverb_level.Name = "spn_p_midi_mt32_reverb_level" + Me.spn_p_midi_mt32_reverb_level.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_midi_mt32_reverb_level.Properties.IsFloatValue = False + Me.spn_p_midi_mt32_reverb_level.Properties.Mask.EditMask = "N00" + Me.spn_p_midi_mt32_reverb_level.Properties.MaxValue = New Decimal(New Integer() {7, 0, 0, 0}) + Me.spn_p_midi_mt32_reverb_level.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem219.Text = "MT-32 Reverb Level" + SuperToolTip219.Items.Add(ToolTipTitleItem219) + Me.spn_p_midi_mt32_reverb_level.SuperTip = SuperToolTip219 + Me.spn_p_midi_mt32_reverb_level.TabIndex = 8 + ' + 'lbl_p_midi_mt32_reverb_level + ' + Me.lbl_p_midi_mt32_reverb_level.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_reverb_level.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_reverb_level.Enabled = False + Me.lbl_p_midi_mt32_reverb_level.Location = New System.Drawing.Point(3, 187) + Me.lbl_p_midi_mt32_reverb_level.MKBoundControl1 = Me.spn_p_midi_mt32_reverb_level + Me.lbl_p_midi_mt32_reverb_level.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_reverb_level.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_reverb_level.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_reverb_level.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_reverb_level.Name = "lbl_p_midi_mt32_reverb_level" + Me.lbl_p_midi_mt32_reverb_level.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem218.Text = "MT-32 Reverb Level" + SuperToolTip218.Items.Add(ToolTipTitleItem218) + Me.lbl_p_midi_mt32_reverb_level.SuperTip = SuperToolTip218 + Me.lbl_p_midi_mt32_reverb_level.TabIndex = 34 + Me.lbl_p_midi_mt32_reverb_level.Text = "MT-32 Reverb Level:" + ' + 'spn_p_midi_mt32_reverb_time + ' + Me.spn_p_midi_mt32_reverb_time.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_reverb_time", True)) + Me.spn_p_midi_mt32_reverb_time.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_reverb_time", True)) + Me.spn_p_midi_mt32_reverb_time.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_midi_mt32_reverb_time.Enabled = False + Me.spn_p_midi_mt32_reverb_time.Location = New System.Drawing.Point(123, 164) + Me.spn_p_midi_mt32_reverb_time.MKBoundLabel = Me.lbl_p_midi_mt32_reverb_time + Me.spn_p_midi_mt32_reverb_time.MKEditValue_Compare = Nothing + Me.spn_p_midi_mt32_reverb_time.Name = "spn_p_midi_mt32_reverb_time" + Me.spn_p_midi_mt32_reverb_time.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_midi_mt32_reverb_time.Properties.IsFloatValue = False + Me.spn_p_midi_mt32_reverb_time.Properties.Mask.EditMask = "N00" + Me.spn_p_midi_mt32_reverb_time.Properties.MaxValue = New Decimal(New Integer() {7, 0, 0, 0}) + Me.spn_p_midi_mt32_reverb_time.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem221.Text = "MT-32 Reverb Time" + ToolTipItem217.LeftIndent = 6 + ToolTipItem217.Text = "MT-32 reverb decaying time." + SuperToolTip221.Items.Add(ToolTipTitleItem221) + SuperToolTip221.Items.Add(ToolTipItem217) + Me.spn_p_midi_mt32_reverb_time.SuperTip = SuperToolTip221 + Me.spn_p_midi_mt32_reverb_time.TabIndex = 7 + ' + 'lbl_p_midi_mt32_reverb_time + ' + Me.lbl_p_midi_mt32_reverb_time.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_reverb_time.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_reverb_time.Enabled = False + Me.lbl_p_midi_mt32_reverb_time.Location = New System.Drawing.Point(3, 164) + Me.lbl_p_midi_mt32_reverb_time.MKBoundControl1 = Me.spn_p_midi_mt32_reverb_time + Me.lbl_p_midi_mt32_reverb_time.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_reverb_time.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_reverb_time.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_reverb_time.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_reverb_time.Name = "lbl_p_midi_mt32_reverb_time" + Me.lbl_p_midi_mt32_reverb_time.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem220.Text = "MT-32 Reverb Time" + ToolTipItem216.LeftIndent = 6 + ToolTipItem216.Text = "MT-32 reverb decaying time." + SuperToolTip220.Items.Add(ToolTipTitleItem220) + SuperToolTip220.Items.Add(ToolTipItem216) + Me.lbl_p_midi_mt32_reverb_time.SuperTip = SuperToolTip220 + Me.lbl_p_midi_mt32_reverb_time.TabIndex = 34 + Me.lbl_p_midi_mt32_reverb_time.Text = "MT-32 Reverb Time:" + ' + 'cmb_p_midi_mt32_reverb_mode + ' + Me.cmb_p_midi_mt32_reverb_mode.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_reverb_mode", True)) + Me.cmb_p_midi_mt32_reverb_mode.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_reverb_mode", True)) + Me.cmb_p_midi_mt32_reverb_mode.Enabled = False + Me.cmb_p_midi_mt32_reverb_mode.Location = New System.Drawing.Point(123, 141) + Me.cmb_p_midi_mt32_reverb_mode.MKBoundLabel = Me.lbl_p_midi_mt32_reverb_mode + Me.cmb_p_midi_mt32_reverb_mode.MKEditValue_Compare = Nothing + Me.cmb_p_midi_mt32_reverb_mode.Name = "cmb_p_midi_mt32_reverb_mode" + Me.cmb_p_midi_mt32_reverb_mode.Properties.AllowFocused = False + Me.cmb_p_midi_mt32_reverb_mode.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_midi_mt32_reverb_mode.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 28, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_midi_mt32_reverb_mode.Properties.DataSource = Me.BTA_p_midi_mt32_reverb_mode + Me.cmb_p_midi_mt32_reverb_mode.Properties.DisplayMember = "value" + Me.cmb_p_midi_mt32_reverb_mode.Properties.NullText = "" + Me.cmb_p_midi_mt32_reverb_mode.Properties.ShowFooter = False + Me.cmb_p_midi_mt32_reverb_mode.Properties.ShowHeader = False + Me.cmb_p_midi_mt32_reverb_mode.Properties.ValueMember = "value" + Me.cmb_p_midi_mt32_reverb_mode.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem223.Text = "MT-32 Reverb Mode" + SuperToolTip223.Items.Add(ToolTipTitleItem223) + Me.cmb_p_midi_mt32_reverb_mode.SuperTip = SuperToolTip223 + Me.cmb_p_midi_mt32_reverb_mode.TabIndex = 6 + ' + 'lbl_p_midi_mt32_reverb_mode + ' + Me.lbl_p_midi_mt32_reverb_mode.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_reverb_mode.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_reverb_mode.Enabled = False + Me.lbl_p_midi_mt32_reverb_mode.Location = New System.Drawing.Point(3, 141) + Me.lbl_p_midi_mt32_reverb_mode.MKBoundControl1 = Me.cmb_p_midi_mt32_reverb_mode + Me.lbl_p_midi_mt32_reverb_mode.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_reverb_mode.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_reverb_mode.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_reverb_mode.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_reverb_mode.Name = "lbl_p_midi_mt32_reverb_mode" + Me.lbl_p_midi_mt32_reverb_mode.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem222.Text = "MT-32 Reverb Mode" + SuperToolTip222.Items.Add(ToolTipTitleItem222) + Me.lbl_p_midi_mt32_reverb_mode.SuperTip = SuperToolTip222 + Me.lbl_p_midi_mt32_reverb_mode.TabIndex = 34 + Me.lbl_p_midi_mt32_reverb_mode.Text = "MT-32 Reverb Mode:" + ' + 'BTA_p_midi_mt32_reverb_mode + ' + Me.BTA_p_midi_mt32_reverb_mode.AllowDelete = True + Me.BTA_p_midi_mt32_reverb_mode.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_midi_mt32_reverb_mode.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_midi_mt32_reverb_mode.Connection = Nothing + Me.BTA_p_midi_mt32_reverb_mode.DSStream = CType(resources.GetObject("BTA_p_midi_mt32_reverb_mode.DSStream"), System.IO.MemoryStream) + Me.BTA_p_midi_mt32_reverb_mode.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_midi_mt32_reverb_mode.FillString = "auto;0;1;2;3" + Me.BTA_p_midi_mt32_reverb_mode.Position = 0 + Me.BTA_p_midi_mt32_reverb_mode.Transaction = Nothing + Me.BTA_p_midi_mt32_reverb_mode.UpdateTablesStream = CType(resources.GetObject("BTA_p_midi_mt32_reverb_mode.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'cmb_p_midi_mt32_dac + ' + Me.cmb_p_midi_mt32_dac.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_dac", True)) + Me.cmb_p_midi_mt32_dac.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_dac", True)) + Me.cmb_p_midi_mt32_dac.Enabled = False + Me.cmb_p_midi_mt32_dac.Location = New System.Drawing.Point(123, 118) + Me.cmb_p_midi_mt32_dac.MKBoundLabel = Me.lbl_p_midi_mt32_dac + Me.cmb_p_midi_mt32_dac.MKEditValue_Compare = Nothing + Me.cmb_p_midi_mt32_dac.Name = "cmb_p_midi_mt32_dac" + Me.cmb_p_midi_mt32_dac.Properties.AllowFocused = False + Me.cmb_p_midi_mt32_dac.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_midi_mt32_dac.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 28, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("displaytext", "displaytext", 77, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_midi_mt32_dac.Properties.DataSource = Me.BTA_p_midi_mt32_dac + Me.cmb_p_midi_mt32_dac.Properties.DisplayMember = "displaytext" + Me.cmb_p_midi_mt32_dac.Properties.NullText = "" + Me.cmb_p_midi_mt32_dac.Properties.ShowFooter = False + Me.cmb_p_midi_mt32_dac.Properties.ShowHeader = False + Me.cmb_p_midi_mt32_dac.Properties.ValueMember = "value" + Me.cmb_p_midi_mt32_dac.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem225.Text = "MT-32 DAC" + ToolTipItem219.LeftIndent = 6 + ToolTipItem219.Text = resources.GetString("ToolTipItem219.Text") + SuperToolTip225.Items.Add(ToolTipTitleItem225) + SuperToolTip225.Items.Add(ToolTipItem219) + Me.cmb_p_midi_mt32_dac.SuperTip = SuperToolTip225 + Me.cmb_p_midi_mt32_dac.TabIndex = 5 + ' + 'lbl_p_midi_mt32_dac + ' + Me.lbl_p_midi_mt32_dac.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_dac.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_dac.Enabled = False + Me.lbl_p_midi_mt32_dac.Location = New System.Drawing.Point(3, 118) + Me.lbl_p_midi_mt32_dac.MKBoundControl1 = Me.cmb_p_midi_mt32_dac + Me.lbl_p_midi_mt32_dac.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_dac.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_dac.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_dac.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_dac.Name = "lbl_p_midi_mt32_dac" + Me.lbl_p_midi_mt32_dac.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem224.Text = "MT-32 DAC" + ToolTipItem218.LeftIndent = 6 + ToolTipItem218.Text = resources.GetString("ToolTipItem218.Text") + SuperToolTip224.Items.Add(ToolTipTitleItem224) + SuperToolTip224.Items.Add(ToolTipItem218) + Me.lbl_p_midi_mt32_dac.SuperTip = SuperToolTip224 + Me.lbl_p_midi_mt32_dac.TabIndex = 34 + Me.lbl_p_midi_mt32_dac.Text = "MT-32 DAC:" + ' + 'BTA_p_midi_mt32_dac + ' + Me.BTA_p_midi_mt32_dac.AllowDelete = True + Me.BTA_p_midi_mt32_dac.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_midi_mt32_dac.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_midi_mt32_dac.Connection = Nothing + Me.BTA_p_midi_mt32_dac.DSStream = CType(resources.GetObject("BTA_p_midi_mt32_dac.DSStream"), System.IO.MemoryStream) + Me.BTA_p_midi_mt32_dac.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_midi_mt32_dac.FillString = "auto;auto;0;Nice;1;Pure;2;GENERATION1;3;GENERATION2" + Me.BTA_p_midi_mt32_dac.Position = 0 + Me.BTA_p_midi_mt32_dac.Transaction = Nothing + Me.BTA_p_midi_mt32_dac.UpdateTablesStream = CType(resources.GetObject("BTA_p_midi_mt32_dac.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_p_midi_mt32_thread + ' + Me.chb_p_midi_mt32_thread.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_thread", True)) + Me.chb_p_midi_mt32_thread.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_thread", True)) + Me.chb_p_midi_mt32_thread.Enabled = False + Me.chb_p_midi_mt32_thread.Location = New System.Drawing.Point(123, 95) + Me.chb_p_midi_mt32_thread.MKBoundLabel = Me.lbl_p_midi_mt32_thread + Me.chb_p_midi_mt32_thread.MKEditValue_Compare = Nothing + Me.chb_p_midi_mt32_thread.Name = "chb_p_midi_mt32_thread" + Me.chb_p_midi_mt32_thread.Properties.Caption = "" + Me.chb_p_midi_mt32_thread.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem227.Text = "MT-32 Thread" + ToolTipItem221.LeftIndent = 6 + ToolTipItem221.Text = "Enable MT-32 rendering in separate thread." + SuperToolTip227.Items.Add(ToolTipTitleItem227) + SuperToolTip227.Items.Add(ToolTipItem221) + Me.chb_p_midi_mt32_thread.SuperTip = SuperToolTip227 + Me.chb_p_midi_mt32_thread.TabIndex = 4 + ' + 'lbl_p_midi_mt32_thread + ' + Me.lbl_p_midi_mt32_thread.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_thread.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_thread.Enabled = False + Me.lbl_p_midi_mt32_thread.Location = New System.Drawing.Point(3, 95) + Me.lbl_p_midi_mt32_thread.MKBoundControl1 = Me.chb_p_midi_mt32_thread + Me.lbl_p_midi_mt32_thread.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_thread.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_thread.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_thread.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_thread.Name = "lbl_p_midi_mt32_thread" + Me.lbl_p_midi_mt32_thread.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem226.Text = "MT-32 Thread" + ToolTipItem220.LeftIndent = 6 + ToolTipItem220.Text = "Enable MT-32 rendering in separate thread." + SuperToolTip226.Items.Add(ToolTipTitleItem226) + SuperToolTip226.Items.Add(ToolTipItem220) + Me.lbl_p_midi_mt32_thread.SuperTip = SuperToolTip226 + Me.lbl_p_midi_mt32_thread.TabIndex = 34 + Me.lbl_p_midi_mt32_thread.Text = "MT-32 Thread:" + ' + 'chb_p_midi_mt32_verbose + ' + Me.chb_p_midi_mt32_verbose.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_verbose", True)) + Me.chb_p_midi_mt32_verbose.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_verbose", True)) + Me.chb_p_midi_mt32_verbose.Enabled = False + Me.chb_p_midi_mt32_verbose.Location = New System.Drawing.Point(123, 72) + Me.chb_p_midi_mt32_verbose.MKBoundLabel = Me.lbl_p_midi_mt32_verbose + Me.chb_p_midi_mt32_verbose.MKEditValue_Compare = Nothing + Me.chb_p_midi_mt32_verbose.Name = "chb_p_midi_mt32_verbose" + Me.chb_p_midi_mt32_verbose.Properties.Caption = "" + Me.chb_p_midi_mt32_verbose.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem229.Text = "MT-32 Verbose" + ToolTipItem223.LeftIndent = 6 + ToolTipItem223.Text = "Enable MT-32 debug logging." + SuperToolTip229.Items.Add(ToolTipTitleItem229) + SuperToolTip229.Items.Add(ToolTipItem223) + Me.chb_p_midi_mt32_verbose.SuperTip = SuperToolTip229 + Me.chb_p_midi_mt32_verbose.TabIndex = 3 + ' + 'lbl_p_midi_mt32_verbose + ' + Me.lbl_p_midi_mt32_verbose.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_verbose.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_verbose.Enabled = False + Me.lbl_p_midi_mt32_verbose.Location = New System.Drawing.Point(3, 72) + Me.lbl_p_midi_mt32_verbose.MKBoundControl1 = Me.chb_p_midi_mt32_verbose + Me.lbl_p_midi_mt32_verbose.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_verbose.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_verbose.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_verbose.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_verbose.Name = "lbl_p_midi_mt32_verbose" + Me.lbl_p_midi_mt32_verbose.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem228.Text = "MT-32 Verbose" + ToolTipItem222.LeftIndent = 6 + ToolTipItem222.Text = "Enable MT-32 debug logging." + SuperToolTip228.Items.Add(ToolTipTitleItem228) + SuperToolTip228.Items.Add(ToolTipItem222) + Me.lbl_p_midi_mt32_verbose.SuperTip = SuperToolTip228 + Me.lbl_p_midi_mt32_verbose.TabIndex = 34 + Me.lbl_p_midi_mt32_verbose.Text = "MT-32 Verbose:" + ' + 'chb_p_midi_mt32_reverse_stereo + ' + Me.chb_p_midi_mt32_reverse_stereo.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mt32_reverse_stereo", True)) + Me.chb_p_midi_mt32_reverse_stereo.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mt32_reverse_stereo", True)) + Me.chb_p_midi_mt32_reverse_stereo.Enabled = False + Me.chb_p_midi_mt32_reverse_stereo.Location = New System.Drawing.Point(123, 49) + Me.chb_p_midi_mt32_reverse_stereo.MKBoundLabel = Me.lbl_p_midi_mt32_reverse_stereo + Me.chb_p_midi_mt32_reverse_stereo.MKEditValue_Compare = Nothing + Me.chb_p_midi_mt32_reverse_stereo.Name = "chb_p_midi_mt32_reverse_stereo" + Me.chb_p_midi_mt32_reverse_stereo.Properties.Caption = "" + Me.chb_p_midi_mt32_reverse_stereo.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem231.Text = "MT-32 Reverse Stereo" + ToolTipItem225.LeftIndent = 6 + ToolTipItem225.Text = "Reverse stereo channels for MT-32 output." + SuperToolTip231.Items.Add(ToolTipTitleItem231) + SuperToolTip231.Items.Add(ToolTipItem225) + Me.chb_p_midi_mt32_reverse_stereo.SuperTip = SuperToolTip231 + Me.chb_p_midi_mt32_reverse_stereo.TabIndex = 2 + ' + 'lbl_p_midi_mt32_reverse_stereo + ' + Me.lbl_p_midi_mt32_reverse_stereo.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mt32_reverse_stereo.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mt32_reverse_stereo.Enabled = False + Me.lbl_p_midi_mt32_reverse_stereo.Location = New System.Drawing.Point(3, 49) + Me.lbl_p_midi_mt32_reverse_stereo.MKBoundControl1 = Me.chb_p_midi_mt32_reverse_stereo + Me.lbl_p_midi_mt32_reverse_stereo.MKBoundControl2 = Nothing + Me.lbl_p_midi_mt32_reverse_stereo.MKBoundControl3 = Nothing + Me.lbl_p_midi_mt32_reverse_stereo.MKBoundControl4 = Nothing + Me.lbl_p_midi_mt32_reverse_stereo.MKBoundControl5 = Nothing + Me.lbl_p_midi_mt32_reverse_stereo.Name = "lbl_p_midi_mt32_reverse_stereo" + Me.lbl_p_midi_mt32_reverse_stereo.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem230.Text = "MT-32 Reverse Stereo" + ToolTipItem224.LeftIndent = 6 + ToolTipItem224.Text = "Reverse stereo channels for MT-32 output." + SuperToolTip230.Items.Add(ToolTipTitleItem230) + SuperToolTip230.Items.Add(ToolTipItem224) + Me.lbl_p_midi_mt32_reverse_stereo.SuperTip = SuperToolTip230 + Me.lbl_p_midi_mt32_reverse_stereo.TabIndex = 34 + Me.lbl_p_midi_mt32_reverse_stereo.Text = "MT-32 Reverse Stereo:" + ' + 'txb_p_midi_midiconfig + ' + Me.txb_p_midi_midiconfig.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "midi-midiconfig", True)) + Me.txb_p_midi_midiconfig.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "midi-midiconfig", True)) + Me.txb_p_midi_midiconfig.Location = New System.Drawing.Point(123, 26) + Me.txb_p_midi_midiconfig.MKBoundLabel = Me.lbl_p_midi_midiconfig + Me.txb_p_midi_midiconfig.MKEditValue_Compare = Nothing + Me.txb_p_midi_midiconfig.Name = "txb_p_midi_midiconfig" + Me.txb_p_midi_midiconfig.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem233.Text = "MIDI Config" + ToolTipItem227.LeftIndent = 6 + ToolTipItem227.Text = resources.GetString("ToolTipItem227.Text") + SuperToolTip233.Items.Add(ToolTipTitleItem233) + SuperToolTip233.Items.Add(ToolTipItem227) + Me.txb_p_midi_midiconfig.SuperTip = SuperToolTip233 + Me.txb_p_midi_midiconfig.TabIndex = 1 + ' + 'lbl_p_midi_midiconfig + ' + Me.lbl_p_midi_midiconfig.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_midiconfig.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_midiconfig.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_midi_midiconfig.MKBoundControl1 = Me.txb_p_midi_midiconfig + Me.lbl_p_midi_midiconfig.MKBoundControl2 = Nothing + Me.lbl_p_midi_midiconfig.MKBoundControl3 = Nothing + Me.lbl_p_midi_midiconfig.MKBoundControl4 = Nothing + Me.lbl_p_midi_midiconfig.MKBoundControl5 = Nothing + Me.lbl_p_midi_midiconfig.Name = "lbl_p_midi_midiconfig" + Me.lbl_p_midi_midiconfig.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem232.Text = "MIDI Config" + ToolTipItem226.LeftIndent = 6 + ToolTipItem226.Text = resources.GetString("ToolTipItem226.Text") + SuperToolTip232.Items.Add(ToolTipTitleItem232) + SuperToolTip232.Items.Add(ToolTipItem226) + Me.lbl_p_midi_midiconfig.SuperTip = SuperToolTip232 + Me.lbl_p_midi_midiconfig.TabIndex = 32 + Me.lbl_p_midi_midiconfig.Text = "MIDI Config:" + ' + 'cmb_p_midi_mididevice + ' + Me.cmb_p_midi_mididevice.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_midi_mididevice", True)) + Me.cmb_p_midi_mididevice.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_midi_mididevice", True)) + Me.cmb_p_midi_mididevice.Location = New System.Drawing.Point(123, 3) + Me.cmb_p_midi_mididevice.MKBoundLabel = Me.lbl_p_midi_mididevice + Me.cmb_p_midi_mididevice.MKEditValue_Compare = Nothing + Me.cmb_p_midi_mididevice.Name = "cmb_p_midi_mididevice" + Me.cmb_p_midi_mididevice.Properties.AllowFocused = False + Me.cmb_p_midi_mididevice.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.cmb_p_midi_mididevice.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 64, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_midi_mididevice.Properties.DataSource = Me.BTA_p_midi_mididevice + Me.cmb_p_midi_mididevice.Properties.DisplayMember = "value" + Me.cmb_p_midi_mididevice.Properties.NullText = "" + Me.cmb_p_midi_mididevice.Properties.ShowFooter = False + Me.cmb_p_midi_mididevice.Properties.ShowHeader = False + Me.cmb_p_midi_mididevice.Properties.ValueMember = "value" + Me.cmb_p_midi_mididevice.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem235.Text = "MIDI Device" + ToolTipItem229.LeftIndent = 6 + ToolTipItem229.Text = "Some patches introduce new types of MIDI devices. This setting overrides the (sta" & + "ndard) MIDI device setting." + SuperToolTip235.Items.Add(ToolTipTitleItem235) + SuperToolTip235.Items.Add(ToolTipItem229) + Me.cmb_p_midi_mididevice.SuperTip = SuperToolTip235 + Me.cmb_p_midi_mididevice.TabIndex = 0 + ' + 'lbl_p_midi_mididevice + ' + Me.lbl_p_midi_mididevice.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_midi_mididevice.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_midi_mididevice.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_midi_mididevice.MKBoundControl1 = Me.cmb_p_midi_mididevice + Me.lbl_p_midi_mididevice.MKBoundControl2 = Nothing + Me.lbl_p_midi_mididevice.MKBoundControl3 = Nothing + Me.lbl_p_midi_mididevice.MKBoundControl4 = Nothing + Me.lbl_p_midi_mididevice.MKBoundControl5 = Nothing + Me.lbl_p_midi_mididevice.Name = "lbl_p_midi_mididevice" + Me.lbl_p_midi_mididevice.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem234.Text = "MIDI Device" + ToolTipItem228.LeftIndent = 6 + ToolTipItem228.Text = "Some patches introduce new types of MIDI devices. This setting overrides the (sta" & + "ndard) MIDI device setting." + SuperToolTip234.Items.Add(ToolTipTitleItem234) + SuperToolTip234.Items.Add(ToolTipItem228) + Me.lbl_p_midi_mididevice.SuperTip = SuperToolTip234 + Me.lbl_p_midi_mididevice.TabIndex = 31 + Me.lbl_p_midi_mididevice.Text = "MIDI Device:" + ' + 'BTA_p_midi_mididevice + ' + Me.BTA_p_midi_mididevice.AllowDelete = True + Me.BTA_p_midi_mididevice.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_midi_mididevice.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_midi_mididevice.Connection = Nothing + Me.BTA_p_midi_mididevice.DSStream = CType(resources.GetObject("BTA_p_midi_mididevice.DSStream"), System.IO.MemoryStream) + Me.BTA_p_midi_mididevice.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_midi_mididevice.FillString = "mt32;synth;timidity" + Me.BTA_p_midi_mididevice.Position = 0 + Me.BTA_p_midi_mididevice.Transaction = Nothing + Me.BTA_p_midi_mididevice.UpdateTablesStream = CType(resources.GetObject("BTA_p_midi_mididevice.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'tpg_SSI_2001_Patches + ' + Me.tpg_SSI_2001_Patches.Controls.Add(Me.lbl_p_ssi2001) + Me.tpg_SSI_2001_Patches.Name = "tpg_SSI_2001_Patches" + Me.tpg_SSI_2001_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_SSI_2001_Patches.Text = "SSI-2001 (Patches)" + ' + 'lbl_p_ssi2001 + ' + Me.lbl_p_ssi2001.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_p_ssi2001.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_ssi2001.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ssi2001.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_ssi2001.MKBoundControl1 = Nothing + Me.lbl_p_ssi2001.MKBoundControl2 = Nothing + Me.lbl_p_ssi2001.MKBoundControl3 = Nothing + Me.lbl_p_ssi2001.MKBoundControl4 = Nothing + Me.lbl_p_ssi2001.MKBoundControl5 = Nothing + Me.lbl_p_ssi2001.Name = "lbl_p_ssi2001" + Me.lbl_p_ssi2001.Size = New System.Drawing.Size(540, 20) + Me.lbl_p_ssi2001.TabIndex = 26 + Me.lbl_p_ssi2001.Text = "There are currently no settings for SSI-2001 (Patches)." + ' + 'tpg_PS1_Audio_Patches + ' + Me.tpg_PS1_Audio_Patches.Controls.Add(Me.lbl_p_ps1audio) + Me.tpg_PS1_Audio_Patches.Name = "tpg_PS1_Audio_Patches" + Me.tpg_PS1_Audio_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_PS1_Audio_Patches.Text = "PS/1 Audio (Patches)" + ' + 'lbl_p_ps1audio + ' + Me.lbl_p_ps1audio.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_p_ps1audio.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_ps1audio.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ps1audio.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_ps1audio.MKBoundControl1 = Nothing + Me.lbl_p_ps1audio.MKBoundControl2 = Nothing + Me.lbl_p_ps1audio.MKBoundControl3 = Nothing + Me.lbl_p_ps1audio.MKBoundControl4 = Nothing + Me.lbl_p_ps1audio.MKBoundControl5 = Nothing + Me.lbl_p_ps1audio.Name = "lbl_p_ps1audio" + Me.lbl_p_ps1audio.Size = New System.Drawing.Size(540, 20) + Me.lbl_p_ps1audio.TabIndex = 26 + Me.lbl_p_ps1audio.Text = "There are currently no settings for PS/1 Audio (Patches)." + ' + 'tpg_Keyboard_Mouse_Patches + ' + Me.tpg_Keyboard_Mouse_Patches.Controls.Add(Me.cmb_p_keyboard_auxdevice) + Me.tpg_Keyboard_Mouse_Patches.Controls.Add(Me.chb_p_keyboard_aux) + Me.tpg_Keyboard_Mouse_Patches.Controls.Add(Me.lbl_p_keyboard_auxdevice) + Me.tpg_Keyboard_Mouse_Patches.Controls.Add(Me.lbl_p_keyboard_aux) + Me.tpg_Keyboard_Mouse_Patches.Name = "tpg_Keyboard_Mouse_Patches" + Me.tpg_Keyboard_Mouse_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Keyboard_Mouse_Patches.Text = "Keyboard & Mouse (Patches)" + ' + 'cmb_p_keyboard_auxdevice + ' + Me.cmb_p_keyboard_auxdevice.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_keyboard_auxdevice", True)) + Me.cmb_p_keyboard_auxdevice.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_keyboard_auxdevice", True)) + Me.cmb_p_keyboard_auxdevice.Enabled = False + Me.cmb_p_keyboard_auxdevice.Location = New System.Drawing.Point(123, 26) + Me.cmb_p_keyboard_auxdevice.MKBoundLabel = Me.lbl_p_keyboard_auxdevice + Me.cmb_p_keyboard_auxdevice.MKEditValue_Compare = Nothing + Me.cmb_p_keyboard_auxdevice.Name = "cmb_p_keyboard_auxdevice" + Me.cmb_p_keyboard_auxdevice.Properties.AllowFocused = False + Me.cmb_p_keyboard_auxdevice.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_p_keyboard_auxdevice.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("value", "value", 18, DevExpress.Utils.FormatType.Numeric, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_p_keyboard_auxdevice.Properties.DataSource = Me.BTA_p_keyboard_auxdevice + Me.cmb_p_keyboard_auxdevice.Properties.DisplayMember = "value" + Me.cmb_p_keyboard_auxdevice.Properties.NullText = "" + Me.cmb_p_keyboard_auxdevice.Properties.ShowFooter = False + Me.cmb_p_keyboard_auxdevice.Properties.ShowHeader = False + Me.cmb_p_keyboard_auxdevice.Properties.ValueMember = "value" + Me.cmb_p_keyboard_auxdevice.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem237.Text = "AUX Device" + ToolTipItem231.LeftIndent = 6 + ToolTipItem231.Text = "Type of PS/2 mouse attached to the AUX port." + SuperToolTip237.Items.Add(ToolTipTitleItem237) + SuperToolTip237.Items.Add(ToolTipItem231) + Me.cmb_p_keyboard_auxdevice.SuperTip = SuperToolTip237 + Me.cmb_p_keyboard_auxdevice.TabIndex = 1 + ' + 'lbl_p_keyboard_auxdevice + ' + Me.lbl_p_keyboard_auxdevice.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_keyboard_auxdevice.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_keyboard_auxdevice.Enabled = False + Me.lbl_p_keyboard_auxdevice.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_keyboard_auxdevice.MKBoundControl1 = Me.cmb_p_keyboard_auxdevice + Me.lbl_p_keyboard_auxdevice.MKBoundControl2 = Nothing + Me.lbl_p_keyboard_auxdevice.MKBoundControl3 = Nothing + Me.lbl_p_keyboard_auxdevice.MKBoundControl4 = Nothing + Me.lbl_p_keyboard_auxdevice.MKBoundControl5 = Nothing + Me.lbl_p_keyboard_auxdevice.Name = "lbl_p_keyboard_auxdevice" + Me.lbl_p_keyboard_auxdevice.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem236.Text = "AUX Device" + ToolTipItem230.LeftIndent = 6 + ToolTipItem230.Text = "Type of PS/2 mouse attached to the AUX port." + SuperToolTip236.Items.Add(ToolTipTitleItem236) + SuperToolTip236.Items.Add(ToolTipItem230) + Me.lbl_p_keyboard_auxdevice.SuperTip = SuperToolTip236 + Me.lbl_p_keyboard_auxdevice.TabIndex = 30 + Me.lbl_p_keyboard_auxdevice.Text = "AUX Device:" + ' + 'BTA_p_keyboard_auxdevice + ' + Me.BTA_p_keyboard_auxdevice.AllowDelete = True + Me.BTA_p_keyboard_auxdevice.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_p_keyboard_auxdevice.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_p_keyboard_auxdevice.Connection = Nothing + Me.BTA_p_keyboard_auxdevice.DSStream = CType(resources.GetObject("BTA_p_keyboard_auxdevice.DSStream"), System.IO.MemoryStream) + Me.BTA_p_keyboard_auxdevice.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_p_keyboard_auxdevice.FillString = "none;2button;3button;intellimouse;intellimouse45" + Me.BTA_p_keyboard_auxdevice.Position = 0 + Me.BTA_p_keyboard_auxdevice.Transaction = Nothing + Me.BTA_p_keyboard_auxdevice.UpdateTablesStream = CType(resources.GetObject("BTA_p_keyboard_auxdevice.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'chb_p_keyboard_aux + ' + Me.chb_p_keyboard_aux.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_keyboard_aux", True)) + Me.chb_p_keyboard_aux.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_keyboard_aux", True)) + Me.chb_p_keyboard_aux.Location = New System.Drawing.Point(123, 3) + Me.chb_p_keyboard_aux.MKBoundLabel = Me.lbl_p_keyboard_aux + Me.chb_p_keyboard_aux.MKEditValue_Compare = Nothing + Me.chb_p_keyboard_aux.Name = "chb_p_keyboard_aux" + Me.chb_p_keyboard_aux.Properties.Caption = "" + Me.chb_p_keyboard_aux.Size = New System.Drawing.Size(24, 19) + ToolTipTitleItem239.Text = "AUX Support" + ToolTipItem233.LeftIndent = 6 + ToolTipItem233.Text = resources.GetString("ToolTipItem233.Text") + SuperToolTip239.Items.Add(ToolTipTitleItem239) + SuperToolTip239.Items.Add(ToolTipItem233) + Me.chb_p_keyboard_aux.SuperTip = SuperToolTip239 + Me.chb_p_keyboard_aux.TabIndex = 0 + ' + 'lbl_p_keyboard_aux + ' + Me.lbl_p_keyboard_aux.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_keyboard_aux.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_keyboard_aux.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_keyboard_aux.MKBoundControl1 = Me.chb_p_keyboard_aux + Me.lbl_p_keyboard_aux.MKBoundControl2 = Nothing + Me.lbl_p_keyboard_aux.MKBoundControl3 = Nothing + Me.lbl_p_keyboard_aux.MKBoundControl4 = Nothing + Me.lbl_p_keyboard_aux.MKBoundControl5 = Nothing + Me.lbl_p_keyboard_aux.Name = "lbl_p_keyboard_aux" + Me.lbl_p_keyboard_aux.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem238.Text = "AUX Support" + ToolTipItem232.LeftIndent = 6 + ToolTipItem232.Text = resources.GetString("ToolTipItem232.Text") + SuperToolTip238.Items.Add(ToolTipTitleItem238) + SuperToolTip238.Items.Add(ToolTipItem232) + Me.lbl_p_keyboard_aux.SuperTip = SuperToolTip238 + Me.lbl_p_keyboard_aux.TabIndex = 30 + Me.lbl_p_keyboard_aux.Text = "AUX Support:" + ' + 'tpg_Parallel_Ports_Patches + ' + Me.tpg_Parallel_Ports_Patches.Controls.Add(Me.lbl_p_parallelports) + Me.tpg_Parallel_Ports_Patches.Name = "tpg_Parallel_Ports_Patches" + Me.tpg_Parallel_Ports_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_Parallel_Ports_Patches.Text = "Parallel Ports (Patches)" + ' + 'lbl_p_parallelports + ' + Me.lbl_p_parallelports.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_p_parallelports.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_parallelports.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_parallelports.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_parallelports.MKBoundControl1 = Nothing + Me.lbl_p_parallelports.MKBoundControl2 = Nothing + Me.lbl_p_parallelports.MKBoundControl3 = Nothing + Me.lbl_p_parallelports.MKBoundControl4 = Nothing + Me.lbl_p_parallelports.MKBoundControl5 = Nothing + Me.lbl_p_parallelports.Name = "lbl_p_parallelports" + Me.lbl_p_parallelports.Size = New System.Drawing.Size(540, 20) + Me.lbl_p_parallelports.TabIndex = 26 + Me.lbl_p_parallelports.Text = "There are currently no settings for Parallel Port (Patches)." + ' + 'tpg_NE2000_Patches + ' + Me.tpg_NE2000_Patches.Controls.Add(Me.btn_p_ne2000_realnic_clear) + Me.tpg_NE2000_Patches.Controls.Add(Me.btn_p_ne2000_realnic) + Me.tpg_NE2000_Patches.Controls.Add(Me.txb_p_ne2000_realnic) + Me.tpg_NE2000_Patches.Controls.Add(Me.spn_p_ne2000_nicirq) + Me.tpg_NE2000_Patches.Controls.Add(Me.txb_p_ne2000_macaddr) + Me.tpg_NE2000_Patches.Controls.Add(Me.txb_p_ne2000_nicbase) + Me.tpg_NE2000_Patches.Controls.Add(Me.chb_p_ne2000_ne2000) + Me.tpg_NE2000_Patches.Controls.Add(Me.lbl_p_ne2000_realnic) + Me.tpg_NE2000_Patches.Controls.Add(Me.lbl_p_ne2000_macaddr) + Me.tpg_NE2000_Patches.Controls.Add(Me.lbl_p_ne2000_nicirq) + Me.tpg_NE2000_Patches.Controls.Add(Me.lbl_p_ne2000_nicbase) + Me.tpg_NE2000_Patches.Controls.Add(Me.lbl_p_ne2000_ne2000) + Me.tpg_NE2000_Patches.Name = "tpg_NE2000_Patches" + Me.tpg_NE2000_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_NE2000_Patches.Text = "NE-2000 (Patches)" + ' + 'btn_p_ne2000_realnic_clear + ' + Me.btn_p_ne2000_realnic_clear.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_p_ne2000_realnic_clear.Location = New System.Drawing.Point(508, 95) + Me.btn_p_ne2000_realnic_clear.Name = "btn_p_ne2000_realnic_clear" + Me.btn_p_ne2000_realnic_clear.Size = New System.Drawing.Size(35, 20) + SuperToolTip240.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem240.Text = "Clear Real NIC" + ToolTipItem234.LeftIndent = 6 + ToolTipItem234.Text = "Use this button to reset this setting to the default 'list' value." + SuperToolTip240.Items.Add(ToolTipTitleItem240) + SuperToolTip240.Items.Add(ToolTipItem234) + Me.btn_p_ne2000_realnic_clear.SuperTip = SuperToolTip240 + Me.btn_p_ne2000_realnic_clear.TabIndex = 6 + Me.btn_p_ne2000_realnic_clear.Text = "&clear" + ' + 'btn_p_ne2000_realnic + ' + Me.btn_p_ne2000_realnic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_p_ne2000_realnic.Location = New System.Drawing.Point(470, 95) + Me.btn_p_ne2000_realnic.Name = "btn_p_ne2000_realnic" + Me.btn_p_ne2000_realnic.Size = New System.Drawing.Size(35, 20) + SuperToolTip241.AllowHtmlText = DevExpress.Utils.DefaultBoolean.[True] + ToolTipTitleItem241.Text = "Select Real NIC" + ToolTipItem235.LeftIndent = 6 + ToolTipItem235.Text = "Use this button to choose from a list of your current network interface devices." + SuperToolTip241.Items.Add(ToolTipTitleItem241) + SuperToolTip241.Items.Add(ToolTipItem235) + Me.btn_p_ne2000_realnic.SuperTip = SuperToolTip241 + Me.btn_p_ne2000_realnic.TabIndex = 5 + Me.btn_p_ne2000_realnic.Text = "..." + ' + 'txb_p_ne2000_realnic + ' + Me.txb_p_ne2000_realnic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_p_ne2000_realnic.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_ne2000_realnic", True)) + Me.txb_p_ne2000_realnic.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_ne2000_realnic", True)) + Me.txb_p_ne2000_realnic.Location = New System.Drawing.Point(123, 95) + Me.txb_p_ne2000_realnic.MKBoundLabel = Me.lbl_p_ne2000_realnic + Me.txb_p_ne2000_realnic.MKEditValue_Compare = Nothing + Me.txb_p_ne2000_realnic.Name = "txb_p_ne2000_realnic" + Me.txb_p_ne2000_realnic.Size = New System.Drawing.Size(344, 20) + ToolTipTitleItem243.Text = "Real NIC" + ToolTipItem237.LeftIndent = 6 + ToolTipItem237.Text = "This parameter chooses which of your host's NICs the virtual network card is boun" & + "d to. It can either be identified by number or by a part of it's name (i.e. VIA)" & + "." + SuperToolTip243.Items.Add(ToolTipTitleItem243) + SuperToolTip243.Items.Add(ToolTipItem237) + Me.txb_p_ne2000_realnic.SuperTip = SuperToolTip243 + Me.txb_p_ne2000_realnic.TabIndex = 4 + ' + 'lbl_p_ne2000_realnic + ' + Me.lbl_p_ne2000_realnic.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_ne2000_realnic.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ne2000_realnic.Location = New System.Drawing.Point(3, 95) + Me.lbl_p_ne2000_realnic.MKBoundControl1 = Me.txb_p_ne2000_realnic + Me.lbl_p_ne2000_realnic.MKBoundControl2 = Nothing + Me.lbl_p_ne2000_realnic.MKBoundControl3 = Nothing + Me.lbl_p_ne2000_realnic.MKBoundControl4 = Nothing + Me.lbl_p_ne2000_realnic.MKBoundControl5 = Nothing + Me.lbl_p_ne2000_realnic.Name = "lbl_p_ne2000_realnic" + Me.lbl_p_ne2000_realnic.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem242.Text = "Real NIC" + ToolTipItem236.LeftIndent = 6 + ToolTipItem236.Text = "This parameter chooses which of your host's NICs the virtual network card is boun" & + "d to. It can either be identified by number or by a part of it's name (i.e. VIA)" & + "." + SuperToolTip242.Items.Add(ToolTipTitleItem242) + SuperToolTip242.Items.Add(ToolTipItem236) + Me.lbl_p_ne2000_realnic.SuperTip = SuperToolTip242 + Me.lbl_p_ne2000_realnic.TabIndex = 16 + Me.lbl_p_ne2000_realnic.Text = "Real NIC:" + ' + 'spn_p_ne2000_nicirq + ' + Me.spn_p_ne2000_nicirq.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_ne2000_nicirq", True)) + Me.spn_p_ne2000_nicirq.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_ne2000_nicirq", True)) + Me.spn_p_ne2000_nicirq.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_p_ne2000_nicirq.Enabled = False + Me.spn_p_ne2000_nicirq.Location = New System.Drawing.Point(123, 49) + Me.spn_p_ne2000_nicirq.MKBoundLabel = Me.lbl_p_ne2000_nicirq + Me.spn_p_ne2000_nicirq.MKEditValue_Compare = Nothing + Me.spn_p_ne2000_nicirq.Name = "spn_p_ne2000_nicirq" + Me.spn_p_ne2000_nicirq.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton()}) + Me.spn_p_ne2000_nicirq.Properties.IsFloatValue = False + Me.spn_p_ne2000_nicirq.Properties.Mask.EditMask = "N00" + Me.spn_p_ne2000_nicirq.Properties.MaxValue = New Decimal(New Integer() {9, 0, 0, 0}) + Me.spn_p_ne2000_nicirq.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem245.Text = "NIC IRQ" + ToolTipItem239.LeftIndent = 6 + ToolTipItem239.Text = "Interrupt of the network card. 3 is a default value expected by many drivers, how" & + "ever if you attempt to use the serial port COM2 simultaneously you need to chang" & + "e it." + SuperToolTip245.Items.Add(ToolTipTitleItem245) + SuperToolTip245.Items.Add(ToolTipItem239) + Me.spn_p_ne2000_nicirq.SuperTip = SuperToolTip245 + Me.spn_p_ne2000_nicirq.TabIndex = 2 + ' + 'lbl_p_ne2000_nicirq + ' + Me.lbl_p_ne2000_nicirq.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_ne2000_nicirq.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ne2000_nicirq.Location = New System.Drawing.Point(3, 49) + Me.lbl_p_ne2000_nicirq.MKBoundControl1 = Me.spn_p_ne2000_nicirq + Me.lbl_p_ne2000_nicirq.MKBoundControl2 = Nothing + Me.lbl_p_ne2000_nicirq.MKBoundControl3 = Nothing + Me.lbl_p_ne2000_nicirq.MKBoundControl4 = Nothing + Me.lbl_p_ne2000_nicirq.MKBoundControl5 = Nothing + Me.lbl_p_ne2000_nicirq.Name = "lbl_p_ne2000_nicirq" + Me.lbl_p_ne2000_nicirq.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem244.Text = "NIC IRQ" + ToolTipItem238.LeftIndent = 6 + ToolTipItem238.Text = "Interrupt of the network card. 3 is a default value expected by many drivers, how" & + "ever if you attempt to use the serial port COM2 simultaneously you need to chang" & + "e it." + SuperToolTip244.Items.Add(ToolTipTitleItem244) + SuperToolTip244.Items.Add(ToolTipItem238) + Me.lbl_p_ne2000_nicirq.SuperTip = SuperToolTip244 + Me.lbl_p_ne2000_nicirq.TabIndex = 16 + Me.lbl_p_ne2000_nicirq.Text = "NIC IRQ:" + ' + 'txb_p_ne2000_macaddr + ' + Me.txb_p_ne2000_macaddr.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_ne2000_macaddr", True)) + Me.txb_p_ne2000_macaddr.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_ne2000_macaddr", True)) + Me.txb_p_ne2000_macaddr.Location = New System.Drawing.Point(123, 72) + Me.txb_p_ne2000_macaddr.MKBoundLabel = Me.lbl_p_ne2000_macaddr + Me.txb_p_ne2000_macaddr.MKEditValue_Compare = Nothing + Me.txb_p_ne2000_macaddr.Name = "txb_p_ne2000_macaddr" + Me.txb_p_ne2000_macaddr.Properties.Mask.EditMask = "AC:DE:48:[0-9A-F\?][0-9A-F\?]:[0-9A-F\?][0-9A-F\?]:[0-9A-F\?][0-9A-F\?]" + Me.txb_p_ne2000_macaddr.Properties.Mask.IgnoreMaskBlank = False + Me.txb_p_ne2000_macaddr.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx + Me.txb_p_ne2000_macaddr.Size = New System.Drawing.Size(136, 20) + ToolTipTitleItem247.Text = "MAC Adress" + ToolTipItem241.LeftIndent = 6 + ToolTipItem241.Text = resources.GetString("ToolTipItem241.Text") + SuperToolTip247.Items.Add(ToolTipTitleItem247) + SuperToolTip247.Items.Add(ToolTipItem241) + Me.txb_p_ne2000_macaddr.SuperTip = SuperToolTip247 + Me.txb_p_ne2000_macaddr.TabIndex = 3 + ' + 'lbl_p_ne2000_macaddr + ' + Me.lbl_p_ne2000_macaddr.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_ne2000_macaddr.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ne2000_macaddr.Location = New System.Drawing.Point(3, 72) + Me.lbl_p_ne2000_macaddr.MKBoundControl1 = Me.txb_p_ne2000_macaddr + Me.lbl_p_ne2000_macaddr.MKBoundControl2 = Nothing + Me.lbl_p_ne2000_macaddr.MKBoundControl3 = Nothing + Me.lbl_p_ne2000_macaddr.MKBoundControl4 = Nothing + Me.lbl_p_ne2000_macaddr.MKBoundControl5 = Nothing + Me.lbl_p_ne2000_macaddr.Name = "lbl_p_ne2000_macaddr" + Me.lbl_p_ne2000_macaddr.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem246.Text = "MAC Address" + ToolTipItem240.LeftIndent = 6 + ToolTipItem240.Text = resources.GetString("ToolTipItem240.Text") + SuperToolTip246.Items.Add(ToolTipTitleItem246) + SuperToolTip246.Items.Add(ToolTipItem240) + Me.lbl_p_ne2000_macaddr.SuperTip = SuperToolTip246 + Me.lbl_p_ne2000_macaddr.TabIndex = 16 + Me.lbl_p_ne2000_macaddr.Text = "MAC Address:" + ' + 'txb_p_ne2000_nicbase + ' + Me.txb_p_ne2000_nicbase.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_ne2000_nicbase", True)) + Me.txb_p_ne2000_nicbase.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_ne2000_nicbase", True)) + Me.txb_p_ne2000_nicbase.Location = New System.Drawing.Point(123, 26) + Me.txb_p_ne2000_nicbase.MKBoundLabel = Me.lbl_p_ne2000_nicbase + Me.txb_p_ne2000_nicbase.MKEditValue_Compare = Nothing + Me.txb_p_ne2000_nicbase.Name = "txb_p_ne2000_nicbase" + Me.txb_p_ne2000_nicbase.Size = New System.Drawing.Size(54, 20) + ToolTipTitleItem249.Text = "NIC Base Address" + ToolTipItem243.LeftIndent = 6 + ToolTipItem243.Text = "The base address of the NE-2000 board. Normally there is no need to change this b" & + "ut it is good to know for driver installation." + SuperToolTip249.Items.Add(ToolTipTitleItem249) + SuperToolTip249.Items.Add(ToolTipItem243) + Me.txb_p_ne2000_nicbase.SuperTip = SuperToolTip249 + Me.txb_p_ne2000_nicbase.TabIndex = 1 + ' + 'lbl_p_ne2000_nicbase + ' + Me.lbl_p_ne2000_nicbase.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_ne2000_nicbase.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ne2000_nicbase.Location = New System.Drawing.Point(3, 26) + Me.lbl_p_ne2000_nicbase.MKBoundControl1 = Me.txb_p_ne2000_nicbase + Me.lbl_p_ne2000_nicbase.MKBoundControl2 = Nothing + Me.lbl_p_ne2000_nicbase.MKBoundControl3 = Nothing + Me.lbl_p_ne2000_nicbase.MKBoundControl4 = Nothing + Me.lbl_p_ne2000_nicbase.MKBoundControl5 = Nothing + Me.lbl_p_ne2000_nicbase.Name = "lbl_p_ne2000_nicbase" + Me.lbl_p_ne2000_nicbase.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem248.Text = "NIC Base Address" + ToolTipItem242.LeftIndent = 6 + ToolTipItem242.Text = "The base address of the NE-2000 board. Normally there is no need to change this b" & + "ut it is good to know for driver installation." + SuperToolTip248.Items.Add(ToolTipTitleItem248) + SuperToolTip248.Items.Add(ToolTipItem242) + Me.lbl_p_ne2000_nicbase.SuperTip = SuperToolTip248 + Me.lbl_p_ne2000_nicbase.TabIndex = 16 + Me.lbl_p_ne2000_nicbase.Text = "NIC Base Address:" + ' + 'chb_p_ne2000_ne2000 + ' + Me.chb_p_ne2000_ne2000.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "p_ne2000_ne2000", True)) + Me.chb_p_ne2000_ne2000.DataBindings.Add(New System.Windows.Forms.Binding("MKEditValue_Compare", Me.BS_Templates, "p_ne2000_ne2000", True)) + Me.chb_p_ne2000_ne2000.Location = New System.Drawing.Point(123, 4) + Me.chb_p_ne2000_ne2000.MKBoundLabel = Me.lbl_p_ne2000_ne2000 + Me.chb_p_ne2000_ne2000.MKEditValue_Compare = Nothing + Me.chb_p_ne2000_ne2000.Name = "chb_p_ne2000_ne2000" + Me.chb_p_ne2000_ne2000.Properties.Caption = "" + Me.chb_p_ne2000_ne2000.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem251.Text = "Enable NE-2000" + ToolTipItem245.LeftIndent = 6 + ToolTipItem245.Text = "Enable Ethernet passthrough. Requires (Win)Pcap." + SuperToolTip251.Items.Add(ToolTipTitleItem251) + SuperToolTip251.Items.Add(ToolTipItem245) + Me.chb_p_ne2000_ne2000.SuperTip = SuperToolTip251 + Me.chb_p_ne2000_ne2000.TabIndex = 0 + ' + 'lbl_p_ne2000_ne2000 + ' + Me.lbl_p_ne2000_ne2000.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_p_ne2000_ne2000.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ne2000_ne2000.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_ne2000_ne2000.MKBoundControl1 = Me.chb_p_ne2000_ne2000 + Me.lbl_p_ne2000_ne2000.MKBoundControl2 = Nothing + Me.lbl_p_ne2000_ne2000.MKBoundControl3 = Nothing + Me.lbl_p_ne2000_ne2000.MKBoundControl4 = Nothing + Me.lbl_p_ne2000_ne2000.MKBoundControl5 = Nothing + Me.lbl_p_ne2000_ne2000.Name = "lbl_p_ne2000_ne2000" + Me.lbl_p_ne2000_ne2000.Size = New System.Drawing.Size(117, 20) + ToolTipTitleItem250.Text = "Enable NE-2000" + ToolTipItem244.LeftIndent = 6 + ToolTipItem244.Text = "Enable Ethernet passthrough. Requires (Win)Pcap." + SuperToolTip250.Items.Add(ToolTipTitleItem250) + SuperToolTip250.Items.Add(ToolTipItem244) + Me.lbl_p_ne2000_ne2000.SuperTip = SuperToolTip250 + Me.lbl_p_ne2000_ne2000.TabIndex = 16 + Me.lbl_p_ne2000_ne2000.Text = "Enable NE-2000:" + ' + 'tpg_IDE_Patches + ' + Me.tpg_IDE_Patches.Controls.Add(Me.lbl_p_ide) + Me.tpg_IDE_Patches.Name = "tpg_IDE_Patches" + Me.tpg_IDE_Patches.Size = New System.Drawing.Size(546, 434) + Me.tpg_IDE_Patches.Text = "IDE (Patches)" + ' + 'lbl_p_ide + ' + Me.lbl_p_ide.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_p_ide.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_p_ide.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_p_ide.Location = New System.Drawing.Point(3, 3) + Me.lbl_p_ide.MKBoundControl1 = Nothing + Me.lbl_p_ide.MKBoundControl2 = Nothing + Me.lbl_p_ide.MKBoundControl3 = Nothing + Me.lbl_p_ide.MKBoundControl4 = Nothing + Me.lbl_p_ide.MKBoundControl5 = Nothing + Me.lbl_p_ide.Name = "lbl_p_ide" + Me.lbl_p_ide.Size = New System.Drawing.Size(540, 20) + Me.lbl_p_ide.TabIndex = 26 + Me.lbl_p_ide.Text = "There are currently no settings for IDE (Patches)." + ' + 'pnl_Top + ' + Me.pnl_Top.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Top.Controls.Add(Me.cmb_Template) + Me.pnl_Top.Controls.Add(Me.lbl_Template) + Me.pnl_Top.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Top.Location = New System.Drawing.Point(0, 0) + Me.pnl_Top.Name = "pnl_Top" + Me.pnl_Top.Size = New System.Drawing.Size(682, 26) + Me.pnl_Top.TabIndex = 0 + ' + 'cmb_Template + ' + Me.cmb_Template.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmb_Template.Location = New System.Drawing.Point(103, 3) + Me.cmb_Template.MKBoundLabel = Nothing + Me.cmb_Template.MKEditValue_Compare = Nothing + Me.cmb_Template.Name = "cmb_Template" + Me.cmb_Template.Properties.AllowFocused = False + Me.cmb_Template.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Template.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_DOSBox_Configs", "id_DOS Box_Configs", 121, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Rombase_DOSBox_Configs", "id_Rombase_DOS Box_Configs", 158, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("isTemplate", "is Template", 64, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Displayname", "Displayname", 70, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-fullscreen", "sdl-fullscreen", 73, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-fulldouble", "sdl-fulldouble", 73, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-fullresolution", "sdl-fullresolution", 88, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-windowresolution", "sdl-windowresolution", 110, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-output", "sdl-output", 59, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-autolock", "sdl-autolock", 67, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-sensitivity", "sdl-sensitivity", 75, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-waitonerror", "sdl-waitonerror", 83, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-priority_1", "sdl-priority_1", 73, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-priority_2", "sdl-priority_2", 73, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-mapperfile", "sdl-mapperfile", 77, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sdl-usescancodes", "sdl-usescancodes", 94, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dosbox-language", "dosbox-language", 93, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dosbox-machine", "dosbox-machine", 88, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dosbox-memsize", "dosbox-memsize", 89, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("render-frameskip", "render-frameskip", 92, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("render-aspect", "render-aspect", 78, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("render-scaler", "render-scaler", 74, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("render-scaler_forced", "render-scaler_forced", 111, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cpu-core", "cpu-core", 52, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cpu-cputype", "cpu-cputype", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cpu-cycles", "cpu-cycles", 60, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cpu-cycleup", "cpu-cycleup", 67, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cpu-cycledown", "cpu-cycledown", 81, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("mixer-nosound", "mixer-nosound", 81, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("mixer-rate", "mixer-rate", 60, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("mixer-blocksize", "mixer-blocksize", 82, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("mixer-prebuffer", "mixer-prebuffer", 86, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("midi-mpu401", "midi-mpu401", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("midi-mididevice", "midi-mididevice", 81, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("midi-midiconfig", "midi-midiconfig", 79, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-sbtype", "sblaster-sbtype", 85, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-sbbase", "sblaster-sbbase", 86, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-irq", "sblaster-irq", 64, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-dma", "sblaster-dma", 72, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-hdma", "sblaster-hdma", 78, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-sbmixer", "sblaster-sbmixer", 89, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-oplmode", "sblaster-oplmode", 92, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-oplemu", "sblaster-oplemu", 86, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("sblaster-oplrate", "sblaster-oplrate", 86, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-gus", "gus-gus", 48, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-gusrate", "gus-gusrate", 68, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-gusbase", "gus-gusbase", 71, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-gusirq", "gus-gusirq", 60, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-gusdma", "gus-gusdma", 68, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("gus-ultradir", "gus-ultradir", 65, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("speaker-pcspeaker", "speaker-pcspeaker", 101, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("speaker-pcrate", "speaker-pcrate", 83, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("speaker-tandy", "speaker-tandy", 80, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("speaker-tandyrate", "speaker-tandyrate", 100, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("speaker-disney", "speaker-disney", 83, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("joystick-joysticktype", "joystick-joysticktype", 108, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("joystick-timed", "joystick-timed", 76, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("joystick-autofire", "joystick-autofire", 88, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("joystick-swap34", "joystick-swap34", 87, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("joystick-buttonwrap", "joystick-buttonwrap", 106, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("serial-serial1", "serial-serial1", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("serial-serial2", "serial-serial2", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("serial-serial3", "serial-serial3", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("serial-serial4", "serial-serial4", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dos-xms", "dos-xms", 50, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dos-ems", "dos-ems", 50, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dos-umb", "dos-umb", 51, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("dos-keyboardlayout", "dos-keyboardlayout", 106, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ipx-ipx", "ipx-ipx", 42, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("autoexec-before", "autoexec-before", 91, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("autoexec-after", "autoexec-after", 83, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-autoclose", "ml-autoclose", 70, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-showconsole", "ml-showconsole", 85, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-customsettings", "ml-customsettings", 96, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-useloadfix", "ml-useloadfix", 73, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-loadfix", "ml-loadfix", 56, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_master_left", "ml-volume_master_left", 119, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_master_right", "ml-volume_master_right", 125, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_spkr_left", "ml-volume_spkr_left", 106, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_spkr_right", "ml-volume_spkr_right", 112, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_sb_left", "ml-volume_sb_left", 97, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_sb_right", "ml-volume_sb_right", 103, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_disney_left", "ml-volume_disney_left", 117, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_disney_right", "ml-volume_disney_right", 123, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_gus_left", "ml-volume_gus_left", 103, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_gus_right", "ml-volume_gus_right", 109, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_fm_left", "ml-volume_fm_left", 98, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_fm_right", "ml-volume_fm_right", 104, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_cdaudio_left", "ml-volume_cdaudio_left", 123, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("ml-volume_cdaudio_right", "ml-volume_cdaudio_right", 129, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far)}) + Me.cmb_Template.Properties.DataSource = Me.BS_Templates + Me.cmb_Template.Properties.DisplayMember = "Displayname" + Me.cmb_Template.Properties.NullText = "" + Me.cmb_Template.Properties.ShowFooter = False + Me.cmb_Template.Properties.ShowHeader = False + Me.cmb_Template.Properties.ValueMember = "id_DOSBox_Configs" + Me.cmb_Template.Size = New System.Drawing.Size(575, 20) + Me.cmb_Template.TabIndex = 0 + ' + 'lbl_Template + ' + Me.lbl_Template.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Template.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Template.Location = New System.Drawing.Point(3, 3) + Me.lbl_Template.MKBoundControl1 = Nothing + Me.lbl_Template.MKBoundControl2 = Nothing + Me.lbl_Template.MKBoundControl3 = Nothing + Me.lbl_Template.MKBoundControl4 = Nothing + Me.lbl_Template.MKBoundControl5 = Nothing + Me.lbl_Template.Name = "lbl_Template" + Me.lbl_Template.Size = New System.Drawing.Size(97, 20) + Me.lbl_Template.TabIndex = 0 + Me.lbl_Template.Text = "Template:" + ' + 'btn_Save_Template + ' + Me.btn_Save_Template.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Save_Template.Location = New System.Drawing.Point(524, 1) + Me.btn_Save_Template.Name = "btn_Save_Template" + Me.btn_Save_Template.Size = New System.Drawing.Size(75, 23) + ToolTipTitleItem252.Text = "Save" + ToolTipItem246.LeftIndent = 6 + ToolTipItem246.Text = "Save the current DOSBox configuration." + SuperToolTip252.Items.Add(ToolTipTitleItem252) + SuperToolTip252.Items.Add(ToolTipItem246) + Me.btn_Save_Template.SuperTip = SuperToolTip252 + Me.btn_Save_Template.TabIndex = 0 + Me.btn_Save_Template.Text = "&Save" + ' + 'pnl_Bottom + ' + Me.pnl_Bottom.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Bottom.Controls.Add(Me.btn_Cancel_Template) + Me.pnl_Bottom.Controls.Add(Me.btn_Save_Template) + Me.pnl_Bottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_Bottom.Location = New System.Drawing.Point(0, 514) + Me.pnl_Bottom.Name = "pnl_Bottom" + Me.pnl_Bottom.Size = New System.Drawing.Size(682, 26) + Me.pnl_Bottom.TabIndex = 2 + ' + 'btn_Cancel_Template + ' + Me.btn_Cancel_Template.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Cancel_Template.Location = New System.Drawing.Point(602, 1) + Me.btn_Cancel_Template.Name = "btn_Cancel_Template" + Me.btn_Cancel_Template.Size = New System.Drawing.Size(75, 23) + ToolTipTitleItem253.Text = "Cancel" + ToolTipItem247.LeftIndent = 6 + ToolTipItem247.Text = "Cancel changes for the current DOSBox Template and revert back to it's previously" & + " saved configuration." + SuperToolTip253.Items.Add(ToolTipTitleItem253) + SuperToolTip253.Items.Add(ToolTipItem247) + Me.btn_Cancel_Template.SuperTip = SuperToolTip253 + Me.btn_Cancel_Template.TabIndex = 1 + Me.btn_Cancel_Template.Text = "&Close" + ' + 'spltpnl_Main + ' + Me.spltpnl_Main.Dock = System.Windows.Forms.DockStyle.Fill + Me.spltpnl_Main.Location = New System.Drawing.Point(0, 52) + Me.spltpnl_Main.Name = "spltpnl_Main" + Me.spltpnl_Main.Panel1.Controls.Add(Me.tree_Pages) + Me.spltpnl_Main.Panel1.Text = "Panel1" + Me.spltpnl_Main.Panel2.Controls.Add(Me.tcl_Dosbox_Config) + Me.spltpnl_Main.Panel2.Text = "Panel2" + Me.spltpnl_Main.Size = New System.Drawing.Size(682, 462) + Me.spltpnl_Main.SplitterPosition = 125 + Me.spltpnl_Main.TabIndex = 4 + Me.spltpnl_Main.Text = "Ctl_MKDXSplitPanel1" + ' + 'tree_Pages + ' + Me.tree_Pages.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.colTabName}) + Me.tree_Pages.DataSource = Me.BTA_Tabs + Me.tree_Pages.Dock = System.Windows.Forms.DockStyle.Fill + Me.tree_Pages.KeyFieldName = "id" + Me.tree_Pages.Location = New System.Drawing.Point(0, 0) + Me.tree_Pages.Name = "tree_Pages" + Me.tree_Pages.OptionsView.ShowColumns = False + Me.tree_Pages.OptionsView.ShowHorzLines = False + Me.tree_Pages.OptionsView.ShowIndentAsRowStyle = True + Me.tree_Pages.OptionsView.ShowIndicator = False + Me.tree_Pages.OptionsView.ShowVertLines = False + Me.tree_Pages.ParentFieldName = "id_Owner" + Me.tree_Pages.Size = New System.Drawing.Size(125, 462) + Me.tree_Pages.TabIndex = 0 + ' + 'colTabName + ' + Me.colTabName.FieldName = "TabName" + Me.colTabName.MinWidth = 70 + Me.colTabName.Name = "colTabName" + Me.colTabName.OptionsColumn.AllowEdit = False + Me.colTabName.OptionsColumn.AllowFocus = False + Me.colTabName.OptionsColumn.ReadOnly = True + Me.colTabName.Visible = True + Me.colTabName.VisibleIndex = 0 + Me.colTabName.Width = 35 + ' + 'BTA_Tabs + ' + Me.BTA_Tabs.AllowDelete = True + Me.BTA_Tabs.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Tabs.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Tabs.Connection = Nothing + Me.BTA_Tabs.DSStream = CType(resources.GetObject("BTA_Tabs.DSStream"), System.IO.MemoryStream) + Me.BTA_Tabs.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_Tabs.FillString = resources.GetString("BTA_Tabs.FillString") + Me.BTA_Tabs.Position = 0 + Me.BTA_Tabs.Transaction = Nothing + Me.BTA_Tabs.UpdateTablesStream = CType(resources.GetObject("BTA_Tabs.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3}) + Me.DataTable1.TableName = "Table1" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id" + Me.DataColumn1.DataType = GetType(Integer) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "id_Owner" + Me.DataColumn2.DataType = GetType(Integer) + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "TabName" + ' + 'DataTable2 + ' + Me.DataTable2.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn4}) + Me.DataTable2.TableName = "Table1" + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "value" + ' + 'DataTable3 + ' + Me.DataTable3.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn5}) + Me.DataTable3.TableName = "Table1" + ' + 'DataColumn5 + ' + Me.DataColumn5.ColumnName = "value" + ' + 'DataTable4 + ' + Me.DataTable4.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn6}) + Me.DataTable4.TableName = "Table1" + ' + 'DataColumn6 + ' + Me.DataColumn6.ColumnName = "value" + ' + 'DataTable5 + ' + Me.DataTable5.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn7}) + Me.DataTable5.TableName = "Table1" + ' + 'DataColumn7 + ' + Me.DataColumn7.ColumnName = "value" + ' + 'DataTable6 + ' + Me.DataTable6.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn8}) + Me.DataTable6.TableName = "Table1" + ' + 'DataColumn8 + ' + Me.DataColumn8.ColumnName = "value" + ' + 'DataTable7 + ' + Me.DataTable7.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn9}) + Me.DataTable7.TableName = "Table1" + ' + 'DataColumn9 + ' + Me.DataColumn9.ColumnName = "value" + ' + 'DataTable8 + ' + Me.DataTable8.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn10}) + Me.DataTable8.TableName = "Table1" + ' + 'DataColumn10 + ' + Me.DataColumn10.ColumnName = "value" + ' + 'DataTable9 + ' + Me.DataTable9.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn11}) + Me.DataTable9.TableName = "Table1" + ' + 'DataColumn11 + ' + Me.DataColumn11.ColumnName = "value" + ' + 'DataTable10 + ' + Me.DataTable10.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn12}) + Me.DataTable10.TableName = "Table1" + ' + 'DataColumn12 + ' + Me.DataColumn12.ColumnName = "value" + ' + 'DataTable11 + ' + Me.DataTable11.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn13}) + Me.DataTable11.TableName = "Table1" + ' + 'DataColumn13 + ' + Me.DataColumn13.ColumnName = "value" + ' + 'DataTable12 + ' + Me.DataTable12.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn14}) + Me.DataTable12.TableName = "Table1" + ' + 'DataColumn14 + ' + Me.DataColumn14.ColumnName = "value" + ' + 'DataTable13 + ' + Me.DataTable13.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn15, Me.DataColumn16}) + Me.DataTable13.TableName = "Table1" + ' + 'DataColumn15 + ' + Me.DataColumn15.ColumnName = "Value" + ' + 'DataColumn16 + ' + Me.DataColumn16.ColumnName = "Displaytext" + ' + 'DataTable14 + ' + Me.DataTable14.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn17}) + Me.DataTable14.TableName = "Table1" + ' + 'DataColumn17 + ' + Me.DataColumn17.ColumnName = "value" + ' + 'DataTable15 + ' + Me.DataTable15.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn18}) + Me.DataTable15.TableName = "Table1" + ' + 'DataColumn18 + ' + Me.DataColumn18.ColumnName = "value" + ' + 'DataTable17 + ' + Me.DataTable17.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn20}) + Me.DataTable17.TableName = "Table1" + ' + 'DataColumn20 + ' + Me.DataColumn20.ColumnName = "value" + ' + 'DataTable18 + ' + Me.DataTable18.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn21}) + Me.DataTable18.TableName = "Table1" + ' + 'DataColumn21 + ' + Me.DataColumn21.ColumnName = "value" + ' + 'DataTable19 + ' + Me.DataTable19.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn22}) + Me.DataTable19.TableName = "Table1" + ' + 'DataColumn22 + ' + Me.DataColumn22.ColumnName = "value" + ' + 'DataTable16 + ' + Me.DataTable16.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn19}) + Me.DataTable16.TableName = "Table1" + ' + 'DataColumn19 + ' + Me.DataColumn19.ColumnName = "value" + ' + 'DataTable20 + ' + Me.DataTable20.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn23}) + Me.DataTable20.TableName = "Table1" + ' + 'DataColumn23 + ' + Me.DataColumn23.ColumnName = "value" + ' + 'DataTable21 + ' + Me.DataTable21.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn24}) + Me.DataTable21.TableName = "Table1" + ' + 'DataColumn24 + ' + Me.DataColumn24.ColumnName = "value" + ' + 'DataTable22 + ' + Me.DataTable22.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn25}) + Me.DataTable22.TableName = "Table1" + ' + 'DataColumn25 + ' + Me.DataColumn25.ColumnName = "value" + ' + 'DataTable23 + ' + Me.DataTable23.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn26}) + Me.DataTable23.TableName = "Table1" + ' + 'DataColumn26 + ' + Me.DataColumn26.ColumnName = "value" + ' + 'DataTable24 + ' + Me.DataTable24.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn27}) + Me.DataTable24.TableName = "Table1" + ' + 'DataColumn27 + ' + Me.DataColumn27.ColumnName = "value" + ' + 'DataTable25 + ' + Me.DataTable25.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn28}) + Me.DataTable25.TableName = "Table1" + ' + 'DataColumn28 + ' + Me.DataColumn28.ColumnName = "value" + ' + 'DataTable26 + ' + Me.DataTable26.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn29}) + Me.DataTable26.TableName = "Table1" + ' + 'DataColumn29 + ' + Me.DataColumn29.ColumnName = "value" + ' + 'DataTable27 + ' + Me.DataTable27.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn30}) + Me.DataTable27.TableName = "Table1" + ' + 'DataColumn30 + ' + Me.DataColumn30.ColumnName = "value" + ' + 'DataTable28 + ' + Me.DataTable28.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn31}) + Me.DataTable28.TableName = "Table1" + ' + 'DataColumn31 + ' + Me.DataColumn31.ColumnName = "value" + ' + 'DataTable29 + ' + Me.DataTable29.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn32}) + Me.DataTable29.TableName = "Table1" + ' + 'DataColumn32 + ' + Me.DataColumn32.ColumnName = "value" + ' + 'DataTable30 + ' + Me.DataTable30.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn33}) + Me.DataTable30.TableName = "Table1" + ' + 'DataColumn33 + ' + Me.DataColumn33.ColumnName = "value" + ' + 'DataTable31 + ' + Me.DataTable31.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn34}) + Me.DataTable31.TableName = "Table1" + ' + 'DataColumn34 + ' + Me.DataColumn34.ColumnName = "value" + ' + 'DataTable32 + ' + Me.DataTable32.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn35}) + Me.DataTable32.TableName = "Table1" + ' + 'DataColumn35 + ' + Me.DataColumn35.ColumnName = "value" + ' + 'DataTable33 + ' + Me.DataTable33.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn36, Me.DataColumn37}) + Me.DataTable33.TableName = "Table1" + ' + 'DataColumn36 + ' + Me.DataColumn36.ColumnName = "Value" + ' + 'DataColumn37 + ' + Me.DataColumn37.ColumnName = "DisplayText" + ' + 'pnl_Top_Templates + ' + Me.pnl_Top_Templates.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Top_Templates.Controls.Add(Me.txb_Template_Name) + Me.pnl_Top_Templates.Controls.Add(Me.lbl_Template_Name) + Me.pnl_Top_Templates.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl_Top_Templates.Location = New System.Drawing.Point(0, 26) + Me.pnl_Top_Templates.Name = "pnl_Top_Templates" + Me.pnl_Top_Templates.Size = New System.Drawing.Size(682, 26) + Me.pnl_Top_Templates.TabIndex = 1 + ' + 'txb_Template_Name + ' + Me.txb_Template_Name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_Template_Name.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_DOSBox_Configs, "Displayname", True)) + Me.txb_Template_Name.Location = New System.Drawing.Point(103, 3) + Me.txb_Template_Name.MKBoundLabel = Nothing + Me.txb_Template_Name.MKEditValue_Compare = Nothing + Me.txb_Template_Name.Name = "txb_Template_Name" + Me.txb_Template_Name.Size = New System.Drawing.Size(575, 20) + Me.txb_Template_Name.TabIndex = 0 + ' + 'lbl_Template_Name + ' + Me.lbl_Template_Name.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Template_Name.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Template_Name.Location = New System.Drawing.Point(3, 3) + Me.lbl_Template_Name.MKBoundControl1 = Nothing + Me.lbl_Template_Name.MKBoundControl2 = Nothing + Me.lbl_Template_Name.MKBoundControl3 = Nothing + Me.lbl_Template_Name.MKBoundControl4 = Nothing + Me.lbl_Template_Name.MKBoundControl5 = Nothing + Me.lbl_Template_Name.Name = "lbl_Template_Name" + Me.lbl_Template_Name.Size = New System.Drawing.Size(97, 20) + Me.lbl_Template_Name.TabIndex = 1 + Me.lbl_Template_Name.Text = "Template Name:" + ' + 'DataTable34 + ' + Me.DataTable34.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn38}) + Me.DataTable34.TableName = "Table1" + ' + 'DataColumn38 + ' + Me.DataColumn38.ColumnName = "value" + ' + 'DataTable35 + ' + Me.DataTable35.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn39, Me.DataColumn40}) + Me.DataTable35.TableName = "Table1" + ' + 'DataColumn39 + ' + Me.DataColumn39.ColumnName = "value" + ' + 'DataColumn40 + ' + Me.DataColumn40.ColumnName = "displaytext" + ' + 'DataTable36 + ' + Me.DataTable36.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn41}) + Me.DataTable36.TableName = "Table1" + ' + 'DataColumn41 + ' + Me.DataColumn41.ColumnName = "value" + ' + 'DataTable37 + ' + Me.DataTable37.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn42}) + Me.DataTable37.TableName = "Table1" + ' + 'DataColumn42 + ' + Me.DataColumn42.ColumnName = "value" + ' + 'DataTable38 + ' + Me.DataTable38.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn43, Me.DataColumn44}) + Me.DataTable38.TableName = "Table1" + ' + 'DataColumn43 + ' + Me.DataColumn43.ColumnName = "value" + Me.DataColumn43.DataType = GetType(Integer) + ' + 'DataColumn44 + ' + Me.DataColumn44.ColumnName = "displaytext" + ' + 'DataTable39 + ' + Me.DataTable39.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn45}) + Me.DataTable39.TableName = "Table1" + ' + 'DataColumn45 + ' + Me.DataColumn45.ColumnName = "value" + ' + 'DataTable40 + ' + Me.DataTable40.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn46}) + Me.DataTable40.TableName = "Table1" + ' + 'DataColumn46 + ' + Me.DataColumn46.ColumnName = "value" + ' + 'DataTable41 + ' + Me.DataTable41.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn47}) + Me.DataTable41.TableName = "Table1" + ' + 'DataColumn47 + ' + Me.DataColumn47.ColumnName = "value" + ' + 'DataTable42 + ' + Me.DataTable42.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn48}) + Me.DataTable42.TableName = "Table1" + ' + 'DataColumn48 + ' + Me.DataColumn48.ColumnName = "value" + ' + 'DataTable43 + ' + Me.DataTable43.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn49}) + Me.DataTable43.TableName = "Table1" + ' + 'DataColumn49 + ' + Me.DataColumn49.ColumnName = "value" + ' + 'DataTable44 + ' + Me.DataTable44.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn50}) + Me.DataTable44.TableName = "Table1" + ' + 'DataColumn50 + ' + Me.DataColumn50.ColumnName = "value" + ' + 'DataTable45 + ' + Me.DataTable45.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn51}) + Me.DataTable45.TableName = "Table1" + ' + 'DataColumn51 + ' + Me.DataColumn51.ColumnName = "value" + ' + 'DataTable46 + ' + Me.DataTable46.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn52}) + Me.DataTable46.TableName = "Table1" + ' + 'DataColumn52 + ' + Me.DataColumn52.ColumnName = "value" + ' + 'DataTable47 + ' + Me.DataTable47.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn53, Me.DataColumn54}) + Me.DataTable47.TableName = "Table1" + ' + 'DataColumn53 + ' + Me.DataColumn53.ColumnName = "value" + ' + 'DataColumn54 + ' + Me.DataColumn54.ColumnName = "displaytext" + ' + 'DataTable48 + ' + Me.DataTable48.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn55}) + Me.DataTable48.TableName = "Table1" + ' + 'DataColumn55 + ' + Me.DataColumn55.ColumnName = "value" + ' + 'ucr_DOSBox_Config + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.spltpnl_Main) + Me.Controls.Add(Me.pnl_Bottom) + Me.Controls.Add(Me.pnl_Top_Templates) + Me.Controls.Add(Me.pnl_Top) + Me.Name = "ucr_DOSBox_Config" + Me.Size = New System.Drawing.Size(682, 540) + CType(Me.tcl_Dosbox_Config, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Dosbox_Config.ResumeLayout(False) + Me.tpg_DOSBox_Settings.ResumeLayout(False) + CType(Me.chb_sdl_waitonerror.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Configs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Templates, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML_Templates, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sdl_priority_2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sdl_priority_1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sdl_priority_1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sdl_priority_2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_autoexec_after.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_autoexec_before.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_ml_customsettings.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_dosbox_language.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_ml_showconsole.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_ml_autoclose.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_CPU.ResumeLayout(False) + CType(Me.spn_cpu_cycledown.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_cpu_cycleup.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_cpu_cycles_fixed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_cpu_type.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_cpu_type, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_cpu_core.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_cpu_core, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_cpu_cycles_fixed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_cpu_cycles_max.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_cpu_cycles_auto.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Memory.ResumeLayout(False) + CType(Me.spn_ml_loadfix.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_ml_useloadfix.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_dos_umb.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_dos_ems.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_dos_xms.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_dosbox_memsize.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Video.ResumeLayout(False) + CType(Me.chb_render_scaler_forced.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_render_scaler.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_render_scaler, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_render_frameskip.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_dosbox_machine.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_dosbox_machine, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sdl_output.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sdl_output, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_render_aspect.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_sdl_fulldouble.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_sdl_fullscreen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sdl_windowresolution.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sdl_fullresolution.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sdl_fullresolution, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sdl_windowresolution, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Keyboard.ResumeLayout(False) + CType(Me.spn_sdl_sensitivity.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_sdl_autolock.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_sdl_mapperfile.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_dos_keyboardlayout.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_dos_keyboardlayout, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_sdl_usescancodes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Sound.ResumeLayout(False) + CType(Me.spn_mixer_prebuffer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_speaker_tandyrate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_speaker_tandyrate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_speaker_pcrate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_speaker_pcrate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_speaker_tandy.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_speaker_tandy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_speaker_disney.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_speaker_pcspeaker.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_mixer_blocksize.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_mixer_blocksize, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_mixer_rate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_mixer_samplerate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_mixer_nosound.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Volume.ResumeLayout(False) + CType(Me.gb_PC_Speaker_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_PC_Speaker_Volume.ResumeLayout(False) + Me.gb_PC_Speaker_Volume.PerformLayout() + CType(Me.tb_ml_volume_spkr_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_spkr_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_spkr_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_spkr_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_CD_Audio_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_CD_Audio_Volume.ResumeLayout(False) + Me.gb_CD_Audio_Volume.PerformLayout() + CType(Me.tb_ml_volume_cdaudio_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_cdaudio_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_cdaudio_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_cdaudio_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_FM_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_FM_Volume.ResumeLayout(False) + Me.gb_FM_Volume.PerformLayout() + CType(Me.tb_ml_volume_fm_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_fm_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_fm_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_fm_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_GUS_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_GUS_Volume.ResumeLayout(False) + Me.gb_GUS_Volume.PerformLayout() + CType(Me.tb_ml_volume_gus_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_gus_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_gus_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_gus_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Sound_Blaster_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Sound_Blaster_Volume.ResumeLayout(False) + Me.gb_Sound_Blaster_Volume.PerformLayout() + CType(Me.tb_ml_volume_sb_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_sb_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_sb_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_sb_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Disney_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Disney_Volume.ResumeLayout(False) + Me.gb_Disney_Volume.PerformLayout() + CType(Me.tb_ml_volume_disney_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_disney_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_disney_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_disney_right, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Master_Volume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Master_Volume.ResumeLayout(False) + Me.gb_Master_Volume.PerformLayout() + CType(Me.tb_ml_volume_master_left.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_master_left, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_master_right.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.tb_ml_volume_master_right, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Sound_Blaster.ResumeLayout(False) + CType(Me.cmb_sblaster_oplrate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_oplrate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_oplemu.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_oplemu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_oplmode.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_oplmode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_hdma.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_hdma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_dma.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_dma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_irq.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_irq, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_sbbase.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_sbbase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_sblaster_sbtype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_sblaster_sbtype, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_sblaster_sbmixer.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_GUS.ResumeLayout(False) + CType(Me.txb_gus_ultradir.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_gus_gusdma.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_gus_gusdma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_gus_gusirq.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_gus_gusirq, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_gus_gusbase.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_gus_gusbase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_gus_gusrate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_gus_gusrate, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_gus_gus.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_MIDI.ResumeLayout(False) + CType(Me.txb_midi_midiconfig.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_midi_mididevice.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_midi_mididevice, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_midi_mpu401.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_midi_mpu401, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Joystick.ResumeLayout(False) + CType(Me.cmb_joystick_joysticktype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_joystick_joysticktype, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_joystick_buttonwrap.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_joystick_swap34.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_joystick_autofire.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_joystick_timed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Mount_Options.ResumeLayout(False) + Me.tpg_Serial.ResumeLayout(False) + Me.tpg_Serial1.ResumeLayout(False) + Me.tpg_Serial2.ResumeLayout(False) + Me.tpg_Serial3.ResumeLayout(False) + Me.tpg_Serial4.ResumeLayout(False) + Me.tpg_Patch_Options.ResumeLayout(False) + Me.tpg_DOSBox_Settings_Patches.ResumeLayout(False) + Me.tpg_CPU_Patches.ResumeLayout(False) + CType(Me.cmb_p_dosbox_pit_hack.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_dosbox_pit_hack, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_cputype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_cpu_cputype, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Memory_Patches.ResumeLayout(False) + CType(Me.spn_p_dosbox_memsizekb.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Video_Patches.ResumeLayout(False) + CType(Me.chb_p_glide_splash.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_glide_glide.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_glide_glide, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_p_vsync_vsyncrate.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_p_dosbox_forcerate_specific.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_p_dosbox_forcerate_specific.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_p_dosbox_forcerate_pal.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_p_dosbox_forcerate_ntsc.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rb_p_dosbox_forcerate_disabled.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_render_autofit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_sdl_pixelshader_forced.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_p_sdl_pixelshader.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_glide_lfb.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_glide_lfb, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_pci_voodoo.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_voodoo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_vsync_vsyncmode.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_vsync_vsyncmode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_dosbox_vmemsize.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_dosbox_vmemsize, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_render_scaler.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_render_scaler, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_sdl_output.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_sdl_output, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Sound_Patches.ResumeLayout(False) + CType(Me.chb_p_mixer_swapstereo.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Sound_Blaster_Patches.ResumeLayout(False) + CType(Me.chb_p_sblaster_goldplay.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_sblaster_hardwarebase.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_sblaster_hardwarebase, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_sblaster_oplmode.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_sblaster_oplmode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_sblaster_sbtype.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_MIDI_Patches.ResumeLayout(False) + CType(Me.spn_p_midi_mt32_partials.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_p_midi_mt32_reverb_level.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_p_midi_mt32_reverb_time.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_midi_mt32_reverb_mode.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_midi_mt32_reverb_mode, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_midi_mt32_dac.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_midi_mt32_dac, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_midi_mt32_thread.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_midi_mt32_verbose.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_midi_mt32_reverse_stereo.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_p_midi_midiconfig.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_p_midi_mididevice.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_midi_mididevice, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_SSI_2001_Patches.ResumeLayout(False) + Me.tpg_PS1_Audio_Patches.ResumeLayout(False) + Me.tpg_Keyboard_Mouse_Patches.ResumeLayout(False) + CType(Me.cmb_p_keyboard_auxdevice.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_p_keyboard_auxdevice, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_keyboard_aux.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_Parallel_Ports_Patches.ResumeLayout(False) + Me.tpg_NE2000_Patches.ResumeLayout(False) + CType(Me.txb_p_ne2000_realnic.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_p_ne2000_nicirq.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_p_ne2000_macaddr.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_p_ne2000_nicbase.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_p_ne2000_ne2000.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.tpg_IDE_Patches.ResumeLayout(False) + CType(Me.pnl_Top, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Top.ResumeLayout(False) + CType(Me.cmb_Template.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Bottom, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Bottom.ResumeLayout(False) + CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).EndInit() + Me.spltpnl_Main.ResumeLayout(False) + CType(Me.tree_Pages, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Tabs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Top_Templates, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Top_Templates.ResumeLayout(False) + CType(Me.txb_Template_Name.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable35, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable36, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable37, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable38, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable39, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable40, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable41, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable42, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable43, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable44, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable45, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable46, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable47, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable48, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_DOSBox_Configs_Compare, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents tcl_Dosbox_Config As MKNetDXLib.ctl_MKDXTabControl + Friend WithEvents pnl_Top As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents cmb_Template As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Template As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Save_Template As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents pnl_Bottom As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tpg_DOSBox_Settings As DevExpress.XtraTab.XtraTabPage + Friend WithEvents txb_ml_customsettings As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents txb_dosbox_language As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_ml_customsettings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_dosbox_language As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_ml_showconsole As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_ml_autoclose As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents btn_dosbox_language As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_ml_showconsole As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_autoclose As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_CPU As DevExpress.XtraTab.XtraTabPage + Friend WithEvents spn_cpu_cycledown As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_cpu_cycleup As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_cpu_cycles_fixed As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents cmb_cpu_type As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_cpu_core As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents rb_cpu_cycles_fixed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rb_cpu_cycles_max As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rb_cpu_cycles_auto As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_cpu_cycledown As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_cpu_cycleup As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_cpu_cycles As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_cpu_type As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_cpu_core As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Memory As DevExpress.XtraTab.XtraTabPage + Friend WithEvents spn_ml_loadfix As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents chb_ml_useloadfix As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_dos_umb As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_dos_ems As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_dos_xms As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_ml_loadfix As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_useloadfix As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_dos_umb As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_dos_ems As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_dos_xms As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_dosbox_memsize As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_dosbox_memsize As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Video As DevExpress.XtraTab.XtraTabPage + Friend WithEvents spn_render_frameskip As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_render_frameskip As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_render_scaler As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_render_scaler As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_dosbox_machine As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_dosbox_machine As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_sdl_output As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_sdl_output As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_render_aspect As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_render_aspect As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_sdl_fulldouble As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_sdl_fulldouble As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_sdl_fullscreen As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_sdl_fullscreen As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_sdl_windowresolution As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sdl_fullresolution As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_sdl_windowresolution As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sdl_fullresolution As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_resolution As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Keyboard As DevExpress.XtraTab.XtraTabPage + Friend WithEvents spn_sdl_sensitivity As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents chb_sdl_autolock As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_sdl_sensitivity As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sdl_autolock As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_sdl_mapperfile As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_sdl_mapperfile As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_dos_keyboardlayout As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents chb_sdl_usescancodes As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_dos_keyboardlayout As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sdl_usescancodes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Sound As DevExpress.XtraTab.XtraTabPage + Friend WithEvents cmb_speaker_tandyrate As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_speaker_pcrate As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_speaker_tandy As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents chb_speaker_disney As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_speaker_pcspeaker As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_speaker_tandyrate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_speaker_pcrate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_speaker_tandy As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_speaker_disney As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_speaker_pcspeaker As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_mixer_blocksize As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_mixer_rate As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_mixer_prebuffer As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_mixer_blocksize As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_mixer_rate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_mixer_nosound As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_mixer_nosound As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Volume As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Ctl_MKDXLabel9 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents gb_PC_Speaker_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_spkr_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel17 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_spkr_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_spkr_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel20 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_spkr_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_CD_Audio_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_cdaudio_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel33 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_cdaudio_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_cdaudio_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel36 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_cdaudio_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_FM_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_fm_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel29 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_fm_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_fm_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel32 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_fm_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_GUS_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_gus_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel25 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_gus_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_gus_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel28 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_gus_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_Sound_Blaster_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_sb_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel21 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_sb_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_sb_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel24 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_sb_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_Disney_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_disney_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel13 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_disney_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_disney_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents Ctl_MKDXLabel16 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_disney_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents gb_Master_Volume As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents tb_ml_volume_master_left As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents Ctl_MKDXLabel10 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_master_right As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_ml_volume_master_left As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tb_ml_volume_master_right As MKNetDXLib.ctl_MKDXTrackBarControl + Friend WithEvents tpg_Sound_Blaster As DevExpress.XtraTab.XtraTabPage + Friend WithEvents cmb_sblaster_oplrate As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_oplemu As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_oplmode As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_hdma As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_dma As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_irq As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_sbbase As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sblaster_sbtype As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents chb_sblaster_sbmixer As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents Ctl_MKDXLabel4 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_oplemu As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_oplmode As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_sbmixer As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_hdma As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_dma As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_irq As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_sbbase As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sblaster_sbtype As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_GUS As DevExpress.XtraTab.XtraTabPage + Friend WithEvents txb_gus_ultradir As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents cmb_gus_gusdma As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_gus_gusirq As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_gus_gusbase As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_gus_gusrate As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents chb_gus_gus As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_gus_ultradir As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_gus_gusdma As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_gus_gusirq As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_gus_gusbase As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_gus_gusrate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_gus_gus As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_MIDI As DevExpress.XtraTab.XtraTabPage + Friend WithEvents txb_midi_midiconfig As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents cmb_midi_mididevice As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_midi_mpu401 As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_midi_midiconfig As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_midi_mididevice As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_midi_mpu401 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Joystick As DevExpress.XtraTab.XtraTabPage + Friend WithEvents cmb_joystick_joysticktype As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents chb_joystick_buttonwrap As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_joystick_swap34 As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_joystick_autofire As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_joystick_timed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_joystick_joysticktype As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_joystick_buttonwrap As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_joystick_swap34 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_joystick_autofire As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_joystick_timed As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Mount_Options As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Serial As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Serial1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Serial2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Serial3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Serial4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents cmb_sdl_priority_2 As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents cmb_sdl_priority_1 As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_sdl_priority_2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_sdl_priority_1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_priorities As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_sdl_waitonerror As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_sdl_waitonerror As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spltpnl_Main As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents tree_Pages As MKNetDXLib.ctl_MKDXTreelist + Friend WithEvents colTabName As DevExpress.XtraTreeList.Columns.TreeListColumn + Friend WithEvents BTA_Tabs As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As System.Data.DataTable + Friend WithEvents DataColumn1 As System.Data.DataColumn + Friend WithEvents DataColumn2 As System.Data.DataColumn + Friend WithEvents DataColumn3 As System.Data.DataColumn + Friend WithEvents BTA_sdl_priority_1 As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sdl_priority_2 As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable2 As System.Data.DataTable + Friend WithEvents DataColumn4 As System.Data.DataColumn + Friend WithEvents DataTable3 As System.Data.DataTable + Friend WithEvents DataColumn5 As System.Data.DataColumn + Friend WithEvents DS_ML As Metropolis_Launcher.DS_ML + Friend WithEvents BS_DOSBox_Configs As System.Windows.Forms.BindingSource + Friend WithEvents DataTable4 As System.Data.DataTable + Friend WithEvents DataColumn6 As System.Data.DataColumn + Friend WithEvents DataTable5 As System.Data.DataTable + Friend WithEvents DataColumn7 As System.Data.DataColumn + Friend WithEvents BTA_cpu_type As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_cpu_core As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable6 As System.Data.DataTable + Friend WithEvents DataColumn8 As System.Data.DataColumn + Friend WithEvents DataTable7 As System.Data.DataTable + Friend WithEvents DataColumn9 As System.Data.DataColumn + Friend WithEvents lbl_cpu_cycledown_unit As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_cpu_cycleup_unit As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_dosbox_memsize_unit As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_sdl_fullresolution As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable8 As System.Data.DataTable + Friend WithEvents DataColumn10 As System.Data.DataColumn + Friend WithEvents BTA_sdl_windowresolution As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable9 As System.Data.DataTable + Friend WithEvents DataColumn11 As System.Data.DataColumn + Friend WithEvents chb_render_scaler_forced As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents BTA_render_scaler As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_dosbox_machine As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sdl_output As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable10 As System.Data.DataTable + Friend WithEvents DataColumn12 As System.Data.DataColumn + Friend WithEvents DataTable11 As System.Data.DataTable + Friend WithEvents DataColumn13 As System.Data.DataColumn + Friend WithEvents DataTable12 As System.Data.DataTable + Friend WithEvents DataColumn14 As System.Data.DataColumn + Friend WithEvents btn_sdl_mapperfile As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents BTA_dos_keyboardlayout As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable13 As System.Data.DataTable + Friend WithEvents DataColumn15 As System.Data.DataColumn + Friend WithEvents DataColumn16 As System.Data.DataColumn + Friend WithEvents BTA_mixer_samplerate As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable14 As System.Data.DataTable + Friend WithEvents DataColumn17 As System.Data.DataColumn + Friend WithEvents spn_mixer_prebuffer As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents BTA_mixer_blocksize As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable15 As System.Data.DataTable + Friend WithEvents DataColumn18 As System.Data.DataColumn + Friend WithEvents BTA_speaker_pcrate As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable17 As System.Data.DataTable + Friend WithEvents DataColumn20 As System.Data.DataColumn + Friend WithEvents BTA_speaker_tandy As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable18 As System.Data.DataTable + Friend WithEvents DataColumn21 As System.Data.DataColumn + Friend WithEvents BTA_speaker_tandyrate As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable19 As System.Data.DataTable + Friend WithEvents DataColumn22 As System.Data.DataColumn + Friend WithEvents BTA_sblaster_oplrate As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_oplemu As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_oplmode As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_hdma As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_dma As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_irq As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_sbbase As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_sblaster_sbtype As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable16 As System.Data.DataTable + Friend WithEvents DataColumn19 As System.Data.DataColumn + Friend WithEvents DataTable20 As System.Data.DataTable + Friend WithEvents DataColumn23 As System.Data.DataColumn + Friend WithEvents DataTable21 As System.Data.DataTable + Friend WithEvents DataColumn24 As System.Data.DataColumn + Friend WithEvents DataTable22 As System.Data.DataTable + Friend WithEvents DataColumn25 As System.Data.DataColumn + Friend WithEvents DataTable23 As System.Data.DataTable + Friend WithEvents DataColumn26 As System.Data.DataColumn + Friend WithEvents DataTable24 As System.Data.DataTable + Friend WithEvents DataColumn27 As System.Data.DataColumn + Friend WithEvents DataTable25 As System.Data.DataTable + Friend WithEvents DataColumn28 As System.Data.DataColumn + Friend WithEvents DataTable26 As System.Data.DataTable + Friend WithEvents DataColumn29 As System.Data.DataColumn + Friend WithEvents BTA_gus_gusdma As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_gus_gusirq As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_gus_gusbase As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_gus_gusrate As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_midi_mididevice As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_midi_mpu401 As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents BTA_joystick_joysticktype As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable27 As System.Data.DataTable + Friend WithEvents DataColumn30 As System.Data.DataColumn + Friend WithEvents DataTable28 As System.Data.DataTable + Friend WithEvents DataColumn31 As System.Data.DataColumn + Friend WithEvents DataTable29 As System.Data.DataTable + Friend WithEvents DataColumn32 As System.Data.DataColumn + Friend WithEvents DataTable30 As System.Data.DataTable + Friend WithEvents DataColumn33 As System.Data.DataColumn + Friend WithEvents DataTable31 As System.Data.DataTable + Friend WithEvents DataColumn34 As System.Data.DataColumn + Friend WithEvents DataTable32 As System.Data.DataTable + Friend WithEvents DataColumn35 As System.Data.DataColumn + Friend WithEvents DataTable33 As System.Data.DataTable + Friend WithEvents DataColumn36 As System.Data.DataColumn + Friend WithEvents DataColumn37 As System.Data.DataColumn + Friend WithEvents btn_Cancel_Template As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents pnl_Top_Templates As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents txb_Template_Name As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Template_Name As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DS_ML_Templates As Metropolis_Launcher.DS_ML + Friend WithEvents BS_Templates As System.Windows.Forms.BindingSource + Friend WithEvents lbl_mount_options As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_serial_ports As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_serial1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_serial2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_serial3 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_serial4 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Patch_Options As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_patches As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_DOSBox_Settings_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_p_dosbox_settings As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_CPU_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Memory_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Video_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Sound_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Sound_Blaster_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_MIDI_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_SSI_2001_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_p_ssi2001 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_PS1_Audio_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_p_ps1audio As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_Keyboard_Mouse_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_Parallel_Ports_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_p_parallelports As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents tpg_NE2000_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tpg_IDE_Patches As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lbl_p_ide As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_cputype As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_cpu_cputype As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_cpu_cputype As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable34 As System.Data.DataTable + Friend WithEvents DataColumn38 As System.Data.DataColumn + Friend WithEvents lbl_p_dosbox_pit_hack As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_dosbox_pit_hack As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_dosbox_pit_hack As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable35 As System.Data.DataTable + Friend WithEvents DataColumn39 As System.Data.DataColumn + Friend WithEvents DataColumn40 As System.Data.DataColumn + Friend WithEvents lbl_p_dosbox_memsizekb2 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_p_dosbox_memsizekb As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_p_dosbox_memsizekb As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_render_scaler As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_render_scaler As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_sdl_output As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_sdl_output As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_sdl_output As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable36 As System.Data.DataTable + Friend WithEvents DataColumn41 As System.Data.DataColumn + Friend WithEvents BTA_p_render_scaler As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable37 As System.Data.DataTable + Friend WithEvents DataColumn42 As System.Data.DataColumn + Friend WithEvents btn_p_sdl_pixelshader_Clear As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents chb_p_sdl_pixelshader_forced As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents txb_p_sdl_pixelshader As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_p_sdl_pixelshader As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_p_sdl_pixelshader As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_dosbox_vmemsize As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_dosbox_vmemsize As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents lbl_p_dosbox_vmemsize_details As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_dosbox_vmemsize As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable38 As System.Data.DataTable + Friend WithEvents DataColumn43 As System.Data.DataColumn + Friend WithEvents DataColumn44 As System.Data.DataColumn + Friend WithEvents lbl_p_dosbox_forcerate_specific As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_p_dosbox_forcerate_specific As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents rb_p_dosbox_forcerate_specific As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rb_p_dosbox_forcerate_pal As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rb_p_dosbox_forcerate_ntsc As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents rb_p_dosbox_forcerate_disabled As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_dosbox_forcerate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_p_vsync_vsyncrate As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents cmb_p_vsync_vsyncmode As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_vsync_vsyncmode As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents lbl_p_vsync_vsyncrate As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_vsync_vsyncmode As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable39 As System.Data.DataTable + Friend WithEvents DataColumn45 As System.Data.DataColumn + Friend WithEvents chb_p_render_autofit As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_render_autofit As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_pci_voodoo As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_pci_voodoo As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_voodoo As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable40 As System.Data.DataTable + Friend WithEvents DataColumn46 As System.Data.DataColumn + Friend WithEvents lbl_p_glide_glide As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_p_glide_splash As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents cmb_p_glide_lfb As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_glide_lfb As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents cmb_p_glide_glide As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_glide_glide As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents lbl_p_glide_lfb As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable41 As System.Data.DataTable + Friend WithEvents DataColumn47 As System.Data.DataColumn + Friend WithEvents DataTable42 As System.Data.DataTable + Friend WithEvents DataColumn48 As System.Data.DataColumn + Friend WithEvents cmb_p_keyboard_auxdevice As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_keyboard_auxdevice As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents chb_p_keyboard_aux As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_keyboard_auxdevice As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_keyboard_aux As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable43 As System.Data.DataTable + Friend WithEvents DataColumn49 As System.Data.DataColumn + Friend WithEvents chb_p_mixer_swapstereo As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_mixer_swapstereo As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_sblaster_sbtype As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_sblaster_sbtype As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_sblaster_oplmode As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_sblaster_oplmode As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_sblaster_oplmode As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable44 As System.Data.DataTable + Friend WithEvents DataColumn50 As System.Data.DataColumn + Friend WithEvents chb_p_sblaster_goldplay As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_sblaster_goldplay As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_p_sblaster_hardwarebase As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_sblaster_hardwarebase As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_sblaster_hardwarebase As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable45 As System.Data.DataTable + Friend WithEvents DataColumn51 As System.Data.DataColumn + Friend WithEvents cmb_p_midi_mididevice As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_p_midi_mididevice As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_p_midi_mididevice As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable46 As System.Data.DataTable + Friend WithEvents DataColumn52 As System.Data.DataColumn + Friend WithEvents spn_p_midi_mt32_partials As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_p_midi_mt32_reverb_level As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents spn_p_midi_mt32_reverb_time As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents cmb_p_midi_mt32_reverb_mode As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_midi_mt32_reverb_mode As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents cmb_p_midi_mt32_dac As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_p_midi_mt32_dac As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents chb_p_midi_mt32_thread As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_p_midi_mt32_verbose As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_p_midi_mt32_reverse_stereo As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_midi_mt32_partials As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_reverb_level As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_reverb_time As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_reverb_mode As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_dac As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_thread As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_verbose As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_midi_mt32_reverse_stereo As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_p_midi_midiconfig As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_p_midi_midiconfig As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DataTable47 As System.Data.DataTable + Friend WithEvents DataColumn53 As System.Data.DataColumn + Friend WithEvents DataColumn54 As System.Data.DataColumn + Friend WithEvents DataTable48 As System.Data.DataTable + Friend WithEvents DataColumn55 As System.Data.DataColumn + Friend WithEvents txb_p_ne2000_nicbase As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents chb_p_ne2000_ne2000 As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_p_ne2000_nicirq As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_ne2000_nicbase As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_ne2000_ne2000 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_p_ne2000_nicirq As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents txb_p_ne2000_realnic As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents txb_p_ne2000_macaddr As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_p_ne2000_realnic As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_p_ne2000_macaddr As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_p_ne2000_realnic As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_p_ne2000_realnic_clear As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents BS_DOSBox_Configs_Compare As System.Windows.Forms.BindingSource + Friend WithEvents txb_autoexec_after As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents txb_autoexec_before As MKNetDXLib.ctl_MKDXMemoEdit + Friend WithEvents Ctl_MKDXLabel1 As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_autoexec_before As MKNetDXLib.ctl_MKDXLabel + +End Class diff --git a/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.resx b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.resx new file mode 100644 index 0000000..8ce946f --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.resx @@ -0,0 +1,2712 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 509, 17 + + + 420, 17 + + + 612, 217 + + + 462, 217 + + + 120, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 270, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 797, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 670, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Amount of memory DOSBox has in megabytes. This value is best left at its default to avoid problems with some games, though few games might require a higher value. There is generally no speed advantage when raising this value. + + + Amount of memory DOSBox has in megabytes. This value is best left at its default to avoid problems with some games, though few games might require a higher value. There is generally no speed advantage when raising this value. + + + 17, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1440, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1454, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 924, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + original;320x200;320x240;640x432;640x480;720x480;800x600;960x600;1024x768;1152x864;1280x720;1280x768;1280x800;1280x960;1280x1024;1360x768;1366x760;1366x768;1440x900;1600x1200;1680x1050;1920x1080;1920x1200 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Which resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with Keep Aspect Ratio checked might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + 1094, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + original;320x200;320x240;640x432;640x480;720x480;800x600;960x600;1024x768;1152x864;1280x720;1280x768;1280x800;1280x960;1280x1024;1360x768;1366x760;1366x768;1440x900;1600x1200;1680x1050;1920x1080;1920x1200 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Which resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with Keep Aspect Ratio checked might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + 167, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKgIAACoCAABEBAAAAQEBAQoPAgAAAEQEAAACH4sIAAAAAAAEAK1UW2/TMBRud6ko + A1544DXKc5s07MaiZpNYJYTYClrLtLfJTU5bg+0UX9r0jV/B3x3HjdttVScQwpFs51y+77NPTirVSqVy + h8OudrzYwqnbmysNPOgQTRreNUhFc5EcBC37NLxzw7SRkAgwWhLW8L6YAaPpJ5j38+8gksHxMTlMD4+i + k/0DaL072bXgrx9gLqYe6G20v3H74Ap4rqkYObr6DWe9dAyc7OGuQ4fDD5Lw7Wr1lQNycVZv3QLVdnD6 + VWufFZx5U6fZj4KW74FI8wyhE9/oYTM68s9OXz5vFypWCwKPZonfhZlT4nuIIFTiu01c4H6s9SQOw9ls + Fsz2g1yOwretVhTeXF6UIpexXGWIgkRSOHTV5DSVucqHupnmPMa4ZhnlowrPszqAAQehPUE4PJZSRsYf + lbMkvpYGVvavCs6NlJh7kaeEgXMvgEtopJwwKPrzCTirs49zmoLHqficpkbiEfGiOCmWb0YMciMyyPxV + 2iatfTJgED2MeZr23qvgh8GirLs2EVwTZs+rESjxbaqWWMnVBWgiR6C7GKomJAVbtMdHCv+Co0PVhJG5 + hkL/R6Z2+NRJF57NN7RwOXX39QpXBVtWdhPCWm7Jv/gGT2u72Bw/q+0M+2gk43Ih/F8+WpdTQvwpZ0nU + nEb2gnZso641sG3b2u0l+ZZLXKiwy3tDWVa/vYIptSH2x/QMx5b7Sd25sfcbZLuCZL8EAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + auto;Automatic (auto);none;None (none);be;Belgium (be);br;Brazil (br);cf;Canadian-French (cf);cz;Czech (cz);sl;Slovakia (sl);dk;Denmark (dk);su;Finland (su);fr;France (fr);gr;Germany (gr);hu;Hungary (hu);it;Italy (it);la;Latin America (la);nl;Netherlands (nl);no;Norway (no);pl;Poland (pl);po;Portugal (po);sp;Spain (sp);sv;Sweden (sv);sf;Switzerland/French (sf);sg;Switzerland/German (sg);uk;United Kingdom (uk);us;United States (us);yu;Yugoslavia/Serbo-Croatian (yu) + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1003, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 687, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 847, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 528, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 355, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + What resolution to use for fullscreen: original or fixed size (e.g. 1024x768). + +Using your monitor's native resolution with aspect=true might give the best results. + +If you end up with small window on a large screen, try an output different from surface. + + + 1290, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 804, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1266, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 306, 217 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 157, 217 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 17, 217 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1342, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1180, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1119, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 667, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 971, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 205, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 349, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 515, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 17, 61 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKgIAACoCAABEBAAAAQEBAQoPAgAAAEQEAAACH4sIAAAAAAAEAK1Uy27TQBRN+ogI + BTYs2FpeJ3ZMX9SKW4lGQog2oCZU3VUT+yYxzCPMI3F2fAW/W+7Ek7SNUoEQY2lmfB/nnJnr60q1Uqnc + 4bCrHS+2cOr25koDCzpEk4Z3DVLlgicHQcs+De/cUG0kJByMloQ2vC9mQPP0E8z74jvwZHB8TA7Tw6Po + ZP8AWu9Odi346weYi6kHehvtb9w+uAImdM5Hjq5+w2gvHQMje7jr5MPhB0nYdrX6ygG5OKu3boFqOzj9 + qrXPCka9qdPsR0HL94CnIkPoxDd62IyO/LPTl8/bhYrVgsDLs8Tvwswp8T1E4Crx3SYucD/WehKH4Ww2 + C2b7gZCj8G2rFYU3lxelyGUsUxmiIJHkDl01WZ5KocRQN1PBYoxrllE+qvA8qwMoMODa44TBYyllZPxR + OUvia2lgZf+q4NxIibkXIiUUnHsBXEIj5YRC0Z9PwFmdfSzyFDyW889paiQeES+KkWL5ZvhAGJ5B5q/S + NmntkwGF6GHM07T3XgU/DBZl3bWJ4JpQe16NQIlvU7XESq4uQBM5At3FUDUhKdiiPT5S+BccnVxNKJn3 + odD/kakdPnXShWfzDS1cTt19vcJVwZaV3YSwllvyL77B09ouNsfPajvDPhrJuFwI+5eP1uWUEH/KWRI1 + p5G9oB3bqGsNbNu2dntJvgmJS87t8t7kNKvfXsE0tyH2x/QMx5b7Sd25sfcbJphIdb8EAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + none;Disabled (none);auto;Automatic (auto);2axis;Two Joys suppoted (2axis);4axis;One Joy - First Joy used (4axis);4axis_2;One Joy - Second Joy used (4axis_2);fcs;Thrustmaster (fcs);ch;CH Flightstick (ch) + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + If set, demo/game-specific hacks are applied to PIT timer emulation to help stabilize the demo and run more reliably. + +project_angel_demo: If you intend to run the Project Angel demo, use this setting. The PIT timer is forced to one of two values to resolve hangups, timing issues, music skipping on video mode changes, and VGA tearlines. + +pc_speaker_as_timer: A few early DOS demos apparently like to use PIT 2 as a timer source (where normally PIT 2 is used to generate a square wave to drive the PC speaker). If the demo or game you are running seems to run at half the normal speed for no logical reason, try this hack. Demos that need this hack: +- Impact Studios, Legend + + + 17, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKQIAACkCAABCBAAAAQEBAQoPAgAAAEIEAAACH4sIAAAAAAAEAK1Uy27TQBRN+ogI + BTYs2FpeJ3ZMX9SKW4lWQog2oCag7qqJfZO6zCPMI3F2fAW/W+7Yk7SNUoEQY2lmfB/nnJnr61q9Vqvd + 4bCrHS82cOr150oDC86IJi3vG0iVC57sBR37tLxTQ7WRkHAwWhLa8r6YIc3TTzAfiO/Ak+HhIdlP9w+i + o9096Lw72rbgrx9gllMf9Cba37h9cAlM6JyPHV3zitF+egOM7ODuLB+NPkjCNuv1Vw7IxVm9TQvU2MLp + V6N7UjDqTZ1mPwo6vgc8FRlCJ77Ro3Z04J8cv3zeLVSsSgIvzxK/BzOnxPcQgavEd5u4wP2N1pM4DGez + WTDbDYQch287nSi8ujivRC5imcoQBYkkd+iqzfJUCiVGup0KFmNcu4ryUYXnWR1AgQHXHicMHkupIuOP + ylkSX0sDS/tXBadGSsw9Fymh4NwlcAWNlBMKxWA+AWd19huRp+CxnH9OUyPxiHhRjBSLN8OHwvAMMn+Z + tk7rgAwpRA9jnqa99yr4YbAoq651BFNC7Xk1AiW+TdUSK7m8AE3kGHQPQ9WEpGCL9vhI4V9wZLmaUDLX + UOj/yNQNnzpp6Vl/Q6XLqbuvV7gs2KKy6xBWciv+8hs8bmxjc/ysdzPso7GMq4Wwf/loXU4F8aecBVF7 + GtkL2rKNutLAtm0b1xfkVkhccm6X9yanWfP6Eqa5DbE/pmc4NtxP6s6Nnd/8qNxWvwQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + If set, demo/game-specific hacks are applied to PIT timer emulation to help stabilize the demo and run more reliably. + +project_angel_demo: If you intend to run the Project Angel demo, use this setting. The PIT timer is forced to one of two values to resolve hangups, timing issues, music skipping on video mode changes, and VGA tearlines. + +pc_speaker_as_timer: A few early DOS demos apparently like to use PIT 2 as a timer source (where normally PIT 2 is used to generate a square wave to drive the PC speaker). If the demo or game you are running seems to run at half the normal speed for no logical reason, try this hack. Demos that need this hack: +- Impact Studios, Legend + + + 1316, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Any amount larger than 0 overrides the Memory size in MB. Amount of memory DOSBox has in kilobytes. Finer grained control of total memory may be useful in emulating ancient DOS machines with less than 640KB of RAM or early 386 systems with odd extended memory sizes. + + + Any amount larger than 0 overrides the Memory size in MB. Amount of memory DOSBox has in kilobytes. Finer grained control of total memory may be useful in emulating ancient DOS machines with less than 640KB of RAM or early 386 systems with odd extended memory sizes. + + + Any amount larger than 0 overrides the Memory size in MB. Amount of memory DOSBox has in kilobytes. Finer grained control of total memory may be useful in emulating ancient DOS machines with less than 640KB of RAM or early 386 systems with odd extended memory sizes. + + + 334, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 197, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1221, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 905, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Amount of video memory in megabytes. The maximum resolution and color depth the svga_s3 will be able to display is determined by this value. For build engine games, use more memory so it can use triple buffering and thus won't flicker. + + + 1354, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAALQIAAC0CAABKBAAAAQEBAQoPAgAAAEoEAAACH4sIAAAAAAAEAJ1UW2/TMBRud6ko + A1544DXKc5s07MaiZpPYJITYCloL2tvkJqedh+0UX9r0jf/ADx7HjXtZ1Qk0V7Ldc/m+zz4+qVQrlcoD + Drva8WoLp053qjTw4IJo0vB+gFQ0F8lB0LK/hndumDYSEgFGS8Ia3jfTZzT9AtNe/hNE0j8+Jofp4VF0 + sn8ArQ8nuxb87QrmbOqC3kb7O7cProHnmoqho6vfcNZN74CTPdxd0MHgkyR8u1p944BcnNVbt0C1HZz+ + 1NpnBWfe2Gn2o6DleyDSPEPoxDd60IyO/LPT1y/bhYrVjMCjWeJ3YOKU+B4iCJX4bhMXuL/TehSH4WQy + CSb7QS6H4ftWKwpvri5LkfNYrjJEQSIpHLpqcprKXOUD3UxzHmNcs4zyUYXnWR3AgIPQniAcHkspI+PP + ylkSX0sDC/t3BedGSsy9zFPCwLlnwCU0Uo4YFL3pCJzV2e9ymoLHqfiapkbiEfGiOCnm/4zo50ZkkPmL + tE1ae6TPIFqNeZp26VXwy2BR1l2bCMaE2fNqBEp89FKxvBVN5BB0B+PUiKRgK/b4POF/EGRUjRiZaij0 + Co3SEh/M85na4VPHnHk2X8/M5dQtixUuqjUv6yaEtdySf/YAT2u72Bm/q+0Mm2go43Ih/Dkv1uWUEP/K + mRM1x5G9oB3bpWvda3u2dntF7nOJCxV2+Wgoy+q31zCmNsR+lV7g2HJfqAc39v4C161ULLwEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Amount of video memory in megabytes. The maximum resolution and color depth the svga_s3 will be able to display is determined by this value. For build engine games, use more memory so it can use triple buffering and thus won't flicker. + + + Some patches introduce new scalers. This setting overrides the (standard) scaler setting. Scalers are used to enlarge/enhance low resolution modes. If forced, then the scaler will be used even if the result might not be desired. + + + 233, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Some patches introduce new scalers. This setting overrides the (standard) scaler setting. Scalers are used to enlarge/enhance low resolution modes. If forced, then the scaler will be used even if the result might not be desired. + + + Amount of video memory in megabytes. The maximum resolution and color depth the svga_s3 will be able to display is determined by this value. For build engine games, use more memory so it can use triple buffering and thus won't flicker. + + + 395, 178 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 691, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 862, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 1092, 100 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + MT-32 DAC input emulation mode: + +Nice: Produces samples at double the volume, without tricks. Higher quality than the real devices. + +Pure: Produces samples that exactly match the bits output from the emulated LA32. Nicer overdrive characteristics than the DAC hacks (it simply clips samples within range). Much less likely to overdrive than any other mode. Half the volume of any of the other modes, meaning its volume relative to the reverb output when mixed together directly will sound wrong. So, reverb level must be lowered. Perfect for developers while debugging :) + +GENERATION1: Re-orders the LA32 output bits as in early generation MT-32s (according to Wikipedia). Bit order at DAC (where each number represents the original LA32 output bit number, and XX means the bit is always low): 15 13 12 11 10 09 08 07 06 05 04 03 02 01 00 XX + +GENERATION2: Re-orders the LA32 output bits as in later geneerations (personally confirmed on my CM-32L - KG). Bit order at DAC (where each number represents the original LA32 output bit number): 15 13 12 11 10 09 08 07 06 05 04 03 02 01 00 14 + + + 1049, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKQIAACkCAABCBAAAAQEBAQoPAgAAAEIEAAACH4sIAAAAAAAEAK1Uy27TQBRN+ogI + BTYs2FpeJ3ZMX9SKW4lWQog2oCag7qqJfZO6zCPMI3F2fAW/W+7Yk7SNUoEQY2lmfB/nnJnr61q9Vqvd + 4bCrHS82cOr150oDC86IJi3vG0iVC57sBR37tLxTQ7WRkHAwWhLa8r6YIc3TTzAfiO/Ak+HhIdlP9w+i + o9096Lw72rbgrx9gllMf9Cba37h9cAlM6JyPHV3zitF+egOM7ODuLB+NPkjCNuv1Vw7IxVm9TQvU2MLp + V6N7UjDqTZ1mPwo6vgc8FRlCJ77Ro3Z04J8cv3zeLVSsSgIvzxK/BzOnxPcQgavEd5u4wP2N1pM4DGez + WTDbDYQch287nSi8ujivRC5imcoQBYkkd+iqzfJUCiVGup0KFmNcu4ryUYXnWR1AgQHXHicMHkupIuOP + ylkSX0sDS/tXBadGSsw9Fymh4NwlcAWNlBMKxWA+AWd19huRp+CxnH9OUyPxiHhRjBSLN8OHwvAMMn+Z + tk7rgAwpRA9jnqa99yr4YbAoq651BFNC7Xk1AiW+TdUSK7m8AE3kGHQPQ9WEpGCL9vhI4V9wZLmaUDLX + UOj/yNQNnzpp6Vl/Q6XLqbuvV7gs2KKy6xBWciv+8hs8bmxjc/ysdzPso7GMq4Wwf/loXU4F8aecBVF7 + GtkL2rKNutLAtm0b1xfkVkhccm6X9yanWfP6Eqa5DbE/pmc4NtxP6s6Nnd/8qNxWvwQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + MT-32 DAC input emulation mode: + +Nice: Produces samples at double the volume, without tricks. Higher quality than the real devices. + +Pure: Produces samples that exactly match the bits output from the emulated LA32. Nicer overdrive characteristics than the DAC hacks (it simply clips samples within range). Much less likely to overdrive than any other mode. Half the volume of any of the other modes, meaning its volume relative to the reverb output when mixed together directly will sound wrong. So, reverb level must be lowered. Perfect for developers while debugging :) + +GENERATION1: Re-orders the LA32 output bits as in early generation MT-32s (according to Wikipedia). Bit order at DAC (where each number represents the original LA32 output bit number, and XX means the bit is always low): 15 13 12 11 10 09 08 07 06 05 04 03 02 01 00 XX + +GENERATION2: Re-orders the LA32 output bits as in later geneerations (personally confirmed on my CM-32L - KG). Bit order at DAC (where each number represents the original LA32 output bit number): 15 13 12 11 10 09 08 07 06 05 04 03 02 01 00 14 + + + Special configuration options for the device driver. This is usually the id of the device you want to use. In the case of coreaudio, you can specify a soundfont here. + +When using a Roland MT-32 rev. 0 as midi output device, some games may require a delay in order to prevent 'buffer overflow' issues. In that case, add 'delaysysex', for example: "2 delaysysex". See the README/Manual for more details. + + + Special configuration options for the device driver. This is usually the id of the device you want to use. In the case of coreaudio, you can specify a soundfont here. + +When using a Roland MT-32 rev. 0 as midi output device, some games may require a delay in order to prevent 'buffer overflow' issues. In that case, add 'delaysysex', for example: "2 delaysysex". See the README/Manual for more details. + + + 484, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 662, 139 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAHAIAABwCAAAoBAAAAQEBAQoPAgAAACgEAAACH4sIAAAAAAAEAJ1UW0/bMBRugVbr + 2Payh71aeW6TZtxG1IAESNM06CbaTbwhNzltw2K786WXN37Q/iM7TtwCVdGkOZLtnMv3fT6+VKqVSuUB + mx1te7OFXbe3UBqYf0E1bZKfIFUmeLzvt+3XJOcm10ZCzMFoSfMm+W4GeZZ8hUVf/AIeD46O6EFycBge + 7+1D+9NxzYK/f4JZdD3Q22j/4Ob+NTChMz5ydI0blveSMTC6i7OLbDj8LCnbrlbfOSAXZ/U2LFB9B7s/ + tc7pnOVk6jR7od/2CPBEpAgde0YPW+Ghd3ry9nVnriJVEJAsjb0uzJwSjyACV7HnJtEc52OtJ1EQzGYz + f7bnCzkKPrbbYXBzdVmKXMYylSIKEknu0FWLZYkUSgx1KxEswrhWGeWhCkKsDsiBAdeEUwbPpZSR0Rfl + LLGnpYGV/YeCcyMl5l6KhObg3AVwCY2Ukxzm/cUEnNXZxyJLgLCMf0sSI3GJWChG58s/wwfC8BRSb5W2 + SWufDnIIn8a8TPvoVfDb4KasuzYRTGlu16sRKPZsqpa4k6sCaCpHoLsYqiY0Abtpz5cUrNMHL/EXns26 + C5fT9VjFYFXGZb03IazllvzFyTip1/DI3lc7KZ7ukYzKgbL/OUoup4T4V86SqDUNbYF27PVZu1b2MtVv + r+idkDhk3A5nJsvTxu01TDMbYp+LV9i23NPx4NruX06O5L9VBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + Enable emulation of the 8042 auxiliary port. PS/2 mouse emulation requires this to be enabled. You should enable this if you will be running Windows ME or any other OS that does not use the BIOS to receive mouse events. + + + Enable emulation of the 8042 auxiliary port. PS/2 mouse emulation requires this to be enabled. You should enable this if you will be running Windows ME or any other OS that does not use the BIOS to receive mouse events. + + + The physical node address of the card. This is used to identify the computer on the network on the lowest level and has to be unique for every instance of DOSBox running on the same LAN. AC:DE:48 is a special reserved address range not used by commercial network cards. + +Metropolis Launcher generates random mac address characters in places where you put a questionmark "?" placeholder. This happens every single start of DOSBox. + + + The physical node address of the card. This is used to identify the computer on the network on the lowest level and has to be unique for every instance of DOSBox running on the same LAN. AC:DE:48 is a special reserved address range not used by commercial network cards. + +Metropolis Launcher generates random mac address characters in places where you put a questionmark "?" placeholder. This happens every single start of DOSBox. + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAMQIAADECAABSBAAAAQEBAQoPAgAAAFIEAAACH4sIAAAAAAAEALVUW2/TMBRud6ko + A1544DXKc5s07MaiZpPYJITYOrQWtLfKTU47j9gpvjTtGz+ZfzCOE/eyqhNoEo5kO+fyfcfHx6dSrVQq + DzjMasarLZw63ZlUwLwLokjD+Q5C0oxHB17LfA3nXKdKC4g4aCVI2nC+6kFK4y8w62U/gEeD42NyGB8e + BSf7B9D6cLJrwN+uYBZTF9Q2yt/ZvXcDLFOUjyxd/Zal3fgOGNnD3QUdDj8Jwrar1TcWyNqZeOsGqLaD + 0+9a+2zKUmdiY3YDr+U6wOMsQejI1WrYDI7cs9PXL9tTGcqCwKFJ5HYgt5G4DiJwGbl2E05xf6fUOPT9 + PM+9fN/LxMh/32oF/u3VZRnk3JbJBFGQSHCLLpuMxiKT2VA144yFaNcsrVyMwnFMHJACA64cThg8DqW0 + DD9LK4lcJTQs5N8knGsh0Pcyi0kKVl0Al9BIOU5h2puNwUqt/C6jMTiM8us41gKPiIliZDr/03yQaZ5A + 4i7cNsXaI4MUglWbp2mXWgk/NV7KumoTAU1cRyFK5KKK8mVKFBEjUB00kmMSg7mux4fx/wm9f51zEP+T + A1NkEFYopBJYjc9naftP5bDQbM59obKRLSvBX5TCvGY2Iaz5lvxFdZ/WdvHZ/aq2E3yhIxGWC2HPeQ7W + p4T4m8+cqDkJTIJ2TAtYaw2mIdT6V+Q+E7hQbpaPmqZJvX8DE2pMTMt7gWPLtr8HO/b+AHJuhvgZBQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAL + + + + 1;;DOSBox Settings;2;;CPU;3;;Memory;4;;Video;5;;Keyboard & Mouse;6;;Sound;7;6;Volumes;8;6;Sound Blaster;9;6;GUS;10;6;MIDI;11;;Joystick;12;;Mount Options;13;;Serial Ports;14;13;Serial 1;15;13;Serial 2;16;13;Serial 3;17;13;Serial 4;18;;Patch Options;19;18;DOSBox Settings (Patches);20;18;CPU (Patches);21;18;Memory (Patches);22;18;Video (Patches);23;18;Sound (Patches);24;23;Sound Blaster (Patches);26;23;MIDI (Patches);27;23;SSI-2001 (Patches);28;23;PS/1 Audio (Patches);29;18;Keyboard & Mouse (Patches);30;18;Parallel Ports (Patches);31;18;NE-2000 (Patches);32;18;IDE (Patches) + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 17, 178 + + + 111 + + \ No newline at end of file diff --git a/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.vb b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.vb new file mode 100644 index 0000000..0b5bc9d --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_DOSBox_Config.vb @@ -0,0 +1,437 @@ +Public Class ucr_DOSBox_Config + Private _First_Paint_Handled As Boolean = False + + Private _id_Emu_Games As Long = 0 ' <> 0 when Game specific config + Private _id_DOSBox_Configs As Long = 0 ' <> 0 when Template config + + Public Event E_Close(ByVal sender As Object, ByVal e As System.EventArgs) + + Public Event E_Template_Changing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + + Public Sub New() + InitializeComponent() + + SetControlValues() + End Sub + + Public Sub Show_Panels() + Me.SuspendLayout() + + Me.pnl_Top.Visible = False + Me.pnl_Bottom.Visible = False + Me.pnl_Top_Templates.Visible = False + Me.spltpnl_Main.Visible = False + + If Me._id_Emu_Games <> 0 Then + 'Game specific config + Me.pnl_Top.Visible = True + Me.spltpnl_Main.Visible = True + End If + + If Me._id_DOSBox_Configs <> 0 Then + 'Template config + Me.pnl_Top_Templates.Visible = True + Me.spltpnl_Main.Visible = True + Me.pnl_Bottom.Visible = True + End If + + Me.ResumeLayout() + End Sub + + Public Sub Clear() + Me._id_DOSBox_Configs = 0 + Me._id_Emu_Games = 0 + + Me.DS_ML.tbl_DOSBox_Configs.Clear() + SetControlValues() + Show_Panels() + End Sub + + Public Sub SetEnableCompare(ByVal EnableCompare As Boolean) + For Each ctrl As Windows.Forms.Control In MKNetDXLib.frm_MKDXBaseForm.GetAllControls(Me.Controls) + If ctrl.GetType.GetInterface("IMKEditValueComparer") IsNot Nothing Then + Dim compare_ctrl As MKNetDXLib.IMKEditValueComparer = ctrl + If compare_ctrl IsNot Nothing Then + compare_ctrl.MKEnable_EditValue_Compare = EnableCompare + End If + End If + + If Not EnableCompare AndAlso ctrl.GetType Is GetType(MKNetDXLib.ctl_MKDXLabel) Then + Dim lbl As MKNetDXLib.ctl_MKDXLabel = CType(ctrl, MKNetDXLib.ctl_MKDXLabel) + lbl.Font = New Font(lbl.Font.FontFamily, lbl.Font.Size) + End If + Next + End Sub + + Public Sub Load_Template(ByVal id_DOSBox_Configs As Long) + Me._id_DOSBox_Configs = id_DOSBox_Configs + Me._id_Emu_Games = 0 + + Me.DS_ML.tbl_DOSBox_Configs.Clear() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_DOSBox_Template_Configs(tran, Me.DS_ML.tbl_DOSBox_Configs, id_DOSBox_Configs) + + Dim id_Rombase_DOSBox_Configs As Integer = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "SELECT id_Rombase_DOSBox_Configs FROM main.tbl_DOSBox_Configs WHERE id_DOSBox_Configs = " & TC.getSQLFormat(id_DOSBox_Configs), tran), 0) + If id_Rombase_DOSBox_Configs > 0 Then + 'compare + DS_ML.Fill_tbl_Rombase_DOSBox_Template_Configs(tran, Me.DS_ML_Templates.tbl_DOSBox_Configs, id_Rombase_DOSBox_Configs) + SetEnableCompare(True) + Else + 'Don't compare + SetEnableCompare(False) + End If + + SetControlValues() + Show_Panels() + + + End Using + End Sub + + Public Sub Load_Game_Config(ByVal id_Emu_Games As Long) + Me._id_DOSBox_Configs = 0 + Me._id_Emu_Games = id_Emu_Games + + Me._sem_cmb_Template_EditValueChanging = True + + Me.DS_ML.tbl_DOSBox_Configs.Clear() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_tbl_DOSBox_Configs(tran, Me.DS_ML.tbl_DOSBox_Configs, id_Emu_Games) + + Dim id_Templates As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_DOSBox_Configs_Template FROM main.tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games)) + + DS_ML.Fill_tbl_DOSBox_Template_Configs(tran, Me.DS_ML_Templates.tbl_DOSBox_Configs) + + SetEnableCompare(True) + + cmb_Template.EditValue = id_Templates + BS_Templates.Position = BS_Templates.Find("id_DOSBox_Configs", id_Templates) + SetControlValues() + Show_Panels() + End Using + + Me._sem_cmb_Template_EditValueChanging = False + End Sub + + Private Sub SetControlValues() + If BS_DOSBox_Configs.Current Is Nothing Then Return + + Dim row As DataRow = BS_DOSBox_Configs.Current.Row + + 'CPU Cycles + Dim sCPUCycles As String = TC.NZ(row("cpu-cycles"), "") + If sCPUCycles.Contains("auto") Then + rb_cpu_cycles_auto.Checked = True + ElseIf sCPUCycles.Contains("max") Then + rb_cpu_cycles_max.Checked = True + ElseIf sCPUCycles.Contains("fixed") Then + rb_cpu_cycles_fixed.Checked = True + End If + + spn_p_dosbox_forcerate_specific.Value = 0 + Dim s_p_dosbox_forcerate As String = TC.NZ(row("p_dosbox_forcerate"), "") + If s_p_dosbox_forcerate = "ntsc" Then + rb_p_dosbox_forcerate_ntsc.Checked = True + ElseIf s_p_dosbox_forcerate = "pal" Then + rb_p_dosbox_forcerate_pal.Checked = True + ElseIf IsNumeric(s_p_dosbox_forcerate) Then + rb_p_dosbox_forcerate_specific.Checked = True + spn_p_dosbox_forcerate_specific.Value = CInt(s_p_dosbox_forcerate) + Else + rb_p_dosbox_forcerate_disabled.Checked = True + End If + + Dim matches As System.Text.RegularExpressions.MatchCollection = MKNetLib.cls_MKRegex.GetMatches(sCPUCycles, "\d+") + If matches.Count > 0 Then + spn_cpu_cycles_fixed.Value = Convert.ToInt64(matches(0).Value) + End If + End Sub + + Private Sub SetDataRowValues() + If BS_DOSBox_Configs.Current Is Nothing Then Return + + BS_DOSBox_Configs.EndEdit() + + Dim row As DataRow = BS_DOSBox_Configs.Current.Row + + 'CPU Cycles + If rb_cpu_cycles_auto.Checked Then + row("cpu-cycles") = "auto" + ElseIf rb_cpu_cycles_max.Checked Then + row("cpu-cycles") = "max" + Else + row("cpu-cycles") = "fixed " & spn_cpu_cycles_fixed.Value.ToString + End If + + 'Force Framerate + If rb_p_dosbox_forcerate_disabled.Checked Then + row("p_dosbox_forcerate") = DBNull.Value + ElseIf rb_p_dosbox_forcerate_ntsc.Checked Then + row("p_dosbox_forcerate") = "ntsc" + ElseIf rb_p_dosbox_forcerate_pal.Checked Then + row("p_dosbox_forcerate") = "pal" + Else + row("p_dosbox_forcerate") = CInt(spn_p_dosbox_forcerate_specific.Value.ToString) + End If + End Sub + + Private Sub ucr_DOSBox_Config_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint + tree_Pages.ForceInitialize() + tree_Pages.ExpandAll() + + If Not Me.DesignMode Then + Me.tcl_Dosbox_Config.ShowTabHeader = DevExpress.Utils.DefaultBoolean.False + End If + End Sub + + Private Sub BTA_Tabs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTA_Tabs.CurrentChanged + If BTA_Tabs.Current IsNot Nothing Then + For Each tabpg As DevExpress.XtraTab.XtraTabPage In tcl_Dosbox_Config.TabPages + If tabpg.Text = BTA_Tabs.Current("TabName") Then + tcl_Dosbox_Config.SelectedTabPage = tabpg + End If + Next + End If + End Sub + + Private Sub rb_cpu_cycles_fixed_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb_cpu_cycles_fixed.CheckedChanged + Me.spn_cpu_cycles_fixed.Enabled = Me.rb_cpu_cycles_fixed.Checked + End Sub + + Private Sub spn_cpu_cycleup_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spn_cpu_cycleup.EditValueChanged, spn_cpu_cycledown.EditValueChanged + lbl_cpu_cycleup_unit.Text = IIf(spn_cpu_cycleup.Value < 100, "%", "frames") + lbl_cpu_cycledown_unit.Text = IIf(spn_cpu_cycledown.Value < 100, "%", "frames") + End Sub + + Private Sub chb_ml_useloadfix_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chb_ml_useloadfix.CheckedChanged + lbl_ml_loadfix.Enabled = chb_ml_useloadfix.Checked + spn_ml_loadfix.Enabled = chb_ml_useloadfix.Checked + End Sub + + Private Sub Volume_Trackbars_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_ml_volume_master_left.ValueChanged, tb_ml_volume_master_right.ValueChanged, tb_ml_volume_cdaudio_left.ValueChanged, tb_ml_volume_cdaudio_right.ValueChanged, tb_ml_volume_disney_left.ValueChanged, tb_ml_volume_disney_right.ValueChanged, tb_ml_volume_fm_left.ValueChanged, tb_ml_volume_fm_right.ValueChanged, tb_ml_volume_gus_left.ValueChanged, tb_ml_volume_gus_right.ValueChanged, tb_ml_volume_sb_left.ValueChanged, tb_ml_volume_sb_right.ValueChanged, tb_ml_volume_spkr_left.ValueChanged, tb_ml_volume_spkr_right.ValueChanged + If sender Is tb_ml_volume_master_left Then lbl_ml_volume_master_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_master_right Then lbl_ml_volume_master_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_cdaudio_left Then lbl_ml_volume_cdaudio_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_cdaudio_right Then lbl_ml_volume_cdaudio_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_disney_left Then lbl_ml_volume_disney_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_disney_right Then lbl_ml_volume_disney_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_fm_left Then lbl_ml_volume_fm_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_fm_right Then lbl_ml_volume_fm_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_gus_left Then lbl_ml_volume_gus_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_gus_right Then lbl_ml_volume_gus_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_sb_left Then lbl_ml_volume_sb_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_sb_right Then lbl_ml_volume_sb_right.Text = sender.Value.ToString + If sender Is tb_ml_volume_spkr_left Then lbl_ml_volume_spkr_left.Text = sender.Value.ToString + If sender Is tb_ml_volume_spkr_right Then lbl_ml_volume_spkr_right.Text = sender.Value.ToString + End Sub + + Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save_Template.Click + Save_Template() + End Sub + + Public Function Save_Template(Optional ByVal Create_Duplicate As Boolean = False, Optional ByVal New_Template_Name As String = "") As Int64 + Dim result As Int64 = 0 + + If BS_DOSBox_Configs.Current Is Nothing Then Return result + + 'Set Non-bound Data, also does BS.EndEdit + SetDataRowValues() + + If Not BS_DOSBox_Configs.Current.Row.RowState = System.Data.DataRowState.Unchanged Then + If TC.NZ(BS_DOSBox_Configs.Current("Displayname"), "").Length = 0 Then + DevExpress.XtraEditors.XtraMessageBox.Show("Please provide a template name.", "Save Template", MessageBoxButtons.OK, MessageBoxIcon.Warning) + txb_Template_Name.Focus() + Return result + End If + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + result = DS_ML.Upsert_tbl_DOSBox_Configs_Templates(tran, BS_DOSBox_Configs.Current.Row) + BS_DOSBox_Configs.Current.Row.AcceptChanges() + End Using + End If + + If Create_Duplicate Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + result = DS_ML.Upsert_tbl_DOSBox_Configs_Templates(tran, BS_DOSBox_Configs.Current.Row, True, New_Template_Name) + End Using + End If + + Return result + End Function + + ''' + ''' Save the configuration for a specific game + ''' + ''' + ''' + Public Sub Save_Game_Config(ByVal tran As SQLite.SQLiteTransaction) + If BS_DOSBox_Configs.Current Is Nothing Then Return + + 'Set Non-bound Data, also does BS.EndEdit + SetDataRowValues() + + If BS_DOSBox_Configs.Current.Row.RowState = System.Data.DataRowState.Unchanged Then + Return + End If + + DS_ML.Upsert_tbl_DOSBox_Config(tran, BS_DOSBox_Configs.Current.Row, Me._id_Emu_Games) + BS_DOSBox_Configs.Current.Row.AcceptChanges() + End Sub + + Public Sub Reject_Configuration() + BS_DOSBox_Configs.Current.Row.RejectChanges() + End Sub + + Private Sub btn_Cancel_Template_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel_Template.Click + RaiseEvent E_Close(Me, New System.EventArgs) + End Sub + + Public Function HasChanges() As Boolean + BS_DOSBox_Configs.EndEdit() + If BS_DOSBox_Configs.Current Is Nothing Then + Return False + Else + Return Not BS_DOSBox_Configs.Current.Row.RowState = System.Data.DataRowState.Unchanged + End If + End Function + + Private _sem_cmb_Template_EditValueChanging As Boolean = False + + Private Sub cmb_Template_EditValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Template.EditValueChanged + If _sem_cmb_Template_EditValueChanging Then Return + If _id_Emu_Games = 0 Then Return 'Only check, if it is a game specific config + + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET id_DOSBox_Configs_Template = " & TC.getSQLFormat(cmb_Template.EditValue) & " WHERE id_Emu_Games = " & Me._id_Emu_Games) + + Load_Game_Config(Me._id_Emu_Games) + End Sub + + Private Sub cmb_Template_EditValueChanging(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles cmb_Template.EditValueChanging + If _sem_cmb_Template_EditValueChanging Then Return + If _id_Emu_Games = 0 Then Return 'Only check, if it is a game specific config + + If Me.HasChanges Then + Dim res As DialogResult = DevExpress.XtraEditors.XtraMessageBox.Show("Do you want to save your current changes before changing the underlying template?", "Change Template", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + If res = Windows.Forms.DialogResult.Yes Then + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + Save_Game_Config(tran) + tran.Commit() + End Using + End If + + If res = Windows.Forms.DialogResult.No Then + Reject_Configuration() + End If + + If res = Windows.Forms.DialogResult.Cancel Then + e.Cancel = True + End If + End If + End Sub + + Private Sub Handle_LookupEdit_Delete_Button_Press(sender As System.Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_p_cputype.ButtonPressed, cmb_p_dosbox_pit_hack.ButtonPressed, cmb_p_sdl_output.ButtonPressed, cmb_p_render_scaler.ButtonPressed, cmb_p_sblaster_sbtype.ButtonPressed, cmb_p_sblaster_oplmode.ButtonPressed, cmb_p_sblaster_oplmode.ButtonPressed, cmb_p_sblaster_hardwarebase.ButtonPressed, cmb_p_midi_mididevice.ButtonPressed, cmb_p_midi_mt32_reverb_mode.ButtonPressed, cmb_p_midi_mididevice.ButtonPressed, cmb_p_midi_mt32_dac.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + CType(sender, MKNetDXLib.ctl_MKDXLookupEdit).EditValue = DBNull.Value + End If + End Sub + + Private Sub btn_p_sdl_pixelshader_Click(sender As System.Object, e As System.EventArgs) Handles btn_p_sdl_pixelshader.Click + Dim filepath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse Pixelshader program file", "Pixelshader programs *.fx|*.fx", ParentForm:=Me.ParentForm) + If Alphaleonis.Win32.Filesystem.File.Exists(filepath) Then + Me.txb_p_sdl_pixelshader.EditValue = Alphaleonis.Win32.Filesystem.Path.GetFileName(filepath) + End If + End Sub + + Private Sub btn_p_sdl_pixelshader_Clear_Click(sender As System.Object, e As System.EventArgs) Handles btn_p_sdl_pixelshader_Clear.Click + Me.txb_p_sdl_pixelshader.EditValue = "none" + End Sub + + Private Sub cmb_p_dosbox_vmemsize_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_p_dosbox_vmemsize.EditValueChanged + lbl_p_dosbox_vmemsize_details.Text = "" + If TC.NZ(cmb_p_dosbox_vmemsize.EditValue, -1) < 0 Then Return + Select Case TC.NZ(cmb_p_dosbox_vmemsize.EditValue, 0) + Case 0 + lbl_p_dosbox_vmemsize_details.Text = "800x600 at 256 colors" + Case 1 + lbl_p_dosbox_vmemsize_details.Text = "1024x768 at 256 colors or 800x600 at 64k colors" + Case 2 + lbl_p_dosbox_vmemsize_details.Text = "1600x1200 at 256 colors or 1024x768 at 64k colors or 640x480 at 16M colors" + Case 4 + lbl_p_dosbox_vmemsize_details.Text = "1600x1200 at 64k colors or 1024x768 at 16M colors" + Case 8 + lbl_p_dosbox_vmemsize_details.Text = "up to 1600x1200 at 16M colors" + Case 16 + lbl_p_dosbox_vmemsize_details.Text = "up to 1600x1200 at 16M colors + double/triple buffer extra ram" + Case 24 + lbl_p_dosbox_vmemsize_details.Text = "up to 1600x1200 at 16M colors + double/triple buffer extra ram" + Case 32 + lbl_p_dosbox_vmemsize_details.Text = "up to 1600x1200 at 16M colors + double/triple buffer extra ram" + End Select + End Sub + + Private Sub chb_p_dosbox_forcerate_specific_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rb_p_dosbox_forcerate_specific.CheckedChanged + lbl_p_dosbox_forcerate_specific.Enabled = rb_p_dosbox_forcerate_specific.Checked + spn_p_dosbox_forcerate_specific.Enabled = rb_p_dosbox_forcerate_specific.Checked + End Sub + + Private Sub cmb_p_vsync_vsyncmode_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_p_vsync_vsyncmode.EditValueChanged, cmb_p_pci_voodoo.EditValueChanged, cmb_p_glide_lfb.EditValueChanged, cmb_p_glide_glide.EditValueChanged + Dim bEnable As Boolean = {"on", "force"}.Contains(TC.NZ(cmb_p_vsync_vsyncmode.EditValue, "")) + spn_p_vsync_vsyncrate.Enabled = bEnable + lbl_p_vsync_vsyncrate.Enabled = bEnable + End Sub + + Private Sub chb_p_keyboard_aux_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chb_p_keyboard_aux.CheckedChanged + lbl_p_keyboard_auxdevice.Enabled = chb_p_keyboard_aux.Checked + cmb_p_keyboard_auxdevice.Enabled = chb_p_keyboard_aux.Checked + End Sub + + Private Sub cmb_p_midi_mididevice_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_p_midi_mididevice.EditValueChanged + Me.lbl_p_midi_mt32_dac.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_partials.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_reverb_level.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_reverb_mode.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_reverb_time.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_reverse_stereo.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_thread.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.lbl_p_midi_mt32_verbose.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + + Me.chb_p_midi_mt32_reverse_stereo.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.chb_p_midi_mt32_thread.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.chb_p_midi_mt32_verbose.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.cmb_p_midi_mt32_dac.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.cmb_p_midi_mt32_reverb_mode.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.spn_p_midi_mt32_reverb_level.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.spn_p_midi_mt32_reverb_time.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + Me.spn_p_midi_mt32_partials.Enabled = (TC.NZ(cmb_p_midi_mididevice.EditValue, "") = "mt32") + End Sub + + Private Sub chb_p_ne2000_ne2000_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chb_p_ne2000_ne2000.CheckedChanged + Me.lbl_p_ne2000_macaddr.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.lbl_p_ne2000_nicbase.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.lbl_p_ne2000_nicirq.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.lbl_p_ne2000_realnic.Enabled = Me.chb_p_ne2000_ne2000.Checked + + Me.txb_p_ne2000_macaddr.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.txb_p_ne2000_nicbase.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.txb_p_ne2000_realnic.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.spn_p_ne2000_nicirq.Enabled = Me.chb_p_ne2000_ne2000.Checked + Me.btn_p_ne2000_realnic.Enabled = Me.chb_p_ne2000_ne2000.Checked + End Sub + + Private Sub btn_p_ne2000_realnic_Click(sender As System.Object, e As System.EventArgs) Handles btn_p_ne2000_realnic.Click + Using frm As New frm_DOSBox_Choose_NIC + If frm.ShowDialog(Me.ParentForm) = DialogResult.OK Then + Me.txb_p_ne2000_realnic.EditValue = frm.Selected_NIC + End If + End Using + End Sub + + Private Sub btn_p_ne2000_realnic_clear_Click(sender As System.Object, e As System.EventArgs) Handles btn_p_ne2000_realnic_clear.Click + Me.txb_p_ne2000_realnic.EditValue = "list" + End Sub + + Private Sub btn_dosbox_language_Click(sender As System.Object, e As System.EventArgs) Handles btn_dosbox_language.Click + + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.Designer.vb b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.Designer.vb new file mode 100644 index 0000000..4127c29 --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.Designer.vb @@ -0,0 +1,301 @@ + _ +Partial Class ucr_Similarity_Calculation_Details_Genre + Inherits MKNetDXLib.ctl_MKDXUserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucr_Similarity_Calculation_Details_Genre)) + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.pnl_Details = New MKNetDXLib.ctl_MKDXPanel() + Me.tlp_Main = New System.Windows.Forms.TableLayoutPanel() + Me.gb_AB = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_AB = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_AB = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_AB_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_B = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_B = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_B = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_B_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gb_A = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_A = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_A = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.col_A_Name = New DevExpress.XtraGrid.Columns.GridColumn() + Me.lbl_Weight = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Weight_Text = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.pnl_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Details.SuspendLayout() + Me.tlp_Main.SuspendLayout() + CType(Me.gb_AB, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_AB.SuspendLayout() + CType(Me.grd_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_AB, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_B, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_B.SuspendLayout() + CType(Me.grd_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_B, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_A.SuspendLayout() + CType(Me.grd_A, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_A, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Explanation + ' + Me.lbl_Explanation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Explanation.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Explanation.Location = New System.Drawing.Point(0, 0) + Me.lbl_Explanation.MKBoundControl1 = Nothing + Me.lbl_Explanation.MKBoundControl2 = Nothing + Me.lbl_Explanation.MKBoundControl3 = Nothing + Me.lbl_Explanation.MKBoundControl4 = Nothing + Me.lbl_Explanation.MKBoundControl5 = Nothing + Me.lbl_Explanation.Name = "lbl_Explanation" + Me.lbl_Explanation.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Explanation.Size = New System.Drawing.Size(383, 97) + Me.lbl_Explanation.TabIndex = 1 + Me.lbl_Explanation.Text = resources.GetString("lbl_Explanation.Text") + ' + 'pnl_Details + ' + Me.pnl_Details.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Details.Controls.Add(Me.tlp_Main) + Me.pnl_Details.Controls.Add(Me.lbl_Weight) + Me.pnl_Details.Controls.Add(Me.lbl_Weight_Text) + Me.pnl_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Details.Location = New System.Drawing.Point(0, 97) + Me.pnl_Details.Name = "pnl_Details" + Me.pnl_Details.Size = New System.Drawing.Size(383, 377) + Me.pnl_Details.TabIndex = 2 + ' + 'tlp_Main + ' + Me.tlp_Main.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tlp_Main.ColumnCount = 1 + Me.tlp_Main.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tlp_Main.Controls.Add(Me.gb_AB, 0, 2) + Me.tlp_Main.Controls.Add(Me.gb_B, 0, 1) + Me.tlp_Main.Controls.Add(Me.gb_A, 0, 0) + Me.tlp_Main.Location = New System.Drawing.Point(0, 27) + Me.tlp_Main.Name = "tlp_Main" + Me.tlp_Main.RowCount = 3 + Me.tlp_Main.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_Main.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_Main.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.tlp_Main.Size = New System.Drawing.Size(383, 351) + Me.tlp_Main.TabIndex = 8 + ' + 'gb_AB + ' + Me.gb_AB.Controls.Add(Me.grd_AB) + Me.gb_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_AB.Location = New System.Drawing.Point(3, 237) + Me.gb_AB.Name = "gb_AB" + Me.gb_AB.Size = New System.Drawing.Size(377, 111) + Me.gb_AB.TabIndex = 2 + Me.gb_AB.Text = "%%Category_Name%% shared by Games A and B" + ' + 'grd_AB + ' + Me.grd_AB.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_AB.Location = New System.Drawing.Point(2, 20) + Me.grd_AB.MainView = Me.gv_AB + Me.grd_AB.Name = "grd_AB" + Me.grd_AB.Size = New System.Drawing.Size(373, 89) + Me.grd_AB.TabIndex = 3 + Me.grd_AB.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_AB}) + ' + 'gv_AB + ' + Me.gv_AB.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_AB_Name}) + Me.gv_AB.GridControl = Me.grd_AB + Me.gv_AB.Name = "gv_AB" + Me.gv_AB.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_AB.OptionsSelection.InvertSelection = True + Me.gv_AB.OptionsView.ShowColumnHeaders = False + Me.gv_AB.OptionsView.ShowGroupPanel = False + Me.gv_AB.OptionsView.ShowIndicator = False + ' + 'col_AB_Name + ' + Me.col_AB_Name.FieldName = "Name" + Me.col_AB_Name.Name = "col_AB_Name" + Me.col_AB_Name.OptionsColumn.AllowEdit = False + Me.col_AB_Name.OptionsColumn.ReadOnly = True + Me.col_AB_Name.Visible = True + Me.col_AB_Name.VisibleIndex = 0 + ' + 'gb_B + ' + Me.gb_B.Controls.Add(Me.grd_B) + Me.gb_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_B.Location = New System.Drawing.Point(3, 120) + Me.gb_B.Name = "gb_B" + Me.gb_B.Size = New System.Drawing.Size(377, 111) + Me.gb_B.TabIndex = 1 + Me.gb_B.Text = "%%Category_Name%% of Game B" + ' + 'grd_B + ' + Me.grd_B.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_B.Location = New System.Drawing.Point(2, 20) + Me.grd_B.MainView = Me.gv_B + Me.grd_B.Name = "grd_B" + Me.grd_B.Size = New System.Drawing.Size(373, 89) + Me.grd_B.TabIndex = 2 + Me.grd_B.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_B}) + ' + 'gv_B + ' + Me.gv_B.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_B_Name}) + Me.gv_B.GridControl = Me.grd_B + Me.gv_B.Name = "gv_B" + Me.gv_B.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_B.OptionsSelection.InvertSelection = True + Me.gv_B.OptionsView.ShowColumnHeaders = False + Me.gv_B.OptionsView.ShowGroupPanel = False + Me.gv_B.OptionsView.ShowIndicator = False + ' + 'col_B_Name + ' + Me.col_B_Name.FieldName = "Name" + Me.col_B_Name.Name = "col_B_Name" + Me.col_B_Name.OptionsColumn.AllowEdit = False + Me.col_B_Name.OptionsColumn.ReadOnly = True + Me.col_B_Name.Visible = True + Me.col_B_Name.VisibleIndex = 0 + ' + 'gb_A + ' + Me.gb_A.Controls.Add(Me.grd_A) + Me.gb_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_A.Location = New System.Drawing.Point(3, 3) + Me.gb_A.Name = "gb_A" + Me.gb_A.Size = New System.Drawing.Size(377, 111) + Me.gb_A.TabIndex = 0 + Me.gb_A.Text = "%%Category_Name%% of Game A" + ' + 'grd_A + ' + Me.grd_A.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_A.Location = New System.Drawing.Point(2, 20) + Me.grd_A.MainView = Me.gv_A + Me.grd_A.Name = "grd_A" + Me.grd_A.Size = New System.Drawing.Size(373, 89) + Me.grd_A.TabIndex = 1 + Me.grd_A.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_A}) + ' + 'gv_A + ' + Me.gv_A.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.col_A_Name}) + Me.gv_A.GridControl = Me.grd_A + Me.gv_A.Name = "gv_A" + Me.gv_A.OptionsBehavior.AllowIncrementalSearch = True + Me.gv_A.OptionsSelection.InvertSelection = True + Me.gv_A.OptionsView.ShowColumnHeaders = False + Me.gv_A.OptionsView.ShowGroupPanel = False + Me.gv_A.OptionsView.ShowIndicator = False + ' + 'col_A_Name + ' + Me.col_A_Name.FieldName = "Name" + Me.col_A_Name.Name = "col_A_Name" + Me.col_A_Name.OptionsColumn.AllowEdit = False + Me.col_A_Name.OptionsColumn.ReadOnly = True + Me.col_A_Name.Visible = True + Me.col_A_Name.VisibleIndex = 0 + ' + 'lbl_Weight + ' + Me.lbl_Weight.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Weight.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight.Location = New System.Drawing.Point(3, 3) + Me.lbl_Weight.MKBoundControl1 = Nothing + Me.lbl_Weight.MKBoundControl2 = Nothing + Me.lbl_Weight.MKBoundControl3 = Nothing + Me.lbl_Weight.MKBoundControl4 = Nothing + Me.lbl_Weight.MKBoundControl5 = Nothing + Me.lbl_Weight.Name = "lbl_Weight" + Me.lbl_Weight.Size = New System.Drawing.Size(45, 20) + Me.lbl_Weight.TabIndex = 7 + Me.lbl_Weight.Text = "Weight:" + ' + 'lbl_Weight_Text + ' + Me.lbl_Weight_Text.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_Weight_Text.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.lbl_Weight_Text.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Weight_Text.Location = New System.Drawing.Point(51, 3) + Me.lbl_Weight_Text.MKBoundControl1 = Nothing + Me.lbl_Weight_Text.MKBoundControl2 = Nothing + Me.lbl_Weight_Text.MKBoundControl3 = Nothing + Me.lbl_Weight_Text.MKBoundControl4 = Nothing + Me.lbl_Weight_Text.MKBoundControl5 = Nothing + Me.lbl_Weight_Text.Name = "lbl_Weight_Text" + Me.lbl_Weight_Text.Size = New System.Drawing.Size(328, 20) + Me.lbl_Weight_Text.TabIndex = 7 + ' + 'ucr_Similarity_Calculation_Details_Genre + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.Controls.Add(Me.pnl_Details) + Me.Controls.Add(Me.lbl_Explanation) + Me.Name = "ucr_Similarity_Calculation_Details_Genre" + Me.Size = New System.Drawing.Size(383, 474) + CType(Me.pnl_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Details.ResumeLayout(False) + Me.tlp_Main.ResumeLayout(False) + CType(Me.gb_AB, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_AB.ResumeLayout(False) + CType(Me.grd_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_AB, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_B, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_B.ResumeLayout(False) + CType(Me.grd_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_B, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_A.ResumeLayout(False) + CType(Me.grd_A, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_A, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents pnl_Details As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tlp_Main As TableLayoutPanel + Friend WithEvents gb_AB As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_AB As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_AB As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_AB_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_B As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_B As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_B As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_B_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents gb_A As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_A As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_A As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents col_A_Name As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents lbl_Weight As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Weight_Text As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.resx b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.resx new file mode 100644 index 0000000..f5a6c8d --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.resx @@ -0,0 +1,128 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + The similarity score of 0 up to 100 is calculated the following way: + +Let X be the number of distinct %%Category_Name%% shared by both games A and B. +Let Y be the number of distinct %%Category_Name%% of game A and B. + +score = 100 * (X / Y) + + \ No newline at end of file diff --git a/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.vb b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.vb new file mode 100644 index 0000000..c6f8243 --- /dev/null +++ b/Metropolis_Launcher/UserControls/ucr_Similarity_Calculation_Details_Genre.vb @@ -0,0 +1,44 @@ +Public Class ucr_Similarity_Calculation_Details_Genre + Private _lbl_Explanation_Text As String + Private _gb_A_Text As String + Private _gb_B_Text As String + Private _gb_AB_Text As String + + Public Sub New() + InitializeComponent() + + Me._lbl_Explanation_Text = Me.lbl_Explanation.Text + Me._gb_A_Text = Me.gb_A.Text + Me._gb_B_Text = Me.gb_B.Text + Me._gb_AB_Text = Me.gb_AB.Text + End Sub + + Public Sub Init(ByVal Moby_Game_Genres_Category As cls_Globals.enm_Moby_Genres_Categories, ByVal Category_Name As String, ByVal Weight As Object, ByVal bUseMobyReleaseOnly As Boolean, ByVal bTestUseMobyRelease As Boolean, ByVal id_Emu_Games_A As Integer, ByVal id_Emu_Games_B As Integer, ByVal id_Moby_Releases_B As Integer) + Try + Weight = TC.NZ(Weight, 1) + + lbl_Weight_Text.Text = Weight + + grd_A.DataSource = DS_ML.Select_Genres_By_id_Emu_Games(id_Emu_Games_A, Moby_Game_Genres_Category) + + If bUseMobyReleaseOnly OrElse bTestUseMobyRelease Then + grd_B.DataSource = DS_ML.Select_Genres_By_id_Moby_Releases(id_Moby_Releases_B, Moby_Game_Genres_Category) + grd_AB.DataSource = DS_ML.Select_Genres_AB_By_id_Moby_Releases(id_Emu_Games_A, id_Moby_Releases_B, Moby_Game_Genres_Category) + Else + grd_B.DataSource = DS_ML.Select_Genres_By_id_Emu_Games(id_Emu_Games_B, Moby_Game_Genres_Category) + grd_AB.DataSource = DS_ML.Select_Genres_AB_By_id_Emu_Games(id_Emu_Games_A, id_Emu_Games_B, Moby_Game_Genres_Category) + End If + + _gb_A_Text &= " (" & grd_A.DataSource.Rows.Count & ")" + _gb_B_Text &= " (" & grd_B.DataSource.Rows.Count & ")" + _gb_AB_Text &= " (" & grd_AB.DataSource.Rows.Count & ")" + + Me.lbl_Explanation.Text = Me._lbl_Explanation_Text.Replace("%%Category_Name%%", Category_Name) + Me.gb_A.Text = Me._gb_A_Text.Replace("%%Category_Name%%", Category_Name) + Me.gb_B.Text = Me._gb_B_Text.Replace("%%Category_Name%%", Category_Name) + Me.gb_AB.Text = Me._gb_AB_Text.Replace("%%Category_Name%%", Category_Name) + Catch ex As Exception + + End Try + End Sub +End Class diff --git a/Metropolis_Launcher/imdb.db b/Metropolis_Launcher/imdb.db new file mode 100644 index 0000000..31b4865 Binary files /dev/null and b/Metropolis_Launcher/imdb.db differ diff --git a/Metropolis_Launcher/ml.chm b/Metropolis_Launcher/ml.chm new file mode 100644 index 0000000..c80819c Binary files /dev/null and b/Metropolis_Launcher/ml.chm differ diff --git a/Metropolis_Launcher/ml.db_initial b/Metropolis_Launcher/ml.db_initial new file mode 100644 index 0000000..d4cc5df Binary files /dev/null and b/Metropolis_Launcher/ml.db_initial differ diff --git a/Metropolis_Launcher/moby.db b/Metropolis_Launcher/moby.db new file mode 100644 index 0000000..7238cc4 --- /dev/null +++ b/Metropolis_Launcher/moby.db @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:22b7e601a5b32193582716caf77841a7c785c349a282549ed1bc0db41d5c2266 +size 352889856 diff --git a/Metropolis_Launcher/rombase.db b/Metropolis_Launcher/rombase.db new file mode 100644 index 0000000..2a49e6e --- /dev/null +++ b/Metropolis_Launcher/rombase.db @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:9c2814b85ece135bf08ed287c50844b2d9f03aefffb04d894b44dd82f04bccf2 +size 177814528 diff --git a/Metropolis_Launcher/space_invader_icon_1_by_moglenstar.ico b/Metropolis_Launcher/space_invader_icon_1_by_moglenstar.ico new file mode 100644 index 0000000..35c87db Binary files /dev/null and b/Metropolis_Launcher/space_invader_icon_1_by_moglenstar.ico differ diff --git a/README.md b/README.md index 54acb62..32857aa 100644 --- a/README.md +++ b/README.md @@ -1 +1,7 @@ -# MetropolisLauncher \ No newline at end of file +# MetropolisLauncher + +Metropolis Launcher has been created to be a great old-school launcher, emulation front-end and an extensive offline database of video game metadata thanks to MobyGames.com and their strong user base. + +Metropolis Launcher is based on the .NET 4.0 Framework and runs on Windows XP/Vista/7/8/8.1/10 + +Get an overview of the features at http://metropolis-launcher.net \ No newline at end of file