initial commit

This commit is contained in:
Lynne Megido 2019-04-21 02:29:16 +10:00
commit a121148f71
Signed by: lynnesbian
GPG Key ID: FB7B970303ACE499
203 changed files with 72275 additions and 0 deletions

1500
About.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

176
About.resx Normal file
View File

@ -0,0 +1,176 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>199, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACABAMAAAAxEHz4AAAABGdBTUEAALGPC/xhBQAAAA9QTFRFAAAA
0NDQ/0Hk/6jy////kCl+CgAAAIJJREFUaN7t07ERwCAMQ1FW8ApZISuw/0xJkUIhEI6jk78ac9i8ypRj
MwAeQJWUO3UxAL6AQjMUwBvoYQD5gBYCyAu0Z4BcwGfoZ6EAcgGjPoAvcD7R+6VFArABtI4eA/gDukht
X88A3oBWgLwAfwGg91hnXhCALbASAA8gNgNgAERcnnlze5/OTgMAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAMAAAD04JH5AAAABGdBTUEAALGPC/xhBQAAAwBQTFRFAAAA
AQABDg4ODw8P/wDc6Ojo////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/Xoh9wAAAAlwSFlzAAAS
cwAAEnMBjCK5BwAAABl0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMC4xMzQDW3oAAAKOSURBVHhe7Zpb
biQxDAOzz/sfeeEiATENrQ1kJj1BoPoqkhO3DpC3Yfga/H4J/vjCzc344ws3N+OPL9zcjD++cHMz/vjC
zc3448Pwan4s/v4ffmR/Mjw9B8wBwk1H7KFFlCgowyajQkVL7KFFlCgowyajQkVL7KFFlCgowyajQkVL
7KFFlCgowyajQkVL7KFFlCgowyajQkVL7KFFlCgowyajQkVL7CgoQ+RSLBQTkVGhoiV2FJQhcikWionI
qFDREjsKyhC5FAvFRGRUqGiJHQVliFyKhWIiMipUtMSOgjJELsVCMREZFSpaYi/FQrF4UBk2GRUqWmIv
xUKxeFAZNhkVKlpiL8VCsXhQGTYZFSpaYi/FQrF4UBk2GRUqWmIvxUKxeFAZNhkVKlpiDwUyRJYW1zIy
KlS0xB4KZIgsLa5lZFSoaIk9FMgQWVpcy8ioUNESeyiQIbK0uJaRUaGiJfZQIENkaXEtI6NCRUvsoUCG
yNLiWkZGhYqW2EOLKEMvsAg3CzcLNx2xhxZRhl5gEW4WbhZuOmIPLaIMvcAi3CzcLNx0xB5aRBl6gUW4
WbhZuOmIPbSIMvQCi3CzcLNw03HaH4CnhZuO0/4APC3cdJz2B+Bp4abjtD8ATws3Haf9AXhauOnY7Ewt
/sGBn4vjH2x2phb/4MAcMAc85wD7e1iOZ8wBc8AnHiBO+xwwB3ziASy7V2EOmAO+yQEt/sGBOWAOeM4B
9vewHM+YA+aATzxAnPY5YA74zgew7F6FOWAOeM4BLf7BgTlgDnjOAfaPMAfMAV/kgA/9Wy/lI9+GX4s5
YA7QU8Pwcv68BH984eZm/PGFm5vxxxdubsYfX7i5GX984eZm/PFheClvb/8AP3vyrOtaVvAAAAAASUVO
RK5CYII=
</value>
</data>
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACABAMAAAAxEHz4AAAABGdBTUEAALGPC/xhBQAAABhQTFRFAAAA
BwcHCgAIGRkZIgAd/wDc0NDQ////gg3c7AAAAMpJREFUaN7t1sENwyAMBdC/gldgBVZgha7QFbx+D02I
RRSJ1gRQ+P8I+B2CgSCE5EgIDYCXK/ADyQekJwAT9IGekrQ+DQCcB/EDAAIECDweyOO41NETwDd9gX2l
rcJqwLZ0bcDUTgD808oNgEIxZQsBuZ1WBhQEVMsTZGZ0FGDP9p1AbQgQILAGsE9u18fxj2GKbgbKhy2/
d2bo6QCKx+P4pr0A7kLZygOAmhAgQIAAAQJzAeIHRKIj0gCIb1ficAB+QMYDvm30AoIPHVzY4einv4cA
AAAASUVORK5CYII=
</value>
</data>
<metadata name="BlinkenlightsTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

74
About.vb Normal file
View File

@ -0,0 +1,74 @@
Public Class About
Dim BlinkenLights(50) As RadioButton
Dim FirstLightFirstRound As Boolean = False
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub About_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon() 'so you can see the icon in the taskbar
For i = 1 To 50
BlinkenLights(i - 1) = Controls.Find("RadioButton" & i, True)(0)
If (i Mod 3) = 0 Then BlinkenLights(i - 1).Checked = True
Next
BlinkenLights(0).Checked = True
BlinkenlightsTimer.Start()
AnimationCheckbox.Checked = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Process.Start("Changelog.txt")
ChangelogViewer.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Process.Start("http://25.60.11.62/wiki/index.php/Notepad_Ultra")
End Sub
Private Sub BlinkenlightsTimer_Tick(sender As Object, e As EventArgs) Handles BlinkenlightsTimer.Tick
'i regret nothing.
For i = 49 To 0 Step -1
If BlinkenLights(i).Checked Then
If FirstLightFirstRound = True And i = 0 Then
FirstLightFirstRound = False
Else
BlinkenLights(i).Checked = False
If i <> 49 Then
BlinkenLights(i + 1).Checked = True
Else
BlinkenLights(0).Checked = True
FirstLightFirstRound = True
End If
End If
End If
Next
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click, RadioButton2.Click, RadioButton3.Click, RadioButton4.Click, RadioButton5.Click, RadioButton6.Click, RadioButton7.Click, RadioButton8.Click, RadioButton9.Click, RadioButton10.Click, RadioButton11.Click, RadioButton12.Click, RadioButton13.Click, RadioButton14.Click, RadioButton15.Click, RadioButton16.Click, RadioButton17.Click, RadioButton18.Click, RadioButton19.Click, RadioButton20.Click, RadioButton21.Click, RadioButton22.Click, RadioButton23.Click, RadioButton24.Click, RadioButton25.Click, RadioButton26.Click, RadioButton27.Click, RadioButton28.Click, RadioButton29.Click, RadioButton30.Click, RadioButton31.Click, RadioButton32.Click, RadioButton33.Click, RadioButton34.Click, RadioButton35.Click, RadioButton36.Click, RadioButton37.Click, RadioButton38.Click, RadioButton39.Click, RadioButton40.Click, RadioButton41.Click, RadioButton42.Click, RadioButton43.Click, RadioButton44.Click, RadioButton45.Click, RadioButton46.Click, RadioButton47.Click, RadioButton48.Click, RadioButton49.Click, RadioButton50.Click
'once again: i regret nothing.
BlinkenlightsTimer.Stop()
Dim modstep As Integer = Rnd() * 7 + 2
For i = 1 To 50
BlinkenLights(i - 1).Checked = False
If (i Mod modstep) = 0 Then BlinkenLights(i - 1).Checked = True
Next
If Not BlinkenLights(0).Checked Then BlinkenLights(0).Checked = True
BlinkenlightsTimer.Interval = Rnd() * 250 + 50
BlinkenlightsTimer.Start()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
For i = 0 To 49
BlinkenLights(i).Enabled = Not BlinkenLights(i).Enabled
Next
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles AnimationCheckbox.CheckedChanged
For i = 0 To 49
BlinkenLights(i).Visible = AnimationCheckbox.Checked
Next
ProgressBar1.Visible = AnimationCheckbox.Checked
If Not AnimationCheckbox.Checked Then BlinkenlightsTimer.Stop() Else BlinkenlightsTimer.Start()
End Sub
End Class

205
App.config Normal file
View File

@ -0,0 +1,205 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Notepad_Ultra.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
</startup>
<userSettings>
<Notepad_Ultra.My.MySettings>
<setting name="Font" serializeAs="String">
<value>Lucida Console, 12pt</value>
</setting>
<setting name="WordWrap" serializeAs="String">
<value>True</value>
</setting>
<setting name="WorkingDirectory" serializeAs="String">
<value>///FIRST RUN///</value>
</setting>
<setting name="ShowSidebar" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultEncoding" serializeAs="String">
<value>0</value>
</setting>
<setting name="GreenNotifications" serializeAs="String">
<value>True</value>
</setting>
<setting name="MoveTransparency" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoSteps" serializeAs="String">
<value>50</value>
</setting>
<setting name="UndoMaxMemory" serializeAs="String">
<value>256</value>
</setting>
<setting name="StandardTextBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardTextFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextFG" serializeAs="String">
<value>224, 224, 224</value>
</setting>
<setting name="StandardNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="StandardNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="StandardNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="StandardNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryTextBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="TertiaryTextFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="TertiaryStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="NiteStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="SupportedExtensions" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string>txt</string>
<string>cfg</string>
<string>ini</string>
<string>log</string>
</ArrayOfString>
</value>
</setting>
<setting name="StandardSidebarFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardSidebarBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="TertiarySidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiarySidebarBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="NiteNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="NiteNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="NiteNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="NiteNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="TertiaryNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="TertiaryNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="TertiaryNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="CurrentTheme" serializeAs="String">
<value>0</value>
</setting>
<setting name="StatBarSize" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarChars" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarDate" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarDir" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarFontSize" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarStatus" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarMode" serializeAs="String">
<value>True</value>
</setting>
<setting name="UseRecycleBin" serializeAs="String">
<value>True</value>
</setting>
<setting name="PresetDirectories" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string />
</ArrayOfString>
</value>
</setting>
<setting name="UndoUnlimitedSteps" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoMemoryLimit" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultFileAction" serializeAs="String">
<value>0</value>
</setting>
</Notepad_Ultra.My.MySettings>
</userSettings>
</configuration>

10
ApplicationEvents.vb Normal file
View File

@ -0,0 +1,10 @@
Namespace My
' The following events are available for MyApplication:
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
End Class
End Namespace

215
Changelog.txt Normal file
View File

@ -0,0 +1,215 @@
CHANGELOG
Really minor things (fixing typos, adding comments, minor restructures) aren't mentioned.
Alpha 0.1 - Genesis
Initial version!
Reading files
Writing files
Alpha 0.2 - The Basics
Support for displaying directories
Rudimentary encoding support
Scaling fixes
Alpha 0.3 - Cementing the Basics
Complete (I think) encoding support
Full directory support!
UI enhancements
Started working on settings
Alpha 0.4 - The Big One
Fixed numerous bugs related to file deletion (both internal and external)
Made Save As open the saved file after saving
Made "Change font size" options work
Added shortcuts for deleting files and for refreshing the file picker
Made font-change shortcuts work
"Couldn't detect encoding" message boxes have been replaced with a much less obtrusive warning in the bottom-left
Changed Save As from Ctrl-Alt-S to Ctrl-Shift-S (because Ctrl-Alt-S opens a System Information dialogue on my Spectre) (Suggested by Pet!)
Fixed issue where filepicker without scrollbar caused text to overflow from window (Spotted by Pet)
Fixed issue where deleting a file, or opening a new directory, followed by clicking on blank space in the file picker, would cause a crash (Pet)
Added insert time/date functionality
Alpha 0.5 - When Things got *Really* Serious
Settings dialogue reads settings, but can't write them yet (It's 0049 and I'm tired)
Cleaned up changelog ;p
Added supported for 3 tiers of notifications
Changed font size changing mechanics, and made it into a dropdown instead of a split button
Moved notifications to the right-hand side, because avoiding text jumping around is more important than making sure they're visible in narrow windows (I think)
Added a FIFO queue for notifications!
Fixed an issue where the filepicker would be much too wide on low DPI screens
Added first settings tooltip
Created a form for theme customisation
Added file size and creation date info to the file info dialogue
Alpha 0.6 - Tweaks and Features
(Partial) THEME SUPPORT! So far, saving is not supported. Themes can be edited, but not saved. Theme support was sorta Pet's idea (she thought it would be cool to be able to modify the night mode's colours, I took it from there)
Added a form to change supported file extensions
Added support for extensions other than txt
Replaced night mode toggle with support for 3 customisable themes
Added a directory watch feature. If any files in the base directory are deleted/renamed/created, the filepicker will automatically refresh.
Fixed some rather nasty bugs related to the directory watcher
Implemented a Find feature! However, when the textbox has been scrolled to the bottom, each click of the "next" button causes it to jump one line up or down.
Alpha 0.7 - The Theme Update
Themes are now saved and remembered between sessions!
Fixed a possible bug where changing directories would not update the directory watcher
All options in the settings menu now have tooltips
Settings now save
(Very) small speed optimisations
HUGE speed increase to saving, restoring it to Alpha 0.5 speed. The directory watcher refreshed the file list over and over again while saving, and saving could take anywhere up to three seconds!
Added a warning that displays if you try to exit or change file without saving your changes
Alpha 0.8 - Serious Business
Fixed an issue where using UNC paths would break upon going up a level
Converted the changelog from a .vb file to a .txt file, which is what it should've been all along
Moved a fair amount of functions into Extensions.vb so they can be accessed globally, which means less reinvention of the wheel
Added a form for editing the preset directories, I'll work on it when it's not 0340
Added in the default colours for the standard theme. Fuck this, I'm going to sleep. See you in 0.9!
Alpha 0.9 - It's the Little Things
Fixed a bug that caused notification theme settings not to be displayed in the theme previewer
Fixed bugs related to theme saving and loading
Added and implemented restoration of default themes
Started work on status bar options
Alpha 0.10 - Slow Day
Status bar options are now fully implemented
Minor code cleanups here and there
[I thought I was going to sleep at this point, but my sleep schedule is already fucked badly, so I didn't]
Removed debug code in Find dialogue
Started work on replace (as in find & replace) dialogue
Added an option to highlight all instances of the find string. Sleep is for the weak.
Copied the highlight all code over to the replace dialogue. It's 0258, and I think I'll start being healthy and going to sleep before 0300, so I'm out.
Alpha 0.11 - Fulfilling Promises
Fixed a bug that caused the find dialogue to count, but ignore the last character of the file when searching
Fixed a bug that made NPU fail to load the user's settings if an error occurred during startup
Implemented "Match Case" and "Whole Word" for the find and replace dialogues!
Fixed a bug that arose when the File Picker automatically reselected the file you were working on. If the file had unsaved changes, you would be asked to save those changes or discard them and reload from the disk, instead of just keeping them in memory. Thanks to Pet for telling me.
Replace dialogue is now capable of replacing
Duplication support
NPU now prevents you from going up from the root directory of a given path
Files can now be right-clicked in the sidebar, presenting the user with options to delete or reveal the file
Alpha 0.12 - Some Semblance of Professionalism
Printing support!
Added a placeholder(?) icon
Added a shitty licence to stop people stealing the glorious, mountainous revenue I expect to make ($0.00) from this one-of-a-kind, expertly written divine experience in the form of a beautiful piece of perfect software. The licence, named with the exceptionally witty and clever title of "Lynnecence 1.0", is pretty much MPL's chill, unemployed cousin who lets you do irresponsible stuff while still worrying about you
File loading is now asynchronous, and there's even a dandy little progress bar!
Added a warning message for when a file takes more than 10 seconds to load
Fixed a crash upon right-clicking on empty space in the File Picker (thanks Pet)
Sorted TODO in Changelog.txt by importance (in my opinion)
Added PostSharp (https://www.postsharp.net/download) because I just discovered that you can add PostSharp
Alpha 0.13 - The THICC Update
Added a splash screen!
Started working on handling "Open with"
Fixed a bug where anything typed the first second after saving a file would be deleted
Files save more quickly
Fixed a bug that caused the title bar to end up like "Notepad Ultra: file.txt (Unsaved) (Unsaved) (Unsaved) (Unsaved) (Unsaved)" when saving the same file multiple times
Open With now works, probably! ~u0
You can now no longer get info, duplicate, or delete files that don't yet exist
Removed PostSharp because I decided to make my own undo function because I'm hardcore and doesn't afraid of anything
UNDO SUPPORT! \0u0/
Partial undo settings support!
Changed a few " "s in the changelog to tabs
Beta 0.1 - General Use, Maybe?
Default file open settings are now used
Updated the icon to reflect beta state
Added a changelog viewer to the About menu
Finally added the most important feature: The "about" dialogue has a cool light display! And just in time for Christmas, too! ;p
Disabled pasting of rich text (I didn't realise it was enabled) because Notepad Ultra isn't meant to replace WordPad
Lots of little changes!
Beta 0.2 - User Friendlier
Improved saving of new files
Fixed a crash when using the find operation
Removed Unix2Dos dependency, increasing speed and reliability while reducing file size! 0u0
Renamed RemoveEnding to RemoveLast
Main window is now titled "file.txt - Notepad Ultra" instead of "Notepad Ultra: file.txt"
Fixed a bug that made changing supported extensions not work
[NOTE: Development will be slowing down from now own, i'm working on some private projects ~u0]
Beta 0.3 - Can she fix it? Yes she can! (So much for development slowing down...)
Fixed another bug related to supported extensions
Slight code improvements
Prevented removal of the txt file extension
Page setup
When closing with an unsaved new file, the prompt read 'Save changes made to ""?', which has been replaced with 'Save changes made to new file?'
Automatic insertion of bullet points (and dashes) is now possible!
Added a button to toggle overtype
Rearranged the file menu
Removed the border around the text file holder
Added the border back, because it looks terrible if your filepicker doesn't have a scrollbar (thanks pet)
Fixed yet /another/ bug related to supported extensions
Fixed a crash that would occur when you opened, closed, and reopened the settings dialogue
Fixed some inconsistencies between spaces and tabs in some files
Fixed a bug where cancelling the open file dialogue would leave NPU running in the background
If your working directory cannot be found when you open a passed file, disable the copy and move options rather than the set directory option
Fixed a bug that caused npu to close half a second after opening a passed file because I'm an idiot
Fixed a stupid, stupid bug with the GetFileExtension() function because I'm a moron
Fixed many a bug related to opening passed files
Updated Extensions.vb with the latest version from another classic Lynnear Software title, "Waifu2X GUI"
Commented the FUCK out of the main file! Now this is my idea of a fun Saturday night! And by night, I mean 0243!
Beta 0.4 - Out, damned bug!
If a file fails to load, instead of freezing the program and requiring a taskkill (or similar), it resets to the default state
Updated the "copyright" to say 2017
Removed pointless rgbColour function
Fixed many, many bugs and inefficiencies with automatic bullets
Also, automatic bullets now have an additional space behind them, to make them neater!
Fixed bugs with undo
Undo limit now defaults to 50 instead of 10, and is capped at 500 instead of 100 (unlimited is still available). Memory is cheap! ;p
Instead of defaulting to my personal text files folder on first run, npu now defaults to the user's documents folder!
Removed a goto statement of very questionable necessity
Trying to open directories that you can't open (e.g. C:\Documents and Settings\) no longer crashes npu
Theme editor's "Copy" buttons now work!
Fixed inconsistencies with sizing
Implemented a rather icky fix for auto bullets causing a crash when word wrap was on
Beta 0.5 - The Breddy Gud Update
Now supports renaming files!
Also, added move functionality!
Some cheeky DPI fixes
Default theme buttons!
Rearranged theme customisation UI slightly
Redo is now Ctrl Y as it should be, and, not Ctrl Shift Z. Th-thanks, Microsoft
Fixed a small issue with the redraw function causing the text file holder to slightly overlap the status bar if the sidebar was hidden
Fixed a bug where trying to print without an installed printer would cause a crash, maybe?
Fixed an issue that caused newly moved/renamed files to be treated as new files
Beta 0.6 - The PHP Era
Files can be renamed via the right click menu
Right click menu no longer works on currently open item (intentional)
Find & replace is now the standard Ctrl H, not Ctrl G
Updated the "copyright" on the about page
Beta 0.7 - Unfuckery
Right click menu works on currently open item ~u0
Added wiki link to about box
Added a cancel option to the "Save changes before closing?" dialogue
Very minor corrections
Clicking a notification now dismisses it and shows the next one rather than just turning it invisible and still having it be there
Working on fixing a bug that I can't reproduce within the debugger that causes NPU to crash when closing an unsaved file
NPU no longer clears the clipboard on exit
Files save faster now
Removed "no compatible files" notification
Added "Use notepad.exe" button to open passed file dialogue (In addition to Relocate/Move/Copy)
File extensions are now case insensitive
TODO:
Custom path quick links!
Fix weird "Replace All" behaviour
Implement undo settings
Handle being located in Program Files, or anywhere else where you need admin for everything
Resizeable sidebar?
Show ellipses if name in filepicker is too long?
Encryption?
Make it so that you can't use NPU while any settings dialogues are open
Export/Import themes
Occasionally crashes on exit. Replicate, debug, fix
COMMITS:
Style commit messages like this
[VERSION], [TRADEMARK WITTY DIALOGUE]. New/Changed: [NEW STUFF]. Fixed: [FIXES]. Removed: [REMOVED STUFF].

77
Changelog.vb Normal file
View File

@ -0,0 +1,77 @@
Module Changelog
'CHANGELOG
'Alpha 0.1: Initial version. Open, save, delete.
'Alpha 0.2
' Support for displaying directories
' Rudimentary encoding support
' Scaling fixes
'Alpha 0.3
' Complete (I think) encoding support
' Full directory support!
' UI enhancements
' Started working on settings
'Alpha 0.4 (The big one)
' Fixed numerous bugs related To file deletion (both internal And external)
' Made Save As open the saved file after saving
' Made "Change font size" options work
' Added shortcuts for deleting files and for refreshing the file picker
' Made font-change shortcuts work
' "Couldn't detect encoding" message boxes have been replaced with a much less obtrusive warning in the bottom-left
' Changed Save As from Ctrl-Alt-S to Ctrl-Shift-S (because Ctrl-Alt-S opens a System Information dialogue on my Spectre)
' Fixed issue where filepicker without scrollbar caused text to overflow from window
' Fixed issue where deleting a file, or opening a new directory, followed by clicking on blank space in the file picker, would cause a crash
' Added insert time/date functionality
'Alpha 0.5 (When things got *really* serious)
' Settings dialogue reads settings, but can't write them yet (It's 0049 and I'm tired)
' Cleaned up changelog ;p
' Added supported for 3 tiers of notifications
' Changed font size changing mechanics, and made it into a dropdown instead of a split button
' Moved notifications to the right-hand side, because avoiding text jumping around is more important than making sure they're visible in narrow windows (I think)
' Added a FIFO queue for notifications!
' Fixed an issue where the filepicker would be much too wide on low DPI screens
' Added first settings tooltip
' Created a form for theme customisation
' Added file size and creation date info to the file info dialogue
'Alpha 0.6
' (Partial) THEME SUPPORT! So far, saving is not supported. Themes can be edited, but not saved.
' Added a form to change supported file extensions
' Added support for extensions other than txt
' Replaced night mode toggle with support for 3 customisable themes
' Added a directory watch feature. If any files in the base directory are deleted/renamed/created, the filepicker will automatically refresh.
' Fixed some rather nasty bugs related to the directory watcher
' Implemented a Find feature. However, when the textbox has been scrolled to the bottom, each click of the "next" button causes it to jump one line up or down.
'Alpha 0.7
' Themes are now saved and remembered between sessions!
' Fixed a possible bug where changing directories would not update the directory watcher
' All options in the settings menu now have tooltips
' Settings now save
' (Very) small speed optimisations
' HUGE speed increase to saving, restoring it to Alpha 0.5 speed. The directory watcher refreshed the file list over and over again while saving, and saving could take anywhere up to three seconds!
' Added a warning that displays if you try to exit or change file without saving your changes
'Alpha 0.8
' Fixed an issue where using UNC paths would break upon going up a level
'TODO:
' Bullet points
' Undo
' Replace
' Make right-click on sidebar change file
' Make right-click menu on sidebar actually do stuff
' Status Bar options (Whether or not to show or hide certain things. Notifications CAN NOT BE DISABLED. They're really important!)
' Show ellipses if name in filepicker is too long?
' Make it so that you can't use NPU while any settings dialogues are open
' Resizeable sidebar?
' Export/Import themes
' Put "Go Up" in filepicker
' Default themes
' Right click to restore defaults for theme options
End Module

64
ChangelogViewer.Designer.vb generated Normal file
View File

@ -0,0 +1,64 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ChangelogViewer
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RichTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(1, 1)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(270, 197)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = "Reading..."
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(316, 75)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(122, 17)
Me.Label1.TabIndex = 1
Me.Label1.Text = "no waifu = no laifu"
'
'ChangelogViewer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(868, 473)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "ChangelogViewer"
Me.Text = "Changelog"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Label1 As Label
End Class

120
ChangelogViewer.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

14
ChangelogViewer.vb Normal file
View File

@ -0,0 +1,14 @@
Public Class ChangelogViewer
Private Sub ChangelogViewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
RichTextBox1.Top = 0
RichTextBox1.Left = 0
Redraw()
Refresh()
RichTextBox1.Text = My.Computer.FileSystem.ReadAllText("Changelog.txt")
End Sub
Public Sub Redraw() Handles Me.ResizeBegin, Me.ResizeEnd, Me.Resize
RichTextBox1.Width = Width - 20
RichTextBox1.Height = Height - 47
End Sub
End Class

310
Customise Colours.Designer.vb generated Normal file
View File

@ -0,0 +1,310 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Customise_Colours
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Customise_Colours))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.TextButton = New System.Windows.Forms.Button()
Me.BackgroundButton = New System.Windows.Forms.Button()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.ColourChooser = New System.Windows.Forms.ColorDialog()
Me.MockTextBox = New System.Windows.Forms.Label()
Me.MockFilePicker = New System.Windows.Forms.Label()
Me.VScrollBar1 = New System.Windows.Forms.VScrollBar()
Me.Label3 = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.MockCaption = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.VScrollBar1)
Me.GroupBox1.Controls.Add(Me.MockFilePicker)
Me.GroupBox1.Controls.Add(Me.MockTextBox)
Me.GroupBox1.Controls.Add(Me.GroupBox5)
Me.GroupBox1.Controls.Add(Me.GroupBox4)
Me.GroupBox1.Controls.Add(Me.GroupBox3)
Me.GroupBox1.Controls.Add(Me.GroupBox2)
Me.GroupBox1.Controls.Add(Me.MockCaption)
Me.GroupBox1.Location = New System.Drawing.Point(13, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(417, 387)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "DON'T TOUCH THAT"
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.Button6)
Me.GroupBox5.Controls.Add(Me.Button7)
Me.GroupBox5.Location = New System.Drawing.Point(198, 34)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(84, 100)
Me.GroupBox5.TabIndex = 3
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "StatusBar"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(8, 21)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(67, 31)
Me.Button6.TabIndex = 0
Me.Button6.Text = "Text"
Me.Button6.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(8, 58)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(67, 31)
Me.Button7.TabIndex = 1
Me.Button7.Text = "Back"
Me.Button7.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Button4)
Me.GroupBox4.Controls.Add(Me.Button3)
Me.GroupBox4.Controls.Add(Me.ComboBox2)
Me.GroupBox4.Location = New System.Drawing.Point(288, 34)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(123, 100)
Me.GroupBox4.TabIndex = 2
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Notifications"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Button1)
Me.GroupBox3.Controls.Add(Me.Button2)
Me.GroupBox3.Location = New System.Drawing.Point(108, 34)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(84, 100)
Me.GroupBox3.TabIndex = 2
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Sidebar"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 21)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(67, 31)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Text"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(8, 58)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(67, 31)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Back"
Me.Button2.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.TextButton)
Me.GroupBox2.Controls.Add(Me.BackgroundButton)
Me.GroupBox2.Location = New System.Drawing.Point(9, 34)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(84, 100)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Editor"
'
'TextButton
'
Me.TextButton.Location = New System.Drawing.Point(8, 21)
Me.TextButton.Name = "TextButton"
Me.TextButton.Size = New System.Drawing.Size(67, 31)
Me.TextButton.TabIndex = 0
Me.TextButton.Text = "Text"
Me.TextButton.UseVisualStyleBackColor = True
'
'BackgroundButton
'
Me.BackgroundButton.Location = New System.Drawing.Point(8, 58)
Me.BackgroundButton.Name = "BackgroundButton"
Me.BackgroundButton.Size = New System.Drawing.Size(67, 31)
Me.BackgroundButton.TabIndex = 1
Me.BackgroundButton.Text = "Back"
Me.BackgroundButton.UseVisualStyleBackColor = True
'
'ComboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Standard", "Night Mode", "Special"})
Me.ComboBox1.Location = New System.Drawing.Point(21, 7)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(141, 24)
Me.ComboBox1.TabIndex = 0
'
'MockTextBox
'
Me.MockTextBox.BackColor = System.Drawing.Color.White
Me.MockTextBox.Location = New System.Drawing.Point(107, 172)
Me.MockTextBox.Name = "MockTextBox"
Me.MockTextBox.Size = New System.Drawing.Size(303, 209)
Me.MockTextBox.TabIndex = 4
Me.MockTextBox.Text = resources.GetString("MockTextBox.Text")
'
'MockFilePicker
'
Me.MockFilePicker.BackColor = System.Drawing.Color.White
Me.MockFilePicker.Location = New System.Drawing.Point(6, 185)
Me.MockFilePicker.Name = "MockFilePicker"
Me.MockFilePicker.Size = New System.Drawing.Size(95, 196)
Me.MockFilePicker.TabIndex = 4
Me.MockFilePicker.Text = "Apple" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Banana" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Cherry" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Durian" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Eggplant"
'
'VScrollBar1
'
Me.VScrollBar1.Location = New System.Drawing.Point(93, 185)
Me.VScrollBar1.Name = "VScrollBar1"
Me.VScrollBar1.Size = New System.Drawing.Size(14, 196)
Me.VScrollBar1.TabIndex = 5
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 4.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(6, 172)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(101, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "File Edit Format View"
'
'ComboBox2
'
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"Info", "Warning", "Critical"})
Me.ComboBox2.Location = New System.Drawing.Point(6, 25)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(111, 24)
Me.ComboBox2.TabIndex = 7
'
'Button3
'
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Location = New System.Drawing.Point(6, 58)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(51, 31)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Text"
Me.Button3.UseVisualStyleBackColor = True
'
'MockCaption
'
Me.MockCaption.BackColor = System.Drawing.Color.Orchid
Me.MockCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockCaption.ForeColor = System.Drawing.Color.White
Me.MockCaption.Location = New System.Drawing.Point(5, 155)
Me.MockCaption.Name = "MockCaption"
Me.MockCaption.Size = New System.Drawing.Size(406, 227)
Me.MockCaption.TabIndex = 7
Me.MockCaption.Text = resources.GetString("MockCaption.Text")
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Red
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(383, 155)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 17)
Me.Label5.TabIndex = 8
Me.Label5.Text = "X"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button4
'
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.Location = New System.Drawing.Point(63, 58)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(51, 31)
Me.Button4.TabIndex = 8
Me.Button4.Text = "Back"
Me.Button4.UseVisualStyleBackColor = True
'
'Customise_Colours
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(442, 411)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "Customise_Colours"
Me.Text = "Notepad Ultra - Theme Editor"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents ColourChooser As ColorDialog
Friend WithEvents BackgroundButton As Button
Friend WithEvents TextButton As Button
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents Label3 As Label
Friend WithEvents VScrollBar1 As VScrollBar
Friend WithEvents MockFilePicker As Label
Friend WithEvents MockTextBox As Label
Friend WithEvents Button3 As Button
Friend WithEvents ComboBox2 As ComboBox
Friend WithEvents MockCaption As Label
Friend WithEvents Label5 As Label
Friend WithEvents Button4 As Button
End Class

