From 0851ba19d059f6cfe3eed7d622c126d079cdb59f Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Tue, 25 Oct 2016 18:05:06 +0000 Subject: [PATCH] EgtCAM5 : - Implementato uso della EgtSaveFileDialog da EgtWPFLib5. - Abbozzata gestione dei file per GunStock. - Aggiunta virtualizzazione dell'albero dei layer. - Corretta visualizzazione pallini colorati nell'albero dei layer. - Miglioramenti nel salvataggio delle MTable e selezione di quella corrente. - Aggiunto colore Egaltech1 in IniFile per poterlo usare da codice. --- Constants/ConstMsg.vb | 5 +- EgtCAM5Resources.xaml | 9 +- IniFile.vb | 13 +- MTableDb/MTableDbView.xaml | 12 +- MTableDb/MTableDbViewModel.vb | 45 ++++--- MTableDb/MTableListBox.vb | 4 +- MainWindow/MainWindowViewModel.vb | 9 +- .../GunStockPanel/GunStockPanelView.xaml | 20 ++- .../GunStockPanel/GunStockPanelViewModel.vb | 123 +++++++++++++++--- .../ManageLayerExpander/LayerTreeView.vb | 2 +- .../ManageLayerExpanderView.xaml | 4 +- .../ManageLayerExpanderViewModel.vb | 4 +- ProjectPage/ProjectView.xaml.vb | 6 +- ProjectPage/ProjectViewModel.vb | 4 +- .../SingleFolderOpenFileDialogView.xaml | 11 -- .../SingleFolderOpenFileDialogView.xaml.vb | 3 - .../SingleFolderOpenFileDialogViewModel.vb | 3 - 17 files changed, 198 insertions(+), 79 deletions(-) delete mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml delete mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb delete mode 100644 SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb diff --git a/Constants/ConstMsg.vb b/Constants/ConstMsg.vb index 095064e..83e33c6 100644 --- a/Constants/ConstMsg.vb +++ b/Constants/ConstMsg.vb @@ -1,8 +1,5 @@ Module ConstMsg - 'Public Const MSG_MISSINGKEYWD As Integer = 10100 - 'Public Const MSG_NUMERICKEYBOARDWD As Integer = 10200 - Public Const MSG_EGTCAM5 As Integer = 5000 Public Const MSG_MAINWINDOW As Integer = MSG_EGTCAM5 Public Const MSG_TOPCOMMANDBAR As Integer = MSG_EGTCAM5 + 100 @@ -21,6 +18,8 @@ Public Const MSG_OPTIONPAGE As Integer = MSG_EGTCAM5 + 1500 Public Const MSG_DOORS As Integer = MSG_EGTCAM5 + 3000 Public Const MSG_DOORSERRORS As Integer = MSG_EGTCAM5 + 3100 + Public Const MSG_GUNSTOCK As Integer = MSG_EGTCAM5 + 3200 + Public Const MSG_GUNSTOCKERRORS As Integer = MSG_EGTCAM5 + 3250 Public Const MSG_MISSINGKEYWD As Integer = 10100 End Module diff --git a/EgtCAM5Resources.xaml b/EgtCAM5Resources.xaml index 6e0d306..ac7eb80 100644 --- a/EgtCAM5Resources.xaml +++ b/EgtCAM5Resources.xaml @@ -660,8 +660,13 @@ - + + diff --git a/IniFile.vb b/IniFile.vb index 0f459a6..0d51ce0 100644 --- a/IniFile.vb +++ b/IniFile.vb @@ -3,6 +3,8 @@ Imports EgtUILib Module IniFile + Friend EgaltechBlue1 As New SolidColorBrush(Color.FromArgb(255, 77, 132, 196)) + Friend Enum ProjectModeOpt As Integer DRAW = 1 MACHINING = 2 @@ -57,7 +59,8 @@ Module IniFile Friend m_MruFiles As New MruList Friend m_MruScripts As New MruList Friend m_MruDoors As New MruList - Friend m_MruGunStock As New MruList + Friend m_MruNewGunStock As New MruList + Friend m_MruModifyGunStock As New MruList ' Current Machine Friend m_sMachineName As String Friend m_sCurrMachIniFilePath As String @@ -130,4 +133,12 @@ Module IniFile Return EgtUILib.WritePrivateProfileWinPos(IpAppName, IpKeyName, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile) End Function + Friend Function IsActiveDoors() As Boolean + Return (IniFile.m_nKeyOptions And KEY_OPT.DOORS) <> 0 And (GetPrivateProfileInt(S_DOORS, K_DDFENABLE, 0) <> 0) + End Function + + Friend Function IsActiveGunStock() As Boolean + Return (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And (GetPrivateProfileInt(S_GUNSTOCK, K_MODENABLE, 0) <> 0) + End Function + End Module diff --git a/MTableDb/MTableDbView.xaml b/MTableDb/MTableDbView.xaml index 5170696..a3a8be7 100644 --- a/MTableDb/MTableDbView.xaml +++ b/MTableDb/MTableDbView.xaml @@ -8,7 +8,7 @@ TitleBarBrush="{StaticResource EgaltechBlue1}" BorderBrush="{StaticResource EgaltechBlue1}" WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False" - IsMinimizable="True" WindowStartupLocation="CenterScreen" ShowInTaskbar="False" + IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False" CloseCommand="{Binding CloseMTableWindowCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}" CloseCommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"> @@ -24,7 +24,7 @@ - + + diff --git a/MTableDb/MTableDbViewModel.vb b/MTableDb/MTableDbViewModel.vb index 2c519e8..2f30c16 100644 --- a/MTableDb/MTableDbViewModel.vb +++ b/MTableDb/MTableDbViewModel.vb @@ -2,7 +2,6 @@ Imports System.IO Imports EgtUILib Imports System.Text.RegularExpressions -Imports Microsoft.Win32 Namespace EgtCAM5 @@ -188,6 +187,7 @@ Namespace EgtCAM5 Sub New() EgtGetCurrMachineName(m_sPreviousActiveMachine) + MTableListBoxItem.NewMTableIndex = 0 UpdateTables() SetActiveTable() If m_TablesList.Count > 0 Then @@ -304,15 +304,13 @@ Namespace EgtCAM5 Public Sub SaveTable(param As Object) Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem) If IsNothing(SelectedMTable) Then Return - Dim sFile As String = String.Empty + 'Dim sFile As String = String.Empty If String.IsNullOrEmpty(SelectedMTable.TableNamePath) Then - If Not SaveTableAsDialog(sFile, SelectedMTable.TableName) Then Return - SelectedMTable.m_TableNamePath = sFile - SelectedMTable.TableName = Path.GetFileNameWithoutExtension(sFile) - VerifyNewName(SelectedMTable.TableName) + SaveTableAs(SelectedMTable) + Else + TableUtility.WriteDoorTable(SelectedMTable, SelectedMTable.TableNamePath) + SelectedMTable.IsModifiedReset() End If - TableUtility.WriteDoorTable(SelectedMTable, SelectedMTable.TableNamePath) - SelectedMTable.IsModifiedReset() End Sub #End Region ' SaveTableCommand @@ -340,7 +338,7 @@ Namespace EgtCAM5 Dim sFile As String = String.Empty If SaveTableAsDialog(sFile, SelectedMTable.TableName) Then SelectedMTable.IsModifiedReset() - VerifyNewName(SelectedMTable.TableName) + VerifyNewName(Path.GetFileNameWithoutExtension(sFile)) TableUtility.WriteDoorTable(SelectedMTable, sFile) UpdateTables() ' seleziono la tabella appena salvata @@ -356,16 +354,15 @@ Namespace EgtCAM5 ' Direttorio corrente per MTable Dim sDir As String = IniFile.m_sTablesRoot ' Apertura dialogo di scelta file DDF - Dim SaveFileDialog As New SaveFileDialog - SaveFileDialog.Title = EgtMsg(MSG_DOORS + 5) - SaveFileDialog.Filter = "MTable script(*.mtl)|*.mtl" - SaveFileDialog.FilterIndex = 1 - SaveFileDialog.InitialDirectory = sDir - SaveFileDialog.FileName = sTableName - If SaveFileDialog.ShowDialog <> True Then + Dim SaveFileDialogView As New EgtWPFLib5.EgtSaveFileDialog + SaveFileDialogView.Title = EgtMsg(MSG_DOORS + 5) + SaveFileDialogView.Extension = ".mtl" + SaveFileDialogView.Directory = sDir + SaveFileDialogView.FileName = sTableName + If SaveFileDialogView.ShowDialog <> True Then Return False End If - sPath = SaveFileDialog.FileName + sPath = SaveFileDialogView.FileName Return True End Function @@ -391,6 +388,20 @@ Namespace EgtCAM5 Public Sub RemoveTable(param As Object) Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem) If IsNothing(SelectedMTable) Then Return + ' cancello tutte le tavole nella lista impostate su non visibili (quelle rimaste quando viene creata una nuova tabella e passando ad un altra non la si salva) + Dim Index As Integer = m_TablesList.Count - 1 + While Index >= 0 + If m_TablesList(Index).Visibility <> Visibility.Visible Then + m_TablesList.RemoveAt(Index) + End If + Index -= 1 + End While + ' verifico se la tabella selezionata è quella attiva + If SelectedMTable.ActiveTable Then + MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 8) & vbCrLf & EgtMsg(MSG_DOORSERRORS + 9), "", MessageBoxButton.OK, MessageBoxImage.Stop) + Exit Sub + End If + ' chiedo conferma prima di cancellare la tabella If MessageBox.Show(EgtMsg(MSG_DOORS + 6), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then If Not String.IsNullOrEmpty(SelectedMTable.TableNamePath) Then File.Delete(SelectedMTable.TableNamePath) diff --git a/MTableDb/MTableListBox.vb b/MTableDb/MTableListBox.vb index 1ac1b13..2af7e23 100644 --- a/MTableDb/MTableListBox.vb +++ b/MTableDb/MTableListBox.vb @@ -45,7 +45,7 @@ Public Class MTableListBoxItem Friend SharedMachIndex As Integer = 0 - Friend Shared NewMTableIndex As Integer = 1 + Friend Shared NewMTableIndex As Integer = 0 Friend m_TableNamePath As String Public ReadOnly Property TableNamePath As String @@ -81,7 +81,7 @@ Public Class MTableListBoxItem Public ReadOnly Property StateColor As Brush Get If ActiveTable Then - Return Brushes.Blue + Return IniFile.EgaltechBlue1 Else Return Brushes.Transparent End If diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb index 52f3fc4..91ef606 100644 --- a/MainWindow/MainWindowViewModel.vb +++ b/MainWindow/MainWindowViewModel.vb @@ -373,8 +373,13 @@ Namespace EgtCAM5 '' Impostazioni MruLists m_MruFiles.Init(S_MRUFILES, 8) m_MruScripts.Init(S_MRUSCRIPTS, 8) - m_MruDoors.Init(S_MRUDOORS, 8) - m_MruGunStock.Init(S_MRUGUNSTOCK, 8) + If IniFile.IsActiveDoors() Then + m_MruDoors.Init(S_MRUDOORS, 8) + End If + If IniFile.IsActiveGunStock() Then + m_MruNewGunStock.Init(S_MRUGUNSTOCK, 8) + m_MruModifyGunStock.Init(S_MRUGUNSTOCK, 8) + End If ' Installo funzione gestione eventi per lua EgtSetProcessEvents(m_ProcEventsCallback) ' Installo funzione output testo su status per lua diff --git a/ProjectPage/GunStockPanel/GunStockPanelView.xaml b/ProjectPage/GunStockPanel/GunStockPanelView.xaml index 2348a23..806e877 100644 --- a/ProjectPage/GunStockPanel/GunStockPanelView.xaml +++ b/ProjectPage/GunStockPanel/GunStockPanelView.xaml @@ -3,12 +3,30 @@ xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"> - --> + + diff --git a/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb b/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb index ff3eb86..df0b36c 100644 --- a/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb +++ b/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb @@ -1,67 +1,152 @@ Imports System.Collections.ObjectModel +Imports EgtUILib Namespace EgtCAM5 Public Class GunStockPanelViewModel Inherits ViewModelBase - Public ReadOnly Property MruGunStockNames As ObservableCollection(Of String) + Public ReadOnly Property MruNewGunStockNames As ObservableCollection(Of String) Get - Return IniFile.m_MruGunStock.m_FileNames + Return IniFile.m_MruNewGunStock.m_FileNames End Get End Property - ' Definizione comandi - Private m_cmdGunStock As ICommand - Private Shared m_cmdOpenMruGunStock As ICommand + Public ReadOnly Property MruModifyGunStockNames As ObservableCollection(Of String) + Get + Return IniFile.m_MruModifyGunStock.m_FileNames + End Get + End Property + +#Region "Messages" + + Public ReadOnly Property NewGunStockMsg As String + Get + Return EgtMsg(MSG_DOORS + 4) + End Get + End Property + Public ReadOnly Property ModifyGunStockMsg As String + Get + Return EgtMsg(MSG_DOORS + 4) + End Get + End Property + +#End Region ' Messages + +#Region "ToolTip" + + Public ReadOnly Property NewGunStockToolTip As String + Get + Return EgtMsg(MSG_DOORS + 4) + End Get + End Property + Public ReadOnly Property ModifyGunStockToolTip As String + Get + Return EgtMsg(MSG_DOORS + 4) + End Get + End Property + +#End Region ' ToolTip + + ' Definizione comandi + Private m_cmdNewGunStock As ICommand + Private m_cmdModifyGunStock As ICommand + Private Shared m_cmdOpenMruNewGunStock As ICommand + Private Shared m_cmdOpenMruModifyGunStock As ICommand #Region "COMMANDS" -#Region "GunStockCommand" +#Region "NewGunStockCommand" ''' ''' Returns a command that do Import. ''' - Public ReadOnly Property GunStockCommand As ICommand + Public ReadOnly Property NewGunStockCommand As ICommand Get - If m_cmdGunStock Is Nothing Then - m_cmdGunStock = New RelayCommand(AddressOf GunStock) + If m_cmdNewGunStock Is Nothing Then + m_cmdNewGunStock = New RelayCommand(AddressOf NewGunStock) End If - Return m_cmdGunStock + Return m_cmdNewGunStock End Get End Property ''' ''' Execute the Door. This method is invoked by the DoorsCommand. ''' - Public Sub GunStock(ByVal param As Object) + Public Sub NewGunStock(ByVal param As Object) Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty) End Sub -#End Region ' GunStockCommand +#End Region ' NewGunStockCommand -#Region "OpenMruGunStockCommand" +#Region "ModifyGunStockCommand" + + ''' + ''' Returns a command that do Import. + ''' + Public ReadOnly Property ModifyGunStockCommand As ICommand + Get + If m_cmdModifyGunStock Is Nothing Then + m_cmdModifyGunStock = New RelayCommand(AddressOf ModifyGunStock) + End If + Return m_cmdModifyGunStock + End Get + End Property + + ''' + ''' Execute the Door. This method is invoked by the DoorsCommand. + ''' + Public Sub ModifyGunStock(ByVal param As Object) + Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty) + End Sub + +#End Region ' ModifyGunStockCommand + +#Region "OpenMruNewGunStockCommand" ''' ''' Returns a command that do Open. ''' - Public Shared ReadOnly Property OpenMruGunStockCommand As ICommand + Public Shared ReadOnly Property OpenMruNewGunStockCommand As ICommand Get - If m_cmdOpenMruGunStock Is Nothing Then - m_cmdOpenMruGunStock = New RelayCommand(AddressOf OpenMruGunStock) + If m_cmdOpenMruNewGunStock Is Nothing Then + m_cmdOpenMruNewGunStock = New RelayCommand(AddressOf OpenMruNewGunStock) End If - Return m_cmdOpenMruGunStock + Return m_cmdOpenMruNewGunStock End Get End Property ''' ''' Execute the Open. This method is invoked by the OpenCommand. ''' - Public Shared Sub OpenMruGunStock(ByVal param As Object) + Public Shared Sub OpenMruNewGunStock(ByVal param As Object) Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_")) End Sub -#End Region ' OpenMruGunStockCommand +#End Region ' OpenMruNewGunStockCommand + +#Region "OpenMruNewGunStockCommand" + + ''' + ''' Returns a command that do Open. + ''' + Public Shared ReadOnly Property OpenMruModifyGunStockCommand As ICommand + Get + If m_cmdOpenMruModifyGunStock Is Nothing Then + m_cmdOpenMruModifyGunStock = New RelayCommand(AddressOf OpenMruModifyGunStock) + End If + Return m_cmdOpenMruModifyGunStock + End Get + End Property + + ''' + ''' Execute the Open. This method is invoked by the OpenCommand. + ''' + Public Shared Sub OpenMruModifyGunStock(ByVal param As Object) + Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_")) + End Sub + +#End Region ' OpenMruNewGunStockCommand #End Region diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb index 555e342..5480379 100644 --- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb +++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb @@ -109,7 +109,7 @@ Public Class LayerTreeViewItem MyBase.New(Name) Me.m_Id = Id Me.PictureString = Image - Me.LayerColor = New SolidColorBrush(Color.FromArgb(CByte(CurrColor.A), CByte(CurrColor.R), CByte(CurrColor.G), CByte(CurrColor.B))) + Me.LayerColor = New SolidColorBrush(Color.FromArgb(CByte(CurrColor.A * 255 / 100), CByte(CurrColor.R), CByte(CurrColor.G), CByte(CurrColor.B))) End Sub Sub New(Id As Integer, Name As String) diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml index b6b852f..96dd6a2 100644 --- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml +++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml @@ -22,7 +22,9 @@ + ItemsSource="{Binding Path=LayerList}" + VirtualizingStackPanel.IsVirtualizing = "True" + VirtualizingStackPanel.VirtualizationMode = "Recycling"> diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb index 95ba1c7..599fc6a 100644 --- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb +++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb @@ -159,7 +159,7 @@ Namespace EgtCAM5 Me.HeaderName = HeaderName End Sub) Application.Msn.Register(Application.UPDATEHEADERCOLOR, Sub(HeaderColor As Color3d) - Me.HeaderColor = New SolidColorBrush(Color.FromArgb(CByte(HeaderColor.A), CByte(HeaderColor.R), CByte(HeaderColor.G), CByte(HeaderColor.B))) + Me.HeaderColor = New SolidColorBrush(Color.FromArgb(CByte(HeaderColor.A * 255 / 100), CByte(HeaderColor.R), CByte(HeaderColor.G), CByte(HeaderColor.B))) End Sub) Application.Msn.Register(Application.UPDATEOBJTREEOLDID, Sub(ObjTreeOldId As Integer) Me.m_nObjTreeOldId = ObjTreeOldId @@ -737,7 +737,7 @@ Namespace EgtCAM5 End If Dim nObjs As Integer = EgtGetGroupObjs(nGroupId) - If (nObjs > 20000) Then + If (nObjs > 275000) Then Dim sText As String = "Too many entities (" + nObjs.ToString() + ")" CurrNodColl.Add(New LayerTreeViewItem(GDB_ID.NULL, sText)) Return diff --git a/ProjectPage/ProjectView.xaml.vb b/ProjectPage/ProjectView.xaml.vb index db5577e..218ab7b 100644 --- a/ProjectPage/ProjectView.xaml.vb +++ b/ProjectPage/ProjectView.xaml.vb @@ -52,10 +52,8 @@ Public Class ProjectView If GetPrivateProfileFloatingWinPos(S_GENERAL, "OptionPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then PanelPositioning(OptionPanel, sState, nIndex, nLeft, nTop) End If - m_bDoors = (IniFile.m_nKeyOptions And KEY_OPT.DOORS) <> 0 And - (GetPrivateProfileInt(S_DOORS, K_DDFENABLE, 0) <> 0) - m_bGunStock = (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And - (GetPrivateProfileInt(S_GUNSTOCK, K_MODENABLE, 0) <> 0) + m_bDoors = IniFile.IsActiveDoors() + m_bGunStock = IsActiveGunStock() Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub() ShowPanel.Visibility = Visibility.Visible ViewPanel.Visibility = Visibility.Visible diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index 36e8fab..19ccb80 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -706,13 +706,13 @@ Namespace EgtCAM5 Application.Msn.NotifyColleagues(Application.SETMACHININGMODE) End If If bOk Then - IniFile.m_MruGunStock.Add(IniFile.m_MODFilePath) + IniFile.m_MruNewGunStock.Add(IniFile.m_MODFilePath) Dim sFile As String = String.Empty If EgtGetCurrFilePath(sFile) Then IniFile.m_MruFiles.Add(sFile) End If Else - IniFile.m_MruGunStock.Remove(IniFile.m_MODFilePath) + IniFile.m_MruNewGunStock.Remove(IniFile.m_MODFilePath) Try Dim sErrFilePath As String = Path.ChangeExtension(IniFile.m_MODFilePath, ".txt") Dim fileReader As String = My.Computer.FileSystem.ReadAllText(sErrFilePath) diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml deleted file mode 100644 index b9b8592..0000000 --- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml +++ /dev/null @@ -1,11 +0,0 @@ - - - - - diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb deleted file mode 100644 index 6529245..0000000 --- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class SingleFolderOpenFileDialogView - -End Class diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb deleted file mode 100644 index 40a8453..0000000 --- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class SingleFolderOpenFileDialogViewModel - -End Class