diff --git a/.gitignore b/.gitignore index 4307927..6bff4c4 100644 --- a/.gitignore +++ b/.gitignore @@ -3,7 +3,5 @@ Metropolis_Launcher/bin/**/* Metropolis_Launcher/obj/**/* Metropolis_Launcher/Metropolis_Launcher.vbproj.user -Metropolis_Launcher/rombase.db -Metropolis_Launcher/moby.db -Metropolis_Launcher/imdb.db +Metropolis_Launcher/*.db Metropolis_Launcher/tools/* \ No newline at end of file diff --git a/Metropolis_Launcher/Classes/cls_Extras.vb b/Metropolis_Launcher/Classes/cls_Extras.vb index f0d442d..9d64c3c 100644 --- a/Metropolis_Launcher/Classes/cls_Extras.vb +++ b/Metropolis_Launcher/Classes/cls_Extras.vb @@ -243,4 +243,20 @@ Return True End Function + + Public Shared Function LoadImageFromStreamSafe(ByVal filepath As String, Optional ByVal deleteOnFail As Boolean = True) + Try + Return Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(filepath))) + Catch ex As Exception + If deleteOnFail AndAlso False Then + Try + Alphaleonis.Win32.Filesystem.File.Delete(filepath) + Catch ex2 As Exception + + End Try + End If + End Try + + Return Nothing + End Function End Class diff --git a/Metropolis_Launcher/Classes/cls_Globals.vb b/Metropolis_Launcher/Classes/cls_Globals.vb index 1e89619..2bfa022 100644 --- a/Metropolis_Launcher/Classes/cls_Globals.vb +++ b/Metropolis_Launcher/Classes/cls_Globals.vb @@ -1,4 +1,6 @@ -Public Class cls_Globals +Imports System.Web + +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 @@ -14,10 +16,15 @@ Public Shared Admin As Boolean = True Public Shared Restricted As Boolean = False Public Shared id_Users As Integer = 0 + Public Shared id_Cheevo_Challenges As Int64 = 0L Public Shared Logging As Boolean = False Public Shared Logfile As String = "" + Public Shared RetroAchievements_Token As String = "" + Public Shared RetroAchievements_User As String = "" + Public Shared RetroAchievements_Pass As String = "" + Public Shared Function GetLogfile() As String If Alphaleonis.Win32.Filesystem.File.Exists(Logfile) Then Return Logfile @@ -215,6 +222,17 @@ Other_Attributes = 14 End Enum + Public Enum enm_Script_Types + NONE = 0 + AutoIt = 1 + AutoHotKey = 2 + End Enum + + Public Enum enm_CheevoTypes + RetroAchievements = 0 ' Cheevo based on RetroAchievements + TotalRuntime = 1 ' Cheevo based on the total runtime (measured by Metropolis Launcher) + 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), "") @@ -253,4 +271,15 @@ Return sBackupDir End Function + + Public Shared Sub OpenURL(URL As String) + Try + Dim procinfo As New ProcessStartInfo(URL) + procinfo.UseShellExecute = True + Process.Start(procinfo) + Catch ex As Exception + + End Try + + End Sub End Class diff --git a/Metropolis_Launcher/Classes/cls_Settings.vb b/Metropolis_Launcher/Classes/cls_Settings.vb index 5b1ab1c..05af100 100644 --- a/Metropolis_Launcher/Classes/cls_Settings.vb +++ b/Metropolis_Launcher/Classes/cls_Settings.vb @@ -61,6 +61,9 @@ cls_Globals.Dir_Screenshot = TC.NZ(cls_Settings.GetSetting("Dir_Screenshot"), "") End If + cls_Globals.RetroAchievements_User = TC.NZ(cls_Settings.GetSetting("RetroAchievements_User", cls_Settings.enm_Settingmodes.Per_User), "") + cls_Globals.RetroAchievements_Pass = TC.NZ(cls_Settings.GetSetting("RetroAchievements_Pass", cls_Settings.enm_Settingmodes.Per_User), "") + MKNetLib.cls_MKFileSupport.TempDirRoot = cls_Globals.TempDir(Nothing) End Sub diff --git a/Metropolis_Launcher/DataSets/DS_ML.Designer.vb b/Metropolis_Launcher/DataSets/DS_ML.Designer.vb index d98a965..b3e483f 100644 --- a/Metropolis_Launcher/DataSets/DS_ML.Designer.vb +++ b/Metropolis_Launcher/DataSets/DS_ML.Designer.vb @@ -117,6 +117,24 @@ Partial Public Class DS_ML Private tabletbl_Moby_Regions As tbl_Moby_RegionsDataTable + Private tabletbl_Total_DOS_Launcher_Configs As tbl_Total_DOS_Launcher_ConfigsDataTable + + Private tabletbl_Cheevo_Challenges As tbl_Cheevo_ChallengesDataTable + + Private tabletbl_Cheevo_Challenges_Cheevos As tbl_Cheevo_Challenges_CheevosDataTable + + Private tabletbl_Users_Cheevo_Challenges_Cheevos As tbl_Users_Cheevo_Challenges_CheevosDataTable + + Private tablettb_Cheevo_Challenges_Tiers As ttb_Cheevo_Challenges_TiersDataTable + + Private tablettb_Open_Challenges_Cheevos As ttb_Open_Challenges_CheevosDataTable + + Private tablettb_Open_Challenges As ttb_Open_ChallengesDataTable + + Private tablettb_Emulators_PreLaunch_Commands As ttb_Emulators_PreLaunch_CommandsDataTable + + Private tablettb_Emulators_PostLaunch_Commands As ttb_Emulators_PostLaunch_CommandsDataTable + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property tbl_Total_DOS_Launcher_Configs() As tbl_Total_DOS_Launcher_ConfigsDataTable + Get + Return Me.tabletbl_Total_DOS_Launcher_Configs + End Get + End Property + + _ + Public ReadOnly Property tbl_Cheevo_Challenges() As tbl_Cheevo_ChallengesDataTable + Get + Return Me.tabletbl_Cheevo_Challenges + End Get + End Property + + _ + Public ReadOnly Property tbl_Cheevo_Challenges_Cheevos() As tbl_Cheevo_Challenges_CheevosDataTable + Get + Return Me.tabletbl_Cheevo_Challenges_Cheevos + End Get + End Property + + _ + Public ReadOnly Property tbl_Users_Cheevo_Challenges_Cheevos() As tbl_Users_Cheevo_Challenges_CheevosDataTable + Get + Return Me.tabletbl_Users_Cheevo_Challenges_Cheevos + End Get + End Property + + _ + Public ReadOnly Property ttb_Cheevo_Challenges_Tiers() As ttb_Cheevo_Challenges_TiersDataTable + Get + Return Me.tablettb_Cheevo_Challenges_Tiers + End Get + End Property + + _ + Public ReadOnly Property ttb_Open_Challenges_Cheevos() As ttb_Open_Challenges_CheevosDataTable + Get + Return Me.tablettb_Open_Challenges_Cheevos + End Get + End Property + + _ + Public ReadOnly Property ttb_Open_Challenges() As ttb_Open_ChallengesDataTable + Get + Return Me.tablettb_Open_Challenges + End Get + End Property + + _ + Public ReadOnly Property ttb_Emulators_PreLaunch_Commands() As ttb_Emulators_PreLaunch_CommandsDataTable + Get + Return Me.tablettb_Emulators_PreLaunch_Commands + End Get + End Property + + _ + Public ReadOnly Property ttb_Emulators_PostLaunch_Commands() As ttb_Emulators_PostLaunch_CommandsDataTable + Get + Return Me.tablettb_Emulators_PostLaunch_Commands + End Get + End Property + _ + Private Function ShouldSerializetbl_Total_DOS_Launcher_Configs() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Cheevo_Challenges() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Cheevo_Challenges_Cheevos() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbl_Users_Cheevo_Challenges_Cheevos() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Cheevo_Challenges_Tiers() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Open_Challenges_Cheevos() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Open_Challenges() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Emulators_PreLaunch_Commands() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializettb_Emulators_PostLaunch_Commands() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -1850,6 +2138,33 @@ Partial Public Class DS_ML _ Public Delegate Sub tbl_Moby_RegionsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Moby_RegionsRowChangeEvent) + _ + Public Delegate Sub tbl_Total_DOS_Launcher_ConfigsRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Total_DOS_Launcher_ConfigsRowChangeEvent) + + _ + Public Delegate Sub tbl_Cheevo_ChallengesRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Cheevo_ChallengesRowChangeEvent) + + _ + Public Delegate Sub tbl_Cheevo_Challenges_CheevosRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Cheevo_Challenges_CheevosRowChangeEvent) + + _ + Public Delegate Sub tbl_Users_Cheevo_Challenges_CheevosRowChangeEventHandler(ByVal sender As Object, ByVal e As tbl_Users_Cheevo_Challenges_CheevosRowChangeEvent) + + _ + Public Delegate Sub ttb_Cheevo_Challenges_TiersRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Cheevo_Challenges_TiersRowChangeEvent) + + _ + Public Delegate Sub ttb_Open_Challenges_CheevosRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Open_Challenges_CheevosRowChangeEvent) + + _ + Public Delegate Sub ttb_Open_ChallengesRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Open_ChallengesRowChangeEvent) + + _ + Public Delegate Sub ttb_Emulators_PreLaunch_CommandsRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Emulators_PreLaunch_CommandsRowChangeEvent) + + _ + Public Delegate Sub ttb_Emulators_PostLaunch_CommandsRowChangeEventHandler(ByVal sender As Object, ByVal e As ttb_Emulators_PostLaunch_CommandsRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -1878,6 +2193,10 @@ Partial Public Class DS_ML Private columnid_List_Generators As Global.System.Data.DataColumn + Private columnScriptType As Global.System.Data.DataColumn + + Private columnScriptPath As Global.System.Data.DataColumn + _ Public Sub New() @@ -1993,6 +2312,22 @@ Partial Public Class DS_ML End Get End Property + _ + Public ReadOnly Property ScriptTypeColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScriptType + End Get + End Property + + _ + Public ReadOnly Property ScriptPathColumn() As Global.System.Data.DataColumn + Get + Return Me.columnScriptPath + End Get + End Property + _ @@ -2030,9 +2365,9 @@ Partial Public Class DS_ML _ - 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, ByVal id_List_Generators As Long) As tbl_EmulatorsRow + 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, ByVal id_List_Generators As Long, ByVal ScriptType As Long, ByVal ScriptPath 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, id_List_Generators} + Dim columnValuesArray() As Object = New Object() {Nothing, Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core, id_List_Generators, ScriptType, ScriptPath} rowtbl_EmulatorsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_EmulatorsRow) Return rowtbl_EmulatorsRow @@ -2071,6 +2406,8 @@ Partial Public Class DS_ML Me.columnScreenshotDirectory = MyBase.Columns("ScreenshotDirectory") Me.columnLibretro_Core = MyBase.Columns("Libretro_Core") Me.columnid_List_Generators = MyBase.Columns("id_List_Generators") + Me.columnScriptType = MyBase.Columns("ScriptType") + Me.columnScriptPath = MyBase.Columns("ScriptPath") End Sub _ Public Sub New() @@ -3459,6 +3810,30 @@ Partial Public Class DS_ML 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 WantColumn() As Global.System.Data.DataColumn @@ -3763,6 +4138,14 @@ Partial Public Class DS_ML End Get End Property + _ + Public ReadOnly Property Platform_RetroAchievementsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPlatform_RetroAchievements + End Get + End Property + _ Public ReadOnly Property Moby_URLColumn() As Global.System.Data.DataColumn @@ -4323,6 +4706,14 @@ Partial Public Class DS_ML End Get End Property + _ + Public ReadOnly Property TDL_SubtitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTDL_Subtitle + End Get + End Property + _ @@ -4371,6 +4762,9 @@ Partial Public Class DS_ML ByVal Folder As String, _ ByVal File As String, _ ByVal InnerFile As String, _ + ByVal CRC32 As String, _ + ByVal SHA1 As String, _ + ByVal MD5 As String, _ ByVal Want As Boolean, _ ByVal Have As Boolean, _ ByVal Trade As Boolean, _ @@ -4409,6 +4803,7 @@ Partial Public Class DS_ML ByVal DLC_Addon As String, _ ByVal Special_Edition As String, _ ByVal Platform_Short As String, _ + ByVal Platform_RetroAchievements As Boolean, _ ByVal Moby_URL As String, _ ByVal Moby_Platforms_URLPart As String, _ ByVal Moby_Games_URLPart As String, _ @@ -4478,9 +4873,10 @@ Partial Public Class DS_ML 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 + ByVal _401_Staff As Integer, _ + ByVal TDL_Subtitle As String) 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, CustomIdentifier, Unavailable, 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, id_Moby_Platforms_Alternative, 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} + Dim columnValuesArray() As Object = New Object() {id_Emu_Games, tmp_Highlighted, id_DOSBox_Configs_Template, id_DOSBox_Configs, CustomIdentifier, Unavailable, Game, Folder, File, InnerFile, CRC32, SHA1, MD5, 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, Platform_RetroAchievements, Moby_URL, Moby_Platforms_URLPart, Moby_Games_URLPart, MinPlayers, MaxPlayers, id_Moby_Platforms, id_Moby_Platforms_Alternative, 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, TDL_Subtitle} rowsrc_ucr_Emulation_GamesRow.ItemArray = columnValuesArray Me.Rows.Add(rowsrc_ucr_Emulation_GamesRow) Return rowsrc_ucr_Emulation_GamesRow @@ -4513,6 +4909,9 @@ Partial Public Class DS_ML Me.columnFolder = MyBase.Columns("Folder") Me.columnFile = MyBase.Columns("File") Me.columnInnerFile = MyBase.Columns("InnerFile") + Me.columnCRC32 = MyBase.Columns("CRC32") + Me.columnSHA1 = MyBase.Columns("SHA1") + Me.columnMD5 = MyBase.Columns("MD5") Me.columnWant = MyBase.Columns("Want") Me.columnHave = MyBase.Columns("Have") Me.columnTrade = MyBase.Columns("Trade") @@ -4551,6 +4950,7 @@ Partial Public Class DS_ML Me.columnDLC_Addon = MyBase.Columns("DLC_Addon") Me.columnSpecial_Edition = MyBase.Columns("Special_Edition") Me.columnPlatform_Short = MyBase.Columns("Platform_Short") + Me.columnPlatform_RetroAchievements = MyBase.Columns("Platform_RetroAchievements") 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") @@ -4621,6 +5021,7 @@ Partial Public Class DS_ML 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.columnTDL_Subtitle = MyBase.Columns("TDL_Subtitle") End Sub _ Public Sub New() @@ -9775,6 +10196,46 @@ Partial Public Class DS_ML End Get End Property + _ + Public ReadOnly Property TDL_SubtitleColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTDL_Subtitle + End Get + End Property + + _ + Public ReadOnly Property TDL_Show_in_MenuColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTDL_Show_in_Menu + End Get + End Property + + _ + Public ReadOnly Property TDL_DisplayTextColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTDL_DisplayText + End Get + End Property + + _ + Public ReadOnly Property TDL_SortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTDL_Sort + End Get + End Property + + _ + Public ReadOnly Property tmp_DOSBox_DisplayTextColumn() As Global.System.Data.DataColumn + Get + Return Me.columntmp_DOSBox_DisplayText + End Get + End Property + _ @@ -9903,9 +10364,14 @@ Partial Public Class DS_ML ByVal id_Emu_Games_Owner As Long, _ ByVal Filtered_Name As String, _ ByVal deprecated As Boolean, _ - ByVal tmp_Highlighted As Boolean) As tbl_Emu_GamesRow + ByVal tmp_Highlighted As Boolean, _ + ByVal TDL_Subtitle As String, _ + ByVal TDL_Show_in_Menu As Boolean, _ + ByVal TDL_DisplayText As String, _ + ByVal TDL_Sort As Integer, _ + ByVal tmp_DOSBox_DisplayText As String) 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_ScummVM_Configs_Template, id_ScummVM_Configs, id_Rombase_DOSBox_Filetypes, id_Rombase_DOSBox_Exe_Types, Unavailable, DOSBox_Mount_Destination, Hidden, Moby_Games_URLPart, id_Moby_Platforms, id_Moby_Platforms_Alternative, 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, tmp_Highlighted} + Dim columnValuesArray() As Object = New Object() {Nothing, id_DOSBox_Configs_Template, id_DOSBox_Configs, id_ScummVM_Configs_Template, id_ScummVM_Configs, id_Rombase_DOSBox_Filetypes, id_Rombase_DOSBox_Exe_Types, Unavailable, DOSBox_Mount_Destination, Hidden, Moby_Games_URLPart, id_Moby_Platforms, id_Moby_Platforms_Alternative, 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, tmp_Highlighted, TDL_Subtitle, TDL_Show_in_Menu, TDL_DisplayText, TDL_Sort, tmp_DOSBox_DisplayText} rowtbl_Emu_GamesRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_Emu_GamesRow) Return rowtbl_Emu_GamesRow @@ -10026,6 +10492,11 @@ Partial Public Class DS_ML Me.columnFiltered_Name = MyBase.Columns("Filtered_Name") Me.columndeprecated = MyBase.Columns("deprecated") Me.columntmp_Highlighted = MyBase.Columns("tmp_Highlighted") + Me.columnTDL_Subtitle = MyBase.Columns("TDL_Subtitle") + Me.columnTDL_Show_in_Menu = MyBase.Columns("TDL_Show_in_Menu") + Me.columnTDL_DisplayText = MyBase.Columns("TDL_DisplayText") + Me.columnTDL_Sort = MyBase.Columns("TDL_Sort") + Me.columntmp_DOSBox_DisplayText = MyBase.Columns("tmp_DOSBox_DisplayText") End Sub _ Public Sub New() @@ -18077,6 +18560,14 @@ Partial Public Class DS_ML End Get End Property + _ + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Cheevo_Challenges + End Get + End Property + _ @@ -18114,9 +18605,9 @@ Partial Public Class DS_ML _ - Public Overloads Function Addtbl_UsersRow(ByVal Admin As Boolean, ByVal Username As String, ByVal Password As String, ByVal Restricted As Boolean) As tbl_UsersRow + Public Overloads Function Addtbl_UsersRow(ByVal Admin As Boolean, ByVal Username As String, ByVal Password As String, ByVal Restricted As Boolean, ByVal id_Cheevo_Challenges As Long) 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} + Dim columnValuesArray() As Object = New Object() {Nothing, Admin, Username, Password, Restricted, id_Cheevo_Challenges} rowtbl_UsersRow.ItemArray = columnValuesArray Me.Rows.Add(rowtbl_UsersRow) Return rowtbl_UsersRow @@ -18144,6 +18635,7 @@ Partial Public Class DS_ML Me.columnUsername = MyBase.Columns("Username") Me.columnPassword = MyBase.Columns("Password") Me.columnRestricted = MyBase.Columns("Restricted") + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") End Sub - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class tbl_EmulatorsRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class tbl_Total_DOS_Launcher_ConfigsDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Total_DOS_Launcher_ConfigsRow) - Private tabletbl_Emulators As tbl_EmulatorsDataTable + Private columnid_Total_DOS_Launcher_Configs As Global.System.Data.DataColumn + + Private columnDisplayName As Global.System.Data.DataColumn + + Private columnproglocations As Global.System.Data.DataColumn + + Private columncachelocation As Global.System.Data.DataColumn + + Private columnuserlevel As Global.System.Data.DataColumn + + Private columnforcelogging As Global.System.Data.DataColumn + + Private columnswapping As Global.System.Data.DataColumn + + Private columnpreloading As Global.System.Data.DataColumn + + Private columnpauseafterrun As Global.System.Data.DataColumn + + Private columnVESA As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tabletbl_Emulators = CType(Me.Table,tbl_EmulatorsDataTable) + Public Sub New() + MyBase.New + Me.TableName = "tbl_Total_DOS_Launcher_Configs" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property id_Emulators() As Long + 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_Total_DOS_Launcher_ConfigsColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tabletbl_Emulators.id_EmulatorsColumn),Long) + Return Me.columnid_Total_DOS_Launcher_Configs End Get - Set - Me(Me.tabletbl_Emulators.id_EmulatorsColumn) = value - End Set End Property _ - Public Property Displayname() As String + Public ReadOnly Property DisplayNameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnDisplayName End Get - Set - Me(Me.tabletbl_Emulators.DisplaynameColumn) = value - End Set End Property _ - Public Property InstallDirectory() As String + Public ReadOnly Property proglocationsColumn() As Global.System.Data.DataColumn 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 + Return Me.columnproglocations End Get - Set - Me(Me.tabletbl_Emulators.InstallDirectoryColumn) = value - End Set End Property _ - Public Property Executable() As String + Public ReadOnly Property cachelocationColumn() As Global.System.Data.DataColumn 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 + Return Me.columncachelocation End Get - Set - Me(Me.tabletbl_Emulators.ExecutableColumn) = value - End Set End Property _ - Public Property StartupParameter() As String + Public ReadOnly Property userlevelColumn() As Global.System.Data.DataColumn 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 + Return Me.columnuserlevel End Get - Set - Me(Me.tabletbl_Emulators.StartupParameterColumn) = value - End Set End Property _ - Public Property AutoItScript() As String + Public ReadOnly Property forceloggingColumn() As Global.System.Data.DataColumn 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 + Return Me.columnforcelogging End Get - Set - Me(Me.tabletbl_Emulators.AutoItScriptColumn) = value - End Set End Property _ - Public Property J2KPreset() As String + Public ReadOnly Property swappingColumn() As Global.System.Data.DataColumn 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 + Return Me.columnswapping End Get - Set - Me(Me.tabletbl_Emulators.J2KPresetColumn) = value - End Set End Property _ - Public Property ScreenshotDirectory() As String + Public ReadOnly Property preloadingColumn() As Global.System.Data.DataColumn 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 + Return Me.columnpreloading End Get - Set - Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) = value - End Set End Property _ - Public Property Libretro_Core() As String + Public ReadOnly Property pauseafterrunColumn() As Global.System.Data.DataColumn 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 + Return Me.columnpauseafterrun End Get - Set - Me(Me.tabletbl_Emulators.Libretro_CoreColumn) = value - End Set End Property _ - Public Property id_List_Generators() As Long + Public ReadOnly Property VESAColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_List_Generators in Tabelle tbl_Emulators ist DBNull.", e) - End Try + Return Me.columnVESA End Get - Set - Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn) = value - End Set End Property _ - Public Function IsDisplaynameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.DisplaynameColumn) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property _ - Public Sub SetDisplaynameNull() - Me(Me.tabletbl_Emulators.DisplaynameColumn) = Global.System.Convert.DBNull - End Sub + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Total_DOS_Launcher_ConfigsRow + Get + Return CType(Me.Rows(index),tbl_Total_DOS_Launcher_ConfigsRow) + End Get + End Property - _ - Public Function IsInstallDirectoryNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.InstallDirectoryColumn) - End Function + _ + Public Event tbl_Total_DOS_Launcher_ConfigsRowChanging As tbl_Total_DOS_Launcher_ConfigsRowChangeEventHandler + + _ + Public Event tbl_Total_DOS_Launcher_ConfigsRowChanged As tbl_Total_DOS_Launcher_ConfigsRowChangeEventHandler + + _ + Public Event tbl_Total_DOS_Launcher_ConfigsRowDeleting As tbl_Total_DOS_Launcher_ConfigsRowChangeEventHandler + + _ + Public Event tbl_Total_DOS_Launcher_ConfigsRowDeleted As tbl_Total_DOS_Launcher_ConfigsRowChangeEventHandler _ - Public Sub SetInstallDirectoryNull() - Me(Me.tabletbl_Emulators.InstallDirectoryColumn) = Global.System.Convert.DBNull + Public Overloads Sub Addtbl_Total_DOS_Launcher_ConfigsRow(ByVal row As tbl_Total_DOS_Launcher_ConfigsRow) + Me.Rows.Add(row) End Sub _ - Public Function IsExecutableNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.ExecutableColumn) + Public Overloads Function Addtbl_Total_DOS_Launcher_ConfigsRow(ByVal id_Total_DOS_Launcher_Configs As Integer, ByVal DisplayName As String, ByVal proglocations As String, ByVal cachelocation As String, ByVal userlevel As String, ByVal forcelogging As Boolean, ByVal swapping As Boolean, ByVal preloading As Boolean, ByVal pauseafterrun As Boolean, ByVal VESA As String) As tbl_Total_DOS_Launcher_ConfigsRow + Dim rowtbl_Total_DOS_Launcher_ConfigsRow As tbl_Total_DOS_Launcher_ConfigsRow = CType(Me.NewRow,tbl_Total_DOS_Launcher_ConfigsRow) + Dim columnValuesArray() As Object = New Object() {id_Total_DOS_Launcher_Configs, DisplayName, proglocations, cachelocation, userlevel, forcelogging, swapping, preloading, pauseafterrun, VESA} + rowtbl_Total_DOS_Launcher_ConfigsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Total_DOS_Launcher_ConfigsRow) + Return rowtbl_Total_DOS_Launcher_ConfigsRow End Function _ - Public Sub SetExecutableNull() - Me(Me.tabletbl_Emulators.ExecutableColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Total_DOS_Launcher_ConfigsDataTable = CType(MyBase.Clone,tbl_Total_DOS_Launcher_ConfigsDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsStartupParameterNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.StartupParameterColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Total_DOS_Launcher_ConfigsDataTable() End Function _ - Public Sub SetStartupParameterNull() - Me(Me.tabletbl_Emulators.StartupParameterColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnid_Total_DOS_Launcher_Configs = MyBase.Columns("id_Total_DOS_Launcher_Configs") + Me.columnDisplayName = MyBase.Columns("DisplayName") + Me.columnproglocations = MyBase.Columns("proglocations") + Me.columncachelocation = MyBase.Columns("cachelocation") + Me.columnuserlevel = MyBase.Columns("userlevel") + Me.columnforcelogging = MyBase.Columns("forcelogging") + Me.columnswapping = MyBase.Columns("swapping") + Me.columnpreloading = MyBase.Columns("preloading") + Me.columnpauseafterrun = MyBase.Columns("pauseafterrun") + Me.columnVESA = MyBase.Columns("VESA") End Sub _ - Public Function IsAutoItScriptNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.AutoItScriptColumn) + Private Sub InitClass() + Me.columnid_Total_DOS_Launcher_Configs = New Global.System.Data.DataColumn("id_Total_DOS_Launcher_Configs", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Total_DOS_Launcher_Configs) + Me.columnDisplayName = New Global.System.Data.DataColumn("DisplayName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayName) + Me.columnproglocations = New Global.System.Data.DataColumn("proglocations", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnproglocations) + Me.columncachelocation = New Global.System.Data.DataColumn("cachelocation", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncachelocation) + Me.columnuserlevel = New Global.System.Data.DataColumn("userlevel", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnuserlevel) + Me.columnforcelogging = New Global.System.Data.DataColumn("forcelogging", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnforcelogging) + Me.columnswapping = New Global.System.Data.DataColumn("swapping", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnswapping) + Me.columnpreloading = New Global.System.Data.DataColumn("preloading", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpreloading) + Me.columnpauseafterrun = New Global.System.Data.DataColumn("pauseafterrun", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnpauseafterrun) + Me.columnVESA = New Global.System.Data.DataColumn("VESA", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVESA) + Me.columnid_Total_DOS_Launcher_Configs.AutoIncrementSeed = -1 + Me.columnid_Total_DOS_Launcher_Configs.AutoIncrementStep = -1 + Me.columnproglocations.DefaultValue = CType("files;c:\tdlfiles;d:\tdlfiles;e:\tdlfiles;f:\tdlfiles;g:\tdlfiles;h:\tdlfiles",String) + Me.columncachelocation.DefaultValue = CType("c:\tdlcache",String) + Me.columnuserlevel.DefaultValue = CType("regular",String) + Me.columnforcelogging.DefaultValue = CType(true,Boolean) + Me.columnswapping.DefaultValue = CType(true,Boolean) + Me.columnpreloading.DefaultValue = CType(true,Boolean) + Me.columnpauseafterrun.DefaultValue = CType(true,Boolean) + End Sub + + _ + Public Function Newtbl_Total_DOS_Launcher_ConfigsRow() As tbl_Total_DOS_Launcher_ConfigsRow + Return CType(Me.NewRow,tbl_Total_DOS_Launcher_ConfigsRow) End Function _ - Public Sub SetAutoItScriptNull() - Me(Me.tabletbl_Emulators.AutoItScriptColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Total_DOS_Launcher_ConfigsRow(builder) + End Function _ - Public Function IsJ2KPresetNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.J2KPresetColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Total_DOS_Launcher_ConfigsRow) End Function _ - Public Sub SetJ2KPresetNull() - Me(Me.tabletbl_Emulators.J2KPresetColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Total_DOS_Launcher_ConfigsRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Total_DOS_Launcher_ConfigsRowChanged(Me, New tbl_Total_DOS_Launcher_ConfigsRowChangeEvent(CType(e.Row,tbl_Total_DOS_Launcher_ConfigsRow), e.Action)) + End If End Sub _ - Public Function IsScreenshotDirectoryNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Total_DOS_Launcher_ConfigsRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Total_DOS_Launcher_ConfigsRowChanging(Me, New tbl_Total_DOS_Launcher_ConfigsRowChangeEvent(CType(e.Row,tbl_Total_DOS_Launcher_ConfigsRow), e.Action)) + End If + End Sub _ - Public Sub SetScreenshotDirectoryNull() - Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Total_DOS_Launcher_ConfigsRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Total_DOS_Launcher_ConfigsRowDeleted(Me, New tbl_Total_DOS_Launcher_ConfigsRowChangeEvent(CType(e.Row,tbl_Total_DOS_Launcher_ConfigsRow), e.Action)) + End If End Sub _ - Public Function IsLibretro_CoreNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.Libretro_CoreColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Total_DOS_Launcher_ConfigsRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Total_DOS_Launcher_ConfigsRowDeleting(Me, New tbl_Total_DOS_Launcher_ConfigsRowChangeEvent(CType(e.Row,tbl_Total_DOS_Launcher_ConfigsRow), e.Action)) + End If + End Sub _ - Public Sub SetLibretro_CoreNull() - Me(Me.tabletbl_Emulators.Libretro_CoreColumn) = Global.System.Convert.DBNull + Public Sub Removetbl_Total_DOS_Launcher_ConfigsRow(ByVal row As tbl_Total_DOS_Launcher_ConfigsRow) + Me.Rows.Remove(row) End Sub _ - Public Function Isid_List_GeneratorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emulators.id_List_GeneratorsColumn) + 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_Total_DOS_Launcher_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 - - _ - Public Sub Setid_List_GeneratorsNull() - Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn) = Global.System.Convert.DBNull - End Sub End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class tbl_Emulators_Moby_PlatformsRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class tbl_Cheevo_ChallengesDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Cheevo_ChallengesRow) - Private tabletbl_Emulators_Moby_Platforms As tbl_Emulators_Moby_PlatformsDataTable + Private columnid_Cheevo_Challenges As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnupdated As Global.System.Data.DataColumn _ - 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) + Public Sub New() + MyBase.New + Me.TableName = "tbl_Cheevo_Challenges" + Me.BeginInit + Me.InitClass + Me.EndInit 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 + 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 _ - 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 + 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 Property id_Moby_Platforms() As Long + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tabletbl_Emulators_Moby_Platforms.id_Moby_PlatformsColumn),Long) + Return Me.columnid_Cheevo_Challenges 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 ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property _ - Public Property id_Moby_Platforms() As Integer + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn 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 + Return Me.columncreated End Get - Set - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = value - End Set End Property _ - Public Property Supported() As Boolean + Public ReadOnly Property updatedColumn() As Global.System.Data.DataColumn 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 + Return Me.columnupdated End Get - Set - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) = value - End Set End Property _ - Public Property DefaultEmulator() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer 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 + Return Me.Rows.Count End Get - Set - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) = value - End Set End Property _ - Public Property Display_Name() As String + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Cheevo_ChallengesRow 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 + Return CType(Me.Rows(index),tbl_Cheevo_ChallengesRow) End Get - Set - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) = value - End Set End Property + _ + Public Event tbl_Cheevo_ChallengesRowChanging As tbl_Cheevo_ChallengesRowChangeEventHandler + + _ + Public Event tbl_Cheevo_ChallengesRowChanged As tbl_Cheevo_ChallengesRowChangeEventHandler + + _ + Public Event tbl_Cheevo_ChallengesRowDeleting As tbl_Cheevo_ChallengesRowChangeEventHandler + + _ + Public Event tbl_Cheevo_ChallengesRowDeleted As tbl_Cheevo_ChallengesRowChangeEventHandler + _ - Public Function Isid_Moby_PlatformsNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) + Public Overloads Sub Addtbl_Cheevo_ChallengesRow(ByVal row As tbl_Cheevo_ChallengesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function Addtbl_Cheevo_ChallengesRow(ByVal Name As String, ByVal created As Date, ByVal updated As Date) As tbl_Cheevo_ChallengesRow + Dim rowtbl_Cheevo_ChallengesRow As tbl_Cheevo_ChallengesRow = CType(Me.NewRow,tbl_Cheevo_ChallengesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Name, created, updated} + rowtbl_Cheevo_ChallengesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Cheevo_ChallengesRow) + Return rowtbl_Cheevo_ChallengesRow End Function _ - Public Sub Setid_Moby_PlatformsNull() - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Cheevo_ChallengesDataTable = CType(MyBase.Clone,tbl_Cheevo_ChallengesDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsSupportedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Cheevo_ChallengesDataTable() End Function _ - Public Sub SetSupportedNull() - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") + Me.columnName = MyBase.Columns("Name") + Me.columncreated = MyBase.Columns("created") + Me.columnupdated = MyBase.Columns("updated") End Sub _ - Public Function IsDefaultEmulatorNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) + Private Sub InitClass() + Me.columnid_Cheevo_Challenges = New Global.System.Data.DataColumn("id_Cheevo_Challenges", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnupdated = New Global.System.Data.DataColumn("updated", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnupdated) + Me.columnid_Cheevo_Challenges.AutoIncrement = true + Me.columnid_Cheevo_Challenges.AutoIncrementSeed = -1 + Me.columnid_Cheevo_Challenges.AutoIncrementStep = -1 + Me.columnid_Cheevo_Challenges.AllowDBNull = false + End Sub + + _ + Public Function Newtbl_Cheevo_ChallengesRow() As tbl_Cheevo_ChallengesRow + Return CType(Me.NewRow,tbl_Cheevo_ChallengesRow) End Function _ - Public Sub SetDefaultEmulatorNull() - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Cheevo_ChallengesRow(builder) + End Function _ - Public Function IsDisplay_NameNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Cheevo_ChallengesRow) End Function _ - Public Sub SetDisplay_NameNull() - Me(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Cheevo_ChallengesRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_ChallengesRowChanged(Me, New tbl_Cheevo_ChallengesRowChangeEvent(CType(e.Row,tbl_Cheevo_ChallengesRow), e.Action)) + End If 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) + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Cheevo_ChallengesRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_ChallengesRowChanging(Me, New tbl_Cheevo_ChallengesRowChangeEvent(CType(e.Row,tbl_Cheevo_ChallengesRow), e.Action)) + End If 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 + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Cheevo_ChallengesRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_ChallengesRowDeleted(Me, New tbl_Cheevo_ChallengesRowChangeEvent(CType(e.Row,tbl_Cheevo_ChallengesRow), e.Action)) + End If End Sub _ - Public Function IsNameNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Cheevo_ChallengesRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_ChallengesRowDeleting(Me, New tbl_Cheevo_ChallengesRowChangeEvent(CType(e.Row,tbl_Cheevo_ChallengesRow), e.Action)) + End If + End Sub _ - Public Sub SetNameNull() - Me(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) = Global.System.Convert.DBNull + Public Sub Removetbl_Cheevo_ChallengesRow(ByVal row As tbl_Cheevo_ChallengesRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsShortNameNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) + 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_Cheevo_ChallengesDataTable" + 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 - - _ - Public Sub SetShortNameNull() - Me(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) = Global.System.Convert.DBNull - End Sub End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class src_ucr_Emulation_GamesRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class tbl_Cheevo_Challenges_CheevosDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Cheevo_Challenges_CheevosRow) - Private tablesrc_ucr_Emulation_Games As src_ucr_Emulation_GamesDataTable + Private columnid_Cheevo_Challenges_Cheevos As Global.System.Data.DataColumn + + Private columnid_Cheevo_Challenges As Global.System.Data.DataColumn + + Private columnCheevoType As Global.System.Data.DataColumn + + Private columnTier As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnCheevo_GameName As Global.System.Data.DataColumn + + Private columnCheevo_ID As Global.System.Data.DataColumn + + Private columnCheevo_Title As Global.System.Data.DataColumn + + Private columntmp_Cheevo_Title_with_Points As Global.System.Data.DataColumn + + Private columntmp_Cheevo_Title_with_Points_and_Mode As Global.System.Data.DataColumn + + Private columnCheevo_Description As Global.System.Data.DataColumn + + Private columnCheevo_Points As Global.System.Data.DataColumn + + Private columnCheevo_BadgeName As Global.System.Data.DataColumn + + Private columnCheevo_Flags As Global.System.Data.DataColumn + + Private columnHardcore As Global.System.Data.DataColumn + + Private columnRuntime As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnupdated As Global.System.Data.DataColumn _ - 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) + Public Sub New() + MyBase.New + Me.TableName = "tbl_Cheevo_Challenges_Cheevos" + Me.BeginInit + Me.InitClass + Me.EndInit 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 + 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 _ - 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 + 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 Property id_DOSBox_Configs_Template() As Long + Public ReadOnly Property id_Cheevo_Challenges_CheevosColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Cheevo_Challenges_Cheevos 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 + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Cheevo_Challenges End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) = value - End Set End Property _ - Public Property CustomIdentifier() As String + Public ReadOnly Property CheevoTypeColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomIdentifier in Tabelle src_ucr_Emulation_Games ist DBNul"& _ - "l.", e) - End Try + Return Me.columnCheevoType End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) = value - End Set End Property _ - Public Property Unavailable() As Boolean + Public ReadOnly Property TierColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unavailable in Tabelle src_ucr_Emulation_Games ist DBNull.", e) - End Try + Return Me.columnTier End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) = value - End Set End Property _ - Public Property Game() As String + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Emu_Games End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.GameColumn) = value - End Set End Property _ - Public Property Folder() As String + Public ReadOnly Property Cheevo_GameNameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_GameName End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn) = value - End Set End Property _ - Public Property File() As String + Public ReadOnly Property Cheevo_IDColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_ID End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.FileColumn) = value - End Set End Property _ - Public Property InnerFile() As String + Public ReadOnly Property Cheevo_TitleColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Title End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) = value - End Set End Property _ - Public Property Want() As Boolean + Public ReadOnly Property tmp_Cheevo_Title_with_PointsColumn() As Global.System.Data.DataColumn 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 + Return Me.columntmp_Cheevo_Title_with_Points End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.WantColumn) = value - End Set End Property _ - Public Property Have() As Boolean + Public ReadOnly Property tmp_Cheevo_Title_with_Points_and_ModeColumn() As Global.System.Data.DataColumn 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 + Return Me.columntmp_Cheevo_Title_with_Points_and_Mode End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.HaveColumn) = value - End Set End Property _ - Public Property Trade() As Boolean + Public ReadOnly Property Cheevo_DescriptionColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Description End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn) = value - End Set End Property _ - Public Property Rank() As Integer + Public ReadOnly Property Cheevo_PointsColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Points End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.RankColumn) = value - End Set End Property _ - Public Property Score() As Decimal + Public ReadOnly Property Cheevo_BadgeNameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_BadgeName End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) = value - End Set End Property _ - Public Property Year() As String + Public ReadOnly Property Cheevo_FlagsColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Flags End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.YearColumn) = value - End Set End Property _ - Public Property Num_Played() As Integer + Public ReadOnly Property HardcoreColumn() As Global.System.Data.DataColumn 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 + Return Me.columnHardcore End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) = value - End Set End Property _ - Public Property Num_Runtime() As Integer + Public ReadOnly Property RuntimeColumn() As Global.System.Data.DataColumn 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 + Return Me.columnRuntime End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) = value - End Set End Property _ - Public Property Rating_Gameplay() As Integer + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn 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 + Return Me.columncreated End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) = value - End Set End Property _ - Public Property Rating_Graphics() As Integer + Public ReadOnly Property updatedColumn() As Global.System.Data.DataColumn 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 + Return Me.columnupdated End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) = value - End Set End Property _ - Public Property Rating_Personal() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() 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 + Return Me.Rows.Count End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) = value - End Set End Property _ - Public Property Rating_Sound() As Integer + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Cheevo_Challenges_CheevosRow 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 + Return CType(Me.Rows(index),tbl_Cheevo_Challenges_CheevosRow) End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) = value - End Set End Property + _ + Public Event tbl_Cheevo_Challenges_CheevosRowChanging As tbl_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Cheevo_Challenges_CheevosRowChanged As tbl_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Cheevo_Challenges_CheevosRowDeleting As tbl_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Cheevo_Challenges_CheevosRowDeleted As tbl_Cheevo_Challenges_CheevosRowChangeEventHandler + _ - 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 Overloads Sub Addtbl_Cheevo_Challenges_CheevosRow(ByVal row As tbl_Cheevo_Challenges_CheevosRow) + Me.Rows.Add(row) + End Sub _ - 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 Overloads Function Addtbl_Cheevo_Challenges_CheevosRow( _ + ByVal id_Cheevo_Challenges As Long, _ + ByVal CheevoType As Long, _ + ByVal Tier As Long, _ + ByVal id_Emu_Games As Long, _ + ByVal Cheevo_GameName As String, _ + ByVal Cheevo_ID As String, _ + ByVal Cheevo_Title As String, _ + ByVal tmp_Cheevo_Title_with_Points As String, _ + ByVal tmp_Cheevo_Title_with_Points_and_Mode As String, _ + ByVal Cheevo_Description As String, _ + ByVal Cheevo_Points As String, _ + ByVal Cheevo_BadgeName As String, _ + ByVal Cheevo_Flags As String, _ + ByVal Hardcore As Boolean, _ + ByVal Runtime As Long, _ + ByVal created As Date, _ + ByVal updated As Date) As tbl_Cheevo_Challenges_CheevosRow + Dim rowtbl_Cheevo_Challenges_CheevosRow As tbl_Cheevo_Challenges_CheevosRow = CType(Me.NewRow,tbl_Cheevo_Challenges_CheevosRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Cheevo_Challenges, CheevoType, Tier, id_Emu_Games, Cheevo_GameName, Cheevo_ID, Cheevo_Title, tmp_Cheevo_Title_with_Points, tmp_Cheevo_Title_with_Points_and_Mode, Cheevo_Description, Cheevo_Points, Cheevo_BadgeName, Cheevo_Flags, Hardcore, Runtime, created, updated} + rowtbl_Cheevo_Challenges_CheevosRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Cheevo_Challenges_CheevosRow) + Return rowtbl_Cheevo_Challenges_CheevosRow + End Function _ - 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 Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Cheevo_Challenges_CheevosDataTable = CType(MyBase.Clone,tbl_Cheevo_Challenges_CheevosDataTable) + cln.InitVars + Return cln + End Function _ - 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 + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Cheevo_Challenges_CheevosDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnid_Cheevo_Challenges_Cheevos = MyBase.Columns("id_Cheevo_Challenges_Cheevos") + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") + Me.columnCheevoType = MyBase.Columns("CheevoType") + Me.columnTier = MyBase.Columns("Tier") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnCheevo_GameName = MyBase.Columns("Cheevo_GameName") + Me.columnCheevo_ID = MyBase.Columns("Cheevo_ID") + Me.columnCheevo_Title = MyBase.Columns("Cheevo_Title") + Me.columntmp_Cheevo_Title_with_Points = MyBase.Columns("tmp_Cheevo_Title_with_Points") + Me.columntmp_Cheevo_Title_with_Points_and_Mode = MyBase.Columns("tmp_Cheevo_Title_with_Points_and_Mode") + Me.columnCheevo_Description = MyBase.Columns("Cheevo_Description") + Me.columnCheevo_Points = MyBase.Columns("Cheevo_Points") + Me.columnCheevo_BadgeName = MyBase.Columns("Cheevo_BadgeName") + Me.columnCheevo_Flags = MyBase.Columns("Cheevo_Flags") + Me.columnHardcore = MyBase.Columns("Hardcore") + Me.columnRuntime = MyBase.Columns("Runtime") + Me.columncreated = MyBase.Columns("created") + Me.columnupdated = MyBase.Columns("updated") + End Sub _ - 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 + Private Sub InitClass() + Me.columnid_Cheevo_Challenges_Cheevos = New Global.System.Data.DataColumn("id_Cheevo_Challenges_Cheevos", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges_Cheevos) + Me.columnid_Cheevo_Challenges = New Global.System.Data.DataColumn("id_Cheevo_Challenges", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges) + Me.columnCheevoType = New Global.System.Data.DataColumn("CheevoType", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevoType) + Me.columnTier = New Global.System.Data.DataColumn("Tier", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTier) + 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.columnCheevo_GameName = New Global.System.Data.DataColumn("Cheevo_GameName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_GameName) + Me.columnCheevo_ID = New Global.System.Data.DataColumn("Cheevo_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_ID) + Me.columnCheevo_Title = New Global.System.Data.DataColumn("Cheevo_Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Title) + Me.columntmp_Cheevo_Title_with_Points = New Global.System.Data.DataColumn("tmp_Cheevo_Title_with_Points", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Cheevo_Title_with_Points) + Me.columntmp_Cheevo_Title_with_Points_and_Mode = New Global.System.Data.DataColumn("tmp_Cheevo_Title_with_Points_and_Mode", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntmp_Cheevo_Title_with_Points_and_Mode) + Me.columnCheevo_Description = New Global.System.Data.DataColumn("Cheevo_Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Description) + Me.columnCheevo_Points = New Global.System.Data.DataColumn("Cheevo_Points", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Points) + Me.columnCheevo_BadgeName = New Global.System.Data.DataColumn("Cheevo_BadgeName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_BadgeName) + Me.columnCheevo_Flags = New Global.System.Data.DataColumn("Cheevo_Flags", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Flags) + Me.columnHardcore = New Global.System.Data.DataColumn("Hardcore", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHardcore) + Me.columnRuntime = New Global.System.Data.DataColumn("Runtime", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRuntime) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnupdated = New Global.System.Data.DataColumn("updated", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnupdated) + Me.columnid_Cheevo_Challenges_Cheevos.AutoIncrement = true + Me.columnid_Cheevo_Challenges_Cheevos.AutoIncrementSeed = -1 + Me.columnid_Cheevo_Challenges_Cheevos.AutoIncrementStep = -1 + Me.columnid_Cheevo_Challenges_Cheevos.AllowDBNull = false + End Sub _ - 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 Function Newtbl_Cheevo_Challenges_CheevosRow() As tbl_Cheevo_Challenges_CheevosRow + Return CType(Me.NewRow,tbl_Cheevo_Challenges_CheevosRow) + End Function _ - 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 + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Cheevo_Challenges_CheevosRow(builder) + End Function _ - 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 + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Cheevo_Challenges_CheevosRow) + End Function _ - 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 + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Cheevo_Challenges_CheevosRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_Challenges_CheevosRowChanged(Me, New tbl_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Cheevo_Challenges_CheevosRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_Challenges_CheevosRowChanging(Me, New tbl_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Cheevo_Challenges_CheevosRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_Challenges_CheevosRowDeleted(Me, New tbl_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Cheevo_Challenges_CheevosRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Cheevo_Challenges_CheevosRowDeleting(Me, New tbl_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 Sub Removetbl_Cheevo_Challenges_CheevosRow(ByVal row As tbl_Cheevo_Challenges_CheevosRow) + Me.Rows.Remove(row) + End Sub _ - Public Property Educational_Categories() As String - Get + 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_Cheevo_Challenges_CheevosDataTable" + 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 - 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) + 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 Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) = value - End Set - End Property + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbl_Users_Cheevo_Challenges_CheevosDataTable + Inherits Global.System.Data.TypedTableBase(Of tbl_Users_Cheevo_Challenges_CheevosRow) + + Private columnid_Users_Cheevo_Challenges_Cheevos As Global.System.Data.DataColumn + + Private columnid_Users As Global.System.Data.DataColumn + + Private columnCheevo_ID As Global.System.Data.DataColumn + + Private columnUnlocked_Casual As Global.System.Data.DataColumn + + Private columnUnlocked_Hardcore As Global.System.Data.DataColumn + + Private columncreated As Global.System.Data.DataColumn + + Private columnupdated As Global.System.Data.DataColumn _ - 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 Sub New() + MyBase.New + Me.TableName = "tbl_Users_Cheevo_Challenges_Cheevos" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub _ - 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 + 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 _ - 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 + 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 Property Gameplay() As String + Public ReadOnly Property id_Users_Cheevo_Challenges_CheevosColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Users_Cheevo_Challenges_Cheevos End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = value - End Set End Property _ - Public Property Interface_Control() As String + Public ReadOnly Property id_UsersColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Users End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = value - End Set End Property _ - Public Property Vehicular_Themes() As String + Public ReadOnly Property Cheevo_IDColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_ID End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = value - End Set End Property _ - Public Property Setting() As String + Public ReadOnly Property Unlocked_CasualColumn() As Global.System.Data.DataColumn 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 + Return Me.columnUnlocked_Casual End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = value - End Set End Property _ - Public Property Narrative_Theme_Topic() As String + Public ReadOnly Property Unlocked_HardcoreColumn() As Global.System.Data.DataColumn 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 + Return Me.columnUnlocked_Hardcore End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) = value - End Set End Property _ - Public Property DLC_Addon() As String + Public ReadOnly Property createdColumn() As Global.System.Data.DataColumn 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 + Return Me.columncreated End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = value - End Set End Property _ - Public Property Special_Edition() As String + Public ReadOnly Property updatedColumn() As Global.System.Data.DataColumn 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 + Return Me.columnupdated End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = value - End Set End Property _ - Public Property Platform_Short() As String + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer 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 + Return Me.Rows.Count End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = value - End Set End Property _ - Public Property Moby_URL() As String + Public Default ReadOnly Property Item(ByVal index As Integer) As tbl_Users_Cheevo_Challenges_CheevosRow 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 + Return CType(Me.Rows(index),tbl_Users_Cheevo_Challenges_CheevosRow) End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = value - End Set End Property + _ + Public Event tbl_Users_Cheevo_Challenges_CheevosRowChanging As tbl_Users_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Users_Cheevo_Challenges_CheevosRowChanged As tbl_Users_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Users_Cheevo_Challenges_CheevosRowDeleting As tbl_Users_Cheevo_Challenges_CheevosRowChangeEventHandler + + _ + Public Event tbl_Users_Cheevo_Challenges_CheevosRowDeleted As tbl_Users_Cheevo_Challenges_CheevosRowChangeEventHandler + _ - 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 Overloads Sub Addtbl_Users_Cheevo_Challenges_CheevosRow(ByVal row As tbl_Users_Cheevo_Challenges_CheevosRow) + Me.Rows.Add(row) + End Sub _ - 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 Overloads Function Addtbl_Users_Cheevo_Challenges_CheevosRow(ByVal id_Users As Long, ByVal Cheevo_ID As String, ByVal Unlocked_Casual As Boolean, ByVal Unlocked_Hardcore As Boolean, ByVal created As Date, ByVal updated As Date) As tbl_Users_Cheevo_Challenges_CheevosRow + Dim rowtbl_Users_Cheevo_Challenges_CheevosRow As tbl_Users_Cheevo_Challenges_CheevosRow = CType(Me.NewRow,tbl_Users_Cheevo_Challenges_CheevosRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Users, Cheevo_ID, Unlocked_Casual, Unlocked_Hardcore, created, updated} + rowtbl_Users_Cheevo_Challenges_CheevosRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbl_Users_Cheevo_Challenges_CheevosRow) + Return rowtbl_Users_Cheevo_Challenges_CheevosRow + End Function _ - 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 Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbl_Users_Cheevo_Challenges_CheevosDataTable = CType(MyBase.Clone,tbl_Users_Cheevo_Challenges_CheevosDataTable) + cln.InitVars + Return cln + End Function _ - 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 + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbl_Users_Cheevo_Challenges_CheevosDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnid_Users_Cheevo_Challenges_Cheevos = MyBase.Columns("id_Users_Cheevo_Challenges_Cheevos") + Me.columnid_Users = MyBase.Columns("id_Users") + Me.columnCheevo_ID = MyBase.Columns("Cheevo_ID") + Me.columnUnlocked_Casual = MyBase.Columns("Unlocked_Casual") + Me.columnUnlocked_Hardcore = MyBase.Columns("Unlocked_Hardcore") + Me.columncreated = MyBase.Columns("created") + Me.columnupdated = MyBase.Columns("updated") + End Sub _ - Public Property id_Moby_Platforms_Alternative() As Long - Get - Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms_Alternative in Tabelle src_ucr_Emulation_Ga"& _ - "mes ist DBNull.", e) - End Try - End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) = value - End Set - End Property + Private Sub InitClass() + Me.columnid_Users_Cheevo_Challenges_Cheevos = New Global.System.Data.DataColumn("id_Users_Cheevo_Challenges_Cheevos", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Users_Cheevo_Challenges_Cheevos) + Me.columnid_Users = New Global.System.Data.DataColumn("id_Users", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Users) + Me.columnCheevo_ID = New Global.System.Data.DataColumn("Cheevo_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_ID) + Me.columnUnlocked_Casual = New Global.System.Data.DataColumn("Unlocked_Casual", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlocked_Casual) + Me.columnUnlocked_Hardcore = New Global.System.Data.DataColumn("Unlocked_Hardcore", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlocked_Hardcore) + Me.columncreated = New Global.System.Data.DataColumn("created", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncreated) + Me.columnupdated = New Global.System.Data.DataColumn("updated", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnupdated) + Me.columnid_Users_Cheevo_Challenges_Cheevos.AutoIncrement = true + Me.columnid_Users_Cheevo_Challenges_Cheevos.AutoIncrementSeed = -1 + Me.columnid_Users_Cheevo_Challenges_Cheevos.AutoIncrementStep = -1 + Me.columnid_Users_Cheevo_Challenges_Cheevos.AllowDBNull = false + End Sub _ - 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 Function Newtbl_Users_Cheevo_Challenges_CheevosRow() As tbl_Users_Cheevo_Challenges_CheevosRow + Return CType(Me.NewRow,tbl_Users_Cheevo_Challenges_CheevosRow) + End Function _ - 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 + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbl_Users_Cheevo_Challenges_CheevosRow(builder) + End Function _ - 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 + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbl_Users_Cheevo_Challenges_CheevosRow) + End Function _ - 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 + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbl_Users_Cheevo_Challenges_CheevosRowChangedEvent) Is Nothing) Then + RaiseEvent tbl_Users_Cheevo_Challenges_CheevosRowChanged(Me, New tbl_Users_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Users_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbl_Users_Cheevo_Challenges_CheevosRowChangingEvent) Is Nothing) Then + RaiseEvent tbl_Users_Cheevo_Challenges_CheevosRowChanging(Me, New tbl_Users_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Users_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbl_Users_Cheevo_Challenges_CheevosRowDeletedEvent) Is Nothing) Then + RaiseEvent tbl_Users_Cheevo_Challenges_CheevosRowDeleted(Me, New tbl_Users_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Users_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbl_Users_Cheevo_Challenges_CheevosRowDeletingEvent) Is Nothing) Then + RaiseEvent tbl_Users_Cheevo_Challenges_CheevosRowDeleting(Me, New tbl_Users_Cheevo_Challenges_CheevosRowChangeEvent(CType(e.Row,tbl_Users_Cheevo_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - 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 Sub Removetbl_Users_Cheevo_Challenges_CheevosRow(ByVal row As tbl_Users_Cheevo_Challenges_CheevosRow) + Me.Rows.Remove(row) + End Sub _ - Public Property Alpha() As Boolean - Get + 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_Users_Cheevo_Challenges_CheevosDataTable" + 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 - 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) + 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 Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) = value - End Set - End Property + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class ttb_Cheevo_Challenges_TiersDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Cheevo_Challenges_TiersRow) + + Private columnid_Cheevo_Challenges As Global.System.Data.DataColumn + + Private columnTier As Global.System.Data.DataColumn + + Private columnDisplayName As Global.System.Data.DataColumn _ - 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 Sub New() + MyBase.New + Me.TableName = "ttb_Cheevo_Challenges_Tiers" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub _ - 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 + 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 _ - 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 + 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 Property Unlicensed() As Boolean + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Cheevo_Challenges End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = value - End Set End Property _ - Public Property Fixed() As Boolean + Public ReadOnly Property TierColumn() As Global.System.Data.DataColumn 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 + Return Me.columnTier End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn) = value - End Set End Property _ - Public Property Pirated() As Boolean + Public ReadOnly Property DisplayNameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnDisplayName End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = value - End Set End Property _ - Public Property Good() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer 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 + Return Me.Rows.Count End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn) = value - End Set End Property _ - Public Property Bad() As Boolean + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Cheevo_Challenges_TiersRow 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 + Return CType(Me.Rows(index),ttb_Cheevo_Challenges_TiersRow) End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.BadColumn) = value - End Set End Property + _ + Public Event ttb_Cheevo_Challenges_TiersRowChanging As ttb_Cheevo_Challenges_TiersRowChangeEventHandler + + _ + Public Event ttb_Cheevo_Challenges_TiersRowChanged As ttb_Cheevo_Challenges_TiersRowChangeEventHandler + + _ + Public Event ttb_Cheevo_Challenges_TiersRowDeleting As ttb_Cheevo_Challenges_TiersRowChangeEventHandler + + _ + Public Event ttb_Cheevo_Challenges_TiersRowDeleted As ttb_Cheevo_Challenges_TiersRowChangeEventHandler + _ - 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 Overloads Sub Addttb_Cheevo_Challenges_TiersRow(ByVal row As ttb_Cheevo_Challenges_TiersRow) + Me.Rows.Add(row) + End Sub _ - 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 Overloads Function Addttb_Cheevo_Challenges_TiersRow(ByVal id_Cheevo_Challenges As String, ByVal Tier As String, ByVal DisplayName As String) As ttb_Cheevo_Challenges_TiersRow + Dim rowttb_Cheevo_Challenges_TiersRow As ttb_Cheevo_Challenges_TiersRow = CType(Me.NewRow,ttb_Cheevo_Challenges_TiersRow) + Dim columnValuesArray() As Object = New Object() {id_Cheevo_Challenges, Tier, DisplayName} + rowttb_Cheevo_Challenges_TiersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Cheevo_Challenges_TiersRow) + Return rowttb_Cheevo_Challenges_TiersRow + End Function _ - 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 Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Cheevo_Challenges_TiersDataTable = CType(MyBase.Clone,ttb_Cheevo_Challenges_TiersDataTable) + cln.InitVars + Return cln + End Function _ - 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 + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Cheevo_Challenges_TiersDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") + Me.columnTier = MyBase.Columns("Tier") + Me.columnDisplayName = MyBase.Columns("DisplayName") + End Sub _ - 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 + Private Sub InitClass() + Me.columnid_Cheevo_Challenges = New Global.System.Data.DataColumn("id_Cheevo_Challenges", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges) + Me.columnTier = New Global.System.Data.DataColumn("Tier", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTier) + Me.columnDisplayName = New Global.System.Data.DataColumn("DisplayName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDisplayName) + End Sub _ - 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 Function Newttb_Cheevo_Challenges_TiersRow() As ttb_Cheevo_Challenges_TiersRow + Return CType(Me.NewRow,ttb_Cheevo_Challenges_TiersRow) + End Function _ - 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 + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Cheevo_Challenges_TiersRow(builder) + End Function _ - 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 + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Cheevo_Challenges_TiersRow) + End Function _ - 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 + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Cheevo_Challenges_TiersRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Cheevo_Challenges_TiersRowChanged(Me, New ttb_Cheevo_Challenges_TiersRowChangeEvent(CType(e.Row,ttb_Cheevo_Challenges_TiersRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Cheevo_Challenges_TiersRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Cheevo_Challenges_TiersRowChanging(Me, New ttb_Cheevo_Challenges_TiersRowChangeEvent(CType(e.Row,ttb_Cheevo_Challenges_TiersRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Cheevo_Challenges_TiersRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Cheevo_Challenges_TiersRowDeleted(Me, New ttb_Cheevo_Challenges_TiersRowChangeEvent(CType(e.Row,ttb_Cheevo_Challenges_TiersRow), e.Action)) + End If + End Sub _ - 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 + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Cheevo_Challenges_TiersRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Cheevo_Challenges_TiersRowDeleting(Me, New ttb_Cheevo_Challenges_TiersRowChangeEvent(CType(e.Row,ttb_Cheevo_Challenges_TiersRow), e.Action)) + End If + End Sub _ - 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 Sub Removettb_Cheevo_Challenges_TiersRow(ByVal row As ttb_Cheevo_Challenges_TiersRow) + Me.Rows.Remove(row) + End Sub _ - 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 + 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_Cheevo_Challenges_TiersDataTable" + 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 - 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) + 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 Get - Set - Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) = value - End Set - End Property + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class ttb_Open_Challenges_CheevosDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Open_Challenges_CheevosRow) - _ - 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 + Private columnid_Users_Cheevo_Challenges_Cheevos As Global.System.Data.DataColumn - _ - 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 + Private columnid_Cheevo_Challenges_Cheevos As Global.System.Data.DataColumn + + Private columnid_Cheevo_Challenges As Global.System.Data.DataColumn + + Private columnCheevoType As Global.System.Data.DataColumn + + Private columnChallenge_Name As Global.System.Data.DataColumn + + Private columnTier As Global.System.Data.DataColumn + + Private columnid_Emu_Games As Global.System.Data.DataColumn + + Private columnCheevo_GameName As Global.System.Data.DataColumn + + Private columnCheevo_ID As Global.System.Data.DataColumn + + Private columnCheevo_Title As Global.System.Data.DataColumn + + Private columnCheevo_Description As Global.System.Data.DataColumn + + Private columnRuntime As Global.System.Data.DataColumn + + Private columnHardcore As Global.System.Data.DataColumn + + Private columnUnlocked_Casual As Global.System.Data.DataColumn + + Private columnUnlocked_Hardcore As Global.System.Data.DataColumn _ - 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 Sub New() + MyBase.New + Me.TableName = "ttb_Open_Challenges_Cheevos" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub _ - 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 + 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 _ - 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 + 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 Property _006_Year() As Integer + Public ReadOnly Property id_Users_Cheevo_Challenges_CheevosColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Users_Cheevo_Challenges_Cheevos End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = value - End Set End Property _ - Public Property _101_Basic_Genres() As Integer + Public ReadOnly Property id_Cheevo_Challenges_CheevosColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Cheevo_Challenges_Cheevos End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = value - End Set End Property _ - Public Property _102_Perspectives() As Integer + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Cheevo_Challenges End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = value - End Set End Property _ - Public Property _103_Sports_Themes() As Integer + Public ReadOnly Property CheevoTypeColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevoType 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 + Public ReadOnly Property Challenge_NameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnChallenge_Name 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 + Public ReadOnly Property TierColumn() As Global.System.Data.DataColumn 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 + Return Me.columnTier End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = value - End Set End Property _ - Public Property _106_Other_Attributes() As Integer + Public ReadOnly Property id_Emu_GamesColumn() As Global.System.Data.DataColumn 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 + Return Me.columnid_Emu_Games End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = value - End Set End Property _ - Public Property _107_Visual_Presentation() As Integer + Public ReadOnly Property Cheevo_GameNameColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_GameName End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = value - End Set End Property _ - Public Property _108_Gameplay() As Integer + Public ReadOnly Property Cheevo_IDColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_ID End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = value - End Set End Property _ - Public Property _109_Pacing() As Integer + Public ReadOnly Property Cheevo_TitleColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Title End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = value - End Set End Property _ - Public Property _110_Narrative_Theme_Topic() As Integer + Public ReadOnly Property Cheevo_DescriptionColumn() As Global.System.Data.DataColumn 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 + Return Me.columnCheevo_Description End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = value - End Set End Property _ - Public Property _111_Setting() As Integer + Public ReadOnly Property RuntimeColumn() As Global.System.Data.DataColumn 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 + Return Me.columnRuntime End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = value - End Set End Property _ - Public Property _112_Vehicular_Themes() As Integer + Public ReadOnly Property HardcoreColumn() As Global.System.Data.DataColumn 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 + Return Me.columnHardcore End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) = value - End Set End Property _ - Public Property _113_Interface_Control() As Integer + Public ReadOnly Property Unlocked_CasualColumn() As Global.System.Data.DataColumn 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 + Return Me.columnUnlocked_Casual End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) = value - End Set End Property _ - Public Property _114_DLC_Addon() As Integer + Public ReadOnly Property Unlocked_HardcoreColumn() As Global.System.Data.DataColumn 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 + Return Me.columnUnlocked_Hardcore End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) = value - End Set End Property _ - Public Property _115_Special_Edition() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() 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 + Return Me.Rows.Count End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) = value - End Set End Property _ - Public Property _201_MinPlayers() As Integer + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Open_Challenges_CheevosRow 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 + Return CType(Me.Rows(index),ttb_Open_Challenges_CheevosRow) End Get - Set - Me(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn) = value - End Set End Property + _ + Public Event ttb_Open_Challenges_CheevosRowChanging As ttb_Open_Challenges_CheevosRowChangeEventHandler + + _ + Public Event ttb_Open_Challenges_CheevosRowChanged As ttb_Open_Challenges_CheevosRowChangeEventHandler + + _ + Public Event ttb_Open_Challenges_CheevosRowDeleting As ttb_Open_Challenges_CheevosRowChangeEventHandler + + _ + Public Event ttb_Open_Challenges_CheevosRowDeleted As ttb_Open_Challenges_CheevosRowChangeEventHandler + _ - 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 Overloads Sub Addttb_Open_Challenges_CheevosRow(ByVal row As ttb_Open_Challenges_CheevosRow) + Me.Rows.Add(row) + End Sub _ - 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 Overloads Function Addttb_Open_Challenges_CheevosRow(ByVal id_Users_Cheevo_Challenges_Cheevos As Long, ByVal id_Cheevo_Challenges_Cheevos As Long, ByVal id_Cheevo_Challenges As Long, ByVal CheevoType As Long, ByVal Challenge_Name As String, ByVal Tier As Long, ByVal id_Emu_Games As Long, ByVal Cheevo_GameName As String, ByVal Cheevo_ID As String, ByVal Cheevo_Title As String, ByVal Cheevo_Description As String, ByVal Runtime As Long, ByVal Hardcore As Boolean, ByVal Unlocked_Casual As Boolean, ByVal Unlocked_Hardcore As Boolean) As ttb_Open_Challenges_CheevosRow + Dim rowttb_Open_Challenges_CheevosRow As ttb_Open_Challenges_CheevosRow = CType(Me.NewRow,ttb_Open_Challenges_CheevosRow) + Dim columnValuesArray() As Object = New Object() {id_Users_Cheevo_Challenges_Cheevos, id_Cheevo_Challenges_Cheevos, id_Cheevo_Challenges, CheevoType, Challenge_Name, Tier, id_Emu_Games, Cheevo_GameName, Cheevo_ID, Cheevo_Title, Cheevo_Description, Runtime, Hardcore, Unlocked_Casual, Unlocked_Hardcore} + rowttb_Open_Challenges_CheevosRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Open_Challenges_CheevosRow) + Return rowttb_Open_Challenges_CheevosRow + End Function _ - 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 Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Open_Challenges_CheevosDataTable = CType(MyBase.Clone,ttb_Open_Challenges_CheevosDataTable) + cln.InitVars + Return cln + End Function _ - 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 + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Open_Challenges_CheevosDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnid_Users_Cheevo_Challenges_Cheevos = MyBase.Columns("id_Users_Cheevo_Challenges_Cheevos") + Me.columnid_Cheevo_Challenges_Cheevos = MyBase.Columns("id_Cheevo_Challenges_Cheevos") + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") + Me.columnCheevoType = MyBase.Columns("CheevoType") + Me.columnChallenge_Name = MyBase.Columns("Challenge_Name") + Me.columnTier = MyBase.Columns("Tier") + Me.columnid_Emu_Games = MyBase.Columns("id_Emu_Games") + Me.columnCheevo_GameName = MyBase.Columns("Cheevo_GameName") + Me.columnCheevo_ID = MyBase.Columns("Cheevo_ID") + Me.columnCheevo_Title = MyBase.Columns("Cheevo_Title") + Me.columnCheevo_Description = MyBase.Columns("Cheevo_Description") + Me.columnRuntime = MyBase.Columns("Runtime") + Me.columnHardcore = MyBase.Columns("Hardcore") + Me.columnUnlocked_Casual = MyBase.Columns("Unlocked_Casual") + Me.columnUnlocked_Hardcore = MyBase.Columns("Unlocked_Hardcore") + End Sub _ - 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 + Private Sub InitClass() + Me.columnid_Users_Cheevo_Challenges_Cheevos = New Global.System.Data.DataColumn("id_Users_Cheevo_Challenges_Cheevos", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Users_Cheevo_Challenges_Cheevos) + Me.columnid_Cheevo_Challenges_Cheevos = New Global.System.Data.DataColumn("id_Cheevo_Challenges_Cheevos", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges_Cheevos) + Me.columnid_Cheevo_Challenges = New Global.System.Data.DataColumn("id_Cheevo_Challenges", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges) + Me.columnCheevoType = New Global.System.Data.DataColumn("CheevoType", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevoType) + Me.columnChallenge_Name = New Global.System.Data.DataColumn("Challenge_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnChallenge_Name) + Me.columnTier = New Global.System.Data.DataColumn("Tier", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTier) + 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.columnCheevo_GameName = New Global.System.Data.DataColumn("Cheevo_GameName", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_GameName) + Me.columnCheevo_ID = New Global.System.Data.DataColumn("Cheevo_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_ID) + Me.columnCheevo_Title = New Global.System.Data.DataColumn("Cheevo_Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Title) + Me.columnCheevo_Description = New Global.System.Data.DataColumn("Cheevo_Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCheevo_Description) + Me.columnRuntime = New Global.System.Data.DataColumn("Runtime", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRuntime) + Me.columnHardcore = New Global.System.Data.DataColumn("Hardcore", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHardcore) + Me.columnUnlocked_Casual = New Global.System.Data.DataColumn("Unlocked_Casual", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlocked_Casual) + Me.columnUnlocked_Hardcore = New Global.System.Data.DataColumn("Unlocked_Hardcore", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUnlocked_Hardcore) + End Sub _ - 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 Function Newttb_Open_Challenges_CheevosRow() As ttb_Open_Challenges_CheevosRow + Return CType(Me.NewRow,ttb_Open_Challenges_CheevosRow) + End Function _ - 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 + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Open_Challenges_CheevosRow(builder) + End Function _ - Public Function Isid_Emu_GamesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Open_Challenges_CheevosRow) End Function _ - Public Sub Setid_Emu_GamesNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Open_Challenges_CheevosRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Open_Challenges_CheevosRowChanged(Me, New ttb_Open_Challenges_CheevosRowChangeEvent(CType(e.Row,ttb_Open_Challenges_CheevosRow), e.Action)) + End If End Sub _ - Public Function Istmp_HighlightedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Open_Challenges_CheevosRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Open_Challenges_CheevosRowChanging(Me, New ttb_Open_Challenges_CheevosRowChangeEvent(CType(e.Row,ttb_Open_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - Public Sub Settmp_HighlightedNull() - Me(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Open_Challenges_CheevosRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Open_Challenges_CheevosRowDeleted(Me, New ttb_Open_Challenges_CheevosRowChangeEvent(CType(e.Row,ttb_Open_Challenges_CheevosRow), e.Action)) + End If End Sub _ - Public Function Isid_DOSBox_Configs_TemplateNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Open_Challenges_CheevosRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Open_Challenges_CheevosRowDeleting(Me, New ttb_Open_Challenges_CheevosRowChangeEvent(CType(e.Row,ttb_Open_Challenges_CheevosRow), e.Action)) + End If + End Sub _ - Public Sub Setid_DOSBox_Configs_TemplateNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) = Global.System.Convert.DBNull + Public Sub Removettb_Open_Challenges_CheevosRow(ByVal row As ttb_Open_Challenges_CheevosRow) + Me.Rows.Remove(row) End Sub _ - Public Function Isid_DOSBox_ConfigsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) + 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_Open_Challenges_CheevosDataTable" + 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_Open_ChallengesDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Open_ChallengesRow) + + Private columnid_Cheevo_Challenges As Global.System.Data.DataColumn + + Private columnName As Global.System.Data.DataColumn + + Private columnTier As Global.System.Data.DataColumn + + Private columnMaxTier As Global.System.Data.DataColumn + + Private columnDisplayText As Global.System.Data.DataColumn _ - Public Sub Setid_DOSBox_ConfigsNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + Public Sub New() + MyBase.New + Me.TableName = "ttb_Open_Challenges" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Function IsCustomIdentifierNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) - End Function + 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 _ - Public Sub SetCustomIdentifierNull() - Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) = Global.System.Convert.DBNull + 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 Function IsUnavailableNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) - End Function + Public ReadOnly Property id_Cheevo_ChallengesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Cheevo_Challenges + End Get + End Property _ - Public Sub SetUnavailableNull() - Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property _ - Public Function IsGameNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameColumn) - End Function + Public ReadOnly Property TierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTier + End Get + End Property _ - Public Sub SetGameNull() - Me(Me.tablesrc_ucr_Emulation_Games.GameColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property MaxTierColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMaxTier + End Get + End Property _ - Public Function IsFolderNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FolderColumn) - End Function + Public ReadOnly Property DisplayTextColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDisplayText + End Get + End Property _ - Public Sub SetFolderNull() - Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn) = Global.System.Convert.DBNull - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property _ - Public Function IsFileNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FileColumn) - End Function + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Open_ChallengesRow + Get + Return CType(Me.Rows(index),ttb_Open_ChallengesRow) + End Get + End Property + + _ + Public Event ttb_Open_ChallengesRowChanging As ttb_Open_ChallengesRowChangeEventHandler + + _ + Public Event ttb_Open_ChallengesRowChanged As ttb_Open_ChallengesRowChangeEventHandler + + _ + Public Event ttb_Open_ChallengesRowDeleting As ttb_Open_ChallengesRowChangeEventHandler + + _ + Public Event ttb_Open_ChallengesRowDeleted As ttb_Open_ChallengesRowChangeEventHandler _ - Public Sub SetFileNull() - Me(Me.tablesrc_ucr_Emulation_Games.FileColumn) = Global.System.Convert.DBNull + Public Overloads Sub Addttb_Open_ChallengesRow(ByVal row As ttb_Open_ChallengesRow) + Me.Rows.Add(row) End Sub _ - Public Function IsInnerFileNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) + Public Overloads Function Addttb_Open_ChallengesRow(ByVal id_Cheevo_Challenges As Long, ByVal Name As String, ByVal Tier As Long, ByVal MaxTier As Long, ByVal DisplayText As String) As ttb_Open_ChallengesRow + Dim rowttb_Open_ChallengesRow As ttb_Open_ChallengesRow = CType(Me.NewRow,ttb_Open_ChallengesRow) + Dim columnValuesArray() As Object = New Object() {id_Cheevo_Challenges, Name, Tier, MaxTier, DisplayText} + rowttb_Open_ChallengesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Open_ChallengesRow) + Return rowttb_Open_ChallengesRow End Function _ - Public Sub SetInnerFileNull() - Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Open_ChallengesDataTable = CType(MyBase.Clone,ttb_Open_ChallengesDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsWantNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.WantColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Open_ChallengesDataTable() End Function _ - Public Sub SetWantNull() - Me(Me.tablesrc_ucr_Emulation_Games.WantColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnid_Cheevo_Challenges = MyBase.Columns("id_Cheevo_Challenges") + Me.columnName = MyBase.Columns("Name") + Me.columnTier = MyBase.Columns("Tier") + Me.columnMaxTier = MyBase.Columns("MaxTier") + Me.columnDisplayText = MyBase.Columns("DisplayText") 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 + Private Sub InitClass() + Me.columnid_Cheevo_Challenges = New Global.System.Data.DataColumn("id_Cheevo_Challenges", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Cheevo_Challenges) + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnTier = New Global.System.Data.DataColumn("Tier", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTier) + Me.columnMaxTier = New Global.System.Data.DataColumn("MaxTier", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMaxTier) + 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 IsTradeNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TradeColumn) + Public Function Newttb_Open_ChallengesRow() As ttb_Open_ChallengesRow + Return CType(Me.NewRow,ttb_Open_ChallengesRow) End Function _ - Public Sub SetTradeNull() - Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Open_ChallengesRow(builder) + End Function _ - Public Function IsRankNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RankColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Open_ChallengesRow) End Function _ - Public Sub SetRankNull() - Me(Me.tablesrc_ucr_Emulation_Games.RankColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Open_ChallengesRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Open_ChallengesRowChanged(Me, New ttb_Open_ChallengesRowChangeEvent(CType(e.Row,ttb_Open_ChallengesRow), e.Action)) + End If End Sub _ - Public Function IsScoreNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Open_ChallengesRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Open_ChallengesRowChanging(Me, New ttb_Open_ChallengesRowChangeEvent(CType(e.Row,ttb_Open_ChallengesRow), e.Action)) + End If + End Sub _ - Public Sub SetScoreNull() - Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Open_ChallengesRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Open_ChallengesRowDeleted(Me, New ttb_Open_ChallengesRowChangeEvent(CType(e.Row,ttb_Open_ChallengesRow), e.Action)) + End If End Sub _ - Public Function IsYearNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.YearColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Open_ChallengesRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Open_ChallengesRowDeleting(Me, New ttb_Open_ChallengesRowChangeEvent(CType(e.Row,ttb_Open_ChallengesRow), e.Action)) + End If + End Sub _ - Public Sub SetYearNull() - Me(Me.tablesrc_ucr_Emulation_Games.YearColumn) = Global.System.Convert.DBNull + Public Sub Removettb_Open_ChallengesRow(ByVal row As ttb_Open_ChallengesRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsNum_PlayedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) + 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_Open_ChallengesDataTable" + 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_Emulators_PreLaunch_CommandsDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Emulators_PreLaunch_CommandsRow) + + Private columnid_Emulators_Pre_Post_Launch_Commands As Global.System.Data.DataColumn + + Private columnid_Emulators As Global.System.Data.DataColumn + + Private columnSort As Global.System.Data.DataColumn + + Private columnDirectory As Global.System.Data.DataColumn + + Private columnExecutable As Global.System.Data.DataColumn + + Private columnParameter As Global.System.Data.DataColumn + + Private columnMinimized As Global.System.Data.DataColumn + + Private columnWaitForExit As Global.System.Data.DataColumn _ - Public Sub SetNum_PlayedNull() - Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + Public Sub New() + MyBase.New + Me.TableName = "ttb_Emulators_PreLaunch_Commands" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Function IsNum_RuntimeNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) - End Function + 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 _ - Public Sub SetNum_RuntimeNull() - Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull + 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 Function IsRating_GameplayNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) - End Function + Public ReadOnly Property id_Emulators_Pre_Post_Launch_CommandsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators_Pre_Post_Launch_Commands + End Get + End Property _ - Public Sub SetRating_GameplayNull() - Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property _ - Public Function IsRating_GraphicsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) - End Function + Public ReadOnly Property SortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSort + End Get + End Property _ - Public Sub SetRating_GraphicsNull() - Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property DirectoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDirectory + End Get + End Property _ - Public Function IsRating_PersonalNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) - End Function + Public ReadOnly Property ExecutableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnExecutable + End Get + End Property _ - Public Sub SetRating_PersonalNull() - Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property ParameterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnParameter + End Get + End Property _ - Public Function IsRating_SoundNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) - End Function + Public ReadOnly Property MinimizedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMinimized + End Get + End Property _ - Public Sub SetRating_SoundNull() - Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property WaitForExitColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWaitForExit + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property _ - Public Function IsRating_StoryNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) - End Function + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Emulators_PreLaunch_CommandsRow + Get + Return CType(Me.Rows(index),ttb_Emulators_PreLaunch_CommandsRow) + End Get + End Property + + _ + Public Event ttb_Emulators_PreLaunch_CommandsRowChanging As ttb_Emulators_PreLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PreLaunch_CommandsRowChanged As ttb_Emulators_PreLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PreLaunch_CommandsRowDeleting As ttb_Emulators_PreLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PreLaunch_CommandsRowDeleted As ttb_Emulators_PreLaunch_CommandsRowChangeEventHandler _ - Public Sub SetRating_StoryNull() - Me(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) = Global.System.Convert.DBNull + Public Overloads Sub Addttb_Emulators_PreLaunch_CommandsRow(ByVal row As ttb_Emulators_PreLaunch_CommandsRow) + Me.Rows.Add(row) End Sub _ - Public Function IsFavouriteNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) + Public Overloads Function Addttb_Emulators_PreLaunch_CommandsRow(ByVal id_Emulators As Long, ByVal Sort As Long, ByVal Directory As String, ByVal Executable As String, ByVal Parameter As String, ByVal Minimized As Boolean, ByVal WaitForExit As Boolean) As ttb_Emulators_PreLaunch_CommandsRow + Dim rowttb_Emulators_PreLaunch_CommandsRow As ttb_Emulators_PreLaunch_CommandsRow = CType(Me.NewRow,ttb_Emulators_PreLaunch_CommandsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emulators, Sort, Directory, Executable, Parameter, Minimized, WaitForExit} + rowttb_Emulators_PreLaunch_CommandsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Emulators_PreLaunch_CommandsRow) + Return rowttb_Emulators_PreLaunch_CommandsRow End Function _ - Public Sub SetFavouriteNull() - Me(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Emulators_PreLaunch_CommandsDataTable = CType(MyBase.Clone,ttb_Emulators_PreLaunch_CommandsDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsPlatformNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Emulators_PreLaunch_CommandsDataTable() End Function _ - Public Sub SetPlatformNull() - Me(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnid_Emulators_Pre_Post_Launch_Commands = MyBase.Columns("id_Emulators_Pre_Post_Launch_Commands") + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnSort = MyBase.Columns("Sort") + Me.columnDirectory = MyBase.Columns("Directory") + Me.columnExecutable = MyBase.Columns("Executable") + Me.columnParameter = MyBase.Columns("Parameter") + Me.columnMinimized = MyBase.Columns("Minimized") + Me.columnWaitForExit = MyBase.Columns("WaitForExit") 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 + Private Sub InitClass() + Me.columnid_Emulators_Pre_Post_Launch_Commands = New Global.System.Data.DataColumn("id_Emulators_Pre_Post_Launch_Commands", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators_Pre_Post_Launch_Commands) + 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.columnSort = New Global.System.Data.DataColumn("Sort", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSort) + Me.columnDirectory = New Global.System.Data.DataColumn("Directory", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDirectory) + Me.columnExecutable = New Global.System.Data.DataColumn("Executable", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnExecutable) + Me.columnParameter = New Global.System.Data.DataColumn("Parameter", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnParameter) + Me.columnMinimized = New Global.System.Data.DataColumn("Minimized", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMinimized) + Me.columnWaitForExit = New Global.System.Data.DataColumn("WaitForExit", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWaitForExit) + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrement = true + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrementSeed = -1 + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrementStep = -1 + Me.columnid_Emulators_Pre_Post_Launch_Commands.AllowDBNull = false End Sub _ - Public Function IsAge_PessimisticNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) + Public Function Newttb_Emulators_PreLaunch_CommandsRow() As ttb_Emulators_PreLaunch_CommandsRow + Return CType(Me.NewRow,ttb_Emulators_PreLaunch_CommandsRow) End Function _ - Public Sub SetAge_PessimisticNull() - Me(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Emulators_PreLaunch_CommandsRow(builder) + End Function _ - Public Function IsAge_OptimisticNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Emulators_PreLaunch_CommandsRow) End Function _ - Public Sub SetAge_OptimisticNull() - Me(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Emulators_PreLaunch_CommandsRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PreLaunch_CommandsRowChanged(Me, New ttb_Emulators_PreLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PreLaunch_CommandsRow), e.Action)) + End If End Sub _ - Public Function IsPublisherNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Emulators_PreLaunch_CommandsRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PreLaunch_CommandsRowChanging(Me, New ttb_Emulators_PreLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PreLaunch_CommandsRow), e.Action)) + End If + End Sub _ - Public Sub SetPublisherNull() - Me(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Emulators_PreLaunch_CommandsRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PreLaunch_CommandsRowDeleted(Me, New ttb_Emulators_PreLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PreLaunch_CommandsRow), e.Action)) + End If End Sub _ - Public Function IsDeveloperNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Emulators_PreLaunch_CommandsRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PreLaunch_CommandsRowDeleting(Me, New ttb_Emulators_PreLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PreLaunch_CommandsRow), e.Action)) + End If + End Sub _ - Public Sub SetDeveloperNull() - Me(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) = Global.System.Convert.DBNull + Public Sub Removettb_Emulators_PreLaunch_CommandsRow(ByVal row As ttb_Emulators_PreLaunch_CommandsRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsDescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) + 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_Emulators_PreLaunch_CommandsDataTable" + 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_Emulators_PostLaunch_CommandsDataTable + Inherits Global.System.Data.TypedTableBase(Of ttb_Emulators_PostLaunch_CommandsRow) - _ - Public Sub SetDescriptionNull() - Me(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) = Global.System.Convert.DBNull - End Sub + Private columnid_Emulators_Pre_Post_Launch_Commands As Global.System.Data.DataColumn - _ - Public Function IsTechnical_NotesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) - End Function + Private columnid_Emulators As Global.System.Data.DataColumn - _ - Public Sub SetTechnical_NotesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) = Global.System.Convert.DBNull - End Sub + Private columnSort As Global.System.Data.DataColumn - _ - Public Function IsAlternate_TitlesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) - End Function + Private columnDirectory As Global.System.Data.DataColumn - _ - Public Sub SetAlternate_TitlesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) = Global.System.Convert.DBNull - End Sub + Private columnExecutable As Global.System.Data.DataColumn - _ - Public Function IsBasic_GenresNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) - End Function + Private columnParameter As Global.System.Data.DataColumn - _ - Public Sub SetBasic_GenresNull() - Me(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) = Global.System.Convert.DBNull - End Sub + Private columnMinimized As Global.System.Data.DataColumn - _ - Public Function IsPerspectivesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) - End Function + Private columnWaitForExit As Global.System.Data.DataColumn _ - Public Sub SetPerspectivesNull() - Me(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) = Global.System.Convert.DBNull + Public Sub New() + MyBase.New + Me.TableName = "ttb_Emulators_PostLaunch_Commands" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Function IsSports_ThemesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) - End Function + 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 _ - Public Sub SetSports_ThemesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) = Global.System.Convert.DBNull + 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 Function IsEducational_CategoriesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) - End Function + Public ReadOnly Property id_Emulators_Pre_Post_Launch_CommandsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators_Pre_Post_Launch_Commands + End Get + End Property _ - Public Sub SetEducational_CategoriesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property id_EmulatorsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnid_Emulators + End Get + End Property _ - Public Function IsOther_AttributesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) - End Function + Public ReadOnly Property SortColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSort + End Get + End Property _ - Public Sub SetOther_AttributesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property DirectoryColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDirectory + End Get + End Property _ - Public Function IsVisual_PresentationNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) - End Function + Public ReadOnly Property ExecutableColumn() As Global.System.Data.DataColumn + Get + Return Me.columnExecutable + End Get + End Property _ - Public Sub SetVisual_PresentationNull() - Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property ParameterColumn() As Global.System.Data.DataColumn + Get + Return Me.columnParameter + End Get + End Property _ - Public Function IsPacingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PacingColumn) - End Function + Public ReadOnly Property MinimizedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMinimized + End Get + End Property _ - Public Sub SetPacingNull() - Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property WaitForExitColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWaitForExit + End Get + End Property _ - Public Function IsGameplayNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property _ - Public Sub SetGameplayNull() - Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = Global.System.Convert.DBNull - End Sub + Public Default ReadOnly Property Item(ByVal index As Integer) As ttb_Emulators_PostLaunch_CommandsRow + Get + Return CType(Me.Rows(index),ttb_Emulators_PostLaunch_CommandsRow) + End Get + End Property - _ - Public Function IsInterface_ControlNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) - End Function + _ + Public Event ttb_Emulators_PostLaunch_CommandsRowChanging As ttb_Emulators_PostLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PostLaunch_CommandsRowChanged As ttb_Emulators_PostLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PostLaunch_CommandsRowDeleting As ttb_Emulators_PostLaunch_CommandsRowChangeEventHandler + + _ + Public Event ttb_Emulators_PostLaunch_CommandsRowDeleted As ttb_Emulators_PostLaunch_CommandsRowChangeEventHandler _ - Public Sub SetInterface_ControlNull() - Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = Global.System.Convert.DBNull + Public Overloads Sub Addttb_Emulators_PostLaunch_CommandsRow(ByVal row As ttb_Emulators_PostLaunch_CommandsRow) + Me.Rows.Add(row) End Sub _ - Public Function IsVehicular_ThemesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) + Public Overloads Function Addttb_Emulators_PostLaunch_CommandsRow(ByVal id_Emulators As Long, ByVal Sort As Long, ByVal Directory As String, ByVal Executable As String, ByVal Parameter As String, ByVal Minimized As Boolean, ByVal WaitForExit As Boolean) As ttb_Emulators_PostLaunch_CommandsRow + Dim rowttb_Emulators_PostLaunch_CommandsRow As ttb_Emulators_PostLaunch_CommandsRow = CType(Me.NewRow,ttb_Emulators_PostLaunch_CommandsRow) + Dim columnValuesArray() As Object = New Object() {Nothing, id_Emulators, Sort, Directory, Executable, Parameter, Minimized, WaitForExit} + rowttb_Emulators_PostLaunch_CommandsRow.ItemArray = columnValuesArray + Me.Rows.Add(rowttb_Emulators_PostLaunch_CommandsRow) + Return rowttb_Emulators_PostLaunch_CommandsRow End Function _ - Public Sub SetVehicular_ThemesNull() - Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = Global.System.Convert.DBNull - End Sub + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As ttb_Emulators_PostLaunch_CommandsDataTable = CType(MyBase.Clone,ttb_Emulators_PostLaunch_CommandsDataTable) + cln.InitVars + Return cln + End Function _ - Public Function IsSettingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SettingColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New ttb_Emulators_PostLaunch_CommandsDataTable() End Function _ - Public Sub SetSettingNull() - Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnid_Emulators_Pre_Post_Launch_Commands = MyBase.Columns("id_Emulators_Pre_Post_Launch_Commands") + Me.columnid_Emulators = MyBase.Columns("id_Emulators") + Me.columnSort = MyBase.Columns("Sort") + Me.columnDirectory = MyBase.Columns("Directory") + Me.columnExecutable = MyBase.Columns("Executable") + Me.columnParameter = MyBase.Columns("Parameter") + Me.columnMinimized = MyBase.Columns("Minimized") + Me.columnWaitForExit = MyBase.Columns("WaitForExit") 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 + Private Sub InitClass() + Me.columnid_Emulators_Pre_Post_Launch_Commands = New Global.System.Data.DataColumn("id_Emulators_Pre_Post_Launch_Commands", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnid_Emulators_Pre_Post_Launch_Commands) + 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.columnSort = New Global.System.Data.DataColumn("Sort", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSort) + Me.columnDirectory = New Global.System.Data.DataColumn("Directory", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDirectory) + Me.columnExecutable = New Global.System.Data.DataColumn("Executable", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnExecutable) + Me.columnParameter = New Global.System.Data.DataColumn("Parameter", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnParameter) + Me.columnMinimized = New Global.System.Data.DataColumn("Minimized", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMinimized) + Me.columnWaitForExit = New Global.System.Data.DataColumn("WaitForExit", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWaitForExit) + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrement = true + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrementSeed = -1 + Me.columnid_Emulators_Pre_Post_Launch_Commands.AutoIncrementStep = -1 + Me.columnid_Emulators_Pre_Post_Launch_Commands.AllowDBNull = false End Sub _ - Public Function IsDLC_AddonNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) + Public Function Newttb_Emulators_PostLaunch_CommandsRow() As ttb_Emulators_PostLaunch_CommandsRow + Return CType(Me.NewRow,ttb_Emulators_PostLaunch_CommandsRow) End Function _ - Public Sub SetDLC_AddonNull() - Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New ttb_Emulators_PostLaunch_CommandsRow(builder) + End Function _ - Public Function IsSpecial_EditionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(ttb_Emulators_PostLaunch_CommandsRow) End Function _ - Public Sub SetSpecial_EditionNull() - Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.ttb_Emulators_PostLaunch_CommandsRowChangedEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PostLaunch_CommandsRowChanged(Me, New ttb_Emulators_PostLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PostLaunch_CommandsRow), e.Action)) + End If End Sub _ - Public Function IsPlatform_ShortNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.ttb_Emulators_PostLaunch_CommandsRowChangingEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PostLaunch_CommandsRowChanging(Me, New ttb_Emulators_PostLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PostLaunch_CommandsRow), e.Action)) + End If + End Sub _ - Public Sub SetPlatform_ShortNull() - Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.ttb_Emulators_PostLaunch_CommandsRowDeletedEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PostLaunch_CommandsRowDeleted(Me, New ttb_Emulators_PostLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PostLaunch_CommandsRow), e.Action)) + End If End Sub _ - Public Function IsMoby_URLNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.ttb_Emulators_PostLaunch_CommandsRowDeletingEvent) Is Nothing) Then + RaiseEvent ttb_Emulators_PostLaunch_CommandsRowDeleting(Me, New ttb_Emulators_PostLaunch_CommandsRowChangeEvent(CType(e.Row,ttb_Emulators_PostLaunch_CommandsRow), e.Action)) + End If + End Sub _ - Public Sub SetMoby_URLNull() - Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = Global.System.Convert.DBNull + Public Sub Removettb_Emulators_PostLaunch_CommandsRow(ByVal row As ttb_Emulators_PostLaunch_CommandsRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsMoby_Platforms_URLPartNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) + 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_Emulators_PostLaunch_CommandsDataTable" + 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 _ - Public Sub SetMoby_Platforms_URLPartNull() - Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Emulators = CType(Me.Table,tbl_EmulatorsDataTable) End Sub _ - Public Function IsMoby_Games_URLPartNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) - End Function + 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 Sub SetMoby_Games_URLPartNull() - Me(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsMinPlayersNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) - End Function + 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 Sub SetMinPlayersNull() - Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsMaxPlayersNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) - End Function + 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 Sub SetMaxPlayersNull() - Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Moby_PlatformsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) - End Function + 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 Sub Setid_Moby_PlatformsNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Moby_Platforms_AlternativeNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) - End Function + 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 Sub Setid_Moby_Platforms_AlternativeNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_List_Generators() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_List_Generators in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn) = value + End Set + End Property _ - Public Function IsRatingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RatingColumn) - End Function + Public Property ScriptType() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emulators.ScriptTypeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ScriptType in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.ScriptTypeColumn) = value + End Set + End Property _ - Public Sub SetRatingNull() - Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn) = Global.System.Convert.DBNull - End Sub + Public Property ScriptPath() As String + Get + Try + Return CType(Me(Me.tabletbl_Emulators.ScriptPathColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ScriptPath in Tabelle tbl_Emulators ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emulators.ScriptPathColumn) = value + End Set + End Property _ - Public Function IsVersionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.VersionColumn) + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.DisplaynameColumn) End Function _ - Public Sub SetVersionNull() - Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn) = Global.System.Convert.DBNull + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_Emulators.DisplaynameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAltNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AltColumn) + Public Function IsInstallDirectoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.InstallDirectoryColumn) End Function _ - Public Sub SetAltNull() - Me(Me.tablesrc_ucr_Emulation_Games.AltColumn) = Global.System.Convert.DBNull + Public Sub SetInstallDirectoryNull() + Me(Me.tabletbl_Emulators.InstallDirectoryColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTrainerNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) + Public Function IsExecutableNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ExecutableColumn) End Function _ - Public Sub SetTrainerNull() - Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) = Global.System.Convert.DBNull + Public Sub SetExecutableNull() + Me(Me.tabletbl_Emulators.ExecutableColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTranslationNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) + Public Function IsStartupParameterNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.StartupParameterColumn) End Function _ - Public Sub SetTranslationNull() - Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) = Global.System.Convert.DBNull + Public Sub SetStartupParameterNull() + Me(Me.tabletbl_Emulators.StartupParameterColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHackNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.HackColumn) + Public Function IsAutoItScriptNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.AutoItScriptColumn) End Function _ - Public Sub SetHackNull() - Me(Me.tablesrc_ucr_Emulation_Games.HackColumn) = Global.System.Convert.DBNull + Public Sub SetAutoItScriptNull() + Me(Me.tabletbl_Emulators.AutoItScriptColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBiosNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BiosColumn) + Public Function IsJ2KPresetNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.J2KPresetColumn) End Function _ - Public Sub SetBiosNull() - Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn) = Global.System.Convert.DBNull + Public Sub SetJ2KPresetNull() + Me(Me.tabletbl_Emulators.J2KPresetColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPrototypeNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) + Public Function IsScreenshotDirectoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) End Function _ - Public Sub SetPrototypeNull() - Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) = Global.System.Convert.DBNull + Public Sub SetScreenshotDirectoryNull() + Me(Me.tabletbl_Emulators.ScreenshotDirectoryColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAlphaNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) + Public Function IsLibretro_CoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.Libretro_CoreColumn) End Function _ - Public Sub SetAlphaNull() - Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) = Global.System.Convert.DBNull + Public Sub SetLibretro_CoreNull() + Me(Me.tabletbl_Emulators.Libretro_CoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBetaNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BetaColumn) + Public Function Isid_List_GeneratorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.id_List_GeneratorsColumn) End Function _ - Public Sub SetBetaNull() - Me(Me.tablesrc_ucr_Emulation_Games.BetaColumn) = Global.System.Convert.DBNull + Public Sub Setid_List_GeneratorsNull() + Me(Me.tabletbl_Emulators.id_List_GeneratorsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSampleNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SampleColumn) + Public Function IsScriptTypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ScriptTypeColumn) End Function _ - Public Sub SetSampleNull() - Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn) = Global.System.Convert.DBNull + Public Sub SetScriptTypeNull() + Me(Me.tabletbl_Emulators.ScriptTypeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKioskNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.KioskColumn) + Public Function IsScriptPathNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators.ScriptPathColumn) End Function _ - Public Sub SetKioskNull() - Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn) = Global.System.Convert.DBNull + Public Sub SetScriptPathNull() + Me(Me.tabletbl_Emulators.ScriptPathColumn) = 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 - _ - Public Function IsUnlicensedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) - End Function + Private tabletbl_Emulators_Moby_Platforms As tbl_Emulators_Moby_PlatformsDataTable _ - Public Sub SetUnlicensedNull() - Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = Global.System.Convert.DBNull + 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 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 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 Function IsPiratedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) - End Function + 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 Sub SetPiratedNull() - Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = Global.System.Convert.DBNull - End Sub + 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 - _ - Public Function IsGoodNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GoodColumn) - End Function + Private tablesrc_frm_Emulators_Moby_Platforms As src_frm_Emulators_Moby_PlatformsDataTable _ - Public Sub SetGoodNull() - Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn) = Global.System.Convert.DBNull + 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 Function IsBadNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BadColumn) - End Function + 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 Sub SetBadNull() - Me(Me.tablesrc_ucr_Emulation_Games.BadColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsOverdumpNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) - End Function + 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 Sub SetOverdumpNull() - Me(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) = Global.System.Convert.DBNull - End Sub + 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 IsPublicDomainNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) End Function _ - Public Sub SetPublicDomainNull() - Me(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRegionsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) + Public Function IsSupportedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) End Function _ - Public Sub SetRegionsNull() - Me(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) = Global.System.Convert.DBNull + Public Sub SetSupportedNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.SupportedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsLanguagesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) + Public Function IsDefaultEmulatorNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) End Function _ - Public Sub SetLanguagesNull() - Me(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) = Global.System.Convert.DBNull + Public Sub SetDefaultEmulatorNull() + Me(Me.tablesrc_frm_Emulators_Moby_Platforms.DefaultEmulatorColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMP_GameModesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) + Public Function IsDisplay_NameNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_Moby_Platforms.Display_NameColumn) End Function _ - Public Sub SetMP_GameModesNull() - Me(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function IsMP_OptionsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) - End Function + Private tablesrc_ucr_Emulation_Platforms As src_ucr_Emulation_PlatformsDataTable _ - Public Sub SetMP_OptionsNull() - Me(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) = Global.System.Convert.DBNull + 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 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 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 Function Isid_Moby_GamesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) - End Function + 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 Sub Setid_Moby_GamesNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) = Global.System.Convert.DBNull - End Sub + 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 IsLast_PlayedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn) End Function _ - Public Sub SetLast_PlayedNull() - Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_ucr_Emulation_Platforms.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IscreatedNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.createdColumn) + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) End Function _ - Public Sub SetcreatedNull() - Me(Me.tablesrc_ucr_Emulation_Games.createdColumn) = Global.System.Convert.DBNull + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_Platforms.NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMultiVolumeNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) + Public Function IsShortNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Platforms.ShortNameColumn) End Function _ - Public Sub SetMultiVolumeNull() - Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function IsVolume_NumberNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) - End Function + Private tablesrc_ucr_Emulation_Games As src_ucr_Emulation_GamesDataTable _ - Public Sub SetVolume_NumberNull() - Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) = Global.System.Convert.DBNull + 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 Function IsPlatform_ExclusiveNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) - End Function + 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 Sub SetPlatform_ExclusiveNull() - Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsJ2KPresetNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) - End Function + 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 Sub SetJ2KPresetNull() - Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Moby_ReleasesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) - End Function + Public Property CustomIdentifier() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CustomIdentifier in Tabelle src_ucr_Emulation_Games ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) = value + End Set + End Property _ - Public Sub Setid_Moby_ReleasesNull() - Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull - End Sub + Public Property Unavailable() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unavailable in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) = value + End Set + End Property _ - Public Function IsSimilarityNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) - End Function + 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 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 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 Sub Set_001_PlatformNull() - Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_002_MobyRankNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) - End Function + 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 Sub Set_002_MobyRankNull() - Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) = Global.System.Convert.DBNull - End Sub + Public Property CRC32() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.CRC32Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CRC32 in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.CRC32Column) = value + End Set + End Property _ - Public Function Is_003_MobyScoreNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) - End Function + Public Property SHA1() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.SHA1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHA1 in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.SHA1Column) = value + End Set + End Property _ - Public Sub Set_003_MobyScoreNull() - Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) = Global.System.Convert.DBNull - End Sub + Public Property MD5() As String + Get + Try + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.MD5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MD5 in Tabelle src_ucr_Emulation_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_ucr_Emulation_Games.MD5Column) = value + End Set + End Property _ - Public Function Is_004_PublisherNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) - End Function + 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 Sub Set_004_PublisherNull() - Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_005_DeveloperNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) - End Function + 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 Sub Set_005_DeveloperNull() - Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_006_YearNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) - End Function + 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 Sub Set_006_YearNull() - Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_101_Basic_GenresNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) - End Function + 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 Sub Set_101_Basic_GenresNull() - Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_102_PerspectivesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) - End Function + 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 Sub Set_102_PerspectivesNull() - Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_103_Sports_ThemesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) - End Function + 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 Sub Set_103_Sports_ThemesNull() - Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_104_Non_Sports_ThemesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) - End Function + 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 Sub Set_104_Non_Sports_ThemesNull() - Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_105_Educational_CategoriesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) - End Function + 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 Sub Set_105_Educational_CategoriesNull() - Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_106_Other_AttributesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) - End Function + 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 Sub Set_106_Other_AttributesNull() - Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_107_Visual_PresentationNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) - End Function + 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 Sub Set_107_Visual_PresentationNull() - Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_108_GameplayNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) - End Function + 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 Sub Set_108_GameplayNull() - Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_109_PacingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) - End Function + 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 Sub Set_109_PacingNull() - Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_110_Narrative_Theme_TopicNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) - End Function + 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 Sub Set_110_Narrative_Theme_TopicNull() - Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_111_SettingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) - End Function + 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 Sub Set_111_SettingNull() - Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = Global.System.Convert.DBNull - End Sub + 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 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 + Public Property Visual_Presentation() As String Get Try - Return CType(Me(Me.tabletbl_Technical_Specs.CategoryColumn),String) + 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 Category in Tabelle tbl_Technical_Specs ist DBNull.", e) + 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.tabletbl_Technical_Specs.CategoryColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) = value End Set End Property _ - Public Property Attribute() As String + Public Property Pacing() As String Get Try - Return CType(Me(Me.tabletbl_Technical_Specs.AttributeColumn),String) + 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 Attribute in Tabelle tbl_Technical_Specs ist DBNull.", e) + 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.tabletbl_Technical_Specs.AttributeColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn) = value End Set End Property _ - Public Property Description() As String + Public Property Gameplay() As String Get Try - Return CType(Me(Me.tabletbl_Technical_Specs.DescriptionColumn),String) + 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 Description in Tabelle tbl_Technical_Specs ist DBNull.", e) + 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.tabletbl_Technical_Specs.DescriptionColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = 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 + Public Property Interface_Control() As String Get - Return CType(Me(Me.tabletbl_ControlSettings.id_ControlSettingsColumn),Long) + 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.tabletbl_ControlSettings.id_ControlSettingsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = value End Set End Property _ - Public Property ControlID() As String + Public Property Vehicular_Themes() As String Get Try - Return CType(Me(Me.tabletbl_ControlSettings.ControlIDColumn),String) + 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 ControlID in Tabelle tbl_ControlSettings ist DBNull.", e) + 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.tabletbl_ControlSettings.ControlIDColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = value End Set End Property _ - Public Property SettingID() As String + Public Property Setting() As String Get Try - Return CType(Me(Me.tabletbl_ControlSettings.SettingIDColumn),String) + 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 SettingID in Tabelle tbl_ControlSettings ist DBNull.", e) + 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.tabletbl_ControlSettings.SettingIDColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = value End Set End Property _ - Public Property Setting() As String + Public Property Narrative_Theme_Topic() As String Get Try - Return CType(Me(Me.tabletbl_ControlSettings.SettingColumn),String) + 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 Setting in Tabelle tbl_ControlSettings ist DBNull.", e) + 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.tabletbl_ControlSettings.SettingColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) = value End Set End Property _ - Public Property id_Users() As Integer + Public Property DLC_Addon() As String Get Try - Return CType(Me(Me.tabletbl_ControlSettings.id_UsersColumn),Integer) + 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 id_Users in Tabelle tbl_ControlSettings ist DBNull.", e) + 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.tabletbl_ControlSettings.id_UsersColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = 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 + Public Property Special_Edition() As String Get - Return CType(Me(Me.tabletbl_FilterSets.id_FilterSetsColumn),Long) + 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.tabletbl_FilterSets.id_FilterSetsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = value End Set End Property _ - Public Property Type() As Long + Public Property Platform_Short() As String Get Try - Return CType(Me(Me.tabletbl_FilterSets.TypeColumn),Long) + 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 Type in Tabelle tbl_FilterSets ist DBNull.", e) + 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.tabletbl_FilterSets.TypeColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Platform_RetroAchievements() As Boolean Get Try - Return CType(Me(Me.tabletbl_FilterSets.NameColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.Platform_RetroAchievementsColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Platform_RetroAchievements in Tabelle src_ucr_Emulation_Games"& _ + " ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_FilterSets.NameColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Platform_RetroAchievementsColumn) = value End Set End Property _ - Public Property ApplyGridFilter() As Long + Public Property Moby_URL() As String Get Try - Return CType(Me(Me.tabletbl_FilterSets.ApplyGridFilterColumn),Long) + 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 ApplyGridFilter in Tabelle tbl_FilterSets ist DBNull.", e) + 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.tabletbl_FilterSets.ApplyGridFilterColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = value End Set End Property _ - Public Property GridFilter() As String + Public Property Moby_Platforms_URLPart() As String Get Try - Return CType(Me(Me.tabletbl_FilterSets.GridFilterColumn),String) + 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 GridFilter in Tabelle tbl_FilterSets ist DBNull.", e) + 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.tabletbl_FilterSets.GridFilterColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) = 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 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 id_Movies() As Long + Public Property MinPlayers() As Integer Get - Return CType(Me(Me.tabletbl_Movies.id_MoviesColumn),Long) + 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.tabletbl_Movies.id_MoviesColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) = value End Set End Property _ - Public Property Folder() As String + Public Property MaxPlayers() As Integer Get Try - Return CType(Me(Me.tabletbl_Movies.FolderColumn),String) + 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 Folder in Tabelle tbl_Movies ist DBNull.", e) + 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.tabletbl_Movies.FolderColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) = value End Set End Property _ - Public Property File() As String + Public Property id_Moby_Platforms() As Integer Get Try - Return CType(Me(Me.tabletbl_Movies.FileColumn),String) + 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 File in Tabelle tbl_Movies ist DBNull.", e) + 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.tabletbl_Movies.FileColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) = value End Set End Property _ - Public Property IMDBid() As String + Public Property id_Moby_Platforms_Alternative() As Long Get Try - Return CType(Me(Me.tabletbl_Movies.IMDBidColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn),Long) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms_Alternative in Tabelle src_ucr_Emulation_Ga"& _ + "mes ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Movies.IMDBidColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) = 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 + Public Property Rating() As Integer Get - Return CType(Me(Me.tabletbl_Emu_Extras.id_Emu_ExtrasColumn),Long) + 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.tabletbl_Emu_Extras.id_Emu_ExtrasColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Version() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Extras.NameColumn),String) + 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 Name in Tabelle tbl_Emu_Extras ist DBNull.", e) + 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.tabletbl_Emu_Extras.NameColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn) = value End Set End Property _ - Public Property Sort() As Long + Public Property Alt() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Extras.SortColumn),Long) + 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 Sort in Tabelle tbl_Emu_Extras ist DBNull.", e) + 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.tabletbl_Emu_Extras.SortColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.AltColumn) = value End Set End Property _ - Public Property Description() As String + Public Property Trainer() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Extras.DescriptionColumn),String) + 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 Description in Tabelle tbl_Emu_Extras ist DBNull.", e) + 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.tabletbl_Emu_Extras.DescriptionColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) = value End Set End Property _ - Public Property Hide() As Boolean + Public Property Translation() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Extras.HideColumn),Boolean) + 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 Hide in Tabelle tbl_Emu_Extras ist DBNull.", e) + 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.tabletbl_Emu_Extras.HideColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) = 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 + Public Property Hack() As Boolean Get - Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn),Long) + 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.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.HackColumn) = value End Set End Property _ - Public Property Rating_Category() As String + Public Property Bios() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn),String) + 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 Rating_Category in Tabelle tbl_Emu_Games_Rating_Weights ist D"& _ - "BNull.", e) + 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.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn) = value End Set End Property _ - Public Property Weight() As Long + Public Property Prototype() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn),Long) + 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 Weight in Tabelle tbl_Emu_Games_Rating_Weights ist DBNull.", e) + 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.tabletbl_Emu_Games_Rating_Weights.WeightColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) = 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 + 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 _ - 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 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 id_Moby_Genres() As Long + Public Property Sample() As Boolean Get - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn),Long) + 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_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn) = value End Set End Property _ - Public Property id_Moby_Genres_Categories() As String + Public Property Kiosk() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn),String) + 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 id_Moby_Genres_Categories in Tabelle src_frm_Emu_Game_Edit_Ge"& _ - "nres ist DBNull.", e) + 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_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Unlicensed() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn),String) + 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 Name in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + 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_frm_Emu_Game_Edit_Genres.NameColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = value End Set End Property _ - Public Property URLPart() As String + Public Property Fixed() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn),String) + 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 URLPart in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + 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_frm_Emu_Game_Edit_Genres.URLPartColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn) = value End Set End Property _ - Public Property Used() As Boolean + Public Property Pirated() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn),Boolean) + 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 Used in Tabelle src_frm_Emu_Game_Edit_Genres ist DBNull.", e) + 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_frm_Emu_Game_Edit_Genres.UsedColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = 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 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 Sub Setid_Moby_Genres_CategoriesNull() - Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsNameNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) - End Function + 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 Sub SetNameNull() - Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsURLPartNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) - End Function + 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 Sub SetURLPartNull() - Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsUsedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn) - End Function + 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 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 + 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 _ - 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 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_Attributes() As Integer + Public Property id_Moby_Games() As Long Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn),Integer) + 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_Attributes in Tabelle src_frm_Emu_Game_Edit_Attribute"& _ - "s ist DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) = value End Set End Property _ - Public Property CategoryGroup() As String + Public Property Last_Played() As Date Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn),String) + 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 CategoryGroup in Tabelle src_frm_Emu_Game_Edit_Attributes ist"& _ - " DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) = value End Set End Property _ - Public Property Category() As String + Public Property created() As Date Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn),String) + 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 Category in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBNu"& _ - "ll.", e) + 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_frm_Emu_Game_Edit_Attributes.CategoryColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.createdColumn) = value End Set End Property _ - Public Property Attribute() As String + Public Property MultiVolume() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn),String) + 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 Attribute in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBN"& _ - "ull.", e) + 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_frm_Emu_Game_Edit_Attributes.AttributeColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) = value End Set End Property _ - Public Property Description() As String + Public Property Volume_Number() As Long Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn),String) + 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 Description in Tabelle src_frm_Emu_Game_Edit_Attributes ist D"& _ - "BNull.", e) + 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_frm_Emu_Game_Edit_Attributes.DescriptionColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) = value End Set End Property _ - Public Property Rating_Age_From() As String + Public Property Platform_Exclusive() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn),String) + 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 Rating_Age_From in Tabelle src_frm_Emu_Game_Edit_Attributes i"& _ - "st DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) = value End Set End Property _ - Public Property RatingSystem() As String + Public Property J2KPreset() As String Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn),String) + 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 RatingSystem in Tabelle src_frm_Emu_Game_Edit_Attributes ist "& _ - "DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.RatingSystemColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) = value End Set End Property _ - Public Property RatingDescriptor() As String + Public Property id_Moby_Releases() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn),String) + 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 RatingDescriptor in Tabelle src_frm_Emu_Game_Edit_Attributes "& _ - "ist DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) = value End Set End Property _ - Public Property Used() As Boolean + Public Property Similarity() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn),Boolean) + 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 Used in Tabelle src_frm_Emu_Game_Edit_Attributes ist DBNull.", e) + 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_frm_Emu_Game_Edit_Attributes.UsedColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) = 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 + Public Property _001_Platform() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn),Long) + 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 id_Rombase_Tag_Parser in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) = value End Set End Property _ - Public Property Apply() As Boolean + Public Property _002_MobyRank() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.ApplyColumn),Boolean) + 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 Apply in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.ApplyColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) = value End Set End Property _ - Public Property Content() As String + Public Property _003_MobyScore() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.ContentColumn),String) + 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 Content in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.ContentColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) = value End Set End Property _ - Public Property Note() As String + Public Property _004_Publisher() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.NoteColumn),String) + 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 Note in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.NoteColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) = value End Set End Property _ - Public Property Year() As Boolean + Public Property _005_Developer() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.YearColumn),Boolean) + 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 Year in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.YearColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) = value End Set End Property _ - Public Property Bios() As Boolean + Public Property _006_Year() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.BiosColumn),Boolean) + 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 Bios in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.BiosColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = value End Set End Property _ - Public Property Hack() As Boolean + Public Property _101_Basic_Genres() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.HackColumn),Boolean) + 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 Hack in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.HackColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = value End Set End Property _ - Public Property Trainer() As Boolean + Public Property _102_Perspectives() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.TrainerColumn),Boolean) + 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 Trainer in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.TrainerColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = value End Set End Property _ - Public Property Version() As Boolean + Public Property _103_Sports_Themes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.VersionColumn),Boolean) + 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 Version in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.VersionColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) = value End Set End Property _ - Public Property Prototype() As Boolean + Public Property _104_Non_Sports_Themes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.PrototypeColumn),Boolean) + 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 Prototype in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.PrototypeColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) = value End Set End Property _ - Public Property Beta() As Boolean + Public Property _105_Educational_Categories() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.BetaColumn),Boolean) + 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 Beta in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.BetaColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = value End Set End Property _ - Public Property Translation() As Boolean + Public Property _106_Other_Attributes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.TranslationColumn),Boolean) + 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 Translation in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.TranslationColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = value End Set End Property _ - Public Property Alt() As Boolean + Public Property _107_Visual_Presentation() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.AltColumn),Boolean) + 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 Alt in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.AltColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = value End Set End Property _ - Public Property Unlicensed() As Boolean + Public Property _108_Gameplay() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.UnlicensedColumn),Boolean) + 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 Unlicensed in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.UnlicensedColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = value End Set End Property _ - Public Property Good() As Boolean + Public Property _109_Pacing() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.GoodColumn),Boolean) + 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 Good in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.GoodColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = value End Set End Property _ - Public Property Bad() As Boolean + Public Property _110_Narrative_Theme_Topic() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.BadColumn),Boolean) + 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 Bad in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.BadColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = value End Set End Property _ - Public Property Fixed() As Boolean + Public Property _111_Setting() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.FixedColumn),Boolean) + 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 Fixed in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.FixedColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = value End Set End Property _ - Public Property Overdump() As Boolean + Public Property _112_Vehicular_Themes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.OverdumpColumn),Boolean) + 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 Overdump in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.OverdumpColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) = value End Set End Property _ - Public Property Pirated() As Boolean + Public Property _113_Interface_Control() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.PiratedColumn),Boolean) + 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 Pirated in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.PiratedColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) = value End Set End Property _ - Public Property Alpha() As Boolean + Public Property _114_DLC_Addon() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.AlphaColumn),Boolean) + 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 Alpha in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.AlphaColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) = value End Set End Property _ - Public Property Kiosk() As Boolean + Public Property _115_Special_Edition() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.KioskColumn),Boolean) + 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 Kiosk in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.KioskColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) = value End Set End Property _ - Public Property Sample() As Boolean + Public Property _201_MinPlayers() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.SampleColumn),Boolean) + 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 Sample in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.SampleColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._201_MinPlayersColumn) = value End Set End Property _ - Public Property En() As Boolean + Public Property _202_MaxPlayers() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.EnColumn),Boolean) + 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 En in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.EnColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._202_MaxPlayersColumn) = value End Set End Property _ - Public Property Ja() As Boolean + Public Property _203_AgeO() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.JaColumn),Boolean) + 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 Ja in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.JaColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._203_AgeOColumn) = value End Set End Property _ - Public Property Fr() As Boolean + Public Property _204_AgeP() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.FrColumn),Boolean) + 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 Fr in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.FrColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._204_AgePColumn) = value End Set End Property _ - Public Property De() As Boolean + Public Property _205_Rating_Descriptors() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.DeColumn),Boolean) + 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 De in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.DeColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._205_Rating_DescriptorsColumn) = value End Set End Property _ - Public Property Es() As Boolean + Public Property _206_Other_Attributes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.EsColumn),Boolean) + 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 Es in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.EsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._206_Other_AttributesColumn) = value End Set End Property _ - Public Property It() As Boolean + Public Property _207_Multiplayer_Attributes() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.ItColumn),Boolean) + 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 It in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.ItColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._207_Multiplayer_AttributesColumn) = value End Set End Property _ - Public Property Nl() As Boolean + Public Property _301_Group_Membership() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.NlColumn),Boolean) + 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 Nl in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.NlColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._301_Group_MembershipColumn) = value End Set End Property _ - Public Property Pt() As Boolean + Public Property _401_Staff() As Integer Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.PtColumn),Boolean) + 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 Pt in Tabelle tbl_Tag_Parser ist DBNull.", e) + 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.tabletbl_Tag_Parser.PtColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games._401_StaffColumn) = value End Set End Property _ - Public Property Sv() As Boolean + Public Property TDL_Subtitle() As String Get Try - Return CType(Me(Me.tabletbl_Tag_Parser.SvColumn),Boolean) + Return CType(Me(Me.tablesrc_ucr_Emulation_Games.TDL_SubtitleColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TDL_Subtitle in Tabelle src_ucr_Emulation_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Tag_Parser.SvColumn) = value + Me(Me.tablesrc_ucr_Emulation_Games.TDL_SubtitleColumn) = 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 Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) + End Function _ - 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 Sub Setid_Emu_GamesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Emu_GamesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Istmp_HighlightedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) + End Function _ - 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 Sub Settmp_HighlightedNull() + Me(Me.tablesrc_ucr_Emulation_Games.tmp_HighlightedColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_DOSBox_Configs_TemplateNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) + End Function _ - 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 Sub Setid_DOSBox_Configs_TemplateNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_Configs_TemplateColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) + End Function _ - 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 Sub Setid_DOSBox_ConfigsNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCustomIdentifierNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) + End Function _ - 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 Sub SetCustomIdentifierNull() + Me(Me.tablesrc_ucr_Emulation_Games.CustomIdentifierColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsUnavailableNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) + End Function _ - 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 Sub SetUnavailableNull() + Me(Me.tablesrc_ucr_Emulation_Games.UnavailableColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsGameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameColumn) + End Function _ - 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 Sub SetGameNull() + Me(Me.tablesrc_ucr_Emulation_Games.GameColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FolderColumn) + End Function _ - 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 Sub SetFolderNull() + Me(Me.tablesrc_ucr_Emulation_Games.FolderColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFileNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FileColumn) + End Function _ - 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 Sub SetFileNull() + Me(Me.tablesrc_ucr_Emulation_Games.FileColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) + End Function _ - 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 Sub SetInnerFileNull() + Me(Me.tablesrc_ucr_Emulation_Games.InnerFileColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCRC32Null() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.CRC32Column) + End Function _ - 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 Sub SetCRC32Null() + Me(Me.tablesrc_ucr_Emulation_Games.CRC32Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsSHA1Null() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SHA1Column) + End Function _ - 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 Sub SetSHA1Null() + Me(Me.tablesrc_ucr_Emulation_Games.SHA1Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsMD5Null() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MD5Column) + End Function _ - 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 Sub SetMD5Null() + Me(Me.tablesrc_ucr_Emulation_Games.MD5Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsWantNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.WantColumn) + End Function _ - 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 Sub SetWantNull() + Me(Me.tablesrc_ucr_Emulation_Games.WantColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsHaveNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.HaveColumn) + End Function _ - 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 Sub SetHaveNull() + Me(Me.tablesrc_ucr_Emulation_Games.HaveColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsTradeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TradeColumn) + End Function _ - 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 Sub SetTradeNull() + Me(Me.tablesrc_ucr_Emulation_Games.TradeColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsRankNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RankColumn) + End Function _ - 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 Sub SetRankNull() + Me(Me.tablesrc_ucr_Emulation_Games.RankColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsScoreNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) + End Function _ - 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 Sub SetScoreNull() + Me(Me.tablesrc_ucr_Emulation_Games.ScoreColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsYearNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.YearColumn) + End Function _ - 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 Sub SetYearNull() + Me(Me.tablesrc_ucr_Emulation_Games.YearColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsNum_PlayedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) + End Function _ - 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 Sub SetNum_PlayedNull() + Me(Me.tablesrc_ucr_Emulation_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function Isid_Rombase_Tag_ParserNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) + Public Function IsNum_RuntimeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) End Function _ - Public Sub Setid_Rombase_Tag_ParserNull() - Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = Global.System.Convert.DBNull + Public Sub SetNum_RuntimeNull() + Me(Me.tablesrc_ucr_Emulation_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsApplyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ApplyColumn) + Public Function IsRating_GameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) End Function _ - Public Sub SetApplyNull() - Me(Me.tabletbl_Tag_Parser.ApplyColumn) = Global.System.Convert.DBNull + Public Sub SetRating_GameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsContentNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ContentColumn) + Public Function IsRating_GraphicsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) End Function _ - Public Sub SetContentNull() - Me(Me.tabletbl_Tag_Parser.ContentColumn) = Global.System.Convert.DBNull + Public Sub SetRating_GraphicsNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNoteNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.NoteColumn) + Public Function IsRating_PersonalNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) End Function _ - Public Sub SetNoteNull() - Me(Me.tabletbl_Tag_Parser.NoteColumn) = Global.System.Convert.DBNull + Public Sub SetRating_PersonalNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsYearNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.YearColumn) - End Function + Public Function IsRating_SoundNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) + End Function _ - Public Sub SetYearNull() - Me(Me.tabletbl_Tag_Parser.YearColumn) = Global.System.Convert.DBNull + Public Sub SetRating_SoundNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_SoundColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBiosNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.BiosColumn) + Public Function IsRating_StoryNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) End Function _ - Public Sub SetBiosNull() - Me(Me.tabletbl_Tag_Parser.BiosColumn) = Global.System.Convert.DBNull + Public Sub SetRating_StoryNull() + Me(Me.tablesrc_ucr_Emulation_Games.Rating_StoryColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHackNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.HackColumn) + Public Function IsFavouriteNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) End Function _ - Public Sub SetHackNull() - Me(Me.tabletbl_Tag_Parser.HackColumn) = Global.System.Convert.DBNull + Public Sub SetFavouriteNull() + Me(Me.tablesrc_ucr_Emulation_Games.FavouriteColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTrainerNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.TrainerColumn) + Public Function IsPlatformNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) End Function _ - Public Sub SetTrainerNull() - Me(Me.tabletbl_Tag_Parser.TrainerColumn) = Global.System.Convert.DBNull + Public Sub SetPlatformNull() + Me(Me.tablesrc_ucr_Emulation_Games.PlatformColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsVersionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.VersionColumn) + Public Function IsGame_NoPrefixNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn) End Function _ - Public Sub SetVersionNull() - Me(Me.tabletbl_Tag_Parser.VersionColumn) = Global.System.Convert.DBNull + Public Sub SetGame_NoPrefixNull() + Me(Me.tablesrc_ucr_Emulation_Games.Game_NoPrefixColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPrototypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PrototypeColumn) + Public Function IsAge_PessimisticNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) End Function _ - Public Sub SetPrototypeNull() - Me(Me.tabletbl_Tag_Parser.PrototypeColumn) = Global.System.Convert.DBNull + Public Sub SetAge_PessimisticNull() + Me(Me.tablesrc_ucr_Emulation_Games.Age_PessimisticColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBetaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.BetaColumn) + Public Function IsAge_OptimisticNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) End Function _ - Public Sub SetBetaNull() - Me(Me.tabletbl_Tag_Parser.BetaColumn) = Global.System.Convert.DBNull + Public Sub SetAge_OptimisticNull() + Me(Me.tablesrc_ucr_Emulation_Games.Age_OptimisticColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTranslationNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.TranslationColumn) + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) End Function _ - Public Sub SetTranslationNull() - Me(Me.tabletbl_Tag_Parser.TranslationColumn) = Global.System.Convert.DBNull + Public Sub SetPublisherNull() + Me(Me.tablesrc_ucr_Emulation_Games.PublisherColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAltNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.AltColumn) + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) End Function _ - Public Sub SetAltNull() - Me(Me.tabletbl_Tag_Parser.AltColumn) = Global.System.Convert.DBNull + Public Sub SetDeveloperNull() + Me(Me.tablesrc_ucr_Emulation_Games.DeveloperColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUnlicensedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.UnlicensedColumn) + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) End Function _ - Public Sub SetUnlicensedNull() - Me(Me.tabletbl_Tag_Parser.UnlicensedColumn) = Global.System.Convert.DBNull + Public Sub SetDescriptionNull() + Me(Me.tablesrc_ucr_Emulation_Games.DescriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGoodNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.GoodColumn) + Public Function IsTechnical_NotesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) End Function _ - Public Sub SetGoodNull() - Me(Me.tabletbl_Tag_Parser.GoodColumn) = Global.System.Convert.DBNull + Public Sub SetTechnical_NotesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Technical_NotesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBadNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.BadColumn) + Public Function IsAlternate_TitlesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) End Function _ - Public Sub SetBadNull() - Me(Me.tabletbl_Tag_Parser.BadColumn) = Global.System.Convert.DBNull + Public Sub SetAlternate_TitlesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Alternate_TitlesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFixedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.FixedColumn) + Public Function IsBasic_GenresNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) End Function _ - Public Sub SetFixedNull() - Me(Me.tabletbl_Tag_Parser.FixedColumn) = Global.System.Convert.DBNull + Public Sub SetBasic_GenresNull() + Me(Me.tablesrc_ucr_Emulation_Games.Basic_GenresColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsOverdumpNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.OverdumpColumn) + Public Function IsPerspectivesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) End Function _ - Public Sub SetOverdumpNull() - Me(Me.tabletbl_Tag_Parser.OverdumpColumn) = Global.System.Convert.DBNull + Public Sub SetPerspectivesNull() + Me(Me.tablesrc_ucr_Emulation_Games.PerspectivesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPiratedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PiratedColumn) + Public Function IsSports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) End Function _ - Public Sub SetPiratedNull() - Me(Me.tabletbl_Tag_Parser.PiratedColumn) = Global.System.Convert.DBNull + Public Sub SetSports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Sports_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAlphaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.AlphaColumn) + Public Function IsEducational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) End Function _ - Public Sub SetAlphaNull() - Me(Me.tabletbl_Tag_Parser.AlphaColumn) = Global.System.Convert.DBNull + Public Sub SetEducational_CategoriesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Educational_CategoriesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKioskNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.KioskColumn) + Public Function IsOther_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) End Function _ - Public Sub SetKioskNull() - Me(Me.tabletbl_Tag_Parser.KioskColumn) = Global.System.Convert.DBNull + Public Sub SetOther_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Other_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSampleNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SampleColumn) + Public Function IsVisual_PresentationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) End Function _ - Public Sub SetSampleNull() - Me(Me.tabletbl_Tag_Parser.SampleColumn) = Global.System.Convert.DBNull + Public Sub SetVisual_PresentationNull() + Me(Me.tablesrc_ucr_Emulation_Games.Visual_PresentationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEnNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.EnColumn) + Public Function IsPacingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PacingColumn) End Function _ - Public Sub SetEnNull() - Me(Me.tabletbl_Tag_Parser.EnColumn) = Global.System.Convert.DBNull + Public Sub SetPacingNull() + Me(Me.tablesrc_ucr_Emulation_Games.PacingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsJaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.JaColumn) + Public Function IsGameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) End Function _ - Public Sub SetJaNull() - Me(Me.tabletbl_Tag_Parser.JaColumn) = Global.System.Convert.DBNull + Public Sub SetGameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games.GameplayColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFrNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.FrColumn) + Public Function IsInterface_ControlNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) End Function _ - Public Sub SetFrNull() - Me(Me.tabletbl_Tag_Parser.FrColumn) = Global.System.Convert.DBNull + Public Sub SetInterface_ControlNull() + Me(Me.tablesrc_ucr_Emulation_Games.Interface_ControlColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.DeColumn) + Public Function IsVehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) End Function _ - Public Sub SetDeNull() - Me(Me.tabletbl_Tag_Parser.DeColumn) = Global.System.Convert.DBNull + Public Sub SetVehicular_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games.Vehicular_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.EsColumn) + Public Function IsSettingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SettingColumn) End Function _ - Public Sub SetEsNull() - Me(Me.tabletbl_Tag_Parser.EsColumn) = Global.System.Convert.DBNull + Public Sub SetSettingNull() + Me(Me.tablesrc_ucr_Emulation_Games.SettingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsItNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ItColumn) + Public Function IsNarrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) End Function _ - Public Sub SetItNull() - Me(Me.tabletbl_Tag_Parser.ItColumn) = Global.System.Convert.DBNull + Public Sub SetNarrative_Theme_TopicNull() + Me(Me.tablesrc_ucr_Emulation_Games.Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNlNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.NlColumn) + Public Function IsDLC_AddonNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) End Function _ - Public Sub SetNlNull() - Me(Me.tabletbl_Tag_Parser.NlColumn) = Global.System.Convert.DBNull + Public Sub SetDLC_AddonNull() + Me(Me.tablesrc_ucr_Emulation_Games.DLC_AddonColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPtNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PtColumn) + Public Function IsSpecial_EditionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) End Function _ - Public Sub SetPtNull() - Me(Me.tabletbl_Tag_Parser.PtColumn) = Global.System.Convert.DBNull + Public Sub SetSpecial_EditionNull() + Me(Me.tablesrc_ucr_Emulation_Games.Special_EditionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSvNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SvColumn) + Public Function IsPlatform_ShortNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) End Function _ - Public Sub SetSvNull() - Me(Me.tabletbl_Tag_Parser.SvColumn) = Global.System.Convert.DBNull + Public Sub SetPlatform_ShortNull() + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ShortColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNoNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.NoColumn) + Public Function IsPlatform_RetroAchievementsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_RetroAchievementsColumn) End Function _ - Public Sub SetNoNull() - Me(Me.tabletbl_Tag_Parser.NoColumn) = Global.System.Convert.DBNull + Public Sub SetPlatform_RetroAchievementsNull() + Me(Me.tablesrc_ucr_Emulation_Games.Platform_RetroAchievementsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.DaColumn) + Public Function IsMoby_URLNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) End Function _ - Public Sub SetDaNull() - Me(Me.tabletbl_Tag_Parser.DaColumn) = Global.System.Convert.DBNull + Public Sub SetMoby_URLNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_URLColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFiNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.FiColumn) + Public Function IsMoby_Platforms_URLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) End Function _ - Public Sub SetFiNull() - Me(Me.tabletbl_Tag_Parser.FiColumn) = Global.System.Convert.DBNull + Public Sub SetMoby_Platforms_URLPartNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Platforms_URLPartColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsZhNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ZhColumn) + Public Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) End Function _ - Public Sub SetZhNull() - Me(Me.tabletbl_Tag_Parser.ZhColumn) = Global.System.Convert.DBNull + Public Sub SetMoby_Games_URLPartNull() + Me(Me.tablesrc_ucr_Emulation_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKoNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.KoColumn) + Public Function IsMinPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) End Function _ - Public Sub SetKoNull() - Me(Me.tabletbl_Tag_Parser.KoColumn) = Global.System.Convert.DBNull + Public Sub SetMinPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games.MinPlayersColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPlNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PlColumn) + Public Function IsMaxPlayersNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) End Function _ - Public Sub SetPlNull() - Me(Me.tabletbl_Tag_Parser.PlColumn) = Global.System.Convert.DBNull + Public Sub SetMaxPlayersNull() + Me(Me.tablesrc_ucr_Emulation_Games.MaxPlayersColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsWorldNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.WorldColumn) + Public Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) End Function _ - Public Sub SetWorldNull() - Me(Me.tabletbl_Tag_Parser.WorldColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_PlatformsNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsEuropeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.EuropeColumn) + Public Function Isid_Moby_Platforms_AlternativeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) End Function _ - Public Sub SetEuropeNull() - Me(Me.tabletbl_Tag_Parser.EuropeColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_Platforms_AlternativeNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_Platforms_AlternativeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSANull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.USAColumn) + Public Function IsRatingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RatingColumn) End Function _ - Public Sub SetUSANull() - Me(Me.tabletbl_Tag_Parser.USAColumn) = Global.System.Convert.DBNull + Public Sub SetRatingNull() + Me(Me.tablesrc_ucr_Emulation_Games.RatingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAustraliaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.AustraliaColumn) + Public Function IsVersionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.VersionColumn) End Function _ - Public Sub SetAustraliaNull() - Me(Me.tabletbl_Tag_Parser.AustraliaColumn) = Global.System.Convert.DBNull + Public Sub SetVersionNull() + Me(Me.tablesrc_ucr_Emulation_Games.VersionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsJapanNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.JapanColumn) + Public Function IsAltNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AltColumn) End Function _ - Public Sub SetJapanNull() - Me(Me.tabletbl_Tag_Parser.JapanColumn) = Global.System.Convert.DBNull + Public Sub SetAltNull() + Me(Me.tablesrc_ucr_Emulation_Games.AltColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKoreaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.KoreaColumn) + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) End Function _ - Public Sub SetKoreaNull() - Me(Me.tabletbl_Tag_Parser.KoreaColumn) = Global.System.Convert.DBNull + Public Sub SetTrainerNull() + Me(Me.tablesrc_ucr_Emulation_Games.TrainerColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsChinaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ChinaColumn) + Public Function IsTranslationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) End Function _ - Public Sub SetChinaNull() - Me(Me.tabletbl_Tag_Parser.ChinaColumn) = Global.System.Convert.DBNull + Public Sub SetTranslationNull() + Me(Me.tablesrc_ucr_Emulation_Games.TranslationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAsiaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.AsiaColumn) + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.HackColumn) End Function _ - Public Sub SetAsiaNull() - Me(Me.tabletbl_Tag_Parser.AsiaColumn) = Global.System.Convert.DBNull + Public Sub SetHackNull() + Me(Me.tablesrc_ucr_Emulation_Games.HackColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBrazilNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.BrazilColumn) + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BiosColumn) End Function _ - Public Sub SetBrazilNull() - Me(Me.tabletbl_Tag_Parser.BrazilColumn) = Global.System.Convert.DBNull + Public Sub SetBiosNull() + Me(Me.tablesrc_ucr_Emulation_Games.BiosColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCanadaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.CanadaColumn) + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) End Function _ - Public Sub SetCanadaNull() - Me(Me.tabletbl_Tag_Parser.CanadaColumn) = Global.System.Convert.DBNull + Public Sub SetPrototypeNull() + Me(Me.tablesrc_ucr_Emulation_Games.PrototypeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFranceNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.FranceColumn) + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) End Function _ - Public Sub SetFranceNull() - Me(Me.tabletbl_Tag_Parser.FranceColumn) = Global.System.Convert.DBNull + Public Sub SetAlphaNull() + Me(Me.tablesrc_ucr_Emulation_Games.AlphaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGermanyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.GermanyColumn) + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BetaColumn) End Function _ - Public Sub SetGermanyNull() - Me(Me.tabletbl_Tag_Parser.GermanyColumn) = Global.System.Convert.DBNull + Public Sub SetBetaNull() + Me(Me.tablesrc_ucr_Emulation_Games.BetaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHongKongNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.HongKongColumn) + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SampleColumn) End Function _ - Public Sub SetHongKongNull() - Me(Me.tabletbl_Tag_Parser.HongKongColumn) = Global.System.Convert.DBNull + Public Sub SetSampleNull() + Me(Me.tablesrc_ucr_Emulation_Games.SampleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsItalyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ItalyColumn) + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.KioskColumn) End Function _ - Public Sub SetItalyNull() - Me(Me.tabletbl_Tag_Parser.ItalyColumn) = Global.System.Convert.DBNull + Public Sub SetKioskNull() + Me(Me.tablesrc_ucr_Emulation_Games.KioskColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNetherlandsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.NetherlandsColumn) + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) End Function _ - Public Sub SetNetherlandsNull() - Me(Me.tabletbl_Tag_Parser.NetherlandsColumn) = Global.System.Convert.DBNull + Public Sub SetUnlicensedNull() + Me(Me.tablesrc_ucr_Emulation_Games.UnlicensedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSpainNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SpainColumn) + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.FixedColumn) End Function _ - Public Sub SetSpainNull() - Me(Me.tabletbl_Tag_Parser.SpainColumn) = Global.System.Convert.DBNull + Public Sub SetFixedNull() + Me(Me.tablesrc_ucr_Emulation_Games.FixedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSwedenNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SwedenColumn) + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) End Function _ - Public Sub SetSwedenNull() - Me(Me.tabletbl_Tag_Parser.SwedenColumn) = Global.System.Convert.DBNull + Public Sub SetPiratedNull() + Me(Me.tablesrc_ucr_Emulation_Games.PiratedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRussiaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.RussiaColumn) + Public Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.GoodColumn) End Function _ - Public Sub SetRussiaNull() - Me(Me.tabletbl_Tag_Parser.RussiaColumn) = Global.System.Convert.DBNull + Public Sub SetGoodNull() + Me(Me.tablesrc_ucr_Emulation_Games.GoodColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTaiwanNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.TaiwanColumn) + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.BadColumn) End Function _ - Public Sub SetTaiwanNull() - Me(Me.tabletbl_Tag_Parser.TaiwanColumn) = Global.System.Convert.DBNull + Public Sub SetBadNull() + Me(Me.tablesrc_ucr_Emulation_Games.BadColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNTSCNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.NTSCColumn) + Public Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) End Function _ - Public Sub SetNTSCNull() - Me(Me.tabletbl_Tag_Parser.NTSCColumn) = Global.System.Convert.DBNull + Public Sub SetOverdumpNull() + Me(Me.tablesrc_ucr_Emulation_Games.OverdumpColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPALNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PALColumn) + Public Function IsPublicDomainNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) End Function _ - Public Sub SetPALNull() - Me(Me.tabletbl_Tag_Parser.PALColumn) = Global.System.Convert.DBNull + Public Sub SetPublicDomainNull() + Me(Me.tablesrc_ucr_Emulation_Games.PublicDomainColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNote_HighPriorityNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) + Public Function IsRegionsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) End Function _ - Public Sub SetNote_HighPriorityNull() - Me(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) = Global.System.Convert.DBNull + Public Sub SetRegionsNull() + Me(Me.tablesrc_ucr_Emulation_Games.RegionsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMV_Group_CriteriaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) + Public Function IsLanguagesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) End Function _ - Public Sub SetMV_Group_CriteriaNull() - Me(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) = Global.System.Convert.DBNull + Public Sub SetLanguagesNull() + Me(Me.tablesrc_ucr_Emulation_Games.LanguagesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMV_Volume_NumberNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) + Public Function IsMP_GameModesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) End Function _ - Public Sub SetMV_Volume_NumberNull() - Me(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) = Global.System.Convert.DBNull + Public Sub SetMP_GameModesNull() + Me(Me.tablesrc_ucr_Emulation_Games.MP_GameModesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPublisherNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.PublisherColumn) + Public Function IsMP_OptionsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) End Function _ - Public Sub SetPublisherNull() - Me(Me.tabletbl_Tag_Parser.PublisherColumn) = Global.System.Convert.DBNull + Public Sub SetMP_OptionsNull() + Me(Me.tablesrc_ucr_Emulation_Games.MP_OptionsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGrNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.GrColumn) + Public Function IsSpecialInfoNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn) End Function _ - Public Sub SetGrNull() - Me(Me.tabletbl_Tag_Parser.GrColumn) = Global.System.Convert.DBNull + Public Sub SetSpecialInfoNull() + Me(Me.tablesrc_ucr_Emulation_Games.SpecialInfoColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHuNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.HuColumn) + Public Function Isid_Moby_GamesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) End Function _ - Public Sub SetHuNull() - Me(Me.tabletbl_Tag_Parser.HuColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_GamesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFound_InNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.Found_InColumn) + Public Function IsLast_PlayedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) End Function _ - Public Sub SetFound_InNull() - Me(Me.tabletbl_Tag_Parser.Found_InColumn) = Global.System.Convert.DBNull + Public Sub SetLast_PlayedNull() + Me(Me.tablesrc_ucr_Emulation_Games.Last_PlayedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsArNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.ArColumn) + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.createdColumn) End Function _ - Public Sub SetArNull() - Me(Me.tabletbl_Tag_Parser.ArColumn) = Global.System.Convert.DBNull + Public Sub SetcreatedNull() + Me(Me.tablesrc_ucr_Emulation_Games.createdColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.BeColumn) + Public Function IsMultiVolumeNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) End Function _ - Public Sub SetBeNull() - Me(Me.tabletbl_Tag_Parser.BeColumn) = Global.System.Convert.DBNull + Public Sub SetMultiVolumeNull() + Me(Me.tablesrc_ucr_Emulation_Games.MultiVolumeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCzNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.CzColumn) + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) End Function _ - Public Sub SetCzNull() - Me(Me.tabletbl_Tag_Parser.CzColumn) = Global.System.Convert.DBNull + Public Sub SetVolume_NumberNull() + Me(Me.tablesrc_ucr_Emulation_Games.Volume_NumberColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSlNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SlColumn) + Public Function IsPlatform_ExclusiveNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) End Function _ - Public Sub SetSlNull() - Me(Me.tabletbl_Tag_Parser.SlColumn) = Global.System.Convert.DBNull + Public Sub SetPlatform_ExclusiveNull() + Me(Me.tablesrc_ucr_Emulation_Games.Platform_ExclusiveColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSrNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.SrColumn) + Public Function IsJ2KPresetNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) End Function _ - Public Sub SetSrNull() - Me(Me.tabletbl_Tag_Parser.SrColumn) = Global.System.Convert.DBNull + Public Sub SetJ2KPresetNull() + Me(Me.tablesrc_ucr_Emulation_Games.J2KPresetColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRuNull() As Boolean - Return Me.IsNull(Me.tabletbl_Tag_Parser.RuColumn) + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) End Function _ - Public Sub SetRuNull() - Me(Me.tabletbl_Tag_Parser.RuColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tablesrc_ucr_Emulation_Games.id_Moby_ReleasesColumn) = 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 + _ + Public Function IsSimilarityNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tabletbl_Emu_Games = CType(Me.Table,tbl_Emu_GamesDataTable) + Public Sub SetSimilarityNull() + Me(Me.tablesrc_ucr_Emulation_Games.SimilarityColumn) = Global.System.Convert.DBNull 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 Function Is_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) + End Function _ - 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 Sub Set_001_PlatformNull() + Me(Me.tablesrc_ucr_Emulation_Games._001_PlatformColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) + End Function _ - Public Property id_ScummVM_Configs_Template() As Long - Get - Try - Return CType(Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs_Template in Tabelle tbl_Emu_Games ist DBNu"& _ - "ll.", e) - End Try - End Get - Set - Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) = value - End Set - End Property + Public Sub Set_002_MobyRankNull() + Me(Me.tablesrc_ucr_Emulation_Games._002_MobyRankColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property id_ScummVM_Configs() As Long - Get - Try - Return CType(Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs in Tabelle tbl_Emu_Games ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) = value - End Set - End Property + Public Function Is_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) + End Function _ - 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 Sub Set_003_MobyScoreNull() + Me(Me.tablesrc_ucr_Emulation_Games._003_MobyScoreColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) + End Function _ - Public Property Unavailable() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_Emu_Games.UnavailableColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unavailable in Tabelle tbl_Emu_Games ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_Emu_Games.UnavailableColumn) = value - End Set - End Property + Public Sub Set_004_PublisherNull() + Me(Me.tablesrc_ucr_Emulation_Games._004_PublisherColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) + End Function _ - 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 Sub Set_005_DeveloperNull() + Me(Me.tablesrc_ucr_Emulation_Games._005_DeveloperColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_006_YearNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) + End Function _ - 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 Sub Set_006_YearNull() + Me(Me.tablesrc_ucr_Emulation_Games._006_YearColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property id_Moby_Platforms_Alternative() As Long - Get - Try - Return CType(Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms_Alternative in Tabelle tbl_Emu_Games ist DB"& _ - "Null.", e) - End Try - End Get - Set - Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) = value - End Set - End Property + Public Function Is_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) + End Function _ - 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 Sub Set_101_Basic_GenresNull() + Me(Me.tablesrc_ucr_Emulation_Games._101_Basic_GenresColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) + End Function _ - 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 Sub Set_102_PerspectivesNull() + Me(Me.tablesrc_ucr_Emulation_Games._102_PerspectivesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) + End Function _ - 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 Sub Set_103_Sports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._103_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) + End Function _ - 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 Sub Set_104_Non_Sports_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_105_Educational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) + End Function _ - 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 Sub Set_105_Educational_CategoriesNull() + Me(Me.tablesrc_ucr_Emulation_Games._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_106_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) + End Function _ - 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 Sub Set_106_Other_AttributesNull() + Me(Me.tablesrc_ucr_Emulation_Games._106_Other_AttributesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) + End Function _ - 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 Sub Set_107_Visual_PresentationNull() + Me(Me.tablesrc_ucr_Emulation_Games._107_Visual_PresentationColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) + End Function _ - 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 Sub Set_108_GameplayNull() + Me(Me.tablesrc_ucr_Emulation_Games._108_GameplayColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_109_PacingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) + End Function _ - 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 Sub Set_109_PacingNull() + Me(Me.tablesrc_ucr_Emulation_Games._109_PacingColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) + End Function _ - 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 Sub Set_110_Narrative_Theme_TopicNull() + Me(Me.tablesrc_ucr_Emulation_Games._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_111_SettingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) + End Function _ - 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 Sub Set_111_SettingNull() + Me(Me.tablesrc_ucr_Emulation_Games._111_SettingColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) + End Function _ - 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 Sub Set_112_Vehicular_ThemesNull() + Me(Me.tablesrc_ucr_Emulation_Games._112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) + End Function _ - 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 Sub Set_113_Interface_ControlNull() + Me(Me.tablesrc_ucr_Emulation_Games._113_Interface_ControlColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) + End Function _ - 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 Sub Set_114_DLC_AddonNull() + Me(Me.tablesrc_ucr_Emulation_Games._114_DLC_AddonColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Is_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games._115_Special_EditionColumn) + End Function _ - Public Property Translation() As Long + 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 + + _ + Public Function IsTDL_SubtitleNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Games.TDL_SubtitleColumn) + End Function + + _ + Public Sub SetTDL_SubtitleNull() + Me(Me.tablesrc_ucr_Emulation_Games.TDL_SubtitleColumn) = 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_Emu_Games.TranslationColumn),Long) + 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 Translation in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.TranslationColumn) = value + Me(Me.tabletbl_Technical_Specs.CategoryColumn) = value End Set End Property _ - Public Property Hack() As Long + Public Property Attribute() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.HackColumn),Long) + 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 Hack in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.HackColumn) = value + Me(Me.tabletbl_Technical_Specs.AttributeColumn) = value End Set End Property _ - Public Property Bios() As Long + Public Property Description() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.BiosColumn),Long) + 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 Bios in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.BiosColumn) = value + Me(Me.tabletbl_Technical_Specs.DescriptionColumn) = value End Set End Property _ - Public Property Prototype() As Long + 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 - 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 + Return CType(Me(Me.tabletbl_ControlSettings.id_ControlSettingsColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games.PrototypeColumn) = value + Me(Me.tabletbl_ControlSettings.id_ControlSettingsColumn) = value End Set End Property _ - Public Property Alpha() As Long + Public Property ControlID() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.AlphaColumn),Long) + 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 Alpha in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.AlphaColumn) = value + Me(Me.tabletbl_ControlSettings.ControlIDColumn) = value End Set End Property _ - Public Property Beta() As Long + Public Property SettingID() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.BetaColumn),Long) + 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 Beta in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.BetaColumn) = value + Me(Me.tabletbl_ControlSettings.SettingIDColumn) = value End Set End Property _ - Public Property Sample() As Long + Public Property Setting() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.SampleColumn),Long) + 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 Sample in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.SampleColumn) = value + Me(Me.tabletbl_ControlSettings.SettingColumn) = value End Set End Property _ - Public Property Kiosk() As Long + Public Property id_Users() As Integer Get Try - Return CType(Me(Me.tabletbl_Emu_Games.KioskColumn),Long) + 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 Kiosk in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.KioskColumn) = value + Me(Me.tabletbl_ControlSettings.id_UsersColumn) = value End Set End Property _ - Public Property Unlicensed() As Long + 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 - 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 + Return CType(Me(Me.tabletbl_FilterSets.id_FilterSetsColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = value + Me(Me.tabletbl_FilterSets.id_FilterSetsColumn) = value End Set End Property _ - Public Property Fixed() As Long + Public Property Type() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games.FixedColumn),Long) + 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 Fixed in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.FixedColumn) = value + Me(Me.tabletbl_FilterSets.TypeColumn) = value End Set End Property _ - Public Property Pirated() As Long + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.PiratedColumn),Long) + 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 Pirated in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.PiratedColumn) = value + Me(Me.tabletbl_FilterSets.NameColumn) = value End Set End Property _ - Public Property Good() As Long + Public Property ApplyGridFilter() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games.GoodColumn),Long) + 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 Good in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.GoodColumn) = value + Me(Me.tabletbl_FilterSets.ApplyGridFilterColumn) = value End Set End Property _ - Public Property Bad() As Long + Public Property GridFilter() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.BadColumn),Long) + 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 Bad in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.BadColumn) = value + Me(Me.tabletbl_FilterSets.GridFilterColumn) = 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 + 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_Emu_Games.OverdumpColumn) = value + Me(Me.tabletbl_Movies.id_MoviesColumn) = value End Set End Property _ - Public Property PublicDomain() As Long + Public Property Folder() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.PublicDomainColumn),Long) + 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 PublicDomain in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.PublicDomainColumn) = value + Me(Me.tabletbl_Movies.FolderColumn) = value End Set End Property _ - Public Property ROMBASE_id_Moby_Platforms() As Long + Public Property File() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn),Long) + 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 ROMBASE_id_Moby_Platforms in Tabelle tbl_Emu_Games ist DBNull"& _ - ".", e) + 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_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = value + Me(Me.tabletbl_Movies.FileColumn) = value End Set End Property _ - Public Property id_Rombase() As Long + Public Property IMDBid() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.id_RombaseColumn),Long) + 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 id_Rombase in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.id_RombaseColumn) = value + Me(Me.tabletbl_Movies.IMDBidColumn) = value End Set End Property _ - Public Property id_Emulators() As Long + 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 - 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 + Return CType(Me(Me.tabletbl_Emu_Extras.id_Emu_ExtrasColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = value + Me(Me.tabletbl_Emu_Extras.id_Emu_ExtrasColumn) = value End Set End Property _ - Public Property Publisher_USR() As String + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Publisher_USRColumn),String) + 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 Publisher_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Games.Publisher_USRColumn) = value + Me(Me.tabletbl_Emu_Extras.NameColumn) = value End Set End Property _ - Public Property Publisher_id_Moby_Companies_USR() As Long + Public Property Sort() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn),Long) + 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 Publisher_id_Moby_Companies_USR in Tabelle tbl_Emu_Games ist "& _ - "DBNull.", e) + 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_Games.Publisher_id_Moby_Companies_USRColumn) = value + Me(Me.tabletbl_Emu_Extras.SortColumn) = value End Set End Property _ - Public Property Developer_USR() As String + Public Property Description() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Developer_USRColumn),String) + 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 Developer_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Games.Developer_USRColumn) = value + Me(Me.tabletbl_Emu_Extras.DescriptionColumn) = value End Set End Property _ - Public Property Developer_id_Moby_Companies_USR() As Long + Public Property Hide() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn),Long) + 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 Developer_id_Moby_Companies_USR in Tabelle tbl_Emu_Games ist "& _ - "DBNull.", e) + 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_Games.Developer_id_Moby_Companies_USRColumn) = value + Me(Me.tabletbl_Emu_Extras.HideColumn) = value End Set End Property _ - Public Property Description_USR() As String + 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 - 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 + Return CType(Me(Me.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games.Description_USRColumn) = value + Me(Me.tabletbl_Emu_Games_Rating_Weights.id_Emu_Games_Rating_WeightsColumn) = value End Set End Property _ - Public Property Year_USR() As Long + Public Property Rating_Category() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Year_USRColumn),Long) + 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 Year_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.Year_USRColumn) = value + Me(Me.tabletbl_Emu_Games_Rating_Weights.Rating_CategoryColumn) = value End Set End Property _ - Public Property Version_USR() As String + Public Property Weight() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Version_USRColumn),String) + 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 Version_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.Version_USRColumn) = value + Me(Me.tabletbl_Emu_Games_Rating_Weights.WeightColumn) = value End Set End Property _ - Public Property Alt_USR() As String + 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 - 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 + Return CType(Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_GenresColumn) = value End Set End Property _ - Public Property Trainer_USR() As Boolean + Public Property id_Moby_Genres_Categories() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Trainer_USRColumn),Boolean) + 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 Trainer_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Trainer_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.id_Moby_Genres_CategoriesColumn) = value End Set End Property _ - Public Property Translation_USR() As Boolean + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Translation_USRColumn),Boolean) + 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 Translation_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Translation_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.NameColumn) = value End Set End Property _ - Public Property Hack_USR() As Boolean + Public Property URLPart() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Hack_USRColumn),Boolean) + 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 Hack_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Hack_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.URLPartColumn) = value End Set End Property _ - Public Property Bios_USR() As Boolean + Public Property Used() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Bios_USRColumn),Boolean) + 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 Bios_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Bios_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Genres.UsedColumn) = value End Set End Property _ - Public Property Prototype_USR() As Boolean + 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.tabletbl_Emu_Games.Prototype_USRColumn),Boolean) + 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 Prototype_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Prototype_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.id_Moby_AttributesColumn) = value End Set End Property _ - Public Property Alpha_USR() As Boolean + Public Property CategoryGroup() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Alpha_USRColumn),Boolean) + 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 Alpha_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Alpha_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryGroupColumn) = value End Set End Property _ - Public Property Beta_USR() As Boolean + Public Property Category() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Beta_USRColumn),Boolean) + 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 Beta_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Beta_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.CategoryColumn) = value End Set End Property _ - Public Property Sample_USR() As Boolean + Public Property Attribute() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Sample_USRColumn),Boolean) + 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 Sample_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Sample_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.AttributeColumn) = value End Set End Property _ - Public Property Kiosk_USR() As Boolean + Public Property Description() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn),Boolean) + 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 Kiosk_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Kiosk_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.DescriptionColumn) = value End Set End Property _ - Public Property Unlicensed_USR() As Boolean + Public Property Rating_Age_From() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn),Boolean) + 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 Unlicensed_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Unlicensed_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.Rating_Age_FromColumn) = value End Set End Property _ - Public Property Fixed_USR() As Boolean + Public Property RatingSystem() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Fixed_USRColumn),Boolean) + 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 Fixed_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Fixed_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingSystemColumn) = value End Set End Property _ - Public Property Pirated_USR() As Boolean + Public Property RatingDescriptor() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Pirated_USRColumn),Boolean) + 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 Pirated_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Pirated_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.RatingDescriptorColumn) = value End Set End Property _ - Public Property Good_USR() As Boolean + Public Property Used() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Good_USRColumn),Boolean) + 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 Good_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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.tabletbl_Emu_Games.Good_USRColumn) = value + Me(Me.tablesrc_frm_Emu_Game_Edit_Attributes.UsedColumn) = 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 + 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_Emu_Games.Bad_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.id_Tag_ParserColumn) = value End Set End Property _ - Public Property Overdump_USR() As Boolean + Public Property id_Rombase_Tag_Parser() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Overdump_USRColumn),Boolean) + 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 Overdump_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Overdump_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = value End Set End Property _ - Public Property PublicDomain_USR() As Boolean + Public Property Apply() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn),Boolean) + 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 PublicDomain_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.PublicDomain_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.ApplyColumn) = value End Set End Property _ - Public Property Name_USR() As String + Public Property Content() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Name_USRColumn),String) + 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 Name_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Name_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.ContentColumn) = value End Set End Property _ - Public Property Name_Prefix_USR() As String + Public Property Note() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn),String) + 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 Name_Prefix_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Name_Prefix_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.NoteColumn) = value End Set End Property _ - Public Property Note_USR() As String + Public Property Year() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Note_USRColumn),String) + 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 Note_USR in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Note_USRColumn) = value + Me(Me.tabletbl_Tag_Parser.YearColumn) = value End Set End Property _ - Public Property created() As Date + Public Property Bios() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.createdColumn),Date) + 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 created in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.createdColumn) = value + Me(Me.tabletbl_Tag_Parser.BiosColumn) = value End Set End Property _ - Public Property Volume_Number() As Long + Public Property Hack() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Volume_NumberColumn),Long) + 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 Volume_Number in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Volume_NumberColumn) = value + Me(Me.tabletbl_Tag_Parser.HackColumn) = value End Set End Property _ - Public Property id_Emu_Games_Owner() As Long + Public Property Trainer() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn),Long) + 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 id_Emu_Games_Owner in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.id_Emu_Games_OwnerColumn) = value + Me(Me.tabletbl_Tag_Parser.TrainerColumn) = value End Set End Property _ - Public Property Filtered_Name() As String + Public Property Version() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.Filtered_NameColumn),String) + 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 Filtered_Name in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.Filtered_NameColumn) = value + Me(Me.tabletbl_Tag_Parser.VersionColumn) = value End Set End Property _ - Public Property deprecated() As Boolean + Public Property Prototype() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.deprecatedColumn),Boolean) + 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 deprecated in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.deprecatedColumn) = value + Me(Me.tabletbl_Tag_Parser.PrototypeColumn) = value End Set End Property _ - Public Property tmp_Highlighted() As Boolean + Public Property Beta() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games.tmp_HighlightedColumn),Boolean) + 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 tmp_Highlighted in Tabelle tbl_Emu_Games ist DBNull.", e) + 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_Emu_Games.tmp_HighlightedColumn) = value + Me(Me.tabletbl_Tag_Parser.BetaColumn) = 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 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 Function Isid_DOSBox_ConfigsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) - End Function + 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 Sub Setid_DOSBox_ConfigsNull() - Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_ScummVM_Configs_TemplateNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) - End Function + 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 Sub Setid_ScummVM_Configs_TemplateNull() - Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_ScummVM_ConfigsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) - End Function + 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 Sub Setid_ScummVM_ConfigsNull() - Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Rombase_DOSBox_FiletypesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) - End Function + 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 Sub Setid_Rombase_DOSBox_FiletypesNull() - Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Rombase_DOSBox_Exe_TypesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) - End Function + 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 Sub Setid_Rombase_DOSBox_Exe_TypesNull() - Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsUnavailableNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.UnavailableColumn) - End Function + 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 Sub SetUnavailableNull() - Me(Me.tabletbl_Emu_Games.UnavailableColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsDOSBox_Mount_DestinationNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) - End Function + 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 Sub SetDOSBox_Mount_DestinationNull() - Me(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsHiddenNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.HiddenColumn) - End Function + 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 Sub SetHiddenNull() - Me(Me.tabletbl_Emu_Games.HiddenColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsMoby_Games_URLPartNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) - End Function + 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 Sub SetMoby_Games_URLPartNull() - Me(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Moby_PlatformsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) - End Function + 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 Sub Setid_Moby_PlatformsNull() - Me(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isid_Moby_Platforms_AlternativeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) - End Function + 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 Sub Setid_Moby_Platforms_AlternativeNull() - Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsFolderNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.FolderColumn) - End Function + 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 Sub SetFolderNull() - Me(Me.tabletbl_Emu_Games.FolderColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsFileNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.FileColumn) - End Function + 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 Sub SetFileNull() - Me(Me.tabletbl_Emu_Games.FileColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsInnerFileNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.InnerFileColumn) - End Function + 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 Sub SetInnerFileNull() - Me(Me.tabletbl_Emu_Games.InnerFileColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsSizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.SizeColumn) - End Function + 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 Sub SetSizeNull() - Me(Me.tabletbl_Emu_Games.SizeColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsCustomIdentifierNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.CustomIdentifierColumn) - End Function + 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 Sub SetCustomIdentifierNull() - Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsCRC32Null() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.CRC32Column) - End Function + 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 Sub SetCRC32Null() - Me(Me.tabletbl_Emu_Games.CRC32Column) = Global.System.Convert.DBNull - End Sub + 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 Function IsSHA1Null() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.SHA1Column) - End Function + 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 Sub SetSHA1Null() - Me(Me.tabletbl_Emu_Games.SHA1Column) = Global.System.Convert.DBNull - End Sub + 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 Function IsMD5Null() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.MD5Column) - End Function + 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 Sub SetMD5Null() - Me(Me.tabletbl_Emu_Games.MD5Column) = Global.System.Convert.DBNull - End Sub + 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 Function IsNameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.NameColumn) - End Function + 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 Sub SetNameNull() - Me(Me.tabletbl_Emu_Games.NameColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsName_PrefixNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Name_PrefixColumn) - End Function + 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 Sub SetName_PrefixNull() - Me(Me.tabletbl_Emu_Games.Name_PrefixColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsNoteNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.NoteColumn) - End Function + 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 Sub SetNoteNull() - Me(Me.tabletbl_Emu_Games.NoteColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsPublisherNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.PublisherColumn) - End Function + 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 Sub SetPublisherNull() - Me(Me.tabletbl_Emu_Games.PublisherColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsPublisher_id_Moby_CompaniesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) - End Function + 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 Sub SetPublisher_id_Moby_CompaniesNull() - Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsDeveloperNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.DeveloperColumn) - End Function + 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 Sub SetDeveloperNull() - Me(Me.tabletbl_Emu_Games.DeveloperColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsDeveloper_id_Moby_CompaniesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) - End Function + 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 Sub SetDeveloper_id_Moby_CompaniesNull() - Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsDescriptionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.DescriptionColumn) - End Function + 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 Sub SetDescriptionNull() - Me(Me.tabletbl_Emu_Games.DescriptionColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsFavouriteNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.FavouriteColumn) - End Function + 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 Sub SetFavouriteNull() - Me(Me.tabletbl_Emu_Games.FavouriteColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsRating_GameplayNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GameplayColumn) + 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 SetRating_GameplayNull() - Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull + Public Sub Setid_Rombase_Tag_ParserNull() + Me(Me.tabletbl_Tag_Parser.id_Rombase_Tag_ParserColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRating_GraphicsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) + Public Function IsApplyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ApplyColumn) End Function _ - Public Sub SetRating_GraphicsNull() - Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull + Public Sub SetApplyNull() + Me(Me.tabletbl_Tag_Parser.ApplyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRating_SoundNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_SoundColumn) + Public Function IsContentNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ContentColumn) End Function _ - Public Sub SetRating_SoundNull() - Me(Me.tabletbl_Emu_Games.Rating_SoundColumn) = Global.System.Convert.DBNull + Public Sub SetContentNull() + Me(Me.tabletbl_Tag_Parser.ContentColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRating_StoryNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_StoryColumn) + Public Function IsNoteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NoteColumn) End Function _ - Public Sub SetRating_StoryNull() - Me(Me.tabletbl_Emu_Games.Rating_StoryColumn) = Global.System.Convert.DBNull + Public Sub SetNoteNull() + Me(Me.tabletbl_Tag_Parser.NoteColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRating_PersonalNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_PersonalColumn) + Public Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.YearColumn) End Function _ - Public Sub SetRating_PersonalNull() - Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull + Public Sub SetYearNull() + Me(Me.tabletbl_Tag_Parser.YearColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNum_PlayedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Num_PlayedColumn) + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BiosColumn) End Function _ - Public Sub SetNum_PlayedNull() - Me(Me.tabletbl_Emu_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + Public Sub SetBiosNull() + Me(Me.tabletbl_Tag_Parser.BiosColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNum_RuntimeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Num_RuntimeColumn) + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HackColumn) End Function _ - Public Sub SetNum_RuntimeNull() - Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull + Public Sub SetHackNull() + Me(Me.tabletbl_Tag_Parser.HackColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsYearNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.YearColumn) + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.TrainerColumn) End Function _ - Public Sub SetYearNull() - Me(Me.tabletbl_Emu_Games.YearColumn) = Global.System.Convert.DBNull + 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_Emu_Games.VersionColumn) + Return Me.IsNull(Me.tabletbl_Tag_Parser.VersionColumn) End Function _ Public Sub SetVersionNull() - Me(Me.tabletbl_Emu_Games.VersionColumn) = Global.System.Convert.DBNull + Me(Me.tabletbl_Tag_Parser.VersionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAltNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.AltColumn) + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PrototypeColumn) End Function _ - Public Sub SetAltNull() - Me(Me.tabletbl_Emu_Games.AltColumn) = Global.System.Convert.DBNull + Public Sub SetPrototypeNull() + Me(Me.tabletbl_Tag_Parser.PrototypeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTrainerNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.TrainerColumn) + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BetaColumn) End Function _ - Public Sub SetTrainerNull() - Me(Me.tabletbl_Emu_Games.TrainerColumn) = Global.System.Convert.DBNull + 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_Emu_Games.TranslationColumn) + Return Me.IsNull(Me.tabletbl_Tag_Parser.TranslationColumn) End Function _ Public Sub SetTranslationNull() - Me(Me.tabletbl_Emu_Games.TranslationColumn) = Global.System.Convert.DBNull + Me(Me.tabletbl_Tag_Parser.TranslationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHackNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.HackColumn) + Public Function IsAltNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AltColumn) End Function _ - Public Sub SetHackNull() - Me(Me.tabletbl_Emu_Games.HackColumn) = Global.System.Convert.DBNull + Public Sub SetAltNull() + Me(Me.tabletbl_Tag_Parser.AltColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBiosNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.BiosColumn) + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.UnlicensedColumn) End Function _ - Public Sub SetBiosNull() - Me(Me.tabletbl_Emu_Games.BiosColumn) = Global.System.Convert.DBNull + Public Sub SetUnlicensedNull() + Me(Me.tabletbl_Tag_Parser.UnlicensedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPrototypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.PrototypeColumn) + Public Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GoodColumn) End Function _ - Public Sub SetPrototypeNull() - Me(Me.tabletbl_Emu_Games.PrototypeColumn) = Global.System.Convert.DBNull + Public Sub SetGoodNull() + Me(Me.tabletbl_Tag_Parser.GoodColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAlphaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.AlphaColumn) + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BadColumn) End Function _ - Public Sub SetAlphaNull() - Me(Me.tabletbl_Emu_Games.AlphaColumn) = Global.System.Convert.DBNull + Public Sub SetBadNull() + Me(Me.tabletbl_Tag_Parser.BadColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBetaNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.BetaColumn) + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FixedColumn) End Function _ - Public Sub SetBetaNull() - Me(Me.tabletbl_Emu_Games.BetaColumn) = Global.System.Convert.DBNull + Public Sub SetFixedNull() + Me(Me.tabletbl_Tag_Parser.FixedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSampleNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.SampleColumn) + Public Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.OverdumpColumn) End Function _ - Public Sub SetSampleNull() - Me(Me.tabletbl_Emu_Games.SampleColumn) = Global.System.Convert.DBNull + Public Sub SetOverdumpNull() + Me(Me.tabletbl_Tag_Parser.OverdumpColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKioskNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.KioskColumn) + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PiratedColumn) End Function _ - Public Sub SetKioskNull() - Me(Me.tabletbl_Emu_Games.KioskColumn) = Global.System.Convert.DBNull + Public Sub SetPiratedNull() + Me(Me.tabletbl_Tag_Parser.PiratedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUnlicensedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.UnlicensedColumn) + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AlphaColumn) End Function _ - Public Sub SetUnlicensedNull() - Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = Global.System.Convert.DBNull + Public Sub SetAlphaNull() + Me(Me.tabletbl_Tag_Parser.AlphaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFixedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.FixedColumn) + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KioskColumn) End Function _ - Public Sub SetFixedNull() - Me(Me.tabletbl_Emu_Games.FixedColumn) = Global.System.Convert.DBNull + Public Sub SetKioskNull() + Me(Me.tabletbl_Tag_Parser.KioskColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPiratedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.PiratedColumn) + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SampleColumn) End Function _ - Public Sub SetPiratedNull() - Me(Me.tabletbl_Emu_Games.PiratedColumn) = Global.System.Convert.DBNull + Public Sub SetSampleNull() + Me(Me.tabletbl_Tag_Parser.SampleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGoodNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.GoodColumn) + Public Function IsEnNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EnColumn) End Function _ - Public Sub SetGoodNull() - Me(Me.tabletbl_Emu_Games.GoodColumn) = Global.System.Convert.DBNull + Public Sub SetEnNull() + Me(Me.tabletbl_Tag_Parser.EnColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBadNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.BadColumn) + Public Function IsJaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.JaColumn) End Function _ - Public Sub SetBadNull() - Me(Me.tabletbl_Emu_Games.BadColumn) = Global.System.Convert.DBNull + Public Sub SetJaNull() + Me(Me.tabletbl_Tag_Parser.JaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsOverdumpNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.OverdumpColumn) + Public Function IsFrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FrColumn) End Function _ - Public Sub SetOverdumpNull() - Me(Me.tabletbl_Emu_Games.OverdumpColumn) = Global.System.Convert.DBNull + Public Sub SetFrNull() + Me(Me.tabletbl_Tag_Parser.FrColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPublicDomainNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomainColumn) + Public Function IsDeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.DeColumn) End Function _ - Public Sub SetPublicDomainNull() - Me(Me.tabletbl_Emu_Games.PublicDomainColumn) = Global.System.Convert.DBNull + Public Sub SetDeNull() + Me(Me.tabletbl_Tag_Parser.DeColumn) = 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) + Public Function IsEsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EsColumn) End Function _ - Public Sub SetROMBASE_id_Moby_PlatformsNull() - Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + Public Sub SetEsNull() + Me(Me.tabletbl_Tag_Parser.EsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isid_RombaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_RombaseColumn) + Public Function IsItNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ItColumn) End Function _ - Public Sub Setid_RombaseNull() - Me(Me.tabletbl_Emu_Games.id_RombaseColumn) = Global.System.Convert.DBNull + Public Sub SetItNull() + Me(Me.tabletbl_Tag_Parser.ItColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isid_EmulatorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.id_EmulatorsColumn) + Public Function IsNlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NlColumn) End Function _ - Public Sub Setid_EmulatorsNull() - Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = Global.System.Convert.DBNull + Public Sub SetNlNull() + Me(Me.tabletbl_Tag_Parser.NlColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPublisher_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_USRColumn) + Public Function IsPtNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PtColumn) End Function _ - Public Sub SetPublisher_USRNull() - Me(Me.tabletbl_Emu_Games.Publisher_USRColumn) = Global.System.Convert.DBNull + Public Sub SetPtNull() + Me(Me.tabletbl_Tag_Parser.PtColumn) = 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) + Public Function IsSvNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SvColumn) End Function _ - Public Sub SetPublisher_id_Moby_Companies_USRNull() - Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + Public Sub SetSvNull() + Me(Me.tabletbl_Tag_Parser.SvColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDeveloper_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_USRColumn) + Public Function IsNoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NoColumn) End Function _ - Public Sub SetDeveloper_USRNull() - Me(Me.tabletbl_Emu_Games.Developer_USRColumn) = Global.System.Convert.DBNull + Public Sub SetNoNull() + Me(Me.tabletbl_Tag_Parser.NoColumn) = 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) + Public Function IsDaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.DaColumn) End Function _ - Public Sub SetDeveloper_id_Moby_Companies_USRNull() - Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + Public Sub SetDaNull() + Me(Me.tabletbl_Tag_Parser.DaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDescription_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Description_USRColumn) + Public Function IsFiNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FiColumn) End Function _ - Public Sub SetDescription_USRNull() - Me(Me.tabletbl_Emu_Games.Description_USRColumn) = Global.System.Convert.DBNull + Public Sub SetFiNull() + Me(Me.tabletbl_Tag_Parser.FiColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsYear_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Year_USRColumn) + Public Function IsZhNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ZhColumn) End Function _ - Public Sub SetYear_USRNull() - Me(Me.tabletbl_Emu_Games.Year_USRColumn) = Global.System.Convert.DBNull + Public Sub SetZhNull() + Me(Me.tabletbl_Tag_Parser.ZhColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsVersion_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Version_USRColumn) + Public Function IsKoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KoColumn) End Function _ - Public Sub SetVersion_USRNull() - Me(Me.tabletbl_Emu_Games.Version_USRColumn) = Global.System.Convert.DBNull + Public Sub SetKoNull() + Me(Me.tabletbl_Tag_Parser.KoColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAlt_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Alt_USRColumn) + Public Function IsPlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PlColumn) End Function _ - Public Sub SetAlt_USRNull() - Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = Global.System.Convert.DBNull + Public Sub SetPlNull() + Me(Me.tabletbl_Tag_Parser.PlColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTrainer_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Trainer_USRColumn) + Public Function IsWorldNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.WorldColumn) End Function _ - Public Sub SetTrainer_USRNull() - Me(Me.tabletbl_Emu_Games.Trainer_USRColumn) = Global.System.Convert.DBNull + Public Sub SetWorldNull() + Me(Me.tabletbl_Tag_Parser.WorldColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTranslation_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Translation_USRColumn) + Public Function IsEuropeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.EuropeColumn) End Function _ - Public Sub SetTranslation_USRNull() - Me(Me.tabletbl_Emu_Games.Translation_USRColumn) = Global.System.Convert.DBNull + Public Sub SetEuropeNull() + Me(Me.tabletbl_Tag_Parser.EuropeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHack_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Hack_USRColumn) + Public Function IsUSANull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.USAColumn) End Function _ - Public Sub SetHack_USRNull() - Me(Me.tabletbl_Emu_Games.Hack_USRColumn) = Global.System.Convert.DBNull + Public Sub SetUSANull() + Me(Me.tabletbl_Tag_Parser.USAColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBios_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Bios_USRColumn) + Public Function IsAustraliaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AustraliaColumn) End Function _ - Public Sub SetBios_USRNull() - Me(Me.tabletbl_Emu_Games.Bios_USRColumn) = Global.System.Convert.DBNull + Public Sub SetAustraliaNull() + Me(Me.tabletbl_Tag_Parser.AustraliaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPrototype_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Prototype_USRColumn) + Public Function IsJapanNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.JapanColumn) End Function _ - Public Sub SetPrototype_USRNull() - Me(Me.tabletbl_Emu_Games.Prototype_USRColumn) = Global.System.Convert.DBNull + Public Sub SetJapanNull() + Me(Me.tabletbl_Tag_Parser.JapanColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAlpha_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Alpha_USRColumn) + Public Function IsKoreaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.KoreaColumn) End Function _ - Public Sub SetAlpha_USRNull() - Me(Me.tabletbl_Emu_Games.Alpha_USRColumn) = Global.System.Convert.DBNull + Public Sub SetKoreaNull() + Me(Me.tabletbl_Tag_Parser.KoreaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBeta_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Beta_USRColumn) + Public Function IsChinaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ChinaColumn) End Function _ - Public Sub SetBeta_USRNull() - Me(Me.tabletbl_Emu_Games.Beta_USRColumn) = Global.System.Convert.DBNull + Public Sub SetChinaNull() + Me(Me.tabletbl_Tag_Parser.ChinaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSample_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Sample_USRColumn) + Public Function IsAsiaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.AsiaColumn) End Function _ - Public Sub SetSample_USRNull() - Me(Me.tabletbl_Emu_Games.Sample_USRColumn) = Global.System.Convert.DBNull + Public Sub SetAsiaNull() + Me(Me.tabletbl_Tag_Parser.AsiaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsKiosk_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Kiosk_USRColumn) + Public Function IsBrazilNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BrazilColumn) End Function _ - Public Sub SetKiosk_USRNull() - Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn) = Global.System.Convert.DBNull + Public Sub SetBrazilNull() + Me(Me.tabletbl_Tag_Parser.BrazilColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUnlicensed_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) + Public Function IsCanadaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.CanadaColumn) End Function _ - Public Sub SetUnlicensed_USRNull() - Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) = Global.System.Convert.DBNull + Public Sub SetCanadaNull() + Me(Me.tabletbl_Tag_Parser.CanadaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFixed_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Fixed_USRColumn) + Public Function IsFranceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.FranceColumn) End Function _ - Public Sub SetFixed_USRNull() - Me(Me.tabletbl_Emu_Games.Fixed_USRColumn) = Global.System.Convert.DBNull + Public Sub SetFranceNull() + Me(Me.tabletbl_Tag_Parser.FranceColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPirated_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Pirated_USRColumn) + Public Function IsGermanyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GermanyColumn) End Function _ - Public Sub SetPirated_USRNull() - Me(Me.tabletbl_Emu_Games.Pirated_USRColumn) = Global.System.Convert.DBNull + Public Sub SetGermanyNull() + Me(Me.tabletbl_Tag_Parser.GermanyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGood_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Good_USRColumn) + Public Function IsHongKongNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HongKongColumn) End Function _ - Public Sub SetGood_USRNull() - Me(Me.tabletbl_Emu_Games.Good_USRColumn) = Global.System.Convert.DBNull + Public Sub SetHongKongNull() + Me(Me.tabletbl_Tag_Parser.HongKongColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBad_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Bad_USRColumn) + Public Function IsItalyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ItalyColumn) End Function _ - Public Sub SetBad_USRNull() - Me(Me.tabletbl_Emu_Games.Bad_USRColumn) = Global.System.Convert.DBNull + Public Sub SetItalyNull() + Me(Me.tabletbl_Tag_Parser.ItalyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsOverdump_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Overdump_USRColumn) + Public Function IsNetherlandsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NetherlandsColumn) End Function _ - Public Sub SetOverdump_USRNull() - Me(Me.tabletbl_Emu_Games.Overdump_USRColumn) = Global.System.Convert.DBNull + Public Sub SetNetherlandsNull() + Me(Me.tabletbl_Tag_Parser.NetherlandsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPublicDomain_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) + Public Function IsSpainNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SpainColumn) End Function _ - Public Sub SetPublicDomain_USRNull() - Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) = Global.System.Convert.DBNull + Public Sub SetSpainNull() + Me(Me.tabletbl_Tag_Parser.SpainColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsName_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Name_USRColumn) + Public Function IsSwedenNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SwedenColumn) End Function _ - Public Sub SetName_USRNull() - Me(Me.tabletbl_Emu_Games.Name_USRColumn) = Global.System.Convert.DBNull + Public Sub SetSwedenNull() + Me(Me.tabletbl_Tag_Parser.SwedenColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsName_Prefix_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) + Public Function IsRussiaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.RussiaColumn) End Function _ - Public Sub SetName_Prefix_USRNull() - Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) = Global.System.Convert.DBNull + Public Sub SetRussiaNull() + Me(Me.tabletbl_Tag_Parser.RussiaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNote_USRNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Note_USRColumn) + Public Function IsTaiwanNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.TaiwanColumn) End Function _ - Public Sub SetNote_USRNull() - Me(Me.tabletbl_Emu_Games.Note_USRColumn) = Global.System.Convert.DBNull + Public Sub SetTaiwanNull() + Me(Me.tabletbl_Tag_Parser.TaiwanColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IscreatedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.createdColumn) + Public Function IsNTSCNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.NTSCColumn) End Function _ - Public Sub SetcreatedNull() - Me(Me.tabletbl_Emu_Games.createdColumn) = Global.System.Convert.DBNull + Public Sub SetNTSCNull() + Me(Me.tabletbl_Tag_Parser.NTSCColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsVolume_NumberNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Volume_NumberColumn) + Public Function IsPALNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PALColumn) End Function _ - Public Sub SetVolume_NumberNull() - Me(Me.tabletbl_Emu_Games.Volume_NumberColumn) = Global.System.Convert.DBNull + Public Sub SetPALNull() + Me(Me.tabletbl_Tag_Parser.PALColumn) = 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) + Public Function IsNote_HighPriorityNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) End Function _ - Public Sub Setid_Emu_Games_OwnerNull() - Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) = Global.System.Convert.DBNull + Public Sub SetNote_HighPriorityNull() + Me(Me.tabletbl_Tag_Parser.Note_HighPriorityColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFiltered_NameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.Filtered_NameColumn) + Public Function IsMV_Group_CriteriaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) End Function _ - Public Sub SetFiltered_NameNull() - Me(Me.tabletbl_Emu_Games.Filtered_NameColumn) = Global.System.Convert.DBNull + Public Sub SetMV_Group_CriteriaNull() + Me(Me.tabletbl_Tag_Parser.MV_Group_CriteriaColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsdeprecatedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.deprecatedColumn) + Public Function IsMV_Volume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) End Function _ - Public Sub SetdeprecatedNull() - Me(Me.tabletbl_Emu_Games.deprecatedColumn) = Global.System.Convert.DBNull + Public Sub SetMV_Volume_NumberNull() + Me(Me.tabletbl_Tag_Parser.MV_Volume_NumberColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Istmp_HighlightedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games.tmp_HighlightedColumn) + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.PublisherColumn) End Function _ - Public Sub Settmp_HighlightedNull() - Me(Me.tabletbl_Emu_Games.tmp_HighlightedColumn) = Global.System.Convert.DBNull + Public Sub SetPublisherNull() + Me(Me.tabletbl_Tag_Parser.PublisherColumn) = 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 Function IsGrNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.GrColumn) + End Function _ - 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 Sub SetGrNull() + Me(Me.tabletbl_Tag_Parser.GrColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsHuNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.HuColumn) + End Function _ - 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 Sub SetHuNull() + Me(Me.tabletbl_Tag_Parser.HuColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function Isid_Emu_GamesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) + Public Function IsFound_InNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.Found_InColumn) End Function _ - Public Sub Setid_Emu_GamesNull() - Me(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) = Global.System.Convert.DBNull + Public Sub SetFound_InNull() + Me(Me.tabletbl_Tag_Parser.Found_InColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isid_LanguagesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) + Public Function IsArNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.ArColumn) End Function _ - Public Sub Setid_LanguagesNull() - Me(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) = Global.System.Convert.DBNull + Public Sub SetArNull() + Me(Me.tabletbl_Tag_Parser.ArColumn) = 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 + _ + Public Function IsBeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.BeColumn) + End Function _ - 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) + Public Sub SetBeNull() + Me(Me.tabletbl_Tag_Parser.BeColumn) = Global.System.Convert.DBNull 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 Function IsCzNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.CzColumn) + End Function _ - 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 Sub SetCzNull() + Me(Me.tabletbl_Tag_Parser.CzColumn) = Global.System.Convert.DBNull + End Sub _ - 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 IsSlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.SlColumn) + End Function _ - Public Function Isid_Emu_GamesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) + 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 Setid_Emu_GamesNull() - Me(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) = Global.System.Convert.DBNull + Public Sub SetSrNull() + Me(Me.tabletbl_Tag_Parser.SrColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isid_RegionsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) + Public Function IsRuNull() As Boolean + Return Me.IsNull(Me.tabletbl_Tag_Parser.RuColumn) End Function _ - Public Sub Setid_RegionsNull() - Me(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) = Global.System.Convert.DBNull + 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_Games_Edit_LanguagesRow + Partial Public Class tbl_Emu_GamesRow Inherits Global.System.Data.DataRow - Private tabletbl_Emu_Games_Edit_Languages As tbl_Emu_Games_Edit_LanguagesDataTable + 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_Edit_Languages = CType(Me.Table,tbl_Emu_Games_Edit_LanguagesDataTable) + Me.tabletbl_Emu_Games = CType(Me.Table,tbl_Emu_GamesDataTable) End Sub _ - Public Property id_Languages() As Long + Public Property id_Emu_Games() 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 + Return CType(Me(Me.tabletbl_Emu_Games.id_Emu_GamesColumn),Long) End Get Set - Me(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) = value + Me(Me.tabletbl_Emu_Games.id_Emu_GamesColumn) = value End Set End Property _ - Public Property Language_Short() As String + Public Property id_DOSBox_Configs_Template() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn),String) + 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 Language_Short in Tabelle tbl_Emu_Games_Edit_Languages ist DB"& _ - "Null.", e) + 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_Edit_Languages.Language_ShortColumn) = value + Me(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) = value End Set End Property _ - Public Property Language() As String + Public Property id_DOSBox_Configs() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn),String) + 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 Language in Tabelle tbl_Emu_Games_Edit_Languages ist DBNull.", e) + 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_Edit_Languages.LanguageColumn) = value + Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) = value End Set End Property _ - Public Property Used() As Boolean + Public Property id_ScummVM_Configs_Template() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn),Boolean) + Return CType(Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn),Long) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs_Template in Tabelle tbl_Emu_Games ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn) = value + Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) = 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 + Public Property id_ScummVM_Configs() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn),Long) + Return CType(Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) = value + Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) = value End Set End Property _ - Public Property _Region() As String + Public Property id_Rombase_DOSBox_Filetypes() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn),String) + 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 Region in Tabelle tbl_Emu_Games_Edit_Regions ist DBNull.", e) + 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_Edit_Regions.RegionColumn) = value + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) = value End Set End Property _ - Public Property Used() As Boolean + Public Property id_Rombase_DOSBox_Exe_Types() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn),Boolean) + 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 Used in Tabelle tbl_Emu_Games_Edit_Regions ist DBNull.", e) + 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_Edit_Regions.UsedColumn) = value + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) = 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 Property Unavailable() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.UnavailableColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unavailable in Tabelle tbl_Emu_Games ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.UnavailableColumn) = value + End Set + End Property _ - Public Function Is_RegionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) - End Function + 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 Sub Set_RegionNull() - Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsUsedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn) - End Function + 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 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 + 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 _ - 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_Moby_Platforms_Alternative() As Long + Get + Try + Return CType(Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Platforms_Alternative in Tabelle tbl_Emu_Games ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) = value + End Set + End Property _ - Public Property id_Emulators() As Long + Public Property Folder() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn),Long) + 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 id_Emulators in Tabelle tbl_Emu_Games_Edit_Default_Emulator i"& _ - "st DBNull.", e) + 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_Edit_Default_Emulator.id_EmulatorsColumn) = value + Me(Me.tabletbl_Emu_Games.FolderColumn) = value End Set End Property _ - Public Property Displayname() As String + Public Property File() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn),String) + 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 Displayname in Tabelle tbl_Emu_Games_Edit_Default_Emulator is"& _ - "t DBNull.", e) + 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_Edit_Default_Emulator.DisplaynameColumn) = value + Me(Me.tabletbl_Emu_Games.FileColumn) = value End Set End Property _ - Public Property Used() As String + Public Property InnerFile() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn),String) + 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 Used in Tabelle tbl_Emu_Games_Edit_Default_Emulator ist DBNul"& _ - "l.", e) + 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_Edit_Default_Emulator.UsedColumn) = value + Me(Me.tabletbl_Emu_Games.InnerFileColumn) = value End Set End Property _ - Public Property IsGlobalDefault() As Boolean + Public Property Size() As Long Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn),Boolean) + 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 IsGlobalDefault in Tabelle tbl_Emu_Games_Edit_Default_Emulato"& _ - "r ist DBNull.", e) + 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_Edit_Default_Emulator.IsGlobalDefaultColumn) = value + Me(Me.tabletbl_Emu_Games.SizeColumn) = 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 + Public Property CustomIdentifier() As String Get - Return CType(Me(Me.tabletbl_History.id_HistoryColumn),Long) + 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_History.id_HistoryColumn) = value + Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn) = value End Set End Property _ - Public Property id_Emu_Games() As Long + Public Property CRC32() As String Get Try - Return CType(Me(Me.tabletbl_History.id_Emu_GamesColumn),Long) + 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 id_Emu_Games in Tabelle tbl_History ist DBNull.", e) + 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_History.id_Emu_GamesColumn) = value + Me(Me.tabletbl_Emu_Games.CRC32Column) = value End Set End Property _ - Public Property Start() As Date + Public Property SHA1() As String Get Try - Return CType(Me(Me.tabletbl_History.StartColumn),Date) + 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 Start in Tabelle tbl_History ist DBNull.", e) + 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_History.StartColumn) = value + Me(Me.tabletbl_Emu_Games.SHA1Column) = value End Set End Property _ - Public Property _End() As Date + Public Property MD5() As String Get Try - Return CType(Me(Me.tabletbl_History.EndColumn),Date) + 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 End in Tabelle tbl_History ist DBNull.", e) + 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_History.EndColumn) = value + Me(Me.tabletbl_Emu_Games.MD5Column) = value End Set End Property _ - Public Property Runtime() As Long + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_History.RuntimeColumn),Long) + 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 Runtime in Tabelle tbl_History ist DBNull.", e) + 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_History.RuntimeColumn) = value + Me(Me.tabletbl_Emu_Games.NameColumn) = 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 + Public Property Name_Prefix() As String Get - Return CType(Me(Me.tabletbl_ImageEditorTemplates.id_ImageEditorTemplatesColumn),Long) + 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_ImageEditorTemplates.id_ImageEditorTemplatesColumn) = value + Me(Me.tabletbl_Emu_Games.Name_PrefixColumn) = value End Set End Property _ - Public Property Top() As Long + Public Property Note() As String Get Try - Return CType(Me(Me.tabletbl_ImageEditorTemplates.TopColumn),Long) + 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 Top in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + 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_ImageEditorTemplates.TopColumn) = value + Me(Me.tabletbl_Emu_Games.NoteColumn) = value End Set End Property _ - Public Property Bottom() As Long + Public Property Publisher() As String Get Try - Return CType(Me(Me.tabletbl_ImageEditorTemplates.BottomColumn),Long) + 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 Bottom in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + 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_ImageEditorTemplates.BottomColumn) = value + Me(Me.tabletbl_Emu_Games.PublisherColumn) = value End Set End Property _ - Public Property Left() As Long + Public Property Publisher_id_Moby_Companies() As Long Get Try - Return CType(Me(Me.tabletbl_ImageEditorTemplates.LeftColumn),Long) + 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 Left in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + 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_ImageEditorTemplates.LeftColumn) = value + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) = value End Set End Property _ - Public Property Right() As Long + Public Property Developer() As String Get Try - Return CType(Me(Me.tabletbl_ImageEditorTemplates.RightColumn),Long) + 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 Right in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + 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_ImageEditorTemplates.RightColumn) = value + Me(Me.tabletbl_Emu_Games.DeveloperColumn) = value End Set End Property _ - Public Property Title() As String + Public Property Developer_id_Moby_Companies() As Long Get Try - Return CType(Me(Me.tabletbl_ImageEditorTemplates.TitleColumn),String) + 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 Title in Tabelle tbl_ImageEditorTemplates ist DBNull.", e) + 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_ImageEditorTemplates.TitleColumn) = value + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) = 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 + Public Property Description() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn),Long) + 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 id_Moby_Game_Groups in Tabelle src_ucr_Emulation_GameGroups i"& _ - "st DBNull.", e) + 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.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) = value + Me(Me.tabletbl_Emu_Games.DescriptionColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Favourite() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn),String) + 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 Name in Tabelle src_ucr_Emulation_GameGroups ist DBNull.", e) + 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.tablesrc_ucr_Emulation_GameGroups.NameColumn) = value + Me(Me.tabletbl_Emu_Games.FavouriteColumn) = value End Set End Property _ - Public Property GameCount() As Integer + Public Property Rating_Gameplay() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn),Integer) + 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 GameCount in Tabelle src_ucr_Emulation_GameGroups ist DBNull."& _ - "", e) + 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.tablesrc_ucr_Emulation_GameGroups.GameCountColumn) = value + Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn) = 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 + Public Property Rating_Graphics() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn),Long) + 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 id_Moby_Game_Groups in Tabelle src_ucr_Emulation_cmb_Groups i"& _ - "st DBNull.", e) + 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.tablesrc_ucr_Emulation_cmb_Groups.id_Moby_Game_GroupsColumn) = value + Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Rating_Sound() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn),String) + 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 Name in Tabelle src_ucr_Emulation_cmb_Groups ist DBNull.", e) + 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.tablesrc_ucr_Emulation_cmb_Groups.NameColumn) = value + Me(Me.tabletbl_Emu_Games.Rating_SoundColumn) = 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 + Public Property Rating_Story() As Long Get - Return CType(Me(Me.tabletbl_Mame_Roms.id_Mame_RomsColumn),Long) + 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_Mame_Roms.id_Mame_RomsColumn) = value + Me(Me.tabletbl_Emu_Games.Rating_StoryColumn) = value End Set End Property _ - Public Property name() As String + Public Property Rating_Personal() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.nameColumn),String) + 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 name in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.nameColumn) = value + Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn) = value End Set End Property _ - Public Property description() As String + Public Property Num_Played() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.descriptionColumn),String) + 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 description in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.descriptionColumn) = value + Me(Me.tabletbl_Emu_Games.Num_PlayedColumn) = value End Set End Property _ - Public Property year() As String + Public Property Num_Runtime() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.yearColumn),String) + 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 year in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.yearColumn) = value + Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn) = value End Set End Property _ - Public Property manufacturer() As String + Public Property Year() As String Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.manufacturerColumn),String) + 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 manufacturer in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.manufacturerColumn) = value + Me(Me.tabletbl_Emu_Games.YearColumn) = value End Set End Property _ - Public Property sourcefile() As String + Public Property Version() As String Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.sourcefileColumn),String) + 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 sourcefile in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.sourcefileColumn) = value + Me(Me.tabletbl_Emu_Games.VersionColumn) = value End Set End Property _ - Public Property is_allowed_by_filter_ini() As Boolean + Public Property Alt() As String Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn),Boolean) + 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 is_allowed_by_filter_ini in Tabelle tbl_Mame_Roms ist DBNull."& _ - "", e) + 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_Mame_Roms.is_allowed_by_filter_iniColumn) = value + Me(Me.tabletbl_Emu_Games.AltColumn) = value End Set End Property _ - Public Property isbios() As Boolean + Public Property Trainer() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.isbiosColumn),Boolean) + 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 isbios in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.isbiosColumn) = value + Me(Me.tabletbl_Emu_Games.TrainerColumn) = value End Set End Property _ - Public Property isdevice() As Boolean + Public Property Translation() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.isdeviceColumn),Boolean) + 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 isdevice in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.isdeviceColumn) = value + Me(Me.tabletbl_Emu_Games.TranslationColumn) = value End Set End Property _ - Public Property ismechanical() As Boolean + Public Property Hack() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.ismechanicalColumn),Boolean) + 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 ismechanical in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.ismechanicalColumn) = value + Me(Me.tabletbl_Emu_Games.HackColumn) = value End Set End Property _ - Public Property issoftwarelist() As Boolean + Public Property Bios() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.issoftwarelistColumn),Boolean) + 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 issoftwarelist in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.issoftwarelistColumn) = value + Me(Me.tabletbl_Emu_Games.BiosColumn) = value End Set End Property _ - Public Property hasdisplay() As Boolean + Public Property Prototype() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.hasdisplayColumn),Boolean) + 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 hasdisplay in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.hasdisplayColumn) = value + Me(Me.tabletbl_Emu_Games.PrototypeColumn) = value End Set End Property _ - Public Property runnable() As Boolean + Public Property Alpha() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.runnableColumn),Boolean) + 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 runnable in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.runnableColumn) = value + Me(Me.tabletbl_Emu_Games.AlphaColumn) = value End Set End Property _ - Public Property cloneof() As String + Public Property Beta() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.cloneofColumn),String) + 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 cloneof in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.cloneofColumn) = value + Me(Me.tabletbl_Emu_Games.BetaColumn) = value End Set End Property _ - Public Property romof() As String + Public Property Sample() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.romofColumn),String) + 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 romof in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.romofColumn) = value + Me(Me.tabletbl_Emu_Games.SampleColumn) = value End Set End Property _ - Public Property sampleof() As String + Public Property Kiosk() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.sampleofColumn),String) + 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 sampleof in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.sampleofColumn) = value + Me(Me.tabletbl_Emu_Games.KioskColumn) = value End Set End Property _ - Public Property mameinfo() As String + Public Property Unlicensed() As Long Get Try - Return CType(Me(Me.tabletbl_Mame_Roms.mameinfoColumn),String) + 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 mameinfo in Tabelle tbl_Mame_Roms ist DBNull.", e) + 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_Mame_Roms.mameinfoColumn) = value + Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = 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 Isis_allowed_by_filter_iniNull() As Boolean - Return Me.IsNull(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn) - End Function - - _ - Public Sub Setis_allowed_by_filter_iniNull() - Me(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn) = 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 + Public Property Fixed() As Long Get Try - Return CType(Me(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn),Long) + 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 id_Tag_Parser_Volumes in Tabelle ttb_Tag_Parser_Volumes ist D"& _ - "BNull.", e) + 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.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) = value + Me(Me.tabletbl_Emu_Games.FixedColumn) = value End Set End Property _ - Public Property DisplayText() As String + Public Property Pirated() As Long Get Try - Return CType(Me(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn),String) + 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 DisplayText in Tabelle ttb_Tag_Parser_Volumes ist DBNull.", e) + 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.tablettb_Tag_Parser_Volumes.DisplayTextColumn) = value + Me(Me.tabletbl_Emu_Games.PiratedColumn) = 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 + Public Property Good() As Long Get - Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_Emulators_Multivolume_ParametersColumn),Long) + 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_Emulators_Multivolume_Parameters.id_Emulators_Multivolume_ParametersColumn) = value + Me(Me.tabletbl_Emu_Games.GoodColumn) = value End Set End Property _ - Public Property id_Emulators() As Long + Public Property Bad() As Long Get Try - Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn),Long) + 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 id_Emulators in Tabelle tbl_Emulators_Multivolume_Parameters "& _ - "ist DBNull.", e) + 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_Emulators_Multivolume_Parameters.id_EmulatorsColumn) = value + Me(Me.tabletbl_Emu_Games.BadColumn) = value End Set End Property _ - Public Property Volume_Number() As Long + Public Property Overdump() As Long Get Try - Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn),Long) + 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 Volume_Number in Tabelle tbl_Emulators_Multivolume_Parameters"& _ - " ist DBNull.", e) + 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_Emulators_Multivolume_Parameters.Volume_NumberColumn) = value + Me(Me.tabletbl_Emu_Games.OverdumpColumn) = value End Set End Property _ - Public Property Parameter() As String + Public Property PublicDomain() As Long Get Try - Return CType(Me(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn),String) + 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 Parameter in Tabelle tbl_Emulators_Multivolume_Parameters ist"& _ - " DBNull.", e) + 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_Emulators_Multivolume_Parameters.ParameterColumn) = value + Me(Me.tabletbl_Emu_Games.PublicDomainColumn) = 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 + Public Property ROMBASE_id_Moby_Platforms() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn),Long) + 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 id_DOSBox_Configs in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs.id_DOSBox_ConfigsColumn) = value + Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = value End Set End Property _ - Public Property id_Rombase_DOSBox_Configs() As Long + Public Property id_Rombase() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn),Long) + 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_DOSBox_Configs in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) + 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_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn) = value + Me(Me.tabletbl_Emu_Games.id_RombaseColumn) = value End Set End Property _ - Public Property isTemplate() As Boolean + Public Property id_Emulators() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.isTemplateColumn),Boolean) + 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 isTemplate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs.isTemplateColumn) = value + Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = value End Set End Property _ - Public Property Displayname() As String + Public Property Publisher_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.DisplaynameColumn),String) + 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 Displayname in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs.DisplaynameColumn) = value + Me(Me.tabletbl_Emu_Games.Publisher_USRColumn) = value End Set End Property _ - Public Property _sdl_fullscreen() As Boolean + Public Property Publisher_id_Moby_Companies_USR() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn),Boolean) + 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 sdl-fullscreen in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_fullscreenColumn) = value + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) = value End Set End Property _ - Public Property _sdl_fulldouble() As Boolean + Public Property Developer_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn),Boolean) + 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 sdl-fulldouble in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_fulldoubleColumn) = value + Me(Me.tabletbl_Emu_Games.Developer_USRColumn) = value End Set End Property _ - Public Property _sdl_fullresolution() As String + Public Property Developer_id_Moby_Companies_USR() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn),String) + 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 sdl-fullresolution in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_fullresolutionColumn) = value + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) = value End Set End Property _ - Public Property _sdl_windowresolution() As String + Public Property Description_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn),String) + 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 sdl-windowresolution in Tabelle tbl_DOSBox_Configs ist DBNull"& _ - ".", e) + 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_DOSBox_Configs._sdl_windowresolutionColumn) = value + Me(Me.tabletbl_Emu_Games.Description_USRColumn) = value End Set End Property _ - Public Property _sdl_output() As String + Public Property Year_USR() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_outputColumn),String) + 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 sdl-output in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_outputColumn) = value + Me(Me.tabletbl_Emu_Games.Year_USRColumn) = value End Set End Property _ - Public Property _sdl_autolock() As Boolean + Public Property Version_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn),Boolean) + 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 sdl-autolock in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_autolockColumn) = value + Me(Me.tabletbl_Emu_Games.Version_USRColumn) = value End Set End Property _ - Public Property _sdl_sensitivity() As Long + Public Property Alt_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn),Long) + 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 sdl-sensitivity in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_sensitivityColumn) = value + Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = value End Set End Property _ - Public Property _sdl_waitonerror() As Boolean + Public Property Trainer_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn),Boolean) + 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 sdl-waitonerror in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_waitonerrorColumn) = value + Me(Me.tabletbl_Emu_Games.Trainer_USRColumn) = value End Set End Property _ - Public Property _sdl_priority_1() As String + Public Property Translation_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column),String) + 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 sdl-priority_1 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_priority_1Column) = value + Me(Me.tabletbl_Emu_Games.Translation_USRColumn) = value End Set End Property _ - Public Property _sdl_priority_2() As String + Public Property Hack_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column),String) + 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 sdl-priority_2 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_priority_2Column) = value + Me(Me.tabletbl_Emu_Games.Hack_USRColumn) = value End Set End Property _ - Public Property _sdl_mapperfile() As String + Public Property Bios_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn),String) + 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 sdl-mapperfile in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_mapperfileColumn) = value + Me(Me.tabletbl_Emu_Games.Bios_USRColumn) = value End Set End Property _ - Public Property _sdl_usescancodes() As Boolean + Public Property Prototype_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn),Boolean) + 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 sdl-usescancodes in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._sdl_usescancodesColumn) = value + Me(Me.tabletbl_Emu_Games.Prototype_USRColumn) = value End Set End Property _ - Public Property _dosbox_language() As String + Public Property Alpha_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn),String) + 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 dosbox-language in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._dosbox_languageColumn) = value + Me(Me.tabletbl_Emu_Games.Alpha_USRColumn) = value End Set End Property _ - Public Property _dosbox_machine() As String + Public Property Beta_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn),String) + 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 dosbox-machine in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._dosbox_machineColumn) = value + Me(Me.tabletbl_Emu_Games.Beta_USRColumn) = value End Set End Property _ - Public Property _dosbox_memsize() As Long + Public Property Sample_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn),Long) + 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 dosbox-memsize in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._dosbox_memsizeColumn) = value + Me(Me.tabletbl_Emu_Games.Sample_USRColumn) = value End Set End Property _ - Public Property _render_frameskip() As Long + Public Property Kiosk_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._render_frameskipColumn),Long) + 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 render-frameskip in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._render_frameskipColumn) = value + Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn) = value End Set End Property _ - Public Property _render_aspect() As Boolean + Public Property Unlicensed_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._render_aspectColumn),Boolean) + 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 render-aspect in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._render_aspectColumn) = value + Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) = value End Set End Property _ - Public Property _render_scaler() As String + Public Property Fixed_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._render_scalerColumn),String) + 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 render-scaler in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._render_scalerColumn) = value + Me(Me.tabletbl_Emu_Games.Fixed_USRColumn) = value End Set End Property _ - Public Property _render_scaler_forced() As Boolean + Public Property Pirated_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn),Boolean) + 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 render-scaler_forced in Tabelle tbl_DOSBox_Configs ist DBNull"& _ - ".", e) + 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_DOSBox_Configs._render_scaler_forcedColumn) = value + Me(Me.tabletbl_Emu_Games.Pirated_USRColumn) = value End Set End Property _ - Public Property _cpu_core() As String + Public Property Good_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_coreColumn),String) + 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 cpu-core in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._cpu_coreColumn) = value + Me(Me.tabletbl_Emu_Games.Good_USRColumn) = value End Set End Property _ - Public Property _cpu_cputype() As String + Public Property Bad_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn),String) + 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 cpu-cputype in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._cpu_cputypeColumn) = value + Me(Me.tabletbl_Emu_Games.Bad_USRColumn) = value End Set End Property _ - Public Property _cpu_cycles() As String + Public Property Overdump_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn),String) + 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 cpu-cycles in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._cpu_cyclesColumn) = value + Me(Me.tabletbl_Emu_Games.Overdump_USRColumn) = value End Set End Property _ - Public Property _cpu_cycleup() As Long + Public Property PublicDomain_USR() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn),Long) + 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 cpu-cycleup in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._cpu_cycleupColumn) = value + Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) = value End Set End Property _ - Public Property _cpu_cycledown() As Long + Public Property Name_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn),Long) + 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 cpu-cycledown in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._cpu_cycledownColumn) = value + Me(Me.tabletbl_Emu_Games.Name_USRColumn) = value End Set End Property _ - Public Property _mixer_nosound() As Boolean + Public Property Name_Prefix_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn),Boolean) + 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 mixer-nosound in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._mixer_nosoundColumn) = value + Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) = value End Set End Property _ - Public Property _mixer_rate() As String + Public Property Note_USR() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_rateColumn),String) + 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 mixer-rate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._mixer_rateColumn) = value + Me(Me.tabletbl_Emu_Games.Note_USRColumn) = value End Set End Property _ - Public Property _mixer_blocksize() As String + Public Property created() As Date Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn),String) + 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 mixer-blocksize in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._mixer_blocksizeColumn) = value + Me(Me.tabletbl_Emu_Games.createdColumn) = value End Set End Property _ - Public Property _mixer_prebuffer() As Long + Public Property Volume_Number() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn),Long) + 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 mixer-prebuffer in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._mixer_prebufferColumn) = value + Me(Me.tabletbl_Emu_Games.Volume_NumberColumn) = value End Set End Property _ - Public Property _midi_mpu401() As String + Public Property id_Emu_Games_Owner() As Long Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_mpu401Column),String) + 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 midi-mpu401 in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._midi_mpu401Column) = value + Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) = value End Set End Property _ - Public Property _midi_mididevice() As String + Public Property Filtered_Name() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn),String) + 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 midi-mididevice in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._midi_midideviceColumn) = value + Me(Me.tabletbl_Emu_Games.Filtered_NameColumn) = value End Set End Property _ - Public Property _midi_midiconfig() As String + Public Property deprecated() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn),String) + 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 midi-midiconfig in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + 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_DOSBox_Configs._midi_midiconfigColumn) = value + Me(Me.tabletbl_Emu_Games.deprecatedColumn) = value End Set End Property _ - Public Property _sblaster_sbtype() As String + Public Property tmp_Highlighted() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn),String) + Return CType(Me(Me.tabletbl_Emu_Games.tmp_HighlightedColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Highlighted in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) = value + Me(Me.tabletbl_Emu_Games.tmp_HighlightedColumn) = value End Set End Property _ - Public Property _sblaster_sbbase() As String + Public Property TDL_Subtitle() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn),String) + Return CType(Me(Me.tabletbl_Emu_Games.TDL_SubtitleColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TDL_Subtitle in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) = value + Me(Me.tabletbl_Emu_Games.TDL_SubtitleColumn) = value End Set End Property _ - Public Property _sblaster_irq() As String + Public Property TDL_Show_in_Menu() As Boolean Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn),String) + Return CType(Me(Me.tabletbl_Emu_Games.TDL_Show_in_MenuColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TDL_Show_in_Menu in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) = value + Me(Me.tabletbl_Emu_Games.TDL_Show_in_MenuColumn) = value End Set End Property _ - Public Property _sblaster_dma() As String + Public Property TDL_DisplayText() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn),String) + Return CType(Me(Me.tabletbl_Emu_Games.TDL_DisplayTextColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TDL_DisplayText in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) = value + Me(Me.tabletbl_Emu_Games.TDL_DisplayTextColumn) = value End Set End Property _ - Public Property _sblaster_hdma() As String + Public Property TDL_Sort() As Integer Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn),String) + Return CType(Me(Me.tabletbl_Emu_Games.TDL_SortColumn),Integer) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TDL_Sort in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) = value + Me(Me.tabletbl_Emu_Games.TDL_SortColumn) = value End Set End Property _ - Public Property _sblaster_sbmixer() As Boolean + Public Property tmp_DOSBox_DisplayText() As String Get Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn),Boolean) + Return CType(Me(Me.tabletbl_Emu_Games.tmp_DOSBox_DisplayTextColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_DOSBox_DisplayText in Tabelle tbl_Emu_Games ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) = value + Me(Me.tabletbl_Emu_Games.tmp_DOSBox_DisplayTextColumn) = 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 Function Isid_DOSBox_Configs_TemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) + End Function _ - 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 Sub Setid_DOSBox_Configs_TemplateNull() + Me(Me.tabletbl_Emu_Games.id_DOSBox_Configs_TemplateColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_DOSBox_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) + End Function _ - 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 Sub Setid_DOSBox_ConfigsNull() + Me(Me.tabletbl_Emu_Games.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_ScummVM_Configs_TemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) + End Function _ - 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 Sub Setid_ScummVM_Configs_TemplateNull() + Me(Me.tabletbl_Emu_Games.id_ScummVM_Configs_TemplateColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_ScummVM_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) + End Function _ - 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 Sub Setid_ScummVM_ConfigsNull() + Me(Me.tabletbl_Emu_Games.id_ScummVM_ConfigsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_Rombase_DOSBox_FiletypesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) + End Function _ - 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 Sub Setid_Rombase_DOSBox_FiletypesNull() + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_FiletypesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_Rombase_DOSBox_Exe_TypesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) + End Function _ - 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 Sub Setid_Rombase_DOSBox_Exe_TypesNull() + Me(Me.tabletbl_Emu_Games.id_Rombase_DOSBox_Exe_TypesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsUnavailableNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.UnavailableColumn) + End Function _ - 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 Sub SetUnavailableNull() + Me(Me.tabletbl_Emu_Games.UnavailableColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDOSBox_Mount_DestinationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) + End Function _ - 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 Sub SetDOSBox_Mount_DestinationNull() + Me(Me.tabletbl_Emu_Games.DOSBox_Mount_DestinationColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsHiddenNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.HiddenColumn) + End Function _ - 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 Sub SetHiddenNull() + Me(Me.tabletbl_Emu_Games.HiddenColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsMoby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) + End Function _ - 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 Sub SetMoby_Games_URLPartNull() + Me(Me.tabletbl_Emu_Games.Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) + End Function _ - 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 Sub Setid_Moby_PlatformsNull() + Me(Me.tabletbl_Emu_Games.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_Moby_Platforms_AlternativeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) + End Function _ - 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 Sub Setid_Moby_Platforms_AlternativeNull() + Me(Me.tabletbl_Emu_Games.id_Moby_Platforms_AlternativeColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FolderColumn) + End Function _ - 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 Sub SetFolderNull() + Me(Me.tabletbl_Emu_Games.FolderColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FileColumn) + End Function _ - 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 Sub SetFileNull() + Me(Me.tabletbl_Emu_Games.FileColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.InnerFileColumn) + End Function _ - 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 Sub SetInnerFileNull() + Me(Me.tabletbl_Emu_Games.InnerFileColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsSizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SizeColumn) + End Function _ - 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 Sub SetSizeNull() + Me(Me.tabletbl_Emu_Games.SizeColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCustomIdentifierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.CustomIdentifierColumn) + End Function _ - 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 Sub SetCustomIdentifierNull() + Me(Me.tabletbl_Emu_Games.CustomIdentifierColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCRC32Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.CRC32Column) + End Function _ - 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 Sub SetCRC32Null() + Me(Me.tabletbl_Emu_Games.CRC32Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsSHA1Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SHA1Column) + End Function _ - 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 Sub SetSHA1Null() + Me(Me.tabletbl_Emu_Games.SHA1Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsMD5Null() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.MD5Column) + End Function _ - 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 Sub SetMD5Null() + Me(Me.tabletbl_Emu_Games.MD5Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.NameColumn) + End Function _ - 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 Sub SetNameNull() + Me(Me.tabletbl_Emu_Games.NameColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsName_PrefixNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_PrefixColumn) + End Function _ - 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 Sub SetName_PrefixNull() + Me(Me.tabletbl_Emu_Games.Name_PrefixColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsNoteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.NoteColumn) + End Function _ - 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 Sub SetNoteNull() + Me(Me.tabletbl_Emu_Games.NoteColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublisherColumn) + End Function _ - 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 Sub SetPublisherNull() + Me(Me.tabletbl_Emu_Games.PublisherColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPublisher_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) + End Function _ - 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 Sub SetPublisher_id_Moby_CompaniesNull() + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DeveloperColumn) + End Function _ - 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 Sub SetDeveloperNull() + Me(Me.tabletbl_Emu_Games.DeveloperColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property _p_sdl_surfacenp_sharpness() As Integer - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_surfacenp-sharpness in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) = value - End Set - End Property + Public Function IsDeveloper_id_Moby_CompaniesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) + End Function _ - Public Property _p_sdl_surface_collapse_dbl() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_surface-collapse-dbl in Tabelle tbl_DOSBox_Configs ist "& _ - "DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) = value - End Set - End Property + Public Sub SetDeveloper_id_Moby_CompaniesNull() + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_CompaniesColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.DescriptionColumn) + End Function _ - 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 Sub SetDescriptionNull() + Me(Me.tabletbl_Emu_Games.DescriptionColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFavouriteNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FavouriteColumn) + End Function _ - 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 Sub SetFavouriteNull() + Me(Me.tabletbl_Emu_Games.FavouriteColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsRating_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GameplayColumn) + End Function _ - 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 Sub SetRating_GameplayNull() + Me(Me.tabletbl_Emu_Games.Rating_GameplayColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsRating_GraphicsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) + End Function _ - 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 Sub SetRating_GraphicsNull() + Me(Me.tabletbl_Emu_Games.Rating_GraphicsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsRating_SoundNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_SoundColumn) + End Function _ - 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 Sub SetRating_SoundNull() + Me(Me.tabletbl_Emu_Games.Rating_SoundColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsRating_StoryNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_StoryColumn) + End Function _ - 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 Sub SetRating_StoryNull() + Me(Me.tabletbl_Emu_Games.Rating_StoryColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_voodoo_voodoomem() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_voodoo_voodoomem in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) = value - End Set - End Property + Public Function IsRating_PersonalNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Rating_PersonalColumn) + End Function _ - 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 Sub SetRating_PersonalNull() + Me(Me.tabletbl_Emu_Games.Rating_PersonalColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsNum_PlayedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Num_PlayedColumn) + End Function _ - 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 Sub SetNum_PlayedNull() + Me(Me.tabletbl_Emu_Games.Num_PlayedColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsNum_RuntimeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Num_RuntimeColumn) + End Function _ - 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 Sub SetNum_RuntimeNull() + Me(Me.tabletbl_Emu_Games.Num_RuntimeColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsYearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.YearColumn) + End Function _ - 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 Sub SetYearNull() + Me(Me.tabletbl_Emu_Games.YearColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsVersionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.VersionColumn) + End Function _ - 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 Sub SetVersionNull() + Me(Me.tabletbl_Emu_Games.VersionColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsAltNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.AltColumn) + End Function _ - Public Property p_midi_mt32_romdir() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_romdir in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) = value - End Set - End Property + Public Sub SetAltNull() + Me(Me.tabletbl_Emu_Games.AltColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_mt32_chunk() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_chunk in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) = value - End Set - End Property + Public Function IsTrainerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TrainerColumn) + End Function _ - Public Property p_midi_mt32_prebuffer() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_prebuffer in Tabelle tbl_DOSBox_Configs ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) = value - End Set - End Property + Public Sub SetTrainerNull() + Me(Me.tabletbl_Emu_Games.TrainerColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_mt32_analog() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_analog in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) = value - End Set - End Property + Public Function IsTranslationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TranslationColumn) + End Function _ - Public Property p_midi_mt32_rate() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_rate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) = value - End Set - End Property + Public Sub SetTranslationNull() + Me(Me.tabletbl_Emu_Games.TranslationColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_mt32_src_quality() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_src_quality in Tabelle tbl_DOSBox_Configs ist DBN"& _ - "ull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) = value - End Set - End Property + Public Function IsHackNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.HackColumn) + End Function _ - Public Property p_midi_mt32_niceampramp() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_niceampramp in Tabelle tbl_DOSBox_Configs ist DBN"& _ - "ull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) = value - End Set - End Property + Public Sub SetHackNull() + Me(Me.tabletbl_Emu_Games.HackColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_soundfont() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_soundfont in Tabelle tbl_DOSBox_Configs ist DBNu"& _ - "ll.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) = value - End Set - End Property + Public Function IsBiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BiosColumn) + End Function _ - Public Property p_midi_fluid_samplerate() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_samplerate in Tabelle tbl_DOSBox_Configs ist DBN"& _ - "ull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) = value - End Set - End Property + Public Sub SetBiosNull() + Me(Me.tabletbl_Emu_Games.BiosColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_gain() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_gain in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) = value - End Set - End Property + Public Function IsPrototypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PrototypeColumn) + End Function _ - Public Property p_midi_fluid_polyphony() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_polyphony in Tabelle tbl_DOSBox_Configs ist DBNu"& _ - "ll.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) = value - End Set - End Property + Public Sub SetPrototypeNull() + Me(Me.tabletbl_Emu_Games.PrototypeColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_cores() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_cores in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) = value - End Set - End Property + Public Function IsAlphaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.AlphaColumn) + End Function _ - Public Property p_midi_fluid_periods() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_periods in Tabelle tbl_DOSBox_Configs ist DBNull"& _ - ".", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) = value - End Set - End Property + Public Sub SetAlphaNull() + Me(Me.tabletbl_Emu_Games.AlphaColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_periodsize() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_periodsize in Tabelle tbl_DOSBox_Configs ist DBN"& _ - "ull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) = value - End Set - End Property + Public Function IsBetaNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BetaColumn) + End Function _ - Public Property p_midi_fluid_reverb() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb in Tabelle tbl_DOSBox_Configs ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn) = value - End Set - End Property + Public Sub SetBetaNull() + Me(Me.tabletbl_Emu_Games.BetaColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_chorus() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus in Tabelle tbl_DOSBox_Configs ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) = value - End Set - End Property + Public Function IsSampleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.SampleColumn) + End Function _ - Public Property p_midi_fluid_reverb_roomsize() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_roomsize in Tabelle tbl_DOSBox_Configs is"& _ - "t DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) = value - End Set - End Property + Public Sub SetSampleNull() + Me(Me.tabletbl_Emu_Games.SampleColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_reverb_damping() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_damping in Tabelle tbl_DOSBox_Configs ist"& _ - " DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) = value - End Set - End Property + Public Function IsKioskNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.KioskColumn) + End Function _ - Public Property p_midi_fluid_reverb_width() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_width in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) = value - End Set - End Property + Public Sub SetKioskNull() + Me(Me.tabletbl_Emu_Games.KioskColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_reverb_level() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_level in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) = value - End Set - End Property + Public Function IsUnlicensedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.UnlicensedColumn) + End Function _ - Public Property p_midi_fluid_chorus_number() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_number in Tabelle tbl_DOSBox_Configs ist "& _ - "DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) = value - End Set - End Property + Public Sub SetUnlicensedNull() + Me(Me.tabletbl_Emu_Games.UnlicensedColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_chorus_level() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_level in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) = value - End Set - End Property + Public Function IsFixedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.FixedColumn) + End Function _ - Public Property p_midi_fluid_chorus_speed() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_speed in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) = value - End Set - End Property + Public Sub SetFixedNull() + Me(Me.tabletbl_Emu_Games.FixedColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_midi_fluid_chorus_depth() As Decimal - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn),Decimal) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_depth in Tabelle tbl_DOSBox_Configs ist D"& _ - "BNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) = value - End Set - End Property + Public Function IsPiratedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PiratedColumn) + End Function _ - Public Property p_midi_fluid_chorus_type() As Long - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_type in Tabelle tbl_DOSBox_Configs ist DB"& _ - "Null.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) = value - End Set - End Property + Public Sub SetPiratedNull() + Me(Me.tabletbl_Emu_Games.PiratedColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsGoodNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.GoodColumn) + End Function _ - 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 Sub SetGoodNull() + Me(Me.tabletbl_Emu_Games.GoodColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property p_sblaster_oplemu() As String - Get - Try - Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sblaster_oplemu in Tabelle tbl_DOSBox_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) = value - End Set - End Property + Public Function IsBadNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.BadColumn) + End Function _ - 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 Sub SetBadNull() + Me(Me.tabletbl_Emu_Games.BadColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsOverdumpNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.OverdumpColumn) + End Function _ - 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 Sub SetOverdumpNull() + Me(Me.tabletbl_Emu_Games.OverdumpColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPublicDomainNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomainColumn) + End Function _ - 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 Sub SetPublicDomainNull() + Me(Me.tabletbl_Emu_Games.PublicDomainColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsROMBASE_id_Moby_PlatformsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) + End Function _ - 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 Sub SetROMBASE_id_Moby_PlatformsNull() + Me(Me.tabletbl_Emu_Games.ROMBASE_id_Moby_PlatformsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_RombaseNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_RombaseColumn) + End Function _ - 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 Sub Setid_RombaseNull() + Me(Me.tabletbl_Emu_Games.id_RombaseColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_EmulatorsColumn) + End Function _ - 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 Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emu_Games.id_EmulatorsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPublisher_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_USRColumn) + End Function _ - 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 Sub SetPublisher_USRNull() + Me(Me.tabletbl_Emu_Games.Publisher_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPublisher_id_Moby_Companies_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) + End Function _ - 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 Sub SetPublisher_id_Moby_Companies_USRNull() + Me(Me.tabletbl_Emu_Games.Publisher_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDeveloper_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_USRColumn) + End Function _ - 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 Sub SetDeveloper_USRNull() + Me(Me.tabletbl_Emu_Games.Developer_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDeveloper_id_Moby_Companies_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) + End Function _ - 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 Sub SetDeveloper_id_Moby_Companies_USRNull() + Me(Me.tabletbl_Emu_Games.Developer_id_Moby_Companies_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsDescription_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Description_USRColumn) + End Function _ - 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 Sub SetDescription_USRNull() + Me(Me.tabletbl_Emu_Games.Description_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsYear_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Year_USRColumn) + End Function _ - 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 Sub SetYear_USRNull() + Me(Me.tabletbl_Emu_Games.Year_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsVersion_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Version_USRColumn) + End Function _ - 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 Sub SetVersion_USRNull() + Me(Me.tabletbl_Emu_Games.Version_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsAlt_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Alt_USRColumn) + End Function _ - 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 Sub SetAlt_USRNull() + Me(Me.tabletbl_Emu_Games.Alt_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsTrainer_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Trainer_USRColumn) + End Function _ - 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 Sub SetTrainer_USRNull() + Me(Me.tabletbl_Emu_Games.Trainer_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsTranslation_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Translation_USRColumn) + End Function _ - 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 Sub SetTranslation_USRNull() + Me(Me.tabletbl_Emu_Games.Translation_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsHack_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Hack_USRColumn) + End Function _ - 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 Sub SetHack_USRNull() + Me(Me.tabletbl_Emu_Games.Hack_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsBios_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Bios_USRColumn) + End Function _ - 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 Sub SetBios_USRNull() + Me(Me.tabletbl_Emu_Games.Bios_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsPrototype_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Prototype_USRColumn) + End Function _ - 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 Sub SetPrototype_USRNull() + Me(Me.tabletbl_Emu_Games.Prototype_USRColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsAlpha_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Alpha_USRColumn) + End Function _ - 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 Sub SetAlpha_USRNull() + Me(Me.tabletbl_Emu_Games.Alpha_USRColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function Isid_DOSBox_ConfigsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn) + Public Function IsBeta_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Beta_USRColumn) End Function _ - Public Sub Setid_DOSBox_ConfigsNull() - Me(Me.tabletbl_DOSBox_Configs.id_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + Public Sub SetBeta_USRNull() + Me(Me.tabletbl_Emu_Games.Beta_USRColumn) = 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) + Public Function IsSample_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Sample_USRColumn) End Function _ - Public Sub Setid_Rombase_DOSBox_ConfigsNull() - Me(Me.tabletbl_DOSBox_Configs.id_Rombase_DOSBox_ConfigsColumn) = Global.System.Convert.DBNull + Public Sub SetSample_USRNull() + Me(Me.tabletbl_Emu_Games.Sample_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsisTemplateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.isTemplateColumn) + Public Function IsKiosk_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Kiosk_USRColumn) End Function _ - Public Sub SetisTemplateNull() - Me(Me.tabletbl_DOSBox_Configs.isTemplateColumn) = Global.System.Convert.DBNull + Public Sub SetKiosk_USRNull() + Me(Me.tabletbl_Emu_Games.Kiosk_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDisplaynameNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.DisplaynameColumn) + Public Function IsUnlicensed_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) End Function _ - Public Sub SetDisplaynameNull() - Me(Me.tabletbl_DOSBox_Configs.DisplaynameColumn) = Global.System.Convert.DBNull + Public Sub SetUnlicensed_USRNull() + Me(Me.tabletbl_Emu_Games.Unlicensed_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_fullscreenNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn) + Public Function IsFixed_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Fixed_USRColumn) End Function _ - Public Sub Set_sdl_fullscreenNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_fullscreenColumn) = Global.System.Convert.DBNull + Public Sub SetFixed_USRNull() + Me(Me.tabletbl_Emu_Games.Fixed_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_fulldoubleNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn) + Public Function IsPirated_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Pirated_USRColumn) End Function _ - Public Sub Set_sdl_fulldoubleNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_fulldoubleColumn) = Global.System.Convert.DBNull + Public Sub SetPirated_USRNull() + Me(Me.tabletbl_Emu_Games.Pirated_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_fullresolutionNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn) + Public Function IsGood_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Good_USRColumn) End Function _ - Public Sub Set_sdl_fullresolutionNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_fullresolutionColumn) = Global.System.Convert.DBNull + Public Sub SetGood_USRNull() + Me(Me.tabletbl_Emu_Games.Good_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_windowresolutionNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn) + Public Function IsBad_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Bad_USRColumn) End Function _ - Public Sub Set_sdl_windowresolutionNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_windowresolutionColumn) = Global.System.Convert.DBNull + Public Sub SetBad_USRNull() + Me(Me.tabletbl_Emu_Games.Bad_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_outputNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_outputColumn) + Public Function IsOverdump_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Overdump_USRColumn) End Function _ - Public Sub Set_sdl_outputNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_outputColumn) = Global.System.Convert.DBNull + Public Sub SetOverdump_USRNull() + Me(Me.tabletbl_Emu_Games.Overdump_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_autolockNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn) + Public Function IsPublicDomain_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) End Function _ - Public Sub Set_sdl_autolockNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_autolockColumn) = Global.System.Convert.DBNull + Public Sub SetPublicDomain_USRNull() + Me(Me.tabletbl_Emu_Games.PublicDomain_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_sensitivityNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn) + Public Function IsName_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_USRColumn) End Function _ - Public Sub Set_sdl_sensitivityNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_sensitivityColumn) = Global.System.Convert.DBNull + Public Sub SetName_USRNull() + Me(Me.tabletbl_Emu_Games.Name_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_waitonerrorNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn) + Public Function IsName_Prefix_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) End Function _ - Public Sub Set_sdl_waitonerrorNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_waitonerrorColumn) = Global.System.Convert.DBNull + Public Sub SetName_Prefix_USRNull() + Me(Me.tabletbl_Emu_Games.Name_Prefix_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_priority_1Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column) + Public Function IsNote_USRNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Note_USRColumn) End Function _ - Public Sub Set_sdl_priority_1Null() - Me(Me.tabletbl_DOSBox_Configs._sdl_priority_1Column) = Global.System.Convert.DBNull + Public Sub SetNote_USRNull() + Me(Me.tabletbl_Emu_Games.Note_USRColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_priority_2Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column) + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.createdColumn) End Function _ - Public Sub Set_sdl_priority_2Null() - Me(Me.tabletbl_DOSBox_Configs._sdl_priority_2Column) = Global.System.Convert.DBNull + Public Sub SetcreatedNull() + Me(Me.tabletbl_Emu_Games.createdColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_mapperfileNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn) + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Volume_NumberColumn) End Function _ - Public Sub Set_sdl_mapperfileNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_mapperfileColumn) = Global.System.Convert.DBNull + Public Sub SetVolume_NumberNull() + Me(Me.tabletbl_Emu_Games.Volume_NumberColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sdl_usescancodesNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn) + Public Function Isid_Emu_Games_OwnerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) End Function _ - Public Sub Set_sdl_usescancodesNull() - Me(Me.tabletbl_DOSBox_Configs._sdl_usescancodesColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_Games_OwnerNull() + Me(Me.tabletbl_Emu_Games.id_Emu_Games_OwnerColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dosbox_languageNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn) + Public Function IsFiltered_NameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.Filtered_NameColumn) End Function _ - Public Sub Set_dosbox_languageNull() - Me(Me.tabletbl_DOSBox_Configs._dosbox_languageColumn) = Global.System.Convert.DBNull + Public Sub SetFiltered_NameNull() + Me(Me.tabletbl_Emu_Games.Filtered_NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dosbox_machineNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn) + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.deprecatedColumn) End Function _ - Public Sub Set_dosbox_machineNull() - Me(Me.tabletbl_DOSBox_Configs._dosbox_machineColumn) = Global.System.Convert.DBNull + Public Sub SetdeprecatedNull() + Me(Me.tabletbl_Emu_Games.deprecatedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dosbox_memsizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn) + Public Function Istmp_HighlightedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.tmp_HighlightedColumn) End Function _ - Public Sub Set_dosbox_memsizeNull() - Me(Me.tabletbl_DOSBox_Configs._dosbox_memsizeColumn) = Global.System.Convert.DBNull + Public Sub Settmp_HighlightedNull() + Me(Me.tabletbl_Emu_Games.tmp_HighlightedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_render_frameskipNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_frameskipColumn) + Public Function IsTDL_SubtitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TDL_SubtitleColumn) End Function _ - Public Sub Set_render_frameskipNull() - Me(Me.tabletbl_DOSBox_Configs._render_frameskipColumn) = Global.System.Convert.DBNull + Public Sub SetTDL_SubtitleNull() + Me(Me.tabletbl_Emu_Games.TDL_SubtitleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_render_aspectNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_aspectColumn) + Public Function IsTDL_Show_in_MenuNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TDL_Show_in_MenuColumn) End Function _ - Public Sub Set_render_aspectNull() - Me(Me.tabletbl_DOSBox_Configs._render_aspectColumn) = Global.System.Convert.DBNull + Public Sub SetTDL_Show_in_MenuNull() + Me(Me.tabletbl_Emu_Games.TDL_Show_in_MenuColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_render_scalerNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_scalerColumn) + Public Function IsTDL_DisplayTextNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TDL_DisplayTextColumn) End Function _ - Public Sub Set_render_scalerNull() - Me(Me.tabletbl_DOSBox_Configs._render_scalerColumn) = Global.System.Convert.DBNull + Public Sub SetTDL_DisplayTextNull() + Me(Me.tabletbl_Emu_Games.TDL_DisplayTextColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_render_scaler_forcedNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn) + Public Function IsTDL_SortNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.TDL_SortColumn) End Function _ - Public Sub Set_render_scaler_forcedNull() - Me(Me.tabletbl_DOSBox_Configs._render_scaler_forcedColumn) = Global.System.Convert.DBNull + Public Sub SetTDL_SortNull() + Me(Me.tabletbl_Emu_Games.TDL_SortColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_cpu_coreNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_coreColumn) + Public Function Istmp_DOSBox_DisplayTextNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games.tmp_DOSBox_DisplayTextColumn) End Function _ - Public Sub Set_cpu_coreNull() - Me(Me.tabletbl_DOSBox_Configs._cpu_coreColumn) = Global.System.Convert.DBNull + Public Sub Settmp_DOSBox_DisplayTextNull() + Me(Me.tabletbl_Emu_Games.tmp_DOSBox_DisplayTextColumn) = 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 _ - Public Function Is_cpu_cputypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn) - End Function + 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 Sub Set_cpu_cputypeNull() - Me(Me.tabletbl_DOSBox_Configs._cpu_cputypeColumn) = Global.System.Convert.DBNull - 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 Function Is_cpu_cyclesNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn) - End Function + 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 Sub Set_cpu_cyclesNull() - Me(Me.tabletbl_DOSBox_Configs._cpu_cyclesColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_cpu_cycleupNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) End Function _ - Public Sub Set_cpu_cycleupNull() - Me(Me.tabletbl_DOSBox_Configs._cpu_cycleupColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Emu_Games_Languages.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_cpu_cycledownNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn) + Public Function Isid_LanguagesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Languages.id_LanguagesColumn) End Function _ - Public Sub Set_cpu_cycledownNull() - Me(Me.tabletbl_DOSBox_Configs._cpu_cycledownColumn) = Global.System.Convert.DBNull + 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 _ - Public Function Is_mixer_nosoundNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn) - End Function + 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 Sub Set_mixer_nosoundNull() - Me(Me.tabletbl_DOSBox_Configs._mixer_nosoundColumn) = Global.System.Convert.DBNull - 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 Function Is_mixer_rateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_rateColumn) - End Function + 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 Sub Set_mixer_rateNull() - Me(Me.tabletbl_DOSBox_Configs._mixer_rateColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_mixer_blocksizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) End Function _ - Public Sub Set_mixer_blocksizeNull() - Me(Me.tabletbl_DOSBox_Configs._mixer_blocksizeColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Emu_Games_Regions.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_mixer_prebufferNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn) + Public Function Isid_RegionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Regions.id_RegionsColumn) End Function _ - Public Sub Set_mixer_prebufferNull() - Me(Me.tabletbl_DOSBox_Configs._mixer_prebufferColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_midi_mpu401Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_mpu401Column) - End Function + Private tabletbl_Emu_Games_Edit_Languages As tbl_Emu_Games_Edit_LanguagesDataTable _ - Public Sub Set_midi_mpu401Null() - Me(Me.tabletbl_DOSBox_Configs._midi_mpu401Column) = Global.System.Convert.DBNull + 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 Function Is_midi_midideviceNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn) - End Function + 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 Sub Set_midi_midideviceNull() - Me(Me.tabletbl_DOSBox_Configs._midi_midideviceColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_midi_midiconfigNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn) - End Function + 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 Sub Set_midi_midiconfigNull() - Me(Me.tabletbl_DOSBox_Configs._midi_midiconfigColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_sblaster_sbtypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) + Public Function Isid_LanguagesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) End Function _ - Public Sub Set_sblaster_sbtypeNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbtypeColumn) = Global.System.Convert.DBNull + Public Sub Setid_LanguagesNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.id_LanguagesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sblaster_sbbaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) + Public Function IsLanguage_ShortNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn) End Function _ - Public Sub Set_sblaster_sbbaseNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbbaseColumn) = Global.System.Convert.DBNull + Public Sub SetLanguage_ShortNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.Language_ShortColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sblaster_irqNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) + Public Function IsLanguageNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn) End Function _ - Public Sub Set_sblaster_irqNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_irqColumn) = Global.System.Convert.DBNull + Public Sub SetLanguageNull() + Me(Me.tabletbl_Emu_Games_Edit_Languages.LanguageColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sblaster_dmaNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Languages.UsedColumn) End Function _ - Public Sub Set_sblaster_dmaNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_dmaColumn) = Global.System.Convert.DBNull + 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 _ - Public Function Is_sblaster_hdmaNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) - End Function + 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 Sub Set_sblaster_hdmaNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_hdmaColumn) = Global.System.Convert.DBNull - 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 Function Is_sblaster_sbmixerNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) - End Function + 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 Sub Set_sblaster_sbmixerNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_sbmixerColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_sblaster_oplmodeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn) + Public Function Isid_RegionsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) End Function _ - Public Sub Set_sblaster_oplmodeNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_oplmodeColumn) = Global.System.Convert.DBNull + Public Sub Setid_RegionsNull() + Me(Me.tabletbl_Emu_Games_Edit_Regions.id_RegionsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sblaster_oplemuNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn) + Public Function Is_RegionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) End Function _ - Public Sub Set_sblaster_oplemuNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_oplemuColumn) = Global.System.Convert.DBNull + Public Sub Set_RegionNull() + Me(Me.tabletbl_Emu_Games_Edit_Regions.RegionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_sblaster_oplrateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn) + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Regions.UsedColumn) End Function _ - Public Sub Set_sblaster_oplrateNull() - Me(Me.tabletbl_DOSBox_Configs._sblaster_oplrateColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_gus_gusNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusColumn) - End Function + Private tabletbl_Emu_Games_Edit_Default_Emulator As tbl_Emu_Games_Edit_Default_EmulatorDataTable _ - Public Sub Set_gus_gusNull() - Me(Me.tabletbl_DOSBox_Configs._gus_gusColumn) = Global.System.Convert.DBNull + 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 Function Is_gus_gusrateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn) - End Function + 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 Sub Set_gus_gusrateNull() - Me(Me.tabletbl_DOSBox_Configs._gus_gusrateColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_gus_gusbaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn) - End Function + 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 Sub Set_gus_gusbaseNull() - Me(Me.tabletbl_DOSBox_Configs._gus_gusbaseColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_gus_gusirqNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn) + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn) End Function _ - Public Sub Set_gus_gusirqNull() - Me(Me.tabletbl_DOSBox_Configs._gus_gusirqColumn) = Global.System.Convert.DBNull + Public Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.id_EmulatorsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_gus_gusdmaNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn) + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn) End Function _ - Public Sub Set_gus_gusdmaNull() - Me(Me.tabletbl_DOSBox_Configs._gus_gusdmaColumn) = Global.System.Convert.DBNull + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.DisplaynameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_gus_ultradirNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn) + Public Function IsUsedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn) End Function _ - Public Sub Set_gus_ultradirNull() - Me(Me.tabletbl_DOSBox_Configs._gus_ultradirColumn) = Global.System.Convert.DBNull + Public Sub SetUsedNull() + Me(Me.tabletbl_Emu_Games_Edit_Default_Emulator.UsedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_speaker_pcspeakerNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn) + Public Function IsIsGlobalDefaultNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Edit_Default_Emulator.IsGlobalDefaultColumn) End Function _ - Public Sub Set_speaker_pcspeakerNull() - Me(Me.tabletbl_DOSBox_Configs._speaker_pcspeakerColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_speaker_pcrateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn) - End Function + Private tabletbl_History As tbl_HistoryDataTable _ - Public Sub Set_speaker_pcrateNull() - Me(Me.tabletbl_DOSBox_Configs._speaker_pcrateColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_History = CType(Me.Table,tbl_HistoryDataTable) 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 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 Function Is_speaker_tandyrateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn) - End Function + 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 Sub Set_speaker_tandyrateNull() - Me(Me.tabletbl_DOSBox_Configs._speaker_tandyrateColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_speaker_disneyNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn) - End Function + 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 Sub Set_speaker_disneyNull() - Me(Me.tabletbl_DOSBox_Configs._speaker_disneyColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_joystick_joysticktypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.id_Emu_GamesColumn) End Function _ - Public Sub Set_joystick_joysticktypeNull() - Me(Me.tabletbl_DOSBox_Configs._joystick_joysticktypeColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_History.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_joystick_timedNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_timedColumn) + Public Function IsStartNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.StartColumn) End Function _ - Public Sub Set_joystick_timedNull() - Me(Me.tabletbl_DOSBox_Configs._joystick_timedColumn) = Global.System.Convert.DBNull + Public Sub SetStartNull() + Me(Me.tabletbl_History.StartColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_joystick_autofireNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn) + Public Function Is_EndNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.EndColumn) End Function _ - Public Sub Set_joystick_autofireNull() - Me(Me.tabletbl_DOSBox_Configs._joystick_autofireColumn) = Global.System.Convert.DBNull + Public Sub Set_EndNull() + Me(Me.tabletbl_History.EndColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_joystick_swap34Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_swap34Column) + Public Function IsRuntimeNull() As Boolean + Return Me.IsNull(Me.tabletbl_History.RuntimeColumn) End Function _ - Public Sub Set_joystick_swap34Null() - Me(Me.tabletbl_DOSBox_Configs._joystick_swap34Column) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_joystick_buttonwrapNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn) - End Function + Private tabletbl_ImageEditorTemplates As tbl_ImageEditorTemplatesDataTable _ - Public Sub Set_joystick_buttonwrapNull() - Me(Me.tabletbl_DOSBox_Configs._joystick_buttonwrapColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ImageEditorTemplates = CType(Me.Table,tbl_ImageEditorTemplatesDataTable) End Sub _ - Public Function Is_serial_serial1Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial1Column) - End Function + 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 Sub Set_serial_serial1Null() - Me(Me.tabletbl_DOSBox_Configs._serial_serial1Column) = Global.System.Convert.DBNull - End Sub + 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 Function Is_serial_serial2Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial2Column) - End Function + 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 Sub Set_serial_serial2Null() - Me(Me.tabletbl_DOSBox_Configs._serial_serial2Column) = Global.System.Convert.DBNull - End Sub + 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 Function Is_serial_serial3Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial3Column) - End Function + 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 Sub Set_serial_serial3Null() - Me(Me.tabletbl_DOSBox_Configs._serial_serial3Column) = Global.System.Convert.DBNull - End Sub + 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 Is_serial_serial4Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._serial_serial4Column) + Public Function IsTopNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.TopColumn) End Function _ - Public Sub Set_serial_serial4Null() - Me(Me.tabletbl_DOSBox_Configs._serial_serial4Column) = Global.System.Convert.DBNull + Public Sub SetTopNull() + Me(Me.tabletbl_ImageEditorTemplates.TopColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dos_xmsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_xmsColumn) + Public Function IsBottomNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.BottomColumn) End Function _ - Public Sub Set_dos_xmsNull() - Me(Me.tabletbl_DOSBox_Configs._dos_xmsColumn) = Global.System.Convert.DBNull + Public Sub SetBottomNull() + Me(Me.tabletbl_ImageEditorTemplates.BottomColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dos_emsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_emsColumn) + Public Function IsLeftNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.LeftColumn) End Function _ - Public Sub Set_dos_emsNull() - Me(Me.tabletbl_DOSBox_Configs._dos_emsColumn) = Global.System.Convert.DBNull + Public Sub SetLeftNull() + Me(Me.tabletbl_ImageEditorTemplates.LeftColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dos_umbNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_umbColumn) + Public Function IsRightNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.RightColumn) End Function _ - Public Sub Set_dos_umbNull() - Me(Me.tabletbl_DOSBox_Configs._dos_umbColumn) = Global.System.Convert.DBNull + Public Sub SetRightNull() + Me(Me.tabletbl_ImageEditorTemplates.RightColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_dos_keyboardlayoutNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn) + Public Function IsTitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_ImageEditorTemplates.TitleColumn) End Function _ - Public Sub Set_dos_keyboardlayoutNull() - Me(Me.tabletbl_DOSBox_Configs._dos_keyboardlayoutColumn) = Global.System.Convert.DBNull + 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 _ - Public Function Is_ipx_ipxNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn) - End Function + 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 Sub Set_ipx_ipxNull() - Me(Me.tabletbl_DOSBox_Configs._ipx_ipxColumn) = Global.System.Convert.DBNull - 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 Function Is_autoexec_beforeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn) - End Function + 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 Sub Set_autoexec_beforeNull() - Me(Me.tabletbl_DOSBox_Configs._autoexec_beforeColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_autoexec_afterNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn) + Public Function Isid_Moby_Game_GroupsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) End Function _ - Public Sub Set_autoexec_afterNull() - Me(Me.tabletbl_DOSBox_Configs._autoexec_afterColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_Game_GroupsNull() + Me(Me.tablesrc_ucr_Emulation_GameGroups.id_Moby_Game_GroupsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_ml_autocloseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn) + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn) End Function _ - Public Sub Set_ml_autocloseNull() - Me(Me.tabletbl_DOSBox_Configs._ml_autocloseColumn) = Global.System.Convert.DBNull + Public Sub SetNameNull() + Me(Me.tablesrc_ucr_Emulation_GameGroups.NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_ml_showconsoleNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn) + Public Function IsGameCountNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_GameGroups.GameCountColumn) End Function _ - Public Sub Set_ml_showconsoleNull() - Me(Me.tabletbl_DOSBox_Configs._ml_showconsoleColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_ml_customsettingsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn) - End Function + Private tablesrc_ucr_Emulation_cmb_Groups As src_ucr_Emulation_cmb_GroupsDataTable _ - Public Sub Set_ml_customsettingsNull() - Me(Me.tabletbl_DOSBox_Configs._ml_customsettingsColumn) = Global.System.Convert.DBNull + 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 Function Is_ml_useloadfixNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn) - End Function + 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 Sub Set_ml_useloadfixNull() - Me(Me.tabletbl_DOSBox_Configs._ml_useloadfixColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_ml_loadfixNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn) + 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 Set_ml_loadfixNull() - Me(Me.tabletbl_DOSBox_Configs._ml_loadfixColumn) = Global.System.Convert.DBNull + 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 Is_ml_volume_master_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn) + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Groups.NameColumn) End Function _ - Public Sub Set_ml_volume_master_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_leftColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Is_ml_volume_master_rightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn) - End Function + Private tabletbl_Mame_Roms As tbl_Mame_RomsDataTable _ - Public Sub Set_ml_volume_master_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_master_rightColumn) = Global.System.Convert.DBNull + 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 Function Is_ml_volume_spkr_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn) - End Function + 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 Sub Set_ml_volume_spkr_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_leftColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_spkr_rightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn) - End Function + 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 Sub Set_ml_volume_spkr_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_spkr_rightColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_sb_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn) - End Function + 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 Sub Set_ml_volume_sb_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_sb_leftColumn) = Global.System.Convert.DBNull - End Sub + 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 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 Property is_allowed_by_filter_ini() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte is_allowed_by_filter_ini in Tabelle tbl_Mame_Roms ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn) = value + End Set + End Property _ - Public Function Is_ml_volume_disney_rightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn) - End Function + 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 Sub Set_ml_volume_disney_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_disney_rightColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_gus_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn) - End Function + 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 Sub Set_ml_volume_gus_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_leftColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_gus_rightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn) - End Function + 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 Sub Set_ml_volume_gus_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_gus_rightColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_fm_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn) - End Function + 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 Sub Set_ml_volume_fm_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_leftColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_ml_volume_fm_rightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn) - End Function + 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 Sub Set_ml_volume_fm_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_fm_rightColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_ml_volume_cdaudio_leftNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn) + Public Function IsnameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.nameColumn) End Function _ - Public Sub Set_ml_volume_cdaudio_leftNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_leftColumn) = Global.System.Convert.DBNull + Public Sub SetnameNull() + Me(Me.tabletbl_Mame_Roms.nameColumn) = 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) + Public Function IsdescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.descriptionColumn) End Function _ - Public Sub Set_ml_volume_cdaudio_rightNull() - Me(Me.tabletbl_DOSBox_Configs._ml_volume_cdaudio_rightColumn) = Global.System.Convert.DBNull + Public Sub SetdescriptionNull() + Me(Me.tabletbl_Mame_Roms.descriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sdl_pixelshaderNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn) + Public Function IsyearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.yearColumn) End Function _ - Public Sub Setp_sdl_pixelshaderNull() - Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshaderColumn) = Global.System.Convert.DBNull + Public Sub SetyearNull() + Me(Me.tabletbl_Mame_Roms.yearColumn) = 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) + Public Function IsmanufacturerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.manufacturerColumn) End Function _ - Public Sub Setp_sdl_pixelshader_forcedNull() - Me(Me.tabletbl_DOSBox_Configs.p_sdl_pixelshader_forcedColumn) = Global.System.Convert.DBNull + Public Sub SetmanufacturerNull() + Me(Me.tabletbl_Mame_Roms.manufacturerColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sdl_outputNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn) + Public Function IssourcefileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.sourcefileColumn) End Function _ - Public Sub Setp_sdl_outputNull() - Me(Me.tabletbl_DOSBox_Configs.p_sdl_outputColumn) = Global.System.Convert.DBNull + Public Sub SetsourcefileNull() + Me(Me.tabletbl_Mame_Roms.sourcefileColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_p_sdl_surfacenp_sharpnessNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) + Public Function Isis_allowed_by_filter_iniNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn) End Function _ - Public Sub Set_p_sdl_surfacenp_sharpnessNull() - Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) = Global.System.Convert.DBNull + Public Sub Setis_allowed_by_filter_iniNull() + Me(Me.tabletbl_Mame_Roms.is_allowed_by_filter_iniColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_p_sdl_surface_collapse_dblNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) + Public Function IsisbiosNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.isbiosColumn) End Function _ - Public Sub Set_p_sdl_surface_collapse_dblNull() - Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) = Global.System.Convert.DBNull + Public Sub SetisbiosNull() + Me(Me.tabletbl_Mame_Roms.isbiosColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_dosbox_vmemsizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn) + Public Function IsisdeviceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.isdeviceColumn) End Function _ - Public Sub Setp_dosbox_vmemsizeNull() - Me(Me.tabletbl_DOSBox_Configs.p_dosbox_vmemsizeColumn) = Global.System.Convert.DBNull + Public Sub SetisdeviceNull() + Me(Me.tabletbl_Mame_Roms.isdeviceColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_dosbox_memsizekbNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn) + Public Function IsismechanicalNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.ismechanicalColumn) End Function _ - Public Sub Setp_dosbox_memsizekbNull() - Me(Me.tabletbl_DOSBox_Configs.p_dosbox_memsizekbColumn) = Global.System.Convert.DBNull + Public Sub SetismechanicalNull() + Me(Me.tabletbl_Mame_Roms.ismechanicalColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_dosbox_forcerateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn) + Public Function IsissoftwarelistNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.issoftwarelistColumn) End Function _ - Public Sub Setp_dosbox_forcerateNull() - Me(Me.tabletbl_DOSBox_Configs.p_dosbox_forcerateColumn) = Global.System.Convert.DBNull + Public Sub SetissoftwarelistNull() + Me(Me.tabletbl_Mame_Roms.issoftwarelistColumn) = 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) + Public Function IshasdisplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.hasdisplayColumn) End Function _ - Public Sub Setp_dosbox_pit_hackNull() - Me(Me.tabletbl_DOSBox_Configs.p_dosbox_pit_hackColumn) = Global.System.Convert.DBNull + Public Sub SethasdisplayNull() + Me(Me.tabletbl_Mame_Roms.hasdisplayColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_render_scalerNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn) + Public Function IsrunnableNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.runnableColumn) End Function _ - Public Sub Setp_render_scalerNull() - Me(Me.tabletbl_DOSBox_Configs.p_render_scalerColumn) = Global.System.Convert.DBNull + Public Sub SetrunnableNull() + Me(Me.tabletbl_Mame_Roms.runnableColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_render_autofitNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn) + Public Function IscloneofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.cloneofColumn) End Function _ - Public Sub Setp_render_autofitNull() - Me(Me.tabletbl_DOSBox_Configs.p_render_autofitColumn) = Global.System.Convert.DBNull + Public Sub SetcloneofNull() + Me(Me.tabletbl_Mame_Roms.cloneofColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_vsync_vsyncmodeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn) + Public Function IsromofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.romofColumn) End Function _ - Public Sub Setp_vsync_vsyncmodeNull() - Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncmodeColumn) = Global.System.Convert.DBNull + Public Sub SetromofNull() + Me(Me.tabletbl_Mame_Roms.romofColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_vsync_vsyncrateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn) + Public Function IssampleofNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.sampleofColumn) End Function _ - Public Sub Setp_vsync_vsyncrateNull() - Me(Me.tabletbl_DOSBox_Configs.p_vsync_vsyncrateColumn) = Global.System.Convert.DBNull + Public Sub SetsampleofNull() + Me(Me.tabletbl_Mame_Roms.sampleofColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_cpu_cputypeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn) + Public Function IsmameinfoNull() As Boolean + Return Me.IsNull(Me.tabletbl_Mame_Roms.mameinfoColumn) End Function _ - Public Sub Setp_cpu_cputypeNull() - Me(Me.tabletbl_DOSBox_Configs.p_cpu_cputypeColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Isp_keyboard_auxNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn) - End Function + Private tablettb_Tag_Parser_Volumes As ttb_Tag_Parser_VolumesDataTable _ - Public Sub Setp_keyboard_auxNull() - Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxColumn) = Global.System.Convert.DBNull + 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 Function Isp_keyboard_auxdeviceNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn) - End Function + 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 Sub Setp_keyboard_auxdeviceNull() - Me(Me.tabletbl_DOSBox_Configs.p_keyboard_auxdeviceColumn) = Global.System.Convert.DBNull - End Sub + 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 Isp_voodooNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_voodooColumn) + Public Function Isid_Tag_Parser_VolumesNull() As Boolean + Return Me.IsNull(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) End Function _ - Public Sub Setp_voodooNull() - Me(Me.tabletbl_DOSBox_Configs.p_voodooColumn) = Global.System.Convert.DBNull + Public Sub Setid_Tag_Parser_VolumesNull() + Me(Me.tablettb_Tag_Parser_Volumes.id_Tag_Parser_VolumesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_voodoo_voodoomemNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) + Public Function IsDisplayTextNull() As Boolean + Return Me.IsNull(Me.tablettb_Tag_Parser_Volumes.DisplayTextColumn) End Function _ - Public Sub Setp_voodoo_voodoomemNull() - Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Isp_mixer_swapstereoNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn) - End Function + Private tabletbl_Emulators_Multivolume_Parameters As tbl_Emulators_Multivolume_ParametersDataTable _ - Public Sub Setp_mixer_swapstereoNull() - Me(Me.tabletbl_DOSBox_Configs.p_mixer_swapstereoColumn) = Global.System.Convert.DBNull + 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 Function Isp_midi_midideviceNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn) - End Function + 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 Sub Setp_midi_midideviceNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_midideviceColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_reverse_stereoNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn) - End Function + 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 Sub Setp_midi_mt32_reverse_stereoNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverse_stereoColumn) = Global.System.Convert.DBNull - End Sub + 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 Isp_midi_mt32_verboseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn) + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn) End Function _ - Public Sub Setp_midi_mt32_verboseNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_verboseColumn) = Global.System.Convert.DBNull + Public Sub Setid_EmulatorsNull() + Me(Me.tabletbl_Emulators_Multivolume_Parameters.id_EmulatorsColumn) = 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) + Public Function IsVolume_NumberNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn) End Function _ - Public Sub Setp_midi_mt32_threadNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_threadColumn) = Global.System.Convert.DBNull + Public Sub SetVolume_NumberNull() + Me(Me.tabletbl_Emulators_Multivolume_Parameters.Volume_NumberColumn) = 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) + Public Function IsParameterNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emulators_Multivolume_Parameters.ParameterColumn) End Function _ - Public Sub Setp_midi_mt32_dacNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_dacColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Isp_midi_mt32_reverb_modeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn) - End Function + Private tabletbl_DOSBox_Configs As tbl_DOSBox_ConfigsDataTable _ - Public Sub Setp_midi_mt32_reverb_modeNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_modeColumn) = Global.System.Convert.DBNull + 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 Function Isp_midi_mt32_reverb_timeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn) - End Function + 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 Sub Setp_midi_mt32_reverb_timeNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_timeColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_reverb_levelNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn) - End Function + 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 Sub Setp_midi_mt32_reverb_levelNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_reverb_levelColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_partialsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn) - End Function + 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 Sub Setp_midi_mt32_partialsNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_partialsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_romdirNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) - End Function + 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 Sub Setp_midi_mt32_romdirNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_chunkNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) - End Function + 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 Sub Setp_midi_mt32_chunkNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_prebufferNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) - End Function + 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 Sub Setp_midi_mt32_prebufferNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_analogNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) - End Function + 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 Sub Setp_midi_mt32_analogNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_rateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) - End Function + 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 Sub Setp_midi_mt32_rateNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_src_qualityNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) - End Function + 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 Sub Setp_midi_mt32_src_qualityNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_mt32_niceamprampNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) - End Function + 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 Sub Setp_midi_mt32_niceamprampNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_soundfontNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) - End Function + 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 Sub Setp_midi_fluid_soundfontNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_samplerateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) - End Function + 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 Sub Setp_midi_fluid_samplerateNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_gainNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) - End Function + 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 Sub Setp_midi_fluid_gainNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_polyphonyNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) - End Function + 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 Sub Setp_midi_fluid_polyphonyNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_coresNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) - End Function + 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 Sub Setp_midi_fluid_coresNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_periodsNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) - End Function + 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 Sub Setp_midi_fluid_periodsNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_periodsizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) - End Function + 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 Sub Setp_midi_fluid_periodsizeNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_reverbNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn) - End Function + 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_sdl_surfacenp_sharpness() As Integer + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_surfacenp-sharpness in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) = value + End Set + End Property + + _ + Public Property _p_sdl_surface_collapse_dbl() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sdl_surface-collapse-dbl in Tabelle tbl_DOSBox_Configs ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) = 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_voodoo_voodoomem() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_voodoo_voodoomem in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) = 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_midi_mt32_romdir() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_romdir in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_chunk() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_chunk in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_prebuffer() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_prebuffer in Tabelle tbl_DOSBox_Configs ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_analog() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_analog in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_rate() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_rate in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_src_quality() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_src_quality in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) = value + End Set + End Property + + _ + Public Property p_midi_mt32_niceampramp() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_mt32_niceampramp in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_soundfont() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_soundfont in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_samplerate() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_samplerate in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_gain() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_gain in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_polyphony() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_polyphony in Tabelle tbl_DOSBox_Configs ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_cores() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_cores in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_periods() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_periods in Tabelle tbl_DOSBox_Configs ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_periodsize() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_periodsize in Tabelle tbl_DOSBox_Configs ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_reverb() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus in Tabelle tbl_DOSBox_Configs ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_reverb_roomsize() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_roomsize in Tabelle tbl_DOSBox_Configs is"& _ + "t DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_reverb_damping() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_damping in Tabelle tbl_DOSBox_Configs ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_reverb_width() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_width in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_reverb_level() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_reverb_level in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus_number() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_number in Tabelle tbl_DOSBox_Configs ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus_level() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_level in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus_speed() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_speed in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus_depth() As Decimal + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_depth in Tabelle tbl_DOSBox_Configs ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) = value + End Set + End Property + + _ + Public Property p_midi_fluid_chorus_type() As Long + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_midi_fluid_chorus_type in Tabelle tbl_DOSBox_Configs ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) = 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_oplemu() As String + Get + Try + Return CType(Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte p_sblaster_oplemu in Tabelle tbl_DOSBox_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) = 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 Is_p_sdl_surfacenp_sharpnessNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) + End Function + + _ + Public Sub Set_p_sdl_surfacenp_sharpnessNull() + Me(Me.tabletbl_DOSBox_Configs._p_sdl_surfacenp_sharpnessColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_p_sdl_surface_collapse_dblNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) + End Function + + _ + Public Sub Set_p_sdl_surface_collapse_dblNull() + Me(Me.tabletbl_DOSBox_Configs._p_sdl_surface_collapse_dblColumn) = 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_voodoo_voodoomemNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) + End Function + + _ + Public Sub Setp_voodoo_voodoomemNull() + Me(Me.tabletbl_DOSBox_Configs.p_voodoo_voodoomemColumn) = 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_midi_mt32_romdirNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) + End Function + + _ + Public Sub Setp_midi_mt32_romdirNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_romdirColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_chunkNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) + End Function + + _ + Public Sub Setp_midi_mt32_chunkNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_chunkColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_prebufferNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) + End Function + + _ + Public Sub Setp_midi_mt32_prebufferNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_prebufferColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_analogNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) + End Function + + _ + Public Sub Setp_midi_mt32_analogNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_analogColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_rateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) + End Function + + _ + Public Sub Setp_midi_mt32_rateNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_rateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_src_qualityNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) + End Function + + _ + Public Sub Setp_midi_mt32_src_qualityNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_src_qualityColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_mt32_niceamprampNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) + End Function + + _ + Public Sub Setp_midi_mt32_niceamprampNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_mt32_niceamprampColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_soundfontNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) + End Function + + _ + Public Sub Setp_midi_fluid_soundfontNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_soundfontColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_samplerateNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) + End Function + + _ + Public Sub Setp_midi_fluid_samplerateNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_samplerateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_gainNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) + End Function + + _ + Public Sub Setp_midi_fluid_gainNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_gainColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_polyphonyNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) + End Function + + _ + Public Sub Setp_midi_fluid_polyphonyNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_polyphonyColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_coresNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) + End Function + + _ + Public Sub Setp_midi_fluid_coresNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_coresColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_periodsNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) + End Function + + _ + Public Sub Setp_midi_fluid_periodsNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_periodsizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) + End Function + + _ + Public Sub Setp_midi_fluid_periodsizeNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_periodsizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_reverbNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverbColumn) + End Function _ @@ -40163,1441 +44193,3547 @@ Partial Public Class DS_ML _ - Public Function Isp_midi_fluid_chorusNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) - End Function + Public Function Isp_midi_fluid_chorusNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorusNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_reverb_roomsizeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) + End Function + + _ + Public Sub Setp_midi_fluid_reverb_roomsizeNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_reverb_dampingNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) + End Function + + _ + Public Sub Setp_midi_fluid_reverb_dampingNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_reverb_widthNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) + End Function + + _ + Public Sub Setp_midi_fluid_reverb_widthNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_reverb_levelNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) + End Function + + _ + Public Sub Setp_midi_fluid_reverb_levelNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_chorus_numberNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorus_numberNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_chorus_levelNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorus_levelNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_chorus_speedNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorus_speedNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_chorus_depthNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorus_depthNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isp_midi_fluid_chorus_typeNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) + End Function + + _ + Public Sub Setp_midi_fluid_chorus_typeNull() + Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) = 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_oplemuNull() As Boolean + Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) + End Function + + _ + Public Sub Setp_sblaster_oplemuNull() + Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) = 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 Property ECE_Supported() As Boolean + Get + Try + Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ECE_Supported in Tabelle src_frm_Emulators_DOSBox_Patches ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_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 + + _ + Public Function IsECE_SupportedNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn) + End Function + + _ + Public Sub SetECE_SupportedNull() + Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_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 Property id_Cheevo_Challenges() As Long + Get + Try + Return CType(Me(Me.tabletbl_Users.id_Cheevo_ChallengesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges in Tabelle tbl_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users.id_Cheevo_ChallengesColumn) = 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 + + _ + Public Function Isid_Cheevo_ChallengesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users.id_Cheevo_ChallengesColumn) + End Function + + _ + Public Sub Setid_Cheevo_ChallengesNull() + Me(Me.tabletbl_Users.id_Cheevo_ChallengesColumn) = 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 Sub Setp_midi_fluid_chorusNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorusColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_reverb_roomsizeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) - End Function + 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 Sub Setp_midi_fluid_reverb_roomsizeNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_roomsizeColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_reverb_dampingNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) - End Function + 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 Sub Setp_midi_fluid_reverb_dampingNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_dampingColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_reverb_widthNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) - End Function + 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 Sub Setp_midi_fluid_reverb_widthNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_widthColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_reverb_levelNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) - End Function + 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 Sub Setp_midi_fluid_reverb_levelNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_reverb_levelColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_chorus_numberNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) - End Function + 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 Sub Setp_midi_fluid_chorus_numberNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_numberColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_chorus_levelNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) - End Function + 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 Sub Setp_midi_fluid_chorus_levelNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_levelColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_midi_fluid_chorus_speedNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) - End Function + 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 Sub Setp_midi_fluid_chorus_speedNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_speedColumn) = Global.System.Convert.DBNull - End Sub + 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 Isp_midi_fluid_chorus_depthNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) End Function _ - Public Sub Setp_midi_fluid_chorus_depthNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_depthColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_midi_fluid_chorus_typeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) + Public Function Isid_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) End Function _ - Public Sub Setp_midi_fluid_chorus_typeNull() - Me(Me.tabletbl_DOSBox_Configs.p_midi_fluid_chorus_typeColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_ReleasesNull() + Me(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sblaster_oplmodeNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn) + Public Function IsGameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.GameColumn) End Function _ - Public Sub Setp_sblaster_oplmodeNull() - Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplmodeColumn) = Global.System.Convert.DBNull + Public Sub SetGameNull() + Me(Me.tabletbl_Similarity_Calculation.GameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sblaster_hardwarebaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn) + Public Function IsPlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.PlatformColumn) End Function _ - Public Sub Setp_sblaster_hardwarebaseNull() - Me(Me.tabletbl_DOSBox_Configs.p_sblaster_hardwarebaseColumn) = Global.System.Convert.DBNull + Public Sub SetPlatformNull() + Me(Me.tabletbl_Similarity_Calculation.PlatformColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sblaster_oplemuNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) + Public Function IsFolderNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FolderColumn) End Function _ - Public Sub Setp_sblaster_oplemuNull() - Me(Me.tabletbl_DOSBox_Configs.p_sblaster_oplemuColumn) = Global.System.Convert.DBNull + Public Sub SetFolderNull() + Me(Me.tabletbl_Similarity_Calculation.FolderColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_sblaster_goldplayNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn) + Public Function IsFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FileColumn) End Function _ - Public Sub Setp_sblaster_goldplayNull() - Me(Me.tabletbl_DOSBox_Configs.p_sblaster_goldplayColumn) = Global.System.Convert.DBNull + Public Sub SetFileNull() + Me(Me.tabletbl_Similarity_Calculation.FileColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_innova_innovaNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn) + Public Function IsInnerFileNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.InnerFileColumn) End Function _ - Public Sub Setp_innova_innovaNull() - Me(Me.tabletbl_DOSBox_Configs.p_innova_innovaColumn) = Global.System.Convert.DBNull + Public Sub SetInnerFileNull() + Me(Me.tabletbl_Similarity_Calculation.InnerFileColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_innova_samplerateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn) + Public Function IsHaveNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.HaveColumn) End Function _ - Public Sub Setp_innova_samplerateNull() - Me(Me.tabletbl_DOSBox_Configs.p_innova_samplerateColumn) = Global.System.Convert.DBNull + Public Sub SetHaveNull() + Me(Me.tabletbl_Similarity_Calculation.HaveColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_innova_sidbaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn) + Public Function Is_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) End Function _ - Public Sub Setp_innova_sidbaseNull() - Me(Me.tabletbl_DOSBox_Configs.p_innova_sidbaseColumn) = Global.System.Convert.DBNull + Public Sub Set_001_PlatformNull() + Me(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_innova_qualityNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn) + Public Function Is_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) End Function _ - Public Sub Setp_innova_qualityNull() - Me(Me.tabletbl_DOSBox_Configs.p_innova_qualityColumn) = Global.System.Convert.DBNull + Public Sub Set_002_MobyRankNull() + Me(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_speaker_ps1audioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn) + Public Function Is_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) End Function _ - Public Sub Setp_speaker_ps1audioNull() - Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audioColumn) = Global.System.Convert.DBNull + Public Sub Set_003_MobyScoreNull() + Me(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_speaker_ps1audiorateNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn) + Public Function Is_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) End Function _ - Public Sub Setp_speaker_ps1audiorateNull() - Me(Me.tabletbl_DOSBox_Configs.p_speaker_ps1audiorateColumn) = Global.System.Convert.DBNull + Public Sub Set_004_PublisherNull() + Me(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_printerNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn) + Public Function Is_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) End Function _ - Public Sub Setp_printer_printerNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_printerColumn) = Global.System.Convert.DBNull + Public Sub Set_005_DeveloperNull() + Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_dpiNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn) + Public Function Is_006_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._006_YearColumn) End Function _ - Public Sub Setp_printer_dpiNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_dpiColumn) = Global.System.Convert.DBNull + Public Sub Set_006_YearNull() + Me(Me.tabletbl_Similarity_Calculation._006_YearColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_widthNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn) + Public Function Is_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) End Function _ - Public Sub Setp_printer_widthNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_widthColumn) = Global.System.Convert.DBNull + Public Sub Set_101_Basic_GenresNull() + Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_heightNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn) + Public Function Is_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) End Function _ - Public Sub Setp_printer_heightNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_heightColumn) = Global.System.Convert.DBNull + Public Sub Set_102_PerspectivesNull() + Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_printoutputNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn) + Public Function Is_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) End Function _ - Public Sub Setp_printer_printoutputNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_printoutputColumn) = Global.System.Convert.DBNull + Public Sub Set_103_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_multipageNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn) + Public Function Is_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) End Function _ - Public Sub Setp_printer_multipageNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_multipageColumn) = Global.System.Convert.DBNull + Public Sub Set_104_Non_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_docpathNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn) + Public Function Is_105_Educational_CategoriesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) End Function _ - Public Sub Setp_printer_docpathNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_docpathColumn) = Global.System.Convert.DBNull + Public Sub Set_105_Educational_CategoriesNull() + Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_printer_timeoutNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn) + Public Function Is_106_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) End Function _ - Public Sub Setp_printer_timeoutNull() - Me(Me.tabletbl_DOSBox_Configs.p_printer_timeoutColumn) = Global.System.Convert.DBNull + Public Sub Set_106_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_parallel_parallel1Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column) + Public Function Is_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) End Function _ - Public Sub Setp_parallel_parallel1Null() - Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel1Column) = Global.System.Convert.DBNull + Public Sub Set_107_Visual_PresentationNull() + Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_parallel_parallel2Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column) + Public Function Is_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) End Function _ - Public Sub Setp_parallel_parallel2Null() - Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel2Column) = Global.System.Convert.DBNull + Public Sub Set_108_GameplayNull() + Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_parallel_parallel3Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column) + Public Function Is_109_PacingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._109_PacingColumn) End Function _ - Public Sub Setp_parallel_parallel3Null() - Me(Me.tabletbl_DOSBox_Configs.p_parallel_parallel3Column) = Global.System.Convert.DBNull + Public Sub Set_109_PacingNull() + Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_parallel_dongleNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn) + Public Function Is_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) End Function _ - Public Sub Setp_parallel_dongleNull() - Me(Me.tabletbl_DOSBox_Configs.p_parallel_dongleColumn) = Global.System.Convert.DBNull + Public Sub Set_110_Narrative_Theme_TopicNull() + Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_glide_glideNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn) + Public Function Is_111_SettingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._111_SettingColumn) End Function _ - Public Sub Setp_glide_glideNull() - Me(Me.tabletbl_DOSBox_Configs.p_glide_glideColumn) = Global.System.Convert.DBNull + Public Sub Set_111_SettingNull() + Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_glide_lfbNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn) + Public Function Is_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) End Function _ - Public Sub Setp_glide_lfbNull() - Me(Me.tabletbl_DOSBox_Configs.p_glide_lfbColumn) = Global.System.Convert.DBNull + Public Sub Set_112_Vehicular_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_glide_splashNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn) + Public Function Is_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) End Function _ - Public Sub Setp_glide_splashNull() - Me(Me.tabletbl_DOSBox_Configs.p_glide_splashColumn) = Global.System.Convert.DBNull + Public Sub Set_113_Interface_ControlNull() + Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ne2000_ne2000Null() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column) + Public Function Is_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) End Function _ - Public Sub Setp_ne2000_ne2000Null() - Me(Me.tabletbl_DOSBox_Configs.p_ne2000_ne2000Column) = Global.System.Convert.DBNull + Public Sub Set_114_DLC_AddonNull() + Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ne2000_nicbaseNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn) + Public Function Is_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) End Function _ - Public Sub Setp_ne2000_nicbaseNull() - Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicbaseColumn) = Global.System.Convert.DBNull + Public Sub Set_115_Special_EditionNull() + Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ne2000_nicirqNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn) + Public Function Is_201_MinPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) End Function _ - Public Sub Setp_ne2000_nicirqNull() - Me(Me.tabletbl_DOSBox_Configs.p_ne2000_nicirqColumn) = Global.System.Convert.DBNull + Public Sub Set_201_MinPlayersNull() + Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ne2000_macaddrNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn) + Public Function Is_202_MaxPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) End Function _ - Public Sub Setp_ne2000_macaddrNull() - Me(Me.tabletbl_DOSBox_Configs.p_ne2000_macaddrColumn) = Global.System.Convert.DBNull + Public Sub Set_202_MaxPlayersNull() + Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ne2000_realnicNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn) + Public Function Is_203_AgeONull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) End Function _ - Public Sub Setp_ne2000_realnicNull() - Me(Me.tabletbl_DOSBox_Configs.p_ne2000_realnicColumn) = Global.System.Convert.DBNull + Public Sub Set_203_AgeONull() + Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide1_enableNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn) + Public Function Is_204_AgePNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._204_AgePColumn) End Function _ - Public Sub Setp_ide1_enableNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide1_enableColumn) = Global.System.Convert.DBNull + Public Sub Set_204_AgePNull() + Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide1_int13fakeioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn) + Public Function Is_205_Rating_DescriptorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) End Function _ - Public Sub Setp_ide1_int13fakeioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakeioColumn) = Global.System.Convert.DBNull + Public Sub Set_205_Rating_DescriptorsNull() + Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide1_int13fakev86ioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn) + Public Function Is_206_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) End Function _ - Public Sub Setp_ide1_int13fakev86ioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide1_int13fakev86ioColumn) = Global.System.Convert.DBNull + Public Sub Set_206_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide2_enableNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn) + Public Function Is_207_Multiplayer_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) End Function _ - Public Sub Setp_ide2_enableNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide2_enableColumn) = Global.System.Convert.DBNull + Public Sub Set_207_Multiplayer_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide2_int13fakeioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn) + Public Function Is_301_Group_MembershipNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) End Function _ - Public Sub Setp_ide2_int13fakeioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakeioColumn) = Global.System.Convert.DBNull + Public Sub Set_301_Group_MembershipNull() + Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide2_int13fakev86ioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn) + Public Function Is_401_StaffNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation._401_StaffColumn) End Function _ - Public Sub Setp_ide2_int13fakev86ioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide2_int13fakev86ioColumn) = Global.System.Convert.DBNull + Public Sub Set_401_StaffNull() + Me(Me.tabletbl_Similarity_Calculation._401_StaffColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isp_ide3_enableNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn) + Public Function IsSimilarityNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation.SimilarityColumn) End Function _ - Public Sub Setp_ide3_enableNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide3_enableColumn) = Global.System.Convert.DBNull + 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 - _ - Public Function Isp_ide3_int13fakeioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn) - End Function + Private tabletbl_Similarity_Calculation_Config As tbl_Similarity_Calculation_ConfigDataTable _ - Public Sub Setp_ide3_int13fakeioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide3_int13fakeioColumn) = Global.System.Convert.DBNull + 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 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 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 Function Isp_ide4_enableNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn) - End Function + 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 Sub Setp_ide4_enableNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide4_enableColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_ide4_int13fakeioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn) - End Function + 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 Sub Setp_ide4_int13fakeioNull() - Me(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakeioColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Isp_ide4_int13fakev86ioNull() As Boolean - Return Me.IsNull(Me.tabletbl_DOSBox_Configs.p_ide4_int13fakev86ioColumn) - End Function + 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 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 + 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 _ - 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 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 id_Moby_Platforms() As Integer + Public Property Weight_101_Basic_Genres() As Integer Get Try - Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn),Integer) + 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 id_Moby_Platforms in Tabelle tbl_Moby_Platforms_Settings ist "& _ - "DBNull.", e) + 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_Moby_Platforms_Settings.id_Moby_PlatformsColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) = value End Set End Property _ - Public Property Name() As String + Public Property Weight_102_Perspectives() As Integer Get Try - Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.NameColumn),String) + 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 Name in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + 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_Moby_Platforms_Settings.NameColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) = value End Set End Property _ - Public Property Shortname() As String + Public Property Weight_103_Sports_Themes() As Integer Get Try - Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn),String) + 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 Shortname in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + 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_Moby_Platforms_Settings.ShortnameColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) = value End Set End Property _ - Public Property Visible() As Boolean + Public Property Weight_104_Non_Sports_Themes() As Integer Get Try - Return CType(Me(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn),Boolean) + 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 Visible in Tabelle tbl_Moby_Platforms_Settings ist DBNull.", e) + 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_Moby_Platforms_Settings.VisibleColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn) = 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 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 Sub Setid_Moby_PlatformsNull() - Me(Me.tabletbl_Moby_Platforms_Settings.id_Moby_PlatformsColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsNameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.NameColumn) - End Function + 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 Sub SetNameNull() - Me(Me.tabletbl_Moby_Platforms_Settings.NameColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsShortnameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn) - End Function + 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 Sub SetShortnameNull() - Me(Me.tabletbl_Moby_Platforms_Settings.ShortnameColumn) = Global.System.Convert.DBNull - End Sub + 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 Function IsVisibleNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Platforms_Settings.VisibleColumn) - End Function + 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 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 + 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 - Private tablesrc_frm_Emulators_DOSBox_Patches As src_frm_Emulators_DOSBox_PatchesDataTable + _ + 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 _ - 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 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 id_DOSBox_Patches() As Integer + Public Property Weight_115_Special_Edition() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn),Integer) + 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 id_DOSBox_Patches in Tabelle src_frm_Emulators_DOSBox_Patches"& _ - " ist DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) = value End Set End Property _ - Public Property id_DOSBox_Patches_Categories() As Integer + Public Property Weight_201_MinPlayers() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn),Integer) + 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 id_DOSBox_Patches_Categories in Tabelle src_frm_Emulators_DOS"& _ - "Box_Patches ist DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) = value End Set End Property _ - Public Property Categoryname() As String + Public Property Weight_202_MaxPlayers() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn),String) + 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 Categoryname in Tabelle src_frm_Emulators_DOSBox_Patches ist "& _ - "DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = value End Set End Property _ - Public Property Patchname() As String + Public Property Weight_203_AgeO() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn),String) + 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 Patchname in Tabelle src_frm_Emulators_DOSBox_Patches ist DBN"& _ - "ull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = value End Set End Property _ - Public Property Identifier() As String + Public Property Weight_204_AgeP() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn),String) + 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 Identifier in Tabelle src_frm_Emulators_DOSBox_Patches ist DB"& _ - "Null.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) = value End Set End Property _ - Public Property Description() As String + Public Property Weight_205_Rating_Descriptors() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn),String) + 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 Description in Tabelle src_frm_Emulators_DOSBox_Patches ist D"& _ - "BNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = value End Set End Property _ - Public Property Activated() As Boolean + Public Property Weight_206_Other_Attributes() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn),Boolean) + 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 Activated in Tabelle src_frm_Emulators_DOSBox_Patches ist DBN"& _ - "ull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = value End Set End Property _ - Public Property DAUM_Supported() As Boolean + Public Property Weight_207_Multiplayer_Attributes() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn),Boolean) + 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 DAUM_Supported in Tabelle src_frm_Emulators_DOSBox_Patches is"& _ - "t DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = value End Set End Property _ - Public Property MB_Supported() As Boolean + Public Property Weight_301_Group_Membership() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn),Boolean) + 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 MB_Supported in Tabelle src_frm_Emulators_DOSBox_Patches ist "& _ - "DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = value End Set End Property _ - Public Property ECE_Supported() As Boolean + Public Property Weight_401_Staff() As Integer Get Try - Return CType(Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn),Boolean) + 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 ECE_Supported in Tabelle src_frm_Emulators_DOSBox_Patches ist"& _ - " DBNull.", e) + 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.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn) = value + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) = value End Set End Property _ - Public Function Isid_DOSBox_PatchesNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) + 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_DOSBox_PatchesNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_PatchesColumn) = Global.System.Convert.DBNull + Public Sub Setid_Similarity_Calculation_ConfigNull() + Me(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn) = 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) + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.NameColumn) End Function _ - Public Sub Setid_DOSBox_Patches_CategoriesNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.id_DOSBox_Patches_CategoriesColumn) = Global.System.Convert.DBNull + Public Sub SetNameNull() + Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCategorynameNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) + Public Function IsWeight_001_PlatformNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) End Function _ - Public Sub SetCategorynameNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.CategorynameColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_001_PlatformNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPatchnameNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) + Public Function IsWeight_002_MobyRankNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) End Function _ - Public Sub SetPatchnameNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.PatchnameColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_002_MobyRankNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsIdentifierNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) + Public Function IsWeight_003_MobyScoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) End Function _ - Public Sub SetIdentifierNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.IdentifierColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_003_MobyScoreNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) + Public Function IsWeight_004_PublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn) End Function _ - Public Sub SetDescriptionNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DescriptionColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_004_PublisherNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_004_PublisherColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsActivatedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) + Public Function IsWeight_005_DeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn) End Function _ - Public Sub SetActivatedNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ActivatedColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_005_DeveloperNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_005_DeveloperColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDAUM_SupportedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) + Public Function IsWeight_006_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn) End Function _ - Public Sub SetDAUM_SupportedNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.DAUM_SupportedColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_006_YearNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_006_YearColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMB_SupportedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) + Public Function IsWeight_101_Basic_GenresNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) End Function _ - Public Sub SetMB_SupportedNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.MB_SupportedColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_101_Basic_GenresNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_101_Basic_GenresColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsECE_SupportedNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn) + Public Function IsWeight_102_PerspectivesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) End Function _ - Public Sub SetECE_SupportedNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches.ECE_SupportedColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_102_PerspectivesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_102_PerspectivesColumn) = 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 + _ + Public Function IsWeight_103_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) + End Function _ - 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) + Public Sub SetWeight_103_Sports_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_103_Sports_ThemesColumn) = Global.System.Convert.DBNull 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 Function IsWeight_104_Non_Sports_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_104_Non_Sports_ThemesColumn) + End Function _ - 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 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 Isid_DOSBox_Patches_CategoriesNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn) + Public Function IsWeight_107_Visual_PresentationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) End Function _ - Public Sub Setid_DOSBox_Patches_CategoriesNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.id_DOSBox_Patches_CategoriesColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_107_Visual_PresentationNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCategorynameNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn) + Public Function IsWeight_108_GameplayNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) End Function _ - Public Sub SetCategorynameNull() - Me(Me.tablesrc_frm_Emulators_DOSBox_Patches_Categories.CategorynameColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_108_GameplayNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) = 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 Function IsWeight_109_PacingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) + End Function _ - 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 Sub SetWeight_109_PacingNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsWeight_110_Narrative_Theme_TopicNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) + End Function _ - 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 Sub SetWeight_110_Narrative_Theme_TopicNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsWeight_111_SettingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) + End Function _ - 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 Sub SetWeight_111_SettingNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsAdminNull() As Boolean - Return Me.IsNull(Me.tabletbl_Users.AdminColumn) + Public Function IsWeight_112_Vehicular_ThemesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) End Function _ - Public Sub SetAdminNull() - Me(Me.tabletbl_Users.AdminColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_112_Vehicular_ThemesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsUsernameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Users.UsernameColumn) + Public Function IsWeight_113_Interface_ControlNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) End Function _ - Public Sub SetUsernameNull() - Me(Me.tabletbl_Users.UsernameColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_113_Interface_ControlNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPasswordNull() As Boolean - Return Me.IsNull(Me.tabletbl_Users.PasswordColumn) + Public Function IsWeight_114_DLC_AddonNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) End Function _ - Public Sub SetPasswordNull() - Me(Me.tabletbl_Users.PasswordColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_114_DLC_AddonNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsRestrictedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Users.RestrictedColumn) + Public Function IsWeight_115_Special_EditionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) End Function _ - Public Sub SetRestrictedNull() - Me(Me.tabletbl_Users.RestrictedColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_115_Special_EditionNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) = 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 + _ + Public Function IsWeight_201_MinPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) + End Function _ - 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) + Public Sub SetWeight_201_MinPlayersNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) = Global.System.Convert.DBNull 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 Function IsWeight_202_MaxPlayersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) + End Function _ - 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 Sub SetWeight_202_MaxPlayersNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsWeight_203_AgeONull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) + End Function _ - 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 Sub SetWeight_203_AgeONull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = Global.System.Convert.DBNull + End Sub _ - 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 IsWeight_204_AgePNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) + End Function _ - Public Function Isid_Moby_Releases_StaffNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn) + 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 Setid_Moby_Releases_StaffNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_Releases_StaffColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_205_Rating_DescriptorsNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = 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) + Public Function IsWeight_206_Other_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) End Function _ - Public Sub Setid_Moby_StaffNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.id_Moby_StaffColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_206_Other_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPositionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn) + Public Function IsWeight_207_Multiplayer_AttributesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) End Function _ - Public Sub SetPositionNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.PositionColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_207_Multiplayer_AttributesNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNameNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn) + Public Function IsWeight_301_Group_MembershipNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) End Function _ - Public Sub SetNameNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.NameColumn) = Global.System.Convert.DBNull + Public Sub SetWeight_301_Group_MembershipNull() + Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSortNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn) + Public Function IsWeight_401_StaffNull() As Boolean + Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) End Function _ - Public Sub SetSortNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Staff.SortColumn) = Global.System.Convert.DBNull + 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_StaffRow + Partial Public Class src_ucr_Emulation_cmb_Similarity_Calculation_ResultsRow Inherits Global.System.Data.DataRow - Private tablesrc_ucr_Emulation_cmb_Staff As src_ucr_Emulation_cmb_StaffDataTable + 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_Staff = CType(Me.Table,src_ucr_Emulation_cmb_StaffDataTable) + Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results = CType(Me.Table,src_ucr_Emulation_cmb_Similarity_Calculation_ResultsDataTable) End Sub _ - Public Property id_Moby_Staff() As Long + Public Property id_Similarity_Calculation_Results() As Integer Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn),Long) + 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_Moby_Staff in Tabelle src_ucr_Emulation_cmb_Staff ist DBNu"& _ - "ll.", e) + 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_Staff.id_Moby_StaffColumn) = value + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn) = value End Set End Property @@ -41606,1165 +47742,1190 @@ Partial Public Class DS_ML Public Property Name() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn),String) + 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_Staff ist DBNull.", e) + 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_Staff.NameColumn) = value + Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.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) + 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_Moby_StaffNull() - Me(Me.tablesrc_ucr_Emulation_cmb_Staff.id_Moby_StaffColumn) = Global.System.Convert.DBNull + 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_Staff.NameColumn) + Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) End Function _ Public Sub SetNameNull() - Me(Me.tablesrc_ucr_Emulation_cmb_Staff.NameColumn) = Global.System.Convert.DBNull + 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_Similarity_CalculationRow + Partial Public Class tbl_Emu_Games_Have_Want_List_ItemsRow Inherits Global.System.Data.DataRow - Private tabletbl_Similarity_Calculation As tbl_Similarity_CalculationDataTable + 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_Similarity_Calculation = CType(Me.Table,tbl_Similarity_CalculationDataTable) + 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() 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 + Public Property id_Emu_Games_Have_Want_List_Items() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn),Integer) + 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 005_Developer in Tabelle tbl_Similarity_Calculation ist DBNul"& _ - "l.", e) + 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_Similarity_Calculation._005_DeveloperColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn) = value End Set End Property _ - Public Property _006_Year() As Integer + Public Property id_Emu_Games() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._006_YearColumn),Integer) + 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 006_Year in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + 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_Similarity_Calculation._006_YearColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) = value End Set End Property _ - Public Property _101_Basic_Genres() As Integer + Public Property id_Emu_Games_Have_Want_Lists() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn),Integer) + 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 101_Basic_Genres in Tabelle tbl_Similarity_Calculation ist DB"& _ - "Null.", e) + 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_Similarity_Calculation._101_Basic_GenresColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn) = value End Set End Property _ - Public Property _102_Perspectives() As Integer + Public Property Description() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn),Integer) + 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 102_Perspectives in Tabelle tbl_Similarity_Calculation ist DB"& _ - "Null.", e) + 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_Similarity_Calculation._102_PerspectivesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = value End Set End Property _ - Public Property _103_Sports_Themes() As Integer + Public Property Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn),Integer) + 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 103_Sports_Themes in Tabelle tbl_Similarity_Calculation ist D"& _ - "BNull.", e) + 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_Similarity_Calculation._103_Sports_ThemesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = value End Set End Property _ - Public Property _104_Non_Sports_Themes() As Integer + Public Property Purchase_Date() As Date Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn),Integer) + 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 104_Non_Sports_Themes in Tabelle tbl_Similarity_Calculation i"& _ + 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_Similarity_Calculation._104_Non_Sports_ThemesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = value End Set End Property _ - Public Property _105_Educational_Categories() As Integer + Public Property Purchase_Price() As Decimal Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn),Integer) + 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 105_Educational_Categories in Tabelle tbl_Similarity_Calculat"& _ - "ion ist DBNull.", e) + 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_Similarity_Calculation._105_Educational_CategoriesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = value End Set End Property _ - Public Property _106_Other_Attributes() As Integer + Public Property Currency() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn),Integer) + 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 106_Other_Attributes in Tabelle tbl_Similarity_Calculation is"& _ - "t DBNull.", e) + 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_Similarity_Calculation._106_Other_AttributesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = value End Set End Property _ - Public Property _107_Visual_Presentation() As Integer + Public Property Purchase_Location() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn),Integer) + 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 107_Visual_Presentation in Tabelle tbl_Similarity_Calculation"& _ - " ist DBNull.", e) + 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_Similarity_Calculation._107_Visual_PresentationColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = value End Set End Property _ - Public Property _108_Gameplay() As Integer + Public Property Willing_to_Trade() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn),Integer) + 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 108_Gameplay in Tabelle tbl_Similarity_Calculation ist DBNull"& _ - ".", e) + 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_Similarity_Calculation._108_GameplayColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) = value End Set End Property _ - Public Property _109_Pacing() As Integer + Public Property Location() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn),Integer) + 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 109_Pacing in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + 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_Similarity_Calculation._109_PacingColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = value End Set End Property _ - Public Property _110_Narrative_Theme_Topic() As Integer + Public Property Box_id_Moby_Have_Want_List_Item_Detail_Conditions() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn),Integer) + 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 110_Narrative_Theme_Topic in Tabelle tbl_Similarity_Calculati"& _ - "on ist DBNull.", e) + 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_Similarity_Calculation._110_Narrative_Theme_TopicColumn) = value + 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 _111_Setting() As Integer + Public Property Box_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn),Integer) + 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 111_Setting in Tabelle tbl_Similarity_Calculation ist DBNull."& _ - "", e) + 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_Similarity_Calculation._111_SettingColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = value End Set End Property _ - Public Property _112_Vehicular_Themes() As Integer + Public Property Media_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn),Integer) + 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 112_Vehicular_Themes in Tabelle tbl_Similarity_Calculation is"& _ - "t DBNull.", e) + 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_Similarity_Calculation._112_Vehicular_ThemesColumn) = value + 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 _113_Interface_Control() As Integer + Public Property Media_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn),Integer) + 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 113_Interface_Control in Tabelle tbl_Similarity_Calculation i"& _ - "st DBNull.", e) + 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_Similarity_Calculation._113_Interface_ControlColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = value End Set End Property _ - Public Property _114_DLC_Addon() As Integer + Public Property Manual_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn),Integer) + 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 114_DLC_Addon in Tabelle tbl_Similarity_Calculation ist DBNul"& _ - "l.", e) + 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_Similarity_Calculation._114_DLC_AddonColumn) = value + 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 _115_Special_Edition() As Integer + Public Property Manual_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn),Integer) + 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 115_Special_Edition in Tabelle tbl_Similarity_Calculation ist"& _ - " DBNull.", e) + 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_Similarity_Calculation._115_Special_EditionColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = value End Set End Property _ - Public Property _201_MinPlayers() As Integer + Public Property Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn),Integer) + 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 201_MinPlayers in Tabelle tbl_Similarity_Calculation ist DBNu"& _ - "ll.", e) + 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_Similarity_Calculation._201_MinPlayersColumn) = value + 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 _202_MaxPlayers() As Integer + Public Property Catalog_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn),Integer) + 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 202_MaxPlayers in Tabelle tbl_Similarity_Calculation ist DBNu"& _ - "ll.", e) + 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_Similarity_Calculation._202_MaxPlayersColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = value End Set End Property _ - Public Property _203_AgeO() As Integer + Public Property Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn),Integer) + 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 203_AgeO in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + 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_Similarity_Calculation._203_AgeOColumn) = value + 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 _204_AgeP() As Integer + Public Property Reference_Card_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn),Integer) + 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 204_AgeP in Tabelle tbl_Similarity_Calculation ist DBNull.", e) + 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_Similarity_Calculation._204_AgePColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) = value End Set End Property _ - Public Property _205_Rating_Descriptors() As Integer + Public Property Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn),Integer) + 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 205_Rating_Descriptors in Tabelle tbl_Similarity_Calculation "& _ - "ist DBNull.", e) + 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_Similarity_Calculation._205_Rating_DescriptorsColumn) = value + 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 _206_Other_Attributes() As Integer + Public Property Additional_Items_Comments() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn),Integer) + 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 206_Other_Attributes in Tabelle tbl_Similarity_Calculation is"& _ - "t DBNull.", e) + 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_Similarity_Calculation._206_Other_AttributesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) = value End Set End Property _ - Public Property _207_Multiplayer_Attributes() As String + Public Property tmp_Game() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn),String) + 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 207_Multiplayer_Attributes in Tabelle tbl_Similarity_Calculat"& _ - "ion ist DBNull.", e) + 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_Similarity_Calculation._207_Multiplayer_AttributesColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) = value End Set End Property _ - Public Property _301_Group_Membership() As Integer + Public Property tmp_Platform() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn),Integer) + 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 301_Group_Membership in Tabelle tbl_Similarity_Calculation is"& _ + 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_Similarity_Calculation._301_Group_MembershipColumn) = value + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) = 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 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 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 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_Similarity_Calculation.id_Emu_GamesColumn) + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) End Function _ Public Sub Setid_Emu_GamesNull() - Me(Me.tabletbl_Similarity_Calculation.id_Emu_GamesColumn) = Global.System.Convert.DBNull + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.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) + 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_Moby_ReleasesNull() - Me(Me.tabletbl_Similarity_Calculation.id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + 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 IsGameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.GameColumn) + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) End Function _ - Public Sub SetGameNull() - Me(Me.tabletbl_Similarity_Calculation.GameColumn) = Global.System.Convert.DBNull + Public Sub SetDescriptionNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPlatformNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.PlatformColumn) + Public Function IsCommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) End Function _ - Public Sub SetPlatformNull() - Me(Me.tabletbl_Similarity_Calculation.PlatformColumn) = Global.System.Convert.DBNull + Public Sub SetCommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFolderNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FolderColumn) + Public Function IsPurchase_DateNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) End Function _ - Public Sub SetFolderNull() - Me(Me.tabletbl_Similarity_Calculation.FolderColumn) = Global.System.Convert.DBNull + Public Sub SetPurchase_DateNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsFileNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.FileColumn) + Public Function IsPurchase_PriceNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) End Function _ - Public Sub SetFileNull() - Me(Me.tabletbl_Similarity_Calculation.FileColumn) = Global.System.Convert.DBNull + Public Sub SetPurchase_PriceNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsInnerFileNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.InnerFileColumn) + Public Function IsCurrencyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) End Function _ - Public Sub SetInnerFileNull() - Me(Me.tabletbl_Similarity_Calculation.InnerFileColumn) = Global.System.Convert.DBNull + Public Sub SetCurrencyNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsHaveNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.HaveColumn) + Public Function IsPurchase_LocationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) End Function _ - Public Sub SetHaveNull() - Me(Me.tabletbl_Similarity_Calculation.HaveColumn) = Global.System.Convert.DBNull + Public Sub SetPurchase_LocationNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_001_PlatformNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) + 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 Set_001_PlatformNull() - Me(Me.tabletbl_Similarity_Calculation._001_PlatformColumn) = Global.System.Convert.DBNull + 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 Is_002_MobyRankNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) + Public Function IsLocationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) End Function _ - Public Sub Set_002_MobyRankNull() - Me(Me.tabletbl_Similarity_Calculation._002_MobyRankColumn) = Global.System.Convert.DBNull + Public Sub SetLocationNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_003_MobyScoreNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) + 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 Set_003_MobyScoreNull() - Me(Me.tabletbl_Similarity_Calculation._003_MobyScoreColumn) = Global.System.Convert.DBNull + 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 Is_004_PublisherNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) + Public Function IsBox_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) End Function _ - Public Sub Set_004_PublisherNull() - Me(Me.tabletbl_Similarity_Calculation._004_PublisherColumn) = Global.System.Convert.DBNull + Public Sub SetBox_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_005_DeveloperNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) + 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 Set_005_DeveloperNull() - Me(Me.tabletbl_Similarity_Calculation._005_DeveloperColumn) = Global.System.Convert.DBNull + 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 Is_006_YearNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._006_YearColumn) + Public Function IsMedia_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) End Function _ - Public Sub Set_006_YearNull() - Me(Me.tabletbl_Similarity_Calculation._006_YearColumn) = Global.System.Convert.DBNull + Public Sub SetMedia_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_101_Basic_GenresNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) + 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 Set_101_Basic_GenresNull() - Me(Me.tabletbl_Similarity_Calculation._101_Basic_GenresColumn) = Global.System.Convert.DBNull + 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 Is_102_PerspectivesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) + Public Function IsManual_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) End Function _ - Public Sub Set_102_PerspectivesNull() - Me(Me.tabletbl_Similarity_Calculation._102_PerspectivesColumn) = Global.System.Convert.DBNull + Public Sub SetManual_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_103_Sports_ThemesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) + 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 Set_103_Sports_ThemesNull() - Me(Me.tabletbl_Similarity_Calculation._103_Sports_ThemesColumn) = Global.System.Convert.DBNull + 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 Is_104_Non_Sports_ThemesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) + Public Function IsCatalog_CommentsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) End Function _ - Public Sub Set_104_Non_Sports_ThemesNull() - Me(Me.tabletbl_Similarity_Calculation._104_Non_Sports_ThemesColumn) = Global.System.Convert.DBNull + Public Sub SetCatalog_CommentsNull() + Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_105_Educational_CategoriesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) + 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 Set_105_Educational_CategoriesNull() - Me(Me.tabletbl_Similarity_Calculation._105_Educational_CategoriesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_106_Other_AttributesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) - End Function + 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 Sub Set_106_Other_AttributesNull() - Me(Me.tabletbl_Similarity_Calculation._106_Other_AttributesColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_107_Visual_PresentationNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) - End Function + 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 Sub Set_107_Visual_PresentationNull() - Me(Me.tabletbl_Similarity_Calculation._107_Visual_PresentationColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_108_GameplayNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) - End Function + 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 Sub Set_108_GameplayNull() - Me(Me.tabletbl_Similarity_Calculation._108_GameplayColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_109_PacingNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._109_PacingColumn) - End Function + 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 Sub Set_109_PacingNull() - Me(Me.tabletbl_Similarity_Calculation._109_PacingColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_110_Narrative_Theme_TopicNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) - End Function + 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 Sub Set_110_Narrative_Theme_TopicNull() - Me(Me.tabletbl_Similarity_Calculation._110_Narrative_Theme_TopicColumn) = Global.System.Convert.DBNull - End Sub + 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 Function Is_111_SettingNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._111_SettingColumn) - End Function + 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 Sub Set_111_SettingNull() - Me(Me.tabletbl_Similarity_Calculation._111_SettingColumn) = Global.System.Convert.DBNull - End Sub + 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 Is_112_Vehicular_ThemesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) + Public Function IsIdentifierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) End Function _ - Public Sub Set_112_Vehicular_ThemesNull() - Me(Me.tabletbl_Similarity_Calculation._112_Vehicular_ThemesColumn) = Global.System.Convert.DBNull + Public Sub SetIdentifierNull() + Me(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_113_Interface_ControlNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) + Public Function IsGameNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameNameColumn) End Function _ - Public Sub Set_113_Interface_ControlNull() - Me(Me.tabletbl_Similarity_Calculation._113_Interface_ControlColumn) = Global.System.Convert.DBNull + Public Sub SetGameNameNull() + Me(Me.tabletbl_Moby_Auto_Link.GameNameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_114_DLC_AddonNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) + Public Function IsGameName_FilteredNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) End Function _ - Public Sub Set_114_DLC_AddonNull() - Me(Me.tabletbl_Similarity_Calculation._114_DLC_AddonColumn) = Global.System.Convert.DBNull + Public Sub SetGameName_FilteredNull() + Me(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_115_Special_EditionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) + Public Function IsDeveloperNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) End Function _ - Public Sub Set_115_Special_EditionNull() - Me(Me.tabletbl_Similarity_Calculation._115_Special_EditionColumn) = Global.System.Convert.DBNull + Public Sub SetDeveloperNull() + Me(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_201_MinPlayersNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) + Public Function IsPublisherNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.PublisherColumn) End Function _ - Public Sub Set_201_MinPlayersNull() - Me(Me.tabletbl_Similarity_Calculation._201_MinPlayersColumn) = Global.System.Convert.DBNull + Public Sub SetPublisherNull() + Me(Me.tabletbl_Moby_Auto_Link.PublisherColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_202_MaxPlayersNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) + Public Function IsMatch_AccuracyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) End Function _ - Public Sub Set_202_MaxPlayersNull() - Me(Me.tabletbl_Similarity_Calculation._202_MaxPlayersColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_AccuracyNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_203_AgeONull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) + Public Function IsMatch_id_Moby_ReleasesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) End Function _ - Public Sub Set_203_AgeONull() - Me(Me.tabletbl_Similarity_Calculation._203_AgeOColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_id_Moby_ReleasesNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_204_AgePNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._204_AgePColumn) + Public Function IsMatch_Moby_Games_URLPartNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) End Function _ - Public Sub Set_204_AgePNull() - Me(Me.tabletbl_Similarity_Calculation._204_AgePColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_Moby_Games_URLPartNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_205_Rating_DescriptorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) + Public Function IsMatch_Moby_GamenameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) End Function _ - Public Sub Set_205_Rating_DescriptorsNull() - Me(Me.tabletbl_Similarity_Calculation._205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_Moby_GamenameNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_206_Other_AttributesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) + Public Function IsMatch_Moby_Gamename_FilteredNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) End Function _ - Public Sub Set_206_Other_AttributesNull() - Me(Me.tabletbl_Similarity_Calculation._206_Other_AttributesColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_Moby_Gamename_FilteredNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_207_Multiplayer_AttributesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) + Public Function IsMatch_Moby_YearNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) End Function _ - Public Sub Set_207_Multiplayer_AttributesNull() - Me(Me.tabletbl_Similarity_Calculation._207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_Moby_YearNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_301_Group_MembershipNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) + Public Function IsMatch_Moby_createdNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) End Function _ - Public Sub Set_301_Group_MembershipNull() - Me(Me.tabletbl_Similarity_Calculation._301_Group_MembershipColumn) = Global.System.Convert.DBNull + Public Sub SetMatch_Moby_createdNull() + Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_401_StaffNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation._401_StaffColumn) + Public Function IsApplyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.ApplyColumn) End Function _ - Public Sub Set_401_StaffNull() - Me(Me.tabletbl_Similarity_Calculation._401_StaffColumn) = Global.System.Convert.DBNull + Public Sub SetApplyNull() + Me(Me.tabletbl_Moby_Auto_Link.ApplyColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSimilarityNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation.SimilarityColumn) + Public Function IsdeprecatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) End Function _ - Public Sub SetSimilarityNull() - Me(Me.tabletbl_Similarity_Calculation.SimilarityColumn) = Global.System.Convert.DBNull + Public Sub SetdeprecatedNull() + Me(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class tbl_Similarity_Calculation_ConfigRow + Partial Public Class tbl_List_GeneratorsRow Inherits Global.System.Data.DataRow - Private tabletbl_Similarity_Calculation_Config As tbl_Similarity_Calculation_ConfigDataTable + Private tabletbl_List_Generators As tbl_List_GeneratorsDataTable _ 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) + Me.tabletbl_List_Generators = CType(Me.Table,tbl_List_GeneratorsDataTable) End Sub _ - Public Property id_Similarity_Calculation_Config() As Integer + Public Property id_List_Generators() As Long 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 + Return CType(Me(Me.tabletbl_List_Generators.id_List_GeneratorsColumn),Long) End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.id_Similarity_Calculation_ConfigColumn) = value + Me(Me.tabletbl_List_Generators.id_List_GeneratorsColumn) = value End Set End Property @@ -42773,4855 +48934,4976 @@ Partial Public Class DS_ML Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn),String) + Return CType(Me(Me.tabletbl_List_Generators.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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_List_Generators ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.NameColumn) = value + Me(Me.tabletbl_List_Generators.NameColumn) = value End Set End Property _ - Public Property Weight_001_Platform() As Integer + Public Property Main_Template() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn),Integer) + Return CType(Me(Me.tabletbl_List_Generators.Main_TemplateColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Main_Template in Tabelle tbl_List_Generators ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_001_PlatformColumn) = value + Me(Me.tabletbl_List_Generators.Main_TemplateColumn) = value End Set End Property _ - Public Property Weight_002_MobyRank() As Integer + Public Property File_Entry_Template() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn),Integer) + Return CType(Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File_Entry_Template in Tabelle tbl_List_Generators ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_002_MobyRankColumn) = value + Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) = value End Set End Property _ - Public Property Weight_003_MobyScore() As Integer + Public Property Sort() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn),Integer) + Return CType(Me(Me.tabletbl_List_Generators.SortColumn),Long) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle tbl_List_Generators ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_003_MobyScoreColumn) = value + Me(Me.tabletbl_List_Generators.SortColumn) = 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 Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_List_Generators.NameColumn) + End Function _ - 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 Sub SetNameNull() + Me(Me.tabletbl_List_Generators.NameColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsMain_TemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_List_Generators.Main_TemplateColumn) + End Function _ - 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 Sub SetMain_TemplateNull() + Me(Me.tabletbl_List_Generators.Main_TemplateColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsFile_Entry_TemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) + End Function _ - 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 Sub SetFile_Entry_TemplateNull() + Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsSortNull() As Boolean + Return Me.IsNull(Me.tabletbl_List_Generators.SortColumn) + End Function _ - 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 Sub SetSortNull() + Me(Me.tabletbl_List_Generators.SortColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class static_List_Generator_SortRow + Inherits Global.System.Data.DataRow + + Private tablestatic_List_Generator_Sort As static_List_Generator_SortDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablestatic_List_Generator_Sort = CType(Me.Table,static_List_Generator_SortDataTable) + End Sub _ - Public Property Weight_106_Other_Attributes() As Integer + Public Property id_Sort() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn),Integer) + Return CType(Me(Me.tablestatic_List_Generator_Sort.id_SortColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Sort in Tabelle static_List_Generator_Sort ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_106_Other_AttributesColumn) = value + Me(Me.tablestatic_List_Generator_Sort.id_SortColumn) = value End Set End Property _ - Public Property Weight_107_Visual_Presentation() As Integer + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn),Integer) + Return CType(Me(Me.tablestatic_List_Generator_Sort.NameColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle static_List_Generator_Sort ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_107_Visual_PresentationColumn) = value + Me(Me.tablestatic_List_Generator_Sort.NameColumn) = value End Set End Property _ - Public Property Weight_108_Gameplay() As Integer + Public Function Isid_SortNull() As Boolean + Return Me.IsNull(Me.tablestatic_List_Generator_Sort.id_SortColumn) + End Function + + _ + Public Sub Setid_SortNull() + Me(Me.tablestatic_List_Generator_Sort.id_SortColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablestatic_List_Generator_Sort.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tablestatic_List_Generator_Sort.NameColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_ScummVM_ConfigsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_ScummVM_Configs As tbl_ScummVM_ConfigsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_ScummVM_Configs = CType(Me.Table,tbl_ScummVM_ConfigsDataTable) + End Sub + + _ + Public Property id_ScummVM_Configs() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn),Long) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs in Tabelle tbl_ScummVM_Configs ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_108_GameplayColumn) = value + Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) = value End Set End Property _ - Public Property Weight_109_Pacing() As Integer + Public Property id_Rombase_ScummVM_Configs() As Long Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn),Long) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_ScummVM_Configs in Tabelle tbl_ScummVM_Configs ist"& _ + " DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_109_PacingColumn) = value + Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) = value End Set End Property _ - Public Property Weight_110_Narrative_Theme_Topic() As Integer + Public Property isTemplate() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isTemplate in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_110_Narrative_Theme_TopicColumn) = value + Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn) = value End Set End Property _ - Public Property Weight_111_Setting() As Integer + Public Property Displayname() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Displayname in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_111_SettingColumn) = value + Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) = value End Set End Property _ - Public Property Weight_112_Vehicular_Themes() As Integer + Public Property user_defined_config() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte user_defined_config in Tabelle tbl_ScummVM_Configs ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_112_Vehicular_ThemesColumn) = value + Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) = value End Set End Property _ - Public Property Weight_113_Interface_Control() As Integer + Public Property user_defined_commandline() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte user_defined_commandline in Tabelle tbl_ScummVM_Configs ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_113_Interface_ControlColumn) = value + Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) = value End Set End Property _ - Public Property Weight_114_DLC_Addon() As Integer + Public Property console() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.consoleColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte console in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_114_DLC_AddonColumn) = value + Me(Me.tabletbl_ScummVM_Configs.consoleColumn) = value End Set End Property _ - Public Property Weight_115_Special_Edition() As Integer + Public Property confirm_exit() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte confirm_exit in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_115_Special_EditionColumn) = value + Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) = value End Set End Property _ - Public Property Weight_201_MinPlayers() As Integer + Public Property savepath() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.savepathColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte savepath in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_201_MinPlayersColumn) = value + Me(Me.tabletbl_ScummVM_Configs.savepathColumn) = value End Set End Property _ - Public Property Weight_202_MaxPlayers() As Integer + Public Property extrapath() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.extrapathColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte extrapath in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = value + Me(Me.tabletbl_ScummVM_Configs.extrapathColumn) = value End Set End Property _ - Public Property Weight_203_AgeO() As Integer + Public Property language() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.languageColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte language in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = value + Me(Me.tabletbl_ScummVM_Configs.languageColumn) = value End Set End Property _ - Public Property Weight_204_AgeP() As Integer + Public Property joystick_num() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick_num in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) = value + Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn) = value End Set End Property _ - Public Property Weight_205_Rating_Descriptors() As Integer + Public Property copy_protection() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte copy_protection in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) = value End Set End Property _ - Public Property Weight_206_Other_Attributes() As Integer + Public Property boot_param() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte boot_param in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = value + Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn) = value End Set End Property _ - Public Property Weight_207_Multiplayer_Attributes() As Integer + Public Property fullscreen() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fullscreen in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = value + Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn) = value End Set End Property _ - Public Property Weight_301_Group_Membership() As Integer + Public Property aspect_ratio() As Boolean Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aspect_ratio in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = value + Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) = value End Set End Property _ - Public Property Weight_401_Staff() As Integer + Public Property gfx_mode() As String Get Try - Return CType(Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gfx_mode in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) = value + Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) = 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 Property subtitles() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte subtitles in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn) = value + End Set + End Property _ - Public Function IsWeight_202_MaxPlayersNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) - End Function + Public Property music_driver() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.music_driverColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_driver in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.music_driverColumn) = value + End Set + End Property _ - Public Sub SetWeight_202_MaxPlayersNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_202_MaxPlayersColumn) = Global.System.Convert.DBNull - End Sub + Public Property multi_midi() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte multi_midi in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn) = value + End Set + End Property _ - Public Function IsWeight_203_AgeONull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) - End Function + Public Property soundfont() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.soundfontColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte soundfont in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.soundfontColumn) = value + End Set + End Property _ - Public Sub SetWeight_203_AgeONull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_203_AgeOColumn) = Global.System.Convert.DBNull - End Sub + Public Property native_mt32() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.native_mt32Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte native_mt32 in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.native_mt32Column) = value + End Set + End Property _ - Public Function IsWeight_204_AgePNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) - End Function + Public Property enable_gs() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_gs in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn) = value + End Set + End Property _ - Public Sub SetWeight_204_AgePNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_204_AgePColumn) = Global.System.Convert.DBNull - End Sub + Public Property output_rate() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.output_rateColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte output_rate in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.output_rateColumn) = value + End Set + End Property _ - Public Function IsWeight_205_Rating_DescriptorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) - End Function + Public Property music_volume() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn) = value + End Set + End Property _ - Public Sub SetWeight_205_Rating_DescriptorsNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_205_Rating_DescriptorsColumn) = Global.System.Convert.DBNull - End Sub + Public Property speech_volume() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speech_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) = value + End Set + End Property _ - Public Function IsWeight_206_Other_AttributesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) - End Function + Public Property sfx_volume() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sfx_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) = value + End Set + End Property _ - Public Sub SetWeight_206_Other_AttributesNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_206_Other_AttributesColumn) = Global.System.Convert.DBNull - End Sub + Public Property speech_mute() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speech_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn) = value + End Set + End Property _ - Public Function IsWeight_207_Multiplayer_AttributesNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) - End Function + Public Property talkspeed() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte talkspeed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn) = value + End Set + End Property _ - Public Sub SetWeight_207_Multiplayer_AttributesNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_207_Multiplayer_AttributesColumn) = Global.System.Convert.DBNull - End Sub + Public Property cdrom() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.cdromColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cdrom in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.cdromColumn) = value + End Set + End Property _ - Public Function IsWeight_301_Group_MembershipNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) - End Function + Public Property tempo() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.tempoColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tempo in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.tempoColumn) = value + End Set + End Property _ - Public Sub SetWeight_301_Group_MembershipNull() - Me(Me.tabletbl_Similarity_Calculation_Config.Weight_301_Group_MembershipColumn) = Global.System.Convert.DBNull - End Sub + Public Property midi_gain() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte midi_gain in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn) = value + End Set + End Property _ - Public Function IsWeight_401_StaffNull() As Boolean - Return Me.IsNull(Me.tabletbl_Similarity_Calculation_Config.Weight_401_StaffColumn) - End Function + Public Property autosave_period() As Long + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte autosave_period in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) = value + End Set + End Property _ - 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 + Public Property save_slot() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.save_slotColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte save_slot in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.save_slotColumn) = value + End Set + End Property _ - 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 demo_mode() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte demo_mode in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn) = value + End Set + End Property _ - Public Property id_Similarity_Calculation_Results() As Integer + Public Property alt_intro() As Boolean Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn),Integer) + Return CType(Me(Me.tabletbl_ScummVM_Configs.alt_introColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte alt_intro in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.id_Similarity_Calculation_ResultsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.alt_introColumn) = value End Set End Property _ - Public Property Name() As String + Public Property music_mute() As Boolean Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.music_muteColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) = value + Me(Me.tabletbl_ScummVM_Configs.music_muteColumn) = 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 Property sfx_mute() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sfx_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) = value + End Set + End Property _ - 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 Property gfx_details() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gfx_details in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) = value + End Set + End Property _ - Public Function IsNameNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_cmb_Similarity_Calculation_Results.NameColumn) - End Function + Public Property object_labels() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte object_labels in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn) = value + End Set + End Property _ - 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 + Public Property reverse_stereo() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte reverse_stereo in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) = value + End Set + End Property _ - 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 walkspeed() As String + Get + Try + Return CType(Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte walkspeed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn) = value + End Set + End Property _ - Public Property id_Emu_Games_Have_Want_List_Items() As Long + Public Property filtering() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_List_ItemsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.filteringColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte filtering in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.filteringColumn) = value End Set End Property _ - Public Property id_Emu_Games() As Long + Public Property opl_driver() As String Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn),String) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte opl_driver in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) = value + Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn) = value End Set End Property _ - Public Property id_Emu_Games_Have_Want_Lists() As Long + Public Property originalsaveload() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte originalsaveload in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_Games_Have_Want_ListsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) = value End Set End Property _ - Public Property Description() As String + Public Property altamigapalette() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte altamigapalette in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = value + Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) = value End Set End Property _ - Public Property Comments() As String + Public Property mousesupport() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mousesupport in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn) = value End Set End Property _ - Public Property Purchase_Date() As Date + Public Property disable_dithering() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn),Date) + Return CType(Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte disable_dithering in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = value + Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) = value End Set End Property _ - Public Property Purchase_Price() As Decimal + Public Property prefer_digitalsfx() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn),Decimal) + Return CType(Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte prefer_digitalsfx in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = value + Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) = value End Set End Property _ - Public Property Currency() As String + Public Property native_fb01() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.native_fb01Column),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte native_fb01 in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = value + Me(Me.tabletbl_ScummVM_Configs.native_fb01Column) = value End Set End Property _ - Public Property Purchase_Location() As String + Public Property use_cdaudio() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte use_cdaudio in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = value + Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) = value End Set End Property _ - Public Property Willing_to_Trade() As Boolean + Public Property windows_cursors() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn),Boolean) + Return CType(Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte windows_cursors in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) = value + Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) = value End Set End Property _ - Public Property Location() As String + Public Property silver_cursors() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte silver_cursors in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = value + Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) = value End Set End Property _ - Public Property Box_id_Moby_Have_Want_List_Item_Detail_Conditions() As String + Public Property enable_gore() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_gore in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn) = value End Set End Property _ - Public Property Box_Comments() As String + Public Property smooth_scrolling() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte smooth_scrolling in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) = value End Set End Property _ - Public Property Media_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Public Property floating_cursors() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte floating_cursors in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) = value End Set End Property _ - Public Property Media_Comments() As String + Public Property enable_color_blind() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_color_blind in Tabelle tbl_ScummVM_Configs ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) = value End Set End Property _ - Public Property Manual_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Public Property studio_audience() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte studio_audience in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) = value End Set End Property _ - Public Property Manual_Comments() As String + Public Property skip_support() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte skip_support in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn) = value End Set End Property _ - Public Property Catalog_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Public Property helium_mode() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte helium_mode in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn) = value End Set End Property _ - Public Property Catalog_Comments() As String + Public Property skiphallofrecordsscenes() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte skiphallofrecordsscenes in Tabelle tbl_ScummVM_Configs ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) = value End Set End Property _ - Public Property Reference_Card_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Public Property scalemakingofvideos() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte scalemakingofvideos in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) = value End Set End Property _ - Public Property Reference_Card_Comments() As String + Public Property fast_movie_speed() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fast_movie_speed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) = value End Set End Property _ - Public Property Additional_Items_id_Moby_Have_Want_List_Item_Detail_Conditions() As Long + Public Property doublefps() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_id_Moby_Have_Want_List_Item_Detail_ConditionsColumn),Long) + Return CType(Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doublefps in Tabelle tbl_ScummVM_Configs 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 + Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn) = value End Set End Property _ - Public Property Additional_Items_Comments() As String + Public Property venusenabled() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte venusenabled in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) = value + Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn) = value End Set End Property _ - Public Property tmp_Game() As String + Public Property noanimwhileturning() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte noanimwhileturning in Tabelle tbl_ScummVM_Configs ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) = value + Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) = value End Set End Property _ - Public Property tmp_Platform() As String + Public Property mpegmovies() As Boolean Get Try - Return CType(Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn),String) + Return CType(Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn),Boolean) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mpegmovies in Tabelle tbl_ScummVM_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) = value + Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) = 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) + Public Function Isid_ScummVM_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) 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 + Public Sub Setid_ScummVM_ConfigsNull() + Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) = 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) + Public Function Isid_Rombase_ScummVM_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) End Function _ - Public Sub Setid_Emu_GamesNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.id_Emu_GamesColumn) = Global.System.Convert.DBNull + Public Sub Setid_Rombase_ScummVM_ConfigsNull() + Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) = 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) + Public Function IsisTemplateNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.isTemplateColumn) 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 + Public Sub SetisTemplateNull() + Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDescriptionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) + Public Function IsDisplaynameNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) End Function _ - Public Sub SetDescriptionNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.DescriptionColumn) = Global.System.Convert.DBNull + Public Sub SetDisplaynameNull() + Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCommentsNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) + Public Function Isuser_defined_configNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) End Function _ - Public Sub SetCommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CommentsColumn) = Global.System.Convert.DBNull + Public Sub Setuser_defined_configNull() + Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) = 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) + Public Function Isuser_defined_commandlineNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) End Function _ - Public Sub SetPurchase_DateNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_DateColumn) = Global.System.Convert.DBNull + Public Sub Setuser_defined_commandlineNull() + Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) = 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) + Public Function IsconsoleNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.consoleColumn) End Function _ - Public Sub SetPurchase_PriceNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_PriceColumn) = Global.System.Convert.DBNull + Public Sub SetconsoleNull() + Me(Me.tabletbl_ScummVM_Configs.consoleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCurrencyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) + Public Function Isconfirm_exitNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) End Function _ - Public Sub SetCurrencyNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.CurrencyColumn) = Global.System.Convert.DBNull + Public Sub Setconfirm_exitNull() + Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) = 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) + Public Function IssavepathNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.savepathColumn) End Function _ - Public Sub SetPurchase_LocationNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Purchase_LocationColumn) = Global.System.Convert.DBNull + Public Sub SetsavepathNull() + Me(Me.tabletbl_ScummVM_Configs.savepathColumn) = 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) + Public Function IsextrapathNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.extrapathColumn) End Function _ - Public Sub SetWilling_to_TradeNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Willing_to_TradeColumn) = Global.System.Convert.DBNull + Public Sub SetextrapathNull() + Me(Me.tabletbl_ScummVM_Configs.extrapathColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsLocationNull() As Boolean - Return Me.IsNull(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) + Public Function IslanguageNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.languageColumn) End Function _ - Public Sub SetLocationNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.LocationColumn) = Global.System.Convert.DBNull + Public Sub SetlanguageNull() + Me(Me.tabletbl_ScummVM_Configs.languageColumn) = 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) + Public Function Isjoystick_numNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.joystick_numColumn) 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 + Public Sub Setjoystick_numNull() + Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn) = 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) + Public Function Iscopy_protectionNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) End Function _ - Public Sub SetBox_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Box_CommentsColumn) = Global.System.Convert.DBNull + Public Sub Setcopy_protectionNull() + Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) = 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) + Public Function Isboot_paramNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.boot_paramColumn) 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 + Public Sub Setboot_paramNull() + Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn) = 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) + Public Function IsfullscreenNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.fullscreenColumn) End Function _ - Public Sub SetMedia_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Media_CommentsColumn) = Global.System.Convert.DBNull + Public Sub SetfullscreenNull() + Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn) = 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) + Public Function Isaspect_ratioNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) 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 + Public Sub Setaspect_ratioNull() + Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) = 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) + Public Function Isgfx_modeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) End Function _ - Public Sub SetManual_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Manual_CommentsColumn) = Global.System.Convert.DBNull + Public Sub Setgfx_modeNull() + Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) = 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) + Public Function IssubtitlesNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.subtitlesColumn) 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 + Public Sub SetsubtitlesNull() + Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn) = 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) + Public Function Ismusic_driverNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_driverColumn) End Function _ - Public Sub SetCatalog_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Catalog_CommentsColumn) = Global.System.Convert.DBNull + Public Sub Setmusic_driverNull() + Me(Me.tabletbl_ScummVM_Configs.music_driverColumn) = 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) + Public Function Ismulti_midiNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.multi_midiColumn) 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 + Public Sub Setmulti_midiNull() + Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn) = 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) + Public Function IssoundfontNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.soundfontColumn) End Function _ - Public Sub SetReference_Card_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Reference_Card_CommentsColumn) = Global.System.Convert.DBNull + Public Sub SetsoundfontNull() + Me(Me.tabletbl_ScummVM_Configs.soundfontColumn) = 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) + Public Function Isnative_mt32Null() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.native_mt32Column) 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 + Public Sub Setnative_mt32Null() + Me(Me.tabletbl_ScummVM_Configs.native_mt32Column) = 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) + Public Function Isenable_gsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_gsColumn) End Function _ - Public Sub SetAdditional_Items_CommentsNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.Additional_Items_CommentsColumn) = Global.System.Convert.DBNull + Public Sub Setenable_gsNull() + Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isoutput_rateNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.output_rateColumn) + End Function + + _ + Public Sub Setoutput_rateNull() + Me(Me.tabletbl_ScummVM_Configs.output_rateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ismusic_volumeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_volumeColumn) + End Function + + _ + Public Sub Setmusic_volumeNull() + Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isspeech_volumeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) + End Function + + _ + Public Sub Setspeech_volumeNull() + Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Issfx_volumeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) + End Function + + _ + Public Sub Setsfx_volumeNull() + Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isspeech_muteNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.speech_muteColumn) + End Function + + _ + Public Sub Setspeech_muteNull() + Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstalkspeedNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.talkspeedColumn) + End Function + + _ + Public Sub SettalkspeedNull() + Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscdromNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.cdromColumn) + End Function + + _ + Public Sub SetcdromNull() + Me(Me.tabletbl_ScummVM_Configs.cdromColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstempoNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.tempoColumn) + End Function + + _ + Public Sub SettempoNull() + Me(Me.tabletbl_ScummVM_Configs.tempoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ismidi_gainNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.midi_gainColumn) + End Function + + _ + Public Sub Setmidi_gainNull() + Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isautosave_periodNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) + End Function + + _ + Public Sub Setautosave_periodNull() + Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Issave_slotNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.save_slotColumn) + End Function + + _ + Public Sub Setsave_slotNull() + Me(Me.tabletbl_ScummVM_Configs.save_slotColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isdemo_modeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.demo_modeColumn) + End Function + + _ + Public Sub Setdemo_modeNull() + Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isalt_introNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.alt_introColumn) + End Function + + _ + Public Sub Setalt_introNull() + Me(Me.tabletbl_ScummVM_Configs.alt_introColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Ismusic_muteNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_muteColumn) + End Function + + _ + Public Sub Setmusic_muteNull() + Me(Me.tabletbl_ScummVM_Configs.music_muteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Issfx_muteNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) + End Function + + _ + Public Sub Setsfx_muteNull() + Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isgfx_detailsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) + End Function + + _ + Public Sub Setgfx_detailsNull() + Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isobject_labelsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.object_labelsColumn) + End Function + + _ + Public Sub Setobject_labelsNull() + Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isreverse_stereoNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) + End Function + + _ + Public Sub Setreverse_stereoNull() + Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IswalkspeedNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.walkspeedColumn) + End Function + + _ + Public Sub SetwalkspeedNull() + Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfilteringNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.filteringColumn) + End Function + + _ + Public Sub SetfilteringNull() + Me(Me.tabletbl_ScummVM_Configs.filteringColumn) = 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) + Public Function Isopl_driverNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.opl_driverColumn) End Function _ - Public Sub Settmp_GameNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_GameColumn) = Global.System.Convert.DBNull + Public Sub Setopl_driverNull() + Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn) = 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) + Public Function IsoriginalsaveloadNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) End Function _ - Public Sub Settmp_PlatformNull() - Me(Me.tabletbl_Emu_Games_Have_Want_List_Items.tmp_PlatformColumn) = Global.System.Convert.DBNull + Public Sub SetoriginalsaveloadNull() + Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) = 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 Function IsaltamigapaletteNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) + End Function _ - 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 Sub SetaltamigapaletteNull() + Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsmousesupportNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.mousesupportColumn) + End Function _ - 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 Sub SetmousesupportNull() + Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isdisable_ditheringNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) + End Function _ - 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 Sub Setdisable_ditheringNull() + Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isprefer_digitalsfxNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) + End Function _ - 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 Sub Setprefer_digitalsfxNull() + Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isnative_fb01Null() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.native_fb01Column) + End Function _ - 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 Sub Setnative_fb01Null() + Me(Me.tabletbl_ScummVM_Configs.native_fb01Column) = Global.System.Convert.DBNull + End Sub _ - 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 Function Isuse_cdaudioNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) + End Function _ - 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 Sub Setuse_cdaudioNull() + Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Iswindows_cursorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) + End Function _ - 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 Sub Setwindows_cursorsNull() + Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function Issilver_cursorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) + End Function _ - 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 Sub Setsilver_cursorsNull() + Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsIdentifierNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) + Public Function Isenable_goreNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_goreColumn) End Function _ - Public Sub SetIdentifierNull() - Me(Me.tabletbl_Moby_Auto_Link.IdentifierColumn) = Global.System.Convert.DBNull + Public Sub Setenable_goreNull() + Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGameNameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameNameColumn) + Public Function Issmooth_scrollingNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) End Function _ - Public Sub SetGameNameNull() - Me(Me.tabletbl_Moby_Auto_Link.GameNameColumn) = Global.System.Convert.DBNull + Public Sub Setsmooth_scrollingNull() + Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGameName_FilteredNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) + Public Function Isfloating_cursorsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) End Function _ - Public Sub SetGameName_FilteredNull() - Me(Me.tabletbl_Moby_Auto_Link.GameName_FilteredColumn) = Global.System.Convert.DBNull + Public Sub Setfloating_cursorsNull() + Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDeveloperNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) + Public Function Isenable_color_blindNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) End Function _ - Public Sub SetDeveloperNull() - Me(Me.tabletbl_Moby_Auto_Link.DeveloperColumn) = Global.System.Convert.DBNull + Public Sub Setenable_color_blindNull() + Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPublisherNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.PublisherColumn) + Public Function Isstudio_audienceNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) End Function _ - Public Sub SetPublisherNull() - Me(Me.tabletbl_Moby_Auto_Link.PublisherColumn) = Global.System.Convert.DBNull + Public Sub Setstudio_audienceNull() + Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMatch_AccuracyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) + Public Function Isskip_supportNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.skip_supportColumn) End Function _ - Public Sub SetMatch_AccuracyNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_AccuracyColumn) = Global.System.Convert.DBNull + Public Sub Setskip_supportNull() + Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn) = 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) + Public Function Ishelium_modeNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.helium_modeColumn) End Function _ - Public Sub SetMatch_id_Moby_ReleasesNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_id_Moby_ReleasesColumn) = Global.System.Convert.DBNull + Public Sub Sethelium_modeNull() + Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn) = 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) + Public Function IsskiphallofrecordsscenesNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) End Function _ - Public Sub SetMatch_Moby_Games_URLPartNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Games_URLPartColumn) = Global.System.Convert.DBNull + Public Sub SetskiphallofrecordsscenesNull() + Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMatch_Moby_GamenameNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) + Public Function IsscalemakingofvideosNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) End Function _ - Public Sub SetMatch_Moby_GamenameNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_GamenameColumn) = Global.System.Convert.DBNull + Public Sub SetscalemakingofvideosNull() + Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) = 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) + Public Function Isfast_movie_speedNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) End Function _ - Public Sub SetMatch_Moby_Gamename_FilteredNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_Gamename_FilteredColumn) = Global.System.Convert.DBNull + Public Sub Setfast_movie_speedNull() + Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMatch_Moby_YearNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) + Public Function IsdoublefpsNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.doublefpsColumn) End Function _ - Public Sub SetMatch_Moby_YearNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_YearColumn) = Global.System.Convert.DBNull + Public Sub SetdoublefpsNull() + Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsMatch_Moby_createdNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) + Public Function IsvenusenabledNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.venusenabledColumn) End Function _ - Public Sub SetMatch_Moby_createdNull() - Me(Me.tabletbl_Moby_Auto_Link.Match_Moby_createdColumn) = Global.System.Convert.DBNull + Public Sub SetvenusenabledNull() + Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsApplyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.ApplyColumn) + Public Function IsnoanimwhileturningNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) End Function _ - Public Sub SetApplyNull() - Me(Me.tabletbl_Moby_Auto_Link.ApplyColumn) = Global.System.Convert.DBNull + Public Sub SetnoanimwhileturningNull() + Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsdeprecatedNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) + Public Function IsmpegmoviesNull() As Boolean + Return Me.IsNull(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) End Function _ - Public Sub SetdeprecatedNull() - Me(Me.tabletbl_Moby_Auto_Link.deprecatedColumn) = Global.System.Convert.DBNull + Public Sub SetmpegmoviesNull() + Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class tbl_List_GeneratorsRow + Partial Public Class src_ucr_Emulation_Moby_Releases_ScreenshotsRow Inherits Global.System.Data.DataRow - Private tabletbl_List_Generators As tbl_List_GeneratorsDataTable + Private tablesrc_ucr_Emulation_Moby_Releases_Screenshots As src_ucr_Emulation_Moby_Releases_ScreenshotsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletbl_List_Generators = CType(Me.Table,tbl_List_GeneratorsDataTable) + Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots = CType(Me.Table,src_ucr_Emulation_Moby_Releases_ScreenshotsDataTable) End Sub _ - Public Property id_List_Generators() As Long - Get - Return CType(Me(Me.tabletbl_List_Generators.id_List_GeneratorsColumn),Long) - End Get - Set - Me(Me.tabletbl_List_Generators.id_List_GeneratorsColumn) = value - End Set - End Property - - _ - Public Property Name() As String + Public Property id_Moby_Releases_Screenshots() As Long Get Try - Return CType(Me(Me.tabletbl_List_Generators.NameColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_List_Generators ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Screenshots in Tabelle src_ucr_Emulation_Mob"& _ + "y_Releases_Screenshots ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_List_Generators.NameColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) = value End Set End Property _ - Public Property Main_Template() As String + Public Property URL() As String Get Try - Return CType(Me(Me.tabletbl_List_Generators.Main_TemplateColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Main_Template in Tabelle tbl_List_Generators ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_ucr_Emulation_Moby_Releases_Screenshots is"& _ + "t DBNull.", e) End Try End Get Set - Me(Me.tabletbl_List_Generators.Main_TemplateColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) = value End Set End Property _ - Public Property File_Entry_Template() As String + Public Property Description() As String Get Try - Return CType(Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte File_Entry_Template in Tabelle tbl_List_Generators ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle src_ucr_Emulation_Moby_Releases_Screen"& _ + "shots ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) = value End Set End Property _ - Public Property Sort() As Long + Public Property tmp_Description() As String Get Try - Return CType(Me(Me.tabletbl_List_Generators.SortColumn),Long) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle tbl_List_Generators ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_ucr_Emulation_Moby_Releases_Sc"& _ + "reenshots ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_List_Generators.SortColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) = value End Set End Property _ - Public Function IsNameNull() As Boolean - Return Me.IsNull(Me.tabletbl_List_Generators.NameColumn) - End Function - - _ - Public Sub SetNameNull() - Me(Me.tabletbl_List_Generators.NameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsMain_TemplateNull() As Boolean - Return Me.IsNull(Me.tabletbl_List_Generators.Main_TemplateColumn) - End Function - - _ - Public Sub SetMain_TemplateNull() - Me(Me.tabletbl_List_Generators.Main_TemplateColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFile_Entry_TemplateNull() As Boolean - Return Me.IsNull(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) + Public Function Isid_Moby_Releases_ScreenshotsNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) End Function _ - Public Sub SetFile_Entry_TemplateNull() - Me(Me.tabletbl_List_Generators.File_Entry_TemplateColumn) = Global.System.Convert.DBNull + Public Sub Setid_Moby_Releases_ScreenshotsNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSortNull() As Boolean - Return Me.IsNull(Me.tabletbl_List_Generators.SortColumn) + Public Function IsURLNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) End Function _ - Public Sub SetSortNull() - Me(Me.tabletbl_List_Generators.SortColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class static_List_Generator_SortRow - Inherits Global.System.Data.DataRow - - Private tablestatic_List_Generator_Sort As static_List_Generator_SortDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tablestatic_List_Generator_Sort = CType(Me.Table,static_List_Generator_SortDataTable) + Public Sub SetURLNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) = Global.System.Convert.DBNull End Sub _ - Public Property id_Sort() As String - Get - Try - Return CType(Me(Me.tablestatic_List_Generator_Sort.id_SortColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Sort in Tabelle static_List_Generator_Sort ist DBNull.", e) - End Try - End Get - Set - Me(Me.tablestatic_List_Generator_Sort.id_SortColumn) = value - End Set - End Property - - _ - Public Property Name() As String - Get - Try - Return CType(Me(Me.tablestatic_List_Generator_Sort.NameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle static_List_Generator_Sort ist DBNull.", e) - End Try - End Get - Set - Me(Me.tablestatic_List_Generator_Sort.NameColumn) = value - End Set - End Property - - _ - Public Function Isid_SortNull() As Boolean - Return Me.IsNull(Me.tablestatic_List_Generator_Sort.id_SortColumn) + Public Function IsDescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) End Function _ - Public Sub Setid_SortNull() - Me(Me.tablestatic_List_Generator_Sort.id_SortColumn) = Global.System.Convert.DBNull + Public Sub SetDescriptionNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsNameNull() As Boolean - Return Me.IsNull(Me.tablestatic_List_Generator_Sort.NameColumn) + Public Function Istmp_DescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) End Function _ - Public Sub SetNameNull() - Me(Me.tablestatic_List_Generator_Sort.NameColumn) = Global.System.Convert.DBNull + Public Sub Settmp_DescriptionNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class tbl_ScummVM_ConfigsRow + Partial Public Class src_ucr_Emulation_Moby_Releases_Cover_ArtRow Inherits Global.System.Data.DataRow - Private tabletbl_ScummVM_Configs As tbl_ScummVM_ConfigsDataTable + Private tablesrc_ucr_Emulation_Moby_Releases_Cover_Art As src_ucr_Emulation_Moby_Releases_Cover_ArtDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletbl_ScummVM_Configs = CType(Me.Table,tbl_ScummVM_ConfigsDataTable) + Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art = CType(Me.Table,src_ucr_Emulation_Moby_Releases_Cover_ArtDataTable) End Sub _ - Public Property id_ScummVM_Configs() As Long + Public Property id_Moby_Releases_Cover_Art() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn),Long) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_ScummVM_Configs in Tabelle tbl_ScummVM_Configs ist DBNull."& _ - "", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Cover_Art in Tabelle src_ucr_Emulation_Moby_"& _ + "Releases_Cover_Art ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) = value End Set End Property _ - Public Property id_Rombase_ScummVM_Configs() As Long + Public Property id_Moby_Cover_Art_Types() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn),Long) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Rombase_ScummVM_Configs in Tabelle tbl_ScummVM_Configs ist"& _ - " DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Cover_Art_Types in Tabelle src_ucr_Emulation_Moby_Rel"& _ + "eases_Cover_Art ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) = value End Set End Property _ - Public Property isTemplate() As Boolean + Public Property URL() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn),Boolean) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte isTemplate in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Art ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) = value End Set End Property _ - Public Property Displayname() As String + Public Property Packaging() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Displayname in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packaging in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Ar"& _ + "t ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) = value End Set End Property _ - Public Property user_defined_config() As String + Public Property Comment() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte user_defined_config in Tabelle tbl_ScummVM_Configs ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Comment in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Art "& _ + "ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) = value End Set End Property _ - Public Property user_defined_commandline() As String + Public Property PackageComment() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn),String) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte user_defined_commandline in Tabelle tbl_ScummVM_Configs ist D"& _ - "BNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PackageComment in Tabelle src_ucr_Emulation_Moby_Releases_Cov"& _ + "er_Art ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) = value End Set End Property _ - Public Property console() As Boolean + Public Property tmp_Description() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.consoleColumn),Boolean) + Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte console in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_ucr_Emulation_Moby_Releases_Co"& _ + "ver_Art ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.consoleColumn) = value + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) = value End Set End Property _ - Public Property confirm_exit() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte confirm_exit in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) = value - End Set - End Property + Public Function Isid_Moby_Releases_Cover_ArtNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) + End Function _ - Public Property savepath() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.savepathColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte savepath in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.savepathColumn) = value - End Set - End Property + Public Sub Setid_Moby_Releases_Cover_ArtNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property extrapath() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.extrapathColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte extrapath in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.extrapathColumn) = value - End Set - End Property + Public Function Isid_Moby_Cover_Art_TypesNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) + End Function _ - Public Property language() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.languageColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte language in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.languageColumn) = value - End Set - End Property + Public Sub Setid_Moby_Cover_Art_TypesNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property joystick_num() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte joystick_num in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn) = value - End Set - End Property + Public Function IsURLNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) + End Function _ - Public Property copy_protection() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte copy_protection in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) = value - End Set - End Property + Public Sub SetURLNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property boot_param() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte boot_param in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn) = value - End Set - End Property + Public Function IsPackagingNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) + End Function _ - Public Property fullscreen() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fullscreen in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn) = value - End Set - End Property + Public Sub SetPackagingNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property aspect_ratio() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte aspect_ratio in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) = value - End Set - End Property + Public Function IsCommentNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) + End Function _ - Public Property gfx_mode() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gfx_mode in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) = value - End Set - End Property + Public Sub SetCommentNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property subtitles() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte subtitles in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn) = value - End Set - End Property + Public Function IsPackageCommentNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) + End Function _ - Public Property music_driver() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.music_driverColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_driver in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.music_driverColumn) = value - End Set - End Property + Public Sub SetPackageCommentNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property multi_midi() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte multi_midi in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn) = value - End Set - End Property + Public Function Istmp_DescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) + End Function _ - Public Property soundfont() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.soundfontColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte soundfont in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.soundfontColumn) = value - End Set - End Property + Public Sub Settmp_DescriptionNull() + Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class src_frm_MOBY_Extras_ManagerRow + Inherits Global.System.Data.DataRow + + Private tablesrc_frm_MOBY_Extras_Manager As src_frm_MOBY_Extras_ManagerDataTable _ - Public Property native_mt32() As Boolean + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablesrc_frm_MOBY_Extras_Manager = CType(Me.Table,src_frm_MOBY_Extras_ManagerDataTable) + End Sub + + _ + Public Property ExtraType() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.native_mt32Column),Boolean) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte native_mt32 in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExtraType in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.native_mt32Column) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) = value End Set End Property _ - Public Property enable_gs() As Boolean + Public Property id_Moby_Extras_Properties() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn),Boolean) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_gs in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Extras_Properties in Tabelle src_frm_MOBY_Extras_Mana"& _ + "ger ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) = value End Set End Property _ - Public Property output_rate() As String + Public Property id_Moby_Releases_Screenshots() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.output_rateColumn),String) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte output_rate in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Screenshots in Tabelle src_frm_MOBY_Extras_M"& _ + "anager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.output_rateColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) = value End Set End Property _ - Public Property music_volume() As Long + Public Property id_Moby_Releases_Cover_Art() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn),Long) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Cover_Art in Tabelle src_frm_MOBY_Extras_Man"& _ + "ager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) = value End Set End Property _ - Public Property speech_volume() As Long + Public Property Show() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn),Long) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speech_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Show in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) = value End Set End Property _ - Public Property sfx_volume() As Long + Public Property Sort() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn),Long) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sfx_volume in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) = value End Set End Property _ - Public Property speech_mute() As Boolean + Public Property URL() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn),Boolean) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte speech_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) = value End Set End Property _ - Public Property talkspeed() As Long + Public Property tmp_Description() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn),Long) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte talkspeed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_frm_MOBY_Extras_Manager ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) = value End Set End Property _ - Public Property cdrom() As Long + Public Property tmp_Available() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.cdromColumn),Long) + Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cdrom in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Available in Tabelle src_frm_MOBY_Extras_Manager ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.cdromColumn) = value + Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) = value End Set End Property _ - Public Property tempo() As Long + Public Function IsExtraTypeNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) + End Function + + _ + Public Sub SetExtraTypeNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_Extras_PropertiesNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) + End Function + + _ + Public Sub Setid_Moby_Extras_PropertiesNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_Releases_ScreenshotsNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) + End Function + + _ + Public Sub Setid_Moby_Releases_ScreenshotsNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Isid_Moby_Releases_Cover_ArtNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) + End Function + + _ + Public Sub Setid_Moby_Releases_Cover_ArtNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsShowNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) + End Function + + _ + Public Sub SetShowNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSortNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) + End Function + + _ + Public Sub SetSortNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsURLNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) + End Function + + _ + Public Sub SetURLNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_DescriptionNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) + End Function + + _ + Public Sub Settmp_DescriptionNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Istmp_AvailableNull() As Boolean + Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) + End Function + + _ + Public Sub Settmp_AvailableNull() + Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Moby_RegionsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Moby_Regions As tbl_Moby_RegionsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Moby_Regions = CType(Me.Table,tbl_Moby_RegionsDataTable) + End Sub + + _ + Public Property id_Moby_Regions() As Long Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.tempoColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tempo in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try + Return CType(Me(Me.tabletbl_Moby_Regions.id_Moby_RegionsColumn),Long) End Get Set - Me(Me.tabletbl_ScummVM_Configs.tempoColumn) = value + Me(Me.tabletbl_Moby_Regions.id_Moby_RegionsColumn) = value End Set End Property _ - Public Property midi_gain() As Long + Public Property id_Moby_Regions_Owner() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn),Long) + Return CType(Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte midi_gain in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Regions_Owner in Tabelle tbl_Moby_Regions ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn) = value + Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) = value End Set End Property _ - Public Property autosave_period() As Long + Public Property _Region() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn),Long) + Return CType(Me(Me.tabletbl_Moby_Regions.RegionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte autosave_period in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Region in Tabelle tbl_Moby_Regions ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) = value + Me(Me.tabletbl_Moby_Regions.RegionColumn) = value End Set End Property _ - Public Property save_slot() As String + Public Property Sort() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.save_slotColumn),String) + Return CType(Me(Me.tabletbl_Moby_Regions.SortColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte save_slot in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle tbl_Moby_Regions ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.save_slotColumn) = value + Me(Me.tabletbl_Moby_Regions.SortColumn) = value End Set End Property _ - Public Property demo_mode() As Boolean + Public Property tmp_Apply() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn),Boolean) + Return CType(Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte demo_mode in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Apply in Tabelle tbl_Moby_Regions ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn) = value + Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) = value End Set End Property _ - Public Property alt_intro() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.alt_introColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte alt_intro in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.alt_introColumn) = value - End Set - End Property + Public Function Isid_Moby_Regions_OwnerNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) + End Function _ - Public Property music_mute() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.music_muteColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte music_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.music_muteColumn) = value - End Set - End Property + Public Sub Setid_Moby_Regions_OwnerNull() + Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property sfx_mute() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte sfx_mute in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) = value - End Set - End Property + Public Function Is_RegionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Regions.RegionColumn) + End Function _ - Public Property gfx_details() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte gfx_details in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) = value - End Set - End Property + Public Sub Set_RegionNull() + Me(Me.tabletbl_Moby_Regions.RegionColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property object_labels() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte object_labels in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn) = value - End Set - End Property + Public Function IsSortNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Regions.SortColumn) + End Function _ - Public Property reverse_stereo() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte reverse_stereo in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) = value - End Set - End Property + Public Sub SetSortNull() + Me(Me.tabletbl_Moby_Regions.SortColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property walkspeed() As String - Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte walkspeed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn) = value - End Set - End Property + Public Function Istmp_ApplyNull() As Boolean + Return Me.IsNull(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) + End Function _ - Public Property filtering() As Boolean + Public Sub Settmp_ApplyNull() + Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Total_DOS_Launcher_ConfigsRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Total_DOS_Launcher_Configs As tbl_Total_DOS_Launcher_ConfigsDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Total_DOS_Launcher_Configs = CType(Me.Table,tbl_Total_DOS_Launcher_ConfigsDataTable) + End Sub + + _ + Public Property id_Total_DOS_Launcher_Configs() As Integer Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.filteringColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.id_Total_DOS_Launcher_ConfigsColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte filtering in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Total_DOS_Launcher_Configs in Tabelle tbl_Total_DOS_Launch"& _ + "er_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.filteringColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.id_Total_DOS_Launcher_ConfigsColumn) = value End Set End Property _ - Public Property opl_driver() As String + Public Property DisplayName() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn),String) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.DisplayNameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte opl_driver in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DisplayName in Tabelle tbl_Total_DOS_Launcher_Configs ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.DisplayNameColumn) = value End Set End Property _ - Public Property originalsaveload() As Boolean + Public Property proglocations() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.proglocationsColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte originalsaveload in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte proglocations in Tabelle tbl_Total_DOS_Launcher_Configs ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.proglocationsColumn) = value End Set End Property _ - Public Property altamigapalette() As Boolean + Public Property cachelocation() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.cachelocationColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte altamigapalette in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte cachelocation in Tabelle tbl_Total_DOS_Launcher_Configs ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.cachelocationColumn) = value End Set End Property _ - Public Property mousesupport() As Boolean + Public Property userlevel() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.userlevelColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mousesupport in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte userlevel in Tabelle tbl_Total_DOS_Launcher_Configs ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.userlevelColumn) = value End Set End Property _ - Public Property disable_dithering() As Boolean + Public Property forcelogging() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.forceloggingColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte disable_dithering in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte forcelogging in Tabelle tbl_Total_DOS_Launcher_Configs ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.forceloggingColumn) = value End Set End Property _ - Public Property prefer_digitalsfx() As Boolean + Public Property swapping() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.swappingColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte prefer_digitalsfx in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte swapping in Tabelle tbl_Total_DOS_Launcher_Configs ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.swappingColumn) = value End Set End Property _ - Public Property native_fb01() As Boolean + Public Property preloading() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.native_fb01Column),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.preloadingColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte native_fb01 in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte preloading in Tabelle tbl_Total_DOS_Launcher_Configs ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.native_fb01Column) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.preloadingColumn) = value End Set End Property _ - Public Property use_cdaudio() As Boolean + Public Property pauseafterrun() As Boolean Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.pauseafterrunColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte use_cdaudio in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte pauseafterrun in Tabelle tbl_Total_DOS_Launcher_Configs ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.pauseafterrunColumn) = value End Set End Property _ - Public Property windows_cursors() As Boolean + Public Property VESA() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn),Boolean) + Return CType(Me(Me.tabletbl_Total_DOS_Launcher_Configs.VESAColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte windows_cursors in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VESA in Tabelle tbl_Total_DOS_Launcher_Configs ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) = value + Me(Me.tabletbl_Total_DOS_Launcher_Configs.VESAColumn) = value End Set End Property _ - Public Property silver_cursors() As Boolean + Public Function Isid_Total_DOS_Launcher_ConfigsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.id_Total_DOS_Launcher_ConfigsColumn) + End Function + + _ + Public Sub Setid_Total_DOS_Launcher_ConfigsNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.id_Total_DOS_Launcher_ConfigsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplayNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.DisplayNameColumn) + End Function + + _ + Public Sub SetDisplayNameNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.DisplayNameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsproglocationsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.proglocationsColumn) + End Function + + _ + Public Sub SetproglocationsNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.proglocationsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscachelocationNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.cachelocationColumn) + End Function + + _ + Public Sub SetcachelocationNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.cachelocationColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsuserlevelNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.userlevelColumn) + End Function + + _ + Public Sub SetuserlevelNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.userlevelColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsforceloggingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.forceloggingColumn) + End Function + + _ + Public Sub SetforceloggingNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.forceloggingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsswappingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.swappingColumn) + End Function + + _ + Public Sub SetswappingNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.swappingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IspreloadingNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.preloadingColumn) + End Function + + _ + Public Sub SetpreloadingNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.preloadingColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IspauseafterrunNull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.pauseafterrunColumn) + End Function + + _ + Public Sub SetpauseafterrunNull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.pauseafterrunColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVESANull() As Boolean + Return Me.IsNull(Me.tabletbl_Total_DOS_Launcher_Configs.VESAColumn) + End Function + + _ + Public Sub SetVESANull() + Me(Me.tabletbl_Total_DOS_Launcher_Configs.VESAColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Cheevo_ChallengesRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Cheevo_Challenges As tbl_Cheevo_ChallengesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Cheevo_Challenges = CType(Me.Table,tbl_Cheevo_ChallengesDataTable) + End Sub + + _ + Public Property id_Cheevo_Challenges() As Long Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte silver_cursors in Tabelle tbl_ScummVM_Configs ist DBNull.", e) - End Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges.id_Cheevo_ChallengesColumn),Long) End Get Set - Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) = value + Me(Me.tabletbl_Cheevo_Challenges.id_Cheevo_ChallengesColumn) = value End Set End Property _ - Public Property enable_gore() As Boolean + Public Property Name() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges.NameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_gore in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle tbl_Cheevo_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn) = value + Me(Me.tabletbl_Cheevo_Challenges.NameColumn) = value End Set End Property _ - Public Property smooth_scrolling() As Boolean + Public Property created() As Date Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges.createdColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte smooth_scrolling in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle tbl_Cheevo_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) = value + Me(Me.tabletbl_Cheevo_Challenges.createdColumn) = value End Set End Property _ - Public Property floating_cursors() As Boolean + Public Property updated() As Date Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges.updatedColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte floating_cursors in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte updated in Tabelle tbl_Cheevo_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) = value + Me(Me.tabletbl_Cheevo_Challenges.updatedColumn) = value End Set End Property _ - Public Property enable_color_blind() As Boolean + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges.NameColumn) + End Function + + _ + Public Sub SetNameNull() + Me(Me.tabletbl_Cheevo_Challenges.NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges.createdColumn) + End Function + + _ + Public Sub SetcreatedNull() + Me(Me.tabletbl_Cheevo_Challenges.createdColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsupdatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges.updatedColumn) + End Function + + _ + Public Sub SetupdatedNull() + Me(Me.tabletbl_Cheevo_Challenges.updatedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Cheevo_Challenges_CheevosRow + Inherits Global.System.Data.DataRow + + Private tabletbl_Cheevo_Challenges_Cheevos As tbl_Cheevo_Challenges_CheevosDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Cheevo_Challenges_Cheevos = CType(Me.Table,tbl_Cheevo_Challenges_CheevosDataTable) + End Sub + + _ + Public Property id_Cheevo_Challenges_Cheevos() As Long Get - Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte enable_color_blind in Tabelle tbl_ScummVM_Configs ist DBNull."& _ - "", e) - End Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn),Long) End Get Set - Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn) = value End Set End Property _ - Public Property studio_audience() As Boolean + Public Property id_Cheevo_Challenges() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_ChallengesColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte studio_audience in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges in Tabelle tbl_Cheevo_Challenges_Cheevos"& _ + " ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_ChallengesColumn) = value End Set End Property _ - Public Property skip_support() As Boolean + Public Property CheevoType() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.CheevoTypeColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte skip_support in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CheevoType in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.CheevoTypeColumn) = value End Set End Property _ - Public Property helium_mode() As Boolean + Public Property Tier() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.TierColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte helium_mode in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tier in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.TierColumn) = value End Set End Property _ - Public Property skiphallofrecordsscenes() As Boolean + Public Property id_Emu_Games() As Long Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Emu_GamesColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte skiphallofrecordsscenes in Tabelle tbl_ScummVM_Configs ist DB"& _ - "Null.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emu_Games in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Emu_GamesColumn) = value End Set End Property _ - Public Property scalemakingofvideos() As Boolean + Public Property Cheevo_GameName() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_GameNameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte scalemakingofvideos in Tabelle tbl_ScummVM_Configs ist DBNull"& _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_GameName in Tabelle tbl_Cheevo_Challenges_Cheevos ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_GameNameColumn) = value End Set End Property _ - Public Property fast_movie_speed() As Boolean + Public Property Cheevo_ID() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_IDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte fast_movie_speed in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_ID in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) = value End Set End Property _ - Public Property doublefps() As Boolean + Public Property Cheevo_Title() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_TitleColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte doublefps in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Title in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_TitleColumn) = value End Set End Property _ - Public Property venusenabled() As Boolean + Public Property tmp_Cheevo_Title_with_Points() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_PointsColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte venusenabled in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Cheevo_Title_with_Points in Tabelle tbl_Cheevo_Challenges"& _ + "_Cheevos ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_PointsColumn) = value End Set End Property _ - Public Property noanimwhileturning() As Boolean + Public Property tmp_Cheevo_Title_with_Points_and_Mode() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_Points_and_ModeColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte noanimwhileturning in Tabelle tbl_ScummVM_Configs ist DBNull."& _ - "", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Cheevo_Title_with_Points_and_Mode in Tabelle tbl_Cheevo_C"& _ + "hallenges_Cheevos ist DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_Points_and_ModeColumn) = value End Set End Property _ - Public Property mpegmovies() As Boolean + Public Property Cheevo_Description() As String Get Try - Return CType(Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn),Boolean) + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_DescriptionColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte mpegmovies in Tabelle tbl_ScummVM_Configs ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Description in Tabelle tbl_Cheevo_Challenges_Cheevos i"& _ + "st DBNull.", e) End Try End Get Set - Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) = value + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_DescriptionColumn) = value End Set - End Property - - _ - Public Function Isid_ScummVM_ConfigsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) - End Function - - _ - Public Sub Setid_ScummVM_ConfigsNull() - Me(Me.tabletbl_ScummVM_Configs.id_ScummVM_ConfigsColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isid_Rombase_ScummVM_ConfigsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) - End Function - - _ - Public Sub Setid_Rombase_ScummVM_ConfigsNull() - Me(Me.tabletbl_ScummVM_Configs.id_Rombase_ScummVM_ConfigsColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsisTemplateNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.isTemplateColumn) - End Function - - _ - Public Sub SetisTemplateNull() - Me(Me.tabletbl_ScummVM_Configs.isTemplateColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDisplaynameNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) - End Function - - _ - Public Sub SetDisplaynameNull() - Me(Me.tabletbl_ScummVM_Configs.DisplaynameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isuser_defined_configNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) - End Function - - _ - Public Sub Setuser_defined_configNull() - Me(Me.tabletbl_ScummVM_Configs.user_defined_configColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isuser_defined_commandlineNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) - End Function - - _ - Public Sub Setuser_defined_commandlineNull() - Me(Me.tabletbl_ScummVM_Configs.user_defined_commandlineColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsconsoleNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.consoleColumn) - End Function + End Property _ - Public Sub SetconsoleNull() - Me(Me.tabletbl_ScummVM_Configs.consoleColumn) = Global.System.Convert.DBNull - End Sub + Public Property Cheevo_Points() As String + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_PointsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Points in Tabelle tbl_Cheevo_Challenges_Cheevos ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_PointsColumn) = value + End Set + End Property _ - Public Function Isconfirm_exitNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) - End Function + Public Property Cheevo_BadgeName() As String + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_BadgeNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_BadgeName in Tabelle tbl_Cheevo_Challenges_Cheevos ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_BadgeNameColumn) = value + End Set + End Property _ - Public Sub Setconfirm_exitNull() - Me(Me.tabletbl_ScummVM_Configs.confirm_exitColumn) = Global.System.Convert.DBNull - End Sub + Public Property Cheevo_Flags() As String + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_FlagsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Flags in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_FlagsColumn) = value + End Set + End Property _ - Public Function IssavepathNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.savepathColumn) - End Function + Public Property Hardcore() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.HardcoreColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hardcore in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.HardcoreColumn) = value + End Set + End Property _ - Public Sub SetsavepathNull() - Me(Me.tabletbl_ScummVM_Configs.savepathColumn) = Global.System.Convert.DBNull - End Sub + Public Property Runtime() As Long + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.RuntimeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Runtime in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.RuntimeColumn) = value + End Set + End Property _ - Public Function IsextrapathNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.extrapathColumn) - End Function + Public Property created() As Date + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.createdColumn) = value + End Set + End Property _ - Public Sub SetextrapathNull() - Me(Me.tabletbl_ScummVM_Configs.extrapathColumn) = Global.System.Convert.DBNull - End Sub + Public Property updated() As Date + Get + Try + Return CType(Me(Me.tabletbl_Cheevo_Challenges_Cheevos.updatedColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte updated in Tabelle tbl_Cheevo_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.updatedColumn) = value + End Set + End Property _ - Public Function IslanguageNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.languageColumn) + Public Function Isid_Cheevo_ChallengesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_ChallengesColumn) End Function _ - Public Sub SetlanguageNull() - Me(Me.tabletbl_ScummVM_Configs.languageColumn) = Global.System.Convert.DBNull + Public Sub Setid_Cheevo_ChallengesNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Cheevo_ChallengesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isjoystick_numNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.joystick_numColumn) + Public Function IsCheevoTypeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.CheevoTypeColumn) End Function _ - Public Sub Setjoystick_numNull() - Me(Me.tabletbl_ScummVM_Configs.joystick_numColumn) = Global.System.Convert.DBNull + Public Sub SetCheevoTypeNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.CheevoTypeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Iscopy_protectionNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) + Public Function IsTierNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.TierColumn) End Function _ - Public Sub Setcopy_protectionNull() - Me(Me.tabletbl_ScummVM_Configs.copy_protectionColumn) = Global.System.Convert.DBNull + Public Sub SetTierNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.TierColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isboot_paramNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.boot_paramColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Emu_GamesColumn) End Function _ - Public Sub Setboot_paramNull() - Me(Me.tabletbl_ScummVM_Configs.boot_paramColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsfullscreenNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.fullscreenColumn) + Public Function IsCheevo_GameNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_GameNameColumn) End Function _ - Public Sub SetfullscreenNull() - Me(Me.tabletbl_ScummVM_Configs.fullscreenColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_GameNameNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_GameNameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isaspect_ratioNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) + Public Function IsCheevo_IDNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) End Function _ - Public Sub Setaspect_ratioNull() - Me(Me.tabletbl_ScummVM_Configs.aspect_ratioColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_IDNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isgfx_modeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) + Public Function IsCheevo_TitleNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_TitleColumn) End Function _ - Public Sub Setgfx_modeNull() - Me(Me.tabletbl_ScummVM_Configs.gfx_modeColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_TitleNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_TitleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IssubtitlesNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.subtitlesColumn) + Public Function Istmp_Cheevo_Title_with_PointsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_PointsColumn) End Function _ - Public Sub SetsubtitlesNull() - Me(Me.tabletbl_ScummVM_Configs.subtitlesColumn) = Global.System.Convert.DBNull + Public Sub Settmp_Cheevo_Title_with_PointsNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_PointsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Ismusic_driverNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_driverColumn) + Public Function Istmp_Cheevo_Title_with_Points_and_ModeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_Points_and_ModeColumn) End Function _ - Public Sub Setmusic_driverNull() - Me(Me.tabletbl_ScummVM_Configs.music_driverColumn) = Global.System.Convert.DBNull + Public Sub Settmp_Cheevo_Title_with_Points_and_ModeNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.tmp_Cheevo_Title_with_Points_and_ModeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Ismulti_midiNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.multi_midiColumn) + Public Function IsCheevo_DescriptionNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_DescriptionColumn) End Function _ - Public Sub Setmulti_midiNull() - Me(Me.tabletbl_ScummVM_Configs.multi_midiColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_DescriptionNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_DescriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IssoundfontNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.soundfontColumn) + Public Function IsCheevo_PointsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_PointsColumn) End Function _ - Public Sub SetsoundfontNull() - Me(Me.tabletbl_ScummVM_Configs.soundfontColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_PointsNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_PointsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isnative_mt32Null() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.native_mt32Column) + Public Function IsCheevo_BadgeNameNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_BadgeNameColumn) End Function _ - Public Sub Setnative_mt32Null() - Me(Me.tabletbl_ScummVM_Configs.native_mt32Column) = Global.System.Convert.DBNull + Public Sub SetCheevo_BadgeNameNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_BadgeNameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isenable_gsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_gsColumn) + Public Function IsCheevo_FlagsNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_FlagsColumn) End Function _ - Public Sub Setenable_gsNull() - Me(Me.tabletbl_ScummVM_Configs.enable_gsColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_FlagsNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.Cheevo_FlagsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isoutput_rateNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.output_rateColumn) + Public Function IsHardcoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.HardcoreColumn) End Function _ - Public Sub Setoutput_rateNull() - Me(Me.tabletbl_ScummVM_Configs.output_rateColumn) = Global.System.Convert.DBNull + Public Sub SetHardcoreNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.HardcoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Ismusic_volumeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_volumeColumn) + Public Function IsRuntimeNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.RuntimeColumn) End Function _ - Public Sub Setmusic_volumeNull() - Me(Me.tabletbl_ScummVM_Configs.music_volumeColumn) = Global.System.Convert.DBNull + Public Sub SetRuntimeNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.RuntimeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isspeech_volumeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.createdColumn) End Function _ - Public Sub Setspeech_volumeNull() - Me(Me.tabletbl_ScummVM_Configs.speech_volumeColumn) = Global.System.Convert.DBNull + Public Sub SetcreatedNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.createdColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Issfx_volumeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) + Public Function IsupdatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Cheevo_Challenges_Cheevos.updatedColumn) End Function _ - Public Sub Setsfx_volumeNull() - Me(Me.tabletbl_ScummVM_Configs.sfx_volumeColumn) = Global.System.Convert.DBNull + Public Sub SetupdatedNull() + Me(Me.tabletbl_Cheevo_Challenges_Cheevos.updatedColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbl_Users_Cheevo_Challenges_CheevosRow + Inherits Global.System.Data.DataRow - _ - Public Function Isspeech_muteNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.speech_muteColumn) - End Function + Private tabletbl_Users_Cheevo_Challenges_Cheevos As tbl_Users_Cheevo_Challenges_CheevosDataTable _ - Public Sub Setspeech_muteNull() - Me(Me.tabletbl_ScummVM_Configs.speech_muteColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbl_Users_Cheevo_Challenges_Cheevos = CType(Me.Table,tbl_Users_Cheevo_Challenges_CheevosDataTable) End Sub _ - Public Function IstalkspeedNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.talkspeedColumn) - End Function - - _ - Public Sub SettalkspeedNull() - Me(Me.tabletbl_ScummVM_Configs.talkspeedColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_Users_Cheevo_Challenges_Cheevos() As Long + Get + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn),Long) + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn) = value + End Set + End Property _ - Public Function IscdromNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.cdromColumn) - End Function + Public Property id_Users() As Long + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_UsersColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Users in Tabelle tbl_Users_Cheevo_Challenges_Cheevos ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_UsersColumn) = value + End Set + End Property _ - Public Sub SetcdromNull() - Me(Me.tabletbl_ScummVM_Configs.cdromColumn) = Global.System.Convert.DBNull - End Sub + Public Property Cheevo_ID() As String + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Cheevo_IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_ID in Tabelle tbl_Users_Cheevo_Challenges_Cheevos ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) = value + End Set + End Property _ - Public Function IstempoNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.tempoColumn) - End Function + Public Property Unlocked_Casual() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_CasualColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlocked_Casual in Tabelle tbl_Users_Cheevo_Challenges_Cheevo"& _ + "s ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_CasualColumn) = value + End Set + End Property _ - Public Sub SettempoNull() - Me(Me.tabletbl_ScummVM_Configs.tempoColumn) = Global.System.Convert.DBNull - End Sub + Public Property Unlocked_Hardcore() As Boolean + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_HardcoreColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlocked_Hardcore in Tabelle tbl_Users_Cheevo_Challenges_Chee"& _ + "vos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_HardcoreColumn) = value + End Set + End Property _ - Public Function Ismidi_gainNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.midi_gainColumn) - End Function + Public Property created() As Date + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.createdColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte created in Tabelle tbl_Users_Cheevo_Challenges_Cheevos ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.createdColumn) = value + End Set + End Property _ - Public Sub Setmidi_gainNull() - Me(Me.tabletbl_ScummVM_Configs.midi_gainColumn) = Global.System.Convert.DBNull - End Sub + Public Property updated() As Date + Get + Try + Return CType(Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.updatedColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte updated in Tabelle tbl_Users_Cheevo_Challenges_Cheevos ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.updatedColumn) = value + End Set + End Property _ - Public Function Isautosave_periodNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) + Public Function Isid_UsersNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_UsersColumn) End Function _ - Public Sub Setautosave_periodNull() - Me(Me.tabletbl_ScummVM_Configs.autosave_periodColumn) = Global.System.Convert.DBNull + Public Sub Setid_UsersNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.id_UsersColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Issave_slotNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.save_slotColumn) + Public Function IsCheevo_IDNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) End Function _ - Public Sub Setsave_slotNull() - Me(Me.tabletbl_ScummVM_Configs.save_slotColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_IDNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Cheevo_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isdemo_modeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.demo_modeColumn) + Public Function IsUnlocked_CasualNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_CasualColumn) End Function _ - Public Sub Setdemo_modeNull() - Me(Me.tabletbl_ScummVM_Configs.demo_modeColumn) = Global.System.Convert.DBNull + Public Sub SetUnlocked_CasualNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_CasualColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isalt_introNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.alt_introColumn) + Public Function IsUnlocked_HardcoreNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_HardcoreColumn) End Function _ - Public Sub Setalt_introNull() - Me(Me.tabletbl_ScummVM_Configs.alt_introColumn) = Global.System.Convert.DBNull + Public Sub SetUnlocked_HardcoreNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.Unlocked_HardcoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Ismusic_muteNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.music_muteColumn) + Public Function IscreatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.createdColumn) End Function _ - Public Sub Setmusic_muteNull() - Me(Me.tabletbl_ScummVM_Configs.music_muteColumn) = Global.System.Convert.DBNull + Public Sub SetcreatedNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.createdColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Issfx_muteNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) + Public Function IsupdatedNull() As Boolean + Return Me.IsNull(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.updatedColumn) End Function _ - Public Sub Setsfx_muteNull() - Me(Me.tabletbl_ScummVM_Configs.sfx_muteColumn) = Global.System.Convert.DBNull + Public Sub SetupdatedNull() + Me(Me.tabletbl_Users_Cheevo_Challenges_Cheevos.updatedColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class ttb_Cheevo_Challenges_TiersRow + Inherits Global.System.Data.DataRow - _ - Public Function Isgfx_detailsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) - End Function + Private tablettb_Cheevo_Challenges_Tiers As ttb_Cheevo_Challenges_TiersDataTable _ - Public Sub Setgfx_detailsNull() - Me(Me.tabletbl_ScummVM_Configs.gfx_detailsColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablettb_Cheevo_Challenges_Tiers = CType(Me.Table,ttb_Cheevo_Challenges_TiersDataTable) End Sub _ - Public Function Isobject_labelsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.object_labelsColumn) - End Function - - _ - Public Sub Setobject_labelsNull() - Me(Me.tabletbl_ScummVM_Configs.object_labelsColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_Cheevo_Challenges() As String + Get + Try + Return CType(Me(Me.tablettb_Cheevo_Challenges_Tiers.id_Cheevo_ChallengesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges in Tabelle ttb_Cheevo_Challenges_Tiers i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Cheevo_Challenges_Tiers.id_Cheevo_ChallengesColumn) = value + End Set + End Property _ - Public Function Isreverse_stereoNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) - End Function + Public Property Tier() As String + Get + Try + Return CType(Me(Me.tablettb_Cheevo_Challenges_Tiers.TierColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tier in Tabelle ttb_Cheevo_Challenges_Tiers ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Cheevo_Challenges_Tiers.TierColumn) = value + End Set + End Property _ - Public Sub Setreverse_stereoNull() - Me(Me.tabletbl_ScummVM_Configs.reverse_stereoColumn) = Global.System.Convert.DBNull - End Sub + Public Property DisplayName() As String + Get + Try + Return CType(Me(Me.tablettb_Cheevo_Challenges_Tiers.DisplayNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DisplayName in Tabelle ttb_Cheevo_Challenges_Tiers ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tablettb_Cheevo_Challenges_Tiers.DisplayNameColumn) = value + End Set + End Property _ - Public Function IswalkspeedNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.walkspeedColumn) + Public Function Isid_Cheevo_ChallengesNull() As Boolean + Return Me.IsNull(Me.tablettb_Cheevo_Challenges_Tiers.id_Cheevo_ChallengesColumn) End Function _ - Public Sub SetwalkspeedNull() - Me(Me.tabletbl_ScummVM_Configs.walkspeedColumn) = Global.System.Convert.DBNull + Public Sub Setid_Cheevo_ChallengesNull() + Me(Me.tablettb_Cheevo_Challenges_Tiers.id_Cheevo_ChallengesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsfilteringNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.filteringColumn) + Public Function IsTierNull() As Boolean + Return Me.IsNull(Me.tablettb_Cheevo_Challenges_Tiers.TierColumn) End Function _ - Public Sub SetfilteringNull() - Me(Me.tabletbl_ScummVM_Configs.filteringColumn) = Global.System.Convert.DBNull + Public Sub SetTierNull() + Me(Me.tablettb_Cheevo_Challenges_Tiers.TierColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isopl_driverNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.opl_driverColumn) + Public Function IsDisplayNameNull() As Boolean + Return Me.IsNull(Me.tablettb_Cheevo_Challenges_Tiers.DisplayNameColumn) End Function _ - Public Sub Setopl_driverNull() - Me(Me.tabletbl_ScummVM_Configs.opl_driverColumn) = Global.System.Convert.DBNull + Public Sub SetDisplayNameNull() + Me(Me.tablettb_Cheevo_Challenges_Tiers.DisplayNameColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class ttb_Open_Challenges_CheevosRow + Inherits Global.System.Data.DataRow + + Private tablettb_Open_Challenges_Cheevos As ttb_Open_Challenges_CheevosDataTable _ - Public Function IsoriginalsaveloadNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) - End Function + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablettb_Open_Challenges_Cheevos = CType(Me.Table,ttb_Open_Challenges_CheevosDataTable) + End Sub _ - Public Sub SetoriginalsaveloadNull() - Me(Me.tabletbl_ScummVM_Configs.originalsaveloadColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_Users_Cheevo_Challenges_Cheevos() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Users_Cheevo_Challenges_Cheevos in Tabelle ttb_Open_Challe"& _ + "nges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn) = value + End Set + End Property _ - Public Function IsaltamigapaletteNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) - End Function + Public Property id_Cheevo_Challenges_Cheevos() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges_Cheevos in Tabelle ttb_Open_Challenges_C"& _ + "heevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn) = value + End Set + End Property _ - Public Sub SetaltamigapaletteNull() - Me(Me.tabletbl_ScummVM_Configs.altamigapaletteColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_Cheevo_Challenges() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_ChallengesColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges in Tabelle ttb_Open_Challenges_Cheevos i"& _ + "st DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_ChallengesColumn) = value + End Set + End Property _ - Public Function IsmousesupportNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.mousesupportColumn) - End Function + Public Property CheevoType() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.CheevoTypeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CheevoType in Tabelle ttb_Open_Challenges_Cheevos ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.CheevoTypeColumn) = value + End Set + End Property _ - Public Sub SetmousesupportNull() - Me(Me.tabletbl_ScummVM_Configs.mousesupportColumn) = Global.System.Convert.DBNull - End Sub + Public Property Challenge_Name() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Challenge_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Challenge_Name in Tabelle ttb_Open_Challenges_Cheevos ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Challenge_NameColumn) = value + End Set + End Property _ - Public Function Isdisable_ditheringNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) - End Function + Public Property Tier() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.TierColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tier in Tabelle ttb_Open_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.TierColumn) = value + End Set + End Property _ - Public Sub Setdisable_ditheringNull() - Me(Me.tabletbl_ScummVM_Configs.disable_ditheringColumn) = Global.System.Convert.DBNull - End Sub + Public Property id_Emu_Games() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.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 ttb_Open_Challenges_Cheevos ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.id_Emu_GamesColumn) = value + End Set + End Property _ - Public Function Isprefer_digitalsfxNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) - End Function + Public Property Cheevo_GameName() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_GameNameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_GameName in Tabelle ttb_Open_Challenges_Cheevos ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_GameNameColumn) = value + End Set + End Property _ - Public Sub Setprefer_digitalsfxNull() - Me(Me.tabletbl_ScummVM_Configs.prefer_digitalsfxColumn) = Global.System.Convert.DBNull - End Sub + Public Property Cheevo_ID() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_ID in Tabelle ttb_Open_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_IDColumn) = value + End Set + End Property _ - Public Function Isnative_fb01Null() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.native_fb01Column) - End Function + Public Property Cheevo_Title() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_TitleColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Title in Tabelle ttb_Open_Challenges_Cheevos ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_TitleColumn) = value + End Set + End Property _ - Public Sub Setnative_fb01Null() - Me(Me.tabletbl_ScummVM_Configs.native_fb01Column) = Global.System.Convert.DBNull - End Sub + Public Property Cheevo_Description() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_DescriptionColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Cheevo_Description in Tabelle ttb_Open_Challenges_Cheevos ist"& _ + " DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_DescriptionColumn) = value + End Set + End Property _ - Public Function Isuse_cdaudioNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) - End Function + Public Property Runtime() As Long + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.RuntimeColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Runtime in Tabelle ttb_Open_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.RuntimeColumn) = value + End Set + End Property _ - Public Sub Setuse_cdaudioNull() - Me(Me.tabletbl_ScummVM_Configs.use_cdaudioColumn) = Global.System.Convert.DBNull - End Sub + Public Property Hardcore() As Boolean + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.HardcoreColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Hardcore in Tabelle ttb_Open_Challenges_Cheevos ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.HardcoreColumn) = value + End Set + End Property _ - Public Function Iswindows_cursorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) - End Function + Public Property Unlocked_Casual() As Boolean + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_CasualColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlocked_Casual in Tabelle ttb_Open_Challenges_Cheevos ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_CasualColumn) = value + End Set + End Property _ - Public Sub Setwindows_cursorsNull() - Me(Me.tabletbl_ScummVM_Configs.windows_cursorsColumn) = Global.System.Convert.DBNull - End Sub + Public Property Unlocked_Hardcore() As Boolean + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_HardcoreColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Unlocked_Hardcore in Tabelle ttb_Open_Challenges_Cheevos ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_HardcoreColumn) = value + End Set + End Property _ - Public Function Issilver_cursorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) + Public Function Isid_Users_Cheevo_Challenges_CheevosNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn) End Function _ - Public Sub Setsilver_cursorsNull() - Me(Me.tabletbl_ScummVM_Configs.silver_cursorsColumn) = Global.System.Convert.DBNull + Public Sub Setid_Users_Cheevo_Challenges_CheevosNull() + Me(Me.tablettb_Open_Challenges_Cheevos.id_Users_Cheevo_Challenges_CheevosColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isenable_goreNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_goreColumn) + Public Function Isid_Cheevo_Challenges_CheevosNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn) End Function _ - Public Sub Setenable_goreNull() - Me(Me.tabletbl_ScummVM_Configs.enable_goreColumn) = Global.System.Convert.DBNull + Public Sub Setid_Cheevo_Challenges_CheevosNull() + Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_Challenges_CheevosColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Issmooth_scrollingNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) + Public Function Isid_Cheevo_ChallengesNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_ChallengesColumn) End Function _ - Public Sub Setsmooth_scrollingNull() - Me(Me.tabletbl_ScummVM_Configs.smooth_scrollingColumn) = Global.System.Convert.DBNull + Public Sub Setid_Cheevo_ChallengesNull() + Me(Me.tablettb_Open_Challenges_Cheevos.id_Cheevo_ChallengesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isfloating_cursorsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) + Public Function IsCheevoTypeNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.CheevoTypeColumn) End Function _ - Public Sub Setfloating_cursorsNull() - Me(Me.tabletbl_ScummVM_Configs.floating_cursorsColumn) = Global.System.Convert.DBNull + Public Sub SetCheevoTypeNull() + Me(Me.tablettb_Open_Challenges_Cheevos.CheevoTypeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isenable_color_blindNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) + Public Function IsChallenge_NameNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Challenge_NameColumn) End Function _ - Public Sub Setenable_color_blindNull() - Me(Me.tabletbl_ScummVM_Configs.enable_color_blindColumn) = Global.System.Convert.DBNull + Public Sub SetChallenge_NameNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Challenge_NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isstudio_audienceNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) + Public Function IsTierNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.TierColumn) End Function _ - Public Sub Setstudio_audienceNull() - Me(Me.tabletbl_ScummVM_Configs.studio_audienceColumn) = Global.System.Convert.DBNull + Public Sub SetTierNull() + Me(Me.tablettb_Open_Challenges_Cheevos.TierColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isskip_supportNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.skip_supportColumn) + Public Function Isid_Emu_GamesNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.id_Emu_GamesColumn) End Function _ - Public Sub Setskip_supportNull() - Me(Me.tabletbl_ScummVM_Configs.skip_supportColumn) = Global.System.Convert.DBNull + Public Sub Setid_Emu_GamesNull() + Me(Me.tablettb_Open_Challenges_Cheevos.id_Emu_GamesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Ishelium_modeNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.helium_modeColumn) + Public Function IsCheevo_GameNameNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Cheevo_GameNameColumn) End Function _ - Public Sub Sethelium_modeNull() - Me(Me.tabletbl_ScummVM_Configs.helium_modeColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_GameNameNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_GameNameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsskiphallofrecordsscenesNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) + Public Function IsCheevo_IDNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Cheevo_IDColumn) End Function _ - Public Sub SetskiphallofrecordsscenesNull() - Me(Me.tabletbl_ScummVM_Configs.skiphallofrecordsscenesColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_IDNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsscalemakingofvideosNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) + Public Function IsCheevo_TitleNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Cheevo_TitleColumn) End Function _ - Public Sub SetscalemakingofvideosNull() - Me(Me.tabletbl_ScummVM_Configs.scalemakingofvideosColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_TitleNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_TitleColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isfast_movie_speedNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) + Public Function IsCheevo_DescriptionNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Cheevo_DescriptionColumn) End Function _ - Public Sub Setfast_movie_speedNull() - Me(Me.tabletbl_ScummVM_Configs.fast_movie_speedColumn) = Global.System.Convert.DBNull + Public Sub SetCheevo_DescriptionNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Cheevo_DescriptionColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsdoublefpsNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.doublefpsColumn) + Public Function IsRuntimeNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.RuntimeColumn) End Function _ - Public Sub SetdoublefpsNull() - Me(Me.tabletbl_ScummVM_Configs.doublefpsColumn) = Global.System.Convert.DBNull + Public Sub SetRuntimeNull() + Me(Me.tablettb_Open_Challenges_Cheevos.RuntimeColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsvenusenabledNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.venusenabledColumn) + Public Function IsHardcoreNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.HardcoreColumn) End Function _ - Public Sub SetvenusenabledNull() - Me(Me.tabletbl_ScummVM_Configs.venusenabledColumn) = Global.System.Convert.DBNull + Public Sub SetHardcoreNull() + Me(Me.tablettb_Open_Challenges_Cheevos.HardcoreColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsnoanimwhileturningNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) + Public Function IsUnlocked_CasualNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Unlocked_CasualColumn) End Function _ - Public Sub SetnoanimwhileturningNull() - Me(Me.tabletbl_ScummVM_Configs.noanimwhileturningColumn) = Global.System.Convert.DBNull + Public Sub SetUnlocked_CasualNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_CasualColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsmpegmoviesNull() As Boolean - Return Me.IsNull(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) + Public Function IsUnlocked_HardcoreNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges_Cheevos.Unlocked_HardcoreColumn) End Function _ - Public Sub SetmpegmoviesNull() - Me(Me.tabletbl_ScummVM_Configs.mpegmoviesColumn) = Global.System.Convert.DBNull + Public Sub SetUnlocked_HardcoreNull() + Me(Me.tablettb_Open_Challenges_Cheevos.Unlocked_HardcoreColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class src_ucr_Emulation_Moby_Releases_ScreenshotsRow + Partial Public Class ttb_Open_ChallengesRow Inherits Global.System.Data.DataRow - Private tablesrc_ucr_Emulation_Moby_Releases_Screenshots As src_ucr_Emulation_Moby_Releases_ScreenshotsDataTable + Private tablettb_Open_Challenges As ttb_Open_ChallengesDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots = CType(Me.Table,src_ucr_Emulation_Moby_Releases_ScreenshotsDataTable) + Me.tablettb_Open_Challenges = CType(Me.Table,ttb_Open_ChallengesDataTable) End Sub _ - Public Property id_Moby_Releases_Screenshots() As Long + Public Property id_Cheevo_Challenges() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn),Long) + Return CType(Me(Me.tablettb_Open_Challenges.id_Cheevo_ChallengesColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Screenshots in Tabelle src_ucr_Emulation_Mob"& _ - "y_Releases_Screenshots ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Cheevo_Challenges in Tabelle ttb_Open_Challenges ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) = value + Me(Me.tablettb_Open_Challenges.id_Cheevo_ChallengesColumn) = value End Set End Property _ - Public Property URL() As String + Public Property Name() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn),String) + Return CType(Me(Me.tablettb_Open_Challenges.NameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_ucr_Emulation_Moby_Releases_Screenshots is"& _ - "t DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle ttb_Open_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) = value + Me(Me.tablettb_Open_Challenges.NameColumn) = value End Set End Property _ - Public Property Description() As String + Public Property Tier() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn),String) + Return CType(Me(Me.tablettb_Open_Challenges.TierColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Description in Tabelle src_ucr_Emulation_Moby_Releases_Screen"& _ - "shots ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tier in Tabelle ttb_Open_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) = value + Me(Me.tablettb_Open_Challenges.TierColumn) = value End Set End Property _ - Public Property tmp_Description() As String + Public Property MaxTier() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn),String) + Return CType(Me(Me.tablettb_Open_Challenges.MaxTierColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_ucr_Emulation_Moby_Releases_Sc"& _ - "reenshots ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MaxTier in Tabelle ttb_Open_Challenges ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) = value + Me(Me.tablettb_Open_Challenges.MaxTierColumn) = value End Set End Property _ - Public Function Isid_Moby_Releases_ScreenshotsNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) + Public Property DisplayText() As String + Get + Try + Return CType(Me(Me.tablettb_Open_Challenges.DisplayTextColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DisplayText in Tabelle ttb_Open_Challenges ist DBNull.", e) + End Try + End Get + Set + Me(Me.tablettb_Open_Challenges.DisplayTextColumn) = value + End Set + End Property + + _ + Public Function Isid_Cheevo_ChallengesNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges.id_Cheevo_ChallengesColumn) End Function _ - Public Sub Setid_Moby_Releases_ScreenshotsNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.id_Moby_Releases_ScreenshotsColumn) = Global.System.Convert.DBNull + Public Sub Setid_Cheevo_ChallengesNull() + Me(Me.tablettb_Open_Challenges.id_Cheevo_ChallengesColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsURLNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) + Public Function IsNameNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges.NameColumn) End Function _ - Public Sub SetURLNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.URLColumn) = Global.System.Convert.DBNull + Public Sub SetNameNull() + Me(Me.tablettb_Open_Challenges.NameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) + Public Function IsTierNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges.TierColumn) End Function _ - Public Sub SetDescriptionNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.DescriptionColumn) = Global.System.Convert.DBNull + Public Sub SetTierNull() + Me(Me.tablettb_Open_Challenges.TierColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Istmp_DescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) + Public Function IsMaxTierNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges.MaxTierColumn) End Function _ - Public Sub Settmp_DescriptionNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Screenshots.tmp_DescriptionColumn) = Global.System.Convert.DBNull + Public Sub SetMaxTierNull() + Me(Me.tablettb_Open_Challenges.MaxTierColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDisplayTextNull() As Boolean + Return Me.IsNull(Me.tablettb_Open_Challenges.DisplayTextColumn) + End Function + + _ + Public Sub SetDisplayTextNull() + Me(Me.tablettb_Open_Challenges.DisplayTextColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class src_ucr_Emulation_Moby_Releases_Cover_ArtRow + Partial Public Class ttb_Emulators_PreLaunch_CommandsRow Inherits Global.System.Data.DataRow - Private tablesrc_ucr_Emulation_Moby_Releases_Cover_Art As src_ucr_Emulation_Moby_Releases_Cover_ArtDataTable + Private tablettb_Emulators_PreLaunch_Commands As ttb_Emulators_PreLaunch_CommandsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art = CType(Me.Table,src_ucr_Emulation_Moby_Releases_Cover_ArtDataTable) + Me.tablettb_Emulators_PreLaunch_Commands = CType(Me.Table,ttb_Emulators_PreLaunch_CommandsDataTable) End Sub _ - Public Property id_Moby_Releases_Cover_Art() As String + Public Property id_Emulators_Pre_Post_Launch_Commands() As Long + Get + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.id_Emulators_Pre_Post_Launch_CommandsColumn),Long) + End Get + Set + Me(Me.tablettb_Emulators_PreLaunch_Commands.id_Emulators_Pre_Post_Launch_CommandsColumn) = value + End Set + End Property + + _ + Public Property id_Emulators() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.id_EmulatorsColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Cover_Art in Tabelle src_ucr_Emulation_Moby_"& _ - "Releases_Cover_Art ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emulators in Tabelle ttb_Emulators_PreLaunch_Commands ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.id_EmulatorsColumn) = value End Set End Property _ - Public Property id_Moby_Cover_Art_Types() As Long + Public Property Sort() As Long Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn),Long) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.SortColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Cover_Art_Types in Tabelle src_ucr_Emulation_Moby_Rel"& _ - "eases_Cover_Art ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle ttb_Emulators_PreLaunch_Commands ist DBNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.SortColumn) = value End Set End Property _ - Public Property URL() As String + Public Property Directory() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.DirectoryColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Art ist "& _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Directory in Tabelle ttb_Emulators_PreLaunch_Commands ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.DirectoryColumn) = value End Set End Property _ - Public Property Packaging() As String + Public Property Executable() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.ExecutableColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Packaging in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Ar"& _ - "t ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Executable in Tabelle ttb_Emulators_PreLaunch_Commands ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.ExecutableColumn) = value End Set End Property _ - Public Property Comment() As String + Public Property Parameter() As String Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.ParameterColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Comment in Tabelle src_ucr_Emulation_Moby_Releases_Cover_Art "& _ - "ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Parameter in Tabelle ttb_Emulators_PreLaunch_Commands ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.ParameterColumn) = value End Set End Property _ - Public Property PackageComment() As String + Public Property Minimized() As Boolean Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.MinimizedColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PackageComment in Tabelle src_ucr_Emulation_Moby_Releases_Cov"& _ - "er_Art ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Minimized in Tabelle ttb_Emulators_PreLaunch_Commands ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.MinimizedColumn) = value End Set End Property _ - Public Property tmp_Description() As String + Public Property WaitForExit() As Boolean Get Try - Return CType(Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn),String) + Return CType(Me(Me.tablettb_Emulators_PreLaunch_Commands.WaitForExitColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_ucr_Emulation_Moby_Releases_Co"& _ - "ver_Art ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WaitForExit in Tabelle ttb_Emulators_PreLaunch_Commands ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) = value + Me(Me.tablettb_Emulators_PreLaunch_Commands.WaitForExitColumn) = value End Set End Property _ - Public Function Isid_Moby_Releases_Cover_ArtNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.id_EmulatorsColumn) End Function _ - Public Sub Setid_Moby_Releases_Cover_ArtNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Releases_Cover_ArtColumn) = Global.System.Convert.DBNull + Public Sub Setid_EmulatorsNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.id_EmulatorsColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Isid_Moby_Cover_Art_TypesNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) + Public Function IsSortNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.SortColumn) End Function _ - Public Sub Setid_Moby_Cover_Art_TypesNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.id_Moby_Cover_Art_TypesColumn) = Global.System.Convert.DBNull + Public Sub SetSortNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.SortColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsURLNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) + Public Function IsDirectoryNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.DirectoryColumn) End Function _ - Public Sub SetURLNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.URLColumn) = Global.System.Convert.DBNull + Public Sub SetDirectoryNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.DirectoryColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPackagingNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) + Public Function IsExecutableNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.ExecutableColumn) End Function _ - Public Sub SetPackagingNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackagingColumn) = Global.System.Convert.DBNull + Public Sub SetExecutableNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.ExecutableColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCommentNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) + Public Function IsParameterNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.ParameterColumn) End Function _ - Public Sub SetCommentNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.CommentColumn) = Global.System.Convert.DBNull + Public Sub SetParameterNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.ParameterColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPackageCommentNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) + Public Function IsMinimizedNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.MinimizedColumn) End Function _ - Public Sub SetPackageCommentNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.PackageCommentColumn) = Global.System.Convert.DBNull + Public Sub SetMinimizedNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.MinimizedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Istmp_DescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) + Public Function IsWaitForExitNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PreLaunch_Commands.WaitForExitColumn) End Function _ - Public Sub Settmp_DescriptionNull() - Me(Me.tablesrc_ucr_Emulation_Moby_Releases_Cover_Art.tmp_DescriptionColumn) = Global.System.Convert.DBNull + Public Sub SetWaitForExitNull() + Me(Me.tablettb_Emulators_PreLaunch_Commands.WaitForExitColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class src_frm_MOBY_Extras_ManagerRow + Partial Public Class ttb_Emulators_PostLaunch_CommandsRow Inherits Global.System.Data.DataRow - Private tablesrc_frm_MOBY_Extras_Manager As src_frm_MOBY_Extras_ManagerDataTable + Private tablettb_Emulators_PostLaunch_Commands As ttb_Emulators_PostLaunch_CommandsDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tablesrc_frm_MOBY_Extras_Manager = CType(Me.Table,src_frm_MOBY_Extras_ManagerDataTable) + Me.tablettb_Emulators_PostLaunch_Commands = CType(Me.Table,ttb_Emulators_PostLaunch_CommandsDataTable) End Sub _ - Public Property ExtraType() As String - Get - Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ExtraType in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) - End Try - End Get - Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) = value - End Set - End Property - - _ - Public Property id_Moby_Extras_Properties() As Long + Public Property id_Emulators_Pre_Post_Launch_Commands() As Long Get - Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Extras_Properties in Tabelle src_frm_MOBY_Extras_Mana"& _ - "ger ist DBNull.", e) - End Try + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.id_Emulators_Pre_Post_Launch_CommandsColumn),Long) End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.id_Emulators_Pre_Post_Launch_CommandsColumn) = value End Set End Property _ - Public Property id_Moby_Releases_Screenshots() As Long + Public Property id_Emulators() As Long Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn),Long) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.id_EmulatorsColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Screenshots in Tabelle src_frm_MOBY_Extras_M"& _ - "anager ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Emulators in Tabelle ttb_Emulators_PostLaunch_Commands ist"& _ + " DBNull.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.id_EmulatorsColumn) = value End Set End Property _ - Public Property id_Moby_Releases_Cover_Art() As Long + Public Property Sort() As Long Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn),Long) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.SortColumn),Long) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Releases_Cover_Art in Tabelle src_frm_MOBY_Extras_Man"& _ - "ager ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle ttb_Emulators_PostLaunch_Commands ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.SortColumn) = value End Set End Property _ - Public Property Show() As Boolean + Public Property Directory() As String Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn),Boolean) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.DirectoryColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Show in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Directory in Tabelle ttb_Emulators_PostLaunch_Commands ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.DirectoryColumn) = value End Set End Property _ - Public Property Sort() As Long + Public Property Executable() As String Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn),Long) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.ExecutableColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Executable in Tabelle ttb_Emulators_PostLaunch_Commands ist D"& _ + "BNull.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.ExecutableColumn) = value End Set End Property _ - Public Property URL() As String + Public Property Parameter() As String Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn),String) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.ParameterColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte URL in Tabelle src_frm_MOBY_Extras_Manager ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Parameter in Tabelle ttb_Emulators_PostLaunch_Commands ist DB"& _ + "Null.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.ParameterColumn) = value End Set End Property _ - Public Property tmp_Description() As String + Public Property Minimized() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn),String) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.MinimizedColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Description in Tabelle src_frm_MOBY_Extras_Manager ist DB"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Minimized in Tabelle ttb_Emulators_PostLaunch_Commands ist DB"& _ "Null.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.MinimizedColumn) = value End Set End Property _ - Public Property tmp_Available() As Boolean + Public Property WaitForExit() As Boolean Get Try - Return CType(Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn),Boolean) + Return CType(Me(Me.tablettb_Emulators_PostLaunch_Commands.WaitForExitColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Available in Tabelle src_frm_MOBY_Extras_Manager ist DBNu"& _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WaitForExit in Tabelle ttb_Emulators_PostLaunch_Commands ist "& _ + "DBNull.", e) End Try End Get Set - Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) = value + Me(Me.tablettb_Emulators_PostLaunch_Commands.WaitForExitColumn) = value End Set End Property _ - Public Function IsExtraTypeNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) - End Function - - _ - Public Sub SetExtraTypeNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.ExtraTypeColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isid_Moby_Extras_PropertiesNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) - End Function - - _ - Public Sub Setid_Moby_Extras_PropertiesNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Extras_PropertiesColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isid_Moby_Releases_ScreenshotsNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) - End Function - - _ - Public Sub Setid_Moby_Releases_ScreenshotsNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_ScreenshotsColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Isid_Moby_Releases_Cover_ArtNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) - End Function - - _ - Public Sub Setid_Moby_Releases_Cover_ArtNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.id_Moby_Releases_Cover_ArtColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsShowNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) + Public Function Isid_EmulatorsNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.id_EmulatorsColumn) End Function _ - Public Sub SetShowNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.ShowColumn) = Global.System.Convert.DBNull + Public Sub Setid_EmulatorsNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.id_EmulatorsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSortNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.SortColumn) End Function _ Public Sub SetSortNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.SortColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsURLNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) - End Function - - _ - Public Sub SetURLNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.URLColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Istmp_DescriptionNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) - End Function - - _ - Public Sub Settmp_DescriptionNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_DescriptionColumn) = Global.System.Convert.DBNull + Me(Me.tablettb_Emulators_PostLaunch_Commands.SortColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Istmp_AvailableNull() As Boolean - Return Me.IsNull(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) + Public Function IsDirectoryNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.DirectoryColumn) End Function _ - Public Sub Settmp_AvailableNull() - Me(Me.tablesrc_frm_MOBY_Extras_Manager.tmp_AvailableColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class tbl_Moby_RegionsRow - Inherits Global.System.Data.DataRow - - Private tabletbl_Moby_Regions As tbl_Moby_RegionsDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tabletbl_Moby_Regions = CType(Me.Table,tbl_Moby_RegionsDataTable) + Public Sub SetDirectoryNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.DirectoryColumn) = Global.System.Convert.DBNull End Sub _ - Public Property id_Moby_Regions() As Long - Get - Return CType(Me(Me.tabletbl_Moby_Regions.id_Moby_RegionsColumn),Long) - End Get - Set - Me(Me.tabletbl_Moby_Regions.id_Moby_RegionsColumn) = value - End Set - End Property - - _ - Public Property id_Moby_Regions_Owner() As Long - Get - Try - Return CType(Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte id_Moby_Regions_Owner in Tabelle tbl_Moby_Regions ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) = value - End Set - End Property - - _ - Public Property _Region() As String - Get - Try - Return CType(Me(Me.tabletbl_Moby_Regions.RegionColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Region in Tabelle tbl_Moby_Regions ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_Moby_Regions.RegionColumn) = value - End Set - End Property - - _ - Public Property Sort() As Long - Get - Try - Return CType(Me(Me.tabletbl_Moby_Regions.SortColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Sort in Tabelle tbl_Moby_Regions ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_Moby_Regions.SortColumn) = value - End Set - End Property - - _ - Public Property tmp_Apply() As Boolean - Get - Try - Return CType(Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte tmp_Apply in Tabelle tbl_Moby_Regions ist DBNull.", e) - End Try - End Get - Set - Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) = value - End Set - End Property - - _ - Public Function Isid_Moby_Regions_OwnerNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) + Public Function IsExecutableNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.ExecutableColumn) End Function _ - Public Sub Setid_Moby_Regions_OwnerNull() - Me(Me.tabletbl_Moby_Regions.id_Moby_Regions_OwnerColumn) = Global.System.Convert.DBNull + Public Sub SetExecutableNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.ExecutableColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_RegionNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Regions.RegionColumn) + Public Function IsParameterNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.ParameterColumn) End Function _ - Public Sub Set_RegionNull() - Me(Me.tabletbl_Moby_Regions.RegionColumn) = Global.System.Convert.DBNull + Public Sub SetParameterNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.ParameterColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSortNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Regions.SortColumn) + Public Function IsMinimizedNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.MinimizedColumn) End Function _ - Public Sub SetSortNull() - Me(Me.tabletbl_Moby_Regions.SortColumn) = Global.System.Convert.DBNull + Public Sub SetMinimizedNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.MinimizedColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Istmp_ApplyNull() As Boolean - Return Me.IsNull(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) + Public Function IsWaitForExitNull() As Boolean + Return Me.IsNull(Me.tablettb_Emulators_PostLaunch_Commands.WaitForExitColumn) End Function _ - Public Sub Settmp_ApplyNull() - Me(Me.tabletbl_Moby_Regions.tmp_ApplyColumn) = Global.System.Convert.DBNull + Public Sub SetWaitForExitNull() + Me(Me.tablettb_Emulators_PostLaunch_Commands.WaitForExitColumn) = Global.System.Convert.DBNull End Sub End Class @@ -49280,4 +55562,328 @@ Partial Public Class DS_ML End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbl_Total_DOS_Launcher_ConfigsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Total_DOS_Launcher_ConfigsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Total_DOS_Launcher_ConfigsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Total_DOS_Launcher_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_Cheevo_ChallengesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Cheevo_ChallengesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Cheevo_ChallengesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Cheevo_ChallengesRow + 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_Cheevo_Challenges_CheevosRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Cheevo_Challenges_CheevosRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Cheevo_Challenges_CheevosRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Cheevo_Challenges_CheevosRow + 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_Users_Cheevo_Challenges_CheevosRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbl_Users_Cheevo_Challenges_CheevosRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbl_Users_Cheevo_Challenges_CheevosRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbl_Users_Cheevo_Challenges_CheevosRow + 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_Cheevo_Challenges_TiersRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Cheevo_Challenges_TiersRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Cheevo_Challenges_TiersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Cheevo_Challenges_TiersRow + 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_Open_Challenges_CheevosRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Open_Challenges_CheevosRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Open_Challenges_CheevosRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Open_Challenges_CheevosRow + 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_Open_ChallengesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Open_ChallengesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Open_ChallengesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Open_ChallengesRow + 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_Emulators_PreLaunch_CommandsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Emulators_PreLaunch_CommandsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Emulators_PreLaunch_CommandsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Emulators_PreLaunch_CommandsRow + 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_Emulators_PostLaunch_CommandsRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As ttb_Emulators_PostLaunch_CommandsRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As ttb_Emulators_PostLaunch_CommandsRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As ttb_Emulators_PostLaunch_CommandsRow + 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 index 76df74d..af34f81 100644 --- a/Metropolis_Launcher/DataSets/DS_ML.vb +++ b/Metropolis_Launcher/DataSets/DS_ML.vb @@ -1,11 +1,11 @@ Partial Class DS_ML - Partial Public Class tbl_Moby_RegionsDataTable + Partial Public Class ttb_Emulators_PreLaunch_CommandsDataTable End Class Public Enum enm_FilterSetTypes - All = 0 - Emulation = 1 - End Enum + 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 @@ -374,38 +374,42 @@ #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, id_List_Generators FROM tbl_Emulators ORDER BY Displayname", dt, tran) + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Emulators, Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core, id_List_Generators, ScriptType, ScriptPath 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) + 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, Optional ByVal id_Users As Object = Nothing) 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" + Dim sSQL As String = "" + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " PLTFM.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , PLTFM.Display_Name" & ControlChars.CrLf + sSQL &= " , CASE WHEN EMUPLTFM.id_Moby_Platforms IS NOT NULL THEN 1 ELSE 0 END AS Supported" & ControlChars.CrLf + sSQL &= " , IFNULL(" & ControlChars.CrLf + sSQL &= " UEMUPLTFM.DefaultEmulator, " & ControlChars.CrLf + sSQL &= " IFNULL(EMUPLTFM.DefaultEmulator, 0)" & ControlChars.CrLf + sSQL &= " ) AS DefaultEmulator" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Platforms PLTFM" & ControlChars.CrLf + sSQL &= " 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) & ControlChars.CrLf + sSQL &= " LEFT JOIN main.tbl_Moby_Platforms_Settings PLTFMS ON PLTFM.id_Moby_Platforms = PLTFMS.id_Moby_Platforms " & ControlChars.CrLf + sSQL &= " LEFT JOIN main.tbl_Users_Emulators_Moby_Platforms UEMUPLTFM ON UEMUPLTFM.id_Users = " & TC.getSQLFormat(TC.NZ(id_Users, 0)) & " AND PLTFM.id_Moby_Platforms = UEMUPLTFM.id_Moby_Platforms AND UEMUPLTFM.id_Emulators = " & TC.getSQLFormat(id_Emulators) & ControlChars.CrLf + sSQL &= " WHERE PLTFM.Visible = 1" & ControlChars.CrLf + sSQL &= " AND PLTFM.GenericEmulated = 1" & ControlChars.CrLf + sSQL &= " AND PLTFM.id_Moby_Platforms_Owner IS NULL" & ControlChars.CrLf + sSQL &= " AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1)" & ControlChars.CrLf + sSQL &= " ORDER BY Display_Name" & ControlChars.CrLf 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) & _ + 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 @@ -455,7 +459,7 @@ 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 &= " (PLTFM.id_Moby_Platforms IN (-1, -2) AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1))" & ControlChars.CrLf sSQL &= " OR" & ControlChars.CrLf sSQL &= " (" & ControlChars.CrLf sSQL &= " PLTFM.Visible = 1" & ControlChars.CrLf @@ -463,7 +467,7 @@ 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 &= " PLTFMS.Visible IS NULL" & ControlChars.CrLf sSQL &= " OR" & ControlChars.CrLf sSQL &= " PLTFMS.Visible = 1" & ControlChars.CrLf sSQL &= " )" & ControlChars.CrLf @@ -477,7 +481,7 @@ 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)) + 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), Optional ByVal id_Cheevo_Challenges As Object = CLng(0), Optional ByVal Cheevo_Challenges_Tier As Object = CLng(0), Optional ByVal Cheevo_Challenges_Show_Completed As Boolean = False) If dt Is Nothing Then dt = New src_ucr_Emulation_GamesDataTable dt.Clear() @@ -547,6 +551,7 @@ sSQL &= " " & ControlChars.CrLf sSQL &= " , PF.Name AS Platform" & ControlChars.CrLf sSQL &= " , PF.ShortName AS Platform_Short" & ControlChars.CrLf + sSQL &= " , PF.RetroAchievements AS Platform_RetroAchievements" & ControlChars.CrLf sSQL &= " , GAME.Name AS Game_NoPrefix" & ControlChars.CrLf sSQL &= " , EMUGAME.created" & ControlChars.CrLf sSQL &= " " & ControlChars.CrLf @@ -673,8 +678,12 @@ 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 &= " , IFNULL(EMUGAME.CRC32, RB.CRC) AS CRC32" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.SHA1, RB.SHA1) AS SHA1" & ControlChars.CrLf + sSQL &= " , IFNULL(EMUGAME.MD5, RB.MD5) AS MD5" & ControlChars.CrLf + 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 &= " " & IIf(cls_Globals.id_Cheevo_Challenges = 0L AndAlso 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 PFALT ON EMUGAME.id_Moby_Platforms_Alternative = PFALT.id_Moby_Platforms" & ControlChars.CrLf @@ -691,6 +700,7 @@ 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 + sSQL &= " LEFT JOIN rombase.tbl_Rombase RB ON EMUGAME.id_Rombase = RB.id_Rombase" & ControlChars.CrLf 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 @@ -699,9 +709,9 @@ '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 &= " WHERE " & IIf(ShowHidden, " 1=1", " (EMUGAME.Hidden IS NULL OR EMUGAME.Hidden = 0)") & ControlChars.CrLf - sSQL &= " AND (PFS.Visible IS NULL OR PFS.Visible = 1)" + sSQL &= " AND (PFS.Visible IS NULL OR PFS.Visible = 1)" & ControlChars.CrLf If Not ShowVolumes AndAlso id_Emu_Games Is Nothing Then sSQL &= " AND EMUGAME.id_Emu_Games_Owner IS NULL" & ControlChars.CrLf @@ -715,7 +725,7 @@ End If Else - sSQL &= " AND EMUGAME.id_Emu_Games > 0" 'Prevent Emu_Mapping entries from showing up + sSQL &= " AND EMUGAME.id_Emu_Games > 0" & ControlChars.CrLf '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 @@ -743,29 +753,56 @@ 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 &= " )" + sSQL &= " AND GAME.id_Moby_Games IN (" & ControlChars.CrLf + sSQL &= " SELECT SQGroup_MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Game_Groups_Moby_Releases SQGroup_MGGMR" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases SQGroup_MR ON SQGroup_MGGMR.id_Moby_Releases = SQGroup_MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " WHERE SQGroup_MGGMR.id_Moby_Game_Groups = " & TC.getSQLFormat(id_Moby_Game_Groups) & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf 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 &= " AND GAME.id_Moby_Games IN (" & ControlChars.CrLf + sSQL &= " SELECT SQStaff_MR.id_Moby_Games" & ControlChars.CrLf + sSQL &= " FROM moby.tbl_Moby_Releases_Staff SQStaff_MRS" & ControlChars.CrLf + sSQL &= " INNER JOIN moby.tbl_Moby_Releases SQStaff_MR ON SQStaff_MRS.id_Moby_Releases = SQStaff_MR.id_Moby_Releases" & ControlChars.CrLf + sSQL &= " WHERE SQStaff_MRS.id_Moby_Staff = " & TC.getSQLFormat(id_Moby_Staff) & ControlChars.CrLf sSQL &= " )" End If + If TC.NZ(id_Cheevo_Challenges, 0) > 0 Then + 'TODO: id_Cheevo_Challenges + sSQL &= " AND EMUGAME.id_Emu_Games IN (" & ControlChars.CrLf + sSQL &= " SELECT CCC.id_Emu_Games FROM tbl_Cheevo_Challenges_Cheevos CCC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Users_Cheevo_Challenges_Cheevos UCCC ON CCC.id_Cheevo_Challenges_Cheevos = UCCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= 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") & ControlChars.CrLf + sSQL &= " WHERE CCC.id_Cheevo_Challenges = " & TC.getSQLFormat(id_Cheevo_Challenges) & ControlChars.CrLf + If TC.NZ(Cheevo_Challenges_Tier, 0) > 0 Then + If Cheevo_Challenges_Show_Completed Then + sSQL &= " AND CCC.Tier <= " & TC.getSQLFormat(Cheevo_Challenges_Tier) & ControlChars.CrLf + Else + sSQL &= " AND CCC.Tier = " & TC.getSQLFormat(Cheevo_Challenges_Tier) & ControlChars.CrLf + End If + End If + + If Not Cheevo_Challenges_Show_Completed Then + sSQL &= " AND" & ControlChars.CrLf + sSQL &= " ( " & ControlChars.CrLf + sSQL &= " UCCC.id_Users_Cheevo_Challenges_Cheevos IS NULL" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 0 AND IFNULL(UCCC.Unlocked_Casual, 0) = 0)" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 1 AND IFNULL(UCCC.Unlocked_Hardcore, 0) = 0)" & ControlChars.CrLf + sSQL &= " ) " & ControlChars.CrLf + End If + + sSQL &= " )" & ControlChars.CrLf + End If + If TC.NZ(id_FilterSets, 0) > 0 Then - sSQL &= " AND 1 = 1" + sSQL &= " AND 1 = 1" & ControlChars.CrLf End If If ShowVolumes Then - sSQL &= " ORDER BY Volume_Number" + sSQL &= " ORDER BY EMUGAME.Volume_Number" & ControlChars.CrLf End If 'sSQL &= " ORDER BY GAME.Name" @@ -821,7 +858,7 @@ 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 &= " WHEN ATTC.Name = 'Multiplayer Game Modes' OR ATTC.Name = 'Multiplayer Options' OR ATTC.Name LIKE 'Number of Players%' THEN 'Multiplayer Attributes'" & ControlChars.CrLf sSQL &= " ELSE 'Tech Info'" & ControlChars.CrLf sSQL &= " END" & ControlChars.CrLf sSQL &= " AS CategoryGroup" & ControlChars.CrLf @@ -1067,7 +1104,11 @@ 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) + Public Shared Function 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, Optional ByVal Only_DOSBox_Filetype As cls_Globals.enm_Rombase_DOSBox_Filetypes = 0) As DS_ML.tbl_Emu_GamesDataTable + If dt Is Nothing Then + dt = New DS_ML.tbl_Emu_GamesDataTable + End If + sSQL = "" sSQL &= "SELECT" sSQL &= " EMUGAMES.id_Emu_Games" @@ -1161,32 +1202,43 @@ sSQL &= " , ROMBASE.id_Moby_Platforms AS ROMBASE_id_Moby_Platforms" sSQL &= " , EMUGAMES.created" sSQL &= " , CASE WHEN REL.deprecated = 1 THEN 1 ELSE MG.deprecated END AS deprecated" + sSQL &= " , EMUGAMES.TDL_Show_in_Menu" + sSQL &= " , EMUGAMES.TDL_DisplayText" + sSQL &= " , EMUGAMES.TDL_Sort" 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" sSQL &= " LEFT JOIN tbl_Moby_Releases REL ON REL.id_Moby_Games = MG.id_Moby_Games AND REL.id_Moby_Platforms = EMUGAMES.id_Moby_Platforms" - If id_Emu_Games = 0 Then - sSQL &= " WHERE EMUGAMES.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) - End If + sSQL &= " WHERE 1=1" - If id_Emu_Games > 0 Then - sSQL &= " WHERE EMUGAMES.id_Emu_Games = " & TC.getSQLFormat(id_Emu_Games) + If id_Emu_Games = 0 Then + sSQL &= " AND EMUGAMES.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) + ElseIf id_Emu_Games > 0 Then + sSQL &= " AND ( 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 + + sSQL &= " )" + End If + + If Only_DOSBox_Filetype <> 0 Then + sSQL &= " AND EMUGAMES.id_Rombase_DOSBox_Filetypes = " & Only_DOSBox_Filetype End If sSQL &= " ORDER BY File, InnerFile" DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) - End Sub + + Return dt + End Function 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 &= " 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 @@ -2297,7 +2349,7 @@ 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) + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, "SELECT id_Users, Admin, Username, Password, Restricted, IFNULL(id_Cheevo_Challenges, 0) AS id_Cheevo_Challenges 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) @@ -4955,6 +5007,262 @@ MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) End Sub + + Public Shared Sub Fill_tbl_Total_DOS_Launcher_Configs(ByRef dt As tbl_Total_DOS_Launcher_ConfigsDataTable, Optional ByVal id_Total_DOS_Launcher_Configs As Int64 = 0) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " -id_Rombase_Total_DOS_Launcher_Configs AS id_Total_DOS_Launcher_Configs" & ControlChars.CrLf + sSQL &= " , DisplayName" & ControlChars.CrLf + sSQL &= " , proglocations" & ControlChars.CrLf + sSQL &= " , cachelocation" & ControlChars.CrLf + sSQL &= " , userlevel" & ControlChars.CrLf + sSQL &= " , forcelogging" & ControlChars.CrLf + sSQL &= " , swapping" & ControlChars.CrLf + sSQL &= " , preloading" & ControlChars.CrLf + sSQL &= " , pauseafterrun" & ControlChars.CrLf + sSQL &= " , VESA" & ControlChars.CrLf + sSQL &= "FROM rombase.tbl_Rombase_Total_DOS_Launcher_Configs" & ControlChars.CrLf + sSQL &= "WHERE " & IIf(id_Total_DOS_Launcher_Configs > 0, "0=1", "1=1") & ControlChars.CrLf + sSQL &= IIf(id_Total_DOS_Launcher_Configs < 0, " AND id_Rombase_Total_DOS_Launcher_Configs = " & TC.getSQLFormat(-1 * id_Total_DOS_Launcher_Configs), "") & ControlChars.CrLf + + sSQL &= "UNION" & ControlChars.CrLf + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " id_Total_DOS_Launcher_Configs AS id_Total_DOS_Launcher_Configs" & ControlChars.CrLf + sSQL &= " , DisplayName" & ControlChars.CrLf + sSQL &= " , proglocations" & ControlChars.CrLf + sSQL &= " , cachelocation" & ControlChars.CrLf + sSQL &= " , userlevel" & ControlChars.CrLf + sSQL &= " , forcelogging" & ControlChars.CrLf + sSQL &= " , swapping" & ControlChars.CrLf + sSQL &= " , preloading" & ControlChars.CrLf + sSQL &= " , pauseafterrun" & ControlChars.CrLf + sSQL &= " , VESA" & ControlChars.CrLf + sSQL &= "FROM tbl_Total_DOS_Launcher_Configs" & ControlChars.CrLf + sSQL &= "WHERE " & IIf(id_Total_DOS_Launcher_Configs < 0, "0=1", "1=1") & ControlChars.CrLf + sSQL &= IIf(id_Total_DOS_Launcher_Configs > 0, " AND id_Total_DOS_Launcher_Configs = " & TC.getSQLFormat(id_Total_DOS_Launcher_Configs), "") & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_tbl_Cheevo_Challenges(ByRef dt As tbl_Cheevo_ChallengesDataTable) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , Name" & ControlChars.CrLf + sSQL &= " , created" & ControlChars.CrLf + sSQL &= " , updated" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= "ORDER BY Name" + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_tbl_Cheevo_Challenges_Cheevos(ByRef dt As tbl_Cheevo_Challenges_CheevosDataTable, Optional ByVal id_Cheevo_Challenges As Int64 = 0, Optional ByVal Tier As Int64 = 0) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= " , IFNULL(CheevoType, 0) AS CheevoType" & ControlChars.CrLf + sSQL &= " , id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , Tier" & ControlChars.CrLf + sSQL &= " , id_Emu_Games" & ControlChars.CrLf + sSQL &= " , Cheevo_GameName" & ControlChars.CrLf + sSQL &= " , Cheevo_ID" & ControlChars.CrLf + sSQL &= " , Cheevo_Title" & ControlChars.CrLf + sSQL &= " , Cheevo_Description" & ControlChars.CrLf + sSQL &= " , Cheevo_Points" & ControlChars.CrLf + sSQL &= " , Cheevo_BadgeName" & ControlChars.CrLf + sSQL &= " , Cheevo_Flags" & ControlChars.CrLf + sSQL &= " , Hardcore" & ControlChars.CrLf + sSQL &= " , Runtime" & ControlChars.CrLf + sSQL &= " , created" & ControlChars.CrLf + sSQL &= " , updated" & ControlChars.CrLf + 'sSQL &= " , Cheevo_Title || CASE WHEN IFNULL(Hardcore, 0) = 1 THEN ' [Hardcore]' ELSE ' [Casual]' END AS tmp_Cheevo_Title_with_Mode" & ControlChars.CrLf sSQL &= " , Cheevo_Title || CASE WHEN IFNULL(Hardcore, 0) = 1 THEN ' [Hardcore]' ELSE ' [Casual]' END AS tmp_Cheevo_Title_with_Mode" & ControlChars.CrLf + sSQL &= " , Cheevo_Title || CASE WHEN IFNULL(CheevoType, 0) = 0 THEN CASE WHEN IFNULL(Hardcore, 0) = 1 THEN ' [Hardcore]' ELSE ' [Casual]' END ELSE '' END AS tmp_Cheevo_Title_with_Mode" & ControlChars.CrLf + + sSQL &= "FROM tbl_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= "WHERE 1=1" & ControlChars.CrLf + If id_Cheevo_Challenges <> 0 Then + sSQL &= " AND id_Cheevo_Challenges = " & TC.getSQLFormat(id_Cheevo_Challenges) & ControlChars.CrLf + End If + If Tier > 0 Then + sSQL &= " AND Tier = " & TC.getSQLFormat(Tier) & ControlChars.CrLf + End If + sSQL &= "ORDER BY created" & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_ttb_Cheevo_Challenges_Tiers(ByRef dt As ttb_Cheevo_Challenges_TiersDataTable, ByVal id_Cheevo_Challenges As Int64) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " " & TC.getSQLFormat(id_Cheevo_Challenges) & " AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , Tier" & ControlChars.CrLf + sSQL &= " , 'Tier ' + Tier AS Displayname" & ControlChars.CrLf + sSQL &= "FROM" & ControlChars.CrLf + sSQL &= "(SELECT DISTINCT Tier FROM tbl_Cheevo_Challenges_Cheevos WHERE id_Cheevo_Challenges = " & TC.getSQLFormat(id_Cheevo_Challenges) & ") SQ" & ControlChars.CrLf + sSQL &= "ORDER BY Tier ASC" & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Shared Sub Fill_ttb_Open_Challenges(ByRef dt As ttb_Open_ChallengesDataTable) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CC.id_Cheevo_Challenges AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CC.Name AS Name" & ControlChars.CrLf + sSQL &= " , (" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " MIN(Tier)" & ControlChars.CrLf + sSQL &= " FROM tbl_Cheevo_Challenges_Cheevos CCC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Users_Cheevo_Challenges_Cheevos UCCC ON CCC.id_Cheevo_Challenges_Cheevos = UCCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= 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") & ControlChars.CrLf + sSQL &= " WHERE CCC.id_Cheevo_Challenges = CC.id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " AND UCCC.id_Users_Cheevo_Challenges_Cheevos IS NULL" & ControlChars.CrLf + sSQL &= " AND (" & ControlChars.CrLf + sSQL &= " (IFNULL(CCC.Hardcore, 0) = 0 AND IFNULL(UCCC.Unlocked_Casual, 0) = 0)" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 1 AND IFNULL(UCCC.Unlocked_Hardcore, 0) = 0)" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " )" & ControlChars.CrLf + sSQL &= " AS Tier" & ControlChars.CrLf + sSQL &= " , (SELECT MAX(Tier) FROM tbl_Cheevo_Challenges_Cheevos CCC WHERE CCC.id_Cheevo_Challenges = CC.id_Cheevo_Challenges) AS MaxTier" & ControlChars.CrLf + sSQL &= " , 1 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges CC" & ControlChars.CrLf + sSQL &= "WHERE CC.id_Cheevo_Challenges IN (" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " FROM tbl_Cheevo_Challenges_Cheevos CCC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Users_Cheevo_Challenges_Cheevos UCCC ON CCC.id_Cheevo_Challenges_Cheevos = UCCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= 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") & ControlChars.CrLf + sSQL &= " WHERE UCCC.id_Users_Cheevo_Challenges_Cheevos IS NULL" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 0 AND IFNULL(UCCC.Unlocked_Casual, 0) = 0)" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 1 AND IFNULL(UCCC.Unlocked_Hardcore, 0) = 0)" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + + sSQL &= " UNION" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " 0 AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , 'None' AS Name" & ControlChars.CrLf + sSQL &= " , 0 AS Tier" & ControlChars.CrLf + sSQL &= " , 0 AS MaxTier" & ControlChars.CrLf + sSQL &= " , 0 AS Sort" & ControlChars.CrLf + + 'Always UNION Completed Challenges + sSQL &= "UNION" & ControlChars.CrLf + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CC.id_Cheevo_Challenges AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CC.Name AS Name" & ControlChars.CrLf + sSQL &= " , -1 AS Tier" & ControlChars.CrLf + sSQL &= " , (SELECT MAX(Tier) FROM tbl_Cheevo_Challenges_Cheevos CCC WHERE CCC.id_Cheevo_Challenges = CC.id_Cheevo_Challenges) AS MaxTier" & ControlChars.CrLf + sSQL &= " , 2 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges CC" & ControlChars.CrLf + sSQL &= "WHERE CC.id_Cheevo_Challenges NOT IN (" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " FROM tbl_Cheevo_Challenges_Cheevos CCC" & ControlChars.CrLf + sSQL &= " LEFT JOIN tbl_Users_Cheevo_Challenges_Cheevos UCCC ON CCC.id_Cheevo_Challenges_Cheevos = UCCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= 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") & ControlChars.CrLf + sSQL &= " WHERE UCCC.id_Users_Cheevo_Challenges_Cheevos IS NULL" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 0 AND IFNULL(UCCC.Unlocked_Casual, 0) = 0)" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 1 AND IFNULL(UCCC.Unlocked_Hardcore, 0) = 0)" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + + sSQL &= "ORDER BY Sort, Name" + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + + If cls_Globals.id_Cheevo_Challenges > 0 Then + 'User is bound to a challenge and this challenge may not be included (because it is already completed) + Dim isChallengeInTable As Boolean = False + For Each row As DataRow In dt.Rows + If row("id_Cheevo_Challenges") = cls_Globals.id_Cheevo_Challenges Then + isChallengeInTable = True + End If + Next + + If Not isChallengeInTable Then + sSQL = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CC.id_Cheevo_Challenges AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CC.Name AS Name" & ControlChars.CrLf + sSQL &= " , -1 AS Tier" & ControlChars.CrLf + sSQL &= " , (SELECT MAX(Tier) FROM tbl_Cheevo_Challenges_Cheevos CCC WHERE CCC.id_Cheevo_Challenges = CC.id_Cheevo_Challenges) AS MaxTier" & ControlChars.CrLf + sSQL &= " , 1 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges CC" & ControlChars.CrLf + sSQL &= "WHERE CC.id_Cheevo_Challenges = " & TC.getSQLFormat(cls_Globals.id_Cheevo_Challenges) + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End If + End If + + For Each row As DataRow In dt.Rows + row("DisplayText") = row("Name") & IIf(row("Tier") > 0, " Tier " & row("Tier") & " of " & row("MaxTier"), "") & IIf(row("Tier") = -1, " (completed)", "") + Next + End Sub + + Public Shared Sub Fill_ttb_Open_Challenges_Cheevos(ByRef dt As ttb_Open_Challenges_CheevosDataTable) + dt.Clear() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= " , CCC.id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , IFNULL(CCC.CheevoType, 0) AS CheevoType" & ControlChars.CrLf + sSQL &= " , UCCC.id_Users_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= " , CC.Name AS Challenge_Name" & ControlChars.CrLf + sSQL &= " , CCC.Tier" & ControlChars.CrLf + sSQL &= " , CCC.id_Emu_Games" & ControlChars.CrLf + sSQL &= " , CCC.Cheevo_GameName" & ControlChars.CrLf + sSQL &= " , CCC.Cheevo_ID" & ControlChars.CrLf + sSQL &= " , CCC.Cheevo_Title || CASE WHEN IFNULL(CCC.CheevoType, 0) = 0 THEN CASE WHEN IFNULL(CCC.Hardcore, 0) = 1 THEN ' [Hardcore]' ELSE ' [Casual]' END ELSE '' END AS Cheevo_Title" & ControlChars.CrLf + sSQL &= " , CCC.Cheevo_Description" & ControlChars.CrLf + sSQL &= " , CCC.Hardcore" & ControlChars.CrLf + sSQL &= " , CCC.Runtime" & ControlChars.CrLf + sSQL &= " , UCCC.Unlocked_Casual" & ControlChars.CrLf + sSQL &= " , UCCC.Unlocked_Hardcore" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges_Cheevos CCC" & ControlChars.CrLf + sSQL &= "LEFT JOIN tbl_Users_Cheevo_Challenges_Cheevos UCCC ON CCC.id_Cheevo_Challenges_Cheevos = UCCC.id_Cheevo_Challenges_Cheevos" & ControlChars.CrLf + sSQL &= 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") & ControlChars.CrLf + sSQL &= "INNER JOIN tbl_Cheevo_Challenges CC ON CCC.id_Cheevo_Challenges = CC.id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= "WHERE UCCC.id_Users_Cheevo_Challenges_Cheevos IS NULL" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 0 AND IFNULL(UCCC.Unlocked_Casual, 0) = 0)" & ControlChars.CrLf + sSQL &= " OR (IFNULL(CCC.Hardcore, 0) = 1 AND IFNULL(UCCC.Unlocked_Hardcore, 0) = 0)" & ControlChars.CrLf + + MKNetLib.cls_MKSQLiteDataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, dt) + End Sub + + Public Sub Fill_ttb_Emulators_Pre_Post_Launch_Commands(ByRef tran As SQLite.SQLiteTransaction, ByRef dt As DataTable, ByVal id_Emulators As Int64, ByVal isPreLaunch As Boolean) + dt.Clear() + + Dim sSQL As String = "" + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " id_Emulators_Pre_Post_Launch_Commands" & ControlChars.CrLf + sSQL &= " , id_Emulators" & ControlChars.CrLf + sSQL &= " , Sort" & ControlChars.CrLf + sSQL &= " , Directory" & ControlChars.CrLf + sSQL &= " , Executable" & ControlChars.CrLf + sSQL &= " , Parameter" & ControlChars.CrLf + sSQL &= " , Minimized" & ControlChars.CrLf + sSQL &= " , WaitForExit" & ControlChars.CrLf + sSQL &= "FROM tbl_Emulators_Pre_Post_Launch_Commands EPPLC" & ControlChars.CrLf + sSQL &= "WHERE " & IIf(isPreLaunch, "PreLaunch", "PostLaunch") & " = 1" & ControlChars.CrLf + sSQL &= " AND id_Emulators = " & TC.getSQLFormat(id_Emulators) & ControlChars.CrLf + sSQL &= "ORDER BY Sort" & ControlChars.CrLf + + DataAccess.FireProcedureReturnDT(tran.Connection, 0, False, sSQL, dt, tran) + End Sub + #End Region #Region "Upsert Statements" @@ -4965,7 +5273,7 @@ ''' ''' 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", "deprecated", "tmp_Highlighted"} + 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", "deprecated"} Dim id_Emu_Games As Object = Nothing If TC.NZ(row("id_Emu_Games"), 0) > 0 Then @@ -4979,7 +5287,7 @@ sSQL = "UPDATE tbl_Emu_Games SET " For Each col As DataColumn In row.Table.Columns - If Not Column_Blacklist.Contains(col.ColumnName) Then + If Not Column_Blacklist.Contains(col.ColumnName) AndAlso Not col.ColumnName.StartsWith("tmp") Then If bFirst Then sSQL &= " " bFirst = False @@ -5510,11 +5818,11 @@ 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) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Users (Username, Password, Admin, Restricted, id_Cheevo_Challenges) VALUES (" & TC.getSQLParameter(row("Username"), row("Password"), row("Admin"), row("Restricted"), TC.NZ("id_Cheevo_Challenges", 0)) & ")", 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) + 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")) & ", id_Cheevo_Challenges = " & TC.getSQLFormat(TC.NZ(row("id_Cheevo_Challenges"), 0)) & " WHERE id_Users = " & TC.getSQLFormat(row("id_Users")), tran) End If Next End Sub @@ -5702,6 +6010,78 @@ Return id_List_Generators End If End Function + + Public Shared Function Upsert_tbl_Total_DOS_Launcher_Configs(ByRef tran As SQLite.SQLiteTransaction, ByVal DisplayName As String, ByVal proglocations As String, ByVal cachelocation As String, ByVal userlevel As String, ByVal forcelogging As Boolean, ByVal swapping As Boolean, ByVal preloading As Boolean, ByVal pauseafterrun As Boolean, ByVal VESA As Object, Optional ByVal id_Total_DOS_Launcher_Configs As Int64 = 0L) As Int64 + If id_Total_DOS_Launcher_Configs = 0L Then + Return DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Total_DOS_Launcher_Configs (DisplayName, proglocations, cachelocation, userlevel, forcelogging, swapping, preloading, pauseafterrun, VESA) VALUES (" & TC.getSQLParameter(DisplayName, proglocations, cachelocation, userlevel, forcelogging, swapping, preloading, pauseafterrun, VESA) & "); SELECT last_insert_rowid()", tran) + Else + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Total_DOS_Launcher_Configs SET DisplayName = " & TC.getSQLFormat(DisplayName) & ", proglocations = " & TC.getSQLFormat(proglocations) & ", cachelocation = " & TC.getSQLFormat(cachelocation) & ", userlevel = " & TC.getSQLFormat(userlevel) & ", forcelogging = " & TC.getSQLFormat(forcelogging) & ", swapping = " & TC.getSQLFormat(swapping) & ", preloading = " & TC.getSQLFormat(preloading) & ", pauseafterrun = " & TC.getSQLFormat(pauseafterrun) & ", VESA = " & TC.getSQLFormat(VESA) & " WHERE id_Total_DOS_Launcher_Configs = " & TC.getSQLFormat(id_Total_DOS_Launcher_Configs), tran) + Return id_Total_DOS_Launcher_Configs + End If + End Function + + Public Shared Sub Upsert_tbl_Users_Emulators_Moby_Platforms_Enforce_Not_Default(ByRef tran As SQLite.SQLiteTransaction, Optional ByVal id_Users As Int64 = 0, Optional ByVal id_Moby_Platforms As Int64 = 0, Optional ByVal id_Emulators As Int64 = 0) + Dim dt_Users As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Users, Username FROM tbl_Users WHERE IFNULL(Admin, 0) = 0" & IIf(id_Users > 0, " AND id_Users = " & TC.getSQLFormat(id_Users), "")) + Dim dt_Emulators As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, "SELECT id_Emulators, Displayname FROM tbl_Emulators" & IIf(id_Emulators > 0, " WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators), "")) + + For Each row_User As DataRow In dt_Users.Rows + Dim current_id_Users As Int64 = row_User("id_Users") + + Dim sSQLCheckDefaults As String = "" + sSQLCheckDefaults &= "SELECT COUNT(1)" & ControlChars.CrLf + sSQLCheckDefaults &= "FROM tbl_Users_Emulators_Moby_Platforms" & ControlChars.CrLf + sSQLCheckDefaults &= "WHERE id_Users = " & TC.getSQLFormat(current_id_Users) & ControlChars.CrLf + sSQLCheckDefaults &= "AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQLCheckDefaults &= "AND DefaultEmulator = 1" & ControlChars.CrLf + + If TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQLCheckDefaults, tran), 0) > 0 Then + For Each row_Emulators As DataRow In dt_Emulators.Rows + Dim sSQL As String = "" + sSQL &= "SELECT id_Users_Emulators_Moby_Platforms" & ControlChars.CrLf + sSQL &= "FROM tbl_Users_Emulators_Moby_Platforms" & ControlChars.CrLf + sSQL &= "WHERE id_Users = " & TC.getSQLFormat(current_id_Users) & ControlChars.CrLf + sSQL &= "AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL &= "AND id_Emulators = " & TC.getSQLFormat(row_Emulators("id_Emulators")) & ControlChars.CrLf + + Dim id_Users_Emulators_Moby_Platforms As Int64 = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQL, tran), 0L) + + If id_Users_Emulators_Moby_Platforms = 0L Then + 'INSERT (we dont need to update) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Users_Emulators_Moby_Platforms (id_Users, id_Emulators, id_Moby_Platforms, DefaultEmulator) VALUES (" & TC.getSQLParameter(current_id_Users, row_Emulators("id_Emulators"), id_Moby_Platforms, 0) & ")", tran) + End If + Next + End If + + Next + End Sub + + Public Shared Sub Upsert_tbl_Users_Emulators_Moby_Platforms_Enforce_Not_Default_All_Emulators_For_Platform(ByRef tran As SQLite.SQLiteTransaction, ByVal id_Users As Int64, ByVal id_Moby_Platforms As Int64, ByVal excluded_id_Emulators As Int64) + Dim sSQL As String = "" + sSQL &= "INSERT INTO tbl_Users_Emulators_Moby_Platforms (" & ControlChars.CrLf + sSQL &= " id_Users" & ControlChars.CrLf + sSQL &= " , id_Emulators" & ControlChars.CrLf + sSQL &= " , id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , DefaultEmulator" & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " " & TC.getSQLFormat(id_Users) & " AS id_Users" & ControlChars.CrLf + sSQL &= " , EMP.id_Emulators AS id_Emulators" & ControlChars.CrLf + sSQL &= " , EMP.id_Moby_Platforms AS id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " , 0 AS DefaultEmulator" & ControlChars.CrLf + sSQL &= "FROM tbl_Emulators_Moby_Platforms EMP" & ControlChars.CrLf + sSQL &= "WHERE EMP.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL &= "AND (EMP.id_Emulators <> " & TC.getSQLFormat(excluded_id_Emulators) & ")" & ControlChars.CrLf + sSQL &= "AND EMP.id_Emulators || '-' || EMP.id_Moby_Platforms NOT IN (" & ControlChars.CrLf + sSQL &= " SELECT UEMP.id_Emulators || '-' || UEMP.id_Moby_Platforms" & ControlChars.CrLf + sSQL &= " FROM tbl_Users_Emulators_Moby_Platforms UEMP" & ControlChars.CrLf + sSQL &= " WHERE UEMP.id_Users = " & TC.getSQLFormat(id_Users) & ControlChars.CrLf + sSQL &= " AND UEMP.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL &= ")" & ControlChars.CrLf + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL, tran) + End Sub + + #End Region #Region "Delete Statements" @@ -5724,7 +6104,7 @@ 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 &= " ) Then" 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) @@ -6147,6 +6527,50 @@ End Sub #End Region +#Region "Transformations" + ''' + ''' + ''' + ''' Table filled with Files and optional with CWDs + ''' Optional Table filled with CWDs + Public Shared Sub Prepare_tmp_DOSBox_DisplayText(ByRef tbl_Emu_Games As DS_ML.tbl_Emu_GamesDataTable, Optional ByRef tbl_Emu_Games_CWDs As DS_ML.tbl_Emu_GamesDataTable = Nothing) + If tbl_Emu_Games_CWDs Is Nothing Then + tbl_Emu_Games_CWDs = tbl_Emu_Games + End If + + For Each row As DS_ML.tbl_Emu_GamesRow In tbl_Emu_Games.Rows + 'If TC.NZ(row("id_Rombase_DOSBox_Filetypes"), 0) <> cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then + Dim oInnerFile As Object = row("InnerFile") + Dim oFolder As Object = row("Folder") + + If TC.NZ(oInnerFile, "").Length = 0 Then + row("tmp_DOSBox_DisplayText") = oFolder + Continue For + End If + + For Each row_cwd As DS_ML.tbl_Emu_GamesRow In tbl_Emu_Games_CWDs.Rows + If TC.NZ(row_cwd("id_Rombase_DOSBox_Filetypes"), 0) = cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then + If TC.NZ(row_cwd("Folder"), "") <> "" AndAlso row("Folder").ToString.Contains(row_cwd("Folder")) Then + If TC.NZ(row("InnerFile"), "") <> "" Then + row("tmp_DOSBox_DisplayText") = row("Folder").Replace(row_cwd("Folder"), "") & "\" & row("InnerFile") + End If + End If + End If + Next + + If TC.NZ(row("tmp_DOSBox_DisplayText"), "") = "" Then + row("tmp_DOSBox_DisplayText") = TC.NZ(oInnerFile, "") + End If + + 'Packed content contains forward slashes, we want to display backward slashes, also we don't want a prepended backward slash + row("tmp_DOSBox_DisplayText") = MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row("tmp_DOSBox_DisplayText"), "").Replace("/", "\"), "\") + 'End If + Next + + End Sub + +#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) diff --git a/Metropolis_Launcher/DataSets/DS_ML.xsd b/Metropolis_Launcher/DataSets/DS_ML.xsd index 830167a..6f1f1b9 100644 --- a/Metropolis_Launcher/DataSets/DS_ML.xsd +++ b/Metropolis_Launcher/DataSets/DS_ML.xsd @@ -67,6 +67,8 @@ + + @@ -111,6 +113,9 @@ + + + @@ -149,6 +154,7 @@ + @@ -219,6 +225,7 @@ + @@ -650,6 +657,11 @@ + + + + + @@ -1074,6 +1086,7 @@ + @@ -1380,6 +1393,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Metropolis_Launcher/DataSets/DS_ML.xss b/Metropolis_Launcher/DataSets/DS_ML.xss index 9b9e6bf..bf2b760 100644 --- a/Metropolis_Launcher/DataSets/DS_ML.xss +++ b/Metropolis_Launcher/DataSets/DS_ML.xss @@ -4,54 +4,63 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.Designer.vb b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.Designer.vb new file mode 100644 index 0000000..ea88bc3 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.Designer.vb @@ -0,0 +1,540 @@ + _ +Partial Class frm_Cheevo_Challenges_Add + 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 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 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 ToolTipItem1 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Cheevo_Challenges_Add)) + Dim SuperToolTip3 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 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() + Me.lbl_Challenge = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Challenges = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Cheevo_Challenges = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.lbl_Tier = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Tier = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Tiers = New System.Windows.Forms.BindingSource(Me.components) + Me.gb_Cheevos_in_Tier = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_RetroAchievements = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Cheevos_in_Tier = New System.Windows.Forms.BindingSource(Me.components) + Me.agv_RetroAchievements = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.colCheevo_GameName = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colTitle = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colDescription1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.rpi_RetroAchievements_Unlock = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.lbl_Cheevos_in_Tier_Message = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Hardcore = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Hardcore = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_CantAdd = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Total_Runtime = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_Hours = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_Hours = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Minutes = New MKNetDXLib.ctl_MKDXLabel() + Me.spn_Minutes = New MKNetDXLib.ctl_MKDXSpinEdit() + Me.lbl_AchievementDisplayText = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Cheevo_Challenges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Tier.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Tiers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_Cheevos_in_Tier, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Cheevos_in_Tier.SuspendLayout() + CType(Me.grd_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Cheevos_in_Tier, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.agv_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_RetroAchievements_Unlock, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Hardcore.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Hours.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.spn_Minutes.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Challenge + ' + Me.lbl_Challenge.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Challenge.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Challenge.Location = New System.Drawing.Point(3, 26) + Me.lbl_Challenge.MKBoundControl1 = Nothing + Me.lbl_Challenge.MKBoundControl2 = Nothing + Me.lbl_Challenge.MKBoundControl3 = Nothing + Me.lbl_Challenge.MKBoundControl4 = Nothing + Me.lbl_Challenge.MKBoundControl5 = Nothing + Me.lbl_Challenge.Name = "lbl_Challenge" + Me.lbl_Challenge.Size = New System.Drawing.Size(77, 20) + Me.lbl_Challenge.TabIndex = 3 + Me.lbl_Challenge.Text = "Challenge:" + ' + 'cmb_Challenges + ' + Me.cmb_Challenges.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_Challenges.Location = New System.Drawing.Point(81, 26) + Me.cmb_Challenges.MKBoundLabel = Nothing + Me.cmb_Challenges.MKEditValue_Compare = Nothing + Me.cmb_Challenges.Name = "cmb_Challenges" + ToolTipTitleItem1.Text = "Add new Challenge" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + Me.cmb_Challenges.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, SuperToolTip1, True)}) + Me.cmb_Challenges.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Cheevo_Challenges", "id_Cheevo_Challenges", 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("created", "created", 5, DevExpress.Utils.FormatType.DateTime, "dd.MM.yyyy", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("updated", "updated", 5, DevExpress.Utils.FormatType.DateTime, "dd.MM.yyyy", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Challenges.Properties.DataSource = Me.BS_Cheevo_Challenges + Me.cmb_Challenges.Properties.DisplayMember = "Name" + Me.cmb_Challenges.Properties.NullText = "" + Me.cmb_Challenges.Properties.ShowFooter = False + Me.cmb_Challenges.Properties.ShowHeader = False + Me.cmb_Challenges.Properties.ValueMember = "id_Cheevo_Challenges" + Me.cmb_Challenges.Size = New System.Drawing.Size(404, 20) + Me.cmb_Challenges.TabIndex = 2 + ' + 'BS_Cheevo_Challenges + ' + Me.BS_Cheevo_Challenges.DataMember = "tbl_Cheevo_Challenges" + Me.BS_Cheevo_Challenges.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_Tier + ' + Me.lbl_Tier.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Tier.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Tier.Location = New System.Drawing.Point(3, 49) + Me.lbl_Tier.MKBoundControl1 = Nothing + Me.lbl_Tier.MKBoundControl2 = Nothing + Me.lbl_Tier.MKBoundControl3 = Nothing + Me.lbl_Tier.MKBoundControl4 = Nothing + Me.lbl_Tier.MKBoundControl5 = Nothing + Me.lbl_Tier.Name = "lbl_Tier" + Me.lbl_Tier.Size = New System.Drawing.Size(77, 20) + ToolTipTitleItem2.Text = "Tier" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem1) + Me.lbl_Tier.SuperTip = SuperToolTip2 + Me.lbl_Tier.TabIndex = 4 + Me.lbl_Tier.Text = "Tier:" + ' + 'cmb_Tier + ' + Me.cmb_Tier.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_Tier.Location = New System.Drawing.Point(81, 49) + Me.cmb_Tier.MKBoundLabel = Nothing + Me.cmb_Tier.MKEditValue_Compare = Nothing + Me.cmb_Tier.Name = "cmb_Tier" + Me.cmb_Tier.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)}) + Me.cmb_Tier.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Cheevo_Challenges", "id_Cheevo_Challenges", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Tier", "Tier", 5, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayName", "Display Name", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Tier.Properties.DataSource = Me.BS_Tiers + Me.cmb_Tier.Properties.DisplayMember = "Tier" + Me.cmb_Tier.Properties.NullText = "" + Me.cmb_Tier.Properties.ShowFooter = False + Me.cmb_Tier.Properties.ShowHeader = False + Me.cmb_Tier.Properties.ValueMember = "Tier" + Me.cmb_Tier.Size = New System.Drawing.Size(404, 20) + ToolTipTitleItem3.Text = "Tier" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = resources.GetString("ToolTipItem2.Text") + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem2) + Me.cmb_Tier.SuperTip = SuperToolTip3 + Me.cmb_Tier.TabIndex = 5 + ' + 'BS_Tiers + ' + Me.BS_Tiers.DataMember = "ttb_Cheevo_Challenges_Tiers" + Me.BS_Tiers.DataSource = Me.DS_ML + ' + 'gb_Cheevos_in_Tier + ' + Me.gb_Cheevos_in_Tier.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_Cheevos_in_Tier.Controls.Add(Me.grd_RetroAchievements) + Me.gb_Cheevos_in_Tier.Controls.Add(Me.lbl_Cheevos_in_Tier_Message) + Me.gb_Cheevos_in_Tier.Location = New System.Drawing.Point(3, 118) + Me.gb_Cheevos_in_Tier.Name = "gb_Cheevos_in_Tier" + Me.gb_Cheevos_in_Tier.Size = New System.Drawing.Size(482, 209) + Me.gb_Cheevos_in_Tier.TabIndex = 6 + Me.gb_Cheevos_in_Tier.Text = "Achievements in selected Tier" + ' + 'grd_RetroAchievements + ' + Me.grd_RetroAchievements.DataSource = Me.BS_Cheevos_in_Tier + Me.grd_RetroAchievements.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_RetroAchievements.Location = New System.Drawing.Point(2, 39) + Me.grd_RetroAchievements.MainView = Me.agv_RetroAchievements + Me.grd_RetroAchievements.Name = "grd_RetroAchievements" + Me.grd_RetroAchievements.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_RetroAchievements_Unlock}) + Me.grd_RetroAchievements.Size = New System.Drawing.Size(478, 168) + Me.grd_RetroAchievements.TabIndex = 10 + Me.grd_RetroAchievements.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.agv_RetroAchievements}) + ' + 'BS_Cheevos_in_Tier + ' + Me.BS_Cheevos_in_Tier.DataMember = "tbl_Cheevo_Challenges_Cheevos" + Me.BS_Cheevos_in_Tier.DataSource = Me.DS_ML + Me.BS_Cheevos_in_Tier.Filter = "Tier = 0" + ' + 'agv_RetroAchievements + ' + Me.agv_RetroAchievements.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1}) + Me.agv_RetroAchievements.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colCheevo_GameName, Me.colTitle, Me.colDescription1}) + Me.agv_RetroAchievements.GridControl = Me.grd_RetroAchievements + Me.agv_RetroAchievements.GroupFormat = "{1}" + Me.agv_RetroAchievements.Name = "agv_RetroAchievements" + Me.agv_RetroAchievements.OptionsView.ColumnAutoWidth = True + Me.agv_RetroAchievements.OptionsView.ShowBands = False + Me.agv_RetroAchievements.OptionsView.ShowColumnHeaders = False + Me.agv_RetroAchievements.OptionsView.ShowGroupPanel = False + Me.agv_RetroAchievements.OptionsView.ShowIndicator = False + ' + 'GridBand1 + ' + Me.GridBand1.Caption = "GridBand1" + Me.GridBand1.Columns.Add(Me.colCheevo_GameName) + Me.GridBand1.Columns.Add(Me.colTitle) + Me.GridBand1.Columns.Add(Me.colDescription1) + Me.GridBand1.Name = "GridBand1" + Me.GridBand1.VisibleIndex = 0 + Me.GridBand1.Width = 351 + ' + 'colCheevo_GameName + ' + Me.colCheevo_GameName.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.colCheevo_GameName.AppearanceCell.Options.UseFont = True + Me.colCheevo_GameName.FieldName = "Cheevo_GameName" + Me.colCheevo_GameName.Name = "colCheevo_GameName" + Me.colCheevo_GameName.OptionsColumn.AllowEdit = False + Me.colCheevo_GameName.OptionsColumn.AllowFocus = False + Me.colCheevo_GameName.OptionsColumn.ReadOnly = True + Me.colCheevo_GameName.Visible = True + Me.colCheevo_GameName.Width = 178 + ' + 'colTitle + ' + Me.colTitle.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.colTitle.AppearanceCell.Options.UseFont = True + Me.colTitle.FieldName = "Cheevo_Title" + Me.colTitle.Name = "colTitle" + Me.colTitle.OptionsColumn.AllowEdit = False + Me.colTitle.OptionsColumn.AllowFocus = False + Me.colTitle.OptionsColumn.ReadOnly = True + Me.colTitle.Visible = True + Me.colTitle.Width = 173 + ' + 'colDescription1 + ' + Me.colDescription1.AutoFillDown = True + Me.colDescription1.FieldName = "Cheevo_Description" + Me.colDescription1.Name = "colDescription1" + Me.colDescription1.OptionsColumn.AllowEdit = False + Me.colDescription1.OptionsColumn.AllowFocus = False + Me.colDescription1.OptionsColumn.ReadOnly = True + Me.colDescription1.RowIndex = 1 + Me.colDescription1.Visible = True + Me.colDescription1.Width = 351 + ' + 'rpi_RetroAchievements_Unlock + ' + Me.rpi_RetroAchievements_Unlock.AutoHeight = False + Me.rpi_RetroAchievements_Unlock.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_RetroAchievements_Unlock.DisplayMember = "DisplayText" + Me.rpi_RetroAchievements_Unlock.Name = "rpi_RetroAchievements_Unlock" + Me.rpi_RetroAchievements_Unlock.ValueMember = "id" + ' + 'lbl_Cheevos_in_Tier_Message + ' + Me.lbl_Cheevos_in_Tier_Message.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Cheevos_in_Tier_Message.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Cheevos_in_Tier_Message.Location = New System.Drawing.Point(2, 20) + Me.lbl_Cheevos_in_Tier_Message.MKBoundControl1 = Nothing + Me.lbl_Cheevos_in_Tier_Message.MKBoundControl2 = Nothing + Me.lbl_Cheevos_in_Tier_Message.MKBoundControl3 = Nothing + Me.lbl_Cheevos_in_Tier_Message.MKBoundControl4 = Nothing + Me.lbl_Cheevos_in_Tier_Message.MKBoundControl5 = Nothing + Me.lbl_Cheevos_in_Tier_Message.Name = "lbl_Cheevos_in_Tier_Message" + Me.lbl_Cheevos_in_Tier_Message.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Cheevos_in_Tier_Message.Size = New System.Drawing.Size(478, 19) + Me.lbl_Cheevos_in_Tier_Message.TabIndex = 9 + Me.lbl_Cheevos_in_Tier_Message.Text = "No achievements are defined in the selected tier" + Me.lbl_Cheevos_in_Tier_Message.Visible = False + ' + '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(410, 330) + 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.Enabled = False + Me.btn_OK.Location = New System.Drawing.Point(332, 330) + 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" + ' + 'lbl_Hardcore + ' + Me.lbl_Hardcore.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Hardcore.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Hardcore.Location = New System.Drawing.Point(3, 72) + Me.lbl_Hardcore.MKBoundControl1 = Nothing + Me.lbl_Hardcore.MKBoundControl2 = Nothing + Me.lbl_Hardcore.MKBoundControl3 = Nothing + Me.lbl_Hardcore.MKBoundControl4 = Nothing + Me.lbl_Hardcore.MKBoundControl5 = Nothing + Me.lbl_Hardcore.Name = "lbl_Hardcore" + Me.lbl_Hardcore.Size = New System.Drawing.Size(77, 20) + ToolTipTitleItem4.Text = "Harcore" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "The achievement must be accomplished in hardcore mode." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem3) + Me.lbl_Hardcore.SuperTip = SuperToolTip4 + Me.lbl_Hardcore.TabIndex = 11 + Me.lbl_Hardcore.Text = "Hardcore:" + ' + 'chb_Hardcore + ' + Me.chb_Hardcore.Location = New System.Drawing.Point(81, 72) + Me.chb_Hardcore.MKBoundLabel = Nothing + Me.chb_Hardcore.MKEditValue_Compare = Nothing + Me.chb_Hardcore.Name = "chb_Hardcore" + Me.chb_Hardcore.Properties.Caption = "" + Me.chb_Hardcore.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem5.Text = "Hardcore" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "The achievement must be accomplished in hardcore mode." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem4) + Me.chb_Hardcore.SuperTip = SuperToolTip5 + Me.chb_Hardcore.TabIndex = 12 + ' + 'lbl_CantAdd + ' + Me.lbl_CantAdd.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_CantAdd.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_CantAdd.Location = New System.Drawing.Point(2, 332) + Me.lbl_CantAdd.MKBoundControl1 = Nothing + Me.lbl_CantAdd.MKBoundControl2 = Nothing + Me.lbl_CantAdd.MKBoundControl3 = Nothing + Me.lbl_CantAdd.MKBoundControl4 = Nothing + Me.lbl_CantAdd.MKBoundControl5 = Nothing + Me.lbl_CantAdd.Name = "lbl_CantAdd" + Me.lbl_CantAdd.Size = New System.Drawing.Size(326, 20) + Me.lbl_CantAdd.TabIndex = 13 + Me.lbl_CantAdd.Text = "Note: The achievement is already part of the selected challenge!" + Me.lbl_CantAdd.Visible = False + ' + 'lbl_Total_Runtime + ' + Me.lbl_Total_Runtime.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Total_Runtime.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Total_Runtime.Location = New System.Drawing.Point(3, 95) + Me.lbl_Total_Runtime.MKBoundControl1 = Nothing + Me.lbl_Total_Runtime.MKBoundControl2 = Nothing + Me.lbl_Total_Runtime.MKBoundControl3 = Nothing + Me.lbl_Total_Runtime.MKBoundControl4 = Nothing + Me.lbl_Total_Runtime.MKBoundControl5 = Nothing + Me.lbl_Total_Runtime.Name = "lbl_Total_Runtime" + Me.lbl_Total_Runtime.Size = New System.Drawing.Size(77, 20) + ToolTipTitleItem6.Text = "Total Runtime" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Define here, how long the game has to be played in order to unlock it within the " & + "challenge." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem5) + Me.lbl_Total_Runtime.SuperTip = SuperToolTip6 + Me.lbl_Total_Runtime.TabIndex = 14 + Me.lbl_Total_Runtime.Text = "Total Runtime:" + ' + 'spn_Hours + ' + Me.spn_Hours.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Hours.Location = New System.Drawing.Point(83, 95) + Me.spn_Hours.MKBoundLabel = Nothing + Me.spn_Hours.MKEditValue_Compare = Nothing + Me.spn_Hours.Name = "spn_Hours" + Me.spn_Hours.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.spn_Hours.Properties.IsFloatValue = False + Me.spn_Hours.Properties.Mask.EditMask = "N00" + Me.spn_Hours.Properties.MaxValue = New Decimal(New Integer() {99, 0, 0, 0}) + Me.spn_Hours.Size = New System.Drawing.Size(36, 20) + Me.spn_Hours.TabIndex = 15 + ' + 'lbl_Hours + ' + Me.lbl_Hours.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Hours.Location = New System.Drawing.Point(122, 95) + Me.lbl_Hours.MKBoundControl1 = Nothing + Me.lbl_Hours.MKBoundControl2 = Nothing + Me.lbl_Hours.MKBoundControl3 = Nothing + Me.lbl_Hours.MKBoundControl4 = Nothing + Me.lbl_Hours.MKBoundControl5 = Nothing + Me.lbl_Hours.Name = "lbl_Hours" + Me.lbl_Hours.Size = New System.Drawing.Size(27, 20) + Me.lbl_Hours.TabIndex = 16 + Me.lbl_Hours.Text = "hours" + ' + 'lbl_Minutes + ' + Me.lbl_Minutes.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Minutes.Location = New System.Drawing.Point(191, 95) + Me.lbl_Minutes.MKBoundControl1 = Nothing + Me.lbl_Minutes.MKBoundControl2 = Nothing + Me.lbl_Minutes.MKBoundControl3 = Nothing + Me.lbl_Minutes.MKBoundControl4 = Nothing + Me.lbl_Minutes.MKBoundControl5 = Nothing + Me.lbl_Minutes.Name = "lbl_Minutes" + Me.lbl_Minutes.Size = New System.Drawing.Size(37, 20) + Me.lbl_Minutes.TabIndex = 18 + Me.lbl_Minutes.Text = "minutes" + ' + 'spn_Minutes + ' + Me.spn_Minutes.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) + Me.spn_Minutes.Location = New System.Drawing.Point(152, 95) + Me.spn_Minutes.MKBoundLabel = Nothing + Me.spn_Minutes.MKEditValue_Compare = Nothing + Me.spn_Minutes.Name = "spn_Minutes" + Me.spn_Minutes.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.spn_Minutes.Properties.IsFloatValue = False + Me.spn_Minutes.Properties.Mask.EditMask = "N00" + Me.spn_Minutes.Properties.MaxValue = New Decimal(New Integer() {59, 0, 0, 0}) + Me.spn_Minutes.Size = New System.Drawing.Size(36, 20) + Me.spn_Minutes.TabIndex = 17 + ' + 'lbl_AchievementDisplayText + ' + Me.lbl_AchievementDisplayText.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_AchievementDisplayText.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_AchievementDisplayText.Location = New System.Drawing.Point(3, 3) + Me.lbl_AchievementDisplayText.MKBoundControl1 = Nothing + Me.lbl_AchievementDisplayText.MKBoundControl2 = Nothing + Me.lbl_AchievementDisplayText.MKBoundControl3 = Nothing + Me.lbl_AchievementDisplayText.MKBoundControl4 = Nothing + Me.lbl_AchievementDisplayText.MKBoundControl5 = Nothing + Me.lbl_AchievementDisplayText.Name = "lbl_AchievementDisplayText" + Me.lbl_AchievementDisplayText.Size = New System.Drawing.Size(482, 20) + Me.lbl_AchievementDisplayText.TabIndex = 19 + ' + 'frm_Cheevo_Challenges_Add + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(488, 356) + Me.Controls.Add(Me.lbl_AchievementDisplayText) + Me.Controls.Add(Me.lbl_Minutes) + Me.Controls.Add(Me.spn_Minutes) + Me.Controls.Add(Me.lbl_Hours) + Me.Controls.Add(Me.spn_Hours) + Me.Controls.Add(Me.lbl_Total_Runtime) + Me.Controls.Add(Me.lbl_CantAdd) + Me.Controls.Add(Me.chb_Hardcore) + Me.Controls.Add(Me.lbl_Hardcore) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.gb_Cheevos_in_Tier) + Me.Controls.Add(Me.cmb_Tier) + Me.Controls.Add(Me.lbl_Tier) + Me.Controls.Add(Me.lbl_Challenge) + Me.Controls.Add(Me.cmb_Challenges) + Me.Name = "frm_Cheevo_Challenges_Add" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Add Achievement to Challenge" + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Cheevo_Challenges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Tier.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Tiers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_Cheevos_in_Tier, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Cheevos_in_Tier.ResumeLayout(False) + CType(Me.grd_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Cheevos_in_Tier, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.agv_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_RetroAchievements_Unlock, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Hardcore.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Hours.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.spn_Minutes.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lbl_Challenge As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Challenges As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Tier As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Tier As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents gb_Cheevos_in_Tier As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_RetroAchievements As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents agv_RetroAchievements As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents colTitle As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colDescription1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents rpi_RetroAchievements_Unlock As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents lbl_Cheevos_in_Tier_Message As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents DS_ML As DS_ML + Friend WithEvents BS_Cheevo_Challenges As BindingSource + Friend WithEvents BS_Tiers As BindingSource + Friend WithEvents BS_Cheevos_in_Tier As BindingSource + Friend WithEvents lbl_Hardcore As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Hardcore As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_CantAdd As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents colCheevo_GameName As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents lbl_Total_Runtime As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Hours As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_Hours As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Minutes As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents spn_Minutes As MKNetDXLib.ctl_MKDXSpinEdit + Friend WithEvents lbl_AchievementDisplayText As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.resx b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.resx new file mode 100644 index 0000000..5ce3c49 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.resx @@ -0,0 +1,142 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + A challenge can have multiple tiers. Each achievement within that tier must be accomplished in order to reach the next tier. + +When all achievements in all tiers are accomplished, the challenge is completed. + + + 282, 17 + + + A challenge can have multiple tiers. Each achievement within that tier must be accomplished in order to reach the next tier. + +When all achievements in all tiers are accomplished, the challenge is completed. + + + 378, 17 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.vb b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.vb new file mode 100644 index 0000000..14c1a56 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Add.vb @@ -0,0 +1,320 @@ +Public Class frm_Cheevo_Challenges_Add + Private _CheevoType As cls_Globals.enm_CheevoTypes + Private _row_Cheevo As DataRow = Nothing + Private _id_Emu_Games As Int64 = 0 + Private _GameName As String = "" + Private _JustChooseDestination As Boolean = False + + Public Sub New(CheevoType As cls_Globals.enm_CheevoTypes, id_Emu_Games As Int64, GameName As String, Optional ByRef row_Cheevo As DataRow = Nothing, Optional ByVal JustChooseDestination As Boolean = False) + InitializeComponent() + + _CheevoType = CheevoType + + If _CheevoType = cls_Globals.enm_CheevoTypes.RetroAchievements Then + Me.Name = "frm_Cheevo_Challenges_Add_RetroAchievements" + + If MKNetLib.cls_MKSQLDataAccess.HasColumn(row_Cheevo, "Title") Then + Me.lbl_AchievementDisplayText.Text = GameName.Replace("&", "&&") & ": " & row_Cheevo("Title").Replace("&", "&&") + Else + Me.lbl_AchievementDisplayText.Text = GameName.Replace("&", "&&") & ": " & row_Cheevo("Cheevo_Title").Replace("&", "&&") + End If + + Me.lbl_Hardcore.Visible = True + Me.chb_Hardcore.Visible = True + Me.lbl_Total_Runtime.Visible = False + Me.spn_Hours.Visible = False + Me.lbl_Hours.Visible = False + Me.spn_Minutes.Visible = False + Me.lbl_Minutes.Visible = False + ElseIf _CheevoType = cls_Globals.enm_CheevoTypes.TotalRuntime Then + Me.Name = "frm_Cheevo_Challenges_Add_Runtime" + + Me.lbl_AchievementDisplayText.Text = GameName.Replace("&", "&&") & " (runtime based achievement)" + + Me.lbl_Hardcore.Visible = False + Me.chb_Hardcore.Visible = False + Me.lbl_Total_Runtime.Visible = True + Me.spn_Hours.Visible = True + Me.lbl_Hours.Visible = True + Me.spn_Minutes.Visible = True + Me.lbl_Minutes.Visible = True + + If row_Cheevo IsNot Nothing Then + Dim Runtime As Integer = TC.NZ(row_Cheevo("Runtime"), 0) + + Dim RuntimeMinutes As Integer = Runtime / 60 + + spn_Minutes.Value = RuntimeMinutes Mod 60 + spn_Hours.Value = (RuntimeMinutes - (RuntimeMinutes Mod 60)) / 60 + End If + End If + + Me._JustChooseDestination = JustChooseDestination + + If JustChooseDestination Then + Me.Name = "frm_Cheevo_Challenges_Add_Move" + + Me.lbl_AchievementDisplayText.Text = "Move " & Me.lbl_AchievementDisplayText.Text & " to another challenge" + + Me.Text = "Move Achievement to Challenge" + Me.lbl_Hardcore.Visible = False + Me.chb_Hardcore.Visible = False + Me.lbl_Total_Runtime.Visible = False + 'Me.spn_Hours.Visible = False + 'Me.lbl_Hours.Visible = False + 'Me.spn_Minutes.Visible = False + 'Me.lbl_Minutes.Visible = False + Me.spn_Minutes.ReadOnly = True + Me.spn_Hours.ReadOnly = True + + 'For Each button As DevExpress.XtraEditors.Controls.EditorButton In Me.cmb_Challenges.Properties.Buttons + ' If button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Plus Then + ' button.Visible = False + ' End If + 'Next + + Else + Me.lbl_AchievementDisplayText.Text = "Add " & Me.lbl_AchievementDisplayText.Text & " to a challenge" + End If + + Me._row_Cheevo = row_Cheevo + Me._id_Emu_Games = id_Emu_Games + Me._GameName = GameName + + DS_ML.Fill_tbl_Cheevo_Challenges(Me.DS_ML.tbl_Cheevo_Challenges) + + If BS_Cheevo_Challenges.Current IsNot Nothing Then + cmb_Challenges.EditValue = BS_Cheevo_Challenges.Current("id_Cheevo_Challenges") + End If + + If BS_Tiers.Current IsNot Nothing Then + cmb_Tier.EditValue = BS_Tiers.Current("Tier") + End If + + If BS_Cheevo_Challenges.Current IsNot Nothing AndAlso Me.DS_ML.ttb_Cheevo_Challenges_Tiers.Rows.Count = 0 Then + 'Perform an "add" click on the Tiers-Combobox + Me.cmb_Tier_ButtonPressed(Nothing, New DevExpress.XtraEditors.Controls.ButtonPressedEventArgs(New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus))) + End If + + Update_Buttons_Enabled() + End Sub + + Private Sub BS_Cheevo_Challenges_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Cheevo_Challenges.CurrentChanged + If BS_Cheevo_Challenges.Current Is Nothing Then + Me.DS_ML.ttb_Cheevo_Challenges_Tiers.Clear() + Return + End If + + DS_ML.Fill_ttb_Cheevo_Challenges_Tiers(Me.DS_ML.ttb_Cheevo_Challenges_Tiers, BS_Cheevo_Challenges.Current("id_Cheevo_Challenges")) + + DS_ML.Fill_tbl_Cheevo_Challenges_Cheevos(Me.DS_ML.tbl_Cheevo_Challenges_Cheevos, BS_Cheevo_Challenges.Current("id_Cheevo_Challenges")) + + Update_Buttons_Enabled() + End Sub + + Private Sub BS_Tiers_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Tiers.CurrentChanged + If BS_Tiers.Current Is Nothing Then + Me.BS_Cheevos_in_Tier.Filter = "Tier = 0" + Return + End If + + Me.BS_Cheevos_in_Tier.Filter = "Tier = " & BS_Tiers.Current("Tier") + + Update_Buttons_Enabled() + End Sub + + Private Sub Update_Buttons_Enabled() + '### OK Button ### + If BS_Cheevo_Challenges.Current IsNot Nothing Then + '### Can't add Label ### + Dim canAdd As Boolean = True + + If BS_Tiers.Current Is Nothing Then + canAdd = False + lbl_CantAdd.Text = "Note: Please select or add a tier." + End If + + 'Check if to-be-added achievement is already part of the selected challenge's achievements + + If canAdd AndAlso _CheevoType = cls_Globals.enm_CheevoTypes.RetroAchievements Then + For Each row_CCC As DS_ML.tbl_Cheevo_Challenges_CheevosRow In Me.DS_ML.tbl_Cheevo_Challenges_Cheevos.Rows + If _JustChooseDestination Then + If TC.NZ(row_CCC("Cheevo_ID"), 0) = Me._row_Cheevo("Cheevo_ID") Then + canAdd = False + lbl_CantAdd.Text = "Note: The achievement is already part of the selected challenge!" + End If + Else + If TC.NZ(row_CCC("Cheevo_ID"), 0) = Me._row_Cheevo("ID") Then + canAdd = False + lbl_CantAdd.Text = "Note: The achievement is already part of the selected challenge!" + End If + End If + Next + End If + + If canAdd AndAlso _CheevoType = cls_Globals.enm_CheevoTypes.TotalRuntime Then + 'check if game is already there + For Each row_CCC As DS_ML.tbl_Cheevo_Challenges_CheevosRow In Me.DS_ML.tbl_Cheevo_Challenges_Cheevos.Rows + If row_CCC.id_Emu_Games = Me._id_Emu_Games Then + canAdd = False + lbl_CantAdd.Text = "Note: The game is already part of the selected challenge!" + End If + Next + + If spn_Hours.Value = 0 AndAlso spn_Minutes.Value = 0 Then + canAdd = False + lbl_CantAdd.Text = "Note: Please set a total runtime of at least 1 minute!" + End If + End If + + If Not canAdd Then + Me.lbl_CantAdd.Visible = True + Else + Me.lbl_CantAdd.Visible = False + End If + + Me.btn_OK.Enabled = canAdd + Else + Me.btn_OK.Enabled = False + End If + + '### Add Tier Button ### + Dim allowAddTierButtonEnabled = False + + If BS_Cheevo_Challenges.Current IsNot Nothing Then + Dim maxTier As Int64 = 0 + For Each rowTier As DS_ML.ttb_Cheevo_Challenges_TiersRow In Me.DS_ML.ttb_Cheevo_Challenges_Tiers.Rows + If maxTier < rowTier.Tier Then + maxTier = rowTier.Tier + End If + Next + + If maxTier = 0 Then + allowAddTierButtonEnabled = True + Else + If Me.DS_ML.tbl_Cheevo_Challenges_Cheevos.Select("Tier = " & maxTier).Length > 0 Then + allowAddTierButtonEnabled = True + End If + End If + End If + + For Each button As DevExpress.XtraEditors.Controls.EditorButton In Me.cmb_Tier.Properties.Buttons + If button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Plus Then + button.Enabled = allowAddTierButtonEnabled + End If + Next + End Sub + + Private Sub cmb_Challenges_ButtonPressed(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Challenges.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Plus Then + Using frm As New MKNetDXLib.frm_TextBoxEdit("Name:", "Please provide a name for the new challenge", "") + If frm.ShowDialog <> DialogResult.Cancel Then + Dim row_Challenge As DS_ML.tbl_Cheevo_ChallengesRow = Me.DS_ML.tbl_Cheevo_Challenges.NewRow + row_Challenge.Name = frm.Input + Me.DS_ML.tbl_Cheevo_Challenges.Rows.Add(row_Challenge) + Me.cmb_Challenges.EditValue = row_Challenge("id_Cheevo_Challenges") + + 'Also Perform an "add" click on the Tiers-Combobox + Me.cmb_Tier_ButtonPressed(Nothing, New DevExpress.XtraEditors.Controls.ButtonPressedEventArgs(New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus))) + End If + End Using + End If + End Sub + + Private Sub cmb_Tier_ButtonPressed(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Tier.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Plus Then + Dim minTier = 0 + For Each row_Tier As DS_ML.ttb_Cheevo_Challenges_TiersRow In Me.DS_ML.ttb_Cheevo_Challenges_Tiers.Rows + If minTier < row_Tier.Tier Then + minTier = row_Tier.Tier + End If + Next + + Dim row_newTier As DS_ML.ttb_Cheevo_Challenges_TiersRow = Me.DS_ML.ttb_Cheevo_Challenges_Tiers.NewRow + row_newTier.Tier = minTier + 1 + Me.DS_ML.ttb_Cheevo_Challenges_Tiers.Rows.Add(row_newTier) + Me.cmb_Tier.EditValue = row_newTier("Tier") + + Update_Buttons_Enabled() + End If + End Sub + + Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btn_OK.Click + If BS_Cheevo_Challenges.Current Is Nothing OrElse BS_Tiers.Current Is Nothing Then + Return + End If + + Dim id_Cheevo_Challenges As Int64 = TC.NZ(BS_Cheevo_Challenges.Current("id_Cheevo_Challenges"), -1L) + + If id_Cheevo_Challenges < 0 Then + Dim sSQLInserChallenge = "INSERT INTO tbl_Cheevo_Challenges (Name) VALUES (" & TC.getSQLFormat(BS_Cheevo_Challenges.Current("Name")) & "); SELECT last_insert_rowid()" + id_Cheevo_Challenges = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, sSQLInserChallenge), 0) + End If + + If id_Cheevo_Challenges < 0 Then + MKDXHelper.MessageBox("There has been an error while creating the challenge.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If Me._JustChooseDestination Then + BS_Cheevo_Challenges.Current("id_Cheevo_Challenges") = id_Cheevo_Challenges + Me.cmb_Challenges.EditValue = id_Cheevo_Challenges + Me.DialogResult = DialogResult.OK + Me.Close() + Return + End If + + Dim sSQL = "" + + If Me._CheevoType = cls_Globals.enm_CheevoTypes.RetroAchievements Then + sSQL &= "INSERT INTO tbl_Cheevo_Challenges_Cheevos (" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CheevoType" & ControlChars.CrLf + sSQL &= " , Tier" & ControlChars.CrLf + sSQL &= " , id_Emu_Games" & ControlChars.CrLf + sSQL &= " , Cheevo_GameName" & ControlChars.CrLf + sSQL &= " , Cheevo_ID" & ControlChars.CrLf + sSQL &= " , Cheevo_Title" & ControlChars.CrLf + sSQL &= " , Cheevo_Description" & ControlChars.CrLf + sSQL &= " , Cheevo_Points" & ControlChars.CrLf + sSQL &= " , Cheevo_BadgeName" & ControlChars.CrLf + sSQL &= " , Cheevo_Flags" & ControlChars.CrLf + sSQL &= " , Hardcore" & ControlChars.CrLf + sSQL &= ") VALUES (" & ControlChars.CrLf + sSQL &= TC.getSQLParameter(id_Cheevo_Challenges, Me._CheevoType, BS_Tiers.Current("Tier"), Me._id_Emu_Games, Me._GameName, Me._row_Cheevo("ID"), TC.NZ(Me._row_Cheevo("Title"), ""), Me._row_Cheevo("Description"), Me._row_Cheevo("Points"), Me._row_Cheevo("BadgeName"), Me._row_Cheevo("Flags"), Me.chb_Hardcore.Checked) + sSQL &= ")" + ElseIf Me._CheevoType = cls_Globals.enm_CheevoTypes.TotalRuntime Then + sSQL &= "INSERT INTO tbl_Cheevo_Challenges_Cheevos (" & ControlChars.CrLf + sSQL &= " id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CheevoType" & ControlChars.CrLf + sSQL &= " , Tier" & ControlChars.CrLf + sSQL &= " , id_Emu_Games" & ControlChars.CrLf + sSQL &= " , Cheevo_GameName" & ControlChars.CrLf + sSQL &= " , Cheevo_Title" & ControlChars.CrLf + sSQL &= " , Cheevo_Description" & ControlChars.CrLf + sSQL &= " , Runtime" & ControlChars.CrLf + sSQL &= ") VALUES (" & ControlChars.CrLf + + Dim sTitle As String = "Total Runtime: " & (IIf(spn_Hours.Value > 0, spn_Hours.Value & " " & IIf(spn_Hours.Value > 1, "hours", "hour"), "") & " " & IIf(spn_Minutes.Value > 0, spn_Minutes.Value & " " & IIf(spn_Minutes.Value > 1, "minutes", "minute"), "")).Trim + Dim sDescription As String = "Play the game until you reach a total runtime of " & (IIf(spn_Hours.Value > 0, spn_Hours.Value & " " & IIf(spn_Hours.Value > 1, "hours", "hour"), "") & " " & IIf(spn_Minutes.Value > 0, spn_Minutes.Value & " " & IIf(spn_Minutes.Value > 1, "minutes", "minute"), "")).Trim + + sSQL &= TC.getSQLParameter(id_Cheevo_Challenges, Me._CheevoType, BS_Tiers.Current("Tier"), Me._id_Emu_Games, Me._GameName, sTitle, sDescription, (spn_Hours.Value * 60 + spn_Minutes.Value) * 60) + sSQL &= ")" + End If + + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + + Me.DialogResult = DialogResult.OK + Me.Close() + End Sub + + Private Sub btn_Cancel_Click(sender As Object, e As EventArgs) Handles btn_Cancel.Click + Me.DialogResult = DialogResult.Cancel + Me.Close() + End Sub + + Private Sub spn_Hours_EditValueChanged(sender As Object, e As EventArgs) Handles spn_Minutes.EditValueChanged, spn_Hours.EditValueChanged + Update_Buttons_Enabled() + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.Designer.vb new file mode 100644 index 0000000..fe31360 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.Designer.vb @@ -0,0 +1,348 @@ + _ +Partial Class frm_Cheevo_Challenges_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 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 SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 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 SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Me.lbl_Challenge = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Challenges = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Cheevo_Challenges = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.BS_Cheevo_Challenges_Cheevos = New System.Windows.Forms.BindingSource(Me.components) + Me.grd_Cheevos = New MKNetDXLib.ctl_MKDXGrid() + Me.gv_Cheevos = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTier = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpiTier = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() + Me.colHardcore = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpiHardcore = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colCheevo_GameName = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCheevo_Title = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCheevo_Description = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Save = 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_Cheevo_Remove = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Cheevo_Move = New DevExpress.XtraBars.BarButtonItem() + Me.popmnu_Cheevos = New MKNetDXLib.cmp_MKDXPopupMenu() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Cheevo_Challenges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Cheevo_Challenges_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.grd_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpiTier, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpiHardcore, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_Challenge + ' + Me.lbl_Challenge.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Challenge.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Challenge.Location = New System.Drawing.Point(3, 3) + Me.lbl_Challenge.MKBoundControl1 = Nothing + Me.lbl_Challenge.MKBoundControl2 = Nothing + Me.lbl_Challenge.MKBoundControl3 = Nothing + Me.lbl_Challenge.MKBoundControl4 = Nothing + Me.lbl_Challenge.MKBoundControl5 = Nothing + Me.lbl_Challenge.Name = "lbl_Challenge" + Me.lbl_Challenge.Size = New System.Drawing.Size(77, 20) + Me.lbl_Challenge.TabIndex = 5 + Me.lbl_Challenge.Text = "Challenge:" + ' + 'cmb_Challenges + ' + Me.cmb_Challenges.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_Challenges.Location = New System.Drawing.Point(81, 3) + Me.cmb_Challenges.MKBoundLabel = Nothing + Me.cmb_Challenges.MKEditValue_Compare = Nothing + Me.cmb_Challenges.Name = "cmb_Challenges" + ToolTipTitleItem1.Text = "Add new Challenge" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + ToolTipTitleItem2.Text = "Delete this Challenge" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + Me.cmb_Challenges.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, SuperToolTip1, 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, SuperToolTip2, True)}) + Me.cmb_Challenges.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Cheevo_Challenges", "id_Cheevo_Challenges", 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("created", "created", 5, DevExpress.Utils.FormatType.DateTime, "dd.MM.yyyy", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("updated", "updated", 5, DevExpress.Utils.FormatType.DateTime, "dd.MM.yyyy", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Challenges.Properties.DataSource = Me.BS_Cheevo_Challenges + Me.cmb_Challenges.Properties.DisplayMember = "Name" + Me.cmb_Challenges.Properties.NullText = "" + Me.cmb_Challenges.Properties.ShowFooter = False + Me.cmb_Challenges.Properties.ShowHeader = False + Me.cmb_Challenges.Properties.ValueMember = "id_Cheevo_Challenges" + Me.cmb_Challenges.Size = New System.Drawing.Size(762, 20) + Me.cmb_Challenges.TabIndex = 4 + ' + 'BS_Cheevo_Challenges + ' + Me.BS_Cheevo_Challenges.DataMember = "tbl_Cheevo_Challenges" + Me.BS_Cheevo_Challenges.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Cheevo_Challenges_Cheevos + ' + Me.BS_Cheevo_Challenges_Cheevos.DataMember = "tbl_Cheevo_Challenges_Cheevos" + Me.BS_Cheevo_Challenges_Cheevos.DataSource = Me.DS_ML + Me.BS_Cheevo_Challenges_Cheevos.Filter = "" + ' + 'grd_Cheevos + ' + Me.grd_Cheevos.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_Cheevos.DataSource = Me.BS_Cheevo_Challenges_Cheevos + Me.grd_Cheevos.Location = New System.Drawing.Point(3, 26) + Me.grd_Cheevos.MainView = Me.gv_Cheevos + Me.grd_Cheevos.Name = "grd_Cheevos" + Me.grd_Cheevos.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpiTier, Me.rpiHardcore}) + Me.grd_Cheevos.Size = New System.Drawing.Size(840, 333) + Me.grd_Cheevos.TabIndex = 6 + Me.grd_Cheevos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Cheevos}) + ' + 'gv_Cheevos + ' + Me.gv_Cheevos.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTier, Me.colHardcore, Me.colCheevo_GameName, Me.colCheevo_Title, Me.colCheevo_Description}) + Me.gv_Cheevos.GridControl = Me.grd_Cheevos + Me.gv_Cheevos.Name = "gv_Cheevos" + Me.gv_Cheevos.OptionsView.ColumnAutoWidth = False + Me.gv_Cheevos.OptionsView.ShowGroupPanel = False + Me.gv_Cheevos.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colTier, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'colTier + ' + Me.colTier.ColumnEdit = Me.rpiTier + Me.colTier.FieldName = "Tier" + Me.colTier.Name = "colTier" + Me.colTier.Visible = True + Me.colTier.VisibleIndex = 0 + Me.colTier.Width = 49 + ' + 'rpiTier + ' + Me.rpiTier.AutoHeight = False + Me.rpiTier.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpiTier.IsFloatValue = False + Me.rpiTier.Mask.EditMask = "N00" + Me.rpiTier.MaxValue = New Decimal(New Integer() {99, 0, 0, 0}) + Me.rpiTier.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.rpiTier.Name = "rpiTier" + ' + 'colHardcore + ' + Me.colHardcore.ColumnEdit = Me.rpiHardcore + Me.colHardcore.FieldName = "Hardcore" + Me.colHardcore.Name = "colHardcore" + Me.colHardcore.Visible = True + Me.colHardcore.VisibleIndex = 1 + ' + 'rpiHardcore + ' + Me.rpiHardcore.AutoHeight = False + Me.rpiHardcore.Name = "rpiHardcore" + ' + 'colCheevo_GameName + ' + Me.colCheevo_GameName.Caption = "Game" + Me.colCheevo_GameName.FieldName = "Cheevo_GameName" + Me.colCheevo_GameName.Name = "colCheevo_GameName" + Me.colCheevo_GameName.OptionsColumn.AllowEdit = False + Me.colCheevo_GameName.OptionsColumn.ReadOnly = True + Me.colCheevo_GameName.Visible = True + Me.colCheevo_GameName.VisibleIndex = 2 + Me.colCheevo_GameName.Width = 179 + ' + 'colCheevo_Title + ' + Me.colCheevo_Title.Caption = "Achievement Title" + Me.colCheevo_Title.FieldName = "Cheevo_Title" + Me.colCheevo_Title.Name = "colCheevo_Title" + Me.colCheevo_Title.OptionsColumn.AllowEdit = False + Me.colCheevo_Title.OptionsColumn.ReadOnly = True + Me.colCheevo_Title.Visible = True + Me.colCheevo_Title.VisibleIndex = 3 + Me.colCheevo_Title.Width = 152 + ' + 'colCheevo_Description + ' + Me.colCheevo_Description.Caption = "Achievement Description" + Me.colCheevo_Description.FieldName = "Cheevo_Description" + Me.colCheevo_Description.Name = "colCheevo_Description" + Me.colCheevo_Description.OptionsColumn.AllowEdit = False + Me.colCheevo_Description.OptionsColumn.ReadOnly = True + Me.colCheevo_Description.Visible = True + Me.colCheevo_Description.VisibleIndex = 4 + Me.colCheevo_Description.Width = 365 + ' + '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(768, 362) + 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" + ' + '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.Location = New System.Drawing.Point(3, 362) + Me.btn_Save.Name = "btn_Save" + Me.btn_Save.Size = New System.Drawing.Size(75, 23) + Me.btn_Save.TabIndex = 11 + Me.btn_Save.Text = "&Save" + ' + '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_Cheevo_Remove, Me.bbi_Cheevo_Move}) + 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(846, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 388) + Me.barDockControlBottom.Size = New System.Drawing.Size(846, 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, 388) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(846, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 388) + ' + 'bbi_Cheevo_Remove + ' + Me.bbi_Cheevo_Remove.Caption = "Remove Achievement from Challenge" + Me.bbi_Cheevo_Remove.Id = 0 + Me.bbi_Cheevo_Remove.ImageUri.Uri = "Delete" + Me.bbi_Cheevo_Remove.Name = "bbi_Cheevo_Remove" + ' + 'bbi_Cheevo_Move + ' + Me.bbi_Cheevo_Move.Caption = "Move Achievement to another Challenge" + Me.bbi_Cheevo_Move.Id = 1 + Me.bbi_Cheevo_Move.ImageUri.Uri = "Replace" + Me.bbi_Cheevo_Move.Name = "bbi_Cheevo_Move" + ' + 'popmnu_Cheevos + ' + Me.popmnu_Cheevos.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Cheevo_Remove), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Cheevo_Move)}) + Me.popmnu_Cheevos.Manager = Me.barmng + Me.popmnu_Cheevos.Name = "popmnu_Cheevos" + ' + 'frm_Cheevo_Challenges_Edit + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(846, 388) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.btn_Save) + Me.Controls.Add(Me.grd_Cheevos) + Me.Controls.Add(Me.lbl_Challenge) + Me.Controls.Add(Me.cmb_Challenges) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "frm_Cheevo_Challenges_Edit" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Challenges" + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Cheevo_Challenges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Cheevo_Challenges_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.grd_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpiTier, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpiHardcore, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents lbl_Challenge As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Challenges As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents DS_ML As DS_ML + Friend WithEvents BS_Cheevo_Challenges As BindingSource + Friend WithEvents BS_Cheevo_Challenges_Cheevos As BindingSource + Friend WithEvents grd_Cheevos As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_Cheevos As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Save As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents colTier As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpiTier As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit + Friend WithEvents colHardcore As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpiHardcore As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colCheevo_GameName As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCheevo_Description As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCheevo_Title 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_Cheevo_Remove As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Cheevo_Move As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Cheevos As MKNetDXLib.cmp_MKDXPopupMenu +End Class diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.resx b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.resx new file mode 100644 index 0000000..498bc09 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.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 + + + 97, 9 + + + 8, 9 + + + 273, 9 + + + 500, 9 + + + 594, 9 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.vb b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.vb new file mode 100644 index 0000000..c137955 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Cheevo_Challenges_Edit.vb @@ -0,0 +1,225 @@ +Imports DevExpress.XtraEditors.Controls + +Public Class frm_Cheevo_Challenges_Edit + Public Sub New(Optional ByVal id_Cheevo_Challenges As Int64 = 0L) + InitializeComponent() + + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin Then + rpiHardcore.ReadOnly = True + rpiTier.ReadOnly = True + bbi_Cheevo_Move.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Cheevo_Remove.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + btn_Save.Visible = False + + colHardcore.OptionsColumn.AllowEdit = False + colHardcore.OptionsColumn.ReadOnly = True + + colTier.OptionsColumn.AllowEdit = False + colTier.OptionsColumn.ReadOnly = True + + For Each btn As EditorButton In Me.cmb_Challenges.Properties.Buttons + If btn.Kind <> ButtonPredefines.Combo Then + btn.Visible = False + End If + Next + End If + + barmng.SetPopupContextMenu(grd_Cheevos, popmnu_Cheevos) + + DS_ML.Fill_tbl_Cheevo_Challenges(Me.DS_ML.tbl_Cheevo_Challenges) + + If BS_Cheevo_Challenges.Current IsNot Nothing Then + cmb_Challenges.EditValue = BS_Cheevo_Challenges.Current("id_Cheevo_Challenges") + End If + + If id_Cheevo_Challenges > 0L Then + Me.cmb_Challenges.EditValue = id_Cheevo_Challenges + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_Cheevo_Challenges, "id_Cheevo_Challenges", id_Cheevo_Challenges) + End If + End Sub + + Private Sub BS_Cheevo_Challenges_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Cheevo_Challenges.CurrentChanged + If BS_Cheevo_Challenges.Current Is Nothing Then + Me.DS_ML.tbl_Cheevo_Challenges_Cheevos.Clear() + Me.BS_Cheevo_Challenges_Cheevos.Filter = "" + Return + End If + + DS_ML.Fill_tbl_Cheevo_Challenges_Cheevos(Me.DS_ML.tbl_Cheevo_Challenges_Cheevos, BS_Cheevo_Challenges.Current("id_Cheevo_Challenges")) + Me.BS_Cheevo_Challenges_Cheevos.Filter = "id_Cheevo_Challenges = " & TC.getSQLFormat(BS_Cheevo_Challenges.Current("id_Cheevo_Challenges")) + End Sub + + Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Function hasChanges() As Boolean + BS_Cheevo_Challenges_Cheevos.EndEdit() + + Dim dt_Changes As DataTable = DS_ML.tbl_Cheevo_Challenges_Cheevos.GetChanges + If dt_Changes IsNot Nothing AndAlso dt_Changes.Rows.Count > 0 Then + Return True + End If + + Return False + End Function + + Private Function Save() As Boolean + Try + Dim ar_rows_Delete As New ArrayList + + For Each row_Change As DS_ML.tbl_Cheevo_Challenges_CheevosRow In Me.DS_ML.tbl_Cheevo_Challenges_Cheevos.Rows + If row_Change.RowState = DataRowState.Deleted Then + ar_rows_Delete.Add(row_Change) + Else + 'UPDATE + Dim sSQL As String = "" + sSQL &= "UPDATE tbl_Cheevo_Challenges_Cheevos SET" & ControlChars.CrLf + sSQL &= " Hardcore = " & TC.getSQLFormat(row_Change("Hardcore")) & ControlChars.CrLf + sSQL &= " , Tier = " & TC.getSQLFormat(row_Change("Tier")) & ControlChars.CrLf + sSQL &= " , id_Cheevo_Challenges = " & TC.getSQLFormat(row_Change("id_Cheevo_Challenges")) & ControlChars.CrLf + sSQL &= "WHERE id_Cheevo_Challenges_Cheevos = " & TC.getSQLFormat(row_Change("id_Cheevo_Challenges_Cheevos", DataRowVersion.Original)) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + row_Change.AcceptChanges() + End If + Next + + For Each row_Delete As DS_ML.tbl_Cheevo_Challenges_CheevosRow In ar_rows_Delete + 'DELETE + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Cheevo_Challenges_Cheevos WHERE id_Cheevo_Challenges_Cheevos = " & TC.getSQLFormat(row_Delete("id_Cheevo_Challenges_Cheevos", DataRowVersion.Original))) + row_Delete.AcceptChanges() + Next + Catch ex As Exception + MKDXHelper.ExceptionMessageBox(ex, "Error while saving") + Return False + End Try + + Return True + End Function + + Private Function AskSave(Optional ByVal message As String = "Do you want to save your changes?", Optional ByVal buttons As MessageBoxButtons = MessageBoxButtons.YesNoCancel) As Boolean + If hasChanges() Then + Dim res As DialogResult = MKNetDXLib.cls_MKDXHelper.MessageBox(message, "", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + If res = DialogResult.Cancel Then + Return False + End If + + If res = DialogResult.Yes Then + Return Me.Save() + End If + + If res = DialogResult.No Then + Return True + End If + End If + + Return True + End Function + + Private Sub frm_Cheevo_Challenges_Edit_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing + If Not AskSave() Then + e.Cancel = True + Return + End If + End Sub + + Private Sub bbi_Cheevo_Remove_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Cheevo_Remove.ItemClick + If BS_Cheevo_Challenges_Cheevos.Current Is Nothing Then + Return + End If + + Me.BS_Cheevo_Challenges_Cheevos.RemoveCurrent() + End Sub + + Private Sub bbi_Cheevo_Move_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_Cheevo_Move.ItemClick + Using frm As New frm_Cheevo_Challenges_Add(BS_Cheevo_Challenges_Cheevos.Current("CheevoType"), BS_Cheevo_Challenges_Cheevos.Current("id_Emu_Games"), BS_Cheevo_Challenges_Cheevos.Current("Cheevo_GameName"), BS_Cheevo_Challenges_Cheevos.Current.Row, True) + If frm.ShowDialog() = DialogResult.OK Then + BS_Cheevo_Challenges_Cheevos.Current("id_Cheevo_Challenges") = frm.cmb_Challenges.EditValue + BS_Cheevo_Challenges_Cheevos.Current("Tier") = frm.cmb_Tier.EditValue + + Me.Save() + + Dim selectedChallenge As Long = Me.BS_Cheevo_Challenges.Current("id_Cheevo_Challenges") + + DS_ML.Fill_tbl_Cheevo_Challenges(Me.DS_ML.tbl_Cheevo_Challenges) + + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(Me.BS_Cheevo_Challenges, "id_Cheevo_Challenges", selectedChallenge) + + MKNetDXLib.cls_MKDXHelper.MessageBox("The achievement has been moved.", "Move Achievement to Challenge", MessageBoxButtons.OK, MessageBoxIcon.Information) + + Me.grd_Cheevos.DataSource = Nothing + Me.grd_Cheevos.DataSource = BS_Cheevo_Challenges_Cheevos + + End If + End Using + End Sub + + Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btn_Save.Click + Me.Save() + End Sub + + Private Sub cmb_Challenges_EditValueChanging(sender As Object, e As ChangingEventArgs) Handles cmb_Challenges.EditValueChanging + If Not Me.AskSave Then + e.Cancel = True + Return + End If + End Sub + + Private Sub cmb_Challenges_ButtonPressed(sender As Object, e As ButtonPressedEventArgs) Handles cmb_Challenges.ButtonPressed + If e.Button.Kind = ButtonPredefines.Plus Then + 'Add new Challenge + If Not Me.AskSave Then + Return + End If + + Using frm As New MKNetDXLib.frm_TextBoxEdit("Name:", "Please provide a name for the new challenge", "") + If frm.ShowDialog <> DialogResult.Cancel Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "INSERT INTO tbl_Cheevo_Challenges (Name) VALUES (" & TC.getSQLFormat(frm.Input) & ")") + DS_ML.Fill_tbl_Cheevo_Challenges(Me.DS_ML.tbl_Cheevo_Challenges) + + MKNetDXLib.cls_MKDXHelper.MessageBox("The challenge has been added.", "Add Challenge", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Using + End If + + If e.Button.Kind = ButtonPredefines.Minus Then + 'Delete Challenge + '-> check if this challenge is bound to a user, display question dialog + Dim sUsers As String = TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT GROUP_CONCAT(Username, ', ') AS Users FROM tbl_Users WHERE id_Cheevo_Challenges = " & TC.getSQLFormat(cmb_Challenges.EditValue) & " GROUP BY id_Cheevo_Challenges"), "") + + If sUsers <> "" Then + If MKNetDXLib.cls_MKDXHelper.MessageBox("The selected challenge is currently bound to the following user/s:" & ControlChars.CrLf & ControlChars.CrLf & sUsers & ControlChars.CrLf & ControlChars.CrLf & "Do you want to delete this challenge and remove the challenge binding from the users?", "Delete Challenge", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + Else + If MKNetDXLib.cls_MKDXHelper.MessageBox("Do you really want to delete the selected challenge?", "Delete Challenge", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + End If + + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Cheevo_Challenges WHERE id_Cheevo_Challenges = " & TC.getSQLFormat(cmb_Challenges.EditValue)) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Cheevo_Challenges_Cheevos WHERE id_Cheevo_Challenges NOT IN (SELECT id_Cheevo_Challenges FROM tbl_Cheevo_Challenges)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Users_Cheevo_Challenges_Cheevos WHERE id_Cheevo_Challenges_Cheevos NOT IN (SELECT id_Cheevo_Challenges_Cheevos FROM tbl_Cheevo_Challenges_Cheevos)") + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Users SET id_Cheevo_Challenges = NULL WHERE id_Cheevo_Challenges NOT IN (SELECT id_Cheevo_Challenges FROM tbl_Cheevo_Challenges)") + + DS_ML.Fill_tbl_Cheevo_Challenges(Me.DS_ML.tbl_Cheevo_Challenges) + If BS_Cheevo_Challenges.Current IsNot Nothing Then + Me.cmb_Challenges.EditValue = Me.BS_Cheevo_Challenges.Current("id_Cheevo_Challenges") + Else + Me.cmb_Challenges.EditValue = Nothing + End If + + MKNetDXLib.cls_MKDXHelper.MessageBox("The challenge has been deleted.", "Delete Challenge", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Sub + + Private Sub rpiHardcore_EditValueChanging(sender As Object, e As ChangingEventArgs) Handles rpiHardcore.EditValueChanging + If BS_Cheevo_Challenges_Cheevos.Current("CheevoType") = cls_Globals.enm_CheevoTypes.TotalRuntime Then + MKDXHelper.MessageBox("Runtime based achievements have no distinction between hardcore and casual.", "", MessageBoxButtons.OK, MessageBoxIcon.Information) + e.Cancel = True + Return + End If + 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 index 3e46ba8..06b72de 100644 --- a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.Designer.vb @@ -20,6 +20,9 @@ Partial Class frm_DOSBox_Choose_Exe _ 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.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() Me.btn_Just_Mount = New MKNetDXLib.ctl_MKDXSimpleButton() Me.grd_DOSBox_Files_and_Folders = New MKNetDXLib.ctl_MKDXGrid() @@ -32,6 +35,7 @@ Partial Class frm_DOSBox_Choose_Exe Me.rpi_MV_Volume = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_Create_TDL_Menu = New MKNetDXLib.ctl_MKDXSimpleButton() 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() @@ -97,6 +101,7 @@ Partial Class frm_DOSBox_Choose_Exe 'col_DOSBox_Displayname ' Me.col_DOSBox_Displayname.Caption = "File/Directory" + Me.col_DOSBox_Displayname.FieldName = "DOSBox_Displayname" Me.col_DOSBox_Displayname.Name = "col_DOSBox_Displayname" Me.col_DOSBox_Displayname.OptionsColumn.AllowEdit = False Me.col_DOSBox_Displayname.Visible = True @@ -160,6 +165,7 @@ Partial Class frm_DOSBox_Choose_Exe 'Ctl_MKDXPanel1 ' Me.Ctl_MKDXPanel1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.Ctl_MKDXPanel1.Controls.Add(Me.btn_Create_TDL_Menu) 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 @@ -168,6 +174,21 @@ Partial Class frm_DOSBox_Choose_Exe Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(372, 29) Me.Ctl_MKDXPanel1.TabIndex = 8 ' + 'btn_Create_TDL_Menu + ' + Me.btn_Create_TDL_Menu.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_Create_TDL_Menu.Location = New System.Drawing.Point(3, 3) + Me.btn_Create_TDL_Menu.Name = "btn_Create_TDL_Menu" + Me.btn_Create_TDL_Menu.Size = New System.Drawing.Size(99, 23) + ToolTipTitleItem1.Text = "Create TDL Menu" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Create a native DOS menu with Total DOS Launcher" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.btn_Create_TDL_Menu.SuperTip = SuperToolTip1 + Me.btn_Create_TDL_Menu.TabIndex = 2 + Me.btn_Create_TDL_Menu.Text = "&Create TDL Menu" + ' 'frm_DOSBox_Choose_Exe ' Me.ClientSize = New System.Drawing.Size(372, 384) @@ -202,5 +223,5 @@ Partial Class frm_DOSBox_Choose_Exe 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 - + Friend WithEvents btn_Create_TDL_Menu As MKNetDXLib.ctl_MKDXSimpleButton End Class diff --git a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb index 206c3ae..1c830f2 100644 --- a/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb +++ b/Metropolis_Launcher/Forms/frm_DOSBox_Choose_Exe.vb @@ -1,7 +1,11 @@ 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) + Public _row_Emu_Game As DS_ML.src_ucr_Emulation_GamesRow = Nothing + + Public Sub New(ByVal Exe_Type As String, ByVal Filter As String, ByVal dt As DS_ML.tbl_Emu_GamesDataTable, ByRef row_Emu_Game As DS_ML.src_ucr_Emulation_GamesRow) InitializeComponent() + Me._row_Emu_Game = row_Emu_Game + 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 @@ -14,21 +18,24 @@ 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.DialogResult = Windows.Forms.DialogResult.Ignore 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 + '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 + + e.DisplayText = TC.NZ(gv_DOSBox_Files_and_Folders.GetListSourceRowCellValue(e.ListSourceRowIndex, "tmp_DOSBox_DisplayText"), "") End If End Sub @@ -47,4 +54,22 @@ Me.Close() End If End Sub + + Private Sub btn_Create_TDL_Menu_Click(sender As Object, e As EventArgs) Handles btn_Create_TDL_Menu.Click + Using frm_TDL_Create_Menu As New frm_TDL_Create_Menu(Me._row_Emu_Game) + If frm_TDL_Create_Menu.ShowDialog() = DialogResult.OK Then + 'reload from DB + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + 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")) + + 'Format the DOSBox_DisplayText of the file entries + DS_ML.Prepare_tmp_DOSBox_DisplayText(dt_Files) + + Me.BS_DOSBox_Files_and_Folders.DataSource = dt_Files + + End Using + End If + End Using + 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 index 4bc6091..6e1fb57 100644 --- a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.Designer.vb @@ -23,9 +23,6 @@ Partial Class frm_Emu_Game_Edit _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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() @@ -38,62 +35,61 @@ Partial Class frm_Emu_Game_Edit 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emu_Game_Edit)) - 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 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 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 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 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 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 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() @@ -160,6 +156,10 @@ Partial Class frm_Emu_Game_Edit 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emu_Game_Edit)) Me.Ctl_MKDXLabel1 = New MKNetDXLib.ctl_MKDXLabel() Me.Ctl_MKDXLabel2 = New MKNetDXLib.ctl_MKDXLabel() Me.Ctl_MKDXLabel3 = New MKNetDXLib.ctl_MKDXLabel() @@ -638,13 +638,13 @@ Partial Class frm_Emu_Game_Edit Me.txb_Name.MKEditValue_Compare = Nothing Me.txb_Name.Name = "txb_Name" Me.txb_Name.Size = New System.Drawing.Size(432, 20) - ToolTipTitleItem45.Text = "Name" - ToolTipItem45.LeftIndent = 6 - ToolTipItem45.Text = "This is the name of the game, avoid putting prefixes like ""The"" or ""Disney's"" in " & + ToolTipTitleItem1.Text = "Name" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "This is the name of the game, avoid putting prefixes like ""The"" or ""Disney's"" in " & "here, they belong in the Prefix field." - SuperToolTip45.Items.Add(ToolTipTitleItem45) - SuperToolTip45.Items.Add(ToolTipItem45) - Me.txb_Name.SuperTip = SuperToolTip45 + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_Name.SuperTip = SuperToolTip1 Me.txb_Name.TabIndex = 0 ' 'txb_Prefix @@ -656,13 +656,13 @@ Partial Class frm_Emu_Game_Edit Me.txb_Prefix.MKEditValue_Compare = Nothing Me.txb_Prefix.Name = "txb_Prefix" Me.txb_Prefix.Size = New System.Drawing.Size(432, 20) - ToolTipTitleItem1.Text = "Prefix" - ToolTipItem1.LeftIndent = 6 - ToolTipItem1.Text = "This is the prefix to the game's name. Put ""The"" or ""Disney's"" in here. The list " & + ToolTipTitleItem2.Text = "Prefix" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.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." - SuperToolTip1.Items.Add(ToolTipTitleItem1) - SuperToolTip1.Items.Add(ToolTipItem1) - Me.txb_Prefix.SuperTip = SuperToolTip1 + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.txb_Prefix.SuperTip = SuperToolTip2 Me.txb_Prefix.TabIndex = 1 ' 'txb_Notes @@ -674,14 +674,14 @@ Partial Class frm_Emu_Game_Edit Me.txb_Notes.MKEditValue_Compare = Nothing Me.txb_Notes.Name = "txb_Notes" Me.txb_Notes.Size = New System.Drawing.Size(432, 20) - ToolTipTitleItem2.Text = "Addition Info" - ToolTipItem2.LeftIndent = 6 - ToolTipItem2.Text = "Keep this additional Info short, it will be added to the game's name in brackets," & + ToolTipTitleItem3.Text = "Addition Info" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.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." - SuperToolTip2.Items.Add(ToolTipTitleItem2) - SuperToolTip2.Items.Add(ToolTipItem2) - Me.txb_Notes.SuperTip = SuperToolTip2 + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.txb_Notes.SuperTip = SuperToolTip3 Me.txb_Notes.TabIndex = 2 ' 'grd_Attributes @@ -812,12 +812,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem3.Text = "J2K Preset" - ToolTipItem3.LeftIndent = 6 - ToolTipItem3.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." - SuperToolTip3.Items.Add(ToolTipTitleItem3) - SuperToolTip3.Items.Add(ToolTipItem3) - Me.cmb_J2K_Config.SuperTip = SuperToolTip3 + ToolTipTitleItem4.Text = "J2K Preset" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.cmb_J2K_Config.SuperTip = SuperToolTip4 Me.cmb_J2K_Config.TabIndex = 9 ' 'BS_J2K @@ -856,12 +856,11 @@ Partial Class frm_Emu_Game_Edit Me.lbl_J2KPreset.MKBoundControl5 = Nothing Me.lbl_J2KPreset.Name = "lbl_J2KPreset" Me.lbl_J2KPreset.Size = New System.Drawing.Size(76, 20) - ToolTipTitleItem4.Text = "J2K Preset" - ToolTipItem4.LeftIndent = 6 - ToolTipItem4.Text = resources.GetString("ToolTipItem4.Text") - SuperToolTip4.Items.Add(ToolTipTitleItem4) - SuperToolTip4.Items.Add(ToolTipItem4) - Me.lbl_J2KPreset.SuperTip = SuperToolTip4 + ToolTipTitleItem5.Text = "J2K Preset" + ToolTipItem5.LeftIndent = 6 + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.lbl_J2KPreset.SuperTip = SuperToolTip5 Me.lbl_J2KPreset.TabIndex = 15 Me.lbl_J2KPreset.Text = "J2K Preset:" ' @@ -873,7 +872,7 @@ Partial Class frm_Emu_Game_Edit 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), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "Remove the default emulator for this game or revert back to the globally defined " & + 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 @@ -883,12 +882,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem46.Text = "Default Emu" - ToolTipItem46.LeftIndent = 6 - ToolTipItem46.Text = "You can choose a default emulator for this game here." - SuperToolTip46.Items.Add(ToolTipTitleItem46) - SuperToolTip46.Items.Add(ToolTipItem46) - Me.cmb_Default_Emulator.SuperTip = SuperToolTip46 + ToolTipTitleItem6.Text = "Default Emu" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "You can choose a default emulator for this game here." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.cmb_Default_Emulator.SuperTip = SuperToolTip6 Me.cmb_Default_Emulator.TabIndex = 8 ' 'BS_DefaultEmu @@ -905,12 +904,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem6.Text = "Year" - ToolTipItem6.LeftIndent = 6 - ToolTipItem6.Text = "Year of release" - SuperToolTip6.Items.Add(ToolTipTitleItem6) - SuperToolTip6.Items.Add(ToolTipItem6) - Me.txb_Year.SuperTip = SuperToolTip6 + ToolTipTitleItem7.Text = "Year" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Year of release" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.txb_Year.SuperTip = SuperToolTip7 Me.txb_Year.TabIndex = 5 ' 'tcl_Attributes @@ -930,12 +929,12 @@ Partial Class frm_Emu_Game_Edit Me.tpg_Genres.Controls.Add(Me.grd_Genres) Me.tpg_Genres.Name = "tpg_Genres" Me.tpg_Genres.Size = New System.Drawing.Size(509, 410) - ToolTipTitleItem7.Text = "Genres" - ToolTipItem7.LeftIndent = 6 - ToolTipItem7.Text = "Select the main genres of the game." - SuperToolTip7.Items.Add(ToolTipTitleItem7) - SuperToolTip7.Items.Add(ToolTipItem7) - Me.tpg_Genres.SuperTip = SuperToolTip7 + ToolTipTitleItem8.Text = "Genres" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Select the main genres of the game." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.tpg_Genres.SuperTip = SuperToolTip8 Me.tpg_Genres.Text = "Genres" ' 'grd_Genres @@ -989,12 +988,12 @@ Partial Class frm_Emu_Game_Edit Me.tpg_Perspectives.Controls.Add(Me.grd_Perspectives) Me.tpg_Perspectives.Name = "tpg_Perspectives" Me.tpg_Perspectives.Size = New System.Drawing.Size(509, 410) - ToolTipTitleItem47.Text = "Perspectives" - ToolTipItem47.LeftIndent = 6 - ToolTipItem47.Text = "Select the perspectives the game supports." - SuperToolTip47.Items.Add(ToolTipTitleItem47) - SuperToolTip47.Items.Add(ToolTipItem47) - Me.tpg_Perspectives.SuperTip = SuperToolTip47 + ToolTipTitleItem9.Text = "Perspectives" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Select the perspectives the game supports." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.tpg_Perspectives.SuperTip = SuperToolTip9 Me.tpg_Perspectives.Text = "Perspectives" ' 'grd_Perspectives @@ -1054,12 +1053,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem48.Text = "Visual Presenation" - ToolTipItem48.LeftIndent = 6 - ToolTipItem48.Text = "Select all visual presentations the game supports." - SuperToolTip48.Items.Add(ToolTipTitleItem48) - SuperToolTip48.Items.Add(ToolTipItem48) - Me.tpg_Visual_Presentation.SuperTip = SuperToolTip48 + ToolTipTitleItem10.Text = "Visual Presenation" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Select all visual presentations the game supports." + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem10) + Me.tpg_Visual_Presentation.SuperTip = SuperToolTip10 Me.tpg_Visual_Presentation.Text = "Visual Presentation" ' 'grd_Visual_Presentation @@ -1119,12 +1118,12 @@ Partial Class frm_Emu_Game_Edit Me.tpg_Gameplay.Controls.Add(Me.grd_Gameplay) Me.tpg_Gameplay.Name = "tpg_Gameplay" Me.tpg_Gameplay.Size = New System.Drawing.Size(509, 410) - ToolTipTitleItem49.Text = "Gameplay" - ToolTipItem49.LeftIndent = 6 - ToolTipItem49.Text = "Select all gameplay elements the game supports." - SuperToolTip49.Items.Add(ToolTipTitleItem49) - SuperToolTip49.Items.Add(ToolTipItem49) - Me.tpg_Gameplay.SuperTip = SuperToolTip49 + ToolTipTitleItem11.Text = "Gameplay" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Select all gameplay elements the game supports." + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem11) + Me.tpg_Gameplay.SuperTip = SuperToolTip11 Me.tpg_Gameplay.Text = "Gameplay" ' 'grd_Gameplay @@ -1184,12 +1183,12 @@ Partial Class frm_Emu_Game_Edit Me.tpg_Pacing.Controls.Add(Me.grd_Pacing) Me.tpg_Pacing.Name = "tpg_Pacing" Me.tpg_Pacing.Size = New System.Drawing.Size(509, 410) - ToolTipTitleItem50.Text = "Pacing" - ToolTipItem50.LeftIndent = 6 - ToolTipItem50.Text = "Select the pacing of the game." - SuperToolTip50.Items.Add(ToolTipTitleItem50) - SuperToolTip50.Items.Add(ToolTipItem50) - Me.tpg_Pacing.SuperTip = SuperToolTip50 + ToolTipTitleItem12.Text = "Pacing" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Select the pacing of the game." + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem12) + Me.tpg_Pacing.SuperTip = SuperToolTip12 Me.tpg_Pacing.Text = "Pacing" ' 'grd_Pacing @@ -1249,12 +1248,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem51.Text = "Narrative Theme / Topic" - ToolTipItem51.LeftIndent = 6 - ToolTipItem51.Text = "Select all the narritive themes / topics of the game." - SuperToolTip51.Items.Add(ToolTipTitleItem51) - SuperToolTip51.Items.Add(ToolTipItem51) - Me.tpg_Narrative_Theme_Topic.SuperTip = SuperToolTip51 + ToolTipTitleItem13.Text = "Narrative Theme / Topic" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Select all the narritive themes / topics of the game." + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem13) + Me.tpg_Narrative_Theme_Topic.SuperTip = SuperToolTip13 Me.tpg_Narrative_Theme_Topic.Text = "Narrative Theme / Topic" ' 'grd_Narrative_Theme_Topic @@ -1314,12 +1313,12 @@ Partial Class frm_Emu_Game_Edit Me.tpg_Setting.Controls.Add(Me.grd_Setting) Me.tpg_Setting.Name = "tpg_Setting" Me.tpg_Setting.Size = New System.Drawing.Size(509, 410) - ToolTipTitleItem52.Text = "Setting" - ToolTipItem52.LeftIndent = 6 - ToolTipItem52.Text = "Select the settings of the game." - SuperToolTip52.Items.Add(ToolTipTitleItem52) - SuperToolTip52.Items.Add(ToolTipItem52) - Me.tpg_Setting.SuperTip = SuperToolTip52 + ToolTipTitleItem14.Text = "Setting" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "Select the settings of the game." + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem14) + Me.tpg_Setting.SuperTip = SuperToolTip14 Me.tpg_Setting.Text = "Setting" ' 'grd_Setting @@ -1379,12 +1378,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem53.Text = "Sports Themes" - ToolTipItem53.LeftIndent = 6 - ToolTipItem53.Text = "Select sports themes if applicable." - SuperToolTip53.Items.Add(ToolTipTitleItem53) - SuperToolTip53.Items.Add(ToolTipItem53) - Me.tpg_Sports_Themes.SuperTip = SuperToolTip53 + ToolTipTitleItem15.Text = "Sports Themes" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "Select sports themes if applicable." + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem15) + Me.tpg_Sports_Themes.SuperTip = SuperToolTip15 Me.tpg_Sports_Themes.Text = "Sports Themes" ' 'grd_Sports_Themes @@ -1444,12 +1443,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem54.Text = "Vehicular Themes" - ToolTipItem54.LeftIndent = 6 - ToolTipItem54.Text = "Select vehicular themes if applicable." - SuperToolTip54.Items.Add(ToolTipTitleItem54) - SuperToolTip54.Items.Add(ToolTipItem54) - Me.tpg_Vehicular_Themes.SuperTip = SuperToolTip54 + ToolTipTitleItem16.Text = "Vehicular Themes" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "Select vehicular themes if applicable." + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem16) + Me.tpg_Vehicular_Themes.SuperTip = SuperToolTip16 Me.tpg_Vehicular_Themes.Text = "Vehicular Themes" ' 'grd_Vehicular_Themes @@ -1509,12 +1508,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem55.Text = "Educational Categories" - ToolTipItem55.LeftIndent = 6 - ToolTipItem55.Text = "Select educational categories if applicable." - SuperToolTip55.Items.Add(ToolTipTitleItem55) - SuperToolTip55.Items.Add(ToolTipItem55) - Me.tpg_Educational_Categories.SuperTip = SuperToolTip55 + ToolTipTitleItem17.Text = "Educational Categories" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "Select educational categories if applicable." + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem17) + Me.tpg_Educational_Categories.SuperTip = SuperToolTip17 Me.tpg_Educational_Categories.Text = "Educational Categories" ' 'grd_Educational_Categories @@ -1574,12 +1573,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem56.Text = "Interface / Control" - ToolTipItem56.LeftIndent = 6 - ToolTipItem56.Text = "Select all the interface / control options of the game." - SuperToolTip56.Items.Add(ToolTipTitleItem56) - SuperToolTip56.Items.Add(ToolTipItem56) - Me.tpg_Interface_Control.SuperTip = SuperToolTip56 + ToolTipTitleItem18.Text = "Interface / Control" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "Select all the interface / control options of the game." + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem18) + Me.tpg_Interface_Control.SuperTip = SuperToolTip18 Me.tpg_Interface_Control.Text = "Interface / Control" ' 'grd_Interface_Control @@ -1639,12 +1638,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem57.Text = "DLC / Add-on" - ToolTipItem57.LeftIndent = 6 - ToolTipItem57.Text = "Select DLC / Add-on options if applicable." - SuperToolTip57.Items.Add(ToolTipTitleItem57) - SuperToolTip57.Items.Add(ToolTipItem57) - Me.tpg_DLC_Addon.SuperTip = SuperToolTip57 + ToolTipTitleItem19.Text = "DLC / Add-on" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "Select DLC / Add-on options if applicable." + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem19) + Me.tpg_DLC_Addon.SuperTip = SuperToolTip19 Me.tpg_DLC_Addon.Text = "DLC / Add-on" ' 'grd_DLC_Addon @@ -1704,12 +1703,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem58.Text = "Special Edition" - ToolTipItem58.LeftIndent = 6 - ToolTipItem58.Text = "Select special edition options if applicable." - SuperToolTip58.Items.Add(ToolTipTitleItem58) - SuperToolTip58.Items.Add(ToolTipItem58) - Me.tpg_Special_Edition.SuperTip = SuperToolTip58 + ToolTipTitleItem20.Text = "Special Edition" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "Select special edition options if applicable." + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem20) + Me.tpg_Special_Edition.SuperTip = SuperToolTip20 Me.tpg_Special_Edition.Text = "Special Edition" ' 'grd_Special_Edition @@ -1769,12 +1768,12 @@ Partial Class frm_Emu_Game_Edit 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, 410) - ToolTipTitleItem59.Text = "Other Attributes" - ToolTipItem59.LeftIndent = 6 - ToolTipItem59.Text = "Select other attributes if applicable." - SuperToolTip59.Items.Add(ToolTipTitleItem59) - SuperToolTip59.Items.Add(ToolTipItem59) - Me.tpg_Other_Attributes.SuperTip = SuperToolTip59 + ToolTipTitleItem21.Text = "Other Attributes" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.Text = "Select other attributes if applicable." + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem21) + Me.tpg_Other_Attributes.SuperTip = SuperToolTip21 Me.tpg_Other_Attributes.Text = "Other Attributes" ' 'grd_Other_Attributes @@ -1866,12 +1865,12 @@ Partial Class frm_Emu_Game_Edit Me.txb_Alt.MKEditValue_Compare = Nothing Me.txb_Alt.Name = "txb_Alt" Me.txb_Alt.Size = New System.Drawing.Size(64, 20) - ToolTipTitleItem60.Text = "Alt" - ToolTipItem60.LeftIndent = 6 - ToolTipItem60.Text = "Alternative Dump information" - SuperToolTip60.Items.Add(ToolTipTitleItem60) - SuperToolTip60.Items.Add(ToolTipItem60) - Me.txb_Alt.SuperTip = SuperToolTip60 + ToolTipTitleItem22.Text = "Alt" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "Alternative Dump information" + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem22) + Me.txb_Alt.SuperTip = SuperToolTip22 Me.txb_Alt.TabIndex = 7 ' 'lbl_DefaultEmulator @@ -1911,12 +1910,12 @@ Partial Class frm_Emu_Game_Edit Me.txb_Version.MKEditValue_Compare = Nothing Me.txb_Version.Name = "txb_Version" Me.txb_Version.Size = New System.Drawing.Size(64, 20) - ToolTipTitleItem22.Text = "Version" - ToolTipItem22.LeftIndent = 6 - ToolTipItem22.Text = "Version info" - SuperToolTip22.Items.Add(ToolTipTitleItem22) - SuperToolTip22.Items.Add(ToolTipItem22) - Me.txb_Version.SuperTip = SuperToolTip22 + ToolTipTitleItem23.Text = "Version" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.Text = "Version info" + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem23) + Me.txb_Version.SuperTip = SuperToolTip23 Me.txb_Version.TabIndex = 6 ' 'lbl_Developer @@ -1958,12 +1957,12 @@ Partial Class frm_Emu_Game_Edit Me.txb_Developer.MKEditValue_Compare = Nothing Me.txb_Developer.Name = "txb_Developer" Me.txb_Developer.Size = New System.Drawing.Size(432, 20) - ToolTipTitleItem23.Text = "Developer" - ToolTipItem23.LeftIndent = 6 - ToolTipItem23.Text = "Developer of the game" - SuperToolTip23.Items.Add(ToolTipTitleItem23) - SuperToolTip23.Items.Add(ToolTipItem23) - Me.txb_Developer.SuperTip = SuperToolTip23 + ToolTipTitleItem24.Text = "Developer" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "Developer of the game" + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem24) + Me.txb_Developer.SuperTip = SuperToolTip24 Me.txb_Developer.TabIndex = 4 ' 'txb_Publisher @@ -1975,12 +1974,12 @@ Partial Class frm_Emu_Game_Edit Me.txb_Publisher.MKEditValue_Compare = Nothing Me.txb_Publisher.Name = "txb_Publisher" Me.txb_Publisher.Size = New System.Drawing.Size(432, 20) - ToolTipTitleItem24.Text = "Publisher" - ToolTipItem24.LeftIndent = 6 - ToolTipItem24.Text = "Publisher of the game" - SuperToolTip24.Items.Add(ToolTipTitleItem24) - SuperToolTip24.Items.Add(ToolTipItem24) - Me.txb_Publisher.SuperTip = SuperToolTip24 + ToolTipTitleItem25.Text = "Publisher" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "Publisher of the game" + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem25) + Me.txb_Publisher.SuperTip = SuperToolTip25 Me.txb_Publisher.TabIndex = 3 ' 'pnl_Bottom @@ -2208,12 +2207,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem25.Text = "Alpha" - ToolTipItem25.LeftIndent = 6 - ToolTipItem25.Text = "The tag denotes the game is an alpha version." - SuperToolTip25.Items.Add(ToolTipTitleItem25) - SuperToolTip25.Items.Add(ToolTipItem25) - Me.chb_Alpha.SuperTip = SuperToolTip25 + ToolTipTitleItem26.Text = "Alpha" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "The tag denotes the game is an alpha version." + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem26) + Me.chb_Alpha.SuperTip = SuperToolTip26 Me.chb_Alpha.TabIndex = 5 ' 'chb_Pirated @@ -2226,12 +2225,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem26.Text = "Pirated" - ToolTipItem26.LeftIndent = 6 - ToolTipItem26.Text = "The tag denotes the game is a pirated game (e.g. pirate carts)." - SuperToolTip26.Items.Add(ToolTipTitleItem26) - SuperToolTip26.Items.Add(ToolTipItem26) - Me.chb_Pirated.SuperTip = SuperToolTip26 + ToolTipTitleItem27.Text = "Pirated" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "The tag denotes the game is a pirated game (e.g. pirate carts)." + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem27) + Me.chb_Pirated.SuperTip = SuperToolTip27 Me.chb_Pirated.TabIndex = 11 ' 'chb_Fixed @@ -2244,12 +2243,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem27.Text = "Fixed" - ToolTipItem27.LeftIndent = 6 - ToolTipItem27.Text = "The tag denotes the game contains a fix." - SuperToolTip27.Items.Add(ToolTipTitleItem27) - SuperToolTip27.Items.Add(ToolTipItem27) - Me.chb_Fixed.SuperTip = SuperToolTip27 + ToolTipTitleItem28.Text = "Fixed" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = "The tag denotes the game contains a fix." + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem28) + Me.chb_Fixed.SuperTip = SuperToolTip28 Me.chb_Fixed.TabIndex = 10 ' 'chb_Overdump @@ -2262,12 +2261,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem28.Text = "Hack" - ToolTipItem28.LeftIndent = 6 - ToolTipItem28.Text = "The tag denotes the game is an overdump." - SuperToolTip28.Items.Add(ToolTipTitleItem28) - SuperToolTip28.Items.Add(ToolTipItem28) - Me.chb_Overdump.SuperTip = SuperToolTip28 + ToolTipTitleItem29.Text = "Hack" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.Text = "The tag denotes the game is an overdump." + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem29) + Me.chb_Overdump.SuperTip = SuperToolTip29 Me.chb_Overdump.TabIndex = 14 ' 'chb_Bad @@ -2280,12 +2279,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem29.Text = "Bad" - ToolTipItem29.LeftIndent = 6 - ToolTipItem29.Text = "The tag denotes the game is bad dump." - SuperToolTip29.Items.Add(ToolTipTitleItem29) - SuperToolTip29.Items.Add(ToolTipItem29) - Me.chb_Bad.SuperTip = SuperToolTip29 + ToolTipTitleItem30.Text = "Bad" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = "The tag denotes the game is bad dump." + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem30) + Me.chb_Bad.SuperTip = SuperToolTip30 Me.chb_Bad.TabIndex = 13 ' 'chb_Good @@ -2298,12 +2297,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem30.Text = "Good" - ToolTipItem30.LeftIndent = 6 - ToolTipItem30.Text = "The tag denotes the game is a known good dump." - SuperToolTip30.Items.Add(ToolTipTitleItem30) - SuperToolTip30.Items.Add(ToolTipItem30) - Me.chb_Good.SuperTip = SuperToolTip30 + ToolTipTitleItem31.Text = "Good" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "The tag denotes the game is a known good dump." + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem31) + Me.chb_Good.SuperTip = SuperToolTip31 Me.chb_Good.TabIndex = 12 ' 'chb_Unlicensed @@ -2316,12 +2315,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem31.Text = "Unlicensed" - ToolTipItem31.LeftIndent = 6 - ToolTipItem31.Text = "The tag denotes the game is an unlicensed game." - SuperToolTip31.Items.Add(ToolTipTitleItem31) - SuperToolTip31.Items.Add(ToolTipItem31) - Me.chb_Unlicensed.SuperTip = SuperToolTip31 + ToolTipTitleItem32.Text = "Unlicensed" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "The tag denotes the game is an unlicensed game." + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem32) + Me.chb_Unlicensed.SuperTip = SuperToolTip32 Me.chb_Unlicensed.TabIndex = 9 ' 'chb_Translation @@ -2334,13 +2333,13 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem32.Text = "Translation" - ToolTipItem32.LeftIndent = 6 - ToolTipItem32.Text = "The tag denotes the game is an (inofficial) translation. Please also keep in mind" & + ToolTipTitleItem33.Text = "Translation" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.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." - SuperToolTip32.Items.Add(ToolTipTitleItem32) - SuperToolTip32.Items.Add(ToolTipItem32) - Me.chb_Translation.SuperTip = SuperToolTip32 + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem33) + Me.chb_Translation.SuperTip = SuperToolTip33 Me.chb_Translation.TabIndex = 1 ' 'chb_Beta @@ -2353,12 +2352,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem33.Text = "Beta" - ToolTipItem33.LeftIndent = 6 - ToolTipItem33.Text = "The tag denotes the game is a beta version." - SuperToolTip33.Items.Add(ToolTipTitleItem33) - SuperToolTip33.Items.Add(ToolTipItem33) - Me.chb_Beta.SuperTip = SuperToolTip33 + ToolTipTitleItem34.Text = "Beta" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "The tag denotes the game is a beta version." + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem34) + Me.chb_Beta.SuperTip = SuperToolTip34 Me.chb_Beta.TabIndex = 6 ' 'chb_Kiosk @@ -2371,12 +2370,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem34.Text = "Kiosk" - ToolTipItem34.LeftIndent = 6 - ToolTipItem34.Text = "The tag denotes the game is a kiosk version." - SuperToolTip34.Items.Add(ToolTipTitleItem34) - SuperToolTip34.Items.Add(ToolTipItem34) - Me.chb_Kiosk.SuperTip = SuperToolTip34 + ToolTipTitleItem35.Text = "Kiosk" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = "The tag denotes the game is a kiosk version." + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem35) + Me.chb_Kiosk.SuperTip = SuperToolTip35 Me.chb_Kiosk.TabIndex = 8 ' 'chb_Sample @@ -2389,12 +2388,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem35.Text = "Sample" - ToolTipItem35.LeftIndent = 6 - ToolTipItem35.Text = "The tag denotes the game is a sample or demo." - SuperToolTip35.Items.Add(ToolTipTitleItem35) - SuperToolTip35.Items.Add(ToolTipItem35) - Me.chb_Sample.SuperTip = SuperToolTip35 + ToolTipTitleItem36.Text = "Sample" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "The tag denotes the game is a sample or demo." + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem36) + Me.chb_Sample.SuperTip = SuperToolTip36 Me.chb_Sample.TabIndex = 7 ' 'chb_Prototype @@ -2407,12 +2406,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem36.Text = "Prototype" - ToolTipItem36.LeftIndent = 6 - ToolTipItem36.Text = "The tag denotes the game is a prototype." - SuperToolTip36.Items.Add(ToolTipTitleItem36) - SuperToolTip36.Items.Add(ToolTipItem36) - Me.chb_Prototype.SuperTip = SuperToolTip36 + ToolTipTitleItem37.Text = "Prototype" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = "The tag denotes the game is a prototype." + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem37) + Me.chb_Prototype.SuperTip = SuperToolTip37 Me.chb_Prototype.TabIndex = 4 ' 'chb_Trainer @@ -2425,12 +2424,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem37.Text = "Trainer" - ToolTipItem37.LeftIndent = 6 - ToolTipItem37.Text = "The tag denotes the game contains a trainer." - SuperToolTip37.Items.Add(ToolTipTitleItem37) - SuperToolTip37.Items.Add(ToolTipItem37) - Me.chb_Trainer.SuperTip = SuperToolTip37 + ToolTipTitleItem38.Text = "Trainer" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = "The tag denotes the game contains a trainer." + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem38) + Me.chb_Trainer.SuperTip = SuperToolTip38 Me.chb_Trainer.TabIndex = 0 ' 'chb_Hack @@ -2443,12 +2442,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem38.Text = "Hack" - ToolTipItem38.LeftIndent = 6 - ToolTipItem38.Text = "The tag denotes the game is a hack." - SuperToolTip38.Items.Add(ToolTipTitleItem38) - SuperToolTip38.Items.Add(ToolTipItem38) - Me.chb_Hack.SuperTip = SuperToolTip38 + ToolTipTitleItem39.Text = "Hack" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "The tag denotes the game is a hack." + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem39) + Me.chb_Hack.SuperTip = SuperToolTip39 Me.chb_Hack.TabIndex = 2 ' 'chb_Bios @@ -2461,12 +2460,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem39.Text = "Bios" - ToolTipItem39.LeftIndent = 6 - ToolTipItem39.Text = "The tag denotes the rom is a Bios image." - SuperToolTip39.Items.Add(ToolTipTitleItem39) - SuperToolTip39.Items.Add(ToolTipItem39) - Me.chb_Bios.SuperTip = SuperToolTip39 + ToolTipTitleItem40.Text = "Bios" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "The tag denotes the rom is a Bios image." + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem40) + Me.chb_Bios.SuperTip = SuperToolTip40 Me.chb_Bios.TabIndex = 3 ' 'tpg_Regions_New @@ -2556,13 +2555,13 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem40.Text = "Description" - ToolTipItem40.LeftIndent = 6 - ToolTipItem40.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" & + ToolTipTitleItem41.Text = "Description" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.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." - SuperToolTip40.Items.Add(ToolTipTitleItem40) - SuperToolTip40.Items.Add(ToolTipItem40) - Me.txb_Description.SuperTip = SuperToolTip40 + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem41) + Me.txb_Description.SuperTip = SuperToolTip41 Me.txb_Description.TabIndex = 1 ' 'tpg_Special_Info @@ -2581,13 +2580,13 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem41.Text = "Special Info" - ToolTipItem41.LeftIndent = 6 - ToolTipItem41.Text = "This field contains special information about the game if applicable. Use this fi" & + ToolTipTitleItem42.Text = "Special Info" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "This field contains special information about the game if applicable. Use this fi" & "eld for Hack or Translation information." - SuperToolTip41.Items.Add(ToolTipTitleItem41) - SuperToolTip41.Items.Add(ToolTipItem41) - Me.txb_Special_Info.SuperTip = SuperToolTip41 + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem42) + Me.txb_Special_Info.SuperTip = SuperToolTip42 Me.txb_Special_Info.TabIndex = 2 ' 'tpg_DOSBox_Config @@ -2706,8 +2705,10 @@ Partial Class frm_Emu_Game_Edit 'col_DOSBox_Displayname ' Me.col_DOSBox_Displayname.Caption = "File/Directory" + Me.col_DOSBox_Displayname.FieldName = "tmp_DOSBox_DisplayText" Me.col_DOSBox_Displayname.Name = "col_DOSBox_Displayname" Me.col_DOSBox_Displayname.OptionsColumn.AllowEdit = False + Me.col_DOSBox_Displayname.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[True] Me.col_DOSBox_Displayname.Visible = True Me.col_DOSBox_Displayname.VisibleIndex = 0 Me.col_DOSBox_Displayname.Width = 163 @@ -2811,13 +2812,13 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem42.Text = "Inner File" - ToolTipItem42.LeftIndent = 6 - ToolTipItem42.Text = "If the File is packed (e.g. zip or rar file), the inner file specifies the file w" & + ToolTipTitleItem43.Text = "Inner File" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "If the File is packed (e.g. zip or rar file), the inner file specifies the file w" & "ithing the packed file." - SuperToolTip42.Items.Add(ToolTipTitleItem42) - SuperToolTip42.Items.Add(ToolTipItem42) - Me.txb_DOSBox_Inner_File.SuperTip = SuperToolTip42 + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem43) + Me.txb_DOSBox_Inner_File.SuperTip = SuperToolTip43 Me.txb_DOSBox_Inner_File.TabIndex = 2 ' 'txb_DOSBox_File @@ -2882,12 +2883,12 @@ Partial Class frm_Emu_Game_Edit 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) - ToolTipTitleItem43.Text = "Mount as" - ToolTipItem43.LeftIndent = 6 - ToolTipItem43.Text = "The drive letter within DOSBox to which the file's content gets mounted" - SuperToolTip43.Items.Add(ToolTipTitleItem43) - SuperToolTip43.Items.Add(ToolTipItem43) - Me.cmb_DOSBox_Mount_Destination.SuperTip = SuperToolTip43 + ToolTipTitleItem44.Text = "Mount as" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "The drive letter within DOSBox to which the file's content gets mounted" + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem44) + Me.cmb_DOSBox_Mount_Destination.SuperTip = SuperToolTip44 Me.cmb_DOSBox_Mount_Destination.TabIndex = 4 ' 'BTA_DOSBox_Mount_Destination diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx index 35f59c1..6b347be 100644 --- a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.resx @@ -132,9 +132,6 @@ 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 diff --git a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb index 6af5e8c..b804b65 100644 --- a/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb +++ b/Metropolis_Launcher/Forms/frm_Emu_Game_Edit.vb @@ -278,20 +278,20 @@ Public Class frm_Emu_Game_Edit '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" + sSQL = " SELECT" & ControlChars.CrLf + sSQL &= " -1 AS id_Emulators" & ControlChars.CrLf + sSQL &= " , '' AS Displayname" & ControlChars.CrLf + sSQL &= " , NULL AS J2KPreset" & ControlChars.CrLf + sSQL &= " UNION ALL" & ControlChars.CrLf + sSQL &= " SELECT" & ControlChars.CrLf + sSQL &= " EMP.id_Emulators" & ControlChars.CrLf + sSQL &= " , E.Displayname || CASE WHEN EMP.DefaultEmulator = 1 THEN ' (global default)' ELSE '' END AS Displayname" & ControlChars.CrLf + sSQL &= " , E.J2KPreset" & ControlChars.CrLf + sSQL &= " FROM" & ControlChars.CrLf + sSQL &= " tbl_Emulators_Moby_Platforms EMP" & ControlChars.CrLf + sSQL &= " INNER JOIN tbl_Emulators E ON EMP.id_Emulators = E.id_Emulators" & ControlChars.CrLf + sSQL &= " WHERE id_Moby_Platforms = " & TC.getSQLFormat(_id_Moby_Platforms) & ControlChars.CrLf + sSQL &= " ORDER BY Displayname" & ControlChars.CrLf DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Emu_Games_Edit_Default_Emulator) End If @@ -495,9 +495,11 @@ Public Class frm_Emu_Game_Edit 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) + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, Me.DS_ML.tbl_Emu_Games, Me._id_Moby_Platforms, Me._id_Emu_Games, Me._id_Emu_Games) End Using + DS_ML.Prepare_tmp_DOSBox_DisplayText(Me.DS_ML.tbl_Emu_Games) + 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) 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(Me._id_Emu_Games)), 0L) @@ -1178,18 +1180,6 @@ Public Class frm_Emu_Game_Edit 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") diff --git a/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb b/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb index 7d2f8ce..448d5ab 100644 --- a/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Emulators.Designer.vb @@ -20,85 +20,102 @@ Partial Class frm_Emulators _ 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 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 SuperToolTip5 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipItem2 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 SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - 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 SuperToolTip31 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip32 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip33 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip34 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem24 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip35 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem25 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip36 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip37 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem26 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipItem4 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 SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipItem5 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem5 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem6 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emulators)) - Dim SuperToolTip10 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem6 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 ToolTipTitleItem7 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipItem3 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emulators)) + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() Dim ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipItem4 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip38 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem27 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip39 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem35 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem28 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 SuperToolTip40 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipItem29 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + 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 SuperToolTip41 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipItem30 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + 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 SuperToolTip42 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipItem31 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 SuperToolTip43 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipItem32 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip44 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem36 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem33 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 ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem37 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 ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem38 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 ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem39 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem11 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim SuperToolTip19 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 SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() Dim ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip20 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem40 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() - Dim SuperToolTip21 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 SuperToolTip22 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 SuperToolTip23 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() Dim ToolTipTitleItem19 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() - Dim ToolTipTitleItem20 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() - Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipItem19 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip45 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem41 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip46 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem42 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem34 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip47 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem43 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem35 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SuperToolTip48 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem44 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip49 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem45 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip27 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem22 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() 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() @@ -122,34 +139,44 @@ Partial Class frm_Emulators Me.pnl_Settings = New MKNetDXLib.ctl_MKDXPanel() Me.tcl_Settings = New MKNetDXLib.ctl_MKDXTabControl() Me.tpg_Settings = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_Settings_Settings = New MKNetDXLib.ctl_MKDXPanel() + Me.pnl_Script_File = New MKNetDXLib.ctl_MKDXPanel() + Me.lbl_Script_File = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Create_Script_File = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Browse_Script_File = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_Script_File = New MKNetDXLib.ctl_MKDXTextEdit() + Me.cmb_Scripting = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_Script_Types = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_Scripting = New MKNetDXLib.ctl_MKDXLabel() Me.btn_AutoConfig = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_J2KPreset = New MKNetDXLib.ctl_MKDXLabel() Me.cmb_List_Generator = New MKNetDXLib.ctl_MKDXLookupEdit() Me.BS_List_Generators = New System.Windows.Forms.BindingSource(Me.components) + Me.lbl_Screenshot_Directory = New MKNetDXLib.ctl_MKDXLabel() Me.lbl_List_Generator = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_StartupParameter = New MKNetDXLib.ctl_MKDXLabel() Me.cmb_Libretro_Core = New MKNetDXLib.ctl_MKDXLookupEdit() Me.BTA_Libretro_Core = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.txb_Name = New MKNetDXLib.ctl_MKDXTextEdit() Me.lbl_Libretro_Core = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Executable = 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.txb_Directory = New MKNetDXLib.ctl_MKDXTextEdit() Me.lbl_Name = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Directory = New MKNetDXLib.ctl_MKDXLabel() Me.txb_ScreenshotDirectory = New MKNetDXLib.ctl_MKDXTextEdit() + Me.txb_Executable = New MKNetDXLib.ctl_MKDXTextEdit() Me.btn_Run = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_ScreenshotDirectoryOpen = 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_J2KPreset = New MKNetDXLib.ctl_MKDXLabel() Me.tpg_MV_Settings = New DevExpress.XtraTab.XtraTabPage() + Me.pnl_Settings_MV = 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() @@ -160,6 +187,46 @@ Partial Class frm_Emulators 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_PrePostLaunch = New DevExpress.XtraTab.XtraTabPage() + Me.tlp_PrePostLaunch = New System.Windows.Forms.TableLayoutPanel() + Me.gb_PostLaunch = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_PostLaunch = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_PostLaunch_Commands = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_PostLaunch = 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.GridColumn5 = 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_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Duplicate = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PreLaunch_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PreLaunch_Edit = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PreLaunch_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PostLaunch_Add = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PostLaunch_Edit = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_PostLaunch_Delete = New DevExpress.XtraBars.BarButtonItem() + Me.pnl_PostLaunch_Buttons = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_PostLaunch_MoveDown = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_PostLaunch_MoveUp = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.gb_PreLaunch = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_PreLaunch = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_PreLaunch_Commands = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_PreLaunch = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colDirectory = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colExecutable = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colParameter1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colWaitForExit = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMinimized = New DevExpress.XtraGrid.Columns.GridColumn() + Me.pnl_PreLaunch_Buttons = New MKNetDXLib.ctl_MKDXPanel() + Me.btn_PreLaunch_MoveDown = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_PreLaunch_MoveUp = 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() @@ -177,21 +244,18 @@ Partial Class frm_Emulators Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() 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() Me.DS_Rombase = New Metropolis_Launcher.DS_Rombase() Me.splt_Main = New MKNetDXLib.ctl_MKDXSplitPanel() - Me.splt_Right = New MKNetDXLib.ctl_MKDXSplitPanel() Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() + Me.splt_Right = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.popmnu_PreLaunch = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.popmnu_PostLaunch = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.DataTable2 = New System.Data.DataTable() + Me.DataColumn3 = New System.Data.DataColumn() + Me.DataColumn4 = New System.Data.DataColumn() CType(Me.grd_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BS_Emulators, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() @@ -210,20 +274,29 @@ Partial Class frm_Emulators CType(Me.tcl_Settings, System.ComponentModel.ISupportInitialize).BeginInit() Me.tcl_Settings.SuspendLayout() Me.tpg_Settings.SuspendLayout() + CType(Me.pnl_Settings_Settings, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Settings_Settings.SuspendLayout() + CType(Me.pnl_Script_File, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Script_File.SuspendLayout() + CType(Me.txb_Script_File.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Scripting.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_Script_Types, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.cmb_List_Generator.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BS_List_Generators, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.cmb_Libretro_Core.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BTA_Libretro_Core, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Name.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.txb_Directory.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() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).BeginInit() Me.tpg_MV_Settings.SuspendLayout() + CType(Me.pnl_Settings_MV, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Settings_MV.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() @@ -231,6 +304,23 @@ Partial Class frm_Emulators CType(Me.BS_Volumes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pnl_MV_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl_MV_Buttons.SuspendLayout() + Me.tpg_PrePostLaunch.SuspendLayout() + Me.tlp_PrePostLaunch.SuspendLayout() + CType(Me.gb_PostLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_PostLaunch.SuspendLayout() + CType(Me.grd_PostLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_PostLaunch_Commands, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_PostLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_PostLaunch_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_PostLaunch_Buttons.SuspendLayout() + CType(Me.gb_PreLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_PreLaunch.SuspendLayout() + CType(Me.grd_PreLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_PreLaunch_Commands, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_PreLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_PreLaunch_Buttons, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_PreLaunch_Buttons.SuspendLayout() Me.tpg_DOSBox_Patches.SuspendLayout() CType(Me.splt_DOSBox_Patches, System.ComponentModel.ISupportInitialize).BeginInit() Me.splt_DOSBox_Patches.SuspendLayout() @@ -246,15 +336,17 @@ Partial Class frm_Emulators 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() CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).BeginInit() Me.splt_Main.SuspendLayout() - CType(Me.splt_Right, System.ComponentModel.ISupportInitialize).BeginInit() - Me.splt_Right.SuspendLayout() CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl_Right.SuspendLayout() + CType(Me.splt_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_Right.SuspendLayout() + CType(Me.popmnu_PreLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_PostLaunch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'grd_Emulators @@ -265,7 +357,7 @@ Partial Class frm_Emulators Me.grd_Emulators.MainView = Me.gv_Emulators Me.grd_Emulators.MinimumSize = New System.Drawing.Size(262, 559) Me.grd_Emulators.Name = "grd_Emulators" - Me.grd_Emulators.Size = New System.Drawing.Size(262, 559) + Me.grd_Emulators.Size = New System.Drawing.Size(262, 618) Me.grd_Emulators.TabIndex = 0 Me.grd_Emulators.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Emulators}) ' @@ -307,7 +399,7 @@ Partial Class frm_Emulators 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(0, 559) + Me.pnl_Emulators_Buttons.Location = New System.Drawing.Point(0, 618) Me.pnl_Emulators_Buttons.Name = "pnl_Emulators_Buttons" Me.pnl_Emulators_Buttons.Size = New System.Drawing.Size(262, 26) Me.pnl_Emulators_Buttons.TabIndex = 5 @@ -318,9 +410,9 @@ Partial Class frm_Emulators Me.btn_Delete_Emulator.Location = New System.Drawing.Point(185, 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 + ToolTipTitleItem27.Text = "Delete Emulator" + SuperToolTip31.Items.Add(ToolTipTitleItem27) + Me.btn_Delete_Emulator.SuperTip = SuperToolTip31 Me.btn_Delete_Emulator.TabIndex = 2 Me.btn_Delete_Emulator.Text = "&Delete" ' @@ -330,9 +422,9 @@ Partial Class frm_Emulators Me.btn_Duplicate_Emulator.Location = New System.Drawing.Point(107, 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 + ToolTipTitleItem28.Text = "Duplicate Emulator" + SuperToolTip32.Items.Add(ToolTipTitleItem28) + Me.btn_Duplicate_Emulator.SuperTip = SuperToolTip32 Me.btn_Duplicate_Emulator.TabIndex = 1 Me.btn_Duplicate_Emulator.Text = "D&uplicate" ' @@ -342,9 +434,9 @@ Partial Class frm_Emulators Me.btn_Add_Emulator.Location = New System.Drawing.Point(29, 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 + ToolTipTitleItem29.Text = "Add Emulator" + SuperToolTip33.Items.Add(ToolTipTitleItem29) + Me.btn_Add_Emulator.SuperTip = SuperToolTip33 Me.btn_Add_Emulator.TabIndex = 0 Me.btn_Add_Emulator.Text = "&Add" ' @@ -356,7 +448,7 @@ Partial Class frm_Emulators Me.pnl_Platforms.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl_Platforms.Location = New System.Drawing.Point(0, 0) Me.pnl_Platforms.Name = "pnl_Platforms" - Me.pnl_Platforms.Size = New System.Drawing.Size(419, 286) + Me.pnl_Platforms.Size = New System.Drawing.Size(437, 325) Me.pnl_Platforms.TabIndex = 10 ' 'grd_Platforms @@ -367,7 +459,7 @@ Partial Class frm_Emulators 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(419, 255) + Me.grd_Platforms.Size = New System.Drawing.Size(437, 294) Me.grd_Platforms.TabIndex = 0 Me.grd_Platforms.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_Platforms}) ' @@ -441,14 +533,14 @@ Partial Class frm_Emulators Me.lbl_Platforms.MKBoundControl4 = Nothing Me.lbl_Platforms.MKBoundControl5 = Nothing Me.lbl_Platforms.Name = "lbl_Platforms" - Me.lbl_Platforms.Size = New System.Drawing.Size(419, 31) + Me.lbl_Platforms.Size = New System.Drawing.Size(437, 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(262, 4) + Me.btn_Save.Location = New System.Drawing.Point(280, 4) Me.btn_Save.Name = "btn_Save" Me.btn_Save.Size = New System.Drawing.Size(75, 20) Me.btn_Save.TabIndex = 0 @@ -460,9 +552,8 @@ Partial Class frm_Emulators Me.pnl_Settings.Controls.Add(Me.tcl_Settings) Me.pnl_Settings.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl_Settings.Location = New System.Drawing.Point(0, 0) - Me.pnl_Settings.MinimumSize = New System.Drawing.Size(411, 215) Me.pnl_Settings.Name = "pnl_Settings" - Me.pnl_Settings.Size = New System.Drawing.Size(419, 264) + Me.pnl_Settings.Size = New System.Drawing.Size(437, 284) Me.pnl_Settings.TabIndex = 9 ' 'tcl_Settings @@ -471,73 +562,251 @@ Partial Class frm_Emulators 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(419, 264) + Me.tcl_Settings.Size = New System.Drawing.Size(437, 284) 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}) + Me.tcl_Settings.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpg_Settings, Me.tpg_MV_Settings, Me.tpg_PrePostLaunch, Me.tpg_DOSBox_Patches}) ' 'tpg_Settings ' - Me.tpg_Settings.Controls.Add(Me.btn_AutoConfig) - Me.tpg_Settings.Controls.Add(Me.cmb_List_Generator) - Me.tpg_Settings.Controls.Add(Me.lbl_List_Generator) - 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.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_J2KPreset) + Me.tpg_Settings.Controls.Add(Me.pnl_Settings_Settings) Me.tpg_Settings.Name = "tpg_Settings" - Me.tpg_Settings.Size = New System.Drawing.Size(413, 236) + Me.tpg_Settings.Size = New System.Drawing.Size(431, 256) Me.tpg_Settings.Text = "Settings" ' + 'pnl_Settings_Settings + ' + Me.pnl_Settings_Settings.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Settings_Settings.Controls.Add(Me.pnl_Script_File) + Me.pnl_Settings_Settings.Controls.Add(Me.cmb_Scripting) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Scripting) + Me.pnl_Settings_Settings.Controls.Add(Me.btn_AutoConfig) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_J2KPreset) + Me.pnl_Settings_Settings.Controls.Add(Me.cmb_List_Generator) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Screenshot_Directory) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_List_Generator) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_StartupParameter) + Me.pnl_Settings_Settings.Controls.Add(Me.cmb_Libretro_Core) + Me.pnl_Settings_Settings.Controls.Add(Me.txb_Name) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Libretro_Core) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Executable) + Me.pnl_Settings_Settings.Controls.Add(Me.cmb_J2K_Config) + Me.pnl_Settings_Settings.Controls.Add(Me.txb_Directory) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Name) + Me.pnl_Settings_Settings.Controls.Add(Me.lbl_Directory) + Me.pnl_Settings_Settings.Controls.Add(Me.txb_ScreenshotDirectory) + Me.pnl_Settings_Settings.Controls.Add(Me.txb_Executable) + Me.pnl_Settings_Settings.Controls.Add(Me.btn_Run) + Me.pnl_Settings_Settings.Controls.Add(Me.btn_ScreenshotDirectoryOpen) + Me.pnl_Settings_Settings.Controls.Add(Me.btn_EmulatorFileOpen) + Me.pnl_Settings_Settings.Controls.Add(Me.txb_StartupParameter) + Me.pnl_Settings_Settings.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Settings_Settings.Location = New System.Drawing.Point(0, 0) + Me.pnl_Settings_Settings.Name = "pnl_Settings_Settings" + Me.pnl_Settings_Settings.Size = New System.Drawing.Size(431, 256) + Me.pnl_Settings_Settings.TabIndex = 16 + ' + 'pnl_Script_File + ' + Me.pnl_Script_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.pnl_Script_File.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Script_File.Controls.Add(Me.lbl_Script_File) + Me.pnl_Script_File.Controls.Add(Me.btn_Create_Script_File) + Me.pnl_Script_File.Controls.Add(Me.btn_Browse_Script_File) + Me.pnl_Script_File.Controls.Add(Me.txb_Script_File) + Me.pnl_Script_File.Location = New System.Drawing.Point(2, 232) + Me.pnl_Script_File.Name = "pnl_Script_File" + Me.pnl_Script_File.Size = New System.Drawing.Size(432, 22) + Me.pnl_Script_File.TabIndex = 22 + Me.pnl_Script_File.Visible = False + ' + 'lbl_Script_File + ' + Me.lbl_Script_File.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Script_File.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Script_File.Location = New System.Drawing.Point(1, 1) + Me.lbl_Script_File.MKBoundControl1 = Nothing + Me.lbl_Script_File.MKBoundControl2 = Nothing + Me.lbl_Script_File.MKBoundControl3 = Nothing + Me.lbl_Script_File.MKBoundControl4 = Nothing + Me.lbl_Script_File.MKBoundControl5 = Nothing + Me.lbl_Script_File.Name = "lbl_Script_File" + Me.lbl_Script_File.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem30.Text = "Script File" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "Provide here the location of the script file to be used." + SuperToolTip34.Items.Add(ToolTipTitleItem30) + SuperToolTip34.Items.Add(ToolTipItem24) + Me.lbl_Script_File.SuperTip = SuperToolTip34 + Me.lbl_Script_File.TabIndex = 18 + Me.lbl_Script_File.Text = "Script File:" + ' + 'btn_Create_Script_File + ' + Me.btn_Create_Script_File.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Create_Script_File.Location = New System.Drawing.Point(379, 1) + Me.btn_Create_Script_File.Name = "btn_Create_Script_File" + Me.btn_Create_Script_File.Size = New System.Drawing.Size(49, 20) + ToolTipTitleItem31.Text = "Create" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "Metropolis Launcher creates a bare bones script file including the definition of " & + "data which suit as a basis for your own script development." + SuperToolTip35.Items.Add(ToolTipTitleItem31) + SuperToolTip35.Items.Add(ToolTipItem25) + Me.btn_Create_Script_File.SuperTip = SuperToolTip35 + Me.btn_Create_Script_File.TabIndex = 21 + Me.btn_Create_Script_File.Text = "Create" + ' + 'btn_Browse_Script_File + ' + Me.btn_Browse_Script_File.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Browse_Script_File.Location = New System.Drawing.Point(344, 1) + Me.btn_Browse_Script_File.Name = "btn_Browse_Script_File" + Me.btn_Browse_Script_File.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem32.Text = "Browse Script File" + SuperToolTip36.Items.Add(ToolTipTitleItem32) + Me.btn_Browse_Script_File.SuperTip = SuperToolTip36 + Me.btn_Browse_Script_File.TabIndex = 20 + Me.btn_Browse_Script_File.Text = "..." + ' + 'txb_Script_File + ' + Me.txb_Script_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_Script_File.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "ScriptPath", True)) + Me.txb_Script_File.Location = New System.Drawing.Point(114, 1) + Me.txb_Script_File.MKBoundLabel = Nothing + Me.txb_Script_File.MKEditValue_Compare = Nothing + Me.txb_Script_File.Name = "txb_Script_File" + Me.txb_Script_File.Size = New System.Drawing.Size(227, 20) + ToolTipTitleItem33.Text = "Script File" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "Provide here the location of the script file to be used." + SuperToolTip37.Items.Add(ToolTipTitleItem33) + SuperToolTip37.Items.Add(ToolTipItem26) + Me.txb_Script_File.SuperTip = SuperToolTip37 + Me.txb_Script_File.TabIndex = 19 + ' + 'cmb_Scripting + ' + Me.cmb_Scripting.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_Scripting.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "ScriptType", True)) + Me.cmb_Scripting.Location = New System.Drawing.Point(116, 210) + Me.cmb_Scripting.MKBoundLabel = Nothing + Me.cmb_Scripting.MKEditValue_Compare = Nothing + Me.cmb_Scripting.Name = "cmb_Scripting" + Me.cmb_Scripting.Properties.AllowFocused = False + Me.cmb_Scripting.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_Scripting.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id", "id", 14, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 66, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Scripting.Properties.DataSource = Me.BTA_Script_Types + Me.cmb_Scripting.Properties.DisplayMember = "DisplayText" + Me.cmb_Scripting.Properties.NullText = "" + Me.cmb_Scripting.Properties.ShowFooter = False + Me.cmb_Scripting.Properties.ShowHeader = False + Me.cmb_Scripting.Properties.ValueMember = "id" + Me.cmb_Scripting.Size = New System.Drawing.Size(314, 20) + ToolTipTitleItem7.Text = "Enhanced Scripting" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Metropolis Launcher supports AutoIt and AutoHotKey for advanced scripting." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ins" & + "tead of launching the emulator with parameters the script will be launched." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem3) + Me.cmb_Scripting.SuperTip = SuperToolTip7 + Me.cmb_Scripting.TabIndex = 17 + ' + 'BTA_Script_Types + ' + Me.BTA_Script_Types.AllowDelete = True + Me.BTA_Script_Types.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Script_Types.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Script_Types.Connection = Nothing + Me.BTA_Script_Types.DSStream = CType(resources.GetObject("BTA_Script_Types.DSStream"), System.IO.MemoryStream) + Me.BTA_Script_Types.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_Script_Types.FillString = "1;AutoIt;2;AutoHotKey" + Me.BTA_Script_Types.Position = 0 + Me.BTA_Script_Types.Transaction = Nothing + Me.BTA_Script_Types.UpdateTablesStream = CType(resources.GetObject("BTA_Script_Types.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_Scripting + ' + Me.lbl_Scripting.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Scripting.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Scripting.Location = New System.Drawing.Point(3, 210) + Me.lbl_Scripting.MKBoundControl1 = Nothing + Me.lbl_Scripting.MKBoundControl2 = Nothing + Me.lbl_Scripting.MKBoundControl3 = Nothing + Me.lbl_Scripting.MKBoundControl4 = Nothing + Me.lbl_Scripting.MKBoundControl5 = Nothing + Me.lbl_Scripting.Name = "lbl_Scripting" + Me.lbl_Scripting.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem8.Text = "Enhanced Scripting" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Metropolis Launcher supports AutoIt and AutoHotKey for advanced scripting." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Ins" & + "tead of launching the emulator with parameters the script will be launched." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem4) + Me.lbl_Scripting.SuperTip = SuperToolTip8 + Me.lbl_Scripting.TabIndex = 16 + Me.lbl_Scripting.Text = "Enhanced Scripting:" + ' 'btn_AutoConfig ' Me.btn_AutoConfig.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btn_AutoConfig.Location = New System.Drawing.Point(3, 1) + Me.btn_AutoConfig.Location = New System.Drawing.Point(1, 3) Me.btn_AutoConfig.Name = "btn_AutoConfig" - Me.btn_AutoConfig.Size = New System.Drawing.Size(407, 20) - ToolTipTitleItem4.Text = "Autoconfig this Emulator" - ToolTipItem1.LeftIndent = 6 - ToolTipItem1.Text = "Metropolis Launcher is able to identify numerous emulators. When clicking this bu" & + Me.btn_AutoConfig.Size = New System.Drawing.Size(429, 20) + ToolTipTitleItem34.Text = "Autoconfig this Emulator" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "Metropolis Launcher is able to identify numerous emulators. When clicking this bu" & "tton, the recommended settings for this emulator will be applied. In some cases " & "you'll have to answer some questions." - SuperToolTip4.Items.Add(ToolTipTitleItem4) - SuperToolTip4.Items.Add(ToolTipItem1) - Me.btn_AutoConfig.SuperTip = SuperToolTip4 + SuperToolTip38.Items.Add(ToolTipTitleItem34) + SuperToolTip38.Items.Add(ToolTipItem27) + Me.btn_AutoConfig.SuperTip = SuperToolTip38 Me.btn_AutoConfig.TabIndex = 15 Me.btn_AutoConfig.Text = "Autoconfig this Emulator" ' + '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, 164) + 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) + ToolTipTitleItem35.Text = "J2K Preset" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = resources.GetString("ToolTipItem28.Text") + SuperToolTip39.Items.Add(ToolTipTitleItem35) + SuperToolTip39.Items.Add(ToolTipItem28) + Me.lbl_J2KPreset.SuperTip = SuperToolTip39 + Me.lbl_J2KPreset.TabIndex = 7 + Me.lbl_J2KPreset.Text = "J2K Preset:" + ' 'cmb_List_Generator ' Me.cmb_List_Generator.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_List_Generator.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Emulators, "id_List_Generators", True)) - Me.cmb_List_Generator.Location = New System.Drawing.Point(118, 139) + Me.cmb_List_Generator.Location = New System.Drawing.Point(116, 141) Me.cmb_List_Generator.MKBoundLabel = Nothing Me.cmb_List_Generator.MKEditValue_Compare = Nothing Me.cmb_List_Generator.Name = "cmb_List_Generator" Me.cmb_List_Generator.Properties.AllowFocused = False - ToolTipItem2.Text = "Add a List Generator globally" - SuperToolTip5.Items.Add(ToolTipItem2) - ToolTipItem3.Text = "Remove this List Generator globally" - SuperToolTip6.Items.Add(ToolTipItem3) - ToolTipItem4.Text = "Edit this List Generator" - SuperToolTip7.Items.Add(ToolTipItem4) - ToolTipItem5.Text = "Don't use a List Generator with this Emulator" - SuperToolTip8.Items.Add(ToolTipItem5) - Me.cmb_List_Generator.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, SuperToolTip5, 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, SuperToolTip6, 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, SuperToolTip7, True), 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), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", Nothing, SuperToolTip8, True)}) + ToolTipItem29.Text = "Add a List Generator globally" + SuperToolTip40.Items.Add(ToolTipItem29) + ToolTipItem30.Text = "Remove this List Generator globally" + SuperToolTip41.Items.Add(ToolTipItem30) + ToolTipItem31.Text = "Edit this List Generator" + SuperToolTip42.Items.Add(ToolTipItem31) + ToolTipItem32.Text = "Don't use a List Generator with this Emulator" + SuperToolTip43.Items.Add(ToolTipItem32) + Me.cmb_List_Generator.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, SuperToolTip40, 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, SuperToolTip41, 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, SuperToolTip42, True), 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), SerializableAppearanceObject29, SerializableAppearanceObject30, SerializableAppearanceObject31, SerializableAppearanceObject32, "", Nothing, SuperToolTip43, True)}) Me.cmb_List_Generator.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_List_Generators", "id_List_Generators", 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("Main_Template", "Main_Template", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("File_Entry_Template", "File_Entry_Template", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Sort", "Sort", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far)}) Me.cmb_List_Generator.Properties.DataSource = Me.BS_List_Generators Me.cmb_List_Generator.Properties.DisplayMember = "Name" @@ -545,13 +814,13 @@ Partial Class frm_Emulators Me.cmb_List_Generator.Properties.ShowFooter = False Me.cmb_List_Generator.Properties.ShowHeader = False Me.cmb_List_Generator.Properties.ValueMember = "id_List_Generators" - Me.cmb_List_Generator.Size = New System.Drawing.Size(292, 20) - ToolTipTitleItem5.Text = "List Generator" - ToolTipItem6.LeftIndent = 6 - ToolTipItem6.Text = resources.GetString("ToolTipItem6.Text") - SuperToolTip9.Items.Add(ToolTipTitleItem5) - SuperToolTip9.Items.Add(ToolTipItem6) - Me.cmb_List_Generator.SuperTip = SuperToolTip9 + Me.cmb_List_Generator.Size = New System.Drawing.Size(314, 20) + ToolTipTitleItem36.Text = "List Generator" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = resources.GetString("ToolTipItem33.Text") + SuperToolTip44.Items.Add(ToolTipTitleItem36) + SuperToolTip44.Items.Add(ToolTipItem33) + Me.cmb_List_Generator.SuperTip = SuperToolTip44 Me.cmb_List_Generator.TabIndex = 14 ' 'BS_List_Generators @@ -559,11 +828,33 @@ Partial Class frm_Emulators Me.BS_List_Generators.DataMember = "tbl_List_Generators" Me.BS_List_Generators.DataSource = Me.DS_ML ' + '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, 95) + 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) + ToolTipTitleItem12.Text = "Screenshot Directory" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & + "atic screenshot collection of your roms." + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem8) + Me.lbl_Screenshot_Directory.SuperTip = SuperToolTip12 + Me.lbl_Screenshot_Directory.TabIndex = 7 + Me.lbl_Screenshot_Directory.Text = "Screenshot Directory:" + ' 'lbl_List_Generator ' Me.lbl_List_Generator.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far Me.lbl_List_Generator.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None - Me.lbl_List_Generator.Location = New System.Drawing.Point(3, 139) + Me.lbl_List_Generator.Location = New System.Drawing.Point(3, 141) Me.lbl_List_Generator.MKBoundControl1 = Nothing Me.lbl_List_Generator.MKBoundControl2 = Nothing Me.lbl_List_Generator.MKBoundControl3 = Nothing @@ -571,21 +862,42 @@ Partial Class frm_Emulators Me.lbl_List_Generator.MKBoundControl5 = Nothing Me.lbl_List_Generator.Name = "lbl_List_Generator" Me.lbl_List_Generator.Size = New System.Drawing.Size(112, 20) - ToolTipTitleItem6.Text = "List Generator" - ToolTipItem7.LeftIndent = 6 - ToolTipItem7.Text = resources.GetString("ToolTipItem7.Text") - SuperToolTip10.Items.Add(ToolTipTitleItem6) - SuperToolTip10.Items.Add(ToolTipItem7) - Me.lbl_List_Generator.SuperTip = SuperToolTip10 + ToolTipTitleItem37.Text = "List Generator" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = resources.GetString("ToolTipItem9.Text") + SuperToolTip13.Items.Add(ToolTipTitleItem37) + SuperToolTip13.Items.Add(ToolTipItem9) + Me.lbl_List_Generator.SuperTip = SuperToolTip13 Me.lbl_List_Generator.TabIndex = 13 Me.lbl_List_Generator.Text = "List Generator:" ' + '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, 118) + 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) + ToolTipTitleItem38.Text = "Startup Parameter" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = resources.GetString("ToolTipItem10.Text") + SuperToolTip14.Items.Add(ToolTipTitleItem38) + SuperToolTip14.Items.Add(ToolTipItem10) + Me.lbl_StartupParameter.SuperTip = SuperToolTip14 + Me.lbl_StartupParameter.TabIndex = 7 + Me.lbl_StartupParameter.Text = "Startup Parameter:" + ' '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, 185) + Me.cmb_Libretro_Core.Location = New System.Drawing.Point(116, 187) Me.cmb_Libretro_Core.MKBoundLabel = Nothing Me.cmb_Libretro_Core.MKEditValue_Compare = Nothing Me.cmb_Libretro_Core.Name = "cmb_Libretro_Core" @@ -598,13 +910,13 @@ Partial Class frm_Emulators 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(292, 20) - ToolTipTitleItem7.Text = "Libretro Core" - ToolTipItem8.LeftIndent = 6 - ToolTipItem8.Text = resources.GetString("ToolTipItem8.Text") - SuperToolTip11.Items.Add(ToolTipTitleItem7) - SuperToolTip11.Items.Add(ToolTipItem8) - Me.cmb_Libretro_Core.SuperTip = SuperToolTip11 + Me.cmb_Libretro_Core.Size = New System.Drawing.Size(314, 20) + ToolTipTitleItem39.Text = "Libretro Core" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = resources.GetString("ToolTipItem11.Text") + SuperToolTip15.Items.Add(ToolTipTitleItem39) + SuperToolTip15.Items.Add(ToolTipItem11) + Me.cmb_Libretro_Core.SuperTip = SuperToolTip15 Me.cmb_Libretro_Core.TabIndex = 12 Me.cmb_Libretro_Core.Visible = False ' @@ -619,11 +931,23 @@ Partial Class frm_Emulators Me.BTA_Libretro_Core.Transaction = Nothing Me.BTA_Libretro_Core.UpdateTablesStream = CType(resources.GetObject("BTA_Libretro_Core.UpdateTablesStream"), System.Collections.Generic.List(Of String)) ' + '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(116, 26) + 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(314, 20) + Me.txb_Name.TabIndex = 0 + ' '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, 185) + Me.lbl_Libretro_Core.Location = New System.Drawing.Point(3, 187) Me.lbl_Libretro_Core.MKBoundControl1 = Nothing Me.lbl_Libretro_Core.MKBoundControl2 = Nothing Me.lbl_Libretro_Core.MKBoundControl3 = Nothing @@ -631,21 +955,36 @@ Partial Class frm_Emulators 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) - ToolTipTitleItem8.Text = "Libretro Core" - ToolTipItem9.LeftIndent = 6 - ToolTipItem9.Text = resources.GetString("ToolTipItem9.Text") - SuperToolTip12.Items.Add(ToolTipTitleItem8) - SuperToolTip12.Items.Add(ToolTipItem9) - Me.lbl_Libretro_Core.SuperTip = SuperToolTip12 + ToolTipTitleItem16.Text = "Libretro Core" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = resources.GetString("ToolTipItem12.Text") + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem12) + Me.lbl_Libretro_Core.SuperTip = SuperToolTip16 Me.lbl_Libretro_Core.TabIndex = 11 Me.lbl_Libretro_Core.Text = "Libretro Core:" Me.lbl_Libretro_Core.Visible = False ' + '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, 72) + 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:" + ' '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, 162) + Me.cmb_J2K_Config.Location = New System.Drawing.Point(116, 164) Me.cmb_J2K_Config.MKBoundLabel = Nothing Me.cmb_J2K_Config.MKEditValue_Compare = Nothing Me.cmb_J2K_Config.Name = "cmb_J2K_Config" @@ -658,13 +997,13 @@ Partial Class frm_Emulators 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(292, 20) - ToolTipTitleItem9.Text = "J2K Preset" - ToolTipItem10.LeftIndent = 6 - ToolTipItem10.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." - SuperToolTip13.Items.Add(ToolTipTitleItem9) - SuperToolTip13.Items.Add(ToolTipItem10) - Me.cmb_J2K_Config.SuperTip = SuperToolTip13 + Me.cmb_J2K_Config.Size = New System.Drawing.Size(314, 20) + ToolTipTitleItem40.Text = "J2K Preset" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "Choose which preset you want to use for the J2K joystick to keyboard mapper." + SuperToolTip20.Items.Add(ToolTipTitleItem40) + SuperToolTip20.Items.Add(ToolTipItem16) + Me.cmb_J2K_Config.SuperTip = SuperToolTip20 Me.cmb_J2K_Config.TabIndex = 8 ' 'BS_J2K @@ -691,11 +1030,23 @@ Partial Class frm_Emulators ' Me.DataColumn6.ColumnName = "ConfigName" ' + '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(116, 49) + 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(279, 20) + Me.txb_Directory.TabIndex = 1 + ' '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, 24) + Me.lbl_Name.Location = New System.Drawing.Point(3, 26) Me.lbl_Name.MKBoundControl1 = Nothing Me.lbl_Name.MKBoundControl2 = Nothing Me.lbl_Name.MKBoundControl3 = Nothing @@ -706,52 +1057,91 @@ Partial Class frm_Emulators Me.lbl_Name.TabIndex = 7 Me.lbl_Name.Text = "Name:" ' + '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, 49) + 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_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, 93) + Me.txb_ScreenshotDirectory.Location = New System.Drawing.Point(116, 95) 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(257, 20) - ToolTipTitleItem10.Text = "Screenshot Directory" - ToolTipItem11.LeftIndent = 6 - ToolTipItem11.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & + Me.txb_ScreenshotDirectory.Size = New System.Drawing.Size(279, 20) + ToolTipTitleItem18.Text = "Screenshot Directory" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & "atic screenshot collection of your roms." - SuperToolTip14.Items.Add(ToolTipTitleItem10) - SuperToolTip14.Items.Add(ToolTipItem11) - Me.txb_ScreenshotDirectory.SuperTip = SuperToolTip14 + SuperToolTip22.Items.Add(ToolTipTitleItem18) + SuperToolTip22.Items.Add(ToolTipItem18) + Me.txb_ScreenshotDirectory.SuperTip = SuperToolTip22 Me.txb_ScreenshotDirectory.TabIndex = 5 ' + '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(116, 72) + 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(279, 20) + Me.txb_Executable.TabIndex = 3 + ' '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(378, 70) + Me.btn_Run.Location = New System.Drawing.Point(398, 72) Me.btn_Run.Name = "btn_Run" Me.btn_Run.Size = New System.Drawing.Size(32, 20) - ToolTipTitleItem11.Text = "Run" - ToolTipItem12.LeftIndent = 6 - ToolTipItem12.Text = "Run the emulator right here, right now." - SuperToolTip15.Items.Add(ToolTipTitleItem11) - SuperToolTip15.Items.Add(ToolTipItem12) - Me.btn_Run.SuperTip = SuperToolTip15 + ToolTipTitleItem19.Text = "Run" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.Text = "Run the emulator right here, right now." + SuperToolTip23.Items.Add(ToolTipTitleItem19) + SuperToolTip23.Items.Add(ToolTipItem19) + Me.btn_Run.SuperTip = SuperToolTip23 Me.btn_Run.TabIndex = 4 Me.btn_Run.Text = "&Run" ' + '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(398, 95) + Me.btn_ScreenshotDirectoryOpen.Name = "btn_ScreenshotDirectoryOpen" + Me.btn_ScreenshotDirectoryOpen.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem41.Text = "browse screenshot directory" + SuperToolTip45.Items.Add(ToolTipTitleItem41) + Me.btn_ScreenshotDirectoryOpen.SuperTip = SuperToolTip45 + Me.btn_ScreenshotDirectoryOpen.TabIndex = 6 + Me.btn_ScreenshotDirectoryOpen.Text = "..." + ' '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(378, 47) + Me.btn_EmulatorFileOpen.Location = New System.Drawing.Point(398, 49) Me.btn_EmulatorFileOpen.Name = "btn_EmulatorFileOpen" Me.btn_EmulatorFileOpen.Size = New System.Drawing.Size(32, 20) - ToolTipTitleItem12.Text = "Choose Emulator" - ToolTipItem13.LeftIndent = 6 - ToolTipItem13.Text = "Choose emulator by selecting the executable." - SuperToolTip16.Items.Add(ToolTipTitleItem12) - SuperToolTip16.Items.Add(ToolTipItem13) - Me.btn_EmulatorFileOpen.SuperTip = SuperToolTip16 + ToolTipTitleItem42.Text = "Choose Emulator" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.Text = "Choose emulator by selecting the executable." + SuperToolTip46.Items.Add(ToolTipTitleItem42) + SuperToolTip46.Items.Add(ToolTipItem34) + Me.btn_EmulatorFileOpen.SuperTip = SuperToolTip46 Me.btn_EmulatorFileOpen.TabIndex = 2 Me.btn_EmulatorFileOpen.Text = "..." ' @@ -760,169 +1150,37 @@ Partial Class frm_Emulators 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, 116) + Me.txb_StartupParameter.Location = New System.Drawing.Point(116, 118) 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(292, 20) - ToolTipTitleItem13.Text = "Startup Parameter" - ToolTipItem14.LeftIndent = 6 - ToolTipItem14.Text = resources.GetString("ToolTipItem14.Text") - SuperToolTip17.Items.Add(ToolTipTitleItem13) - SuperToolTip17.Items.Add(ToolTipItem14) - Me.txb_StartupParameter.SuperTip = SuperToolTip17 + Me.txb_StartupParameter.Size = New System.Drawing.Size(314, 20) + ToolTipTitleItem43.Text = "Startup Parameter" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = resources.GetString("ToolTipItem35.Text") + SuperToolTip47.Items.Add(ToolTipTitleItem43) + SuperToolTip47.Items.Add(ToolTipItem35) + Me.txb_StartupParameter.SuperTip = SuperToolTip47 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(378, 93) - Me.btn_ScreenshotDirectoryOpen.Name = "btn_ScreenshotDirectoryOpen" - Me.btn_ScreenshotDirectoryOpen.Size = New System.Drawing.Size(32, 20) - ToolTipTitleItem14.Text = "browse screenshot directory" - SuperToolTip18.Items.Add(ToolTipTitleItem14) - Me.btn_ScreenshotDirectoryOpen.SuperTip = SuperToolTip18 - 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, 70) - 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(257, 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, 47) - 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, 47) - 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(257, 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, 70) - 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, 24) - 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(292, 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, 116) - 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) - ToolTipTitleItem15.Text = "Startup Parameter" - ToolTipItem15.LeftIndent = 6 - ToolTipItem15.Text = resources.GetString("ToolTipItem15.Text") - SuperToolTip19.Items.Add(ToolTipTitleItem15) - SuperToolTip19.Items.Add(ToolTipItem15) - Me.lbl_StartupParameter.SuperTip = SuperToolTip19 - 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, 93) - 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) - ToolTipTitleItem16.Text = "Screenshot Directory" - ToolTipItem16.LeftIndent = 6 - ToolTipItem16.Text = "Define the screenshot directory of the emulator here. This will be used for autom" & - "atic screenshot collection of your roms." - SuperToolTip20.Items.Add(ToolTipTitleItem16) - SuperToolTip20.Items.Add(ToolTipItem16) - Me.lbl_Screenshot_Directory.SuperTip = SuperToolTip20 - Me.lbl_Screenshot_Directory.TabIndex = 7 - Me.lbl_Screenshot_Directory.Text = "Screenshot Directory:" - ' - '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, 162) - 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) - ToolTipTitleItem17.Text = "J2K Preset" - ToolTipItem17.LeftIndent = 6 - ToolTipItem17.Text = resources.GetString("ToolTipItem17.Text") - SuperToolTip21.Items.Add(ToolTipTitleItem17) - SuperToolTip21.Items.Add(ToolTipItem17) - Me.lbl_J2KPreset.SuperTip = SuperToolTip21 - 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.Controls.Add(Me.pnl_Settings_MV) Me.tpg_MV_Settings.Name = "tpg_MV_Settings" - Me.tpg_MV_Settings.Size = New System.Drawing.Size(405, 207) + Me.tpg_MV_Settings.Size = New System.Drawing.Size(431, 256) Me.tpg_MV_Settings.Text = "Multiple Volumes" ' + 'pnl_Settings_MV + ' + Me.pnl_Settings_MV.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Settings_MV.Controls.Add(Me.grd_MV) + Me.pnl_Settings_MV.Controls.Add(Me.pnl_MV_Buttons) + Me.pnl_Settings_MV.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Settings_MV.Location = New System.Drawing.Point(0, 0) + Me.pnl_Settings_MV.Name = "pnl_Settings_MV" + Me.pnl_Settings_MV.Size = New System.Drawing.Size(431, 256) + Me.pnl_Settings_MV.TabIndex = 9 + ' 'grd_MV ' Me.grd_MV.DataSource = Me.BS_MV @@ -931,7 +1189,7 @@ Partial Class frm_Emulators 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, 181) + Me.grd_MV.Size = New System.Drawing.Size(431, 230) Me.grd_MV.TabIndex = 0 Me.grd_MV.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_MV}) ' @@ -990,46 +1248,417 @@ Partial Class frm_Emulators 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, 181) + Me.pnl_MV_Buttons.Location = New System.Drawing.Point(0, 230) Me.pnl_MV_Buttons.Name = "pnl_MV_Buttons" - Me.pnl_MV_Buttons.Size = New System.Drawing.Size(405, 26) + Me.pnl_MV_Buttons.Size = New System.Drawing.Size(431, 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.Location = New System.Drawing.Point(352, 3) Me.btn_MV_Delete.Name = "btn_MV_Delete" Me.btn_MV_Delete.Size = New System.Drawing.Size(75, 20) - ToolTipTitleItem18.Text = "Delete selected Volume from list" - SuperToolTip22.Items.Add(ToolTipTitleItem18) - Me.btn_MV_Delete.SuperTip = SuperToolTip22 + ToolTipTitleItem44.Text = "Delete selected Volume from list" + SuperToolTip48.Items.Add(ToolTipTitleItem44) + Me.btn_MV_Delete.SuperTip = SuperToolTip48 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.Location = New System.Drawing.Point(274, 3) Me.btn_MV_Add.Name = "btn_MV_Add" Me.btn_MV_Add.Size = New System.Drawing.Size(75, 20) - ToolTipTitleItem19.Text = "Add a Volume to the list" - SuperToolTip23.Items.Add(ToolTipTitleItem19) - Me.btn_MV_Add.SuperTip = SuperToolTip23 + ToolTipTitleItem45.Text = "Add a Volume to the list" + SuperToolTip49.Items.Add(ToolTipTitleItem45) + Me.btn_MV_Add.SuperTip = SuperToolTip49 Me.btn_MV_Add.TabIndex = 0 Me.btn_MV_Add.Text = "&Add" ' + 'tpg_PrePostLaunch + ' + Me.tpg_PrePostLaunch.Controls.Add(Me.tlp_PrePostLaunch) + Me.tpg_PrePostLaunch.Name = "tpg_PrePostLaunch" + Me.tpg_PrePostLaunch.Size = New System.Drawing.Size(431, 256) + Me.tpg_PrePostLaunch.Text = "Pre- and Post-Launch Commands" + ' + 'tlp_PrePostLaunch + ' + Me.tlp_PrePostLaunch.ColumnCount = 1 + Me.tlp_PrePostLaunch.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_PrePostLaunch.Controls.Add(Me.gb_PostLaunch, 0, 1) + Me.tlp_PrePostLaunch.Controls.Add(Me.gb_PreLaunch, 0, 0) + Me.tlp_PrePostLaunch.Dock = System.Windows.Forms.DockStyle.Fill + Me.tlp_PrePostLaunch.Location = New System.Drawing.Point(0, 0) + Me.tlp_PrePostLaunch.Name = "tlp_PrePostLaunch" + Me.tlp_PrePostLaunch.RowCount = 2 + Me.tlp_PrePostLaunch.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_PrePostLaunch.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.tlp_PrePostLaunch.Size = New System.Drawing.Size(431, 256) + Me.tlp_PrePostLaunch.TabIndex = 0 + ' + 'gb_PostLaunch + ' + Me.gb_PostLaunch.Controls.Add(Me.grd_PostLaunch) + Me.gb_PostLaunch.Controls.Add(Me.pnl_PostLaunch_Buttons) + Me.gb_PostLaunch.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_PostLaunch.Location = New System.Drawing.Point(3, 131) + Me.gb_PostLaunch.Name = "gb_PostLaunch" + Me.gb_PostLaunch.Size = New System.Drawing.Size(425, 122) + Me.gb_PostLaunch.TabIndex = 1 + Me.gb_PostLaunch.Text = "Post-Launch Commands" + ' + 'grd_PostLaunch + ' + Me.grd_PostLaunch.DataSource = Me.BS_PostLaunch_Commands + Me.grd_PostLaunch.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_PostLaunch.Location = New System.Drawing.Point(2, 20) + Me.grd_PostLaunch.MainView = Me.gv_PostLaunch + Me.grd_PostLaunch.MenuManager = Me.barmng + Me.grd_PostLaunch.Name = "grd_PostLaunch" + Me.grd_PostLaunch.Size = New System.Drawing.Size(421, 78) + Me.grd_PostLaunch.TabIndex = 3 + Me.grd_PostLaunch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_PostLaunch}) + ' + 'BS_PostLaunch_Commands + ' + Me.BS_PostLaunch_Commands.DataMember = "ttb_Emulators_PostLaunch_Commands" + Me.BS_PostLaunch_Commands.DataSource = Me.DS_ML + Me.BS_PostLaunch_Commands.Sort = "Sort" + ' + 'gv_PostLaunch + ' + Me.gv_PostLaunch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5}) + Me.gv_PostLaunch.GridControl = Me.grd_PostLaunch + Me.gv_PostLaunch.Name = "gv_PostLaunch" + Me.gv_PostLaunch.OptionsView.ColumnAutoWidth = False + Me.gv_PostLaunch.OptionsView.ShowGroupPanel = False + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "Directory" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + Me.GridColumn1.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.GridColumn1.OptionsColumn.ReadOnly = True + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 0 + Me.GridColumn1.Width = 106 + ' + 'GridColumn2 + ' + Me.GridColumn2.FieldName = "Executable" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + Me.GridColumn2.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.GridColumn2.OptionsColumn.ReadOnly = True + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 1 + Me.GridColumn2.Width = 122 + ' + 'GridColumn3 + ' + Me.GridColumn3.FieldName = "Parameter" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.OptionsColumn.AllowEdit = False + Me.GridColumn3.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.GridColumn3.OptionsColumn.ReadOnly = True + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 2 + Me.GridColumn3.Width = 129 + ' + 'GridColumn4 + ' + Me.GridColumn4.Caption = "Wait" + Me.GridColumn4.FieldName = "WaitForExit" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.OptionsColumn.AllowEdit = False + Me.GridColumn4.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.GridColumn4.OptionsColumn.ReadOnly = True + Me.GridColumn4.ToolTip = "Wait until the command exits" + Me.GridColumn4.Visible = True + Me.GridColumn4.VisibleIndex = 3 + Me.GridColumn4.Width = 40 + ' + 'GridColumn5 + ' + Me.GridColumn5.FieldName = "Minimized" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.OptionsColumn.AllowEdit = False + Me.GridColumn5.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.GridColumn5.OptionsColumn.ReadOnly = True + Me.GridColumn5.ToolTip = "Run minimized" + Me.GridColumn5.Visible = True + Me.GridColumn5.VisibleIndex = 4 + Me.GridColumn5.Width = 63 + ' + '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.bbi_PreLaunch_Add, Me.bbi_PreLaunch_Edit, Me.bbi_PreLaunch_Delete, Me.bbi_PostLaunch_Add, Me.bbi_PostLaunch_Edit, Me.bbi_PostLaunch_Delete}) + Me.barmng.MaxItemId = 9 + ' + '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(708, 0) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 644) + Me.barDockControlBottom.Size = New System.Drawing.Size(708, 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, 644) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(708, 0) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 644) + ' + '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" + ' + 'bbi_PreLaunch_Add + ' + Me.bbi_PreLaunch_Add.Caption = "&Add a Pre-Launch Command" + Me.bbi_PreLaunch_Add.Id = 3 + Me.bbi_PreLaunch_Add.ImageUri.Uri = "Add" + Me.bbi_PreLaunch_Add.Name = "bbi_PreLaunch_Add" + ' + 'bbi_PreLaunch_Edit + ' + Me.bbi_PreLaunch_Edit.Caption = "Edit this Pre-Launch Command" + Me.bbi_PreLaunch_Edit.Id = 4 + Me.bbi_PreLaunch_Edit.ImageUri.Uri = "Edit" + Me.bbi_PreLaunch_Edit.Name = "bbi_PreLaunch_Edit" + ' + 'bbi_PreLaunch_Delete + ' + Me.bbi_PreLaunch_Delete.Caption = "Delete this Pre-Launch Command" + Me.bbi_PreLaunch_Delete.Id = 5 + Me.bbi_PreLaunch_Delete.ImageUri.Uri = "Cancel" + Me.bbi_PreLaunch_Delete.Name = "bbi_PreLaunch_Delete" + ' + 'bbi_PostLaunch_Add + ' + Me.bbi_PostLaunch_Add.Caption = "Add Post-Launch Command" + Me.bbi_PostLaunch_Add.Id = 6 + Me.bbi_PostLaunch_Add.ImageUri.Uri = "Add" + Me.bbi_PostLaunch_Add.Name = "bbi_PostLaunch_Add" + ' + 'bbi_PostLaunch_Edit + ' + Me.bbi_PostLaunch_Edit.Caption = "Edit this Post-Launch Command" + Me.bbi_PostLaunch_Edit.Id = 7 + Me.bbi_PostLaunch_Edit.ImageUri.Uri = "Edit" + Me.bbi_PostLaunch_Edit.Name = "bbi_PostLaunch_Edit" + ' + 'bbi_PostLaunch_Delete + ' + Me.bbi_PostLaunch_Delete.Caption = "Delete this Post-Launch Command" + Me.bbi_PostLaunch_Delete.Id = 8 + Me.bbi_PostLaunch_Delete.ImageUri.Uri = "Cancel" + Me.bbi_PostLaunch_Delete.Name = "bbi_PostLaunch_Delete" + ' + 'pnl_PostLaunch_Buttons + ' + Me.pnl_PostLaunch_Buttons.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_PostLaunch_Buttons.Controls.Add(Me.btn_PostLaunch_MoveDown) + Me.pnl_PostLaunch_Buttons.Controls.Add(Me.btn_PostLaunch_MoveUp) + Me.pnl_PostLaunch_Buttons.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_PostLaunch_Buttons.Location = New System.Drawing.Point(2, 98) + Me.pnl_PostLaunch_Buttons.Name = "pnl_PostLaunch_Buttons" + Me.pnl_PostLaunch_Buttons.Size = New System.Drawing.Size(421, 22) + Me.pnl_PostLaunch_Buttons.TabIndex = 2 + ' + 'btn_PostLaunch_MoveDown + ' + Me.btn_PostLaunch_MoveDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_PostLaunch_MoveDown.Location = New System.Drawing.Point(78, 1) + Me.btn_PostLaunch_MoveDown.Name = "btn_PostLaunch_MoveDown" + Me.btn_PostLaunch_MoveDown.Size = New System.Drawing.Size(75, 20) + Me.btn_PostLaunch_MoveDown.TabIndex = 4 + Me.btn_PostLaunch_MoveDown.Text = "Move &Down" + ' + 'btn_PostLaunch_MoveUp + ' + Me.btn_PostLaunch_MoveUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_PostLaunch_MoveUp.Location = New System.Drawing.Point(0, 1) + Me.btn_PostLaunch_MoveUp.Name = "btn_PostLaunch_MoveUp" + Me.btn_PostLaunch_MoveUp.Size = New System.Drawing.Size(75, 20) + Me.btn_PostLaunch_MoveUp.TabIndex = 3 + Me.btn_PostLaunch_MoveUp.Text = "Move &Up" + ' + 'gb_PreLaunch + ' + Me.gb_PreLaunch.Controls.Add(Me.grd_PreLaunch) + Me.gb_PreLaunch.Controls.Add(Me.pnl_PreLaunch_Buttons) + Me.gb_PreLaunch.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_PreLaunch.Location = New System.Drawing.Point(3, 3) + Me.gb_PreLaunch.Name = "gb_PreLaunch" + Me.gb_PreLaunch.Size = New System.Drawing.Size(425, 122) + Me.gb_PreLaunch.TabIndex = 0 + Me.gb_PreLaunch.Text = "Pre-Launch Commands" + ' + 'grd_PreLaunch + ' + Me.grd_PreLaunch.DataSource = Me.BS_PreLaunch_Commands + Me.grd_PreLaunch.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_PreLaunch.Location = New System.Drawing.Point(2, 20) + Me.grd_PreLaunch.MainView = Me.gv_PreLaunch + Me.grd_PreLaunch.MenuManager = Me.barmng + Me.grd_PreLaunch.Name = "grd_PreLaunch" + Me.grd_PreLaunch.Size = New System.Drawing.Size(421, 78) + Me.grd_PreLaunch.TabIndex = 0 + Me.grd_PreLaunch.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_PreLaunch}) + ' + 'BS_PreLaunch_Commands + ' + Me.BS_PreLaunch_Commands.DataMember = "ttb_Emulators_PreLaunch_Commands" + Me.BS_PreLaunch_Commands.DataSource = Me.DS_ML + Me.BS_PreLaunch_Commands.Sort = "Sort" + ' + 'gv_PreLaunch + ' + Me.gv_PreLaunch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colDirectory, Me.colExecutable, Me.colParameter1, Me.colWaitForExit, Me.colMinimized}) + Me.gv_PreLaunch.GridControl = Me.grd_PreLaunch + Me.gv_PreLaunch.Name = "gv_PreLaunch" + Me.gv_PreLaunch.OptionsView.ColumnAutoWidth = False + Me.gv_PreLaunch.OptionsView.ShowGroupPanel = False + ' + 'colDirectory + ' + Me.colDirectory.FieldName = "Directory" + Me.colDirectory.Name = "colDirectory" + Me.colDirectory.OptionsColumn.AllowEdit = False + Me.colDirectory.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colDirectory.OptionsColumn.ReadOnly = True + Me.colDirectory.Visible = True + Me.colDirectory.VisibleIndex = 0 + Me.colDirectory.Width = 106 + ' + 'colExecutable + ' + Me.colExecutable.FieldName = "Executable" + Me.colExecutable.Name = "colExecutable" + Me.colExecutable.OptionsColumn.AllowEdit = False + Me.colExecutable.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colExecutable.OptionsColumn.ReadOnly = True + Me.colExecutable.Visible = True + Me.colExecutable.VisibleIndex = 1 + Me.colExecutable.Width = 122 + ' + 'colParameter1 + ' + Me.colParameter1.FieldName = "Parameter" + Me.colParameter1.Name = "colParameter1" + Me.colParameter1.OptionsColumn.AllowEdit = False + Me.colParameter1.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colParameter1.OptionsColumn.ReadOnly = True + Me.colParameter1.Visible = True + Me.colParameter1.VisibleIndex = 2 + Me.colParameter1.Width = 129 + ' + 'colWaitForExit + ' + Me.colWaitForExit.Caption = "Wait" + Me.colWaitForExit.FieldName = "WaitForExit" + Me.colWaitForExit.Name = "colWaitForExit" + Me.colWaitForExit.OptionsColumn.AllowEdit = False + Me.colWaitForExit.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colWaitForExit.OptionsColumn.ReadOnly = True + Me.colWaitForExit.ToolTip = "Wait until the command exits" + Me.colWaitForExit.Visible = True + Me.colWaitForExit.VisibleIndex = 3 + Me.colWaitForExit.Width = 40 + ' + 'colMinimized + ' + Me.colMinimized.FieldName = "Minimized" + Me.colMinimized.Name = "colMinimized" + Me.colMinimized.OptionsColumn.AllowEdit = False + Me.colMinimized.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colMinimized.OptionsColumn.ReadOnly = True + Me.colMinimized.ToolTip = "Run minimized" + Me.colMinimized.Visible = True + Me.colMinimized.VisibleIndex = 4 + Me.colMinimized.Width = 63 + ' + 'pnl_PreLaunch_Buttons + ' + Me.pnl_PreLaunch_Buttons.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_PreLaunch_Buttons.Controls.Add(Me.btn_PreLaunch_MoveDown) + Me.pnl_PreLaunch_Buttons.Controls.Add(Me.btn_PreLaunch_MoveUp) + Me.pnl_PreLaunch_Buttons.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl_PreLaunch_Buttons.Location = New System.Drawing.Point(2, 98) + Me.pnl_PreLaunch_Buttons.Name = "pnl_PreLaunch_Buttons" + Me.pnl_PreLaunch_Buttons.Size = New System.Drawing.Size(421, 22) + Me.pnl_PreLaunch_Buttons.TabIndex = 1 + ' + 'btn_PreLaunch_MoveDown + ' + Me.btn_PreLaunch_MoveDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_PreLaunch_MoveDown.Location = New System.Drawing.Point(78, 1) + Me.btn_PreLaunch_MoveDown.Name = "btn_PreLaunch_MoveDown" + Me.btn_PreLaunch_MoveDown.Size = New System.Drawing.Size(75, 20) + Me.btn_PreLaunch_MoveDown.TabIndex = 4 + Me.btn_PreLaunch_MoveDown.Text = "Move &Down" + ' + 'btn_PreLaunch_MoveUp + ' + Me.btn_PreLaunch_MoveUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btn_PreLaunch_MoveUp.Location = New System.Drawing.Point(0, 1) + Me.btn_PreLaunch_MoveUp.Name = "btn_PreLaunch_MoveUp" + Me.btn_PreLaunch_MoveUp.Size = New System.Drawing.Size(75, 20) + Me.btn_PreLaunch_MoveUp.TabIndex = 3 + Me.btn_PreLaunch_MoveUp.Text = "Move &Up" + ' '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, 207) - ToolTipTitleItem20.Text = "DOSBox Patches" - ToolTipItem18.LeftIndent = 6 - ToolTipItem18.Text = "Choose which patches the DOSBox instance supports" - SuperToolTip24.Items.Add(ToolTipTitleItem20) - SuperToolTip24.Items.Add(ToolTipItem18) - Me.tpg_DOSBox_Patches.SuperTip = SuperToolTip24 + Me.tpg_DOSBox_Patches.Size = New System.Drawing.Size(431, 256) + ToolTipTitleItem23.Text = "DOSBox Patches" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.Text = "Choose which patches the DOSBox instance supports" + SuperToolTip27.Items.Add(ToolTipTitleItem23) + SuperToolTip27.Items.Add(ToolTipItem22) + Me.tpg_DOSBox_Patches.SuperTip = SuperToolTip27 Me.tpg_DOSBox_Patches.Text = "DOSBox Patches" ' 'splt_DOSBox_Patches @@ -1041,7 +1670,7 @@ Partial Class frm_Emulators 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, 207) + Me.splt_DOSBox_Patches.Size = New System.Drawing.Size(431, 256) Me.splt_DOSBox_Patches.SplitterPosition = 113 Me.splt_DOSBox_Patches.TabIndex = 0 Me.splt_DOSBox_Patches.Text = "Ctl_MKDXSplitPanel1" @@ -1053,7 +1682,7 @@ Partial Class frm_Emulators 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, 207) + Me.grd_DOSBox_Patches_Categories.Size = New System.Drawing.Size(113, 256) 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}) ' @@ -1090,7 +1719,7 @@ Partial Class frm_Emulators 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, 207) + Me.grd_DOSBox_Patches.Size = New System.Drawing.Size(313, 256) Me.grd_DOSBox_Patches.TabIndex = 0 Me.grd_DOSBox_Patches.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gv_DOSBox_Patches}) ' @@ -1139,7 +1768,7 @@ Partial Class frm_Emulators '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(340, 4) + Me.btn_Close.Location = New System.Drawing.Point(358, 4) Me.btn_Close.Name = "btn_Close" Me.btn_Close.Size = New System.Drawing.Size(75, 20) Me.btn_Close.TabIndex = 1 @@ -1161,9 +1790,9 @@ Partial Class frm_Emulators 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(0, 286) + Me.pnl_Buttons.Location = New System.Drawing.Point(0, 325) Me.pnl_Buttons.Name = "pnl_Buttons" - Me.pnl_Buttons.Size = New System.Drawing.Size(419, 26) + Me.pnl_Buttons.Size = New System.Drawing.Size(437, 26) Me.pnl_Buttons.TabIndex = 7 ' 'popmnu_Emulators @@ -1172,65 +1801,6 @@ Partial Class frm_Emulators 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(690, 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(690, 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(690, 0) - Me.barDockControlRight.Size = New System.Drawing.Size(0, 585) - ' 'DataTable1 ' Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2}) @@ -1259,11 +1829,21 @@ Partial Class frm_Emulators Me.splt_Main.Panel1.Text = "Panel1" Me.splt_Main.Panel2.Controls.Add(Me.pnl_Right) Me.splt_Main.Panel2.Text = "Panel2" - Me.splt_Main.Size = New System.Drawing.Size(690, 585) + Me.splt_Main.Size = New System.Drawing.Size(708, 644) Me.splt_Main.SplitterPosition = 262 Me.splt_Main.TabIndex = 16 Me.splt_Main.Text = "Ctl_MKDXSplitPanel1" ' + 'pnl_Right + ' + Me.pnl_Right.Controls.Add(Me.splt_Right) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(0, 0) + Me.pnl_Right.MinimumSize = New System.Drawing.Size(423, 585) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(441, 644) + Me.pnl_Right.TabIndex = 13 + ' 'splt_Right ' Me.splt_Right.Dock = System.Windows.Forms.DockStyle.Fill @@ -1271,33 +1851,51 @@ Partial Class frm_Emulators Me.splt_Right.Location = New System.Drawing.Point(2, 2) Me.splt_Right.Name = "splt_Right" Me.splt_Right.Panel1.Controls.Add(Me.pnl_Settings) + Me.splt_Right.Panel1.MinSize = 284 Me.splt_Right.Panel1.Text = "Panel1" Me.splt_Right.Panel2.Controls.Add(Me.pnl_Platforms) Me.splt_Right.Panel2.Controls.Add(Me.pnl_Buttons) Me.splt_Right.Panel2.Text = "Panel2" - Me.splt_Right.Size = New System.Drawing.Size(419, 581) - Me.splt_Right.SplitterPosition = 264 + Me.splt_Right.Size = New System.Drawing.Size(437, 640) + Me.splt_Right.SplitterPosition = 284 Me.splt_Right.TabIndex = 12 Me.splt_Right.Text = "Ctl_MKDXSplitPanel2" ' - 'pnl_Right + 'popmnu_PreLaunch ' - Me.pnl_Right.Controls.Add(Me.splt_Right) - Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnl_Right.Location = New System.Drawing.Point(0, 0) - Me.pnl_Right.MinimumSize = New System.Drawing.Size(423, 585) - Me.pnl_Right.Name = "pnl_Right" - Me.pnl_Right.Size = New System.Drawing.Size(423, 585) - Me.pnl_Right.TabIndex = 13 + Me.popmnu_PreLaunch.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PreLaunch_Add), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PreLaunch_Edit), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PreLaunch_Delete)}) + Me.popmnu_PreLaunch.Manager = Me.barmng + Me.popmnu_PreLaunch.Name = "popmnu_PreLaunch" + ' + 'popmnu_PostLaunch + ' + Me.popmnu_PostLaunch.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PostLaunch_Add), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PostLaunch_Edit), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_PostLaunch_Delete)}) + Me.popmnu_PostLaunch.Manager = Me.barmng + Me.popmnu_PostLaunch.Name = "popmnu_PostLaunch" + ' + 'DataTable2 + ' + Me.DataTable2.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn3, Me.DataColumn4}) + Me.DataTable2.TableName = "Table1" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "id" + Me.DataColumn3.DataType = GetType(Long) + ' + 'DataColumn4 + ' + Me.DataColumn4.ColumnName = "DisplayText" ' 'frm_Emulators ' - Me.ClientSize = New System.Drawing.Size(690, 585) + Me.ClientSize = New System.Drawing.Size(708, 644) 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.MinimumSize = New System.Drawing.Size(724, 600) Me.Name = "frm_Emulators" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen @@ -1320,20 +1918,29 @@ Partial Class frm_Emulators CType(Me.tcl_Settings, System.ComponentModel.ISupportInitialize).EndInit() Me.tcl_Settings.ResumeLayout(False) Me.tpg_Settings.ResumeLayout(False) + CType(Me.pnl_Settings_Settings, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Settings_Settings.ResumeLayout(False) + CType(Me.pnl_Script_File, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Script_File.ResumeLayout(False) + CType(Me.txb_Script_File.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Scripting.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Script_Types, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.cmb_List_Generator.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BS_List_Generators, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.cmb_Libretro_Core.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BTA_Libretro_Core, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Name.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.txb_Directory.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() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).EndInit() Me.tpg_MV_Settings.ResumeLayout(False) + CType(Me.pnl_Settings_MV, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Settings_MV.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() @@ -1341,6 +1948,23 @@ Partial Class frm_Emulators 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_PrePostLaunch.ResumeLayout(False) + Me.tlp_PrePostLaunch.ResumeLayout(False) + CType(Me.gb_PostLaunch, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_PostLaunch.ResumeLayout(False) + CType(Me.grd_PostLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_PostLaunch_Commands, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_PostLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_PostLaunch_Buttons, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_PostLaunch_Buttons.ResumeLayout(False) + CType(Me.gb_PreLaunch, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_PreLaunch.ResumeLayout(False) + CType(Me.grd_PreLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_PreLaunch_Commands, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_PreLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_PreLaunch_Buttons, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_PreLaunch_Buttons.ResumeLayout(False) Me.tpg_DOSBox_Patches.ResumeLayout(False) CType(Me.splt_DOSBox_Patches, System.ComponentModel.ISupportInitialize).EndInit() Me.splt_DOSBox_Patches.ResumeLayout(False) @@ -1356,15 +1980,17 @@ Partial Class frm_Emulators 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() CType(Me.DS_Rombase, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).EndInit() Me.splt_Main.ResumeLayout(False) - CType(Me.splt_Right, System.ComponentModel.ISupportInitialize).EndInit() - Me.splt_Right.ResumeLayout(False) CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl_Right.ResumeLayout(False) + CType(Me.splt_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_Right.ResumeLayout(False) + CType(Me.popmnu_PreLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_PostLaunch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1462,4 +2088,51 @@ Partial Class frm_Emulators Friend WithEvents splt_Main As MKNetDXLib.ctl_MKDXSplitPanel Friend WithEvents splt_Right As MKNetDXLib.ctl_MKDXSplitPanel Friend WithEvents pnl_Right As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Settings_Settings As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_Settings_MV As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents tpg_PrePostLaunch As DevExpress.XtraTab.XtraTabPage + Friend WithEvents tlp_PrePostLaunch As TableLayoutPanel + Friend WithEvents gb_PostLaunch As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents gb_PreLaunch As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_PreLaunch As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_PreLaunch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents pnl_PreLaunch_Buttons As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents pnl_PostLaunch_Buttons As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents btn_PostLaunch_MoveDown As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_PostLaunch_MoveUp As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_PreLaunch_MoveDown As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_PreLaunch_MoveUp As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents bbi_PreLaunch_Add As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_PreLaunch_Edit As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_PreLaunch_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_PreLaunch As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents BS_PreLaunch_Commands As BindingSource + Friend WithEvents BS_PostLaunch_Commands As BindingSource + Friend WithEvents grd_PostLaunch As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents gv_PostLaunch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend 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 GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDirectory As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colExecutable As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colParameter1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colWaitForExit As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMinimized As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents bbi_PostLaunch_Add As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_PostLaunch_Edit As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_PostLaunch_Delete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_PostLaunch As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents cmb_Scripting As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Scripting As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents BTA_Script_Types As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable2 As DataTable + Friend WithEvents DataColumn3 As DataColumn + Friend WithEvents DataColumn4 As DataColumn + Friend WithEvents lbl_Script_File As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Script_File As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_Browse_Script_File As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Create_Script_File As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents pnl_Script_File As MKNetDXLib.ctl_MKDXPanel End Class diff --git a/Metropolis_Launcher/Forms/frm_Emulators.resx b/Metropolis_Launcher/Forms/frm_Emulators.resx index ffd9495..52a4159 100644 --- a/Metropolis_Launcher/Forms/frm_Emulators.resx +++ b/Metropolis_Launcher/Forms/frm_Emulators.resx @@ -123,21 +123,89 @@ 17, 17 + + 17, 17 + 230, 17 + + 736, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAALAIAACwCAABIBAAAAQEBAQoPAgAAAEgEAAACH4sIAAAAAAAEAKVUW2/TMBRud6ko + A1544NXyc5s07MaiZpNYJYTYCloL2tvkJqedhy/Fdtr0jb/ALx5243Zd1QkEjmQ75/J9n31yUqlWKpV7 + O9zqxostO3V7M22ABx1iSAN9A6WpFMlB0HJPA53nzOQKEgG5UYQ10Jd8wGj6CWZ9+R1EMjg+Jofp4VF0 + sn8ArXcnuw789QrmfOqB2bb2N34fXAGXhoqRp6tfc9ZLb4GTPbvr0OHwgyJ8u1p95YF8nNNbd0C1HTv9 + qrXPCs7QxGvGUdDCCEQqMwud4NwMm9ERPjt9+bxd6FjPCRDNEtyFqVeCkUUQOsF+Exd2f2vMOA7D6XQa + TPcDqUbh21YrCq8vL0qRi1iuM4tiiZTw6LrJaaqklkPTTCWPbVyzjMJWBUJOBzDgIAwShMNjKWVk/FF7 + S4KNymFp/6rhPFfK5l7IlDDw7jlwCW0pxwyK/mwM3urtt5KmgDgVn9M0V/aI9qI4KRZvuRjIXGSQ4WXa + Jq19MmAQrcY8Tfvg1fAjt0VZd20ioBlGxqIk2LqYFKPl2Q1RIzBdG6XHJAVXr8enCf8CvkP1mJFZHwqz + wqONov/D1A6fOuTcs/ly5i6v7qFU4bJWi6JuQljLLfnnn99pbdf2xc9qO7MtNFJxuRD+L9+rzykh/pSz + IGpOIndBO65H13rXdWzt5pLcSWUXKtzyPqcsq99cwYS6EPdPembHlv8/3fux9xvXh5geugQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 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. + 744, 56 - + Metropolis Launcher can generate a text-based file list upon startup and feed the generated textfile to the Emulator as the startup parameter %listfile%. The List Generator defines how the file list should be created. - + Metropolis Launcher can generate a text-based file list upon startup and feed the generated textfile to the Emulator as the startup parameter %listfile%. The List Generator defines how the file list should be created. + + + 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) +%listfile% (using a List Generator a textfile is built containing the game files, use this startup parameter to feed it to the launched emulator, optionally you define the file extension using %listfile.ext%, default is .txt) 820, 17 @@ -188,12 +256,12 @@ The List Generator defines how the file list should be created. 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. @@ -204,20 +272,7 @@ All cores in this list are found in the \cores subdirectory. If there are none, 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) -%listfile% (using a List Generator a textfile is built containing the game files, use this startup parameter to feed it to the launched emulator, optionally you define the file extension using %listfile.ext%, default is .txt) - - + Define the startup parameters in this field. Available variables are: @@ -230,20 +285,35 @@ Available variables are: %multivolume% (all the applicable parameters for multiple volumes, see "Multiple Volumes" tab) %listfile% (using a List Generator a textfile is built containing the game files, use this startup parameter to feed it to the launched emulator, optionally you define the file extension using %listfile.ext%, default is .txt) - - 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. - + + 106, 56 + + + 331, 56 + + + 972, 17 + 613, 17 702, 17 - - 106, 56 + + 702, 17 - - 331, 56 + + 371, 95 + + + 650, 56 + + + 140 + + + 177, 95 352, 17 @@ -254,13 +324,13 @@ Available variables are: 493, 56 - - 650, 56 - - - 109 - 898, 56 + + 17, 95 + + + 571, 95 + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emulators.vb b/Metropolis_Launcher/Forms/frm_Emulators.vb index 0f7c87a..fc1bb5d 100644 --- a/Metropolis_Launcher/Forms/frm_Emulators.vb +++ b/Metropolis_Launcher/Forms/frm_Emulators.vb @@ -8,6 +8,8 @@ Public Class frm_Emulators DS_Rombase.Fill_tbl_Rombase_Known_Emulators(Me.DS_Rombase.tbl_Rombase_Known_Emulators) barmng.SetPopupContextMenu(grd_Emulators, popmnu_Emulators) + barmng.SetPopupContextMenu(grd_PreLaunch, popmnu_PreLaunch) + barmng.SetPopupContextMenu(grd_PostLaunch, popmnu_PostLaunch) Cursor.Current = Cursors.WaitCursor @@ -26,6 +28,16 @@ Public Class frm_Emulators Cursor.Current = Cursors.Default BS_Emulators_CurrentChanged(Nothing, Nothing) + + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + pnl_Emulators_Buttons.Enabled = False + pnl_Settings_Settings.Enabled = False + pnl_Settings_MV.Enabled = False + splt_DOSBox_Patches.Enabled = False + End If + + PrePost_Launch_CurrentChanged(True) + PrePost_Launch_CurrentChanged(False) End Sub Private _J2KPreset_Original As Object @@ -114,10 +126,16 @@ Public Class frm_Emulators btn_Duplicate_Emulator.Enabled = True btn_Delete_Emulator.Enabled = True + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + id_Users = cls_Globals.id_Users + End If + 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_Moby_Platforms(tran, Me.DS_ML.src_frm_Emulators_Moby_Platforms, BS_Emulators.Current("id_Emulators"), id_Users) Me.DS_ML.Fill_src_frm_Emulators_Multivolume_Parameters(tran, Me.DS_ML.tbl_Emulators_Multivolume_Parameters, BS_Emulators.Current("id_Emulators")) - + Me.DS_ML.Fill_ttb_Emulators_Pre_Post_Launch_Commands(tran, Me.DS_ML.ttb_Emulators_PreLaunch_Commands, BS_Emulators.Current("id_Emulators"), True) + Me.DS_ML.Fill_ttb_Emulators_Pre_Post_Launch_Commands(tran, Me.DS_ML.ttb_Emulators_PostLaunch_Commands, BS_Emulators.Current("id_Emulators"), False) tran.Commit() End Using @@ -128,8 +146,6 @@ Public Class frm_Emulators cmb_List_Generator.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")) @@ -156,8 +172,6 @@ Public Class frm_Emulators cmb_List_Generator.Visible = False tpg_DOSBox_Patches.PageVisible = False tpg_MV_Settings.PageVisible = False - 'lbl_AutoItScript.Visible = False - 'memo_AutItScript.Visible = False BS_Platforms.Filter = "id_Moby_Platforms IN (-3)" 'Automatically check Supported for the DOS Platform @@ -175,8 +189,6 @@ Public Class frm_Emulators cmb_List_Generator.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() @@ -215,6 +227,8 @@ Public Class frm_Emulators Debug.WriteLine("CheckSave START") Me.BS_Emulators.EndEdit() + Me.BS_PreLaunch_Commands.EndEdit() + Me.BS_PostLaunch_Commands.EndEdit() If row Is Nothing AndAlso BS_Emulators IsNot Nothing Then row = BS_Emulators.Current.row @@ -257,6 +271,16 @@ Public Class frm_Emulators hasChanges = True End If + If DS_ML.ttb_Emulators_PreLaunch_Commands.GetChanges IsNot Nothing Then + Debug.WriteLine(" Change detected in DS_ML.ttb_Emulators_PreLaunch_Commands.GetChanges") + hasChanges = True + End If + + If DS_ML.ttb_Emulators_PostLaunch_Commands.GetChanges IsNot Nothing Then + Debug.WriteLine(" Change detected in DS_ML.ttb_Emulators_PostLaunch_Commands.GetChanges") + hasChanges = True + End If + If hasChanges Then Dim res As DialogResult = MKDXHelper.MessageBox("Save the changes for the current emulator?", "Save changes?", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) Return res @@ -325,7 +349,9 @@ Public Class frm_Emulators 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_Users_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)) + DataAccess.FireProcedure(cls_Globals.Conn, 0, "DELETE FROM tbl_Emulators_Pre_Post_Launch_Commands WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators)) End If End If End Sub @@ -350,7 +376,7 @@ Public Class frm_Emulators End If If Me.txb_StartupParameter.Text.ToLower.Contains("%listfile") AndAlso TC.NZ(Me.cmb_List_Generator.EditValue, 0) = 0 Then - If Not MKDXHelper.MessageBox("You apparently want to generate and use a list file as a Startup Parameter, but you didn't chose a List Generator. Do you still want to save?", "Missing Libretro Core", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + If Not MKDXHelper.MessageBox("You apparently want to generate and use a list file as a Startup Parameter, but you didn't choose a List Generator. Do you still want to save?", "Missing Libretro Core", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then Return False End If End If @@ -361,6 +387,17 @@ Public Class frm_Emulators End If End If + If TC.NZ(Me.cmb_Scripting.EditValue, 0) > 0 AndAlso Me.txb_Script_File.Text = "" Then + If Not MKDXHelper.MessageBox("You chose to use Enhanced Scripting but you didn't provide a script file. Do you still want to save?", "Missing Script File", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + Return False + End If + End If + If TC.NZ(Me.cmb_Scripting.EditValue, 0) > 0 AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(Me.txb_Script_File.Text) Then + If Not MKDXHelper.MessageBox("You chose to use Enhanced Scripting but the script file '" & Me.txb_Script_File.Text & "' cannot be found. Do you still want to save?", "Missing Script File", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then + Return False + End If + End If + Cursor.Current = Cursors.WaitCursor 'Save Platform Settings for the current Emulator @@ -378,24 +415,65 @@ Public Class frm_Emulators 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, id_List_Generators) VALUES (" & TC.getSQLParameter(rowCurrent("Displayname"), rowCurrent("InstallDirectory"), rowCurrent("Executable"), rowCurrent("StartupParameter"), rowCurrent("AutoItScript"), rowCurrent("J2KPreset"), rowCurrent("ScreenshotDirectory"), rowCurrent("Libretro_Core"), rowCurrent("id_List_Generators")) & "); SELECT last_insert_rowid()", tran) + id_Emulators_Current = DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "INSERT INTO tbl_Emulators (Displayname, InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core, id_List_Generators, ScriptType, ScriptPath) VALUES (" & TC.getSQLParameter(rowCurrent("Displayname"), rowCurrent("InstallDirectory"), rowCurrent("Executable"), rowCurrent("StartupParameter"), rowCurrent("AutoItScript"), rowCurrent("J2KPreset"), rowCurrent("ScreenshotDirectory"), rowCurrent("Libretro_Core"), rowCurrent("id_List_Generators"), rowCurrent("ScriptType"), rowCurrent("ScriptPath")) & "); 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")) & ", id_List_Generators = " & TC.getSQLFormat(rowCurrent("id_List_Generators")) & " WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current), tran) + 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")) & ", id_List_Generators = " & TC.getSQLFormat(rowCurrent("id_List_Generators")) & ", ScriptType = " & TC.getSQLFormat(rowCurrent("ScriptType")) & ", ScriptPath = " & TC.getSQLFormat(rowCurrent("ScriptPath")) & " 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) + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + id_Users = cls_Globals.id_Users + End If + + If TC.NZ(id_Users, 0) = 0 Then + 'The Admin writes to tbl_Emulators_Moby_Platforms + + 'delete all entries for this platform (they will be written later) + 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 + 'Set all of Admin's Emulators as Default = 0 for this platform + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Emulators_Moby_Platforms SET DefaultEmulator = 0 WHERE id_Moby_Platforms = " & row("id_Moby_Platforms"), tran) + + 'add/set this Emulator default = 0 for every user, who already has a default emulator with this platform + DS_ML.Upsert_tbl_Users_Emulators_Moby_Platforms_Enforce_Not_Default(tran, id_Moby_Platforms:=row("id_Moby_Platforms"), id_Emulators:=id_Emulators_Current) + 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) + Else + 'Emulator is not supported for the platform -> delete from tbl_Users_Emulators_Moby_Platforms + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Users_Emulators_Moby_Platforms WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators_Current) & " AND id_Moby_Platforms = " & TC.getSQLFormat(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() + row.AcceptChanges() + Next + + DS_ML.src_frm_Emulators_Moby_Platforms.AcceptChanges() + Else + 'Restricted Users have their own table + + 'delete all entries for this platform (they will be written later) + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Users_Emulators_Moby_Platforms WHERE id_Users = " & TC.getSQLFormat(id_Users) & " AND 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 + 'Set all of User's Emulators as Default = 0 for this platform (UPDATE is not enough, we also should INSERT) + DataAccess.FireProcedure(tran.Connection, 0, "UPDATE tbl_Users_Emulators_Moby_Platforms SET DefaultEmulator = 0 WHERE id_Users = " & TC.getSQLFormat(id_Users) & " AND id_Moby_Platforms = " & row("id_Moby_Platforms"), tran) + + 'INSERT emulators that are not in tbl_Users_Emulators_Moby_Platforms for this platform AND not the current Emulator AND not already present + DS_ML.Upsert_tbl_Users_Emulators_Moby_Platforms_Enforce_Not_Default_All_Emulators_For_Platform(tran, id_Users, row("id_Moby_Platforms"), id_Emulators_Current) + End If + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Users_Emulators_Moby_Platforms (id_Users, id_Emulators, id_Moby_Platforms, DefaultEmulator) VALUES (" & TC.getSQLParameter(id_Users, id_Emulators_Current, row("id_Moby_Platforms"), row("DefaultEmulator")) & ")", tran) + End If + row.AcceptChanges() + Next + DS_ML.src_frm_Emulators_Moby_Platforms.AcceptChanges() + + End If 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 @@ -420,6 +498,67 @@ Public Class frm_Emulators Next DS_ML.src_frm_Emulators_DOSBox_Patches.AcceptChanges() + 'Save Pre- and Post Launch Commands + For isPreLaunch As Integer = 0 To 1 + Dim dt As DataTable = Nothing + + If isPreLaunch = 0 Then + dt = Me.DS_ML.ttb_Emulators_PostLaunch_Commands + Else + dt = Me.DS_ML.ttb_Emulators_PreLaunch_Commands + End If + + Dim arRemove As New ArrayList + For Each row As DataRow In dt.Rows + If row.RowState = DataRowState.Deleted Then + arRemove.Add(row) + End If + + If row.RowState = DataRowState.Added Then + 'INSERT + Dim sSQLInsert As String = "" + sSQLInsert &= "INSERT INTO tbl_Emulators_Pre_Post_Launch_Commands" & ControlChars.CrLf + sSQLInsert &= "(" & ControlChars.CrLf + sSQLInsert &= " id_Emulators" & ControlChars.CrLf + sSQLInsert &= " , PreLaunch" & ControlChars.CrLf + sSQLInsert &= " , PostLaunch" & ControlChars.CrLf + sSQLInsert &= " , Sort" & ControlChars.CrLf + sSQLInsert &= " , Directory" & ControlChars.CrLf + sSQLInsert &= " , Executable" & ControlChars.CrLf + sSQLInsert &= " , Parameter" & ControlChars.CrLf + sSQLInsert &= " , Minimized" & ControlChars.CrLf + sSQLInsert &= " , WaitForExit" & ControlChars.CrLf + sSQLInsert &= ") VALUES (" & ControlChars.CrLf + sSQLInsert &= TC.getSQLParameter(id_Emulators_Current, IIf(isPreLaunch = 0, False, True), IIf(isPreLaunch = 0, True, False), row("Sort"), row("Directory"), row("Executable"), row("Parameter"), row("Minimized"), row("WaitForExit")) & ControlChars.CrLf + sSQLInsert &= ")" & ControlChars.CrLf + sSQLInsert &= "; SELECT last_insert_rowid()" & ControlChars.CrLf + + Dim id_Emulators_Pre_Post_Launch_Commands As Int64 = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, sSQLInsert, tran), 0L) + row("id_Emulators_Pre_Post_Launch_Commands") = id_Emulators_Pre_Post_Launch_Commands + End If + If row.RowState = DataRowState.Modified Then + 'UPDATE + Dim sSQLUpdate As String = "" + sSQLUpdate &= "UPDATE tbl_Emulators_Pre_Post_Launch_Commands SET" & ControlChars.CrLf + sSQLUpdate &= " Sort = " & TC.getSQLFormat(row("Sort")) & ControlChars.CrLf + sSQLUpdate &= " , Directory = " & TC.getSQLFormat(row("Directory")) & ControlChars.CrLf + sSQLUpdate &= " , Executable = " & TC.getSQLFormat(row("Executable")) & ControlChars.CrLf + sSQLUpdate &= " , Parameter = " & TC.getSQLFormat(row("Parameter")) & ControlChars.CrLf + sSQLUpdate &= " , Minimized = " & TC.getSQLFormat(row("Minimized")) & ControlChars.CrLf + sSQLUpdate &= " , WaitForExit = " & TC.getSQLFormat(row("WaitForExit")) & ControlChars.CrLf + sSQLUpdate &= " WHERE id_Emulators_Pre_Post_Launch_Commands = " & TC.getSQLFormat(row("id_Emulators_Pre_Post_Launch_Commands")) & ControlChars.CrLf + + DataAccess.FireProcedure(tran.Connection, 0, sSQLUpdate, tran) + End If + Next + + For Each row_remove As DataRow In arRemove + DataAccess.FireProcedure(tran.Connection, 0, "DELETE FROM tbl_Emulators_Pre_Post_Launch_Commands WHERE id_Emulators_Pre_Post_Launch_Commands = " & TC.getSQLFormat(row_remove("id_Emulators_Pre_Post_Launch_Commands", DataRowVersion.Original)), tran) + Next + + dt.AcceptChanges() + Next + tran.Commit() Catch ex As Exception tran.Rollback() @@ -436,7 +575,7 @@ Public Class frm_Emulators 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) + Dim sFullPath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open Emulator", "Executables (*.exe;*.bat;*.cmd;*.lnk)|*.exe;*.bat;*.cmd;*.lnk", ParentForm:=Me) If Not Alphaleonis.Win32.Filesystem.File.Exists(sFullPath) Then Return @@ -583,6 +722,11 @@ Public Class frm_Emulators Return End If + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False 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 @@ -613,10 +757,11 @@ Public Class frm_Emulators 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) + 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, ScriptType, ScriptPath) SELECT Displayname || ' Copy', InstallDirectory, Executable, StartupParameter, AutoItScript, J2KPreset, ScreenshotDirectory, Libretro_Core, ScriptType, ScriptPath 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) + DataAccess.FireProcedure(tran.Connection, 0, "INSERT INTO tbl_Emulators_Pre_Post_Launch_Commands (id_Emulators, PreLaunch, PostLaunch, Sort, Directory, Executable, Parameter, Minimized, WaitForExit) SELECT " & TC.getSQLFormat(id_Emulators_New) & ", PreLaunch, PostLaunch, Sort, Directory, Executable, Parameter, Minimized, WaitForExit FROM tbl_Emulators_Pre_Post_Launch_Commands WHERE id_Emulators = " & TC.getSQLFormat(id_Emulators), tran) frm_Tag_Parser_Edit.Fill_Tag_Parser_Volumes(Me.DS_ML.ttb_Tag_Parser_Volumes) @@ -697,7 +842,6 @@ Public Class frm_Emulators 'Add List Generator Using frm As New frm_List_Generator_Edit If frm.ShowDialog = DialogResult.OK Then - 'TODO: Save to tbl_List_Generators, set id_List_Generators within this Emulator and reload the list of List_Generators Dim id_List_Generators As Int64 = 0L Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction id_List_Generators = DS_ML.Upsert_tbl_List_Generators(tran, frm.txb_Name.EditValue.Trim, frm.cmb_Sort.EditValue, frm.txb_Main_Template.EditValue, frm.txb_File_Entry_Template.EditValue) @@ -940,5 +1084,344 @@ Public Class frm_Emulators End If Next End Sub + + Private Sub rpi_Supported_EditValueChanging(sender As Object, e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles rpi_Supported.EditValueChanging + 'Only Admins may change the Supported flag + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + e.Cancel = True + Return + End If + End Sub + + Private Sub rpi_DefaultEmulator_EditValueChanging(sender As Object, e As DevExpress.XtraEditors.Controls.ChangingEventArgs) Handles rpi_DefaultEmulator.EditValueChanging + 'as a non-Admin User, only allow to set Default if Supported is already true + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + If BS_Platforms.Current Is Nothing OrElse TC.NZ(BS_Platforms.Current("Supported"), False) = False Then + e.Cancel = True + Return + End If + End If + End Sub + + Private Sub PrePost_Launch_Add(ByVal isPreLaunch As Boolean) + + Using frm As New frm_Emulators_Pre_Post_Launch_Command_Edit("Add new " & IIf(isPreLaunch, "Pre", "Post") & "-Launch Command") + If frm.ShowDialog = DialogResult.OK Then + Dim maxSort As Int64 = 1 + + Dim rows_old As DataRowCollection = Nothing + If isPreLaunch Then + rows_old = Me.DS_ML.ttb_Emulators_PreLaunch_Commands.Rows + Else + rows_old = Me.DS_ML.ttb_Emulators_PostLaunch_Commands.Rows + End If + + For Each row_old As DataRow In rows_old + If maxSort <= row_old("Sort") Then + maxSort = row_old("Sort") + 1 + End If + Next + + Dim dt As DataTable = Nothing + If isPreLaunch Then + dt = Me.DS_ML.ttb_Emulators_PreLaunch_Commands + Else + dt = Me.DS_ML.ttb_Emulators_PostLaunch_Commands + End If + + Dim row As DataRow = dt.NewRow + row("Directory") = frm.txb_Directory.Text + row("Executable") = frm.txb_Executable.Text + row("Parameter") = frm.txb_StartupParameter.Text + row("Minimized") = frm.chb_Minimized.Checked + row("WaitForExit") = frm.chb_WaitForExit.Checked + row("Sort") = maxSort + + dt.Rows.Add(row) + End If + End Using + End Sub + + Private Sub bbi_PreLaunch_Add_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PreLaunch_Add.ItemClick + PrePost_Launch_Add(True) + End Sub + + Private Sub bbi_PostLaunch_Add_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PostLaunch_Add.ItemClick + PrePost_Launch_Add(False) + End Sub + + Private Sub PrePost_Launch_Edit(ByVal isPreLaunch As Boolean) + Dim bs As BindingSource = Nothing + If isPreLaunch Then + bs = Me.BS_PreLaunch_Commands + Else + bs = Me.BS_PostLaunch_Commands + End If + + If bs.Current Is Nothing Then + Return + End If + + Using frm As New frm_Emulators_Pre_Post_Launch_Command_Edit("Edit " & IIf(isPreLaunch, "Pre", "Post") & "-Launch Command", bs.Current("Directory"), bs.Current("Executable"), bs.Current("Parameter"), bs.Current("WaitForExit"), bs.Current("Minimized")) + If frm.ShowDialog = DialogResult.OK Then + bs.Current("Directory") = frm.txb_Directory.EditValue + bs.Current("Executable") = frm.txb_Executable.EditValue + bs.Current("Parameter") = frm.txb_StartupParameter.Text + bs.Current("Minimized") = frm.chb_Minimized.Checked + bs.Current("WaitForExit") = frm.chb_WaitForExit.Checked + End If + + PrePost_Launch_CurrentChanged(isPreLaunch) + End Using + End Sub + + Private Sub bbi_PreLaunch_Edit_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PreLaunch_Edit.ItemClick + PrePost_Launch_Edit(True) + End Sub + + Private Sub bbi_PostLaunch_Edit_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PostLaunch_Edit.ItemClick + PrePost_Launch_Edit(False) + End Sub + + Private Sub bbi_PreLaunch_Delete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PreLaunch_Delete.ItemClick + If BS_PreLaunch_Commands.Current Is Nothing Then + Return + End If + + BS_PreLaunch_Commands.RemoveCurrent() + PrePost_Launch_CurrentChanged(False) + End Sub + + Private Sub bbi_PostLaunch_Delete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_PostLaunch_Delete.ItemClick + If BS_PostLaunch_Commands.Current Is Nothing Then + Return + End If + + BS_PostLaunch_Commands.RemoveCurrent() + PrePost_Launch_CurrentChanged(False) + End Sub + + Private Sub popmnu_PreLaunch_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_PreLaunch.BeforePopup + If BS_PreLaunch_Commands.Current Is Nothing Then + Me.bbi_PreLaunch_Delete.Enabled = False + Me.bbi_PreLaunch_Edit.Enabled = False + Else + Me.bbi_PreLaunch_Delete.Enabled = True + Me.bbi_PreLaunch_Edit.Enabled = True + End If + End Sub + + Private Sub popmnu_PostLaunch_BeforePopup(sender As Object, e As CancelEventArgs) Handles popmnu_PostLaunch.BeforePopup + If BS_PostLaunch_Commands.Current Is Nothing Then + Me.bbi_PostLaunch_Delete.Enabled = False + Me.bbi_PostLaunch_Edit.Enabled = False + Else + Me.bbi_PostLaunch_Delete.Enabled = True + Me.bbi_PostLaunch_Edit.Enabled = True + End If + End Sub + + Private Sub PrePost_Launch_CurrentChanged(ByVal isPreLaunch As Boolean) + Dim bs As BindingSource = Nothing + Dim btnUp As MKNetDXLib.ctl_MKDXSimpleButton = Nothing + Dim btnDown As MKNetDXLib.ctl_MKDXSimpleButton = Nothing + Dim dt As DataTable = Nothing + + If isPreLaunch Then + bs = BS_PreLaunch_Commands + btnUp = Me.btn_PreLaunch_MoveUp + btnDown = Me.btn_PreLaunch_MoveDown + dt = Me.DS_ML.ttb_Emulators_PreLaunch_Commands + Else + bs = BS_PostLaunch_Commands + btnUp = Me.btn_PostLaunch_MoveUp + btnDown = Me.btn_PostLaunch_MoveDown + dt = Me.DS_ML.ttb_Emulators_PostLaunch_Commands + End If + + btnUp.Enabled = False + btnDown.Enabled = False + + If bs.Current Is Nothing Then + Return + End If + + + Dim currentSort As Int64 = bs.Current("Sort") + + For Each row As DataRow In dt.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + If row("Sort") > currentSort Then + btnDown.Enabled = True + End If + + If row("Sort") < currentSort Then + btnUp.Enabled = True + End If + End If + Next + End Sub + + Private Sub BS_PreLaunch_Commands_CurrentChanged(sender As Object, e As EventArgs) Handles BS_PreLaunch_Commands.CurrentChanged + PrePost_Launch_CurrentChanged(True) + End Sub + + Private Sub BS_PostLaunch_Commands_CurrentChanged(sender As Object, e As EventArgs) Handles BS_PostLaunch_Commands.CurrentChanged + PrePost_Launch_CurrentChanged(False) + End Sub + + Private Sub PrePost_MoveUpDown(ByVal isPreLaunch As Boolean, ByVal isMoveUp As Boolean) + Dim bs As BindingSource = Nothing + Dim dt As DataTable = Nothing + + If isPreLaunch Then + bs = BS_PreLaunch_Commands + dt = Me.DS_ML.ttb_Emulators_PreLaunch_Commands + Else + bs = BS_PostLaunch_Commands + dt = Me.DS_ML.ttb_Emulators_PostLaunch_Commands + End If + + Dim currentSort As Int64 = bs.Current("Sort") + Dim nextSort As Int64 = currentSort + Dim nextRow As DataRow = Nothing + + For Each row As DataRow In dt.Rows + If row.RowState <> DataRowState.Deleted AndAlso row.RowState <> DataRowState.Detached Then + If isMoveUp Then + If row("Sort") < currentSort Then + If nextSort = currentSort OrElse nextSort < row("Sort") Then + nextSort = row("Sort") + nextRow = row + End If + End If + Else + If row("Sort") > currentSort Then + If nextSort = currentSort OrElse nextSort > row("Sort") Then + nextSort = row("Sort") + nextRow = row + End If + End If + End If + End If + Next + + If nextRow IsNot Nothing Then + bs.Current("Sort") = nextRow("Sort") + nextRow("Sort") = currentSort + End If + End Sub + + Private Sub btn_PreLaunch_MoveUp_Click(sender As Object, e As EventArgs) Handles btn_PreLaunch_MoveUp.Click + PrePost_MoveUpDown(True, True) + End Sub + + Private Sub btn_PostLaunch_MoveUp_Click(sender As Object, e As EventArgs) Handles btn_PostLaunch_MoveUp.Click + PrePost_MoveUpDown(False, True) + End Sub + + Private Sub btn_PreLaunch_MoveDown_Click(sender As Object, e As EventArgs) Handles btn_PreLaunch_MoveDown.Click + PrePost_MoveUpDown(True, False) + End Sub + + Private Sub btn_PostLaunch_MoveDown_Click(sender As Object, e As EventArgs) Handles btn_PostLaunch_MoveDown.Click + PrePost_MoveUpDown(False, False) + End Sub + + Private Sub cmb_Scripting_EditValueChanged(sender As Object, e As EventArgs) Handles cmb_Scripting.EditValueChanged + If TC.NZ(cmb_Scripting.EditValue, 0) > 0 Then + Me.pnl_Script_File.Visible = True + Else + Me.pnl_Script_File.Visible = False + End If + End Sub + + Private Sub btn_Browse_Script_File_Click(sender As Object, e As EventArgs) Handles btn_Browse_Script_File.Click + If BS_Emulators.Current Is Nothing Then + Return + End If + + Dim sScriptType As String = "" + Dim sAllowedExtensions As String = "All Files (*.*)|*.*" + Dim sDefaultExt As String = "" + + If TC.NZ(cmb_Scripting.EditValue, 0) = cls_Globals.enm_Script_Types.AutoIt Then + sScriptType = "AutoIt" + sAllowedExtensions = "AutoIt Files (*.au3)|*.au3" + ElseIf TC.NZ(cmb_Scripting.EditValue, 0) = cls_Globals.enm_Script_Types.AutoHotKey Then + sScriptType = "AutoHotKey" + sAllowedExtensions = "AutoHotKey Files (*.ahk)|*.ahk" + Else + ' + End If + + Dim sFilePath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse " & sScriptType & " Script File", sAllowedExtensions) + If Alphaleonis.Win32.Filesystem.File.Exists(sFilePath) Then + Me.BS_Emulators.Current("ScriptPath") = sFilePath + Me.BS_Emulators.EndEdit() + End If + End Sub + + Private Sub btn_Create_Script_File_Click(sender As Object, e As EventArgs) Handles btn_Create_Script_File.Click + If BS_Emulators.Current Is Nothing Then + Return + End If + + If TC.NZ(cmb_Scripting.EditValue, 0) = 0 Then + MKDXHelper.MessageBox("Please select a script type from the Enhanced Scripting dropdown first.", "Create Script File", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Dim sScriptContent As String = "" + Dim sScriptType As String = "" + Dim sAllowedExtensions As String = "All Files (*.*)|*.*" + Dim sDefaultExt As String = "" + Dim sFileNameSuggestion As String = "" + + If TC.NZ(cmb_Scripting.EditValue, 0) = cls_Globals.enm_Script_Types.AutoIt Then + sScriptType = "AutoIt" + sScriptContent = My.Resources.ml_autoit_template + sAllowedExtensions = "AutoIt Files (*.au3)|*.au3" + sDefaultExt = ".au3" + sFileNameSuggestion = "ml_autoit_template.au3" + ElseIf TC.NZ(cmb_Scripting.EditValue, 0) = cls_Globals.enm_Script_Types.AutoHotKey Then + sScriptType = "AutoHotKey" + sScriptContent = My.Resources.ml_autohotkey_template + sAllowedExtensions = "AutoHotKey Files (*.ahk)|*.ahk" + sDefaultExt = ".ahk" + sFileNameSuggestion = "ml_autohotkey_template.ahk" + Else + MKDXHelper.MessageBox("The script type is not supported.", "Create Script File", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Dim sFilePath As String = MKNetLib.cls_MKFileSupport.SaveFileDialog("Create " & sScriptType & " Script File", sAllowedExtensions, 0, sDefaultExt, "", sFileNameSuggestion) + + If sFilePath = "" Then + Return + End If + + Dim sError As String = "" + + MKNetLib.cls_MKFileSupport.SaveTextToFile(sScriptContent, sFilePath, sError) + + If sError <> "" Then + MKDXHelper.MessageBox("An error occured while writing the file:" & ControlChars.CrLf & ControlChars.CrLf & sError, "Create Script File", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Me.BS_Emulators.Current("ScriptPath") = sFilePath + Me.BS_Emulators.EndEdit() + + MKDXHelper.MessageBox("The " & sScriptType & " script file has been created.", "Create Script File", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Sub + + Private Sub cmb_Scripting_ButtonPressed(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Scripting.ButtonPressed + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + BS_Emulators.Current("ScriptType") = DBNull.Value + BS_Emulators.Current("ScriptPath") = "" + BS_Emulators.EndEdit() + End If + End Sub #End Region End Class diff --git a/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.Designer.vb new file mode 100644 index 0000000..2b5cbd5 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.Designer.vb @@ -0,0 +1,307 @@ + _ +Partial Class frm_Emulators_Pre_Post_Launch_Command_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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Emulators_Pre_Post_Launch_Command_Edit)) + 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.lbl_StartupParameter = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Executable = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Directory = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Directory = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Executable = New MKNetDXLib.ctl_MKDXTextEdit() + Me.btn_EmulatorFileOpen = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_StartupParameter = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_WaitForExit = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_WaitForExit = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.chb_Minimized = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Minimized = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + CType(Me.txb_Directory.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_WaitForExit.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Minimized.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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(2, 51) + 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) + ToolTipTitleItem1.Text = "Startup Parameter" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = resources.GetString("ToolTipItem1.Text") + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_StartupParameter.SuperTip = SuperToolTip1 + Me.lbl_StartupParameter.TabIndex = 12 + Me.lbl_StartupParameter.Text = "Startup Parameter:" + ' + '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(2, 27) + 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 = 13 + Me.lbl_Executable.Text = "Executable:" + ' + '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.Location = New System.Drawing.Point(116, 3) + 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(283, 20) + Me.txb_Directory.TabIndex = 8 + ' + '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, 4) + 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 = 14 + Me.lbl_Directory.Text = "Directory:" + ' + '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.Location = New System.Drawing.Point(116, 26) + 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(283, 20) + Me.txb_Executable.TabIndex = 10 + ' + '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(402, 3) + Me.btn_EmulatorFileOpen.Name = "btn_EmulatorFileOpen" + Me.btn_EmulatorFileOpen.Size = New System.Drawing.Size(32, 20) + ToolTipTitleItem2.Text = "Browse" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Browse an executable incl. its path" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.btn_EmulatorFileOpen.SuperTip = SuperToolTip2 + Me.btn_EmulatorFileOpen.TabIndex = 9 + 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.Location = New System.Drawing.Point(116, 49) + 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(283, 20) + ToolTipTitleItem3.Text = "Startup Parameter" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.txb_StartupParameter.SuperTip = SuperToolTip3 + Me.txb_StartupParameter.TabIndex = 15 + ' + 'lbl_WaitForExit + ' + Me.lbl_WaitForExit.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_WaitForExit.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_WaitForExit.Location = New System.Drawing.Point(3, 74) + Me.lbl_WaitForExit.MKBoundControl1 = Nothing + Me.lbl_WaitForExit.MKBoundControl2 = Nothing + Me.lbl_WaitForExit.MKBoundControl3 = Nothing + Me.lbl_WaitForExit.MKBoundControl4 = Nothing + Me.lbl_WaitForExit.MKBoundControl5 = Nothing + Me.lbl_WaitForExit.Name = "lbl_WaitForExit" + Me.lbl_WaitForExit.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem4.Text = "Wait for Exit" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Wait until the command finished." + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.lbl_WaitForExit.SuperTip = SuperToolTip4 + Me.lbl_WaitForExit.TabIndex = 16 + Me.lbl_WaitForExit.Text = "Wait for Exit:" + ' + 'chb_WaitForExit + ' + Me.chb_WaitForExit.Location = New System.Drawing.Point(116, 74) + Me.chb_WaitForExit.MKBoundLabel = Nothing + Me.chb_WaitForExit.MKEditValue_Compare = Nothing + Me.chb_WaitForExit.Name = "chb_WaitForExit" + Me.chb_WaitForExit.Properties.Caption = "" + Me.chb_WaitForExit.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem5.Text = "Wait for Exit" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Wait until the command finished." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.chb_WaitForExit.SuperTip = SuperToolTip5 + Me.chb_WaitForExit.TabIndex = 17 + ' + 'chb_Minimized + ' + Me.chb_Minimized.Location = New System.Drawing.Point(116, 98) + Me.chb_Minimized.MKBoundLabel = Nothing + Me.chb_Minimized.MKEditValue_Compare = Nothing + Me.chb_Minimized.Name = "chb_Minimized" + Me.chb_Minimized.Properties.Caption = "" + Me.chb_Minimized.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem6.Text = "Run Minimized" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "The command will be executed in a minimized mode." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem6) + Me.chb_Minimized.SuperTip = SuperToolTip6 + Me.chb_Minimized.TabIndex = 19 + ' + 'lbl_Minimized + ' + Me.lbl_Minimized.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Minimized.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Minimized.Location = New System.Drawing.Point(3, 97) + Me.lbl_Minimized.MKBoundControl1 = Nothing + Me.lbl_Minimized.MKBoundControl2 = Nothing + Me.lbl_Minimized.MKBoundControl3 = Nothing + Me.lbl_Minimized.MKBoundControl4 = Nothing + Me.lbl_Minimized.MKBoundControl5 = Nothing + Me.lbl_Minimized.Name = "lbl_Minimized" + Me.lbl_Minimized.Size = New System.Drawing.Size(112, 20) + ToolTipTitleItem7.Text = "Run Minimized" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "The command will be executed in a minimized mode." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem7) + Me.lbl_Minimized.SuperTip = SuperToolTip7 + Me.lbl_Minimized.TabIndex = 18 + Me.lbl_Minimized.Text = "Run Minimized:" + ' + '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(348, 115) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(86, 20) + Me.btn_Cancel.TabIndex = 21 + 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(259, 115) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(86, 20) + Me.btn_OK.TabIndex = 20 + Me.btn_OK.Text = "&OK" + ' + 'frm_Emulators_Pre_Post_Launch_Command_Edit + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(437, 138) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.chb_Minimized) + Me.Controls.Add(Me.lbl_Minimized) + Me.Controls.Add(Me.chb_WaitForExit) + Me.Controls.Add(Me.lbl_WaitForExit) + Me.Controls.Add(Me.lbl_StartupParameter) + Me.Controls.Add(Me.lbl_Executable) + Me.Controls.Add(Me.txb_Directory) + Me.Controls.Add(Me.lbl_Directory) + Me.Controls.Add(Me.txb_Executable) + Me.Controls.Add(Me.btn_EmulatorFileOpen) + Me.Controls.Add(Me.txb_StartupParameter) + Me.Name = "frm_Emulators_Pre_Post_Launch_Command_Edit" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Pre/Post Launch Command" + CType(Me.txb_Directory.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Executable.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_StartupParameter.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_WaitForExit.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Minimized.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lbl_StartupParameter As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Executable As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Directory As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Directory As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Executable As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents btn_EmulatorFileOpen As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_StartupParameter As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_WaitForExit As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_WaitForExit As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents chb_Minimized As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Minimized As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton +End Class diff --git a/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.resx b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.resx new file mode 100644 index 0000000..fc9f568 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 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) +%listfile% (using a List Generator a textfile is built containing the game files, use this startup parameter to feed it to the launched emulator, optionally you define the file extension using %listfile.ext%, default is .txt) + + + 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) +%listfile% (using a List Generator a textfile is built containing the game files, use this startup parameter to feed it to the launched emulator, optionally you define the file extension using %listfile.ext%, default is .txt) +%gameid% (for ScummVM: the game's ID) +%configfullpath% (for ScummVM and DOSBox: full path to the generated config file) +%configdir% (for ScummVM and DOSBox: directory of the generated config file) +%configfile% (for ScummVM and DOSBox: filename of the generated config file) + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.vb b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.vb new file mode 100644 index 0000000..324d0e6 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Emulators_Pre_Post_Launch_Command_Edit.vb @@ -0,0 +1,48 @@ +Public Class frm_Emulators_Pre_Post_Launch_Command_Edit + Public Sub New(Optional ByVal WindowCaption As String = "Edit Pre/Post Launch Command", Optional ByVal Directory As String = "", Optional ByVal Executable As String = "", Optional ByVal StartupParameter As String = "", Optional ByVal WaitForExit As Boolean = False, Optional ByVal Minimized As Boolean = False) + InitializeComponent() + + Me.Text = WindowCaption + + Me.txb_Directory.EditValue = Directory + Me.txb_Executable.EditValue = Executable + Me.txb_StartupParameter.EditValue = StartupParameter + Me.chb_WaitForExit.Checked = WaitForExit + Me.chb_Minimized.Checked = Minimized + End Sub + + Private Sub btn_EmulatorFileOpen_Click(sender As Object, e As EventArgs) Handles btn_EmulatorFileOpen.Click + Dim sFullPath As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Open", "Executables (*.exe;*.bat;*.cmd;*.lnk)|*.exe;*.bat;*.cmd;*.lnk", ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFullPath) Then + Return + End If + + Me.txb_Directory.EditValue = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(sFullPath) + Me.txb_Executable.EditValue = Alphaleonis.Win32.Filesystem.Path.GetFileName(sFullPath) + End Sub + + Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btn_OK.Click + If TC.NZ(Me.txb_Directory.EditValue, "") = "" Then + MKDXHelper.MessageBox("Directory is missing", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_Directory.Focus() + Return + End If + + If TC.NZ(Me.txb_Executable.EditValue, "") = "" Then + MKDXHelper.MessageBox("Executable is missing", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_Executable.Focus() + Return + End If + + Me.DialogResult = DialogResult.OK + Me.Close() + Return + End Sub + + Private Sub btn_Cancel_Click(sender As Object, e As EventArgs) Handles btn_Cancel.Click + Me.DialogResult = DialogResult.Cancel + Me.Close() + Return + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Export_TDL.Designer.vb b/Metropolis_Launcher/Forms/frm_Export_TDL.Designer.vb new file mode 100644 index 0000000..e4974ec --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export_TDL.Designer.vb @@ -0,0 +1,457 @@ + _ +Partial Class frm_Export_TDL + 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 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 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 SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 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 SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem7 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 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 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() + Me.txb_TDL_distro = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_TDL_distro = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_TDL_distro = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_TDL_distro_www = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Destination = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Destination = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Destination = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Export = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.BS_Config = New System.Windows.Forms.BindingSource(Me.components) + Me.cmb_Config = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.lbl_Split_2GB = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Split_2GB_Chunks = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Custom_Subtitle_Warning = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Custom_Subtitle_Display = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Custom_Subtitle = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_Custom_Subtitle = New MKNetDXLib.ctl_MKDXTextEdit() + CType(Me.txb_TDL_distro.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Destination.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Config.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Split_2GB_Chunks.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Custom_Subtitle.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txb_TDL_distro + ' + Me.txb_TDL_distro.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_TDL_distro.Location = New System.Drawing.Point(149, 37) + Me.txb_TDL_distro.MKBoundLabel = Nothing + Me.txb_TDL_distro.MKEditValue_Compare = Nothing + Me.txb_TDL_distro.Name = "txb_TDL_distro" + Me.txb_TDL_distro.Properties.ReadOnly = True + Me.txb_TDL_distro.Size = New System.Drawing.Size(368, 20) + ToolTipTitleItem1.Text = "Total DOS Launcher .zip File" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Provide the TDL .zip file here. It is the Total DOS Launcher's binary distributio" & + "n which can be downloaded from https://github.com/MobyGamer/total-dos-launcher/r" & + "eleases" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_TDL_distro.SuperTip = SuperToolTip1 + Me.txb_TDL_distro.TabIndex = 2 + ' + 'lbl_TDL_distro + ' + Me.lbl_TDL_distro.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_TDL_distro.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TDL_distro.Location = New System.Drawing.Point(3, 37) + Me.lbl_TDL_distro.MKBoundControl1 = Nothing + Me.lbl_TDL_distro.MKBoundControl2 = Nothing + Me.lbl_TDL_distro.MKBoundControl3 = Nothing + Me.lbl_TDL_distro.MKBoundControl4 = Nothing + Me.lbl_TDL_distro.MKBoundControl5 = Nothing + Me.lbl_TDL_distro.Name = "lbl_TDL_distro" + Me.lbl_TDL_distro.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem2.Text = "Total DOS Launcher .zip File" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Provide the TDL .zip file here. It is the Total DOS Launcher's binary distributio" & + "n which can be downloaded from https://github.com/MobyGamer/total-dos-launcher/r" & + "eleases" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.lbl_TDL_distro.SuperTip = SuperToolTip2 + Me.lbl_TDL_distro.TabIndex = 3 + Me.lbl_TDL_distro.Text = "Total DOS Launcher .zip File:" + ' + 'btn_TDL_distro + ' + Me.btn_TDL_distro.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_TDL_distro.Location = New System.Drawing.Point(520, 37) + Me.btn_TDL_distro.Name = "btn_TDL_distro" + Me.btn_TDL_distro.Size = New System.Drawing.Size(39, 20) + ToolTipTitleItem3.Text = "Total DOS Launcher .zip File" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "browse the Total DOS Launcher .zip file" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + Me.btn_TDL_distro.SuperTip = SuperToolTip3 + Me.btn_TDL_distro.TabIndex = 4 + Me.btn_TDL_distro.Text = "..." + ' + 'btn_TDL_distro_www + ' + Me.btn_TDL_distro_www.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_TDL_distro_www.Location = New System.Drawing.Point(562, 37) + Me.btn_TDL_distro_www.Name = "btn_TDL_distro_www" + Me.btn_TDL_distro_www.Size = New System.Drawing.Size(39, 20) + ToolTipTitleItem4.Text = "Total DOS Launcher .zip File" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Click here to open your web browser with the download site of Total DOS Launcher'" & + "s binary distribution" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem4) + Me.btn_TDL_distro_www.SuperTip = SuperToolTip4 + Me.btn_TDL_distro_www.TabIndex = 5 + Me.btn_TDL_distro_www.Text = "www" + ' + '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.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(604, 29) + ToolTipTitleItem5.Text = "TDL distro Directory" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Provide the TDL distro Directory here. It is part of Total DOS Launcher's binary " & + "distribution which can be downloaded from https://github.com/MobyGamer/total-dos" & + "-launcher/releases" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem5) + Me.lbl_Explanation.SuperTip = SuperToolTip5 + Me.lbl_Explanation.TabIndex = 6 + Me.lbl_Explanation.Text = "The Total DOS Launcher export currently supports only DOS games provided as .zip " & + "files." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%1% of the %2% selected games can be exported." + ' + '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(149, 60) + 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(410, 20) + Me.txb_Destination.TabIndex = 7 + ' + '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, 60) + 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(143, 20) + Me.lbl_Destination.TabIndex = 8 + Me.lbl_Destination.Text = "Destination:" + ' + '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(562, 60) + Me.btn_Destination.Name = "btn_Destination" + Me.btn_Destination.Size = New System.Drawing.Size(39, 20) + Me.btn_Destination.TabIndex = 9 + Me.btn_Destination.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(526, 201) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 11 + Me.btn_Close.Text = "&Close" + ' + '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(448, 201) + Me.btn_Export.Name = "btn_Export" + Me.btn_Export.Size = New System.Drawing.Size(75, 23) + Me.btn_Export.TabIndex = 10 + Me.btn_Export.Text = "&Export" + ' + 'lbl_Config + ' + Me.lbl_Config.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Config.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Config.Location = New System.Drawing.Point(3, 83) + Me.lbl_Config.MKBoundControl1 = Nothing + Me.lbl_Config.MKBoundControl2 = Nothing + Me.lbl_Config.MKBoundControl3 = Nothing + Me.lbl_Config.MKBoundControl4 = Nothing + Me.lbl_Config.MKBoundControl5 = Nothing + Me.lbl_Config.Name = "lbl_Config" + Me.lbl_Config.Size = New System.Drawing.Size(143, 20) + Me.lbl_Config.TabIndex = 12 + Me.lbl_Config.Text = "Configuration:" + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BS_Config + ' + Me.BS_Config.DataMember = "tbl_Total_DOS_Launcher_Configs" + Me.BS_Config.DataSource = Me.DS_ML + ' + 'cmb_Config + ' + Me.cmb_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_Config.EditValue = "-1" + Me.cmb_Config.Location = New System.Drawing.Point(149, 83) + Me.cmb_Config.MKBoundLabel = Nothing + Me.cmb_Config.MKEditValue_Compare = Nothing + Me.cmb_Config.Name = "cmb_Config" + ToolTipTitleItem6.Text = "Add new Config" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + ToolTipTitleItem7.Text = "Delete this Config" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + ToolTipTitleItem8.Text = "Edit this Config" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + Me.cmb_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.Plus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, SuperToolTip6, 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, SuperToolTip7, 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, SuperToolTip8, True)}) + Me.cmb_Config.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Total_DOS_Launcher_Configs", "id_Total_DOS_Launcher_Configs", 180, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayName", "Display Name", 74, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("proglocations", "proglocations", 74, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cachelocation", "cachelocation", 75, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("userlevel", "userlevel", 53, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("forcelogging", "forcelogging", 69, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("swapping", "swapping", 55, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("preloading", "preloading", 60, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("pauseafterrun", "pauseafterrun", 79, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("VESA", "VESA", 35, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Config.Properties.DataSource = Me.BS_Config + Me.cmb_Config.Properties.DisplayMember = "DisplayName" + Me.cmb_Config.Properties.ShowFooter = False + Me.cmb_Config.Properties.ShowHeader = False + Me.cmb_Config.Properties.ValueMember = "id_Total_DOS_Launcher_Configs" + Me.cmb_Config.Size = New System.Drawing.Size(452, 20) + Me.cmb_Config.TabIndex = 13 + ' + 'lbl_Split_2GB + ' + Me.lbl_Split_2GB.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Split_2GB.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Split_2GB.Location = New System.Drawing.Point(3, 106) + Me.lbl_Split_2GB.MKBoundControl1 = Nothing + Me.lbl_Split_2GB.MKBoundControl2 = Nothing + Me.lbl_Split_2GB.MKBoundControl3 = Nothing + Me.lbl_Split_2GB.MKBoundControl4 = Nothing + Me.lbl_Split_2GB.MKBoundControl5 = Nothing + Me.lbl_Split_2GB.Name = "lbl_Split_2GB" + Me.lbl_Split_2GB.Size = New System.Drawing.Size(143, 20) + ToolTipTitleItem9.Text = "Split in 2GB Chunks" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "The exported files will be organized in directories not exceeding 2GB (a common D" & + "OS limit)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The following directories will be created: files, files1, files2 e" & + "tc." + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem6) + Me.lbl_Split_2GB.SuperTip = SuperToolTip9 + Me.lbl_Split_2GB.TabIndex = 14 + Me.lbl_Split_2GB.Text = "Split in 2GB Chunks:" + ' + 'chb_Split_2GB_Chunks + ' + Me.chb_Split_2GB_Chunks.Location = New System.Drawing.Point(149, 107) + Me.chb_Split_2GB_Chunks.MKBoundLabel = Nothing + Me.chb_Split_2GB_Chunks.MKEditValue_Compare = Nothing + Me.chb_Split_2GB_Chunks.Name = "chb_Split_2GB_Chunks" + Me.chb_Split_2GB_Chunks.Properties.Caption = "" + Me.chb_Split_2GB_Chunks.Size = New System.Drawing.Size(75, 19) + ToolTipTitleItem10.Text = "Split in 2GB Chunks" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "The exported files will be organized in directories not exceeding 2GB (a common D" & + "OS maximum)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The following directories will be created: files, files1, files2" & + " etc." + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem7) + Me.chb_Split_2GB_Chunks.SuperTip = SuperToolTip10 + Me.chb_Split_2GB_Chunks.TabIndex = 15 + ' + 'lbl_Custom_Subtitle_Warning + ' + Me.lbl_Custom_Subtitle_Warning.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_Custom_Subtitle_Warning.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle_Warning.Location = New System.Drawing.Point(149, 175) + Me.lbl_Custom_Subtitle_Warning.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle_Warning.Name = "lbl_Custom_Subtitle_Warning" + Me.lbl_Custom_Subtitle_Warning.Size = New System.Drawing.Size(452, 20) + Me.lbl_Custom_Subtitle_Warning.TabIndex = 33 + Me.lbl_Custom_Subtitle_Warning.Text = "Warning: this title will be truncated in the default VESA mode (max. 80 character" & + "s)" + Me.lbl_Custom_Subtitle_Warning.Visible = False + ' + 'lbl_Custom_Subtitle_Display + ' + Me.lbl_Custom_Subtitle_Display.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_Custom_Subtitle_Display.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle_Display.Location = New System.Drawing.Point(149, 152) + Me.lbl_Custom_Subtitle_Display.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle_Display.Name = "lbl_Custom_Subtitle_Display" + Me.lbl_Custom_Subtitle_Display.Size = New System.Drawing.Size(452, 20) + Me.lbl_Custom_Subtitle_Display.TabIndex = 32 + Me.lbl_Custom_Subtitle_Display.Text = "The Total DOS Launcher%SUBTITLE%" + ' + 'lbl_Custom_Subtitle + ' + Me.lbl_Custom_Subtitle.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Custom_Subtitle.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle.Location = New System.Drawing.Point(3, 129) + Me.lbl_Custom_Subtitle.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle.Name = "lbl_Custom_Subtitle" + Me.lbl_Custom_Subtitle.Size = New System.Drawing.Size(143, 20) + Me.lbl_Custom_Subtitle.TabIndex = 31 + Me.lbl_Custom_Subtitle.Text = "Custom Subtitle:" + ' + 'txb_Custom_Subtitle + ' + Me.txb_Custom_Subtitle.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_Custom_Subtitle.Location = New System.Drawing.Point(149, 129) + Me.txb_Custom_Subtitle.MKBoundLabel = Nothing + Me.txb_Custom_Subtitle.MKEditValue_Compare = Nothing + Me.txb_Custom_Subtitle.Name = "txb_Custom_Subtitle" + Me.txb_Custom_Subtitle.Properties.Mask.EditMask = "The Total DOS Launcher.*" + Me.txb_Custom_Subtitle.Properties.MaxLength = 78 + Me.txb_Custom_Subtitle.Size = New System.Drawing.Size(452, 20) + Me.txb_Custom_Subtitle.TabIndex = 30 + ' + 'frm_Export_TDL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(604, 227) + Me.Controls.Add(Me.lbl_Custom_Subtitle_Warning) + Me.Controls.Add(Me.lbl_Custom_Subtitle_Display) + Me.Controls.Add(Me.lbl_Custom_Subtitle) + Me.Controls.Add(Me.txb_Custom_Subtitle) + Me.Controls.Add(Me.chb_Split_2GB_Chunks) + Me.Controls.Add(Me.lbl_Split_2GB) + Me.Controls.Add(Me.cmb_Config) + Me.Controls.Add(Me.lbl_Config) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.btn_Export) + Me.Controls.Add(Me.txb_Destination) + Me.Controls.Add(Me.lbl_Destination) + Me.Controls.Add(Me.btn_Destination) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.btn_TDL_distro_www) + Me.Controls.Add(Me.txb_TDL_distro) + Me.Controls.Add(Me.lbl_TDL_distro) + Me.Controls.Add(Me.btn_TDL_distro) + Me.Name = "frm_Export_TDL" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Export as Total DOS Launcher Collection" + CType(Me.txb_TDL_distro.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Destination.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Config.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Split_2GB_Chunks.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Custom_Subtitle.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents txb_TDL_distro As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_TDL_distro As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_TDL_distro As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_TDL_distro_www As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Destination As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Destination As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Destination As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Export As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Config As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DS_ML As DS_ML + Friend WithEvents BS_Config As BindingSource + Friend WithEvents cmb_Config As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents lbl_Split_2GB As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_Split_2GB_Chunks As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Custom_Subtitle_Warning As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Custom_Subtitle_Display As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Custom_Subtitle As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_Custom_Subtitle As MKNetDXLib.ctl_MKDXTextEdit +End Class diff --git a/Metropolis_Launcher/Forms/frm_Export_TDL.resx b/Metropolis_Launcher/Forms/frm_Export_TDL.resx new file mode 100644 index 0000000..c50bb0d --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export_TDL.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_Export_TDL.vb b/Metropolis_Launcher/Forms/frm_Export_TDL.vb new file mode 100644 index 0000000..43b7210 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Export_TDL.vb @@ -0,0 +1,673 @@ +Public Class frm_Export_TDL + + Private _arGames As ArrayList + + Private _lbl_Custom_Subtitle_Display_Text As String = "" + + Public Sub New(ByRef arGames As ArrayList, ByVal iTotalSelected As Integer) + InitializeComponent() + + Me._lbl_Custom_Subtitle_Display_Text = lbl_Custom_Subtitle_Display.Text + Me.txb_Custom_Subtitle_EditValueChanged(Nothing, Nothing) + + _arGames = arGames + + Me.lbl_Explanation.Text = Me.lbl_Explanation.Text.Replace("%1%", arGames.Count).Replace("%2%", iTotalSelected) + + Dim sTDL_Distro_File = TC.NZ(cls_Settings.GetSetting("TDL_distro"), System.Windows.Forms.Application.StartupPath & "\Tools\total-dos-launcher.zip") + + If Alphaleonis.Win32.Filesystem.File.Exists(sTDL_Distro_File) Then + Me.txb_TDL_distro.EditValue = sTDL_Distro_File + End If + + DS_ML.Fill_tbl_Total_DOS_Launcher_Configs(Me.DS_ML.tbl_Total_DOS_Launcher_Configs) + End Sub + + Private Sub btn_TDL_distro_www_Click(sender As Object, e As EventArgs) Handles btn_TDL_distro_www.Click + cls_Globals.OpenURL("https://github.com/MobyGamer/total-dos-launcher/releases") + End Sub + + Private Sub btn_TDL_distro_Click(sender As Object, e As EventArgs) Handles btn_TDL_distro.Click + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse Total DOS Launcher .zip File", "*.zip|*.zip", ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Return + End If + + cls_Settings.SetSetting("TDL_distro", sFile) + + Me.txb_TDL_distro.EditValue = sFile + End Sub + + Private Function Validate_TDL_distro(ByVal sPath As Object) As String + 'DEPRECATED, check .zip file contents! + + 'If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sPath) Then + ' Return "The directory is not available" + 'End If + + 'Dim files As String() = Alphaleonis.Win32.Filesystem.Directory.GetFiles(sPath) + + 'Dim bHasTDLExe As Boolean = False + + 'For Each file In files + ' file = Alphaleonis.Win32.Filesystem.Path.GetFileName(file.ToLower) + ' If file = "tdl.exe" Then + ' bHasTDLExe = True + ' Exit For + ' End If + 'Next + + 'If Not bHasTDLExe Then + ' Return "The directory must at least contain TDL.EXE. Did you select the distro directory of Total DOS Launcher?" + 'End If + + 'Return "" + + Return "" + End Function + + Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click + Me.Close() + End Sub + + Private Sub btn_Export_Click(sender As Object, e As EventArgs) Handles btn_Export.Click + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_TDL_distro.Text) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Total DOS Launcher .zip file does not exist.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Dim sValidationResult = Validate_TDL_distro(txb_TDL_distro.Text) + + If sValidationResult <> "" Then + MKNetDXLib.cls_MKDXHelper.MessageBox(sValidationResult, "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(txb_Destination.Text) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Destination directory does not exist.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If Not MKNetLib.cls_MKFileSupport.isDirectoryEmpty(txb_Destination.Text) Then + If Not MKNetDXLib.cls_MKDXHelper.MessageBox("Destination directory is not empty. Do you want to continue?", "Export", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning) = DialogResult.Yes Then + Return + End If + End If + + Me.Export() + End Sub + + Public Class cls_TDL_Entry + Public _foundfile As String 'Source filenames with full paths and extensions + Public _baseFile As String 'Source filenames with extensions (no paths) + Public _title As Byte() 'Title within TDL's menu (currently just the long filename without extension) + Public _DOSname As String 'DOS (8.3) filename + + Public _row_Emu_Games As DataRow + + Public Sub New(ByRef row_Emu_Games As DataRow) + Me._row_Emu_Games = row_Emu_Games + Me._foundfile = row_Emu_Games("Folder") & "\" & row_Emu_Games("File") + Me._baseFile = Alphaleonis.Win32.Filesystem.Path.GetFileName(_foundfile) + + 'TODO: generate title out of Meta Data instead of just the filename + Me._title = System.Text.Encoding.ASCII.GetBytes(Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(_foundfile)) + End Sub + End Class + + Public Class cls_TDL_Entry_Comparer + Implements IComparer + + Private Function IComparer_Compare(x As Object, y As Object) As Integer Implements IComparer.Compare + Return String.Compare(x._baseFile, y._baseFile) + End Function + End Class + + Private Function Create_TDL_INI(ByVal path As String) As Boolean + Dim sb_TDL_INI As New System.Text.StringBuilder + + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("/// TDL.INI created by Metropolis Launcher") + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("/// This is the TDL configuration file, which is read on startup and used") + sb_TDL_INI.AppendLine("/// to configure how TDL operates, where archive files are found, etc.") + sb_TDL_INI.AppendLine("/// Please read the descriptions for each setting before making changes.") + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("[prefs]") + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; PATH-like variable that specifies where TDL can find the archive files") + sb_TDL_INI.AppendLine("; prepared by the indexer and copied over to the vintage system.") + sb_TDL_INI.AppendLine("; Multiple locations are allowed to get past the FAT16 2-gigabyte limit.") + sb_TDL_INI.AppendLine("; (DOS limitations cap this path string at 80 characters -- do not exceed!)") + + sb_TDL_INI.AppendLine("proglocations=" & Me.BS_Config.Current("proglocations")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine(";Cache directory location. This is where archives (.zip files, etc.) are") + sb_TDL_INI.AppendLine(";decompressed into. If you want to save your game, hi scores, etc., then") + sb_TDL_INI.AppendLine(";this should be a permanent directory on a hard disk. If you don't care") + sb_TDL_INI.AppendLine(";about retaining files, you can put this on a RAM disk.") + + sb_TDL_INI.AppendLine("cachelocation=" & Me.BS_Config.Current("cachelocation")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL can operate in three user modes:") + sb_TDL_INI.AppendLine("; - REGULAR is the default and recommended mode, where the TDL will try") + sb_TDL_INI.AppendLine("; to make educated decisions where applicable.") + sb_TDL_INI.AppendLine("; - POWER displays more messages, copies the debug log to a text logfile,") + sb_TDL_INI.AppendLine("; and generally gives more control.") + sb_TDL_INI.AppendLine("; - KIOSK is meant for shows, conventions, and museums; it disables features") + sb_TDL_INI.AppendLine("; that could confuse novice users, and makes as many decisions on behalf") + sb_TDL_INI.AppendLine("; of the user as possible. ctrl-alt-delete is trapped and disabled.") + sb_TDL_INI.AppendLine("; Finally, the TDL cannot be exited in this mode.") + sb_TDL_INI.AppendLine("; It is highly recommended you run in REGULAR mode unless instructed otherwise.") + + sb_TDL_INI.AppendLine("userlevel=" & Me.BS_Config.Current("userlevel")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; Being a power user copies the debug log into a text file. You can force") + sb_TDL_INI.AppendLine("; this behavior ON for all user levels for troubleshooting purposes.") + + sb_TDL_INI.AppendLine("forcelogging=" & IIf(Me.BS_Config.Current("forcelogging"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL swaps itself into EMS, XMS, extended memory, or disk when launching a") + sb_TDL_INI.AppendLine("; program. If you suspect this is causing problems, you can turn it off, but") + sb_TDL_INI.AppendLine("; you will have less DOS RAM available for running your program.") + + sb_TDL_INI.AppendLine("swapping=" & IIf(Me.BS_Config.Current("swapping"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL normally preloads data into system RAM to increase operating speed.") + sb_TDL_INI.AppendLine("; If you have a very large number of titles loaded (over 10,000) and do") + sb_TDL_INI.AppendLine("; not have any EMS or XMS memory configured, you might run out of low DOS") + sb_TDL_INI.AppendLine("; RAM. You can disable preloading to force the TDL to work, but if your") + sb_TDL_INI.AppendLine("; hard disk is a slow device, it could operate very slowly. (Generally,") + sb_TDL_INI.AppendLine("; don't disable preloading unless you experience memory errors.)") + + sb_TDL_INI.AppendLine("preloading=" & IIf(Me.BS_Config.Current("preloading"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL normally returns to the menu after execution. You can change this") + sb_TDL_INI.AppendLine("; behavior to waiting for user input, so that the user can read the screen") + sb_TDL_INI.AppendLine("; before returning.") + + sb_TDL_INI.AppendLine("pauseafterrun=" & IIf(Me.BS_Config.Current("pauseafterrun"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL uses the text mode already set up in DOS. If you'd like the TDL to") + sb_TDL_INI.AppendLine("; initialize an extended VESA text mode, you can enter which mode here.") + sb_TDL_INI.AppendLine("; Tested VESA text modes include:") + sb_TDL_INI.AppendLine("; 108h 80x60") + sb_TDL_INI.AppendLine("; 109h 132x25") + sb_TDL_INI.AppendLine("; 10Ah 132x43") + sb_TDL_INI.AppendLine("; 10Bh 132x50") + sb_TDL_INI.AppendLine("; 10Ch 132x60") + sb_TDL_INI.AppendLine("; You must enter the mode number in hex, ie. 108h") + + If TC.NZ(Me.BS_Config.Current("VESA"), "") = "" Then + sb_TDL_INI.AppendLine(";VESA=10Ch") + Else + sb_TDL_INI.AppendLine("VESA=" & Me.BS_Config.Current("VESA")) + End If + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL can display an optional subtitle after the main title.") + sb_TDL_INI.AppendLine("; For example, instead of the default ""The Total DOS Launcher"", you can") + sb_TDL_INI.AppendLine("; add a subheader "" - Action Games"", so that the title now becomes") + sb_TDL_INI.AppendLine("; ""The Total DOS Launcher - Action Games"". (Note how the "" - "" separator") + sb_TDL_INI.AppendLine("; was part of the defined string; you can use whatever separator you want,") + sb_TDL_INI.AppendLine("; such as "": "".) This is useful for building several sub-collections or") + sb_TDL_INI.AppendLine("; anthologies you want grouped together. Some examples below; uncomment") + sb_TDL_INI.AppendLine("; and modify to use:") + sb_TDL_INI.AppendLine(";subheader= - Action Games") + sb_TDL_INI.AppendLine(";subheader=: Sierra AGI Anthology") + sb_TDL_INI.AppendLine(";subheader= -=- iD Anthology: Vintage") + + If TC.NZ(Me.txb_Custom_Subtitle.EditValue, "") <> "" Then + Dim sSubtitle As String = txb_Custom_Subtitle.Text.Trim() + If Not sSubtitle.StartsWith(":") Then + sSubtitle = " " & sSubtitle + End If + + sSubtitle = System.Text.Encoding.Default.GetString(System.Text.Encoding.ASCII.GetBytes(sSubtitle)) + sb_TDL_INI.AppendLine("subheader=" & sSubtitle) + End If + + Dim sError As String = "" + If Not MKNetLib.cls_MKFileSupport.SaveTextToFile(sb_TDL_INI.ToString, path, sError) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while writing " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Return True + End Function + + Public Function Unpack_TDL_Distro(ByVal path As String) As Boolean + Dim file As String = Me.txb_TDL_distro.Text + If Not Alphaleonis.Win32.Filesystem.File.Exists(file) Then + 'File not found + MKDXHelper.MessageBox("The Total DOS Launcher binary release file '" & file & "' could not be found.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + Else + 'Unpack + Try + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(file) + + For Each archive_entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not archive_entry.IsDirectory AndAlso archive_entry.FilePath.ToLower.Contains("/distro") AndAlso not archive_entry.FilePath.ToLower.Contains("tdl.ini") Then + Dim innerPath As String = MKNetLib.cls_MKRegex.GetMatches(archive_entry.FilePath, ".*?distro/(.*)")(0).Groups(1).Value + Dim arInnerPath As String() = innerPath.Split("/") + + Dim destinationPath As String = path + + If arInnerPath.Length > 1 Then + 'We have some "inner" directories to take care of + For i As Integer = 0 To arInnerPath.Length - 2 + destinationPath &= "\" & arInnerPath(i) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(destinationPath) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(destinationPath) + End If + Next + End If + + SharpCompress.Archive.IArchiveEntryExtensions.WriteToDirectory(archive_entry, destinationPath, SharpCompress.Common.ExtractOptions.Overwrite) + End If + Next + Catch ex As Exception + MKDXHelper.ExceptionMessageBox(ex, "There has been an exception while unpacking " & file & "." & ControlChars.CrLf & "The error was: ", "Error") + Return False + End Try + + Return True + End If + End Function + + Public Function Rebuild_HANDLERS_INI(path) As Boolean + If Not Alphaleonis.Win32.Filesystem.File.Exists(path) Then + MKDXHelper.MessageBox("Error: The Total DOS Launcher distro does not contain a HANDLERS.INI file.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Dim sError As String = "" + Dim sContents As String = MKNetLib.cls_MKFileSupport.GetFileContents(path, sError) + If sError <> "" Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while reading " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Dim arContents = sContents.Split(ControlChars.Lf) + + Dim sbNewContents As New System.Text.StringBuilder + + For Each sLine In arContents + sbNewContents.AppendLine(sLine.Trim) + + If sLine.Trim = "[END]" Then + Exit For + End If + Next + + If Not MKNetLib.cls_MKFileSupport.SaveTextToFile(sbNewContents.ToString, path, sError) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while writing " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Return True + End Function + + Private Sub Export() + Dim arDOSNames As New ArrayList + Dim arTDLEntries As New ArrayList + + For Each row_game As DataRow In Me._arGames + arTDLEntries.Add(New cls_TDL_Entry(row_game)) + Next + + arTDLEntries.Sort(New cls_TDL_Entry_Comparer()) + + 'Find unique DOS names for each entry, if not possible set it to "" + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + Dim filenameWithExtension As String = tdl_entry._baseFile + Dim sDOSNameWithoutExtension As String = System.Text.Encoding.Default.GetString(System.Text.Encoding.ASCII.GetBytes(Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(filenameWithExtension))) + sDOSNameWithoutExtension = MKNetLib.cls_MKStringSupport.MultiReplace(sDOSNameWithoutExtension, " +-'[](),.~!@#$%^&*{}:".ToCharArray(), "").ToUpper + sDOSNameWithoutExtension = sDOSNameWithoutExtension.Replace(vbNullChar, "").Replace(CChar("?"), CChar("_")) + If sDOSNameWithoutExtension.Length > 8 Then + sDOSNameWithoutExtension = sDOSNameWithoutExtension.Substring(0, 8) + End If + + 'TODO: create a FindUniqueDOSName function + If arDOSNames.Contains(sDOSNameWithoutExtension) Then + 'Debug.WriteLine("Find Unique DOS Name: " & sDOSNameWithoutExtension & " is already taken") + + For pos As Integer = sDOSNameWithoutExtension.Length - 1 To 0 Step -1 + For Each charPlacement As Char In "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" + 'sDOSNameWithoutExtension = sDOSNameWithoutExtension.Remove(pos, 1).Insert(pos, charPlacement) + Mid(sDOSNameWithoutExtension, pos + 1, 1) = charPlacement + + 'Debug.Write(" trying " & sDOSNameWithoutExtension & " ... ") + + If Not arDOSNames.Contains(sDOSNameWithoutExtension) Then + 'Debug.WriteLine(" SUCCESS") + Exit For + End If + + 'Debug.WriteLine(" FAIL") + Next + + If Not arDOSNames.Contains(sDOSNameWithoutExtension) Then + Exit For + End If + Next + End If + + If arDOSNames.Contains(sDOSNameWithoutExtension) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Unfortunately, " & tdl_entry._baseFile & " can't be added, because a unique DOS name couldn't be created. Please raise an issue on github and provide a file list.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + tdl_entry._DOSname = "" + End If + + arDOSNames.Add(sDOSNameWithoutExtension) + tdl_entry._DOSname = sDOSNameWithoutExtension & Alphaleonis.Win32.Filesystem.Path.GetExtension(filenameWithExtension).ToUpper + + Next + + ' DEPRECATED: Copy over the TDL distro + 'FileIO.FileSystem.CopyDirectory(txb_TDL_distro.Text, txb_Destination.Text) + + 'extract TDL distro from TDL .zip file + If Not Me.Unpack_TDL_Distro(Me.txb_Destination.Text) Then + Return + End If + + 'rebuild HANDLERS.INI (CrLf line endings) + If Not Me.Rebuild_HANDLERS_INI(Me.txb_Destination.Text & "\HANDLERS.INI") Then + Return + End If + + 'build TDL.INI from tbl_Total_DOS_Launcher_Configs entry + If Not Me.Create_TDL_INI(Me.txb_Destination.Text & "\TDL.INI") Then + Return + End If + + 'Create FILES.IDX + Using bw As System.IO.BinaryWriter = New System.IO.BinaryWriter(System.IO.File.Open(txb_Destination.Text & "\" & "FILES.IDX", System.IO.FileMode.Create)) + bw.Write(CType(arDOSNames.Count, UShort)) + + Dim idx As UShort = 0 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + bw.Write(idx) + bw.Write(System.Text.Encoding.ASCII.GetBytes(tdl_entry._DOSname.PadRight(12, vbNullChar))) + + idx = idx + 1 + Next + End Using + + 'Create TITLES.IDX + Using bw As System.IO.BinaryWriter = New System.IO.BinaryWriter(System.IO.File.Open(txb_Destination.Text & "\" & "TITLES.IDX", System.IO.FileMode.Create)) + bw.Write(CType(arDOSNames.Count, UShort)) + + 'curofs=2+(len(titles)*4) #real starting offset is past the offset structure itself + Dim arOffsets As New ArrayList + Dim curofs As Integer = 2 + arDOSNames.Count * 4 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + arOffsets.Add(curofs) + curofs = curofs + (2 + 16 + 1 + tdl_entry._title.Length) + Next + + For Each offset In arOffsets + bw.Write(CType(offset, UInt32)) + Next + + Dim idx As UShort = 0 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + bw.Write(idx) + + 'TODO: write MD5 hash of title + bw.Write(System.Text.Encoding.ASCII.GetBytes("0123456789ABCDEF")) + + bw.Write(CType(tdl_entry._title.Length, Byte)) + + bw.Write(tdl_entry._title) + + idx = idx + 1 + Next + End Using + + 'Create TITLES.DAT (Favourites) + Using bw As System.IO.BinaryWriter = New System.IO.BinaryWriter(System.IO.File.Open(txb_Destination.Text & "\" & "TITLES.DAT", System.IO.FileMode.Create)) + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + If TC.NZ(tdl_entry._row_Emu_Games("Favourite"), False) Then + bw.Write(CByte(1)) + Else + bw.Write(CByte(0)) + End If + Next + End Using + + Dim dirFiles As String = "\files" + Dim dirFilesCounter As Integer = 0 + Dim bytesCounter As Integer = 0 + + Dim fullPathDirFiles As String = txb_Destination.Text & dirFiles & IIf(Me.chb_Split_2GB_Chunks.Enabled AndAlso dirFilesCounter > 0, dirFilesCounter, "") + + 'Fill the /files directory + Dim prg As New MKNetDXLib.cls_MKDXBaseform_Progress_Helper(cls_Skins.GetCurrentSkinname(Nothing), 400, 100, ProgressBarStyle.Continuous, False, "Copy game {0} of {1} ...", 0, arDOSNames.Count, False) + + prg.Start() + + 'TODO: Split 2GB (2,147,483,647 Byte) + + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + prg.IncreaseCurrentValue() + + If Me.chb_Split_2GB_Chunks.Enabled Then + Dim fi As New Alphaleonis.Win32.Filesystem.FileInfo(tdl_entry._foundfile) + + If fi.Length > 2147000000 Then + prg.Hide = True + + Dim res As DialogResult = MKNetDXLib.cls_MKDXHelper.MessageBox("The file '" & tdl_entry._foundfile & "' exceeds the 2GB size limit. Copy anyways?", "Export", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning) + + Select Case res + Case DialogResult.Yes + 'Just going on + Case DialogResult.No + 'skipping + Continue For + Case DialogResult.Cancel + Return + End Select + + prg.Hide = False + End If + + If bytesCounter + fi.Length > 2147000000 Then + bytesCounter = 0 + dirFilesCounter += 1 + fullPathDirFiles = txb_Destination.Text & dirFiles & IIf(Me.chb_Split_2GB_Chunks.Enabled AndAlso dirFilesCounter > 0, dirFilesCounter, "") + bytesCounter += MKNetLib.cls_MKFileSupport.GetDirectorySize(fullPathDirFiles) + End If + + bytesCounter += fi.Length + End If + + 'Create directory if it doesn't exist + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(fullPathDirFiles) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(fullPathDirFiles) + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(fullPathDirFiles) Then + prg.Close() + MKNetDXLib.cls_MKDXHelper.MessageBox("Failed to create the directory '" & fullPathDirFiles & "', abort.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If Alphaleonis.Win32.Filesystem.File.Exists(fullPathDirFiles & "\" & tdl_entry._DOSname) Then + Try + Alphaleonis.Win32.Filesystem.File.Delete(fullPathDirFiles & "\" & tdl_entry._DOSname) + Catch ex As Exception + + End Try + End If + + Try + Alphaleonis.Win32.Filesystem.File.Copy(tdl_entry._foundfile, fullPathDirFiles & "\" & tdl_entry._DOSname) + Catch ex As Exception + + End Try + Next + + prg.Close() + + MKNetDXLib.cls_MKDXHelper.MessageBox("The export as a Total DOS Launcher Collection finished.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Sub + + Private Sub btn_Destination_Click(sender As Object, e As EventArgs) Handles btn_Destination.Click + Dim sDirectory As String = MKNetLib.cls_MKFileSupport.OpenFolderDialog("", True, Me) + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(sDirectory) Then + Return + End If + + Me.txb_Destination.EditValue = sDirectory + End Sub + + Private Sub Refill_Total_DOS_Launcher_Configs() + Me.DS_ML.tbl_Total_DOS_Launcher_Configs.Clear() + DS_ML.Fill_tbl_Total_DOS_Launcher_Configs(Me.DS_ML.tbl_Total_DOS_Launcher_Configs) + End Sub + + Private Sub cmb_Config_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Config.ButtonClick + Select Case e.Button.Kind + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Plus + 'Add TDL Config + Using frm As New frm_Total_DOS_Launcher_Config_Edit + If frm.ShowDialog = DialogResult.OK Then + Dim id_Total_DOS_Launcher_Configs As Int64 = 0L + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + id_Total_DOS_Launcher_Configs = DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + If id_Total_DOS_Launcher_Configs > 0L Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(Me.BS_Config, "id_Total_DOS_Launcher_Configs", id_Total_DOS_Launcher_Configs) + End If + End If + End Using + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Minus + 'Delete TDL Config + + If TC.NZ(Me.BS_Config.Current("id_Total_DOS_Launcher_Configs"), 0) < 0 Then + MKDXHelper.MessageBox("The selected Total DOS Launcher Configuration cannot be deleted because it is shipped with Metropolis Launcher.", "Delete Total DOS Launcher Configuration", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim id_Total_DOS_Launcher_Configs As Int64 = Me.BS_Config.Current("id_Total_DOS_Launcher_Configs") + + If MKDXHelper.MessageBox("Do you really want to delete this Total DOS Launcher Configuration?", "Delete Total DOS Launcher Configuration", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + + + Dim sSQL As String = "" + sSQL &= "DELETE FROM tbl_Total_DOS_Launcher_Configs WHERE id_Total_DOS_Launcher_Configs = " & TC.getSQLFormat(id_Total_DOS_Launcher_Configs) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + + Me.cmb_Config.EditValue = Nothing + Refill_Total_DOS_Launcher_Configs() + If BS_Config.Current IsNot Nothing Then + Me.cmb_Config.EditValue = BS_Config.Current("id_Total_DOS_Launcher_Configs") + End If + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis + 'Edit TDL Config + If BS_Config.Current Is Nothing Then + Return + End If + Using frm As New frm_Total_DOS_Launcher_Config_Edit(Me.BS_Config.Current("id_Total_DOS_Launcher_Configs")) + If frm.ShowDialog = DialogResult.OK Then + If BS_Config.Current("id_Total_DOS_Launcher_Configs") > 0 Then + 'Edit (a user's TDL config was edited) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue, Me.BS_Config.Current("id_Total_DOS_Launcher_Configs")) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + ElseIf BS_Config.Current("id_Total_DOS_Launcher_Configs") < 0 Then + 'Add (a shipped TDL Config was edited) + Dim id_Total_DOS_Launcher_Configs As Int64 = 0L + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + id_Total_DOS_Launcher_Configs = DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + If id_Total_DOS_Launcher_Configs > 0L Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(Me.BS_Config, "id_Total_DOS_Launcher_Configs", id_Total_DOS_Launcher_Configs) + End If + End If + End If + End Using + + End Select + + End Sub + + + Private Sub txb_Custom_Subtitle_EditValueChanged(sender As Object, e As EventArgs) Handles txb_Custom_Subtitle.EditValueChanged + Dim sSubtitle As String = txb_Custom_Subtitle.Text.Trim() + If Not sSubtitle.StartsWith(":") Then + sSubtitle = " " & sSubtitle + End If + + sSubtitle = System.Text.Encoding.Default.GetString(System.Text.Encoding.ASCII.GetBytes(sSubtitle)) + + Me.lbl_Custom_Subtitle_Display.Text = _lbl_Custom_Subtitle_Display_Text.Replace("%SUBTITLE%", sSubtitle) + End Sub + + Private Sub Update_Custom_Subtitle_Warning() + Me.lbl_Custom_Subtitle_Warning.Visible = False + + If Me.BS_Config.Current Is Nothing Then + Return + End If + + If lbl_Custom_Subtitle_Display.Text.Length > 78 Then + Dim vesaMode As String = TC.NZ(Me.BS_Config.Current("VESA"), "") + + If {"", "108h"}.Contains(vesaMode) Then + Me.lbl_Custom_Subtitle_Warning.Visible = True + End If + End If + End Sub + + Private Sub lbl_Custom_Subtitle_Display_TextChanged(sender As Object, e As EventArgs) Handles lbl_Custom_Subtitle_Display.TextChanged + Update_Custom_Subtitle_Warning() + End Sub + + Private Sub BS_Config_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Config.CurrentChanged + Update_Custom_Subtitle_Warning() + End Sub + +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Login.Designer.vb b/Metropolis_Launcher/Forms/frm_Login.Designer.vb index e520e65..79a3605 100644 --- a/Metropolis_Launcher/Forms/frm_Login.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Login.Designer.vb @@ -168,10 +168,9 @@ Partial Class frm_Login 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.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "Welcome! Please log in..." CType(Me.txb_Password.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/Metropolis_Launcher/Forms/frm_Login.vb b/Metropolis_Launcher/Forms/frm_Login.vb index 78824ad..2ec254d 100644 --- a/Metropolis_Launcher/Forms/frm_Login.vb +++ b/Metropolis_Launcher/Forms/frm_Login.vb @@ -54,6 +54,7 @@ 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_Globals.id_Cheevo_Challenges = BS_Users.Current("id_Cheevo_Challenges") cls_Settings.SetSetting("Last_Login_id_User", cmb_Users.EditValue) End If diff --git a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.Designer.vb b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.Designer.vb index e3ad43e..94d8b72 100644 --- a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.Designer.vb @@ -43,6 +43,7 @@ Partial Class frm_MOBY_Extras_Manager Me.btn_Move_Down = New MKNetDXLib.ctl_MKDXSimpleButton() Me.btn_Move_Up = New MKNetDXLib.ctl_MKDXSimpleButton() Me.chb_Download = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_MobyDownload_Error = New MKNetDXLib.ctl_MKDXLabel() CType(Me.splt_Main, System.ComponentModel.ISupportInitialize).BeginInit() Me.splt_Main.SuspendLayout() CType(Me.grd_Extras, System.ComponentModel.ISupportInitialize).BeginInit() @@ -64,6 +65,7 @@ Partial Class frm_MOBY_Extras_Manager Me.splt_Main.Name = "splt_Main" Me.splt_Main.Panel1.Controls.Add(Me.grd_Extras) Me.splt_Main.Panel1.Text = "Panel1" + Me.splt_Main.Panel2.Controls.Add(Me.lbl_MobyDownload_Error) Me.splt_Main.Panel2.Controls.Add(Me.prg_Extras_Download) Me.splt_Main.Panel2.Controls.Add(Me.pic_Game) Me.splt_Main.Panel2.Text = "Panel2" @@ -247,6 +249,20 @@ Partial Class frm_MOBY_Extras_Manager Me.chb_Download.Size = New System.Drawing.Size(184, 19) Me.chb_Download.TabIndex = 9 ' + 'lbl_MobyDownload_Error + ' + Me.lbl_MobyDownload_Error.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_MobyDownload_Error.Dock = System.Windows.Forms.DockStyle.Bottom + Me.lbl_MobyDownload_Error.Location = New System.Drawing.Point(0, 362) + Me.lbl_MobyDownload_Error.MKBoundControl1 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl2 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl3 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl4 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl5 = Nothing + Me.lbl_MobyDownload_Error.Name = "lbl_MobyDownload_Error" + Me.lbl_MobyDownload_Error.Size = New System.Drawing.Size(380, 0) + Me.lbl_MobyDownload_Error.TabIndex = 8 + ' 'frm_MOBY_Extras_Manager ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -292,4 +308,5 @@ Partial Class frm_MOBY_Extras_Manager Friend WithEvents btn_Move_Up As MKNetDXLib.ctl_MKDXSimpleButton Friend WithEvents chb_Download As MKNetDXLib.ctl_MKDXCheckEdit Friend WithEvents prg_Extras_Download As MKNetDXLib.ctl_MKDXProgressBarControl + Friend WithEvents lbl_MobyDownload_Error As MKNetDXLib.ctl_MKDXLabel End Class diff --git a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.resx b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.resx index 2b333a5..c0f280b 100644 --- a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.resx +++ b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.resx @@ -123,7 +123,4 @@ 17, 17 - - 17, 17 - \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.vb b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.vb index 029efd8..dbcd518 100644 --- a/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.vb +++ b/Metropolis_Launcher/Forms/frm_MOBY_Extras_Manager.vb @@ -7,6 +7,7 @@ Public Class frm_MOBY_Extras_Manager Private Moby_Download_Info As ucr_Emulation.cls_Moby_Download_Info + Private WithEvents Moby_Extras_Downloader As System.Net.WebClient = New System.Net.WebClient Public Sub New(ByVal id_Moby_Releases As Int64, ByVal Platform_Short As String) @@ -47,7 +48,9 @@ Public Class frm_MOBY_Extras_Manager Me.gv_Extras.ExpandAllGroups() End Sub - Private Sub BS_Extras_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Extras.CurrentChanged + Private Sub BS_Extras_CurrentChanged(sender As Object, e As EventArgs) 'Handles BS_Extras.CurrentChanged + Me.lbl_MobyDownload_Error.Text = "" + If BS_Extras.Current Is Nothing Then Me.pic_Game.Image = Nothing End If @@ -110,7 +113,7 @@ Public Class frm_MOBY_Extras_Manager Dim filepath As String = dirpath & "\" & filename If cls_Extras.EnsureExtrasFile(filepath) Then - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(filepath))) + pic_Game.Image = cls_Extras.LoadImageFromStreamSafe(filepath) Me.BS_Extras.Current("tmp_Available") = True Me.gv_Extras.RefreshData() Return @@ -138,8 +141,8 @@ Public Class frm_MOBY_Extras_Manager Me.prg_Extras_Download.EditValue = 0 Me.prg_Extras_Download.Visible = True - Me.Moby_Download_Info = New ucr_Emulation.cls_Moby_Download_Info(url, filepath, Payload:=row) - + Me.Moby_Download_Info = New ucr_Emulation.cls_Moby_Download_Info(url, filepath, Payload:=row, isArchiveOrg:=False) + Debug.WriteLine("Fetching " & "http://www.mobygames.com" & url) Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri("http://www.mobygames.com" & url), filepath) End Sub @@ -296,14 +299,27 @@ Public Class frm_MOBY_Extras_Manager Return End If - If e.Error IsNot Nothing Then - Debug.WriteLine("EXTRAS: Download has errored: " & e.Error.Message & e.Error.StackTrace) + If Me.Moby_Download_Info Is Nothing Then + Debug.WriteLine("EXTRAS: After Download: Game has changed, aborting") Return End If + If e.Error IsNot Nothing Then + Debug.WriteLine("EXTRAS: Download has errored: " & e.Error.Message & e.Error.StackTrace) + If Not Me.Moby_Download_Info.isArchiveOrg Then + 'Retry from archive.org directly + Me.Moby_Download_Info.isArchiveOrg = True + + Dim archiveOrgUrl As String = "http://web.archive.org/web/http://www.mobygames.com" & Me.Moby_Download_Info.URL + 'Dim archiveOrgUrl As String = "http://web.archive.org/web/http%3A%2F%2Fwww.mobygames.com" & url.ToString.Replace("/", "%2F") + 'does not work: Dim archiveOrgUrl As String = "https://archive.org/download/www.mobygames.com" & url + + Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri(archiveOrgUrl), Me.Moby_Download_Info.Filepath) + Else + Me.lbl_MobyDownload_Error.Text = "Error while downloading: " & e.Error.Message + Me.pic_Game.Image = Nothing + End If - If Me.Moby_Download_Info Is Nothing Then - Debug.WriteLine("EXTRAS: After Download: Game has changed, aborting") Return End If @@ -312,9 +328,39 @@ Public Class frm_MOBY_Extras_Manager Return End If + Debug.WriteLine("EXTRAS: After Download: try to load as Image") + Dim img As System.Drawing.Image = cls_Extras.LoadImageFromStreamSafe(Me.Moby_Download_Info.Filepath, False) + + If img Is Nothing Then + Debug.WriteLine("EXTRAS: After Download: it is NOT an image") + + If Me.Moby_Download_Info.isArchiveOrg Then + Debug.WriteLine("EXTRAS: After Download: archive.org may have sent just html with the image embedded") + 'Load the file contents as HTML and check for "real" download URL + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(Me.Moby_Download_Info.Filepath) + + Try + Dim newURL As String = MKNetLib.cls_MKRegex.GetMatches(sContent, "")(0).Groups(1).Value + + Debug.WriteLine("EXTRAS: After Download: fetching from " & newURL) + Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri(newURL), Me.Moby_Download_Info.Filepath) + Catch ex As Exception + Debug.WriteLine("EXTRAS: After Download: Failed reading the HTML") + End Try + Else + Debug.WriteLine("EXTRAS: Removing file") + Try + Alphaleonis.Win32.Filesystem.File.Delete(Me.Moby_Download_Info.Filepath) + Catch ex As Exception + + End Try + End If + End If + Debug.WriteLine("EXTRAS: After Download: Loading for display") If cls_Extras.EnsureExtrasFile(Me.Moby_Download_Info.Filepath) Then - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(Me.Moby_Download_Info.Filepath))) + pic_Game.Image = img + End If If Me.Moby_Download_Info.Payload IsNot Nothing Then @@ -323,4 +369,7 @@ Public Class frm_MOBY_Extras_Manager End If End Sub + Private Sub gv_Extras_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gv_Extras.FocusedRowChanged + BS_Extras_CurrentChanged(Nothing, Nothing) + 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 index e8ea944..3290da0 100644 --- a/Metropolis_Launcher/Forms/frm_Main.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Main.Designer.vb @@ -39,7 +39,6 @@ Partial Class frm_Main 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() Me.barmng = New MKNetDXLib.ctl_MKDXBarManager() Me.Bar3 = New DevExpress.XtraBars.Bar() Me.bbi_DownloadManager = New DevExpress.XtraBars.BarButtonItem() @@ -60,7 +59,6 @@ Partial Class frm_Main 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() CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -169,11 +167,6 @@ Partial Class frm_Main 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 - ' 'barmng ' Me.barmng.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar3}) @@ -272,7 +265,6 @@ Partial Class frm_Main 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() CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -289,7 +281,6 @@ Partial Class frm_Main 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 Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl diff --git a/Metropolis_Launcher/Forms/frm_Main.resx b/Metropolis_Launcher/Forms/frm_Main.resx index 8f2e845..fc34f49 100644 --- a/Metropolis_Launcher/Forms/frm_Main.resx +++ b/Metropolis_Launcher/Forms/frm_Main.resx @@ -2400,9 +2400,6 @@ AACAAQAAgAEAAIABAACAAQAAwAMAAOAHAADgBwAA4YcAAP//AAD//wAA//8AAA== - - 253, 17 - 370, 17 diff --git a/Metropolis_Launcher/Forms/frm_Main.vb b/Metropolis_Launcher/Forms/frm_Main.vb index a50cf23..c478948 100644 --- a/Metropolis_Launcher/Forms/frm_Main.vb +++ b/Metropolis_Launcher/Forms/frm_Main.vb @@ -21,6 +21,8 @@ Public Class frm_Main Private WithEvents btn_Help As New DevExpress.XtraBars.Docking2010.WindowsUIButton Private WithEvents btn_Logout As New DevExpress.XtraBars.Docking2010.WindowsUIButton + Private isDBSynced As Boolean = False + 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...") @@ -170,6 +172,10 @@ Public Class frm_Main End Using End If + + cls_Settings.SetSetting("MainWindowState", Me.WindowState) + cls_Settings.SetSetting("MainWindowSize", Me.Size.Width & "," & Me.Size.Height) + cls_Settings.SetSetting("MainWindowLocation", Me.Location.X & "," & Me.Location.Y) Catch ex As Exception End Try @@ -350,7 +356,8 @@ Public Class frm_Main If Not Me.Open_DB() Then _Immediate_Close = True - Me.Close() + 'Me.Close() + Me.BeginInvoke(New MethodInvoker(AddressOf Me.Close)) Return End If @@ -362,13 +369,48 @@ Public Class frm_Main 'Apply Settings to the current runtime instance cls_Settings.Apply_Settings() + 'Load Window State, Location and Size + Try + If Not My.Computer.Keyboard.ShiftKeyDown Then + Dim oWindowState As Object = cls_Settings.GetSetting("MainWindowState") + If Not TC.IsNullNothingOrEmpty(oWindowState) Then + Me.WindowState = CType(oWindowState, FormWindowState) + + Dim oWindowSize As Object = cls_Settings.GetSetting("MainWindowSize") + Dim oWindowLocation As Object = cls_Settings.GetSetting("MainWindowLocation") + + If Not TC.IsNullNothingOrEmpty(oWindowSize) Then + Me.Size = New Drawing.Size(oWindowSize.Split(",")(0), oWindowSize.Split(",")(1)) + End If + If Not TC.IsNullNothingOrEmpty(oWindowLocation) Then + Me.Location = New Drawing.Point(oWindowLocation.Split(",")(0), oWindowLocation.Split(",")(1)) + End If + Else + Me.WindowState = FormWindowState.Maximized + End If + End If + Catch ex As Exception + + End Try + + 'UpdateDB + Me.DBSync() + If cls_Globals.MultiUserMode Then Using frm As New frm_Login If frm.ShowDialog(Me) = DialogResult.Cancel Then - Me.Close() + 'Me.Close() + Me.BeginInvoke(New MethodInvoker(AddressOf Me.Close)) + Return Else Me.Text = "Metropolis Launcher - " & frm.BS_Users.Current("Username") & IIf(cls_Globals.Restricted, " (Restricted)", "") + Me.doc_Emulation.Caption = "Games & Emulation" + + If cls_Globals.id_Cheevo_Challenges > 0L Then + Me.doc_Emulation.Caption = "Games & Emulation - Challenge: " & TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT Name FROM tbl_Cheevo_Challenges WHERE id_Cheevo_Challenges = " & TC.getSQLFormat(cls_Globals.id_Cheevo_Challenges)), "") + End If + 'Apply Settings for the logged in user cls_Settings.Apply_Settings() End If @@ -438,8 +480,10 @@ Public Class frm_Main 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 + Private Sub DBSync() + If Me.isDBSynced Then + Return + End If 'Run DB Sync Dim blacklist As MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem() = {New MKNetLib.cls_MKSQLiteDBSync.cls_MKContentSync_BlacklistItem("created", "*"), @@ -454,7 +498,8 @@ Public Class frm_Main Catch ex As Exception MKDXHelper.MessageBox("Error while synchronizing databases:" & ControlChars.CrLf & dbsync._SyncLog, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) _Immediate_Close = True - Me.Close() + 'Me.Close() + Me.BeginInvoke(New MethodInvoker(AddressOf Me.Close)) Return End Try @@ -576,6 +621,12 @@ Public Class frm_Main DS_ML.Migrate_Rombase_DOSBox_Configs(cls_Globals.Conn) DS_ML.Migrate_Rombase_ScummVM_Configs(cls_Globals.Conn) + Me.isDBSynced = True + End Sub + + Private Sub frm_Main_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown + If Me.IsDisposed Then Return + #If PreRelease Then MKDXHelper.MessageBox("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", MessageBoxButtons.OK, MessageBoxIcon.Information) #End If diff --git a/Metropolis_Launcher/Forms/frm_Mame_Config.vb b/Metropolis_Launcher/Forms/frm_Mame_Config.vb index 5f566b8..134d5ca 100644 --- a/Metropolis_Launcher/Forms/frm_Mame_Config.vb +++ b/Metropolis_Launcher/Forms/frm_Mame_Config.vb @@ -962,35 +962,26 @@ Public Class frm_Mame_Config End If End Sub - Private Sub OpenURL(URL As String) - Try - Dim procinfo As New ProcessStartInfo(URL) - procinfo.UseShellExecute = True - Process.Start(procinfo) - Catch ex As Exception - End Try - - End Sub Private Sub btn_history_dat_www_Click(sender As Object, e As EventArgs) Handles btn_history_dat_www.Click - OpenURL("http://www.arcade-history.com/?page=download") + cls_Globals.OpenURL("http://www.arcade-history.com/?page=download") End Sub Private Sub btn_mameinfo_dat_www_Click(sender As Object, e As EventArgs) Handles btn_mameinfo_dat_www.Click - OpenURL("http://mameinfo.mameworld.info/") + cls_Globals.OpenURL("http://mameinfo.mameworld.info/") End Sub Private Sub btn_gameinit_dat_www_Click(sender As Object, e As EventArgs) Handles btn_gameinit_dat_www.Click - OpenURL("http://www.progettosnaps.net/gameinit") + cls_Globals.OpenURL("http://www.progettosnaps.net/gameinit") End Sub Private Sub btn_Filter_ini_www_Click(sender As Object, e As EventArgs) Handles btn_Filter_ini_www.Click - OpenURL("http://www.progettosnaps.net/renameset/") + cls_Globals.OpenURL("http://www.progettosnaps.net/renameset/") End Sub Private Sub btn_Category_ini_www_Click(sender As Object, e As EventArgs) Handles btn_Category_ini_www.Click - OpenURL("http://nplayers.arcadebelgium.be/") - OpenURL("http://www.progettoemma.net/?catlist") + cls_Globals.OpenURL("http://nplayers.arcadebelgium.be/") + cls_Globals.OpenURL("http://www.progettoemma.net/?catlist") End Sub End Class \ 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 index 158ecdb..86f3b33 100644 --- a/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.vb +++ b/Metropolis_Launcher/Forms/frm_Moby_Platforms_Configuration.vb @@ -15,6 +15,13 @@ sSQL &= " ORDER BY Display_Name" DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, DS_ML.tbl_Moby_Platforms_Settings) + + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin Then + Me.rpi_Checkedit.ReadOnly = True + Me.colVisible.OptionsColumn.AllowEdit = False + Me.btn_OK.Visible = False + Me.btn_Cancel.Text = "&Close" + End If End Sub Private Sub btn_OK_Click(sender As System.Object, e As System.EventArgs) Handles btn_OK.Click @@ -33,6 +40,8 @@ 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) + If Not cls_Globals.MultiUserMode OrElse cls_Globals.Admin Then + Me.grd_Platforms.ShowHandInColumns(gv_Platforms, {"Visible"}, e) + End If 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 index 1a6b109..730e1f4 100644 --- a/Metropolis_Launcher/Forms/frm_Rom_Manager.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager.Designer.vb @@ -76,6 +76,8 @@ Partial Class frm_Rom_Manager Me.colMoby_Games_URLPart_Developer = New DevExpress.XtraGrid.Columns.GridColumn() Me.rpi_Moby_Developer = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() Me.coltmp_Highlighted = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCustomIdentifier = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colName = 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) @@ -182,7 +184,6 @@ Partial Class frm_Rom_Manager 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.colCustomIdentifier = 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() @@ -516,7 +517,7 @@ Partial Class frm_Rom_Manager ' '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.colMoby_Games_URLPart_Moby_Year, Me.colMoby_Games_URLPart_Publisher, Me.colMoby_Games_URLPart_Developer, Me.coltmp_Highlighted, Me.colCustomIdentifier}) + 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.colMoby_Games_URLPart_Moby_Year, Me.colMoby_Games_URLPart_Publisher, Me.colMoby_Games_URLPart_Developer, Me.coltmp_Highlighted, Me.colCustomIdentifier, Me.colName}) Me.gv_Emu_Games.GridControl = Me.grd_Emu_Games Me.gv_Emu_Games.GroupCount = 1 Me.gv_Emu_Games.Name = "gv_Emu_Games" @@ -673,6 +674,22 @@ Partial Class frm_Rom_Manager Me.coltmp_Highlighted.FieldName = "tmp_Highlighted" Me.coltmp_Highlighted.Name = "coltmp_Highlighted" ' + 'colCustomIdentifier + ' + Me.colCustomIdentifier.FieldName = "CustomIdentifier" + Me.colCustomIdentifier.Name = "colCustomIdentifier" + Me.colCustomIdentifier.OptionsColumn.AllowEdit = False + Me.colCustomIdentifier.OptionsColumn.ReadOnly = True + ' + 'colName + ' + Me.colName.Caption = "Game Name" + Me.colName.FieldName = "Name" + Me.colName.Name = "colName" + Me.colName.OptionsColumn.AllowEdit = False + Me.colName.OptionsColumn.ReadOnly = True + Me.colName.ToolTip = "The Game's Name (if empty, the MobyGames game name is used or the Filename)" + ' 'BS_Moby_Platforms_gv1 ' Me.BS_Moby_Platforms_gv1.DataMember = "tbl_Moby_Platforms" @@ -1682,13 +1699,6 @@ Partial Class frm_Rom_Manager Me.popmnu_Moby_Games.Manager = Me.barmng Me.popmnu_Moby_Games.Name = "popmnu_Moby_Games" ' - 'colCustomIdentifier - ' - Me.colCustomIdentifier.FieldName = "CustomIdentifier" - Me.colCustomIdentifier.Name = "colCustomIdentifier" - Me.colCustomIdentifier.OptionsColumn.AllowEdit = False - Me.colCustomIdentifier.OptionsColumn.ReadOnly = True - ' 'frm_Rom_Manager ' Me.ClientSize = New System.Drawing.Size(984, 661) @@ -1919,4 +1929,5 @@ Partial Class frm_Rom_Manager Friend WithEvents bbi_Scan_ScummVM_Ini As DevExpress.XtraBars.BarButtonItem Friend WithEvents colPlatform As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCustomIdentifier As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colName As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/Metropolis_Launcher/Forms/frm_Rom_Manager.vb b/Metropolis_Launcher/Forms/frm_Rom_Manager.vb index 4b0f824..59b1ded 100644 --- a/Metropolis_Launcher/Forms/frm_Rom_Manager.vb +++ b/Metropolis_Launcher/Forms/frm_Rom_Manager.vb @@ -113,7 +113,7 @@ Public Class frm_Rom_Manager sSQL &= " , PLTFM.MultiVolume" & 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.id_Moby_Platforms > 0 OR PLTFM.id_Moby_Platforms = -3)" & ControlChars.CrLf + sSQL &= "WHERE (PLTFM.id_Moby_Platforms > 0 OR PLTFM.id_Moby_Platforms IN (-2, -3))" & ControlChars.CrLf sSQL &= " AND PLTFM.Visible = 1" & ControlChars.CrLf sSQL &= " AND id_Moby_Platforms_Owner IS NULL" & ControlChars.CrLf sSQL &= " AND (PLTFMS.Visible IS NULL OR PLTFMS.Visible = 1)" & ControlChars.CrLf @@ -1284,9 +1284,35 @@ Public Class frm_Rom_Manager 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) +#If DEBUG Then + 'Always calculate MD5/SHA1 in Debug Mode (as we're also providing rombase data) + If ArchiveEntry Is Nothing Then + md5 = MKNetLib.cls_MKFileSupport.MD5Hash(inner_fi.FullName) + sha1 = MKNetLib.cls_MKFileSupport.SHA1Hash(inner_fi.FullName) + Else + 'unpack and then calc these checksums + Try + Dim TempDir As String = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'Temp dir for extracted rom + + Dim sOutFile As String = TempDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(ArchiveEntry.FilePath) + If Not Alphaleonis.Win32.Filesystem.File.Exists(sOutFile) Then + Using sw As New IO.StreamWriter(sOutFile) + GC.SuppressFinalize(sw.BaseStream) + ArchiveEntry.WriteTo(sw.BaseStream) + 'sw.BaseStream.Close() + sw.Close() + End Using + End If + + md5 = MKNetLib.cls_MKFileSupport.MD5Hash(sOutFile) + sha1 = MKNetLib.cls_MKFileSupport.SHA1Hash(sOutFile) + Catch ex As Exception + + End Try + + End If + +#End If End If @@ -1821,7 +1847,7 @@ Public Class frm_Rom_Manager Dim bDuplicate_Added As Boolean = False 'Find local duplicate and return if there is one found - Dim folderID As String = (folder & "\" & TC.NZ(file, "") & TC.NZ(innerfile, "")).ToLower + Dim folderID As String = (folder & "\" & TC.NZ(file, "") & TC.NZ(innerfile, "")).ToLower If Not _Rescan AndAlso dict_Have.ContainsKey(folderID) Then Dim rows As ArrayList = dict_Have(folderID) @@ -2635,10 +2661,12 @@ Public Class frm_Rom_Manager 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 - Dim row = gv_Moby_Releases.GetRow(e.RowHandle) - If TC.NZ(row("Moby_Games_URLPart"), "") = BS_Emu_Games.Current("Moby_Games_URLPart") Then - If Not cmb_Platform.EditValue = cls_Globals.enm_Moby_Platforms.scummvm OrElse TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("id_Moby_Platforms_Alternative")) OrElse TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms_Alternative"), 0) = TC.NZ(row("id_Moby_Platforms"), 0) Then - e.Appearance.Font = New Font(e.Appearance.Font.FontFamily.Name, e.Appearance.Font.Size, FontStyle.Bold) + If e.RowHandle >= 0 Then + Dim row = gv_Moby_Releases.GetRow(e.RowHandle) + If TC.NZ(row("Moby_Games_URLPart"), "") = BS_Emu_Games.Current("Moby_Games_URLPart") Then + If Not cmb_Platform.EditValue = cls_Globals.enm_Moby_Platforms.scummvm OrElse TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("id_Moby_Platforms_Alternative")) OrElse TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms_Alternative"), 0) = TC.NZ(row("id_Moby_Platforms"), 0) Then + e.Appearance.Font = New Font(e.Appearance.Font.FontFamily.Name, e.Appearance.Font.Size, FontStyle.Bold) + End If End If End If End If @@ -2669,19 +2697,21 @@ Public Class frm_Rom_Manager 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 + If e.RowHandle >= 0 Then + 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 If - If TC.NZ(row("tmp_Highlighted"), False) = True AndAlso TC.NZ(row("Unavailable"), False) = True Then - e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold Or FontStyle.Strikeout) - ElseIf TC.NZ(row("tmp_Highlighted"), False) = True Then - e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) - ElseIf TC.NZ(row("Unavailable"), False) = True Then - e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Strikeout) + If TC.NZ(row("tmp_Highlighted"), False) = True AndAlso TC.NZ(row("Unavailable"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold Or FontStyle.Strikeout) + ElseIf TC.NZ(row("tmp_Highlighted"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + ElseIf TC.NZ(row("Unavailable"), False) = True Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Strikeout) + End If End If End Sub @@ -2805,7 +2835,7 @@ Public Class frm_Rom_Manager Dim innerfile As String = "" Dim sTmpDir As String = "" - If TC.NZ(main_Row("File"), "") <> "" Then + If TC.NZ(main_Row("File"), "") <> "" AndAlso TC.NZ(main_Row("id_Rombase_DOSBox_Filetypes"), 0) <> cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then 'Check file existence If Not Alphaleonis.Win32.Filesystem.File.Exists(mainfile) Then @@ -2917,40 +2947,73 @@ Public Class frm_Rom_Manager main_Row("Unavailable") = False End If - If TC.NZ(cmb_Platform.EditValue, 0L) <> cls_Globals.enm_Moby_Platforms.scummvm AndAlso TC.NZ(main_Row("File"), "").ToLower <> TC.NZ(main_Row("InnerFile"), "").ToLower Then - Try - 'We could 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 + + If TC.NZ(main_Row("id_Rombase_DOSBox_Filetypes"), 0) <> cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd Then + + If TC.NZ(cmb_Platform.EditValue, 0L) <> cls_Globals.enm_Moby_Platforms.scummvm AndAlso TC.NZ(main_Row("File"), "").ToLower <> TC.NZ(main_Row("InnerFile"), "").ToLower Then + Try + 'We could 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 - End If - Next - 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 - If Not Alphaleonis.Win32.Filesystem.File.Exists(innerfile) Then + 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?) + If TC.NZ(main_Row("Unavailable"), False) = False Then + main_Row("Unavailable") = True + End If + + 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("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?") + 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 @@ -2976,39 +3039,10 @@ Public Class frm_Rom_Manager '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?) - If TC.NZ(main_Row("Unavailable"), False) = False Then - main_Row("Unavailable") = True - End If - - Continue For - Case Windows.Forms.DialogResult.Cancel - 'Cancel the rescan operation - Exit For - End Select - End Try - Else - innerfile = mainfile + End Try + Else + innerfile = mainfile + End If End If If TC.NZ(main_Row("Unavailable"), False) = True Then @@ -3383,7 +3417,7 @@ Public Class frm_Rom_Manager 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." + 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?" @@ -3820,7 +3854,14 @@ Public Class frm_Rom_Manager 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 + 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 + End If + + 'Skip if file is under _TDL_ directory and is not tdl.exe + If fi.FullName.ToLower.Contains("_tdl_") AndAlso Not fi.FullName.ToLower.Contains("tdl.exe") Then + Continue For + End If Dim row_file As DataRow = Nothing Dim rows_file As DataRow() = dt_Files.Select("InnerFile LIKE '%" & fi.Name.Replace("'", "''") & "' 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) & ")") @@ -3868,6 +3909,10 @@ Public Class frm_Rom_Manager 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 fi.FullName.ToLower.Contains("_tdl_\tdl.exe") Then + 'Always set TDL.exe as a MAIN executable + id_Rombase_DOSBox_Exe_Types = cls_Globals.enm_Rombase_DOSBox_Exe_Types.main + End If If bUseDB Then Dim sSQL As String = "" @@ -3914,7 +3959,7 @@ Public Class frm_Rom_Manager 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 &= "SET id_Rombase_DOSBox_Exe_Types = NULL" & ControlChars.CrLf 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) @@ -3975,7 +4020,9 @@ Public Class frm_Rom_Manager Next End If - If bUseDB AndAlso bTran Then tran.Commit() + If bTran Then + tran.Commit() + End If Catch ex As Exception If prg IsNot Nothing Then prg.Hide = True Dim bWaitCursor As Boolean = Cursor.Current = Cursors.WaitCursor @@ -4223,8 +4270,12 @@ Public Class frm_Rom_Manager 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 + + If TC.NZ(row_Emu_Games_Owner("Name_USR"), "") = "" Then + row_Emu_Games_Owner("Name") = DBNull.Value + row_Emu_Games_Owner("Name_USR") = DBNull.Value + End If + row_Emu_Games_Owner("Publisher_USR") = DBNull.Value End If @@ -4235,9 +4286,13 @@ Public Class frm_Rom_Manager 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 + + If TC.NZ(row_Emu_Games_Owner("Name_USR"), "") = "" Then + row_Emu_Games_Owner("Name") = DBNull.Value + row_Emu_Games_Owner("Name_USR") = DBNull.Value + End If + 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 @@ -4806,13 +4861,13 @@ Public Class frm_Rom_Manager 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 + For Each row_Emu_Game As DS_ML.tbl_Emu_GamesRow In Me.DS_ML.tbl_Emu_Games.Rows + If TC.NZ(row_Emu_Game("File"), "").Contains(".") Then dotcounter += 1 End If Next - If CDbl(dotcounter) / CDbl(Me.DS_Rombase.tbl_Rombase.Rows.Count) > 0.9 Then + If CDbl(dotcounter) / CDbl(Me.DS_ML.tbl_Emu_Games.Rows.Count) > 0.9 Then Strip_File_Extensions = True End If @@ -4859,7 +4914,11 @@ Public Class frm_Rom_Manager GameName = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(row_Emu_Games.Folder) End If - row_Auto_Link.GameName = row_Emu_Games.InnerFile + If Me.cmb_Platform.EditValue = cls_Globals.enm_Moby_Platforms.mame Then + GameName = TC.NZ(row_Emu_Games("Name"), "") + End If + + row_Auto_Link.GameName = GameName tbl_Moby_Auto_Link.Rows.Add(row_Auto_Link) Next diff --git a/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb b/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb index 0547168..270cd22 100644 --- a/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb +++ b/Metropolis_Launcher/Forms/frm_Rombase_Manager.vb @@ -172,7 +172,7 @@ Public Class frm_ROMBase_Manager 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") + _Moby_Platforms_URLPart = TC.NZ(DS_MobyDB.tbl_Moby_Platforms.Select("id_Moby_Platforms = " & e.NewValue)(0)("URLPart"), "") End If Cursor.Current = Cursors.Default @@ -437,8 +437,10 @@ Public Class frm_ROMBase_Manager 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) + If e.RowHandle >= 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 End If diff --git a/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.Designer.vb b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.Designer.vb new file mode 100644 index 0000000..a62a921 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.Designer.vb @@ -0,0 +1,518 @@ + _ +Partial Class frm_TDL_Create_Menu + 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 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 SuperToolTip1 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem1 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 SuperToolTip2 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem2 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 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 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() + Me.cmb_Config = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Config = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.lbl_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_Close = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Create = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_TDL_distro_www = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_TDL_distro = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_TDL_distro = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_TDL_distro = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_Explanation = New MKNetDXLib.ctl_MKDXLabel() + Me.gb_TDL_Menu_Entries = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_Emu_Games = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Emu_Games = New System.Windows.Forms.BindingSource(Me.components) + Me.gv_Emu_Games = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTDL_Show_in_Menu = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_TDL_Show_in_Menu = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit() + Me.colTDL_DisplayText = New DevExpress.XtraGrid.Columns.GridColumn() + Me.rpi_DisplayText = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.colTDL_Sort = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colInnerFile = New DevExpress.XtraGrid.Columns.GridColumn() + Me.btn_Move_Down = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Move_Up = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_Custom_Subtitle = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_Custom_Subtitle = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Custom_Subtitle_Display = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Custom_Subtitle_Warning = New MKNetDXLib.ctl_MKDXLabel() + CType(Me.cmb_Config.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Config, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_TDL_distro.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gb_TDL_Menu_Entries, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_TDL_Menu_Entries.SuspendLayout() + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_TDL_Show_in_Menu, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_DisplayText, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_Custom_Subtitle.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'cmb_Config + ' + Me.cmb_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_Config.EditValue = "-1" + Me.cmb_Config.Location = New System.Drawing.Point(172, 69) + Me.cmb_Config.MKBoundLabel = Nothing + Me.cmb_Config.MKEditValue_Compare = Nothing + Me.cmb_Config.Name = "cmb_Config" + ToolTipTitleItem1.Text = "Add new Config" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + ToolTipTitleItem2.Text = "Delete this Config" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + ToolTipTitleItem3.Text = "Edit this Config" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + Me.cmb_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.Plus, "", -1, True, True, False, DevExpress.XtraEditors.ImageLocation.MiddleCenter, Nothing, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, SuperToolTip1, 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, SuperToolTip2, 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, SuperToolTip3, True)}) + Me.cmb_Config.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Total_DOS_Launcher_Configs", "id_Total_DOS_Launcher_Configs", 180, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayName", "Display Name", 74, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("proglocations", "proglocations", 74, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("cachelocation", "cachelocation", 75, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("userlevel", "userlevel", 53, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("forcelogging", "forcelogging", 69, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("swapping", "swapping", 55, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("preloading", "preloading", 60, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("pauseafterrun", "pauseafterrun", 79, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("VESA", "VESA", 35, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_Config.Properties.DataSource = Me.BS_Config + Me.cmb_Config.Properties.DisplayMember = "DisplayName" + Me.cmb_Config.Properties.ShowFooter = False + Me.cmb_Config.Properties.ShowHeader = False + Me.cmb_Config.Properties.ValueMember = "id_Total_DOS_Launcher_Configs" + Me.cmb_Config.Size = New System.Drawing.Size(476, 20) + Me.cmb_Config.TabIndex = 21 + ' + 'BS_Config + ' + Me.BS_Config.DataMember = "tbl_Total_DOS_Launcher_Configs" + Me.BS_Config.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_Config + ' + Me.lbl_Config.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Config.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Config.Location = New System.Drawing.Point(4, 69) + Me.lbl_Config.MKBoundControl1 = Nothing + Me.lbl_Config.MKBoundControl2 = Nothing + Me.lbl_Config.MKBoundControl3 = Nothing + Me.lbl_Config.MKBoundControl4 = Nothing + Me.lbl_Config.MKBoundControl5 = Nothing + Me.lbl_Config.Name = "lbl_Config" + Me.lbl_Config.Size = New System.Drawing.Size(165, 20) + Me.lbl_Config.TabIndex = 20 + Me.lbl_Config.Text = "Configuration:" + ' + '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(573, 346) + Me.btn_Close.Name = "btn_Close" + Me.btn_Close.Size = New System.Drawing.Size(75, 23) + Me.btn_Close.TabIndex = 19 + Me.btn_Close.Text = "&Close" + ' + 'btn_Create + ' + Me.btn_Create.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_Create.Location = New System.Drawing.Point(495, 346) + Me.btn_Create.Name = "btn_Create" + Me.btn_Create.Size = New System.Drawing.Size(75, 23) + Me.btn_Create.TabIndex = 18 + Me.btn_Create.Text = "&Create" + ' + 'btn_TDL_distro_www + ' + Me.btn_TDL_distro_www.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_TDL_distro_www.Location = New System.Drawing.Point(609, 46) + Me.btn_TDL_distro_www.Name = "btn_TDL_distro_www" + Me.btn_TDL_distro_www.Size = New System.Drawing.Size(39, 20) + ToolTipTitleItem4.Text = "Total DOS Launcher .zip File" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Click here to open your web browser with the download site of Total DOS Launcher'" & + "s binary distribution" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + SuperToolTip4.Items.Add(ToolTipItem1) + Me.btn_TDL_distro_www.SuperTip = SuperToolTip4 + Me.btn_TDL_distro_www.TabIndex = 17 + Me.btn_TDL_distro_www.Text = "www" + ' + 'txb_TDL_distro + ' + Me.txb_TDL_distro.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_TDL_distro.Location = New System.Drawing.Point(172, 46) + Me.txb_TDL_distro.MKBoundLabel = Nothing + Me.txb_TDL_distro.MKEditValue_Compare = Nothing + Me.txb_TDL_distro.Name = "txb_TDL_distro" + Me.txb_TDL_distro.Properties.ReadOnly = True + Me.txb_TDL_distro.Size = New System.Drawing.Size(392, 20) + ToolTipTitleItem5.Text = "Total DOS Launcher .zip File" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Provide the TDL .zip file here. It is the Total DOS Launcher's binary distributio" & + "n which can be downloaded from https://github.com/MobyGamer/total-dos-launcher/r" & + "eleases" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem2) + Me.txb_TDL_distro.SuperTip = SuperToolTip5 + Me.txb_TDL_distro.TabIndex = 14 + ' + 'lbl_TDL_distro + ' + Me.lbl_TDL_distro.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_TDL_distro.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_TDL_distro.Location = New System.Drawing.Point(4, 46) + Me.lbl_TDL_distro.MKBoundControl1 = Nothing + Me.lbl_TDL_distro.MKBoundControl2 = Nothing + Me.lbl_TDL_distro.MKBoundControl3 = Nothing + Me.lbl_TDL_distro.MKBoundControl4 = Nothing + Me.lbl_TDL_distro.MKBoundControl5 = Nothing + Me.lbl_TDL_distro.Name = "lbl_TDL_distro" + Me.lbl_TDL_distro.Size = New System.Drawing.Size(165, 20) + ToolTipTitleItem6.Text = "Total DOS Launcher .zip File" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Provide the TDL .zip file here. It is the Total DOS Launcher's binary distributio" & + "n which can be downloaded from https://github.com/MobyGamer/total-dos-launcher/r" & + "eleases" + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem3) + Me.lbl_TDL_distro.SuperTip = SuperToolTip6 + Me.lbl_TDL_distro.TabIndex = 15 + Me.lbl_TDL_distro.Text = "Total DOS Launcher .zip File:" + ' + 'btn_TDL_distro + ' + Me.btn_TDL_distro.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_TDL_distro.Location = New System.Drawing.Point(567, 46) + Me.btn_TDL_distro.Name = "btn_TDL_distro" + Me.btn_TDL_distro.Size = New System.Drawing.Size(39, 20) + ToolTipTitleItem7.Text = "Total DOS Launcher .zip File" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "browse the Total DOS Launcher .zip file" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem4) + Me.btn_TDL_distro.SuperTip = SuperToolTip7 + Me.btn_TDL_distro.TabIndex = 16 + Me.btn_TDL_distro.Text = "..." + ' + '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.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(651, 42) + ToolTipTitleItem8.Text = "TDL distro Directory" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Provide the TDL distro Directory here. It is part of Total DOS Launcher's binary " & + "distribution which can be downloaded from https://github.com/MobyGamer/total-dos" & + "-launcher/releases" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem5) + Me.lbl_Explanation.SuperTip = SuperToolTip8 + Me.lbl_Explanation.TabIndex = 22 + Me.lbl_Explanation.Text = "Set up a Total DOS Launcher menu for the current game here." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Total DOS Launcher w" & + "ill be deployed under C:\_TDL_" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "TDL.EXE will then be set as the default executab" & + "le for launching the game." + ' + 'gb_TDL_Menu_Entries + ' + Me.gb_TDL_Menu_Entries.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_TDL_Menu_Entries.Controls.Add(Me.grd_Emu_Games) + Me.gb_TDL_Menu_Entries.Location = New System.Drawing.Point(3, 161) + Me.gb_TDL_Menu_Entries.Name = "gb_TDL_Menu_Entries" + Me.gb_TDL_Menu_Entries.Size = New System.Drawing.Size(645, 182) + Me.gb_TDL_Menu_Entries.TabIndex = 23 + Me.gb_TDL_Menu_Entries.Text = "Menu Entries" + ' + '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.Location = New System.Drawing.Point(2, 20) + 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_TDL_Show_in_Menu, Me.rpi_DisplayText}) + Me.grd_Emu_Games.Size = New System.Drawing.Size(641, 160) + Me.grd_Emu_Games.TabIndex = 0 + 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 + ' + 'gv_Emu_Games + ' + Me.gv_Emu_Games.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTDL_Show_in_Menu, Me.colTDL_DisplayText, Me.colTDL_Sort, Me.colInnerFile}) + Me.gv_Emu_Games.GridControl = Me.grd_Emu_Games + Me.gv_Emu_Games.Name = "gv_Emu_Games" + 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.colTDL_Sort, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'colTDL_Show_in_Menu + ' + Me.colTDL_Show_in_Menu.Caption = "Visible" + Me.colTDL_Show_in_Menu.ColumnEdit = Me.rpi_TDL_Show_in_Menu + Me.colTDL_Show_in_Menu.FieldName = "TDL_Show_in_Menu" + Me.colTDL_Show_in_Menu.Name = "colTDL_Show_in_Menu" + Me.colTDL_Show_in_Menu.OptionsColumn.AllowShowHide = False + Me.colTDL_Show_in_Menu.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colTDL_Show_in_Menu.OptionsColumn.ShowInCustomizationForm = False + Me.colTDL_Show_in_Menu.ToolTip = "If checked, the entry will be shown in the menu." + Me.colTDL_Show_in_Menu.Visible = True + Me.colTDL_Show_in_Menu.VisibleIndex = 0 + Me.colTDL_Show_in_Menu.Width = 49 + ' + 'rpi_TDL_Show_in_Menu + ' + Me.rpi_TDL_Show_in_Menu.AutoHeight = False + Me.rpi_TDL_Show_in_Menu.Name = "rpi_TDL_Show_in_Menu" + Me.rpi_TDL_Show_in_Menu.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + ' + 'colTDL_DisplayText + ' + Me.colTDL_DisplayText.Caption = "Menu Entry" + Me.colTDL_DisplayText.ColumnEdit = Me.rpi_DisplayText + Me.colTDL_DisplayText.FieldName = "TDL_DisplayText" + Me.colTDL_DisplayText.Name = "colTDL_DisplayText" + Me.colTDL_DisplayText.OptionsColumn.AllowShowHide = False + Me.colTDL_DisplayText.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colTDL_DisplayText.OptionsColumn.ShowInCustomizationForm = False + Me.colTDL_DisplayText.ToolTip = "Define here, how the menu entry should be shown in the menu." + Me.colTDL_DisplayText.Visible = True + Me.colTDL_DisplayText.VisibleIndex = 2 + Me.colTDL_DisplayText.Width = 290 + ' + 'rpi_DisplayText + ' + Me.rpi_DisplayText.AutoHeight = False + Me.rpi_DisplayText.MaxLength = 255 + Me.rpi_DisplayText.Name = "rpi_DisplayText" + ' + 'colTDL_Sort + ' + Me.colTDL_Sort.FieldName = "TDL_Sort" + Me.colTDL_Sort.Name = "colTDL_Sort" + Me.colTDL_Sort.OptionsColumn.AllowEdit = False + Me.colTDL_Sort.OptionsColumn.AllowShowHide = False + Me.colTDL_Sort.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colTDL_Sort.OptionsColumn.ReadOnly = True + Me.colTDL_Sort.OptionsColumn.ShowInCustomizationForm = False + ' + 'colInnerFile + ' + Me.colInnerFile.Caption = "File" + Me.colInnerFile.FieldName = "tmp_DOSBox_DisplayText" + Me.colInnerFile.Name = "colInnerFile" + Me.colInnerFile.OptionsColumn.AllowEdit = False + Me.colInnerFile.OptionsColumn.AllowShowHide = False + Me.colInnerFile.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.[False] + Me.colInnerFile.OptionsColumn.ReadOnly = True + Me.colInnerFile.OptionsColumn.ShowInCustomizationForm = False + Me.colInnerFile.Visible = True + Me.colInnerFile.VisibleIndex = 1 + Me.colInnerFile.Width = 148 + ' + '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.Location = New System.Drawing.Point(81, 346) + Me.btn_Move_Down.Name = "btn_Move_Down" + Me.btn_Move_Down.Size = New System.Drawing.Size(75, 23) + Me.btn_Move_Down.TabIndex = 25 + Me.btn_Move_Down.Text = "Move &down" + ' + '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.Location = New System.Drawing.Point(3, 346) + Me.btn_Move_Up.Name = "btn_Move_Up" + Me.btn_Move_Up.Size = New System.Drawing.Size(75, 23) + Me.btn_Move_Up.TabIndex = 24 + Me.btn_Move_Up.Text = "Move &up" + ' + 'txb_Custom_Subtitle + ' + Me.txb_Custom_Subtitle.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_Custom_Subtitle.Location = New System.Drawing.Point(172, 92) + Me.txb_Custom_Subtitle.MKBoundLabel = Nothing + Me.txb_Custom_Subtitle.MKEditValue_Compare = Nothing + Me.txb_Custom_Subtitle.Name = "txb_Custom_Subtitle" + Me.txb_Custom_Subtitle.Properties.Mask.EditMask = "The Total DOS Launcher.*" + Me.txb_Custom_Subtitle.Properties.MaxLength = 78 + Me.txb_Custom_Subtitle.Size = New System.Drawing.Size(476, 20) + Me.txb_Custom_Subtitle.TabIndex = 26 + ' + 'lbl_Custom_Subtitle + ' + Me.lbl_Custom_Subtitle.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Custom_Subtitle.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle.Location = New System.Drawing.Point(4, 92) + Me.lbl_Custom_Subtitle.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle.Name = "lbl_Custom_Subtitle" + Me.lbl_Custom_Subtitle.Size = New System.Drawing.Size(165, 20) + Me.lbl_Custom_Subtitle.TabIndex = 27 + Me.lbl_Custom_Subtitle.Text = "Custom Subtitle:" + ' + 'lbl_Custom_Subtitle_Display + ' + Me.lbl_Custom_Subtitle_Display.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_Custom_Subtitle_Display.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle_Display.Location = New System.Drawing.Point(172, 115) + Me.lbl_Custom_Subtitle_Display.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle_Display.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle_Display.Name = "lbl_Custom_Subtitle_Display" + Me.lbl_Custom_Subtitle_Display.Size = New System.Drawing.Size(476, 20) + Me.lbl_Custom_Subtitle_Display.TabIndex = 28 + Me.lbl_Custom_Subtitle_Display.Text = "The Total DOS Launcher%SUBTITLE%" + ' + 'lbl_Custom_Subtitle_Warning + ' + Me.lbl_Custom_Subtitle_Warning.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_Custom_Subtitle_Warning.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Custom_Subtitle_Warning.Location = New System.Drawing.Point(172, 138) + Me.lbl_Custom_Subtitle_Warning.MKBoundControl1 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl2 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl3 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl4 = Nothing + Me.lbl_Custom_Subtitle_Warning.MKBoundControl5 = Nothing + Me.lbl_Custom_Subtitle_Warning.Name = "lbl_Custom_Subtitle_Warning" + Me.lbl_Custom_Subtitle_Warning.Size = New System.Drawing.Size(476, 20) + Me.lbl_Custom_Subtitle_Warning.TabIndex = 29 + Me.lbl_Custom_Subtitle_Warning.Text = "Warning: this title will be truncated in the default VESA mode (max. 80 character" & + "s)" + Me.lbl_Custom_Subtitle_Warning.Visible = False + ' + 'frm_TDL_Create_Menu + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(651, 372) + Me.Controls.Add(Me.lbl_Custom_Subtitle_Warning) + Me.Controls.Add(Me.lbl_Custom_Subtitle_Display) + Me.Controls.Add(Me.lbl_Custom_Subtitle) + Me.Controls.Add(Me.txb_Custom_Subtitle) + Me.Controls.Add(Me.btn_Move_Down) + Me.Controls.Add(Me.btn_Move_Up) + Me.Controls.Add(Me.gb_TDL_Menu_Entries) + Me.Controls.Add(Me.lbl_Explanation) + Me.Controls.Add(Me.cmb_Config) + Me.Controls.Add(Me.lbl_Config) + Me.Controls.Add(Me.btn_Close) + Me.Controls.Add(Me.btn_Create) + Me.Controls.Add(Me.btn_TDL_distro_www) + Me.Controls.Add(Me.txb_TDL_distro) + Me.Controls.Add(Me.lbl_TDL_distro) + Me.Controls.Add(Me.btn_TDL_distro) + Me.Name = "frm_TDL_Create_Menu" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Create Total DOS Launcher Menu" + CType(Me.cmb_Config.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Config, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_TDL_distro.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gb_TDL_Menu_Entries, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_TDL_Menu_Entries.ResumeLayout(False) + CType(Me.grd_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gv_Emu_Games, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_TDL_Show_in_Menu, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_DisplayText, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_Custom_Subtitle.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents cmb_Config As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Config As BindingSource + Friend WithEvents DS_ML As DS_ML + Friend WithEvents lbl_Config As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_Close As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Create As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_TDL_distro_www As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents txb_TDL_distro As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_TDL_distro As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_TDL_distro As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_Explanation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents gb_TDL_Menu_Entries As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents grd_Emu_Games As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents BS_Emu_Games As BindingSource + Friend WithEvents gv_Emu_Games As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTDL_Show_in_Menu As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents rpi_TDL_Show_in_Menu As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit + Friend WithEvents colTDL_DisplayText As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTDL_Sort As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colInnerFile As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btn_Move_Down As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_Move_Up As MKNetDXLib.ctl_MKDXSimpleButton + Public WithEvents rpi_DisplayText As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents txb_Custom_Subtitle As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_Custom_Subtitle As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Custom_Subtitle_Display As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_Custom_Subtitle_Warning As MKNetDXLib.ctl_MKDXLabel +End Class diff --git a/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.resx b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.resx new file mode 100644 index 0000000..f4d4c51 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.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 + + + 10, 11 + + + 113, 10 + + + 202, 10 + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.vb b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.vb new file mode 100644 index 0000000..98e9194 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_TDL_Create_Menu.vb @@ -0,0 +1,785 @@ +Public Class frm_TDL_Create_Menu + + Public _row_Emu_Games As DS_ML.src_ucr_Emulation_GamesRow = Nothing + + Public _Destination_Path As String = "" + + Private _SuccessfullyCreated As Boolean = False + + Private _lbl_Custom_Subtitle_Display_Text As String = "" + + Public Sub New(ByRef row_Emu_Games As DS_ML.src_ucr_Emulation_GamesRow) + + InitializeComponent() + + Me._lbl_Custom_Subtitle_Display_Text = lbl_Custom_Subtitle_Display.Text + + Me._row_Emu_Games = row_Emu_Games + + Dim dt_cwd As New DataTable + + Dim sTDL_Distro_File = TC.NZ(cls_Settings.GetSetting("TDL_distro"), System.Windows.Forms.Application.StartupPath & "\Tools\total-dos-launcher.zip") + + If Alphaleonis.Win32.Filesystem.File.Exists(sTDL_Distro_File) Then + Me.txb_TDL_distro.EditValue = sTDL_Distro_File + End If + + DS_ML.Fill_tbl_Total_DOS_Launcher_Configs(Me.DS_ML.tbl_Total_DOS_Launcher_Configs) + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, Me.DS_ML.tbl_Emu_Games, Me._row_Emu_Games("id_Moby_Platforms"), Me._row_Emu_Games("id_Emu_Games"), Me._row_Emu_Games("id_Emu_Games"), cls_Globals.enm_Rombase_DOSBox_Filetypes.exe) + + dt_cwd = DS_ML.Fill_src_frm_Rom_Manager_Emu_Games(tran, Nothing, Me._row_Emu_Games("id_Moby_Platforms"), Me._row_Emu_Games("id_Emu_Games"), Me._row_Emu_Games("id_Emu_Games"), cls_Globals.enm_Rombase_DOSBox_Filetypes.cwd) + + If dt_cwd.Rows.Count > 0 Then + _Destination_Path = TC.NZ(dt_cwd.Rows(0)("Folder"), "") + End If + End Using + + Dim iMaxSort As Integer = -1 + + Dim arRowsRemove As New ArrayList + + DS_ML.Prepare_tmp_DOSBox_DisplayText(Me.DS_ML.tbl_Emu_Games, dt_cwd) + + For Each row As DS_ML.tbl_Emu_GamesRow In Me.DS_ML.tbl_Emu_Games.Rows + 'If the file is in a sub-folder, we want to display it that way: subfolder\file.ext + 'For Each row_cwd As DataRow In dt_cwd.Rows + ' If TC.NZ(row_cwd("Folder"), "") <> "" AndAlso row("Folder").ToString.Contains(row_cwd("Folder")) Then + ' row("InnerFile") = row("Folder").Replace(row_cwd("Folder"), "") & "\" & row("InnerFile") + ' End If + 'Next + + ''Packed content contains forward slashes, we want to display backward slashes, also we don't want a prepended backward slash + 'row("InnerFile") = MKNetLib.cls_MKStringSupport.Clean_Left(row("InnerFile").Replace("/", "\"), "\") + + If TC.NZ(row("TDL_DisplayText"), "") = "" Then + + row("TDL_DisplayText") = row("InnerFile") + + Try + row("TDL_DisplayText") = Alphaleonis.Win32.Filesystem.Path.GetFileNameWithoutExtension(row("TDL_DisplayText")) + Catch ex As Exception + + End Try + End If + + If TC.IsNullNothingOrEmpty(row("TDL_Show_in_Menu")) Then + row("TDL_Show_in_Menu") = True + End If + + If iMaxSort < TC.NZ(row("TDL_Sort"), 0) Then + iMaxSort = TC.NZ(row("TDL_Sort"), 0) + End If + + If row("InnerFile").tolower = "tdl.exe" Then + arRowsRemove.Add(row) + End If + Next + + 'We don't want to see TDL.exe in here + For Each row As DataRow In arRowsRemove + Me.DS_ML.tbl_Emu_Games.Rows.Remove(row) + Next + + iMaxSort += 1 + + For Each row As DS_ML.tbl_Emu_GamesRow In Me.DS_ML.tbl_Emu_Games.Rows + If TC.isNULL(row("TDL_Sort")) Then + row("TDL_Sort") = iMaxSort + iMaxSort += 1 + End If + Next + + Dim subtitle As Object = DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT TDL_Subtitle FROM tbl_Emu_Games WHERE id_Emu_Games = " & TC.getSQLFormat(row_Emu_Games("id_Emu_Games"))) + + If TC.isNULL(subtitle) Then + If TC.NZ(Me._row_Emu_Games("Game"), "") <> "" Then + Me.txb_Custom_Subtitle.EditValue = ": " & TC.NZ(Me._row_Emu_Games("Game"), "") + End If + Else + If TC.NZ(subtitle, "") <> "" Then + Me.txb_Custom_Subtitle.EditValue = TC.NZ(subtitle, "") + End If + End If + + Me.txb_Custom_Subtitle_EditValueChanged(Nothing, Nothing) + End Sub + + Private Sub frm_TDL_Create_Menu_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If _Destination_Path = "" Then + MKNetDXLib.cls_MKDXHelper.MessageBox("The game doesn't seem to have a working directory, aborting.", "Directory not defined", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.Close() + Return + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(_Destination_Path) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("The working directory '" & _Destination_Path & "' could not be found, aborting.", "Directory not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.Close() + Return + End If + End Sub + + Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click + If Not _SuccessfullyCreated Then + Me.DialogResult = DialogResult.Cancel + Else + Me.DialogResult = DialogResult.OK + End If + Me.Close() + End Sub + + Private Sub btn_TDL_distro_www_Click(sender As Object, e As EventArgs) Handles btn_TDL_distro_www.Click + cls_Globals.OpenURL("https://github.com/MobyGamer/total-dos-launcher/releases") + End Sub + + Private Sub btn_TDL_distro_Click(sender As Object, e As EventArgs) Handles btn_TDL_distro.Click + Dim sFile As String = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse Total DOS Launcher .zip File", "*.zip|*.zip", ParentForm:=Me) + + If Not Alphaleonis.Win32.Filesystem.File.Exists(sFile) Then + Return + End If + + cls_Settings.SetSetting("TDL_distro", sFile) + + Me.txb_TDL_distro.EditValue = sFile + End Sub + + Private Sub Refill_Total_DOS_Launcher_Configs() + Me.DS_ML.tbl_Total_DOS_Launcher_Configs.Clear() + DS_ML.Fill_tbl_Total_DOS_Launcher_Configs(Me.DS_ML.tbl_Total_DOS_Launcher_Configs) + End Sub + + Private Sub cmb_Config_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_Config.ButtonClick + Select Case e.Button.Kind + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Plus + 'Add TDL Config + Using frm As New frm_Total_DOS_Launcher_Config_Edit + If frm.ShowDialog = DialogResult.OK Then + Dim id_Total_DOS_Launcher_Configs As Int64 = 0L + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + id_Total_DOS_Launcher_Configs = DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + If id_Total_DOS_Launcher_Configs > 0L Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(Me.BS_Config, "id_Total_DOS_Launcher_Configs", id_Total_DOS_Launcher_Configs) + End If + End If + End Using + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Minus + 'Delete TDL Config + + If TC.NZ(Me.BS_Config.Current("id_Total_DOS_Launcher_Configs"), 0) < 0 Then + MKDXHelper.MessageBox("The selected Total DOS Launcher Configuration cannot be deleted because it is shipped with Metropolis Launcher.", "Delete Total DOS Launcher Configuration", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + + Dim id_Total_DOS_Launcher_Configs As Int64 = Me.BS_Config.Current("id_Total_DOS_Launcher_Configs") + + If MKDXHelper.MessageBox("Do you really want to delete this Total DOS Launcher Configuration?", "Delete Total DOS Launcher Configuration", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + + + Dim sSQL As String = "" + sSQL &= "DELETE FROM tbl_Total_DOS_Launcher_Configs WHERE id_Total_DOS_Launcher_Configs = " & TC.getSQLFormat(id_Total_DOS_Launcher_Configs) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + + Me.cmb_Config.EditValue = Nothing + Refill_Total_DOS_Launcher_Configs() + If BS_Config.Current IsNot Nothing Then + Me.cmb_Config.EditValue = BS_Config.Current("id_Total_DOS_Launcher_Configs") + End If + Case DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis + 'Edit TDL Config + If BS_Config.Current Is Nothing Then + Return + End If + Using frm As New frm_Total_DOS_Launcher_Config_Edit(Me.BS_Config.Current("id_Total_DOS_Launcher_Configs")) + If frm.ShowDialog = DialogResult.OK Then + If BS_Config.Current("id_Total_DOS_Launcher_Configs") > 0 Then + 'Edit (a user's TDL config was edited) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue, Me.BS_Config.Current("id_Total_DOS_Launcher_Configs")) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + ElseIf BS_Config.Current("id_Total_DOS_Launcher_Configs") < 0 Then + 'Add (a shipped TDL Config was edited) + Dim id_Total_DOS_Launcher_Configs As Int64 = 0L + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + id_Total_DOS_Launcher_Configs = DS_ML.Upsert_tbl_Total_DOS_Launcher_Configs(tran, frm.txb_DisplayName.Text.Trim, frm.txb_proglocations.Text.Trim, frm.txb_cachelocation.Text.Trim, TC.NZ(frm.cmb_userlevel.EditValue, ""), frm.chb_forcelogging.Checked, frm.chb_swapping.Checked, frm.chb_preloading.Checked, frm.chb_pauseafterrun.Checked, frm.cmb_VESA.EditValue) + tran.Commit() + End Using + Refill_Total_DOS_Launcher_Configs() + If id_Total_DOS_Launcher_Configs > 0L Then + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(Me.BS_Config, "id_Total_DOS_Launcher_Configs", id_Total_DOS_Launcher_Configs) + End If + End If + End If + End Using + + End Select + + End Sub + + Private Function Validate_TDL_distro(ByVal path As String) As String + Return "" + End Function + + Private Sub btn_Create_Click(sender As Object, e As EventArgs) Handles btn_Create.Click + If Not Alphaleonis.Win32.Filesystem.File.Exists(txb_TDL_distro.Text) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Total DOS Launcher .zip file does not exist.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Dim sValidationResult As String = Validate_TDL_distro(txb_TDL_distro.Text) + + If sValidationResult <> "" Then + MKNetDXLib.cls_MKDXHelper.MessageBox(sValidationResult, "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(_Destination_Path) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Destination directory does not exist.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + Me.Export() + End Sub + + Public Class cls_TDL_Entry + Public Shared BatchCounter As Integer = 0 + + Public _foundfile As String 'Source filenames with full paths and extensions + Public _baseFile As String 'Source filenames with extensions (no paths) + Public _title As Byte() 'Title within TDL's menu (as defined by the user) + Public _sort As Integer + Public _DOSname As String 'DOS (8.3) filename + + Public _batchName As String 'a (unique) name of the batch file especially created for this game (will be placed under _TDL_\BATCHES) + + Public _row_Emu_Games As DataRow + + Public Sub New(ByRef row_Emu_Games As DataRow) + Me._row_Emu_Games = row_Emu_Games + Me._foundfile = row_Emu_Games("tmp_DOSBox_DisplayText") + Me._baseFile = Alphaleonis.Win32.Filesystem.Path.GetFileName(_foundfile) + Me._sort = TC.NZ(row_Emu_Games("TDL_Sort"), 0) + + Me._title = System.Text.Encoding.ASCII.GetBytes(row_Emu_Games("TDL_DisplayText")) + + BatchCounter += 1 + Me._batchName = BatchCounter.ToString & ".BAT" + End Sub + End Class + + Public Class cls_TDL_Entry_Comparer + Implements IComparer + + Private Function IComparer_Compare(x As Object, y As Object) As Integer Implements IComparer.Compare + Return x._sort < y._sort + End Function + End Class + + Private Function Create_TDL_INI(ByVal path As String, ByVal proglocations As String) As Boolean + Dim sb_TDL_INI As New System.Text.StringBuilder + + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("/// TDL.INI created by Metropolis Launcher") + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("/// This is the TDL configuration file, which is read on startup and used") + sb_TDL_INI.AppendLine("/// to configure how TDL operates, where archive files are found, etc.") + sb_TDL_INI.AppendLine("/// Please read the descriptions for each setting before making changes.") + sb_TDL_INI.AppendLine("///") + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("[prefs]") + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; PATH-like variable that specifies where TDL can find the archive files") + sb_TDL_INI.AppendLine("; prepared by the indexer and copied over to the vintage system.") + sb_TDL_INI.AppendLine("; Multiple locations are allowed to get past the FAT16 2-gigabyte limit.") + sb_TDL_INI.AppendLine("; (DOS limitations cap this path string at 80 characters -- do not exceed!)") + + sb_TDL_INI.AppendLine("proglocations=" & proglocations) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine(";Cache directory location. This is where archives (.zip files, etc.) are") + sb_TDL_INI.AppendLine(";decompressed into. If you want to save your game, hi scores, etc., then") + sb_TDL_INI.AppendLine(";this should be a permanent directory on a hard disk. If you don't care") + sb_TDL_INI.AppendLine(";about retaining files, you can put this on a RAM disk.") + + sb_TDL_INI.AppendLine("cachelocation=" & Me.BS_Config.Current("cachelocation")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL can operate in three user modes:") + sb_TDL_INI.AppendLine("; - REGULAR is the default and recommended mode, where the TDL will try") + sb_TDL_INI.AppendLine("; to make educated decisions where applicable.") + sb_TDL_INI.AppendLine("; - POWER displays more messages, copies the debug log to a text logfile,") + sb_TDL_INI.AppendLine("; and generally gives more control.") + sb_TDL_INI.AppendLine("; - KIOSK is meant for shows, conventions, and museums; it disables features") + sb_TDL_INI.AppendLine("; that could confuse novice users, and makes as many decisions on behalf") + sb_TDL_INI.AppendLine("; of the user as possible. ctrl-alt-delete is trapped and disabled.") + sb_TDL_INI.AppendLine("; Finally, the TDL cannot be exited in this mode.") + sb_TDL_INI.AppendLine("; It is highly recommended you run in REGULAR mode unless instructed otherwise.") + + sb_TDL_INI.AppendLine("userlevel=" & Me.BS_Config.Current("userlevel")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; Being a power user copies the debug log into a text file. You can force") + sb_TDL_INI.AppendLine("; this behavior ON for all user levels for troubleshooting purposes.") + + sb_TDL_INI.AppendLine("forcelogging=" & IIf(Me.BS_Config.Current("forcelogging"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL swaps itself into EMS, XMS, extended memory, or disk when launching a") + sb_TDL_INI.AppendLine("; program. If you suspect this is causing problems, you can turn it off, but") + sb_TDL_INI.AppendLine("; you will have less DOS RAM available for running your program.") + + sb_TDL_INI.AppendLine("swapping=" & IIf(Me.BS_Config.Current("swapping"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL normally preloads data into system RAM to increase operating speed.") + sb_TDL_INI.AppendLine("; If you have a very large number of titles loaded (over 10,000) and do") + sb_TDL_INI.AppendLine("; not have any EMS or XMS memory configured, you might run out of low DOS") + sb_TDL_INI.AppendLine("; RAM. You can disable preloading to force the TDL to work, but if your") + sb_TDL_INI.AppendLine("; hard disk is a slow device, it could operate very slowly. (Generally,") + sb_TDL_INI.AppendLine("; don't disable preloading unless you experience memory errors.)") + + sb_TDL_INI.AppendLine("preloading=" & IIf(Me.BS_Config.Current("preloading"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL normally returns to the menu after execution. You can change this") + sb_TDL_INI.AppendLine("; behavior to waiting for user input, so that the user can read the screen") + sb_TDL_INI.AppendLine("; before returning.") + + sb_TDL_INI.AppendLine("pauseafterrun=" & IIf(Me.BS_Config.Current("pauseafterrun"), "enabled", "disabled")) + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL uses the text mode already set up in DOS. If you'd like the TDL to") + sb_TDL_INI.AppendLine("; initialize an extended VESA text mode, you can enter which mode here.") + sb_TDL_INI.AppendLine("; Tested VESA text modes include:") + sb_TDL_INI.AppendLine("; 108h 80x60") + sb_TDL_INI.AppendLine("; 109h 132x25") + sb_TDL_INI.AppendLine("; 10Ah 132x43") + sb_TDL_INI.AppendLine("; 10Bh 132x50") + sb_TDL_INI.AppendLine("; 10Ch 132x60") + sb_TDL_INI.AppendLine("; You must enter the mode number in hex, ie. 108h") + + If TC.NZ(Me.BS_Config.Current("VESA"), "") = "" Then + sb_TDL_INI.AppendLine(";VESA=10Ch") + Else + sb_TDL_INI.AppendLine("VESA=" & Me.BS_Config.Current("VESA")) + End If + + sb_TDL_INI.AppendLine("") + sb_TDL_INI.AppendLine("; TDL can display an optional subtitle after the main title.") + sb_TDL_INI.AppendLine("; For example, instead of the default ""The Total DOS Launcher"", you can") + sb_TDL_INI.AppendLine("; add a subheader "" - Action Games"", so that the title now becomes") + sb_TDL_INI.AppendLine("; ""The Total DOS Launcher - Action Games"". (Note how the "" - "" separator") + sb_TDL_INI.AppendLine("; was part of the defined string; you can use whatever separator you want,") + sb_TDL_INI.AppendLine("; such as "": "".) This is useful for building several sub-collections or") + sb_TDL_INI.AppendLine("; anthologies you want grouped together. Some examples below; uncomment") + sb_TDL_INI.AppendLine("; and modify to use:") + sb_TDL_INI.AppendLine(";subheader= - Action Games") + sb_TDL_INI.AppendLine(";subheader=: Sierra AGI Anthology") + sb_TDL_INI.AppendLine(";subheader= -=- iD Anthology: Vintage") + + If TC.NZ(Me.txb_Custom_Subtitle.EditValue, "") <> "" Then + Dim sSubtitle As String = txb_Custom_Subtitle.Text.Trim() + If Not sSubtitle.StartsWith(":") Then + sSubtitle = " " & sSubtitle + End If + + sSubtitle = System.Text.Encoding.Default.GetString(System.Text.Encoding.ASCII.GetBytes(sSubtitle)) + sb_TDL_INI.AppendLine("subheader=" & sSubtitle) + End If + + Dim sError As String = "" + If Not MKNetLib.cls_MKFileSupport.SaveTextToFile(sb_TDL_INI.ToString, path, sError) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while writing " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Return True + End Function + + Public Function Unpack_TDL_Distro(ByVal path As String) As Boolean + Dim file As String = Me.txb_TDL_distro.Text + If Not Alphaleonis.Win32.Filesystem.File.Exists(file) Then + 'File not found + MKDXHelper.MessageBox("The Total DOS Launcher binary release file '" & file & "' could not be found.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + Else + 'Unpack + Try + Dim archive As SharpCompress.Archive.IArchive = SharpCompress.Archive.ArchiveFactory.Open(file) + + For Each archive_entry As SharpCompress.Archive.IArchiveEntry In archive.Entries + If Not archive_entry.IsDirectory AndAlso archive_entry.FilePath.ToLower.Contains("/distro") AndAlso Not archive_entry.FilePath.ToLower.Contains("tdl.ini") Then + Dim innerPath As String = MKNetLib.cls_MKRegex.GetMatches(archive_entry.FilePath, ".*?distro/(.*)")(0).Groups(1).Value + Dim arInnerPath As String() = innerPath.Split("/") + + Dim destinationPath As String = path + + If arInnerPath.Length > 1 Then + 'We have some "inner" directories to take care of + For i As Integer = 0 To arInnerPath.Length - 2 + destinationPath &= "\" & arInnerPath(i) + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(destinationPath) Then + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(destinationPath) + End If + Next + End If + + SharpCompress.Archive.IArchiveEntryExtensions.WriteToDirectory(archive_entry, destinationPath, SharpCompress.Common.ExtractOptions.Overwrite) + End If + Next + Catch ex As Exception + MKDXHelper.ExceptionMessageBox(ex, "There has been an exception while unpacking " & file & "." & ControlChars.CrLf & "The error was: ", "Error") + Return False + End Try + + Return True + End If + End Function + + Public Function Rebuild_HANDLERS_INI(path) As Boolean + If Not Alphaleonis.Win32.Filesystem.File.Exists(path) Then + MKDXHelper.MessageBox("Error: The Total DOS Launcher distro does not contain a HANDLERS.INI file.", "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Dim sError As String = "" + Dim sContents As String = MKNetLib.cls_MKFileSupport.GetFileContents(path, sError) + If sError <> "" Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while reading " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Dim arContents = sContents.Split(ControlChars.Lf) + + Dim sbNewContents As New System.Text.StringBuilder + + For Each sLine In arContents + sbNewContents.AppendLine(sLine.Trim) + + If sLine.Trim = "[END]" Then + Exit For + End If + Next + + If Not MKNetLib.cls_MKFileSupport.SaveTextToFile(sbNewContents.ToString, path, sError) Then + MKNetDXLib.cls_MKDXHelper.MessageBox("ERROR while writing " & path & ": " & sError, "Export", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return False + End If + + Return True + End Function + + Private Function Create_proglocations(arTDLEntries As ArrayList) As String + Dim arProglocations As New ArrayList + arProglocations.Add("..") + + Dim sProglocations As String = ".." + + For Each tdlEntry As cls_TDL_Entry In arTDLEntries + Dim parts = tdlEntry._foundfile.Split("\") + + If parts.Count > 1 Then + Dim path As String = ".." + + For i As Integer = 0 To parts.Count - 2 + path &= "\" & parts(i) + Next + + If Not arProglocations.Contains(path) Then + arProglocations.Add(path) + sProglocations &= ";" & path + End If + End If + Next + + Return sProglocations + End Function + + Private Sub Export() + Dim arDOSNames As New ArrayList + Dim arTDLEntries As New ArrayList + + cls_TDL_Entry.BatchCounter = 0 + + For Each row_game As DataRow In Me.DS_ML.tbl_Emu_Games.Rows + If TC.NZ(row_game("TDL_Show_in_Menu"), False) = True Then + arTDLEntries.Add(New cls_TDL_Entry(row_game)) + End If + Next + + arTDLEntries.Sort(New cls_TDL_Entry_Comparer()) + + 'BUILD UP proglocations + Dim useBatches As Boolean = False + + Dim proglocations = Create_proglocations(arTDLEntries) + + If proglocations.Length > 80 Then + useBatches = True + End If + + 'Find unique DOS names for each entry, if not possible set it to "" + If Not useBatches Then + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + Dim filenameWithExtension As String = tdl_entry._baseFile + + If arDOSNames.Contains(filenameWithExtension) Then + 'MKNetDXLib.cls_MKDXHelper.MessageBox("Unfortunately, " & tdl_entry._baseFile & " can't be added, because it is a duplicate.", "Create Total DOS Launcher Menu", MessageBoxButtons.OK, MessageBoxIcon.Warning) + 'tdl_entry._DOSname = "" + useBatches = True 'we revert to using batches so we can have unique DOS names + Exit For + End If + + arDOSNames.Add(filenameWithExtension) + tdl_entry._DOSname = filenameWithExtension.ToUpper + Next + End If + + 'Use Batches instead of the actual executables (which themselves however could also be batches) + If useBatches Then + proglocations = "BATCHES" + arDOSNames.Clear() + + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + Dim filenameWithExtension As String = tdl_entry._batchName + arDOSNames.Add(filenameWithExtension) + tdl_entry._DOSname = filenameWithExtension.ToUpper + Next + End If + + Dim tdlPath As String = Me._Destination_Path & "\_TDL_" + + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(tdlPath) Then + Try + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(tdlPath) + Catch ex As Exception + MKNetDXLib.cls_MKDXHelper.ExceptionMessageBox(ex) + Return + End Try + End If + + 'Create BATCHES subdir and the individual Batch files + If useBatches Then + Try + Alphaleonis.Win32.Filesystem.Directory.CreateDirectory(tdlPath & "\BATCHES") + + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + Dim sbContent As String = "" + + sbContent &= "@ECHO OFF" + sbContent &= ControlChars.CrLf & "REM -------------------------------------------------------------------" + sbContent &= ControlChars.CrLf & "REM --- Batch created by Metropolis Launcher for Total DOS Launcher ---" + sbContent &= ControlChars.CrLf & "REM -------------------------------------------------------------------" + sbContent &= ControlChars.CrLf + sbContent &= ControlChars.CrLf & "ECHO Launching " & System.Text.Encoding.ASCII.GetString(tdl_entry._title) + sbContent &= ControlChars.CrLf + + sbContent &= ControlChars.CrLf & "CD .." 'CD to _TDL_ + sbContent &= ControlChars.CrLf & "CD .." 'CD to "root" + + Dim splitPath As String() = tdl_entry._foundfile.Split("\") + + For i As Integer = 0 To splitPath.Length - 1 + If i = splitPath.Length - 1 Then + sbContent &= ControlChars.CrLf & splitPath(i) + Else + sbContent &= ControlChars.CrLf & "CD " & splitPath(i) + End If + Next + + Dim errinfo As String = "" + MKNetLib.cls_MKFileSupport.SaveTextToFile(sbContent, tdlPath & "\BATCHES\" & tdl_entry._batchName) + If errinfo <> "" Then + Throw New Exception(errinfo) + End If + Next + Catch ex As Exception + MKNetDXLib.cls_MKDXHelper.ExceptionMessageBox(ex) + Return + End Try + End If + + 'extract TDL distro from TDL .zip file + If Not Me.Unpack_TDL_Distro(tdlPath) Then + Return + End If + + 'rebuild HANDLERS.INI (CrLf line endings) + If Not Me.Rebuild_HANDLERS_INI(tdlPath & "\HANDLERS.INI") Then + Return + End If + + 'Dim proglocations = Create_proglocations(arTDLEntries) + + 'If proglocations.Length > 80 Then + ' MKNetDXLib.cls_MKDXHelper.MessageBox("Unfortunately, Total DOS Launcher only accepts proglocations to be max. 80 characters. The current menu definition demands the following proglocations: '" & proglocations & "' this is too long (" & proglocations.Length & " characters).", "Create Total DOS Launcher Menu", MessageBoxButtons.OK, MessageBoxIcon.Warning) + ' Return + 'End If + + 'build TDL.INI from tbl_Total_DOS_Launcher_Configs entry + If Not Me.Create_TDL_INI(tdlPath & "\TDL.INI", proglocations) Then + Return + End If + + 'Create FILES.IDX + Using bw As System.IO.BinaryWriter = New System.IO.BinaryWriter(System.IO.File.Open(tdlPath & "\" & "FILES.IDX", System.IO.FileMode.Create)) + bw.Write(CType(arDOSNames.Count, UShort)) + + Dim idx As UShort = 0 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + bw.Write(idx) + bw.Write(System.Text.Encoding.ASCII.GetBytes(tdl_entry._DOSname.PadRight(12, vbNullChar))) + + idx = idx + 1 + Next + End Using + + 'Create TITLES.IDX + Using bw As System.IO.BinaryWriter = New System.IO.BinaryWriter(System.IO.File.Open(tdlPath & "\" & "TITLES.IDX", System.IO.FileMode.Create)) + bw.Write(CType(arDOSNames.Count, UShort)) + + 'curofs=2+(len(titles)*4) #real starting offset is past the offset structure itself + Dim arOffsets As New ArrayList + Dim curofs As Integer = 2 + arDOSNames.Count * 4 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + arOffsets.Add(curofs) + curofs = curofs + (2 + 16 + 1 + tdl_entry._title.Length) + Next + + For Each offset In arOffsets + bw.Write(CType(offset, UInt32)) + Next + + Dim idx As UShort = 0 + For Each tdl_entry As cls_TDL_Entry In arTDLEntries + If tdl_entry._DOSname = "" Then + Continue For + End If + + bw.Write(idx) + + 'TODO: write MD5 hash of title + bw.Write(System.Text.Encoding.ASCII.GetBytes("0123456789ABCDEF")) + + bw.Write(CType(tdl_entry._title.Length, Byte)) + + bw.Write(tdl_entry._title) + + idx = idx + 1 + Next + End Using + + 'rescan must NOT scan more than the TDL.EXE under _TDL_ + Try + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + frm_Rom_Manager.Rescan_DOSBox_Game(Me._row_Emu_Games("id_Emu_Games"), tran) + tran.Commit() + End Using + Catch ex As Exception + ' + End Try + + 'save to tbl_Emu_Games + For Each row_Emu_Game As DS_ML.tbl_Emu_GamesRow In DS_ML.tbl_Emu_Games + Dim sSQL As String = "UPDATE tbl_Emu_Games SET" & controlchars.CrLf + + sSQL &= "TDL_DisplayText = " & TC.getSQLFormat(row_Emu_Game.TDL_DisplayText) & ControlChars.CrLf + sSQL &= ", TDL_Show_in_Menu = " & TC.getSQLFormat(row_Emu_Game.TDL_Show_in_Menu) & ControlChars.CrLf + sSQL &= ", TDL_Sort = " & TC.getSQLFormat(row_Emu_Game.TDL_Sort) & ControlChars.CrLf + + sSQL &= "WHERE id_Emu_Games = " & row_Emu_Game("id_Emu_Games") + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQL) + Next + + If Not TC.isNULL(Me.txb_Custom_Subtitle.EditValue) AndAlso Not Me.txb_Custom_Subtitle.EditValue Is Nothing Then + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET TDL_Subtitle = " & TC.getSQLFormat(Me.txb_Custom_Subtitle.EditValue) & " WHERE id_Emu_Games = " & TC.getSQLFormat(Me._row_Emu_Games("id_Emu_Games"))) + Else + DataAccess.FireProcedure(cls_Globals.Conn, 0, "UPDATE tbl_Emu_Games SET TDL_Subtitle = NULL WHERE id_Emu_Games = " & TC.getSQLFormat(Me._row_Emu_Games("id_Emu_Games"))) + End If + + _SuccessfullyCreated = True + + MKNetDXLib.cls_MKDXHelper.MessageBox("Total DOS Launcher menu created.", "Create Total DOS Launcher Menu", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Sub + + Private Sub btn_Move_Up_Click(sender As Object, e As EventArgs) Handles btn_Move_Up.Click + If BS_Emu_Games.Current Is Nothing Then + Return + End If + + Dim currentSort As Integer = BS_Emu_Games.Current("TDL_Sort") + For Each row_Emu_Games As DataRow In DS_ML.tbl_Emu_Games.Rows + If row_Emu_Games("TDL_Sort") = currentSort - 1 Then + row_Emu_Games("TDL_Sort") = currentSort + BS_Emu_Games.Current("TDL_Sort") = currentSort - 1 + End If + Next + End Sub + + Private Sub btn_Move_Down_Click(sender As Object, e As EventArgs) Handles btn_Move_Down.Click + If BS_Emu_Games.Current Is Nothing Then + Return + End If + + Dim currentSort As Integer = BS_Emu_Games.Current("TDL_Sort") + For Each row_Emu_Games As DataRow In DS_ML.tbl_Emu_Games.Rows + If row_Emu_Games("TDL_Sort") = currentSort + 1 Then + row_Emu_Games("TDL_Sort") = currentSort + BS_Emu_Games.Current("TDL_Sort") = currentSort + 1 + End If + Next + End Sub + + Private Sub txb_Custom_Subtitle_EditValueChanged(sender As Object, e As EventArgs) Handles txb_Custom_Subtitle.EditValueChanged + Dim sSubtitle As String = txb_Custom_Subtitle.Text.Trim() + If Not sSubtitle.StartsWith(":") Then + sSubtitle = " " & sSubtitle + End If + + sSubtitle = System.Text.Encoding.Default.GetString(System.Text.Encoding.ASCII.GetBytes(sSubtitle)) + + Me.lbl_Custom_Subtitle_Display.Text = _lbl_Custom_Subtitle_Display_Text.Replace("%SUBTITLE%", sSubtitle) + End Sub + + Private Sub Update_Custom_Subtitle_Warning() + Me.lbl_Custom_Subtitle_Warning.Visible = False + + If Me.BS_Config.Current Is Nothing Then + Return + End If + + If lbl_Custom_Subtitle_Display.Text.Length > 78 Then + Dim vesaMode As String = TC.NZ(Me.BS_Config.Current("VESA"), "") + + If {"", "108h"}.Contains(vesaMode) Then + Me.lbl_Custom_Subtitle_Warning.Visible = True + End If + End If + End Sub + + Private Sub lbl_Custom_Subtitle_Display_TextChanged(sender As Object, e As EventArgs) Handles lbl_Custom_Subtitle_Display.TextChanged + Update_Custom_Subtitle_Warning() + End Sub + + Private Sub BS_Config_CurrentChanged(sender As Object, e As EventArgs) Handles BS_Config.CurrentChanged + Update_Custom_Subtitle_Warning() + End Sub +End Class \ 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 index f65a1fd..481b49d 100644 --- a/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.vb +++ b/Metropolis_Launcher/Forms/frm_Tag_Parser_Edit.vb @@ -628,9 +628,11 @@ 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) + If e.RowHandle >= 0 Then + 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 If End Sub @@ -1160,11 +1162,15 @@ 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) + If findindex <> -1 Then + 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) + Else + Me.lbl_Found_In_Left.Text = filename + End If - End Sub + 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) diff --git a/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.Designer.vb new file mode 100644 index 0000000..71a5cb6 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.Designer.vb @@ -0,0 +1,713 @@ + _ +Partial Class frm_Total_DOS_Launcher_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 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_Total_DOS_Launcher_Config_Edit)) + Dim ToolTipTitleItem4 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip4 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 ToolTipTitleItem6 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip5 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 ToolTipTitleItem8 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip6 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 ToolTipTitleItem10 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip7 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem11 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem7 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem12 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip8 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem13 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem14 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip9 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 ToolTipTitleItem16 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + 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() + Dim SuperToolTip12 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem21 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem12 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip13 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem23 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem13 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip14 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem26 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip15 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem27 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem15 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem28 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip16 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem29 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem16 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem30 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem31 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem17 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem32 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip18 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem33 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim ToolTipItem18 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipTitleItem34 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Me.lbl_DisplayName = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_DisplayName = New MKNetDXLib.ctl_MKDXTextEdit() + Me.BS_Total_DOS_Launcher_Configs = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + Me.lbl_proglocations = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_proglocations = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_cachelocation = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_cachelocation = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_userlevel = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_userlevel = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_userlevel = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.DataTable1 = New System.Data.DataTable() + Me.DataColumn1 = New System.Data.DataColumn() + Me.lbl_forcelogging = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_forcelogging = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_swapping = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_swapping = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_preloading = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_preloading = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_pauseafterrun = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_pauseafterrun = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_VESA = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_VESA = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_VESA_Modes = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.DataTable2 = New System.Data.DataTable() + Me.DataColumn2 = New System.Data.DataColumn() + Me.DataColumn3 = New System.Data.DataColumn() + CType(Me.txb_DisplayName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Total_DOS_Launcher_Configs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_proglocations.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_cachelocation.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_userlevel.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_userlevel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_forcelogging.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_swapping.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_preloading.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_pauseafterrun.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_VESA.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_VESA_Modes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl_DisplayName + ' + Me.lbl_DisplayName.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_DisplayName.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_DisplayName.Location = New System.Drawing.Point(3, 3) + 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.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem1.Text = "Name" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "The Name of the Total DOS Launcher Configuration" + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.lbl_DisplayName.SuperTip = SuperToolTip1 + Me.lbl_DisplayName.TabIndex = 13 + Me.lbl_DisplayName.Text = "Name:" + ' + 'txb_DisplayName + ' + Me.txb_DisplayName.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_DisplayName.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "DisplayName", True)) + Me.txb_DisplayName.Location = New System.Drawing.Point(121, 3) + Me.txb_DisplayName.MKBoundLabel = Nothing + Me.txb_DisplayName.MKEditValue_Compare = Nothing + Me.txb_DisplayName.Name = "txb_DisplayName" + Me.txb_DisplayName.Size = New System.Drawing.Size(290, 20) + ToolTipTitleItem2.Text = "Name" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "The Name of the Total DOS Launcher Configuration" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.txb_DisplayName.SuperTip = SuperToolTip2 + Me.txb_DisplayName.TabIndex = 12 + ' + 'BS_Total_DOS_Launcher_Configs + ' + Me.BS_Total_DOS_Launcher_Configs.DataMember = "tbl_Total_DOS_Launcher_Configs" + Me.BS_Total_DOS_Launcher_Configs.DataSource = Me.DS_ML + ' + 'DS_ML + ' + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'lbl_proglocations + ' + Me.lbl_proglocations.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_proglocations.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_proglocations.Location = New System.Drawing.Point(3, 26) + Me.lbl_proglocations.MKBoundControl1 = Nothing + Me.lbl_proglocations.MKBoundControl2 = Nothing + Me.lbl_proglocations.MKBoundControl3 = Nothing + Me.lbl_proglocations.MKBoundControl4 = Nothing + Me.lbl_proglocations.MKBoundControl5 = Nothing + Me.lbl_proglocations.Name = "lbl_proglocations" + Me.lbl_proglocations.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem3.Text = "Program Locations" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = resources.GetString("ToolTipItem3.Text") + ToolTipTitleItem4.LeftIndent = 6 + ToolTipTitleItem4.Text = "TDL.INI entry: proglocations" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem3) + SuperToolTip3.Items.Add(ToolTipTitleItem4) + Me.lbl_proglocations.SuperTip = SuperToolTip3 + Me.lbl_proglocations.TabIndex = 15 + Me.lbl_proglocations.Text = "Program Locations:" + ' + 'txb_proglocations + ' + Me.txb_proglocations.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_proglocations.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "proglocations", True)) + Me.txb_proglocations.Location = New System.Drawing.Point(121, 26) + Me.txb_proglocations.MKBoundLabel = Nothing + Me.txb_proglocations.MKEditValue_Compare = Nothing + Me.txb_proglocations.Name = "txb_proglocations" + Me.txb_proglocations.Properties.MaxLength = 80 + Me.txb_proglocations.Size = New System.Drawing.Size(290, 20) + ToolTipTitleItem5.Text = "Program Locations" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = resources.GetString("ToolTipItem4.Text") + ToolTipTitleItem6.LeftIndent = 6 + ToolTipTitleItem6.Text = "TDL.INI entry: proglocations" + SuperToolTip4.Items.Add(ToolTipTitleItem5) + SuperToolTip4.Items.Add(ToolTipItem4) + SuperToolTip4.Items.Add(ToolTipTitleItem6) + Me.txb_proglocations.SuperTip = SuperToolTip4 + Me.txb_proglocations.TabIndex = 14 + ' + 'lbl_cachelocation + ' + Me.lbl_cachelocation.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_cachelocation.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_cachelocation.Location = New System.Drawing.Point(3, 49) + Me.lbl_cachelocation.MKBoundControl1 = Nothing + Me.lbl_cachelocation.MKBoundControl2 = Nothing + Me.lbl_cachelocation.MKBoundControl3 = Nothing + Me.lbl_cachelocation.MKBoundControl4 = Nothing + Me.lbl_cachelocation.MKBoundControl5 = Nothing + Me.lbl_cachelocation.Name = "lbl_cachelocation" + Me.lbl_cachelocation.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem7.Text = "Cache Location" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = resources.GetString("ToolTipItem5.Text") + ToolTipTitleItem8.LeftIndent = 6 + ToolTipTitleItem8.Text = "TDL.INI entry: cachelocation" + SuperToolTip5.Items.Add(ToolTipTitleItem7) + SuperToolTip5.Items.Add(ToolTipItem5) + SuperToolTip5.Items.Add(ToolTipTitleItem8) + Me.lbl_cachelocation.SuperTip = SuperToolTip5 + Me.lbl_cachelocation.TabIndex = 17 + Me.lbl_cachelocation.Text = "Cache Location:" + ' + 'txb_cachelocation + ' + Me.txb_cachelocation.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_cachelocation.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "cachelocation", True)) + Me.txb_cachelocation.Location = New System.Drawing.Point(121, 49) + Me.txb_cachelocation.MKBoundLabel = Nothing + Me.txb_cachelocation.MKEditValue_Compare = Nothing + Me.txb_cachelocation.Name = "txb_cachelocation" + Me.txb_cachelocation.Properties.MaxLength = 80 + Me.txb_cachelocation.Size = New System.Drawing.Size(290, 20) + ToolTipTitleItem9.Text = "Cache Location" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = resources.GetString("ToolTipItem6.Text") + ToolTipTitleItem10.LeftIndent = 6 + ToolTipTitleItem10.Text = "TDL.INI entry: cachelocation" + SuperToolTip6.Items.Add(ToolTipTitleItem9) + SuperToolTip6.Items.Add(ToolTipItem6) + SuperToolTip6.Items.Add(ToolTipTitleItem10) + Me.txb_cachelocation.SuperTip = SuperToolTip6 + Me.txb_cachelocation.TabIndex = 16 + ' + 'lbl_userlevel + ' + Me.lbl_userlevel.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_userlevel.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_userlevel.Location = New System.Drawing.Point(3, 72) + Me.lbl_userlevel.MKBoundControl1 = Nothing + Me.lbl_userlevel.MKBoundControl2 = Nothing + Me.lbl_userlevel.MKBoundControl3 = Nothing + Me.lbl_userlevel.MKBoundControl4 = Nothing + Me.lbl_userlevel.MKBoundControl5 = Nothing + Me.lbl_userlevel.Name = "lbl_userlevel" + Me.lbl_userlevel.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem11.Text = "User Level" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = resources.GetString("ToolTipItem7.Text") + ToolTipTitleItem12.LeftIndent = 6 + ToolTipTitleItem12.Text = "TDL.INI entry: userlevel" + SuperToolTip7.Items.Add(ToolTipTitleItem11) + SuperToolTip7.Items.Add(ToolTipItem7) + SuperToolTip7.Items.Add(ToolTipTitleItem12) + Me.lbl_userlevel.SuperTip = SuperToolTip7 + Me.lbl_userlevel.TabIndex = 18 + Me.lbl_userlevel.Text = "User Level:" + ' + 'cmb_userlevel + ' + Me.cmb_userlevel.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_userlevel.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "userlevel", True)) + Me.cmb_userlevel.Location = New System.Drawing.Point(121, 72) + Me.cmb_userlevel.MKBoundLabel = Nothing + Me.cmb_userlevel.MKEditValue_Compare = Nothing + Me.cmb_userlevel.Name = "cmb_userlevel" + Me.cmb_userlevel.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_userlevel.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id", "id", 31, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_userlevel.Properties.DataSource = Me.BTA_userlevel + Me.cmb_userlevel.Properties.DisplayMember = "id" + Me.cmb_userlevel.Properties.NullText = "[please select]" + Me.cmb_userlevel.Properties.ShowFooter = False + Me.cmb_userlevel.Properties.ShowHeader = False + Me.cmb_userlevel.Properties.ValueMember = "id" + Me.cmb_userlevel.Size = New System.Drawing.Size(290, 20) + ToolTipTitleItem13.Text = "User Level" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = resources.GetString("ToolTipItem8.Text") + ToolTipTitleItem14.LeftIndent = 6 + ToolTipTitleItem14.Text = "TDL.INI entry: userlevel" + SuperToolTip8.Items.Add(ToolTipTitleItem13) + SuperToolTip8.Items.Add(ToolTipItem8) + SuperToolTip8.Items.Add(ToolTipTitleItem14) + Me.cmb_userlevel.SuperTip = SuperToolTip8 + Me.cmb_userlevel.TabIndex = 19 + ' + 'BTA_userlevel + ' + Me.BTA_userlevel.AllowDelete = True + Me.BTA_userlevel.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_userlevel.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_userlevel.Connection = Nothing + Me.BTA_userlevel.DSStream = CType(resources.GetObject("BTA_userlevel.DSStream"), System.IO.MemoryStream) + Me.BTA_userlevel.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_userlevel.FillString = "regular;power;kiosk" + Me.BTA_userlevel.Position = 0 + Me.BTA_userlevel.Transaction = Nothing + Me.BTA_userlevel.UpdateTablesStream = CType(resources.GetObject("BTA_userlevel.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'DataTable1 + ' + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1}) + Me.DataTable1.TableName = "Table1" + ' + 'DataColumn1 + ' + Me.DataColumn1.ColumnName = "id" + ' + 'lbl_forcelogging + ' + Me.lbl_forcelogging.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_forcelogging.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_forcelogging.Location = New System.Drawing.Point(3, 95) + Me.lbl_forcelogging.MKBoundControl1 = Nothing + Me.lbl_forcelogging.MKBoundControl2 = Nothing + Me.lbl_forcelogging.MKBoundControl3 = Nothing + Me.lbl_forcelogging.MKBoundControl4 = Nothing + Me.lbl_forcelogging.MKBoundControl5 = Nothing + Me.lbl_forcelogging.Name = "lbl_forcelogging" + Me.lbl_forcelogging.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem15.Text = "Force Logging" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Being a power user copies the debug log into a text file. You can force this beha" & + "vior ON for all user levels for troubleshooting purposes." + ToolTipTitleItem16.LeftIndent = 6 + ToolTipTitleItem16.Text = "TDL.INI entry: forcelogging" + SuperToolTip9.Items.Add(ToolTipTitleItem15) + SuperToolTip9.Items.Add(ToolTipItem9) + SuperToolTip9.Items.Add(ToolTipTitleItem16) + Me.lbl_forcelogging.SuperTip = SuperToolTip9 + Me.lbl_forcelogging.TabIndex = 20 + Me.lbl_forcelogging.Text = "Force Logging:" + ' + 'chb_forcelogging + ' + Me.chb_forcelogging.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "forcelogging", True)) + Me.chb_forcelogging.Location = New System.Drawing.Point(121, 96) + Me.chb_forcelogging.MKBoundLabel = Nothing + Me.chb_forcelogging.MKEditValue_Compare = Nothing + Me.chb_forcelogging.Name = "chb_forcelogging" + Me.chb_forcelogging.Properties.Caption = "" + Me.chb_forcelogging.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem17.Text = "Force Logging" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Being a power user copies the debug log into a text file. You can force this beha" & + "vior ON for all user levels for troubleshooting purposes." + ToolTipTitleItem18.LeftIndent = 6 + ToolTipTitleItem18.Text = "TDL.INI entry: forcelogging" + SuperToolTip10.Items.Add(ToolTipTitleItem17) + SuperToolTip10.Items.Add(ToolTipItem10) + SuperToolTip10.Items.Add(ToolTipTitleItem18) + Me.chb_forcelogging.SuperTip = SuperToolTip10 + Me.chb_forcelogging.TabIndex = 21 + ' + 'lbl_swapping + ' + Me.lbl_swapping.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_swapping.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_swapping.Location = New System.Drawing.Point(3, 118) + Me.lbl_swapping.MKBoundControl1 = Nothing + Me.lbl_swapping.MKBoundControl2 = Nothing + Me.lbl_swapping.MKBoundControl3 = Nothing + Me.lbl_swapping.MKBoundControl4 = Nothing + Me.lbl_swapping.MKBoundControl5 = Nothing + Me.lbl_swapping.Name = "lbl_swapping" + Me.lbl_swapping.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem19.Text = "Swapping" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = resources.GetString("ToolTipItem11.Text") + ToolTipTitleItem20.LeftIndent = 6 + ToolTipTitleItem20.Text = "TDL.INI entry: swapping" + SuperToolTip11.Items.Add(ToolTipTitleItem19) + SuperToolTip11.Items.Add(ToolTipItem11) + SuperToolTip11.Items.Add(ToolTipTitleItem20) + Me.lbl_swapping.SuperTip = SuperToolTip11 + Me.lbl_swapping.TabIndex = 20 + Me.lbl_swapping.Text = "Swapping:" + ' + 'chb_swapping + ' + Me.chb_swapping.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "swapping", True)) + Me.chb_swapping.Location = New System.Drawing.Point(121, 119) + Me.chb_swapping.MKBoundLabel = Nothing + Me.chb_swapping.MKEditValue_Compare = Nothing + Me.chb_swapping.Name = "chb_swapping" + Me.chb_swapping.Properties.Caption = "" + Me.chb_swapping.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem21.Text = "Swapping" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = resources.GetString("ToolTipItem12.Text") + ToolTipTitleItem22.LeftIndent = 6 + ToolTipTitleItem22.Text = "TDL.INI entry: swapping" + SuperToolTip12.Items.Add(ToolTipTitleItem21) + SuperToolTip12.Items.Add(ToolTipItem12) + SuperToolTip12.Items.Add(ToolTipTitleItem22) + Me.chb_swapping.SuperTip = SuperToolTip12 + Me.chb_swapping.TabIndex = 21 + ' + 'lbl_preloading + ' + Me.lbl_preloading.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_preloading.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_preloading.Location = New System.Drawing.Point(3, 141) + Me.lbl_preloading.MKBoundControl1 = Nothing + Me.lbl_preloading.MKBoundControl2 = Nothing + Me.lbl_preloading.MKBoundControl3 = Nothing + Me.lbl_preloading.MKBoundControl4 = Nothing + Me.lbl_preloading.MKBoundControl5 = Nothing + Me.lbl_preloading.Name = "lbl_preloading" + Me.lbl_preloading.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem23.Text = "Preloading" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = resources.GetString("ToolTipItem13.Text") + ToolTipTitleItem24.LeftIndent = 6 + ToolTipTitleItem24.Text = "TDL.INI entry: preloading" + SuperToolTip13.Items.Add(ToolTipTitleItem23) + SuperToolTip13.Items.Add(ToolTipItem13) + SuperToolTip13.Items.Add(ToolTipTitleItem24) + Me.lbl_preloading.SuperTip = SuperToolTip13 + Me.lbl_preloading.TabIndex = 20 + Me.lbl_preloading.Text = "Preloading:" + ' + 'chb_preloading + ' + Me.chb_preloading.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "preloading", True)) + Me.chb_preloading.Location = New System.Drawing.Point(121, 142) + Me.chb_preloading.MKBoundLabel = Nothing + Me.chb_preloading.MKEditValue_Compare = Nothing + Me.chb_preloading.Name = "chb_preloading" + Me.chb_preloading.Properties.Caption = "" + Me.chb_preloading.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem25.Text = "Preloading" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = resources.GetString("ToolTipItem14.Text") + ToolTipTitleItem26.LeftIndent = 6 + ToolTipTitleItem26.Text = "TDL.INI entry: preloading" + SuperToolTip14.Items.Add(ToolTipTitleItem25) + SuperToolTip14.Items.Add(ToolTipItem14) + SuperToolTip14.Items.Add(ToolTipTitleItem26) + Me.chb_preloading.SuperTip = SuperToolTip14 + Me.chb_preloading.TabIndex = 21 + ' + 'lbl_pauseafterrun + ' + Me.lbl_pauseafterrun.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_pauseafterrun.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_pauseafterrun.Location = New System.Drawing.Point(3, 164) + Me.lbl_pauseafterrun.MKBoundControl1 = Nothing + Me.lbl_pauseafterrun.MKBoundControl2 = Nothing + Me.lbl_pauseafterrun.MKBoundControl3 = Nothing + Me.lbl_pauseafterrun.MKBoundControl4 = Nothing + Me.lbl_pauseafterrun.MKBoundControl5 = Nothing + Me.lbl_pauseafterrun.Name = "lbl_pauseafterrun" + Me.lbl_pauseafterrun.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem27.Text = "Pause after Run" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "TDL normally returns to the menu after execution. You can change this behavior to" & + " waiting for user input, so that the user can read the screen before returning." + ToolTipTitleItem28.LeftIndent = 6 + ToolTipTitleItem28.Text = "TDL.INI entry: pauseafterrun" + SuperToolTip15.Items.Add(ToolTipTitleItem27) + SuperToolTip15.Items.Add(ToolTipItem15) + SuperToolTip15.Items.Add(ToolTipTitleItem28) + Me.lbl_pauseafterrun.SuperTip = SuperToolTip15 + Me.lbl_pauseafterrun.TabIndex = 20 + Me.lbl_pauseafterrun.Text = "Pause after Run:" + ' + 'chb_pauseafterrun + ' + Me.chb_pauseafterrun.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "pauseafterrun", True)) + Me.chb_pauseafterrun.Location = New System.Drawing.Point(121, 165) + Me.chb_pauseafterrun.MKBoundLabel = Nothing + Me.chb_pauseafterrun.MKEditValue_Compare = Nothing + Me.chb_pauseafterrun.Name = "chb_pauseafterrun" + Me.chb_pauseafterrun.Properties.Caption = "" + Me.chb_pauseafterrun.Size = New System.Drawing.Size(33, 19) + ToolTipTitleItem29.Text = "Pause after Run" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "TDL normally returns to the menu after execution. You can change this behavior to" & + " waiting for user input, so that the user can read the screen before returning." + ToolTipTitleItem30.LeftIndent = 6 + ToolTipTitleItem30.Text = "TDL.INI entry: pauseafterrun" + SuperToolTip16.Items.Add(ToolTipTitleItem29) + SuperToolTip16.Items.Add(ToolTipItem16) + SuperToolTip16.Items.Add(ToolTipTitleItem30) + Me.chb_pauseafterrun.SuperTip = SuperToolTip16 + Me.chb_pauseafterrun.TabIndex = 21 + ' + 'lbl_VESA + ' + Me.lbl_VESA.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_VESA.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_VESA.Location = New System.Drawing.Point(3, 187) + Me.lbl_VESA.MKBoundControl1 = Nothing + Me.lbl_VESA.MKBoundControl2 = Nothing + Me.lbl_VESA.MKBoundControl3 = Nothing + Me.lbl_VESA.MKBoundControl4 = Nothing + Me.lbl_VESA.MKBoundControl5 = Nothing + Me.lbl_VESA.Name = "lbl_VESA" + Me.lbl_VESA.Size = New System.Drawing.Size(115, 20) + ToolTipTitleItem31.Text = "Extended VESA Mode" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "TDL uses the text mode already set up in DOS. If you'd like the TDL to initialize" & + " an extended VESA text mode, you can set it here." + ToolTipTitleItem32.LeftIndent = 6 + ToolTipTitleItem32.Text = "TDL.INI entry: VESA" + SuperToolTip17.Items.Add(ToolTipTitleItem31) + SuperToolTip17.Items.Add(ToolTipItem17) + SuperToolTip17.Items.Add(ToolTipTitleItem32) + Me.lbl_VESA.SuperTip = SuperToolTip17 + Me.lbl_VESA.TabIndex = 20 + Me.lbl_VESA.Text = "Extended VESA Mode:" + ' + 'cmb_VESA + ' + Me.cmb_VESA.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_VESA.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.BS_Total_DOS_Launcher_Configs, "VESA", True)) + Me.cmb_VESA.Location = New System.Drawing.Point(121, 187) + Me.cmb_VESA.MKBoundLabel = Nothing + Me.cmb_VESA.MKEditValue_Compare = Nothing + Me.cmb_VESA.Name = "cmb_VESA" + Me.cmb_VESA.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_VESA.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id", "id", 33, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("DisplayText", "Display Text", 80, DevExpress.Utils.FormatType.None, "", True, DevExpress.Utils.HorzAlignment.Near)}) + Me.cmb_VESA.Properties.DataSource = Me.BTA_VESA_Modes + Me.cmb_VESA.Properties.DisplayMember = "DisplayText" + Me.cmb_VESA.Properties.NullText = "[use default]" + Me.cmb_VESA.Properties.ShowFooter = False + Me.cmb_VESA.Properties.ShowHeader = False + Me.cmb_VESA.Properties.ValueMember = "id" + Me.cmb_VESA.Size = New System.Drawing.Size(290, 20) + ToolTipTitleItem33.Text = "Extended VESA Mode" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "TDL uses the text mode already set up in DOS. If you'd like the TDL to initialize" & + " an extended VESA text mode, you can set it here." + ToolTipTitleItem34.LeftIndent = 6 + ToolTipTitleItem34.Text = "TDL.INI entry: VESA" + SuperToolTip18.Items.Add(ToolTipTitleItem33) + SuperToolTip18.Items.Add(ToolTipItem18) + SuperToolTip18.Items.Add(ToolTipTitleItem34) + Me.cmb_VESA.SuperTip = SuperToolTip18 + Me.cmb_VESA.TabIndex = 19 + ' + 'BTA_VESA_Modes + ' + Me.BTA_VESA_Modes.AllowDelete = True + Me.BTA_VESA_Modes.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_VESA_Modes.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_VESA_Modes.Connection = Nothing + Me.BTA_VESA_Modes.DSStream = CType(resources.GetObject("BTA_VESA_Modes.DSStream"), System.IO.MemoryStream) + Me.BTA_VESA_Modes.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_VESA_Modes.FillString = "108h;108h (80x60);109h;109h (132x25);10Ah;10Ah (132x43);10Bh;10Bh (132x50);10Ch;1" & + "0Ch (132x60)" + Me.BTA_VESA_Modes.Position = 0 + Me.BTA_VESA_Modes.Transaction = Nothing + Me.BTA_VESA_Modes.UpdateTablesStream = CType(resources.GetObject("BTA_VESA_Modes.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + '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(325, 227) + Me.btn_Cancel.Name = "btn_Cancel" + Me.btn_Cancel.Size = New System.Drawing.Size(86, 20) + 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(236, 227) + Me.btn_OK.Name = "btn_OK" + Me.btn_OK.Size = New System.Drawing.Size(86, 20) + Me.btn_OK.TabIndex = 22 + Me.btn_OK.Text = "&OK" + ' + 'DataTable2 + ' + Me.DataTable2.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn2, Me.DataColumn3}) + Me.DataTable2.TableName = "Table1" + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "id" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "DisplayText" + ' + 'frm_Total_DOS_Launcher_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(414, 250) + Me.Controls.Add(Me.btn_Cancel) + Me.Controls.Add(Me.btn_OK) + Me.Controls.Add(Me.chb_pauseafterrun) + Me.Controls.Add(Me.chb_preloading) + Me.Controls.Add(Me.chb_swapping) + Me.Controls.Add(Me.chb_forcelogging) + Me.Controls.Add(Me.lbl_VESA) + Me.Controls.Add(Me.lbl_pauseafterrun) + Me.Controls.Add(Me.lbl_preloading) + Me.Controls.Add(Me.lbl_swapping) + Me.Controls.Add(Me.lbl_forcelogging) + Me.Controls.Add(Me.cmb_VESA) + Me.Controls.Add(Me.cmb_userlevel) + Me.Controls.Add(Me.lbl_userlevel) + Me.Controls.Add(Me.lbl_cachelocation) + Me.Controls.Add(Me.txb_cachelocation) + Me.Controls.Add(Me.lbl_proglocations) + Me.Controls.Add(Me.txb_proglocations) + Me.Controls.Add(Me.lbl_DisplayName) + Me.Controls.Add(Me.txb_DisplayName) + Me.Name = "frm_Total_DOS_Launcher_Config_Edit" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Edit Total DOS Launcher Configuration" + CType(Me.txb_DisplayName.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Total_DOS_Launcher_Configs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_proglocations.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_cachelocation.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_userlevel.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_userlevel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_forcelogging.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_swapping.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_preloading.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_pauseafterrun.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_VESA.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_VESA_Modes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents lbl_DisplayName As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_DisplayName As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_proglocations As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_proglocations As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_cachelocation As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_cachelocation As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_userlevel As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DS_ML As DS_ML + Friend WithEvents BS_Total_DOS_Launcher_Configs As BindingSource + Friend WithEvents cmb_userlevel As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_userlevel As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As DataTable + Friend WithEvents DataColumn1 As DataColumn + Friend WithEvents lbl_forcelogging As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_forcelogging As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_swapping As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_swapping As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_preloading As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_preloading As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_pauseafterrun As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents chb_pauseafterrun As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_VESA As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_VESA As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents btn_Cancel As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_OK As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents BTA_VESA_Modes As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable2 As DataTable + Friend WithEvents DataColumn2 As DataColumn + Friend WithEvents DataColumn3 As DataColumn +End Class diff --git a/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.resx b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.resx new file mode 100644 index 0000000..408ea23 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.resx @@ -0,0 +1,278 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + PATH-like variable that specifies where TDL can find the archive files prepared by the Total DOS Launcher export and copied over to the vintage system. Multiple locations are allowed to get past the FAT16 2-gigabyte limit. Use semi colons to separate multiple locations. + +DOS limitations cap this path string at 80 characters -- do not exceed! + + + PATH-like variable that specifies where TDL can find the archive files prepared by the Total DOS Launcher export and copied over to the vintage system. Multiple locations are allowed to get past the FAT16 2-gigabyte limit. Use semi colons to separate multiple locations. + +DOS limitations cap this path string at 80 characters -- do not exceed! + + + Cache directory location. This is where archives (.zip files, etc.) are decompressed into. If you want to save your game, hi scores, etc., then this should be a permanent directory on a hard disk. If you don't care about retaining files, you can put this on a RAM disk. + + + Cache directory location. This is where archives (.zip files, etc.) are decompressed into. If you want to save your game, hi scores, etc., then this should be a permanent directory on a hard disk. If you don't care about retaining files, you can put this on a RAM disk. + + + TDL can operate in three user modes: + +- REGULAR is the default and recommended mode, where the TDL will try to make educated decisions where applicable. + +- POWER displays more messages, copies the debug log to a text logfile, and generally gives more control. + +- KIOSK is meant for shows, conventions, and museums it disables features that could confuse novice users, and makes as many decisions on behalf of the user as possible. ctrl-alt-delete is trapped and disabled. Finally, the TDL cannot be exited in this mode. + +It is highly recommended you run in regular mode unless instructed otherwise. + + + 373, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAGwIAABsCAAAmBAAAAQEBAQoPAgAAACYEAAACH4sIAAAAAAAEAJ1UW2/TMBRut3Wi + DHjhgVcrz23SsBuLmk1ikxBiK2gtaG+Tm5y2HrFdfOnljb/DrxzHjdttVSckHMl2zuX7Ph9fKtVKpXKP + zY2uvdrCrtOdawM8vKCGNsgPUJpJkR6ELfc1yLktjFWQCrBG0aJBvtl+wbIvMO/JnyDS/vExPcwOj+KT + /QNofTipOfC3jzAXXRfMNtrf+Xl4DVwaJoaern7Di242Ak73cHbBBoNPivLtavWNB/JxTm/dAe3uYPen + 1j6b8YJMvOYgDlsBAZHJHKHTwJpBMz4Kzk5fv2zPdKIXBITladCBqVcSEEQQOg38JJnhfGTMOImi6XQa + TvdDqYbR+1Yrjm6uLkuRy1iuc0RBIiU8um5ylimp5cA0M8kTjGuWUQGqIMTpgAI4CEME5fBUShmZfNbe + kgZGWVjZv2s4t0ph7qXMaAHevQAuoZFyXMCsNx+Dt3r7SLIMCGfia5ZZhUvEQnE6W/5Z0ZdW5JAHq7RN + Wnu0X0D8OOZ52gevhl8WN2XdtYmA5QExiJIGLs8o3MbV6g1VQzAdjNNjmoHbsafrida5o+fIF57Nohcu + L+qhhNGqhstib0JYyy35F8fidLeG5/V3tZ3j0R6qpBwo/59z5HNKiH/lLImak9gVaMfdnbU75W7S7u0V + vZMKBybc8NGyIq/fXsOEuRD3VrzAtuXfjXvf9v4CCdwZhlIEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAACw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + TDL can operate in three user modes: + +- REGULAR is the default and recommended mode, where the TDL will try to make educated decisions where applicable. + +- POWER displays more messages, copies the debug log to a text logfile, and generally gives more control. + +- KIOSK is meant for shows, conventions, and museums it disables features that could confuse novice users, and makes as many decisions on behalf of the user as possible. ctrl-alt-delete is trapped and disabled. Finally, the TDL cannot be exited in this mode. + +It is highly recommended you run in regular mode unless instructed otherwise. + + + TDL swaps itself into EMS, XMS, extended memory, or disk when launching a program. If you suspect this is causing problems, you can turn it off, but you will have less DOS RAM available for running your program. + + + TDL swaps itself into EMS, XMS, extended memory, or disk when launching a program. If you suspect this is causing problems, you can turn it off, but you will have less DOS RAM available for running your program. + + + TDL normally preloads data into system RAM to increase operating speed. If you have a very large number of titles loaded (over 10,000) and do not have any EMS or XMS memory configured, you might run out of low DOS RAM. You can disable preloading to force the TDL to work, but if your hard disk is a slow device, it could operate very slowly. + +(Generally, don't disable preloading unless you experience memory errors.) + + + TDL normally preloads data into system RAM to increase operating speed. If you have a very large number of titles loaded (over 10,000) and do not have any EMS or XMS memory configured, you might run out of low DOS RAM. You can disable preloading to force the TDL to work, but if your hard disk is a slow device, it could operate very slowly. + +(Generally, don't disable preloading unless you experience memory errors.) + + + 499, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAKAIAACgCAABABAAAAQEBAQoPAgAAAEAEAAACH4sIAAAAAAAEAK1UW2/TMBRud6ko + A1544NXyc5s07MaiZpNYJYTYCloL2tvkJqetR2wXX9r0jf/ADx5243Zb1QmEcCTbOZfv++yTk0q1Uqnc + 2eFWN15s2anbmysNLOgQTRroG0hFBU8OgpZ7Gujc5NpISDgYLUneQF/MIKfpJ5j3xXfgyeD4mBymh0fR + yf4BtN6d7Drw1w8wF1MP9La1v/H74AqY0JSPPF39muW9dAyM7Nldhw6HHyRh29XqKw/k45zeugOq7djp + V619VrAcTb1mHAUtjICnIrPQCTZ62IyO8Nnpy+ftQsVqQYBoluAuzLwSjCwCVwn2m7iw+7HWkzgMZ7NZ + MNsPhByFb1utKLy+vChFLmOZyiyKJZLco6smo6kUSgx1MxUstnHNMgpbFQg5HZADA64RJwweSykj44/K + WxKspYGV/auCcyOlzb0QKcnBuxfAJbSlnORQ9OcT8FZvHwuaAmKUf05TI+0R7UUxUizfDB8IwzPI8Cpt + k9Y+GeQQPYx5mvbeq+CHsUVZd20ioBlG2qIk2OVpacu4Or0mcgS6a+PUhKTgKvb4POFfEHSomuRk3odC + /0emdvjUMReezdezcHl198UKV9ValnUTwlpuyb/4AE9ru7YzflbbmW2ikYzLhbB/+WJ9Tgnxp5wlUXMa + uQvacV261r2uZ2s3l+RWSLtQ7pb3huZZ/eYKptSFuL/SMzu2/B/qzo+938G6L+68BAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.vb b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.vb new file mode 100644 index 0000000..0f02c07 --- /dev/null +++ b/Metropolis_Launcher/Forms/frm_Total_DOS_Launcher_Config_Edit.vb @@ -0,0 +1,83 @@ +Public Class frm_Total_DOS_Launcher_Config_Edit + Public _id_Total_DOS_Launcher_Configs = 0 + + Public Sub New(Optional ByVal id_Total_DOS_Launcher_Configs = 0) + InitializeComponent() + + Me._id_Total_DOS_Launcher_Configs = id_Total_DOS_Launcher_Configs + + If id_Total_DOS_Launcher_Configs <> 0 Then + DS_ML.Fill_tbl_Total_DOS_Launcher_Configs(Me.DS_ML.tbl_Total_DOS_Launcher_Configs, id_Total_DOS_Launcher_Configs) + Me.Text = "Edit Total DOS Launcher Configuration" + Else + Me.BS_Total_DOS_Launcher_Configs.AddNew() + Me.Text = "Add Total DOS Launcher Configuration" + End If + End Sub + + Private Sub btn_Cancel_Click(sender As Object, e As EventArgs) Handles btn_Cancel.Click + Me.DialogResult = DialogResult.Cancel + Me.Close() + End Sub + + Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btn_OK.Click + If TC.NZ(Me.txb_DisplayName.EditValue, "").Trim = "" Then + MKDXHelper.MessageBox("Please provide a name for the Total DOS Launcher Configuration", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_DisplayName.Focus() + Return + End If + + If TC.NZ(Me.txb_proglocations.EditValue, "").Trim = "" Then + MKDXHelper.MessageBox("Please provide Program Locations", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_proglocations.Focus() + Return + End If + + If TC.NZ(Me.txb_cachelocation.EditValue, "").Trim = "" Then + MKDXHelper.MessageBox("Please provide a Cache Location", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_cachelocation.Focus() + Return + End If + + If TC.NZ(Me.cmb_userlevel.EditValue, "").Trim = "" Then + MKDXHelper.MessageBox("Please provide a Cache Location", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.cmb_userlevel.Focus() + Return + End If + + If Me._id_Total_DOS_Launcher_Configs < 0 Then + Dim res As DialogResult = MKDXHelper.MessageBox("You are editing a shipped Total DOS Launcher Configuration, do you want to create a new one?", "", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + + If res = DialogResult.Cancel Then + Return + End If + + If res = DialogResult.No Then + Me.DialogResult = DialogResult.Cancel + Me.Close() + Return + End If + End If + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Total_DOS_Launcher_Configs FROM tbl_Total_DOS_Launcher_Configs WHERE DisplayName = " & TC.getSQLFormat(Me.txb_DisplayName.EditValue) & IIf(Me._id_Total_DOS_Launcher_Configs > 0, " AND id_Total_DOS_Launcher_Configs <> " & TC.getSQLFormat(Me._id_Total_DOS_Launcher_Configs), "")), 0) <> 0 Then + MKDXHelper.MessageBox("Another Total DOS Launcher Configuration with the same name already exists. Please use a unique name.", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_DisplayName.Focus() + Return + End If + + If TC.NZ(DataAccess.FireProcedureReturnScalar(cls_Globals.Conn, 0, "SELECT id_Rombase_Total_DOS_Launcher_Configs FROM rombase.tbl_Rombase_Total_DOS_Launcher_Configs WHERE DisplayName = " & TC.getSQLFormat(Me.txb_DisplayName.EditValue)), 0) <> 0 Then + MKDXHelper.MessageBox("Another shipped Total DOS Launcher Configuration with the same name already exists. Please use a unique name.", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.txb_DisplayName.Focus() + Return + End If + + Me.DialogResult = DialogResult.OK + Me.Close() + End Sub + + Private Sub cmb_VESA_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles cmb_VESA.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + Me.cmb_VESA.EditValue = Nothing + End If + End Sub +End Class \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_USER_Extras_Manager.vb b/Metropolis_Launcher/Forms/frm_USER_Extras_Manager.vb index a7edb40..8f61b46 100644 --- a/Metropolis_Launcher/Forms/frm_USER_Extras_Manager.vb +++ b/Metropolis_Launcher/Forms/frm_USER_Extras_Manager.vb @@ -44,7 +44,7 @@ _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))) + Dim img As Bitmap = cls_Extras.LoadImageFromStreamSafe(old_extra._Path, False) If img.PhysicalDimension.Width > 1 And img.PhysicalDimension.Height > 1 Then _al_Screenshots.Add(img) @@ -188,7 +188,8 @@ 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))) + Dim img As Bitmap = cls_Extras.LoadImageFromStreamSafe(sFile) + 'Dim img As Bitmap = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(sFile))) AddImage(img) Catch ex As Exception diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb b/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb index 64df14f..2fc2e5e 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.Designer.vb @@ -22,6 +22,7 @@ Partial Class frm_Users_Edit '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() @@ -43,6 +44,13 @@ Partial Class frm_Users_Edit 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Users_Edit)) Me.btn_Cancel = New MKNetDXLib.ctl_MKDXSimpleButton() Me.btn_OK = New MKNetDXLib.ctl_MKDXSimpleButton() Me.txb_Password = New MKNetDXLib.ctl_MKDXTextEdit() @@ -52,17 +60,27 @@ Partial Class frm_Users_Edit Me.lbl_Restricted = New MKNetDXLib.ctl_MKDXLabel() Me.chb_Restricted = New MKNetDXLib.ctl_MKDXCheckEdit() Me.chb_Password = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Challenges = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Challenges = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BTA_Challenges = 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() 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() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_Challenges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, 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.Location = New System.Drawing.Point(218, 100) Me.btn_Cancel.Name = "btn_Cancel" Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) Me.btn_Cancel.TabIndex = 5 @@ -72,7 +90,7 @@ Partial Class frm_Users_Edit ' 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.Location = New System.Drawing.Point(140, 100) Me.btn_OK.Name = "btn_OK" Me.btn_OK.Size = New System.Drawing.Size(75, 23) Me.btn_OK.TabIndex = 4 @@ -215,11 +233,89 @@ Partial Class frm_Users_Edit Me.chb_Password.SuperTip = SuperToolTip7 Me.chb_Password.TabIndex = 1 ' + 'lbl_Challenges + ' + Me.lbl_Challenges.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Challenges.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Challenges.Location = New System.Drawing.Point(24, 72) + Me.lbl_Challenges.MKBoundControl1 = Nothing + Me.lbl_Challenges.MKBoundControl2 = Nothing + Me.lbl_Challenges.MKBoundControl3 = Nothing + Me.lbl_Challenges.MKBoundControl4 = Nothing + Me.lbl_Challenges.MKBoundControl5 = Nothing + Me.lbl_Challenges.Name = "lbl_Challenges" + Me.lbl_Challenges.Size = New System.Drawing.Size(56, 20) + ToolTipTitleItem8.Text = "Challenge" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "The user will be bound to a selected challenge. Only the games of that challenge " & + "will be visible." + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem8) + Me.lbl_Challenges.SuperTip = SuperToolTip8 + Me.lbl_Challenges.TabIndex = 6 + Me.lbl_Challenges.Text = "Challenge:" + ' + 'cmb_Challenges + ' + Me.cmb_Challenges.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_Challenges.EditValue = CType(0, Long) + Me.cmb_Challenges.Location = New System.Drawing.Point(83, 72) + Me.cmb_Challenges.MKBoundLabel = Nothing + Me.cmb_Challenges.MKEditValue_Compare = Nothing + Me.cmb_Challenges.Name = "cmb_Challenges" + Me.cmb_Challenges.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmb_Challenges.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Cheevo_Challenges", "id_Cheevo_Challenges", 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_Challenges.Properties.DataSource = Me.BTA_Challenges + Me.cmb_Challenges.Properties.DisplayMember = "Name" + Me.cmb_Challenges.Properties.NullText = "" + Me.cmb_Challenges.Properties.ShowHeader = False + Me.cmb_Challenges.Properties.ValueMember = "id_Cheevo_Challenges" + Me.cmb_Challenges.Size = New System.Drawing.Size(210, 20) + ToolTipTitleItem9.Text = "Challenge" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Filter by open RetroAchievements challenges" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem9) + Me.cmb_Challenges.SuperTip = SuperToolTip9 + Me.cmb_Challenges.TabIndex = 8 + ' + 'BTA_Challenges + ' + Me.BTA_Challenges.AllowDelete = True + Me.BTA_Challenges.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Challenges.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Challenges.Connection = Nothing + Me.BTA_Challenges.DSStream = CType(resources.GetObject("BTA_Challenges.DSStream"), System.IO.MemoryStream) + Me.BTA_Challenges.FillString = "" + Me.BTA_Challenges.Transaction = Nothing + Me.BTA_Challenges.UpdateTablesStream = CType(resources.GetObject("BTA_Challenges.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_Cheevo_Challenges" + Me.DataColumn1.DataType = GetType(Long) + ' + 'DataColumn2 + ' + Me.DataColumn2.ColumnName = "Name" + ' + 'DataColumn3 + ' + Me.DataColumn3.ColumnName = "Sort" + Me.DataColumn3.DataType = GetType(Long) + ' '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.ClientSize = New System.Drawing.Size(303, 135) + Me.Controls.Add(Me.cmb_Challenges) + Me.Controls.Add(Me.lbl_Challenges) Me.Controls.Add(Me.chb_Password) Me.Controls.Add(Me.chb_Restricted) Me.Controls.Add(Me.btn_Cancel) @@ -237,6 +333,9 @@ Partial Class frm_Users_Edit 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() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Challenges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -249,4 +348,11 @@ Partial Class frm_Users_Edit Friend WithEvents lbl_Restricted As MKNetDXLib.ctl_MKDXLabel Friend WithEvents chb_Restricted As MKNetDXLib.ctl_MKDXCheckEdit Friend WithEvents chb_Password As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents lbl_Challenges As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Challenges As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BTA_Challenges As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable1 As DataTable + Friend WithEvents DataColumn1 As DataColumn + Friend WithEvents DataColumn2 As DataColumn + Friend WithEvents DataColumn3 As DataColumn End Class diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.resx b/Metropolis_Launcher/Forms/frm_Users_Edit.resx index 1af7de1..e52082b 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Edit.resx +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.resx @@ -117,4 +117,54 @@ 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 + AQEBCQIAAAAAAAAANwIAADcCAABeBAAAAQEBAQoPAgAAAF4EAAACH4sIAAAAAAAEAK1US28TMRBO+ogI + BS4cuK72nOwm9EWjbCuRSgjRBtQE1Fvk7E42Bj+C7c3jxh9HZbzrpGmUCoTqlTzeeXzf2B5PqVwqle5w + WGnHix2cur2FNsCDS2JIzfsGSlMpoqOgYb+a18mYyRREAjKjCKt5X7Iho/EnWPTlDxDR8PSUHMfHJ82z + wyNovDvbt+Cv1zDzqQdmF/Vv3Dq4AS4NFamjq95y1ovHwMkBri7paPRBEb5bLr9yQM7P5lu1QJU9nH5X + 2hdzzrypy9lvBg3fAxHLBKEjPzOjevPEvzh/+bw91y2dE3g0ifwuzFwmvocIQke+W7TmuB4bM2mF4Ww2 + C2aHgVRp+LbRaIa311dFkktfrhNEQSIlHLqucxorqeXI1GPJW+hXL7x8zMLzbB7AgIMwniAcHqZSeLY+ + aqeJfKMyWOm/auhkSmHslYwJA2fOgQtopJwwmPcXE3Bapx9LGoPHqfgcx5nCLeJBcTJf/mViKDORQOKv + wrbl2idDBs11n8dp760afmZ4KZumbQQ0GXTGAFOJgjAGIgXtewZxIx+dmRTp6jQMUSmYLsbpCYnB3uDD + /YX/QGjD1wi0UfSpKXpSmSfbQzt87EBzy/aLyE0uqfuyCFd1sSygbQgbsQV/XurnlX18g7/K7QSfa6pa + hSD8f96Giykg/hazJKpPm/aA9mw/2OgTtjtUBtfku1QoqLDifUZZUh3cwJRaF9v/nuHYcb3wzo2DP/H9 + NZYmBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + \ No newline at end of file diff --git a/Metropolis_Launcher/Forms/frm_Users_Edit.vb b/Metropolis_Launcher/Forms/frm_Users_Edit.vb index 3f280d2..5334c3c 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Edit.vb +++ b/Metropolis_Launcher/Forms/frm_Users_Edit.vb @@ -7,11 +7,14 @@ Password = 1 UserRestriction = 2 Username = 4 + Challenge = 8 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() + Load_Challenges() + Me._tbl_Users = tbl_Users Me._id_Users = id_Users @@ -25,6 +28,9 @@ Me.lbl_Restricted.Visible = False Me.chb_Restricted.Visible = False + Me.lbl_Challenges.Visible = False + Me.cmb_Challenges.Visible = False + If (editMode And enm_EditMode.Password) = enm_EditMode.Password Then Me.Name &= "_P" Me.Text = "Change Password" @@ -43,9 +49,33 @@ Me.lbl_Restricted.Visible = False Me.chb_Restricted.Visible = False End If + + If (editMode And enm_EditMode.Challenge) = enm_EditMode.Challenge Then + Me.Name &= "_C" + Me.lbl_Challenges.Visible = False + Me.cmb_Challenges.Visible = False + End If End If End Sub + Private Sub Load_Challenges() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CC.id_Cheevo_Challenges AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CC.Name AS Name" & ControlChars.CrLf + sSQL &= " , 1 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges CC" & ControlChars.CrLf + + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 0 AS id_Cheevo_Challenges" + sSQL &= " , 'None' AS Name" + sSQL &= " , 0 AS Sort" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, Me.BTA_Challenges.Table) + 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 @@ -57,6 +87,12 @@ Return End If + If TC.NZ(Me.cmb_Challenges.EditValue, 0) > 0 Then + If MKDXHelper.MessageBox("A user bound to a challenge will have access to all games of the challenge/tier and only to those. Do you want to continue?", "User bound to Challenge", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then + Return + End If + End If + Me.DialogResult = DialogResult.OK Me.Close() End Sub diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb b/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb index ab1c669..db32b37 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.Designer.vb @@ -23,6 +23,7 @@ Partial Class frm_Users_Setup _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Users_Setup)) 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() @@ -42,12 +43,17 @@ Partial Class frm_Users_Setup Me.bbi_Delete_User = New DevExpress.XtraBars.BarButtonItem() Me.bbi_Edit_User = New DevExpress.XtraBars.BarButtonItem() Me.popmnu_Users = New MKNetDXLib.cmp_MKDXPopupMenu() + Me.colid_Cheevo_Challenges = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BTA_Challenges = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.rpiChallenges = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() 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() + CType(Me.BTA_Challenges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpiChallenges, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'DS_ML @@ -69,13 +75,14 @@ Partial Class frm_Users_Setup 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.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpiChallenges}) + Me.grd_Users.Size = New System.Drawing.Size(596, 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.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUsername, Me.colPassword, Me.colAdmin, Me.colRestricted, Me.colid_Cheevo_Challenges}) Me.gv_Users.GridControl = Me.grd_Users Me.gv_Users.Name = "gv_Users" Me.gv_Users.OptionsBehavior.AllowIncrementalSearch = True @@ -108,6 +115,7 @@ Partial Class frm_Users_Setup Me.colAdmin.Name = "colAdmin" Me.colAdmin.OptionsColumn.AllowEdit = False Me.colAdmin.OptionsColumn.ReadOnly = True + Me.colAdmin.ToolTip = "The user is the administrator" Me.colAdmin.Visible = True Me.colAdmin.VisibleIndex = 2 ' @@ -117,6 +125,7 @@ Partial Class frm_Users_Setup Me.colRestricted.Name = "colRestricted" Me.colRestricted.OptionsColumn.AllowEdit = False Me.colRestricted.OptionsColumn.ReadOnly = True + Me.colRestricted.ToolTip = "User is restricted to certain games" Me.colRestricted.Visible = True Me.colRestricted.VisibleIndex = 3 ' @@ -124,7 +133,7 @@ Partial Class frm_Users_Setup ' 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.Location = New System.Drawing.Point(524, 348) Me.btn_Cancel.Name = "btn_Cancel" Me.btn_Cancel.Size = New System.Drawing.Size(75, 23) Me.btn_Cancel.TabIndex = 2 @@ -133,7 +142,7 @@ Partial Class frm_Users_Setup '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.Location = New System.Drawing.Point(446, 348) Me.btn_OK.Name = "btn_OK" Me.btn_OK.Size = New System.Drawing.Size(75, 23) Me.btn_OK.TabIndex = 1 @@ -154,14 +163,14 @@ Partial Class frm_Users_Setup 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) + Me.barDockControlTop.Size = New System.Drawing.Size(611, 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) + Me.barDockControlBottom.Size = New System.Drawing.Size(611, 0) ' 'barDockControlLeft ' @@ -174,7 +183,7 @@ Partial Class frm_Users_Setup ' Me.barDockControlRight.CausesValidation = False Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right - Me.barDockControlRight.Location = New System.Drawing.Point(483, 0) + Me.barDockControlRight.Location = New System.Drawing.Point(611, 0) Me.barDockControlRight.Size = New System.Drawing.Size(0, 383) ' 'bbi_Add_User @@ -204,11 +213,43 @@ Partial Class frm_Users_Setup Me.popmnu_Users.Manager = Me.barmng_Users Me.popmnu_Users.Name = "popmnu_Users" ' + 'colid_Cheevo_Challenges + ' + Me.colid_Cheevo_Challenges.Caption = "Challenge" + Me.colid_Cheevo_Challenges.ColumnEdit = Me.rpiChallenges + Me.colid_Cheevo_Challenges.FieldName = "id_Cheevo_Challenges" + Me.colid_Cheevo_Challenges.Name = "colid_Cheevo_Challenges" + Me.colid_Cheevo_Challenges.OptionsColumn.AllowEdit = False + Me.colid_Cheevo_Challenges.OptionsColumn.ReadOnly = True + Me.colid_Cheevo_Challenges.ToolTip = "User is bound to a challenge" + Me.colid_Cheevo_Challenges.Visible = True + Me.colid_Cheevo_Challenges.VisibleIndex = 4 + Me.colid_Cheevo_Challenges.Width = 197 + ' + 'BTA_Challenges + ' + Me.BTA_Challenges.AllowDelete = True + Me.BTA_Challenges.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_Challenges.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_Challenges.Connection = Nothing + Me.BTA_Challenges.DSStream = CType(resources.GetObject("BTA_Challenges.DSStream"), System.IO.MemoryStream) + Me.BTA_Challenges.FillString = "" + Me.BTA_Challenges.Transaction = Nothing + Me.BTA_Challenges.UpdateTablesStream = CType(resources.GetObject("BTA_Challenges.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'rpiChallenges + ' + Me.rpiChallenges.AutoHeight = False + Me.rpiChallenges.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpiChallenges.DataSource = Me.BTA_Challenges + Me.rpiChallenges.DisplayMember = "Name" + Me.rpiChallenges.Name = "rpiChallenges" + Me.rpiChallenges.ValueMember = "id_Cheevo_Challenges" + ' '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.ClientSize = New System.Drawing.Size(611, 383) Me.Controls.Add(Me.btn_Cancel) Me.Controls.Add(Me.btn_OK) Me.Controls.Add(Me.grd_Users) @@ -226,6 +267,8 @@ Partial Class frm_Users_Setup CType(Me.gv_Users, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.barmng_Users, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.popmnu_Users, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_Challenges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpiChallenges, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -249,4 +292,7 @@ Partial Class frm_Users_Setup 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 + Friend WithEvents colid_Cheevo_Challenges As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BTA_Challenges As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents rpiChallenges As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit End Class diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.resx b/Metropolis_Launcher/Forms/frm_Users_Setup.resx index a60b933..cdbf377 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Setup.resx +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.resx @@ -123,6 +123,56 @@ 107, 14 + + 469, 14 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAANwIAADcCAABeBAAAAQEBAQoPAgAAAF4EAAACH4sIAAAAAAAEAK1US28TMRBO+ogI + BS4cuK72nOwm9EWjbCuRSgjRBtQE1Fvk7E42Bj+C7c3jxh9HZbzrpGmUCoTqlTzeeXzf2B5PqVwqle5w + WGnHix2cur2FNsCDS2JIzfsGSlMpoqOgYb+a18mYyRREAjKjCKt5X7Iho/EnWPTlDxDR8PSUHMfHJ82z + wyNovDvbt+Cv1zDzqQdmF/Vv3Dq4AS4NFamjq95y1ovHwMkBri7paPRBEb5bLr9yQM7P5lu1QJU9nH5X + 2hdzzrypy9lvBg3fAxHLBKEjPzOjevPEvzh/+bw91y2dE3g0ifwuzFwmvocIQke+W7TmuB4bM2mF4Ww2 + C2aHgVRp+LbRaIa311dFkktfrhNEQSIlHLqucxorqeXI1GPJW+hXL7x8zMLzbB7AgIMwniAcHqZSeLY+ + aqeJfKMyWOm/auhkSmHslYwJA2fOgQtopJwwmPcXE3Bapx9LGoPHqfgcx5nCLeJBcTJf/mViKDORQOKv + wrbl2idDBs11n8dp760afmZ4KZumbQQ0GXTGAFOJgjAGIgXtewZxIx+dmRTp6jQMUSmYLsbpCYnB3uDD + /YX/QGjD1wi0UfSpKXpSmSfbQzt87EBzy/aLyE0uqfuyCFd1sSygbQgbsQV/XurnlX18g7/K7QSfa6pa + hSD8f96Giykg/hazJKpPm/aA9mw/2OgTtjtUBtfku1QoqLDifUZZUh3cwJRaF9v/nuHYcb3wzo2DP/H9 + NZYmBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAL + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + 207, 14 diff --git a/Metropolis_Launcher/Forms/frm_Users_Setup.vb b/Metropolis_Launcher/Forms/frm_Users_Setup.vb index a4a29a1..67a94b1 100644 --- a/Metropolis_Launcher/Forms/frm_Users_Setup.vb +++ b/Metropolis_Launcher/Forms/frm_Users_Setup.vb @@ -3,6 +3,8 @@ Public Sub New() InitializeComponent() + Load_Challenges() + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction DS_ML.Fill_tbl_Users(tran, Me.DS_ML.tbl_Users, 0, False) End Using @@ -10,6 +12,26 @@ barmng_Users.SetPopupContextMenu(grd_Users, popmnu_Users) End Sub + + Private Sub Load_Challenges() + Dim sSQL As String = "" + + sSQL &= "SELECT" & ControlChars.CrLf + sSQL &= " CC.id_Cheevo_Challenges AS id_Cheevo_Challenges" & ControlChars.CrLf + sSQL &= " , CC.Name AS Name" & ControlChars.CrLf + sSQL &= " , 1 AS Sort" & ControlChars.CrLf + sSQL &= "FROM tbl_Cheevo_Challenges CC" & ControlChars.CrLf + + sSQL &= " UNION" + sSQL &= " SELECT" + sSQL &= " 0 AS id_Cheevo_Challenges" + sSQL &= " , '' AS Name" + sSQL &= " , 0 AS Sort" + + DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL, Me.BTA_Challenges.Table) + 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) @@ -33,11 +55,13 @@ 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.cmb_Challenges.EditValue = row("id_Cheevo_Challenges") 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 + row("id_Cheevo_Challenges") = TC.NZ(frm.cmb_Challenges.EditValue, 0) End If End Using End Sub diff --git a/Metropolis_Launcher/Libs/DiscUtils.Common.dll b/Metropolis_Launcher/Libs/DiscUtils.Common.dll index 7257604..7274f74 100644 Binary files a/Metropolis_Launcher/Libs/DiscUtils.Common.dll and b/Metropolis_Launcher/Libs/DiscUtils.Common.dll differ diff --git a/Metropolis_Launcher/Libs/DiscUtils.dll b/Metropolis_Launcher/Libs/DiscUtils.dll index a810956..f091eed 100644 Binary files a/Metropolis_Launcher/Libs/DiscUtils.dll and b/Metropolis_Launcher/Libs/DiscUtils.dll differ diff --git a/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll b/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll index eaea4f5..26f267b 100644 Binary files a/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll and b/Metropolis_Launcher/Libs/Interop.IWshRuntimeLibrary.dll differ diff --git a/Metropolis_Launcher/Libs/MKNetDXLib.dll b/Metropolis_Launcher/Libs/MKNetDXLib.dll index e3f4cdb..f573427 100644 Binary files a/Metropolis_Launcher/Libs/MKNetDXLib.dll and b/Metropolis_Launcher/Libs/MKNetDXLib.dll differ diff --git a/Metropolis_Launcher/Libs/MKNetLib.dll b/Metropolis_Launcher/Libs/MKNetLib.dll index f0d531e..e930f4f 100644 Binary files a/Metropolis_Launcher/Libs/MKNetLib.dll and b/Metropolis_Launcher/Libs/MKNetLib.dll differ diff --git a/Metropolis_Launcher/Libs/Newtonsoft.Json.dll b/Metropolis_Launcher/Libs/Newtonsoft.Json.dll new file mode 100644 index 0000000..3b6c69f Binary files /dev/null and b/Metropolis_Launcher/Libs/Newtonsoft.Json.dll differ diff --git a/Metropolis_Launcher/Metropolis_Launcher.vbproj b/Metropolis_Launcher/Metropolis_Launcher.vbproj index 3a9e6cc..2d09611 100644 --- a/Metropolis_Launcher/Metropolis_Launcher.vbproj +++ b/Metropolis_Launcher/Metropolis_Launcher.vbproj @@ -280,73 +280,73 @@ 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 @@ -374,6 +374,9 @@ False Libs\MKNetLib.dll + + Libs\Newtonsoft.Json.dll + False ..\..\..\Libraries\MKNetLib\MKNetLib\Dependencies\Ookii.Dialogs.dll @@ -396,6 +399,7 @@ + @@ -487,6 +491,30 @@ Form + + frm_Cheevo_Challenges_Add.vb + + + Form + + + frm_Cheevo_Challenges_Edit.vb + + + Form + + + frm_Emulators_Pre_Post_Launch_Command_Edit.vb + + + Form + + + frm_Export_TDL.vb + + + Form + frm_Known_Emulators.vb @@ -716,6 +744,18 @@ Form + + frm_TDL_Create_Menu.vb + + + Form + + + frm_Total_DOS_Launcher_Config_Edit.vb + + + Form + frm_Users_Edit.vb @@ -802,6 +842,18 @@ frm_Backup.vb + + frm_Cheevo_Challenges_Add.vb + + + frm_Cheevo_Challenges_Edit.vb + + + frm_Emulators_Pre_Post_Launch_Command_Edit.vb + + + frm_Export_TDL.vb + frm_Known_Emulators.vb @@ -918,6 +970,12 @@ frm_Tag_Parser_Edit.vb + + frm_TDL_Create_Menu.vb + + + frm_Total_DOS_Launcher_Config_Edit.vb + frm_Users_Edit.vb diff --git a/Metropolis_Launcher/My Project/AssemblyInfo.vb b/Metropolis_Launcher/My Project/AssemblyInfo.vb index 9757803..40305c9 100644 --- a/Metropolis_Launcher/My Project/AssemblyInfo.vb +++ b/Metropolis_Launcher/My Project/AssemblyInfo.vb @@ -10,9 +10,9 @@ Imports System.Runtime.InteropServices - + - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Metropolis_Launcher/My Project/Resources.Designer.vb b/Metropolis_Launcher/My Project/Resources.Designer.vb index cc2b72c..d39f7e9 100644 --- a/Metropolis_Launcher/My Project/Resources.Designer.vb +++ b/Metropolis_Launcher/My Project/Resources.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34209 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -63,8 +63,27 @@ Namespace My.Resources ''' ''' Sucht eine lokalisierte Zeichenfolge, die <doc> ''' <chm>ml.chm</chm> - ''' <web>http://emulation-evolved.net/ml/</web> - '''</doc> ähnelt. + ''' <web>http://emulation-evolved.net/mlhelp/</web> + ''' <entry> + ''' <form>frm_Login</form> + ''' <control> + ''' </control> + ''' <topic>login.htm</topic> + ''' <anchor>login.htm</anchor> + ''' </entry> + ''' <entry> + ''' <form>frm_Main</form> + ''' <control> + ''' </control> + ''' <topic>welcome.htm</topic> + ''' <anchor> + ''' </anchor> + ''' </entry> + ''' <entry> + ''' <form>frm_Main</form> + ''' <control>ucr_Emulation;grd_Emu_Games</control> + ''' <topic>games__emulation_main_screen.htm</topic> + ''' [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. ''' Friend ReadOnly Property helpmap() As String Get @@ -72,6 +91,55 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ; + '''; Metropolis Launcher AutoHotKey Support v1.0 + '''; based on AutoHotKey Version 1.1.29.01 + '''; + '''; Script Function: + '''; This is a template script + '''; Use it as the starting point for developing your own script + ''' + '''mlEMUDIR := "" ; the directory of the emulator + '''mlEMUEXE := "" ; the executable of the emulator + '''mlEMUFULLPATH := "" ; the full path (emudir \ emuexe) of the emulator + '''mlLISTFILE := "" ; full path to the generated list file + ''' + '''mlNUMBEROFROMS := 0 ; total number of roms + ''' [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property ml_autohotkey_template() As String + Get + Return ResourceManager.GetString("ml_autohotkey_template", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die #include <Constants.au3> + ''' + '''; + '''; Metropolis Launcher AutoIt Support v1.0 + '''; based on AutoIt Version 3 + '''; + '''; Script Function: + '''; This is a template script + '''; Use it as the starting point for developing your own script + ''' + '''Global $mlEMUDIR ; the directory of the emulator + '''Global $mlEMUEXE ; the executable of the emulator + '''Global $mlEMUFULLPATH ; the full path (emudir \ emuexe) of the emulator + '''Global $mlLISTFILE ; full path to the generated list file + ''' + '''Global $mlNUMBEROFROMS ; total number of roms + ''' + ''' [Rest der Zeichenfolge wurde abgeschnitten]"; ähnelt. + ''' + Friend ReadOnly Property ml_autoit_template() As String + Get + Return ResourceManager.GetString("ml_autoit_template", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/Metropolis_Launcher/My Project/Resources.resx b/Metropolis_Launcher/My Project/Resources.resx index 64f2837..3ec7e8e 100644 --- a/Metropolis_Launcher/My Project/Resources.resx +++ b/Metropolis_Launcher/My Project/Resources.resx @@ -112,16 +112,21 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.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\ml_autohotkey_template.ahk;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 + + + ..\resources\ml_autoit_template.au3;System.String, mscorlib, Version=4.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 diff --git a/Metropolis_Launcher/My Project/licenses.licx b/Metropolis_Launcher/My Project/licenses.licx index 50dda33..e69de29 100644 --- a/Metropolis_Launcher/My Project/licenses.licx +++ b/Metropolis_Launcher/My Project/licenses.licx @@ -1,5 +0,0 @@ -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 index 2fef289..6e94383 100644 --- a/Metropolis_Launcher/My Project/licenses.licx.bak +++ b/Metropolis_Launcher/My Project/licenses.licx.bak @@ -1,4 +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 +DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v15.2, Version=15.2.17.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.Utils.Filtering.FilteringUIContext, DevExpress.Utils.v15.2, Version=15.2.17.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit, DevExpress.XtraEditors.v15.2, Version=15.2.17.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v15.2, Version=15.2.17.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb b/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb index 156ee68..93bb7f9 100644 --- a/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb +++ b/Metropolis_Launcher/Pages/ucr_Emulation.Designer.vb @@ -20,97 +20,112 @@ Partial Class ucr_Emulation 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 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 SuperToolTip3 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 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 SuperToolTip5 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 SuperToolTip6 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem6 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 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 SuperToolTip9 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem9 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() 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 ToolTipItem7 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 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 ToolTipItem9 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 ToolTipItem9 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + 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 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 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 SuperToolTip17 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem17 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() 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 ToolTipItem11 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 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 SuperToolTip22 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem22 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() Dim ToolTipItem13 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 ToolTipItem14 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim SerializableAppearanceObject37 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject38 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject39 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject40 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SuperToolTip24 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem24 As DevExpress.Utils.ToolTipTitleItem = New DevExpress.Utils.ToolTipTitleItem() + Dim SuperToolTip25 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem25 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_Emulation)) 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() @@ -162,13 +177,85 @@ Partial Class ucr_Emulation 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_left = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.tlp_Combos = New System.Windows.Forms.TableLayoutPanel() + Me.Ctl_MKDXPanel1 = New MKNetDXLib.ctl_MKDXPanel() + Me.chb_Cheevo_Challenges_Show_Completed = New MKNetDXLib.ctl_MKDXCheckEdit() + 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_USER_Extras_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.bbi_Export_TDL = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_ScummVM_Templates = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_MOBY_Extras_Manager = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Create_TDL_Menu = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Cheevo_add_to_Challenge = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Cheevo_Manage_Challenges = New DevExpress.XtraBars.BarButtonItem() + Me.bbi_Add_to_Challenge = New DevExpress.XtraBars.BarButtonItem() + Me.lbl_Challenges = New MKNetDXLib.ctl_MKDXLabel() + Me.cmb_Challenges = New MKNetDXLib.ctl_MKDXLookupEdit() + Me.BS_Challenges = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ML = New Metropolis_Launcher.DS_ML() + 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.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() @@ -277,71 +364,41 @@ Partial Class ucr_Emulation 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_USER_Extras_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.bbi_ScummVM_Templates = New DevExpress.XtraBars.BarButtonItem() - Me.bbi_MOBY_Extras_Manager = New DevExpress.XtraBars.BarButtonItem() + Me.colCRC32 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colMD5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSHA1 = New DevExpress.XtraGrid.Columns.GridColumn() 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.cxm_Cheevos = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.mni_Cheevos_Add_Challenge = New System.Windows.Forms.ToolStripMenuItem() + Me.mni_Cheevos_Manage_Challenges = New System.Windows.Forms.ToolStripMenuItem() + Me.pnl_Achievements = New MKNetDXLib.ctl_MKDXPanel() + Me.gb_Cheevos = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_RetroAchievements = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_RetroAchievements = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_RetroAchievements = 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.DataColumn5 = New System.Data.DataColumn() + Me.DataColumn6 = New System.Data.DataColumn() + Me.DataColumn7 = New System.Data.DataColumn() + Me.DataColumn8 = New System.Data.DataColumn() + Me.agv_RetroAchievements = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.colTitle = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colDescription1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.colid_RetroAchievements_Unlock = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.rpi_RetroAchievements_Unlock = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.BTA_RetroAchievement_Unlocks = New MKNetLib.cmp_MKBindableTableAdapter(Me.components) + Me.lbl_RetroAchievements_Message = New MKNetDXLib.ctl_MKDXLabel() + Me.prg_RetroAchievements_Download = New MKNetDXLib.ctl_MKDXProgressBarControl() + Me.cxm_Cheevo_Challenges_Cheevos = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.filteringUIContext = New DevExpress.Utils.Filtering.FilteringUIContext(Me.components) - Me.tcl_App = New MKNetDXLib.ctl_MKDXTabControl() + Me.tcl_Details = 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() @@ -448,8 +505,20 @@ Partial Class ucr_Emulation 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.tpg_RetroAchievements = New DevExpress.XtraTab.XtraTabPage() + Me.splt_Achievements = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.gb_Challenge_Cheevos = New MKNetDXLib.ctl_MKDXGroupBox() + Me.grd_Challenge_Cheevos = New MKNetDXLib.ctl_MKDXGrid() + Me.BS_Open_Challenges_Cheevos = New System.Windows.Forms.BindingSource(Me.components) + Me.agv_Challenge_Cheevos = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView() + Me.GridBand2 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand() + Me.BandedGridColumn1 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.BandedGridColumn2 = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() + Me.RepositoryItemLookUpEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() + Me.lbl_Challenge_Cheevos_Unlocked = New MKNetDXLib.ctl_MKDXLabel() Me.spltpnl_Main = New MKNetDXLib.ctl_MKDXSplitPanel() Me.spltpnl_Details = New MKNetDXLib.ctl_MKDXSplitPanel() + Me.lbl_MobyDownload_Error = New MKNetDXLib.ctl_MKDXLabel() Me.prg_Extras_Download = New MKNetDXLib.ctl_MKDXProgressBarControl() Me.pic_Game = New MKNetDXLib.ctl_MKDXPictureEdit() Me.lbl_Displayname = New MKNetDXLib.ctl_MKDXLabel() @@ -462,22 +531,22 @@ Partial Class ucr_Emulation Me.popmnu_Extras = New MKNetDXLib.cmp_MKDXPopupMenu() Me.popmnu_Statistics = New MKNetDXLib.cmp_MKDXPopupMenu() Me.BS_Want = New System.Windows.Forms.BindingSource(Me.components) + Me.DataTable2 = New System.Data.DataTable() + Me.DataColumn9 = New System.Data.DataColumn() + Me.DataColumn10 = New System.Data.DataColumn() + Me.popmnu_Cheevos = New MKNetDXLib.cmp_MKDXPopupMenu() 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() + CType(Me.splt_left, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_left.SuspendLayout() Me.tlp_Combos.SuspendLayout() + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Ctl_MKDXPanel1.SuspendLayout() + CType(Me.chb_Cheevo_Challenges_Show_Completed.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Challenges, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pnl_31, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl_31.SuspendLayout() CType(Me.txb_Search.Properties, System.ComponentModel.ISupportInitialize).BeginInit() @@ -501,9 +570,34 @@ Partial Class ucr_Emulation Me.pnl_11.SuspendLayout() CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() + 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.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() + Me.cxm_Cheevos.SuspendLayout() + CType(Me.pnl_Achievements, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Achievements.SuspendLayout() + CType(Me.gb_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Cheevos.SuspendLayout() + CType(Me.grd_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.agv_RetroAchievements, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.rpi_RetroAchievements_Unlock, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BTA_RetroAchievement_Unlocks, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.prg_RetroAchievements_Download.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cxm_Cheevo_Challenges_Cheevos.SuspendLayout() CType(Me.filteringUIContext, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.tcl_App, System.ComponentModel.ISupportInitialize).BeginInit() - Me.tcl_App.SuspendLayout() + CType(Me.tcl_Details, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tcl_Details.SuspendLayout() Me.tpg_Summary.SuspendLayout() Me.tpg_TechnicalSpecs.SuspendLayout() CType(Me.grd_TechnicalSpecs, System.ComponentModel.ISupportInitialize).BeginInit() @@ -561,6 +655,15 @@ Partial Class ucr_Emulation 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() + Me.tpg_RetroAchievements.SuspendLayout() + CType(Me.splt_Achievements, System.ComponentModel.ISupportInitialize).BeginInit() + Me.splt_Achievements.SuspendLayout() + CType(Me.gb_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gb_Challenge_Cheevos.SuspendLayout() + CType(Me.grd_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BS_Open_Challenges_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.agv_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.spltpnl_Main, System.ComponentModel.ISupportInitialize).BeginInit() Me.spltpnl_Main.SuspendLayout() CType(Me.spltpnl_Details, System.ComponentModel.ISupportInitialize).BeginInit() @@ -573,1986 +676,2374 @@ Partial Class ucr_Emulation CType(Me.popmnu_Extras, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.popmnu_Statistics, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BS_Want, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.popmnu_Cheevos, 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.Controls.Add(Me.splt_left) 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 + 'splt_left + ' + Me.splt_left.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.splt_left.Dock = System.Windows.Forms.DockStyle.Fill + Me.splt_left.Horizontal = False + Me.splt_left.IsSplitterFixed = True + Me.splt_left.Location = New System.Drawing.Point(0, 0) + Me.splt_left.Name = "splt_left" + Me.splt_left.Panel1.Controls.Add(Me.tlp_Combos) + Me.splt_left.Panel1.MinSize = 88 + Me.splt_left.Panel1.Text = "Panel1" + Me.splt_left.Panel2.Controls.Add(Me.splt_FilterUI_grdMain) + Me.splt_left.Panel2.Text = "Panel2" + Me.splt_left.Size = New System.Drawing.Size(488, 600) + Me.splt_left.SplitterPosition = 86 + Me.splt_left.TabIndex = 8 + Me.splt_left.ToolTipController = Me.ttctl_TecSpec.DefaultController ' - Me.splt_FilterUI_grdMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ + '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.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 + 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.Ctl_MKDXPanel1, 0, 3) + 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(0, 0) + Me.tlp_Combos.Margin = New System.Windows.Forms.Padding(0) + Me.tlp_Combos.Name = "tlp_Combos" + Me.tlp_Combos.RowCount = 4 + 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.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.tlp_Combos.Size = New System.Drawing.Size(488, 92) + Me.tlp_Combos.TabIndex = 6 ' - 'accordion_FilterUI + 'Ctl_MKDXPanel1 + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.Ctl_MKDXPanel1, DevExpress.Utils.DefaultBoolean.[Default]) + Me.Ctl_MKDXPanel1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.Ctl_MKDXPanel1.Controls.Add(Me.chb_Cheevo_Challenges_Show_Completed) + Me.Ctl_MKDXPanel1.Controls.Add(Me.lbl_Challenges) + Me.Ctl_MKDXPanel1.Controls.Add(Me.cmb_Challenges) + Me.Ctl_MKDXPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Ctl_MKDXPanel1.Location = New System.Drawing.Point(0, 66) + Me.Ctl_MKDXPanel1.Margin = New System.Windows.Forms.Padding(0) + Me.Ctl_MKDXPanel1.Name = "Ctl_MKDXPanel1" + Me.Ctl_MKDXPanel1.Size = New System.Drawing.Size(244, 26) + Me.Ctl_MKDXPanel1.TabIndex = 10 + ' + 'chb_Cheevo_Challenges_Show_Completed + ' + Me.chb_Cheevo_Challenges_Show_Completed.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.chb_Cheevo_Challenges_Show_Completed.EditValue = True + Me.chb_Cheevo_Challenges_Show_Completed.Location = New System.Drawing.Point(146, 1) + Me.chb_Cheevo_Challenges_Show_Completed.MenuManager = Me.barmng + Me.chb_Cheevo_Challenges_Show_Completed.MKBoundLabel = Nothing + Me.chb_Cheevo_Challenges_Show_Completed.MKEditValue_Compare = Nothing + Me.chb_Cheevo_Challenges_Show_Completed.Name = "chb_Cheevo_Challenges_Show_Completed" + Me.chb_Cheevo_Challenges_Show_Completed.Properties.Caption = "show completed" + Me.chb_Cheevo_Challenges_Show_Completed.Size = New System.Drawing.Size(96, 19) + ToolTipTitleItem2.Text = "Also show completed games of the current or previous tiers" + SuperToolTip2.Items.Add(ToolTipTitleItem2) + Me.chb_Cheevo_Challenges_Show_Completed.SuperTip = SuperToolTip2 + Me.chb_Cheevo_Challenges_Show_Completed.TabIndex = 2 ' - 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 + 'barmng ' - Me.AccordionControlElement2.Expanded = True - Me.AccordionControlElement2.HeaderVisible = False - Me.AccordionControlElement2.Name = "AccordionControlElement2" + 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_USER_Extras_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.bbi_ScummVM_Templates, Me.bbi_MOBY_Extras_Manager, Me.bbi_Export_TDL, Me.bbi_Create_TDL_Menu, Me.bbi_Cheevo_add_to_Challenge, Me.bbi_Cheevo_Manage_Challenges, Me.bbi_Add_to_Challenge}) + Me.barmng.MaxItemId = 36 ' - 'lbl_QuickFilter + 'barDockControlTop ' - 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" + 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) ' - 'grd_Emu_Games + 'barDockControlBottom ' - 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}) + 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) ' - 'BS_Emu_Games + 'barDockControlLeft ' - Me.BS_Emu_Games.DataMember = "src_ucr_Emulation_Games" - Me.BS_Emu_Games.DataSource = Me.DS_ML + 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) ' - 'DS_ML + 'barDockControlRight ' - Me.DS_ML.DataSetName = "DS_ML" - Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + 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) ' - 'gv_Emu_Games + 'bbi_Contribute_TechInfo ' - 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 + 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" ' - 'colSimilarity + 'bbi_Open_Moby_Page ' - 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)" + 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" ' - 'colPlatform_Short + 'bsi_Launch ' - 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 + 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" ' - 'colGame + 'bbi_Edit_Game ' - 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 + Me.bbi_Edit_Game.AllowRightClickInMenu = False + Me.bbi_Edit_Game.Caption = "&Edit selected Game/s" + Me.bbi_Edit_Game.Id = 3 + Me.bbi_Edit_Game.ImageUri.Uri = "Edit" + Me.bbi_Edit_Game.Name = "bbi_Edit_Game" ' - 'colWant + 'bbi_DOSBox_Clear_Exe_Config ' - 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 + 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" ' - 'rpi_Want + 'bbi_Rom_Manager ' - Me.rpi_Want.AutoHeight = False - Me.rpi_Want.Name = "rpi_Want" + 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" ' - 'colHave + 'bbi_Rombase_Manager ' - 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 + 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" ' - 'rpi_Have + 'bbi_Edit_Multiple_Games ' - Me.rpi_Have.AutoHeight = False - Me.rpi_Have.Name = "rpi_Have" + 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" ' - 'colTrade + 'bbi_Export ' - 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 + 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" ' - 'rpi_Trade + 'bbi_Emu_Settings ' - Me.rpi_Trade.AutoHeight = False - Me.rpi_Trade.Name = "rpi_Trade" + 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" ' - 'coltmp_Highlighted + 'bbi_DOSBox_Templates ' - 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 + 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" ' - 'rpi_Fav + 'bbi_Analyze_Missing_Extras ' - Me.rpi_Fav.AutoHeight = False - Me.rpi_Fav.Name = "rpi_Fav" + 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" ' - 'colFolder + 'bsi_MultiUser ' - 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" + 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" ' - 'colFile + 'bbi_MultiUser_Add_Games ' - 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" + 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" ' - 'colInnerFile + 'bbi_MultiUser_Remove_Games ' - 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)" + 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" ' - 'colRegions + 'bbi_MultiUser_Show_Games ' - 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 + 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" ' - 'colLanguages + 'bbi_Staff_Info ' - 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 + 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" ' - 'colVersion + 'bbi_Staff_Filter ' - 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" + 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" ' - 'colRank + 'bbi_Similarity_Calculation ' - 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 + 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" ' - 'colScore + 'bbi_Show_Similarity_Feature_Columns ' - 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 + 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" ' - 'colRating + 'bbi_Open_Similarity_Details ' - 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 + 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" ' - 'colYear + 'bbi_Launch_Random ' - 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 + 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 ' - 'colAdded + 'bbi_USER_Extras_Manager ' - 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 + Me.bbi_USER_Extras_Manager.Caption = "Open USER Extras &Manager" + Me.bbi_USER_Extras_Manager.Id = 21 + Me.bbi_USER_Extras_Manager.ImageUri.Uri = "Zoom2" + Me.bbi_USER_Extras_Manager.Name = "bbi_USER_Extras_Manager" ' - 'colNum_Played + 'bbi_Extras_Viewer_Settings ' - 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 + 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" ' - 'colNum_Runtime + 'bbi_GameGroup_Info ' - 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 + 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" ' - 'colLast_Played + 'bbi_GameGroup_Filter ' - 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 + 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" ' - 'colFavourite + 'bbi_Statistics_Remove ' - 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 + 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" ' - 'colPlatform_Exclusive + 'bsi_Export ' - 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 + 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), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Export_TDL)}) + Me.bsi_Export.Name = "bsi_Export" ' - 'colAge_Pessimistic + 'bbi_Export_CSV ' - 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 + 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" ' - 'colAge_Optimistic + 'bbi_Export_XLSX ' - 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 + 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" ' - 'colPublisher + 'bbi_Export_TDL ' - 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 + Me.bbi_Export_TDL.Caption = "Export as Total DOS Launcher Collection..." + Me.bbi_Export_TDL.Id = 31 + Me.bbi_Export_TDL.ImageUri.Uri = "SaveAll" + Me.bbi_Export_TDL.Name = "bbi_Export_TDL" ' - 'colDeveloper + 'bbi_ScummVM_Templates ' - 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 + Me.bbi_ScummVM_Templates.Caption = "Open ScummVM Templates" + Me.bbi_ScummVM_Templates.Id = 29 + Me.bbi_ScummVM_Templates.ImageUri.Uri = "Replace" + Me.bbi_ScummVM_Templates.Name = "bbi_ScummVM_Templates" ' - 'colBasic_Genres + 'bbi_MOBY_Extras_Manager ' - 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 + Me.bbi_MOBY_Extras_Manager.Caption = "Open MOBY Extras Manager" + Me.bbi_MOBY_Extras_Manager.Id = 30 + Me.bbi_MOBY_Extras_Manager.ImageUri.Uri = "Zoom2" + Me.bbi_MOBY_Extras_Manager.Name = "bbi_MOBY_Extras_Manager" ' - 'colPerspectives + 'bbi_Create_TDL_Menu ' - 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 + Me.bbi_Create_TDL_Menu.Caption = "Create Total DOS Launcher Menu" + Me.bbi_Create_TDL_Menu.Id = 32 + Me.bbi_Create_TDL_Menu.ImageUri.Uri = "ListBullets" + Me.bbi_Create_TDL_Menu.Name = "bbi_Create_TDL_Menu" ' - 'colVisual_Presentation + 'bbi_Cheevo_add_to_Challenge ' - 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 + Me.bbi_Cheevo_add_to_Challenge.Caption = "&Add to Challenge" + Me.bbi_Cheevo_add_to_Challenge.Id = 33 + Me.bbi_Cheevo_add_to_Challenge.ImageUri.Uri = "Add" + Me.bbi_Cheevo_add_to_Challenge.Name = "bbi_Cheevo_add_to_Challenge" ' - 'colPacing + 'bbi_Cheevo_Manage_Challenges ' - 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 + Me.bbi_Cheevo_Manage_Challenges.Caption = "Edit Challenges" + Me.bbi_Cheevo_Manage_Challenges.Id = 34 + Me.bbi_Cheevo_Manage_Challenges.ImageUri.Uri = "ListBullets" + Me.bbi_Cheevo_Manage_Challenges.Name = "bbi_Cheevo_Manage_Challenges" ' - 'colGameplay + 'bbi_Add_to_Challenge ' - 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 + Me.bbi_Add_to_Challenge.Caption = "Add to Challenge (Total Runtime)" + Me.bbi_Add_to_Challenge.Id = 35 + Me.bbi_Add_to_Challenge.ImageUri.Uri = "Add" + Me.bbi_Add_to_Challenge.Name = "bbi_Add_to_Challenge" ' - 'colInterface_Control + 'lbl_Challenges ' - 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 + Me.lbl_Challenges.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Challenges.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Challenges.Location = New System.Drawing.Point(0, 0) + Me.lbl_Challenges.MKBoundControl1 = Nothing + Me.lbl_Challenges.MKBoundControl2 = Nothing + Me.lbl_Challenges.MKBoundControl3 = Nothing + Me.lbl_Challenges.MKBoundControl4 = Nothing + Me.lbl_Challenges.MKBoundControl5 = Nothing + Me.lbl_Challenges.Name = "lbl_Challenges" + Me.lbl_Challenges.Size = New System.Drawing.Size(53, 20) + ToolTipTitleItem3.Text = "Challenge" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Filter by open RetroAchievements challenges" + SuperToolTip3.Items.Add(ToolTipTitleItem3) + SuperToolTip3.Items.Add(ToolTipItem2) + Me.lbl_Challenges.SuperTip = SuperToolTip3 + Me.lbl_Challenges.TabIndex = 0 + Me.lbl_Challenges.Text = "Challenge:" ' - 'colSports_Themes + 'cmb_Challenges ' - 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 + Me.cmb_Challenges.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_Challenges.Location = New System.Drawing.Point(56, 0) + Me.cmb_Challenges.MKBoundLabel = Nothing + Me.cmb_Challenges.MKEditValue_Compare = Nothing + Me.cmb_Challenges.Name = "cmb_Challenges" + ToolTipTitleItem4.Text = "Edit Challenge" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + Me.cmb_Challenges.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), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, SuperToolTip4, True)}) + Me.cmb_Challenges.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("id_Cheevo_Challenges", "id_Cheevo_Challenges", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Name", "Name", 5, DevExpress.Utils.FormatType.None, "", False, DevExpress.Utils.HorzAlignment.Near), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("Tier", "Tier", 5, DevExpress.Utils.FormatType.Numeric, "", False, DevExpress.Utils.HorzAlignment.Far), New DevExpress.XtraEditors.Controls.LookUpColumnInfo("MaxTier", "Max Tier", 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_Challenges.Properties.DataSource = Me.BS_Challenges + Me.cmb_Challenges.Properties.DisplayMember = "DisplayText" + Me.cmb_Challenges.Properties.NullText = "" + Me.cmb_Challenges.Properties.ShowHeader = False + Me.cmb_Challenges.Properties.ValueMember = "id_Cheevo_Challenges" + Me.cmb_Challenges.Size = New System.Drawing.Size(88, 20) + ToolTipTitleItem5.Text = "Challenge" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Filter by open RetroAchievements challenges" + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem3) + Me.cmb_Challenges.SuperTip = SuperToolTip5 + Me.cmb_Challenges.TabIndex = 1 ' - 'colEducational_Categories + 'BS_Challenges ' - 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 + Me.BS_Challenges.DataMember = "ttb_Open_Challenges" + Me.BS_Challenges.DataSource = Me.DS_ML ' - 'colVehicular_Themes + 'DS_ML ' - 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 + Me.DS_ML.DataSetName = "DS_ML" + Me.DS_ML.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'colSetting + 'pnl_31 ' - 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 + 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(244, 22) + Me.pnl_31.TabIndex = 8 ' - 'colNarrative_Theme_Topic + 'lbl_Search ' - 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 + 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) + ToolTipTitleItem6.Text = "Search" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.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." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem4) + Me.lbl_Search.SuperTip = SuperToolTip6 + Me.lbl_Search.TabIndex = 0 + Me.lbl_Search.Text = "Search:" ' - 'colDLC_Addon + 'txb_Search ' - 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 + 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), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "Apply Search", Nothing, Nothing, True)}) + Me.txb_Search.Size = New System.Drawing.Size(187, 20) + ToolTipTitleItem7.Text = "Search" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.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." + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem5) + Me.txb_Search.SuperTip = SuperToolTip7 + Me.txb_Search.TabIndex = 1 ' - 'colSpecial_Edition + 'pnl_32 ' - 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 + 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(244, 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(244, 22) + Me.pnl_32.TabIndex = 9 ' - 'colOther_Attributes + 'lbl_Similarity ' - 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 + 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(2, 0) + 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) + ToolTipTitleItem8.Text = "Similar to" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Choose from your saved Similarity Calculation results to feed them to the main ta" & + "ble" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem6) + Me.lbl_Similarity.SuperTip = SuperToolTip8 + Me.lbl_Similarity.TabIndex = 0 + Me.lbl_Similarity.Text = "Similar to:" ' - 'colMinPlayers + 'cmb_Similarity_Calculation_Results ' - 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 + 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(58, 0) + 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" + ToolTipTitleItem9.Text = "Delete similarity calculation results" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + ToolTipTitleItem10.Text = "Show similarity calculation results" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + 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), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", Nothing, SuperToolTip9, 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), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", Nothing, SuperToolTip10, 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(184, 20) + ToolTipTitleItem11.Text = "Similar to" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Choose from your saved Similarity Calculation results to feed them to the main ta" & + "ble" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem7) + Me.cmb_Similarity_Calculation_Results.SuperTip = SuperToolTip11 + Me.cmb_Similarity_Calculation_Results.TabIndex = 1 ' - '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 + 'BS_Similarity_Calculation_Results ' - 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" + Me.BS_Similarity_Calculation_Results.DataMember = "src_ucr_Emulation_cmb_Similarity_Calculation_Results" + Me.BS_Similarity_Calculation_Results.DataSource = Me.DS_ML ' - 'colTrainer + 'pnl_22 ' - 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)" + 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(244, 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(244, 22) + Me.pnl_22.TabIndex = 7 ' - 'RepositoryItemCheckEdit1 + 'lbl_Group ' - Me.RepositoryItemCheckEdit1.AutoHeight = False - Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" - Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked + 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(2, 0) + 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) + ToolTipTitleItem12.Text = "Group" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Filter by Game Groups" + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem8) + Me.lbl_Group.SuperTip = SuperToolTip12 + Me.lbl_Group.TabIndex = 0 + Me.lbl_Group.Text = "Group:" ' - 'colTranslation + 'cmb_Groups ' - 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" + 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(58, 0) + Me.cmb_Groups.MKBoundLabel = Nothing + Me.cmb_Groups.MKEditValue_Compare = Nothing + Me.cmb_Groups.Name = "cmb_Groups" + ToolTipTitleItem13.Text = "Show Group info" + SuperToolTip13.Items.Add(ToolTipTitleItem13) + 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), SerializableAppearanceObject17, SerializableAppearanceObject18, SerializableAppearanceObject19, SerializableAppearanceObject20, "", Nothing, SuperToolTip13, 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(184, 20) + ToolTipTitleItem14.Text = "Group" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Filter by Game Groups" + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem9) + Me.cmb_Groups.SuperTip = SuperToolTip14 + Me.cmb_Groups.TabIndex = 1 ' - 'colHack + 'BS_Group ' - 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" + Me.BS_Group.DataMember = "src_ucr_Emulation_cmb_Groups" + Me.BS_Group.DataSource = Me.DS_ML ' - 'colBios + 'pnl_12 ' - 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)" + 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(244, 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(244, 22) + Me.pnl_12.TabIndex = 7 ' - 'colPrototype + 'lbl_Filterset ' - 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" + 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(2, 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) + ToolTipTitleItem15.Text = "Filterset" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Organize your filters in saved and re-usable filter sets" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem10) + Me.lbl_Filterset.SuperTip = SuperToolTip15 + Me.lbl_Filterset.TabIndex = 0 + Me.lbl_Filterset.Text = "Filterset:" ' - 'colAlpha + 'cmb_Filterset ' - 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" + 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(58, 0) + Me.cmb_Filterset.MKBoundLabel = Nothing + Me.cmb_Filterset.MKEditValue_Compare = Nothing + Me.cmb_Filterset.Name = "cmb_Filterset" + ToolTipTitleItem16.Text = "Add a new filterset" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + ToolTipTitleItem17.Text = "Delete this filterset" + SuperToolTip17.Items.Add(ToolTipTitleItem17) + ToolTipTitleItem18.Text = "Edit this filterset" + SuperToolTip18.Items.Add(ToolTipTitleItem18) + 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), SerializableAppearanceObject21, SerializableAppearanceObject22, SerializableAppearanceObject23, SerializableAppearanceObject24, "", Nothing, SuperToolTip16, 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), SerializableAppearanceObject25, SerializableAppearanceObject26, SerializableAppearanceObject27, SerializableAppearanceObject28, "", Nothing, SuperToolTip17, 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), SerializableAppearanceObject29, SerializableAppearanceObject30, SerializableAppearanceObject31, SerializableAppearanceObject32, "", Nothing, SuperToolTip18, 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(184, 20) + ToolTipTitleItem19.Text = "Filterset" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Organize your filters in saved and re-usable filter sets" + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem11) + Me.cmb_Filterset.SuperTip = SuperToolTip19 + Me.cmb_Filterset.TabIndex = 1 ' - 'colBeta + 'BS_FilterSets ' - 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" + Me.BS_FilterSets.DataMember = "tbl_FilterSets" + Me.BS_FilterSets.DataSource = Me.DS_ML ' - 'colSample + 'pnl_21 ' - 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" + 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(244, 22) + Me.pnl_21.TabIndex = 7 ' - 'colKiosk + 'lbl_Staff ' - 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" + 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) + ToolTipTitleItem20.Text = "Staff" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Filter by individual staff members" + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem12) + Me.lbl_Staff.SuperTip = SuperToolTip20 + Me.lbl_Staff.TabIndex = 0 + Me.lbl_Staff.Text = "Staff:" ' - 'colUnlicensed + 'cmb_Staff ' - 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" + 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" + ToolTipTitleItem21.Text = "Show Staff Info" + SuperToolTip21.Items.Add(ToolTipTitleItem21) + 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), SerializableAppearanceObject33, SerializableAppearanceObject34, SerializableAppearanceObject35, SerializableAppearanceObject36, "", Nothing, SuperToolTip21, 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(187, 20) + ToolTipTitleItem22.Text = "Staff" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "Filter by individual staff members" + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem13) + Me.cmb_Staff.SuperTip = SuperToolTip22 + Me.cmb_Staff.TabIndex = 1 ' - 'colFixed + 'BS_Developer ' - 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" + Me.BS_Developer.DataMember = "src_ucr_Emulation_cmb_Staff" + Me.BS_Developer.DataSource = Me.DS_ML ' - 'colPirated + 'pnl_11 ' - 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)" + 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(244, 22) + Me.pnl_11.TabIndex = 7 ' - 'colGood + 'lbl_Platform ' - 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" + 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) + ToolTipTitleItem23.Text = "Platform" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "Filter by a specific platform - or choose ""All Platforms""" + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem14) + Me.lbl_Platform.SuperTip = SuperToolTip23 + Me.lbl_Platform.TabIndex = 0 + Me.lbl_Platform.Text = "Platform:" ' - 'colBad + 'cmb_Platform ' - 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" + 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" + ToolTipTitleItem24.Text = "Open the Platform Settings dialog" + SuperToolTip24.Items.Add(ToolTipTitleItem24) + 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), SerializableAppearanceObject37, SerializableAppearanceObject38, SerializableAppearanceObject39, SerializableAppearanceObject40, "", Nothing, SuperToolTip24, 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(187, 20) + ToolTipTitleItem25.Text = "Platform" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "Filter by a specific platform - or choose ""All Platforms""" + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem15) + Me.cmb_Platform.SuperTip = SuperToolTip25 + Me.cmb_Platform.TabIndex = 1 ' - 'colOverdump + 'BS_Platforms ' - 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" + Me.BS_Platforms.DataMember = "src_ucr_Emulation_Platforms" + Me.BS_Platforms.DataSource = Me.DS_ML ' - 'colPublicDomain + 'splt_FilterUI_grdMain ' - 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" + 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, 4) + 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(487, 500) + 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 ' - 'colRating_Gameplay + 'accordion_FilterUI ' - 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.)" + 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" ' - 'colRating_Personal + 'AccordionControlElement2 ' - 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" + Me.AccordionControlElement2.Expanded = True + Me.AccordionControlElement2.HeaderVisible = False + Me.AccordionControlElement2.Name = "AccordionControlElement2" ' - 'colRating_Graphics + 'lbl_QuickFilter ' - 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" + 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" ' - 'colRating_Sound + 'grd_Emu_Games ' - 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" + 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(482, 500) + 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}) ' - 'colRating_Story + 'BS_Emu_Games ' - 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" & - "" + Me.BS_Emu_Games.DataMember = "src_ucr_Emulation_Games" + Me.BS_Emu_Games.DataSource = Me.DS_ML ' - 'colMP_GameModes + 'gv_Emu_Games ' - 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 + 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.colCRC32, Me.colMD5, Me.colSHA1}) + 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 ' - 'colMP_Options + 'colSimilarity ' - 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 + 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)" ' - 'col001_Platform + 'colPlatform_Short ' - 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" + 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 ' - 'col002_MobyRank + 'colGame ' - 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" + 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 ' - 'col003_MobyScore + 'colWant ' - 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" + 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 ' - 'col004_Publisher + 'rpi_Want ' - 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" + Me.rpi_Want.AutoHeight = False + Me.rpi_Want.Name = "rpi_Want" ' - 'col005_Developer + 'colHave ' - 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" + 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 ' - 'col006_Year + 'rpi_Have ' - 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" + Me.rpi_Have.AutoHeight = False + Me.rpi_Have.Name = "rpi_Have" ' - 'col101_Basic_Genres + 'colTrade ' - 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.)" + 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 ' - 'col102_Perspectives + 'rpi_Trade ' - 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.)" + Me.rpi_Trade.AutoHeight = False + Me.rpi_Trade.Name = "rpi_Trade" ' - 'col107_Visual_Presentation + 'coltmp_Highlighted ' - 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.)" + 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 ' - 'col109_Pacing + 'rpi_Fav ' - 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.)" + Me.rpi_Fav.AutoHeight = False + Me.rpi_Fav.Name = "rpi_Fav" ' - 'col108_Gameplay + 'colFolder ' - 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.)" + 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" ' - 'col113_Interface_Control + 'colFile ' - 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.)" + 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" ' - 'col103_Sports_Themes + 'colInnerFile ' - 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.)" + 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 ' - 'col105_Educational_Categories + 'colMinPlayers ' - 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.)" + 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 ' - 'col112_Vehicular_Themes + 'colMaxPlayers ' - 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.)" + 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 ' - 'col111_Setting + 'colAlt ' - 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.)" + 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" ' - 'col110_Narrative_Theme_Topic + 'colTrainer ' - 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.)" + 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)" ' - 'col114_DLC_Addon + 'RepositoryItemCheckEdit1 ' - 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.)" + Me.RepositoryItemCheckEdit1.AutoHeight = False + Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1" + Me.RepositoryItemCheckEdit1.NullStyle = DevExpress.XtraEditors.Controls.StyleIndeterminate.Unchecked ' - 'col115_Special_Edition + 'colTranslation ' - 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)" + 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" ' - 'col106_Other_Attributes + 'colHack ' - 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.)" + 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" ' - 'col201_MinPlayers + 'colBios ' - 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" + 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)" ' - 'col202_MaxPlayers + 'colPrototype ' - 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" + 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" ' - 'col203_AgeO + 'colAlpha ' - 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)" + 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" ' - 'col204_AgeP + 'colBeta ' - 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)" + 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" ' - 'col205_Rating_Descriptors + 'colSample ' - 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.)" + 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" ' - 'col207_Multiplayer_Attributes + 'colKiosk ' - 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.)" + 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" ' - 'col206_Other_Attributes + 'colUnlicensed ' - 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.)" + 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" ' - 'col301_Group_Membership + 'colFixed ' - 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" + 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" ' - 'col401_Staff + 'colPirated ' - 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" + 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)" ' - 'colid_Emu_Games + 'colGood ' - 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" + 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" ' - 'colid_Moby_Games + 'colBad ' - 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" + 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" ' - 'colid_Moby_Platforms + 'colOverdump ' - 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" + 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" ' - 'colid_Moby_Releases + 'colPublicDomain ' - 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" + 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" ' - 'colid_DOSBox_Configs + 'colRating_Gameplay ' - 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" + 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.)" ' - 'colid_DOSBox_Configs_Template + 'colRating_Personal ' - 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" + 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" ' - 'barmng + 'colRating_Graphics ' - 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_USER_Extras_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.bbi_ScummVM_Templates, Me.bbi_MOBY_Extras_Manager}) - Me.barmng.MaxItemId = 31 + 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" ' - 'barDockControlTop + 'colRating_Sound ' - 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) + 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" ' - 'barDockControlBottom + 'colRating_Story ' - 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) + 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" & + "" ' - 'barDockControlLeft + 'colMP_GameModes ' - 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) + 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 ' - 'barDockControlRight + 'colMP_Options ' - 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) + 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 ' - 'bbi_Contribute_TechInfo + 'col001_Platform ' - 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" + 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" ' - 'bbi_Open_Moby_Page + 'col002_MobyRank ' - 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" + 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" ' - 'bsi_Launch + 'col003_MobyScore ' - 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" + 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" ' - 'bbi_Edit_Game + 'col004_Publisher ' - 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" + 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" ' - 'bbi_DOSBox_Clear_Exe_Config + 'col005_Developer ' - 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" + 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" ' - 'bbi_Rom_Manager + 'col006_Year ' - 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" + 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" ' - 'bbi_Rombase_Manager + 'col101_Basic_Genres ' - 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" + 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.)" ' - 'bbi_Edit_Multiple_Games + 'col102_Perspectives ' - 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" + 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.)" ' - 'bbi_Export + 'col107_Visual_Presentation ' - 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" + 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.)" ' - 'bbi_Emu_Settings + 'col109_Pacing ' - 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" + 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.)" ' - 'bbi_DOSBox_Templates + 'col108_Gameplay ' - 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" + 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.)" ' - 'bbi_Analyze_Missing_Extras + 'col113_Interface_Control ' - 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" + 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.)" ' - 'bsi_MultiUser + 'col103_Sports_Themes ' - 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" + 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.)" ' - 'bbi_MultiUser_Add_Games + 'col105_Educational_Categories ' - 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" + 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.)" ' - 'bbi_MultiUser_Remove_Games + 'col112_Vehicular_Themes ' - 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" + 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.)" ' - 'bbi_MultiUser_Show_Games + 'col111_Setting ' - 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" + 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.)" ' - 'bbi_Staff_Info + 'col110_Narrative_Theme_Topic ' - 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" + 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.)" ' - 'bbi_Staff_Filter + 'col114_DLC_Addon ' - 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" + 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.)" ' - 'bbi_Similarity_Calculation + 'col115_Special_Edition ' - 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" + 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)" ' - 'bbi_Show_Similarity_Feature_Columns + 'col106_Other_Attributes ' - 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" + 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.)" ' - 'bbi_Open_Similarity_Details + 'col201_MinPlayers ' - 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" + 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" ' - 'bbi_Launch_Random + 'col202_MaxPlayers ' - 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 + 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" ' - 'bbi_USER_Extras_Manager + 'col203_AgeO ' - Me.bbi_USER_Extras_Manager.Caption = "Open USER Extras &Manager" - Me.bbi_USER_Extras_Manager.Id = 21 - Me.bbi_USER_Extras_Manager.ImageUri.Uri = "Zoom2" - Me.bbi_USER_Extras_Manager.Name = "bbi_USER_Extras_Manager" + 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)" ' - 'bbi_Extras_Viewer_Settings + 'col204_AgeP ' - 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" + 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)" ' - 'bbi_GameGroup_Info + 'col205_Rating_Descriptors ' - 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" + 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.)" ' - 'bbi_GameGroup_Filter + 'col207_Multiplayer_Attributes ' - 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" + 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.)" ' - 'bbi_Statistics_Remove + 'col206_Other_Attributes ' - 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" + 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.)" ' - 'bsi_Export + 'col301_Group_Membership ' - 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" + 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" ' - 'bbi_Export_CSV + 'col401_Staff ' - 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" + 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" ' - 'bbi_Export_XLSX + 'colid_Emu_Games ' - 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" + 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" ' - 'bbi_ScummVM_Templates + 'colid_Moby_Games ' - Me.bbi_ScummVM_Templates.Caption = "Open ScummVM Templates" - Me.bbi_ScummVM_Templates.Id = 29 - Me.bbi_ScummVM_Templates.ImageUri.Uri = "Replace" - Me.bbi_ScummVM_Templates.Name = "bbi_ScummVM_Templates" + 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" ' - 'bbi_MOBY_Extras_Manager + 'colid_Moby_Platforms ' - Me.bbi_MOBY_Extras_Manager.Caption = "Open MOBY Extras Manager" - Me.bbi_MOBY_Extras_Manager.Id = 30 - Me.bbi_MOBY_Extras_Manager.ImageUri.Uri = "Zoom2" - Me.bbi_MOBY_Extras_Manager.Name = "bbi_MOBY_Extras_Manager" + 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" ' - 'ttctl_TecSpec + '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 ' - 'tlp_Combos + 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" ' - 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 + 'colCRC32 ' - 'pnl_31 + Me.colCRC32.FieldName = "CRC32" + Me.colCRC32.Name = "colCRC32" + Me.colCRC32.OptionsColumn.AllowEdit = False + Me.colCRC32.OptionsColumn.ReadOnly = True ' - 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 + 'colMD5 ' - 'lbl_Search + Me.colMD5.FieldName = "MD5" + Me.colMD5.Name = "colMD5" + Me.colMD5.OptionsColumn.AllowEdit = False + Me.colMD5.OptionsColumn.ReadOnly = True ' - 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:" + 'colSHA1 ' - 'txb_Search + Me.colSHA1.FieldName = "SHA1" + Me.colSHA1.Name = "colSHA1" + Me.colSHA1.OptionsColumn.AllowEdit = False + Me.colSHA1.OptionsColumn.ReadOnly = True ' - 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 + 'ttctl_TecSpec ' - '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 + 'spnl_Summary ' - 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 + 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 ' - 'BS_Similarity_Calculation_Results + 'cxm_Cheevos ' - Me.BS_Similarity_Calculation_Results.DataMember = "src_ucr_Emulation_cmb_Similarity_Calculation_Results" - Me.BS_Similarity_Calculation_Results.DataSource = Me.DS_ML + Me.ttctl_TecSpec.SetAllowHtmlText(Me.cxm_Cheevos, DevExpress.Utils.DefaultBoolean.[Default]) + Me.cxm_Cheevos.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mni_Cheevos_Add_Challenge, Me.mni_Cheevos_Manage_Challenges}) + Me.cxm_Cheevos.Name = "cxm_Cheevos" + Me.cxm_Cheevos.Size = New System.Drawing.Size(167, 70) ' - 'pnl_22 + 'mni_Cheevos_Add_Challenge ' - 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 + Me.mni_Cheevos_Add_Challenge.Name = "mni_Cheevos_Add_Challenge" + Me.mni_Cheevos_Add_Challenge.Size = New System.Drawing.Size(166, 22) + Me.mni_Cheevos_Add_Challenge.Text = "&Add to Challenge" ' - 'lbl_Group + 'mni_Cheevos_Manage_Challenges ' - 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:" + Me.mni_Cheevos_Manage_Challenges.Name = "mni_Cheevos_Manage_Challenges" + Me.mni_Cheevos_Manage_Challenges.Size = New System.Drawing.Size(166, 22) + Me.mni_Cheevos_Manage_Challenges.Text = "&Edit Challenges" ' - 'cmb_Groups + 'pnl_Achievements ' - 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 + Me.ttctl_TecSpec.SetAllowHtmlText(Me.pnl_Achievements, DevExpress.Utils.DefaultBoolean.[Default]) + Me.pnl_Achievements.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pnl_Achievements.Controls.Add(Me.gb_Cheevos) + Me.pnl_Achievements.Controls.Add(Me.lbl_RetroAchievements_Message) + Me.pnl_Achievements.Controls.Add(Me.prg_RetroAchievements_Download) + Me.pnl_Achievements.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Achievements.Location = New System.Drawing.Point(0, 0) + Me.pnl_Achievements.Name = "pnl_Achievements" + Me.pnl_Achievements.Size = New System.Drawing.Size(301, 174) + Me.pnl_Achievements.TabIndex = 9 ' - 'BS_Group + 'gb_Cheevos ' - Me.BS_Group.DataMember = "src_ucr_Emulation_cmb_Groups" - Me.BS_Group.DataSource = Me.DS_ML + Me.gb_Cheevos.Controls.Add(Me.grd_RetroAchievements) + Me.gb_Cheevos.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_Cheevos.Location = New System.Drawing.Point(0, 19) + Me.gb_Cheevos.Name = "gb_Cheevos" + Me.gb_Cheevos.Size = New System.Drawing.Size(301, 142) + Me.gb_Cheevos.TabIndex = 9 + Me.gb_Cheevos.Text = "RetroAchievements" + Me.gb_Cheevos.ToolTipController = Me.ttctl_TecSpec.DefaultController ' - 'pnl_12 + 'grd_RetroAchievements ' - 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 + Me.grd_RetroAchievements.ContextMenuStrip = Me.cxm_Cheevos + Me.grd_RetroAchievements.DataSource = Me.BS_RetroAchievements + Me.grd_RetroAchievements.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_RetroAchievements.Location = New System.Drawing.Point(2, 20) + Me.grd_RetroAchievements.MainView = Me.agv_RetroAchievements + Me.grd_RetroAchievements.MenuManager = Me.barmng + Me.grd_RetroAchievements.Name = "grd_RetroAchievements" + Me.grd_RetroAchievements.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.rpi_RetroAchievements_Unlock}) + Me.grd_RetroAchievements.Size = New System.Drawing.Size(297, 120) + Me.grd_RetroAchievements.TabIndex = 8 + Me.grd_RetroAchievements.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.agv_RetroAchievements}) ' - 'lbl_Filterset + 'BS_RetroAchievements ' - 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:" + Me.BS_RetroAchievements.DataMember = "tbl_RetroAchievements" + Me.BS_RetroAchievements.DataSource = Me.DS_RetroAchievements + Me.BS_RetroAchievements.Sort = "id_RetroAchievements_Unlock ASC" ' - 'cmb_Filterset + 'DS_RetroAchievements ' - 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 + Me.DS_RetroAchievements.DataSetName = "NewDataSet" + Me.DS_RetroAchievements.Tables.AddRange(New System.Data.DataTable() {Me.DataTable1}) ' - 'BS_FilterSets + 'DataTable1 ' - Me.BS_FilterSets.DataMember = "tbl_FilterSets" - Me.BS_FilterSets.DataSource = Me.DS_ML + Me.DataTable1.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn1, Me.DataColumn2, Me.DataColumn3, Me.DataColumn4, Me.DataColumn5, Me.DataColumn6, Me.DataColumn7, Me.DataColumn8}) + Me.DataTable1.TableName = "tbl_RetroAchievements" ' - 'pnl_21 + 'DataColumn1 ' - 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 + Me.DataColumn1.ColumnName = "GameName" ' - 'lbl_Staff + 'DataColumn2 ' - 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:" + Me.DataColumn2.ColumnName = "ID" ' - 'cmb_Staff + 'DataColumn3 ' - 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 + Me.DataColumn3.ColumnName = "Title" ' - 'BS_Developer + 'DataColumn4 ' - Me.BS_Developer.DataMember = "src_ucr_Emulation_cmb_Staff" - Me.BS_Developer.DataSource = Me.DS_ML + Me.DataColumn4.ColumnName = "Description" ' - 'pnl_11 + 'DataColumn5 ' - 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 + Me.DataColumn5.ColumnName = "Points" + Me.DataColumn5.DataType = GetType(Integer) ' - 'lbl_Platform + 'DataColumn6 ' - 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:" + Me.DataColumn6.ColumnName = "BadgeName" ' - 'cmb_Platform + 'DataColumn7 ' - 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 + Me.DataColumn7.ColumnName = "Flags" + Me.DataColumn7.DataType = GetType(Integer) + ' + 'DataColumn8 + ' + Me.DataColumn8.ColumnName = "id_RetroAchievements_Unlock" + Me.DataColumn8.DataType = GetType(Integer) + ' + 'agv_RetroAchievements + ' + Me.agv_RetroAchievements.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand1}) + Me.agv_RetroAchievements.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colTitle, Me.colDescription1, Me.colid_RetroAchievements_Unlock}) + Me.agv_RetroAchievements.GridControl = Me.grd_RetroAchievements + Me.agv_RetroAchievements.GroupCount = 1 + Me.agv_RetroAchievements.GroupFormat = "{1}" + Me.agv_RetroAchievements.Name = "agv_RetroAchievements" + Me.agv_RetroAchievements.OptionsView.ColumnAutoWidth = True + Me.agv_RetroAchievements.OptionsView.ShowBands = False + Me.agv_RetroAchievements.OptionsView.ShowColumnHeaders = False + Me.agv_RetroAchievements.OptionsView.ShowGroupPanel = False + Me.agv_RetroAchievements.OptionsView.ShowIndicator = False + Me.agv_RetroAchievements.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colid_RetroAchievements_Unlock, DevExpress.Data.ColumnSortOrder.Ascending)}) + ' + 'GridBand1 + ' + Me.GridBand1.Caption = "GridBand1" + Me.GridBand1.Columns.Add(Me.colTitle) + Me.GridBand1.Columns.Add(Me.colDescription1) + Me.GridBand1.Columns.Add(Me.colid_RetroAchievements_Unlock) + Me.GridBand1.Name = "GridBand1" + Me.GridBand1.VisibleIndex = 0 + Me.GridBand1.Width = 276 + ' + 'colTitle + ' + Me.colTitle.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.colTitle.AppearanceCell.Options.UseFont = True + Me.colTitle.FieldName = "Title" + Me.colTitle.Name = "colTitle" + Me.colTitle.OptionsColumn.AllowEdit = False + Me.colTitle.OptionsColumn.AllowFocus = False + Me.colTitle.OptionsColumn.ReadOnly = True + Me.colTitle.Visible = True + Me.colTitle.Width = 276 ' - 'BS_Platforms + 'colDescription1 ' - Me.BS_Platforms.DataMember = "src_ucr_Emulation_Platforms" - Me.BS_Platforms.DataSource = Me.DS_ML + Me.colDescription1.AutoFillDown = True + Me.colDescription1.FieldName = "Description" + Me.colDescription1.Name = "colDescription1" + Me.colDescription1.OptionsColumn.AllowEdit = False + Me.colDescription1.OptionsColumn.AllowFocus = False + Me.colDescription1.OptionsColumn.ReadOnly = True + Me.colDescription1.RowIndex = 1 + Me.colDescription1.Visible = True + Me.colDescription1.Width = 276 ' - 'spnl_Summary + 'colid_RetroAchievements_Unlock ' - 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 + Me.colid_RetroAchievements_Unlock.ColumnEdit = Me.rpi_RetroAchievements_Unlock + Me.colid_RetroAchievements_Unlock.FieldName = "id_RetroAchievements_Unlock" + Me.colid_RetroAchievements_Unlock.GroupInterval = DevExpress.XtraGrid.ColumnGroupInterval.Value + Me.colid_RetroAchievements_Unlock.Name = "colid_RetroAchievements_Unlock" + Me.colid_RetroAchievements_Unlock.RowIndex = 2 + ' + 'rpi_RetroAchievements_Unlock + ' + Me.rpi_RetroAchievements_Unlock.AutoHeight = False + Me.rpi_RetroAchievements_Unlock.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.rpi_RetroAchievements_Unlock.DataSource = Me.BTA_RetroAchievement_Unlocks + Me.rpi_RetroAchievements_Unlock.DisplayMember = "DisplayText" + Me.rpi_RetroAchievements_Unlock.Name = "rpi_RetroAchievements_Unlock" + Me.rpi_RetroAchievements_Unlock.ValueMember = "id" + ' + 'BTA_RetroAchievement_Unlocks + ' + Me.BTA_RetroAchievement_Unlocks.AllowDelete = True + Me.BTA_RetroAchievement_Unlocks.ColumnUpdateBlacklistStream = CType(resources.GetObject("BTA_RetroAchievement_Unlocks.ColumnUpdateBlacklistStream"), System.Collections.Generic.List(Of String)) + Me.BTA_RetroAchievement_Unlocks.Connection = Nothing + Me.BTA_RetroAchievement_Unlocks.DSStream = CType(resources.GetObject("BTA_RetroAchievement_Unlocks.DSStream"), System.IO.MemoryStream) + Me.BTA_RetroAchievement_Unlocks.FillMethod = MKNetLib.FillMethod.ValueList + Me.BTA_RetroAchievement_Unlocks.FillString = "0;""Remaining Achievements"";1;""Unlocked Achievements (Casual)"";2;""Unlocked Achieve" & + "ments (Hardcore)""" + Me.BTA_RetroAchievement_Unlocks.Position = 0 + Me.BTA_RetroAchievement_Unlocks.Transaction = Nothing + Me.BTA_RetroAchievement_Unlocks.UpdateTablesStream = CType(resources.GetObject("BTA_RetroAchievement_Unlocks.UpdateTablesStream"), System.Collections.Generic.List(Of String)) + ' + 'lbl_RetroAchievements_Message + ' + Me.lbl_RetroAchievements_Message.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_RetroAchievements_Message.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_RetroAchievements_Message.Location = New System.Drawing.Point(0, 0) + Me.lbl_RetroAchievements_Message.MKBoundControl1 = Nothing + Me.lbl_RetroAchievements_Message.MKBoundControl2 = Nothing + Me.lbl_RetroAchievements_Message.MKBoundControl3 = Nothing + Me.lbl_RetroAchievements_Message.MKBoundControl4 = Nothing + Me.lbl_RetroAchievements_Message.MKBoundControl5 = Nothing + Me.lbl_RetroAchievements_Message.Name = "lbl_RetroAchievements_Message" + Me.lbl_RetroAchievements_Message.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_RetroAchievements_Message.Size = New System.Drawing.Size(301, 19) + Me.lbl_RetroAchievements_Message.TabIndex = 1 + Me.lbl_RetroAchievements_Message.Text = "RetroAchievements Message" + Me.lbl_RetroAchievements_Message.Visible = False + ' + 'prg_RetroAchievements_Download + ' + Me.prg_RetroAchievements_Download.Dock = System.Windows.Forms.DockStyle.Bottom + Me.prg_RetroAchievements_Download.Location = New System.Drawing.Point(0, 161) + Me.prg_RetroAchievements_Download.MenuManager = Me.barmng + Me.prg_RetroAchievements_Download.Name = "prg_RetroAchievements_Download" + Me.prg_RetroAchievements_Download.Properties.ProgressViewStyle = DevExpress.XtraEditors.Controls.ProgressViewStyle.Solid + Me.prg_RetroAchievements_Download.Properties.ShowTitle = True + Me.prg_RetroAchievements_Download.Size = New System.Drawing.Size(301, 13) + Me.prg_RetroAchievements_Download.TabIndex = 7 + Me.prg_RetroAchievements_Download.Visible = False + ' + 'cxm_Cheevo_Challenges_Cheevos + ' + Me.ttctl_TecSpec.SetAllowHtmlText(Me.cxm_Cheevo_Challenges_Cheevos, DevExpress.Utils.DefaultBoolean.[Default]) + Me.cxm_Cheevo_Challenges_Cheevos.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2}) + Me.cxm_Cheevo_Challenges_Cheevos.Name = "cxm_Cheevos" + Me.cxm_Cheevo_Challenges_Cheevos.Size = New System.Drawing.Size(156, 26) + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(155, 22) + Me.ToolStripMenuItem2.Text = "&Edit Challenges" ' 'filteringUIContext ' Me.filteringUIContext.Control = Me.accordion_FilterUI Me.filteringUIContext.ModelType = GetType(Metropolis_Launcher.cls_FilteringModel_Emulation_Games) ' - 'tcl_App + 'tcl_Details ' - 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}) + Me.tcl_Details.Dock = System.Windows.Forms.DockStyle.Fill + Me.tcl_Details.Location = New System.Drawing.Point(0, 0) + Me.tcl_Details.Name = "tcl_Details" + Me.tcl_Details.SelectedTabPage = Me.tpg_Summary + Me.tcl_Details.Size = New System.Drawing.Size(307, 327) + Me.tcl_Details.TabIndex = 0 + Me.tcl_Details.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, Me.tpg_RetroAchievements}) ' 'tpg_Summary ' @@ -2718,7 +3209,7 @@ Partial Class ucr_Emulation 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:" + Me.lbl_Emu_Games_Runtime.Text = "Total Runtime:" ' 'lbl_Emu_Games_Runtime_Value ' @@ -2771,7 +3262,7 @@ Partial Class ucr_Emulation 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:" + Me.lbl_Emu_Games_Plays.Text = "Total Plays:" ' 'tpg_Rating ' @@ -3867,6 +4358,130 @@ Partial Class ucr_Emulation Me.tpg_Want.Size = New System.Drawing.Size(301, 299) Me.tpg_Want.Text = "Want" ' + 'tpg_RetroAchievements + ' + Me.tpg_RetroAchievements.Controls.Add(Me.splt_Achievements) + Me.tpg_RetroAchievements.Name = "tpg_RetroAchievements" + Me.tpg_RetroAchievements.Size = New System.Drawing.Size(301, 299) + Me.tpg_RetroAchievements.Text = "Achievements" + ' + 'splt_Achievements + ' + Me.splt_Achievements.Dock = System.Windows.Forms.DockStyle.Fill + Me.splt_Achievements.Horizontal = False + Me.splt_Achievements.Location = New System.Drawing.Point(0, 0) + Me.splt_Achievements.Name = "splt_Achievements" + Me.splt_Achievements.Panel1.Controls.Add(Me.gb_Challenge_Cheevos) + Me.splt_Achievements.Panel1.Text = "Panel1" + Me.splt_Achievements.Panel2.Controls.Add(Me.pnl_Achievements) + Me.splt_Achievements.Panel2.Text = "Panel2" + Me.splt_Achievements.Size = New System.Drawing.Size(301, 299) + Me.splt_Achievements.SplitterPosition = 120 + Me.splt_Achievements.TabIndex = 10 + Me.splt_Achievements.Text = "Ctl_MKDXSplitPanel1" + Me.splt_Achievements.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'gb_Challenge_Cheevos + ' + Me.gb_Challenge_Cheevos.Controls.Add(Me.grd_Challenge_Cheevos) + Me.gb_Challenge_Cheevos.Controls.Add(Me.lbl_Challenge_Cheevos_Unlocked) + Me.gb_Challenge_Cheevos.Dock = System.Windows.Forms.DockStyle.Fill + Me.gb_Challenge_Cheevos.Location = New System.Drawing.Point(0, 0) + Me.gb_Challenge_Cheevos.Name = "gb_Challenge_Cheevos" + Me.gb_Challenge_Cheevos.Size = New System.Drawing.Size(301, 120) + Me.gb_Challenge_Cheevos.TabIndex = 12 + Me.gb_Challenge_Cheevos.Text = "Open Achievements for the current Challenge/Tier" + Me.gb_Challenge_Cheevos.ToolTipController = Me.ttctl_TecSpec.DefaultController + ' + 'grd_Challenge_Cheevos + ' + Me.grd_Challenge_Cheevos.ContextMenuStrip = Me.cxm_Cheevo_Challenges_Cheevos + Me.grd_Challenge_Cheevos.DataSource = Me.BS_Open_Challenges_Cheevos + Me.grd_Challenge_Cheevos.Dock = System.Windows.Forms.DockStyle.Fill + Me.grd_Challenge_Cheevos.Location = New System.Drawing.Point(2, 52) + Me.grd_Challenge_Cheevos.MainView = Me.agv_Challenge_Cheevos + Me.grd_Challenge_Cheevos.Name = "grd_Challenge_Cheevos" + Me.grd_Challenge_Cheevos.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemLookUpEdit1}) + Me.grd_Challenge_Cheevos.Size = New System.Drawing.Size(297, 66) + Me.grd_Challenge_Cheevos.TabIndex = 11 + Me.grd_Challenge_Cheevos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.agv_Challenge_Cheevos}) + ' + 'BS_Open_Challenges_Cheevos + ' + Me.BS_Open_Challenges_Cheevos.DataMember = "ttb_Open_Challenges_Cheevos" + Me.BS_Open_Challenges_Cheevos.DataSource = Me.DS_ML + ' + 'agv_Challenge_Cheevos + ' + Me.agv_Challenge_Cheevos.Bands.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.GridBand() {Me.GridBand2}) + Me.agv_Challenge_Cheevos.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.BandedGridColumn1, Me.BandedGridColumn2}) + Me.agv_Challenge_Cheevos.GridControl = Me.grd_Challenge_Cheevos + Me.agv_Challenge_Cheevos.GroupFormat = "{1}" + Me.agv_Challenge_Cheevos.Name = "agv_Challenge_Cheevos" + Me.agv_Challenge_Cheevos.OptionsView.ColumnAutoWidth = True + Me.agv_Challenge_Cheevos.OptionsView.ShowBands = False + Me.agv_Challenge_Cheevos.OptionsView.ShowColumnHeaders = False + Me.agv_Challenge_Cheevos.OptionsView.ShowGroupPanel = False + Me.agv_Challenge_Cheevos.OptionsView.ShowIndicator = False + ' + 'GridBand2 + ' + Me.GridBand2.Caption = "GridBand1" + Me.GridBand2.Columns.Add(Me.BandedGridColumn1) + Me.GridBand2.Columns.Add(Me.BandedGridColumn2) + Me.GridBand2.Name = "GridBand2" + Me.GridBand2.VisibleIndex = 0 + Me.GridBand2.Width = 351 + ' + 'BandedGridColumn1 + ' + Me.BandedGridColumn1.AppearanceCell.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold) + Me.BandedGridColumn1.AppearanceCell.Options.UseFont = True + Me.BandedGridColumn1.FieldName = "Cheevo_Title" + Me.BandedGridColumn1.Name = "BandedGridColumn1" + Me.BandedGridColumn1.OptionsColumn.AllowEdit = False + Me.BandedGridColumn1.OptionsColumn.AllowFocus = False + Me.BandedGridColumn1.OptionsColumn.ReadOnly = True + Me.BandedGridColumn1.Visible = True + Me.BandedGridColumn1.Width = 173 + ' + 'BandedGridColumn2 + ' + Me.BandedGridColumn2.AutoFillDown = True + Me.BandedGridColumn2.FieldName = "Cheevo_Description" + Me.BandedGridColumn2.Name = "BandedGridColumn2" + Me.BandedGridColumn2.OptionsColumn.AllowEdit = False + Me.BandedGridColumn2.OptionsColumn.AllowFocus = False + Me.BandedGridColumn2.OptionsColumn.ReadOnly = True + Me.BandedGridColumn2.RowIndex = 1 + Me.BandedGridColumn2.Visible = True + Me.BandedGridColumn2.Width = 351 + ' + '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.DisplayMember = "DisplayText" + Me.RepositoryItemLookUpEdit1.Name = "RepositoryItemLookUpEdit1" + Me.RepositoryItemLookUpEdit1.ValueMember = "id" + ' + 'lbl_Challenge_Cheevos_Unlocked + ' + Me.lbl_Challenge_Cheevos_Unlocked.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_Challenge_Cheevos_Unlocked.Dock = System.Windows.Forms.DockStyle.Top + Me.lbl_Challenge_Cheevos_Unlocked.Location = New System.Drawing.Point(2, 20) + Me.lbl_Challenge_Cheevos_Unlocked.MKBoundControl1 = Nothing + Me.lbl_Challenge_Cheevos_Unlocked.MKBoundControl2 = Nothing + Me.lbl_Challenge_Cheevos_Unlocked.MKBoundControl3 = Nothing + Me.lbl_Challenge_Cheevos_Unlocked.MKBoundControl4 = Nothing + Me.lbl_Challenge_Cheevos_Unlocked.MKBoundControl5 = Nothing + Me.lbl_Challenge_Cheevos_Unlocked.Name = "lbl_Challenge_Cheevos_Unlocked" + Me.lbl_Challenge_Cheevos_Unlocked.Padding = New System.Windows.Forms.Padding(3) + Me.lbl_Challenge_Cheevos_Unlocked.Size = New System.Drawing.Size(297, 32) + Me.lbl_Challenge_Cheevos_Unlocked.TabIndex = 12 + Me.lbl_Challenge_Cheevos_Unlocked.Text = "You unlocked all necessary achievements for the current challenge/tier." + Me.lbl_Challenge_Cheevos_Unlocked.Visible = False + ' 'spltpnl_Main ' Me.spltpnl_Main.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 @@ -3890,12 +4505,13 @@ Partial Class ucr_Emulation 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.lbl_MobyDownload_Error) Me.spltpnl_Details.Panel1.Controls.Add(Me.prg_Extras_Download) Me.spltpnl_Details.Panel1.Controls.Add(Me.pic_Game) Me.spltpnl_Details.Panel1.Controls.Add(Me.lbl_Displayname) Me.spltpnl_Details.Panel1.Controls.Add(Me.lbl_Extras_Description) Me.spltpnl_Details.Panel1.Text = "Panel1" - Me.spltpnl_Details.Panel2.Controls.Add(Me.tcl_App) + Me.spltpnl_Details.Panel2.Controls.Add(Me.tcl_Details) Me.spltpnl_Details.Panel2.Text = "Panel2" Me.spltpnl_Details.Size = New System.Drawing.Size(307, 600) Me.spltpnl_Details.SplitterPosition = 268 @@ -3903,6 +4519,20 @@ Partial Class ucr_Emulation Me.spltpnl_Details.Text = "Ctl_MKDXSplitPanel1" Me.spltpnl_Details.ToolTipController = Me.ttctl_TecSpec.DefaultController ' + 'lbl_MobyDownload_Error + ' + Me.lbl_MobyDownload_Error.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.Vertical + Me.lbl_MobyDownload_Error.Dock = System.Windows.Forms.DockStyle.Bottom + Me.lbl_MobyDownload_Error.Location = New System.Drawing.Point(0, 249) + Me.lbl_MobyDownload_Error.MKBoundControl1 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl2 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl3 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl4 = Nothing + Me.lbl_MobyDownload_Error.MKBoundControl5 = Nothing + Me.lbl_MobyDownload_Error.Name = "lbl_MobyDownload_Error" + Me.lbl_MobyDownload_Error.Size = New System.Drawing.Size(307, 0) + Me.lbl_MobyDownload_Error.TabIndex = 7 + ' 'prg_Extras_Download ' Me.prg_Extras_Download.Dock = System.Windows.Forms.DockStyle.Bottom @@ -3976,7 +4606,7 @@ Partial Class ucr_Emulation ' '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_ScummVM_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.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_DOSBox_Clear_Exe_Config), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Create_TDL_Menu), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Add_to_Challenge), 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_ScummVM_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" ' @@ -4012,6 +4642,26 @@ Partial Class ucr_Emulation Me.BS_Want.DataMember = "tbl_Emu_Games_Have_Want_List_Items" Me.BS_Want.DataSource = Me.DS_ML ' + 'DataTable2 + ' + Me.DataTable2.Columns.AddRange(New System.Data.DataColumn() {Me.DataColumn9, Me.DataColumn10}) + Me.DataTable2.TableName = "Table1" + ' + 'DataColumn9 + ' + Me.DataColumn9.ColumnName = "id" + Me.DataColumn9.DataType = GetType(Integer) + ' + 'DataColumn10 + ' + Me.DataColumn10.ColumnName = "DisplayText" + ' + 'popmnu_Cheevos + ' + Me.popmnu_Cheevos.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Cheevo_add_to_Challenge), New DevExpress.XtraBars.LinkPersistInfo(Me.bbi_Cheevo_Manage_Challenges)}) + Me.popmnu_Cheevos.Manager = Me.barmng + Me.popmnu_Cheevos.Name = "popmnu_Cheevos" + ' 'ucr_Emulation ' Me.ttctl_TecSpec.SetAllowHtmlText(Me, DevExpress.Utils.DefaultBoolean.[Default]) @@ -4025,20 +4675,16 @@ Partial Class 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() + CType(Me.splt_left, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_left.ResumeLayout(False) Me.tlp_Combos.ResumeLayout(False) + CType(Me.Ctl_MKDXPanel1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Ctl_MKDXPanel1.ResumeLayout(False) + CType(Me.chb_Cheevo_Challenges_Show_Completed.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.barmng, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmb_Challenges.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Challenges, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ML, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pnl_31, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl_31.ResumeLayout(False) CType(Me.txb_Search.Properties, System.ComponentModel.ISupportInitialize).EndInit() @@ -4062,9 +4708,34 @@ Partial Class ucr_Emulation Me.pnl_11.ResumeLayout(False) CType(Me.cmb_Platform.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BS_Platforms, System.ComponentModel.ISupportInitialize).EndInit() + 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.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() + Me.cxm_Cheevos.ResumeLayout(False) + CType(Me.pnl_Achievements, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Achievements.ResumeLayout(False) + CType(Me.gb_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Cheevos.ResumeLayout(False) + CType(Me.grd_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.agv_RetroAchievements, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.rpi_RetroAchievements_Unlock, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BTA_RetroAchievement_Unlocks, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.prg_RetroAchievements_Download.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.cxm_Cheevo_Challenges_Cheevos.ResumeLayout(False) CType(Me.filteringUIContext, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.tcl_App, System.ComponentModel.ISupportInitialize).EndInit() - Me.tcl_App.ResumeLayout(False) + CType(Me.tcl_Details, System.ComponentModel.ISupportInitialize).EndInit() + Me.tcl_Details.ResumeLayout(False) Me.tpg_Summary.ResumeLayout(False) Me.tpg_TechnicalSpecs.ResumeLayout(False) CType(Me.grd_TechnicalSpecs, System.ComponentModel.ISupportInitialize).EndInit() @@ -4122,6 +4793,15 @@ Partial Class ucr_Emulation 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() + Me.tpg_RetroAchievements.ResumeLayout(False) + CType(Me.splt_Achievements, System.ComponentModel.ISupportInitialize).EndInit() + Me.splt_Achievements.ResumeLayout(False) + CType(Me.gb_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + Me.gb_Challenge_Cheevos.ResumeLayout(False) + CType(Me.grd_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BS_Open_Challenges_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.agv_Challenge_Cheevos, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemLookUpEdit1, 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() @@ -4134,12 +4814,14 @@ Partial Class ucr_Emulation CType(Me.popmnu_Extras, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.popmnu_Statistics, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BS_Want, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DataTable2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.popmnu_Cheevos, 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 tcl_Details 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 @@ -4439,4 +5121,62 @@ Partial Class ucr_Emulation Friend WithEvents lbl_Extras_Description As MKNetDXLib.ctl_MKDXLabel Friend WithEvents prg_Extras_Download As MKNetDXLib.ctl_MKDXProgressBarControl Friend WithEvents bbi_MOBY_Extras_Manager As DevExpress.XtraBars.BarButtonItem + Friend WithEvents colCRC32 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colMD5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSHA1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tpg_RetroAchievements As DevExpress.XtraTab.XtraTabPage + Friend WithEvents prg_RetroAchievements_Download As MKNetDXLib.ctl_MKDXProgressBarControl + Friend WithEvents lbl_RetroAchievements_Message As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents DS_RetroAchievements As DataSet + Friend WithEvents DataTable1 As DataTable + Friend WithEvents DataColumn1 As DataColumn + Friend WithEvents DataColumn2 As DataColumn + Friend WithEvents DataColumn3 As DataColumn + Friend WithEvents DataColumn4 As DataColumn + Friend WithEvents DataColumn5 As DataColumn + Friend WithEvents DataColumn6 As DataColumn + Friend WithEvents DataColumn7 As DataColumn + Friend WithEvents DataColumn8 As DataColumn + Friend WithEvents BTA_RetroAchievement_Unlocks As MKNetLib.cmp_MKBindableTableAdapter + Friend WithEvents DataTable2 As DataTable + Friend WithEvents DataColumn9 As DataColumn + Friend WithEvents DataColumn10 As DataColumn + Friend WithEvents BS_RetroAchievements As BindingSource + Friend WithEvents grd_RetroAchievements As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents agv_RetroAchievements As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents colTitle As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents colDescription1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents GridBand1 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents colid_RetroAchievements_Unlock As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents rpi_RetroAchievements_Unlock As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents bbi_Export_TDL As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Create_TDL_Menu As DevExpress.XtraBars.BarButtonItem + Friend WithEvents lbl_MobyDownload_Error As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents bbi_Cheevo_add_to_Challenge As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bbi_Cheevo_Manage_Challenges As DevExpress.XtraBars.BarButtonItem + Friend WithEvents popmnu_Cheevos As MKNetDXLib.cmp_MKDXPopupMenu + Friend WithEvents cxm_Cheevos As ContextMenuStrip + Friend WithEvents mni_Cheevos_Add_Challenge As ToolStripMenuItem + Friend WithEvents mni_Cheevos_Manage_Challenges As ToolStripMenuItem + Friend WithEvents splt_left As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents Ctl_MKDXPanel1 As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents lbl_Challenges As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents cmb_Challenges As MKNetDXLib.ctl_MKDXLookupEdit + Friend WithEvents BS_Challenges As BindingSource + Friend WithEvents splt_Achievements As MKNetDXLib.ctl_MKDXSplitPanel + Friend WithEvents pnl_Achievements As MKNetDXLib.ctl_MKDXPanel + Friend WithEvents grd_Challenge_Cheevos As MKNetDXLib.ctl_MKDXGrid + Friend WithEvents agv_Challenge_Cheevos As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView + Friend WithEvents GridBand2 As DevExpress.XtraGrid.Views.BandedGrid.GridBand + Friend WithEvents BandedGridColumn1 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents BandedGridColumn2 As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn + Friend WithEvents RepositoryItemLookUpEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit + Friend WithEvents BS_Open_Challenges_Cheevos As BindingSource + Friend WithEvents gb_Challenge_Cheevos As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents gb_Cheevos As MKNetDXLib.ctl_MKDXGroupBox + Friend WithEvents cxm_Cheevo_Challenges_Cheevos As ContextMenuStrip + Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem + Friend WithEvents chb_Cheevo_Challenges_Show_Completed As MKNetDXLib.ctl_MKDXCheckEdit + Friend WithEvents bbi_Add_to_Challenge As DevExpress.XtraBars.BarButtonItem + Friend WithEvents lbl_Challenge_Cheevos_Unlocked As MKNetDXLib.ctl_MKDXLabel End Class diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.resx b/Metropolis_Launcher/Pages/ucr_Emulation.resx index e0977dd..20a5010 100644 --- a/Metropolis_Launcher/Pages/ucr_Emulation.resx +++ b/Metropolis_Launcher/Pages/ucr_Emulation.resx @@ -120,21 +120,21 @@ 1041, 17 - - 623, 17 - - - 412, 17 - 318, 17 - 165 + 204 + + + 412, 17 137, 56 + + 623, 17 + 388, 56 @@ -144,6 +144,73 @@ 806, 95 + + 9, 166 + + + 994, 134 + + + 739, 134 + + + 414, 134 + + + 17, 134 + + + 194, 134 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAFAAAAAAAAABEDAAAABQAAAAYEAAAAAlRTBgUA + AAALZXJzdGVsbHRfYW0GBgAAAAxlcnN0ZWxsdF92b24GBwAAAAxnZWFlbmRlcnRfYW0GCAAAAA1nZWFl + bmRlcnRfdm9uCw== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAALAIAACwCAABIBAAAAQEBAQoPAgAAAEgEAAACH4sIAAAAAAAEAJ1UW2/aMBSGXtBY + t73sYa9RniEh622NSCutSNO0lk2FTX2rTHIAd7HNbAfC237C/nF3nJhLEdWmGsk25/J9n318UqlWKpUH + HGY149UOTt3eXGlgXodo0nB+gFRU8OjIa5lfw7nMUp1JiDhkWpK04XzLBimNv8C8L34Cjwanp+Q4Pj4J + zg6PoPXhbN+Av13DLKYe6F20v7N77waY0JSPLF39lqW9eAyMHOCuQ4fDT5Kw3Wr1jQWycUZv3QDV9nD6 + U2tf5Cx1plazG3gt1wEeiwShIzfTw2Zw4l6cv37ZzlWoCgKHJpHbhZlV4jqIwFXk2k2Y436s9ST0/dls + 5s0OPSFH/vtWK/Bvr69KkYtYphJEQSLJLbpqMhpLocRQN2PBQoxrllEuqnAcowNSYMC1wwmDx1LKyPCz + spbI1TKDpf27gstMSsy9EjFJwboL4BIaKScp5P35BKzV2seCxuAwyr/GcSbxiHhRjOSLfxkfiIwnkLjL + tG1a+2SQQrAe8zTtyqvgV4ZF2XRtI6CJ62hEiVx0Ub66Ek3kCHQXg9SExGDK9fgw/n+gd6iapGTeh1yv + 0Sgt8bU8n6ntP3XGwrP9bgqXVbeqlL8s1aKm2xA2ckv+4vWd1/axLX5X2wl20EiG5ULYc56rzSkh/pWz + IGpOA3NBe6ZFN1rXNGzt7prcC4kL5Wb5mNE0qd/dwJSaEPNJeoFjx36eHuw4+At9oiMXuQQAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAJoBbXNjb3JsaWIsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1u + ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5XV0sIG1zY29ybGliLCBWZXJzaW9u + PTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUB + AAAAMFN5c3RlbS5Db2xsZWN0aW9ucy5HZW5lcmljLkxpc3RgMVtbU3lzdGVtLlN0cmluZwMAAAAGX2l0 + ZW1zBV9zaXplCF92ZXJzaW9uBgAACAgCAAAACQMAAAAAAAAAAAAAABEDAAAAAAAAAAs= + + + + 864, 134 + 143, 95 @@ -186,4 +253,7 @@ 904, 95 + + 590, 134 + \ No newline at end of file diff --git a/Metropolis_Launcher/Pages/ucr_Emulation.vb b/Metropolis_Launcher/Pages/ucr_Emulation.vb index cae98ad..688c5ec 100644 --- a/Metropolis_Launcher/Pages/ucr_Emulation.vb +++ b/Metropolis_Launcher/Pages/ucr_Emulation.vb @@ -11,15 +11,48 @@ Public Class ucr_Emulation Moby = 1 End Enum + Public Enum enm_RetroAchievements_Steps + RA_Cheevos_for_Game_01_Login + RA_Cheevos_for_Game_02_Get_GameID_for_Hash + RA_Cheevos_for_Game_03_Get_Cheevos_for_GameID + RA_Cheevos_for_Game_04_Get_Casual_Unlocked_Cheevos_for_GameID + RA_Cheevos_for_Game_05_Get_Hardcore_Unlocked_Cheevos_for_GameID + RA_Cheevos_for_Game_06_STOP + End Enum + + Public Enum enm_RetroAchievements_Unlock + Remaining = 0 + Casual = 1 + Hardcore = 2 + End Enum + + Public Class cls_PrePost_Launch_Command + Public Directory As String + Public Executable As String + Public Parameters As String + Public Minimized As Boolean + Public WaitForExit As Boolean + + Public Sub New(ByVal Directory As String, ByVal Executable As String, ByVal Parameters As String, ByVal Minimized As Boolean, ByVal WaitForExit As Boolean) + Me.Directory = Directory + Me.Executable = Executable + Me.Parameters = Parameters + Me.Minimized = Minimized + Me.WaitForExit = WaitForExit + End Sub + End Class + Public Class cls_Emu_Game_ProcInfo Public id_Emu_Games As Integer Public Snapshot_Directory As String Public Platform As cls_Globals.enm_Moby_Platforms + Public Post_Launch_Commands As ArrayList - Public Sub New(ByVal id_Emu_Games As Integer, ByVal Snapshot_Directory As String, ByVal Platform As cls_Globals.enm_Moby_Platforms) + Public Sub New(ByVal id_Emu_Games As Integer, ByVal Snapshot_Directory As String, ByVal Platform As cls_Globals.enm_Moby_Platforms, ByVal Post_Launch_Commands As ArrayList) Me.id_Emu_Games = id_Emu_Games Me.Snapshot_Directory = Snapshot_Directory Me.Platform = Platform + Me.Post_Launch_Commands = Post_Launch_Commands End Sub End Class @@ -29,16 +62,78 @@ Public Class ucr_Emulation Public Description As String = "" Public ApplyExtraDescription As Boolean = False Public Payload As Object = Nothing + Public isArchiveOrg As Boolean = False - Public Sub New(ByVal url As String, filepath As String, Optional ByVal description As String = "", Optional ByVal applyDescription As Boolean = False, Optional ByRef Payload As Object = Nothing) + Public Sub New(ByVal url As String, filepath As String, Optional ByVal description As String = "", Optional ByVal applyDescription As Boolean = False, Optional ByRef Payload As Object = Nothing, Optional ByVal isArchiveOrg As Boolean = False) Me.URL = url Me.Filepath = filepath Me.Description = description Me.ApplyExtraDescription = applyDescription Me.Payload = Payload + Me.isArchiveOrg = isArchiveOrg + End Sub + End Class + + ''' + ''' Rom/Game entry within cls_Launch_Data's ar_Rom_Entries + ''' + Public Class cls_Launch_Data_Rom_Entry + Public mlROMDIR As String = "" + Public mlROMFILE As String = "" + Public mlROMEXTENSION As String = "" + Public mlROMFULLPATH As String = "" + + Public Sub New(ByVal romdir As String, ByVal romfile As String, ByVal romextension As String, ByVal romfullpath As String) + Me.mlROMDIR = romdir + Me.mlROMEXTENSION = romextension + Me.mlROMFILE = romfile + Me.mlROMFULLPATH = romfullpath End Sub End Class + ''' + ''' All the metadata (emulator path, rom paths etc.) collected upon launch + ''' Used for enhanced scripting (AutoIt, AutoHotKey) + ''' + Public Class cls_Launch_Data + Public mlEMUDIR As String = "" + Public mlEMUEXE As String = "" + + Public _mlEMUFULLPATH As String = "" + Public Property mlEMUFULLPATH As String + Get + Return _mlEMUFULLPATH + End Get + Set(value As String) + _mlEMUFULLPATH = value + Try + mlEMUDIR = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(_mlEMUFULLPATH) + mlEMUEXE = Alphaleonis.Win32.Filesystem.Path.GetFileName(_mlEMUFULLPATH) + Catch ex As Exception + + End Try + End Set + End Property + + Public mlLISTFILE As String = "" + Public mlLIBRETROCORE As String = "" + Public mlCONFIGFILE As String = "" + + Public mlGAMEID As String = "" + Public mlGAMENAME As String = "" + Public mlREGIONS As String = "" + Public mlLANGUAGES As String = "" + Public mlMOBYRANK As String = "" + Public mlMOBYSCORE As String = "" + Public mlYEAR As String = "" + Public mlPUBLISHER As String = "" + Public mlDEVELOPER As String = "" + Public mlMINPLAYERS As String = "" + Public mlMAXPLAYERS As String = "" + + Public ar_Rom_Entries As New ArrayList + End Class + Public Event E_Hide() Public Event E_Show() @@ -70,11 +165,50 @@ Public Class ucr_Emulation Private _al_Screenshots_EmuGames As New ArrayList Private _al_Screenshots As New ArrayList + Private _check_RetroAchievements_and_Challenge_for_Current_Game As Boolean + '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 = "" + 'RetroAchievements + Public Class cls_RetroAchievements_DataRetrieval + Public currentStep As enm_RetroAchievements_Steps = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_01_Login + + Public MD5 As String = "" + Public Token As String = "" + Public GameID As String = "" + Public tbl_Cheevos As DataTable + + + Public Sub New() + Me.Init("") + End Sub + + Public Sub Init(md5 As String) + Me.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_01_Login + + Me.MD5 = md5 + + Me.Token = "" + Me.GameID = "" + + tbl_Cheevos = New DataTable + tbl_Cheevos.Columns.Add("GameName", GetType(System.String)) + tbl_Cheevos.Columns.Add("ID", GetType(System.String)) + tbl_Cheevos.Columns.Add("Title", GetType(System.String)) + tbl_Cheevos.Columns.Add("Description", GetType(System.String)) + tbl_Cheevos.Columns.Add("Points", GetType(System.Int32)) + tbl_Cheevos.Columns.Add("BadgeName", GetType(System.String)) + tbl_Cheevos.Columns.Add("Flags", GetType(System.Int32)) + tbl_Cheevos.Columns.Add("id_RetroAchievements_Unlock", GetType(System.Int32)) + End Sub + End Class + + Private RetroAchievements_DataRetrieval As New cls_RetroAchievements_DataRetrieval + Private WithEvents RetroAchievements_WebClient As New System.Net.WebClient + Public Sub New() InitializeComponent() @@ -99,6 +233,7 @@ Public Class ucr_Emulation Me.cmb_Filterset.EditValue = CLng(0) Me.cmb_Groups.EditValue = CLng(0) Me.cmb_Staff.EditValue = CLng(0) + Me.cmb_Challenges.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" @@ -114,11 +249,32 @@ Public Class ucr_Emulation barmng.SetPopupContextMenu(grd_Staff, popmnu_Staff) barmng.SetPopupContextMenu(pic_Game, popmnu_Extras) barmng.SetPopupContextMenu(grd_Statistics, popmnu_Statistics) + 'barmng.SetPopupContextMenu(grd_RetroAchievements, popmnu_Cheevos) 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)) + If cls_Globals.MultiUserMode Then + If cls_Globals.id_Cheevo_Challenges > 0L Then + cmb_Challenges.EditValue = cls_Globals.id_Cheevo_Challenges + cmb_Challenges.ReadOnly = True + chb_Cheevo_Challenges_Show_Completed.Enabled = False + End If + Else + cmb_Challenges.EditValue = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Cheevo_Challenge", cls_Settings.enm_Settingmodes.Per_User), CLng(0)) + chb_Cheevo_Challenges_Show_Completed.Checked = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Cheevo_Challenge_ShowCompleted", cls_Settings.enm_Settingmodes.Per_User), True) + End If + + Dim sDetailsTabPageName As String = TC.NZ(cls_Settings.GetSetting("ucr_Emulation-Details_Tab_Page", cls_Settings.enm_Settingmodes.Per_User), "") + If sDetailsTabPageName <> "" Then + For Each tpg As DevExpress.XtraTab.XtraTabPage In Me.tcl_Details.TabPages + If tpg.Name = sDetailsTabPageName Then + Me.tcl_Details.SelectedTabPage = tpg + End If + Next + End If + Apply_cmb_Similarity_Calculation_Results_Buttons_Enabled() _Initializing = False @@ -251,12 +407,70 @@ Public Class ucr_Emulation Return False End Function + Private Function Get_Pre_Post_Launch_Commands(ByVal id_Emulators As Int64, ByVal isPreLaunch As Boolean) As ArrayList + Dim ar_Result As New ArrayList + + Dim dt As New DataTable + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_ttb_Emulators_Pre_Post_Launch_Commands(tran, dt, id_Emulators, isPreLaunch) + End Using + + For Each row As DataRow In dt.Rows + Dim entry As New cls_PrePost_Launch_Command(TC.NZ(row("Directory"), ""), TC.NZ(row("Executable"), ""), TC.NZ(row("Parameter"), ""), TC.NZ(row("Minimized"), False), TC.NZ(row("WaitForExit"), False)) + ar_Result.Add(entry) + Next + + Return ar_Result + End Function + + Private Sub Pre_Post_Launch_Commands_Replace(ByRef ar_PreLaunch As ArrayList, ByRef ar_PostLaunch As ArrayList, ByVal oldString As String, ByVal newString As String) + If ar_PreLaunch IsNot Nothing AndAlso ar_PreLaunch.Count > 0 Then + For Each entry As cls_PrePost_Launch_Command In ar_PreLaunch + entry.Parameters = entry.Parameters.Replace(oldString, newString) + Next + End If + If ar_PostLaunch IsNot Nothing AndAlso ar_PostLaunch.Count > 0 Then + For Each entry As cls_PrePost_Launch_Command In ar_PostLaunch + entry.Parameters = entry.Parameters.Replace(oldString, newString) + Next + End If + End Sub + + Private Sub Run_Pre_Post_Launch_Commands(ByRef ar_Commands As ArrayList) + If ar_Commands Is Nothing OrElse ar_Commands.Count = 0 Then + Return + End If + + For Each command As cls_PrePost_Launch_Command In ar_Commands + Try + Dim proc As New System.Diagnostics.Process + proc.StartInfo.FileName = command.Directory & "\" & command.Executable + proc.StartInfo.Arguments = command.Parameters + + proc.StartInfo.UseShellExecute = True + + If command.Minimized Then + proc.StartInfo.WindowStyle = ProcessWindowStyle.Minimized + 'proc.StartInfo.CreateNoWindow = True + End If + + proc.Start() + + If command.WaitForExit Then + proc.WaitForExit() + End If + Catch ex As Exception + + End Try + Next + End Sub + ''' ''' 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 + Private Function Prepare_DOSBox(ByVal row_Emulators As DataRow, ByVal row_Emu_Game As DataRow, ByVal id_Rombase_DOSBox_Exe_Types As Integer, ByRef ar_PreLaunch As ArrayList, ByRef ar_PostLaunch As ArrayList, ByRef launchData As cls_Launch_Data) As String Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction Try Dim tbl_patches As New DS_ML.src_frm_Emulators_DOSBox_PatchesDataTable @@ -306,9 +520,9 @@ Public Class ucr_Emulation 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")) _ - OrElse ({"surfacepp", "surfacenp", "surfacepb"}.Contains(p_sdl_output) AndAlso isDOSBoxPatchActivated(tbl_patches, "pixelperfect")) _ - Then + OrElse (p_sdl_output = "openglhq" AndAlso isDOSBoxPatchActivated(tbl_patches, "hq2x_openglhq")) _ + OrElse ({"surfacepp", "surfacenp", "surfacepb"}.Contains(p_sdl_output) AndAlso isDOSBoxPatchActivated(tbl_patches, "pixelperfect")) _ + Then sdl_output = p_sdl_output End If End If @@ -390,10 +604,10 @@ Public Class ucr_Emulation 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")) _ - OrElse (p_midi_mididevice = "fluidsynth" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_fluidsynth")) _ - Then + OrElse (p_midi_mididevice = "synth" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_synth")) _ + OrElse (p_midi_mididevice = "timidity" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_timidity")) _ + OrElse (p_midi_mididevice = "fluidsynth" AndAlso isDOSBoxPatchActivated(tbl_patches, "mididevice_fluidsynth")) _ + Then midi_mididevice = p_midi_mididevice End If End If @@ -423,23 +637,23 @@ Public Class ucr_Emulation If isDOSBoxPatchActivated(tbl_patches, "mididevice_fluidsynth") Then sb_midi.AppendLine("fluid.soundfont=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_soundfont"), "")) sb_midi.AppendLine("fluid.samplerate=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_samplerate"), 48000).ToString) - sb_midi.AppendLine("fluid.gain=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_gain"), 0.6).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.gain=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_gain"), 0.6).ToString.Replace(",", "."), "0")) sb_midi.AppendLine("fluid.polyphony=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_polyphony"), 256).ToString) sb_midi.AppendLine("fluid.cores=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_cores"), "default")) sb_midi.AppendLine("fluid.periods=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_periods"), 8).ToString) sb_midi.AppendLine("fluid.periodsize=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_periodsize"), 512).ToString) sb_midi.AppendLine("fluid.reverb=" & IIf(TC.NZ(row_DOSBox_Config("p_midi_fluid_reverb"), True), "yes", "no")) - sb_midi.AppendLine("fluid.reverb,roomsize=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_reverb_roomsize"), 0.61).ToString.Replace(",", "."), "0")) - sb_midi.AppendLine("fluid.reverb.damping=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_reverb_damping"), 0.23).ToString.Replace(",", "."), "0")) - sb_midi.AppendLine("fluid.reverb.width=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_reverb_width"), 0.76).ToString.Replace(",", "."), "0")) - sb_midi.AppendLine("fluid.reverb.level=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_reverb_level"), 0.57).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.reverb,roomsize=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_reverb_roomsize"), 0.61).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.reverb.damping=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_reverb_damping"), 0.23).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.reverb.width=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_reverb_width"), 0.76).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.reverb.level=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_reverb_level"), 0.57).ToString.Replace(",", "."), "0")) sb_midi.AppendLine("fluid.chorus=" & IIf(TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus"), True), "yes", "no")) sb_midi.AppendLine("fluid.chorus.number=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus_number"), 3).ToString) - sb_midi.AppendLine("fluid.chorus.level=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_chorus_level"), 1.2).ToString.Replace(",", "."), "0")) - sb_midi.AppendLine("fluid.chorus.speed=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_chorus_speed"), 0.3).ToString.Replace(",", "."), "0")) - sb_midi.AppendLine("fluid.chorus.depth=" & TC.NZ(MKNetLib.cls_MKStringSupport.Clean_Left(row_DOSBox_Config("p_midi_fluid_chorus_depth"), 8.0).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.chorus.level=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus_level"), 1.2).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.chorus.speed=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus_speed"), 0.3).ToString.Replace(",", "."), "0")) + sb_midi.AppendLine("fluid.chorus.depth=" & MKNetLib.cls_MKStringSupport.Clean_Left(TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus_depth"), 8.0).ToString.Replace(",", "."), "0")) sb_midi.AppendLine("fluid.chorus.type=" & TC.NZ(row_DOSBox_Config("p_midi_fluid_chorus_type"), 0).ToString) End If @@ -802,6 +1016,7 @@ Public Class ucr_Emulation 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") & """" + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(row_Mount_Destination("Folder"), row_Mount_Destination("File"), Alphaleonis.Win32.Filesystem.Path.GetExtension(row_Mount_Destination("File")), row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File"))) End If Next @@ -818,6 +1033,7 @@ Public Class ucr_Emulation 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") & """" + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(row_Mount_Destination("Folder"), row_Mount_Destination("File"), Alphaleonis.Win32.Filesystem.Path.GetExtension(row_Mount_Destination("File")), row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File"))) End If Next @@ -832,6 +1048,8 @@ Public Class ucr_Emulation Dim sb_shortpath As New System.Text.StringBuilder(256) MKNetLib.cls_MKFileSupport.GetShortPathName(row_Mount_Destination("Folder"), sb_shortpath, sb_shortpath.Capacity) + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(row_Mount_Destination("Folder"), "", "", row_Mount_Destination("Folder"))) + Mount_Command &= sb_shortpath.ToString & ":" End If Next @@ -842,6 +1060,8 @@ Public Class ucr_Emulation 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) + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(row_Mount_Destination("Folder"), row_Mount_Destination("File"), Alphaleonis.Win32.Filesystem.Path.GetExtension(row_Mount_Destination("File")), row_Mount_Destination("Folder") & "\" & row_Mount_Destination("File"))) + Mount_Command &= sb_shortpath.ToString & ":" End If Next @@ -859,6 +1079,8 @@ Public Class ucr_Emulation MKNetLib.cls_MKFileSupport.GetShortPathName(rows_Mount_Destination(0)("Folder"), sb_shortpath, sb_shortpath.Capacity) Mount_Command = "mount " & Mount_Destination & " """ & sb_shortpath.ToString & """" + + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(rows_Mount_Destination(0)("Folder"), "", "", rows_Mount_Destination(0)("Folder"))) End If sb_autoexec.AppendLine(Mount_Command) @@ -879,11 +1101,20 @@ Public Class ucr_Emulation 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), "") + 'Format the DOSBox_DisplayText of the file entries + DS_ML.Prepare_tmp_DOSBox_DisplayText(dt_Files) + 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 + 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, row_Emu_Game) + Dim res As DialogResult = frm.ShowDialog(Me.ParentForm) + + If res = DialogResult.Cancel Then + 'User just closed the window - don't launch anything + Return "" + End If + + If res = 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) @@ -893,9 +1124,15 @@ Public Class ucr_Emulation 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 + Using frm As New frm_DOSBox_Choose_Exe(Exe_Type.ToUpper, "id_Rombase_DOSBox_Exe_Types = " & id_Rombase_DOSBox_Exe_Types, dt_Files, row_Emu_Game) + Dim res As DialogResult = frm.ShowDialog(Me.ParentForm) + + If res = DialogResult.Cancel Then + 'User just closed the window - don't launch anything + Return "" + End If + + If res = 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 @@ -905,6 +1142,8 @@ Public Class ucr_Emulation Next End If End If + + End Using Else row_Exe = rows_Exe(0) @@ -930,6 +1169,9 @@ Public Class ucr_Emulation Else sb_autoexec.AppendLine(Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) End If + + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(Exe_Path), Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path), Alphaleonis.Win32.Filesystem.Path.GetExtension(Exe_Path), Exe_Path)) + Autostart_Exe = True Exit For End If @@ -953,6 +1195,9 @@ Public Class ucr_Emulation Else sb_autoexec.AppendLine(Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path)) End If + + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(Exe_Path), Alphaleonis.Win32.Filesystem.Path.GetFileName(Exe_Path), Alphaleonis.Win32.Filesystem.Path.GetExtension(Exe_Path), Exe_Path)) + Autostart_Exe = True Exit For End If @@ -1020,6 +1265,13 @@ Public Class ucr_Emulation '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" + + launchData.mlCONFIGFILE = ConfFile + + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configdir%", TempDir) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configfile%", Alphaleonis.Win32.Filesystem.Path.GetFileName(ConfFile)) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configfullpath%", ConfFile) + If MKNetLib.cls_MKFileSupport.SaveTextToFile(sb_DOSBox_Config.ToString, ConfFile) Then 'Startup params If TC.NZ(row_DOSBox_Config("ml-showconsole"), False) = False Then @@ -1053,7 +1305,7 @@ Public Class ucr_Emulation ''' ''' ScummVM startup parameters (incl. temp. ScummVM config), else empty String ''' - Private Function Prepare_ScummVM(ByVal row_Emulators As DataRow, ByVal row_Emu_Game As DataRow) As String + Private Function Prepare_ScummVM(ByVal row_Emulators As DataRow, ByVal row_Emu_Game As DataRow, ByRef launchData As cls_Launch_Data, ByRef ar_PreLaunch As ArrayList, ByRef ar_PostLaunch As ArrayList) As String Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction Try 'Get the config for the game @@ -1170,11 +1422,26 @@ Public Class ucr_Emulation gameid = CustomIdentifier.Split(":")(1) End If + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(gamepath, gameid, "", gamepath)) + 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 & "\scummvm.ini" + + 'Pre/Post Launch & Scripting + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%gameid%", gameid) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romdir%", gamepath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romfile%", gamepath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romfullpath%", gamepath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configdir%", TempDir) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configfile%", "scummvm.ini") + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%configfullpath%", ConfFile) + + launchData.mlCONFIGFILE = ConfFile + If MKNetLib.cls_MKFileSupport.SaveTextToFile(sb_ScummVM_Config.ToString, ConfFile) Then 'Startup params sb_Startup.Append("--config=""" & ConfFile & """ --path=""" & gamepath & """") @@ -1205,6 +1472,248 @@ Public Class ucr_Emulation End Using End Function + ''' + ''' Inject variable content into script file + ''' + ''' + ''' + ''' + ''' + Private Function Inject_Scripting(ByRef launchData As cls_Launch_Data, ByVal scriptType As cls_Globals.enm_Script_Types, ByRef sbNewScriptContent As System.Text.StringBuilder) As Boolean + 'static comment + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("; values injected by Metropolis Launcher") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("; values injected by Metropolis Launcher") + End If + + sbNewScriptContent.AppendLine() + + 'mlEMUDIR + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlEMUDIR = """ & launchData.mlEMUDIR.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlEMUDIR := """ & launchData.mlEMUDIR.Replace("""", """""") & """") + End If + + 'mlEMUEXE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlEMUEXE = """ & launchData.mlEMUEXE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlEMUEXE := """ & launchData.mlEMUEXE.Replace("""", """""") & """") + End If + + 'mlEMUFULLPATH + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlEMUFULLPATH = """ & launchData.mlEMUFULLPATH.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlEMUFULLPATH := """ & launchData.mlEMUFULLPATH.Replace("""", """""") & """") + End If + + 'mlLISTFILE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlLISTFILE = """ & launchData.mlLISTFILE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlLISTFILE := """ & launchData.mlLISTFILE.Replace("""", """""") & """") + End If + + 'mlLIBRETROCORE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlLIBRETROCORE = """ & launchData.mlLIBRETROCORE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlLIBRETROCORE := """ & launchData.mlLIBRETROCORE.Replace("""", """""") & """") + End If + + 'mlCONFIGFILE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlCONFIGFILE = """ & launchData.mlCONFIGFILE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlCONFIGFILE := """ & launchData.mlCONFIGFILE.Replace("""", """""") & """") + End If + + 'mlNUMBEROFROMS (derived from ar_Rom_Entries.Count) + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlNUMBEROFROMS = " & launchData.ar_Rom_Entries.Count) + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlNUMBEROFROMS := " & launchData.ar_Rom_Entries.Count) + End If + + Dim iRomNum As Integer = 0 + For Each romEntry As cls_Launch_Data_Rom_Entry In launchData.ar_Rom_Entries + sbNewScriptContent.AppendLine() + + 'mlROMDIR + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlROMDIR[" & iRomNum & "] = """ & romEntry.mlROMDIR.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlROMDIR" & iRomNum & " := """ & romEntry.mlROMDIR.Replace("""", """""") & """") + End If + + 'mlROMFILE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlROMFILE[" & iRomNum & "] = """ & romEntry.mlROMFILE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlROMFILE" & iRomNum & " := """ & romEntry.mlROMFILE.Replace("""", """""") & """") + End If + + 'mlROMEXTENSION + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlROMEXTENSION[" & iRomNum & "] = """ & romEntry.mlROMEXTENSION.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlROMEXTENSION" & iRomNum & " := """ & romEntry.mlROMEXTENSION.Replace("""", """""") & """") + End If + + 'mlROMFULLPATH + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlROMFULLPATH[" & iRomNum & "] = """ & romEntry.mlROMFULLPATH.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlROMFULLPATH" & iRomNum & " := """ & romEntry.mlROMFULLPATH.Replace("""", """""") & """") + End If + + iRomNum += 1 + Next + + sbNewScriptContent.AppendLine() + + 'mlGAMEID + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlGAMEID = """ & launchData.mlGAMEID.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlGAMEID := """ & launchData.mlGAMEID.Replace("""", """""") & """") + End If + + 'mlGAMENAME + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlGAMENAME = """ & launchData.mlGAMENAME.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlGAMENAME := """ & launchData.mlGAMENAME.Replace("""", """""") & """") + End If + + 'mlREGIONS + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlREGIONS = """ & launchData.mlREGIONS.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlREGIONS := """ & launchData.mlREGIONS.Replace("""", """""") & """") + End If + + 'mlLANGUAGES + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlLANGUAGES = """ & launchData.mlLANGUAGES.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlLANGUAGES := """ & launchData.mlLANGUAGES.Replace("""", """""") & """") + End If + + 'mlMOBYRANK + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlMOBYRANK = """ & launchData.mlMOBYRANK.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlMOBYRANK := """ & launchData.mlMOBYRANK.Replace("""", """""") & """") + End If + + 'mlMOBYSCORE + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlMOBYSCORE = """ & launchData.mlMOBYSCORE.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlMOBYSCORE := """ & launchData.mlMOBYSCORE.Replace("""", """""") & """") + End If + + 'mlYEAR + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlYEAR = """ & launchData.mlYEAR.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlYEAR := """ & launchData.mlYEAR.Replace("""", """""") & """") + End If + + 'mlPUBLISHER + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlPUBLISHER = """ & launchData.mlPUBLISHER.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlPUBLISHER := """ & launchData.mlPUBLISHER.Replace("""", """""") & """") + End If + + 'mlDEVELOPER + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlDEVELOPER = """ & launchData.mlDEVELOPER.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlDEVELOPER := """ & launchData.mlDEVELOPER.Replace("""", """""") & """") + End If + + 'mlMINPLAYERS + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlMINPLAYERS = """ & launchData.mlMINPLAYERS.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlMINPLAYERS := """ & launchData.mlMINPLAYERS.Replace("""", """""") & """") + End If + + 'mlMAXPLAYERS + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sbNewScriptContent.AppendLine("$mlMAXPLAYERS = """ & launchData.mlMAXPLAYERS.Replace("""", """""") & """") + ElseIf scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sbNewScriptContent.AppendLine("mlMAXPLAYERS := """ & launchData.mlMAXPLAYERS.Replace("""", """""") & """") + End If + + sbNewScriptContent.AppendLine() + + Return True + End Function + + + ''' + ''' Prepare a temporary Script file from the scriptTemplate and the proc for launching the script engine with the file + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Private Function Prepare_Scripting(ByRef launchData As cls_Launch_Data, ByRef proc As System.Diagnostics.Process, ByVal scriptType As cls_Globals.enm_Script_Types, ByVal sScriptType As String, ByVal scriptEnginePath As String, ByVal scriptTemplatePath As String, ByVal TempDir As String) As Boolean + Dim sScriptContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(scriptTemplatePath) + + Dim sbNewScriptContent As New System.Text.StringBuilder + + Dim arScriptContentLines As String() = sScriptContent.Split(ControlChars.Lf) + + Dim bINJECT As Boolean = False + + For Each sLine As String In arScriptContentLines + If sLine.Contains("ML") AndAlso sLine.Contains("INJECT") AndAlso sLine.Contains("START") Then + sbNewScriptContent.AppendLine(sLine.Trim) + bINJECT = True + Inject_Scripting(launchData, scriptType, sbNewScriptContent) + End If + + If sLine.Contains("ML") AndAlso sLine.Contains("INJECT") AndAlso sLine.Contains("END") Then + bINJECT = False + End If + + If Not bINJECT Then + sbNewScriptContent.AppendLine(sLine.Trim) + End If + Next + + Dim scriptPath As String = "" + + 'write to temp. script file + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TempDir) Then + TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") + scriptPath = TempDir & "\" & Alphaleonis.Win32.Filesystem.Path.GetFileName(scriptTemplatePath) + + Dim ErrInfo As String = "" + MKNetLib.cls_MKFileSupport.SaveTextToFile(sbNewScriptContent.ToString, scriptPath, ErrInfo) + + If ErrInfo <> "" Then + MKDXHelper.MessageBox("An error occured while saving the script file to '" & scriptPath & "':" & ControlChars.CrLf & ControlChars.CrLf & ErrInfo, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return False + End If + End If + + proc.StartInfo.FileName = scriptEnginePath + proc.StartInfo.Arguments = """" & scriptPath & """" + + Return True + 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) 'Clean up Temp Dir of files older than 2 hours MKNetLib.cls_MKFileSupport.Delete_Directorycontent(cls_Globals.TempDir(Nothing), 7200) @@ -1236,42 +1745,13 @@ Public Class ucr_Emulation Private Sub Launch_Game_ScummVM(ByRef proc As System.Diagnostics.Process, ByVal id_Emulators As Object) Dim bShiftKeyPressed As Boolean = My.Computer.Keyboard.ShiftKeyDown - Dim sSQL_Emulator As String = " SELECT" & ControlChars.CrLf - sSQL_Emulator &= " EMU.id_Emulators" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.Displayname" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.InstallDirectory" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.Executable" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.StartupParameter" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.AutoItScript" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.J2KPreset" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.ScreenshotDirectory" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.Libretro_Core" & ControlChars.CrLf - sSQL_Emulator &= " , EMU.id_List_Generators" & ControlChars.CrLf - sSQL_Emulator &= " , LGEN.Name AS LGEN_Name" & ControlChars.CrLf - sSQL_Emulator &= " , LGEN.Main_Template AS LGEN_Main_Template" & ControlChars.CrLf - sSQL_Emulator &= " , LGEN.File_Entry_Template AS LGEN_File_Entry_Template" & ControlChars.CrLf - sSQL_Emulator &= " , LGEN.Sort AS LGEN_Sort" & ControlChars.CrLf - sSQL_Emulator &= " FROM tbl_Emulators_Moby_Platforms EMUPLTFM" & ControlChars.CrLf - sSQL_Emulator &= " LEFT JOIN tbl_Emulators EMU ON EMUPLTFM.id_Emulators = EMU.id_Emulators" & ControlChars.CrLf - sSQL_Emulator &= " LEFT JOIN tbl_List_Generators LGEN ON EMU.id_List_Generators = LGEN.id_List_Generators" & ControlChars.CrLf + Dim launchData As New cls_Launch_Data - If id_Emulators Is Nothing Then - sSQL_Emulator &= " WHERE EMUPLTFM.id_Emulators = (" & ControlChars.CrLf - sSQL_Emulator &= " SELECT id_Emulators" & ControlChars.CrLf - sSQL_Emulator &= " FROM tbl_Emu_Games" & ControlChars.CrLf - sSQL_Emulator &= " WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & ControlChars.CrLf - sSQL_Emulator &= " ) OR (" & ControlChars.CrLf - sSQL_Emulator &= " EMUPLTFM.DefaultEmulator = 1" & ControlChars.CrLf - sSQL_Emulator &= " AND id_Moby_Platforms = " & TC.getSQLFormat(BS_Emu_Games.Current("id_Moby_Platforms")) & ControlChars.CrLf - sSQL_Emulator &= " )" & ControlChars.CrLf - sSQL_Emulator &= " ORDER BY EMUPLTFM.DefaultEmulator" & ControlChars.CrLf - Else - sSQL_Emulator &= " WHERE EMU.id_Emulators = " & TC.getSQLFormat(id_Emulators) & ControlChars.CrLf - End If + Me.FillLaunchDataWithMetaData(launchData, BS_Emu_Games.Current.Row) - sSQL_Emulator &= " LIMIT 1" + Dim id_Moby_Platforms As Integer = BS_Emu_Games.Current("id_Moby_Platforms") - Dim dt_Emulators As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_Emulator) + Dim dt_Emulators As DataTable = get_Default_Emulator(id_Moby_Platforms, id_Emulators) If TC.NZ(id_Emulators, 0) <= 0 Then If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then @@ -1296,6 +1776,7 @@ Public Class ucr_Emulation MKDXHelper.MessageBox("The emulator's executable has not been found: " & emufullpath, "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return End If + launchData.mlEMUFULLPATH = emufullpath 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) @@ -1303,17 +1784,66 @@ Public Class ucr_Emulation Dim emuexe As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(emufullpath) Dim emudir As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(emufullpath) + 'Prepare Pre- and Post-Launch Commands + Dim ar_PreLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, True) + Dim ar_PostLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, False) + + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emudir%", emudir) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emuexe%", emuexe) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emufullpath%", emufullpath) + 'Generate Config - Dim Args As String = Prepare_ScummVM(dt_Emulators.Rows(0), BS_Emu_Games.Current.Row) + Dim Args As String = Prepare_ScummVM(dt_Emulators.Rows(0), BS_Emu_Games.Current.Row, launchData, ar_PreLaunch, ar_PostLaunch) If TC.IsNullNothingOrEmpty(Args) Then Return End If - proc.StartInfo.FileName = emufullpath - proc.StartInfo.WorkingDirectory = emudir + 'Run Pre-Launch Commands + Me.Run_Pre_Post_Launch_Commands(ar_PreLaunch) + + 'Determine if we have to use enhanced Scripting and set up necessary variables + Dim scriptType As cls_Globals.enm_Script_Types = TC.NZ(dt_Emulators.Rows(0)("ScriptType"), 0) + Dim scriptEnginePath As String = "" + + Dim sScriptType As String = "" + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sScriptType = "AutoIt" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoIt"), "") + End If + If scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sScriptType = "AutoHotKey" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoHotKey"), "") + End If + Dim scriptTemplatePath As String = TC.NZ(dt_Emulators.Rows(0)("ScriptPath"), "") + + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso scriptEnginePath = "" Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the " & sScriptType & " executable is missing. Please set up the " & sScriptType & " executable in the Settings.", sScriptType & " Executable missing", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(scriptEnginePath) Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the " & sScriptType & " executable '" & scriptEnginePath & "' cannot be found. Please set up the " & sScriptType & " executable in the Settings.", sScriptType & " Executable not found", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(scriptTemplatePath) Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the script file '" & scriptTemplatePath & "' cannot be found. Please check your settings in the Emulators dialog.", "Script File not found", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + 'Run the MAIN process + If scriptType <> cls_Globals.enm_Script_Types.NONE Then + 'Use enhanced scripting + If Not Prepare_Scripting(launchData, proc, scriptType, sScriptType, scriptEnginePath, scriptTemplatePath, "") Then + Return + End If + Else + 'Launch regularly + proc.StartInfo.FileName = emufullpath + proc.StartInfo.WorkingDirectory = emudir - proc.StartInfo.Arguments = Args + proc.StartInfo.Arguments = Args + End If proc.StartInfo.UseShellExecute = True @@ -1342,17 +1872,23 @@ Public Class ucr_Emulation proc.Start() Try - dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, cls_Globals.enm_Moby_Platforms.scummvm)) + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, cls_Globals.enm_Moby_Platforms.scummvm, ar_PostLaunch)) Catch ex As Exception End Try End Sub - - Private Sub Launch_Game_EMU(ByRef proc As System.Diagnostics.Process, ByVal id_Emulators As Object) - Dim bShiftKeyPressed As Boolean = My.Computer.Keyboard.ShiftKeyDown - - Dim id_Moby_Platforms As Integer = BS_Emu_Games.Current("id_Moby_Platforms") + ''' + ''' Get default Emulator to run based on the platform (or a specific one defined by id_Emulators + ''' + ''' + ''' + ''' + Private Function get_Default_Emulator(ByVal id_Moby_Platforms As Integer, ByVal id_Emulators As Object) As DataTable + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + id_Users = cls_Globals.id_Users + End If Dim sSQL_Emulator As String = " SELECT" & ControlChars.CrLf sSQL_Emulator &= " EMU.id_Emulators" & ControlChars.CrLf @@ -1369,7 +1905,10 @@ Public Class ucr_Emulation sSQL_Emulator &= " , IFNULL(RBLGEN.Main_Template, LGEN.Main_Template) AS LGEN_Main_Template" & ControlChars.CrLf sSQL_Emulator &= " , IFNULL(RBLGEN.File_Entry_Template, LGEN.File_Entry_Template) AS LGEN_File_Entry_Template" & ControlChars.CrLf sSQL_Emulator &= " , IFNULL(RBLGEN.Sort, LGEN.Sort) AS LGEN_Sort" & ControlChars.CrLf + sSQL_Emulator &= " , EMU.ScriptType" & ControlChars.CrLf + sSQL_Emulator &= " , EMU.ScriptPath" & ControlChars.CrLf sSQL_Emulator &= " FROM tbl_Emulators_Moby_Platforms EMUPLTFM" & ControlChars.CrLf + sSQL_Emulator &= " LEFT JOIN tbl_Users_Emulators_Moby_Platforms UEMUPLTFM ON UEMUPLTFM.id_Users = " & TC.getSQLFormat(TC.NZ(id_Users, 0)) & " AND EMUPLTFM.id_Moby_Platforms = UEMUPLTFM.id_Moby_Platforms AND UEMUPLTFM.id_Emulators = EMUPLTFM.id_Emulators" & ControlChars.CrLf sSQL_Emulator &= " LEFT JOIN tbl_Emulators EMU ON EMUPLTFM.id_Emulators = EMU.id_Emulators" & ControlChars.CrLf sSQL_Emulator &= " LEFT JOIN tbl_List_Generators LGEN ON EMU.id_List_Generators = LGEN.id_List_Generators" & ControlChars.CrLf sSQL_Emulator &= " LEFT JOIN rombase.tbl_Rombase_List_Generators RBLGEN ON -EMU.id_List_Generators = RBLGEN.id_Rombase_List_Generators" & ControlChars.CrLf @@ -1380,8 +1919,12 @@ Public Class ucr_Emulation sSQL_Emulator &= " FROM tbl_Emu_Games" & ControlChars.CrLf sSQL_Emulator &= " WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & ControlChars.CrLf sSQL_Emulator &= " ) OR (" & ControlChars.CrLf - sSQL_Emulator &= " EMUPLTFM.DefaultEmulator = 1" & ControlChars.CrLf - sSQL_Emulator &= " AND id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL_Emulator &= " UEMUPLTFM.id_Users_Emulators_Moby_Platforms IS NULL" & ControlChars.CrLf + sSQL_Emulator &= " AND EMUPLTFM.DefaultEmulator = 1" & ControlChars.CrLf + sSQL_Emulator &= " AND EMUPLTFM.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf + sSQL_Emulator &= " ) OR (" & ControlChars.CrLf + sSQL_Emulator &= " UEMUPLTFM.DefaultEmulator = 1" & ControlChars.CrLf + sSQL_Emulator &= " AND UEMUPLTFM.id_Moby_Platforms = " & TC.getSQLFormat(id_Moby_Platforms) & ControlChars.CrLf sSQL_Emulator &= " )" & ControlChars.CrLf sSQL_Emulator &= " ORDER BY EMUPLTFM.DefaultEmulator" & ControlChars.CrLf Else @@ -1390,236 +1933,367 @@ Public Class ucr_Emulation sSQL_Emulator &= " LIMIT 1" - Dim dt_Emulators As DataTable = DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_Emulator) + Return DataAccess.FireProcedureReturnDT(cls_Globals.Conn, 0, False, sSQL_Emulator) + End Function - If TC.NZ(id_Emulators, 0) <= 0 Then - If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then - If MKDXHelper.MessageBox("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 - MKDXHelper.MessageBox("ERROR: Emulator not found.", "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If - End If + Private Function PrepareMultiVolume(ByRef row_Emulators As DataRow, ByVal id_Emulators As Int64, ByVal emuexe As String, ByVal emudir As String, ByVal emufullpath As String, ByRef TempDir As String) As String + Dim sMultiVolume As String = "" - id_Emulators = TC.NZ(dt_Emulators.Rows(0)("id_Emulators"), 0) + Dim iMaxVol As Integer = 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 - MKDXHelper.MessageBox("The emulator's executable has not been found: " & emufullpath, "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Return - End If + 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 - 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) + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + DS_ML.Fill_src_frm_Emulators_Multivolume_Parameters(tran, dt_MV_Params, id_Emulators) - Dim emuexe As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(emufullpath) - Dim emudir As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(emufullpath) + If dt_MV_Params.Select("Volume_Number = 1").Length = 0 Then + MKDXHelper.MessageBox("A parameter setup for volume 1 could not be found, please check your emulator settings for " & row_Emulators("Displayname") & ".", "No entry set up for volume 1", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + tran.Commit() + Return "" + End If - Dim Args As String = dt_Emulators.Rows(0)("StartupParameter") - Args = Args.Replace("%emudir%", emudir) - Args = Args.Replace("%emuexe%", emuexe) - Args = Args.Replace("%emufullpath%", emufullpath) + 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) - Dim TempDir As String = "" + 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) - 'Main Romfile Args - If Args.Contains("%rom") Then - TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms + tran.Commit() + End Using - 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) + For iVol As Integer = 1 To iMaxVol + Dim rowsVolParam() As DataRow = dt_MV_Params.Select("Volume_Number = " & TC.getSQLFormat(iVol)) - If Not rfd.IsValid Then + 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 + MKDXHelper.MessageBox("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.Set_Current_Emu_Game_Unavailable(True) + Return "" + End If + + Me.Set_Current_Emu_Game_Unavailable(False) + + 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 + + Return sMultiVolume + End Function + + Private Function PrepareFileListContent(ByRef row_Emulators As DataRow, ByVal emudir As String, ByVal emuexe As String, ByVal emufullpath As String, ByRef TempDir As String, ByRef Args As String, ByRef ar_PreLaunch As ArrayList, ByRef ar_PostLaunch As ArrayList) As String + Dim iMaxVol As Integer = 0 + Dim iStartVol As Integer = 1 + Dim iEndVol As Integer = 1 + Dim iStep As Integer = 1 + + 'TODO: Checks (Main_Template, File_Entry_Template) + + Dim dt_Emu_Games_Volumes As New DS_ML.src_ucr_Emulation_GamesDataTable + + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + iMaxVol = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "Select MAX(Volume_Number) FROM tbl_Emu_Games WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " OR id_Emu_Games_Owner = " & BS_Emu_Games.Current("id_Emu_Games"), 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 + + If TC.NZ(row_Emulators("LGEN_Sort"), 1) = 2 Then + 'Descending Sort + iStartVol = iMaxVol + iEndVol = 1 + iStep = -1 + Else + 'Ascending Sort + iStartVol = 1 + iEndVol = iMaxVol + iStep = 1 + End If + + Dim sEntries As String = "" + + For iVol As Integer = iStartVol To iEndVol Step iStep + 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 + MKDXHelper.MessageBox("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Me.Set_Current_Emu_Game_Unavailable(True) - Return + Return "" End If Me.Set_Current_Emu_Game_Unavailable(False) - Args = Args.Replace("%romdir%", rfd.DirName) - Args = Args.Replace("%romfile%", rfd.FileName) - Args = Args.Replace("%romfullpath%", rfd.Fullpath) - End If + If rowsVolGames.Length > 0 Then + Dim sEntry As String = TC.NZ(row_Emulators("LGEN_File_Entry_Template"), "") - If Args.Contains("%multivolume%") Then - If BS_Emu_Games.Current("MultiVolume") = True Then - Dim sMultiVolume As String = "" + sEntry = sEntry.Replace("%emudir%", emudir) + sEntry = sEntry.Replace("%emuexe%", emuexe) + sEntry = sEntry.Replace("%emufullpath%", emufullpath) - Dim iMaxVol As Integer = 0 + If sEntry.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 dt_MV_Params As New DS_ML.tbl_Emulators_Multivolume_ParametersDataTable - Dim dt_Emu_Games_Volumes As New DS_ML.src_ucr_Emulation_GamesDataTable + Dim rfdVol As New cls_Romfiledata(TC.NZ(rowsVolGames(0)("Folder"), "") & "\" & TC.NZ(rowsVolGames(0)("File"), ""), TC.NZ(rowsVolGames(0)("Innerfile"), ""), TempDir) - Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction - DS_ML.Fill_src_frm_Emulators_Multivolume_Parameters(tran, dt_MV_Params, id_Emulators) + If Not rfdVol.IsValid Then Return "" - If dt_MV_Params.Select("Volume_Number = 1").Length = 0 Then - MKDXHelper.MessageBox("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 + sEntry = sEntry.Replace("%romdir%", rfdVol.DirName) + sEntry = sEntry.Replace("%romfile%", rfdVol.FileName) + sEntry = sEntry.Replace("%romfullpath%", rfdVol.Fullpath) + 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) + sEntries &= sEntry + End If + Next - 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) + Dim sFileListContent As String = TC.NZ(row_Emulators("LGEN_Main_Template"), "").Replace("%entries%", sEntries) - tran.Commit() - End Using + Dim sVariable As String = MKNetLib.cls_MKRegex.GetMatches(Args, "%listfile.*?%")(0).Value - For iVol As Integer = 1 To iMaxVol - Dim rowsVolParam() As DataRow = dt_MV_Params.Select("Volume_Number = " & TC.getSQLFormat(iVol)) + Dim sFileExtension = ".txt" - If rowsVolParam.Length > 0 Then - Dim rowsVolGames() As DataRow = dt_Emu_Games_Volumes.Select("Volume_Number = " & TC.getSQLFormat(iVol)) + If sVariable.Contains(".") Then + sFileExtension = MKNetLib.cls_MKRegex.GetMatches(sVariable, "(\..*?)%")(0).Value.Replace("%", "") + End If - If iVol = 1 AndAlso rowsVolGames.Length = 0 Then - rowsVolGames = dt_Emu_Games_Volumes.Select("Volume_Number IS NULL") - End If + 'Create the listfile + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TempDir) Then TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms and the listfile - If iVol = 1 AndAlso rowsVolGames.Length = 0 Then - MKDXHelper.MessageBox("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Me.Set_Current_Emu_Game_Unavailable(True) - Return - End If + Dim sFileListPath As String = TempDir & "\" & "filelist" & sFileExtension - Me.Set_Current_Emu_Game_Unavailable(False) + MKNetLib.cls_MKFileSupport.SaveTextToFile(sFileListContent, sFileListPath) - If rowsVolGames.Length > 0 Then - Dim sParam As String = rowsVolParam(0)("Parameter") + Args = Args.Replace(sVariable, sFileListPath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, sVariable, sFileListPath) - sParam = sParam.Replace("%emudir%", emudir) - sParam = sParam.Replace("%emuexe%", emuexe) - sParam = sParam.Replace("%emufullpath%", emufullpath) + Return sFileListPath + End Function - 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) + Private Function PrepareLaunchDataRomInfos(ByRef row_Emulators As DataRow, ByRef TempDir As String, ByRef launchData As cls_Launch_Data) As Boolean + Dim iMaxVol As Integer = 0 + Dim iStartVol As Integer = 1 + Dim iEndVol As Integer = 1 + Dim iStep As Integer = 1 - If Not rfdVol.IsValid Then Return + Dim dt_Emu_Games_Volumes As New DS_ML.src_ucr_Emulation_GamesDataTable - sParam = sParam.Replace("%romdir%", rfdVol.DirName) - sParam = sParam.Replace("%romfile%", rfdVol.FileName) - sParam = sParam.Replace("%romfullpath%", rfdVol.Fullpath) - End If + Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction + iMaxVol = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "Select MAX(Volume_Number) FROM tbl_Emu_Games WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " OR id_Emu_Games_Owner = " & BS_Emu_Games.Current("id_Emu_Games"), tran), 1) - sMultiVolume &= sParam - End If - End If - Next + 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) + End Using - Args = Args.Replace("%multivolume%", sMultiVolume) - Else - Args = Args.Replace("%multivolume%", "") - End If - End If + 'Ascending Sort + iStartVol = 1 + iEndVol = iMaxVol + iStep = 1 - 'Generate a file list text file and provide it as a startup parameter - If Args.Contains("%listfile") Then - Dim iMaxVol As Integer = 0 - Dim iStartVol As Integer = 1 - Dim iEndVol As Integer = 1 - Dim iStep As Integer = 1 + Dim sEntries As String = "" - 'TODO: Checks (Main_Template, File_Entry_Template) + For iVol As Integer = iStartVol To iEndVol Step iStep + Dim rowsVolGames() As DataRow = dt_Emu_Games_Volumes.Select("Volume_Number = " & TC.getSQLFormat(iVol)) - Dim dt_Emu_Games_Volumes As New DS_ML.src_ucr_Emulation_GamesDataTable + If iVol = 1 AndAlso rowsVolGames.Length = 0 Then + rowsVolGames = dt_Emu_Games_Volumes.Select("Volume_Number IS NULL") + End If - Using tran As SQLite.SQLiteTransaction = cls_Globals.Conn.BeginTransaction - iMaxVol = TC.NZ(DataAccess.FireProcedureReturnScalar(tran.Connection, 0, "Select MAX(Volume_Number) FROM tbl_Emu_Games WHERE id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " OR id_Emu_Games_Owner = " & BS_Emu_Games.Current("id_Emu_Games"), tran), 0) + If iVol = 1 AndAlso rowsVolGames.Length = 0 Then + MKDXHelper.MessageBox("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Me.Set_Current_Emu_Game_Unavailable(True) + Return False + End If - 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) + Me.Set_Current_Emu_Game_Unavailable(False) - 'tran.Commit() - End Using + If rowsVolGames.Length > 0 Then + If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TempDir) Then TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms - If TC.NZ(dt_Emulators.Rows(0)("LGEN_Sort"), 1) = 2 Then - 'Descending Sort - iStartVol = iMaxVol - iEndVol = 1 - iStep = -1 - Else - 'Ascending Sort - iStartVol = 1 - iEndVol = iMaxVol - iStep = 1 + 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 False + + launchData.ar_Rom_Entries.Add(New cls_Launch_Data_Rom_Entry(rfdVol.DirName, rfdVol.FileName, Alphaleonis.Win32.Filesystem.Path.GetExtension(rfdVol.FileName), rfdVol.Fullpath)) End If + Next - Dim sEntries As String = "" + Return True + End Function - For iVol As Integer = iStartVol To iEndVol Step iStep - 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 + Private Sub Launch_Game_EMU(ByRef proc As System.Diagnostics.Process, ByVal id_Emulators As Object) + Dim bShiftKeyPressed As Boolean = My.Computer.Keyboard.ShiftKeyDown - If iVol = 1 AndAlso rowsVolGames.Length = 0 Then - MKDXHelper.MessageBox("The first disc/volume of the game could not be found, please check the Rom Manager.", "First disc/volume missing", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - Me.Set_Current_Emu_Game_Unavailable(True) - Return + Dim launchData As New cls_Launch_Data + + Me.FillLaunchDataWithMetaData(launchData, BS_Emu_Games.Current.Row) + + Dim id_Moby_Platforms As Integer = BS_Emu_Games.Current("id_Moby_Platforms") + + Dim dt_Emulators As DataTable = get_Default_Emulator(id_Moby_Platforms, id_Emulators) + + If TC.NZ(id_Emulators, 0) <= 0 Then + If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then + If MKDXHelper.MessageBox("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 + MKDXHelper.MessageBox("ERROR: Emulator not found.", "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + End If - Me.Set_Current_Emu_Game_Unavailable(False) + Dim row_Emulators As DataRow = dt_Emulators.Rows(0) + id_Emulators = TC.NZ(row_Emulators("id_Emulators"), 0) - If rowsVolGames.Length > 0 Then - Dim sEntry As String = TC.NZ(dt_Emulators.Rows(0)("LGEN_File_Entry_Template"), "") + Dim emufullpath As String = TC.NZ(row_Emulators("InstallDirectory"), "") & "\" & TC.NZ(row_Emulators("Executable"), "") + If Not Alphaleonis.Win32.Filesystem.File.Exists(emufullpath) Then + MKDXHelper.MessageBox("The emulator's executable has not been found: " & emufullpath, "Emulator not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + Return + End If + launchData.mlEMUFULLPATH = emufullpath + + Dim snapdir As String = TC.NZ(row_Emulators("ScreenshotDirectory"), "") + MKNetLib.cls_MKFileSupport.DeleteContainedFiles(snapdir, cls_Extras._SupportedExtensions_Masks, IO.SearchOption.TopDirectoryOnly, FileIO.UIOption.OnlyErrorDialogs) - sEntry = sEntry.Replace("%emudir%", emudir) - sEntry = sEntry.Replace("%emuexe%", emuexe) - sEntry = sEntry.Replace("%emufullpath%", emufullpath) + Dim emuexe As String = Alphaleonis.Win32.Filesystem.Path.GetFileName(emufullpath) + Dim emudir As String = Alphaleonis.Win32.Filesystem.Path.GetDirectoryName(emufullpath) - If sEntry.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 + 'Prepare Pre- and Post-Launch Commands + Dim ar_PreLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, True) + Dim ar_PostLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, False) - Dim rfdVol As New cls_Romfiledata(TC.NZ(rowsVolGames(0)("Folder"), "") & "\" & TC.NZ(rowsVolGames(0)("File"), ""), TC.NZ(rowsVolGames(0)("Innerfile"), ""), TempDir) + Dim Args As String = row_Emulators("StartupParameter") + Args = Args.Replace("%emudir%", emudir) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emudir%", emudir) + Args = Args.Replace("%emuexe%", emuexe) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emuexe%", emuexe) + Args = Args.Replace("%emufullpath%", emufullpath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emufullpath%", emufullpath) - If Not rfdVol.IsValid Then Return + Dim TempDir As String = "" - sEntry = sEntry.Replace("%romdir%", rfdVol.DirName) - sEntry = sEntry.Replace("%romfile%", rfdVol.FileName) - sEntry = sEntry.Replace("%romfullpath%", rfdVol.Fullpath) - End If + 'Main Romfile Args + If Args.Contains("%rom") Then + TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms - sEntries &= sEntry - End If - Next + 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 + Me.Set_Current_Emu_Game_Unavailable(True) + Return + End If + + Me.Set_Current_Emu_Game_Unavailable(False) + + Args = Args.Replace("%romdir%", rfd.DirName) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romdir%", rfd.DirName) + Args = Args.Replace("%romfile%", rfd.FileName) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romfile%", rfd.FileName) + Args = Args.Replace("%romfullpath%", rfd.Fullpath) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%romfullpath%", rfd.Fullpath) + End If - Dim sFileListContent As String = TC.NZ(dt_Emulators.Rows(0)("LGEN_Main_Template"), "").Replace("%entries%", sEntries) + If Args.Contains("%multivolume%") Then + If BS_Emu_Games.Current("MultiVolume") = True Then + Dim sMultiVolume As String = PrepareMultiVolume(row_Emulators, id_Emulators, emuexe, emudir, emufullpath, TempDir) - 'TODO: Args = Args.Replace("%listfile%", sMultiVolume) - Dim sVariable As String = MKNetLib.cls_MKRegex.GetMatches(Args, "%listfile.*?%")(0).Value + If sMultiVolume = "" Then Return - Dim sFileExtension = ".txt" + Args = Args.Replace("%multivolume%", sMultiVolume) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%multivolume%", sMultiVolume) - If sVariable.Contains(".") Then - sFileExtension = MKNetLib.cls_MKRegex.GetMatches(sVariable, "(\..*?)%")(0).Value.Replace("%", "") + Else + Args = Args.Replace("%multivolume%", "") + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%multivolume%", "") End If + End If - 'Create the listfile - If Not Alphaleonis.Win32.Filesystem.Directory.Exists(TempDir) Then TempDir = MKNetLib.cls_MKFileSupport.CreateTempDir("ml_") 'One temp dir for all extracted roms and the listfile + If Args.Contains("%listfile") Then + 'Generate a file list text file and provide it as a startup parameter + Dim sFileListPath As String = PrepareFileListContent(row_Emulators, emudir, emuexe, emufullpath, TempDir, Args, ar_PreLaunch, ar_PostLaunch) - Dim sFileListPath As String = TempDir & "\" & "filelist" & sFileExtension + If sFileListPath = "" Then Return - MKNetLib.cls_MKFileSupport.SaveTextToFile(sFileListContent, sFileListPath) + launchData.mlLISTFILE = sFileListPath + End If - Args = Args.Replace(sVariable, sFileListPath) + If Not TC.IsNullNothingOrEmpty(row_Emulators("Libretro_Core")) Then + Dim libretroCore As String = row_Emulators("Libretro_Core").Trim + Args = "-L cores\" & libretroCore & (IIf(Args <> "", " ", "")) & Args + launchData.mlLIBRETROCORE = libretroCore 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 + 'Run Pre-Launch Commands + Run_Pre_Post_Launch_Commands(ar_PreLaunch) + + 'Determine if we have to use enhanced Scripting and set up necessary variables + Dim scriptType As cls_Globals.enm_Script_Types = TC.NZ(row_Emulators("ScriptType"), 0) + Dim scriptEnginePath As String = "" + + Dim sScriptType As String = "" + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sScriptType = "AutoIt" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoIt"), "") End If + If scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sScriptType = "AutoHotKey" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoHotKey"), "") + End If + Dim scriptTemplatePath As String = TC.NZ(row_Emulators("ScriptPath"), "") + + 'Run the MAIN process + If scriptType <> cls_Globals.enm_Script_Types.NONE Then + 'Use enhanced scripting + If Not PrepareLaunchDataRomInfos(row_Emulators, TempDir, launchData) Then + Return + End If - proc.StartInfo.FileName = emufullpath - proc.StartInfo.WorkingDirectory = emudir + If Not Prepare_Scripting(launchData, proc, scriptType, sScriptType, scriptEnginePath, scriptTemplatePath, "") Then + Return + End If + Else + 'Launch regularly + proc.StartInfo.FileName = emufullpath + proc.StartInfo.WorkingDirectory = emudir - proc.StartInfo.Arguments = Args + proc.StartInfo.Arguments = Args + End If proc.StartInfo.UseShellExecute = True @@ -1637,7 +2311,7 @@ Public Class ucr_Emulation End Using End If - Dim J2K_Preset = TC.NZ(dt_Emulators.Rows(0)("J2KPreset"), "") + Dim J2K_Preset = TC.NZ(row_Emulators("J2KPreset"), "") If TC.NZ(BS_Emu_Games.Current("J2KPreset"), "").Length > 0 Then J2K_Preset = TC.NZ(BS_Emu_Games.Current("J2KPreset"), "") @@ -1648,30 +2322,34 @@ Public Class ucr_Emulation proc.Start() Try - dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, id_Moby_Platforms)) + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, id_Moby_Platforms, ar_PostLaunch)) Catch ex As Exception End Try End Sub + Private Sub FillLaunchDataWithMetaData(ByRef launchData As cls_Launch_Data, ByRef row_Emu_Games As DataRow) + launchData.mlGAMEID = TC.NZ(row_Emu_Games("id_Emu_Games"), 0).ToString + launchData.mlGAMENAME = TC.NZ(row_Emu_Games("Game"), "") + launchData.mlREGIONS = TC.NZ(row_Emu_Games("Regions"), "") + launchData.mlLANGUAGES = TC.NZ(row_Emu_Games("Languages"), "") + launchData.mlMOBYRANK = TC.NZ(row_Emu_Games("Rank"), "") + launchData.mlMOBYSCORE = TC.NZ(row_Emu_Games("Score"), "") + launchData.mlYEAR = TC.NZ(row_Emu_Games("Year"), "") + launchData.mlPUBLISHER = TC.NZ(row_Emu_Games("Publisher"), "") + launchData.mlDEVELOPER = TC.NZ(row_Emu_Games("Developer"), "") + launchData.mlMINPLAYERS = TC.NZ(row_Emu_Games("MinPlayers"), "") + launchData.mlMAXPLAYERS = TC.NZ(row_Emu_Games("MaxPlayers"), "") + End Sub + Private Sub Launch_Game_DOS(ByRef proc As System.Diagnostics.Process, ByVal id_Emulators As Object, ByVal id_Rombase_DOSBox_Exe_Types As Integer) - 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) + Dim launchData As New cls_Launch_Data + + Me.FillLaunchDataWithMetaData(launchData, BS_Emu_Games.Current.Row) + + Dim id_Moby_Platforms As Integer = BS_Emu_Games.Current("id_Moby_Platforms") + + Dim dt_Emulators As DataTable = get_Default_Emulator(id_Moby_Platforms, id_Emulators) If TC.NZ(id_Emulators, 0) <= 0 Then If dt_Emulators Is Nothing OrElse dt_Emulators.Rows.Count < 1 Then @@ -1696,6 +2374,7 @@ Public Class ucr_Emulation MKDXHelper.MessageBox("The DOSBox executable has not been found: " & emufullpath, "DOSBox exe not found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Return End If + launchData.mlEMUFULLPATH = emufullpath 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) @@ -1703,18 +2382,66 @@ Public Class ucr_Emulation 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 + 'Prepare Pre- and Post-Launch Commands + Dim ar_PreLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, True) + Dim ar_PostLaunch As ArrayList = Get_Pre_Post_Launch_Commands(id_Emulators, False) + + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emudir%", emudir) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emuexe%", emuexe) + Pre_Post_Launch_Commands_Replace(ar_PreLaunch, ar_PostLaunch, "%emufullpath%", emufullpath) + + 'Generate Config + Dim Args As String = Prepare_DOSBox(dt_Emulators.Rows(0), BS_Emu_Games.Current.Row, id_Rombase_DOSBox_Exe_Types, ar_PreLaunch, ar_PostLaunch, launchData) 'Autolaunch Main exe If Args = "" Then Return 'DOSBox Preparation had an error or has been cancelled End If - Dim TempDir As String = "" + 'Run Pre-Launch Commands + Run_Pre_Post_Launch_Commands(ar_PreLaunch) + + 'Determine if we have to use enhanced Scripting and set up necessary variables + Dim scriptType As cls_Globals.enm_Script_Types = TC.NZ(dt_Emulators.Rows(0)("ScriptType"), 0) + Dim scriptEnginePath As String = "" + + Dim sScriptType As String = "" + If scriptType = cls_Globals.enm_Script_Types.AutoIt Then + sScriptType = "AutoIt" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoIt"), "") + End If + If scriptType = cls_Globals.enm_Script_Types.AutoHotKey Then + sScriptType = "AutoHotKey" + scriptEnginePath = TC.NZ(cls_Settings.GetSetting("Path_AutoHotKey"), "") + End If + Dim scriptTemplatePath As String = TC.NZ(dt_Emulators.Rows(0)("ScriptPath"), "") + + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso scriptEnginePath = "" Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the " & sScriptType & " executable is missing. Please set up the " & sScriptType & " executable in the Settings.", sScriptType & " Executable missing", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(scriptEnginePath) Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the " & sScriptType & " executable '" & scriptEnginePath & "' cannot be found. Please set up the " & sScriptType & " executable in the Settings.", sScriptType & " Executable not found", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If - proc.StartInfo.FileName = emufullpath - proc.StartInfo.WorkingDirectory = emudir + If scriptType <> cls_Globals.enm_Script_Types.NONE AndAlso Not Alphaleonis.Win32.Filesystem.File.Exists(scriptTemplatePath) Then + MKDXHelper.MessageBox("You chose to use enhanced scripting with " & sScriptType & ", but the script file '" & scriptTemplatePath & "' cannot be found. Please check your settings in the Emulators dialog.", "Script File not found", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + 'Run the MAIN process + If scriptType <> cls_Globals.enm_Script_Types.NONE Then + 'Use enhanced scripting + If Not Prepare_Scripting(launchData, proc, scriptType, sScriptType, scriptEnginePath, scriptTemplatePath, "") Then + Return + End If + Else + 'Launch regularly + proc.StartInfo.FileName = emufullpath + proc.StartInfo.WorkingDirectory = emudir - proc.StartInfo.Arguments = Args + proc.StartInfo.Arguments = Args + End If proc.StartInfo.UseShellExecute = True @@ -1735,7 +2462,7 @@ Public Class ucr_Emulation proc.Start() Try - dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, cls_Globals.enm_Moby_Platforms.dos)) + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), snapdir, cls_Globals.enm_Moby_Platforms.dos, ar_PostLaunch)) Catch ex As Exception End Try @@ -1798,7 +2525,7 @@ Public Class ucr_Emulation End Try Try - dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "", cls_Globals.enm_Moby_Platforms.win)) + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "", cls_Globals.enm_Moby_Platforms.win, Nothing)) Catch ex As Exception End Try @@ -1830,7 +2557,7 @@ Public Class ucr_Emulation proc.Start() Try - dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "", cls_Globals.enm_Moby_Platforms.mame)) + dict_Proc_EmuGames.Add(proc.Id, New cls_Emu_Game_ProcInfo(BS_Emu_Games.Current("id_Emu_Games"), "", cls_Globals.enm_Moby_Platforms.mame, Nothing)) Catch ex As Exception End Try @@ -1858,6 +2585,12 @@ Public Class ucr_Emulation dict_Proc_EmuGames.Remove(proc.Id) + 'Re-fetch RetroAchievements data if the selected game is the exited game + If BS_Emu_Games.Current IsNot Nothing And pi.id_Emu_Games = BS_Emu_Games.Current("id_Emu_Games") Then + _check_RetroAchievements_and_Challenge_for_Current_Game = True + End If + + 'Update Usage Stats 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) @@ -1866,12 +2599,15 @@ Public Class ucr_Emulation End If End If - _al_Screenshots_EmuGames.Add(New cls_Emu_Game_ProcInfo(id_Emu_Games, snapdir, pi.Platform)) + _al_Screenshots_EmuGames.Add(New cls_Emu_Game_ProcInfo(id_Emu_Games, snapdir, pi.Platform, Nothing)) 'Rescan DOSBox Working Directory (an installer could have been used!) If pi.Platform = cls_Globals.enm_Moby_Platforms.dos Then frm_Rom_Manager.Rescan_DOSBox_Game(id_Emu_Games) End If + + 'Run Post-Launch Commands + Run_Pre_Post_Launch_Commands(pi.Post_Launch_Commands) End Sub Private Function Get_DOSBox_Exe_Type() As Integer @@ -1916,11 +2652,27 @@ Public Class ucr_Emulation Me.gv_Emu_Games.SelectRow(Me.gv_Emu_Games.FocusedRowHandle) End Sub + Public Function get_Current_Challenge_Tier() As Int64 + If TC.NZ(cmb_Challenges.EditValue, 0) = 0 Then + Return 0L + End If + + Dim currentTier As Int64 = 1L + For Each row_Challenge As DataRow In Me.DS_ML.ttb_Open_Challenges.Rows + If row_Challenge("id_Cheevo_Challenges") = Me.cmb_Challenges.EditValue Then + currentTier = row_Challenge("Tier") + End If + Next + + Return currentTier + End Function + Public Sub Refill_Emu_Games() Cursor.Current = Cursors.WaitCursor If TC.IsNullNothingOrEmpty(cmb_Platform.EditValue) Then DS_ML.src_ucr_Emulation_Games.Clear() + Update_Cheevo_Challenges_Cheevos() Return End If @@ -1932,7 +2684,8 @@ Public Class ucr_Emulation 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) + + 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, cmb_Challenges.EditValue, get_Current_Challenge_Tier, chb_Cheevo_Challenges_Show_Completed.Checked) 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) @@ -1983,7 +2736,13 @@ Public Class ucr_Emulation End If Prepare_filteringUIContext_QueryRangeData() + + Dim activeFilterString As String = Me.gv_Emu_Games.ActiveFilterString filteringUIContext.UpdateMemberBindings() + Me.gv_Emu_Games.ActiveFilterString = activeFilterString + + + Update_Cheevo_Challenges_Cheevos() Cursor.Current = Cursors.Default End Sub @@ -2140,31 +2899,132 @@ Public Class ucr_Emulation End Using ApplyFirstExtra() - End Sub - Private Sub pic_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_Game.Click - ApplyNextExtra(True, True, True) - tmr_ImageUpdate.Stop() - tmr_ImageUpdate.Start() + Get_RetroAchievements_for_Current_Game() + + Check_Challenge_Runtime_Unlock() End Sub - ''' - ''' Get the first extra - ''' - ''' - Private Sub ApplyFirstExtra() - Extras_Mode = enm_ExtrasMode.User + Private Sub Check_Challenge_Runtime_Unlock() + If BS_Emu_Games.Current Is Nothing Then + Return + End If - pic_Game.Image = Nothing + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 Then + id_Users = cls_Globals.id_Users + End If - 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 + Dim ar_Unlocks As New ArrayList - Moby_ExtraNum = 0 - Moby_Extra_isDownloading = False + For Each row_Cheevo As DS_ML.ttb_Open_Challenges_CheevosRow In Me.DS_ML.ttb_Open_Challenges_Cheevos.Rows + If row_Cheevo.CheevoType = cls_Globals.enm_CheevoTypes.TotalRuntime Then + If row_Cheevo.id_Emu_Games = BS_Emu_Games.Current("id_Emu_Games") Then + If row_Cheevo.Runtime < BS_Emu_Games.Current("Num_Runtime") Then + ar_Unlocks.Add(row_Cheevo) + End If + End If + End If + Next - Me.Moby_Download_Info = Nothing + 'Back up the old challenges (so we can compare to new challenges after save) + Dim ttb_Open_Challenges_Old As New DS_ML.ttb_Open_ChallengesDataTable + For Each row As DataRow In Me.DS_ML.ttb_Open_Challenges.Rows + ttb_Open_Challenges_Old.ImportRow(row) + Next + + If ar_Unlocks.Count > 0 Then + For Each row As DataRow In ar_Unlocks + If TC.NZ(row("id_Users_Cheevo_Challenges_Cheevos"), 0) = 0 Then + 'INSERT + Dim sSQLInsertCasual As String = "" + sSQLInsertCasual &= "INSERT INTO tbl_Users_Cheevo_Challenges_Cheevos (id_Users, id_Cheevo_Challenges_Cheevos, Unlocked_Casual, Unlocked_Hardcore) VALUES (" & ControlChars.CrLf + sSQLInsertCasual &= TC.getSQLParameter(id_Users, row("id_Cheevo_Challenges_Cheevos"), True, True) & ControlChars.CrLf + sSQLInsertCasual &= ")" + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLInsertCasual) + Else + 'UPDATE + Dim sSQLUpdateCasual As String = "" + sSQLUpdateCasual &= "UPDATE tbl_Users_Cheevo_Challenges_Cheevos SET Unlocked_Casual = 1, Unlocked_Hardcore = 1" & ControlChars.CrLf + sSQLUpdateCasual &= "WHERE id_Users_Cheevo_Challenges_Cheevos = " & TC.getSQLFormat(row("id_Users_Cheevo_Challenges_Cheevos")) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLUpdateCasual) + End If + Next + End If + + If ar_Unlocks.Count > 0 Then + Dim messageText As String = "You successfully unlocked the following achievement" & IIf(ar_Unlocks.Count > 1, "s", "") & ":" & ControlChars.CrLf & ControlChars.CrLf + + For Each row As DataRow In ar_Unlocks + messageText &= "Challenge: " & row("Challenge_Name") & " Tier " & row("Tier") & ControlChars.CrLf + messageText &= "Game: " & row("Cheevo_GameName") & ControlChars.CrLf + messageText &= "Achievement: " & row("Cheevo_Title") & ControlChars.CrLf + + messageText &= ControlChars.CrLf + Next + + MKNetDXLib.cls_MKDXHelper.MessageBox(messageText, "Challenges", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + Refill_Cheevo_Open_Challenges() + + Dim challengeCompleteMessageText = "" + + For Each row_old As DataRow In ttb_Open_Challenges_Old.Rows + If row_old("Name") = "None" OrElse TC.NZ(row_old("Tier"), 0) = -1 Then + Continue For + End If + + Dim bIsCompleted As Boolean = True 'The Challenge is completed if there is no row in the current ttb_Open_Challenges with same ID + + For Each row_new As DataRow In Me.DS_ML.ttb_Open_Challenges + If TC.NZ(row_old("id_Cheevo_Challenges"), 0) = TC.NZ(row_new("id_Cheevo_Challenges"), 0) AndAlso TC.NZ(row_new("Tier"), 0) > -1 Then + bIsCompleted = False + + If TC.NZ(row_old("Tier"), 0) <> TC.NZ(row_new("Tier"), 0) Then + challengeCompleteMessageText &= "You successfully mastered tier " & row_old("Tier") & " of the '" & row_old("Name") & "' challenge. Tier " & row_new("Tier") & " is now unlocked, good luck!" & ControlChars.CrLf & ControlChars.CrLf + End If + End If + Next + + If bIsCompleted Then + challengeCompleteMessageText &= "You successfully mastered the '" & row_old("Name") & "' challenge. Nice one!" & ControlChars.CrLf & ControlChars.CrLf + End If + Next + + If challengeCompleteMessageText <> "" Then + challengeCompleteMessageText = "Congratulations!" & ControlChars.CrLf & ControlChars.CrLf & challengeCompleteMessageText + MKNetDXLib.cls_MKDXHelper.MessageBox(challengeCompleteMessageText, "RetroAchievements Challenges", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + Update_Cheevo_Challenges_Cheevos() + End Sub + + Private Sub pic_Game_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_Game.Click + ApplyNextExtra(True, True, True) + tmr_ImageUpdate.Stop() + tmr_ImageUpdate.Start() + End Sub + + ''' + ''' Get the first extra + ''' + ''' + Private Sub ApplyFirstExtra() + Extras_Mode = enm_ExtrasMode.User + + 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 + + Moby_ExtraNum = 0 + Moby_Extra_isDownloading = False + + Me.Moby_Download_Info = Nothing ApplyNextExtra(False, True, True) @@ -2200,6 +3060,8 @@ Public Class ucr_Emulation ''' ''' Private Sub ApplyNextExtra(ByVal SkipToNextImmediately As Boolean, Optional ByVal DoRecurse As Boolean = True, Optional ByVal ApplyExtraDescription As Boolean = False) + Me.lbl_MobyDownload_Error.Text = "" + If ApplyExtraDescription Then Me.lbl_Extras_Description.Text = "" End If @@ -2225,7 +3087,7 @@ Public Class ucr_Emulation Return Else Debug.WriteLine("EXTRAS: Image found, loading for display") - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(res._Path))) 'Image.FromFile(res._Path) + pic_Game.Image = cls_Extras.LoadImageFromStreamSafe(res._Path, False) 'Image.FromFile(res._Path) Me.ExtraType = res._ExtraType Me.ExtraNum = res._ExtraNum End If @@ -2240,8 +3102,9 @@ Public Class ucr_Emulation End If If Me.DS_ML.src_ucr_Emulation_Moby_Releases_Cover_Art.Rows.Count = 0 AndAlso Me.DS_ML.src_ucr_Emulation_Moby_Releases_Screenshots.Rows.Count = 0 Then - Debug.WriteLine("EXTRAS: no Cover Art and no Screenshots found, aborting") + Debug.WriteLine("EXTRAS: no Cover Art and no Screenshots found, reverting to USER mode") Me.Extras_Mode = enm_ExtrasMode.User + Me.ExtraNum = 0 If DoRecurse Then ApplyNextExtra(False, False) Return Else @@ -2262,7 +3125,7 @@ Public Class ucr_Emulation Dim extranum As Integer = Me.Moby_ExtraNum If Me.DS_ML.src_ucr_Emulation_Moby_Releases_Cover_Art.Rows.Count > extranum Then - '>> Cover Art << + '>> Moby Cover Art << Debug.WriteLine("EXTRAS: using Cover Art") Dim row_Cover_Art As DS_ML.src_ucr_Emulation_Moby_Releases_Cover_ArtRow = Me.DS_ML.src_ucr_Emulation_Moby_Releases_Cover_Art.Rows(extranum) @@ -2325,7 +3188,7 @@ Public Class ucr_Emulation If cls_Extras.EnsureExtrasFile(filepath) Then 'Apply here Debug.WriteLine("EXTRAS: Extra found, loading for display") - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(filepath))) + pic_Game.Image = cls_Extras.LoadImageFromStreamSafe(filepath) Else 'Run the Downloader Debug.WriteLine("EXTRAS: Extra not found, starting the download") @@ -2334,11 +3197,11 @@ Public Class ucr_Emulation Else Debug.WriteLine("EXTRAS: using Screenshots") - '>> Screenshots << + '>> Moby Screenshots << extranum = extranum - DS_ML.src_ucr_Emulation_Moby_Releases_Cover_Art.Rows.Count If Not DS_ML.src_ucr_Emulation_Moby_Releases_Screenshots.Rows.Count > extranum Then - Debug.WriteLine("EXTRAS: we hit the ceiling, switching to User now") + Debug.WriteLine("EXTRAS: we hit the ceiling, switching to USER mode now") Me.Moby_ExtraNum = 0 Me.ExtraNum = 0 Me.Extras_Mode = enm_ExtrasMode.User @@ -2406,7 +3269,7 @@ Public Class ucr_Emulation If cls_Extras.EnsureExtrasFile(filepath) Then 'Apply here Debug.WriteLine("EXTRAS: Extra found, loading for display") - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(filepath))) + pic_Game.Image = cls_Extras.LoadImageFromStreamSafe(filepath) Else 'Run the Downloader Debug.WriteLine("EXTRAS: Extra not found, starting the download") @@ -2422,14 +3285,14 @@ Public Class ucr_Emulation Return End If Catch ex As Exception - + Return End Try Me.pic_Game.Cursor = Cursors.WaitCursor Me.prg_Extras_Download.EditValue = 0 Me.prg_Extras_Download.Visible = True - Me.Moby_Download_Info = New cls_Moby_Download_Info(url, filepath, description, applyDescription) + Me.Moby_Download_Info = New cls_Moby_Download_Info(url, filepath, description, applyDescription, isArchiveOrg:=False) Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri("http://www.mobygames.com" & url), filepath) End Sub @@ -2448,10 +3311,24 @@ Public Class ucr_Emulation If e.Error IsNot Nothing Then Debug.WriteLine("EXTRAS: Download has errored: " & e.Error.Message & e.Error.StackTrace) + + If Me.Moby_Download_Info IsNot Nothing AndAlso Not Me.Moby_Download_Info.isArchiveOrg Then + 'Retry from archive.org directly + Me.Moby_Download_Info.isArchiveOrg = True + + Dim archiveOrgUrl As String = "http://web.archive.org/web/http://www.mobygames.com" & Me.Moby_Download_Info.URL + 'Dim archiveOrgUrl As String = "http://web.archive.org/web/http%3A%2F%2Fwww.mobygames.com" & url.ToString.Replace("/", "%2F") + 'does not work: Dim archiveOrgUrl As String = "https://archive.org/download/www.mobygames.com" & url + + Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri(archiveOrgUrl), Me.Moby_Download_Info.Filepath) + Else + Me.lbl_MobyDownload_Error.Text = "Error while downloading: " & e.Error.Message + Me.pic_Game.Image = Nothing + End If + Return End If - If Me.Moby_Download_Info Is Nothing Then Debug.WriteLine("EXTRAS: After Download: Game has changed, aborting") Me.ApplyFirstExtra() @@ -2460,12 +3337,43 @@ Public Class ucr_Emulation If Not Alphaleonis.Win32.Filesystem.File.Exists(Me.Moby_Download_Info.Filepath) Then Debug.WriteLine("EXTRAS: After Download: File not found, aborting") + Me.pic_Game.Image = Nothing Return End If + Debug.WriteLine("EXTRAS: After Download: try to load as Image") + Dim img As System.Drawing.Image = cls_Extras.LoadImageFromStreamSafe(Me.Moby_Download_Info.Filepath, False) + + If img Is Nothing Then + Debug.WriteLine("EXTRAS: After Download: it is NOT an image") + + If Me.Moby_Download_Info.isArchiveOrg Then + Debug.WriteLine("EXTRAS: After Download: archive.org may have sent just html with the image embedded") + 'Load the file contents as HTML and check for "real" download URL + Dim sContent As String = MKNetLib.cls_MKFileSupport.GetFileContents(Me.Moby_Download_Info.Filepath) + + Try + Dim newURL As String = MKNetLib.cls_MKRegex.GetMatches(sContent, "")(0).Groups(1).Value + + Debug.WriteLine("EXTRAS: After Download: fetching from " & newURL) + Me.Moby_Extras_Downloader.DownloadFileAsync(New Uri(newURL), Me.Moby_Download_Info.Filepath) + Catch ex As Exception + Debug.WriteLine("EXTRAS: After Download: Failed reading the HTML") + End Try + Else + Debug.WriteLine("EXTRAS: Removing file") + Try + Alphaleonis.Win32.Filesystem.File.Delete(Me.Moby_Download_Info.Filepath) + Catch ex As Exception + + End Try + End If + End If + Debug.WriteLine("EXTRAS: After Download: Loading for display") + If cls_Extras.EnsureExtrasFile(Me.Moby_Download_Info.Filepath) Then - pic_Game.Image = Image.FromStream(New IO.MemoryStream(Alphaleonis.Win32.Filesystem.File.ReadAllBytes(Me.Moby_Download_Info.Filepath))) + pic_Game.Image = cls_Extras.LoadImageFromStreamSafe(Me.Moby_Download_Info.Filepath) End If If Me.Moby_Download_Info.ApplyExtraDescription Then @@ -2673,6 +3581,7 @@ Public Class ucr_Emulation bbi_DOSBox_Templates.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbi_DOSBox_Clear_Exe_Config.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbi_ScummVM_Templates.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Create_TDL_Menu.Visibility = BarItemVisibility.Never bbi_Edit_Game.Enabled = False @@ -2695,7 +3604,22 @@ Public Class ucr_Emulation bbi_Show_Similarity_Feature_Columns.Visibility = DevExpress.XtraBars.BarItemVisibility.Never bbi_Open_Similarity_Details.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bbi_Export_TDL.Visibility = BarItemVisibility.Never + If MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games).Length > 0 Then + For Each row As DataRow In MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRows(gv_Emu_Games) + If row("id_Moby_Platforms") = cls_Globals.enm_Moby_Platforms.dos Then + bbi_Export_TDL.Visibility = BarItemVisibility.Always + Exit For + End If + Next + + Me.bbi_Edit_Game.Caption = "Edit Game" + + If MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games).Length > 1 Then + Me.bbi_Edit_Game.Caption = "Edit Selected Games" + End If + If BS_Emu_Games.Current IsNot Nothing Then bbi_Edit_Game.Enabled = True bbi_Edit_Multiple_Games.Enabled = True @@ -2722,13 +3646,19 @@ Public Class ucr_Emulation 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 + bbi_Create_TDL_Menu.Visibility = BarItemVisibility.Always End If If {cls_Globals.enm_Moby_Platforms.scummvm}.Contains(TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0)) Then bbi_ScummVM_Templates.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End If - If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("File")) Then + If Not TC.IsNullNothingOrEmpty(BS_Emu_Games.Current("File")) OrElse {cls_Globals.enm_Moby_Platforms.scummvm}.Contains(TC.NZ(BS_Emu_Games.Current("id_Moby_Platforms"), 0)) Then + + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 Then + id_Users = cls_Globals.id_Users + End If Dim sSQL_Emus As String = " SELECT" & ControlChars.CrLf & " EMU.id_Emulators" & ControlChars.CrLf & @@ -2739,9 +3669,10 @@ Public Class ucr_Emulation " , EMU.AutoItScript" & ControlChars.CrLf & " , EMU.J2KPreset" & ControlChars.CrLf & " , EMU.ScreenshotDirectory" & ControlChars.CrLf & - " , EMUPLTFM.DefaultEmulator AS DefaultEmulator_Global" & ControlChars.CrLf & + " , IFNULL(UEMUPLTFM.DefaultEmulator, 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_Users_Emulators_Moby_Platforms UEMUPLTFM ON UEMUPLTFM.id_Users = " & TC.getSQLFormat(id_Users) & " AND UEMUPLTFM.id_Moby_Platforms = EMUPLTFM.id_Moby_Platforms AND UEMUPLTFM.id_Emulators = EMUPLTFM.id_Emulators" & 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 & @@ -2804,9 +3735,9 @@ Public Class ucr_Emulation bbi_ScummVM_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 + bbi_Add_to_Challenge.Enabled = False bsi_Export.Enabled = False End If End Sub @@ -2934,6 +3865,10 @@ Public Class ucr_Emulation If _Initializing Then Return End Sub + Private Sub cmb_Challenges_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_Challenges.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 @@ -2989,13 +3924,38 @@ Public Class ucr_Emulation 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")) + Dim iRowHandles As Integer() = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRowHandles(gv_Emu_Games) + Dim iNumRows As Integer = iRowHandles.Length - 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 + If iNumRows <= 0 Then + Return + End If + + If iNumRows = 1 Then + 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 + + Else + 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 If 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 @@ -3095,6 +4055,10 @@ Public Class ucr_Emulation 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) + cls_Settings.SetSetting("ucr_Emulation-Cheevo_Challenge", cmb_Challenges.EditValue, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("ucr_Emulation-Cheevo_Challenge_ShowCompleted", chb_Cheevo_Challenges_Show_Completed.Checked, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("ucr_Emulation-Details_Tab_Page", tcl_Details.SelectedTabPage.Name, cls_Settings.enm_Settingmodes.Per_User) + Save_EmuGame_Position() End Sub @@ -3148,9 +4112,9 @@ Public Class ucr_Emulation 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))) + Dim img As Bitmap = cls_Extras.LoadImageFromStreamSafe(file, False) - If img.PhysicalDimension.Width > 1 And img.PhysicalDimension.Height > 1 Then + If img IsNot Nothing AndAlso img.PhysicalDimension.Width > 1 AndAlso img.PhysicalDimension.Height > 1 Then al_Screenshots.Add(img) End If Catch ex As Exception @@ -3165,6 +4129,7 @@ Public Class ucr_Emulation Using frm As New frm_USER_Extras_Manager(id_Emu_Games, al_Screenshots) frm.Name = frm.Name & "_ADD" + frm.Text = "" 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 @@ -3248,6 +4213,8 @@ Public Class ucr_Emulation Catch ex As Exception End Try + + 'Check_Challenge_Runtime_Unlock() End Using Next @@ -3274,6 +4241,13 @@ Public Class ucr_Emulation 'AddNewScreenshots(id_Emu_Games, al_Shots, snapdir) AddNewScreenshots(id_Emu_Games, al_Shots, New String() {snapdir, cls_Globals.Dir_Screenshot}) End If + + If _check_RetroAchievements_and_Challenge_for_Current_Game Then + Get_RetroAchievements_for_Current_Game() + _check_RetroAchievements_and_Challenge_for_Current_Game = False + Check_Challenge_Runtime_Unlock() + 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 @@ -3295,6 +4269,8 @@ Public Class ucr_Emulation filteringUIContext.RetrieveFields() 'accordion_FilterUI.ExpandAll() + Refill_Cheevo_Open_Challenges() + _Initializing = False End Sub @@ -3508,9 +4484,18 @@ Public Class ucr_Emulation Dim iAdded As Integer = 0 Dim iSkipped As Integer = 0 Dim iDeleted As Integer = 0 + + Dim ar_id_Moby_Platforms As New ArrayList 'Save distinct all involved platforms (for chache update) + ar_id_Moby_Platforms.Add(-1L) 'Definitely add the "All Platforms" platform + 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 + + If Not ar_id_Moby_Platforms.Contains(row_Emu_Games("id_Moby_Platforms")) Then + ar_id_Moby_Platforms.Add(row_Emu_Games("id_Moby_Platforms")) + End If + 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 @@ -3529,14 +4514,28 @@ Public Class ucr_Emulation End If Next - DS_ML.Update_Platform_NumGames_Cache(tran, Me.cmb_Platform.EditValue, id_Users) + For Each id_Moby_Platforms In ar_id_Moby_Platforms + DS_ML.Update_Platform_NumGames_Cache(tran, id_Moby_Platforms, id_Users) + Next tran.Commit() If bAdd Then - MKDXHelper.MessageBox("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) + Dim sMessage = "Add games to restricted user '" & frm.cmb_Users.Text & "'" & ControlChars.CrLf + sMessage &= ControlChars.CrLf + sMessage &= iRowHandles.Length & " games selected" & ControlChars.CrLf + sMessage &= iAdded & " games added" & ControlChars.CrLf + sMessage &= iSkipped & " already added games skipped" & ControlChars.CrLf + + MKDXHelper.MessageBox(sMessage, "Add selected games to restricted user", MessageBoxButtons.OK, MessageBoxIcon.Information) Else - MKDXHelper.MessageBox("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) + Dim sMessage = "Remove games from restricted user '" & frm.cmb_Users.Text & "'" & ControlChars.CrLf + sMessage &= ControlChars.CrLf + sMessage &= iRowHandles.Length & " games selected" & ControlChars.CrLf + sMessage &= iAdded & " games removed" & ControlChars.CrLf + sMessage &= iSkipped & " games skipped (they weren't added to the user)" & ControlChars.CrLf + + MKDXHelper.MessageBox(sMessage, "Remove selected games from restricted user", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Using End If @@ -3576,6 +4575,9 @@ Public Class ucr_Emulation End Using Me.Cursor = Cursors.Default + + MKDXHelper.MessageBox("All games of the restricted user are now displayed in bold font and the Highlighted field is checked (you can filter by that field, too).", "Show Games of restricted user", MessageBoxButtons.OK, MessageBoxIcon.Information) + End Using End Sub @@ -3742,14 +4744,30 @@ Public Class ucr_Emulation Return End If + Dim iCount As Integer = 0 + Dim bFound As Boolean = False + 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 + While Not bFound AndAlso iCount < 10 + 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")) + If Not TC.NZ(rowChosen("Unavailable"), False) Then + bFound = True + MKNetLib.cls_MKClientSupport.SetBindingSourcePosition(BS_Emu_Games, "id_Emu_Games", rowChosen("id_Emu_Games")) + Launch_Game() + Return + End If + + iCount += 1 + End While + + If Not bFound Then + MKDXHelper.MessageBox("After 10 tries, only unavailable entries have been found, aborting.", "Launch Random Game", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + End If - Launch_Game() End Sub Private Sub bbi_USER_Extras_Manager_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_USER_Extras_Manager.ItemClick @@ -3759,7 +4777,7 @@ Public Class ucr_Emulation Using frm As New frm_USER_Extras_Manager(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 + For Each old_extra As Object In ar_Extras Try If Not old_extra._NoExtraFound Then Alphaleonis.Win32.Filesystem.File.Delete(old_extra._Path) @@ -3822,6 +4840,19 @@ Public Class ucr_Emulation End If End Sub + Private Sub popmnu_Cheevos_BeforePopup(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles popmnu_Cheevos.BeforePopup + If Not grd_RetroAchievements.Allow_Popup Then + e.Cancel = True + Return + End If + + If BS_RetroAchievements.Current Is Nothing Then + bbi_Cheevo_add_to_Challenge.Visibility = BarItemVisibility.Never + Else + bbi_Cheevo_add_to_Challenge.Visibility = BarItemVisibility.Always + 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 @@ -4102,4 +5133,668 @@ Public Class ucr_Emulation End If End Using End Sub + + Private Sub bbi_Export_TDL_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Export_TDL.ItemClick + Dim arGames As New ArrayList + + Dim arSelected As ArrayList = MKNetDXLib.ctl_MKDXGrid.GetGridViewSelectedDataRows(gv_Emu_Games) + + For Each row As DataRow In arSelected + If row("id_Moby_Platforms") = cls_Globals.enm_Moby_Platforms.dos AndAlso Alphaleonis.Win32.Filesystem.Path.GetExtension(TC.NZ(row("File"), "")).ToLower = ".zip" Then + If Alphaleonis.Win32.Filesystem.File.Exists(TC.NZ(row("Folder"), "") & "\" & TC.NZ(row("File"), "")) Then + arGames.Add(row) + End If + End If + Next + + If arGames.Count = 0 Then + MKDXHelper.MessageBox("Currently, the Total DOS Launcher export only supports DOS games in .zip files. None of the selected games match this criteria or could not be found, sorry.", "Export as Total DOS Launcher Collection", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If arGames.Count > 32767 Then + MKDXHelper.MessageBox("Currently, Total DOS Launcher does not support more than 32767 entries, aborting.", "Export as Total DOS Launcher Collection", MessageBoxButtons.OK, MessageBoxIcon.Warning) + Return + End If + + If arGames.Count > 16383 Then + MKDXHelper.MessageBox("You selected more than 16383 entries. This may cause the Total DOS Launcher to operate slower than normal due to the titles index not being able to be cached in memory. Total DOS Launcher will still run, but might require a very fast I/O device for acceptable speed.", "Export as Total DOS Launcher Collection", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + Using frm As New frm_Export_TDL(arGames, arSelected.Count) + frm.ShowDialog() + End Using + End Sub + + Private Sub bbi_Create_TDL_Menu_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Create_TDL_Menu.ItemClick + Using frm_TDL_Create_Menu As New frm_TDL_Create_Menu(BS_Emu_Games.Current.Row) + frm_TDL_Create_Menu.ShowDialog() + End Using + End Sub + + +#Region "RetroAchievements" + Public Sub Get_RetroAchievements_for_Current_Game() + Console.WriteLine("Get_RetroAchievements_for_Current_Game START") + + 'Init display stuff here + If Me.RetroAchievements_WebClient.IsBusy Then + Me.RetroAchievements_WebClient.CancelAsync() + Me.RetroAchievements_WebClient = New WebClient + End If + + Me.gb_Cheevos.Visible = False + Me.lbl_RetroAchievements_Message.Visible = False + Me.prg_RetroAchievements_Download.EditValue = 0 + Me.prg_RetroAchievements_Download.Visible = True + + If TC.NZ(BS_Emu_Games.Current("Platform_RetroAchievements"), False) = False Then + Me.RetroAchievements_ShowMessage("The game's platform isn't supported by retroachievements.org.") + Return + End If + + Me.RetroAchievements_DataRetrieval.Init(TC.NZ(BS_Emu_Games.Current("MD5"), "")) + + Me.RetroAchievements_Fetch_Step() + End Sub + + Public Sub RetroAchievements_Fetch_Step() + If Me.RetroAchievements_WebClient.IsBusy Then + Return + End If + + Select Case Me.RetroAchievements_DataRetrieval.currentStep + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_01_Login + RetroAchievements_Login_Async() + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_02_Get_GameID_for_Hash + RetroAchievements_Get_GameID_for_Hash_Async() + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_03_Get_Cheevos_for_GameID + RetroAchievements_Get_Cheevos_for_GameID_Async() + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_04_Get_Casual_Unlocked_Cheevos_for_GameID + RetroAchievements_Get_Casual_Unlocked_Cheevos_for_GameID_Async() + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_05_Get_Hardcore_Unlocked_Cheevos_for_GameID + RetroAchievements_Get_Hardcore_Unlocked_Cheevos_for_GameID_Async() + End Select + End Sub + + Public Sub RetroAchievements_Login_Async() + Console.WriteLine("RetroAchievements_Login_Async START") + + If cls_Globals.RetroAchievements_User = "" OrElse cls_Globals.RetroAchievements_Pass = "" Then + Me.RetroAchievements_ShowMessage("In order to use RetroAchievements, go to retroachievements.org and sign up, then go to the Settings page in Metropolis Launcher and provide the username and password.") + Return + End If + + Me.RetroAchievements_WebClient.DownloadDataAsync(New Uri("http://retroachievements.org/dorequest.php?r=login&u=" & System.Web.HttpUtility.UrlEncode(cls_Globals.RetroAchievements_User) & "&p=" & System.Web.HttpUtility.UrlEncode(cls_Globals.RetroAchievements_Pass)), Me.RetroAchievements_DataRetrieval.currentStep) + End Sub + + Public Sub RetroAchievements_Get_GameID_for_Hash_Async() + Console.WriteLine("RetroAchievements_Get_GameID_for_Hash_Async START") + + If Me.RetroAchievements_DataRetrieval.MD5 = "" Then + 'TODO: Display "cannot fetch RetroAchievements for current game, missing md5" + Me.RetroAchievements_ShowMessage("This game doesn't provide an MD5 checksum, RetroAchievments can't be queried.") + Return + End If + + If Me.RetroAchievements_DataRetrieval.Token = "" Then + Me.RetroAchievements_ShowMessage("Login was not successful (Token missing).") + Return + End If + + Me.prg_RetroAchievements_Download.EditValue = 20 + Me.prg_RetroAchievements_Download.Visible = True + + Me.RetroAchievements_WebClient.DownloadDataAsync(New Uri("http://retroachievements.org/dorequest.php?r=gameid&m=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.MD5)), Me.RetroAchievements_DataRetrieval.currentStep) + End Sub + + Public Sub RetroAchievements_Get_Cheevos_for_GameID_Async() + Console.WriteLine("RetroAchievements_Get_Cheevos_for_GameID_Async START") + + If Me.RetroAchievements_DataRetrieval.GameID = "" Then + Me.RetroAchievements_ShowMessage("Cannot query RetroAchievements for current game, missing GameID.") + Return + End If + + If Me.RetroAchievements_DataRetrieval.Token = "" Then + Me.RetroAchievements_ShowMessage("Login was not successful (Token missing).") + Return + End If + + Me.prg_RetroAchievements_Download.EditValue = 40 + Me.prg_RetroAchievements_Download.Visible = True + + Me.RetroAchievements_WebClient.DownloadDataAsync(New Uri("http://retroachievements.org/dorequest.php?r=patch&u=" & System.Web.HttpUtility.UrlEncode(cls_Globals.RetroAchievements_User) & "&g=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.GameID) & "&f=3&l=1&t=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.Token)), Me.RetroAchievements_DataRetrieval.currentStep) + End Sub + + Public Sub RetroAchievements_Get_Casual_Unlocked_Cheevos_for_GameID_Async() + Console.WriteLine("RetroAchievements_Get_Casual_Unlocked_Cheevos_for_GameID_Async START") + + If Me.RetroAchievements_DataRetrieval.GameID = "" Then + Me.RetroAchievements_ShowMessage("Cannot query RetroAchievements for current game, missing GameID.") + Return + End If + + If Me.RetroAchievements_DataRetrieval.Token = "" Then + Me.RetroAchievements_ShowMessage("Login was not successful (Token missing).") + Return + End If + + Me.prg_RetroAchievements_Download.EditValue = 60 + Me.prg_RetroAchievements_Download.Visible = True + + Me.RetroAchievements_WebClient.DownloadDataAsync(New Uri("http://retroachievements.org/dorequest.php?r=unlocks&u=" & System.Web.HttpUtility.UrlEncode(cls_Globals.RetroAchievements_User) & "&g=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.GameID) & "&h=0&t=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.Token)), Me.RetroAchievements_DataRetrieval.currentStep) + End Sub + + Public Sub RetroAchievements_Get_Hardcore_Unlocked_Cheevos_for_GameID_Async() + Console.WriteLine("RetroAchievements_Get_Hardcore_Unlocked_Cheevos_for_GameID_Async START") + + If Me.RetroAchievements_DataRetrieval.GameID = "" Then + Me.RetroAchievements_ShowMessage("Cannot query RetroAchievements for current game, missing GameID.") + Return + End If + + If Me.RetroAchievements_DataRetrieval.Token = "" Then + Me.RetroAchievements_ShowMessage("Login was not successful (Token missing).") + Return + End If + + Me.prg_RetroAchievements_Download.EditValue = 80 + Me.prg_RetroAchievements_Download.Visible = True + + Me.RetroAchievements_WebClient.DownloadDataAsync(New Uri("http://retroachievements.org/dorequest.php?r=unlocks&u=" & System.Web.HttpUtility.UrlEncode(cls_Globals.RetroAchievements_User) & "&g=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.GameID) & "&h=1&t=" & System.Web.HttpUtility.UrlEncode(Me.RetroAchievements_DataRetrieval.Token)), Me.RetroAchievements_DataRetrieval.currentStep) + End Sub + + Private Sub RetroAchievements_WebClient_DownloadDataCompleted(sender As Object, e As DownloadDataCompletedEventArgs) Handles RetroAchievements_WebClient.DownloadDataCompleted + Console.WriteLine("RetroAchievements_WebClient_DownloadDataCompleted START") + + If e.Cancelled Then + Me.lbl_RetroAchievements_Message.Visible = False + Me.gb_Cheevos.Visible = False + Me.prg_RetroAchievements_Download.Visible = False + Return + End If + + If e.Error IsNot Nothing Then + Me.RetroAchievements_ShowMessage("Error while fetching data from the web:" & ControlChars.CrLf & e.Error.Message & e.Error.StackTrace) + Return + End If + + 'If e.UserState <> Me.RetroAchievements_DataRetrieval.currentStep Then + ' Console.WriteLine("RetroAchievements_WebClient_DownloadDataCompleted CANCELLED due to mismatch in step") + ' Return + 'End If + + Dim AnalysisResult As Boolean = False + + Select Case e.UserState + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_01_Login + AnalysisResult = RetroAchievements_Analyze_LoginData(e.Result) + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_02_Get_GameID_for_Hash + AnalysisResult = RetroAchievements_Analyze_GameID(e.Result) + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_03_Get_Cheevos_for_GameID + AnalysisResult = RetroAchievements_Analyze_Cheevos(e.Result) + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_04_Get_Casual_Unlocked_Cheevos_for_GameID + AnalysisResult = RetroAchievements_Analyze_Unlocks(e.Result, False) + Case enm_RetroAchievements_Steps.RA_Cheevos_for_Game_05_Get_Hardcore_Unlocked_Cheevos_for_GameID + AnalysisResult = RetroAchievements_Analyze_Unlocks(e.Result, True) + End Select + + If Not AnalysisResult Then + Return + End If + + If RetroAchievements_DataRetrieval.currentStep <> enm_RetroAchievements_Steps.RA_Cheevos_for_Game_06_STOP Then + RetroAchievements_Fetch_Step() + End If + End Sub + + Private Function RetroAchievements_Analyze_LoginData(result As Byte()) As Boolean + Console.WriteLine("RetroAchievements_Analyze_LoginData START") + + Try + Dim dictResult As New Dictionary(Of String, String) + Dim sResult As String = System.Text.Encoding.UTF8.GetString(result) + dictResult = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(sResult) + + If dictResult("Success").ToLower = "true" Then + Debug.WriteLine("Login to retroachievements.org was successful!") + Me.RetroAchievements_DataRetrieval.Token = dictResult("Token") + Me.RetroAchievements_DataRetrieval.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_02_Get_GameID_for_Hash + Return True + Else + Me.RetroAchievements_ShowMessage("Login to retroachievements.org failed!") + RetroAchievements_Token = "" + Return False + End If + Catch ex As Exception + Me.RetroAchievements_ShowMessage("RetroAchievements_Analyze_LoginData EXCEPTION: " & ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Private Function RetroAchievements_Analyze_GameID(result As Byte()) As Boolean + Console.WriteLine("RetroAchievements_Analyze_GameID START") + + Try + Dim dictResult As New Dictionary(Of String, String) + Dim sResult As String = System.Text.Encoding.UTF8.GetString(result) + dictResult = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(sResult) + + If dictResult("Success").ToLower = "true" Then + Debug.WriteLine("Fetching GameID was successful!") + + If dictResult("GameID") <> "0" Then + Me.RetroAchievements_DataRetrieval.GameID = dictResult("GameID") + Me.RetroAchievements_DataRetrieval.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_03_Get_Cheevos_for_GameID + Return True + Else + Me.RetroAchievements_ShowMessage("This game isn't available on retroachievements.org.") + Return False + End If + Else + Me.RetroAchievements_ShowMessage("Fetching GameID from retroachievments.org failed!") + Return False + End If + Catch ex As Exception + Me.RetroAchievements_ShowMessage("RetroAchievements_Analyze_LoginData EXCEPTION: " & ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Private Function RetroAchievements_Analyze_Cheevos(result As Byte()) As Boolean + Console.WriteLine("RetroAchievements_Analyze_Cheevos START") + + Try + Dim sResult As String = System.Text.Encoding.UTF8.GetString(result) + Dim doc As System.Xml.XmlDocument = Newtonsoft.Json.JsonConvert.DeserializeXmlNode("{""root"":" & sResult & "}") + + Dim isSuccess As Boolean = False + + For Each childRoot As System.Xml.XmlNode In doc.ChildNodes(0).ChildNodes + If childRoot.Name = "Success" Then + If childRoot.InnerText = "true" Then + isSuccess = True + End If + + Exit For + End If + Next + + If Not isSuccess Then + Me.RetroAchievements_ShowMessage("Fetching Achievements data from retroachievements.org was NOT successful!") + Return False + End If + + Console.WriteLine("Fetching Cheevos was successful") + + For Each childRoot As System.Xml.XmlNode In doc.ChildNodes(0).ChildNodes + If childRoot.Name = "PatchData" Then + For Each childPatchData As System.Xml.XmlNode In childRoot.ChildNodes + If childPatchData.Name = "Achievements" Then + Dim row As DataRow = Me.RetroAchievements_DataRetrieval.tbl_Cheevos.NewRow + + For Each childAchievements As System.Xml.XmlNode In childPatchData.ChildNodes + Dim colName As String = childAchievements.Name + If MKNetLib.cls_MKSQLDataAccess.HasColumn(row, colName) Then + row(colName) = childAchievements.InnerText.Trim + End If + + Next + + row("id_RetroAchievements_Unlock") = enm_RetroAchievements_Unlock.Remaining + + row("Title") = row("Title") & " (" & row("Points") & ")" + + Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Rows.Add(row) + End If + Next + End If + Next + + Me.RetroAchievements_DataRetrieval.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_04_Get_Casual_Unlocked_Cheevos_for_GameID + + Return True + Catch ex As Exception + Me.RetroAchievements_ShowMessage("RetroAchievements_Analyze_Cheevos EXCEPTION: " & ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Private Function RetroAchievements_Analyze_Unlocks(result As Byte(), ByVal Hardcore As Boolean) As Boolean + Console.WriteLine("RetroAchievements_Analyze_Unlocks Hardcore=" & Hardcore & " START") + + If Hardcore Then + Me.prg_RetroAchievements_Download.EditValue = 100 + End If + + Try + Dim sResult As String = System.Text.Encoding.UTF8.GetString(result) + Dim doc As System.Xml.XmlDocument = Newtonsoft.Json.JsonConvert.DeserializeXmlNode("{""root"":" & sResult & "}") + + Dim isSuccess As Boolean = False + + For Each childRoot As System.Xml.XmlNode In doc.ChildNodes(0).ChildNodes + If childRoot.Name = "Success" Then + If childRoot.InnerText = "true" Then + isSuccess = True + End If + + Exit For + End If + Next + + If Not isSuccess Then + Me.RetroAchievements_ShowMessage("Fetching Unlocks from retroachievements.org was not successful.") + Return False + End If + + Console.WriteLine("Fetching Unlocks was successful") + + For Each childRoot As System.Xml.XmlNode In doc.ChildNodes(0).ChildNodes + If childRoot.Name = "UserUnlocks" Then + For Each row As DataRow In Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Rows + If row("ID") = childRoot.InnerText Then + If Hardcore Then + row("id_RetroAchievements_Unlock") = enm_RetroAchievements_Unlock.Hardcore + Else + row("id_RetroAchievements_Unlock") = enm_RetroAchievements_Unlock.Casual + End If + End If + Next + End If + Next + + If Not Hardcore Then + Me.RetroAchievements_DataRetrieval.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_05_Get_Hardcore_Unlocked_Cheevos_for_GameID + Else + Me.RetroAchievements_DataRetrieval.currentStep = enm_RetroAchievements_Steps.RA_Cheevos_for_Game_06_STOP + + 'Wrap up and display in UI + If Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Rows.Count = 0 Then + Me.RetroAchievements_ShowMessage("There are no RetroAchievements available for this game.") + Return False + End If + + Me.RetroAchievements_ShowGrid() + + Me.Cheevo_Challenges_Analyze_Unlocks() + End If + + Return True + Catch ex As Exception + Me.RetroAchievements_ShowMessage("RetroAchievements_Analyze_Unlocks Hardcore=" & Hardcore & " EXCEPTION: " & ex.Message & ex.StackTrace) + Return False + End Try + End Function + + Private Sub Cheevo_Challenges_Analyze_Unlocks() + Dim ar_Unlocked_Casual As New ArrayList + Dim ar_Unlocked_Hardcore As New ArrayList + Dim iSuccessfulUnlocks As Integer = 0 + Dim ar_Challenge_Cheevos As New ArrayList + + 'Check current achievements if they unlock any open Challenge's Achievements + For Each row_Cheevo As DataRow In Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Rows + For Each row_Challenge_Cheevo In Me.DS_ML.ttb_Open_Challenges_Cheevos + If row_Challenge_Cheevo("CheevoType") <> cls_Globals.enm_CheevoTypes.RetroAchievements Then + Continue For + End If + + If row_Cheevo("ID") = row_Challenge_Cheevo("Cheevo_ID") Then + If TC.NZ(row_Cheevo("id_RetroAchievements_Unlock"), 0) = 1 Then + 'Casual Unlock + If Not TC.NZ(row_Challenge_Cheevo("Unlocked_Casual"), False) Then + ar_Unlocked_Casual.Add(row_Challenge_Cheevo) + + If Not row_Challenge_Cheevo("Hardcore") Then + ar_Challenge_Cheevos.Add(row_Challenge_Cheevo) + iSuccessfulUnlocks += 1 + End If + End If + End If + + If TC.NZ(row_Cheevo("id_RetroAchievements_Unlock"), 0) = 2 Then + 'Hardcore Unlock + If Not TC.NZ(row_Challenge_Cheevo("Unlocked_Hardcore"), False) Then + ar_Unlocked_Hardcore.Add(row_Challenge_Cheevo) + + ar_Challenge_Cheevos.Add(row_Challenge_Cheevo) + iSuccessfulUnlocks += 1 + End If + End If + End If + Next + Next + + Dim id_Users As Object = Nothing + If cls_Globals.MultiUserMode AndAlso Not cls_Globals.Admin AndAlso cls_Globals.id_Users > 0 Then + id_Users = cls_Globals.id_Users + End If + + 'Back up the old challenges (so we can compare to new challenges after save) + Dim ttb_Open_Challenges_Old As New DS_ML.ttb_Open_ChallengesDataTable + For Each row As DataRow In Me.DS_ML.ttb_Open_Challenges.Rows + ttb_Open_Challenges_Old.ImportRow(row) + Next + + If ar_Unlocked_Casual.Count > 0 Then + For Each row As DataRow In ar_Unlocked_Casual + If TC.NZ(row("id_Users_Cheevo_Challenges_Cheevos"), 0) = 0 Then + 'INSERT + Dim sSQLInsertCasual As String = "" + sSQLInsertCasual &= "INSERT INTO tbl_Users_Cheevo_Challenges_Cheevos (id_Users, id_Cheevo_Challenges_Cheevos, Unlocked_Casual, Unlocked_Hardcore) VALUES (" & ControlChars.CrLf + sSQLInsertCasual &= TC.getSQLParameter(id_Users, row("id_Cheevo_Challenges_Cheevos"), True, False) & ControlChars.CrLf + sSQLInsertCasual &= ")" + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLInsertCasual) + Else + 'UPDATE + Dim sSQLUpdateCasual As String = "" + sSQLUpdateCasual &= "UPDATE tbl_Users_Cheevo_Challenges_Cheevos SET Unlocked_Casual = 1" & ControlChars.CrLf + sSQLUpdateCasual &= "WHERE id_Users_Cheevo_Challenges_Cheevos = " & TC.getSQLFormat(row("id_Users_Cheevo_Challenges_Cheevos")) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLUpdateCasual) + End If + Next + End If + + If ar_Unlocked_Hardcore.Count > 0 Then + For Each row As DataRow In ar_Unlocked_Hardcore + If TC.NZ(row("id_Users_Cheevo_Challenges_Cheevos"), 0) = 0 Then + 'INSERT + Dim sSQLInsertHardcore As String = "" + sSQLInsertHardcore &= "INSERT INTO tbl_Users_Cheevo_Challenges_Cheevos (id_Users, id_Cheevo_Challenges_Cheevos, Unlocked_Casual, Unlocked_Hardcore) VALUES (" & ControlChars.CrLf + sSQLInsertHardcore &= TC.getSQLParameter(id_Users, row("id_Cheevo_Challenges_Cheevos"), True, True) & ControlChars.CrLf + sSQLInsertHardcore &= ")" + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLInsertHardcore) + Else + 'UPDATE + Dim sSQLUpdateHardcore As String = "" + sSQLUpdateHardcore &= "UPDATE tbl_Users_Cheevo_Challenges_Cheevos SET Unlocked_Casual = 1, Unlocked_Hardcore = 1" & ControlChars.CrLf + sSQLUpdateHardcore &= "WHERE id_Users_Cheevo_Challenges_Cheevos = " & TC.getSQLFormat(row("id_Users_Cheevo_Challenges_Cheevos")) + + DataAccess.FireProcedure(cls_Globals.Conn, 0, sSQLUpdateHardcore) + End If + Next + End If + + If ar_Challenge_Cheevos.Count > 0 Then + Dim messageText As String = "You successfully unlocked the following achievement" & IIf(iSuccessfulUnlocks > 1, "s", "") & ":" & ControlChars.CrLf & ControlChars.CrLf + + For Each row As DataRow In ar_Challenge_Cheevos + messageText &= "Challenge: " & row("Challenge_Name") & " Tier " & row("Tier") & ControlChars.CrLf + messageText &= "Game: " & row("Cheevo_GameName") & ControlChars.CrLf + messageText &= "Achievement: " & row("Cheevo_Title") & ControlChars.CrLf + + messageText &= ControlChars.CrLf + Next + + MKNetDXLib.cls_MKDXHelper.MessageBox(messageText, "RetroAchievements Challenges", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + Refill_Cheevo_Open_Challenges() + + Dim challengeCompleteMessageText = "" + + For Each row_old As DataRow In ttb_Open_Challenges_Old.Rows + If row_old("Name") = "None" OrElse TC.NZ(row_old("Tier"), 0) = -1 Then + Continue For + End If + + Dim bIsCompleted As Boolean = True 'The Challenge is completed if there is no row in the current ttb_Open_Challenges with same ID + + For Each row_new As DataRow In Me.DS_ML.ttb_Open_Challenges + If TC.NZ(row_old("id_Cheevo_Challenges"), 0) = TC.NZ(row_new("id_Cheevo_Challenges"), 0) AndAlso TC.NZ(row_new("Tier"), 0) > -1 Then + bIsCompleted = False + + If TC.NZ(row_old("Tier"), 0) <> TC.NZ(row_new("Tier"), 0) Then + challengeCompleteMessageText &= "You successfully mastered tier " & row_old("Tier") & " of the '" & row_old("Name") & "' challenge. Tier " & row_new("Tier") & " is now unlocked, good luck!" & ControlChars.CrLf & ControlChars.CrLf + End If + End If + Next + + If bIsCompleted Then + challengeCompleteMessageText &= "You successfully mastered the '" & row_old("Name") & "' challenge. Nice one!" & ControlChars.CrLf & ControlChars.CrLf + End If + Next + + If challengeCompleteMessageText <> "" Then + challengeCompleteMessageText = "Congratulations!" & ControlChars.CrLf & ControlChars.CrLf & challengeCompleteMessageText + MKNetDXLib.cls_MKDXHelper.MessageBox(challengeCompleteMessageText, "RetroAchievements Challenges", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + Update_Cheevo_Challenges_Cheevos() + End Sub + + Private Sub RetroAchievements_ShowMessage(MessageText) + Me.lbl_RetroAchievements_Message.Text = MessageText + Me.lbl_RetroAchievements_Message.Visible = True + Me.prg_RetroAchievements_Download.Visible = False + End Sub + + Private Sub RetroAchievements_ShowGrid() + Dim iTotalAchievements = Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Rows.Count + Dim iRemainingAchievements = Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Select("id_RetroAchievements_Unlock = 0").Length + Dim iCasualAchievements = Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Select("id_RetroAchievements_Unlock = 1").Length + Dim iHardcoreAchievements = Me.RetroAchievements_DataRetrieval.tbl_Cheevos.Select("id_RetroAchievements_Unlock = 2").Length + + Me.BTA_RetroAchievement_Unlocks.FillString = "0;""Remaining Achievements [" & iRemainingAchievements & "/" & iTotalAchievements & "]"";1;""Unlocked Achievements (Casual) [" & iCasualAchievements & "/" & iTotalAchievements & "]"";2;""Unlocked Achievements (Hardcore) [" & iHardcoreAchievements & "/" & iTotalAchievements & "]""" + + Me.BS_RetroAchievements.DataSource = Me.RetroAchievements_DataRetrieval.tbl_Cheevos + Me.agv_RetroAchievements.ExpandAllGroups() + Me.agv_RetroAchievements.TopRowIndex = 0 + + Me.prg_RetroAchievements_Download.Visible = False + Me.gb_Cheevos.Visible = True + End Sub + + Private Sub bbi_Cheevo_add_to_Challenge_ItemClick(sender As Object, e As EventArgs) Handles bbi_Cheevo_add_to_Challenge.ItemClick, mni_Cheevos_Add_Challenge.Click + Using frm As New frm_Cheevo_Challenges_Add(cls_Globals.enm_CheevoTypes.RetroAchievements, Me.BS_Emu_Games.Current("id_Emu_Games"), Me.BS_Emu_Games.Current("Game"), BS_RetroAchievements.Current.Row) + If frm.ShowDialog() = DialogResult.OK Then + Refill_Cheevo_Open_Challenges() + MKNetDXLib.cls_MKDXHelper.MessageBox("The achievement has been added to the challenge.", "Add Achievement to Challenge", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Using + End Sub + + Private Sub bbi_Cheevo_Manage_Challenges_ItemClick(sender As Object, e As EventArgs) Handles bbi_Cheevo_Manage_Challenges.ItemClick, mni_Cheevos_Manage_Challenges.Click + Using frm As New frm_Cheevo_Challenges_Edit + frm.ShowDialog() + + Refill_Cheevo_Open_Challenges() + End Using + End Sub + + Private Sub agv_RetroAchievements_PopupMenuShowing(sender As Object, e As DevExpress.XtraGrid.Views.Grid.PopupMenuShowingEventArgs) Handles agv_RetroAchievements.PopupMenuShowing + Debug.WriteLine("agv_RetroAchievements PopupMenuShowing Control.MousePosition: " & Control.MousePosition.ToString()) + Me.popmnu_Cheevos.ShowPopup(Control.MousePosition) + End Sub + + Private Sub Refill_Cheevo_Open_Challenges() + DS_ML.Fill_ttb_Open_Challenges(Me.DS_ML.ttb_Open_Challenges) + DS_ML.Fill_ttb_Open_Challenges_Cheevos(Me.DS_ML.ttb_Open_Challenges_Cheevos) + Me.Update_Cheevo_Challenges_Cheevos() + End Sub + + Private Sub cmb_Challenges_EditValueChanged(sender As Object, e As EventArgs) Handles cmb_Challenges.EditValueChanged + For Each btn As DevExpress.XtraEditors.Controls.EditorButton In cmb_Challenges.Properties.Buttons + If btn.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Ellipsis Then + If TC.NZ(cmb_Challenges.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 Update_Cheevo_Challenges_Cheevos() + If TC.NZ(Me.cmb_Challenges.EditValue, 0) = 0 OrElse BS_Challenges.Current Is Nothing OrElse BS_Emu_Games.Current Is Nothing Then + Me.splt_Achievements.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel2 + Me.BS_Open_Challenges_Cheevos.Filter = "Tier = 0" + Return + End If + + Me.BS_Open_Challenges_Cheevos.Filter = "id_Emu_Games = " & BS_Emu_Games.Current("id_Emu_Games") & " AND Tier = " & get_Current_Challenge_Tier() + + If Me.BS_Open_Challenges_Cheevos.Count = 0 Then + Me.lbl_Challenge_Cheevos_Unlocked.Visible = True + Me.grd_Challenge_Cheevos.Visible = False + Else + Me.lbl_Challenge_Cheevos_Unlocked.Visible = False + Me.grd_Challenge_Cheevos.Visible = True + End If + + Me.splt_Achievements.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Both + End Sub + + Private Sub cmb_Challenges_ButtonPressed(sender As Object, e As ButtonPressedEventArgs) Handles cmb_Challenges.ButtonPressed + If TC.NZ(cmb_Challenges.EditValue, 0) = 0 Then + Return + End If + + If e.Button.Kind = ButtonPredefines.Ellipsis Then + Using frm As New frm_Cheevo_Challenges_Edit(cmb_Challenges.EditValue) + frm.ShowDialog() + Refill_Cheevo_Open_Challenges() + End Using + End If + End Sub + + Private Sub cxm_Cheevo_Challenges_Cheevos_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles cxm_Cheevo_Challenges_Cheevos.ItemClicked + Using frm As New frm_Cheevo_Challenges_Edit(TC.NZ(cmb_Challenges.EditValue, 0L)) + frm.ShowDialog() + End Using + End Sub + + Private Sub chb_Cheevo_Challenges_Show_Completed_CheckedChanged(sender As Object, e As EventArgs) Handles chb_Cheevo_Challenges_Show_Completed.CheckedChanged + Me.Refill_Emu_Games() + End Sub + + Private Sub bbi_Add_to_Challenge_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbi_Add_to_Challenge.ItemClick + 'Add to Challenge (runtime-based) + Using frm As New frm_Cheevo_Challenges_Add(cls_Globals.enm_CheevoTypes.TotalRuntime, Me.BS_Emu_Games.Current("id_Emu_Games"), Me.BS_Emu_Games.Current("Game")) + If frm.ShowDialog() = DialogResult.OK Then + Refill_Cheevo_Open_Challenges() + MKNetDXLib.cls_MKDXHelper.MessageBox("The game has been added to the challenge.", "Add Game to Challenge", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + End Using + + End Sub + + Private Sub cxm_Cheevos_Opening(sender As Object, e As CancelEventArgs) Handles cxm_Cheevos.Opening + If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Admin = False Then + Me.mni_Cheevos_Add_Challenge.Enabled = False + Else + Me.mni_Cheevos_Add_Challenge.Enabled = True + End If + End Sub + +#End Region + 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 index 143313c..549b2c1 100644 --- a/Metropolis_Launcher/Pages/ucr_Settings.Designer.vb +++ b/Metropolis_Launcher/Pages/ucr_Settings.Designer.vb @@ -20,166 +20,212 @@ Partial Class ucr_Settings _ 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 ToolTipItem3 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 ToolTipItem4 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 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 ToolTipItem8 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + 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 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 ToolTipItem10 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + 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 ToolTipItem9 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 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 ToolTipItem11 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 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 ToolTipItem13 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 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 ToolTipItem15 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucr_Settings)) + Dim ToolTipItem16 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 ToolTipItem17 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 ToolTipItem18 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 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 ToolTipItem20 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 ToolTipItem21 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 ToolTipItem22 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 ToolTipItem23 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 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 ToolTipItem25 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 ToolTipItem26 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 ToolTipItem27 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 ToolTipItem28 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucr_Settings)) 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 ToolTipItem29 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 ToolTipItem30 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 ToolTipItem31 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 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 ToolTipItem33 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 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 ToolTipItem35 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 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 ToolTipItem37 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 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 ToolTipItem39 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 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 ToolTipItem41 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 ToolTipItem42 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 ToolTipItem43 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 ToolTipItem44 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 ToolTipItem45 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 ToolTipItem46 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 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 ToolTipItem48 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 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 ToolTipItem50 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 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 ToolTipItem52 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 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 SuperToolTip55 As DevExpress.Utils.SuperToolTip = New DevExpress.Utils.SuperToolTip() + Dim ToolTipTitleItem55 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 ToolTipItem54 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 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 ToolTipItem56 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 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 ToolTipItem58 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 ToolTipItem59 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 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 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 ToolTipItem62 As DevExpress.Utils.ToolTipItem = New DevExpress.Utils.ToolTipItem() Me.pnl_Left = New MKNetDXLib.ctl_MKDXPanel() - Me.lbl_ScummVM_Templates = New MKNetDXLib.ctl_MKDXLabel() - Me.btn_ScummVM_Templates = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_AutoHotKey = New MKNetDXLib.ctl_MKDXButtonEdit() + Me.txb_AutoIt = New MKNetDXLib.ctl_MKDXButtonEdit() + Me.btn_AutoHotKey = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_AutoIt = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_AutoHotKey_Executable = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_AutoIt = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_RetroAchievements_Test = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.txb_RetroAchievements_Pass = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_RetroAchievements_Pass = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_RetroAchievements_User = New MKNetDXLib.ctl_MKDXTextEdit() + Me.lbl_RetroAchievements_User = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_RetroAchievements = New MKNetDXLib.ctl_MKDXLabel() + Me.chb_Downloader = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.lbl_Downloader = New MKNetDXLib.ctl_MKDXLabel() 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() @@ -187,9 +233,11 @@ Partial Class ucr_Settings 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.btn_Refresh_Caches = New MKNetDXLib.ctl_MKDXSimpleButton() Me.lbl_Backup_every = New MKNetDXLib.ctl_MKDXLabel() Me.spn_Backup_Frequency = New MKNetDXLib.ctl_MKDXSpinEdit() Me.lbl_Backup = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_RefreshCaches = 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() @@ -213,21 +261,13 @@ Partial Class ucr_Settings 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() @@ -238,11 +278,8 @@ Partial Class ucr_Settings 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) @@ -252,19 +289,33 @@ Partial Class ucr_Settings Me.DataColumn3 = New System.Data.DataColumn() Me.DataColumn2 = New System.Data.DataColumn() Me.DataColumn4 = New System.Data.DataColumn() + Me.lbl_Skin = New MKNetDXLib.ctl_MKDXLabel() + Me.txb_J2K = New MKNetDXLib.ctl_MKDXButtonEdit() + Me.lbl_ScummVM_Templates = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_ScummVM_Templates = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_RomBase_Manager = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.lbl_DOSBox_Templates = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Rombase_Manager = New MKNetDXLib.ctl_MKDXLabel() + Me.lbl_Mame_Config = New MKNetDXLib.ctl_MKDXLabel() + Me.btn_DOSBox_Templates = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Mame_Config = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Rom_Manager = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_Platform_Settings = New MKNetDXLib.ctl_MKDXSimpleButton() + Me.btn_EmulatorSettings = New MKNetDXLib.ctl_MKDXSimpleButton() 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.BS_Moby_Platforms = New System.Windows.Forms.BindingSource(Me.components) Me.DS_MobyDB = New Metropolis_Launcher.DS_MobyDB() Me.Ctl_MKDXSplitter1 = New MKNetDXLib.ctl_MKDXSplitter() - Me.Ctl_MKDXPanel2 = New MKNetDXLib.ctl_MKDXPanel() - Me.lbl_Downloader = New MKNetDXLib.ctl_MKDXLabel() - Me.chb_Downloader = New MKNetDXLib.ctl_MKDXCheckEdit() + Me.pnl_Right = New MKNetDXLib.ctl_MKDXPanel() CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnl_Left.SuspendLayout() + CType(Me.txb_AutoHotKey.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_AutoIt.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_RetroAchievements_Pass.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txb_RetroAchievements_User.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chb_Downloader.Properties, System.ComponentModel.ISupportInitialize).BeginInit() 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() @@ -289,16 +340,26 @@ Partial Class ucr_Settings CType(Me.txb_J2K.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Ctl_MKDXPanel2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.chb_Downloader.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl_Right.SuspendLayout() Me.SuspendLayout() ' 'pnl_Left ' + Me.pnl_Left.Controls.Add(Me.txb_AutoHotKey) + Me.pnl_Left.Controls.Add(Me.txb_AutoIt) + Me.pnl_Left.Controls.Add(Me.btn_AutoHotKey) + Me.pnl_Left.Controls.Add(Me.btn_AutoIt) + Me.pnl_Left.Controls.Add(Me.lbl_AutoHotKey_Executable) + Me.pnl_Left.Controls.Add(Me.lbl_AutoIt) + Me.pnl_Left.Controls.Add(Me.btn_RetroAchievements_Test) + Me.pnl_Left.Controls.Add(Me.txb_RetroAchievements_Pass) + Me.pnl_Left.Controls.Add(Me.lbl_RetroAchievements_Pass) + Me.pnl_Left.Controls.Add(Me.txb_RetroAchievements_User) + Me.pnl_Left.Controls.Add(Me.lbl_RetroAchievements_User) + Me.pnl_Left.Controls.Add(Me.lbl_RetroAchievements) Me.pnl_Left.Controls.Add(Me.chb_Downloader) Me.pnl_Left.Controls.Add(Me.lbl_Downloader) - Me.pnl_Left.Controls.Add(Me.lbl_ScummVM_Templates) - Me.pnl_Left.Controls.Add(Me.btn_ScummVM_Templates) 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) @@ -306,9 +367,11 @@ Partial Class ucr_Settings 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.btn_Refresh_Caches) 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.lbl_RefreshCaches) 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) @@ -318,21 +381,13 @@ Partial Class ucr_Settings 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) @@ -343,16 +398,10 @@ Partial Class ucr_Settings 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 @@ -362,42 +411,269 @@ Partial Class ucr_Settings Me.pnl_Left.Size = New System.Drawing.Size(396, 603) Me.pnl_Left.TabIndex = 0 ' - 'lbl_ScummVM_Templates + 'txb_AutoHotKey ' - Me.lbl_ScummVM_Templates.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far - Me.lbl_ScummVM_Templates.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None - Me.lbl_ScummVM_Templates.Location = New System.Drawing.Point(4, 372) - Me.lbl_ScummVM_Templates.MKBoundControl1 = Nothing - Me.lbl_ScummVM_Templates.MKBoundControl2 = Nothing - Me.lbl_ScummVM_Templates.MKBoundControl3 = Nothing - Me.lbl_ScummVM_Templates.MKBoundControl4 = Nothing - Me.lbl_ScummVM_Templates.MKBoundControl5 = Nothing - Me.lbl_ScummVM_Templates.Name = "lbl_ScummVM_Templates" - Me.lbl_ScummVM_Templates.Size = New System.Drawing.Size(133, 20) - Me.lbl_ScummVM_Templates.TabIndex = 38 - Me.lbl_ScummVM_Templates.Text = "ScummVM Templates:" - Me.lbl_ScummVM_Templates.Visible = False + Me.txb_AutoHotKey.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_AutoHotKey.Location = New System.Drawing.Point(141, 166) + Me.txb_AutoHotKey.Name = "txb_AutoHotKey" + Me.txb_AutoHotKey.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.txb_AutoHotKey.Properties.ReadOnly = True + Me.txb_AutoHotKey.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem1.Text = "AutoHotKey Executable" + ToolTipItem1.LeftIndent = 6 + ToolTipItem1.Text = "Metropolis Launcher supports AutoHotKey scripting. If you want to use it, you mus" & + "t provide the path to the AutoHotKey executable." + SuperToolTip1.Items.Add(ToolTipTitleItem1) + SuperToolTip1.Items.Add(ToolTipItem1) + Me.txb_AutoHotKey.SuperTip = SuperToolTip1 + Me.txb_AutoHotKey.TabIndex = 54 ' - 'btn_ScummVM_Templates + 'txb_AutoIt ' - Me.btn_ScummVM_Templates.Location = New System.Drawing.Point(140, 372) - Me.btn_ScummVM_Templates.Name = "btn_ScummVM_Templates" - Me.btn_ScummVM_Templates.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem3.Text = "DOSBox Templates" - ToolTipItem3.LeftIndent = 6 - ToolTipItem3.Text = "Manage your DOSBox Templates here." + Me.txb_AutoIt.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_AutoIt.Location = New System.Drawing.Point(141, 143) + Me.txb_AutoIt.Name = "txb_AutoIt" + Me.txb_AutoIt.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Delete)}) + Me.txb_AutoIt.Properties.ReadOnly = True + Me.txb_AutoIt.Size = New System.Drawing.Size(221, 20) + ToolTipTitleItem2.Text = "AutoIt Executable" + ToolTipItem2.LeftIndent = 6 + ToolTipItem2.Text = "Metropolis Launcher supports AutoIt scripting. If you want to use it, you must pr" & + "ovide the path to the AutoIt executable." + SuperToolTip2.Items.Add(ToolTipTitleItem2) + SuperToolTip2.Items.Add(ToolTipItem2) + Me.txb_AutoIt.SuperTip = SuperToolTip2 + Me.txb_AutoIt.TabIndex = 53 + ' + 'btn_AutoHotKey + ' + Me.btn_AutoHotKey.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_AutoHotKey.Location = New System.Drawing.Point(365, 166) + Me.btn_AutoHotKey.Name = "btn_AutoHotKey" + Me.btn_AutoHotKey.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem3.Text = "Browse AutoHotKey Executable" SuperToolTip3.Items.Add(ToolTipTitleItem3) - SuperToolTip3.Items.Add(ToolTipItem3) - Me.btn_ScummVM_Templates.SuperTip = SuperToolTip3 - Me.btn_ScummVM_Templates.TabIndex = 39 - Me.btn_ScummVM_Templates.Text = "Open" - Me.btn_ScummVM_Templates.Visible = False + Me.btn_AutoHotKey.SuperTip = SuperToolTip3 + Me.btn_AutoHotKey.TabIndex = 52 + Me.btn_AutoHotKey.Text = "..." + ' + 'btn_AutoIt + ' + Me.btn_AutoIt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_AutoIt.Location = New System.Drawing.Point(365, 143) + Me.btn_AutoIt.Name = "btn_AutoIt" + Me.btn_AutoIt.Size = New System.Drawing.Size(28, 20) + ToolTipTitleItem4.Text = "Browse AutoIt Executable" + SuperToolTip4.Items.Add(ToolTipTitleItem4) + Me.btn_AutoIt.SuperTip = SuperToolTip4 + Me.btn_AutoIt.TabIndex = 50 + Me.btn_AutoIt.Text = "..." + ' + 'lbl_AutoHotKey_Executable + ' + Me.lbl_AutoHotKey_Executable.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_AutoHotKey_Executable.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_AutoHotKey_Executable.Location = New System.Drawing.Point(5, 166) + Me.lbl_AutoHotKey_Executable.MKBoundControl1 = Nothing + Me.lbl_AutoHotKey_Executable.MKBoundControl2 = Nothing + Me.lbl_AutoHotKey_Executable.MKBoundControl3 = Nothing + Me.lbl_AutoHotKey_Executable.MKBoundControl4 = Nothing + Me.lbl_AutoHotKey_Executable.MKBoundControl5 = Nothing + Me.lbl_AutoHotKey_Executable.Name = "lbl_AutoHotKey_Executable" + Me.lbl_AutoHotKey_Executable.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem5.Text = "AutoHotKey Executable" + ToolTipItem3.LeftIndent = 6 + ToolTipItem3.Text = "Metropolis Launcher supports AutoHotKey scripting. If you want to use it, you mus" & + "t provide the path to the AutoHotKey executable." + SuperToolTip5.Items.Add(ToolTipTitleItem5) + SuperToolTip5.Items.Add(ToolTipItem3) + Me.lbl_AutoHotKey_Executable.SuperTip = SuperToolTip5 + Me.lbl_AutoHotKey_Executable.TabIndex = 48 + Me.lbl_AutoHotKey_Executable.Text = "AutoHotKey Executable:" + ' + 'lbl_AutoIt + ' + Me.lbl_AutoIt.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_AutoIt.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_AutoIt.Location = New System.Drawing.Point(5, 143) + Me.lbl_AutoIt.MKBoundControl1 = Nothing + Me.lbl_AutoIt.MKBoundControl2 = Nothing + Me.lbl_AutoIt.MKBoundControl3 = Nothing + Me.lbl_AutoIt.MKBoundControl4 = Nothing + Me.lbl_AutoIt.MKBoundControl5 = Nothing + Me.lbl_AutoIt.Name = "lbl_AutoIt" + Me.lbl_AutoIt.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem6.Text = "AutoIt Executable" + ToolTipItem4.LeftIndent = 6 + ToolTipItem4.Text = "Metropolis Launcher supports AutoIt scripting. If you want to use it, you must pr" & + "ovide the path to the AutoIt executable." + SuperToolTip6.Items.Add(ToolTipTitleItem6) + SuperToolTip6.Items.Add(ToolTipItem4) + Me.lbl_AutoIt.SuperTip = SuperToolTip6 + Me.lbl_AutoIt.TabIndex = 48 + Me.lbl_AutoIt.Text = "AutoIt Executable:" + ' + 'btn_RetroAchievements_Test + ' + Me.btn_RetroAchievements_Test.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn_RetroAchievements_Test.Location = New System.Drawing.Point(364, 325) + Me.btn_RetroAchievements_Test.Name = "btn_RetroAchievements_Test" + Me.btn_RetroAchievements_Test.Size = New System.Drawing.Size(29, 20) + ToolTipTitleItem7.Text = "RetroAchievements Test" + ToolTipItem5.LeftIndent = 6 + ToolTipItem5.Text = "Test your RetroAchievements login credentials" + SuperToolTip7.Items.Add(ToolTipTitleItem7) + SuperToolTip7.Items.Add(ToolTipItem5) + Me.btn_RetroAchievements_Test.SuperTip = SuperToolTip7 + Me.btn_RetroAchievements_Test.TabIndex = 47 + Me.btn_RetroAchievements_Test.Text = "Test" + ' + 'txb_RetroAchievements_Pass + ' + Me.txb_RetroAchievements_Pass.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txb_RetroAchievements_Pass.Location = New System.Drawing.Point(278, 325) + Me.txb_RetroAchievements_Pass.MKBoundLabel = Nothing + Me.txb_RetroAchievements_Pass.MKEditValue_Compare = Nothing + Me.txb_RetroAchievements_Pass.Name = "txb_RetroAchievements_Pass" + Me.txb_RetroAchievements_Pass.Properties.PasswordChar = Global.Microsoft.VisualBasic.ChrW(9679) + Me.txb_RetroAchievements_Pass.Size = New System.Drawing.Size(85, 20) + ToolTipTitleItem8.Text = "RetroAchievements Pass" + ToolTipItem6.LeftIndent = 6 + ToolTipItem6.Text = "Enter the password of your RetroAchievements account" + SuperToolTip8.Items.Add(ToolTipTitleItem8) + SuperToolTip8.Items.Add(ToolTipItem6) + Me.txb_RetroAchievements_Pass.SuperTip = SuperToolTip8 + Me.txb_RetroAchievements_Pass.TabIndex = 46 + ' + 'lbl_RetroAchievements_Pass + ' + Me.lbl_RetroAchievements_Pass.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lbl_RetroAchievements_Pass.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RetroAchievements_Pass.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroAchievements_Pass.Location = New System.Drawing.Point(251, 325) + Me.lbl_RetroAchievements_Pass.MKBoundControl1 = Nothing + Me.lbl_RetroAchievements_Pass.MKBoundControl2 = Nothing + Me.lbl_RetroAchievements_Pass.MKBoundControl3 = Nothing + Me.lbl_RetroAchievements_Pass.MKBoundControl4 = Nothing + Me.lbl_RetroAchievements_Pass.MKBoundControl5 = Nothing + Me.lbl_RetroAchievements_Pass.Name = "lbl_RetroAchievements_Pass" + Me.lbl_RetroAchievements_Pass.Size = New System.Drawing.Size(27, 20) + ToolTipTitleItem9.Text = "RetroAchievements Pass" + ToolTipItem7.LeftIndent = 6 + ToolTipItem7.Text = "Enter the password of your RetroAchievements account" + SuperToolTip9.Items.Add(ToolTipTitleItem9) + SuperToolTip9.Items.Add(ToolTipItem7) + Me.lbl_RetroAchievements_Pass.SuperTip = SuperToolTip9 + Me.lbl_RetroAchievements_Pass.TabIndex = 45 + Me.lbl_RetroAchievements_Pass.Text = "Pass:" + ' + 'txb_RetroAchievements_User + ' + Me.txb_RetroAchievements_User.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_RetroAchievements_User.Location = New System.Drawing.Point(165, 325) + Me.txb_RetroAchievements_User.MKBoundLabel = Nothing + Me.txb_RetroAchievements_User.MKEditValue_Compare = Nothing + Me.txb_RetroAchievements_User.Name = "txb_RetroAchievements_User" + Me.txb_RetroAchievements_User.Size = New System.Drawing.Size(85, 20) + ToolTipTitleItem10.Text = "RetroAchievements User" + ToolTipItem8.LeftIndent = 6 + ToolTipItem8.Text = "Enter the username of your RetroAchievements account" + SuperToolTip10.Items.Add(ToolTipTitleItem10) + SuperToolTip10.Items.Add(ToolTipItem8) + Me.txb_RetroAchievements_User.SuperTip = SuperToolTip10 + Me.txb_RetroAchievements_User.TabIndex = 44 + ' + 'lbl_RetroAchievements_User + ' + Me.lbl_RetroAchievements_User.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RetroAchievements_User.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroAchievements_User.Location = New System.Drawing.Point(139, 325) + Me.lbl_RetroAchievements_User.MKBoundControl1 = Nothing + Me.lbl_RetroAchievements_User.MKBoundControl2 = Nothing + Me.lbl_RetroAchievements_User.MKBoundControl3 = Nothing + Me.lbl_RetroAchievements_User.MKBoundControl4 = Nothing + Me.lbl_RetroAchievements_User.MKBoundControl5 = Nothing + Me.lbl_RetroAchievements_User.Name = "lbl_RetroAchievements_User" + Me.lbl_RetroAchievements_User.Size = New System.Drawing.Size(26, 20) + ToolTipTitleItem11.Text = "RetroAchievements User" + ToolTipItem9.LeftIndent = 6 + ToolTipItem9.Text = "Enter the username of your RetroAchievements account" + SuperToolTip11.Items.Add(ToolTipTitleItem11) + SuperToolTip11.Items.Add(ToolTipItem9) + Me.lbl_RetroAchievements_User.SuperTip = SuperToolTip11 + Me.lbl_RetroAchievements_User.TabIndex = 43 + Me.lbl_RetroAchievements_User.Text = "User:" + ' + 'lbl_RetroAchievements + ' + Me.lbl_RetroAchievements.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_RetroAchievements.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_RetroAchievements.Location = New System.Drawing.Point(5, 325) + 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(133, 20) + ToolTipTitleItem12.Text = "RetroAchievements" + ToolTipItem10.LeftIndent = 6 + ToolTipItem10.Text = "Enter a User and Password of your RetroAchievements.org account and track your pr" & + "ogress within Metropolis Launcher." + SuperToolTip12.Items.Add(ToolTipTitleItem12) + SuperToolTip12.Items.Add(ToolTipItem10) + Me.lbl_RetroAchievements.SuperTip = SuperToolTip12 + Me.lbl_RetroAchievements.TabIndex = 42 + Me.lbl_RetroAchievements.Text = "RetroAchievements:" + ' + 'chb_Downloader + ' + Me.chb_Downloader.Cursor = System.Windows.Forms.Cursors.Hand + Me.chb_Downloader.Location = New System.Drawing.Point(140, 303) + Me.chb_Downloader.MKBoundLabel = Nothing + Me.chb_Downloader.MKEditValue_Compare = Nothing + Me.chb_Downloader.Name = "chb_Downloader" + Me.chb_Downloader.Properties.Caption = "" + Me.chb_Downloader.Size = New System.Drawing.Size(252, 19) + ToolTipTitleItem13.Text = "Downloader" + ToolTipItem11.LeftIndent = 6 + ToolTipItem11.Text = "Allow Metropolis Launcher to automatically download extras (Screenshots, Cover Ar" & + "t etc.) for your game entries." + SuperToolTip13.Items.Add(ToolTipTitleItem13) + SuperToolTip13.Items.Add(ToolTipItem11) + Me.chb_Downloader.SuperTip = SuperToolTip13 + Me.chb_Downloader.TabIndex = 41 + ' + 'lbl_Downloader + ' + Me.lbl_Downloader.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_Downloader.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_Downloader.Location = New System.Drawing.Point(5, 302) + Me.lbl_Downloader.MKBoundControl1 = Nothing + Me.lbl_Downloader.MKBoundControl2 = Nothing + Me.lbl_Downloader.MKBoundControl3 = Nothing + Me.lbl_Downloader.MKBoundControl4 = Nothing + Me.lbl_Downloader.MKBoundControl5 = Nothing + Me.lbl_Downloader.Name = "lbl_Downloader" + Me.lbl_Downloader.Size = New System.Drawing.Size(133, 20) + ToolTipTitleItem14.Text = "Downloader" + ToolTipItem12.LeftIndent = 6 + ToolTipItem12.Text = "Allow Metropolis Launcher to automatically download extras (Screenshots, Cover Ar" & + "t etc.) for your game entries." + SuperToolTip14.Items.Add(ToolTipTitleItem14) + SuperToolTip14.Items.Add(ToolTipItem12) + Me.lbl_Downloader.SuperTip = SuperToolTip14 + Me.lbl_Downloader.TabIndex = 40 + Me.lbl_Downloader.Text = "Downloader:" ' '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, 464) + Me.lbl_Launch_Counter_Value.Location = New System.Drawing.Point(358, 348) Me.lbl_Launch_Counter_Value.MKBoundControl1 = Nothing Me.lbl_Launch_Counter_Value.MKBoundControl2 = Nothing Me.lbl_Launch_Counter_Value.MKBoundControl3 = Nothing @@ -405,19 +681,19 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem4.Text = "Launch Counter" - ToolTipItem4.LeftIndent = 6 - ToolTipItem4.Text = "the current launch count" - SuperToolTip4.Items.Add(ToolTipTitleItem4) - SuperToolTip4.Items.Add(ToolTipItem4) - Me.lbl_Launch_Counter_Value.SuperTip = SuperToolTip4 + ToolTipTitleItem15.Text = "Launch Counter" + ToolTipItem13.LeftIndent = 6 + ToolTipItem13.Text = "the current launch count" + SuperToolTip15.Items.Add(ToolTipTitleItem15) + SuperToolTip15.Items.Add(ToolTipItem13) + Me.lbl_Launch_Counter_Value.SuperTip = SuperToolTip15 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, 464) + Me.lbl_Launch_Counter.Location = New System.Drawing.Point(269, 348) Me.lbl_Launch_Counter.MKBoundControl1 = Nothing Me.lbl_Launch_Counter.MKBoundControl2 = Nothing Me.lbl_Launch_Counter.MKBoundControl3 = Nothing @@ -425,12 +701,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem5.Text = "Launch Counter" - ToolTipItem5.LeftIndent = 6 - ToolTipItem5.Text = "The current launch count" - SuperToolTip5.Items.Add(ToolTipTitleItem5) - SuperToolTip5.Items.Add(ToolTipItem5) - Me.lbl_Launch_Counter.SuperTip = SuperToolTip5 + ToolTipTitleItem16.Text = "Launch Counter" + ToolTipItem14.LeftIndent = 6 + ToolTipItem14.Text = "The current launch count" + SuperToolTip16.Items.Add(ToolTipTitleItem16) + SuperToolTip16.Items.Add(ToolTipItem14) + Me.lbl_Launch_Counter.SuperTip = SuperToolTip16 Me.lbl_Launch_Counter.TabIndex = 36 Me.lbl_Launch_Counter.Text = "Launch Counter:" ' @@ -438,7 +714,7 @@ Partial Class ucr_Settings ' 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, 487) + Me.lbl_Backup_Retention_Backups.Location = New System.Drawing.Point(218, 371) Me.lbl_Backup_Retention_Backups.MKBoundControl1 = Nothing Me.lbl_Backup_Retention_Backups.MKBoundControl2 = Nothing Me.lbl_Backup_Retention_Backups.MKBoundControl3 = Nothing @@ -446,19 +722,19 @@ Partial Class ucr_Settings 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) - 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_Backups.SuperTip = SuperToolTip6 + ToolTipTitleItem17.Text = "Backup Retention" + ToolTipItem15.LeftIndent = 6 + ToolTipItem15.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip17.Items.Add(ToolTipTitleItem17) + SuperToolTip17.Items.Add(ToolTipItem15) + Me.lbl_Backup_Retention_Backups.SuperTip = SuperToolTip17 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, 487) + Me.spn_Backup_Retention.Location = New System.Drawing.Point(175, 371) Me.spn_Backup_Retention.MKBoundLabel = Nothing Me.spn_Backup_Retention.MKEditValue_Compare = Nothing Me.spn_Backup_Retention.Name = "spn_Backup_Retention" @@ -467,19 +743,19 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem7.Text = "Backup Retention" - ToolTipItem7.LeftIndent = 6 - ToolTipItem7.Text = "The number of backups to be kept. Exceeding Backups will be deleted." - SuperToolTip7.Items.Add(ToolTipTitleItem7) - SuperToolTip7.Items.Add(ToolTipItem7) - Me.spn_Backup_Retention.SuperTip = SuperToolTip7 + ToolTipTitleItem18.Text = "Backup Retention" + ToolTipItem16.LeftIndent = 6 + ToolTipItem16.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip18.Items.Add(ToolTipTitleItem18) + SuperToolTip18.Items.Add(ToolTipItem16) + Me.spn_Backup_Retention.SuperTip = SuperToolTip18 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, 487) + Me.lbl_Backup_Retention_keep.Location = New System.Drawing.Point(141, 371) Me.lbl_Backup_Retention_keep.MKBoundControl1 = Nothing Me.lbl_Backup_Retention_keep.MKBoundControl2 = Nothing Me.lbl_Backup_Retention_keep.MKBoundControl3 = Nothing @@ -487,12 +763,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem8.Text = "Backup Retention" - ToolTipItem8.LeftIndent = 6 - ToolTipItem8.Text = "The number of backups to be kept. Exceeding Backups will be deleted." - SuperToolTip8.Items.Add(ToolTipTitleItem8) - SuperToolTip8.Items.Add(ToolTipItem8) - Me.lbl_Backup_Retention_keep.SuperTip = SuperToolTip8 + ToolTipTitleItem19.Text = "Backup Retention" + ToolTipItem17.LeftIndent = 6 + ToolTipItem17.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip19.Items.Add(ToolTipTitleItem19) + SuperToolTip19.Items.Add(ToolTipItem17) + Me.lbl_Backup_Retention_keep.SuperTip = SuperToolTip19 Me.lbl_Backup_Retention_keep.TabIndex = 33 Me.lbl_Backup_Retention_keep.Text = "keep" ' @@ -500,7 +776,7 @@ Partial Class ucr_Settings ' 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, 487) + Me.lbl_Backup_Retention.Location = New System.Drawing.Point(4, 371) Me.lbl_Backup_Retention.MKBoundControl1 = Nothing Me.lbl_Backup_Retention.MKBoundControl2 = Nothing Me.lbl_Backup_Retention.MKBoundControl3 = Nothing @@ -508,12 +784,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem9.Text = "Backup Retention" - ToolTipItem9.LeftIndent = 6 - ToolTipItem9.Text = "The number of backups to be kept. Exceeding Backups will be deleted." - SuperToolTip9.Items.Add(ToolTipTitleItem9) - SuperToolTip9.Items.Add(ToolTipItem9) - Me.lbl_Backup_Retention.SuperTip = SuperToolTip9 + ToolTipTitleItem20.Text = "Backup Retention" + ToolTipItem18.LeftIndent = 6 + ToolTipItem18.Text = "The number of backups to be kept. Exceeding Backups will be deleted." + SuperToolTip20.Items.Add(ToolTipTitleItem20) + SuperToolTip20.Items.Add(ToolTipItem18) + Me.lbl_Backup_Retention.SuperTip = SuperToolTip20 Me.lbl_Backup_Retention.TabIndex = 32 Me.lbl_Backup_Retention.Text = "Backup Retention:" ' @@ -521,7 +797,7 @@ Partial Class ucr_Settings ' 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, 464) + Me.lbl_Backup_Frequency_Launches.Location = New System.Drawing.Point(218, 348) Me.lbl_Backup_Frequency_Launches.MKBoundControl1 = Nothing Me.lbl_Backup_Frequency_Launches.MKBoundControl2 = Nothing Me.lbl_Backup_Frequency_Launches.MKBoundControl3 = Nothing @@ -529,21 +805,35 @@ Partial Class ucr_Settings 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) - 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" & + ToolTipTitleItem21.Text = "Backup Frequency" + ToolTipItem19.LeftIndent = 6 + ToolTipItem19.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_Frequency_Launches.SuperTip = SuperToolTip10 + SuperToolTip21.Items.Add(ToolTipTitleItem21) + SuperToolTip21.Items.Add(ToolTipItem19) + Me.lbl_Backup_Frequency_Launches.SuperTip = SuperToolTip21 Me.lbl_Backup_Frequency_Launches.TabIndex = 31 Me.lbl_Backup_Frequency_Launches.Text = "launches" ' + 'btn_Refresh_Caches + ' + Me.btn_Refresh_Caches.Location = New System.Drawing.Point(140, 394) + Me.btn_Refresh_Caches.Name = "btn_Refresh_Caches" + Me.btn_Refresh_Caches.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem22.Text = "Refresh Caches" + ToolTipItem20.LeftIndent = 6 + ToolTipItem20.Text = "You don't have to click it, if you're not told to." + SuperToolTip22.Items.Add(ToolTipTitleItem22) + SuperToolTip22.Items.Add(ToolTipItem20) + Me.btn_Refresh_Caches.SuperTip = SuperToolTip22 + Me.btn_Refresh_Caches.TabIndex = 23 + Me.btn_Refresh_Caches.Text = "Now!" + ' '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, 464) + Me.lbl_Backup_every.Location = New System.Drawing.Point(140, 348) Me.lbl_Backup_every.MKBoundControl1 = Nothing Me.lbl_Backup_every.MKBoundControl2 = Nothing Me.lbl_Backup_every.MKBoundControl3 = Nothing @@ -551,20 +841,20 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem11.Text = "Backup Frequency" - ToolTipItem11.LeftIndent = 6 - ToolTipItem11.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" & + ToolTipTitleItem23.Text = "Backup Frequency" + ToolTipItem21.LeftIndent = 6 + ToolTipItem21.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." - SuperToolTip11.Items.Add(ToolTipTitleItem11) - SuperToolTip11.Items.Add(ToolTipItem11) - Me.lbl_Backup_every.SuperTip = SuperToolTip11 + SuperToolTip23.Items.Add(ToolTipTitleItem23) + SuperToolTip23.Items.Add(ToolTipItem21) + Me.lbl_Backup_every.SuperTip = SuperToolTip23 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, 464) + Me.spn_Backup_Frequency.Location = New System.Drawing.Point(175, 348) Me.spn_Backup_Frequency.MKBoundLabel = Nothing Me.spn_Backup_Frequency.MKEditValue_Compare = Nothing Me.spn_Backup_Frequency.Name = "spn_Backup_Frequency" @@ -572,20 +862,20 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem12.Text = "Backup Frequency" - ToolTipItem12.LeftIndent = 6 - ToolTipItem12.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" & + ToolTipTitleItem24.Text = "Backup Frequency" + ToolTipItem22.LeftIndent = 6 + ToolTipItem22.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." - SuperToolTip12.Items.Add(ToolTipTitleItem12) - SuperToolTip12.Items.Add(ToolTipItem12) - Me.spn_Backup_Frequency.SuperTip = SuperToolTip12 + SuperToolTip24.Items.Add(ToolTipTitleItem24) + SuperToolTip24.Items.Add(ToolTipItem22) + Me.spn_Backup_Frequency.SuperTip = SuperToolTip24 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, 464) + Me.lbl_Backup.Location = New System.Drawing.Point(4, 348) Me.lbl_Backup.MKBoundControl1 = Nothing Me.lbl_Backup.MKBoundControl2 = Nothing Me.lbl_Backup.MKBoundControl3 = Nothing @@ -593,21 +883,36 @@ Partial Class ucr_Settings Me.lbl_Backup.MKBoundControl5 = Nothing Me.lbl_Backup.Name = "lbl_Backup" Me.lbl_Backup.Size = New System.Drawing.Size(133, 20) - ToolTipTitleItem13.Text = "Backup Frequency" - ToolTipItem13.LeftIndent = 6 - ToolTipItem13.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" & + ToolTipTitleItem25.Text = "Backup Frequency" + ToolTipItem23.LeftIndent = 6 + ToolTipItem23.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." - SuperToolTip13.Items.Add(ToolTipTitleItem13) - SuperToolTip13.Items.Add(ToolTipItem13) - Me.lbl_Backup.SuperTip = SuperToolTip13 + SuperToolTip25.Items.Add(ToolTipTitleItem25) + SuperToolTip25.Items.Add(ToolTipItem23) + Me.lbl_Backup.SuperTip = SuperToolTip25 Me.lbl_Backup.TabIndex = 25 Me.lbl_Backup.Text = "Backup Frequency:" ' + '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, 394) + 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:" + ' '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.Location = New System.Drawing.Point(141, 211) Me.cmb_J2K_Config.MKBoundLabel = Nothing Me.cmb_J2K_Config.MKEditValue_Compare = Nothing Me.cmb_J2K_Config.Name = "cmb_J2K_Config" @@ -621,13 +926,13 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem14.Text = "Default J2K Config" - ToolTipItem14.LeftIndent = 6 - ToolTipItem14.Text = "J2K runs all the time, the configuration you select here will be used when no gam" & + ToolTipTitleItem26.Text = "Default J2K Config" + ToolTipItem24.LeftIndent = 6 + ToolTipItem24.Text = "J2K runs all the time, the configuration you select here will be used when no gam" & "e or emulator is running." - SuperToolTip14.Items.Add(ToolTipTitleItem14) - SuperToolTip14.Items.Add(ToolTipItem14) - Me.cmb_J2K_Config.SuperTip = SuperToolTip14 + SuperToolTip26.Items.Add(ToolTipTitleItem26) + SuperToolTip26.Items.Add(ToolTipItem24) + Me.cmb_J2K_Config.SuperTip = SuperToolTip26 Me.cmb_J2K_Config.TabIndex = 11 ' 'BS_J2K @@ -657,19 +962,19 @@ Partial Class ucr_Settings 'chb_StatsEnable ' Me.chb_StatsEnable.Cursor = System.Windows.Forms.Cursors.Hand - Me.chb_StatsEnable.Location = New System.Drawing.Point(112, 234) + Me.chb_StatsEnable.Location = New System.Drawing.Point(141, 280) 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) - ToolTipTitleItem15.Text = "Statistics" - ToolTipItem15.LeftIndent = 6 - ToolTipItem15.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & + Me.chb_StatsEnable.Properties.Caption = "" + Me.chb_StatsEnable.Size = New System.Drawing.Size(17, 19) + ToolTipTitleItem27.Text = "Statistics" + ToolTipItem25.LeftIndent = 6 + ToolTipItem25.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & "when you played a certain game." - SuperToolTip15.Items.Add(ToolTipTitleItem15) - SuperToolTip15.Items.Add(ToolTipItem15) - Me.chb_StatsEnable.SuperTip = SuperToolTip15 + SuperToolTip27.Items.Add(ToolTipTitleItem27) + SuperToolTip27.Items.Add(ToolTipItem25) + Me.chb_StatsEnable.SuperTip = SuperToolTip27 Me.chb_StatsEnable.TabIndex = 14 ' 'gb_Internal @@ -685,7 +990,7 @@ Partial Class ucr_Settings 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, 511) + Me.gb_Internal.Location = New System.Drawing.Point(4, 417) Me.gb_Internal.Name = "gb_Internal" Me.gb_Internal.Size = New System.Drawing.Size(389, 90) Me.gb_Internal.TabIndex = 24 @@ -795,16 +1100,16 @@ Partial Class ucr_Settings '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.Location = New System.Drawing.Point(365, 188) Me.btn_J2K.Name = "btn_J2K" Me.btn_J2K.Size = New System.Drawing.Size(28, 20) - ToolTipTitleItem16.Text = "J2K Installation" - ToolTipItem16.LeftIndent = 6 - ToolTipItem16.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + ToolTipTitleItem28.Text = "J2K Installation" + ToolTipItem26.LeftIndent = 6 + ToolTipItem26.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & "//www.emulation-evolved.net" - SuperToolTip16.Items.Add(ToolTipTitleItem16) - SuperToolTip16.Items.Add(ToolTipItem16) - Me.btn_J2K.SuperTip = SuperToolTip16 + SuperToolTip28.Items.Add(ToolTipTitleItem28) + SuperToolTip28.Items.Add(ToolTipItem26) + Me.btn_J2K.SuperTip = SuperToolTip28 Me.btn_J2K.TabIndex = 10 Me.btn_J2K.Text = "..." ' @@ -814,12 +1119,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem17.Text = "Backup Directory" - ToolTipItem17.LeftIndent = 6 - ToolTipItem17.Text = "This directory is used for backups of your databases." - SuperToolTip17.Items.Add(ToolTipTitleItem17) - SuperToolTip17.Items.Add(ToolTipItem17) - Me.btn_Backup_Dir.SuperTip = SuperToolTip17 + ToolTipTitleItem29.Text = "Backup Directory" + ToolTipItem27.LeftIndent = 6 + ToolTipItem27.Text = "This directory is used for backups of your databases." + SuperToolTip29.Items.Add(ToolTipTitleItem29) + SuperToolTip29.Items.Add(ToolTipItem27) + Me.btn_Backup_Dir.SuperTip = SuperToolTip29 Me.btn_Backup_Dir.TabIndex = 8 Me.btn_Backup_Dir.Text = "..." ' @@ -829,12 +1134,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem18.Text = "DOSBox Working Directory" - ToolTipItem18.LeftIndent = 6 - ToolTipItem18.Text = resources.GetString("ToolTipItem18.Text") - SuperToolTip18.Items.Add(ToolTipTitleItem18) - SuperToolTip18.Items.Add(ToolTipItem18) - Me.btn_DOSBox_Working_Directory.SuperTip = SuperToolTip18 + ToolTipTitleItem30.Text = "DOSBox Working Directory" + ToolTipItem28.LeftIndent = 6 + ToolTipItem28.Text = resources.GetString("ToolTipItem28.Text") + SuperToolTip30.Items.Add(ToolTipTitleItem30) + SuperToolTip30.Items.Add(ToolTipItem28) + Me.btn_DOSBox_Working_Directory.SuperTip = SuperToolTip30 Me.btn_DOSBox_Working_Directory.TabIndex = 8 Me.btn_DOSBox_Working_Directory.Text = "..." ' @@ -844,14 +1149,14 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem19.Text = "Screenshots Directory" - ToolTipItem19.LeftIndent = 6 - ToolTipItem19.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + ToolTipTitleItem31.Text = "Screenshots Directory" + ToolTipItem29.LeftIndent = 6 + ToolTipItem29.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" & "." - SuperToolTip19.Items.Add(ToolTipTitleItem19) - SuperToolTip19.Items.Add(ToolTipItem19) - Me.btn_Screenshot_Dir.SuperTip = SuperToolTip19 + SuperToolTip31.Items.Add(ToolTipTitleItem31) + SuperToolTip31.Items.Add(ToolTipItem29) + Me.btn_Screenshot_Dir.SuperTip = SuperToolTip31 Me.btn_Screenshot_Dir.TabIndex = 6 Me.btn_Screenshot_Dir.Text = "..." ' @@ -861,12 +1166,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem20.Text = "Temp Directory" - ToolTipItem20.LeftIndent = 6 - ToolTipItem20.Text = resources.GetString("ToolTipItem20.Text") - SuperToolTip20.Items.Add(ToolTipTitleItem20) - SuperToolTip20.Items.Add(ToolTipItem20) - Me.btn_Temp_Dir.SuperTip = SuperToolTip20 + ToolTipTitleItem32.Text = "Temp Directory" + ToolTipItem30.LeftIndent = 6 + ToolTipItem30.Text = resources.GetString("ToolTipItem30.Text") + SuperToolTip32.Items.Add(ToolTipTitleItem32) + SuperToolTip32.Items.Add(ToolTipItem30) + Me.btn_Temp_Dir.SuperTip = SuperToolTip32 Me.btn_Temp_Dir.TabIndex = 2 Me.btn_Temp_Dir.Text = "..." ' @@ -876,31 +1181,16 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem21.Text = "Extras Directory" - ToolTipItem21.LeftIndent = 6 - ToolTipItem21.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + ToolTipTitleItem33.Text = "Extras Directory" + ToolTipItem31.LeftIndent = 6 + ToolTipItem31.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & "are used by Metropolis Launcher." - SuperToolTip21.Items.Add(ToolTipTitleItem21) - SuperToolTip21.Items.Add(ToolTipItem21) - Me.btn_Dir_Extras.SuperTip = SuperToolTip21 + SuperToolTip33.Items.Add(ToolTipTitleItem33) + SuperToolTip33.Items.Add(ToolTipItem31) + Me.btn_Dir_Extras.SuperTip = SuperToolTip33 Me.btn_Dir_Extras.TabIndex = 4 Me.btn_Dir_Extras.Text = "..." ' - 'btn_RomBase_Manager - ' - Me.btn_RomBase_Manager.Location = New System.Drawing.Point(140, 441) - Me.btn_RomBase_Manager.Name = "btn_RomBase_Manager" - Me.btn_RomBase_Manager.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem22.Text = "RomBase Manager" - ToolTipItem22.LeftIndent = 6 - ToolTipItem22.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." - SuperToolTip22.Items.Add(ToolTipTitleItem22) - SuperToolTip22.Items.Add(ToolTipItem22) - Me.btn_RomBase_Manager.SuperTip = SuperToolTip22 - 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) _ @@ -910,12 +1200,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem23.Text = "Backup Directory" - ToolTipItem23.LeftIndent = 6 - ToolTipItem23.Text = "This directory is used for backups of your databases." - SuperToolTip23.Items.Add(ToolTipTitleItem23) - SuperToolTip23.Items.Add(ToolTipItem23) - Me.txb_Backup_Dir.SuperTip = SuperToolTip23 + ToolTipTitleItem34.Text = "Backup Directory" + ToolTipItem32.LeftIndent = 6 + ToolTipItem32.Text = "This directory is used for backups of your databases." + SuperToolTip34.Items.Add(ToolTipTitleItem34) + SuperToolTip34.Items.Add(ToolTipItem32) + Me.txb_Backup_Dir.SuperTip = SuperToolTip34 Me.txb_Backup_Dir.TabIndex = 7 ' 'txb_DOSBox_Working_Directory @@ -927,12 +1217,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem24.Text = "DOSBox Working Directory" - ToolTipItem24.LeftIndent = 6 - ToolTipItem24.Text = resources.GetString("ToolTipItem24.Text") - SuperToolTip24.Items.Add(ToolTipTitleItem24) - SuperToolTip24.Items.Add(ToolTipItem24) - Me.txb_DOSBox_Working_Directory.SuperTip = SuperToolTip24 + ToolTipTitleItem35.Text = "DOSBox Working Directory" + ToolTipItem33.LeftIndent = 6 + ToolTipItem33.Text = resources.GetString("ToolTipItem33.Text") + SuperToolTip35.Items.Add(ToolTipTitleItem35) + SuperToolTip35.Items.Add(ToolTipItem33) + Me.txb_DOSBox_Working_Directory.SuperTip = SuperToolTip35 Me.txb_DOSBox_Working_Directory.TabIndex = 7 ' 'txb_Screenshot_Dir @@ -944,14 +1234,14 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem25.Text = "Screenshots Directory" - ToolTipItem25.LeftIndent = 6 - ToolTipItem25.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + ToolTipTitleItem36.Text = "Screenshots Directory" + ToolTipItem34.LeftIndent = 6 + ToolTipItem34.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." - SuperToolTip25.Items.Add(ToolTipTitleItem25) - SuperToolTip25.Items.Add(ToolTipItem25) - Me.txb_Screenshot_Dir.SuperTip = SuperToolTip25 + SuperToolTip36.Items.Add(ToolTipTitleItem36) + SuperToolTip36.Items.Add(ToolTipItem34) + Me.txb_Screenshot_Dir.SuperTip = SuperToolTip36 Me.txb_Screenshot_Dir.TabIndex = 5 ' 'txb_Temp_Dir @@ -963,12 +1253,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem26.Text = "Temp Directory" - ToolTipItem26.LeftIndent = 6 - ToolTipItem26.Text = resources.GetString("ToolTipItem26.Text") - SuperToolTip26.Items.Add(ToolTipTitleItem26) - SuperToolTip26.Items.Add(ToolTipItem26) - Me.txb_Temp_Dir.SuperTip = SuperToolTip26 + ToolTipTitleItem37.Text = "Temp Directory" + ToolTipItem35.LeftIndent = 6 + ToolTipItem35.Text = resources.GetString("ToolTipItem35.Text") + SuperToolTip37.Items.Add(ToolTipTitleItem37) + SuperToolTip37.Items.Add(ToolTipItem35) + Me.txb_Temp_Dir.SuperTip = SuperToolTip37 Me.txb_Temp_Dir.TabIndex = 1 ' 'txb_Dir_Extras @@ -980,20 +1270,20 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem27.Text = "Extras Directory" - ToolTipItem27.LeftIndent = 6 - ToolTipItem27.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + ToolTipTitleItem38.Text = "Extras Directory" + ToolTipItem36.LeftIndent = 6 + ToolTipItem36.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & "are used by Metropolis Launcher." - SuperToolTip27.Items.Add(ToolTipTitleItem27) - SuperToolTip27.Items.Add(ToolTipItem27) - Me.txb_Dir_Extras.SuperTip = SuperToolTip27 + SuperToolTip38.Items.Add(ToolTipTitleItem38) + SuperToolTip38.Items.Add(ToolTipItem36) + Me.txb_Dir_Extras.SuperTip = SuperToolTip38 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.Location = New System.Drawing.Point(338, 279) Me.lbl_StatsMinutes.MKBoundControl1 = Nothing Me.lbl_StatsMinutes.MKBoundControl2 = Nothing Me.lbl_StatsMinutes.MKBoundControl3 = Nothing @@ -1001,104 +1291,20 @@ Partial Class ucr_Settings Me.lbl_StatsMinutes.MKBoundControl5 = Nothing Me.lbl_StatsMinutes.Name = "lbl_StatsMinutes" Me.lbl_StatsMinutes.Size = New System.Drawing.Size(37, 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_StatsMinutes.SuperTip = SuperToolTip28 + ToolTipTitleItem39.Text = "Minimum amount of time" + ToolTipItem37.LeftIndent = 6 + ToolTipItem37.Text = resources.GetString("ToolTipItem37.Text") + SuperToolTip39.Items.Add(ToolTipTitleItem39) + SuperToolTip39.Items.Add(ToolTipItem37) + Me.lbl_StatsMinutes.SuperTip = SuperToolTip39 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, 349) - 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, 441) - 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) - ToolTipTitleItem29.Text = "RomBase Manager" - ToolTipItem29.LeftIndent = 6 - ToolTipItem29.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." - SuperToolTip29.Items.Add(ToolTipTitleItem29) - SuperToolTip29.Items.Add(ToolTipItem29) - Me.lbl_Rombase_Manager.SuperTip = SuperToolTip29 - 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, 418) - 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, 395) - 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, 349) - Me.btn_DOSBox_Templates.Name = "btn_DOSBox_Templates" - Me.btn_DOSBox_Templates.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem30.Text = "DOSBox Templates" - ToolTipItem30.LeftIndent = 6 - ToolTipItem30.Text = "Manage your DOSBox Templates here." - SuperToolTip30.Items.Add(ToolTipTitleItem30) - SuperToolTip30.Items.Add(ToolTipItem30) - Me.btn_DOSBox_Templates.SuperTip = SuperToolTip30 - 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.Location = New System.Drawing.Point(158, 279) Me.lbl_StatsMinTime.MKBoundControl1 = Nothing Me.lbl_StatsMinTime.MKBoundControl2 = Nothing Me.lbl_StatsMinTime.MKBoundControl3 = Nothing @@ -1106,63 +1312,34 @@ Partial Class ucr_Settings Me.lbl_StatsMinTime.MKBoundControl5 = Nothing Me.lbl_StatsMinTime.Name = "lbl_StatsMinTime" Me.lbl_StatsMinTime.Size = New System.Drawing.Size(124, 20) - ToolTipTitleItem31.Text = "Minimum amount of time" - ToolTipItem31.LeftIndent = 6 - ToolTipItem31.Text = resources.GetString("ToolTipItem31.Text") - SuperToolTip31.Items.Add(ToolTipTitleItem31) - SuperToolTip31.Items.Add(ToolTipItem31) - Me.lbl_StatsMinTime.SuperTip = SuperToolTip31 + ToolTipTitleItem40.Text = "Minimum amount of time" + ToolTipItem38.LeftIndent = 6 + ToolTipItem38.Text = resources.GetString("ToolTipItem38.Text") + SuperToolTip40.Items.Add(ToolTipTitleItem40) + SuperToolTip40.Items.Add(ToolTipItem38) + Me.lbl_StatsMinTime.SuperTip = SuperToolTip40 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, 418) - Me.btn_Refresh_Caches.Name = "btn_Refresh_Caches" - Me.btn_Refresh_Caches.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem32.Text = "Refresh Caches" - ToolTipItem32.LeftIndent = 6 - ToolTipItem32.Text = "You don't have to click it, if you're not told to." - SuperToolTip32.Items.Add(ToolTipTitleItem32) - SuperToolTip32.Items.Add(ToolTipItem32) - Me.btn_Refresh_Caches.SuperTip = SuperToolTip32 - 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, 395) - Me.btn_Mame_Config.Name = "btn_Mame_Config" - Me.btn_Mame_Config.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem33.Text = "M.A.M.E. Configuration" - ToolTipItem33.LeftIndent = 6 - ToolTipItem33.Text = "If you want to run M.A.M.E. Roms, this is the right place to set it up." - SuperToolTip33.Items.Add(ToolTipTitleItem33) - SuperToolTip33.Items.Add(ToolTipItem33) - Me.btn_Mame_Config.SuperTip = SuperToolTip33 - 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.Location = New System.Drawing.Point(4, 279) 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) - ToolTipTitleItem34.Text = "Statistics" - ToolTipItem34.LeftIndent = 6 - ToolTipItem34.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & + Me.lbl_Stats.Size = New System.Drawing.Size(134, 20) + ToolTipTitleItem41.Text = "Statistics" + ToolTipItem39.LeftIndent = 6 + ToolTipItem39.Text = "If enabled, Metropolis Launcher will be able to tell you how long, how often and " & "when you played a certain game." - SuperToolTip34.Items.Add(ToolTipTitleItem34) - SuperToolTip34.Items.Add(ToolTipItem34) - Me.lbl_Stats.SuperTip = SuperToolTip34 + SuperToolTip41.Items.Add(ToolTipTitleItem41) + SuperToolTip41.Items.Add(ToolTipItem39) + Me.lbl_Stats.SuperTip = SuperToolTip41 Me.lbl_Stats.TabIndex = 8 Me.lbl_Stats.Text = "Statistics:" ' @@ -1170,7 +1347,7 @@ Partial Class ucr_Settings ' 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.Location = New System.Drawing.Point(5, 257) Me.lbl_Password.MKBoundControl1 = Nothing Me.lbl_Password.MKBoundControl2 = Nothing Me.lbl_Password.MKBoundControl3 = Nothing @@ -1178,12 +1355,12 @@ Partial Class ucr_Settings Me.lbl_Password.MKBoundControl5 = Nothing Me.lbl_Password.Name = "lbl_Password" Me.lbl_Password.Size = New System.Drawing.Size(133, 20) - ToolTipTitleItem35.Text = "Change your Password" - ToolTipItem35.LeftIndent = 6 - ToolTipItem35.Text = "Change your own password here" - SuperToolTip35.Items.Add(ToolTipTitleItem35) - SuperToolTip35.Items.Add(ToolTipItem35) - Me.lbl_Password.SuperTip = SuperToolTip35 + ToolTipTitleItem42.Text = "Change your Password" + ToolTipItem40.LeftIndent = 6 + ToolTipItem40.Text = "Change your own password here" + SuperToolTip42.Items.Add(ToolTipTitleItem42) + SuperToolTip42.Items.Add(ToolTipItem40) + Me.lbl_Password.SuperTip = SuperToolTip42 Me.lbl_Password.TabIndex = 8 Me.lbl_Password.Text = "Change your Password:" ' @@ -1191,7 +1368,7 @@ Partial Class ucr_Settings ' 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.Location = New System.Drawing.Point(5, 234) Me.lbl_Users.MKBoundControl1 = Nothing Me.lbl_Users.MKBoundControl2 = Nothing Me.lbl_Users.MKBoundControl3 = Nothing @@ -1199,13 +1376,13 @@ Partial Class ucr_Settings Me.lbl_Users.MKBoundControl5 = Nothing Me.lbl_Users.Name = "lbl_Users" Me.lbl_Users.Size = New System.Drawing.Size(133, 20) - ToolTipTitleItem36.Text = "Multi User Mode" - ToolTipItem36.LeftIndent = 6 - ToolTipItem36.Text = "Enable this mode and set up multiple users. They can be restricted and password p" & + ToolTipTitleItem43.Text = "Multi User Mode" + ToolTipItem41.LeftIndent = 6 + ToolTipItem41.Text = "Enable this mode and set up multiple users. They can be restricted and password p" & "rotected." - SuperToolTip36.Items.Add(ToolTipTitleItem36) - SuperToolTip36.Items.Add(ToolTipItem36) - Me.lbl_Users.SuperTip = SuperToolTip36 + SuperToolTip43.Items.Add(ToolTipTitleItem43) + SuperToolTip43.Items.Add(ToolTipItem41) + Me.lbl_Users.SuperTip = SuperToolTip43 Me.lbl_Users.TabIndex = 8 Me.lbl_Users.Text = "Multi User Mode:" ' @@ -1213,7 +1390,7 @@ Partial Class ucr_Settings ' 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.Location = New System.Drawing.Point(5, 211) Me.lbl_J2K_Config.MKBoundControl1 = Nothing Me.lbl_J2K_Config.MKBoundControl2 = Nothing Me.lbl_J2K_Config.MKBoundControl3 = Nothing @@ -1221,13 +1398,13 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem37.Text = "Default J2K Preset" - ToolTipItem37.LeftIndent = 6 - ToolTipItem37.Text = "J2K runs all the time, the preset you select here will be used when no game or em" & + ToolTipTitleItem44.Text = "Default J2K Preset" + ToolTipItem42.LeftIndent = 6 + ToolTipItem42.Text = "J2K runs all the time, the preset you select here will be used when no game or em" & "ulator is run." - SuperToolTip37.Items.Add(ToolTipTitleItem37) - SuperToolTip37.Items.Add(ToolTipItem37) - Me.lbl_J2K_Config.SuperTip = SuperToolTip37 + SuperToolTip44.Items.Add(ToolTipTitleItem44) + SuperToolTip44.Items.Add(ToolTipItem42) + Me.lbl_J2K_Config.SuperTip = SuperToolTip44 Me.lbl_J2K_Config.TabIndex = 8 Me.lbl_J2K_Config.Text = "Default J2K Preset:" ' @@ -1235,7 +1412,7 @@ Partial Class ucr_Settings ' 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.Location = New System.Drawing.Point(5, 188) Me.lbl_J2K.MKBoundControl1 = Nothing Me.lbl_J2K.MKBoundControl2 = Nothing Me.lbl_J2K.MKBoundControl3 = Nothing @@ -1243,13 +1420,13 @@ Partial Class ucr_Settings Me.lbl_J2K.MKBoundControl5 = Nothing Me.lbl_J2K.Name = "lbl_J2K" Me.lbl_J2K.Size = New System.Drawing.Size(133, 20) - ToolTipTitleItem38.Text = "J2K Installation" - ToolTipItem38.LeftIndent = 6 - ToolTipItem38.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + ToolTipTitleItem45.Text = "J2K Installation" + ToolTipItem43.LeftIndent = 6 + ToolTipItem43.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & "//www.emulation-evolved.net" - SuperToolTip38.Items.Add(ToolTipTitleItem38) - SuperToolTip38.Items.Add(ToolTipItem38) - Me.lbl_J2K.SuperTip = SuperToolTip38 + SuperToolTip45.Items.Add(ToolTipTitleItem45) + SuperToolTip45.Items.Add(ToolTipItem43) + Me.lbl_J2K.SuperTip = SuperToolTip45 Me.lbl_J2K.TabIndex = 8 Me.lbl_J2K.Text = "J2K Installation:" ' @@ -1265,12 +1442,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem39.Text = "Backup Directory" - ToolTipItem39.LeftIndent = 6 - ToolTipItem39.Text = "This directory is used for backups of your databases." - SuperToolTip39.Items.Add(ToolTipTitleItem39) - SuperToolTip39.Items.Add(ToolTipItem39) - Me.lbl_Backup_Directory.SuperTip = SuperToolTip39 + ToolTipTitleItem46.Text = "Backup Directory" + ToolTipItem44.LeftIndent = 6 + ToolTipItem44.Text = "This directory is used for backups of your databases." + SuperToolTip46.Items.Add(ToolTipTitleItem46) + SuperToolTip46.Items.Add(ToolTipItem44) + Me.lbl_Backup_Directory.SuperTip = SuperToolTip46 Me.lbl_Backup_Directory.TabIndex = 8 Me.lbl_Backup_Directory.Text = "Backup Directory:" ' @@ -1286,12 +1463,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem40.Text = "DOSBox Working Directory" - ToolTipItem40.LeftIndent = 6 - ToolTipItem40.Text = resources.GetString("ToolTipItem40.Text") - SuperToolTip40.Items.Add(ToolTipTitleItem40) - SuperToolTip40.Items.Add(ToolTipItem40) - Me.lbl_DOSBox_Working_Directory.SuperTip = SuperToolTip40 + ToolTipTitleItem47.Text = "DOSBox Working Directory" + ToolTipItem45.LeftIndent = 6 + ToolTipItem45.Text = resources.GetString("ToolTipItem45.Text") + SuperToolTip47.Items.Add(ToolTipTitleItem47) + SuperToolTip47.Items.Add(ToolTipItem45) + Me.lbl_DOSBox_Working_Directory.SuperTip = SuperToolTip47 Me.lbl_DOSBox_Working_Directory.TabIndex = 8 Me.lbl_DOSBox_Working_Directory.Text = "DOSBox Working Directory:" ' @@ -1307,14 +1484,14 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem41.Text = "Screenshots Directory" - ToolTipItem41.LeftIndent = 6 - ToolTipItem41.Text = "If you're using a system-wide Screenshot software that places it's captures in a " & + ToolTipTitleItem48.Text = "Screenshots Directory" + ToolTipItem46.LeftIndent = 6 + ToolTipItem46.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." - SuperToolTip41.Items.Add(ToolTipTitleItem41) - SuperToolTip41.Items.Add(ToolTipItem41) - Me.lbl_Screnshots_Dir.SuperTip = SuperToolTip41 + SuperToolTip48.Items.Add(ToolTipTitleItem48) + SuperToolTip48.Items.Add(ToolTipItem46) + Me.lbl_Screnshots_Dir.SuperTip = SuperToolTip48 Me.lbl_Screnshots_Dir.TabIndex = 8 Me.lbl_Screnshots_Dir.Text = "Screenshots Directory:" ' @@ -1330,12 +1507,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem42.Text = "Temp Directory" - ToolTipItem42.LeftIndent = 6 - ToolTipItem42.Text = resources.GetString("ToolTipItem42.Text") - SuperToolTip42.Items.Add(ToolTipTitleItem42) - SuperToolTip42.Items.Add(ToolTipItem42) - Me.lbl_Dir_Temp.SuperTip = SuperToolTip42 + ToolTipTitleItem49.Text = "Temp Directory" + ToolTipItem47.LeftIndent = 6 + ToolTipItem47.Text = resources.GetString("ToolTipItem47.Text") + SuperToolTip49.Items.Add(ToolTipTitleItem49) + SuperToolTip49.Items.Add(ToolTipItem47) + Me.lbl_Dir_Temp.SuperTip = SuperToolTip49 Me.lbl_Dir_Temp.TabIndex = 8 Me.lbl_Dir_Temp.Text = "Temp Directory:" ' @@ -1351,91 +1528,49 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem43.Text = "Extras Directory" - ToolTipItem43.LeftIndent = 6 - ToolTipItem43.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & + ToolTipTitleItem50.Text = "Extras Directory" + ToolTipItem48.LeftIndent = 6 + ToolTipItem48.Text = "This directory contains all the screenshots, box art etc. in subdirectories that " & "are used by Metropolis Launcher." - SuperToolTip43.Items.Add(ToolTipTitleItem43) - SuperToolTip43.Items.Add(ToolTipItem43) - Me.lbl_Dir_Extras.SuperTip = SuperToolTip43 + SuperToolTip50.Items.Add(ToolTipTitleItem50) + SuperToolTip50.Items.Add(ToolTipItem48) + Me.lbl_Dir_Extras.SuperTip = SuperToolTip50 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, 326) - Me.btn_Rom_Manager.Name = "btn_Rom_Manager" - Me.btn_Rom_Manager.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem44.Text = "Rom Manager" - ToolTipItem44.LeftIndent = 6 - ToolTipItem44.Text = "Manage your Roms, Diskettes, CDs etc. here." - SuperToolTip44.Items.Add(ToolTipTitleItem44) - SuperToolTip44.Items.Add(ToolTipItem44) - Me.btn_Rom_Manager.SuperTip = SuperToolTip44 - 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.Location = New System.Drawing.Point(141, 257) Me.btn_Password.Name = "btn_Password" Me.btn_Password.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem45.Text = "Change your Password" - ToolTipItem45.LeftIndent = 6 - ToolTipItem45.Text = "Change your own password here" - SuperToolTip45.Items.Add(ToolTipTitleItem45) - SuperToolTip45.Items.Add(ToolTipItem45) - Me.btn_Password.SuperTip = SuperToolTip45 + ToolTipTitleItem51.Text = "Change your Password" + ToolTipItem49.LeftIndent = 6 + ToolTipItem49.Text = "Change your own password here" + SuperToolTip51.Items.Add(ToolTipTitleItem51) + SuperToolTip51.Items.Add(ToolTipItem49) + Me.btn_Password.SuperTip = SuperToolTip51 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.Location = New System.Drawing.Point(141, 234) Me.btn_Users.Name = "btn_Users" Me.btn_Users.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem46.Text = "Multi User Mode" - ToolTipItem46.LeftIndent = 6 - ToolTipItem46.Text = "Manage multiple users (unrestricted, restricted, with or without password authent" & + ToolTipTitleItem52.Text = "Multi User Mode" + ToolTipItem50.LeftIndent = 6 + ToolTipItem50.Text = "Manage multiple users (unrestricted, restricted, with or without password authent" & "ification)" - SuperToolTip46.Items.Add(ToolTipTitleItem46) - SuperToolTip46.Items.Add(ToolTipItem46) - Me.btn_Users.SuperTip = SuperToolTip46 + SuperToolTip52.Items.Add(ToolTipTitleItem52) + SuperToolTip52.Items.Add(ToolTipItem50) + Me.btn_Users.SuperTip = SuperToolTip52 Me.btn_Users.TabIndex = 12 Me.btn_Users.Text = "Enable" ' - 'btn_Platform_Settings - ' - Me.btn_Platform_Settings.Location = New System.Drawing.Point(140, 280) - Me.btn_Platform_Settings.Name = "btn_Platform_Settings" - Me.btn_Platform_Settings.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem47.Text = "Platform Settings" - ToolTipItem47.LeftIndent = 6 - ToolTipItem47.Text = "Decide which platforms are supported by your Metropolis Launcher installation." - SuperToolTip47.Items.Add(ToolTipTitleItem47) - SuperToolTip47.Items.Add(ToolTipItem47) - Me.btn_Platform_Settings.SuperTip = SuperToolTip47 - Me.btn_Platform_Settings.TabIndex = 18 - Me.btn_Platform_Settings.Text = "Open" - ' - 'btn_EmulatorSettings - ' - Me.btn_EmulatorSettings.Location = New System.Drawing.Point(140, 303) - Me.btn_EmulatorSettings.Name = "btn_EmulatorSettings" - Me.btn_EmulatorSettings.Size = New System.Drawing.Size(102, 20) - ToolTipTitleItem48.Text = "Emulator Settings" - ToolTipItem48.LeftIndent = 6 - ToolTipItem48.Text = "Set up your emulators here." - SuperToolTip48.Items.Add(ToolTipTitleItem48) - SuperToolTip48.Items.Add(ToolTipItem48) - Me.btn_EmulatorSettings.SuperTip = SuperToolTip48 - 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.Location = New System.Drawing.Point(285, 279) Me.spn_StatsMinTime.MKBoundLabel = Nothing Me.spn_StatsMinTime.MKEditValue_Compare = Nothing Me.spn_StatsMinTime.Name = "spn_StatsMinTime" @@ -1444,12 +1579,12 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem49.Text = "Minimum amount of time" - ToolTipItem49.LeftIndent = 6 - ToolTipItem49.Text = resources.GetString("ToolTipItem49.Text") - SuperToolTip49.Items.Add(ToolTipTitleItem49) - SuperToolTip49.Items.Add(ToolTipItem49) - Me.spn_StatsMinTime.SuperTip = SuperToolTip49 + ToolTipTitleItem53.Text = "Minimum amount of time" + ToolTipItem51.LeftIndent = 6 + ToolTipItem51.Text = resources.GetString("ToolTipItem51.Text") + SuperToolTip53.Items.Add(ToolTipTitleItem53) + SuperToolTip53.Items.Add(ToolTipItem51) + Me.spn_StatsMinTime.SuperTip = SuperToolTip53 Me.spn_StatsMinTime.TabIndex = 16 ' 'cmb_Skin @@ -1467,12 +1602,12 @@ Partial Class ucr_Settings Me.cmb_Skin.Properties.ShowHeader = False Me.cmb_Skin.Properties.ValueMember = "id" Me.cmb_Skin.Size = New System.Drawing.Size(251, 20) - ToolTipTitleItem50.Text = "Skin" - ToolTipItem50.LeftIndent = 6 - ToolTipItem50.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." - SuperToolTip50.Items.Add(ToolTipTitleItem50) - SuperToolTip50.Items.Add(ToolTipItem50) - Me.cmb_Skin.SuperTip = SuperToolTip50 + ToolTipTitleItem54.Text = "Skin" + ToolTipItem52.LeftIndent = 6 + ToolTipItem52.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." + SuperToolTip54.Items.Add(ToolTipTitleItem54) + SuperToolTip54.Items.Add(ToolTipItem52) + Me.cmb_Skin.SuperTip = SuperToolTip54 Me.cmb_Skin.TabIndex = 0 ' 'BS_Skin @@ -1510,11 +1645,222 @@ Partial Class ucr_Settings Me.DataColumn4.ColumnName = "Seasonal" Me.DataColumn4.DataType = GetType(Boolean) ' + '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) + ToolTipTitleItem55.Text = "Skin" + ToolTipItem53.LeftIndent = 6 + ToolTipItem53.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." + SuperToolTip55.Items.Add(ToolTipTitleItem55) + SuperToolTip55.Items.Add(ToolTipItem53) + Me.lbl_Skin.SuperTip = SuperToolTip55 + 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, 188) + 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) + ToolTipTitleItem56.Text = "J2K Installation" + ToolTipItem54.LeftIndent = 6 + ToolTipItem54.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & + "//www.emulation-evolved.net" + SuperToolTip56.Items.Add(ToolTipTitleItem56) + SuperToolTip56.Items.Add(ToolTipItem54) + Me.txb_J2K.SuperTip = SuperToolTip56 + Me.txb_J2K.TabIndex = 9 + ' + 'lbl_ScummVM_Templates + ' + Me.lbl_ScummVM_Templates.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far + Me.lbl_ScummVM_Templates.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None + Me.lbl_ScummVM_Templates.Location = New System.Drawing.Point(1, 96) + Me.lbl_ScummVM_Templates.MKBoundControl1 = Nothing + Me.lbl_ScummVM_Templates.MKBoundControl2 = Nothing + Me.lbl_ScummVM_Templates.MKBoundControl3 = Nothing + Me.lbl_ScummVM_Templates.MKBoundControl4 = Nothing + Me.lbl_ScummVM_Templates.MKBoundControl5 = Nothing + Me.lbl_ScummVM_Templates.Name = "lbl_ScummVM_Templates" + Me.lbl_ScummVM_Templates.Size = New System.Drawing.Size(133, 20) + Me.lbl_ScummVM_Templates.TabIndex = 38 + Me.lbl_ScummVM_Templates.Text = "ScummVM Templates:" + Me.lbl_ScummVM_Templates.Visible = False + ' + 'btn_ScummVM_Templates + ' + Me.btn_ScummVM_Templates.Location = New System.Drawing.Point(137, 96) + Me.btn_ScummVM_Templates.Name = "btn_ScummVM_Templates" + Me.btn_ScummVM_Templates.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem57.Text = "DOSBox Templates" + ToolTipItem55.LeftIndent = 6 + ToolTipItem55.Text = "Manage your DOSBox Templates here." + SuperToolTip57.Items.Add(ToolTipTitleItem57) + SuperToolTip57.Items.Add(ToolTipItem55) + Me.btn_ScummVM_Templates.SuperTip = SuperToolTip57 + Me.btn_ScummVM_Templates.TabIndex = 39 + Me.btn_ScummVM_Templates.Text = "Open" + Me.btn_ScummVM_Templates.Visible = False + ' + 'btn_RomBase_Manager + ' + Me.btn_RomBase_Manager.Location = New System.Drawing.Point(137, 142) + Me.btn_RomBase_Manager.Name = "btn_RomBase_Manager" + Me.btn_RomBase_Manager.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem58.Text = "RomBase Manager" + ToolTipItem56.LeftIndent = 6 + ToolTipItem56.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." + SuperToolTip58.Items.Add(ToolTipTitleItem58) + SuperToolTip58.Items.Add(ToolTipItem56) + Me.btn_RomBase_Manager.SuperTip = SuperToolTip58 + Me.btn_RomBase_Manager.TabIndex = 5 + Me.btn_RomBase_Manager.Text = "Open" + ' + '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(1, 73) + 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(1, 142) + 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) + ToolTipTitleItem59.Text = "RomBase Manager" + ToolTipItem57.LeftIndent = 6 + ToolTipItem57.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." + SuperToolTip59.Items.Add(ToolTipTitleItem59) + SuperToolTip59.Items.Add(ToolTipItem57) + Me.lbl_Rombase_Manager.SuperTip = SuperToolTip59 + Me.lbl_Rombase_Manager.TabIndex = 0 + Me.lbl_Rombase_Manager.Text = "RomBase Manager:" + ' + '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(1, 119) + 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(137, 73) + Me.btn_DOSBox_Templates.Name = "btn_DOSBox_Templates" + Me.btn_DOSBox_Templates.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem60.Text = "DOSBox Templates" + ToolTipItem58.LeftIndent = 6 + ToolTipItem58.Text = "Manage your DOSBox Templates here." + SuperToolTip60.Items.Add(ToolTipTitleItem60) + SuperToolTip60.Items.Add(ToolTipItem58) + Me.btn_DOSBox_Templates.SuperTip = SuperToolTip60 + Me.btn_DOSBox_Templates.TabIndex = 21 + Me.btn_DOSBox_Templates.Text = "Open" + Me.btn_DOSBox_Templates.Visible = False + ' + 'btn_Mame_Config + ' + Me.btn_Mame_Config.Location = New System.Drawing.Point(137, 119) + Me.btn_Mame_Config.Name = "btn_Mame_Config" + Me.btn_Mame_Config.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem61.Text = "M.A.M.E. Configuration" + ToolTipItem59.LeftIndent = 6 + ToolTipItem59.Text = "If you want to run M.A.M.E. Roms, this is the right place to set it up." + SuperToolTip61.Items.Add(ToolTipTitleItem61) + SuperToolTip61.Items.Add(ToolTipItem59) + Me.btn_Mame_Config.SuperTip = SuperToolTip61 + Me.btn_Mame_Config.TabIndex = 22 + Me.btn_Mame_Config.Text = "Open" + Me.btn_Mame_Config.Visible = False + ' + 'btn_Rom_Manager + ' + Me.btn_Rom_Manager.Location = New System.Drawing.Point(137, 50) + Me.btn_Rom_Manager.Name = "btn_Rom_Manager" + Me.btn_Rom_Manager.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem62.Text = "Rom Manager" + ToolTipItem60.LeftIndent = 6 + ToolTipItem60.Text = "Manage your Roms, Diskettes, CDs etc. here." + SuperToolTip62.Items.Add(ToolTipTitleItem62) + SuperToolTip62.Items.Add(ToolTipItem60) + Me.btn_Rom_Manager.SuperTip = SuperToolTip62 + Me.btn_Rom_Manager.TabIndex = 20 + Me.btn_Rom_Manager.Text = "Open" + ' + 'btn_Platform_Settings + ' + Me.btn_Platform_Settings.Location = New System.Drawing.Point(137, 4) + Me.btn_Platform_Settings.Name = "btn_Platform_Settings" + Me.btn_Platform_Settings.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem63.Text = "Platform Settings" + ToolTipItem61.LeftIndent = 6 + ToolTipItem61.Text = "Decide which platforms are supported by your Metropolis Launcher installation." + SuperToolTip63.Items.Add(ToolTipTitleItem63) + SuperToolTip63.Items.Add(ToolTipItem61) + Me.btn_Platform_Settings.SuperTip = SuperToolTip63 + Me.btn_Platform_Settings.TabIndex = 18 + Me.btn_Platform_Settings.Text = "Open" + ' + 'btn_EmulatorSettings + ' + Me.btn_EmulatorSettings.Location = New System.Drawing.Point(137, 27) + Me.btn_EmulatorSettings.Name = "btn_EmulatorSettings" + Me.btn_EmulatorSettings.Size = New System.Drawing.Size(102, 20) + ToolTipTitleItem64.Text = "Emulator Settings" + ToolTipItem62.LeftIndent = 6 + ToolTipItem62.Text = "Set up your emulators here." + SuperToolTip64.Items.Add(ToolTipTitleItem64) + SuperToolTip64.Items.Add(ToolTipItem62) + Me.btn_EmulatorSettings.SuperTip = SuperToolTip64 + Me.btn_EmulatorSettings.TabIndex = 19 + Me.btn_EmulatorSettings.Text = "Open" + ' '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, 326) + Me.lbl_Rom_Manager.Location = New System.Drawing.Point(1, 50) Me.lbl_Rom_Manager.MKBoundControl1 = Nothing Me.lbl_Rom_Manager.MKBoundControl2 = Nothing Me.lbl_Rom_Manager.MKBoundControl3 = Nothing @@ -1529,7 +1875,7 @@ Partial Class ucr_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, 280) + Me.lbl_Platform_Settings.Location = New System.Drawing.Point(1, 4) Me.lbl_Platform_Settings.MKBoundControl1 = Nothing Me.lbl_Platform_Settings.MKBoundControl2 = Nothing Me.lbl_Platform_Settings.MKBoundControl3 = Nothing @@ -1544,7 +1890,7 @@ Partial Class ucr_Settings ' 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, 303) + Me.lbl_EmulatorSettings.Location = New System.Drawing.Point(1, 27) Me.lbl_EmulatorSettings.MKBoundControl1 = Nothing Me.lbl_EmulatorSettings.MKBoundControl2 = Nothing Me.lbl_EmulatorSettings.MKBoundControl3 = Nothing @@ -1555,45 +1901,6 @@ Partial Class ucr_Settings 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) - ToolTipTitleItem51.Text = "Skin" - ToolTipItem51.LeftIndent = 6 - ToolTipItem51.Text = "Change the overall look of Metropolis Launcher by choosing a different skin." - SuperToolTip51.Items.Add(ToolTipTitleItem51) - SuperToolTip51.Items.Add(ToolTipItem51) - Me.lbl_Skin.SuperTip = SuperToolTip51 - 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) - ToolTipTitleItem52.Text = "J2K Installation" - ToolTipItem52.LeftIndent = 6 - ToolTipItem52.Text = "Metropolis Launcher supports J2K - A Joystick to Keyboard mapper. Get it at http:" & - "//www.emulation-evolved.net" - SuperToolTip52.Items.Add(ToolTipTitleItem52) - SuperToolTip52.Items.Add(ToolTipItem52) - Me.txb_J2K.SuperTip = SuperToolTip52 - Me.txb_J2K.TabIndex = 9 - ' 'BS_Moby_Platforms ' Me.BS_Moby_Platforms.DataMember = "tbl_Moby_Platforms" @@ -1612,64 +1919,43 @@ Partial Class ucr_Settings 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, 603) - Me.Ctl_MKDXPanel2.TabIndex = 2 - ' - 'lbl_Downloader - ' - Me.lbl_Downloader.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Far - Me.lbl_Downloader.AutoSizeMode = DevExpress.XtraEditors.LabelAutoSizeMode.None - Me.lbl_Downloader.Location = New System.Drawing.Point(4, 257) - Me.lbl_Downloader.MKBoundControl1 = Nothing - Me.lbl_Downloader.MKBoundControl2 = Nothing - Me.lbl_Downloader.MKBoundControl3 = Nothing - Me.lbl_Downloader.MKBoundControl4 = Nothing - Me.lbl_Downloader.MKBoundControl5 = Nothing - Me.lbl_Downloader.Name = "lbl_Downloader" - Me.lbl_Downloader.Size = New System.Drawing.Size(133, 20) - ToolTipTitleItem2.Text = "Downloader" - ToolTipItem2.LeftIndent = 6 - ToolTipItem2.Text = "Allow Metropolis Launcher to automatically download extras (Screenshots, Cover Ar" & - "t etc.) for your game entries." - SuperToolTip2.Items.Add(ToolTipTitleItem2) - SuperToolTip2.Items.Add(ToolTipItem2) - Me.lbl_Downloader.SuperTip = SuperToolTip2 - Me.lbl_Downloader.TabIndex = 40 - Me.lbl_Downloader.Text = "Downloader:" - ' - 'chb_Downloader - ' - Me.chb_Downloader.Cursor = System.Windows.Forms.Cursors.Hand - Me.chb_Downloader.Location = New System.Drawing.Point(140, 258) - Me.chb_Downloader.MKBoundLabel = Nothing - Me.chb_Downloader.MKEditValue_Compare = Nothing - Me.chb_Downloader.Name = "chb_Downloader" - Me.chb_Downloader.Properties.Caption = "Enabled" - Me.chb_Downloader.Size = New System.Drawing.Size(63, 19) - ToolTipTitleItem1.Text = "Downloader" - ToolTipItem1.LeftIndent = 6 - ToolTipItem1.Text = "Allow Metropolis Launcher to automatically download extras (Screenshots, Cover Ar" & - "t etc.) for your game entries." - SuperToolTip1.Items.Add(ToolTipTitleItem1) - SuperToolTip1.Items.Add(ToolTipItem1) - Me.chb_Downloader.SuperTip = SuperToolTip1 - Me.chb_Downloader.TabIndex = 41 + 'pnl_Right + ' + Me.pnl_Right.Controls.Add(Me.lbl_Platform_Settings) + Me.pnl_Right.Controls.Add(Me.lbl_EmulatorSettings) + Me.pnl_Right.Controls.Add(Me.lbl_ScummVM_Templates) + Me.pnl_Right.Controls.Add(Me.lbl_Rom_Manager) + Me.pnl_Right.Controls.Add(Me.btn_ScummVM_Templates) + Me.pnl_Right.Controls.Add(Me.btn_EmulatorSettings) + Me.pnl_Right.Controls.Add(Me.btn_Platform_Settings) + Me.pnl_Right.Controls.Add(Me.btn_Rom_Manager) + Me.pnl_Right.Controls.Add(Me.btn_Mame_Config) + Me.pnl_Right.Controls.Add(Me.btn_DOSBox_Templates) + Me.pnl_Right.Controls.Add(Me.lbl_Mame_Config) + Me.pnl_Right.Controls.Add(Me.lbl_Rombase_Manager) + Me.pnl_Right.Controls.Add(Me.lbl_DOSBox_Templates) + Me.pnl_Right.Controls.Add(Me.btn_RomBase_Manager) + Me.pnl_Right.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl_Right.Location = New System.Drawing.Point(401, 0) + Me.pnl_Right.Name = "pnl_Right" + Me.pnl_Right.Size = New System.Drawing.Size(399, 603) + Me.pnl_Right.TabIndex = 2 ' 'ucr_Settings ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.Controls.Add(Me.Ctl_MKDXPanel2) + Me.Controls.Add(Me.pnl_Right) Me.Controls.Add(Me.Ctl_MKDXSplitter1) Me.Controls.Add(Me.pnl_Left) Me.Name = "ucr_Settings" Me.Size = New System.Drawing.Size(800, 603) CType(Me.pnl_Left, System.ComponentModel.ISupportInitialize).EndInit() Me.pnl_Left.ResumeLayout(False) + CType(Me.txb_AutoHotKey.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_AutoIt.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_RetroAchievements_Pass.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txb_RetroAchievements_User.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chb_Downloader.Properties, System.ComponentModel.ISupportInitialize).EndInit() 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() @@ -1694,14 +1980,14 @@ Partial Class ucr_Settings CType(Me.txb_J2K.Properties, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BS_Moby_Platforms, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DS_MobyDB, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Ctl_MKDXPanel2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.chb_Downloader.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pnl_Right, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl_Right.ResumeLayout(False) 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 pnl_Right 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 @@ -1785,4 +2071,16 @@ Partial Class ucr_Settings Friend WithEvents btn_Known_Emulators As MKNetDXLib.ctl_MKDXSimpleButton Friend WithEvents chb_Downloader As MKNetDXLib.ctl_MKDXCheckEdit Friend WithEvents lbl_Downloader As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_RetroAchievements_Pass As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_RetroAchievements_Pass As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_RetroAchievements_User As MKNetDXLib.ctl_MKDXTextEdit + Friend WithEvents lbl_RetroAchievements_User As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_RetroAchievements As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents btn_RetroAchievements_Test As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_AutoHotKey As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents btn_AutoIt As MKNetDXLib.ctl_MKDXSimpleButton + Friend WithEvents lbl_AutoHotKey_Executable As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents lbl_AutoIt As MKNetDXLib.ctl_MKDXLabel + Friend WithEvents txb_AutoHotKey As MKNetDXLib.ctl_MKDXButtonEdit + Friend WithEvents txb_AutoIt As MKNetDXLib.ctl_MKDXButtonEdit End Class diff --git a/Metropolis_Launcher/Pages/ucr_Settings.resx b/Metropolis_Launcher/Pages/ucr_Settings.resx index c4e768c..97ee56c 100644 --- a/Metropolis_Launcher/Pages/ucr_Settings.resx +++ b/Metropolis_Launcher/Pages/ucr_Settings.resx @@ -123,31 +123,31 @@ 208, 18 - + 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. diff --git a/Metropolis_Launcher/Pages/ucr_Settings.vb b/Metropolis_Launcher/Pages/ucr_Settings.vb index b573919..3beeaa2 100644 --- a/Metropolis_Launcher/Pages/ucr_Settings.vb +++ b/Metropolis_Launcher/Pages/ucr_Settings.vb @@ -1,4 +1,6 @@ -Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess +Imports System.ComponentModel +Imports System.Web +Imports DataAccess = MKNetLib.cls_MKSQLiteDataAccess Imports TC = MKNetLib.cls_MKTypeConverter Public Class ucr_Settings @@ -6,6 +8,8 @@ Public Class ucr_Settings Public Event E_Rom_Manager_Changed() + Private WithEvents WebClient As System.Net.WebClient = New System.Net.WebClient + Public Sub New() _sem_Handle_Textboxes_EditValueChanged = True @@ -65,7 +69,9 @@ Public Class ucr_Settings 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!" + If txb_J2K.Text <> "" Then + txb_J2K.ErrorText = "File not found!" + End If Else 'Fill the J2K Config DS cls_Settings.Fill_J2K_DS(Me.DS_J2K, TC.NZ(cls_Settings.GetSetting("Path_J2K"), "")) @@ -91,6 +97,9 @@ Public Class ucr_Settings Me.chb_Downloader.Checked = TC.NZ(cls_Settings.GetSetting("Downloader_Enabled", cls_Settings.enm_Settingmodes.Same_for_All), True) + Me.txb_RetroAchievements_User.EditValue = TC.NZ(cls_Settings.GetSetting("RetroAchievements_User", cls_Settings.enm_Settingmodes.Per_User), "") + Me.txb_RetroAchievements_Pass.EditValue = TC.NZ(cls_Settings.GetSetting("RetroAchievements_Pass", cls_Settings.enm_Settingmodes.Per_User), "") + 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") @@ -116,6 +125,12 @@ Public Class ucr_Settings Me.lbl_Launch_Counter_Value.Text = TC.NZ(cls_Settings.GetSetting("LaunchCounter_BackupRotation"), 0) + Me.txb_AutoIt.Text = TC.NZ(cls_Settings.GetSetting("Path_AutoIt"), "") + Me.txb_AutoIt.DoValidate() + + Me.txb_AutoHotKey.Text = TC.NZ(cls_Settings.GetSetting("Path_AutoHotKey"), "") + Me.txb_AutoHotKey.DoValidate() + #If DEBUG Then gb_Internal.Visible = True #End If @@ -133,6 +148,14 @@ Public Class ucr_Settings End If Next + For Each ctrl As Control In pnl_Right.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 @@ -141,6 +164,16 @@ Public Class ucr_Settings lbl_StatsMinutes.Enabled = True chb_StatsEnable.Enabled = True spn_StatsMinTime.Enabled = True + + lbl_RetroAchievements.Enabled = True + lbl_RetroAchievements_Pass.Enabled = True + lbl_RetroAchievements_User.Enabled = True + txb_RetroAchievements_Pass.Enabled = True + txb_RetroAchievements_User.Enabled = True + btn_RetroAchievements_Test.Enabled = True + + btn_EmulatorSettings.Enabled = True + lbl_EmulatorSettings.Enabled = True End If If cls_Globals.MultiUserMode = True AndAlso cls_Globals.Restricted = False Then @@ -190,11 +223,20 @@ Public Class ucr_Settings 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("RetroAchievements_User", Me.txb_RetroAchievements_User.EditValue, cls_Settings.enm_Settingmodes.Per_User) + cls_Settings.SetSetting("RetroAchievements_Pass", Me.txb_RetroAchievements_Pass.EditValue, cls_Settings.enm_Settingmodes.Per_User) + + cls_Globals.RetroAchievements_User = TC.NZ(Me.txb_RetroAchievements_User.EditValue, "") + cls_Globals.RetroAchievements_Pass = TC.NZ(Me.txb_RetroAchievements_Pass.EditValue, "") + cls_Settings.SetSetting("Downloader_Enabled", Me.chb_Downloader.Checked, cls_Settings.enm_Settingmodes.Same_for_All) 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) + + cls_Settings.SetSetting("Path_AutoIt", Me.txb_AutoIt.Text) + cls_Settings.SetSetting("Path_AutoHotKey", Me.txb_AutoHotKey.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 @@ -286,7 +328,7 @@ Public Class ucr_Settings 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 + Private Sub Handle_File_Textboxes_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txb_J2K.Validating, txb_AutoIt.Validating, txb_AutoHotKey.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 @@ -326,8 +368,8 @@ Public Class ucr_Settings sSQL &= " LEFT JOIN moby.tbl_Moby_Releases REL ON REL.id_Moby_Platforms = IFNULL(GAME.id_Moby_Platforms_Alternative, GAME.id_Moby_Platforms) AND REL.id_Moby_Games = MG.id_Moby_Games" & ControlChars.CrLf sSQL &= " WHERE GAME.id_Moby_Platforms <> 3 AND GAME.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 GAME.id_Moby_Platforms IS NOT NULL" & ControlChars.CrLf + sSQL &= " AND GAME.id_Rombase IS NULL" & ControlChars.CrLf 'Only unknown entries 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 @@ -335,6 +377,13 @@ Public Class ucr_Settings 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 &= " OR" & ControlChars.CrLf + sSQL &= " GAME.id_Emu_Games IN (" + sSQL &= " SELECT id_Emu_Games FROM tbl_Emu_Games_Moby_Attributes" + sSQL &= " UNION SELECT id_Emu_Games FROM tbl_Emu_Games_Languages" + sSQL &= " UNION SELECT id_Emu_Games FROM tbl_Emu_Games_Moby_Genres" + sSQL &= " UNION SELECT id_Emu_Games FROM tbl_Emu_Games_Regions" + sSQL &= " )" sSQL &= " )" & ControlChars.CrLf sSQL &= " ORDER BY GAME.InnerFile" & ControlChars.CrLf @@ -701,4 +750,60 @@ Public Class ucr_Settings frm.ShowDialog() End Using End Sub + + Private Sub Handle_Directory_Textboxes_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txb_Temp_Dir.Validating, txb_Screenshot_Dir.Validating, txb_DOSBox_Working_Directory.Validating, txb_Dir_Extras.Validating + + End Sub + + Private Sub btn_RetroAchievements_Test_Click(sender As Object, e As EventArgs) Handles btn_RetroAchievements_Test.Click + Me.Cursor = Cursors.WaitCursor + Try + Dim result As Byte() = Me.WebClient.DownloadData("http://retroachievements.org/dorequest.php?r=login&u=" & HttpUtility.UrlEncode(TC.NZ(Me.txb_RetroAchievements_User.EditValue, "")) & "&p=" & HttpUtility.UrlEncode(TC.NZ(Me.txb_RetroAchievements_Pass.EditValue, ""))) + Dim sResult As String = System.Text.Encoding.UTF8.GetString(result) + + Dim dictResult As New Dictionary(Of String, String) + dictResult = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(sResult) + + If dictResult("Success").ToLower = "true" Then + MKNetDXLib.cls_MKDXHelper.MessageBox("Login to retroachievements.org was successful!", "Test RetroAchievements", MessageBoxButtons.OK, MessageBoxIcon.Information) + Else + MKNetDXLib.cls_MKDXHelper.MessageBox("Login to retroachievements.org failed!", "Test RetroAchievements", MessageBoxButtons.OK, MessageBoxIcon.Warning) + End If + Catch ex As Exception + MKNetDXLib.cls_MKDXHelper.ExceptionMessageBox(ex) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub btn_AutoIt_Click(sender As Object, e As EventArgs) Handles btn_AutoIt.Click + Dim sFilePath As Object = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse AutoIt Executable", "Executables (*.exe)|*.exe") + If Alphaleonis.Win32.Filesystem.File.Exists(TC.NZ(sFilePath, "")) Then + Me.txb_AutoIt.Focus() + Me.txb_AutoIt.EditValue = sFilePath + Me.txb_AutoIt.DoValidate() + Me.btn_AutoIt.Focus() + End If + End Sub + + Private Sub btn_AutoHotKey_Click(sender As Object, e As EventArgs) Handles btn_AutoHotKey.Click + Dim sFilePath As Object = MKNetLib.cls_MKFileSupport.OpenFileDialog("Browse AutoHotKey Executable", "Executables (*.exe)|*.exe") + If Alphaleonis.Win32.Filesystem.File.Exists(TC.NZ(sFilePath, "")) Then + Me.txb_AutoHotKey.Focus() + Me.txb_AutoHotKey.EditValue = sFilePath + Me.txb_AutoHotKey.DoValidate() + Me.btn_AutoHotKey.Focus() + End If + End Sub + + Private Sub txb_AutoIt_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles txb_AutoIt.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + txb_AutoIt.Text = "" + End If + End Sub + + Private Sub txb_AutoHotKey_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles txb_AutoHotKey.ButtonClick + If e.Button.Kind = DevExpress.XtraEditors.Controls.ButtonPredefines.Delete Then + txb_AutoHotKey.Text = "" + End If + End Sub End Class diff --git a/Metropolis_Launcher/Resources/ml_autohotkey_template.ahk b/Metropolis_Launcher/Resources/ml_autohotkey_template.ahk new file mode 100644 index 0000000..96d4e24 --- /dev/null +++ b/Metropolis_Launcher/Resources/ml_autohotkey_template.ahk @@ -0,0 +1,54 @@ +; +; Metropolis Launcher AutoHotKey Support v1.0 +; based on AutoHotKey Version 1.1.29.01 +; +; Script Function: +; This is a template script +; Use it as the starting point for developing your own script + +mlEMUDIR := "" ; the directory of the emulator +mlEMUEXE := "" ; the executable of the emulator +mlEMUFULLPATH := "" ; the full path (emudir \ emuexe) of the emulator +mlLISTFILE := "" ; full path to the generated list file +mlLIBRETROCORE := "" ; name of the libretro core +mlCONFIGFILE := "" ; full path to a generated config file (ScummVM, DOSBox) + +mlNUMBEROFROMS := 0 ; total number of rom files/media + +; Metropolis Launcher will provide the following pseudo-arrays in the INJECT section: +; mlROMDIR ; directory of each rom file/media +; mlROMFILE ; filename of the rom file/media (for ScummVM: gameid) +; mlROMEXTENSION ; file extension of the rom file/media +; mlROMFULLPATH ; full path of the rom file/media + +; ### Meta Data Fields ### + +mlGAMEID := "" ; internal ID of the game +mlGAMENAME := "" ; name of the game as shown in Metropolis Launcher +mlREGIONS := "" ; region info, e.g. "Europe", "USA, Japan" +mlLANGUAGES := "" ; language info, e.g. "(EN)", "DE, FR" +mlMOBYRANK := "" ; mobygames rank +mlMOBYSCORE := "" ; mobygames score +mlYEAR := "" ; release year +mlPUBLISHER := "" ; name of the publisher +mlDEVELOPER := "" ; name of the developer +mlMINPLAYERS := "" ; minimum number of players +mlMAXPLAYERS := "" ; maximum number of players + +; ### ML INJECT START ### +; this section may be filled for testing purposes, but don't remove the INJECT START and END tags! + +mlEMUDIR := "c:\Emulators\MyEmulator" +mlEMUEXE := "MyEmulator.exe" + +mlROMDIR0 := "c:\Roms" +mlROMFILE0 := "some_rom.bin" +mlROMEXTENSION0 := "bin" +mlROMFULLPATH0 := "c:\Roms\some_rom.bin" + +; ### ML INJECT END ### + +; ### Start here with your code ### + +; just MsgBox some variable contents +MsgBox Accessing some data `r`n %mlEMUDIR% `r`n %mlEMUEXE% `r`n %mlROMFULLPATH0% `r`n EOF diff --git a/Metropolis_Launcher/Resources/ml_autoit_template.au3 b/Metropolis_Launcher/Resources/ml_autoit_template.au3 new file mode 100644 index 0000000..28da2f7 --- /dev/null +++ b/Metropolis_Launcher/Resources/ml_autoit_template.au3 @@ -0,0 +1,57 @@ +#include + +; +; Metropolis Launcher AutoIt Support v1.0 +; based on AutoIt Version 3 +; +; Script Function: +; This is a template script +; Use it as the starting point for developing your own script + +Global $mlEMUDIR ; the directory of the emulator +Global $mlEMUEXE ; the executable of the emulator +Global $mlEMUFULLPATH ; the full path (emudir \ emuexe) of the emulator +Global $mlLISTFILE ; full path to the generated list file +Global $mlLIBRETROCORE ; name of the libretro core +Global $mlCONFIGFILE ; full path to a generated config file (ScummVM, DOSBox) + +Global $mlNUMBEROFROMS ; total number of rom files/media + +Global $mlROMDIR[99] ; directory of each rom files/media +Global $mlROMFILE[99] ; filename of each rom file/media (for ScummVM: gameid) +Global $mlROMEXTENSION[99] ; file extension of each rom file/media +Global $mlROMFULLPATH[99] ; full path of each rom file/media + +; ### Meta Data Fields ### + +Global $mlGAMEID ; internal ID of the game +Global $mlGAMENAME ; name of the game as shown in Metropolis Launcher +Global $mlREGIONS ; region info, e.g. "Europe", "USA, Japan" +Global $mlLANGUAGES ; language info, e.g. "(EN)", "DE, FR" +Global $mlMOBYRANK ; mobygames rank +Global $mlMOBYSCORE ; mobygames score +Global $mlYEAR ; release year +Global $mlPUBLISHER ; name of the publisher +Global $mlDEVELOPER ; name of the developer +Global $mlMINPLAYERS ; minimum number of players +Global $mlMAXPLAYERS ; maximum number of players + +; ### ML INJECT START ### +; this section may be filled for testing purposes, but don't remove the INJECT START and END tags! + +$mlEMUDIR = "c:\Emulators\MyEmulator" +$mlEMUEXE = "MyEmulator.exe" + +$mlNUMBEROFROMS = 1 + +$mlROMDIR[0] = "c:\Roms" +$mlROMFILE[0] = "some_rom.bin" +$mlROMEXTENSION[0] = "bin" +$mlROMFULLPATH[0] = "c:\Roms\some_rom.bin" + +; ### ML INJECT END ### + +; ### Start here with your code ### + +; just MsgBox some variable contents +MsgBox($MB_SYSTEMMODAL, "Accessing some data", $mlEMUDIR & @CRLF & $mlEMUEXE & @CRLF & $mlROMFULLPATH[0] & @CRLF & "EOF") diff --git a/Metropolis_Launcher/ml.chm b/Metropolis_Launcher/ml.chm index 798f07a..f8c32b6 100644 Binary files a/Metropolis_Launcher/ml.chm and b/Metropolis_Launcher/ml.chm differ diff --git a/Metropolis_Launcher/ml.db_initial b/Metropolis_Launcher/ml.db_initial index 5570764..ba3e3cd 100644 Binary files a/Metropolis_Launcher/ml.db_initial and b/Metropolis_Launcher/ml.db_initial differ diff --git a/README.md b/README.md index 32857aa..17dcb9c 100644 --- a/README.md +++ b/README.md @@ -4,4 +4,18 @@ Metropolis Launcher has been created to be a great old-school launcher, emulatio 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 +Get an overview of the features at http://metropolis-launcher.net + +# Build from Source + +1. Clone the repository to your local machine + +2. Fetch the latest binary release from https://github.com/theMK2k/MetropolisLauncher/releases + +3. Extract the .db files from the latest binary release and put them into Metropolis_Launcher the subdirectory + +This is unfortunately necessary, as these databases are too large for the github LFS free plan. + +4. Either have a licensed DevExpress DXPerience distribution installed or extract the DevExpress.*.dll from the latest binary release and use these + +If you take the approach of using extracted DevExpress.*.dll files, you won't be able to alter any forms/user controls. \ No newline at end of file