134
Customise Colours.resx Normal file
View File

@ -0,0 +1,134 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ColourChooser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="MockTextBox.Text" xml:space="preserve">
<value>To provide you with an idea of what your chosen colour scheme will look like, this mockup will automatically update to reflect your choices.
Note that the text here is not the same size as it will appear. This is done simply to make it easier to visualise the final colour scheme, as using realistically-scaled font sizes would make the text incredibly small (as small as the menu bar on the top-left of the mockup).</value>
</data>
<data name="MockCaption.Text" xml:space="preserve">
<value>Notepad Ultra
If you are seeing this, I'm afraid your measly computer simply cannot handle the might and the majesty of Lynnear Software's finest creation yet: The futuristic, sleek, sexy, AutoUpdato-Realtimetacular SplendifferoPreviewBox 8000!
Or maybe the program fucked up. It probably fucked up.</value>
</data>
</root>

10
Customise Colours.vb Normal file
View File

@ -0,0 +1,10 @@
Public Class Customise_Colours
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedItem.ToString
Case "Standard"
Case "Night"
Case "Special"
End Select
MockFilePicker.BackColor = My.Settings.NiteTextBG
End Sub
End Class

196
Extensions.vb Normal file
View File

@ -0,0 +1,196 @@
'DON'T FORGET TO COPY THESE BITS TOO!
Imports System.Runtime.CompilerServices
Imports System.Text.RegularExpressions
Public Module Extensions
Public defaultStandardTheme, defaultNightTheme, defaultTertiaryTheme As Theme
Public ControlColour As Color = SystemColors.Control 'shorthand due to laziness and bad memory
Public FileToOpen As String = ""
Public Structure Notification
Dim Text As String
Dim Category As Integer
End Structure
Public Structure Theme
Dim TextBoxFG, TextBoxBG, SidebarFG, SidebarBG, StatusBarFG, StatusBarBG, NotificationCriticalFG, NotificationCriticalBG, NotificationWarningFG, NotificationWarningBG, NotificationInfoFG, NotificationInfoBG As Color
End Structure
'*******************
'***REUSABLE CODE***
'*******************
'everything between here and the "end reusable" section can be reused in future projects
Public Function GetPath(file As String, Optional AppendBackslash As Boolean = True) As String
Dim FileArray As String() = file.Split("\")
Dim ReturnMe As String = ""
For i = 0 To FileArray.Length - 2
ReturnMe &= FileArray(i) & "\"
Next
If Not AppendBackslash Then ReturnMe.RemoveLast(1)
Return ReturnMe
End Function
Public Function GetFile(file As String, Optional StripExtension As Boolean = False) As String
If StripExtension Then
Return RemoveFileExtension(file.Split("\")(file.Split("\").Length - 1)) 'strips the file extension, including the period. returns "filename" for "C:\filename.png"
Else
Return file.Split("\")(file.Split("\").Length - 1) 'returns the last item divided by backslashes. returns "filename.png" for "C:\filename.png".
End If
End Function
Public Function RemoveFileExtension(Filename As String) As String
Return Filename.RemoveLastInstanceOf("." & Filename.Split(".")(Filename.Split.Length))
End Function
Public Function GetFileExtension(Filename As String) As String
Return "." & Filename.Split(".")(Filename.Split(".").Length - 1)
End Function
Public Function ValidFileName(NameToCheck As String, Optional AllowPeriods As Boolean = False) As Boolean
If Not IsNothing(NameToCheck) Then
Dim disallowedCharacters As String() = {"/", "\", "<", ">", ":", "?", "*", ",", "|", "."}
If AllowPeriods Then NameToCheck = NameToCheck.Replace(".", " ")
For i = 0 To disallowedCharacters.Length - 1
If NameToCheck.Contains(disallowedCharacters(i)) Then
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Public Function ProgramIcon() As Icon
Return Icon.ExtractAssociatedIcon(Application.ExecutablePath)
End Function
<Extension()>
Public Function RemoveLast(ByVal stringToModify As String, amountToRemove As Integer) As String
Return stringToModify.Remove(stringToModify.Length - amountToRemove)
End Function
<Extension()>
Public Function RemoveFirst(ByVal StringToModify As String, AmountToRemove As Integer) As String
Return StrReverse(StrReverse(StringToModify).Remove(StringToModify.Length - AmountToRemove))
End Function
<Extension()>
Public Function RemoveLastInstanceOf(ByVal StringToModify As String, StringToRemove As String) As String
Return StrReverse(Replace(StrReverse(StringToModify), StrReverse(StringToRemove), "",, 1))
End Function
<Extension()>
Function BatchRemove(ByRef StringToClean As String, TextToStrip As String()) As String
Dim ReturnText As String = StringToClean
For i = 0 To TextToStrip.Count - 1
ReturnText = ReturnText.Replace(TextToStrip(i), "")
Next
Return ReturnText
End Function
Public Function RandomArrayObject(Array) As Object
If IsNothing(Array) Then Return "===ERROR: Passed array is empty!==="
Return Array(Rnd() * (Array.Length - 1))
End Function
Public Function RAO(Array) As Object
Return RandomArrayObject(Array)
End Function
Public Function ValidURL(URL) As Boolean ' http://stackoverflow.com/a/3809435
Dim URLCheckPattern As String = "(http(s)?:\/\/.)?(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}\b([-a-zA-Z0-9@:%_\+.~#?&//=]*)"
Return Regex.IsMatch(URL, URLCheckPattern, RegexOptions.IgnoreCase) 'WARNING: returns true for invalid/missing TLDs (such as: invalidurl/file.html)
End Function
'******************
'***END REUSABLE***
'******************
Public Function ReturnThemeSettingsAsThemeObject(chosenThemeIndex As String)
Try
chosenThemeIndex = CInt(chosenThemeIndex)
If chosenThemeIndex > 2 Then chosenThemeIndex = 0
Catch ex As Exception
chosenThemeIndex = chosenThemeIndex.ToLower()
If chosenThemeIndex.Contains("standard") Then
chosenThemeIndex = 0
ElseIf chosenThemeIndex.Contains("night") Or chosenThemeIndex.Contains("nite") Then
chosenThemeIndex = 1
Else
chosenThemeIndex = 2
End If
End Try
Dim themeName() As String = {"Standard", "Nite", "Tertiary"}
Dim returnedTheme As Theme
returnedTheme.NotificationCriticalBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyColourCritical", CallType.Get)
returnedTheme.NotificationWarningBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyColourWarning", CallType.Get)
returnedTheme.NotificationInfoBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyColourInfo", CallType.Get)
returnedTheme.NotificationCriticalFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyTextColourCritical", CallType.Get)
returnedTheme.NotificationWarningFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyTextColourWarning", CallType.Get)
returnedTheme.NotificationInfoFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "NotifyTextColourInfo", CallType.Get)
returnedTheme.SidebarFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "SidebarFG", CallType.Get)
returnedTheme.SidebarBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "SidebarBG", CallType.Get)
returnedTheme.StatusBarFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "StatFG", CallType.Get)
returnedTheme.StatusBarBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "StatBG", CallType.Get)
returnedTheme.TextBoxFG = CallByName(My.Settings, themeName(chosenThemeIndex) & "TextFG", CallType.Get)
returnedTheme.TextBoxBG = CallByName(My.Settings, themeName(chosenThemeIndex) & "TextBG", CallType.Get)
Return returnedTheme
End Function
Public Sub SetDefaultThemes()
'********************
'***DEFAULT THEMES***
'********************
'Standard:
defaultStandardTheme.TextBoxBG = Color.White
defaultStandardTheme.TextBoxFG = Color.Black
defaultStandardTheme.SidebarBG = Color.White
defaultStandardTheme.SidebarFG = Color.Black
defaultStandardTheme.StatusBarBG = ControlColour
defaultStandardTheme.StatusBarFG = Color.Black
defaultStandardTheme.NotificationCriticalBG = Color.Red
defaultStandardTheme.NotificationCriticalFG = Color.White
defaultStandardTheme.NotificationWarningBG = Color.Orange
defaultStandardTheme.NotificationWarningFG = Color.White
defaultStandardTheme.NotificationInfoBG = Color.Green
defaultStandardTheme.NotificationInfoFG = Color.White
'Night:
defaultNightTheme.TextBoxBG = Color.FromArgb(30, 30, 30)
defaultNightTheme.TextBoxFG = Color.FromArgb(226, 226, 226)
defaultNightTheme.SidebarBG = Color.FromArgb(30, 30, 30)
defaultNightTheme.SidebarFG = Color.FromArgb(226, 226, 226)
defaultNightTheme.StatusBarBG = Color.Black
defaultNightTheme.StatusBarFG = Color.White
defaultNightTheme.NotificationCriticalBG = Color.Black
defaultNightTheme.NotificationCriticalFG = Color.Red
defaultNightTheme.NotificationWarningBG = Color.Black
defaultNightTheme.NotificationWarningFG = Color.Orange
defaultNightTheme.NotificationInfoBG = Color.Black
defaultNightTheme.NotificationInfoFG = Color.LimeGreen
'Tertiary:
defaultTertiaryTheme.TextBoxBG = Color.RoyalBlue
defaultTertiaryTheme.TextBoxFG = Color.White
defaultTertiaryTheme.SidebarBG = Color.RoyalBlue
defaultTertiaryTheme.SidebarFG = Color.White
defaultTertiaryTheme.StatusBarBG = ControlColour
defaultTertiaryTheme.StatusBarFG = Color.Black
defaultTertiaryTheme.NotificationCriticalBG = Color.Red
defaultTertiaryTheme.NotificationCriticalFG = Color.White
defaultTertiaryTheme.NotificationWarningBG = Color.Orange
defaultTertiaryTheme.NotificationWarningFG = Color.White
defaultTertiaryTheme.NotificationInfoBG = Color.Green
defaultTertiaryTheme.NotificationInfoFG = Color.White
End Sub
End Module

159
Find.Designer.vb generated Normal file
View File

@ -0,0 +1,159 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Find
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.FindMe = New System.Windows.Forms.TextBox()
Me.NextButton = New System.Windows.Forms.Button()
Me.PreviousButton = New System.Windows.Forms.Button()
Me.FindStatus = New System.Windows.Forms.Label()
Me.MatchCaseCheckbox = New System.Windows.Forms.CheckBox()
Me.WholeWordCheckbox = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.HighlightAllButton = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'FindMe
'
Me.FindMe.Location = New System.Drawing.Point(13, 17)
Me.FindMe.Margin = New System.Windows.Forms.Padding(4)
Me.FindMe.Name = "FindMe"
Me.FindMe.Size = New System.Drawing.Size(295, 22)
Me.FindMe.TabIndex = 0
'
'NextButton
'
Me.NextButton.Location = New System.Drawing.Point(316, 16)
Me.NextButton.Margin = New System.Windows.Forms.Padding(4)
Me.NextButton.Name = "NextButton"
Me.NextButton.Size = New System.Drawing.Size(77, 25)
Me.NextButton.TabIndex = 1
Me.NextButton.Text = "Next"
Me.NextButton.UseVisualStyleBackColor = True
'
'PreviousButton
'
Me.PreviousButton.Location = New System.Drawing.Point(316, 48)
Me.PreviousButton.Margin = New System.Windows.Forms.Padding(4)
Me.PreviousButton.Name = "PreviousButton"
Me.PreviousButton.Size = New System.Drawing.Size(77, 25)
Me.PreviousButton.TabIndex = 2
Me.PreviousButton.Text = "Prev"
Me.PreviousButton.UseVisualStyleBackColor = True
'
'FindStatus
'
Me.FindStatus.AutoSize = True
Me.FindStatus.Font = New System.Drawing.Font("Segoe UI", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FindStatus.ForeColor = System.Drawing.SystemColors.ControlDark
Me.FindStatus.Location = New System.Drawing.Point(13, 51)
Me.FindStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.FindStatus.Name = "FindStatus"
Me.FindStatus.Size = New System.Drawing.Size(27, 19)
Me.FindStatus.TabIndex = 4
Me.FindStatus.Text = "<3"
'
'MatchCaseCheckbox
'
Me.MatchCaseCheckbox.AutoSize = True
Me.MatchCaseCheckbox.Location = New System.Drawing.Point(258, 80)
Me.MatchCaseCheckbox.Name = "MatchCaseCheckbox"
Me.MatchCaseCheckbox.Size = New System.Drawing.Size(104, 21)
Me.MatchCaseCheckbox.TabIndex = 5
Me.MatchCaseCheckbox.Text = "Match Case"
Me.MatchCaseCheckbox.UseVisualStyleBackColor = True
'
'WholeWordCheckbox
'
Me.WholeWordCheckbox.AutoSize = True
Me.WholeWordCheckbox.Location = New System.Drawing.Point(368, 80)
Me.WholeWordCheckbox.Name = "WholeWordCheckbox"
Me.WholeWordCheckbox.Size = New System.Drawing.Size(108, 21)
Me.WholeWordCheckbox.TabIndex = 5
Me.WholeWordCheckbox.Text = "Whole Word"
Me.WholeWordCheckbox.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(401, 48)
Me.Button1.Margin = New System.Windows.Forms.Padding(4)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(77, 25)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Replace"
Me.Button1.UseVisualStyleBackColor = True
'
'HighlightAllButton
'
Me.HighlightAllButton.Location = New System.Drawing.Point(401, 17)
Me.HighlightAllButton.Margin = New System.Windows.Forms.Padding(4)
Me.HighlightAllButton.Name = "HighlightAllButton"
Me.HighlightAllButton.Size = New System.Drawing.Size(77, 25)
Me.HighlightAllButton.TabIndex = 2
Me.HighlightAllButton.Text = "Show all"
Me.HighlightAllButton.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(13, 74)
Me.Button2.Margin = New System.Windows.Forms.Padding(4)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(77, 25)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Close"
Me.Button2.UseVisualStyleBackColor = True
'
'Find
'
Me.AcceptButton = Me.NextButton
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(488, 107)
Me.Controls.Add(Me.WholeWordCheckbox)
Me.Controls.Add(Me.MatchCaseCheckbox)
Me.Controls.Add(Me.FindStatus)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.HighlightAllButton)
Me.Controls.Add(Me.PreviousButton)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.NextButton)
Me.Controls.Add(Me.FindMe)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Find"
Me.Text = "Find"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents FindMe As TextBox
Friend WithEvents NextButton As Button
Friend WithEvents PreviousButton As Button
Friend WithEvents FindStatus As Label
Friend WithEvents MatchCaseCheckbox As CheckBox
Friend WithEvents WholeWordCheckbox As CheckBox
Friend WithEvents Button1 As Button
Friend WithEvents HighlightAllButton As Button
Friend WithEvents Button2 As Button
End Class

120
Find.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

100
Find.vb Normal file
View File

@ -0,0 +1,100 @@
Public Class Find 'TODO: will changing file in npu while find is open fuck things? probably
Dim StartBounds, EndBounds As Integer
Dim FindOptions As RichTextBoxFinds
Public Property npu As NPUWindow
Private Sub FindStuff(sender As Object, e As EventArgs) Handles NextButton.Click, PreviousButton.Click
If EndBounds = 0 Then EndBounds = npu.TextFileHolder.TextLength
If sender.name = "PreviousButton" Then 'BACKWARDS
FindOptions = RichTextBoxFinds.Reverse Or GetFindSettings()
StartBounds = 0
EndBounds -= 1
Else 'FORWARDS
FindOptions = RichTextBoxFinds.None Or GetFindSettings()
EndBounds = npu.TextFileHolder.TextLength
StartBounds += 1
End If
Dim FindMeCountable As String() = New String(0) {FindMe.Text.ToLower}
FindStatus.Text = ("Found " & CountFindMeAppearances() & " results").Replace("1 results", "1 result")
ResetFormatting()
If FindStatus.Text = "Found 0 results" Then
Beep()
Else
Dim findResult As Integer = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions)
If findResult = -1 Then
FindStatus.Text = "Reached last instance, looping"
StartBounds = 0
EndBounds = npu.TextFileHolder.TextLength
End If
npu.TextFileHolder.[Select](npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions), FindMe.Text.Length)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Bold)
npu.TextFileHolder.SelectionBackColor = Color.Yellow
If StartBounds < 0 Then StartBounds = 0
If EndBounds < 0 Then EndBounds = npu.TextFileHolder.TextLength
StartBounds = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions)
EndBounds = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions) + FindMe.Text.Length
npu.TextFileHolder.SelectionStart = StartBounds
If sender.name = "PreviousButton" Then npu.TextFileHolder.SelectionStart = EndBounds
npu.TextFileHolder.ScrollToCaret() 'TODO: Fix jumpiness
End If
End Sub
Public Sub ResetFormatting() Handles Me.Closed
Dim SelectPos As Integer = npu.TextFileHolder.SelectionStart
npu.TextFileHolder.[Select](0, npu.TextFileHolder.TextLength)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Regular)
npu.TextFileHolder.SelectionBackColor = npu.TextFileHolder.BackColor
npu.TextFileHolder.Select(SelectPos, 0)
End Sub
Private Sub HighlightAllButton_Click(sender As Object, e As EventArgs) Handles HighlightAllButton.Click
StartBounds = 0
EndBounds = npu.TextFileHolder.TextLength
Dim LastFound As Integer = 0
Try
While True
npu.TextFileHolder.[Select](npu.TextFileHolder.Find(FindMe.Text, LastFound, npu.TextFileHolder.TextLength, RichTextBoxFinds.None), FindMe.Text.Length)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Bold)
npu.TextFileHolder.SelectionBackColor = Color.Yellow
LastFound = npu.TextFileHolder.Find(FindMe.Text, LastFound, npu.TextFileHolder.TextLength, RichTextBoxFinds.None) + 1
End While
Catch ex As Exception
Dim FindMeCountable As String() = New String(0) {FindMe.Text.ToLower}
FindStatus.Text = ("Found " & npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1 & " results").Replace("1 results", "1 result")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub FindMe_TextChanged(sender As Object, e As EventArgs) Handles FindMe.TextChanged
HighlightAllButton.Enabled = FindMe.Text <> ""
PreviousButton.Enabled = FindMe.Text <> ""
NextButton.Enabled = FindMe.Text <> ""
End Sub
Private Function GetFindSettings()
Return 0 + (4 * Math.Abs(CInt(MatchCaseCheckBox.Checked))) + (2 * Math.Abs(CInt(WholeWordCheckBox.Checked)))
End Function
Public Function CountFindMeAppearances()
Dim FindMeCountable As String() = New String(0) {FindMe.Text.ToLower}
Select Case GetFindSettings()
Case 0
Return npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1
Case 2 'WHOLE WORD
Return CountWholeWordFindMeAppearances(FindMe.Text, FindOptions, False)
Case 4 'MATCH CASE
FindMeCountable = New String(0) {FindMe.Text}
Return npu.TextFileHolder.Text.ToString.Split(FindMeCountable, StringSplitOptions.None).Length - 1
Case 6 'ALL OPTIONS
Return CountWholeWordFindMeAppearances(FindMe.Text, FindOptions, True)
Case Else
Return npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1
End Select
End Function
End Class

25
FindCommon.vb Normal file
View File

@ -0,0 +1,25 @@
Module FindCommon
Public Property npu As NPUWindow
Function CountWholeWordFindMeAppearances(FindMeText, FindOptions, CaseSensitive)
If npu.TextFileHolder.Find(FindMeText, 0, npu.TextFileHolder.TextLength, FindOptions) <> -1 Then
Dim found As Integer = 0
Dim punctuation As String() = {" ", ",", "?", "!", ".", "", vbNewLine} 'TODO: make sure this is how vb's native "whole word" function works
Dim SearchText As String = npu.TextFileHolder.Text & " "
Dim SearchSubString As String = FindMeText
If Not CaseSensitive Then
SearchText = SearchText.ToLower
SearchSubString = SearchSubString.ToLower
End If
For i As Integer = 0 To SearchText.Length - FindMeText.Length - 1
For j = 0 To punctuation.Length - 1
If SearchText.Substring(i, FindMeText.Length + 1) = FindMeText & punctuation(j) Then found += 1
Next
Next
Return found - 1 'FOR YEARS I HAVE ENVIED / YOUR GRACE AND YOUR CHARM
Else
Return 0
End If
End Function
End Module

196
FindReplace.Designer.vb generated Normal file
View File

@ -0,0 +1,196 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FindReplace
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.WholeWordCheckBox = New System.Windows.Forms.CheckBox()
Me.MatchCaseCheckBox = New System.Windows.Forms.CheckBox()
Me.FindStatus = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.ReplaceAllButton = New System.Windows.Forms.Button()
Me.ReplaceOnceButton = New System.Windows.Forms.Button()
Me.FindMe = New System.Windows.Forms.TextBox()
Me.ReplaceWithMe = New System.Windows.Forms.TextBox()
Me.ForwardsRadio = New System.Windows.Forms.RadioButton()
Me.BackwardsRadio = New System.Windows.Forms.RadioButton()
Me.ViewNextButton = New System.Windows.Forms.Button()
Me.HighlightAllButton = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'WholeWordCheckBox
'
Me.WholeWordCheckBox.AutoSize = True
Me.WholeWordCheckBox.Location = New System.Drawing.Point(437, 48)
Me.WholeWordCheckBox.Name = "WholeWordCheckBox"
Me.WholeWordCheckBox.Size = New System.Drawing.Size(108, 21)
Me.WholeWordCheckBox.TabIndex = 11
Me.WholeWordCheckBox.Text = "Whole Word"
Me.WholeWordCheckBox.UseVisualStyleBackColor = True
'
'MatchCaseCheckBox
'
Me.MatchCaseCheckBox.AutoSize = True
Me.MatchCaseCheckBox.Location = New System.Drawing.Point(437, 15)
Me.MatchCaseCheckBox.Name = "MatchCaseCheckBox"
Me.MatchCaseCheckBox.Size = New System.Drawing.Size(104, 21)
Me.MatchCaseCheckBox.TabIndex = 12
Me.MatchCaseCheckBox.Text = "Match Case"
Me.MatchCaseCheckBox.UseVisualStyleBackColor = True
'
'FindStatus
'
Me.FindStatus.AutoSize = True
Me.FindStatus.Font = New System.Drawing.Font("Segoe UI", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FindStatus.ForeColor = System.Drawing.SystemColors.ControlDark
Me.FindStatus.Location = New System.Drawing.Point(13, 81)
Me.FindStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.FindStatus.Name = "FindStatus"
Me.FindStatus.Size = New System.Drawing.Size(27, 19)
Me.FindStatus.TabIndex = 10
Me.FindStatus.Text = "<3"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(13, 111)
Me.Button1.Margin = New System.Windows.Forms.Padding(4)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(77, 25)
Me.Button1.TabIndex = 9
Me.Button1.Text = "Find"
Me.Button1.UseVisualStyleBackColor = True
'
'ReplaceAllButton
'
Me.ReplaceAllButton.Location = New System.Drawing.Point(315, 45)
Me.ReplaceAllButton.Margin = New System.Windows.Forms.Padding(4)
Me.ReplaceAllButton.Name = "ReplaceAllButton"
Me.ReplaceAllButton.Size = New System.Drawing.Size(115, 25)
Me.ReplaceAllButton.TabIndex = 8
Me.ReplaceAllButton.Text = "Replace all"
Me.ReplaceAllButton.UseVisualStyleBackColor = True
'
'ReplaceOnceButton
'
Me.ReplaceOnceButton.Location = New System.Drawing.Point(315, 13)
Me.ReplaceOnceButton.Margin = New System.Windows.Forms.Padding(4)
Me.ReplaceOnceButton.Name = "ReplaceOnceButton"
Me.ReplaceOnceButton.Size = New System.Drawing.Size(115, 25)
Me.ReplaceOnceButton.TabIndex = 7
Me.ReplaceOnceButton.Text = "Replace once"
Me.ReplaceOnceButton.UseVisualStyleBackColor = True
'
'FindMe
'
Me.FindMe.Location = New System.Drawing.Point(13, 13)
Me.FindMe.Margin = New System.Windows.Forms.Padding(4)
Me.FindMe.Name = "FindMe"
Me.FindMe.Size = New System.Drawing.Size(291, 22)
Me.FindMe.TabIndex = 1
'
'ReplaceWithMe
'
Me.ReplaceWithMe.Location = New System.Drawing.Point(13, 46)
Me.ReplaceWithMe.Margin = New System.Windows.Forms.Padding(4)
Me.ReplaceWithMe.Name = "ReplaceWithMe"
Me.ReplaceWithMe.Size = New System.Drawing.Size(291, 22)
Me.ReplaceWithMe.TabIndex = 2
'
'ForwardsRadio
'
Me.ForwardsRadio.AutoSize = True
Me.ForwardsRadio.Checked = True
Me.ForwardsRadio.Location = New System.Drawing.Point(437, 80)
Me.ForwardsRadio.Name = "ForwardsRadio"
Me.ForwardsRadio.Size = New System.Drawing.Size(87, 21)
Me.ForwardsRadio.TabIndex = 13
Me.ForwardsRadio.TabStop = True
Me.ForwardsRadio.Text = "Forwards"
Me.ForwardsRadio.UseVisualStyleBackColor = True
'
'BackwardsRadio
'
Me.BackwardsRadio.AutoSize = True
Me.BackwardsRadio.Location = New System.Drawing.Point(437, 113)
Me.BackwardsRadio.Name = "BackwardsRadio"
Me.BackwardsRadio.Size = New System.Drawing.Size(97, 21)
Me.BackwardsRadio.TabIndex = 13
Me.BackwardsRadio.Text = "Backwards"
Me.BackwardsRadio.UseVisualStyleBackColor = True
'
'ViewNextButton
'
Me.ViewNextButton.Location = New System.Drawing.Point(315, 78)
Me.ViewNextButton.Margin = New System.Windows.Forms.Padding(4)
Me.ViewNextButton.Name = "ViewNextButton"
Me.ViewNextButton.Size = New System.Drawing.Size(115, 25)
Me.ViewNextButton.TabIndex = 8
Me.ViewNextButton.Text = "View next"
Me.ViewNextButton.UseVisualStyleBackColor = True
'
'HighlightAllButton
'
Me.HighlightAllButton.Location = New System.Drawing.Point(315, 111)
Me.HighlightAllButton.Margin = New System.Windows.Forms.Padding(4)
Me.HighlightAllButton.Name = "HighlightAllButton"
Me.HighlightAllButton.Size = New System.Drawing.Size(115, 25)
Me.HighlightAllButton.TabIndex = 8
Me.HighlightAllButton.Text = "Highlight all"
Me.HighlightAllButton.UseVisualStyleBackColor = True
'
'FindReplace
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(552, 146)
Me.Controls.Add(Me.BackwardsRadio)
Me.Controls.Add(Me.ForwardsRadio)
Me.Controls.Add(Me.WholeWordCheckBox)
Me.Controls.Add(Me.MatchCaseCheckBox)
Me.Controls.Add(Me.FindStatus)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.HighlightAllButton)
Me.Controls.Add(Me.ViewNextButton)
Me.Controls.Add(Me.ReplaceAllButton)
Me.Controls.Add(Me.ReplaceOnceButton)
Me.Controls.Add(Me.ReplaceWithMe)
Me.Controls.Add(Me.FindMe)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "FindReplace"
Me.Text = "Replace"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents WholeWordCheckBox As CheckBox
Friend WithEvents MatchCaseCheckBox As CheckBox
Friend WithEvents FindStatus As Label
Friend WithEvents Button1 As Button
Friend WithEvents ReplaceAllButton As Button
Friend WithEvents ReplaceOnceButton As Button
Friend WithEvents FindMe As TextBox
Friend WithEvents ReplaceWithMe As TextBox
Friend WithEvents ForwardsRadio As RadioButton
Friend WithEvents BackwardsRadio As RadioButton
Friend WithEvents ViewNextButton As Button
Friend WithEvents HighlightAllButton As Button
End Class

120
FindReplace.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

103
FindReplace.vb Normal file
View File

@ -0,0 +1,103 @@
Public Class FindReplace
Dim StartBounds, EndBounds As Integer
Dim FindOptions As RichTextBoxFinds
Public Property npu As NPUWindow
Private Sub HighlightAllButton_Click(sender As Object, e As EventArgs) Handles HighlightAllButton.Click
'StartBounds = 0
'EndBounds = npu.TextFileHolder.TextLength
Dim LastFound As Integer = 0
Try
While True
npu.TextFileHolder.[Select](npu.TextFileHolder.Find(FindMe.Text, LastFound, npu.TextFileHolder.TextLength, RichTextBoxFinds.None), FindMe.Text.Length)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Bold)
npu.TextFileHolder.SelectionBackColor = Color.Yellow
LastFound = npu.TextFileHolder.Find(FindMe.Text, LastFound, npu.TextFileHolder.TextLength, RichTextBoxFinds.None) + 1
End While
Catch ex As Exception
Dim FindMeCountable As String() = New String(0) {FindMe.Text.ToLower}
FindStatus.Text = ("Found " & npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1 & " results").Replace("1 results", "1 result")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ViewNextButton.Click
'this code shares a lot with find.vb. in fact it pretty much IS just the find code from find.vb
If EndBounds = 0 Then EndBounds = npu.TextFileHolder.TextLength
If ForwardsRadio.Checked Then
FindOptions = RichTextBoxFinds.None Or GetFindSettings()
StartBounds += 1
EndBounds = npu.TextFileHolder.TextLength
Else
FindOptions = RichTextBoxFinds.Reverse Or GetFindSettings()
StartBounds = 0
EndBounds -= 1
End If
FindStatus.Text = ("Found " & CountFindMeAppearances() & " results").Replace("1 results", "1 result")
ResetFormatting()
If FindStatus.Text = "Found 0 results" Then
Beep()
Else
Dim findResult As Integer = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions)
If findResult = -1 Then
FindStatus.Text = "Reached last instance, looping"
StartBounds = 0
EndBounds = npu.TextFileHolder.TextLength
End If
npu.TextFileHolder.[Select](npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions), FindMe.Text.Length)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Bold)
npu.TextFileHolder.SelectionBackColor = Color.Yellow
If StartBounds < 0 Then StartBounds = 0
If EndBounds < 0 Then EndBounds = npu.TextFileHolder.TextLength
StartBounds = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions)
EndBounds = npu.TextFileHolder.Find(FindMe.Text, StartBounds, EndBounds, FindOptions) + FindMe.Text.Length
npu.TextFileHolder.SelectionStart = StartBounds
If sender.name = "PreviousButton" Then npu.TextFileHolder.SelectionStart = EndBounds
npu.TextFileHolder.ScrollToCaret() 'TODO: Fix jumpiness
End If
End Sub
Public Sub ResetFormatting() Handles Me.Closed
npu.TextFileHolder.[Select](0, npu.TextFileHolder.TextLength)
npu.TextFileHolder.SelectionFont = New Font(npu.TextFileHolder.Font, FontStyle.Regular)
npu.TextFileHolder.SelectionBackColor = npu.TextFileHolder.BackColor
npu.TextFileHolder.Select(0, 0)
End Sub
Private Function GetFindSettings()
Return 0 + (4 * Math.Abs(CInt(MatchCaseCheckBox.Checked))) + (2 * Math.Abs(CInt(WholeWordCheckBox.Checked)))
End Function
Private Sub ReplaceOnceButton_Click(sender As Object, e As EventArgs) Handles ReplaceOnceButton.Click
If npu.TextFileHolder.SelectedText <> FindMe.Text Then ViewNextButton.PerformClick() '~u0
If FindStatus.Text <> "Found 0 results" Then npu.TextFileHolder.SelectedText = ReplaceWithMe.Text
ViewNextButton.PerformClick()
End Sub
Private Sub ReplaceAllButton_Click(sender As Object, e As EventArgs) Handles ReplaceAllButton.Click
npu.TextFileHolder.Text = npu.TextFileHolder.Text.Replace(FindMe.Text, ReplaceWithMe.Text) 'TODO: make it work better than this
ResetFormatting()
End Sub
Public Function CountFindMeAppearances()
Dim FindMeCountable As String() = New String(0) {FindMe.Text.ToLower}
Select Case GetFindSettings()
Case 0
Return npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1
Case 2 'WHOLE WORD
Return CountWholeWordFindMeAppearances(FindMe.Text, FindOptions, False)
Case 4 'MATCH CASE
FindMeCountable = New String(0) {FindMe.Text}
Return npu.TextFileHolder.Text.ToString.Split(FindMeCountable, StringSplitOptions.None).Length - 1
Case 6 'ALL OPTIONS
Return CountWholeWordFindMeAppearances(FindMe.Text, FindOptions, True)
Case Else
Return npu.TextFileHolder.Text.ToString.ToLower.Split(FindMeCountable, StringSplitOptions.None).Length - 1
End Select
End Function
End Class

