Skip to content
Permalink
Browse files

Added Tools -> Data Directory and fixed image search.

  • Loading branch information...
IAmCoder committed Aug 29, 2013
1 parent 43d68cd commit 969bb5e342f626da1d1753f877c8f2c3af4f46c8
Showing with 3,896 additions and 3,232 deletions.
  1. +1 −0 Categories/Categories.vbproj
  2. +1 −1 Categories/CategoriesListControl.vb
  3. +1 −1 Categories/CategoryListControl.vb
  4. +19 −0 Categories/DataDirectory.vb
  5. +3 −3 Categories/My Project/AssemblyInfo.vb
  6. +65 −65 Categories/ViewControl.vb
  7. +1 −1 Dreams/CompareDreamsControl.vb
  8. +19 −0 Dreams/DataDirectory.vb
  9. +1 −1 Dreams/DreamSignControl.vb
  10. +2 −2 Dreams/DreamViewControl.vb
  11. +1 −0 Dreams/Dreams.vbproj
  12. +1 −1 Dreams/ImageBrowserForm.vb
  13. +3 −3 Dreams/My Project/AssemblyInfo.vb
  14. +1 −1 Dreams/SearchControl.vb
  15. +1 −1 Dreams/YearsListControl.vb
  16. +333 −333 Installer/lucidcode - Lightened Dream.vdproj
  17. +19 −0 Lightened Dream/DataDirectory.vb
  18. +199 −0 Lightened Dream/DataDirectoryForm.Designer.vb
  19. +316 −0 Lightened Dream/DataDirectoryForm.resx
  20. +76 −0 Lightened Dream/DataDirectoryForm.vb
  21. +10 −0 Lightened Dream/Lightened Dream.vbproj
  22. +1,755 −1,746 Lightened Dream/MainForm.Designer.vb
  23. +567 −593 Lightened Dream/MainForm.resx
  24. +4 −7 Lightened Dream/MainForm.vb
  25. +2 −2 Lightened Dream/My Project/AssemblyInfo.vb
  26. +4 −4 Lightened Dream/SplashForm.vb
  27. +1 −1 Lightened Dream/UpdateControl.vb
  28. +19 −0 Lucidity/DataDirectory.vb
  29. +1 −1 Lucidity/ExcerciseViewControl.vb
  30. +1 −1 Lucidity/ExcercisesFolderViewControl.vb
  31. +1 −1 Lucidity/FIELDForm.vb
  32. +1 −1 Lucidity/FolderViewControl.vb
  33. +1 −1 Lucidity/ItemViewControl.vb
  34. +5 −0 Lucidity/Lucidity.vbproj
  35. +2 −2 Lucidity/My Project/AssemblyInfo.vb
  36. +455 −455 Lucidity/REMCyclesControl.vb
  37. +1 −1 Lucidity/RecordingViewControl.vb
  38. +1 −1 Lucidity/SubliminalViewControl.vb
  39. +1 −1 Lucidity/WhyLDForm.vb
  40. +1 −1 Lucidity/YearsListControl.vb
@@ -120,6 +120,7 @@
<Compile Include="CategoryListControl.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="DataDirectory.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
@@ -4,7 +4,7 @@ Imports System.Windows.Forms.DataVisualization.Charting

Public Class CategoriesListControl

Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_strFileName As String
Public Categories As String

@@ -4,7 +4,7 @@ Imports System.Windows.Forms.DataVisualization.Charting

Public Class CategoryListControl

Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_strFileName As String
Public Category As String

@@ -0,0 +1,19 @@
Imports System.IO
Imports System.Xml

Public Class DataDirectory

Public Shared Function GetFolderPath() As String
Dim strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\"
If (File.Exists(strPath & "LightenedDreamDirectory.ld3")) Then
Dim xmlDocDataDirectory As New XmlDocument
xmlDocDataDirectory.Load(strPath & "LightenedDreamDirectory.ld3")
If Directory.Exists(xmlDocDataDirectory.DocumentElement.SelectSingleNode("Directory").InnerText) Then
Return xmlDocDataDirectory.DocumentElement.SelectSingleNode("Directory").InnerText
End If
End If

Return Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\"
End Function

End Class
@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("lucidcode")>
<Assembly: AssemblyProduct("Categories")>
<Assembly: AssemblyCopyright("Copyright © lucidcode 2012")>
<Assembly: AssemblyCopyright("Copyright © lucidcode 2013")>
<Assembly: AssemblyTrademark("")>

<Assembly: ComVisible(False)>
@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:

