Skip to content

Commit

Permalink
Replace previous debug thing with Show Version option
Browse files Browse the repository at this point in the history
  • Loading branch information
@dotcomboom
dotcomboom committed Nov 29, 2020
1 parent 65ebd66 commit 9eecca5
Show file tree
Hide file tree
Showing 9 changed files with 587 additions and 453 deletions.
2 changes: 1 addition & 1 deletion AutoSite Core/My Project/AssemblyInfo.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ Imports System.Runtime.InteropServices
' Review the values of the assembly attributes

<Assembly: AssemblyTitle("AutoSite Core")>
<Assembly: AssemblyDescription("RC4")>
<Assembly: AssemblyDescription("RC5")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("AutoSite Core")>
<Assembly: AssemblyCopyright("Copyright © dotcomboom 2020")>
Expand Down
144 changes: 90 additions & 54 deletions AutoSite/About.resx
View file
Original file line number Diff line number Diff line change
Expand Up @@ -377,6 +377,54 @@ Copyright (C) Pavel Torgashov, 2011-2016. </value>
<data name="Tabs.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="&gt;&gt;License.Name" xml:space="preserve">
<value>License</value>
</data>
<data name="&gt;&gt;License.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;License.Parent" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;License.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Changelog.Name" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;Changelog.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Changelog.Parent" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;Changelog.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Tabs.Location" type="System.Drawing.Point, System.Drawing">
<value>120, 10</value>
</data>
<data name="Tabs.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Tabs.Size" type="System.Drawing.Size, System.Drawing">
<value>357, 310</value>
</data>
<data name="Tabs.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="&gt;&gt;Tabs.Name" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;Tabs.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Tabs.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Tabs.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="License.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 24</value>
</data>
Expand Down Expand Up @@ -407,6 +455,48 @@ Copyright (C) Pavel Torgashov, 2011-2016. </value>
<data name="&gt;&gt;License.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;ChangelogBox.Name" xml:space="preserve">
<value>ChangelogBox</value>
</data>
<data name="&gt;&gt;ChangelogBox.Type" xml:space="preserve">
<value>System.Windows.Forms.RichTextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ChangelogBox.Parent" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;ChangelogBox.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Changelog.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 24</value>
</data>
<data name="Changelog.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Changelog.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Changelog.Size" type="System.Drawing.Size, System.Drawing">
<value>349, 282</value>
</data>
<data name="Changelog.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Changelog.Text" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;Changelog.Name" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;Changelog.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Changelog.Parent" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;Changelog.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="ChangelogBox.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
Expand Down Expand Up @@ -604,60 +694,6 @@ Copyright (C) Pavel Torgashov, 2011-2016. </value>
<data name="&gt;&gt;ChangelogBox.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Changelog.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 24</value>
</data>
<data name="Changelog.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Changelog.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Changelog.Size" type="System.Drawing.Size, System.Drawing">
<value>349, 282</value>
</data>
<data name="Changelog.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Changelog.Text" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;Changelog.Name" xml:space="preserve">
<value>Changelog</value>
</data>
<data name="&gt;&gt;Changelog.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Changelog.Parent" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;Changelog.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Tabs.Location" type="System.Drawing.Point, System.Drawing">
<value>120, 10</value>
</data>
<data name="Tabs.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 5, 5, 5</value>
</data>
<data name="Tabs.Size" type="System.Drawing.Size, System.Drawing">
<value>357, 310</value>
</data>
<data name="Tabs.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="&gt;&gt;Tabs.Name" xml:space="preserve">
<value>Tabs</value>
</data>
<data name="&gt;&gt;Tabs.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Tabs.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Tabs.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Sysinfo.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
Expand Down
12 changes: 0 additions & 12 deletions AutoSite/About.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,16 +61,4 @@ Public Class About
Main.ColorScheme.Visible = True
Sysinfo.Show()
End Sub

Private Sub Version_DoubleClick(sender As System.Object, e As MouseEventArgs) Handles Version.MouseDoubleClick
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim oldwtitle As String = Main.wTitle
Main.wTitle = "AutoSite"
Dim v = InputBox("Enter a version number to display, or leave blank")
If v.Length > 0 Then
Main.wTitle &= " " & v
End If
Main.Text = Main.Text.Replace(oldwtitle, Main.wTitle)
End If
End Sub
End Class
47 changes: 27 additions & 20 deletions AutoSite/Main.Designer.vb
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading

0 comments on commit 9eecca5

Please sign in to comment.