517
Form1.Designer.vb generated Normal file
View File

@ -0,0 +1,517 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.FilePicker = New System.Windows.Forms.ListBox()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OneDriveTextFilesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EDocumentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.SHOWRECENTSHEREToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FormatToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GoToToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.TimeDateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimeDateToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.WordCountToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.WordWrapToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SidebarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NightModeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.FontDialog1 = New System.Windows.Forms.FontDialog()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextFileHolder = New System.Windows.Forms.RichTextBox()
Me.StatusBar = New System.Windows.Forms.StatusStrip()
Me.statBytes = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel4 = New System.Windows.Forms.ToolStripStatusLabel()
Me.statChars = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel5 = New System.Windows.Forms.ToolStripStatusLabel()
Me.statDate = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripSplitButton1 = New System.Windows.Forms.ToolStripSplitButton()
Me.ChangeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStripSplitButton2 = New System.Windows.Forms.ToolStripSplitButton()
Me.chocolatePuddingOvenTimer = New System.Windows.Forms.Timer(Me.components)
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.MenuStrip1.SuspendLayout()
Me.StatusBar.SuspendLayout()
Me.SuspendLayout()
'
'FilePicker
'
Me.FilePicker.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FilePicker.FormattingEnabled = True
Me.FilePicker.IntegralHeight = False
Me.FilePicker.ItemHeight = 17
Me.FilePicker.Items.AddRange(New Object() {"Loading items..."})
Me.FilePicker.Location = New System.Drawing.Point(0, 22)
Me.FilePicker.Name = "FilePicker"
Me.FilePicker.Size = New System.Drawing.Size(186, 472)
Me.FilePicker.Sorted = True
Me.FilePicker.TabIndex = 0
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.FormatToolStripMenuItem, Me.EditToolStripMenuItem, Me.ViewToolStripMenuItem})
Me.MenuStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(841, 24)
Me.MenuStrip1.TabIndex = 1
Me.MenuStrip1.Text = "MenuStrip1"
'
'FileToolStripMenuItem
'
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem, Me.DeleteToolStripMenuItem2, Me.ToolStripSeparator1, Me.ExitToolStripMenuItem, Me.RestartToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
Me.FileToolStripMenuItem.Text = "File"
'
'NewToolStripMenuItem
'
Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
Me.NewToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.NewToolStripMenuItem.Text = "New"
'
'OpenToolStripMenuItem
'
Me.OpenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OneDriveTextFilesToolStripMenuItem, Me.EDocumentsToolStripMenuItem, Me.ToolStripSeparator5, Me.SHOWRECENTSHEREToolStripMenuItem})
Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.OpenToolStripMenuItem.Text = "Set Working Directory..."
'
'OneDriveTextFilesToolStripMenuItem
'
Me.OneDriveTextFilesToolStripMenuItem.Name = "OneDriveTextFilesToolStripMenuItem"
Me.OneDriveTextFilesToolStripMenuItem.Size = New System.Drawing.Size(293, 22)
Me.OneDriveTextFilesToolStripMenuItem.Text = "F:\OneDrive\Documents\Other\Text files\"
'
'EDocumentsToolStripMenuItem
'
Me.EDocumentsToolStripMenuItem.Name = "EDocumentsToolStripMenuItem"
Me.EDocumentsToolStripMenuItem.Size = New System.Drawing.Size(293, 22)
Me.EDocumentsToolStripMenuItem.Text = "E:\Documents"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(290, 6)
'
'SHOWRECENTSHEREToolStripMenuItem
'
Me.SHOWRECENTSHEREToolStripMenuItem.Name = "SHOWRECENTSHEREToolStripMenuItem"
Me.SHOWRECENTSHEREToolStripMenuItem.Size = New System.Drawing.Size(293, 22)
Me.SHOWRECENTSHEREToolStripMenuItem.Text = "Other..."
'
'SaveToolStripMenuItem
'
Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.SaveToolStripMenuItem.Text = "Save"
'
'SaveAsToolStripMenuItem
'
Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem"
Me.SaveAsToolStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Alt) _
Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.SaveAsToolStripMenuItem.Text = "Save As..."
'
'DeleteToolStripMenuItem2
'
Me.DeleteToolStripMenuItem2.Name = "DeleteToolStripMenuItem2"
Me.DeleteToolStripMenuItem2.Size = New System.Drawing.Size(198, 22)
Me.DeleteToolStripMenuItem2.Text = "Delete..."
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(195, 6)
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'RestartToolStripMenuItem
'
Me.RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
Me.RestartToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F3), System.Windows.Forms.Keys)
Me.RestartToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.RestartToolStripMenuItem.Text = "Restart"
'
'FormatToolStripMenuItem
'
Me.FormatToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem, Me.ToolStripSeparator4, Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator2, Me.FindToolStripMenuItem, Me.ReplaceToolStripMenuItem, Me.GoToToolStripMenuItem, Me.ToolStripSeparator3, Me.TimeDateToolStripMenuItem})
Me.FormatToolStripMenuItem.Name = "FormatToolStripMenuItem"
Me.FormatToolStripMenuItem.Size = New System.Drawing.Size(39, 20)
Me.FormatToolStripMenuItem.Text = "Edit"
'
'UndoToolStripMenuItem
'
Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem"
Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.UndoToolStripMenuItem.Text = "Undo"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(149, 6)
'
'CutToolStripMenuItem
'
Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem"
Me.CutToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.CutToolStripMenuItem.Text = "Cut"
'
'CopyToolStripMenuItem
'
Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem"
Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.CopyToolStripMenuItem.Text = "Copy"
'
'PasteToolStripMenuItem
'
Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem"
Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.PasteToolStripMenuItem.Text = "Paste"
'
'DeleteToolStripMenuItem
'
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.DeleteToolStripMenuItem.Text = "Delete"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(149, 6)
'
'FindToolStripMenuItem
'
Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem"
Me.FindToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.FindToolStripMenuItem.Text = "Find..."
'
'ReplaceToolStripMenuItem
'
Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem"
Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.ReplaceToolStripMenuItem.Text = "Replace..."
'
'GoToToolStripMenuItem
'
Me.GoToToolStripMenuItem.Name = "GoToToolStripMenuItem"
Me.GoToToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.GoToToolStripMenuItem.Text = "Go To..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(149, 6)
'
'TimeDateToolStripMenuItem
'
Me.TimeDateToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TimeDateToolStripMenuItem1, Me.WordCountToolStripMenuItem})
Me.TimeDateToolStripMenuItem.Name = "TimeDateToolStripMenuItem"
Me.TimeDateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.TimeDateToolStripMenuItem.Text = "Insert"
'
'TimeDateToolStripMenuItem1
'
Me.TimeDateToolStripMenuItem1.Name = "TimeDateToolStripMenuItem1"
Me.TimeDateToolStripMenuItem1.Size = New System.Drawing.Size(139, 22)
Me.TimeDateToolStripMenuItem1.Text = "Time/Date"
'
'WordCountToolStripMenuItem
'
Me.WordCountToolStripMenuItem.Name = "WordCountToolStripMenuItem"
Me.WordCountToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.WordCountToolStripMenuItem.Text = "Word Count"
'
'EditToolStripMenuItem
'
Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WordWrapToolStripMenuItem, Me.FontToolStripMenuItem})
Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
Me.EditToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
Me.EditToolStripMenuItem.Text = "Format"
'
'WordWrapToolStripMenuItem
'
Me.WordWrapToolStripMenuItem.Checked = True
Me.WordWrapToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.WordWrapToolStripMenuItem.Name = "WordWrapToolStripMenuItem"
Me.WordWrapToolStripMenuItem.Size = New System.Drawing.Size(134, 22)
Me.WordWrapToolStripMenuItem.Text = "Word Wrap"
'
'FontToolStripMenuItem
'
Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem"
Me.FontToolStripMenuItem.Size = New System.Drawing.Size(134, 22)
Me.FontToolStripMenuItem.Text = "Font..."
'
'ViewToolStripMenuItem
'
Me.ViewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SidebarToolStripMenuItem, Me.NightModeToolStripMenuItem, Me.StatusBarToolStripMenuItem})
Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem"
Me.ViewToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.ViewToolStripMenuItem.Text = "View"
'
'SidebarToolStripMenuItem
'
Me.SidebarToolStripMenuItem.Name = "SidebarToolStripMenuItem"
Me.SidebarToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F6
Me.SidebarToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.SidebarToolStripMenuItem.Text = "Sidebar"
'
'NightModeToolStripMenuItem
'
Me.NightModeToolStripMenuItem.Name = "NightModeToolStripMenuItem"
Me.NightModeToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F7
Me.NightModeToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.NightModeToolStripMenuItem.Text = "Night Mode"
'
'StatusBarToolStripMenuItem
'
Me.StatusBarToolStripMenuItem.Name = "StatusBarToolStripMenuItem"
Me.StatusBarToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.StatusBarToolStripMenuItem.Text = "Status Bar"
'
'SaveFileDialog1
'
Me.SaveFileDialog1.Filter = "Text File|*.txt|Batch File|*.bat|Other|*.*"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(663, 156)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(192, 188)
Me.Label1.TabIndex = 3
Me.Label1.Text = "STATUS BAR WILL CONTAIN:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Size (Bytes)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Word count" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Creation date (if any)"
'
'TextFileHolder
'
Me.TextFileHolder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextFileHolder.Font = New System.Drawing.Font("Lucida Console", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextFileHolder.Location = New System.Drawing.Point(184, -1)
Me.TextFileHolder.MaxLength = 0
Me.TextFileHolder.Name = "TextFileHolder"
Me.TextFileHolder.Size = New System.Drawing.Size(433, 480)
Me.TextFileHolder.TabIndex = 4
Me.TextFileHolder.Text = "Welcome to Notepad Ultra! Select a file from the left."
'
'StatusBar
'
Me.StatusBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.statBytes, Me.ToolStripStatusLabel4, Me.statChars, Me.ToolStripStatusLabel5, Me.statDate, Me.ToolStripStatusLabel1, Me.ToolStripSplitButton1, Me.ToolStripStatusLabel2, Me.ToolStripSplitButton2})
Me.StatusBar.Location = New System.Drawing.Point(0, 563)
Me.StatusBar.Name = "StatusBar"
Me.StatusBar.Size = New System.Drawing.Size(841, 22)
Me.StatusBar.TabIndex = 5
Me.StatusBar.Text = "StatusStrip1"
'
'statBytes
'
Me.statBytes.Name = "statBytes"
Me.statBytes.Size = New System.Drawing.Size(70, 17)
Me.statBytes.Text = "Size: 0 Bytes"
'
'ToolStripStatusLabel4
'
Me.ToolStripStatusLabel4.Name = "ToolStripStatusLabel4"
Me.ToolStripStatusLabel4.Size = New System.Drawing.Size(10, 17)
Me.ToolStripStatusLabel4.Text = "|"
'
'statChars
'
Me.statChars.Name = "statChars"
Me.statChars.Size = New System.Drawing.Size(75, 17)
Me.statChars.Text = "Characters: 0"
'
'ToolStripStatusLabel5
'
Me.ToolStripStatusLabel5.Name = "ToolStripStatusLabel5"
Me.ToolStripStatusLabel5.Size = New System.Drawing.Size(10, 17)
Me.ToolStripStatusLabel5.Text = "|"
'
'statDate
'
Me.statDate.Name = "statDate"
Me.statDate.Size = New System.Drawing.Size(97, 17)
Me.statDate.Text = "File Created: N/A"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(10, 17)
Me.ToolStripStatusLabel1.Text = "|"
'
'ToolStripSplitButton1
'
Me.ToolStripSplitButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripSplitButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChangeToolStripMenuItem, Me.OpenToolStripMenuItem1})
Me.ToolStripSplitButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripSplitButton1.Name = "ToolStripSplitButton1"
Me.ToolStripSplitButton1.Size = New System.Drawing.Size(119, 20)
Me.ToolStripSplitButton1.Text = "Working Directory"
Me.ToolStripSplitButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage
'
'ChangeToolStripMenuItem
'
Me.ChangeToolStripMenuItem.Name = "ChangeToolStripMenuItem"
Me.ChangeToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
Me.ChangeToolStripMenuItem.Text = "Change..."
'
'OpenToolStripMenuItem1
'
Me.OpenToolStripMenuItem1.Name = "OpenToolStripMenuItem1"
Me.OpenToolStripMenuItem1.Size = New System.Drawing.Size(124, 22)
Me.OpenToolStripMenuItem1.Text = "Open"
'
'ToolStripStatusLabel2
'
Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(10, 17)
Me.ToolStripStatusLabel2.Text = "|"
'
'ToolStripSplitButton2
'
Me.ToolStripSplitButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripSplitButton2.DropDownButtonWidth = 0
Me.ToolStripSplitButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripSplitButton2.Name = "ToolStripSplitButton2"
Me.ToolStripSplitButton2.Size = New System.Drawing.Size(113, 20)
Me.ToolStripSplitButton2.Text = "Toggle Sidebar (F6)"
Me.ToolStripSplitButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage
'
'chocolatePuddingOvenTimer
'
Me.chocolatePuddingOvenTimer.Interval = 250
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(841, 585)
Me.Controls.Add(Me.StatusBar)
Me.Controls.Add(Me.FilePicker)
Me.Controls.Add(Me.TextFileHolder)
Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.Label1)
Me.KeyPreview = True
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Form1"
Me.Text = "Notepad Ultra"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.StatusBar.ResumeLayout(False)
Me.StatusBar.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents FilePicker As System.Windows.Forms.ListBox
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WordWrapToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FormatToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SidebarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents GoToToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TimeDateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents OneDriveTextFilesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SHOWRECENTSHEREToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
Friend WithEvents NightModeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TimeDateToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WordCountToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextFileHolder As System.Windows.Forms.RichTextBox
Friend WithEvents StatusBar As System.Windows.Forms.StatusStrip
Friend WithEvents statBytes As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents statChars As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents statDate As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripStatusLabel4 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripStatusLabel5 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents chocolatePuddingOvenTimer As System.Windows.Forms.Timer
Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripSplitButton1 As System.Windows.Forms.ToolStripSplitButton
Friend WithEvents RestartToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripStatusLabel2 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripSplitButton2 As System.Windows.Forms.ToolStripSplitButton
Friend WithEvents EDocumentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ChangeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
End Class

138
Form1.resx Normal file
View File

@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<metadata name="FontDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>269, 17</value>
</metadata>
<metadata name="StatusBar.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>387, 17</value>
</metadata>
<metadata name="chocolatePuddingOvenTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>490, 17</value>
</metadata>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>700, 17</value>
</metadata>
</root>

212
Form1.vb Normal file
View File