<Assembly: AssemblyVersion("3.2.4")>
<Assembly: AssemblyFileVersion("3.2.4.0")>
<Assembly: AssemblyVersion("3.2.6")>
<Assembly: AssemblyFileVersion("3.2.6.0")>
@@ -5,7 +5,7 @@ Imports System.Windows.Forms.DataVisualization.Charting

Public Class ViewControl

Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Public FileName As String
Public Event SelectDream(ByVal DreamDate As String, ByVal Title As String)
Private m_strCategory As String
@@ -158,7 +158,7 @@ Public Class ViewControl
Public Description As String
Public Keywords As String
Public FileName As String
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"

Public Event RandomWord(ByVal Word As String)

@@ -267,75 +267,75 @@ Public Class ViewControl

End Class

Private Sub lstDreams_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstDreams.DoubleClick
If lstDreams.SelectedItems.Count = 0 Then Return
RaiseEvent SelectDream(lstDreams.SelectedItems(0).Text, lstDreams.SelectedItems(0).SubItems(1).Text)
End Sub

Private Sub graph_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles graph.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim result As HitTestResult = graph.HitTest(e.X, e.Y)
Dim point As DataPoint
If result.ChartElementType = ChartElementType.DataPoint Or result.ChartElementType = ChartElementType.DataPointLabel Or result.ChartElementType = ChartElementType.LegendItem Then
If result.Series.Name.StartsWith("DreamSeries") Then
' Set cursor type
Me.Cursor = Cursors.Hand

' Find selected data point
point = result.Series.Points(result.PointIndex)
RaiseEvent SelectDream(point.Tag, point.ToolTip)
End If
End If
End If
End Sub

Private Sub graph_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles graph.MouseMove
Try
Dim result As HitTestResult = graph.HitTest(e.X, e.Y)

' Reset Data Point Attributes
Dim point As DataPoint
For Each objSeries In graph.Series
If objSeries.Name.StartsWith("DreamSeries") Then
For Each point In objSeries.Points
point.Color = Color.FromArgb(200, 65, 140, 240)
Next point
End If
Next
Private Sub lstDreams_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstDreams.DoubleClick
If lstDreams.SelectedItems.Count = 0 Then Return
RaiseEvent SelectDream(lstDreams.SelectedItems(0).Text, lstDreams.SelectedItems(0).SubItems(1).Text)
End Sub

If result.ChartElementType = ChartElementType.DataPoint Or result.ChartElementType = ChartElementType.DataPointLabel Or result.ChartElementType = ChartElementType.LegendItem Then
If result.Series.Name.StartsWith("DreamSeries") Then
Private Sub graph_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles graph.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim result As HitTestResult = graph.HitTest(e.X, e.Y)
Dim point As DataPoint
If result.ChartElementType = ChartElementType.DataPoint Or result.ChartElementType = ChartElementType.DataPointLabel Or result.ChartElementType = ChartElementType.LegendItem Then
If result.Series.Name.StartsWith("DreamSeries") Then
' Set cursor type
Me.Cursor = Cursors.Hand

' Find selected data point
point = result.Series.Points(result.PointIndex)
RaiseEvent SelectDream(point.Tag, point.ToolTip)
End If
End If
End If
End Sub

' Set cursor type
Me.Cursor = Cursors.Hand
Private Sub graph_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles graph.MouseMove
Try
Dim result As HitTestResult = graph.HitTest(e.X, e.Y)

' Reset Data Point Attributes
Dim point As DataPoint
For Each objSeries In graph.Series
If objSeries.Name.StartsWith("DreamSeries") Then
For Each point In objSeries.Points
point.Color = Color.FromArgb(200, 65, 140, 240)
Next point
End If
Next

' Find selected data point
point = result.Series.Points(result.PointIndex)
point.Color = Color.FromArgb(255, 65, 140, 240) ' Color.LightSteelBlue
Else
' Set default cursor
Me.Cursor = Cursors.Default
End If
Else
' Set default cursor
Me.Cursor = Cursors.Default
End If
If result.ChartElementType = ChartElementType.DataPoint Or result.ChartElementType = ChartElementType.DataPointLabel Or result.ChartElementType = ChartElementType.LegendItem Then
If result.Series.Name.StartsWith("DreamSeries") Then

' Set cursor type
Me.Cursor = Cursors.Hand

' Find selected data point
point = result.Series.Points(result.PointIndex)
point.Color = Color.FromArgb(255, 65, 140, 240) ' Color.LightSteelBlue
Else
' Set default cursor
Me.Cursor = Cursors.Default
End If
Else
' Set default cursor
Me.Cursor = Cursors.Default
End If

Catch ex As Exception
Catch ex As Exception

End Try
End Sub
End Try
End Sub

Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
lblTitle.Text = "Categories - " + m_strCategory + "s - " + txtName.Text
Changed = True
End Sub
Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
lblTitle.Text = "Categories - " + m_strCategory + "s - " + txtName.Text
Changed = True
End Sub

Private Sub txtKeywords_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKeywords.TextChanged
Changed = True
End Sub
Private Sub txtKeywords_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKeywords.TextChanged
Changed = True
End Sub

Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
Changed = True
End Sub
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
Changed = True
End Sub
End Class
@@ -12,7 +12,7 @@ Public Class CompareDreamsControl

Public OnlyCategories As Boolean = False

Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_strCategories As String = "Characters,Locations,Objects,Actions,Themes,Emotions"
Private m_boolSearching As Boolean = False

@@ -0,0 +1,19 @@
Imports System.IO
Imports System.Xml

Public Class DataDirectory

Public Shared Function GetFolderPath() As String
Dim strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\"
If (File.Exists(strPath & "LightenedDreamDirectory.ld3")) Then
Dim xmlDocDataDirectory As New XmlDocument
xmlDocDataDirectory.Load(strPath & "LightenedDreamDirectory.ld3")
If Directory.Exists(xmlDocDataDirectory.DocumentElement.SelectSingleNode("Directory").InnerText) Then
Return xmlDocDataDirectory.DocumentElement.SelectSingleNode("Directory").InnerText
End If
End If

Return Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\"
End Function

End Class
@@ -9,7 +9,7 @@ Public Class DreamSignControl
Public Event MonthSelected(ByVal Month As String)
Public Event CategoryFileSelected(ByVal Category As String, ByVal Item As String)
Public Event CategoryFileCreated(ByVal Category As String, ByVal Item As String)
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_strCategories As String = "Characters,Locations,Objects,Actions,Themes,Emotions"
Private m_boolSearching As Boolean = False

@@ -5,7 +5,7 @@ Public Class DreamViewControl

Public Words As Integer
Public FileName As String
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_strCategories As String = "Characters,Locations,Objects,Actions,Themes,Emotions"
Private m_boolLoading As Boolean = False
Private m_objSpeechSynthesizer As New System.Speech.Synthesis.SpeechSynthesizer()
@@ -307,7 +307,7 @@ Public Class DreamViewControl
Public Dream As String
Public Completed As Boolean
Private m_strCategories As String = "Characters,Locations,Objects,Actions,Themes,Emotions"
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"

Public Event RandomWord(ByVal Word As String)
Public Event AddCategoryItem(ByVal Category As String, ByVal Item As String)
@@ -124,6 +124,7 @@
<Compile Include="CompareDreamsControl.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="DataDirectory.vb" />
<Compile Include="DreamSignControl.Designer.vb">
<DependentUpon>DreamSignControl.vb</DependentUpon>
</Compile>
@@ -148,7 +148,7 @@ Public Class ImageBrowserForm
Dim intStart As Integer = 0
Dim intEnd As Integer = 0

intStart = strSource.IndexOf("istock.search.Handler.fireNewResultEvents", intStart)
intStart = strSource.IndexOf("istock.search.event.fire", intStart)

Do
Dim intLastIndex = intStart
@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("lucidcode")>
<Assembly: AssemblyProduct("Dreams")>
<Assembly: AssemblyCopyright("Copyright © lucidcode 2012")>
<Assembly: AssemblyCopyright("Copyright © lucidcode 2013")>
<Assembly: AssemblyTrademark("")>

<Assembly: ComVisible(False)>
@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:

<Assembly: AssemblyVersion("3.2.3")>
<Assembly: AssemblyFileVersion("3.2.3.0")>
<Assembly: AssemblyVersion("3.2.6")>
<Assembly: AssemblyFileVersion("3.2.6.0")>
@@ -7,7 +7,7 @@ Public Class SearchControl
Public Event MonthSelected(ByVal Month As String)
Public Event CategoryFileSelected(ByVal Category As String, ByVal Item As String)
Public Event CategoryFileCreated(ByVal Category As String, ByVal Item As String)
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_boolSearching As Boolean = False
Private objDreamSeries As Series

@@ -5,7 +5,7 @@ Imports System.Windows.Forms.DataVisualization.Charting
Public Class YearsListControl

Public Event MonthSelected(ByVal Month As String)
Private m_strPath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\lucidcode\Lightened Dream\"
Private m_strPath As String = DataDirectory.GetFolderPath() + "\Lightened Dream\"
Private m_boolSearching As Boolean = False
Private objDreamSeries As Series

Oops, something went wrong.

0 comments on commit 969bb5e

Please sign in to comment.
You can’t perform that action at this time.