@ -0,0 +1,212 @@
Imports System.IO
Public Class Form1
Dim basedir As String = "F:\OneDrive\Documents\Other\Text files"
Dim npuLocation As String = Application.StartupPath()
Dim currentFile As String = ""
Dim newFile, showSidebar As Boolean
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextFileHolder.Font = My.Settings.Font
TextFileHolder.WordWrap = My.Settings.WordWrap
WordWrapToolStripMenuItem.Checked = My.Settings.WordWrap
showSidebar = Not My.Settings.ShowSidebar
SidebarToolStripMenuItem_Click(sender, e)
NightModeToolStripMenuItem.Checked = Not My.Settings.NightMode
NightModeToolStripMenuItem_Click(sender, e) ';D
basedir = My.Settings.WorkingDirectory
SaveFileDialog1.InitialDirectory = basedir
FontDialog1.Font = TextFileHolder.Font
redraw()
updateFilePicker()
updateStatusBar()
End Sub
Private Sub updateFilePicker()
FilePicker.Items.Clear()
If Not basedir.EndsWith("\") Then basedir += "\"
Dim fileNames = My.Computer.FileSystem.GetFiles(basedir, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
Dim files As Boolean = False
For Each fileName As String In fileNames
FilePicker.Items.Add(fileName.Remove(0, Len(basedir)))
files = True
Next
If Not files Then MsgBox("No txt files were found in this directory.")
End Sub
Private Sub redraw() Handles Me.Resize, Me.ResizeEnd
Select Case showSidebar
Case True
FilePicker.Height = Me.Height - 60 - StatusBar.Height
TextFileHolder.Height = Me.Height - 37 - StatusBar.Height
TextFileHolder.Width = Me.Width - 195
Case False
TextFileHolder.Height = Me.Height - 37 - StatusBar.Height
TextFileHolder.Width = Me.Width - 15
End Select
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FilePicker.SelectedIndexChanged
TextFileHolder.Text = "Loading, please wait..."
Refresh()
Dim chosenFile As StreamReader
currentFile = FilePicker.SelectedItem
Dim fileToLoad As String = basedir & currentFile
chosenFile = New StreamReader(fileToLoad, encoding:=System.Text.Encoding.UTF8, detectEncodingFromByteOrderMarks:=True)
TextFileHolder.Text = chosenFile.ReadToEnd
Text = "Notepad Ultra: " & currentFile
newFile = "False"
chosenFile.Close()
updateStatusBar()
End Sub
Private Sub WordWrapToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WordWrapToolStripMenuItem.Click
Select Case WordWrapToolStripMenuItem.Checked
Case False
WordWrapToolStripMenuItem.Checked = True
TextFileHolder.WordWrap = True
Case True
WordWrapToolStripMenuItem.Checked = False
TextFileHolder.WordWrap = False
End Select
End Sub
Private Sub DeleteToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem2.Click
If currentFile = "" Then
MsgBox("You can't delete the current file when there isn't a current file, you dunce!")
Else
If MsgBox("Are you sure you want to delete " & currentFile & "?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
My.Computer.FileSystem.DeleteFile(basedir & currentFile)
updateFilePicker()
End If
End If
End Sub
Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
currentFile = "unnamed"
newFile = True
End Sub
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
If newFile Then SaveAsToolStripMenuItem_Click(sender, e) Else
My.Computer.FileSystem.WriteAllText(basedir & currentFile, TextFileHolder.Text, False, System.Text.Encoding.UTF8)
Dim startInfo As New ProcessStartInfo("""" & npuLocation & "\unix2dos.exe""", """" & basedir & currentFile & """")
startInfo.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(startInfo)
End Sub
Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub OneDriveTextFilesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OneDriveTextFilesToolStripMenuItem.Click
basedir = "F:\OneDrive\Documents\Other\Text files"
updateFilePicker()
End Sub
Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click
FontDialog1.ShowDialog()
TextFileHolder.Font = FontDialog1.Font
End Sub
Private Sub NightModeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NightModeToolStripMenuItem.Click
Select Case NightModeToolStripMenuItem.Checked
Case False
NightModeToolStripMenuItem.Checked = True
TextFileHolder.BackColor = Color.Black
TextFileHolder.ForeColor = Color.LightGray
FilePicker.BackColor = Color.Black
FilePicker.ForeColor = Color.LightGray
Case True
NightModeToolStripMenuItem.Checked = False
TextFileHolder.BackColor = Color.White
TextFileHolder.ForeColor = Color.Black
FilePicker.BackColor = Color.White
FilePicker.ForeColor = Color.Black
End Select
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
saveSettings()
End
End Sub
Private Sub SidebarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SidebarToolStripMenuItem.Click
Select Case SidebarToolStripMenuItem.Checked
Case False
SidebarToolStripMenuItem.Checked = True
showSidebar = True
FilePicker.Visible = True
TextFileHolder.Left = 185
Case True
SidebarToolStripMenuItem.Checked = False
showSidebar = False
FilePicker.Visible = False
TextFileHolder.Left = 0
End Select
redraw()
End Sub
Private Sub updateStatusBar() Handles MyBase.KeyPress
statBytes.Text = "Size: " & System.Text.Encoding.Unicode.GetByteCount(TextFileHolder.Text) & " Bytes"
statChars.Text = "Characters: " & TextFileHolder.Text.Length
If Me.Text.EndsWith(".txt") Then statDate.Text = "File Created: " & My.Computer.FileSystem.GetFileInfo(basedir & currentFile).CreationTime Else statDate.Text = "File Created: N/A"
End Sub
Private Sub opacify() Handles Me.Move
Opacity = 0.5
chocolatePuddingOvenTimer.Stop()
chocolatePuddingOvenTimer.Start()
End Sub
Private Sub chocolatePuddingOvenTimer_Tick(sender As Object, e As EventArgs) Handles chocolatePuddingOvenTimer.Tick
Opacity = 1
chocolatePuddingOvenTimer.Stop()
End Sub
Private Sub ToolStripSplitButton1_ButtonClick(sender As Object, e As EventArgs) Handles ToolStripSplitButton1.ButtonClick
Process.Start(basedir)
End Sub
Private Sub toggleSidebar(sender As Object, e As EventArgs) Handles ToolStripSplitButton2.ButtonClick
SidebarToolStripMenuItem_Click(sender, e)
End Sub
Private Sub RestartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem.Click
saveSettings()
Application.Restart()
End Sub
Private Sub saveSettings()
My.Settings.Font = TextFileHolder.Font
My.Settings.WordWrap = TextFileHolder.WordWrap
My.Settings.NightMode = NightModeToolStripMenuItem.Checked
My.Settings.ShowSidebar = showSidebar
My.Settings.WorkingDirectory = basedir
My.Settings.Save()
End Sub
Private Sub emergencySave() Handles Me.FormClosing
saveSettings()
End Sub
Private Sub SHOWRECENTSHEREToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHOWRECENTSHEREToolStripMenuItem.Click
currentFile = ""
FolderBrowserDialog1.ShowDialog()
basedir = FolderBrowserDialog1.SelectedPath
updateFilePicker()
End Sub
Private Sub ChangeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChangeToolStripMenuItem.Click
SHOWRECENTSHEREToolStripMenuItem_Click(sender, e)
End Sub
Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click
TextFileHolder.Undo()
End Sub
Private Sub EDocumentsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EDocumentsToolStripMenuItem.Click
basedir = "E:\Documents"
updateFilePicker()
End Sub
End Class

119
LoadTimeWarning.Designer.vb generated Normal file
View File

@ -0,0 +1,119 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class LoadTimeWarning
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(LoadTimeWarning))
Me.WarningText = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.RamCheckTimer = New System.Windows.Forms.Timer(Me.components)
Me.Gigalert = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'WarningText
'
Me.WarningText.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WarningText.Location = New System.Drawing.Point(12, 9)
Me.WarningText.Name = "WarningText"
Me.WarningText.Size = New System.Drawing.Size(493, 145)
Me.WarningText.TabIndex = 0
Me.WarningText.Text = resources.GetString("WarningText.Text")
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.Location = New System.Drawing.Point(430, 157)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Restart"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(349, 157)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Kill"
Me.Button2.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.BackColor = System.Drawing.SystemColors.Control
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(-18, 150)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(565, 62)
Me.Label2.TabIndex = 0
'
'RamCheckTimer
'
Me.RamCheckTimer.Interval = 1000
'
'Gigalert
'
Me.Gigalert.AutoSize = True
Me.Gigalert.BackColor = System.Drawing.SystemColors.Control
Me.Gigalert.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Gigalert.ForeColor = System.Drawing.Color.Red
Me.Gigalert.Location = New System.Drawing.Point(15, 161)
Me.Gigalert.Name = "Gigalert"
Me.Gigalert.Size = New System.Drawing.Size(209, 17)
Me.Gigalert.TabIndex = 2
Me.Gigalert.Text = "RAM usage has exceeded 1GB."
Me.Gigalert.Visible = False
'
'LoadTimeWarning
'
Me.AcceptButton = Me.Button1
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(517, 190)
Me.ControlBox = False
Me.Controls.Add(Me.Gigalert)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.WarningText)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "LoadTimeWarning"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Load Time Warning"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents WarningText As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Label2 As Label
Friend WithEvents RamCheckTimer As Timer
Friend WithEvents Gigalert As Label
End Class

130
LoadTimeWarning.resx Normal file
View File

@ -0,0 +1,130 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="WarningText.Text" xml:space="preserve">
<value>It's taking a very long time to read this file. Bear in mind that Notepad Ultra has not been designed for usage with large text files.
If you wish, you may restart Notepad Ultra (and cancel loading the file). The file will not be corrupted or modified in any way if you do this.
Note that leaving the operation running may eventually cause Notepad Ultra to become unstable or freeze.</value>
</data>
<metadata name="RamCheckTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

23
LoadTimeWarning.vb Normal file
View File

@ -0,0 +1,23 @@
Public Class LoadTimeWarning
Private Sub LoadTimeWarning_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Icon = ProgramIcon()
RamCheckTimer.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Application.Restart()
End Sub
Private Sub RamCheckTimer_Tick(sender As Object, e As EventArgs) Handles RamCheckTimer.Tick
Dim c As Process = Process.GetCurrentProcess()
If c.PrivateMemorySize64 > 1073741824 Then
Beep()
Gigalert.Visible = True
RamCheckTimer.Stop()
End If
End Sub
End Class

38
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Notepad_Ultra.Splash_Screen
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Splash_Screen</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>1</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,37 @@
Imports System.Resources
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Notepad Ultra")>
<Assembly: AssemblyDescription("An advanced Notepad for advanced minds.")>
<Assembly: AssemblyCompany("Lynnear Software")>
<Assembly: AssemblyProduct("Notepad Ultra")>
<Assembly: AssemblyCopyright("©2017")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("41cbfb3e-6bcd-4b0d-ac60-7c650e3a2015")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("0.4.*")>
' <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")>

123
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Notepad_Ultra.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property imageres_5348_02() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("imageres_5348_02", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property npu_beta_logo_24x() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("npu_beta_logo_24x", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property npu_icon_128() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("npu_icon_128", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property npu_icon_256() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("npu_icon_256", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property shell32_134_02() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("shell32_134_02", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property shell32_148_02() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("shell32_148_02", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

139
My Project/Resources.resx Normal file
View File

@ -0,0 +1,139 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="npu_icon_256" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\icon\res\png\beta\npu beta logo 256x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="npu_icon_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\icon\res\png\beta\npu beta logo 128x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shell32_148_02" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\img\shell32_148-02.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shell32_134_02" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\img\shell32_134-02.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="imageres_5348_02" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\img\imageres_5348-02.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="npu_beta_logo_24x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dependencies\icon\res\png\beta\upscaled\npu beta logo 24x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

786
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,786 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Lucida Console, 12pt")> _
Public Property Font() As Global.System.Drawing.Font
Get
Return CType(Me("Font"),Global.System.Drawing.Font)
End Get
Set
Me("Font") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property WordWrap() As Boolean
Get
Return CType(Me("WordWrap"),Boolean)
End Get
Set
Me("WordWrap") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("///FIRST RUN///")> _
Public Property WorkingDirectory() As String
Get
Return CType(Me("WorkingDirectory"),String)
End Get
Set
Me("WorkingDirectory") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property ShowSidebar() As Boolean
Get
Return CType(Me("ShowSidebar"),Boolean)
End Get
Set
Me("ShowSidebar") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property DefaultEncoding() As Integer
Get
Return CType(Me("DefaultEncoding"),Integer)
End Get
Set
Me("DefaultEncoding") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property GreenNotifications() As Boolean
Get
Return CType(Me("GreenNotifications"),Boolean)
End Get
Set
Me("GreenNotifications") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property MoveTransparency() As Boolean
Get
Return CType(Me("MoveTransparency"),Boolean)
End Get
Set
Me("MoveTransparency") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("50")> _
Public Property UndoSteps() As Integer
Get
Return CType(Me("UndoSteps"),Integer)
End Get
Set
Me("UndoSteps") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("256")> _
Public Property UndoMaxMemory() As Integer
Get
Return CType(Me("UndoMaxMemory"),Integer)
End Get
Set
Me("UndoMaxMemory") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property StandardTextBG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardTextBG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardTextBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property StandardTextFG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardTextFG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardTextFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property NiteTextBG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteTextBG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteTextBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("224, 224, 224")> _
Public Property NiteTextFG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteTextFG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteTextFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Red")> _
Public Property StandardNotifyColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Orange")> _
Public Property StandardNotifyColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Green")> _
Public Property StandardNotifyColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property StandardNotifyTextColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyTextColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyTextColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property StandardNotifyTextColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyTextColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyTextColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property StandardNotifyTextColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("StandardNotifyTextColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("StandardNotifyTextColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("RoyalBlue")> _
Public Property TertiaryTextBG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryTextBG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryTextBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property TertiaryTextFG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryTextFG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryTextFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Control")> _
Public Property TertiaryStatBG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryStatBG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryStatBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property TertiaryStatFG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryStatFG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryStatFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property StandardStatFG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardStatFG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardStatFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Control")> _
Public Property StandardStatBG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardStatBG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardStatBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property NiteStatFG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteStatFG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteStatFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Control")> _
Public Property NiteStatBG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteStatBG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteStatBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("<?xml version=""1.0"" encoding=""utf-16""?>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<ArrayOfString xmlns:xsi=""http://www.w3."& _
"org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <s"& _
"tring>txt</string>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <string>cfg</string>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <string>ini</string>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <string>lo"& _
"g</string>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</ArrayOfString>")> _
Public Property SupportedExtensions() As Global.System.Collections.Specialized.StringCollection
Get
Return CType(Me("SupportedExtensions"),Global.System.Collections.Specialized.StringCollection)
End Get
Set
Me("SupportedExtensions") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property StandardSidebarFG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardSidebarFG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardSidebarFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property StandardSidebarBG() As Global.System.Drawing.Color
Get
Return CType(Me("StandardSidebarBG"),Global.System.Drawing.Color)
End Get
Set
Me("StandardSidebarBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property NiteSidebarFG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteSidebarFG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteSidebarFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Black")> _
Public Property NiteSidebarBG() As Global.System.Drawing.Color
Get
Return CType(Me("NiteSidebarBG"),Global.System.Drawing.Color)
End Get
Set
Me("NiteSidebarBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property TertiarySidebarFG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiarySidebarFG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiarySidebarFG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("RoyalBlue")> _
Public Property TertiarySidebarBG() As Global.System.Drawing.Color
Get
Return CType(Me("TertiarySidebarBG"),Global.System.Drawing.Color)
End Get
Set
Me("TertiarySidebarBG") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Red")> _
Public Property NiteNotifyColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Orange")> _
Public Property NiteNotifyColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Green")> _
Public Property NiteNotifyColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property NiteNotifyTextColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyTextColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyTextColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property NiteNotifyTextColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyTextColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyTextColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property NiteNotifyTextColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("NiteNotifyTextColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("NiteNotifyTextColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Red")> _
Public Property TertiaryNotifyColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Orange")> _
Public Property TertiaryNotifyColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Green")> _
Public Property TertiaryNotifyColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property TertiaryNotifyTextColourCritical() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyTextColourCritical"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyTextColourCritical") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property TertiaryNotifyTextColourWarning() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyTextColourWarning"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyTextColourWarning") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("White")> _
Public Property TertiaryNotifyTextColourInfo() As Global.System.Drawing.Color
Get
Return CType(Me("TertiaryNotifyTextColourInfo"),Global.System.Drawing.Color)
End Get
Set
Me("TertiaryNotifyTextColourInfo") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property CurrentTheme() As Integer
Get
Return CType(Me("CurrentTheme"),Integer)
End Get
Set
Me("CurrentTheme") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property StatBarSize() As Boolean
Get
Return CType(Me("StatBarSize"),Boolean)
End Get
Set
Me("StatBarSize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property StatBarChars() As Boolean
Get
Return CType(Me("StatBarChars"),Boolean)
End Get
Set
Me("StatBarChars") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property StatBarDate() As Boolean
Get
Return CType(Me("StatBarDate"),Boolean)
End Get
Set
Me("StatBarDate") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property StatBarDir() As Boolean
Get
Return CType(Me("StatBarDir"),Boolean)
End Get
Set
Me("StatBarDir") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property StatBarFontSize() As Boolean
Get
Return CType(Me("StatBarFontSize"),Boolean)
End Get
Set
Me("StatBarFontSize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property StatBarStatus() As Boolean
Get
Return CType(Me("StatBarStatus"),Boolean)
End Get
Set
Me("StatBarStatus") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property StatBarMode() As Boolean
Get
Return CType(Me("StatBarMode"),Boolean)
End Get
Set
Me("StatBarMode") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property UseRecycleBin() As Boolean
Get
Return CType(Me("UseRecycleBin"),Boolean)
End Get
Set
Me("UseRecycleBin") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("<?xml version=""1.0"" encoding=""utf-16""?>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<ArrayOfString xmlns:xsi=""http://www.w3."& _
"org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <s"& _
"tring />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</ArrayOfString>")> _
Public Property PresetDirectories() As Global.System.Collections.Specialized.StringCollection
Get
Return CType(Me("PresetDirectories"),Global.System.Collections.Specialized.StringCollection)
End Get
Set
Me("PresetDirectories") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property UndoUnlimitedSteps() As Boolean
Get
Return CType(Me("UndoUnlimitedSteps"),Boolean)
End Get
Set
Me("UndoUnlimitedSteps") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property UndoMemoryLimit() As Boolean
Get
Return CType(Me("UndoMemoryLimit"),Boolean)
End Get
Set
Me("UndoMemoryLimit") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property DefaultFileAction() As Integer
Get
Return CType(Me("DefaultFileAction"),Integer)
End Get
Set
Me("DefaultFileAction") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Notepad_Ultra.My.MySettings
Get
Return Global.Notepad_Ultra.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,192 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="Font" Type="System.Drawing.Font" Scope="User">
<Value Profile="(Default)">Lucida Console, 12pt</Value>
</Setting>
<Setting Name="WordWrap" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="WorkingDirectory" Type="System.String" Scope="User">
<Value Profile="(Default)">///FIRST RUN///</Value>
</Setting>
<Setting Name="ShowSidebar" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DefaultEncoding" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="GreenNotifications" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="MoveTransparency" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="UndoSteps" Type="System.Int32" Scope="User">
<Value Profile="(Default)">50</Value>
</Setting>
<Setting Name="UndoMaxMemory" Type="System.Int32" Scope="User">
<Value Profile="(Default)">256</Value>
</Setting>
<Setting Name="StandardTextBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="StandardTextFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="NiteTextBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="NiteTextFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">224, 224, 224</Value>
</Setting>
<Setting Name="StandardNotifyColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Red</Value>
</Setting>
<Setting Name="StandardNotifyColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Orange</Value>
</Setting>
<Setting Name="StandardNotifyColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Green</Value>
</Setting>
<Setting Name="StandardNotifyTextColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="StandardNotifyTextColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="StandardNotifyTextColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiaryTextBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">RoyalBlue</Value>
</Setting>
<Setting Name="TertiaryTextFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiaryStatBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Control</Value>
</Setting>
<Setting Name="TertiaryStatFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="StandardStatFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="StandardStatBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Control</Value>
</Setting>
<Setting Name="NiteStatFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="NiteStatBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Control</Value>
</Setting>
<Setting Name="SupportedExtensions" Type="System.Collections.Specialized.StringCollection" Scope="User">
<Value Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;string&gt;txt&lt;/string&gt;
&lt;string&gt;cfg&lt;/string&gt;
&lt;string&gt;ini&lt;/string&gt;
&lt;string&gt;log&lt;/string&gt;
&lt;/ArrayOfString&gt;</Value>
</Setting>
<Setting Name="StandardSidebarFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="StandardSidebarBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="NiteSidebarFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="NiteSidebarBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Black</Value>
</Setting>
<Setting Name="TertiarySidebarFG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiarySidebarBG" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">RoyalBlue</Value>
</Setting>
<Setting Name="NiteNotifyColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Red</Value>
</Setting>
<Setting Name="NiteNotifyColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Orange</Value>
</Setting>
<Setting Name="NiteNotifyColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Green</Value>
</Setting>
<Setting Name="NiteNotifyTextColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="NiteNotifyTextColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="NiteNotifyTextColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiaryNotifyColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Red</Value>
</Setting>
<Setting Name="TertiaryNotifyColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Orange</Value>
</Setting>
<Setting Name="TertiaryNotifyColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">Green</Value>
</Setting>
<Setting Name="TertiaryNotifyTextColourCritical" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiaryNotifyTextColourWarning" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="TertiaryNotifyTextColourInfo" Type="System.Drawing.Color" Scope="User">
<Value Profile="(Default)">White</Value>
</Setting>
<Setting Name="CurrentTheme" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="StatBarSize" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="StatBarChars" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="StatBarDate" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="StatBarDir" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="StatBarFontSize" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="StatBarStatus" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="StatBarMode" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="UseRecycleBin" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="PresetDirectories" Type="System.Collections.Specialized.StringCollection" Scope="User">
<Value Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;string /&gt;
&lt;/ArrayOfString&gt;</Value>
</Setting>
<Setting Name="UndoUnlimitedSteps" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="UndoMemoryLimit" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DefaultFileAction" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
</Settings>
</SettingsFile>

76
My Project/app.manifest Normal file
View File

@ -0,0 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel element will disable file and registry virtualization.
Remove this element if your application requires this virtualization for backwards
compatibility.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of the Windows versions that this application has been tested on and is
is designed to work with. Uncomment the appropriate elements and Windows will
automatically selected the most compatible environment. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
DPIs. Windows Presentation Foundation (WPF) applications are automatically DPI-aware and do not need
to opt in. Windows Forms applications targeting .NET Framework 4.6 that opt into this setting, should
also set the 'EnableWindowsFormsHighDpiAutoResizing' setting to 'true' in their app.config. -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
</windowsSettings>
</application>
-->
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

978
Notepad Ultra.Designer.vb generated Normal file
View File

@ -0,0 +1,978 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class NPUWindow
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(NPUWindow))
Me.FilePickerMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FilenametxtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ShowInExplorer = New System.Windows.Forms.ToolStripMenuItem()
Me.RenameToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuBar = New System.Windows.Forms.MenuStrip()
Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EncryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EncryptToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.DecryptToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.DuplicateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.RenameToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MoveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PageSetup = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OneDriveTextFilesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EDocumentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.GoUpToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.SHOWRECENTSHEREToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SettingsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RefreshFileList = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RestartToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FormatToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RedoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReplaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GoToToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.TimeDateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimeDateToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.WordCountToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.WordWrapToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SansSerifToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ArialToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SegoeUIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MonospaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ConsolasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LucidaConsoleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.CustomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SidebarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ThemeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandardTheme = New System.Windows.Forms.ToolStripMenuItem()
Me.NightTheme = New System.Windows.Forms.ToolStripMenuItem()
Me.TertiaryTheme = New System.Windows.Forms.ToolStripMenuItem()
Me.FileInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SoftwareUsedToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.BaseDirWatchPathToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GoUpValidatorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveDialogue = New System.Windows.Forms.SaveFileDialog()
Me.FontPicker = New System.Windows.Forms.FontDialog()
Me.StatusBar = New System.Windows.Forms.StatusStrip()
Me.StatBytes = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatChars = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatDate = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatDirectory = New System.Windows.Forms.ToolStripSplitButton()
Me.ChangeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OpenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.GoUpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatFontSize = New System.Windows.Forms.ToolStripDropDownButton()
Me.MakeFontLarger = New System.Windows.Forms.ToolStripMenuItem()
Me.MakeFontSmaller = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripStatusLabel3 = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatMode = New System.Windows.Forms.ToolStripDropDownButton()
Me.AutomaticBulletPointsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BulletPointsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DashesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OvertypeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Throbber = New System.Windows.Forms.ToolStripProgressBar()
Me.Spacer = New System.Windows.Forms.ToolStripStatusLabel()
Me.Notification = New System.Windows.Forms.ToolStripStatusLabel()
Me.chocolatePuddingOvenTimer = New System.Windows.Forms.Timer(Me.components)
Me.FolderPicker = New System.Windows.Forms.FolderBrowserDialog()
Me.ShowNotificationTimer = New System.Windows.Forms.Timer(Me.components)
Me.BaseDirWatch = New System.IO.FileSystemWatcher()
Me.BaseDirWatchReenabler = New System.Windows.Forms.Timer(Me.components)
Me.PrintDialogue = New System.Windows.Forms.PrintDialog()
Me.PrintDocumentThingy = New System.Drawing.Printing.PrintDocument()
Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog()
Me.TextFileHolder = New RichTextBoxPrintCtrl.RichTextBoxPrintCtrl.RichTextBoxPrintCtrl()
Me.LoadTimeWarningTimer = New System.Windows.Forms.Timer(Me.components)
Me.SplashKillTimer = New System.Windows.Forms.Timer(Me.components)
Me.OPFKillTimer = New System.Windows.Forms.Timer(Me.components)
Me.UndoTimer = New System.Windows.Forms.Timer(Me.components)
Me.FilePicker = New System.Windows.Forms.ListBox()
Me.MoveFileDialogue = New System.Windows.Forms.SaveFileDialog()
Me.FilePickerMenu.SuspendLayout()
Me.MenuBar.SuspendLayout()
Me.StatusBar.SuspendLayout()
CType(Me.BaseDirWatch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'FilePickerMenu
'
Me.FilePickerMenu.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.FilePickerMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FilenametxtToolStripMenuItem, Me.ToolStripSeparator9, Me.ShowInExplorer, Me.RenameToolStripMenuItem1, Me.DeleteToolStripMenuItem})
Me.FilePickerMenu.Name = "FilePickerMenu"
Me.FilePickerMenu.Size = New System.Drawing.Size(190, 106)
'
'FilenametxtToolStripMenuItem
'
Me.FilenametxtToolStripMenuItem.Enabled = False
Me.FilenametxtToolStripMenuItem.Name = "FilenametxtToolStripMenuItem"
Me.FilenametxtToolStripMenuItem.Size = New System.Drawing.Size(189, 24)
Me.FilenametxtToolStripMenuItem.Text = "filename.txt"
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(186, 6)
'
'ShowInExplorer
'
Me.ShowInExplorer.Name = "ShowInExplorer"
Me.ShowInExplorer.Size = New System.Drawing.Size(189, 24)
Me.ShowInExplorer.Text = "Show in Explorer"
'
'RenameToolStripMenuItem1
'
Me.RenameToolStripMenuItem1.Name = "RenameToolStripMenuItem1"
Me.RenameToolStripMenuItem1.Size = New System.Drawing.Size(189, 24)
Me.RenameToolStripMenuItem1.Text = "Rename"
'
'DeleteToolStripMenuItem
'
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(189, 24)
Me.DeleteToolStripMenuItem.Text = "Delete"
'
'MenuBar
'
Me.MenuBar.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MenuBar.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.FormatToolStripMenuItem, Me.EditToolStripMenuItem, Me.ViewToolStripMenuItem})
Me.MenuBar.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.MenuBar.Location = New System.Drawing.Point(0, 0)
Me.MenuBar.Name = "MenuBar"
Me.MenuBar.Padding = New System.Windows.Forms.Padding(8, 2, 0, 2)
Me.MenuBar.Size = New System.Drawing.Size(1101, 28)
Me.MenuBar.TabIndex = 1
Me.MenuBar.Text = "benis :DDDDDD"
'
'FileToolStripMenuItem
'
Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem, Me.EncryptToolStripMenuItem, Me.ToolStripSeparator11, Me.DuplicateToolStripMenuItem, Me.DeleteToolStripMenuItem2, Me.RenameToolStripMenuItem, Me.MoveToolStripMenuItem, Me.ToolStripSeparator10, Me.PrintToolStripMenuItem, Me.PageSetup, Me.ToolStripSeparator1, Me.OpenToolStripMenuItem, Me.SettingsToolStripMenuItem, Me.RefreshFileList, Me.ToolStripSeparator8, Me.ExitToolStripMenuItem, Me.RestartToolStripMenuItem})
Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
Me.FileToolStripMenuItem.Size = New System.Drawing.Size(44, 24)
Me.FileToolStripMenuItem.Text = "File"
'
'NewToolStripMenuItem
'
Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem"
Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
Me.NewToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.NewToolStripMenuItem.Text = "New"
'
'SaveToolStripMenuItem
'
Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem"
Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.SaveToolStripMenuItem.Text = "Save"
'
'SaveAsToolStripMenuItem
'
Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem"
Me.SaveAsToolStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.SaveAsToolStripMenuItem.Text = "Save As..."
'
'EncryptToolStripMenuItem
'
Me.EncryptToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EncryptToolStripMenuItem1, Me.DecryptToolStripMenuItem})
Me.EncryptToolStripMenuItem.Enabled = False
Me.EncryptToolStripMenuItem.Name = "EncryptToolStripMenuItem"
Me.EncryptToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.EncryptToolStripMenuItem.Text = "Encryption"
'
'EncryptToolStripMenuItem1
'
Me.EncryptToolStripMenuItem1.Name = "EncryptToolStripMenuItem1"
Me.EncryptToolStripMenuItem1.Size = New System.Drawing.Size(136, 26)
Me.EncryptToolStripMenuItem1.Text = "Encrypt"
'
'DecryptToolStripMenuItem
'
Me.DecryptToolStripMenuItem.Name = "DecryptToolStripMenuItem"
Me.DecryptToolStripMenuItem.Size = New System.Drawing.Size(136, 26)
Me.DecryptToolStripMenuItem.Text = "Decrypt"
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(245, 6)
'
'DuplicateToolStripMenuItem
'
Me.DuplicateToolStripMenuItem.Name = "DuplicateToolStripMenuItem"
Me.DuplicateToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys)
Me.DuplicateToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.DuplicateToolStripMenuItem.Text = "Duplicate..."
'
'DeleteToolStripMenuItem2
'
Me.DeleteToolStripMenuItem2.Name = "DeleteToolStripMenuItem2"
Me.DeleteToolStripMenuItem2.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.Delete), System.Windows.Forms.Keys)
Me.DeleteToolStripMenuItem2.Size = New System.Drawing.Size(248, 26)
Me.DeleteToolStripMenuItem2.Text = "Delete"
'
'RenameToolStripMenuItem
'
Me.RenameToolStripMenuItem.Name = "RenameToolStripMenuItem"
Me.RenameToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F2
Me.RenameToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.RenameToolStripMenuItem.Text = "Rename..."
'
'MoveToolStripMenuItem
'
Me.MoveToolStripMenuItem.Name = "MoveToolStripMenuItem"
Me.MoveToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.MoveToolStripMenuItem.Text = "Move..."
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(245, 6)
'
'PrintToolStripMenuItem
'
Me.PrintToolStripMenuItem.Name = "PrintToolStripMenuItem"
Me.PrintToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys)
Me.PrintToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.PrintToolStripMenuItem.Text = "Print"
'
'PageSetup
'
Me.PageSetup.Name = "PageSetup"
Me.PageSetup.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _
Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys)
Me.PageSetup.Size = New System.Drawing.Size(248, 26)
Me.PageSetup.Text = "Page Setup"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(245, 6)
'
'OpenToolStripMenuItem
'
Me.OpenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OneDriveTextFilesToolStripMenuItem, Me.EDocumentsToolStripMenuItem, Me.ToolStripSeparator5, Me.GoUpToolStripMenuItem1, Me.SHOWRECENTSHEREToolStripMenuItem})
Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem"
Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.OpenToolStripMenuItem.Text = "Set Working Directory..."
'
'OneDriveTextFilesToolStripMenuItem
'
Me.OneDriveTextFilesToolStripMenuItem.Name = "OneDriveTextFilesToolStripMenuItem"
Me.OneDriveTextFilesToolStripMenuItem.Size = New System.Drawing.Size(356, 26)
Me.OneDriveTextFilesToolStripMenuItem.Text = "F:\OneDrive\Documents\Other\Text files\"
'
'EDocumentsToolStripMenuItem
'
Me.EDocumentsToolStripMenuItem.Name = "EDocumentsToolStripMenuItem"
Me.EDocumentsToolStripMenuItem.Size = New System.Drawing.Size(356, 26)
Me.EDocumentsToolStripMenuItem.Text = "E:\Documents"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(353, 6)
'
'GoUpToolStripMenuItem1
'
Me.GoUpToolStripMenuItem1.Name = "GoUpToolStripMenuItem1"
Me.GoUpToolStripMenuItem1.ShortcutKeys = System.Windows.Forms.Keys.F10
Me.GoUpToolStripMenuItem1.Size = New System.Drawing.Size(356, 26)
Me.GoUpToolStripMenuItem1.Text = "Go Up"
'
'SHOWRECENTSHEREToolStripMenuItem
'
Me.SHOWRECENTSHEREToolStripMenuItem.Name = "SHOWRECENTSHEREToolStripMenuItem"
Me.SHOWRECENTSHEREToolStripMenuItem.Size = New System.Drawing.Size(356, 26)
Me.SHOWRECENTSHEREToolStripMenuItem.Text = "Other..."
'
'SettingsToolStripMenuItem
'
Me.SettingsToolStripMenuItem.Name = "SettingsToolStripMenuItem"
Me.SettingsToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.K), System.Windows.Forms.Keys)
Me.SettingsToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.SettingsToolStripMenuItem.Text = "Settings"
'
'RefreshFileList
'
Me.RefreshFileList.Name = "RefreshFileList"
Me.RefreshFileList.ShortcutKeys = System.Windows.Forms.Keys.F5
Me.RefreshFileList.Size = New System.Drawing.Size(248, 26)
Me.RefreshFileList.Text = "Refresh File List"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(245, 6)
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'RestartToolStripMenuItem
'
Me.RestartToolStripMenuItem.Name = "RestartToolStripMenuItem"
Me.RestartToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F3), System.Windows.Forms.Keys)
Me.RestartToolStripMenuItem.Size = New System.Drawing.Size(248, 26)
Me.RestartToolStripMenuItem.Text = "Restart"
'
'FormatToolStripMenuItem
'
Me.FormatToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem, Me.RedoToolStripMenuItem, Me.ToolStripSeparator4, Me.FindToolStripMenuItem, Me.ReplaceToolStripMenuItem, Me.GoToToolStripMenuItem, Me.ToolStripSeparator3, Me.TimeDateToolStripMenuItem})
Me.FormatToolStripMenuItem.Name = "FormatToolStripMenuItem"
Me.FormatToolStripMenuItem.Size = New System.Drawing.Size(47, 24)
Me.FormatToolStripMenuItem.Text = "Edit"
'
'UndoToolStripMenuItem
'
Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem"
Me.UndoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys)
Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.UndoToolStripMenuItem.Text = "Undo"
'
'RedoToolStripMenuItem
'
Me.RedoToolStripMenuItem.Name = "RedoToolStripMenuItem"
Me.RedoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Y), System.Windows.Forms.Keys)
Me.RedoToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.RedoToolStripMenuItem.Text = "Redo"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(196, 6)
'
'FindToolStripMenuItem
'
Me.FindToolStripMenuItem.Name = "FindToolStripMenuItem"
Me.FindToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F), System.Windows.Forms.Keys)
Me.FindToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.FindToolStripMenuItem.Text = "Find..."
'
'ReplaceToolStripMenuItem
'
Me.ReplaceToolStripMenuItem.Name = "ReplaceToolStripMenuItem"
Me.ReplaceToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.H), System.Windows.Forms.Keys)
Me.ReplaceToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.ReplaceToolStripMenuItem.Text = "Replace..."
'
'GoToToolStripMenuItem
'
Me.GoToToolStripMenuItem.Name = "GoToToolStripMenuItem"
Me.GoToToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.G), System.Windows.Forms.Keys)
Me.GoToToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.GoToToolStripMenuItem.Text = "Go To..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(196, 6)
'
'TimeDateToolStripMenuItem
'
Me.TimeDateToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TimeDateToolStripMenuItem1, Me.WordCountToolStripMenuItem})
Me.TimeDateToolStripMenuItem.Name = "TimeDateToolStripMenuItem"
Me.TimeDateToolStripMenuItem.Size = New System.Drawing.Size(199, 26)
Me.TimeDateToolStripMenuItem.Text = "Insert"
'
'TimeDateToolStripMenuItem1
'
Me.TimeDateToolStripMenuItem1.Name = "TimeDateToolStripMenuItem1"
Me.TimeDateToolStripMenuItem1.Size = New System.Drawing.Size(163, 26)
Me.TimeDateToolStripMenuItem1.Text = "Time/Date"
'
'WordCountToolStripMenuItem
'
Me.WordCountToolStripMenuItem.Name = "WordCountToolStripMenuItem"
Me.WordCountToolStripMenuItem.Size = New System.Drawing.Size(163, 26)
Me.WordCountToolStripMenuItem.Text = "Word Count"
'
'EditToolStripMenuItem
'
Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.WordWrapToolStripMenuItem, Me.FontToolStripMenuItem})
Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem"
Me.EditToolStripMenuItem.Size = New System.Drawing.Size(68, 24)
Me.EditToolStripMenuItem.Text = "Format"
'
'WordWrapToolStripMenuItem
'
Me.WordWrapToolStripMenuItem.Checked = True
Me.WordWrapToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
Me.WordWrapToolStripMenuItem.Name = "WordWrapToolStripMenuItem"
Me.WordWrapToolStripMenuItem.Size = New System.Drawing.Size(160, 26)
Me.WordWrapToolStripMenuItem.Text = "Word Wrap"
'
'FontToolStripMenuItem
'
Me.FontToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SansSerifToolStripMenuItem, Me.MonospaceToolStripMenuItem, Me.ToolStripSeparator6, Me.CustomToolStripMenuItem})
Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem"
Me.FontToolStripMenuItem.Size = New System.Drawing.Size(160, 26)
Me.FontToolStripMenuItem.Text = "Font"
'
'SansSerifToolStripMenuItem
'
Me.SansSerifToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ArialToolStripMenuItem, Me.SegoeUIToolStripMenuItem})
Me.SansSerifToolStripMenuItem.Name = "SansSerifToolStripMenuItem"
Me.SansSerifToolStripMenuItem.Size = New System.Drawing.Size(161, 26)
Me.SansSerifToolStripMenuItem.Text = "Standard"
'
'ArialToolStripMenuItem
'
Me.ArialToolStripMenuItem.Name = "ArialToolStripMenuItem"
Me.ArialToolStripMenuItem.Size = New System.Drawing.Size(144, 26)
Me.ArialToolStripMenuItem.Text = "Arial"
'
'SegoeUIToolStripMenuItem
'
Me.SegoeUIToolStripMenuItem.Name = "SegoeUIToolStripMenuItem"
Me.SegoeUIToolStripMenuItem.Size = New System.Drawing.Size(144, 26)
Me.SegoeUIToolStripMenuItem.Text = "Segoe UI"
'
'MonospaceToolStripMenuItem
'
Me.MonospaceToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ConsolasToolStripMenuItem, Me.LucidaConsoleToolStripMenuItem})
Me.MonospaceToolStripMenuItem.Name = "MonospaceToolStripMenuItem"
Me.MonospaceToolStripMenuItem.Size = New System.Drawing.Size(161, 26)
Me.MonospaceToolStripMenuItem.Text = "Monospace"
'
'ConsolasToolStripMenuItem
'
Me.ConsolasToolStripMenuItem.Name = "ConsolasToolStripMenuItem"
Me.ConsolasToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.ConsolasToolStripMenuItem.Text = "Consolas"
'
'LucidaConsoleToolStripMenuItem
'
Me.LucidaConsoleToolStripMenuItem.Name = "LucidaConsoleToolStripMenuItem"
Me.LucidaConsoleToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.LucidaConsoleToolStripMenuItem.Text = "Lucida Console"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(158, 6)
'
'CustomToolStripMenuItem
'
Me.CustomToolStripMenuItem.Name = "CustomToolStripMenuItem"
Me.CustomToolStripMenuItem.Size = New System.Drawing.Size(161, 26)
Me.CustomToolStripMenuItem.Text = "Custom..."
'
'ViewToolStripMenuItem
'
Me.ViewToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SidebarToolStripMenuItem, Me.ThemeToolStripMenuItem, Me.FileInfoToolStripMenuItem, Me.ToolStripSeparator7, Me.AboutToolStripMenuItem, Me.SoftwareUsedToolStripMenuItem, Me.ToolStripSeparator2, Me.BaseDirWatchPathToolStripMenuItem, Me.GoUpValidatorToolStripMenuItem})
Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem"
Me.ViewToolStripMenuItem.Size = New System.Drawing.Size(53, 24)
Me.ViewToolStripMenuItem.Text = "View"
'
'SidebarToolStripMenuItem
'
Me.SidebarToolStripMenuItem.Name = "SidebarToolStripMenuItem"
Me.SidebarToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F6
Me.SidebarToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.SidebarToolStripMenuItem.Text = "Sidebar"
'
'ThemeToolStripMenuItem
'
Me.ThemeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StandardTheme, Me.NightTheme, Me.TertiaryTheme})
Me.ThemeToolStripMenuItem.Name = "ThemeToolStripMenuItem"
Me.ThemeToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.ThemeToolStripMenuItem.Text = "Theme"
'
'StandardTheme
'
Me.StandardTheme.Name = "StandardTheme"
Me.StandardTheme.ShortcutKeys = System.Windows.Forms.Keys.F7
Me.StandardTheme.Size = New System.Drawing.Size(188, 26)
Me.StandardTheme.Text = "Standard"
'
'NightTheme
'
Me.NightTheme.Name = "NightTheme"
Me.NightTheme.ShortcutKeys = System.Windows.Forms.Keys.F8
Me.NightTheme.Size = New System.Drawing.Size(188, 26)
Me.NightTheme.Text = "Night Mode"
'
'TertiaryTheme
'
Me.TertiaryTheme.Name = "TertiaryTheme"
Me.TertiaryTheme.ShortcutKeys = System.Windows.Forms.Keys.F9
Me.TertiaryTheme.Size = New System.Drawing.Size(188, 26)
Me.TertiaryTheme.Text = "Tertiary"
'
'FileInfoToolStripMenuItem
'
Me.FileInfoToolStripMenuItem.Name = "FileInfoToolStripMenuItem"
Me.FileInfoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.I), System.Windows.Forms.Keys)
Me.FileInfoToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.FileInfoToolStripMenuItem.Text = "File Info"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(205, 6)
'
'AboutToolStripMenuItem
'
Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem"
Me.AboutToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F1
Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.AboutToolStripMenuItem.Text = "About"
'
'SoftwareUsedToolStripMenuItem
'
Me.SoftwareUsedToolStripMenuItem.Name = "SoftwareUsedToolStripMenuItem"
Me.SoftwareUsedToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.SoftwareUsedToolStripMenuItem.Text = "Software Used"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(205, 6)
'
'BaseDirWatchPathToolStripMenuItem
'
Me.BaseDirWatchPathToolStripMenuItem.Name = "BaseDirWatchPathToolStripMenuItem"
Me.BaseDirWatchPathToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.BaseDirWatchPathToolStripMenuItem.Text = "BaseDirWatch Path"
'
'GoUpValidatorToolStripMenuItem
'
Me.GoUpValidatorToolStripMenuItem.Name = "GoUpValidatorToolStripMenuItem"
Me.GoUpValidatorToolStripMenuItem.Size = New System.Drawing.Size(208, 26)
Me.GoUpValidatorToolStripMenuItem.Text = "Go Up Validator"
'
'SaveDialogue
'
Me.SaveDialogue.Filter = "Text File|*.txt|Batch File|*.bat|Other|*.*"
'
'StatusBar
'
Me.StatusBar.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.StatusBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatBytes, Me.StatChars, Me.StatDate, Me.StatStatus, Me.StatDirectory, Me.StatFontSize, Me.ToolStripStatusLabel3, Me.StatMode, Me.Throbber, Me.Spacer, Me.Notification})
Me.StatusBar.Location = New System.Drawing.Point(0, 602)
Me.StatusBar.Name = "StatusBar"
Me.StatusBar.Padding = New System.Windows.Forms.Padding(1, 0, 19, 0)
Me.StatusBar.Size = New System.Drawing.Size(1101, 29)
Me.StatusBar.TabIndex = 5
Me.StatusBar.Text = "StatusStrip1"
'
'StatBytes
'
Me.StatBytes.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right
Me.StatBytes.Name = "StatBytes"
Me.StatBytes.Size = New System.Drawing.Size(60, 24)
Me.StatBytes.Text = "0 Bytes"
'
'StatChars
'
Me.StatChars.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right
Me.StatChars.Name = "StatChars"
Me.StatChars.Size = New System.Drawing.Size(73, 24)
Me.StatChars.Text = "Length: 0"
'
'StatDate
'
Me.StatDate.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right
Me.StatDate.Name = "StatDate"
Me.StatDate.Size = New System.Drawing.Size(99, 24)
Me.StatDate.Text = "Created: N/A"
'
'StatStatus
'
Me.StatStatus.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right
Me.StatStatus.Name = "StatStatus"
Me.StatStatus.Size = New System.Drawing.Size(109, 24)
Me.StatStatus.Text = "No file loaded"
'
'StatDirectory
'
Me.StatDirectory.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.StatDirectory.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChangeToolStripMenuItem, Me.OpenToolStripMenuItem1, Me.GoUpToolStripMenuItem})
Me.StatDirectory.ImageTransparentColor = System.Drawing.Color.Magenta
Me.StatDirectory.Name = "StatDirectory"
Me.StatDirectory.Size = New System.Drawing.Size(89, 27)
Me.StatDirectory.Text = "Directory"
Me.StatDirectory.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage
'
'ChangeToolStripMenuItem
'
Me.ChangeToolStripMenuItem.Name = "ChangeToolStripMenuItem"
Me.ChangeToolStripMenuItem.Size = New System.Drawing.Size(143, 26)
Me.ChangeToolStripMenuItem.Text = "Change..."
'
'OpenToolStripMenuItem1
'
Me.OpenToolStripMenuItem1.Name = "OpenToolStripMenuItem1"
Me.OpenToolStripMenuItem1.Size = New System.Drawing.Size(143, 26)
Me.OpenToolStripMenuItem1.Text = "Open"
'
'GoUpToolStripMenuItem
'
Me.GoUpToolStripMenuItem.Name = "GoUpToolStripMenuItem"
Me.GoUpToolStripMenuItem.Size = New System.Drawing.Size(143, 26)
Me.GoUpToolStripMenuItem.Text = "Go Up"
'
'StatFontSize
'
Me.StatFontSize.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.StatFontSize.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MakeFontLarger, Me.MakeFontSmaller})
Me.StatFontSize.Image = CType(resources.GetObject("StatFontSize.Image"), System.Drawing.Image)
Me.StatFontSize.ImageTransparentColor = System.Drawing.Color.Magenta
Me.StatFontSize.Name = "StatFontSize"
Me.StatFontSize.Size = New System.Drawing.Size(83, 27)
Me.StatFontSize.Text = "Font Size"
'
'MakeFontLarger
'
Me.MakeFontLarger.Name = "MakeFontLarger"
Me.MakeFontLarger.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Oemplus), System.Windows.Forms.Keys)
Me.MakeFontLarger.ShowShortcutKeys = False
Me.MakeFontLarger.Size = New System.Drawing.Size(172, 26)
Me.MakeFontLarger.Text = "Larger (Ctrl +)"
'
'MakeFontSmaller
'
Me.MakeFontSmaller.Name = "MakeFontSmaller"
Me.MakeFontSmaller.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.OemMinus), System.Windows.Forms.Keys)
Me.MakeFontSmaller.ShowShortcutKeys = False
Me.MakeFontSmaller.Size = New System.Drawing.Size(172, 26)
Me.MakeFontSmaller.Text = "Smaller (Ctrl -)"
'
'ToolStripStatusLabel3
'
Me.ToolStripStatusLabel3.Name = "ToolStripStatusLabel3"
Me.ToolStripStatusLabel3.Size = New System.Drawing.Size(0, 24)
'
'StatMode
'
Me.StatMode.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.StatMode.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AutomaticBulletPointsToolStripMenuItem, Me.OvertypeToolStripMenuItem})
Me.StatMode.ImageTransparentColor = System.Drawing.Color.Magenta
Me.StatMode.Name = "StatMode"
Me.StatMode.Size = New System.Drawing.Size(62, 27)
Me.StatMode.Text = "Mode"
'
'AutomaticBulletPointsToolStripMenuItem
'
Me.AutomaticBulletPointsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BulletPointsToolStripMenuItem, Me.DashesToolStripMenuItem})
Me.AutomaticBulletPointsToolStripMenuItem.Name = "AutomaticBulletPointsToolStripMenuItem"
Me.AutomaticBulletPointsToolStripMenuItem.Size = New System.Drawing.Size(192, 26)
Me.AutomaticBulletPointsToolStripMenuItem.Text = "Automatic..."
'
'BulletPointsToolStripMenuItem
'
Me.BulletPointsToolStripMenuItem.CheckOnClick = True
Me.BulletPointsToolStripMenuItem.Name = "BulletPointsToolStripMenuItem"
Me.BulletPointsToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D1), System.Windows.Forms.Keys)
Me.BulletPointsToolStripMenuItem.Size = New System.Drawing.Size(217, 26)
Me.BulletPointsToolStripMenuItem.Text = "Bullet points"
Me.BulletPointsToolStripMenuItem.ToolTipText = "Indentation can be increased with tab and decreased with shift-tab."
'
'DashesToolStripMenuItem
'
Me.DashesToolStripMenuItem.CheckOnClick = True
Me.DashesToolStripMenuItem.Name = "DashesToolStripMenuItem"
Me.DashesToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D2), System.Windows.Forms.Keys)
Me.DashesToolStripMenuItem.Size = New System.Drawing.Size(217, 26)
Me.DashesToolStripMenuItem.Text = "Dashes"
Me.DashesToolStripMenuItem.ToolTipText = "Indentation can be increased with tab and decreased with shift-tab."
'
'OvertypeToolStripMenuItem
'
Me.OvertypeToolStripMenuItem.Name = "OvertypeToolStripMenuItem"
Me.OvertypeToolStripMenuItem.Size = New System.Drawing.Size(192, 26)
Me.OvertypeToolStripMenuItem.Text = "Toggle overtype"
'
'Throbber
'
Me.Throbber.MarqueeAnimationSpeed = 25
Me.Throbber.Maximum = 1000
Me.Throbber.Name = "Throbber"
Me.Throbber.Size = New System.Drawing.Size(200, 23)
Me.Throbber.Step = 1
Me.Throbber.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.Throbber.Visible = False
'
'Spacer
'
Me.Spacer.Name = "Spacer"
Me.Spacer.Size = New System.Drawing.Size(141, 24)
Me.Spacer.Spring = True
'
'Notification
'
Me.Notification.BackColor = System.Drawing.Color.Green
Me.Notification.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Notification.ForeColor = System.Drawing.Color.White
Me.Notification.Name = "Notification"
Me.Notification.Size = New System.Drawing.Size(124, 24)
Me.Notification.Text = "Notification! 0u0"
Me.Notification.Visible = False
'
'chocolatePuddingOvenTimer
'
Me.chocolatePuddingOvenTimer.Interval = 250
'
'ShowNotificationTimer
'
Me.ShowNotificationTimer.Interval = 1
'
'BaseDirWatch
'
Me.BaseDirWatch.EnableRaisingEvents = True
Me.BaseDirWatch.NotifyFilter = CType((System.IO.NotifyFilters.FileName Or System.IO.NotifyFilters.DirectoryName), System.IO.NotifyFilters)
Me.BaseDirWatch.SynchronizingObject = Me
'
'BaseDirWatchReenabler
'
Me.BaseDirWatchReenabler.Interval = 1000
'
'PrintDialogue
'
Me.PrintDialogue.Document = Me.PrintDocumentThingy
Me.PrintDialogue.UseEXDialog = True
'
'PrintDocumentThingy
'
'
'PrintPreviewDialog1
'
Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
Me.PrintPreviewDialog1.Document = Me.PrintDocumentThingy
Me.PrintPreviewDialog1.Enabled = True
Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
Me.PrintPreviewDialog1.Visible = False
'
'PageSetupDialog1
'
Me.PageSetupDialog1.Document = Me.PrintDocumentThingy
'
'TextFileHolder
'
Me.TextFileHolder.AcceptsTab = True
Me.TextFileHolder.AutoWordSelection = True
Me.TextFileHolder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextFileHolder.EnableAutoDragDrop = True
Me.TextFileHolder.Location = New System.Drawing.Point(244, 0)
Me.TextFileHolder.Name = "TextFileHolder"
Me.TextFileHolder.Size = New System.Drawing.Size(857, 604)
Me.TextFileHolder.TabIndex = 6
Me.TextFileHolder.Text = ""
'
'LoadTimeWarningTimer
'
Me.LoadTimeWarningTimer.Interval = 10000
'
'SplashKillTimer
'
Me.SplashKillTimer.Interval = 500
'
'OPFKillTimer
'
Me.OPFKillTimer.Interval = 500
'
'UndoTimer
'
Me.UndoTimer.Interval = 500
'
'FilePicker
'
Me.FilePicker.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.FilePicker.ContextMenuStrip = Me.FilePickerMenu
Me.FilePicker.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FilePicker.FormattingEnabled = True
Me.FilePicker.IntegralHeight = False
Me.FilePicker.ItemHeight = 21
Me.FilePicker.Items.AddRange(New Object() {"1Loading...", "2", "2If you can read this,", "3something has probably", "4gone wrong. Tell Lynne."})
Me.FilePicker.Location = New System.Drawing.Point(0, 27)
Me.FilePicker.Margin = New System.Windows.Forms.Padding(4)
Me.FilePicker.Name = "FilePicker"
Me.FilePicker.Size = New System.Drawing.Size(242, 579)
Me.FilePicker.Sorted = True
Me.FilePicker.TabIndex = 8
'
'NPUWindow
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(1101, 631)
Me.Controls.Add(Me.FilePicker)
Me.Controls.Add(Me.TextFileHolder)
Me.Controls.Add(Me.StatusBar)
Me.Controls.Add(Me.MenuBar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.MainMenuStrip = Me.MenuBar
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "NPUWindow"
Me.Text = "Notepad Ultra"
Me.FilePickerMenu.ResumeLayout(False)
Me.MenuBar.ResumeLayout(False)
Me.MenuBar.PerformLayout()
Me.StatusBar.ResumeLayout(False)
Me.StatusBar.PerformLayout()
CType(Me.BaseDirWatch, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuBar As System.Windows.Forms.MenuStrip
Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WordWrapToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FormatToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SidebarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ReplaceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents GoToToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TimeDateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SaveDialogue As System.Windows.Forms.SaveFileDialog
Friend WithEvents OneDriveTextFilesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents SHOWRECENTSHEREToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FontPicker As System.Windows.Forms.FontDialog
Friend WithEvents ThemeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TimeDateToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WordCountToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusBar As System.Windows.Forms.StatusStrip
Friend WithEvents StatChars As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents chocolatePuddingOvenTimer As System.Windows.Forms.Timer
Friend WithEvents StatDirectory As System.Windows.Forms.ToolStripSplitButton
Friend WithEvents RestartToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EDocumentsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ChangeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents OpenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FolderPicker As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents SansSerifToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ArialToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MonospaceToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ConsolasToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LucidaConsoleToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents CustomToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SegoeUIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SettingsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GoUpToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GoUpToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripStatusLabel3 As ToolStripStatusLabel
Friend WithEvents StatStatus As ToolStripStatusLabel
Friend WithEvents FileInfoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
Friend WithEvents SoftwareUsedToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RefreshFileList As ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
Friend WithEvents Spacer As ToolStripStatusLabel
Friend WithEvents Notification As ToolStripStatusLabel
Friend WithEvents ShowNotificationTimer As Timer
Friend WithEvents FilePickerMenu As ContextMenuStrip
Friend WithEvents ShowInExplorer As ToolStripMenuItem
Friend WithEvents StatMode As ToolStripDropDownButton
Friend WithEvents AutomaticBulletPointsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OvertypeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RedoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StatFontSize As ToolStripDropDownButton
Friend WithEvents MakeFontLarger As ToolStripMenuItem
Friend WithEvents MakeFontSmaller As ToolStripMenuItem
Friend WithEvents StatBytes As ToolStripStatusLabel
Friend WithEvents StatDate As ToolStripStatusLabel
Friend WithEvents StandardTheme As ToolStripMenuItem
Friend WithEvents NightTheme As ToolStripMenuItem
Friend WithEvents TertiaryTheme As ToolStripMenuItem
Friend WithEvents BaseDirWatch As IO.FileSystemWatcher
Friend WithEvents BaseDirWatchPathToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DeleteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BaseDirWatchReenabler As Timer
Friend WithEvents DuplicateToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents GoUpValidatorToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PrintToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PrintDialogue As PrintDialog
Friend WithEvents PrintDocumentThingy As Printing.PrintDocument
Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
Friend WithEvents PageSetupDialog1 As PageSetupDialog
Friend WithEvents TextFileHolder As RichTextBoxPrintCtrl.RichTextBoxPrintCtrl.RichTextBoxPrintCtrl
Friend WithEvents PageSetup As ToolStripMenuItem
Friend WithEvents LoadTimeWarningTimer As Timer
Friend WithEvents Throbber As ToolStripProgressBar
Friend WithEvents SplashKillTimer As Timer
Friend WithEvents OPFKillTimer As Timer
Friend WithEvents FilenametxtToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
Friend WithEvents UndoTimer As Timer
Friend WithEvents BulletPointsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DashesToolStripMenuItem As ToolStripMenuItem
Friend WithEvents FilePicker As ListBox
Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
Friend WithEvents RenameToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
Friend WithEvents MoveToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MoveFileDialogue As SaveFileDialog
Friend WithEvents RenameToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EncryptToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EncryptToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents DecryptToolStripMenuItem As ToolStripMenuItem
End Class

1266
Notepad Ultra.resx Normal file

File diff suppressed because it is too large Load Diff

1168
Notepad Ultra.vb Normal file

File diff suppressed because it is too large Load Diff

359
Notepad Ultra.vbproj Normal file
View File

@ -0,0 +1,359 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{3857ABB1-DDBF-41B1-81CA-B9D8D00B2CF7}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Notepad_Ultra.My.MyApplication</StartupObject>
<RootNamespace>Notepad_Ultra</RootNamespace>
<AssemblyName>Notepad Ultra</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
<IsWebBootstrapper>false</IsWebBootstrapper>
<HockeyAppResourceId>fcd84c09de6e4876a14b65213e88c530</HockeyAppResourceId>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>0.11.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
<DontImportPostSharp>True</DontImportPostSharp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Notepad Ultra.xml</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
<RunCodeAnalysis>false</RunCodeAnalysis>
<SkipPostSharp>True</SkipPostSharp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Notepad Ultra.xml</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>89DE94F5D75D483307A40CC9799567D794564D7D</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Notepad Ultra_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>npu beta logo.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="PostSharp, Version=4.3.25.0, Culture=neutral, PublicKeyToken=b13fd38b8f9c99d7, processorArchitecture=MSIL">
<HintPath>..\packages\PostSharp.4.3.25\lib\net35-client\PostSharp.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="RichTextBoxPrintCtrl">
<HintPath>bin\Debug\dependencies\RichTextBoxPrintCtrl.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="About.Designer.vb">
<DependentUpon>About.vb</DependentUpon>
</Compile>
<Compile Include="About.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="ChangelogViewer.Designer.vb">
<DependentUpon>ChangelogViewer.vb</DependentUpon>
</Compile>
<Compile Include="ChangelogViewer.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FindCommon.vb" />
<Compile Include="FindReplace.Designer.vb">
<DependentUpon>FindReplace.vb</DependentUpon>
</Compile>
<Compile Include="FindReplace.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="LoadTimeWarning.Designer.vb">
<DependentUpon>LoadTimeWarning.vb</DependentUpon>
</Compile>
<Compile Include="LoadTimeWarning.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Open Passed File.Designer.vb">
<DependentUpon>Open Passed File.vb</DependentUpon>
</Compile>
<Compile Include="Open Passed File.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Passed File Action Settings.Designer.vb">
<DependentUpon>Passed File Action Settings.vb</DependentUpon>
</Compile>
<Compile Include="Passed File Action Settings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Preset Directory Manager.Designer.vb">
<DependentUpon>Preset Directory Manager.vb</DependentUpon>
</Compile>
<Compile Include="Preset Directory Manager.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Settings1.vb" />
<Compile Include="Splash Screen.Designer.vb">
<DependentUpon>Splash Screen.vb</DependentUpon>
</Compile>
<Compile Include="Splash Screen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Theme Editor.Designer.vb">
<DependentUpon>Theme Editor.vb</DependentUpon>
</Compile>
<Compile Include="Theme Editor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Extensions.vb" />
<Compile Include="Find.Designer.vb">
<DependentUpon>Find.vb</DependentUpon>
</Compile>
<Compile Include="Find.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Status Bar Options.Designer.vb">
<DependentUpon>Status Bar Options.vb</DependentUpon>
</Compile>
<Compile Include="Status Bar Options.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Supported File Extensions.Designer.vb">
<DependentUpon>Supported File Extensions.vb</DependentUpon>
</Compile>
<Compile Include="Supported File Extensions.vb">
<SubType>Form</SubType>
</Compile>
<None Include="bin\Debug\dependencies\file\share\misc\magic" />
<None Include="bin\Debug\dependencies\file\share\misc\magic.mgc" />
<None Include="Resources\FileIcon.ico" />
<None Include="bin\Debug\dependencies\icon\res\png\beta\npu beta logo 16x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\beta\npu beta logo 24x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\beta\npu beta logo 128x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\beta\npu beta logo 256x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\beta\upscaled\npu beta logo 24x.png" />
<Content Include="bin\Debug\dependencies\file\bin\file.exe">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="bin\Debug\dependencies\file\bin\magic1.dll">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="bin\Debug\dependencies\file\bin\regex2.dll">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="bin\Debug\dependencies\file\bin\zlib1.dll">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="bin\Debug\dependencies\RichTextBoxPrintCtrl.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<Content Include="npu beta logo.ico" />
<EmbeddedResource Include="bin\Debug\dependencies\icon\res\png\npu alpha logo 128x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\npu alpha logo 16x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\npu alpha logo 24x.png" />
<None Include="bin\Debug\dependencies\icon\res\png\npu alpha logo 256x.png" />
<None Include="bin\Debug\dependencies\img\imageres_5348-0.png" />
<None Include="bin\Debug\dependencies\img\shell32_134-0.png" />
<None Include="bin\Debug\dependencies\img\shell32_148-0.png" />
<None Include="bin\Debug\dependencies\img\imageres_5348-02.png" />
<None Include="bin\Debug\dependencies\img\shell32_134-02.png" />
<None Include="bin\Debug\dependencies\img\shell32_148-02.png" />
<Content Include="Changelog.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Compile Include="Notepad Ultra.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Notepad Ultra.Designer.vb">
<DependentUpon>Notepad Ultra.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Settings.Designer.vb">
<DependentUpon>Settings.vb</DependentUpon>
</Compile>
<Compile Include="Settings.vb">
<SubType>Form</SubType>
</Compile>
<Content Include="npu alpha logo.ico" />
<None Include="My Project\app.manifest" />
<None Include="Notepad Ultra_TemporaryKey.pfx" />
<None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="About.resx">
<DependentUpon>About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ChangelogViewer.resx">
<DependentUpon>ChangelogViewer.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FindReplace.resx">
<DependentUpon>FindReplace.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="LoadTimeWarning.resx">
<DependentUpon>LoadTimeWarning.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Open Passed File.resx">
<DependentUpon>Open Passed File.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Passed File Action Settings.resx">
<DependentUpon>Passed File Action Settings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Preset Directory Manager.resx">
<DependentUpon>Preset Directory Manager.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Splash Screen.resx">
<DependentUpon>Splash Screen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Theme Editor.resx">
<DependentUpon>Theme Editor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Find.resx">
<DependentUpon>Find.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Notepad Ultra.resx">
<DependentUpon>Notepad Ultra.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Settings.resx">
<DependentUpon>Settings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Status Bar Options.resx">
<DependentUpon>Status Bar Options.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Supported File Extensions.resx">
<DependentUpon>Supported File Extensions.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.0">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Windows.Installer.4.5">
<Visible>False</Visible>
<ProductName>Windows Installer 4.5</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\PostSharp.4.3.25\tools\PostSharp.targets" Condition="Exists('..\packages\PostSharp.4.3.25\tools\PostSharp.targets')" />
<Target Name="EnsurePostSharpImported" BeforeTargets="BeforeBuild" Condition="'$(PostSharp30Imported)' == ''">
<Error Condition="!Exists('..\packages\PostSharp.4.3.25\tools\PostSharp.targets')" Text="This project references NuGet package(s) that are missing on this computer. Enable NuGet Package Restore to download them. For more information, see http://www.postsharp.net/links/nuget-restore." />
<Error Condition="Exists('..\packages\PostSharp.4.3.25\tools\PostSharp.targets')" Text="The build restored NuGet packages. Build the project again to include these packages in the build. For more information, see http://www.postsharp.net/links/nuget-restore." />
</Target>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

13
Notepad Ultra.vbproj.user Normal file
View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory>publish\</PublishUrlHistory>
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>en-US</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

Binary file not shown.

280
Open Passed File.Designer.vb generated Normal file
View File

@ -0,0 +1,280 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Open_Passed_File
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.HowToOpenQuestion = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.SetDirectoryButton = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.CopyButton = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.MoveButton = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.HoverMe = New System.Windows.Forms.Label()
Me.CancelOpenButton = New System.Windows.Forms.Button()
Me.RememberCheckbox = New System.Windows.Forms.CheckBox()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'HowToOpenQuestion
'
Me.HowToOpenQuestion.Location = New System.Drawing.Point(19, 9)
Me.HowToOpenQuestion.Name = "HowToOpenQuestion"
Me.HowToOpenQuestion.Size = New System.Drawing.Size(579, 52)
Me.HowToOpenQuestion.TabIndex = 0
Me.HowToOpenQuestion.Text = "How do you want to open C:\Filename.txt?"
Me.HowToOpenQuestion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.SetDirectoryButton)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.PictureBox1)
Me.GroupBox1.Location = New System.Drawing.Point(19, 64)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.GroupBox1.Size = New System.Drawing.Size(189, 329)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Set Directory"
'
'SetDirectoryButton
'
Me.SetDirectoryButton.Location = New System.Drawing.Point(8, 286)
Me.SetDirectoryButton.Name = "SetDirectoryButton"
Me.SetDirectoryButton.Size = New System.Drawing.Size(173, 29)
Me.SetDirectoryButton.TabIndex = 1
Me.SetDirectoryButton.Text = "Set Directory"
Me.SetDirectoryButton.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(7, 130)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(176, 161)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Notepad Ultra's working directory will be changed to the directory containing the" &
" file." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The original file will not be moved." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "No duplication occurs."
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.Notepad_Ultra.My.Resources.Resources.shell32_134_02
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.PictureBox1.Location = New System.Drawing.Point(46, 21)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(96, 96)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.CopyButton)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Controls.Add(Me.PictureBox2)
Me.GroupBox2.Location = New System.Drawing.Point(214, 64)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.GroupBox2.Size = New System.Drawing.Size(189, 329)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Copy"
'
'CopyButton
'
Me.CopyButton.Location = New System.Drawing.Point(8, 286)
Me.CopyButton.Name = "CopyButton"
Me.CopyButton.Size = New System.Drawing.Size(173, 29)
Me.CopyButton.TabIndex = 2
Me.CopyButton.Text = "Copy"
Me.CopyButton.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(6, 130)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(176, 161)
Me.Label3.TabIndex = 1
Me.Label3.Text = "The file will be copied to Notepad Ultra's current working directory." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The orig" &
"inal file will not be moved." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Duplication will occur."
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.Notepad_Ultra.My.Resources.Resources.shell32_148_02
Me.PictureBox2.Location = New System.Drawing.Point(46, 21)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(96, 96)
Me.PictureBox2.TabIndex = 0
Me.PictureBox2.TabStop = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.MoveButton)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.PictureBox3)
Me.GroupBox3.Location = New System.Drawing.Point(409, 64)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.GroupBox3.Size = New System.Drawing.Size(189, 329)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Move"
'
'MoveButton
'
Me.MoveButton.Location = New System.Drawing.Point(8, 286)
Me.MoveButton.Name = "MoveButton"
Me.MoveButton.Size = New System.Drawing.Size(173, 29)
Me.MoveButton.TabIndex = 3
Me.MoveButton.Text = "Move"
Me.MoveButton.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(6, 130)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(176, 161)
Me.Label4.TabIndex = 1
Me.Label4.Text = "The file will be moved to Notepad Ultra's current working directory." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "The origi" &
"nal file will be moved." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "No duplication occurs."
'
'PictureBox3
'
Me.PictureBox3.BackgroundImage = Global.Notepad_Ultra.My.Resources.Resources.imageres_5348_02
Me.PictureBox3.Location = New System.Drawing.Point(46, 21)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(96, 96)
Me.PictureBox3.TabIndex = 0
Me.PictureBox3.TabStop = False
'
'HoverMe
'
Me.HoverMe.AutoSize = True
Me.HoverMe.Location = New System.Drawing.Point(360, 405)
Me.HoverMe.Name = "HoverMe"
Me.HoverMe.Size = New System.Drawing.Size(253, 17)
Me.HoverMe.TabIndex = 2
Me.HoverMe.Text = "Hover to view current working directory"
'
'CancelOpenButton
'
Me.CancelOpenButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.CancelOpenButton.Location = New System.Drawing.Point(12, 437)
Me.CancelOpenButton.Name = "CancelOpenButton"
Me.CancelOpenButton.Size = New System.Drawing.Size(75, 23)
Me.CancelOpenButton.TabIndex = 3
Me.CancelOpenButton.Text = "Cancel"
Me.CancelOpenButton.UseVisualStyleBackColor = True
'
'RememberCheckbox
'
Me.RememberCheckbox.AutoSize = True
Me.RememberCheckbox.Location = New System.Drawing.Point(12, 404)
Me.RememberCheckbox.Name = "RememberCheckbox"
Me.RememberCheckbox.Size = New System.Drawing.Size(166, 21)
Me.RememberCheckbox.TabIndex = 4
Me.RememberCheckbox.Text = "Remember my choice"
Me.RememberCheckbox.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(13, 428)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(591, 38)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Now loading..."
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label1.Visible = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 434)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(166, 26)
Me.Button1.TabIndex = 6
Me.Button1.Text = "Use notepad.exe"
Me.Button1.UseVisualStyleBackColor = True
'
'Open_Passed_File
'
Me.AcceptButton = Me.SetDirectoryButton
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(616, 475)
Me.ControlBox = False
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.RememberCheckbox)
Me.Controls.Add(Me.CancelOpenButton)
Me.Controls.Add(Me.HoverMe)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.HowToOpenQuestion)
Me.Name = "Open_Passed_File"
Me.Text = "Notepad Ultra - Opening C:\Filename.txt"
Me.GroupBox1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents HowToOpenQuestion As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents Label2 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents SetDirectoryButton As Button
Friend WithEvents CopyButton As Button
Friend WithEvents HoverMe As Label
Friend WithEvents CancelOpenButton As Button
Friend WithEvents RememberCheckbox As CheckBox
Friend WithEvents MoveButton As Button
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
End Class

126
Open Passed File.resx Normal file
View File

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>56</value>
</metadata>
</root>

106
Open Passed File.vb Normal file
View File

@ -0,0 +1,106 @@
Public Class Open_Passed_File
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles SetDirectoryButton.Click, CopyButton.Click, MoveButton.Click
If Not My.Settings.SupportedExtensions.Contains(GetFileExtension(FileToOpen)) Then
My.Settings.SupportedExtensions.Add(GetFileExtension(FileToOpen))
My.Settings.Save()
End If
Dim FileToOpenPath As String = GetPath(FileToOpen)
Dim FileToOpenFile As String = GetFile(FileToOpen)
'MsgBox(FileToOpenPath & vbNewLine & FileToOpenFile)
Select Case sender.name.ToString.RemoveLast(6)
Case "SetDirectory"
Label1.Visible = True
TopMost = False
Splash_Screen.Show()
Hide()
Splash_Screen.Activate()
My.Settings.WorkingDirectory = FileToOpenPath
My.Settings.Save()
If RememberCheckbox.Checked Then My.Settings.DefaultFileAction = 1
Case "Copy", "Move"
Dim response As String = FileToOpenFile
'MsgBox(My.Settings.WorkingDirectory & FileToOpenFile)
While My.Computer.FileSystem.FileExists(My.Settings.WorkingDirectory & FileToOpenFile)
response = InputBox("A file with the name """ & FileToOpenFile & """already exists in your base directory (" & My.Settings.WorkingDirectory & "). Please enter a new name for the file.")
If Not ValidFileName(response, True) Then
MsgBox("Invalid filename!")
Else
If Not response.Contains(".") Then response &= ".txt"
Dim ValidExt As Boolean = False
For i = 0 To My.Settings.SupportedExtensions.Count - 1
If response.Split(".")(response.Split(".").Length - 1) = My.Settings.SupportedExtensions(i) Then ValidExt = True
Next
If ValidExt Then FileToOpenFile = response Else MsgBox("Unrecognised file extension! Try using "".txt"".")
End If
End While
Label1.Visible = True
TopMost = False
Splash_Screen.Show()
Hide()
Splash_Screen.Activate()
If sender.name.ToString.RemoveLast(6) = "Copy" Then
My.Computer.FileSystem.CopyFile(FileToOpen, My.Settings.WorkingDirectory & FileToOpenFile)
If RememberCheckbox.Checked Then My.Settings.DefaultFileAction = 2
Else
My.Computer.FileSystem.MoveFile(FileToOpen, My.Settings.WorkingDirectory & FileToOpenFile)
If RememberCheckbox.Checked Then My.Settings.DefaultFileAction = 3
End If
FileToOpen = FileToOpenPath & FileToOpenFile
Case Else
Throw New Exception("Unable to parse response!") 'if this happens, your computer is not in a very reliable state. either that, or i'm a moron.
End Select
Refresh()
My.Settings.Save()
CopyButton.Enabled = False
MoveButton.Enabled = False
SetDirectoryButton.Enabled = False
RememberCheckbox.Enabled = False
NPUWindow.Show()
End Sub
Private Sub Cancel() Handles CancelOpenButton.Click
End
End Sub
Private Sub Open_Passed_File_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
Splash_Screen.TopMost = False
Activate()
If Not My.Computer.FileSystem.FileExists(FileToOpen) Then
If MsgBox("Failed to open file. Ensure Notepad Ultra has the rights to open this file!", MsgBoxStyle.Critical, vbOKOnly) <> 99999 Then End
End If
If GetPath(FileToOpen).ToLower = My.Settings.WorkingDirectory.ToLower Then
HowToOpenQuestion.Text = "Notepad Ultra - Opening " & FileToOpen & "..."
SetDirectoryButton.PerformClick() 'if you're opening a file that's already in the basedir, there's obviously no point moving or copying it
Else
If My.Settings.DefaultFileAction <> 0 Then
HowToOpenQuestion.Text = "Notepad Ultra - Opening " & FileToOpen & "..."
Refresh()
Select Case My.Settings.DefaultFileAction
Case 1
SetDirectoryButton.PerformClick()
Case 2
CopyButton.PerformClick()
Case 3
MoveButton.PerformClick()
End Select
Else
Text = "Notepad Ultra - Opening " & FileToOpen
HowToOpenQuestion.Text = "How do you want to open " & FileToOpen & "?"
ToolTip1.SetToolTip(HoverMe, My.Settings.WorkingDirectory)
If Not My.Computer.FileSystem.DirectoryExists(My.Settings.WorkingDirectory) Then
CopyButton.Enabled = False
MoveButton.Enabled = False
ToolTip1.SetToolTip(HoverMe, My.Settings.WorkingDirectory & vbNewLine & "Unable to access this directory.")
End If
End If
End If
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("C:\Windows\notepad.exe", FileToOpen)
End
End Sub
End Class

91
Passed File Action Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,91 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Passed_File_Action_Settings
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(182, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "When opening files directly:"
'
'ComboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Ask every time", "Set directory", "Copy", "Move"})
Me.ComboBox1.Location = New System.Drawing.Point(200, 6)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(162, 24)
Me.ComboBox1.TabIndex = 1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(287, 45)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "OK"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(15, 45)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Cancel"
Me.Button2.UseVisualStyleBackColor = True
'
'Passed_File_Action_Settings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(372, 80)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Passed_File_Action_Settings"
Me.Text = "Passed File Action Settings"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -0,0 +1,14 @@
Public Class Passed_File_Action_Settings
Private Sub Passed_File_Action_Settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Settings.DefaultFileAction = ComboBox1.SelectedIndex
Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Close()
End Sub
End Class

114
Preset Directory Manager.Designer.vb generated Normal file
View File

@ -0,0 +1,114 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Preset_Directory_Manager
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.DirBox = New System.Windows.Forms.ListBox()
Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
Me.Button3 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(421, 222)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 23)
Me.Button6.TabIndex = 3
Me.Button6.Text = "Save"
Me.Button6.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(340, 222)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 5
Me.Button4.Text = "Cancel"
Me.Button4.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(205, 222)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 6
Me.Button2.Text = "Remove"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(17, 222)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 7
Me.Button1.Text = "Add"
Me.Button1.UseVisualStyleBackColor = True
'
'DirBox
'
Me.DirBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DirBox.FormattingEnabled = True
Me.DirBox.ItemHeight = 20
Me.DirBox.Items.AddRange(New Object() {"failed", "to", "read", "user", "preferences"})
Me.DirBox.Location = New System.Drawing.Point(17, 12)
Me.DirBox.Name = "DirBox"
Me.DirBox.Size = New System.Drawing.Size(479, 204)
Me.DirBox.TabIndex = 2
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(97, 222)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(102, 23)
Me.Button3.TabIndex = 6
Me.Button3.Text = "Add Manually"
Me.Button3.UseVisualStyleBackColor = True
'
'Preset_Directory_Manager
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(508, 252)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.DirBox)
Me.Name = "Preset_Directory_Manager"
Me.Text = "Preset Directory Manager"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button6 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button1 As Button
Friend WithEvents DirBox As ListBox
Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
Friend WithEvents Button3 As Button
End Class

View File

@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View File

@ -0,0 +1,43 @@
Public Class Preset_Directory_Manager
Private Sub Preset_Directory_Manager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Settings.PresetDirectories.Count = 1 AndAlso My.Settings.PresetDirectories(0).Length = 0 Then
My.Settings.PresetDirectories(0) = My.Computer.FileSystem.SpecialDirectories.MyDocuments
My.Settings.Save()
End If
DirBox.Items.Clear()
For i = 0 To My.Settings.PresetDirectories.Count - 1
DirBox.Items.Add(My.Settings.PresetDirectories(i))
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FolderBrowserDialog1.ShowDialog()
If My.Computer.FileSystem.DirectoryExists(FolderBrowserDialog1.SelectedPath) Then DirBox.Items.Add(FolderBrowserDialog1.SelectedPath) Else MsgBox("Couldn't access " & FolderBrowserDialog1.SelectedPath & ". Notepad Ultra may not have access rights.")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim response As String = InputBox("Path to add:")
If My.Computer.FileSystem.DirectoryExists(response) Then DirBox.Items.Add(response) Else MsgBox("Couldn't access " & response & ". Notepad Ultra may not have access rights, or the directory may not exist.")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
My.Settings.PresetDirectories.Clear()
For i = 0 To DirBox.Items.Count - 1
My.Settings.PresetDirectories.Add(DirBox.Items(i).ToString)
Next
If DirBox.Items.Count > 0 Then
My.Settings.Save()
Button4.PerformClick()
Else
MsgBox("The list must contain at least one preset directory.")
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If MsgBox("Are you sure you want to remove " & DirBox.SelectedItem.ToString & " from the list of preset directories?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then DirBox.Items.RemoveAt(DirBox.SelectedIndex)
End Sub
End Class

BIN
Resources/FileIcon.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 44 KiB

462
Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,462 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Settings
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label1 = New System.Windows.Forms.Label()
Me.BaseDirBox = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SidebarCheckbox = New System.Windows.Forms.CheckBox()
Me.DirectoryPicker = New System.Windows.Forms.FolderBrowserDialog()
Me.Button2 = New System.Windows.Forms.Button()
Me.SaveButton = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.UndoStepLimit = New System.Windows.Forms.NumericUpDown()
Me.Label3 = New System.Windows.Forms.Label()
Me.UnlimitedUndosCheckbox = New System.Windows.Forms.CheckBox()
Me.UndoMemoryLimitCheckbox = New System.Windows.Forms.CheckBox()
Me.UndoMemoryLimitCount = New System.Windows.Forms.NumericUpDown()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.TransparencyCheckbox = New System.Windows.Forms.CheckBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.EncodingDropdown = New System.Windows.Forms.ComboBox()
Me.GreenNotificationsCheckbox = New System.Windows.Forms.CheckBox()
Me.setCustomColours = New System.Windows.Forms.Button()
Me.DefaultButton = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.ToolTipSlut = New System.Windows.Forms.ToolTip(Me.components)
Me.DefaultTheme = New System.Windows.Forms.ComboBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.RecycleBinCheckbox = New System.Windows.Forms.CheckBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
CType(Me.UndoStepLimit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.UndoMemoryLimitCount, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 14)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(101, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Base Directory"
'
'BaseDirBox
'
Me.BaseDirBox.Location = New System.Drawing.Point(16, 33)
Me.BaseDirBox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.BaseDirBox.Name = "BaseDirBox"
Me.BaseDirBox.Size = New System.Drawing.Size(275, 22)
Me.BaseDirBox.TabIndex = 1
Me.BaseDirBox.Text = "*shrugs*"
Me.ToolTipSlut.SetToolTip(Me.BaseDirBox, "Which folder does Notepad Ultra look for files in?")
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(419, 32)
Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(39, 26)
Me.Button1.TabIndex = 2
Me.Button1.Text = "..."
Me.ToolTipSlut.SetToolTip(Me.Button1, "Open a folder browser to pick a new base directory.")
Me.Button1.UseVisualStyleBackColor = True
'
'SidebarCheckbox
'
Me.SidebarCheckbox.AutoSize = True
Me.SidebarCheckbox.Location = New System.Drawing.Point(16, 114)
Me.SidebarCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.SidebarCheckbox.Name = "SidebarCheckbox"
Me.SidebarCheckbox.Size = New System.Drawing.Size(79, 21)
Me.SidebarCheckbox.TabIndex = 3
Me.SidebarCheckbox.Text = "Sidebar"
Me.ToolTipSlut.SetToolTip(Me.SidebarCheckbox, "Display the sidebar? This can be toggled with F6.")
Me.SidebarCheckbox.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(20, 341)
Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Cancel"
Me.Button2.UseVisualStyleBackColor = True
'
'SaveButton
'
Me.SaveButton.Location = New System.Drawing.Point(383, 341)
Me.SaveButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.SaveButton.Name = "SaveButton"
Me.SaveButton.Size = New System.Drawing.Size(75, 23)
Me.SaveButton.TabIndex = 5
Me.SaveButton.Text = "Save"
Me.SaveButton.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(17, 23)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(76, 17)
Me.Label2.TabIndex = 6
Me.Label2.Text = "Allow up to"
'
'UndoStepLimit
'
Me.UndoStepLimit.Location = New System.Drawing.Point(93, 21)
Me.UndoStepLimit.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.UndoStepLimit.Maximum = New Decimal(New Integer() {500, 0, 0, 0})
Me.UndoStepLimit.Name = "UndoStepLimit"
Me.UndoStepLimit.Size = New System.Drawing.Size(48, 22)
Me.UndoStepLimit.TabIndex = 7
Me.ToolTipSlut.SetToolTip(Me.UndoStepLimit, "The number of times you can undo before ""running out""." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Setting this to 0 will di" &
"sable the Undo feature.")
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(141, 23)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(47, 17)
Me.Label3.TabIndex = 6
Me.Label3.Text = "undos"
'
'UnlimitedUndosCheckbox
'
Me.UnlimitedUndosCheckbox.AutoSize = True
Me.UnlimitedUndosCheckbox.Location = New System.Drawing.Point(193, 23)
Me.UnlimitedUndosCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.UnlimitedUndosCheckbox.Name = "UnlimitedUndosCheckbox"
Me.UnlimitedUndosCheckbox.Size = New System.Drawing.Size(88, 21)
Me.UnlimitedUndosCheckbox.TabIndex = 8
Me.UnlimitedUndosCheckbox.Text = "Unlimited"
Me.ToolTipSlut.SetToolTip(Me.UnlimitedUndosCheckbox, "Allow infinite undo steps! Definitely NOT RECOMMENDED." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "May eventually cause a cr" &
"ash!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Only for those who've gone mad with power.")
Me.UnlimitedUndosCheckbox.UseVisualStyleBackColor = True
'
'UndoMemoryLimitCheckbox
'
Me.UndoMemoryLimitCheckbox.AutoSize = True
Me.UndoMemoryLimitCheckbox.Checked = True
Me.UndoMemoryLimitCheckbox.CheckState = System.Windows.Forms.CheckState.Checked
Me.UndoMemoryLimitCheckbox.Location = New System.Drawing.Point(20, 50)
Me.UndoMemoryLimitCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.UndoMemoryLimitCheckbox.Name = "UndoMemoryLimitCheckbox"
Me.UndoMemoryLimitCheckbox.Size = New System.Drawing.Size(203, 21)
Me.UndoMemoryLimitCheckbox.TabIndex = 9
Me.UndoMemoryLimitCheckbox.Text = "Limit memory used by undo"
Me.UndoMemoryLimitCheckbox.UseVisualStyleBackColor = True
'
'UndoMemoryLimitCount
'
Me.UndoMemoryLimitCount.Location = New System.Drawing.Point(48, 78)
Me.UndoMemoryLimitCount.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.UndoMemoryLimitCount.Maximum = New Decimal(New Integer() {65536, 0, 0, 0})
Me.UndoMemoryLimitCount.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.UndoMemoryLimitCount.Name = "UndoMemoryLimitCount"
Me.UndoMemoryLimitCount.Size = New System.Drawing.Size(48, 22)
Me.UndoMemoryLimitCount.TabIndex = 7
Me.ToolTipSlut.SetToolTip(Me.UndoMemoryLimitCount, "Maximum RAM usage of the undo feature.")
Me.UndoMemoryLimitCount.Value = New Decimal(New Integer() {256, 0, 0, 0})
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.UndoMemoryLimitCheckbox)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.UnlimitedUndosCheckbox)
Me.GroupBox1.Controls.Add(Me.UndoStepLimit)
Me.GroupBox1.Controls.Add(Me.UndoMemoryLimitCount)
Me.GroupBox1.Location = New System.Drawing.Point(20, 182)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.GroupBox1.Size = New System.Drawing.Size(297, 110)
Me.GroupBox1.TabIndex = 10
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Undo (WIP)"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(96, 79)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(28, 17)
Me.Label4.TabIndex = 10
Me.Label4.Text = "MB"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(297, 32)
Me.Button4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(116, 26)
Me.Button4.TabIndex = 2
Me.Button4.Text = "My Documents"
Me.ToolTipSlut.SetToolTip(Me.Button4, "Set the base directory to your Documents folder.")
Me.Button4.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Enabled = False
Me.Label5.Location = New System.Drawing.Point(259, 344)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(119, 17)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Lynnear Software"
'
'TransparencyCheckbox
'
Me.TransparencyCheckbox.AutoSize = True
Me.TransparencyCheckbox.Location = New System.Drawing.Point(16, 142)
Me.TransparencyCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TransparencyCheckbox.Name = "TransparencyCheckbox"
Me.TransparencyCheckbox.Size = New System.Drawing.Size(176, 21)
Me.TransparencyCheckbox.TabIndex = 3
Me.TransparencyCheckbox.Text = "Transparency on Move"
Me.ToolTipSlut.SetToolTip(Me.TransparencyCheckbox, "Should the Notepad Ultra window become transparent (see-through)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "while being mov" &
"ed?")
Me.TransparencyCheckbox.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(254, 89)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(120, 17)
Me.Label6.TabIndex = 12
Me.Label6.Text = "Default Encoding:"
'
'EncodingDropdown
'
Me.EncodingDropdown.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.EncodingDropdown.FormattingEnabled = True
Me.EncodingDropdown.Items.AddRange(New Object() {"UTF-8", "UTF-16", "UTF-32"})
Me.EncodingDropdown.Location = New System.Drawing.Point(376, 86)
Me.EncodingDropdown.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.EncodingDropdown.Name = "EncodingDropdown"
Me.EncodingDropdown.Size = New System.Drawing.Size(81, 24)
Me.EncodingDropdown.TabIndex = 13
Me.ToolTipSlut.SetToolTip(Me.EncodingDropdown, "Encoding to use when the encoding could not be detected," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "and when saving new fil" &
"es." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "You should probably leave this as UTF-8.")
'
'GreenNotificationsCheckbox
'
Me.GreenNotificationsCheckbox.AutoSize = True
Me.GreenNotificationsCheckbox.Location = New System.Drawing.Point(256, 114)
Me.GreenNotificationsCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.GreenNotificationsCheckbox.Name = "GreenNotificationsCheckbox"
Me.GreenNotificationsCheckbox.Size = New System.Drawing.Size(189, 21)
Me.GreenNotificationsCheckbox.TabIndex = 3
Me.GreenNotificationsCheckbox.Text = "Show Green Notifications"
Me.ToolTipSlut.SetToolTip(Me.GreenNotificationsCheckbox, "Low-priority messages that tell you that an operation completed successfully." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fo" &
"r example: ""Changed directory"" or ""File has been saved"".")
Me.GreenNotificationsCheckbox.UseVisualStyleBackColor = True
'
'setCustomColours
'
Me.setCustomColours.Location = New System.Drawing.Point(319, 167)
Me.setCustomColours.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.setCustomColours.Name = "setCustomColours"
Me.setCustomColours.Size = New System.Drawing.Size(139, 28)
Me.setCustomColours.TabIndex = 14
Me.setCustomColours.Text = "Edit Themes"
Me.setCustomColours.UseVisualStyleBackColor = True
'
'DefaultButton
'
Me.DefaultButton.Location = New System.Drawing.Point(101, 341)
Me.DefaultButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.DefaultButton.Name = "DefaultButton"
Me.DefaultButton.Size = New System.Drawing.Size(71, 23)
Me.DefaultButton.TabIndex = 14
Me.DefaultButton.Text = "Defaults"
Me.ToolTipSlut.SetToolTip(Me.DefaultButton, "Restore settings to their defaults.")
Me.DefaultButton.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(319, 200)
Me.Button5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(139, 28)
Me.Button5.TabIndex = 14
Me.Button5.Text = "Status Bar Options"
Me.ToolTipSlut.SetToolTip(Me.Button5, "Information to display in the status bar.")
Me.Button5.UseVisualStyleBackColor = True
'
'ToolTipSlut
'
Me.ToolTipSlut.ToolTipTitle = "Get it? It's called ""ToolTipSlut"" because it takes aaaall the tooltips, and only " &
"hesitates for half a second! <3"
'
'DefaultTheme
'
Me.DefaultTheme.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.DefaultTheme.FormattingEnabled = True
Me.DefaultTheme.Items.AddRange(New Object() {"Standard", "Night Mode", "Special"})
Me.DefaultTheme.Location = New System.Drawing.Point(123, 85)
Me.DefaultTheme.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.DefaultTheme.Name = "DefaultTheme"
Me.DefaultTheme.Size = New System.Drawing.Size(116, 24)
Me.DefaultTheme.TabIndex = 13
Me.ToolTipSlut.SetToolTip(Me.DefaultTheme, "Which theme should be applied at startup?")
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(318, 264)
Me.Button7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(139, 28)
Me.Button7.TabIndex = 14
Me.Button7.Text = "Preset Directories"
Me.ToolTipSlut.SetToolTip(Me.Button7, "Set your most commonly used directories to return to " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "[TODO: REWRITE THIS WHEN I" &
"T'S NOT 0333]")
Me.Button7.UseVisualStyleBackColor = True
'
'RecycleBinCheckbox
'
Me.RecycleBinCheckbox.AutoSize = True
Me.RecycleBinCheckbox.Location = New System.Drawing.Point(256, 142)
Me.RecycleBinCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.RecycleBinCheckbox.Name = "RecycleBinCheckbox"
Me.RecycleBinCheckbox.Size = New System.Drawing.Size(133, 21)
Me.RecycleBinCheckbox.TabIndex = 3
Me.RecycleBinCheckbox.Text = "Use Recycle Bin"
Me.ToolTipSlut.SetToolTip(Me.RecycleBinCheckbox, "If enabled, files deleted through Notepad Ultra will" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "be moved to the recycle bin" &
". Otherwise, they will be" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "erased from the disk immediately.")
Me.RecycleBinCheckbox.UseVisualStyleBackColor = True
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(13, 86)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(105, 17)
Me.Label7.TabIndex = 12
Me.Label7.Text = "Default Theme:"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(318, 232)
Me.Button6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(139, 28)
Me.Button6.TabIndex = 14
Me.Button6.Text = "File Extensions"
Me.Button6.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(318, 296)
Me.Button3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(139, 28)
Me.Button3.TabIndex = 14
Me.Button3.Text = "File Opening"
Me.Button3.UseVisualStyleBackColor = True
'
'Settings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(469, 375)
Me.Controls.Add(Me.DefaultButton)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.setCustomColours)
Me.Controls.Add(Me.DefaultTheme)
Me.Controls.Add(Me.EncodingDropdown)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.SaveButton)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.SidebarCheckbox)
Me.Controls.Add(Me.RecycleBinCheckbox)
Me.Controls.Add(Me.GreenNotificationsCheckbox)
Me.Controls.Add(Me.TransparencyCheckbox)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.BaseDirBox)
Me.Controls.Add(Me.Label1)
Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.MaximizeBox = False
Me.Name = "Settings"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Notepad Ultra - Settings"
CType(Me.UndoStepLimit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.UndoMemoryLimitCount, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents BaseDirBox As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents SidebarCheckbox As CheckBox
Friend WithEvents DirectoryPicker As FolderBrowserDialog
Friend WithEvents Button2 As Button
Friend WithEvents SaveButton As Button
Friend WithEvents Label2 As Label
Friend WithEvents UndoStepLimit As NumericUpDown
Friend WithEvents Label3 As Label
Friend WithEvents UnlimitedUndosCheckbox As CheckBox
Friend WithEvents UndoMemoryLimitCheckbox As CheckBox
Friend WithEvents UndoMemoryLimitCount As NumericUpDown
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents Button4 As Button
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents TransparencyCheckbox As CheckBox
Friend WithEvents Label6 As Label
Friend WithEvents EncodingDropdown As ComboBox
Friend WithEvents GreenNotificationsCheckbox As CheckBox
Friend WithEvents setCustomColours As Button
Friend WithEvents DefaultButton As Button
Friend WithEvents Button5 As Button
Friend WithEvents ToolTipSlut As ToolTip
Friend WithEvents Label7 As Label
Friend WithEvents DefaultTheme As ComboBox
Friend WithEvents Button6 As Button
Friend WithEvents Button7 As Button
Friend WithEvents RecycleBinCheckbox As CheckBox
Friend WithEvents Button3 As Button
End Class

129
Settings.resx Normal file
View File

@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTipSlut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>176, 17</value>
</metadata>
<metadata name="DirectoryPicker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolTipSlut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>176, 17</value>
</metadata>
</root>

88
Settings.vb Normal file
View File

@ -0,0 +1,88 @@
Public Class Settings
Public npu As NPUWindow
Private Sub Settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NPUWindow.Enabled = False
npu.Throbber.Visible = False
Icon = ProgramIcon()
BaseDirBox.Text = My.Settings.WorkingDirectory
DefaultTheme.SelectedIndex = My.Settings.CurrentTheme
SidebarCheckbox.Checked = My.Settings.ShowSidebar
TransparencyCheckbox.Checked = My.Settings.MoveTransparency
EncodingDropdown.SelectedIndex = My.Settings.DefaultEncoding
GreenNotificationsCheckbox.Checked = My.Settings.GreenNotifications
RecycleBinCheckbox.Checked = My.Settings.UseRecycleBin
UnlimitedUndosCheckbox.Checked = My.Settings.UndoSteps = -1
UndoStepLimit.Value = Math.Abs(My.Settings.UndoSteps)
'UndoMemoryLimitCount.Value = Math.Abs(My.Settings.UndoMaxMemory)
'UndoMemoryLimitCheckbox.Checked = My.Settings.UndoMaxMemory = -1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub enableMainWindow() Handles Me.FormClosed
NPUWindow.Enabled = True
End Sub
Private Sub SidebarCheckbox_CheckedChanged(sender As Object, e As EventArgs) Handles SidebarCheckbox.CheckedChanged
'If Not SidebarCheckbox.Checked Then MsgBox("Friendly reminder: You can show or hide the sidebar at any time by pressing F6.")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
BaseDirBox.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments 'visual basic is truly something else
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DirectoryPicker.ShowDialog()
BaseDirBox.Text = DirectoryPicker.SelectedPath
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
My.Settings.WorkingDirectory = BaseDirBox.Text
My.Settings.CurrentTheme = DefaultTheme.SelectedIndex
My.Settings.ShowSidebar = SidebarCheckbox.Checked
My.Settings.MoveTransparency = TransparencyCheckbox.Checked
My.Settings.DefaultEncoding = EncodingDropdown.SelectedIndex
My.Settings.GreenNotifications = GreenNotificationsCheckbox.Checked
My.Settings.UseRecycleBin = RecycleBinCheckbox.Checked
My.Settings.UndoUnlimitedSteps = UnlimitedUndosCheckbox.Checked = -1
My.Settings.UndoSteps = UndoStepLimit.Value
'My.Settings.UndoMemoryLimit = UndoMemoryLimitCount.Value
'My.Settings.UndoMaxMemory = UndoMemoryLimitCheckbox.Checked = -1
My.Settings.Save()
Close()
End Sub
Private Sub setCustomColours_Click(sender As Object, e As EventArgs) Handles setCustomColours.Click
Customise_Colours.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
If MsgBox("Editing the supported file extensions may lead to critical errors and a less stable Notepad Ultra. It is only recommended if you know what you're doing. Continue?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2, "Be careful!") = MsgBoxResult.Yes Then Supported_File_Extensions.Show()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Status_Bar_Options.Show()
End Sub
Private Sub DefaultButton_Click(sender As Object, e As EventArgs) Handles DefaultButton.Click
MsgBox("Not yet supported")
End Sub
Private Sub UndoStepLimit_ValueChanged(sender As Object, e As EventArgs) Handles UndoStepLimit.ValueChanged
UndoMemoryLimitCount.Enabled = UndoStepLimit.Value = 0 'pretend these are all == 0
UndoMemoryLimitCheckbox.Enabled = UndoStepLimit.Value = 0
UnlimitedUndosCheckbox.Enabled = UndoStepLimit.Value = 0
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Passed_File_Action_Settings.Show()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Preset_Directory_Manager.Show()
End Sub
End Class

11
Settings1.vb Normal file
View File

@ -0,0 +1,11 @@

Namespace My
'This class allows you to handle specific events on the settings class:
' The SettingChanging event is raised before a setting's value is changed.
' The PropertyChanged event is raised after a setting's value is changed.
' The SettingsLoaded event is raised after the setting values are loaded.
' The SettingsSaving event is raised before the setting values are saved.
Partial Friend NotInheritable Class MySettings
End Class
End Namespace

121
Splash Screen.Designer.vb generated Normal file
View File

@ -0,0 +1,121 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Splash_Screen
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Splash_Screen))
Me.Label1 = New System.Windows.Forms.Label()
Me.LoadStatus = New System.Windows.Forms.Label()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.CloseButton = New System.Windows.Forms.Button()
Me.ShowSplashTimer = New System.Windows.Forms.Timer(Me.components)
Me.FolderPicker = New System.Windows.Forms.FolderBrowserDialog()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(98, 282)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(190, 32)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Notepad Ultra"
'
'LoadStatus
'
Me.LoadStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LoadStatus.Location = New System.Drawing.Point(21, 314)
Me.LoadStatus.Name = "LoadStatus"
Me.LoadStatus.Size = New System.Drawing.Size(345, 20)
Me.LoadStatus.TabIndex = 1
Me.LoadStatus.Text = "Checking base directory..."
Me.LoadStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(-5, 337)
Me.ProgressBar1.MarqueeAnimationSpeed = 1
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(399, 40)
Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.ProgressBar1.TabIndex = 2
'
'CloseButton
'
Me.CloseButton.BackColor = System.Drawing.SystemColors.Control
Me.CloseButton.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.CloseButton.ForeColor = System.Drawing.Color.Black
Me.CloseButton.Location = New System.Drawing.Point(338, -1)
Me.CloseButton.Name = "CloseButton"
Me.CloseButton.Size = New System.Drawing.Size(50, 25)
Me.CloseButton.TabIndex = 3
Me.CloseButton.Text = "X"
Me.CloseButton.UseVisualStyleBackColor = False
'
'ShowSplashTimer
'
Me.ShowSplashTimer.Interval = 1
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.PictureBox1.Location = New System.Drawing.Point(65, 21)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(256, 256)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'Splash_Screen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(386, 372)
Me.Controls.Add(Me.CloseButton)
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.LoadStatus)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Cursor = System.Windows.Forms.Cursors.AppStarting
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Splash_Screen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Notepad Ultra is now loading!"
Me.TopMost = True
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents LoadStatus As Label
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents CloseButton As Button
Friend WithEvents ShowSplashTimer As Timer
Friend WithEvents FolderPicker As FolderBrowserDialog
End Class

139
Splash Screen.resx Normal file
View File

@ -0,0 +1,139 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ShowSplashTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="FolderPicker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>193, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEABAMAAACuXLVVAAAABGdBTUEAALGPC/xhBQAAABhQTFRFAAAA
BwcHCgAIGRkZIgAd/wDc0NDQ////gg3c7AAAAVVJREFUeNrt2NF1gyAUBmBWcAVXcAVWyApZIevXnLSn
QTC156S9it//pAjc70VQ0jgnB+VeG2APgEtgUgKIB+R8CUzOAAAA8QC7IcA43jYk59ufBGAPgJS2dNzW
6/eZywMAAAAAAAAAAAAAAAAAABwMUPf/aXzr+XcbQF+AVASgX8ByyrVSzyMAAAB6A5STAgAAnBPQLgsA
8G8fpQC7ALymtIsBAAD0Bvi6BgAAODPgcQcAAHBuwGOC14DWmHI8QP+AzzLVbyvAMQHvDgAAAAAAAAAA
AAAAAAAAwHEBy6OG8vChPoxIK5UAjgwoW+tZSt56LwAAgOMCWgvROmC5MAH0AChbvYYAAPaCeqEB6B3w
rgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADANAPGCYMwXlXhsgHjBN18BME8DZAfM6CBAOGIZrYAD2
AYjcjADCASl9AJx5Y67bR9H9AAAAAElFTkSuQmCC
</value>
</data>
</root>

64
Splash Screen.vb Normal file
View File

@ -0,0 +1,64 @@
Public Class Splash_Screen
Dim Loaded As Boolean = False
Private Sub Reddify(sender As Object, e As EventArgs) Handles CloseButton.MouseEnter
CloseButton.BackColor = Color.Red
CloseButton.ForeColor = Color.White
End Sub
Private Sub Dereddify(sender As Object, e As EventArgs) Handles CloseButton.MouseLeave
CloseButton.BackColor = ControlColour
CloseButton.ForeColor = Color.Black
End Sub
Public Sub Splash_Screen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
ShowSplashTimer.Start()
If My.Settings.WorkingDirectory = "///FIRST RUN///" Then
My.Settings.WorkingDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
My.Settings.Save()
End If
If Environment.GetCommandLineArgs().Length <> 1 Then
For i = 1 To Environment.GetCommandLineArgs().Count - 1
If Environment.GetCommandLineArgs(i).Contains("\") Then FileToOpen = Environment.GetCommandLineArgs(i)
Next
End If
If FileToOpen IsNot Nothing And FileToOpen <> "" Then
'MsgBox(FileToOpen)
Open_Passed_File.Show()
ShowSplashTimer.Stop()
Hide()
Opacity = 1
LoadStatus.Text = "Reading file list..."
ShowInTaskbar = False
Else
If My.Computer.FileSystem.DirectoryExists(My.Settings.WorkingDirectory) Then
LoadStatus.Text = "Reading file list..."
Loaded = True
NPUWindow.Show()
Else
MsgBox("Your working directory is unavailable! Press OK to select a new working directory. For reference, your working directory is currently set as" & vbNewLine & My.Settings.WorkingDirectory & ".")
FolderPicker.SelectedPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments
FolderPicker.ShowDialog()
My.Settings.WorkingDirectory = FolderPicker.SelectedPath
If My.Settings.WorkingDirectory = "" Then MsgBox("Don't play me like this")
My.Settings.Save()
LoadStatus.Text = "Loading..."
Splash_Screen_Load(sender, e)
End If
End If
End Sub
Private Sub ShowSplashTimer_Tick(sender As Object, e As EventArgs) Handles ShowSplashTimer.Tick
'If Not Loaded Then Opacity = 1
'Disabled since it's not currently needed
ShowSplashTimer.Stop()
End Sub
Private Sub CloseButton_Click(sender As Object, e As EventArgs) Handles CloseButton.Click
'NPUWindow.Show()
End
End Sub
End Class

100
Status Bar Options.Designer.vb generated Normal file
View File

@ -0,0 +1,100 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Status_Bar_Options
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.OptionBox = New System.Windows.Forms.CheckedListBox()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(283, 17)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Display the following items in the status bar:"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(15, 226)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Cancel"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(225, 226)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Save"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(96, 226)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 3
Me.Button3.Text = "Default"
Me.Button3.UseVisualStyleBackColor = True
'
'OptionBox
'
Me.OptionBox.FormattingEnabled = True
Me.OptionBox.Items.AddRange(New Object() {"Characters", "Date", "Directory (Recommended)", "Font Size", "Size", "Status", "Mode"})
Me.OptionBox.Location = New System.Drawing.Point(15, 29)
Me.OptionBox.Name = "OptionBox"
Me.OptionBox.Size = New System.Drawing.Size(285, 191)
Me.OptionBox.TabIndex = 4
'
'Status_Bar_Options
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(312, 261)
Me.Controls.Add(Me.OptionBox)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Status_Bar_Options"
Me.Text = "Status Bar Options"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents OptionBox As CheckedListBox
End Class

120
Status Bar Options.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

29
Status Bar Options.vb Normal file
View File

@ -0,0 +1,29 @@
Public Class Status_Bar_Options
Dim StatBarSettings As String() = {"Chars", "Date", "Dir", "FontSize", "Size", "Status", "Mode"}
Private Sub MyForm_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
For i = 0 To 6
OptionBox.SetItemChecked(i, CallByName(My.Settings, "StatBar" & StatBarSettings(i), CallType.Get))
Next
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MsgBox("Restore the default options?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' CHARS DATE DIR FONT SIZE STATS MODE
Dim defaults As Boolean() = {True, False, True, False, False, True, True}
For i = 0 To 6
OptionBox.SetItemChecked(i, defaults(i))
Next
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For i = 0 To 6
CallByName(My.Settings, "StatBar" & StatBarSettings(i), CallType.Set, OptionBox.GetItemChecked(i))
Next
NPUWindow.RedrawStatusBar()
My.Settings.Save()
Close()
End Sub
End Class

116
Supported File Extensions.Designer.vb generated Normal file
View File

@ -0,0 +1,116 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Supported_File_Extensions
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ExtBox = New System.Windows.Forms.ListBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'ExtBox
'
Me.ExtBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ExtBox.FormattingEnabled = True
Me.ExtBox.ItemHeight = 20
Me.ExtBox.Items.AddRange(New Object() {"couldn't", "determine", "extension", "settings", "today,", "trusty", "user.", "zounds!"})
Me.ExtBox.Location = New System.Drawing.Point(12, 12)
Me.ExtBox.Name = "ExtBox"
Me.ExtBox.Size = New System.Drawing.Size(154, 184)
Me.ExtBox.Sorted = True
Me.ExtBox.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(172, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Add"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(172, 41)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Remove"
Me.Button2.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(172, 115)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 1
Me.Button4.Text = "Cancel"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(172, 144)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 23)
Me.Button5.TabIndex = 1
Me.Button5.Text = "Default"
Me.Button5.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(172, 173)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 23)
Me.Button6.TabIndex = 1
Me.Button6.Text = "Save"
Me.Button6.UseVisualStyleBackColor = True
'
'Supported_File_Extensions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(259, 211)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ExtBox)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Supported_File_Extensions"
Me.Text = "Supported File Extensions"
Me.ResumeLayout(False)
End Sub
Friend WithEvents ExtBox As ListBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents Button6 As Button
End Class

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -0,0 +1,58 @@
Public Class Supported_File_Extensions
Dim unsaved As Boolean = False
Private Sub Supported_File_Extensions_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ExtBox.Items.Clear()
For i = 0 To My.Settings.SupportedExtensions.Count - 1
ExtBox.Items.Add(My.Settings.SupportedExtensions(i))
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim response As String = InputBox("Enter a new extension without a leading period.").ToString
If ValidFileName(response) Then
ExtBox.Items.Add(response)
unsaved = True
Else
MsgBox("Your response contained invalid characters. The following characters cannot be used:" & vbNewLine & ". / \ < > : ? * ,")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If ExtBox.SelectedItem IsNot Nothing Then
If ExtBox.SelectedItem.ToString = "txt" Then
MsgBox("Support for the .txt extension cannot be disabled.", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly)
Else
ExtBox.Items.Remove(ExtBox.Items.Item(ExtBox.SelectedIndex))
unsaved = True
End If
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim extString As String = ""
My.Settings.SupportedExtensions.Clear()
For i = 0 To ExtBox.Items.Count - 1
My.Settings.SupportedExtensions.Add(ExtBox.Items(i).ToString)
Next
My.Settings.Save()
Close()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If unsaved Then
If MsgBox("Discard changed made to the supported extensions list?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) Then Close()
Else
Close()
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If MsgBox("Replace your custom extensions with the defaults (txt, cfg, ini, log)?") Then
ExtBox.Items.Clear()
Dim defaultFileExtensions As String() = {"txt", "cfg", "ini", "log"}
For i = 0 To defaultFileExtensions.Length - 1
ExtBox.Items.Add(defaultFileExtensions(i))
Next
End If
End Sub
End Class

543
Theme Editor.Designer.vb generated Normal file
View File

@ -0,0 +1,543 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Customise_Colours
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Customise_Colours))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ApplyButton = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.InnerCancelButton = New System.Windows.Forms.Button()
Me.MockNotification = New System.Windows.Forms.Label()
Me.MockStatusBar = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.VScrollBar1 = New System.Windows.Forms.VScrollBar()
Me.MockFilePicker = New System.Windows.Forms.Label()
Me.MockTextBox = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.StatusBarFGButton = New System.Windows.Forms.Button()
Me.StatusBarDefaultButton = New System.Windows.Forms.Button()
Me.StatusBarBGButton = New System.Windows.Forms.Button()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.NotificationBGButton = New System.Windows.Forms.Button()
Me.NotificationAllDefaultButton = New System.Windows.Forms.Button()
Me.NotificationCurrentDefaultButton = New System.Windows.Forms.Button()
Me.NotificationFGButton = New System.Windows.Forms.Button()
Me.NotificationCategorySelector = New System.Windows.Forms.ComboBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.SidebarFGButton = New System.Windows.Forms.Button()
Me.SidebarDefaultButton = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.SidebarBGButton = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.TextBoxDefaultButton = New System.Windows.Forms.Button()
Me.TextBoxFGButton = New System.Windows.Forms.Button()
Me.TextBoxBGButton = New System.Windows.Forms.Button()
Me.MockCaption = New System.Windows.Forms.Label()
Me.ThemeSelector = New System.Windows.Forms.ComboBox()
Me.ColourPicker = New System.Windows.Forms.ColorDialog()
Me.MainCancelButton = New System.Windows.Forms.Button()
Me.SaveButton = New System.Windows.Forms.Button()
Me.ToolTipSlut = New System.Windows.Forms.ToolTip(Me.components)
Me.ThemeApplied = New System.Windows.Forms.Label()
Me.ThemeAppliedHideTimer = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox1.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.ApplyButton)
Me.GroupBox1.Controls.Add(Me.Button13)
Me.GroupBox1.Controls.Add(Me.Button12)
Me.GroupBox1.Controls.Add(Me.Button8)
Me.GroupBox1.Controls.Add(Me.InnerCancelButton)
Me.GroupBox1.Controls.Add(Me.MockNotification)
Me.GroupBox1.Controls.Add(Me.MockStatusBar)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.VScrollBar1)
Me.GroupBox1.Controls.Add(Me.MockFilePicker)
Me.GroupBox1.Controls.Add(Me.MockTextBox)
Me.GroupBox1.Controls.Add(Me.GroupBox5)
Me.GroupBox1.Controls.Add(Me.GroupBox4)
Me.GroupBox1.Controls.Add(Me.GroupBox3)
Me.GroupBox1.Controls.Add(Me.GroupBox2)
Me.GroupBox1.Controls.Add(Me.MockCaption)
Me.GroupBox1.Location = New System.Drawing.Point(13, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(417, 501)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "DON'T TOUCH THAT"
'
'ApplyButton
'
Me.ApplyButton.Location = New System.Drawing.Point(335, 464)
Me.ApplyButton.Name = "ApplyButton"
Me.ApplyButton.Size = New System.Drawing.Size(75, 27)
Me.ApplyButton.TabIndex = 11
Me.ApplyButton.Text = "Apply"
Me.ToolTipSlut.SetToolTip(Me.ApplyButton, "Confirm changes you've made to this theme." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "These changes are not saved to disk u" &
"ntil you click ""Save"".")
Me.ApplyButton.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(249, 464)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(75, 27)
Me.Button13.TabIndex = 11
Me.Button13.Text = "Import..."
Me.Button13.UseVisualStyleBackColor = True
Me.Button13.Visible = False
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(168, 464)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(75, 27)
Me.Button12.TabIndex = 11
Me.Button12.Text = "Export..."
Me.Button12.UseVisualStyleBackColor = True
Me.Button12.Visible = False
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(87, 464)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(75, 27)
Me.Button8.TabIndex = 11
Me.Button8.Text = "Default"
Me.ToolTipSlut.SetToolTip(Me.Button8, "Reset this theme to its default appearance.")
Me.Button8.UseVisualStyleBackColor = True
'
'InnerCancelButton
'
Me.InnerCancelButton.Location = New System.Drawing.Point(6, 464)
Me.InnerCancelButton.Name = "InnerCancelButton"
Me.InnerCancelButton.Size = New System.Drawing.Size(75, 27)
Me.InnerCancelButton.TabIndex = 11
Me.InnerCancelButton.Text = "Cancel"
Me.ToolTipSlut.SetToolTip(Me.InnerCancelButton, "Cancel the changes you've just made.")
Me.InnerCancelButton.UseVisualStyleBackColor = True
'
'MockNotification
'
Me.MockNotification.BackColor = System.Drawing.Color.Green
Me.MockNotification.Font = New System.Drawing.Font("Segoe UI Semibold", 4.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockNotification.ForeColor = System.Drawing.Color.White
Me.MockNotification.Location = New System.Drawing.Point(327, 441)
Me.MockNotification.Name = "MockNotification"
Me.MockNotification.Size = New System.Drawing.Size(83, 14)
Me.MockNotification.TabIndex = 10
Me.MockNotification.Text = "Sample Notification"
'
'MockStatusBar
'
Me.MockStatusBar.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockStatusBar.Location = New System.Drawing.Point(6, 441)
Me.MockStatusBar.Name = "MockStatusBar"
Me.MockStatusBar.Size = New System.Drawing.Size(404, 14)
Me.MockStatusBar.TabIndex = 9
Me.MockStatusBar.Text = "612 Bytes | 413 Characters | Directory | Font Size"
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Red
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(383, 215)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 17)
Me.Label5.TabIndex = 8
Me.Label5.Text = "X"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 4.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(6, 232)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(101, 12)
Me.Label3.TabIndex = 6
Me.Label3.Text = "File Edit Format View"
'
'VScrollBar1
'
Me.VScrollBar1.Location = New System.Drawing.Point(93, 244)
Me.VScrollBar1.Name = "VScrollBar1"
Me.VScrollBar1.Size = New System.Drawing.Size(14, 197)
Me.VScrollBar1.TabIndex = 5
'
'MockFilePicker
'
Me.MockFilePicker.BackColor = System.Drawing.Color.White
Me.MockFilePicker.Font = New System.Drawing.Font("Segoe UI", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockFilePicker.Location = New System.Drawing.Point(6, 244)
Me.MockFilePicker.Name = "MockFilePicker"
Me.MockFilePicker.Size = New System.Drawing.Size(95, 197)
Me.MockFilePicker.TabIndex = 4
Me.MockFilePicker.Text = "Apple" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Banana" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Cherry" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Durian" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Eggplant" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fig" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Grape" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Honeydew" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Iceberg" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Jojoba" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "K" &
"ale"
'
'MockTextBox
'
Me.MockTextBox.BackColor = System.Drawing.Color.White
Me.MockTextBox.Font = New System.Drawing.Font("Lucida Console", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockTextBox.Location = New System.Drawing.Point(107, 232)
Me.MockTextBox.Name = "MockTextBox"
Me.MockTextBox.Size = New System.Drawing.Size(303, 209)
Me.MockTextBox.TabIndex = 4
Me.MockTextBox.Text = resources.GetString("MockTextBox.Text")
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.StatusBarFGButton)
Me.GroupBox5.Controls.Add(Me.StatusBarDefaultButton)
Me.GroupBox5.Controls.Add(Me.StatusBarBGButton)
Me.GroupBox5.Location = New System.Drawing.Point(188, 36)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(84, 171)
Me.GroupBox5.TabIndex = 3
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "StatusBar"
'
'StatusBarFGButton
'
Me.StatusBarFGButton.Location = New System.Drawing.Point(8, 21)
Me.StatusBarFGButton.Name = "StatusBarFGButton"
Me.StatusBarFGButton.Size = New System.Drawing.Size(67, 31)
Me.StatusBarFGButton.TabIndex = 0
Me.StatusBarFGButton.Text = "Text"
Me.StatusBarFGButton.UseVisualStyleBackColor = True
'
'StatusBarDefaultButton
'
Me.StatusBarDefaultButton.Location = New System.Drawing.Point(8, 95)
Me.StatusBarDefaultButton.Name = "StatusBarDefaultButton"
Me.StatusBarDefaultButton.Size = New System.Drawing.Size(67, 31)
Me.StatusBarDefaultButton.TabIndex = 1
Me.StatusBarDefaultButton.Text = "Default"
Me.StatusBarDefaultButton.UseVisualStyleBackColor = True
'
'StatusBarBGButton
'
Me.StatusBarBGButton.Location = New System.Drawing.Point(8, 58)
Me.StatusBarBGButton.Name = "StatusBarBGButton"
Me.StatusBarBGButton.Size = New System.Drawing.Size(67, 31)
Me.StatusBarBGButton.TabIndex = 1
Me.StatusBarBGButton.Text = "Back"
Me.StatusBarBGButton.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.NotificationBGButton)
Me.GroupBox4.Controls.Add(Me.NotificationAllDefaultButton)
Me.GroupBox4.Controls.Add(Me.NotificationCurrentDefaultButton)
Me.GroupBox4.Controls.Add(Me.NotificationFGButton)
Me.GroupBox4.Controls.Add(Me.NotificationCategorySelector)
Me.GroupBox4.Location = New System.Drawing.Point(277, 36)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(132, 171)
Me.GroupBox4.TabIndex = 2
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Notifications"
'
'NotificationBGButton
'
Me.NotificationBGButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NotificationBGButton.Location = New System.Drawing.Point(68, 58)
Me.NotificationBGButton.Name = "NotificationBGButton"
Me.NotificationBGButton.Size = New System.Drawing.Size(59, 31)
Me.NotificationBGButton.TabIndex = 8
Me.NotificationBGButton.Text = "Back"
Me.NotificationBGButton.UseVisualStyleBackColor = True
'
'NotificationAllDefaultButton
'
Me.NotificationAllDefaultButton.Location = New System.Drawing.Point(5, 132)
Me.NotificationAllDefaultButton.Name = "NotificationAllDefaultButton"
Me.NotificationAllDefaultButton.Size = New System.Drawing.Size(122, 31)
Me.NotificationAllDefaultButton.TabIndex = 1
Me.NotificationAllDefaultButton.Text = "Default (All)"
Me.NotificationAllDefaultButton.UseVisualStyleBackColor = True
'
'NotificationCurrentDefaultButton
'
Me.NotificationCurrentDefaultButton.Location = New System.Drawing.Point(5, 95)
Me.NotificationCurrentDefaultButton.Name = "NotificationCurrentDefaultButton"
Me.NotificationCurrentDefaultButton.Size = New System.Drawing.Size(122, 31)
Me.NotificationCurrentDefaultButton.TabIndex = 1
Me.NotificationCurrentDefaultButton.Text = "Default (Current)"
Me.NotificationCurrentDefaultButton.UseVisualStyleBackColor = True
'
'NotificationFGButton
'
Me.NotificationFGButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NotificationFGButton.Location = New System.Drawing.Point(5, 58)
Me.NotificationFGButton.Name = "NotificationFGButton"
Me.NotificationFGButton.Size = New System.Drawing.Size(59, 31)
Me.NotificationFGButton.TabIndex = 2
Me.NotificationFGButton.Text = "Text"
Me.NotificationFGButton.UseVisualStyleBackColor = True
'
'NotificationCategorySelector
'
Me.NotificationCategorySelector.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.NotificationCategorySelector.FormattingEnabled = True
Me.NotificationCategorySelector.Items.AddRange(New Object() {"Critical", "Warning", "Info"})
Me.NotificationCategorySelector.Location = New System.Drawing.Point(5, 25)
Me.NotificationCategorySelector.Name = "NotificationCategorySelector"
Me.NotificationCategorySelector.Size = New System.Drawing.Size(122, 24)
Me.NotificationCategorySelector.TabIndex = 7
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.SidebarFGButton)
Me.GroupBox3.Controls.Add(Me.SidebarDefaultButton)
Me.GroupBox3.Controls.Add(Me.Button3)
Me.GroupBox3.Controls.Add(Me.SidebarBGButton)
Me.GroupBox3.Location = New System.Drawing.Point(10, 36)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(84, 171)
Me.GroupBox3.TabIndex = 2
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Sidebar"
'
'SidebarFGButton
'
Me.SidebarFGButton.Location = New System.Drawing.Point(8, 21)
Me.SidebarFGButton.Name = "SidebarFGButton"
Me.SidebarFGButton.Size = New System.Drawing.Size(67, 31)
Me.SidebarFGButton.TabIndex = 0
Me.SidebarFGButton.Text = "Text"
Me.SidebarFGButton.UseVisualStyleBackColor = True
'
'SidebarDefaultButton
'
Me.SidebarDefaultButton.Location = New System.Drawing.Point(8, 132)
Me.SidebarDefaultButton.Name = "SidebarDefaultButton"
Me.SidebarDefaultButton.Size = New System.Drawing.Size(67, 31)
Me.SidebarDefaultButton.TabIndex = 1
Me.SidebarDefaultButton.Text = "Default"
Me.SidebarDefaultButton.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(8, 95)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(67, 31)
Me.Button3.TabIndex = 1
Me.Button3.Text = "Copy ->"
Me.Button3.UseVisualStyleBackColor = True
'
'SidebarBGButton
'
Me.SidebarBGButton.Location = New System.Drawing.Point(8, 58)
Me.SidebarBGButton.Name = "SidebarBGButton"
Me.SidebarBGButton.Size = New System.Drawing.Size(67, 31)
Me.SidebarBGButton.TabIndex = 1
Me.SidebarBGButton.Text = "Back"
Me.SidebarBGButton.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button2)
Me.GroupBox2.Controls.Add(Me.TextBoxDefaultButton)
Me.GroupBox2.Controls.Add(Me.TextBoxFGButton)
Me.GroupBox2.Controls.Add(Me.TextBoxBGButton)
Me.GroupBox2.Location = New System.Drawing.Point(99, 36)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(84, 171)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Editor"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(8, 95)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(67, 31)
Me.Button2.TabIndex = 0
Me.Button2.Text = "<- Copy"
Me.Button2.UseVisualStyleBackColor = True
'
'TextBoxDefaultButton
'
Me.TextBoxDefaultButton.Location = New System.Drawing.Point(8, 132)
Me.TextBoxDefaultButton.Name = "TextBoxDefaultButton"
Me.TextBoxDefaultButton.Size = New System.Drawing.Size(67, 31)
Me.TextBoxDefaultButton.TabIndex = 1
Me.TextBoxDefaultButton.Text = "Default"
Me.TextBoxDefaultButton.UseVisualStyleBackColor = True
'
'TextBoxFGButton
'
Me.TextBoxFGButton.Location = New System.Drawing.Point(8, 21)
Me.TextBoxFGButton.Name = "TextBoxFGButton"
Me.TextBoxFGButton.Size = New System.Drawing.Size(67, 31)
Me.TextBoxFGButton.TabIndex = 0
Me.TextBoxFGButton.Text = "Text"
Me.TextBoxFGButton.UseVisualStyleBackColor = True
'
'TextBoxBGButton
'
Me.TextBoxBGButton.Location = New System.Drawing.Point(8, 58)
Me.TextBoxBGButton.Name = "TextBoxBGButton"
Me.TextBoxBGButton.Size = New System.Drawing.Size(67, 31)
Me.TextBoxBGButton.TabIndex = 1
Me.TextBoxBGButton.Text = "Back"
Me.TextBoxBGButton.UseVisualStyleBackColor = True
'
'MockCaption
'
Me.MockCaption.BackColor = System.Drawing.Color.Orchid
Me.MockCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MockCaption.ForeColor = System.Drawing.Color.White
Me.MockCaption.Location = New System.Drawing.Point(5, 215)
Me.MockCaption.Name = "MockCaption"
Me.MockCaption.Size = New System.Drawing.Size(406, 241)
Me.MockCaption.TabIndex = 7
Me.MockCaption.Text = resources.GetString("MockCaption.Text")
'
'ThemeSelector
'
Me.ThemeSelector.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ThemeSelector.FormattingEnabled = True
Me.ThemeSelector.Items.AddRange(New Object() {"Standard", "Night", "Tertiary"})
Me.ThemeSelector.Location = New System.Drawing.Point(21, 7)
Me.ThemeSelector.Name = "ThemeSelector"
Me.ThemeSelector.Size = New System.Drawing.Size(141, 24)
Me.ThemeSelector.TabIndex = 0
'
'ColourPicker
'
Me.ColourPicker.AnyColor = True
Me.ColourPicker.FullOpen = True
Me.ColourPicker.SolidColorOnly = True
'
'MainCancelButton
'
Me.MainCancelButton.Location = New System.Drawing.Point(19, 521)
Me.MainCancelButton.Name = "MainCancelButton"
Me.MainCancelButton.Size = New System.Drawing.Size(75, 27)
Me.MainCancelButton.TabIndex = 11
Me.MainCancelButton.Text = "Cancel"
Me.ToolTipSlut.SetToolTip(Me.MainCancelButton, "Discard all theme changes you've made this session.")
Me.MainCancelButton.UseVisualStyleBackColor = True
'
'SaveButton
'
Me.SaveButton.Location = New System.Drawing.Point(348, 521)
Me.SaveButton.Name = "SaveButton"
Me.SaveButton.Size = New System.Drawing.Size(75, 27)
Me.SaveButton.TabIndex = 11
Me.SaveButton.Text = "Save"
Me.ToolTipSlut.SetToolTip(Me.SaveButton, "Confirm and write changes to disk.")
Me.SaveButton.UseVisualStyleBackColor = True
'
'ThemeApplied
'
Me.ThemeApplied.Location = New System.Drawing.Point(98, 521)
Me.ThemeApplied.Name = "ThemeApplied"
Me.ThemeApplied.Size = New System.Drawing.Size(246, 23)
Me.ThemeApplied.TabIndex = 12
Me.ThemeApplied.Text = "Theme Applied!"
Me.ThemeApplied.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.ThemeApplied.Visible = False
'
'ThemeAppliedHideTimer
'
Me.ThemeAppliedHideTimer.Interval = 1000
'
'Customise_Colours
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(442, 554)
Me.Controls.Add(Me.ThemeApplied)
Me.Controls.Add(Me.SaveButton)
Me.Controls.Add(Me.ThemeSelector)
Me.Controls.Add(Me.MainCancelButton)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "Customise_Colours"
Me.Text = "Notepad Ultra - Theme Editor"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents ThemeSelector As ComboBox
Friend WithEvents ColourPicker As ColorDialog
Friend WithEvents TextBoxBGButton As Button
Friend WithEvents TextBoxFGButton As Button
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents SidebarFGButton As Button
Friend WithEvents SidebarBGButton As Button
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents StatusBarFGButton As Button
Friend WithEvents StatusBarBGButton As Button
Friend WithEvents Label3 As Label
Friend WithEvents VScrollBar1 As VScrollBar
Friend WithEvents MockFilePicker As Label
Friend WithEvents MockTextBox As Label
Friend WithEvents NotificationFGButton As Button
Friend WithEvents NotificationCategorySelector As ComboBox
Friend WithEvents MockCaption As Label
Friend WithEvents Label5 As Label
Friend WithEvents NotificationBGButton As Button
Friend WithEvents MockStatusBar As Label
Friend WithEvents MockNotification As Label
Friend WithEvents ApplyButton As Button
Friend WithEvents Button8 As Button
Friend WithEvents InnerCancelButton As Button
Friend WithEvents MainCancelButton As Button
Friend WithEvents SaveButton As Button
Friend WithEvents ToolTipSlut As ToolTip
Friend WithEvents Button13 As Button
Friend WithEvents Button12 As Button
Friend WithEvents ThemeApplied As Label
Friend WithEvents ThemeAppliedHideTimer As Timer
Friend WithEvents StatusBarDefaultButton As Button
Friend WithEvents NotificationAllDefaultButton As Button
Friend WithEvents NotificationCurrentDefaultButton As Button
Friend WithEvents SidebarDefaultButton As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button2 As Button
Friend WithEvents TextBoxDefaultButton As Button
End Class

143
Theme Editor.resx Normal file
View File

@ -0,0 +1,143 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolTipSlut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>175, 17</value>
</metadata>
<data name="MockTextBox.Text" xml:space="preserve">
<value>To provide you with an idea of what your chosen colour scheme will look like, this mockup will automatically update to reflect your choices.
Note that the text here is not the same size as it will appear. This is done simply to make it easier to visualise the final colour scheme, as using realistically-scaled font sizes would make the text incredibly small (as small as the menu bar on the top-left of the mockup).</value>
</data>
<data name="MockCaption.Text" xml:space="preserve">
<value>Notepad Ultra
If you are seeing this, I'm afraid your measly computer simply cannot handle the might and the majesty of Lynnear Software's finest creation yet: The futuristic, sleek, sexy, AutoUpdato-Realtimetacular SplendifferoPreviewBox 8000!
Or maybe the program fucked up. It probably fucked up.</value>
</data>
<metadata name="ColourPicker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ThemeAppliedHideTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>308, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>46</value>
</metadata>
</root>

265
Theme Editor.vb Normal file
View File

@ -0,0 +1,265 @@
Public Class Customise_Colours
Dim OldTheme, CurrentTheme, PreSaveNiteTheme, PreSaveStandardTheme, PreSaveTertiaryTheme As Theme
Dim unappliedchanges, unsaved As Boolean
Dim SaveWarningThemeName As String
'WARNING: this code isn't pretty...
Public Property unapplied() As String
Get
Return unappliedchanges
End Get
Private Set(ByVal value As String)
unappliedchanges = value
InnerCancelButton.Enabled = unappliedchanges
ApplyButton.Enabled = unappliedchanges
SaveButton.Enabled = Not unappliedchanges
End Set
End Property
Private Sub Customise_Colours_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Icon = ProgramIcon()
PreSaveStandardTheme = ReturnThemeSettingsAsThemeObject(0)
PreSaveNiteTheme = ReturnThemeSettingsAsThemeObject(1)
PreSaveTertiaryTheme = ReturnThemeSettingsAsThemeObject(2)
NotificationCategorySelector.SelectedIndex = 2
ThemeSelector.SelectedIndex = 0 'todo: maybe change to reflect current theme?
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ThemeSelector.SelectedIndexChanged
If unsaved = True Then
If MsgBox("Apply changes before switching?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Select Case SaveWarningThemeName
Case "Standard"
PreSaveStandardTheme = CurrentTheme
Case "Nite"
PreSaveNiteTheme = CurrentTheme
Case "Tertiary"
PreSaveTertiaryTheme = CurrentTheme
End Select
showThemeAppliedMessage()
End If
End If
LoadTheme()
SaveWarningThemeName = ThemeSelector.SelectedItem.ToString.Replace("Night", "Nite")
unapplied = False
End Sub
Private Sub LoadTheme()
Dim themeName As String = ThemeSelector.SelectedItem.ToString.Replace("Night", "Nite")
Select Case themeName
Case "Standard"
CurrentTheme = PreSaveStandardTheme
Case "Nite"
CurrentTheme = PreSaveNiteTheme
Case "Tertiary"
CurrentTheme = PreSaveTertiaryTheme
End Select
PreviewCurrentTheme()
End Sub
Private Sub ThemeAppliedHideTimer_Tick(sender As Object, e As EventArgs) Handles ThemeAppliedHideTimer.Tick
ThemeApplied.Visible = False
ThemeAppliedHideTimer.Stop()
End Sub
Private Sub PreviewCurrentTheme() Handles NotificationCategorySelector.SelectedIndexChanged
MockFilePicker.ForeColor = CurrentTheme.SidebarFG
MockFilePicker.BackColor = CurrentTheme.SidebarBG
MockStatusBar.ForeColor = CurrentTheme.StatusBarFG
MockStatusBar.BackColor = CurrentTheme.StatusBarBG
MockTextBox.ForeColor = CurrentTheme.TextBoxFG
MockTextBox.BackColor = CurrentTheme.TextBoxBG
Dim category As String = NotificationCategorySelector.SelectedItem.ToString
MockNotification.ForeColor = CallByName(CurrentTheme, "Notification" & category & "FG", CallType.Get)
MockNotification.BackColor = CallByName(CurrentTheme, "Notification" & category & "BG", CallType.Get)
End Sub
Private Sub SetNewColour(sender As Object, e As EventArgs) Handles NotificationBGButton.Click, TextBoxBGButton.Click, SidebarBGButton.Click, SidebarFGButton.Click, StatusBarFGButton.Click, StatusBarBGButton.Click, NotificationFGButton.Click, TextBoxFGButton.Click
Dim Clicked As String = sender.name.ToString.RemoveLast(6).Replace("Notification", "Notification" & NotificationCategorySelector.SelectedItem.ToString)
ColourPicker.Color = CallByName(CurrentTheme, Clicked, CallType.Get)
If ColourPicker.ShowDialog() = DialogResult.OK Then
CallByName(CurrentTheme, Clicked, CallType.Set, ColourPicker.Color) 'TODO: why doesn't this work? >:c
unapplied = True
unsaved = True
ShittyThemeSetWorkaround(Clicked, ColourPicker.Color)
PreviewCurrentTheme()
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles InnerCancelButton.Click
If MsgBox("Undo changes made and reload theme from settings?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
unapplied = False
LoadTheme()
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click, Button12.Click
MsgBox("Not yet supported, sorry :c")
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
'TODO: Restore defaults
'Also, right clicking on a button should reset that thing to its default
If MsgBox("Load the default colours for this theme?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Select Case ThemeSelector.SelectedIndex
Case 0
CurrentTheme = defaultStandardTheme
Case 1
CurrentTheme = defaultNightTheme
Case 2
CurrentTheme = defaultTertiaryTheme
Case Else
CurrentTheme = defaultStandardTheme
End Select
unsaved = True
PreviewCurrentTheme()
End If
End Sub
Private Sub ResetCategoryToDefaults(sender As Object, e As EventArgs) Handles NotificationAllDefaultButton.Click, NotificationCurrentDefaultButton.Click, StatusBarDefaultButton.Click, SidebarDefaultButton.Click, TextBoxDefaultButton.Click 'TODO: replace with a bunch of CallByNames?
If MsgBox("Restore the default colours for this category to their defaults?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Dim Clicked As String = sender.name.ToString.RemoveLast(13)
Select Case Clicked
Case "NotificationAll]"
CurrentTheme.NotificationCriticalBG = SelectedThemeDefaults.NotificationCriticalBG
CurrentTheme.NotificationCriticalFG = SelectedThemeDefaults.NotificationCriticalBG
CurrentTheme.NotificationWarningBG = SelectedThemeDefaults.NotificationCriticalBG
CurrentTheme.NotificationWarningFG = SelectedThemeDefaults.NotificationCriticalBG
CurrentTheme.NotificationInfoBG = SelectedThemeDefaults.NotificationCriticalBG
CurrentTheme.NotificationInfoFG = SelectedThemeDefaults.NotificationCriticalBG
Case "NotificationCurrent"
Dim category As String = NotificationCategorySelector.SelectedItem.ToString
CallByName(CurrentTheme, "Notification" & category & "FG", CallType.Set, CallByName(SelectedThemeDefaults, "Notification" & category & "FG", CallType.Get))
CallByName(CurrentTheme, "Notification" & category & "BG", CallType.Set, CallByName(SelectedThemeDefaults, "Notification" & category & "BG", CallType.Get))
Case "StatusBar"
CurrentTheme.StatusBarBG = SelectedThemeDefaults.StatusBarBG
CurrentTheme.StatusBarFG = SelectedThemeDefaults.StatusBarFG
Case "TextBox"
CurrentTheme.TextBoxBG = SelectedThemeDefaults.TextBoxBG
CurrentTheme.TextBoxFG = SelectedThemeDefaults.TextBoxFG
Case "Sidebar"
CurrentTheme.SidebarFG = SelectedThemeDefaults.SidebarFG
CurrentTheme.SidebarBG = SelectedThemeDefaults.SidebarBG
End Select
unsaved = True
PreviewCurrentTheme()
End If
End Sub
Public Function SelectedThemeDefaults() As Theme
Select Case ThemeSelector.SelectedIndex
Case 0
Return defaultStandardTheme
Case 1
Return defaultNightTheme
Case 2
Return defaultTertiaryTheme
Case Else
Return defaultStandardTheme
End Select
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If MsgBox("Update sidebar colours to match editor colours?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
CurrentTheme.SidebarBG = CurrentTheme.TextBoxBG
CurrentTheme.SidebarFG = CurrentTheme.TextBoxFG
End If
unsaved = True
PreviewCurrentTheme()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MsgBox("Update editor colours to match sidebar colours?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
CurrentTheme.TextBoxBG = CurrentTheme.SidebarBG
CurrentTheme.TextBoxFG = CurrentTheme.SidebarFG
End If
unsaved = True
PreviewCurrentTheme()
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles SaveButton.Click
Dim themeName() As String = {"Standard", "Nite", "Tertiary"}
For i = 0 To 2
CallByName(My.Settings, themeName(i) & "NotifyColourCritical", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationCriticalBG", CallType.Get))
CallByName(My.Settings, themeName(i) & "NotifyColourWarning", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationWarningBG", CallType.Get))
CallByName(My.Settings, themeName(i) & "NotifyColourInfo", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationInfoBG", CallType.Get))
CallByName(My.Settings, themeName(i) & "NotifyTextColourCritical", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationCriticalFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "NotifyTextColourWarning", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationWarningFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "NotifyTextColourInfo", CallType.Set, CallByName(GetPreSaveTheme(i), "NotificationInfoFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "SidebarFG", CallType.Set, CallByName(GetPreSaveTheme(i), "SidebarFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "SidebarBG", CallType.Set, CallByName(GetPreSaveTheme(i), "SidebarBG", CallType.Get))
CallByName(My.Settings, themeName(i) & "StatFG", CallType.Set, CallByName(GetPreSaveTheme(i), "StatusBarFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "StatBG", CallType.Set, CallByName(GetPreSaveTheme(i), "StatusBarBG", CallType.Get))
CallByName(My.Settings, themeName(i) & "TextFG", CallType.Set, CallByName(GetPreSaveTheme(i), "TextBoxFG", CallType.Get))
CallByName(My.Settings, themeName(i) & "TextBG", CallType.Set, CallByName(GetPreSaveTheme(i), "TextBoxBG", CallType.Get))
Next
My.Settings.Save()
NPUWindow.reloadCurrentTheme()
End Sub
Function GetPreSaveTheme(themeType As Integer)
Select Case themeType
Case 0
Return PreSaveStandardTheme
Case 1
Return PreSaveNiteTheme
Case 2
Return PreSaveTertiaryTheme
Case Else
Return PreSaveStandardTheme
End Select
End Function
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles ApplyButton.Click
Dim themeName As String = ThemeSelector.SelectedItem.ToString
Select Case themeName
Case "Standard"
PreSaveStandardTheme = CurrentTheme
Case "Night"
PreSaveNiteTheme = CurrentTheme
Case "Tertiary"
PreSaveTertiaryTheme = CurrentTheme
End Select
unapplied = False
showThemeAppliedMessage()
End Sub
Public Sub ShittyThemeSetWorkaround(Name, Colour) 'upside to using non-american english in a programming language written in american english: calling the variable "color" would've fucked things up, because you can't redefine the built in class! ;p
'If CallByName(currentTheme, Name, CallType.Get) = Colour Then MsgBox("It actually worked")
Select Case Name
Case "NotificationInfoBG"
CurrentTheme.NotificationInfoBG = Colour
Case "NotificationInfoFG"
CurrentTheme.NotificationInfoFG = Colour
Case "NotificationWarningBG"
CurrentTheme.NotificationWarningBG = Colour
Case "NotificationWarningFG"
CurrentTheme.NotificationWarningFG = Colour
Case "NotificationCriticalBG"
CurrentTheme.NotificationCriticalBG = Colour
Case "NotificationCriticalFG"
CurrentTheme.NotificationCriticalFG = Colour
Case "TextBoxBG"
CurrentTheme.TextBoxBG = Colour
Case "TextBoxFG"
CurrentTheme.TextBoxFG = Colour
Case "SidebarBG"
CurrentTheme.SidebarBG = Colour
Case "SidebarFG"
CurrentTheme.SidebarFG = Colour
Case "StatusBarBG"
CurrentTheme.StatusBarBG = Colour
Case "StatusBarFG"
CurrentTheme.StatusBarFG = Colour
End Select
End Sub
Public Sub showThemeAppliedMessage()
ThemeApplied.Visible = True
ThemeAppliedHideTimer.Start()
End Sub
End Class

Binary file not shown.

215
bin/Debug/Changelog.txt Normal file
View File

@ -0,0 +1,215 @@
CHANGELOG
Really minor things (fixing typos, adding comments, minor restructures) aren't mentioned.
Alpha 0.1 - Genesis
Initial version!
Reading files
Writing files
Alpha 0.2 - The Basics
Support for displaying directories
Rudimentary encoding support
Scaling fixes
Alpha 0.3 - Cementing the Basics
Complete (I think) encoding support
Full directory support!
UI enhancements
Started working on settings
Alpha 0.4 - The Big One
Fixed numerous bugs related to file deletion (both internal and external)
Made Save As open the saved file after saving
Made "Change font size" options work
Added shortcuts for deleting files and for refreshing the file picker
Made font-change shortcuts work
"Couldn't detect encoding" message boxes have been replaced with a much less obtrusive warning in the bottom-left
Changed Save As from Ctrl-Alt-S to Ctrl-Shift-S (because Ctrl-Alt-S opens a System Information dialogue on my Spectre) (Suggested by Pet!)
Fixed issue where filepicker without scrollbar caused text to overflow from window (Spotted by Pet)
Fixed issue where deleting a file, or opening a new directory, followed by clicking on blank space in the file picker, would cause a crash (Pet)
Added insert time/date functionality
Alpha 0.5 - When Things got *Really* Serious
Settings dialogue reads settings, but can't write them yet (It's 0049 and I'm tired)
Cleaned up changelog ;p
Added supported for 3 tiers of notifications
Changed font size changing mechanics, and made it into a dropdown instead of a split button
Moved notifications to the right-hand side, because avoiding text jumping around is more important than making sure they're visible in narrow windows (I think)
Added a FIFO queue for notifications!
Fixed an issue where the filepicker would be much too wide on low DPI screens
Added first settings tooltip
Created a form for theme customisation
Added file size and creation date info to the file info dialogue
Alpha 0.6 - Tweaks and Features
(Partial) THEME SUPPORT! So far, saving is not supported. Themes can be edited, but not saved. Theme support was sorta Pet's idea (she thought it would be cool to be able to modify the night mode's colours, I took it from there)
Added a form to change supported file extensions
Added support for extensions other than txt
Replaced night mode toggle with support for 3 customisable themes
Added a directory watch feature. If any files in the base directory are deleted/renamed/created, the filepicker will automatically refresh.
Fixed some rather nasty bugs related to the directory watcher
Implemented a Find feature! However, when the textbox has been scrolled to the bottom, each click of the "next" button causes it to jump one line up or down.
Alpha 0.7 - The Theme Update
Themes are now saved and remembered between sessions!
Fixed a possible bug where changing directories would not update the directory watcher
All options in the settings menu now have tooltips
Settings now save
(Very) small speed optimisations
HUGE speed increase to saving, restoring it to Alpha 0.5 speed. The directory watcher refreshed the file list over and over again while saving, and saving could take anywhere up to three seconds!
Added a warning that displays if you try to exit or change file without saving your changes
Alpha 0.8 - Serious Business
Fixed an issue where using UNC paths would break upon going up a level
Converted the changelog from a .vb file to a .txt file, which is what it should've been all along
Moved a fair amount of functions into Extensions.vb so they can be accessed globally, which means less reinvention of the wheel
Added a form for editing the preset directories, I'll work on it when it's not 0340
Added in the default colours for the standard theme. Fuck this, I'm going to sleep. See you in 0.9!
Alpha 0.9 - It's the Little Things
Fixed a bug that caused notification theme settings not to be displayed in the theme previewer
Fixed bugs related to theme saving and loading
Added and implemented restoration of default themes
Started work on status bar options
Alpha 0.10 - Slow Day
Status bar options are now fully implemented
Minor code cleanups here and there
[I thought I was going to sleep at this point, but my sleep schedule is already fucked badly, so I didn't]
Removed debug code in Find dialogue
Started work on replace (as in find & replace) dialogue
Added an option to highlight all instances of the find string. Sleep is for the weak.
Copied the highlight all code over to the replace dialogue. It's 0258, and I think I'll start being healthy and going to sleep before 0300, so I'm out.
Alpha 0.11 - Fulfilling Promises
Fixed a bug that caused the find dialogue to count, but ignore the last character of the file when searching
Fixed a bug that made NPU fail to load the user's settings if an error occurred during startup
Implemented "Match Case" and "Whole Word" for the find and replace dialogues!
Fixed a bug that arose when the File Picker automatically reselected the file you were working on. If the file had unsaved changes, you would be asked to save those changes or discard them and reload from the disk, instead of just keeping them in memory. Thanks to Pet for telling me.
Replace dialogue is now capable of replacing
Duplication support
NPU now prevents you from going up from the root directory of a given path
Files can now be right-clicked in the sidebar, presenting the user with options to delete or reveal the file
Alpha 0.12 - Some Semblance of Professionalism
Printing support!
Added a placeholder(?) icon
Added a shitty licence to stop people stealing the glorious, mountainous revenue I expect to make ($0.00) from this one-of-a-kind, expertly written divine experience in the form of a beautiful piece of perfect software. The licence, named with the exceptionally witty and clever title of "Lynnecence 1.0", is pretty much MPL's chill, unemployed cousin who lets you do irresponsible stuff while still worrying about you
File loading is now asynchronous, and there's even a dandy little progress bar!
Added a warning message for when a file takes more than 10 seconds to load
Fixed a crash upon right-clicking on empty space in the File Picker (thanks Pet)
Sorted TODO in Changelog.txt by importance (in my opinion)
Added PostSharp (https://www.postsharp.net/download) because I just discovered that you can add PostSharp
Alpha 0.13 - The THICC Update
Added a splash screen!
Started working on handling "Open with"
Fixed a bug where anything typed the first second after saving a file would be deleted
Files save more quickly
Fixed a bug that caused the title bar to end up like "Notepad Ultra: file.txt (Unsaved) (Unsaved) (Unsaved) (Unsaved) (Unsaved)" when saving the same file multiple times
Open With now works, probably! ~u0
You can now no longer get info, duplicate, or delete files that don't yet exist
Removed PostSharp because I decided to make my own undo function because I'm hardcore and doesn't afraid of anything
UNDO SUPPORT! \0u0/
Partial undo settings support!
Changed a few " "s in the changelog to tabs
Beta 0.1 - General Use, Maybe?
Default file open settings are now used
Updated the icon to reflect beta state
Added a changelog viewer to the About menu
Finally added the most important feature: The "about" dialogue has a cool light display! And just in time for Christmas, too! ;p
Disabled pasting of rich text (I didn't realise it was enabled) because Notepad Ultra isn't meant to replace WordPad
Lots of little changes!
Beta 0.2 - User Friendlier
Improved saving of new files
Fixed a crash when using the find operation
Removed Unix2Dos dependency, increasing speed and reliability while reducing file size! 0u0
Renamed RemoveEnding to RemoveLast
Main window is now titled "file.txt - Notepad Ultra" instead of "Notepad Ultra: file.txt"
Fixed a bug that made changing supported extensions not work
[NOTE: Development will be slowing down from now own, i'm working on some private projects ~u0]
Beta 0.3 - Can she fix it? Yes she can! (So much for development slowing down...)
Fixed another bug related to supported extensions
Slight code improvements
Prevented removal of the txt file extension
Page setup
When closing with an unsaved new file, the prompt read 'Save changes made to ""?', which has been replaced with 'Save changes made to new file?'
Automatic insertion of bullet points (and dashes) is now possible!
Added a button to toggle overtype
Rearranged the file menu
Removed the border around the text file holder
Added the border back, because it looks terrible if your filepicker doesn't have a scrollbar (thanks pet)
Fixed yet /another/ bug related to supported extensions
Fixed a crash that would occur when you opened, closed, and reopened the settings dialogue
Fixed some inconsistencies between spaces and tabs in some files
Fixed a bug where cancelling the open file dialogue would leave NPU running in the background
If your working directory cannot be found when you open a passed file, disable the copy and move options rather than the set directory option
Fixed a bug that caused npu to close half a second after opening a passed file because I'm an idiot
Fixed a stupid, stupid bug with the GetFileExtension() function because I'm a moron
Fixed many a bug related to opening passed files
Updated Extensions.vb with the latest version from another classic Lynnear Software title, "Waifu2X GUI"
Commented the FUCK out of the main file! Now this is my idea of a fun Saturday night! And by night, I mean 0243!
Beta 0.4 - Out, damned bug!
If a file fails to load, instead of freezing the program and requiring a taskkill (or similar), it resets to the default state
Updated the "copyright" to say 2017
Removed pointless rgbColour function
Fixed many, many bugs and inefficiencies with automatic bullets
Also, automatic bullets now have an additional space behind them, to make them neater!
Fixed bugs with undo
Undo limit now defaults to 50 instead of 10, and is capped at 500 instead of 100 (unlimited is still available). Memory is cheap! ;p
Instead of defaulting to my personal text files folder on first run, npu now defaults to the user's documents folder!
Removed a goto statement of very questionable necessity
Trying to open directories that you can't open (e.g. C:\Documents and Settings\) no longer crashes npu
Theme editor's "Copy" buttons now work!
Fixed inconsistencies with sizing
Implemented a rather icky fix for auto bullets causing a crash when word wrap was on
Beta 0.5 - The Breddy Gud Update
Now supports renaming files!
Also, added move functionality!
Some cheeky DPI fixes
Default theme buttons!
Rearranged theme customisation UI slightly
Redo is now Ctrl Y as it should be, and, not Ctrl Shift Z. Th-thanks, Microsoft
Fixed a small issue with the redraw function causing the text file holder to slightly overlap the status bar if the sidebar was hidden
Fixed a bug where trying to print without an installed printer would cause a crash, maybe?
Fixed an issue that caused newly moved/renamed files to be treated as new files
Beta 0.6 - The PHP Era
Files can be renamed via the right click menu
Right click menu no longer works on currently open item (intentional)
Find & replace is now the standard Ctrl H, not Ctrl G
Updated the "copyright" on the about page
Beta 0.7 - Unfuckery
Right click menu works on currently open item ~u0
Added wiki link to about box
Added a cancel option to the "Save changes before closing?" dialogue
Very minor corrections
Clicking a notification now dismisses it and shows the next one rather than just turning it invisible and still having it be there
Working on fixing a bug that I can't reproduce within the debugger that causes NPU to crash when closing an unsaved file
NPU no longer clears the clipboard on exit
Files save faster now
Removed "no compatible files" notification
Added "Use notepad.exe" button to open passed file dialogue (In addition to Relocate/Move/Copy)
File extensions are now case insensitive
TODO:
Custom path quick links!
Fix weird "Replace All" behaviour
Implement undo settings
Handle being located in Program Files, or anywhere else where you need admin for everything
Resizeable sidebar?
Show ellipses if name in filepicker is too long?
Encryption?
Make it so that you can't use NPU while any settings dialogues are open
Export/Import themes
Occasionally crashes on exit. Replicate, debug, fix
COMMITS:
Style commit messages like this
[VERSION], [TRADEMARK WITTY DIALOGUE]. New/Changed: [NEW STUFF]. Fixed: [FIXES]. Removed: [REMOVED STUFF].

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,11 @@
80 |
30 |
0 | []
-30|
-80|
h=110
- Find ball's position relative to paddle
- Any y pos over 55 = negative result
- Any y pos under 55 = positive result

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

After

Width:  |  Height:  |  Size: 52 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 50 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

View File

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="Notepad Ultra.application" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Hewlett-Packard" asmv2:product="Notepad Ultra" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
<framework targetVersion="4.5.2" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="Notepad Ultra.exe.manifest" size="8762">
<assemblyIdentity name="Notepad Ultra.exe" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>OY27wJLJ8YmHQHi3EH5f6faT5TNDm+dZQzEvZiTjE8o=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
</asmv1:assembly>

BIN
bin/Debug/Notepad Ultra.exe Normal file

Binary file not shown.

View File

@ -0,0 +1,28 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href="c:\program files (x86)\microsoft visual studio 14.0\team tools\static analysis tools\fxcop\Xml\CodeAnalysisReport.xsl"?>
<FxCopReport Version="14.0">
<Localized>
<String Key="Category">Category</String>
<String Key="Certainty">Certainty</String>
<String Key="CollapseAll">Collapse All</String>
<String Key="CheckId">Check Id</String>
<String Key="Error">Error</String>
<String Key="Errors">error(s)</String>
<String Key="ExpandAll">Expand All</String>
<String Key="Help">Help</String>
<String Key="Line">Line</String>
<String Key="Messages">message(s)</String>
<String Key="LocationNotStoredInPdb">[Location not stored in Pdb]</String>
<String Key="Project">Project</String>
<String Key="Resolution">Resolution</String>
<String Key="Rule">Rule</String>
<String Key="RuleFile">Rule File</String>
<String Key="RuleDescription">Rule Description</String>
<String Key="Source">Source</String>
<String Key="Status">Status</String>
<String Key="Target">Target</String>
<String Key="Warning">Warning</String>
<String Key="Warnings">warning(s)</String>
<String Key="ReportTitle">Code Analysis Report</String>
</Localized>
</FxCopReport>

View File

@ -0,0 +1,213 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Notepad_Ultra.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
</startup>
<userSettings>
<Notepad_Ultra.My.MySettings>
<setting name="Font" serializeAs="String">
<value>Lucida Console, 12pt</value>
</setting>
<setting name="WordWrap" serializeAs="String">
<value>True</value>
</setting>
<setting name="WorkingDirectory" serializeAs="String">
<value>///FIRST RUN///</value>
</setting>
<setting name="ShowSidebar" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultEncoding" serializeAs="String">
<value>0</value>
</setting>
<setting name="GreenNotifications" serializeAs="String">
<value>True</value>
</setting>
<setting name="MoveTransparency" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoSteps" serializeAs="String">
<value>50</value>
</setting>
<setting name="UndoMaxMemory" serializeAs="String">
<value>256</value>
</setting>
<setting name="StandardTextBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardTextFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextFG" serializeAs="String">
<value>224, 224, 224</value>
</setting>
<setting name="StandardNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="StandardNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="StandardNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="StandardNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryTextBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="TertiaryTextFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="TertiaryStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="NiteStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="SupportedExtensions" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string>txt</string>
<string>cfg</string>
<string>ini</string>
<string>log</string>
</ArrayOfString>
</value>
</setting>
<setting name="StandardSidebarFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardSidebarBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="TertiarySidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiarySidebarBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="NiteNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="NiteNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="NiteNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="NiteNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="TertiaryNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="TertiaryNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="TertiaryNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="CurrentTheme" serializeAs="String">
<value>0</value>
</setting>
<setting name="StatBarSize" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarChars" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarDate" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarDir" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarFontSize" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarStatus" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarMode" serializeAs="String">
<value>True</value>
</setting>
<setting name="UseRecycleBin" serializeAs="String">
<value>True</value>
</setting>
<setting name="PresetDirectories" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string />
</ArrayOfString>
</value>
</setting>
<setting name="UndoUnlimitedSteps" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoMemoryLimit" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultFileAction" serializeAs="String">
<value>0</value>
</setting>
</Notepad_Ultra.My.MySettings>
</userSettings>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<!-- BEGIN: Added by PostSharp -->
<dependentAssembly xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity name="PostSharp" publicKeyToken="b13fd38b8f9c99d7" culture="neutral" />
<bindingRedirect oldVersion="3.0.0.0-4.3.25.0" newVersion="4.3.25.0" />
</dependentAssembly>
<!-- END: Added by PostSharp -->
</assemblyBinding>
</runtime>
</configuration>

View File

@ -0,0 +1,170 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Notepad Ultra.exe" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<description asmv2:iconFile="npu beta logo.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
<application />
<entryPoint>
<assemblyIdentity name="Notepad Ultra" version="0.4.6474.27171" language="neutral" processorArchitecture="msil" />
<commandLine file="Notepad Ultra.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel element will disable file and registry virtualization.
Remove this element if your application requires this virtualization for backwards
compatibility.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="5" minorVersion="1" buildNumber="2600" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Notepad Ultra.exe" size="382352">
<assemblyIdentity name="Notepad Ultra" version="0.4.6474.27171" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>ZXgYf93cK2fBNTQEaSbhwAjLrxYL363iEvlDJSqgskQ=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PostSharp.dll" size="227408">
<assemblyIdentity name="PostSharp" version="4.3.25.0" publicKeyToken="B13FD38B8F9C99D7" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>LctraFQOGS+3I9OAK/JA7D/no1zC+UaPBSMYItK3Rxs=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="RichTextBoxPrintCtrl.dll" size="10752">
<assemblyIdentity name="RichTextBoxPrintCtrl" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>cpuSNzboLrm9Lt6PKcc6RhQRUwkHopYND2IPAGwJ6WY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="bin\Debug\dependencies\file\bin\file.exe" size="45056">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4HosnFGZSItjK+oH24L1iux4kymxFqToTuMrifLblhc=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\magic1.dll" size="150016">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>M8xgfw8onNntULouCxSQVU42MySt+97ELh/6LX1OHIY=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\regex2.dll" size="79360">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>OnG/kOi937gTtE+cvOz0MTEaeXnB3ryXZ2ez5eWQMa8=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\zlib1.dll" size="72192">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>8YQ3epO91YNQaheTWs8bUFXz9bI3AbjXji45ETofUQw=</dsig:DigestValue>
</hash>
</file>
<file name="Changelog.txt" size="12896">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>frOFu95dIii29/YrYlKZSV+N3k/KhYm4ArpGB878A90=</dsig:DigestValue>
</hash>
</file>
<file name="Notepad Ultra.exe.config" size="9205">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>u68FWWKOngOy7tQW8x4E59be26JqgShNsxj8wd3a1uQ=</dsig:DigestValue>
</hash>
</file>
<file name="npu alpha logo.ico" size="53561">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>VHKKCRRFg5x8eyHBK8vRer3EXdW6nv1xgGCx/IdZL/g=</dsig:DigestValue>
</hash>
</file>
<file name="npu beta logo.ico" size="51478">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>eD7xcSQ5NTYOHQz2hshvPZuP/TWjPKW/EwTBvx/rJyU=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of the Windows versions that this application has been tested on and is
is designed to work with. Uncomment the appropriate elements and Windows will
automatically selected the most compatible environment. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
</asmv1:assembly>

BIN
bin/Debug/Notepad Ultra.pdb Normal file

Binary file not shown.

View File

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xrml="urn:mpeg:mpeg21:2003:01-REL-R-NS" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<assemblyIdentity name="Notepad Ultra.application" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" xmlns="urn:schemas-microsoft-com:asm.v1" />
<description asmv2:publisher="Hewlett-Packard" asmv2:product="Notepad Ultra" xmlns="urn:schemas-microsoft-com:asm.v1" />
<deployment install="true" mapFileExtensions="true" />
<compatibleFrameworks xmlns="urn:schemas-microsoft-com:clickonce.v2">
<framework targetVersion="4.5.2" profile="Full" supportedRuntime="4.0.30319" />
</compatibleFrameworks>
<dependency>
<dependentAssembly dependencyType="install" codebase="Notepad Ultra.exe.manifest" size="8762">
<assemblyIdentity name="Notepad Ultra.exe" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>OY27wJLJ8YmHQHi3EH5f6faT5TNDm+dZQzEvZiTjE8o=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
</asmv1:assembly>

Binary file not shown.

View File

@ -0,0 +1,213 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="Notepad_Ultra.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
</startup>
<userSettings>
<Notepad_Ultra.My.MySettings>
<setting name="Font" serializeAs="String">
<value>Lucida Console, 12pt</value>
</setting>
<setting name="WordWrap" serializeAs="String">
<value>True</value>
</setting>
<setting name="WorkingDirectory" serializeAs="String">
<value>///FIRST RUN///</value>
</setting>
<setting name="ShowSidebar" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultEncoding" serializeAs="String">
<value>0</value>
</setting>
<setting name="GreenNotifications" serializeAs="String">
<value>True</value>
</setting>
<setting name="MoveTransparency" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoSteps" serializeAs="String">
<value>50</value>
</setting>
<setting name="UndoMaxMemory" serializeAs="String">
<value>256</value>
</setting>
<setting name="StandardTextBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardTextFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteTextFG" serializeAs="String">
<value>224, 224, 224</value>
</setting>
<setting name="StandardNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="StandardNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="StandardNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="StandardNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="StandardNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryTextBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="TertiaryTextFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="TertiaryStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="NiteStatFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="NiteStatBG" serializeAs="String">
<value>Control</value>
</setting>
<setting name="SupportedExtensions" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string>txt</string>
<string>cfg</string>
<string>ini</string>
<string>log</string>
</ArrayOfString>
</value>
</setting>
<setting name="StandardSidebarFG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="StandardSidebarBG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteSidebarBG" serializeAs="String">
<value>Black</value>
</setting>
<setting name="TertiarySidebarFG" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiarySidebarBG" serializeAs="String">
<value>RoyalBlue</value>
</setting>
<setting name="NiteNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="NiteNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="NiteNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="NiteNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="NiteNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyColourCritical" serializeAs="String">
<value>Red</value>
</setting>
<setting name="TertiaryNotifyColourWarning" serializeAs="String">
<value>Orange</value>
</setting>
<setting name="TertiaryNotifyColourInfo" serializeAs="String">
<value>Green</value>
</setting>
<setting name="TertiaryNotifyTextColourCritical" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourWarning" serializeAs="String">
<value>White</value>
</setting>
<setting name="TertiaryNotifyTextColourInfo" serializeAs="String">
<value>White</value>
</setting>
<setting name="CurrentTheme" serializeAs="String">
<value>0</value>
</setting>
<setting name="StatBarSize" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarChars" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarDate" serializeAs="String">
<value>False</value>
</setting>
<setting name="StatBarDir" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarFontSize" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarStatus" serializeAs="String">
<value>True</value>
</setting>
<setting name="StatBarMode" serializeAs="String">
<value>True</value>
</setting>
<setting name="UseRecycleBin" serializeAs="String">
<value>True</value>
</setting>
<setting name="PresetDirectories" serializeAs="Xml">
<value>
<ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<string />
</ArrayOfString>
</value>
</setting>
<setting name="UndoUnlimitedSteps" serializeAs="String">
<value>True</value>
</setting>
<setting name="UndoMemoryLimit" serializeAs="String">
<value>True</value>
</setting>
<setting name="DefaultFileAction" serializeAs="String">
<value>0</value>
</setting>
</Notepad_Ultra.My.MySettings>
</userSettings>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<!-- BEGIN: Added by PostSharp -->
<dependentAssembly xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity name="PostSharp" publicKeyToken="b13fd38b8f9c99d7" culture="neutral" />
<bindingRedirect oldVersion="3.0.0.0-4.3.25.0" newVersion="4.3.25.0" />
</dependentAssembly>
<!-- END: Added by PostSharp -->
</assemblyBinding>
</runtime>
</configuration>

View File

@ -0,0 +1,170 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns="urn:schemas-microsoft-com:asm.v2" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:co.v1="urn:schemas-microsoft-com:clickonce.v1" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns:co.v2="urn:schemas-microsoft-com:clickonce.v2">
<asmv1:assemblyIdentity name="Notepad Ultra.exe" version="0.11.0.1" publicKeyToken="0000000000000000" language="neutral" processorArchitecture="msil" type="win32" />
<description asmv2:iconFile="npu beta logo.ico" xmlns="urn:schemas-microsoft-com:asm.v1" />
<application />
<entryPoint>
<assemblyIdentity name="Notepad Ultra" version="0.4.6474.27171" language="neutral" processorArchitecture="msil" />
<commandLine file="Notepad Ultra.exe" parameters="" />
</entryPoint>
<trustInfo>
<security>
<applicationRequestMinimum>
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
<defaultAssemblyRequest permissionSetReference="Custom" />
</applicationRequestMinimum>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel element will disable file and registry virtualization.
Remove this element if your application requires this virtualization for backwards
compatibility.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<dependency>
<dependentOS>
<osVersionInfo>
<os majorVersion="5" minorVersion="1" buildNumber="2600" servicePackMajor="0" />
</osVersionInfo>
</dependentOS>
</dependency>
<dependency>
<dependentAssembly dependencyType="preRequisite" allowDelayedBinding="true">
<assemblyIdentity name="Microsoft.Windows.CommonLanguageRuntime" version="4.0.30319.0" />
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="Notepad Ultra.exe" size="382352">
<assemblyIdentity name="Notepad Ultra" version="0.4.6474.27171" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>ZXgYf93cK2fBNTQEaSbhwAjLrxYL363iEvlDJSqgskQ=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="PostSharp.dll" size="227408">
<assemblyIdentity name="PostSharp" version="4.3.25.0" publicKeyToken="B13FD38B8F9C99D7" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>LctraFQOGS+3I9OAK/JA7D/no1zC+UaPBSMYItK3Rxs=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<dependency>
<dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="RichTextBoxPrintCtrl.dll" size="10752">
<assemblyIdentity name="RichTextBoxPrintCtrl" version="1.0.0.0" language="neutral" processorArchitecture="msil" />
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>cpuSNzboLrm9Lt6PKcc6RhQRUwkHopYND2IPAGwJ6WY=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>
<file name="bin\Debug\dependencies\file\bin\file.exe" size="45056">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>4HosnFGZSItjK+oH24L1iux4kymxFqToTuMrifLblhc=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\magic1.dll" size="150016">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>M8xgfw8onNntULouCxSQVU42MySt+97ELh/6LX1OHIY=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\regex2.dll" size="79360">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>OnG/kOi937gTtE+cvOz0MTEaeXnB3ryXZ2ez5eWQMa8=</dsig:DigestValue>
</hash>
</file>
<file name="bin\Debug\dependencies\file\bin\zlib1.dll" size="72192">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>8YQ3epO91YNQaheTWs8bUFXz9bI3AbjXji45ETofUQw=</dsig:DigestValue>
</hash>
</file>
<file name="Changelog.txt" size="12896">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>frOFu95dIii29/YrYlKZSV+N3k/KhYm4ArpGB878A90=</dsig:DigestValue>
</hash>
</file>
<file name="Notepad Ultra.exe.config" size="9205">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>u68FWWKOngOy7tQW8x4E59be26JqgShNsxj8wd3a1uQ=</dsig:DigestValue>
</hash>
</file>
<file name="npu alpha logo.ico" size="53561">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>VHKKCRRFg5x8eyHBK8vRer3EXdW6nv1xgGCx/IdZL/g=</dsig:DigestValue>
</hash>
</file>
<file name="npu beta logo.ico" size="51478">
<hash>
<dsig:Transforms>
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>eD7xcSQ5NTYOHQz2hshvPZuP/TWjPKW/EwTBvx/rJyU=</dsig:DigestValue>
</hash>
</file>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of the Windows versions that this application has been tested on and is
is designed to work with. Uncomment the appropriate elements and Windows will
automatically selected the most compatible environment. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
</asmv1:assembly>

View File

@ -0,0 +1,56 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Notepad Ultra
</name>
</assembly>
<members>
<member name="T:Notepad_Ultra.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.imageres_5348_02">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.npu_beta_logo_24x">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.npu_icon_128">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.npu_icon_256">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.shell32_134_02">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Notepad_Ultra.My.Resources.Resources.shell32_148_02">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>

BIN
bin/Debug/PostSharp.dll Normal file

Binary file not shown.

11741
bin/Debug/PostSharp.xml Normal file

File diff suppressed because it is too large Load Diff

Binary file not shown.

Binary file not shown.

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More