mirror of
https://github.com/TheUltimateHacker/ShiftOS.git
synced 2025-01-22 16:12:14 +00:00
ShiftOS
ShiftOS is a game about evolving an experimental operating system called "ShiftOS" from a completely black and white text based command line based OS to a fully graphical operating system filled with advanced features and beautiful colours. The level of customization will exceed the levels of real world operating systems
This commit is contained in:
ShiftOS
parent
feafdde01c
commit
4caacce50c
390 changed files with 69533 additions and 0 deletions
6
App.config
Normal file
6
App.config
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
</startup>
|
||||
</configuration>
|
||||
1
ApplicationEvents.vb
Normal file
1
ApplicationEvents.vb
Normal file
|
|
@ -0,0 +1 @@
|
|||
|
||||
3700
ArtPad.Designer.vb
generated
Normal file
3700
ArtPad.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load diff
142
ArtPad.resx
Normal file
142
ArtPad.resx
Normal file
|
|
@ -0,0 +1,142 @@
|
|||
<?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="Label12.Text" xml:space="preserve">
|
||||
<value>This tool does not contain any alterable settings. Simply click any pixel on the image above to have it and all the pixels around it that are the same colour instantly converted to the colour you have selected.</value>
|
||||
</data>
|
||||
<data name="Label6.Text" xml:space="preserve">
|
||||
<value>Please select a tool from the tool panel at the left side of the canvas.
|
||||
Be sure to use the magnification tool to zoom in if your canvas is small otherwise you may experience difficulty drawing accuratly on the canvas.</value>
|
||||
</data>
|
||||
<metadata name="tmrcodepointcooldown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>21, 15</value>
|
||||
</metadata>
|
||||
<metadata name="tmrshowearnedcodepoints.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>201, 15</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>765, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>849, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>962, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
437
Audio Player.Designer.vb
generated
Normal file
437
Audio Player.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,437 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Audio_Player
|
||||
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(Audio_Player))
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.lblintro = New System.Windows.Forms.Label()
|
||||
Me.lbmusiclist = New System.Windows.Forms.ListBox()
|
||||
Me.pnlcontrols = New System.Windows.Forms.Panel()
|
||||
Me.picsongtrack = New System.Windows.Forms.PictureBox()
|
||||
Me.btnplay = New System.Windows.Forms.Button()
|
||||
Me.lbltotallength = New System.Windows.Forms.Label()
|
||||
Me.btnload = New System.Windows.Forms.Button()
|
||||
Me.lblcurrenttime = New System.Windows.Forms.Label()
|
||||
Me.btnstop = New System.Windows.Forms.Button()
|
||||
Me.btnprevious = New System.Windows.Forms.Button()
|
||||
Me.btnnext = New System.Windows.Forms.Button()
|
||||
Me.AxWindowsMediaPlayer1 = New AxWMPLib.AxWindowsMediaPlayer()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.tmrnextsonggap = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.tmrsongtrack = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.tmrnextcooldown = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnlcontrols.SuspendLayout()
|
||||
CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.BackColor = System.Drawing.Color.White
|
||||
Me.pgcontents.Controls.Add(Me.lblintro)
|
||||
Me.pgcontents.Controls.Add(Me.lbmusiclist)
|
||||
Me.pgcontents.Controls.Add(Me.pnlcontrols)
|
||||
Me.pgcontents.Controls.Add(Me.AxWindowsMediaPlayer1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(467, 234)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'lblintro
|
||||
'
|
||||
Me.lblintro.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblintro.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblintro.Location = New System.Drawing.Point(27, 25)
|
||||
Me.lblintro.Name = "lblintro"
|
||||
Me.lblintro.Size = New System.Drawing.Size(414, 160)
|
||||
Me.lblintro.TabIndex = 11
|
||||
Me.lblintro.Text = "Your Playlist is Currently Empty" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click the folder icon in the bottom right corne" & _
|
||||
"r to add some songs"
|
||||
Me.lblintro.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lbmusiclist
|
||||
'
|
||||
Me.lbmusiclist.BackColor = System.Drawing.Color.White
|
||||
Me.lbmusiclist.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lbmusiclist.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbmusiclist.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.lbmusiclist.FormattingEnabled = True
|
||||
Me.lbmusiclist.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbmusiclist.Name = "lbmusiclist"
|
||||
Me.lbmusiclist.Size = New System.Drawing.Size(467, 208)
|
||||
Me.lbmusiclist.TabIndex = 1
|
||||
'
|
||||
'pnlcontrols
|
||||
'
|
||||
Me.pnlcontrols.BackColor = System.Drawing.Color.White
|
||||
Me.pnlcontrols.Controls.Add(Me.picsongtrack)
|
||||
Me.pnlcontrols.Controls.Add(Me.btnplay)
|
||||
Me.pnlcontrols.Controls.Add(Me.lbltotallength)
|
||||
Me.pnlcontrols.Controls.Add(Me.btnload)
|
||||
Me.pnlcontrols.Controls.Add(Me.lblcurrenttime)
|
||||
Me.pnlcontrols.Controls.Add(Me.btnstop)
|
||||
Me.pnlcontrols.Controls.Add(Me.btnprevious)
|
||||
Me.pnlcontrols.Controls.Add(Me.btnnext)
|
||||
Me.pnlcontrols.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnlcontrols.Location = New System.Drawing.Point(0, 208)
|
||||
Me.pnlcontrols.Name = "pnlcontrols"
|
||||
Me.pnlcontrols.Size = New System.Drawing.Size(467, 26)
|
||||
Me.pnlcontrols.TabIndex = 10
|
||||
'
|
||||
'picsongtrack
|
||||
'
|
||||
Me.picsongtrack.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.picsongtrack.Location = New System.Drawing.Point(113, 2)
|
||||
Me.picsongtrack.Name = "picsongtrack"
|
||||
Me.picsongtrack.Size = New System.Drawing.Size(304, 21)
|
||||
Me.picsongtrack.TabIndex = 9
|
||||
Me.picsongtrack.TabStop = False
|
||||
'
|
||||
'btnplay
|
||||
'
|
||||
Me.btnplay.BackgroundImage = Global.ShiftOS.My.Resources.Resources.playbutton
|
||||
Me.btnplay.FlatAppearance.BorderSize = 0
|
||||
Me.btnplay.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnplay.Location = New System.Drawing.Point(26, 2)
|
||||
Me.btnplay.Name = "btnplay"
|
||||
Me.btnplay.Size = New System.Drawing.Size(22, 22)
|
||||
Me.btnplay.TabIndex = 2
|
||||
Me.btnplay.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbltotallength
|
||||
'
|
||||
Me.lbltotallength.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lbltotallength.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbltotallength.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbltotallength.Location = New System.Drawing.Point(377, 1)
|
||||
Me.lbltotallength.Name = "lbltotallength"
|
||||
Me.lbltotallength.Size = New System.Drawing.Size(40, 24)
|
||||
Me.lbltotallength.TabIndex = 8
|
||||
Me.lbltotallength.Text = "0:00"
|
||||
Me.lbltotallength.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnload
|
||||
'
|
||||
Me.btnload.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnload.BackgroundImage = Global.ShiftOS.My.Resources.Resources.loadbutton
|
||||
Me.btnload.FlatAppearance.BorderSize = 0
|
||||
Me.btnload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnload.Location = New System.Drawing.Point(443, 2)
|
||||
Me.btnload.Name = "btnload"
|
||||
Me.btnload.Size = New System.Drawing.Size(22, 22)
|
||||
Me.btnload.TabIndex = 3
|
||||
Me.btnload.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblcurrenttime
|
||||
'
|
||||
Me.lblcurrenttime.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblcurrenttime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblcurrenttime.Location = New System.Drawing.Point(74, 1)
|
||||
Me.lblcurrenttime.Name = "lblcurrenttime"
|
||||
Me.lblcurrenttime.Size = New System.Drawing.Size(40, 24)
|
||||
Me.lblcurrenttime.TabIndex = 7
|
||||
Me.lblcurrenttime.Text = "0:00"
|
||||
Me.lblcurrenttime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnstop
|
||||
'
|
||||
Me.btnstop.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnstop.BackgroundImage = Global.ShiftOS.My.Resources.Resources.stopbutton
|
||||
Me.btnstop.FlatAppearance.BorderSize = 0
|
||||
Me.btnstop.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstop.Location = New System.Drawing.Point(419, 2)
|
||||
Me.btnstop.Name = "btnstop"
|
||||
Me.btnstop.Size = New System.Drawing.Size(22, 22)
|
||||
Me.btnstop.TabIndex = 4
|
||||
Me.btnstop.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnprevious
|
||||
'
|
||||
Me.btnprevious.BackgroundImage = Global.ShiftOS.My.Resources.Resources.previousbutton
|
||||
Me.btnprevious.FlatAppearance.BorderSize = 0
|
||||
Me.btnprevious.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnprevious.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnprevious.Name = "btnprevious"
|
||||
Me.btnprevious.Size = New System.Drawing.Size(22, 22)
|
||||
Me.btnprevious.TabIndex = 6
|
||||
Me.btnprevious.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnnext
|
||||
'
|
||||
Me.btnnext.BackgroundImage = Global.ShiftOS.My.Resources.Resources.nextbutton
|
||||
Me.btnnext.FlatAppearance.BorderSize = 0
|
||||
Me.btnnext.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnnext.Location = New System.Drawing.Point(50, 2)
|
||||
Me.btnnext.Name = "btnnext"
|
||||
Me.btnnext.Size = New System.Drawing.Size(22, 22)
|
||||
Me.btnnext.TabIndex = 5
|
||||
Me.btnnext.UseVisualStyleBackColor = True
|
||||
'
|
||||
'AxWindowsMediaPlayer1
|
||||
'
|
||||
Me.AxWindowsMediaPlayer1.Enabled = True
|
||||
Me.AxWindowsMediaPlayer1.Location = New System.Drawing.Point(300, 55)
|
||||
Me.AxWindowsMediaPlayer1.Name = "AxWindowsMediaPlayer1"
|
||||
Me.AxWindowsMediaPlayer1.OcxState = CType(resources.GetObject("AxWindowsMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State)
|
||||
Me.AxWindowsMediaPlayer1.Size = New System.Drawing.Size(31, 29)
|
||||
Me.AxWindowsMediaPlayer1.TabIndex = 0
|
||||
Me.AxWindowsMediaPlayer1.Visible = False
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 264)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(467, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(471, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconAudioPlayer
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(129, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Audio Player"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(469, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 234)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(469, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 236)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 236)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 234)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'tmrnextsonggap
|
||||
'
|
||||
'
|
||||
'tmrsongtrack
|
||||
'
|
||||
Me.tmrsongtrack.Enabled = True
|
||||
Me.tmrsongtrack.Interval = 200
|
||||
'
|
||||
'tmrnextcooldown
|
||||
'
|
||||
Me.tmrnextcooldown.Interval = 1000
|
||||
'
|
||||
'Audio_Player
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(471, 266)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MinimumSize = New System.Drawing.Size(151, 125)
|
||||
Me.Name = "Audio_Player"
|
||||
Me.Text = "Audio_Player"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnlcontrols.ResumeLayout(False)
|
||||
CType(Me.picsongtrack, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents btnplay As System.Windows.Forms.Button
|
||||
Friend WithEvents lbmusiclist As System.Windows.Forms.ListBox
|
||||
Friend WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer
|
||||
Friend WithEvents btnstop As System.Windows.Forms.Button
|
||||
Friend WithEvents btnload As System.Windows.Forms.Button
|
||||
Friend WithEvents tmrnextsonggap As System.Windows.Forms.Timer
|
||||
Friend WithEvents btnnext As System.Windows.Forms.Button
|
||||
Friend WithEvents btnprevious As System.Windows.Forms.Button
|
||||
Friend WithEvents lbltotallength As System.Windows.Forms.Label
|
||||
Friend WithEvents lblcurrenttime As System.Windows.Forms.Label
|
||||
Friend WithEvents tmrsongtrack As System.Windows.Forms.Timer
|
||||
Friend WithEvents picsongtrack As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents tmrnextcooldown As System.Windows.Forms.Timer
|
||||
Friend WithEvents pnlcontrols As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblintro As System.Windows.Forms.Label
|
||||
End Class
|
||||
149
Audio Player.resx
Normal file
149
Audio Player.resx
Normal file
|
|
@ -0,0 +1,149 @@
|
|||
<?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="AxWindowsMediaPlayer1.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAtwAAAAIB
|
||||
AAAAAQAAAAAAAAAAAAAAAKIAAAAAAwAACAAAAAAABQAAAAAAAADwPwMAAAAAAAUAAAAAAAAAAAAIAAIA
|
||||
AAAAAAMAAQAAAAsA//8DAAAAAAALAP//CAACAAAAAAADADIAAAALAAAACAAKAAAAZgB1AGwAbAAAAAsA
|
||||
AAALAAAACwD//wsA//8LAAAACAACAAAAAAAIAAIAAAAAAAgAAgAAAAAACAACAAAAAAALAAAAzCEAAA4O
|
||||
AAAL
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>141, 17</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>235, 17</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>348, 17</value>
|
||||
</metadata>
|
||||
<metadata name="tmrnextsonggap.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>432, 17</value>
|
||||
</metadata>
|
||||
<metadata name="tmrsongtrack.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="tmrnextcooldown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>574, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
543
Audio Player.vb
Normal file
543
Audio Player.vb
Normal file
|
|
@ -0,0 +1,543 @@
|
|||
Public Class Audio_Player
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 471
|
||||
Public minimumsizeheight As Integer = 266
|
||||
|
||||
Public clickedstop = False
|
||||
Public cancelindex = False
|
||||
Public trackbarcurrentwidth As Single
|
||||
Public trackcurrent As Single
|
||||
Public tracktotal As Single
|
||||
Public cooldown As Boolean = False
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonaudioplayer.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonaudioplayer, ShiftOSDesktop.tbaudioplayericon, ShiftOSDesktop.tbaudioplayertext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(351, 225) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.audioplayername
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.audioplayericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub btnplay_Click(sender As Object, e As EventArgs) Handles btnplay.Click
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If lbmusiclist.SelectedItems.Count = 0 Then
|
||||
lbmusiclist.SelectedIndex = 0
|
||||
End If
|
||||
AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnload_Click(sender As Object, e As EventArgs) Handles btnload.Click
|
||||
lblintro.Hide()
|
||||
File_Opener.Show()
|
||||
File_Opener.openingprogram = "audioplayer"
|
||||
File_Opener.openextention = ".mp3"
|
||||
File_Opener.lbextention.Text = File_Opener.openextention
|
||||
File_Opener.showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
clickedstop = True
|
||||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||||
lblcurrenttime.Text = "00:00"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If lbmusiclist.SelectedIndex > -1 Then
|
||||
If clickedstop = True Then
|
||||
clickedstop = False
|
||||
Else
|
||||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
|
||||
If lbmusiclist.SelectedIndex = lbmusiclist.Items.Count - 1 Then
|
||||
lbmusiclist.SelectedIndex = 0
|
||||
tmrnextsonggap.Start()
|
||||
Else
|
||||
If lbmusiclist.SelectedIndex < lbmusiclist.Items.Count - 1 Then
|
||||
lbmusiclist.SelectedIndex = lbmusiclist.SelectedIndex + 1
|
||||
tmrnextsonggap.Start()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tmrnextsonggap_Tick(sender As Object, e As EventArgs) Handles tmrnextsonggap.Tick
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem
|
||||
tmrnextsonggap.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnnext_Click(sender As Object, e As EventArgs) Handles btnnext.Click
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If cooldown = False Then
|
||||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||||
cooldown = True
|
||||
tmrnextcooldown.Start()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnprevious_Click(sender As Object, e As EventArgs) Handles btnprevious.Click
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If cooldown = False Then
|
||||
cancelindex = True
|
||||
If lbmusiclist.SelectedIndex = 0 Then Else lbmusiclist.SelectedIndex = lbmusiclist.SelectedIndex - 2
|
||||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||||
cooldown = True
|
||||
tmrnextcooldown.Start()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lbmusiclist_DrawItem(sender As Object, e As DrawItemEventArgs) Handles lbmusiclist.DrawItem '
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
e.DrawBackground()
|
||||
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
|
||||
e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
|
||||
End If
|
||||
|
||||
Using b As New SolidBrush(e.ForeColor)
|
||||
e.Graphics.DrawString(lbmusiclist.GetItemText(lbmusiclist.Items(e.Index)), e.Font, b, e.Bounds)
|
||||
End Using
|
||||
e.DrawFocusRectangle()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lbmusiclist_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbmusiclist.SelectedIndexChanged
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If cancelindex = True Then Else AxWindowsMediaPlayer1.URL = lbmusiclist.SelectedItem
|
||||
cancelindex = False
|
||||
lbmusiclist.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub tmrsongtrack_Tick(sender As Object, e As EventArgs) Handles tmrsongtrack.Tick
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
If lbmusiclist.SelectedIndex < 0 Then lbmusiclist.SelectedIndex = 0
|
||||
picsongtrack.Refresh()
|
||||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
|
||||
If lbmusiclist.SelectedIndex < 0 Then lbmusiclist.SelectedIndex = 0
|
||||
lbltotallength.Text = AxWindowsMediaPlayer1.currentMedia.durationString
|
||||
lblcurrenttime.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
|
||||
Dim TrackBrush = New SolidBrush(Color.FromArgb(255, Color.Black))
|
||||
trackcurrent = Math.Round(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition, 1)
|
||||
tracktotal = Math.Round(AxWindowsMediaPlayer1.currentMedia.duration, 1)
|
||||
If tracktotal = 0 Then Else trackbarcurrentwidth = (trackcurrent / tracktotal) * 100
|
||||
trackbarcurrentwidth = trackbarcurrentwidth * (picsongtrack.Width / 100)
|
||||
picsongtrack.CreateGraphics.FillRectangle(TrackBrush, 0, 0, trackbarcurrentwidth, picsongtrack.Height)
|
||||
TrackBrush.Dispose()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub nextcooldown_Tick(sender As Object, e As EventArgs) Handles tmrnextcooldown.Tick
|
||||
If lbmusiclist.Items.Count > 0 Then
|
||||
cooldown = False
|
||||
tmrnextcooldown.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub picsongtrack_MouseDown(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseDown
|
||||
Dim xposition As Integer
|
||||
xposition = e.X
|
||||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = (AxWindowsMediaPlayer1.currentMedia.duration / picsongtrack.Width) * xposition
|
||||
tmrsongtrack.Interval = 20
|
||||
End Sub
|
||||
|
||||
Private Sub picsongtrack_MouseMove(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseMove
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
Dim xposition As Integer
|
||||
xposition = e.X
|
||||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = (AxWindowsMediaPlayer1.currentMedia.duration / picsongtrack.Width) * xposition
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub picsongtrack_MouseUp(sender As Object, e As MouseEventArgs) Handles picsongtrack.MouseUp
|
||||
tmrsongtrack.Interval = 200
|
||||
End Sub
|
||||
End Class
|
||||
474
Bitnote Digger.Designer.vb
generated
Normal file
474
Bitnote Digger.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,474 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Bitnote_Digger
|
||||
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.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.btnsend = New System.Windows.Forms.Button()
|
||||
Me.txtsendaddress = New System.Windows.Forms.TextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.lbltotalbitcoinsmined = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.btnturbomode = New System.Windows.Forms.Button()
|
||||
Me.btnstop = New System.Windows.Forms.Button()
|
||||
Me.btnstart = New System.Windows.Forms.Button()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.tmrcalcbitnotesmined = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 251)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(556, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 221)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(558, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 223)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(148, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Bitnote Digger"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(558, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 221)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.BackColor = System.Drawing.Color.White
|
||||
Me.pgcontents.Controls.Add(Me.Label10)
|
||||
Me.pgcontents.Controls.Add(Me.btnsend)
|
||||
Me.pgcontents.Controls.Add(Me.txtsendaddress)
|
||||
Me.pgcontents.Controls.Add(Me.Label7)
|
||||
Me.pgcontents.Controls.Add(Me.lbltotalbitcoinsmined)
|
||||
Me.pgcontents.Controls.Add(Me.Panel1)
|
||||
Me.pgcontents.Controls.Add(Me.Label1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(556, 221)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.Location = New System.Drawing.Point(205, 182)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(261, 35)
|
||||
Me.Label10.TabIndex = 6
|
||||
Me.Label10.Text = "Insert your Bitnote wallet address above then click send to transfer your earning" & _
|
||||
"s"
|
||||
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnsend
|
||||
'
|
||||
Me.btnsend.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btnsend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnsend.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnsend.Location = New System.Drawing.Point(472, 181)
|
||||
Me.btnsend.Name = "btnsend"
|
||||
Me.btnsend.Size = New System.Drawing.Size(73, 36)
|
||||
Me.btnsend.TabIndex = 5
|
||||
Me.btnsend.Text = "Send"
|
||||
Me.btnsend.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtsendaddress
|
||||
'
|
||||
Me.txtsendaddress.BackColor = System.Drawing.Color.White
|
||||
Me.txtsendaddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtsendaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtsendaddress.Location = New System.Drawing.Point(205, 155)
|
||||
Me.txtsendaddress.Multiline = True
|
||||
Me.txtsendaddress.Name = "txtsendaddress"
|
||||
Me.txtsendaddress.Size = New System.Drawing.Size(340, 21)
|
||||
Me.txtsendaddress.TabIndex = 4
|
||||
Me.txtsendaddress.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(203, 128)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(350, 27)
|
||||
Me.Label7.TabIndex = 3
|
||||
Me.Label7.Text = "Send Bitnotes To:"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lbltotalbitcoinsmined
|
||||
'
|
||||
Me.lbltotalbitcoinsmined.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbltotalbitcoinsmined.Location = New System.Drawing.Point(206, 57)
|
||||
Me.lbltotalbitcoinsmined.Name = "lbltotalbitcoinsmined"
|
||||
Me.lbltotalbitcoinsmined.Size = New System.Drawing.Size(344, 51)
|
||||
Me.lbltotalbitcoinsmined.TabIndex = 2
|
||||
Me.lbltotalbitcoinsmined.Text = "0.00000"
|
||||
Me.lbltotalbitcoinsmined.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label6)
|
||||
Me.Panel1.Controls.Add(Me.Label8)
|
||||
Me.Panel1.Controls.Add(Me.Label9)
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.btnturbomode)
|
||||
Me.Panel1.Controls.Add(Me.btnstop)
|
||||
Me.Panel1.Controls.Add(Me.btnstart)
|
||||
Me.Panel1.Controls.Add(Me.PictureBox1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(199, 221)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(2, 88)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(157, 20)
|
||||
Me.Label6.TabIndex = 13
|
||||
Me.Label6.Text = "Turbo Mode Stats:"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(3, 126)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(162, 16)
|
||||
Me.Label8.TabIndex = 11
|
||||
Me.Label8.Text = "Codepoint Cost: 1CP / 10s"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(3, 109)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(183, 16)
|
||||
Me.Label9.TabIndex = 10
|
||||
Me.Label9.Text = "Turbo Speed: 0.00002 BTN/S"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(5, 5)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(115, 20)
|
||||
Me.Label5.TabIndex = 9
|
||||
Me.Label5.Text = "Digger Stats:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(6, 60)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(144, 16)
|
||||
Me.Label4.TabIndex = 8
|
||||
Me.Label4.Text = "Speed: 0.00001 BTN/S"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(6, 43)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(103, 16)
|
||||
Me.Label3.TabIndex = 7
|
||||
Me.Label3.Text = "Digger Grade: 1"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(6, 26)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(157, 16)
|
||||
Me.Label2.TabIndex = 6
|
||||
Me.Label2.Text = "Name: Surface Scratcher"
|
||||
'
|
||||
'btnturbomode
|
||||
'
|
||||
Me.btnturbomode.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnturbomode.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnturbomode.Location = New System.Drawing.Point(6, 188)
|
||||
Me.btnturbomode.Name = "btnturbomode"
|
||||
Me.btnturbomode.Size = New System.Drawing.Size(186, 29)
|
||||
Me.btnturbomode.TabIndex = 5
|
||||
Me.btnturbomode.Text = "Activate Turbo Mode"
|
||||
Me.btnturbomode.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnstop
|
||||
'
|
||||
Me.btnstop.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstop.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnstop.Location = New System.Drawing.Point(101, 156)
|
||||
Me.btnstop.Name = "btnstop"
|
||||
Me.btnstop.Size = New System.Drawing.Size(91, 29)
|
||||
Me.btnstop.TabIndex = 4
|
||||
Me.btnstop.Text = "Stop"
|
||||
Me.btnstop.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnstart
|
||||
'
|
||||
Me.btnstart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnstart.Location = New System.Drawing.Point(6, 156)
|
||||
Me.btnstart.Name = "btnstart"
|
||||
Me.btnstart.Size = New System.Drawing.Size(91, 29)
|
||||
Me.btnstart.TabIndex = 3
|
||||
Me.btnstart.Text = "Start"
|
||||
Me.btnstart.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.Black
|
||||
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(198, 0)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(1, 221)
|
||||
Me.PictureBox1.TabIndex = 2
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(205, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(345, 43)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Bitnotes Found"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 223)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(560, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'tmrcalcbitnotesmined
|
||||
'
|
||||
Me.tmrcalcbitnotesmined.Interval = 1000
|
||||
'
|
||||
'Bitnote_Digger
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(560, 253)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Bitnote_Digger"
|
||||
Me.Text = "Bitnote_Digger"
|
||||
Me.TopMost = True
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pgcontents.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents lbltotalbitcoinsmined As System.Windows.Forms.Label
|
||||
Friend WithEvents btnturbomode As System.Windows.Forms.Button
|
||||
Friend WithEvents btnstop As System.Windows.Forms.Button
|
||||
Friend WithEvents btnstart As System.Windows.Forms.Button
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnsend As System.Windows.Forms.Button
|
||||
Friend WithEvents txtsendaddress As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents tmrcalcbitnotesmined As System.Windows.Forms.Timer
|
||||
End Class
|
||||
123
Bitnote Digger.resx
Normal file
123
Bitnote Digger.resx
Normal 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="tmrcalcbitnotesmined.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
385
Bitnote Digger.vb
Normal file
385
Bitnote Digger.vb
Normal file
|
|
@ -0,0 +1,385 @@
|
|||
Public Class Bitnote_Digger
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0 'replace with minimum size
|
||||
Public minimumsizeheight As Integer = 0 'replace with minimum size
|
||||
|
||||
Public bitnotesmined As Decimal = 0
|
||||
Public miningspeed As Decimal = 0.00001
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonbitnotedigger.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotedigger, ShiftOSDesktop.tbbitnotediggericon, ShiftOSDesktop.tbbitnotediggertext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(552, 253) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.bitnotediggername 'Remember to change to name of program!!!!
|
||||
If tmrcalcbitnotesmined.Enabled = True Then lbtitletext.Text = lbtitletext.Text & " - Activated" Else lbtitletext.Text = lbtitletext.Text & " - Deactivated"
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.bitnotediggericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub tmrcalcbitnotesmined_Tick(sender As Object, e As EventArgs) Handles tmrcalcbitnotesmined.Tick
|
||||
bitnotesmined = bitnotesmined + miningspeed
|
||||
lbltotalbitcoinsmined.Text = FormatNumber(Math.Round(bitnotesmined, 5), 5)
|
||||
End Sub
|
||||
|
||||
Private Sub btnstart_Click(sender As Object, e As EventArgs) Handles btnstart.Click
|
||||
tmrcalcbitnotesmined.Start()
|
||||
lbtitletext.Text = ShiftOSDesktop.bitnotediggername & " - Activated"
|
||||
End Sub
|
||||
|
||||
Private Sub btnstop_Click(sender As Object, e As EventArgs) Handles btnstop.Click
|
||||
tmrcalcbitnotesmined.Stop()
|
||||
lbtitletext.Text = ShiftOSDesktop.bitnotediggername & " - Deactivated"
|
||||
End Sub
|
||||
|
||||
Private Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click
|
||||
If txtsendaddress.Text = ShiftOSDesktop.bitnoteaddress Then
|
||||
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + bitnotesmined
|
||||
Bitnote_Wallet.logtransaction(bitnotesmined, "Credit From", "Bitnote Digger - Surface Scratcher")
|
||||
End If
|
||||
bitnotesmined = 0
|
||||
lbltotalbitcoinsmined.Text = FormatNumber(Math.Round(bitnotesmined, 5), 5)
|
||||
If Bitnote_Wallet.Visible Then Bitnote_Wallet.setupbitnotestats()
|
||||
End Sub
|
||||
End Class
|
||||
570
Bitnote Wallet.Designer.vb
generated
Normal file
570
Bitnote Wallet.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,570 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Bitnote_Wallet
|
||||
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.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.pnltransactions = New System.Windows.Forms.Panel()
|
||||
Me.txthistory = New System.Windows.Forms.RichTextBox()
|
||||
Me.pnltotalbalance = New System.Windows.Forms.Panel()
|
||||
Me.lblbalancerounded = New System.Windows.Forms.Label()
|
||||
Me.lblprecisebalance = New System.Windows.Forms.Label()
|
||||
Me.pnlsend = New System.Windows.Forms.Panel()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtamounttopay = New System.Windows.Forms.TextBox()
|
||||
Me.btnsendmoney = New System.Windows.Forms.Button()
|
||||
Me.lblpostpayment = New System.Windows.Forms.Label()
|
||||
Me.lbltotalbalancesendscreen = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.txtsendtoaddress = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.pnlreceive = New System.Windows.Forms.Panel()
|
||||
Me.btncopyaddress = New System.Windows.Forms.Button()
|
||||
Me.lblmybitnoteaddress = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.pnlmenuholder = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btntotalbalance = New System.Windows.Forms.Button()
|
||||
Me.btnsend = New System.Windows.Forms.Button()
|
||||
Me.btnreceive = New System.Windows.Forms.Button()
|
||||
Me.btntransactions = New System.Windows.Forms.Button()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnltransactions.SuspendLayout()
|
||||
Me.pnltotalbalance.SuspendLayout()
|
||||
Me.pnlsend.SuspendLayout()
|
||||
Me.pnlreceive.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlmenuholder.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 202)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(421, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 172)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(423, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 174)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(147, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Bitnote Wallet"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(423, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 172)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.pnltotalbalance)
|
||||
Me.pgcontents.Controls.Add(Me.PictureBox1)
|
||||
Me.pgcontents.Controls.Add(Me.pnltransactions)
|
||||
Me.pgcontents.Controls.Add(Me.pnlsend)
|
||||
Me.pgcontents.Controls.Add(Me.pnlreceive)
|
||||
Me.pgcontents.Controls.Add(Me.pnlmenuholder)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(421, 172)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'pnltransactions
|
||||
'
|
||||
Me.pnltransactions.Controls.Add(Me.txthistory)
|
||||
Me.pnltransactions.Location = New System.Drawing.Point(297, 52)
|
||||
Me.pnltransactions.Name = "pnltransactions"
|
||||
Me.pnltransactions.Size = New System.Drawing.Size(63, 110)
|
||||
Me.pnltransactions.TabIndex = 7
|
||||
'
|
||||
'txthistory
|
||||
'
|
||||
Me.txthistory.BackColor = System.Drawing.Color.White
|
||||
Me.txthistory.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txthistory.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.txthistory.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txthistory.Location = New System.Drawing.Point(0, 0)
|
||||
Me.txthistory.Name = "txthistory"
|
||||
Me.txthistory.ReadOnly = True
|
||||
Me.txthistory.Size = New System.Drawing.Size(63, 110)
|
||||
Me.txthistory.TabIndex = 0
|
||||
Me.txthistory.Text = ""
|
||||
'
|
||||
'pnltotalbalance
|
||||
'
|
||||
Me.pnltotalbalance.Controls.Add(Me.lblbalancerounded)
|
||||
Me.pnltotalbalance.Controls.Add(Me.lblprecisebalance)
|
||||
Me.pnltotalbalance.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnltotalbalance.Location = New System.Drawing.Point(0, 34)
|
||||
Me.pnltotalbalance.Name = "pnltotalbalance"
|
||||
Me.pnltotalbalance.Size = New System.Drawing.Size(421, 138)
|
||||
Me.pnltotalbalance.TabIndex = 5
|
||||
'
|
||||
'lblbalancerounded
|
||||
'
|
||||
Me.lblbalancerounded.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblbalancerounded.Location = New System.Drawing.Point(6, 30)
|
||||
Me.lblbalancerounded.Name = "lblbalancerounded"
|
||||
Me.lblbalancerounded.Size = New System.Drawing.Size(409, 48)
|
||||
Me.lblbalancerounded.TabIndex = 3
|
||||
Me.lblbalancerounded.Text = "Balance: 1.54 BTN"
|
||||
Me.lblbalancerounded.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblprecisebalance
|
||||
'
|
||||
Me.lblprecisebalance.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblprecisebalance.Location = New System.Drawing.Point(6, 74)
|
||||
Me.lblprecisebalance.Name = "lblprecisebalance"
|
||||
Me.lblprecisebalance.Size = New System.Drawing.Size(409, 29)
|
||||
Me.lblprecisebalance.TabIndex = 4
|
||||
Me.lblprecisebalance.Text = "(Precise Balance: 1.54663 BTN)"
|
||||
Me.lblprecisebalance.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pnlsend
|
||||
'
|
||||
Me.pnlsend.Controls.Add(Me.Label8)
|
||||
Me.pnlsend.Controls.Add(Me.Label7)
|
||||
Me.pnlsend.Controls.Add(Me.txtamounttopay)
|
||||
Me.pnlsend.Controls.Add(Me.btnsendmoney)
|
||||
Me.pnlsend.Controls.Add(Me.lblpostpayment)
|
||||
Me.pnlsend.Controls.Add(Me.lbltotalbalancesendscreen)
|
||||
Me.pnlsend.Controls.Add(Me.Label4)
|
||||
Me.pnlsend.Controls.Add(Me.txtsendtoaddress)
|
||||
Me.pnlsend.Controls.Add(Me.Label3)
|
||||
Me.pnlsend.Location = New System.Drawing.Point(99, 52)
|
||||
Me.pnlsend.Name = "pnlsend"
|
||||
Me.pnlsend.Size = New System.Drawing.Size(72, 110)
|
||||
Me.pnlsend.TabIndex = 6
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.Location = New System.Drawing.Point(222, 91)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(112, 16)
|
||||
Me.Label8.TabIndex = 8
|
||||
Me.Label8.Text = "Payment Amount:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(297, 115)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(36, 16)
|
||||
Me.Label7.TabIndex = 7
|
||||
Me.Label7.Text = "BTN"
|
||||
'
|
||||
'txtamounttopay
|
||||
'
|
||||
Me.txtamounttopay.BackColor = System.Drawing.Color.White
|
||||
Me.txtamounttopay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtamounttopay.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtamounttopay.Location = New System.Drawing.Point(224, 113)
|
||||
Me.txtamounttopay.Multiline = True
|
||||
Me.txtamounttopay.Name = "txtamounttopay"
|
||||
Me.txtamounttopay.Size = New System.Drawing.Size(70, 21)
|
||||
Me.txtamounttopay.TabIndex = 6
|
||||
Me.txtamounttopay.Text = "0.00007"
|
||||
Me.txtamounttopay.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'btnsendmoney
|
||||
'
|
||||
Me.btnsendmoney.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnsendmoney.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnsendmoney.Location = New System.Drawing.Point(340, 91)
|
||||
Me.btnsendmoney.Name = "btnsendmoney"
|
||||
Me.btnsendmoney.Size = New System.Drawing.Size(75, 43)
|
||||
Me.btnsendmoney.TabIndex = 5
|
||||
Me.btnsendmoney.Text = "Send"
|
||||
Me.btnsendmoney.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblpostpayment
|
||||
'
|
||||
Me.lblpostpayment.AutoSize = True
|
||||
Me.lblpostpayment.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblpostpayment.Location = New System.Drawing.Point(5, 115)
|
||||
Me.lblpostpayment.Name = "lblpostpayment"
|
||||
Me.lblpostpayment.Size = New System.Drawing.Size(195, 16)
|
||||
Me.lblpostpayment.TabIndex = 4
|
||||
Me.lblpostpayment.Text = "Post Payment Balance: 0.00053"
|
||||
'
|
||||
'lbltotalbalancesendscreen
|
||||
'
|
||||
Me.lbltotalbalancesendscreen.AutoSize = True
|
||||
Me.lbltotalbalancesendscreen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbltotalbalancesendscreen.Location = New System.Drawing.Point(4, 93)
|
||||
Me.lbltotalbalancesendscreen.Name = "lbltotalbalancesendscreen"
|
||||
Me.lbltotalbalancesendscreen.Size = New System.Drawing.Size(188, 16)
|
||||
Me.lbltotalbalancesendscreen.TabIndex = 3
|
||||
Me.lbltotalbalancesendscreen.Text = "Current Total Balance: 0.00060"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(4, 6)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(415, 49)
|
||||
Me.Label4.TabIndex = 2
|
||||
Me.Label4.Text = "In order to spend your bitnotes you must find a service that allows you to pay wi" & _
|
||||
"th bitnotes. They will provide you with a Bitnote Address which you must copy ex" & _
|
||||
"actly into the pay to box below."
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txtsendtoaddress
|
||||
'
|
||||
Me.txtsendtoaddress.BackColor = System.Drawing.Color.White
|
||||
Me.txtsendtoaddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtsendtoaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtsendtoaddress.Location = New System.Drawing.Point(60, 63)
|
||||
Me.txtsendtoaddress.Multiline = True
|
||||
Me.txtsendtoaddress.Name = "txtsendtoaddress"
|
||||
Me.txtsendtoaddress.Size = New System.Drawing.Size(355, 22)
|
||||
Me.txtsendtoaddress.TabIndex = 1
|
||||
Me.txtsendtoaddress.Text = "1FfmbHfnpaZjKFvyi1okTjJJusN455paPH"
|
||||
Me.txtsendtoaddress.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(5, 66)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(58, 16)
|
||||
Me.Label3.TabIndex = 0
|
||||
Me.Label3.Text = "Pay To: "
|
||||
'
|
||||
'pnlreceive
|
||||
'
|
||||
Me.pnlreceive.Controls.Add(Me.btncopyaddress)
|
||||
Me.pnlreceive.Controls.Add(Me.lblmybitnoteaddress)
|
||||
Me.pnlreceive.Controls.Add(Me.Label9)
|
||||
Me.pnlreceive.Location = New System.Drawing.Point(194, 52)
|
||||
Me.pnlreceive.Name = "pnlreceive"
|
||||
Me.pnlreceive.Size = New System.Drawing.Size(72, 110)
|
||||
Me.pnlreceive.TabIndex = 7
|
||||
'
|
||||
'btncopyaddress
|
||||
'
|
||||
Me.btncopyaddress.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btncopyaddress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btncopyaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btncopyaddress.Location = New System.Drawing.Point(157, 98)
|
||||
Me.btncopyaddress.Name = "btncopyaddress"
|
||||
Me.btncopyaddress.Size = New System.Drawing.Size(98, 34)
|
||||
Me.btncopyaddress.TabIndex = 2
|
||||
Me.btncopyaddress.Text = "Copy"
|
||||
Me.btncopyaddress.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblmybitnoteaddress
|
||||
'
|
||||
Me.lblmybitnoteaddress.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblmybitnoteaddress.Location = New System.Drawing.Point(1, 59)
|
||||
Me.lblmybitnoteaddress.Name = "lblmybitnoteaddress"
|
||||
Me.lblmybitnoteaddress.Size = New System.Drawing.Size(419, 36)
|
||||
Me.lblmybitnoteaddress.TabIndex = 1
|
||||
Me.lblmybitnoteaddress.Text = "1LgZUWQNYWZ7Qhc1hScZieC3GWnPLzaqSd"
|
||||
Me.lblmybitnoteaddress.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(3, 7)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(415, 51)
|
||||
Me.Label9.TabIndex = 0
|
||||
Me.Label9.Text = "This is your bitnote address for receiving payments. When withdrawing bitnotes fr" & _
|
||||
"om online accounts or a bit digger be sure to give them them this address so you" & _
|
||||
" can receive your money."
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.Black
|
||||
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(0, 33)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(421, 1)
|
||||
Me.PictureBox1.TabIndex = 2
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'pnlmenuholder
|
||||
'
|
||||
Me.pnlmenuholder.Controls.Add(Me.btntotalbalance)
|
||||
Me.pnlmenuholder.Controls.Add(Me.btnsend)
|
||||
Me.pnlmenuholder.Controls.Add(Me.btnreceive)
|
||||
Me.pnlmenuholder.Controls.Add(Me.btntransactions)
|
||||
Me.pnlmenuholder.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlmenuholder.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlmenuholder.Name = "pnlmenuholder"
|
||||
Me.pnlmenuholder.Size = New System.Drawing.Size(421, 33)
|
||||
Me.pnlmenuholder.TabIndex = 1
|
||||
'
|
||||
'btntotalbalance
|
||||
'
|
||||
Me.btntotalbalance.BackgroundImage = Global.ShiftOS.My.Resources.Resources.TotalBalanceClicked
|
||||
Me.btntotalbalance.FlatAppearance.BorderSize = 0
|
||||
Me.btntotalbalance.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btntotalbalance.Location = New System.Drawing.Point(3, 3)
|
||||
Me.btntotalbalance.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
|
||||
Me.btntotalbalance.Name = "btntotalbalance"
|
||||
Me.btntotalbalance.Size = New System.Drawing.Size(103, 27)
|
||||
Me.btntotalbalance.TabIndex = 0
|
||||
Me.btntotalbalance.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnsend
|
||||
'
|
||||
Me.btnsend.BackgroundImage = Global.ShiftOS.My.Resources.Resources.SendUnclicked
|
||||
Me.btnsend.FlatAppearance.BorderSize = 0
|
||||
Me.btnsend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnsend.Location = New System.Drawing.Point(109, 3)
|
||||
Me.btnsend.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
|
||||
Me.btnsend.Name = "btnsend"
|
||||
Me.btnsend.Size = New System.Drawing.Size(101, 27)
|
||||
Me.btnsend.TabIndex = 1
|
||||
Me.btnsend.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnreceive
|
||||
'
|
||||
Me.btnreceive.BackgroundImage = Global.ShiftOS.My.Resources.Resources.ReceiveUnclicked
|
||||
Me.btnreceive.FlatAppearance.BorderSize = 0
|
||||
Me.btnreceive.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnreceive.Location = New System.Drawing.Point(213, 3)
|
||||
Me.btnreceive.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
|
||||
Me.btnreceive.Name = "btnreceive"
|
||||
Me.btnreceive.Size = New System.Drawing.Size(101, 27)
|
||||
Me.btnreceive.TabIndex = 2
|
||||
Me.btnreceive.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btntransactions
|
||||
'
|
||||
Me.btntransactions.BackgroundImage = Global.ShiftOS.My.Resources.Resources.transactionsUnclicked
|
||||
Me.btntransactions.FlatAppearance.BorderSize = 0
|
||||
Me.btntransactions.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btntransactions.Location = New System.Drawing.Point(317, 3)
|
||||
Me.btntransactions.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
|
||||
Me.btntransactions.Name = "btntransactions"
|
||||
Me.btntransactions.Size = New System.Drawing.Size(101, 27)
|
||||
Me.btntransactions.TabIndex = 3
|
||||
Me.btntransactions.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 174)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(425, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'Bitnote_Wallet
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(425, 204)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Bitnote_Wallet"
|
||||
Me.Text = "Bitnote_Wallet"
|
||||
Me.TopMost = True
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnltransactions.ResumeLayout(False)
|
||||
Me.pnltotalbalance.ResumeLayout(False)
|
||||
Me.pnlsend.ResumeLayout(False)
|
||||
Me.pnlsend.PerformLayout()
|
||||
Me.pnlreceive.ResumeLayout(False)
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlmenuholder.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlmenuholder As System.Windows.Forms.FlowLayoutPanel
|
||||
Friend WithEvents btntotalbalance As System.Windows.Forms.Button
|
||||
Friend WithEvents btnsend As System.Windows.Forms.Button
|
||||
Friend WithEvents btnreceive As System.Windows.Forms.Button
|
||||
Friend WithEvents btntransactions As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblprecisebalance As System.Windows.Forms.Label
|
||||
Friend WithEvents lblbalancerounded As System.Windows.Forms.Label
|
||||
Friend WithEvents pnltotalbalance As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnltransactions As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlreceive As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlsend As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtamounttopay As System.Windows.Forms.TextBox
|
||||
Friend WithEvents btnsendmoney As System.Windows.Forms.Button
|
||||
Friend WithEvents lblpostpayment As System.Windows.Forms.Label
|
||||
Friend WithEvents lbltotalbalancesendscreen As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtsendtoaddress As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents btncopyaddress As System.Windows.Forms.Button
|
||||
Friend WithEvents lblmybitnoteaddress As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents txthistory As System.Windows.Forms.RichTextBox
|
||||
End Class
|
||||
120
Bitnote Wallet.resx
Normal file
120
Bitnote Wallet.resx
Normal 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>
|
||||
458
Bitnote Wallet.vb
Normal file
458
Bitnote Wallet.vb
Normal file
|
|
@ -0,0 +1,458 @@
|
|||
Public Class Bitnote_Wallet
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0 'replace with minimum size
|
||||
Public minimumsizeheight As Integer = 0 'replace with minimum size
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
setupbitnotestats()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonbitnotewallet.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotewallet, ShiftOSDesktop.tbbitnotewalleticon, ShiftOSDesktop.tbbitnotewallettext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(422, 204) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.bitnotewalletname 'Remember to change to name of program!!!!
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.bitnotewalleticontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Public Sub setupbitnotestats()
|
||||
lblbalancerounded.Text = "Balance: " & Math.Truncate(ShiftOSDesktop.bitnotebalance * 100) / 100 & " BTN"
|
||||
lblprecisebalance.Text = "(Precise Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance, 5), 5) & " BTN)"
|
||||
lbltotalbalancesendscreen.Text = "Current Total Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance, 5), 5)
|
||||
lblpostpayment.Text = "Post Payment Balance: " & FormatNumber(Math.Round(ShiftOSDesktop.bitnotebalance - txtamounttopay.Text, 5), 5)
|
||||
lblmybitnoteaddress.Text = ShiftOSDesktop.bitnoteaddress
|
||||
|
||||
'shiftnet
|
||||
If Shiftnet.Visible = True Then
|
||||
Shiftnet.setupappscapeaccountinfo()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub hideallpanels()
|
||||
pnltotalbalance.Hide()
|
||||
pnlsend.Hide()
|
||||
pnlreceive.Hide()
|
||||
pnltransactions.Hide()
|
||||
btntotalbalance.BackgroundImage = My.Resources.TotalBalanceUnclicked
|
||||
btnsend.BackgroundImage = My.Resources.SendUnclicked
|
||||
btnreceive.BackgroundImage = My.Resources.ReceiveUnclicked
|
||||
btntransactions.BackgroundImage = My.Resources.transactionsUnclicked
|
||||
End Sub
|
||||
|
||||
Private Sub setupdisplay(ByVal display As Panel)
|
||||
hideallpanels()
|
||||
display.BringToFront()
|
||||
display.Dock = DockStyle.Fill
|
||||
display.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub btntotalbalance_Click(sender As Object, e As EventArgs) Handles btntotalbalance.Click
|
||||
setupdisplay(pnltotalbalance)
|
||||
btntotalbalance.BackgroundImage = My.Resources.TotalBalanceClicked
|
||||
End Sub
|
||||
|
||||
Private Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click
|
||||
setupdisplay(pnlsend)
|
||||
btnsend.BackgroundImage = My.Resources.SendClicked
|
||||
End Sub
|
||||
|
||||
Private Sub btnreceive_Click(sender As Object, e As EventArgs) Handles btnreceive.Click
|
||||
setupdisplay(pnlreceive)
|
||||
btnreceive.BackgroundImage = My.Resources.ReceiveClicked
|
||||
End Sub
|
||||
|
||||
Private Sub btntransactions_Click(sender As Object, e As EventArgs) Handles btntransactions.Click
|
||||
setupdisplay(pnltransactions)
|
||||
btntransactions.BackgroundImage = My.Resources.transactionsClicked
|
||||
End Sub
|
||||
|
||||
Private Sub txtamounttopay_TextChanged(sender As Object, e As EventArgs) Handles txtamounttopay.TextChanged
|
||||
Try
|
||||
If ShiftOSDesktop.bitnotebalance > txtamounttopay.Text - 0.00001 Then
|
||||
setupbitnotestats()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnsendmoney_Click(sender As Object, e As EventArgs) Handles btnsendmoney.Click
|
||||
Try
|
||||
If txtamounttopay.Text - 0.00001 < ShiftOSDesktop.bitnotebalance Then
|
||||
Select Case txtsendtoaddress.Text
|
||||
Case ShiftOSDesktop.bitnoteaddress
|
||||
logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text)
|
||||
logtransaction(txtamounttopay.Text, "Credit From", txtsendtoaddress.Text)
|
||||
Case ShiftOSDesktop.bitnoteaddressappscape
|
||||
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text
|
||||
ShiftOSDesktop.bitnotebalanceappscape = ShiftOSDesktop.bitnotebalanceappscape + txtamounttopay.Text
|
||||
logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text)
|
||||
Case Else
|
||||
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text
|
||||
logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text)
|
||||
End Select
|
||||
Else
|
||||
infobox.title = "Bitnote - Payment Error!"
|
||||
infobox.textinfo = "You have specified an invalid bitnote value or you lack sufficient funds." & Environment.NewLine & Environment.NewLine & "Your request to send money was unsuccessful"
|
||||
infobox.Show()
|
||||
End If
|
||||
setupbitnotestats()
|
||||
Catch ex As Exception
|
||||
infobox.title = "Bitnote - Payment Error!"
|
||||
infobox.textinfo = "You have specified an invalid bitnote value or you lack sufficient funds." & Environment.NewLine & Environment.NewLine & "Your request to send money was unsuccessful"
|
||||
infobox.Show()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btncopyaddress_Click(sender As Object, e As EventArgs) Handles btncopyaddress.Click
|
||||
My.Computer.Clipboard.Clear()
|
||||
My.Computer.Clipboard.SetText(ShiftOSDesktop.bitnoteaddress)
|
||||
End Sub
|
||||
|
||||
Public Sub logtransaction(ByVal value As Decimal, ByVal type As String, ByVal address As String)
|
||||
If type = "Debit To" Then txthistory.SelectionColor = Color.Gray Else txthistory.SelectionColor = Color.Black
|
||||
txthistory.AppendText("[" & My.Computer.Clock.LocalTime & "] " & value & " BTN " & type & ":" & Environment.NewLine & address & Environment.NewLine & Environment.NewLine)
|
||||
End Sub
|
||||
End Class
|
||||
495
Calculator.Designer.vb
generated
Normal file
495
Calculator.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,495 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Calculator
|
||||
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.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.btnclearall = New System.Windows.Forms.Button()
|
||||
Me.btn5 = New System.Windows.Forms.Button()
|
||||
Me.btndividedby = New System.Windows.Forms.Button()
|
||||
Me.lbldispla = New System.Windows.Forms.TextBox()
|
||||
Me.btntimes = New System.Windows.Forms.Button()
|
||||
Me.btn1 = New System.Windows.Forms.Button()
|
||||
Me.btnminus = New System.Windows.Forms.Button()
|
||||
Me.btn2 = New System.Windows.Forms.Button()
|
||||
Me.btnplus = New System.Windows.Forms.Button()
|
||||
Me.btn3 = New System.Windows.Forms.Button()
|
||||
Me.btnequals = New System.Windows.Forms.Button()
|
||||
Me.btn4 = New System.Windows.Forms.Button()
|
||||
Me.btn0 = New System.Windows.Forms.Button()
|
||||
Me.btn6 = New System.Windows.Forms.Button()
|
||||
Me.btn9 = New System.Windows.Forms.Button()
|
||||
Me.btn7 = New System.Windows.Forms.Button()
|
||||
Me.btn8 = New System.Windows.Forms.Button()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 276)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(257, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(166, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(194, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 246)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(259, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 248)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(222, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(122, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Calculator"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(259, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 246)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.btnclearall)
|
||||
Me.pgcontents.Controls.Add(Me.btn5)
|
||||
Me.pgcontents.Controls.Add(Me.btndividedby)
|
||||
Me.pgcontents.Controls.Add(Me.lbldispla)
|
||||
Me.pgcontents.Controls.Add(Me.btntimes)
|
||||
Me.pgcontents.Controls.Add(Me.btn1)
|
||||
Me.pgcontents.Controls.Add(Me.btnminus)
|
||||
Me.pgcontents.Controls.Add(Me.btn2)
|
||||
Me.pgcontents.Controls.Add(Me.btnplus)
|
||||
Me.pgcontents.Controls.Add(Me.btn3)
|
||||
Me.pgcontents.Controls.Add(Me.btnequals)
|
||||
Me.pgcontents.Controls.Add(Me.btn4)
|
||||
Me.pgcontents.Controls.Add(Me.btn0)
|
||||
Me.pgcontents.Controls.Add(Me.btn6)
|
||||
Me.pgcontents.Controls.Add(Me.btn9)
|
||||
Me.pgcontents.Controls.Add(Me.btn7)
|
||||
Me.pgcontents.Controls.Add(Me.btn8)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(257, 246)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'btnclearall
|
||||
'
|
||||
Me.btnclearall.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnclearall.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnclearall.Location = New System.Drawing.Point(72, 196)
|
||||
Me.btnclearall.Name = "btnclearall"
|
||||
Me.btnclearall.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btnclearall.TabIndex = 41
|
||||
Me.btnclearall.TabStop = False
|
||||
Me.btnclearall.Text = "C"
|
||||
Me.btnclearall.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn5
|
||||
'
|
||||
Me.btn5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn5.Location = New System.Drawing.Point(72, 102)
|
||||
Me.btn5.Name = "btn5"
|
||||
Me.btn5.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn5.TabIndex = 30
|
||||
Me.btn5.TabStop = False
|
||||
Me.btn5.Text = "5"
|
||||
Me.btn5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btndividedby
|
||||
'
|
||||
Me.btndividedby.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btndividedby.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btndividedby.Location = New System.Drawing.Point(196, 196)
|
||||
Me.btndividedby.Name = "btndividedby"
|
||||
Me.btndividedby.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btndividedby.TabIndex = 40
|
||||
Me.btndividedby.TabStop = False
|
||||
Me.btndividedby.Text = "/"
|
||||
Me.btndividedby.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbldispla
|
||||
'
|
||||
Me.lbldispla.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lbldispla.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbldispla.Location = New System.Drawing.Point(10, 10)
|
||||
Me.lbldispla.Name = "lbldispla"
|
||||
Me.lbldispla.ReadOnly = True
|
||||
Me.lbldispla.Size = New System.Drawing.Size(241, 38)
|
||||
Me.lbldispla.TabIndex = 25
|
||||
Me.lbldispla.TabStop = False
|
||||
Me.lbldispla.Text = "0"
|
||||
Me.lbldispla.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'btntimes
|
||||
'
|
||||
Me.btntimes.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btntimes.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btntimes.Location = New System.Drawing.Point(196, 149)
|
||||
Me.btntimes.Name = "btntimes"
|
||||
Me.btntimes.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btntimes.TabIndex = 39
|
||||
Me.btntimes.TabStop = False
|
||||
Me.btntimes.Text = "x"
|
||||
Me.btntimes.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn1
|
||||
'
|
||||
Me.btn1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn1.Location = New System.Drawing.Point(10, 55)
|
||||
Me.btn1.Name = "btn1"
|
||||
Me.btn1.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn1.TabIndex = 26
|
||||
Me.btn1.TabStop = False
|
||||
Me.btn1.Text = "1"
|
||||
Me.btn1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnminus
|
||||
'
|
||||
Me.btnminus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnminus.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnminus.Location = New System.Drawing.Point(196, 102)
|
||||
Me.btnminus.Name = "btnminus"
|
||||
Me.btnminus.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btnminus.TabIndex = 38
|
||||
Me.btnminus.TabStop = False
|
||||
Me.btnminus.Text = "-"
|
||||
Me.btnminus.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn2
|
||||
'
|
||||
Me.btn2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn2.Location = New System.Drawing.Point(72, 55)
|
||||
Me.btn2.Name = "btn2"
|
||||
Me.btn2.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn2.TabIndex = 27
|
||||
Me.btn2.TabStop = False
|
||||
Me.btn2.Text = "2"
|
||||
Me.btn2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnplus
|
||||
'
|
||||
Me.btnplus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnplus.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnplus.Location = New System.Drawing.Point(196, 55)
|
||||
Me.btnplus.Name = "btnplus"
|
||||
Me.btnplus.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btnplus.TabIndex = 37
|
||||
Me.btnplus.TabStop = False
|
||||
Me.btnplus.Text = "+"
|
||||
Me.btnplus.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn3
|
||||
'
|
||||
Me.btn3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn3.Location = New System.Drawing.Point(134, 55)
|
||||
Me.btn3.Name = "btn3"
|
||||
Me.btn3.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn3.TabIndex = 28
|
||||
Me.btn3.TabStop = False
|
||||
Me.btn3.Text = "3"
|
||||
Me.btn3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnequals
|
||||
'
|
||||
Me.btnequals.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnequals.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnequals.Location = New System.Drawing.Point(134, 196)
|
||||
Me.btnequals.Name = "btnequals"
|
||||
Me.btnequals.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btnequals.TabIndex = 36
|
||||
Me.btnequals.Text = "="
|
||||
Me.btnequals.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn4
|
||||
'
|
||||
Me.btn4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn4.Location = New System.Drawing.Point(10, 102)
|
||||
Me.btn4.Name = "btn4"
|
||||
Me.btn4.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn4.TabIndex = 29
|
||||
Me.btn4.TabStop = False
|
||||
Me.btn4.Text = "4"
|
||||
Me.btn4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn0
|
||||
'
|
||||
Me.btn0.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn0.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn0.Location = New System.Drawing.Point(10, 196)
|
||||
Me.btn0.Name = "btn0"
|
||||
Me.btn0.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn0.TabIndex = 35
|
||||
Me.btn0.TabStop = False
|
||||
Me.btn0.Text = "0"
|
||||
Me.btn0.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn6
|
||||
'
|
||||
Me.btn6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn6.Location = New System.Drawing.Point(134, 102)
|
||||
Me.btn6.Name = "btn6"
|
||||
Me.btn6.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn6.TabIndex = 31
|
||||
Me.btn6.TabStop = False
|
||||
Me.btn6.Text = "6"
|
||||
Me.btn6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn9
|
||||
'
|
||||
Me.btn9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn9.Location = New System.Drawing.Point(134, 149)
|
||||
Me.btn9.Name = "btn9"
|
||||
Me.btn9.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn9.TabIndex = 34
|
||||
Me.btn9.TabStop = False
|
||||
Me.btn9.Text = "9"
|
||||
Me.btn9.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn7
|
||||
'
|
||||
Me.btn7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn7.Location = New System.Drawing.Point(10, 149)
|
||||
Me.btn7.Name = "btn7"
|
||||
Me.btn7.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn7.TabIndex = 32
|
||||
Me.btn7.TabStop = False
|
||||
Me.btn7.Text = "7"
|
||||
Me.btn7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn8
|
||||
'
|
||||
Me.btn8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btn8.Location = New System.Drawing.Point(72, 149)
|
||||
Me.btn8.Name = "btn8"
|
||||
Me.btn8.Size = New System.Drawing.Size(55, 41)
|
||||
Me.btn8.TabIndex = 33
|
||||
Me.btn8.TabStop = False
|
||||
Me.btn8.Text = "8"
|
||||
Me.btn8.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 248)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(261, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconCalculator
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'Calculator
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(261, 278)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Calculator"
|
||||
Me.Text = "Calculator"
|
||||
Me.TopMost = True
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pgcontents.PerformLayout()
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents btnclearall As System.Windows.Forms.Button
|
||||
Friend WithEvents btn5 As System.Windows.Forms.Button
|
||||
Friend WithEvents btndividedby As System.Windows.Forms.Button
|
||||
Friend WithEvents lbldispla As System.Windows.Forms.TextBox
|
||||
Friend WithEvents btntimes As System.Windows.Forms.Button
|
||||
Friend WithEvents btn1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnminus As System.Windows.Forms.Button
|
||||
Friend WithEvents btn2 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnplus As System.Windows.Forms.Button
|
||||
Friend WithEvents btn3 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnequals As System.Windows.Forms.Button
|
||||
Friend WithEvents btn4 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn0 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn6 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn9 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn7 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn8 As System.Windows.Forms.Button
|
||||
End Class
|
||||
129
Calculator.resx
Normal file
129
Calculator.resx
Normal 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="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1441, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1525, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
681
Calculator.vb
Normal file
681
Calculator.vb
Normal file
|
|
@ -0,0 +1,681 @@
|
|||
Public Class Calculator
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0
|
||||
Public minimumsizeheight As Integer = 0
|
||||
|
||||
Public dNumber As Double
|
||||
Public sOperation As String
|
||||
Public bHasFirstNumber, bHasSecondNumber, bHasOperation As Boolean
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
dNumber = 0
|
||||
bHasFirstNumber = False
|
||||
bHasOperation = False
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(261, 278) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.calculatorname
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.calculatoricontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 1
|
||||
bHasSecondNumber = True
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 1
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 1
|
||||
Else
|
||||
Me.lbldispla.Text = 1
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 2
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 2
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 2
|
||||
Else
|
||||
Me.lbldispla.Text = 2
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 3
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 3
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 3
|
||||
Else
|
||||
Me.lbldispla.Text = 3
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 4
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 4
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 4
|
||||
Else
|
||||
Me.lbldispla.Text = 4
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 5
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 5
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 5
|
||||
Else
|
||||
Me.lbldispla.Text = 5
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 6
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 6
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 6
|
||||
Else
|
||||
Me.lbldispla.Text = 6
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 7
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 7
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 7
|
||||
Else
|
||||
Me.lbldispla.Text = 7
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 8
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 8
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 8
|
||||
Else
|
||||
Me.lbldispla.Text = 8
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text = 0 Then
|
||||
Me.lbldispla.Text = 9
|
||||
bHasSecondNumber = True
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Me.lbldispla.Text &= 9
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 9
|
||||
Else
|
||||
Me.lbldispla.Text = 9
|
||||
bHasFirstNumber = True
|
||||
bHasOperation = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
|
||||
If bHasFirstNumber Then
|
||||
If dNumber <> 0 Then
|
||||
If Me.lbldispla.Text <> 0 Then
|
||||
Me.lbldispla.Text &= 0
|
||||
End If
|
||||
Exit Sub
|
||||
End If
|
||||
Me.lbldispla.Text &= 0
|
||||
Else
|
||||
Me.lbldispla.Text = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnequals.Click
|
||||
If bHasFirstNumber And bHasSecondNumber Then
|
||||
|
||||
If (sOperation = "+") Then
|
||||
Me.lbldispla.Text = Val(Me.lbldispla.Text) + dNumber
|
||||
ElseIf (sOperation = "-") Then
|
||||
Me.lbldispla.Text = dNumber - Val(Me.lbldispla.Text)
|
||||
ElseIf (sOperation = "*") Then
|
||||
Me.lbldispla.Text = Val(Me.lbldispla.Text) * dNumber
|
||||
ElseIf (sOperation = "/") Then
|
||||
Me.lbldispla.Text = dNumber / Val(Me.lbldispla.Text)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
dNumber = Val(Me.lbldispla.Text)
|
||||
bHasFirstNumber = False
|
||||
bHasSecondNumber = False
|
||||
bHasOperation = True
|
||||
sOperation = ""
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click
|
||||
|
||||
If bHasSecondNumber Then
|
||||
|
||||
If bHasOperation Then
|
||||
If (sOperation = "+") Then
|
||||
dNumber = Val(Me.lbldispla.Text) + dNumber
|
||||
ElseIf (sOperation = "-") Then
|
||||
dNumber = dNumber - Val(Me.lbldispla.Text)
|
||||
ElseIf (sOperation = "*") Then
|
||||
dNumber = Val(Me.lbldispla.Text) * dNumber
|
||||
ElseIf (sOperation = "/") Then
|
||||
dNumber = dNumber / Val(Me.lbldispla.Text)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
sOperation = "+"
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
sOperation = "+"
|
||||
dNumber = Val(Me.lbldispla.Text) + dNumber
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If bHasFirstNumber Or bHasOperation Then
|
||||
If bHasOperation Then
|
||||
bHasFirstNumber = True
|
||||
End If
|
||||
sOperation = "+"
|
||||
bHasOperation = True
|
||||
dNumber = Val(Me.lbldispla.Text)
|
||||
Me.lbldispla.Text = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click
|
||||
If bHasSecondNumber Then
|
||||
If bHasOperation Then
|
||||
If (sOperation = "+") Then
|
||||
dNumber = Val(Me.lbldispla.Text) + dNumber
|
||||
ElseIf (sOperation = "-") Then
|
||||
dNumber = dNumber - Val(Me.lbldispla.Text)
|
||||
ElseIf (sOperation = "*") Then
|
||||
dNumber = Val(Me.lbldispla.Text) * dNumber
|
||||
ElseIf (sOperation = "/") Then
|
||||
dNumber = dNumber / Val(Me.lbldispla.Text)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
sOperation = "-"
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
Else
|
||||
sOperation = "-"
|
||||
dNumber = dNumber - Val(Me.lbldispla.Text)
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If bHasFirstNumber Or bHasOperation Then
|
||||
If bHasOperation Then
|
||||
bHasFirstNumber = True
|
||||
End If
|
||||
sOperation = "-"
|
||||
dNumber = Val(Me.lbldispla.Text)
|
||||
Me.lbldispla.Text = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntimes.Click
|
||||
If bHasSecondNumber Then
|
||||
If bHasOperation Then
|
||||
If (sOperation = "+") Then
|
||||
dNumber = Val(Me.lbldispla.Text) + dNumber
|
||||
ElseIf (sOperation = "-") Then
|
||||
dNumber = dNumber - Val(Me.lbldispla.Text)
|
||||
ElseIf (sOperation = "*") Then
|
||||
dNumber = Val(Me.lbldispla.Text) * dNumber
|
||||
ElseIf (sOperation = "/") Then
|
||||
dNumber = dNumber / Val(Me.lbldispla.Text)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
sOperation = "*"
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
Else
|
||||
sOperation = "*"
|
||||
dNumber = Val(Me.lbldispla.Text) * dNumber
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If bHasFirstNumber Or bHasOperation Then
|
||||
If bHasOperation Then
|
||||
bHasFirstNumber = True
|
||||
End If
|
||||
sOperation = "*"
|
||||
dNumber = Val(Me.lbldispla.Text)
|
||||
Me.lbldispla.Text = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndividedby.Click
|
||||
If bHasSecondNumber Then
|
||||
If bHasOperation Then
|
||||
If (sOperation = "+") Then
|
||||
dNumber = Val(Me.lbldispla.Text) + dNumber
|
||||
ElseIf (sOperation = "-") Then
|
||||
dNumber = dNumber - Val(Me.lbldispla.Text)
|
||||
ElseIf (sOperation = "*") Then
|
||||
dNumber = Val(Me.lbldispla.Text) * dNumber
|
||||
ElseIf (sOperation = "/") Then
|
||||
dNumber = dNumber / Val(Me.lbldispla.Text)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
sOperation = "/"
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
Else
|
||||
sOperation = "/"
|
||||
dNumber = dNumber / Val(Me.lbldispla.Text)
|
||||
bHasSecondNumber = False
|
||||
Me.lbldispla.Text = 0
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If bHasFirstNumber Or bHasOperation Then
|
||||
If bHasOperation Then
|
||||
bHasFirstNumber = True
|
||||
End If
|
||||
sOperation = "/"
|
||||
dNumber = Val(Me.lbldispla.Text)
|
||||
Me.lbldispla.Text = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclearall.Click
|
||||
Me.lbldispla.Text = 0
|
||||
dNumber = 0
|
||||
bHasFirstNumber = False
|
||||
bHasSecondNumber = False
|
||||
bHasOperation = False
|
||||
sOperation = ""
|
||||
End Sub
|
||||
End Class
|
||||
270
Clock.Designer.vb
generated
Normal file
270
Clock.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,270 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Clock
|
||||
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.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.bottomtext = New System.Windows.Forms.Label()
|
||||
Me.toptext = New System.Windows.Forms.Label()
|
||||
Me.lbmaintime = New System.Windows.Forms.Label()
|
||||
Me.clocktick = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(364, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 137)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 135)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 137)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 135)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(366, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 3)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 22
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconClock
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 21
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(69, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Clock"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(364, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 165)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(362, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.BackColor = System.Drawing.Color.White
|
||||
Me.pgcontents.Controls.Add(Me.bottomtext)
|
||||
Me.pgcontents.Controls.Add(Me.toptext)
|
||||
Me.pgcontents.Controls.Add(Me.lbmaintime)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(362, 135)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'bottomtext
|
||||
'
|
||||
Me.bottomtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.bottomtext.Location = New System.Drawing.Point(10, 88)
|
||||
Me.bottomtext.Name = "bottomtext"
|
||||
Me.bottomtext.Size = New System.Drawing.Size(342, 23)
|
||||
Me.bottomtext.TabIndex = 2
|
||||
Me.bottomtext.Text = "Seconds have passed"
|
||||
Me.bottomtext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'toptext
|
||||
'
|
||||
Me.toptext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.toptext.Location = New System.Drawing.Point(10, 22)
|
||||
Me.toptext.Name = "toptext"
|
||||
Me.toptext.Size = New System.Drawing.Size(342, 23)
|
||||
Me.toptext.TabIndex = 1
|
||||
Me.toptext.Text = "The Time is"
|
||||
Me.toptext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lbmaintime
|
||||
'
|
||||
Me.lbmaintime.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbmaintime.Location = New System.Drawing.Point(6, 38)
|
||||
Me.lbmaintime.Name = "lbmaintime"
|
||||
Me.lbmaintime.Size = New System.Drawing.Size(350, 52)
|
||||
Me.lbmaintime.TabIndex = 0
|
||||
Me.lbmaintime.Text = "00000000"
|
||||
Me.lbmaintime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'clocktick
|
||||
'
|
||||
Me.clocktick.Enabled = True
|
||||
Me.clocktick.Interval = 1000
|
||||
'
|
||||
'Clock
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(366, 167)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Clock"
|
||||
Me.Text = "Clock"
|
||||
Me.TopMost = True
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents bottomtext As System.Windows.Forms.Label
|
||||
Friend WithEvents toptext As System.Windows.Forms.Label
|
||||
Friend WithEvents lbmaintime As System.Windows.Forms.Label
|
||||
Friend WithEvents clocktick As System.Windows.Forms.Timer
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
End Class
|
||||
123
Clock.resx
Normal file
123
Clock.resx
Normal 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="clocktick.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 12</value>
|
||||
</metadata>
|
||||
</root>
|
||||
365
Clock.vb
Normal file
365
Clock.vb
Normal file
|
|
@ -0,0 +1,365 @@
|
|||
Public Class Clock
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0
|
||||
Public minimumsizeheight As Integer = 0
|
||||
|
||||
Dim movedtext As Boolean = False
|
||||
|
||||
Private Sub Knowledge_Input_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
gettime()
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonclock.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonclock, ShiftOSDesktop.tbclockicon, ShiftOSDesktop.tbclocktext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(366, 167) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.clockname
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclockicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.clockicontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub clocktick_Tick(sender As Object, e As EventArgs) Handles clocktick.Tick
|
||||
gettime()
|
||||
End Sub
|
||||
|
||||
Private Sub gettime()
|
||||
If ShiftOSDesktop.boughtsplitsecondtime = True Then
|
||||
If movedtext = False Then
|
||||
toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10)
|
||||
lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10)
|
||||
bottomtext.Hide()
|
||||
movedtext = True
|
||||
End If
|
||||
toptext.Text = "The Time is"
|
||||
lbmaintime.Text = TimeOfDay
|
||||
bottomtext.Hide()
|
||||
Else
|
||||
If ShiftOSDesktop.boughtminuteaccuracytime = True Then
|
||||
If movedtext = False Then
|
||||
toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10)
|
||||
lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10)
|
||||
bottomtext.Hide()
|
||||
movedtext = True
|
||||
End If
|
||||
If Date.Now.Hour < 12 Then
|
||||
toptext.Text = "The Time is"
|
||||
lbmaintime.Text = TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM"
|
||||
bottomtext.Hide()
|
||||
Else
|
||||
toptext.Text = "The Time is"
|
||||
lbmaintime.Text = TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM"
|
||||
bottomtext.Hide()
|
||||
End If
|
||||
Else
|
||||
If ShiftOSDesktop.boughtpmandam = True Then
|
||||
If movedtext = False Then
|
||||
toptext.Location = New Point(toptext.Location.X, toptext.Location.Y + 10)
|
||||
lbmaintime.Location = New Point(lbmaintime.Location.X, lbmaintime.Location.Y + 10)
|
||||
bottomtext.Hide()
|
||||
movedtext = True
|
||||
End If
|
||||
If Date.Now.Hour < 12 Then
|
||||
toptext.Text = "The Time is"
|
||||
lbmaintime.Text = TimeOfDay.Hour & " AM"
|
||||
Else
|
||||
toptext.Text = "The Time is"
|
||||
lbmaintime.Text = TimeOfDay.Hour - 12 & " PM"
|
||||
End If
|
||||
Else
|
||||
If ShiftOSDesktop.boughthourspastmidnight = True Then
|
||||
toptext.Text = "Since Midnight"
|
||||
lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60)
|
||||
bottomtext.Text = "Hours have passed"
|
||||
bottomtext.Show()
|
||||
Else
|
||||
If ShiftOSDesktop.boughtminutespastmidnight = True Then
|
||||
toptext.Text = "Since Midnight"
|
||||
lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60)
|
||||
bottomtext.Text = "Minutes have passed"
|
||||
bottomtext.Show()
|
||||
Else
|
||||
If ShiftOSDesktop.boughtsecondspastmidnight = True Then
|
||||
toptext.Text = "Since Midnight"
|
||||
lbmaintime.Text = Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds)
|
||||
bottomtext.Text = "Seconds have passed"
|
||||
bottomtext.Show()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
3729
Colour Picker.Designer.vb
generated
Normal file
3729
Colour Picker.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load diff
120
Colour Picker.resx
Normal file
120
Colour Picker.resx
Normal 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>
|
||||
2731
Colour Picker.vb
Normal file
2731
Colour Picker.vb
Normal file
File diff suppressed because it is too large
Load diff
330
CustomColorTable.vb
Normal file
330
CustomColorTable.vb
Normal file
|
|
@ -0,0 +1,330 @@
|
|||
' <auto-generated>
|
||||
' This code was generated by the .NET ToolStrip Customizer.
|
||||
' http://toolstripcustomizer.codeplex.com/
|
||||
' </auto-generated>
|
||||
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Namespace MyNamespace
|
||||
Class CustomColorTable
|
||||
Inherits ProfessionalColorTable
|
||||
Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color
|
||||
Get
|
||||
Return ButtonSelectedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedHighlight() As Color
|
||||
Get
|
||||
Return ButtonPressedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonPressedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color
|
||||
Get
|
||||
Return ButtonCheckedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedBorder() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckSelectedBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckPressedBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property GripDark() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property GripLight() As Color
|
||||
Get
|
||||
Return Color.FromName("White")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuStripGradientBegin() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuStripGradientEnd() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelected() As Color
|
||||
Get
|
||||
Return Color.FromArgb(ShiftOSDesktop.applaunchermouseovercolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemBorder() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuBorder() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color
|
||||
Get
|
||||
'remember this is for clicking the button, the below must be changed in the future
|
||||
If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color
|
||||
Get
|
||||
If ShiftOSDesktop.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property SeparatorDark() As Color
|
||||
Get
|
||||
Return Color.FromName("Black")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property SeparatorLight() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonHighlight")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property StatusStripGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property StatusStripGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripBorder() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color
|
||||
Get
|
||||
Return Color.FromArgb(ShiftOSDesktop.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 245, 245, 245)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 242, 242, 242)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
237
Downloader.Designer.vb
generated
Normal file
237
Downloader.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,237 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Downloader
|
||||
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.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 170)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(479, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconTextPad
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 140)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(481, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 142)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(133, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Downloader"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(481, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 140)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(479, 140)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 142)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(483, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'Downloader
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(483, 172)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Downloader"
|
||||
Me.Text = "Downloader"
|
||||
Me.TopMost = True
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
End Class
|
||||
129
Downloader.resx
Normal file
129
Downloader.resx
Normal 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="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1441, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1525, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
392
Downloader.vb
Normal file
392
Downloader.vb
Normal file
|
|
@ -0,0 +1,392 @@
|
|||
Public Class Downloader
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0 'replace with minimum size
|
||||
Public minimumsizeheight As Integer = 0 'replace with minimum size
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonshiftorium, ShiftOSDesktop.tbshiftoriumicon, ShiftOSDesktop.tbshiftoriumtext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(800, 600) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.knowledgeinputname 'Remember to change to name of program!!!!
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.knowledgeinputicontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
End Class
|
||||
406
File Opener.Designer.vb
generated
Normal file
406
File Opener.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,406 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class File_Opener
|
||||
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(File_Opener))
|
||||
Me.scaninput = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.lvfiles = New System.Windows.Forms.ListView()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.pnlopenoptions = New System.Windows.Forms.Panel()
|
||||
Me.btncancel = New System.Windows.Forms.Button()
|
||||
Me.btnopen = New System.Windows.Forms.Button()
|
||||
Me.lbextention = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lbllocation = New System.Windows.Forms.Label()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnlopenoptions.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'scaninput
|
||||
'
|
||||
Me.scaninput.Interval = 500
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(111, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "File Opener"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.lvfiles)
|
||||
Me.pgcontents.Controls.Add(Me.Panel3)
|
||||
Me.pgcontents.Controls.Add(Me.pnlopenoptions)
|
||||
Me.pgcontents.Controls.Add(Me.Panel2)
|
||||
Me.pgcontents.Controls.Add(Me.Panel1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(596, 345)
|
||||
Me.pgcontents.TabIndex = 25
|
||||
'
|
||||
'lvfiles
|
||||
'
|
||||
Me.lvfiles.BackColor = System.Drawing.Color.White
|
||||
Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lvfiles.LargeImageList = Me.ImageList1
|
||||
Me.lvfiles.Location = New System.Drawing.Point(0, 33)
|
||||
Me.lvfiles.Name = "lvfiles"
|
||||
Me.lvfiles.Size = New System.Drawing.Size(596, 268)
|
||||
Me.lvfiles.TabIndex = 3
|
||||
Me.lvfiles.UseCompatibleStateImageBehavior = False
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 301)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(596, 2)
|
||||
Me.Panel3.TabIndex = 11
|
||||
'
|
||||
'pnlopenoptions
|
||||
'
|
||||
Me.pnlopenoptions.Controls.Add(Me.btncancel)
|
||||
Me.pnlopenoptions.Controls.Add(Me.btnopen)
|
||||
Me.pnlopenoptions.Controls.Add(Me.lbextention)
|
||||
Me.pnlopenoptions.Controls.Add(Me.Label1)
|
||||
Me.pnlopenoptions.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnlopenoptions.Location = New System.Drawing.Point(0, 303)
|
||||
Me.pnlopenoptions.Name = "pnlopenoptions"
|
||||
Me.pnlopenoptions.Size = New System.Drawing.Size(596, 42)
|
||||
Me.pnlopenoptions.TabIndex = 10
|
||||
'
|
||||
'btncancel
|
||||
'
|
||||
Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btncancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btncancel.Location = New System.Drawing.Point(433, 6)
|
||||
Me.btncancel.Name = "btncancel"
|
||||
Me.btncancel.Size = New System.Drawing.Size(75, 29)
|
||||
Me.btncancel.TabIndex = 4
|
||||
Me.btncancel.Text = "Cancel"
|
||||
Me.btncancel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnopen
|
||||
'
|
||||
Me.btnopen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnopen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnopen.Location = New System.Drawing.Point(514, 6)
|
||||
Me.btnopen.Name = "btnopen"
|
||||
Me.btnopen.Size = New System.Drawing.Size(75, 29)
|
||||
Me.btnopen.TabIndex = 3
|
||||
Me.btnopen.Text = "Open"
|
||||
Me.btnopen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbextention
|
||||
'
|
||||
Me.lbextention.AutoSize = True
|
||||
Me.lbextention.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbextention.Location = New System.Drawing.Point(366, 3)
|
||||
Me.lbextention.Name = "lbextention"
|
||||
Me.lbextention.Size = New System.Drawing.Size(51, 31)
|
||||
Me.lbextention.TabIndex = 2
|
||||
Me.lbextention.Text = ".txt"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(360, 16)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Currently displaying files to open with the following extention:"
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 31)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(596, 2)
|
||||
Me.Panel2.TabIndex = 5
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.Controls.Add(Me.lbllocation)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(596, 31)
|
||||
Me.Panel1.TabIndex = 4
|
||||
'
|
||||
'lbllocation
|
||||
'
|
||||
Me.lbllocation.BackColor = System.Drawing.Color.White
|
||||
Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbllocation.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbllocation.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbllocation.Name = "lbllocation"
|
||||
Me.lbllocation.Size = New System.Drawing.Size(596, 31)
|
||||
Me.lbllocation.TabIndex = 0
|
||||
Me.lbllocation.Text = "C:/ShiftOS/"
|
||||
Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(598, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgright.TabIndex = 27
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgleft.TabIndex = 26
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 375)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(596, 2)
|
||||
Me.pgbottom.TabIndex = 28
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(600, 30)
|
||||
Me.titlebar.TabIndex = 24
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 3)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 25
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileOpener
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "folder.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "unknown.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "textfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "imagefile.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "videofile.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "folderup.png")
|
||||
Me.ImageList1.Images.SetKeyName(6, "philips dll.png")
|
||||
Me.ImageList1.Images.SetKeyName(7, "philips exe.png")
|
||||
Me.ImageList1.Images.SetKeyName(8, "config.png")
|
||||
Me.ImageList1.Images.SetKeyName(9, "driver.png")
|
||||
Me.ImageList1.Images.SetKeyName(10, "skinfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(11, "namelistfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png")
|
||||
'
|
||||
'File_Opener
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(600, 377)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MinimumSize = New System.Drawing.Size(400, 177)
|
||||
Me.Name = "File_Opener"
|
||||
Me.Text = "File_Opener"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnlopenoptions.ResumeLayout(False)
|
||||
Me.pnlopenoptions.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents scaninput As System.Windows.Forms.Timer
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents lvfiles As System.Windows.Forms.ListView
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbllocation As System.Windows.Forms.Label
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlopenoptions As System.Windows.Forms.Panel
|
||||
Friend WithEvents btncancel As System.Windows.Forms.Button
|
||||
Friend WithEvents btnopen As System.Windows.Forms.Button
|
||||
Friend WithEvents lbextention As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
End Class
|
||||
322
File Opener.resx
Normal file
322
File Opener.resx
Normal file
|
|
@ -0,0 +1,322 @@
|
|||
<?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="scaninput.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>348, 12</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1638, 18</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU
|
||||
KgAAAk1TRnQBSQFMAgEBDQEAASgBAQEoAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
|
||||
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
|
||||
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
|
||||
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
|
||||
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
|
||||
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
|
||||
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
|
||||
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
|
||||
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
|
||||
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
|
||||
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
|
||||
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
|
||||
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
|
||||
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
|
||||
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
|
||||
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
|
||||
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
|
||||
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
|
||||
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
|
||||
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
|
||||
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
|
||||
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
|
||||
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
|
||||
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
|
||||
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
|
||||
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
|
||||
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
|
||||
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/
|
||||
gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs
|
||||
AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs
|
||||
AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/
|
||||
AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs
|
||||
AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs
|
||||
AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/
|
||||
AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/
|
||||
AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/
|
||||
AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/
|
||||
gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/
|
||||
gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A
|
||||
/wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA
|
||||
A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs
|
||||
A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/
|
||||
AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/
|
||||
AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA
|
||||
A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA
|
||||
D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA
|
||||
Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA
|
||||
Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs
|
||||
AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
|
||||
Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA
|
||||
Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA
|
||||
Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/
|
||||
AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/
|
||||
B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/
|
||||
C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/
|
||||
BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/
|
||||
CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/
|
||||
AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA
|
||||
Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/
|
||||
BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA
|
||||
AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs
|
||||
BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA
|
||||
Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA
|
||||
AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA
|
||||
GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs
|
||||
Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA
|
||||
A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA
|
||||
BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs
|
||||
AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA
|
||||
A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0
|
||||
Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO
|
||||
AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV
|
||||
AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0
|
||||
BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv
|
||||
BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA
|
||||
AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8
|
||||
AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ
|
||||
CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8
|
||||
AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/
|
||||
AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH
|
||||
BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8
|
||||
AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr
|
||||
ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr
|
||||
AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO
|
||||
ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA
|
||||
Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO
|
||||
Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT
|
||||
BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0
|
||||
AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv
|
||||
ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3
|
||||
BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8
|
||||
AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO
|
||||
AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3
|
||||
BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s
|
||||
AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER
|
||||
AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy
|
||||
EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO
|
||||
DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/
|
||||
AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO
|
||||
AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA
|
||||
DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8
|
||||
AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s
|
||||
BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH
|
||||
AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8
|
||||
AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA
|
||||
AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA
|
||||
D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt
|
||||
AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO
|
||||
AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS
|
||||
Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3
|
||||
CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0
|
||||
AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq
|
||||
Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO
|
||||
AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv
|
||||
ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq
|
||||
BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO
|
||||
AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy
|
||||
BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv
|
||||
ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz
|
||||
IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs
|
||||
A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs
|
||||
BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs
|
||||
A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A//
|
||||
CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS
|
||||
A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA
|
||||
KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs
|
||||
BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv
|
||||
AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs
|
||||
Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA
|
||||
F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/
|
||||
GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv
|
||||
AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA
|
||||
FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/
|
||||
AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA
|
||||
EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA
|
||||
Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0
|
||||
AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A
|
||||
If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP
|
||||
FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/
|
||||
Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB
|
||||
AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA
|
||||
AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA
|
||||
AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP
|
||||
AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
|
||||
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
|
||||
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
|
||||
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
|
||||
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
|
||||
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
|
||||
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
|
||||
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+
|
||||
BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA
|
||||
Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/
|
||||
BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA
|
||||
AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf
|
||||
Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1431, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1544, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
753
File Opener.vb
Normal file
753
File Opener.vb
Normal file
|
|
@ -0,0 +1,753 @@
|
|||
Imports System.IO
|
||||
|
||||
Public Class File_Opener
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 400
|
||||
Public minimumsizeheight As Integer = 177
|
||||
|
||||
Dim itemsdeleted As Integer
|
||||
Dim filetype As Integer
|
||||
Public openextention As String
|
||||
Public openingprogram As String
|
||||
Dim lastselectedfilename As String
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonfileopener.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfileopener, ShiftOSDesktop.tbfileopenericon, ShiftOSDesktop.tbfileopenertext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
If ShiftOSDesktop.fileopenerlastdirectory = "" Then
|
||||
'open default directory
|
||||
Else
|
||||
lbllocation.Text = ShiftOSDesktop.fileopenerlastdirectory
|
||||
End If
|
||||
lbextention.Text = openextention
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(600, 377) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.fileopenername
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtfileskimmericon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.fileopenericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Public Sub showcontents()
|
||||
lvfiles.Items.Clear()
|
||||
|
||||
lvfiles.Items.Add("Exit Folder", 5)
|
||||
|
||||
Dim dir As New DirectoryInfo(lbllocation.Text)
|
||||
Dim files As FileInfo() = dir.GetFiles()
|
||||
Dim file As FileInfo
|
||||
Dim folders As DirectoryInfo() = dir.GetDirectories()
|
||||
Dim folder As DirectoryInfo
|
||||
|
||||
For Each folder In folders
|
||||
Dim foldername As String = folder.Name
|
||||
lvfiles.Items.Add(foldername, 0)
|
||||
Next
|
||||
|
||||
For Each file In files
|
||||
Dim filename As String = file.Name
|
||||
Dim fileex As String = file.Extension
|
||||
|
||||
Select Case fileex
|
||||
Case ".txt"
|
||||
filetype = 2
|
||||
Case ".doc"
|
||||
filetype = 2
|
||||
Case ".docx"
|
||||
filetype = 2
|
||||
Case ".lst"
|
||||
filetype = 2
|
||||
Case ".png"
|
||||
filetype = 3
|
||||
Case ".jpg"
|
||||
filetype = 3
|
||||
Case ".jpeg"
|
||||
filetype = 3
|
||||
Case ".bmp"
|
||||
filetype = 3
|
||||
Case ".gif"
|
||||
filetype = 3
|
||||
Case ".avi"
|
||||
filetype = 4
|
||||
Case ".m4v"
|
||||
filetype = 4
|
||||
Case ".mp4"
|
||||
filetype = 4
|
||||
Case ".wmv"
|
||||
filetype = 4
|
||||
Case ".dll"
|
||||
filetype = 6
|
||||
Case ".exe"
|
||||
filetype = 7
|
||||
Case ".sft"
|
||||
filetype = 8
|
||||
Case ".dri"
|
||||
filetype = 9
|
||||
Case ".pic"
|
||||
filetype = 3
|
||||
Case ".skn"
|
||||
filetype = 10
|
||||
Case ".nls"
|
||||
filetype = 11
|
||||
Case ".icp"
|
||||
filetype = 12
|
||||
Case Else
|
||||
filetype = 1
|
||||
End Select
|
||||
|
||||
Select Case openingprogram
|
||||
Case "textpad"
|
||||
If fileex = ".txt" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "graphicpicker1", "graphicpicker2", "graphicpicker3"
|
||||
If fileex = ".pic" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".gif" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".jpeg" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".png" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".jpg" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".tiff" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".bmp" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "skinloader"
|
||||
If fileex = ".skn" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "artpad"
|
||||
If fileex = ".pic" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "audioplayer"
|
||||
If fileex = ".mp3" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".wav" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".mwa" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".midi" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "videoplayer"
|
||||
If fileex = ".mp4" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".avi" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".wmv" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".mov" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".m4v" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".mpeg4" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".mkv" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "namechanger"
|
||||
If fileex = ".nls" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "iconmanager"
|
||||
If fileex = ".pic" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".gif" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".jpeg" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".png" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".jpg" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".tiff" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
If fileex = ".bmp" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "iconmanagerpack"
|
||||
If fileex = ".icp" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
Case "skinshifter"
|
||||
If fileex = ".skn" Then
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
End If
|
||||
End Select
|
||||
Next
|
||||
|
||||
ShiftOSDesktop.fileopenerlastdirectory = lbllocation.Text
|
||||
End Sub
|
||||
|
||||
Private Sub lvfiles_MouseClick(sender As Object, e As MouseEventArgs) Handles lvfiles.MouseClick
|
||||
lastselectedfilename = lvfiles.SelectedItems(0).Text
|
||||
End Sub
|
||||
|
||||
Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick
|
||||
|
||||
If lvfiles.SelectedItems(0).Text = "Exit Folder" Then
|
||||
|
||||
If lbllocation.Text = "C:/ShiftOS/" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)"
|
||||
infobox.Show()
|
||||
Else
|
||||
Dim endloop As Boolean = False
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
|
||||
While endloop = False
|
||||
If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
|
||||
endloop = True
|
||||
Else
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
End If
|
||||
End While
|
||||
showcontents()
|
||||
End If
|
||||
Else
|
||||
'Check if selected item is a file or folder. It it's a folder check its extension
|
||||
If lvfiles.SelectedItems(0).Text Like "*.txt" Then
|
||||
openfile()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.skn" Then
|
||||
openfile()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.gra" Then
|
||||
openfile()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.*" Then
|
||||
openfile()
|
||||
Else
|
||||
Dim textboxtext As String
|
||||
textboxtext = lbllocation.Text
|
||||
Dim last As String
|
||||
Dim selit As String
|
||||
last = textboxtext.Substring(textboxtext.Length - 1)
|
||||
If last = "/" Then
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + selit
|
||||
Else
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + ("/" & selit)
|
||||
End If
|
||||
showcontents()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btndeletefile_Click(sender As Object, e As EventArgs)
|
||||
If lvfiles.SelectedItems(0).Text Like "*.*" Then
|
||||
My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
Else
|
||||
My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnnewfolder_Click(sender As Object, e As EventArgs)
|
||||
infobox.lblintructtext.Text = "Please enter a name for your new folder:"
|
||||
infobox.txtuserinput.Text = ""
|
||||
infobox.lblintructtext.Show()
|
||||
infobox.txtuserinput.Show()
|
||||
infobox.Show()
|
||||
scaninput.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub scaninput_Tick(sender As Object, e As EventArgs) Handles scaninput.Tick
|
||||
If infobox.Visible = False Then
|
||||
My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text)
|
||||
showcontents()
|
||||
scaninput.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnopen_Click(sender As Object, e As EventArgs) Handles btnopen.Click
|
||||
openfile()
|
||||
End Sub
|
||||
|
||||
Private Sub openfile()
|
||||
If lastselectedfilename = "" Then
|
||||
Else
|
||||
Select Case openingprogram
|
||||
Case "textpad"
|
||||
If TextPad.needtosave = False Then
|
||||
TextPad.Show()
|
||||
TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
TextPad.needtosave = False
|
||||
Me.Close()
|
||||
Else
|
||||
infobox.title = "Textpad - Save?"
|
||||
infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to load a file without saving the changes?"
|
||||
infobox.Show()
|
||||
infobox.showyesno()
|
||||
infobox.sendyesno = "fileopenertextpad"
|
||||
End If
|
||||
Case "graphicpicker1"
|
||||
Graphic_Picker.imagelocations(0) = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
Graphic_Picker.txtidlefile.Text = lastselectedfilename
|
||||
Graphic_Picker.setgraphicsidle()
|
||||
Me.Close()
|
||||
Case "graphicpicker2"
|
||||
Graphic_Picker.imagelocations(1) = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
Graphic_Picker.txtmouseoverfile.Text = lastselectedfilename
|
||||
Graphic_Picker.setgraphicsmouseover()
|
||||
Me.Close()
|
||||
Case "graphicpicker3"
|
||||
Graphic_Picker.imagelocations(2) = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
Graphic_Picker.txtmousedownfile.Text = lastselectedfilename
|
||||
Graphic_Picker.setgraphicsmousedown()
|
||||
Me.Close()
|
||||
Case "skinloader"
|
||||
ShiftOSDesktop.disposeoldskindata("skinloaderemovepreview")
|
||||
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, "C:\ShiftOS\Shiftum42\Skins\Preview\")
|
||||
My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False)
|
||||
Skin_Loader.loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat")
|
||||
Skin_Loader.loadskintopreview()
|
||||
Skin_Loader.skinloaded = True
|
||||
Me.Close()
|
||||
Case "artpad"
|
||||
ArtPad.savelocation = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
ArtPad.openpic()
|
||||
Me.Close()
|
||||
Case "audioplayer"
|
||||
Audio_Player.lbmusiclist.Items.Add(lbllocation.Text & "/" & lastselectedfilename)
|
||||
Me.Close()
|
||||
Case "videoplayer"
|
||||
Video_Player.AxWindowsMediaPlayer1.URL = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
Me.Close()
|
||||
Case "namechanger"
|
||||
Name_Changer.loadlines = IO.File.ReadAllLines(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
Name_Changer.loadnamesfromfile()
|
||||
Me.Close()
|
||||
Case "iconmanager"
|
||||
Icon_Manager.openedfilelocation = (lbllocation.Text & "/" & lastselectedfilename)
|
||||
Icon_Manager.loadicon()
|
||||
Me.Close()
|
||||
Case "iconmanagerpack"
|
||||
Icon_Manager.disposebackgrounds()
|
||||
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Icons") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Icons", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, "C:\ShiftOS\Shiftum42\Icons")
|
||||
ShiftOSDesktop.setupicons()
|
||||
Icon_Manager.needtosetupdesktop = True
|
||||
Icon_Manager.loadsettings()
|
||||
Me.Close()
|
||||
Case "skinshifter"
|
||||
Skinshifter.lbskinlist.Items.Add(lbllocation.Text & "/" & lastselectedfilename)
|
||||
Me.Close()
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
406
File Saver.Designer.vb
generated
Normal file
406
File Saver.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,406 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class File_Saver
|
||||
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(File_Saver))
|
||||
Me.scaninput = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.lvfiles = New System.Windows.Forms.ListView()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.pnlsaveoptions = New System.Windows.Forms.Panel()
|
||||
Me.btnsave = New System.Windows.Forms.Button()
|
||||
Me.lbextention = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtfilename = New System.Windows.Forms.TextBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lbllocation = New System.Windows.Forms.Label()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnlsaveoptions.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'scaninput
|
||||
'
|
||||
Me.scaninput.Interval = 500
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(97, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "File Saver"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.lvfiles)
|
||||
Me.pgcontents.Controls.Add(Me.Panel3)
|
||||
Me.pgcontents.Controls.Add(Me.pnlsaveoptions)
|
||||
Me.pgcontents.Controls.Add(Me.Panel2)
|
||||
Me.pgcontents.Controls.Add(Me.Panel1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(596, 345)
|
||||
Me.pgcontents.TabIndex = 25
|
||||
'
|
||||
'lvfiles
|
||||
'
|
||||
Me.lvfiles.BackColor = System.Drawing.Color.White
|
||||
Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lvfiles.LargeImageList = Me.ImageList1
|
||||
Me.lvfiles.Location = New System.Drawing.Point(0, 33)
|
||||
Me.lvfiles.Name = "lvfiles"
|
||||
Me.lvfiles.Size = New System.Drawing.Size(596, 268)
|
||||
Me.lvfiles.TabIndex = 3
|
||||
Me.lvfiles.UseCompatibleStateImageBehavior = False
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel3.ForeColor = System.Drawing.Color.Black
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 301)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(596, 2)
|
||||
Me.Panel3.TabIndex = 9
|
||||
'
|
||||
'pnlsaveoptions
|
||||
'
|
||||
Me.pnlsaveoptions.BackColor = System.Drawing.Color.White
|
||||
Me.pnlsaveoptions.Controls.Add(Me.btnsave)
|
||||
Me.pnlsaveoptions.Controls.Add(Me.lbextention)
|
||||
Me.pnlsaveoptions.Controls.Add(Me.Label1)
|
||||
Me.pnlsaveoptions.Controls.Add(Me.txtfilename)
|
||||
Me.pnlsaveoptions.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnlsaveoptions.Location = New System.Drawing.Point(0, 303)
|
||||
Me.pnlsaveoptions.Name = "pnlsaveoptions"
|
||||
Me.pnlsaveoptions.Size = New System.Drawing.Size(596, 42)
|
||||
Me.pnlsaveoptions.TabIndex = 8
|
||||
'
|
||||
'btnsave
|
||||
'
|
||||
Me.btnsave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnsave.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnsave.Location = New System.Drawing.Point(514, 6)
|
||||
Me.btnsave.Name = "btnsave"
|
||||
Me.btnsave.Size = New System.Drawing.Size(75, 29)
|
||||
Me.btnsave.TabIndex = 3
|
||||
Me.btnsave.Text = "Save"
|
||||
Me.btnsave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbextention
|
||||
'
|
||||
Me.lbextention.AutoSize = True
|
||||
Me.lbextention.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbextention.Location = New System.Drawing.Point(478, 11)
|
||||
Me.lbextention.Name = "lbextention"
|
||||
Me.lbextention.Size = New System.Drawing.Size(27, 18)
|
||||
Me.lbextention.TabIndex = 2
|
||||
Me.lbextention.Text = ".txt"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(10, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(73, 16)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "File Name:"
|
||||
'
|
||||
'txtfilename
|
||||
'
|
||||
Me.txtfilename.BackColor = System.Drawing.Color.White
|
||||
Me.txtfilename.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtfilename.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtfilename.Location = New System.Drawing.Point(89, 10)
|
||||
Me.txtfilename.Name = "txtfilename"
|
||||
Me.txtfilename.Size = New System.Drawing.Size(383, 22)
|
||||
Me.txtfilename.TabIndex = 0
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 31)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(596, 2)
|
||||
Me.Panel2.TabIndex = 5
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.Controls.Add(Me.lbllocation)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(596, 31)
|
||||
Me.Panel1.TabIndex = 4
|
||||
'
|
||||
'lbllocation
|
||||
'
|
||||
Me.lbllocation.BackColor = System.Drawing.Color.White
|
||||
Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbllocation.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbllocation.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbllocation.Name = "lbllocation"
|
||||
Me.lbllocation.Size = New System.Drawing.Size(596, 31)
|
||||
Me.lbllocation.TabIndex = 0
|
||||
Me.lbllocation.Text = "C:/ShiftOS/"
|
||||
Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(598, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgright.TabIndex = 27
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgleft.TabIndex = 26
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 375)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(596, 2)
|
||||
Me.pgbottom.TabIndex = 28
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(600, 30)
|
||||
Me.titlebar.TabIndex = 24
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 2)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 25
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSaver
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "folder.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "unknown.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "textfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "imagefile.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "videofile.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "folderup.png")
|
||||
Me.ImageList1.Images.SetKeyName(6, "philips dll.png")
|
||||
Me.ImageList1.Images.SetKeyName(7, "philips exe.png")
|
||||
Me.ImageList1.Images.SetKeyName(8, "config.png")
|
||||
Me.ImageList1.Images.SetKeyName(9, "driver.png")
|
||||
Me.ImageList1.Images.SetKeyName(10, "skinfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(11, "namelistfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png")
|
||||
'
|
||||
'File_Saver
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(600, 377)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MinimumSize = New System.Drawing.Size(400, 177)
|
||||
Me.Name = "File_Saver"
|
||||
Me.Text = "File_Saver"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnlsaveoptions.ResumeLayout(False)
|
||||
Me.pnlsaveoptions.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents scaninput As System.Windows.Forms.Timer
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents lvfiles As System.Windows.Forms.ListView
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbllocation As System.Windows.Forms.Label
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlsaveoptions As System.Windows.Forms.Panel
|
||||
Friend WithEvents btnsave As System.Windows.Forms.Button
|
||||
Friend WithEvents lbextention As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtfilename As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
End Class
|
||||
322
File Saver.resx
Normal file
322
File Saver.resx
Normal file
|
|
@ -0,0 +1,322 @@
|
|||
<?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="scaninput.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>348, 12</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1638, 18</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU
|
||||
KgAAAk1TRnQBSQFMAgEBDQEAASgBAQEoAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
|
||||
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
|
||||
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
|
||||
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
|
||||
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
|
||||
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
|
||||
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
|
||||
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
|
||||
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
|
||||
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
|
||||
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
|
||||
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
|
||||
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
|
||||
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
|
||||
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
|
||||
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
|
||||
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
|
||||
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
|
||||
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
|
||||
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
|
||||
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
|
||||
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
|
||||
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
|
||||
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
|
||||
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
|
||||
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
|
||||
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
|
||||
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/
|
||||
gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs
|
||||
AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs
|
||||
AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/
|
||||
AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs
|
||||
AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs
|
||||
AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/
|
||||
AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/
|
||||
AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/
|
||||
AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/
|
||||
gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/
|
||||
gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A
|
||||
/wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA
|
||||
A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs
|
||||
A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/
|
||||
AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/
|
||||
AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA
|
||||
A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA
|
||||
D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA
|
||||
Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA
|
||||
Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs
|
||||
AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
|
||||
Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA
|
||||
Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA
|
||||
Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/
|
||||
AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/
|
||||
B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/
|
||||
C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/
|
||||
BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/
|
||||
CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/
|
||||
AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA
|
||||
Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/
|
||||
BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA
|
||||
AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs
|
||||
BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA
|
||||
Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA
|
||||
AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA
|
||||
GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs
|
||||
Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA
|
||||
A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA
|
||||
BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs
|
||||
AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA
|
||||
A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0
|
||||
Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO
|
||||
AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV
|
||||
AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0
|
||||
BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv
|
||||
BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA
|
||||
AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8
|
||||
AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ
|
||||
CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8
|
||||
AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/
|
||||
AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH
|
||||
BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8
|
||||
AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr
|
||||
ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr
|
||||
AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO
|
||||
ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA
|
||||
Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO
|
||||
Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT
|
||||
BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0
|
||||
AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv
|
||||
ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3
|
||||
BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8
|
||||
AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO
|
||||
AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3
|
||||
BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s
|
||||
AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER
|
||||
AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy
|
||||
EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO
|
||||
DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/
|
||||
AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO
|
||||
AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA
|
||||
DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8
|
||||
AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s
|
||||
BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH
|
||||
AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8
|
||||
AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA
|
||||
AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA
|
||||
D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt
|
||||
AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO
|
||||
AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS
|
||||
Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3
|
||||
CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0
|
||||
AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq
|
||||
Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO
|
||||
AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv
|
||||
ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq
|
||||
BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO
|
||||
AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy
|
||||
BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv
|
||||
ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz
|
||||
IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs
|
||||
A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs
|
||||
BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs
|
||||
A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A//
|
||||
CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS
|
||||
A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA
|
||||
KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs
|
||||
BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv
|
||||
AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs
|
||||
Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA
|
||||
F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/
|
||||
GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv
|
||||
AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA
|
||||
FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/
|
||||
AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA
|
||||
EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA
|
||||
Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0
|
||||
AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A
|
||||
If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP
|
||||
FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/
|
||||
Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB
|
||||
AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA
|
||||
AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA
|
||||
AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP
|
||||
AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
|
||||
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
|
||||
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
|
||||
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
|
||||
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
|
||||
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
|
||||
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
|
||||
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+
|
||||
BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA
|
||||
Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/
|
||||
BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA
|
||||
AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf
|
||||
Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1431, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1544, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
624
File Saver.vb
Normal file
624
File Saver.vb
Normal file
|
|
@ -0,0 +1,624 @@
|
|||
Imports System.IO
|
||||
Imports System.Drawing.Drawing2D
|
||||
Imports System.Globalization
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class File_Saver
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 400
|
||||
Public minimumsizeheight As Integer = 177
|
||||
|
||||
Dim itemsdeleted As Integer
|
||||
Dim filetype As Integer
|
||||
Public saveextention As String = ".txt"
|
||||
Public savingprogram As String = "textpad"
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonfilesaver.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfilesaver, ShiftOSDesktop.tbfilesavericon, ShiftOSDesktop.tbfilesavertext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
lbextention.Text = saveextention
|
||||
If ShiftOSDesktop.fileopenerlastdirectory = "" Then
|
||||
lbllocation.Text = "C:/ShiftOS"
|
||||
Else
|
||||
lbllocation.Text = ShiftOSDesktop.fileopenerlastdirectory
|
||||
End If
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(600, 377) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.filesavername
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtfileskimmericon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.filesavericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub showcontents()
|
||||
lvfiles.Items.Clear()
|
||||
|
||||
lvfiles.Items.Add("Exit Folder", 5)
|
||||
|
||||
Dim dir As New DirectoryInfo(lbllocation.Text)
|
||||
Dim files As FileInfo() = dir.GetFiles()
|
||||
Dim file As FileInfo
|
||||
Dim folders As DirectoryInfo() = dir.GetDirectories()
|
||||
Dim folder As DirectoryInfo
|
||||
|
||||
For Each folder In folders
|
||||
Dim foldername As String = folder.Name
|
||||
lvfiles.Items.Add(foldername, 0)
|
||||
Next
|
||||
|
||||
For Each file In files
|
||||
Dim filename As String = file.Name
|
||||
Dim fileex As String = file.Extension
|
||||
|
||||
Select Case fileex
|
||||
Case ".txt"
|
||||
filetype = 2
|
||||
Case ".doc"
|
||||
filetype = 2
|
||||
Case ".docx"
|
||||
filetype = 2
|
||||
Case ".lst"
|
||||
filetype = 2
|
||||
Case ".png"
|
||||
filetype = 3
|
||||
Case ".jpg"
|
||||
filetype = 3
|
||||
Case ".jpeg"
|
||||
filetype = 3
|
||||
Case ".bmp"
|
||||
filetype = 3
|
||||
Case ".gif"
|
||||
filetype = 3
|
||||
Case ".avi"
|
||||
filetype = 4
|
||||
Case ".m4v"
|
||||
filetype = 4
|
||||
Case ".mp4"
|
||||
filetype = 4
|
||||
Case ".wmv"
|
||||
filetype = 4
|
||||
Case ".dll"
|
||||
filetype = 6
|
||||
Case ".exe"
|
||||
filetype = 7
|
||||
Case ".sft"
|
||||
filetype = 8
|
||||
Case ".dri"
|
||||
filetype = 9
|
||||
Case ".pic"
|
||||
filetype = 3
|
||||
Case ".skn"
|
||||
filetype = 10
|
||||
Case ".nls"
|
||||
filetype = 11
|
||||
Case ".icp"
|
||||
filetype = 12
|
||||
Case Else
|
||||
filetype = 1
|
||||
End Select
|
||||
|
||||
Select Case savingprogram
|
||||
Case "textpad"
|
||||
If fileex = ".txt" Then lvfiles.Items.Add(filename, filetype)
|
||||
Case "skinloader"
|
||||
If fileex = ".skn" Then lvfiles.Items.Add(filename, filetype)
|
||||
Case "artpad"
|
||||
If fileex = ".pic" Then lvfiles.Items.Add(filename, filetype)
|
||||
Case "namechanger"
|
||||
If fileex = ".nls" Then lvfiles.Items.Add(filename, filetype)
|
||||
End Select
|
||||
Next
|
||||
|
||||
ShiftOSDesktop.fileopenerlastdirectory = lbllocation.Text
|
||||
End Sub
|
||||
|
||||
Private Sub lvfiles_MouseClick(sender As Object, e As MouseEventArgs) Handles lvfiles.MouseClick
|
||||
'need to remove the file extention!
|
||||
If lvfiles.SelectedItems(0).Text.Contains(".") Then
|
||||
txtfilename.Text = lvfiles.SelectedItems(0).Text.Substring(0, lvfiles.SelectedItems(0).Text.Length - 4)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick
|
||||
If lvfiles.SelectedItems(0).Text.Contains(".") Then
|
||||
savefile()
|
||||
Else
|
||||
If lvfiles.SelectedItems(0).Text = "Exit Folder" Then
|
||||
If lbllocation.Text = "C:/ShiftOS/" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)"
|
||||
infobox.Show()
|
||||
Else
|
||||
Dim endloop As Boolean = False
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
|
||||
While endloop = False
|
||||
If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
|
||||
endloop = True
|
||||
Else
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
End If
|
||||
End While
|
||||
showcontents()
|
||||
End If
|
||||
Else
|
||||
'Check if selected item is a file or folder. It it's a folder check its extension
|
||||
Dim textboxtext As String
|
||||
textboxtext = lbllocation.Text
|
||||
Dim last As String
|
||||
Dim selit As String
|
||||
last = textboxtext.Substring(textboxtext.Length - 1)
|
||||
If last = "/" Then
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + selit
|
||||
Else
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + ("/" & selit)
|
||||
End If
|
||||
|
||||
showcontents()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btndeletefile_Click(sender As Object, e As EventArgs)
|
||||
If lvfiles.SelectedItems(0).Text Like "*.*" Then
|
||||
My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
Else
|
||||
My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnnewfolder_Click(sender As Object, e As EventArgs)
|
||||
infobox.lblintructtext.Text = "Please enter a name for your new folder:"
|
||||
infobox.txtuserinput.Text = ""
|
||||
infobox.lblintructtext.Show()
|
||||
infobox.txtuserinput.Show()
|
||||
infobox.Show()
|
||||
scaninput.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub scaninput_Tick(sender As Object, e As EventArgs) Handles scaninput.Tick
|
||||
If infobox.Visible = False Then
|
||||
My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text)
|
||||
showcontents()
|
||||
scaninput.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
|
||||
savefile()
|
||||
End Sub
|
||||
|
||||
Private Sub savefile()
|
||||
If txtfilename.Text = "" Then
|
||||
Else
|
||||
Select Case savingprogram
|
||||
Case "textpad"
|
||||
My.Computer.FileSystem.WriteAllText(lbllocation.Text & "/" & txtfilename.Text & saveextention, TextPad.txtuserinput.Text, False)
|
||||
TextPad.needtosave = False
|
||||
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + TextPad.codepointsearned
|
||||
If ShiftOSDesktop.boughttitletext = True Then
|
||||
TextPad.lbtitletext.Text = TextPad.lbtitletext.Text & " - You earned " & TextPad.codepointsearned & " codepoints!"
|
||||
TextPad.setuptitlebar()
|
||||
Else
|
||||
infobox.title = "Textpad - " & TextPad.codepointsearned & " codepoints!"
|
||||
infobox.textinfo = "Awesome! That document you just created with Textpad has earned you " & TextPad.codepointsearned & " codepoints! " & Environment.NewLine & Environment.NewLine & "Keep those docs coming for even more codepoints!"
|
||||
infobox.Show()
|
||||
End If
|
||||
TextPad.codepointsearned = 0
|
||||
TextPad.tmrshowearnedcodepoints.Start()
|
||||
Case "skinloader"
|
||||
System.IO.Compression.ZipFile.CreateFromDirectory("C:\ShiftOS\Shiftum42\Skins\Current\", lbllocation.Text & " / " & txtfilename.Text & saveextention)
|
||||
Icon_Manager.unsavedchanges = False
|
||||
Case "iconmanager"
|
||||
System.IO.Compression.ZipFile.CreateFromDirectory("C:\ShiftOS\Shiftum42\Icons", lbllocation.Text & " / " & txtfilename.Text & saveextention)
|
||||
Icon_Manager.unsavedchanges = False
|
||||
Case "namechanger"
|
||||
IO.File.WriteAllLines(lbllocation.Text & "/" & txtfilename.Text & saveextention, Name_Changer.savelines)
|
||||
Case "artpad"
|
||||
ArtPad.savelocation = lbllocation.Text & "/" & txtfilename.Text & saveextention
|
||||
ArtPad.saveimage()
|
||||
ArtPad.needtosave = False
|
||||
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + ArtPad.codepointsearned
|
||||
If ShiftOSDesktop.boughttitletext = True Then
|
||||
ArtPad.lbtitletext.Text = ArtPad.lbtitletext.Text & " - You earned " & ArtPad.codepointsearned & " codepoints!"
|
||||
ArtPad.setuptitlebar()
|
||||
Else
|
||||
infobox.title = "Artpad - " & ArtPad.codepointsearned & " codepoints!"
|
||||
infobox.textinfo = "Awesome! That picture you just created with Artpad has earned you " & ArtPad.codepointsearned & " codepoints! " & Environment.NewLine & Environment.NewLine & "Keep those artworks coming for even more codepoints!"
|
||||
infobox.Show()
|
||||
End If
|
||||
ArtPad.codepointsearned = 0
|
||||
ArtPad.tmrshowearnedcodepoints.Start()
|
||||
End Select
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
406
File Skimmer.Designer.vb
generated
Normal file
406
File Skimmer.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,406 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class File_Skimmer
|
||||
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(File_Skimmer))
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.lvfiles = New System.Windows.Forms.ListView()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.pnlbreak = New System.Windows.Forms.Panel()
|
||||
Me.pnloptions = New System.Windows.Forms.Panel()
|
||||
Me.btndeletefile = New System.Windows.Forms.Button()
|
||||
Me.btnnewfolder = New System.Windows.Forms.Button()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lbllocation = New System.Windows.Forms.Label()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.fileactions = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullside = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnloptions.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.fileactions.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.lvfiles)
|
||||
Me.pgcontents.Controls.Add(Me.pnlbreak)
|
||||
Me.pgcontents.Controls.Add(Me.pnloptions)
|
||||
Me.pgcontents.Controls.Add(Me.Panel2)
|
||||
Me.pgcontents.Controls.Add(Me.Panel1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(596, 345)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'lvfiles
|
||||
'
|
||||
Me.lvfiles.BackColor = System.Drawing.Color.White
|
||||
Me.lvfiles.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lvfiles.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lvfiles.LargeImageList = Me.ImageList1
|
||||
Me.lvfiles.Location = New System.Drawing.Point(0, 33)
|
||||
Me.lvfiles.Name = "lvfiles"
|
||||
Me.lvfiles.Size = New System.Drawing.Size(596, 259)
|
||||
Me.lvfiles.TabIndex = 3
|
||||
Me.lvfiles.UseCompatibleStateImageBehavior = False
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "folder.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "unknown.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "textfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "imagefile.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "videofile.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "folderup.png")
|
||||
Me.ImageList1.Images.SetKeyName(6, "philips dll.png")
|
||||
Me.ImageList1.Images.SetKeyName(7, "philips exe.png")
|
||||
Me.ImageList1.Images.SetKeyName(8, "config.png")
|
||||
Me.ImageList1.Images.SetKeyName(9, "driver.png")
|
||||
Me.ImageList1.Images.SetKeyName(10, "skinfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(11, "namelistfile.png")
|
||||
Me.ImageList1.Images.SetKeyName(12, "iconpackfile.png")
|
||||
'
|
||||
'pnlbreak
|
||||
'
|
||||
Me.pnlbreak.BackColor = System.Drawing.Color.White
|
||||
Me.pnlbreak.BackgroundImage = Global.ShiftOS.My.Resources.Resources.uparrow
|
||||
Me.pnlbreak.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.pnlbreak.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnlbreak.ForeColor = System.Drawing.Color.Black
|
||||
Me.pnlbreak.Location = New System.Drawing.Point(0, 292)
|
||||
Me.pnlbreak.Name = "pnlbreak"
|
||||
Me.pnlbreak.Size = New System.Drawing.Size(596, 15)
|
||||
Me.pnlbreak.TabIndex = 7
|
||||
'
|
||||
'pnloptions
|
||||
'
|
||||
Me.pnloptions.Controls.Add(Me.btndeletefile)
|
||||
Me.pnloptions.Controls.Add(Me.btnnewfolder)
|
||||
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pnloptions.Location = New System.Drawing.Point(0, 307)
|
||||
Me.pnloptions.Name = "pnloptions"
|
||||
Me.pnloptions.Size = New System.Drawing.Size(596, 38)
|
||||
Me.pnloptions.TabIndex = 6
|
||||
Me.pnloptions.Visible = False
|
||||
'
|
||||
'btndeletefile
|
||||
'
|
||||
Me.btndeletefile.BackColor = System.Drawing.Color.White
|
||||
Me.btndeletefile.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btndeletefile.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btndeletefile.Image = Global.ShiftOS.My.Resources.Resources.deletefolder
|
||||
Me.btndeletefile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btndeletefile.Location = New System.Drawing.Point(129, 4)
|
||||
Me.btndeletefile.Name = "btndeletefile"
|
||||
Me.btndeletefile.Size = New System.Drawing.Size(130, 31)
|
||||
Me.btndeletefile.TabIndex = 4
|
||||
Me.btndeletefile.Text = "Delete Folder"
|
||||
Me.btndeletefile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btndeletefile.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnnewfolder
|
||||
'
|
||||
Me.btnnewfolder.BackColor = System.Drawing.Color.White
|
||||
Me.btnnewfolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnnewfolder.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnnewfolder.Image = Global.ShiftOS.My.Resources.Resources.newfolder
|
||||
Me.btnnewfolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnnewfolder.Location = New System.Drawing.Point(6, 4)
|
||||
Me.btnnewfolder.Name = "btnnewfolder"
|
||||
Me.btnnewfolder.Size = New System.Drawing.Size(117, 31)
|
||||
Me.btnnewfolder.TabIndex = 3
|
||||
Me.btnnewfolder.Text = "New Folder"
|
||||
Me.btnnewfolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnnewfolder.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.Black
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 31)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(596, 2)
|
||||
Me.Panel2.TabIndex = 5
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.Controls.Add(Me.lbllocation)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(596, 31)
|
||||
Me.Panel1.TabIndex = 4
|
||||
'
|
||||
'lbllocation
|
||||
'
|
||||
Me.lbllocation.BackColor = System.Drawing.Color.White
|
||||
Me.lbllocation.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbllocation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbllocation.ForeColor = System.Drawing.Color.Black
|
||||
Me.lbllocation.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbllocation.Name = "lbllocation"
|
||||
Me.lbllocation.Size = New System.Drawing.Size(596, 31)
|
||||
Me.lbllocation.TabIndex = 0
|
||||
Me.lbllocation.Text = "C:/ShiftOS/"
|
||||
Me.lbllocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(598, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 347)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 345)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(600, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 3)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconFileSkimmer
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(121, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "File Skimmer"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(598, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 375)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(596, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'fileactions
|
||||
'
|
||||
Me.fileactions.BackColor = System.Drawing.Color.Black
|
||||
Me.fileactions.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.fileactions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeleteToolStripMenuItem})
|
||||
Me.fileactions.Name = "fileactions"
|
||||
Me.fileactions.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
|
||||
Me.fileactions.Size = New System.Drawing.Size(108, 26)
|
||||
'
|
||||
'DeleteToolStripMenuItem
|
||||
'
|
||||
Me.DeleteToolStripMenuItem.BackColor = System.Drawing.Color.Black
|
||||
Me.DeleteToolStripMenuItem.ForeColor = System.Drawing.Color.White
|
||||
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
|
||||
Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(107, 22)
|
||||
Me.DeleteToolStripMenuItem.Text = "Delete"
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
'
|
||||
'pullbottom
|
||||
'
|
||||
Me.pullbottom.Interval = 1
|
||||
'
|
||||
'pullside
|
||||
'
|
||||
Me.pullside.Interval = 1
|
||||
'
|
||||
'File_Skimmer
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(600, 377)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MinimumSize = New System.Drawing.Size(400, 177)
|
||||
Me.Name = "File_Skimmer"
|
||||
Me.Text = "File_Skimmer"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnloptions.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.fileactions.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents lvfiles As System.Windows.Forms.ListView
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents fileactions As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents lbllocation As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnloptions As System.Windows.Forms.Panel
|
||||
Friend WithEvents btnnewfolder As System.Windows.Forms.Button
|
||||
Friend WithEvents pnlbreak As System.Windows.Forms.Panel
|
||||
Friend WithEvents btndeletefile As System.Windows.Forms.Button
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pullbs As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullbottom As System.Windows.Forms.Timer
|
||||
Friend WithEvents pullside As System.Windows.Forms.Timer
|
||||
End Class
|
||||
322
File Skimmer.resx
Normal file
322
File Skimmer.resx
Normal file
|
|
@ -0,0 +1,322 @@
|
|||
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>28, 12</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAU
|
||||
KgAAAk1TRnQBSQFMAgEBDQEAASABAQEgAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABqAMAAagDAAEBAQABCAUAAUABbhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
|
||||
AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
|
||||
AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
|
||||
AwABZgMAAZkDAAHMAgABMwMAAjMCAAEzAWYCAAEzAZkCAAEzAcwCAAEzAf8CAAFmAwABZgEzAgACZgIA
|
||||
AWYBmQIAAWYBzAIAAWYB/wIAAZkDAAGZATMCAAGZAWYCAAKZAgABmQHMAgABmQH/AgABzAMAAcwBMwIA
|
||||
AcwBZgIAAcwBmQIAAswCAAHMAf8CAAH/AWYCAAH/AZkCAAH/AcwBAAEzAf8CAAH/AQABMwEAATMBAAFm
|
||||
AQABMwEAAZkBAAEzAQABzAEAATMBAAH/AQAB/wEzAgADMwEAAjMBZgEAAjMBmQEAAjMBzAEAAjMB/wEA
|
||||
ATMBZgIAATMBZgEzAQABMwJmAQABMwFmAZkBAAEzAWYBzAEAATMBZgH/AQABMwGZAgABMwGZATMBAAEz
|
||||
AZkBZgEAATMCmQEAATMBmQHMAQABMwGZAf8BAAEzAcwCAAEzAcwBMwEAATMBzAFmAQABMwHMAZkBAAEz
|
||||
AswBAAEzAcwB/wEAATMB/wEzAQABMwH/AWYBAAEzAf8BmQEAATMB/wHMAQABMwL/AQABZgMAAWYBAAEz
|
||||
AQABZgEAAWYBAAFmAQABmQEAAWYBAAHMAQABZgEAAf8BAAFmATMCAAFmAjMBAAFmATMBZgEAAWYBMwGZ
|
||||
AQABZgEzAcwBAAFmATMB/wEAAmYCAAJmATMBAANmAQACZgGZAQACZgHMAQABZgGZAgABZgGZATMBAAFm
|
||||
AZkBZgEAAWYCmQEAAWYBmQHMAQABZgGZAf8BAAFmAcwCAAFmAcwBMwEAAWYBzAGZAQABZgLMAQABZgHM
|
||||
Af8BAAFmAf8CAAFmAf8BMwEAAWYB/wGZAQABZgH/AcwBAAHMAQAB/wEAAf8BAAHMAQACmQIAAZkBMwGZ
|
||||
AQABmQEAAZkBAAGZAQABzAEAAZkDAAGZAjMBAAGZAQABZgEAAZkBMwHMAQABmQEAAf8BAAGZAWYCAAGZ
|
||||
AWYBMwEAAZkBMwFmAQABmQFmAZkBAAGZAWYBzAEAAZkBMwH/AQACmQEzAQACmQFmAQADmQEAApkBzAEA
|
||||
ApkB/wEAAZkBzAIAAZkBzAEzAQABZgHMAWYBAAGZAcwBmQEAAZkCzAEAAZkBzAH/AQABmQH/AgABmQH/
|
||||
ATMBAAGZAcwBZgEAAZkB/wGZAQABmQH/AcwBAAGZAv8BAAHMAwABmQEAATMBAAHMAQABZgEAAcwBAAGZ
|
||||
AQABzAEAAcwBAAGZATMCAAHMAjMBAAHMATMBZgEAAcwBMwGZAQABzAEzAcwBAAHMATMB/wEAAcwBZgIA
|
||||
AcwBZgEzAQABmQJmAQABzAFmAZkBAAHMAWYBzAEAAZkBZgH/AQABzAGZAgABzAGZATMBAAHMAZkBZgEA
|
||||
AcwCmQEAAcwBmQHMAQABzAGZAf8BAALMAgACzAEzAQACzAFmAQACzAGZAQADzAEAAswB/wEAAcwB/wIA
|
||||
AcwB/wEzAQABmQH/AWYBAAHMAf8BmQEAAcwB/wHMAQABzAL/AQABzAEAATMBAAH/AQABZgEAAf8BAAGZ
|
||||
AQABzAEzAgAB/wIzAQAB/wEzAWYBAAH/ATMBmQEAAf8BMwHMAQAB/wEzAf8BAAH/AWYCAAH/AWYBMwEA
|
||||
AcwCZgEAAf8BZgGZAQAB/wFmAcwBAAHMAWYB/wEAAf8BmQIAAf8BmQEzAQAB/wGZAWYBAAH/ApkBAAH/
|
||||
AZkBzAEAAf8BmQH/AQAB/wHMAgAB/wHMATMBAAH/AcwBZgEAAf8BzAGZAQAB/wLMAQAB/wHMAf8BAAL/
|
||||
ATMBAAHMAf8BZgEAAv8BmQEAAv8BzAEAAmYB/wEAAWYB/wFmAQABZgL/AQAB/wJmAQAB/wFmAf8BAAL/
|
||||
AWYBAAEhAQABpQEAA18BAAN3AQADhgEAA5YBAAPLAQADsgEAA9cBAAPdAQAD4wEAA+oBAAPxAQAD+AEA
|
||||
AfAB+wH/AQABpAKgAQADgAMAAf8CAAH/AwAC/wEAAf8DAAH/AQAB/wEAAv8CAAP//wD/AKQAKP+AACj/
|
||||
gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAC/wvsA/8BAATs
|
||||
AQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAD/wvsA/8BAALs
|
||||
AQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP+AAAP/C+wE/wIABv8CAAb/
|
||||
AgAE/4AAEf8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AAAL/C+wD/wEABOwBAAL/AQAE7AEAAv8BAATs
|
||||
AQAC/4AAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALs
|
||||
AQAD/4AAEv8CAAb/AgAG/wIABP+AACj/gAAo/4AAA/8L7AT/AgAG/wIABv8CAAT/gAAR/wEAAuwBAAT/
|
||||
AQAC7AEABP8BAALsAQAD/4AAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/gAAQ/wEABOwBAAL/
|
||||
AQAE7AEAAv8BAATsAQAC/4AAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/gAAS/wIABv8CAAb/
|
||||
AgAE/4AAKP+AACj/gAAD/wvsBP8CAAb/AgAG/wIABP+AABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/
|
||||
gAAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv+AABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/
|
||||
gAAD/wvsA/8BAALsAQAE/wEAAuwBAAT/AQAC7AEAA/+AABL/AgAG/wIABv8CAAT/gAAo/4AAKP//AP8A
|
||||
/wDPACH/CQAh/zMAIf8JAAX/CuwS/wkAIf8zACH/CQAE/wzsEf8JACH/MwAh/wkAA/8D7AgAA+wQ/wkA
|
||||
A/8bAAP/MwAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8BAAPsD/8JAAP/AQAZ7AEAA/8zAA//AewN/wHs
|
||||
A/8JAAH/A+wBAAH/CAAB/wEAA+wO/wkAA/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAH/AuwBAAH/
|
||||
AgAB/wQAAf8CAAH/AQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAKP8GAA//D+wD/wkAAf8C7AMAAf8GAAH/
|
||||
AwAC7A7/CQAD/wEAGewBAAP/BQAo/wYAIf8JAAH/AuwFAAH/AgAB/wUAAuwO/wkAA/8BAALsFf8C7AEA
|
||||
A/8FAAL/JAAC/wYABP8H7AT/D+wD/wkAAf8C7AYAAv8GAAvsBf8JAAP/AQAZ7AEAA/8FAAL/JAAC/wYA
|
||||
D/8B7A3/AewD/wkAAf8C7AUAAf8CAAH/BQAM7AT/CQAD/wEAAuwV/wLsAQAD/wUAAv8OAAb/AQAG/wEA
|
||||
Bv8CAAL/BgAD/wfsBf8B7A3/AewD/wkAAf8C7AMAAf8GAAH/AgAD7AgAA+wD/wkAA/8BABnsAQAD/wUA
|
||||
Av8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/w/sA/8JAAH/AuwBAAH/AgAB/wQAAf8CAAPs
|
||||
AQAB/wYAAf8BAAPsAv8JAAP/AQAE7BH/BOwBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
|
||||
Av8GACH/CQAB/wPsAQAB/wgAA+wBAAH/CAAB/wEAA+wB/wkAA/8BABnsAQAD/wUAAv8OAAH/BAAB/wEA
|
||||
Af8EAAH/AQAB/wQAAf8CAAL/BgAE/wfsBP8P7AP/CQAC/wPsAQAB/wYAAf8C7AEAAf8CAAH/BAAB/wIA
|
||||
Af8BAALsAf8JAAP/AQAZ7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAD/8B7A3/
|
||||
AewD/wkAA/8D7AgAAuwDAAH/BgAB/wMAAuwB/wkAA/8bAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/
|
||||
B+wF/wHsDf8B7AP/CQAE/wzsBQAB/wIAAf8FAALsAf8JAA7/BQAO/wUAAv8kAAL/BgAP/w/sA/8JAAX/
|
||||
C+wGAAL/BgAC7AH/CQAP/wPsD/8FAAL/JAAC/wYAIf8JAA7/AuwFAAH/AgAB/wUAAuwB/wkAIf8FACj/
|
||||
BgAE/wfsBP8P7AP/CQAO/wLsAwAB/wYAAf8DAALsAf8JAAP/CwAF/wsAA/8FACj/BgAP/wHsDf8B7AP/
|
||||
CQAO/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BAAvsA/8L7AEAA/8FACj/BgAD/wfsBf8B7A3/
|
||||
AewD/wkADv8D7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAo/wYAD/8P7AP/CQAJ/wnsAQAB/wYA
|
||||
Af8BAAPsAv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAIf8JAAj/C+wIAAPsA/8JAAP/AQAE7BH/BOwBAAP/
|
||||
BQAC/yTsAv8GAAT/B+wE/w/sA/8JAAf/A+wHAAzsBP8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHsBgAB7AYA
|
||||
AuwC/wYAD/8B7A3/AewD/wkABv8D7AEAAf8GAAH/CuwF/wkAA/8BAALsFf8C7AEAA/8FAAL/DuwGAAHs
|
||||
BgAB7AYAAuwC/wYAA/8H7AX/AewN/wHsA/8JAAX/A+wBAAH/CAAB/wEAA+wK/wkAA/8BABnsAQAD/wUA
|
||||
Av8O7AYAAewGAAHsBgAC7AL/BgAP/w/sA/8JAAX/AuwBAAH/AgAB/wQAAf8CAAH/AQAC7Ar/CQAD/wEA
|
||||
AuwVAALsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAh/wkABf8C7AMAAf8GAAH/AwAC7Ar/CQAD/wEA
|
||||
GewBAAP/BQAC/w7sBgAB7AYAAewGAALsAv8GAAT/B+wE/w/sA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/DuwGAAHsBgAB7AYAAuwC/wYAD/8B7A3/AewD/wkABf8C7AYAAv8GAALs
|
||||
Cv8JAAP/AQAZ7AEAA/8FAAL/JOwC/wYAA/8H7AX/AewN/wHsA/8JAAX/AuwFAAH/AgAB/wUAAuwK/wkA
|
||||
A/8BAALsFQAC7AEAA/8FAAL/JOwC/wYAD/8P7AP/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEA
|
||||
A/8FACj/BgAh/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAo/wYA
|
||||
BP8H7AT/D+wD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/MwAP/wHsDf8B7AP/CQAG/wPs
|
||||
AQAB/wYAAf8BAAPsC/8JAAP/AQAZ7AEAA/8zAAP/B+wF/wHsDf8B7AP/CQAH/wPsCAAD7Az/CQAD/xsA
|
||||
A/8zAA//D+wD/wkACP8M7A3/CQAh/zMAIf8JAAn/CuwO/wkAIf8zACH/CQAh/wkAIf8zACH//wCsAAH0
|
||||
Ie8BBwHyAf8FAAH0Ie8BBwHyAf9ZAAHyAQABQx4VARABEQG8AfQFAAHyFQAGDgYAAREBvAH0WQAB8gEO
|
||||
AfcevAHsARUBvAH0BQAB8hQAAQ4BFQEUAhMBFAERAQ4EAAEOARUBvAH0LQAo7AQAAfIBDgH3HrwB7AEV
|
||||
AbwB9AUAAfIUAAFDAfcBBwLvAfcBbQEQBAABDgEVAbwB9C0AD+wKAA/sBAAB8gEOAfcevAHsARUBvAH0
|
||||
BQAB8hQAAUMBBwHvAewBEgETAUMBDgQAAQ4BFQG8AfQtAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AfcU7AHv
|
||||
BLwB7AEVAbwB9AUAAfIDAAEODEMBEAMAAUMBBwHtARUIAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQA
|
||||
AfIBDgH3BLwBExEOAwAB7AS8AewBFQG8AfQFAAHyAwABEQzsAW0DAAFDAQcBkgETAQ8BDgYAAQ4BFQG8
|
||||
AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETARQP7wETAwAB7AS8AewBFQG8AfQFAAHyBAABDgEQ
|
||||
CREBEAEOAwABQwEHAvIB8QEHARAFAAEOARUBvAH0AwAo/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8
|
||||
AeoDAAHsBLwB7AEVAbwB9AUAAfIEAAEOAesJ7AEVBAABQwEHAe8B7AFtAeoBDgUAAQ4BFQG8AfQDACj/
|
||||
AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITDrwB7AFDAwABEwGSA7wB7AEVAbwB9AUAAfIEAAEOAe8CvAEH
|
||||
BewB9wHqBAABQwEHAZIBEwIPAQ4FAAEOARUBvAH0AwAP/wEAGP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8
|
||||
AhMNvAEHARUBDgMAAQ4B6gO8AewBFQG8AfQFAAHyBAABDgHvArwB7wIOAg8BAAHsAeoEAAFDAQcB7wHr
|
||||
ARIBEwEQAQ4EAAEOARUBvAH0AwAP/wIAF/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMOvAEHARIDAAHr
|
||||
AQcDvAHsARUBvAH0BQAB8gQAAQ4B7wK8Ae8BDgHsAQcB7QEOAewB6gQAAREBkgHvAQcC7wEUAQ4EAAEO
|
||||
ARUBvAH0AwAP/wMAFv8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMPvAH3AeoBDgHrAe8EvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wHsARQBFQEAAREBFAFDAQAB7AHqBAABDgFDARUCFAEVAQ8FAAEOARUBvAH0AwAP/wQA
|
||||
Ff8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAHsAesB7Ae8AfcBbQEHBbwB7AEVAbwB9AUAAfIEAAEO
|
||||
Ae8BEwEQAuoBDwEQAuoBkgHqEAABDgEVAbwB9AMAD/8FABT/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAIT
|
||||
BrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B7wETARUC9wEVARICvAEHAeoCAAEODA8BDgEAAUMBvAH0
|
||||
AwAP/wYAE/8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8AfQFAAHyBAABDgHv
|
||||
ARMBAAIOAQABEgK8AQcB6gIAAesM7QFDAQABEQG8AfQDAA//BwAS/wIAD+wBAAj/AQAP7AQAAfIBDgH3
|
||||
BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAu8E7QHvArwBBwHqAgABEAFDChUBEQEOAQABEQG8
|
||||
AfQDAA//CAAR/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEO
|
||||
AeoJbQFDAwABFQltARIBDgIAAREBvAH0AwAP/wkAEP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMBBwH3
|
||||
BJIBEQEAARAFkgH3AQcIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAA/s
|
||||
AQAI/wEAD+wEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAER
|
||||
AbwB9AMAD/8KAA//AgAK7AYACP8HAAnsBAAB8gEOAfcEvAITAe8BDgwAAREB7Ai8AewBFQG8AfQFAAHy
|
||||
EwABbQH3BkMB7QEHAZIBDgIAAREBvAH0AwAP/wkAEP8CAArsAQAT/wEACewEAAHyAQ4B9wS8AhMB7wEO
|
||||
DAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAe8GbQH3AQcBkgEOAgABEQG8AfQDAA//CAAR/wIAC+wBABH/
|
||||
AQAK7AQAAfIBDgH3AbwBBwLtAkMB7AEODAABDwFtBO0B9wO8AewBFQG8AfQFAAHyEwABbQi8AQcBkgEO
|
||||
AgABEQG8AfQDAA//BwAS/wIADOwBAA//AQAL7AQAAfIBDgH3AbwB7BgAARMDvAHsARUBvAH0BQAB8gQA
|
||||
DA4DAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8GABP/AgAN7AEADf8BAAzsBAAB8gEOAfcBvAHsGAABEwO8
|
||||
AewBFQG8AfQFAAHyAwABEQzsAeoCAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8FABT/AgAO7AEAC/8BAA3s
|
||||
BAAB8gEOAfcBvAHvBOsBbQEODAABDwETBOsB7QO8AewBFQG8AfQFAAHyAwABDgEUCxMBQwIAAW0IvAEH
|
||||
AZIBDgIAAUMBvAH0AwAP/wQAFf8CAA/sAQAJ/wEADuwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8
|
||||
AfQFAAHyBAABDgEUCBIBEwERAwABFAnsAW0BDgEAAQ4BFQG8AfQDAA//AwAW/wIAEOwBAAf/AQAP7AQA
|
||||
AfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOAe8CBwW8AQcB7wHqEAABDgEVAbwB9AMA
|
||||
D/8CABf/AgAR7AEABf8BABDsBAAB8gEOAfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wFt
|
||||
AeoEvAHvARAB7AHqBgABEAFDAxUBEQEOAwABDgEVAbwB9AMAD/8BABj/AgAS7AEAA/8BABHsBAAB8gEO
|
||||
AfcGvAHvAQ4MAAERAewIvAHsARUBvAH0BQAB8gQAAQ4B7wGSAW0B6gEHAbwB7QESAewB9wHqBgAB6wKS
|
||||
Au0BbQERAwABDgEVAbwB9AMAKP8CABPsAQAB/wEAEuwEAAHyAQ4B9wa8AQcB6gQTAQ4DAAEVAxMBbQH3
|
||||
CLwB7AEVAbwB9AUAAfIEAAEOAe8BvAGSARIC7AJtAgcB6gUAAQ4BkgEHAfcC6wESARADAAEOARUBvAH0
|
||||
AwAo/wIAFOwBABPsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwBBwGSAREBDwHq
|
||||
Ae8BvAEHAeoFAAEOApIB6gcAAQ4BFQG8AfQDACj/AgAo7AQAAfIBDgH3DLwBFQMAAZINvAHsARUBvAH0
|
||||
BQAB8gQAAQ4B7wG8AewBEQHvAQcB6wFDAgcB6gUAAQ4CkgHqBwABDgEVAbwB9AMAKP8CACjsBAAB8gEO
|
||||
AfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAewB6gHtAQcBvAHvAewBFAHtAeoFAAEOAZICvALv
|
||||
ARQEAAEOARUBvAH0WQAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAuwEvAHvAeoBkgHq
|
||||
BQABDgGSAgcC7QEVBAABDgEVAbwB9C0AD+wdAAHyAQ4B9wy8ARIDEAH3DbwB7AEVAbwB9AUAAfIEAAEO
|
||||
AewI9wHtARMFAAEOAZIB9wFtAg4FAAEOARUBvAH0LQAO7B4AAfIBDgH3DLwEBw68AewBFQG8AfQFAAHy
|
||||
BQAKDgYAAQ4BkgHvAewCFQEQAQ4DAAEOARUBvAH0WQAB8gEOAfcevAHsARUBvAH0BQAB8hUAAQ4B7ALv
|
||||
ApIBEgEPBAABEQG8AfRZAAHyAQABEh5tARQBQwG8AfQFAAHyFgABFQHqA20BQwEOBAABEQG8AfRZAAHz
|
||||
IW0B7AHxAfQFAAHzIW0B7AHxAfT/AIIAIf8JACH/XQAh/wkAIf9dACH/CQAh/y8AKOwGACH/CQAE/xrs
|
||||
A/8FACjsAgAo7AYAIf8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYADv8E7A//CQAD/xrs
|
||||
BP8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JACH/BQAo7AIAKOwGACH/CQAE/xrs
|
||||
A/8FACTsBP8CACjsBgAh/wkAIf8FACHsB/8CACjsBgAh/wkAIf8FAAX/GuwJ/wIAKOwGAA7/AZID7A//
|
||||
CQAD/xrsBP8FAAj/FuwF/wHsBP8CACjsBgAO/wGSA+wP/wkAIf8FAA//C+wJ/wLsA/8CACjsBgAO/wGS
|
||||
A+wB8g7/CQAh/wUAHv8B7AX/AewD/wIAKOwGAA7/AQcD7AG8Dv8JAAT/GuwD/wUAHv8C7AT/AuwC/wIA
|
||||
KOwGAA7/AfEE7A7/CQAh/wUAF/8D7AX/AuwE/wHsAv8CACjsBgAP/wTsAe8N/wkAIf8FABn/AuwF/wHs
|
||||
BP8B7AL/AgAo7AYAD/8B8QTsAe8M/wkAA/8a7AT/BQAa/wHsBf8B7AT/AewC/wIAKOwGABD/AbwE7AHv
|
||||
AfQK/wkAIf8FABr/AuwE/wHsBP8C7AH/AgAo7AYAEf8BvATsAe0B9An/CQAh/wUAE/8E7AT/AuwJ/wHs
|
||||
Af8CACjsBgAS/wHwBOwBkgn/CQAE/xrsA/8FABb/AuwF/wHsCv8CACjsBgAT/wHyBOwB7wj/CQAh/wUA
|
||||
F/8B7An/BuwB/wIAKOwGABT/AfIE7AHyB/8JACH/BQAX/wLsBv8J7AIAKOwGABX/AbwD7AHvB/8JAAP/
|
||||
GuwE/wUAEP8B7Af/AuwE/wrsAgAo7AYAFv8E7Af/CQAh/wUAEP8D7Ab/AuwC/wvsAgAo7AYABv8B8wHv
|
||||
AZIB7AHvC/8BkgPsB/8JACH/BQAS/wPsB/8M7AIAKOwGAAb/AfQD7AHtC/8B7QPsB/8JAAT/GuwD/wUA
|
||||
FP8C7Ab/DOwCACjsBgAH/wTsAfIJ/wHzA+wB7Qf/CQAh/wUAFf8C7AT/DewCACjsBgAH/wEHA+wB9wn/
|
||||
AfcD7AHvB/8JACH/BQAN/wTsBf8D7AL/DewCACjsBgAH/wH0BOwB7wf/Ae8E7AHzB/8JAAP/GuwE/wUA
|
||||
EP8C7An/DewCACjsBgAI/wEHBOwBkgHwAfQB/wH0AfABkgTsAQcI/wkAIf8FABH/AewJ/w3sAgAo7AYA
|
||||
Cf8B7w3sAe8J/wkAIf8FABH/COwC/w3sAgAo7AYACv8B8AvsAfAK/wkABP8a7AP/BQAb/w3sMAAL/wH0
|
||||
AbwB9wTsAe0B7wG8DP8JACH/BQAc/wzsAgAP7B8AIf8JACH/BQAc/wzsAgAO7CAAIf8JAAP/GuwE/10A
|
||||
If8JACH/XQAh/wkAIf9dACH/CQAh/9YAAUIBTQE+BwABPgMAASgDAAGoAwABqAMAAQEBAAEBBQABwAEP
|
||||
FgAD/wEABf8BwBIABf8BwBIABf8BwP8A/wD/AHUABf8BwBIABf8BwBIABf8BwBIAAfADAAEBAfwEAAF/
|
||||
Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEB
|
||||
AfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFw
|
||||
BAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMAAfADAAEBAfwEAAFwBAABAwHAAwABBwMA
|
||||
AfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHA
|
||||
AwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQA
|
||||
AX8F/wHAAwABBwMAFf8DAAr/Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMABf8BwAQAAQ4EAAEP
|
||||
AYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
|
||||
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
|
||||
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
|
||||
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
|
||||
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
|
||||
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
|
||||
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
|
||||
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAwMABf8BwAEAAR8C/wH+
|
||||
BAABDwGAAwABAwMABf8BwAEAAT8C/wH+BAABDwGAAwABAwMABf8BwAEAAX8C/wH+BAABDwGAAwABAwMA
|
||||
Cv8B/gQAAQ8BgAMAAQMDAAr/Af4EAAEPAYADAAEDAwAV/wMABf8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/
|
||||
BAABHwX/AwAF/wH8BAABfwQAAR8F/wgAATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0A
|
||||
ATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHA0AATwEAAF/BAABHAoA
|
||||
AX8C/wH8BAABfwQAARwKAAP/AfwEAAF/BAABHAkAAQED/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf
|
||||
Bf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMACw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="fileactions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>138, 12</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1431, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1544, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
661
File Skimmer.vb
Normal file
661
File Skimmer.vb
Normal file
|
|
@ -0,0 +1,661 @@
|
|||
Imports System.IO
|
||||
Public Class File_Skimmer
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 400
|
||||
Public minimumsizeheight As Integer = 177
|
||||
|
||||
Dim itemsdeleted As Integer
|
||||
Dim filetype As Integer
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonfileskimmer.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfileskimmer, ShiftOSDesktop.tbfileskimmericon, ShiftOSDesktop.tbfileskimmertext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
setupoptions()
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(600, 377) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.fileskimmername
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtfileskimmericon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.fileskimmericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
Private Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub showcontents()
|
||||
lvfiles.Items.Clear()
|
||||
|
||||
lvfiles.Items.Add("Exit Folder", 5)
|
||||
|
||||
Dim dir As New DirectoryInfo(lbllocation.Text)
|
||||
Dim files As FileInfo() = dir.GetFiles()
|
||||
Dim file As FileInfo
|
||||
Dim folders As DirectoryInfo() = dir.GetDirectories()
|
||||
Dim folder As DirectoryInfo
|
||||
|
||||
For Each folder In folders
|
||||
Dim foldername As String = folder.Name
|
||||
lvfiles.Items.Add(foldername, 0)
|
||||
Next
|
||||
|
||||
For Each file In files
|
||||
Dim filename As String = file.Name
|
||||
Dim fileex As String = file.Extension
|
||||
|
||||
Select Case fileex
|
||||
Case ".txt"
|
||||
filetype = 2
|
||||
Case ".doc"
|
||||
filetype = 2
|
||||
Case ".docx"
|
||||
filetype = 2
|
||||
Case ".lst"
|
||||
filetype = 2
|
||||
Case ".png"
|
||||
filetype = 3
|
||||
Case ".jpg"
|
||||
filetype = 3
|
||||
Case ".jpeg"
|
||||
filetype = 3
|
||||
Case ".bmp"
|
||||
filetype = 3
|
||||
Case ".gif"
|
||||
filetype = 3
|
||||
Case ".avi"
|
||||
filetype = 4
|
||||
Case ".m4v"
|
||||
filetype = 4
|
||||
Case ".mp4"
|
||||
filetype = 4
|
||||
Case ".wmv"
|
||||
filetype = 4
|
||||
Case ".dll"
|
||||
filetype = 6
|
||||
Case ".exe"
|
||||
filetype = 7
|
||||
Case ".sft"
|
||||
filetype = 8
|
||||
Case ".dri"
|
||||
filetype = 9
|
||||
Case ".pic"
|
||||
filetype = 3
|
||||
Case ".skn"
|
||||
filetype = 10
|
||||
Case ".nls"
|
||||
filetype = 11
|
||||
Case ".icp"
|
||||
filetype = 12
|
||||
Case Else
|
||||
filetype = 1
|
||||
End Select
|
||||
lvfiles.Items.Add(filename, filetype)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub lbfiles_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseDoubleClick
|
||||
|
||||
If lvfiles.SelectedItems(0).Text = "Exit Folder" Then
|
||||
|
||||
If lbllocation.Text = "C:/ShiftOS/" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "You can only enter directories formatted in the ShiftOS file system (ShiftFS)"
|
||||
infobox.Show()
|
||||
Else
|
||||
Dim endloop As Boolean = False
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
|
||||
While endloop = False
|
||||
If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
|
||||
endloop = True
|
||||
Else
|
||||
lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
|
||||
End If
|
||||
End While
|
||||
showcontents()
|
||||
End If
|
||||
Else
|
||||
'Check if selected item is a file or folder. It it's a folder check its extension
|
||||
If lvfiles.SelectedItems(0).Text Like "*.txt" Then
|
||||
If TextPad.needtosave = False Then
|
||||
TextPad.Show()
|
||||
TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
TextPad.needtosave = False
|
||||
Else
|
||||
infobox.title = "Textpad - Save?"
|
||||
infobox.textinfo = "It appears that your text document currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to load a file without saving the changes?"
|
||||
infobox.Show()
|
||||
infobox.showyesno()
|
||||
infobox.sendyesno = "fileskimmertextpad"
|
||||
End If
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.pic" Then
|
||||
If ArtPad.needtosave = False Then
|
||||
ArtPad.Show()
|
||||
ArtPad.savelocation = (lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
ArtPad.openpic()
|
||||
ArtPad.needtosave = False
|
||||
Else
|
||||
infobox.title = "Artpad - Save?"
|
||||
infobox.textinfo = "It appears that your canvas currently contains unsaved changes." & Environment.NewLine & Environment.NewLine & "Are you sure you want to open a different canvas without saving the changes?"
|
||||
infobox.Show()
|
||||
infobox.showyesno()
|
||||
infobox.sendyesno = "fileskimmerartpad"
|
||||
End If
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.sft" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.lst" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.dri" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.lang" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This file appears to be encrypted or may be critical for stable system operation." & Environment.NewLine & Environment.NewLine & "Access to this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.skn" Then
|
||||
Skin_Loader.Show()
|
||||
ShiftOSDesktop.disposeoldskindata("skinloaderemovepreview")
|
||||
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lvfiles.SelectedItems(0).Text, "C:\ShiftOS\Shiftum42\Skins\Preview\")
|
||||
My.Computer.FileSystem.WriteAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False)
|
||||
Skin_Loader.loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Skins\Preview\skindata.dat")
|
||||
Skin_Loader.loadskintopreview()
|
||||
Skin_Loader.skinloaded = True
|
||||
Else
|
||||
Dim textboxtext As String
|
||||
textboxtext = lbllocation.Text
|
||||
Dim last As String
|
||||
Dim selit As String
|
||||
last = textboxtext.Substring(textboxtext.Length - 1)
|
||||
If last = "/" Then
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + selit
|
||||
Else
|
||||
selit = lvfiles.SelectedItems(0).Text
|
||||
lbllocation.Text = lbllocation.Text + ("/" & selit)
|
||||
End If
|
||||
showcontents()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub lbfiles_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvfiles.MouseClick
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
fileactions.Show(MousePosition)
|
||||
Else
|
||||
If lvfiles.SelectedItems(0).Text Like "*.*" Then
|
||||
btndeletefile.Text = "Delete File"
|
||||
btndeletefile.Image = My.Resources.deletefile
|
||||
btndeletefile.Size = New Size(117, 31)
|
||||
Else
|
||||
btndeletefile.Text = "Delete Folder"
|
||||
btndeletefile.Image = My.Resources.deletefolder
|
||||
btndeletefile.Size = New Size(130, 31)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pnlbreak_MouseEnter(sender As Object, e As EventArgs) Handles pnlbreak.Click
|
||||
If pnloptions.Visible = False Then
|
||||
pnlbreak.BackgroundImage = My.Resources.downarrow
|
||||
pnloptions.Show()
|
||||
Else
|
||||
pnlbreak.BackgroundImage = My.Resources.uparrow
|
||||
pnloptions.Hide()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btndeletefile_Click(sender As Object, e As EventArgs) Handles btndeletefile.Click
|
||||
If lvfiles.SelectedItems.Count > 0 Then
|
||||
If lvfiles.SelectedItems(0).Text Like "*.*" Then
|
||||
If lvfiles.SelectedItems(0).Text Like "*.dri*" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.sft*" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.lst*" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
ElseIf lvfiles.SelectedItems(0).Text Like "*.lang*" Then
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This system file is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this file has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
Else
|
||||
My.Computer.FileSystem.DeleteFile(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
End If
|
||||
Else
|
||||
Select Case lvfiles.SelectedItems(0).Text
|
||||
Case "Shiftum42", "SoftwareData", "Drivers", "Languages", "KnowledgeInput"
|
||||
infobox.title = "File Skimmer - Warning!"
|
||||
infobox.textinfo = "This system folder is protected and cannot be deleted." & Environment.NewLine & Environment.NewLine & "Permission to delete this folder has been blocked to protect the system from potential damage."
|
||||
infobox.Show()
|
||||
Case Else
|
||||
My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
showcontents()
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnnewfolder_Click(sender As Object, e As EventArgs) Handles btnnewfolder.Click
|
||||
infobox.lblintructtext.Text = "Please enter a name for your new folder:"
|
||||
infobox.txtuserinput.Text = ""
|
||||
infobox.lblintructtext.Show()
|
||||
infobox.txtuserinput.Show()
|
||||
infobox.title = "New Folder"
|
||||
infobox.Show()
|
||||
infobox.state = "makingfolder"
|
||||
End Sub
|
||||
|
||||
Public Sub makefolder()
|
||||
My.Computer.FileSystem.CreateDirectory(lbllocation.Text & "/" & infobox.txtuserinput.Text)
|
||||
showcontents()
|
||||
infobox.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub setupoptions()
|
||||
If ShiftOSDesktop.boughtfileskimmernewfolder = True Then btnnewfolder.Show() Else btnnewfolder.Hide()
|
||||
If ShiftOSDesktop.boughtfileskimmerdelete = True Then btndeletefile.Show() Else btndeletefile.Hide()
|
||||
If ShiftOSDesktop.boughtfileskimmernewfolder = False AndAlso ShiftOSDesktop.boughtfileskimmerdelete = False Then pnlbreak.Hide()
|
||||
End Sub
|
||||
|
||||
Private Sub lvfiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lvfiles.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
55
File_Crypt.vb
Normal file
55
File_Crypt.vb
Normal file
|
|
@ -0,0 +1,55 @@
|
|||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Security
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
Public Class File_Crypt
|
||||
Public Const sSecretKey As String = "Password"
|
||||
|
||||
Public Shared Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
|
||||
|
||||
Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
|
||||
Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)
|
||||
|
||||
Dim DES As New DESCryptoServiceProvider()
|
||||
|
||||
|
||||
DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
|
||||
|
||||
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
|
||||
|
||||
Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
|
||||
|
||||
Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)
|
||||
|
||||
Dim bytearrayinput(fsInput.Length - 1) As Byte
|
||||
fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
|
||||
cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
|
||||
cryptostream.Dispose()
|
||||
fsInput.Dispose()
|
||||
fsEncrypted.Dispose()
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
|
||||
|
||||
Dim DES As New DESCryptoServiceProvider()
|
||||
|
||||
|
||||
DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
|
||||
|
||||
DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
|
||||
|
||||
Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
|
||||
|
||||
Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
|
||||
|
||||
Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
|
||||
|
||||
Dim fsDecrypted As New StreamWriter(sOutputFilename)
|
||||
fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
|
||||
fsDecrypted.Flush()
|
||||
fsread.Dispose()
|
||||
fsDecrypted.Dispose()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
553
Graphic Picker.Designer.vb
generated
Normal file
553
Graphic Picker.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,553 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Graphic_Picker
|
||||
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.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.btncancel = New System.Windows.Forms.Button()
|
||||
Me.btnreset = New System.Windows.Forms.Button()
|
||||
Me.btnapply = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.btnmousedownbrowse = New System.Windows.Forms.Button()
|
||||
Me.txtmousedownfile = New System.Windows.Forms.TextBox()
|
||||
Me.picmousedown = New System.Windows.Forms.PictureBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.btnmouseoverbrowse = New System.Windows.Forms.Button()
|
||||
Me.txtmouseoverfile = New System.Windows.Forms.TextBox()
|
||||
Me.picmouseover = New System.Windows.Forms.PictureBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnidlebrowse = New System.Windows.Forms.Button()
|
||||
Me.txtidlefile = New System.Windows.Forms.TextBox()
|
||||
Me.picidle = New System.Windows.Forms.PictureBox()
|
||||
Me.btnzoom = New System.Windows.Forms.Button()
|
||||
Me.btnstretch = New System.Windows.Forms.Button()
|
||||
Me.btncentre = New System.Windows.Forms.Button()
|
||||
Me.btntile = New System.Windows.Forms.Button()
|
||||
Me.pnlgraphicholder = New System.Windows.Forms.Panel()
|
||||
Me.picgraphic = New System.Windows.Forms.PictureBox()
|
||||
Me.lblobjecttoskin = New System.Windows.Forms.Label()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
CType(Me.picmousedown, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picmouseover, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picidle, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlgraphicholder.SuspendLayout()
|
||||
CType(Me.picgraphic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.BackColor = System.Drawing.Color.White
|
||||
Me.pgcontents.Controls.Add(Me.btncancel)
|
||||
Me.pgcontents.Controls.Add(Me.btnreset)
|
||||
Me.pgcontents.Controls.Add(Me.btnapply)
|
||||
Me.pgcontents.Controls.Add(Me.Label4)
|
||||
Me.pgcontents.Controls.Add(Me.btnmousedownbrowse)
|
||||
Me.pgcontents.Controls.Add(Me.txtmousedownfile)
|
||||
Me.pgcontents.Controls.Add(Me.picmousedown)
|
||||
Me.pgcontents.Controls.Add(Me.Label3)
|
||||
Me.pgcontents.Controls.Add(Me.btnmouseoverbrowse)
|
||||
Me.pgcontents.Controls.Add(Me.txtmouseoverfile)
|
||||
Me.pgcontents.Controls.Add(Me.picmouseover)
|
||||
Me.pgcontents.Controls.Add(Me.Label2)
|
||||
Me.pgcontents.Controls.Add(Me.Label1)
|
||||
Me.pgcontents.Controls.Add(Me.btnidlebrowse)
|
||||
Me.pgcontents.Controls.Add(Me.txtidlefile)
|
||||
Me.pgcontents.Controls.Add(Me.picidle)
|
||||
Me.pgcontents.Controls.Add(Me.btnzoom)
|
||||
Me.pgcontents.Controls.Add(Me.btnstretch)
|
||||
Me.pgcontents.Controls.Add(Me.btncentre)
|
||||
Me.pgcontents.Controls.Add(Me.btntile)
|
||||
Me.pgcontents.Controls.Add(Me.pnlgraphicholder)
|
||||
Me.pgcontents.Controls.Add(Me.lblobjecttoskin)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(386, 540)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'btncancel
|
||||
'
|
||||
Me.btncancel.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.btncancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btncancel.Location = New System.Drawing.Point(19, 492)
|
||||
Me.btncancel.Name = "btncancel"
|
||||
Me.btncancel.Size = New System.Drawing.Size(109, 32)
|
||||
Me.btncancel.TabIndex = 23
|
||||
Me.btncancel.Text = "Cancel"
|
||||
Me.btncancel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnreset
|
||||
'
|
||||
Me.btnreset.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.btnreset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnreset.Location = New System.Drawing.Point(134, 492)
|
||||
Me.btnreset.Name = "btnreset"
|
||||
Me.btnreset.Size = New System.Drawing.Size(109, 32)
|
||||
Me.btnreset.TabIndex = 22
|
||||
Me.btnreset.Text = "Reset"
|
||||
Me.btnreset.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnapply
|
||||
'
|
||||
Me.btnapply.Anchor = System.Windows.Forms.AnchorStyles.Bottom
|
||||
Me.btnapply.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnapply.Location = New System.Drawing.Point(249, 492)
|
||||
Me.btnapply.Name = "btnapply"
|
||||
Me.btnapply.Size = New System.Drawing.Size(118, 32)
|
||||
Me.btnapply.TabIndex = 21
|
||||
Me.btnapply.Text = "Apply"
|
||||
Me.btnapply.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(125, 411)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(163, 28)
|
||||
Me.Label4.TabIndex = 20
|
||||
Me.Label4.Text = "Mouse Down"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnmousedownbrowse
|
||||
'
|
||||
Me.btnmousedownbrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnmousedownbrowse.Location = New System.Drawing.Point(295, 411)
|
||||
Me.btnmousedownbrowse.Name = "btnmousedownbrowse"
|
||||
Me.btnmousedownbrowse.Size = New System.Drawing.Size(73, 60)
|
||||
Me.btnmousedownbrowse.TabIndex = 19
|
||||
Me.btnmousedownbrowse.Text = "Browse"
|
||||
Me.btnmousedownbrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtmousedownfile
|
||||
'
|
||||
Me.txtmousedownfile.BackColor = System.Drawing.Color.White
|
||||
Me.txtmousedownfile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtmousedownfile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!)
|
||||
Me.txtmousedownfile.Location = New System.Drawing.Point(125, 442)
|
||||
Me.txtmousedownfile.Multiline = True
|
||||
Me.txtmousedownfile.Name = "txtmousedownfile"
|
||||
Me.txtmousedownfile.Size = New System.Drawing.Size(163, 29)
|
||||
Me.txtmousedownfile.TabIndex = 18
|
||||
Me.txtmousedownfile.Text = "None"
|
||||
Me.txtmousedownfile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'picmousedown
|
||||
'
|
||||
Me.picmousedown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.picmousedown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.picmousedown.Location = New System.Drawing.Point(19, 411)
|
||||
Me.picmousedown.Name = "picmousedown"
|
||||
Me.picmousedown.Size = New System.Drawing.Size(100, 60)
|
||||
Me.picmousedown.TabIndex = 17
|
||||
Me.picmousedown.TabStop = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(125, 336)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(163, 28)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "Mouse Over"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnmouseoverbrowse
|
||||
'
|
||||
Me.btnmouseoverbrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnmouseoverbrowse.Location = New System.Drawing.Point(295, 336)
|
||||
Me.btnmouseoverbrowse.Name = "btnmouseoverbrowse"
|
||||
Me.btnmouseoverbrowse.Size = New System.Drawing.Size(73, 60)
|
||||
Me.btnmouseoverbrowse.TabIndex = 15
|
||||
Me.btnmouseoverbrowse.Text = "Browse"
|
||||
Me.btnmouseoverbrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtmouseoverfile
|
||||
'
|
||||
Me.txtmouseoverfile.BackColor = System.Drawing.Color.White
|
||||
Me.txtmouseoverfile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtmouseoverfile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!)
|
||||
Me.txtmouseoverfile.Location = New System.Drawing.Point(125, 367)
|
||||
Me.txtmouseoverfile.Multiline = True
|
||||
Me.txtmouseoverfile.Name = "txtmouseoverfile"
|
||||
Me.txtmouseoverfile.Size = New System.Drawing.Size(163, 29)
|
||||
Me.txtmouseoverfile.TabIndex = 14
|
||||
Me.txtmouseoverfile.Text = "None"
|
||||
Me.txtmouseoverfile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'picmouseover
|
||||
'
|
||||
Me.picmouseover.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.picmouseover.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.picmouseover.Location = New System.Drawing.Point(19, 336)
|
||||
Me.picmouseover.Name = "picmouseover"
|
||||
Me.picmouseover.Size = New System.Drawing.Size(100, 60)
|
||||
Me.picmouseover.TabIndex = 13
|
||||
Me.picmouseover.TabStop = False
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(125, 260)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(163, 28)
|
||||
Me.Label2.TabIndex = 12
|
||||
Me.Label2.Text = "Idle"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Bookman Old Style", 14.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(17, 228)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(70, 23)
|
||||
Me.Label1.TabIndex = 11
|
||||
Me.Label1.Text = "States"
|
||||
'
|
||||
'btnidlebrowse
|
||||
'
|
||||
Me.btnidlebrowse.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnidlebrowse.Location = New System.Drawing.Point(295, 260)
|
||||
Me.btnidlebrowse.Name = "btnidlebrowse"
|
||||
Me.btnidlebrowse.Size = New System.Drawing.Size(73, 60)
|
||||
Me.btnidlebrowse.TabIndex = 10
|
||||
Me.btnidlebrowse.Text = "Browse"
|
||||
Me.btnidlebrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtidlefile
|
||||
'
|
||||
Me.txtidlefile.BackColor = System.Drawing.Color.White
|
||||
Me.txtidlefile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtidlefile.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtidlefile.Location = New System.Drawing.Point(125, 291)
|
||||
Me.txtidlefile.Multiline = True
|
||||
Me.txtidlefile.Name = "txtidlefile"
|
||||
Me.txtidlefile.Size = New System.Drawing.Size(163, 29)
|
||||
Me.txtidlefile.TabIndex = 9
|
||||
Me.txtidlefile.Text = "None"
|
||||
Me.txtidlefile.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'picidle
|
||||
'
|
||||
Me.picidle.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.picidle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.picidle.Location = New System.Drawing.Point(19, 260)
|
||||
Me.picidle.Name = "picidle"
|
||||
Me.picidle.Size = New System.Drawing.Size(100, 60)
|
||||
Me.picidle.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picidle.TabIndex = 8
|
||||
Me.picidle.TabStop = False
|
||||
'
|
||||
'btnzoom
|
||||
'
|
||||
Me.btnzoom.BackgroundImage = Global.ShiftOS.My.Resources.Resources.zoombutton
|
||||
Me.btnzoom.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btnzoom.FlatAppearance.BorderSize = 0
|
||||
Me.btnzoom.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnzoom.Location = New System.Drawing.Point(286, 144)
|
||||
Me.btnzoom.Name = "btnzoom"
|
||||
Me.btnzoom.Size = New System.Drawing.Size(82, 65)
|
||||
Me.btnzoom.TabIndex = 7
|
||||
Me.btnzoom.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnstretch
|
||||
'
|
||||
Me.btnstretch.BackgroundImage = Global.ShiftOS.My.Resources.Resources.stretchbutton
|
||||
Me.btnstretch.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btnstretch.FlatAppearance.BorderSize = 0
|
||||
Me.btnstretch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstretch.Location = New System.Drawing.Point(197, 144)
|
||||
Me.btnstretch.Name = "btnstretch"
|
||||
Me.btnstretch.Size = New System.Drawing.Size(82, 65)
|
||||
Me.btnstretch.TabIndex = 6
|
||||
Me.btnstretch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btncentre
|
||||
'
|
||||
Me.btncentre.BackgroundImage = Global.ShiftOS.My.Resources.Resources.centrebutton
|
||||
Me.btncentre.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btncentre.FlatAppearance.BorderSize = 0
|
||||
Me.btncentre.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btncentre.Location = New System.Drawing.Point(108, 144)
|
||||
Me.btncentre.Name = "btncentre"
|
||||
Me.btncentre.Size = New System.Drawing.Size(82, 65)
|
||||
Me.btncentre.TabIndex = 5
|
||||
Me.btncentre.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btntile
|
||||
'
|
||||
Me.btntile.BackgroundImage = Global.ShiftOS.My.Resources.Resources.tilebutton
|
||||
Me.btntile.FlatAppearance.BorderColor = System.Drawing.Color.Black
|
||||
Me.btntile.FlatAppearance.BorderSize = 0
|
||||
Me.btntile.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btntile.Location = New System.Drawing.Point(19, 144)
|
||||
Me.btntile.Name = "btntile"
|
||||
Me.btntile.Size = New System.Drawing.Size(82, 65)
|
||||
Me.btntile.TabIndex = 4
|
||||
Me.btntile.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnlgraphicholder
|
||||
'
|
||||
Me.pnlgraphicholder.Controls.Add(Me.picgraphic)
|
||||
Me.pnlgraphicholder.Location = New System.Drawing.Point(19, 38)
|
||||
Me.pnlgraphicholder.Name = "pnlgraphicholder"
|
||||
Me.pnlgraphicholder.Size = New System.Drawing.Size(350, 100)
|
||||
Me.pnlgraphicholder.TabIndex = 3
|
||||
'
|
||||
'picgraphic
|
||||
'
|
||||
Me.picgraphic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.picgraphic.Location = New System.Drawing.Point(0, 0)
|
||||
Me.picgraphic.Name = "picgraphic"
|
||||
Me.picgraphic.Size = New System.Drawing.Size(350, 100)
|
||||
Me.picgraphic.TabIndex = 0
|
||||
Me.picgraphic.TabStop = False
|
||||
'
|
||||
'lblobjecttoskin
|
||||
'
|
||||
Me.lblobjecttoskin.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblobjecttoskin.Location = New System.Drawing.Point(19, 9)
|
||||
Me.lblobjecttoskin.Name = "lblobjecttoskin"
|
||||
Me.lblobjecttoskin.Size = New System.Drawing.Size(350, 23)
|
||||
Me.lblobjecttoskin.TabIndex = 2
|
||||
Me.lblobjecttoskin.Text = "Close Button"
|
||||
Me.lblobjecttoskin.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 540)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 538)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(388, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 540)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 538)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(390, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 3)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconGraphicPicker
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(150, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Graphic Picker"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(388, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 568)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(386, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'Graphic_Picker
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(390, 570)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Graphic_Picker"
|
||||
Me.Text = "Graphic_Picker"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pgcontents.PerformLayout()
|
||||
CType(Me.picmousedown, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picmouseover, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picidle, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlgraphicholder.ResumeLayout(False)
|
||||
CType(Me.picgraphic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents btncancel As System.Windows.Forms.Button
|
||||
Friend WithEvents btnreset As System.Windows.Forms.Button
|
||||
Friend WithEvents btnapply As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnmousedownbrowse As System.Windows.Forms.Button
|
||||
Friend WithEvents txtmousedownfile As System.Windows.Forms.TextBox
|
||||
Friend WithEvents picmousedown As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnmouseoverbrowse As System.Windows.Forms.Button
|
||||
Friend WithEvents txtmouseoverfile As System.Windows.Forms.TextBox
|
||||
Friend WithEvents picmouseover As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnidlebrowse As System.Windows.Forms.Button
|
||||
Friend WithEvents txtidlefile As System.Windows.Forms.TextBox
|
||||
Friend WithEvents picidle As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents btnzoom As System.Windows.Forms.Button
|
||||
Friend WithEvents btnstretch As System.Windows.Forms.Button
|
||||
Friend WithEvents btncentre As System.Windows.Forms.Button
|
||||
Friend WithEvents btntile As System.Windows.Forms.Button
|
||||
Friend WithEvents pnlgraphicholder As System.Windows.Forms.Panel
|
||||
Friend WithEvents picgraphic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblobjecttoskin As System.Windows.Forms.Label
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
End Class
|
||||
123
Graphic Picker.resx
Normal file
123
Graphic Picker.resx
Normal 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="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
659
Graphic Picker.vb
Normal file
659
Graphic Picker.vb
Normal file
|
|
@ -0,0 +1,659 @@
|
|||
Public Class Graphic_Picker
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0
|
||||
Public minimumsizeheight As Integer = 0
|
||||
|
||||
Public graphictochange
|
||||
Public imagestyle As ImageLayout = ImageLayout.Stretch
|
||||
Public images(2) As Image
|
||||
Public imagelocations(2) As String
|
||||
Public skinimages(100) As String
|
||||
Dim firstrun As Boolean = True
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
GC.Collect()
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttongraphicpicker.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttongraphicpicker, ShiftOSDesktop.tbgraphicpickericon, ShiftOSDesktop.tbgraphicpickertext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
Array.Copy(Shifter.shifterskinimages, skinimages, skinimages.Length)
|
||||
'For a = 0 To skinimages.Length - 1
|
||||
' skinimages(a) = Shifter.shifterskinimages(a).Clone
|
||||
'Next
|
||||
|
||||
setupgraphics()
|
||||
|
||||
If ShiftOSDesktop.boughtskinstates = False Then
|
||||
picmouseover.Hide()
|
||||
txtmouseoverfile.Hide()
|
||||
Label3.Hide()
|
||||
btnmouseoverbrowse.Hide()
|
||||
picmousedown.Hide()
|
||||
Label4.Hide()
|
||||
txtmousedownfile.Hide()
|
||||
btnmousedownbrowse.Hide()
|
||||
Me.Height = Me.Height - 150
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(390, 570) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.graphicpickername
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.graphicpickericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Private Sub setupgraphics()
|
||||
lblobjecttoskin.Text = graphictochange
|
||||
picgraphic.Dock = DockStyle.None
|
||||
|
||||
Select Case graphictochange
|
||||
Case "Close Button"
|
||||
setpreviewsizes(Shifter.closebuttonwidth, Shifter.closebuttonheight, Shifter.skinclosebutton, Shifter.skinclosebuttonstyle, 0, 1, 2)
|
||||
Case "Title Bar"
|
||||
setpreviewsizes(pnlgraphicholder.Width, Shifter.titlebarheight, Shifter.shifterskintitlebar, Shifter.skintitlebarstyle, 3, 4, 5)
|
||||
Case "Desktop Background"
|
||||
setpreviewsizes(pnlgraphicholder.Width, picgraphic.Height, Shifter.skindesktopbackground, Shifter.skindesktopbackgroundstyle, 6, 7, 8)
|
||||
Case "Roll Up Button"
|
||||
setpreviewsizes(Shifter.rollupbuttonwidth, Shifter.rollupbuttonheight, Shifter.skinrollupbutton, Shifter.skinrollupbuttonstyle, 9, 10, 11)
|
||||
Case "Title Bar Right Corner"
|
||||
setpreviewsizes(Shifter.titlebarcornerwidth, Shifter.titlebarheight, Shifter.skintitlebarrightcorner, Shifter.skintitlebarrightcornerstyle, 12, 13, 14)
|
||||
Case "Title Bar Left Corner"
|
||||
setpreviewsizes(Shifter.titlebarcornerwidth, Shifter.titlebarheight, Shifter.skintitlebarleftcorner, Shifter.skintitlebarleftcornerstyle, 15, 16, 17)
|
||||
Case "Desktop Panel"
|
||||
setpreviewsizes(pnlgraphicholder.Width, Shifter.desktoppanelheight, Shifter.skindesktoppanel, Shifter.skindesktoppanelstyle, 18, 19, 20)
|
||||
Case "Desktop Clock"
|
||||
setpreviewsizes(Shifter.pretimepanel.Width, Shifter.desktoppanelheight, Shifter.skindesktoppaneltime, Shifter.skindesktoppaneltimestyle, 21, 22, 23)
|
||||
Case "App Launcher Button"
|
||||
setpreviewsizes(Shifter.applaunchermenuholderwidth, Shifter.applicationbuttonheight, Shifter.skinapplauncherbutton, Shifter.skinapplauncherbuttonstyle, 24, 25, 26)
|
||||
Case "Border Left"
|
||||
setpreviewsizes(Shifter.windowbordersize, picgraphic.Height, Shifter.skinwindowborderleft, Shifter.skinwindowborderleftstyle, 27, 28, 29)
|
||||
Case "Border Right"
|
||||
setpreviewsizes(Shifter.windowbordersize, picgraphic.Height, Shifter.skinwindowborderright, Shifter.skinwindowborderrightstyle, 30, 31, 32)
|
||||
Case "Border Bottom"
|
||||
setpreviewsizes(picgraphic.Width, Shifter.windowbordersize, Shifter.skinwindowborderbottom, Shifter.skinwindowborderbottomstyle, 33, 34, 35)
|
||||
Case "Border Bottom Right"
|
||||
setpreviewsizes(Shifter.windowbordersize, Shifter.windowbordersize, Shifter.skinwindowborderbottomright, Shifter.skinwindowborderbottomrightstyle, 36, 37, 38)
|
||||
Case "Border Bottom Left"
|
||||
setpreviewsizes(Shifter.windowbordersize, Shifter.windowbordersize, Shifter.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleftstyle, 39, 40, 41)
|
||||
Case "Minimize Button"
|
||||
setpreviewsizes(Shifter.minimizebuttonwidth, Shifter.minimizebuttonheight, Shifter.skinminimizebutton, Shifter.skinminimizebuttonstyle, 42, 43, 44)
|
||||
Case "Panel Button"
|
||||
setpreviewsizes(Shifter.panelbuttonwidth, Shifter.panelbuttonheight, Shifter.skinpanelbutton, Shifter.skinpanelbuttonstyle, 45, 46, 47)
|
||||
End Select
|
||||
|
||||
setbuttongraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub btnapply_Click(sender As Object, e As EventArgs) Handles btnapply.Click
|
||||
Select Case graphictochange
|
||||
Case "Close Button"
|
||||
Array.Copy(images, Shifter.skinclosebutton, Shifter.skinclosebutton.Length)
|
||||
Shifter.shifterskinimages(0) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(1) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(2) = imagelocations(2).Clone
|
||||
Shifter.skinclosebuttonstyle = imagestyle
|
||||
Case "Title Bar"
|
||||
Array.Copy(images, Shifter.shifterskintitlebar, Shifter.shifterskintitlebar.Length)
|
||||
Shifter.shifterskinimages(3) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(4) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(5) = imagelocations(2).Clone
|
||||
Shifter.skintitlebarstyle = imagestyle
|
||||
Case "Desktop Background"
|
||||
Array.Copy(images, Shifter.skindesktopbackground, Shifter.skindesktopbackground.Length)
|
||||
Shifter.shifterskinimages(6) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(7) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(8) = imagelocations(2).Clone
|
||||
Shifter.skindesktopbackgroundstyle = imagestyle
|
||||
Case "Roll Up Button"
|
||||
Array.Copy(images, Shifter.skinrollupbutton, Shifter.skinrollupbutton.Length)
|
||||
Shifter.shifterskinimages(9) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(10) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(11) = imagelocations(2).Clone
|
||||
Shifter.skinrollupbuttonstyle = imagestyle
|
||||
Case "Title Bar Right Corner"
|
||||
Array.Copy(images, Shifter.skintitlebarrightcorner, Shifter.skintitlebarrightcorner.Length)
|
||||
Shifter.shifterskinimages(12) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(13) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(14) = imagelocations(2).Clone
|
||||
Shifter.skintitlebarrightcornerstyle = imagestyle
|
||||
Case "Title Bar Left Corner"
|
||||
Array.Copy(images, Shifter.skintitlebarleftcorner, Shifter.skintitlebarleftcorner.Length)
|
||||
Shifter.shifterskinimages(15) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(16) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(17) = imagelocations(2).Clone
|
||||
Shifter.skintitlebarleftcornerstyle = imagestyle
|
||||
Case "Desktop Panel"
|
||||
Array.Copy(images, Shifter.skindesktoppanel, Shifter.skindesktoppanel.Length)
|
||||
Shifter.shifterskinimages(18) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(19) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(20) = imagelocations(2).Clone
|
||||
Shifter.skindesktoppanelstyle = imagestyle
|
||||
Case "Clock Background"
|
||||
Array.Copy(images, Shifter.skindesktoppaneltime, Shifter.skindesktoppaneltime.Length)
|
||||
Shifter.shifterskinimages(21) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(22) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(23) = imagelocations(2).Clone
|
||||
Shifter.skindesktoppaneltimestyle = imagestyle
|
||||
Case "App Launcher Button"
|
||||
Array.Copy(images, Shifter.skinapplauncherbutton, Shifter.skinapplauncherbutton.Length)
|
||||
Shifter.shifterskinimages(24) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(25) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(26) = imagelocations(2).Clone
|
||||
Shifter.skinapplauncherbuttonstyle = imagestyle
|
||||
Case "Border Left"
|
||||
Array.Copy(images, Shifter.skinwindowborderleft, Shifter.skinwindowborderleft.Length)
|
||||
Shifter.shifterskinimages(27) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(28) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(29) = imagelocations(2).Clone
|
||||
Shifter.skinwindowborderleftstyle = imagestyle
|
||||
Case "Border Right"
|
||||
Array.Copy(images, Shifter.skinwindowborderright, Shifter.skinwindowborderright.Length)
|
||||
Shifter.shifterskinimages(30) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(31) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(32) = imagelocations(2).Clone
|
||||
Shifter.skinwindowborderrightstyle = imagestyle
|
||||
Case "Border Bottom"
|
||||
Array.Copy(images, Shifter.skinwindowborderbottom, Shifter.skinwindowborderbottom.Length)
|
||||
Shifter.shifterskinimages(33) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(34) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(35) = imagelocations(2).Clone
|
||||
Shifter.skinwindowborderbottomstyle = imagestyle
|
||||
Case "Border Bottom Right"
|
||||
Array.Copy(images, Shifter.skinwindowborderbottomright, Shifter.skinwindowborderbottomright.Length)
|
||||
Shifter.shifterskinimages(36) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(37) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(38) = imagelocations(2).Clone
|
||||
Shifter.skinwindowborderbottomrightstyle = imagestyle
|
||||
Case "Border Bottom Left"
|
||||
Array.Copy(images, Shifter.skinwindowborderbottomleft, Shifter.skinwindowborderbottomleft.Length)
|
||||
Shifter.shifterskinimages(39) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(40) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(41) = imagelocations(2).Clone
|
||||
Shifter.skinwindowborderbottomleftstyle = imagestyle
|
||||
Case "Minimize Button"
|
||||
Array.Copy(images, Shifter.skinminimizebutton, Shifter.skinminimizebutton.Length)
|
||||
Shifter.shifterskinimages(42) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(43) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(44) = imagelocations(2).Clone
|
||||
Shifter.skinminimizebuttonstyle = imagestyle
|
||||
Case "Panel Button"
|
||||
Array.Copy(images, Shifter.skinpanelbutton, Shifter.skinpanelbutton.Length)
|
||||
Shifter.shifterskinimages(45) = imagelocations(0).Clone
|
||||
Shifter.shifterskinimages(46) = imagelocations(1).Clone
|
||||
Shifter.shifterskinimages(47) = imagelocations(2).Clone
|
||||
Shifter.skinpanelbuttonstyle = imagestyle
|
||||
End Select
|
||||
|
||||
Shifter.setuppreshifterstuff()
|
||||
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub setpreviewsizes(ByVal width As Integer, ByVal height As Integer, ByVal skinwhat As Array, ByVal skinstyle As ImageLayout, ByVal imagenumber1 As Integer, ByVal imagenumber2 As Integer, ByVal imagenumber3 As Integer)
|
||||
picgraphic.Size = New Size(width, height)
|
||||
|
||||
Array.Copy(images, skinwhat, skinwhat.Length)
|
||||
'For a = 0 To skinwhat.Length - 1
|
||||
' skinwhat(a) = images(a).Clone
|
||||
'Next
|
||||
|
||||
If firstrun = True Then
|
||||
firstrun = False
|
||||
|
||||
GC.Collect()
|
||||
|
||||
'fix a hang issue when the image isn't changed
|
||||
' If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS\Shiftum42\Skins\Temp") Then My.Computer.FileSystem.DeleteDirectory("C:\ShiftOS\Shiftum42\Skins\Temp", FileIO.DeleteDirectoryOption.DeleteAllContents)
|
||||
If skinimages(imagenumber1) = "" Then
|
||||
Else
|
||||
My.Computer.FileSystem.CopyFile(skinimages(imagenumber1), "C:\ShiftOS\Shiftum42\Skins\Temp\" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")), True)
|
||||
skinimages(imagenumber1) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
|
||||
skinimages(imagenumber2) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
|
||||
skinimages(imagenumber3) = "C:\ShiftOS\Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
|
||||
End If
|
||||
|
||||
GC.Collect()
|
||||
|
||||
imagelocations(0) = skinimages(imagenumber1)
|
||||
If imagelocations(0) = Nothing Then
|
||||
Else
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
picidle.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
images(0) = Image.FromFile(imagelocations(0))
|
||||
txtidlefile.Text = imagelocations(0).Substring(imagelocations(0).LastIndexOf("/") + 1)
|
||||
End If
|
||||
|
||||
imagelocations(1) = skinimages(imagenumber2)
|
||||
If imagelocations(1) = Nothing Then
|
||||
Else
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(1))
|
||||
picmouseover.BackgroundImage = Image.FromFile(imagelocations(1))
|
||||
images(1) = Image.FromFile(imagelocations(1))
|
||||
txtmouseoverfile.Text = imagelocations(1).Substring(imagelocations(1).LastIndexOf("/") + 1)
|
||||
End If
|
||||
|
||||
imagelocations(2) = skinimages(imagenumber3)
|
||||
If imagelocations(2) = Nothing Then
|
||||
Else
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(2))
|
||||
picmousedown.BackgroundImage = Image.FromFile(imagelocations(2))
|
||||
images(2) = Image.FromFile(imagelocations(2))
|
||||
txtmousedownfile.Text = imagelocations(2).Substring(imagelocations(2).LastIndexOf("/") + 1)
|
||||
imagestyle = skinstyle
|
||||
End If
|
||||
End If
|
||||
|
||||
If picgraphic.Height > 100 Then
|
||||
picgraphic.Dock = DockStyle.Fill
|
||||
picgraphic.BackgroundImageLayout = ImageLayout.Stretch
|
||||
Else
|
||||
picgraphic.Location = New Point((pnlgraphicholder.Width / 2) - (picgraphic.Width / 2), (pnlgraphicholder.Height / 2) - (picgraphic.Height / 2))
|
||||
picgraphic.BackgroundImageLayout = imagestyle
|
||||
End If
|
||||
|
||||
If imagelocations(0) = "" Then Else picgraphic.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
End Sub
|
||||
|
||||
Private Sub cloneidle()
|
||||
txtmouseoverfile.Text = txtidlefile.Text
|
||||
picmouseover.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
images(1) = Image.FromFile(imagelocations(0))
|
||||
imagelocations(1) = imagelocations(0)
|
||||
txtmousedownfile.Text = txtidlefile.Text
|
||||
picmousedown.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
images(2) = Image.FromFile(imagelocations(0))
|
||||
imagelocations(2) = imagelocations(0)
|
||||
End Sub
|
||||
|
||||
Private Sub btnidlebrowse_Click(sender As Object, e As EventArgs) Handles btnidlebrowse.Click
|
||||
File_Opener.Show() ' I moved this from the bottom at 3:13pm 24.05.14
|
||||
File_Opener.openingprogram = "graphicpicker1"
|
||||
File_Opener.openextention = ".pic"
|
||||
File_Opener.lbextention.Text = File_Opener.openextention
|
||||
File_Opener.showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub btnmouseoverbrowse_Click(sender As Object, e As EventArgs) Handles btnmouseoverbrowse.Click
|
||||
File_Opener.Show()
|
||||
File_Opener.openingprogram = "graphicpicker2"
|
||||
File_Opener.openextention = ".pic"
|
||||
File_Opener.lbextention.Text = File_Opener.openextention
|
||||
File_Opener.showcontents()
|
||||
End Sub
|
||||
|
||||
Private Sub btnmousedownbrowse_Click(sender As Object, e As EventArgs) Handles btnmousedownbrowse.Click
|
||||
File_Opener.Show()
|
||||
File_Opener.openingprogram = "graphicpicker3"
|
||||
File_Opener.openextention = ".pic"
|
||||
File_Opener.lbextention.Text = File_Opener.openextention
|
||||
File_Opener.showcontents()
|
||||
End Sub
|
||||
|
||||
Public Sub setgraphicsidle()
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
picidle.BackgroundImage = Image.FromFile(imagelocations(0))
|
||||
images(0) = Image.FromFile(imagelocations(0))
|
||||
cloneidle()
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Public Sub setgraphicsmouseover()
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(1))
|
||||
picmouseover.BackgroundImage = Image.FromFile(imagelocations(1))
|
||||
images(1) = Image.FromFile(imagelocations(1))
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Public Sub setgraphicsmousedown()
|
||||
picgraphic.BackgroundImage = Image.FromFile(imagelocations(2))
|
||||
picmousedown.BackgroundImage = Image.FromFile(imagelocations(2))
|
||||
images(2) = Image.FromFile(imagelocations(2))
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub btntile_Click(sender As Object, e As EventArgs) Handles btntile.Click
|
||||
imagestyle = ImageLayout.Tile
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub btncentre_Click(sender As Object, e As EventArgs) Handles btncentre.Click
|
||||
imagestyle = ImageLayout.Center
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub btnstretch_Click(sender As Object, e As EventArgs) Handles btnstretch.Click
|
||||
imagestyle = ImageLayout.Stretch
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub btnzoom_Click(sender As Object, e As EventArgs) Handles btnzoom.Click
|
||||
imagestyle = ImageLayout.Zoom
|
||||
setupgraphics()
|
||||
End Sub
|
||||
|
||||
Private Sub setbuttongraphics()
|
||||
Select Case imagestyle
|
||||
Case ImageLayout.Tile
|
||||
setblankbuttons()
|
||||
btntile.BackgroundImage = My.Resources.tilebuttonpressed
|
||||
Case ImageLayout.Center
|
||||
setblankbuttons()
|
||||
btncentre.BackgroundImage = My.Resources.centrebuttonpressed
|
||||
Case ImageLayout.Stretch
|
||||
setblankbuttons()
|
||||
btnstretch.BackgroundImage = My.Resources.stretchbuttonpressed
|
||||
Case ImageLayout.Zoom
|
||||
setblankbuttons()
|
||||
btnzoom.BackgroundImage = My.Resources.zoombuttonpressed
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub setblankbuttons()
|
||||
btntile.BackgroundImage = My.Resources.tilebutton
|
||||
btncentre.BackgroundImage = My.Resources.centrebutton
|
||||
btnstretch.BackgroundImage = My.Resources.stretchbutton
|
||||
btnzoom.BackgroundImage = My.Resources.zoombutton
|
||||
End Sub
|
||||
|
||||
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click
|
||||
picgraphic.BackgroundImage.Dispose()
|
||||
picidle.BackgroundImage.Dispose()
|
||||
picmousedown.BackgroundImage.Dispose()
|
||||
picmouseover.BackgroundImage.Dispose()
|
||||
picgraphic.BackgroundImage = Nothing
|
||||
picidle.BackgroundImage = Nothing
|
||||
picmousedown.BackgroundImage = Nothing
|
||||
picmouseover.BackgroundImage = Nothing
|
||||
images(0).Dispose()
|
||||
images(1).Dispose()
|
||||
images(2).Dispose()
|
||||
images(0) = Nothing
|
||||
images(1) = Nothing
|
||||
images(2) = Nothing
|
||||
GC.Collect()
|
||||
imagelocations(0) = ""
|
||||
imagelocations(1) = ""
|
||||
imagelocations(2) = ""
|
||||
txtidlefile.Text = ""
|
||||
txtmousedownfile.Text = ""
|
||||
txtmouseoverfile.Text = ""
|
||||
setupgraphics()
|
||||
End Sub
|
||||
End Class
|
||||
92
HijackScreen.Designer.vb
generated
Normal file
92
HijackScreen.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,92 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class HijackScreen
|
||||
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.lblHijack = New System.Windows.Forms.Label()
|
||||
Me.conversationtimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.textgen = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.lblhackwords = New System.Windows.Forms.Label()
|
||||
Me.hackeffecttimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lblHijack
|
||||
'
|
||||
Me.lblHijack.Anchor = System.Windows.Forms.AnchorStyles.None
|
||||
Me.lblHijack.AutoSize = True
|
||||
Me.lblHijack.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.lblHijack.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblHijack.ForeColor = System.Drawing.Color.DimGray
|
||||
Me.lblHijack.Location = New System.Drawing.Point(143, 193)
|
||||
Me.lblHijack.Name = "lblHijack"
|
||||
Me.lblHijack.Size = New System.Drawing.Size(18, 25)
|
||||
Me.lblHijack.TabIndex = 0
|
||||
Me.lblHijack.Text = "\"
|
||||
'
|
||||
'conversationtimer
|
||||
'
|
||||
'
|
||||
'textgen
|
||||
'
|
||||
Me.textgen.Interval = 20
|
||||
'
|
||||
'lblhackwords
|
||||
'
|
||||
Me.lblhackwords.AutoSize = True
|
||||
Me.lblhackwords.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lblhackwords.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblhackwords.ForeColor = System.Drawing.SystemColors.ButtonFace
|
||||
Me.lblhackwords.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lblhackwords.Name = "lblhackwords"
|
||||
Me.lblhackwords.Size = New System.Drawing.Size(127, 18)
|
||||
Me.lblhackwords.TabIndex = 1
|
||||
Me.lblhackwords.Text = "Hijack in progress"
|
||||
'
|
||||
'hackeffecttimer
|
||||
'
|
||||
Me.hackeffecttimer.Interval = 50
|
||||
'
|
||||
'HijackScreen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.Silver
|
||||
Me.ClientSize = New System.Drawing.Size(653, 457)
|
||||
Me.Controls.Add(Me.lblhackwords)
|
||||
Me.Controls.Add(Me.lblHijack)
|
||||
Me.Name = "HijackScreen"
|
||||
Me.Text = "ShiftOS"
|
||||
Me.TransparencyKey = System.Drawing.Color.White
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents lblHijack As System.Windows.Forms.Label
|
||||
Friend WithEvents conversationtimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents textgen As System.Windows.Forms.Timer
|
||||
Friend WithEvents lblhackwords As System.Windows.Forms.Label
|
||||
Friend WithEvents hackeffecttimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
|
||||
|
||||
End Class
|
||||
132
HijackScreen.resx
Normal file
132
HijackScreen.resx
Normal file
|
|
@ -0,0 +1,132 @@
|
|||
<?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="conversationtimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>9, 18</value>
|
||||
</metadata>
|
||||
<metadata name="textgen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>106, 17</value>
|
||||
</metadata>
|
||||
<metadata name="hackeffecttimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>199, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>335, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
309
HijackScreen.vb
Normal file
309
HijackScreen.vb
Normal file
|
|
@ -0,0 +1,309 @@
|
|||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Net.Mail
|
||||
|
||||
Public Class HijackScreen
|
||||
Public actualshiftversion As String = "0.0.7"
|
||||
Dim newgame As Boolean = True
|
||||
Dim tcount As Integer = 0
|
||||
Dim rtext As String
|
||||
Dim gtexttotype As String
|
||||
Dim charcount As Integer
|
||||
Dim currentletter As Integer
|
||||
Dim slashcount As Integer
|
||||
Dim conversationcount As Integer = 0
|
||||
Dim textgeninput As Object
|
||||
Dim di As DirectoryInfo
|
||||
Dim needtoclose As Boolean = False
|
||||
Dim oldversion As String
|
||||
Public upgraded As Boolean = False
|
||||
|
||||
Dim fs As FileStream
|
||||
Dim hackeffect As Integer
|
||||
Dim percentcount As Integer
|
||||
Dim cdrive As System.IO.DriveInfo
|
||||
|
||||
Private Sub HijackScreen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Control.CheckForIllegalCrossThreadCalls = False
|
||||
cdrive = My.Computer.FileSystem.GetDriveInfo("C:\")
|
||||
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
If My.Computer.FileSystem.DirectoryExists("C:\ShiftOS") Then
|
||||
If IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft") = actualshiftversion Then
|
||||
ShiftOSDesktop.Show()
|
||||
conversationtimer.Start()
|
||||
needtoclose = True
|
||||
Else
|
||||
If MessageBox.Show("Your save file is not currently compatible with this version of ShiftOS. Would you like to upgrade your save file so you can continue to play the latest version of ShiftOS without losing your progress? If so click yes below. If you would like to start a new game and wipe all your progress please click no", "Warning: Update your save file", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
|
||||
Me.Hide()
|
||||
ShiftOS_Save_File_Converter.Show()
|
||||
ShiftOS_Save_File_Converter.BringToFront()
|
||||
Else
|
||||
oldversion = IO.File.ReadAllText("C:/ShiftOS/Shiftum42/HDAccess.sft")
|
||||
upgraded = True
|
||||
System.IO.Directory.Delete("C:/ShiftOS/", True)
|
||||
BackgroundWorker1.RunWorkerAsync()
|
||||
conversationtimer.Start()
|
||||
hackeffecttimer.Start()
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
BackgroundWorker1.RunWorkerAsync()
|
||||
conversationtimer.Start()
|
||||
hackeffecttimer.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TextType(texttotype As String)
|
||||
conversationtimer.Stop()
|
||||
charcount = texttotype.Length
|
||||
gtexttotype = texttotype
|
||||
currentletter = 0
|
||||
slashcount = 1
|
||||
textgen.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub textgen_Tick(sender As Object, e As EventArgs) Handles textgen.Tick
|
||||
|
||||
Select Case slashcount
|
||||
Case 1
|
||||
If currentletter < gtexttotype.Length Then
|
||||
textgeninput.Text = rtext & "\"
|
||||
End If
|
||||
|
||||
Case 2
|
||||
If currentletter < gtexttotype.Length Then
|
||||
textgeninput.Text = rtext & "|"
|
||||
End If
|
||||
|
||||
Case 3
|
||||
If currentletter < gtexttotype.Length Then
|
||||
textgeninput.Text = rtext & "/"
|
||||
End If
|
||||
|
||||
Case 4
|
||||
If currentletter < gtexttotype.Length Then
|
||||
rtext = rtext + gtexttotype.ToCharArray(currentletter, 1)
|
||||
currentletter = currentletter + 1
|
||||
textgeninput.Text = rtext
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
End If
|
||||
End Select
|
||||
|
||||
slashcount = slashcount + 1
|
||||
|
||||
If slashcount = 5 Then slashcount = 1
|
||||
If currentletter = gtexttotype.Length Then
|
||||
gtexttotype = ""
|
||||
conversationtimer.Start()
|
||||
textgen.Stop()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub conversationtimer_Tick(sender As Object, e As EventArgs) Handles conversationtimer.Tick
|
||||
Select Case conversationcount
|
||||
Case 0
|
||||
If needtoclose = True Then Me.Close()
|
||||
Case 1
|
||||
|
||||
textgeninput = lblHijack
|
||||
TextType("Your computer is now being Hijacked")
|
||||
conversationtimer.Interval = 1000
|
||||
|
||||
Case 3
|
||||
textgeninput = lblhackwords
|
||||
textgen.Interval = 10
|
||||
rtext = ""
|
||||
TextType("Congratulations, you have been involuntarily selected to be an Alpha Tester for ShiftOS." & Environment.NewLine & Environment.NewLine)
|
||||
Case 4
|
||||
TextType("At this current point in time I do not wish to reveal my identity or future intentions." & Environment.NewLine & Environment.NewLine)
|
||||
Case 5
|
||||
TextType("I just need to use you and your computer as an external test bed to evolve my experimental operating system." & Environment.NewLine & Environment.NewLine)
|
||||
Case 6
|
||||
TextType("Right now ShiftOS is practically non-existent but I’ll work on coding it remotely as you use it." & Environment.NewLine & Environment.NewLine)
|
||||
Case 7
|
||||
TextType("Your hard drive will now be formatted in preparation for the installation of ShiftOS" & Environment.NewLine & Environment.NewLine)
|
||||
Case 8
|
||||
TextType("Starting Format.")
|
||||
conversationtimer.Interval = 500
|
||||
Case 9, 10, 11, 12, 13, 14, 15, 16, 17, 18
|
||||
TextType(".")
|
||||
Case 19
|
||||
rtext = ""
|
||||
Case 20
|
||||
TextType("Scanning Drive C:/")
|
||||
Case 21
|
||||
|
||||
TextType(Environment.NewLine & Environment.NewLine & "Drive Label: " & cdrive.VolumeLabel)
|
||||
Case 22
|
||||
TextType(Environment.NewLine & "Total Drive Size: " & Format(cdrive.TotalSize.ToString / 1024 / 1024 / 1024, "0.00") & " GigaBytes")
|
||||
Case 23
|
||||
TextType(Environment.NewLine & "Old File System: " & cdrive.DriveFormat)
|
||||
Case 24
|
||||
TextType(Environment.NewLine & "New File System: ShiftFS")
|
||||
Case 25
|
||||
TextType(Environment.NewLine & Environment.NewLine & "Formatting C:/ - ")
|
||||
conversationtimer.Interval = 100
|
||||
Case 26 To 126
|
||||
textgeninput.Text = rtext & percentcount & "%"
|
||||
If percentcount < 101 Then
|
||||
percentcount = percentcount + 1
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
End If
|
||||
Case 127
|
||||
rtext = rtext + "100%"
|
||||
conversationtimer.Interval = 1000
|
||||
Case 128
|
||||
TextType(Environment.NewLine & "Format Complete")
|
||||
Case 129
|
||||
rtext = ""
|
||||
percentcount = 0
|
||||
TextType("Installing ShiftOS Alpha 0.0.1 - ")
|
||||
conversationtimer.Interval = 200
|
||||
Case 130 To 230
|
||||
textgeninput.Text = rtext & percentcount & "%" & Environment.NewLine & Environment.NewLine
|
||||
If percentcount < 101 Then
|
||||
percentcount = percentcount + 1
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
End If
|
||||
Select Case percentcount
|
||||
Case 1 To 2
|
||||
textgeninput.Text = textgeninput.Text & "C:/Home"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Home")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home")
|
||||
Case 3 To 4
|
||||
textgeninput.Text = textgeninput.Text & "C:/Home/Documents"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Documents")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Documents")
|
||||
Case 5 To 9
|
||||
textgeninput.Text = textgeninput.Text & "C:/Home/Documents/ShiftOSInfo.txt"
|
||||
fs = File.Create("C:/ShiftOS/Home/Documents/ShiftOSInfo.txt")
|
||||
fs.Close()
|
||||
Case 10 To 12
|
||||
textgeninput.Text = textgeninput.Text & "C:/Home/Music"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Music")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Music")
|
||||
Case 13 To 15
|
||||
textgeninput.Text = textgeninput.Text & "C:/Home/Pictures"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Home/Pictures")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Home/Pictures")
|
||||
Case 16 To 18
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42")
|
||||
Case 19 To 20
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42/Drivers")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42/Drivers")
|
||||
Case 21 To 27
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/HDD.dri"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/HDD.dri")
|
||||
fs.Close()
|
||||
Case 28 To 35
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Keyboard.dri"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Keyboard.dri")
|
||||
fs.Close()
|
||||
Case 36 To 44
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Monitor.dri"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Monitor.dri")
|
||||
fs.Close()
|
||||
Case 45 To 52
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Mouse.dri"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Mouse.dri")
|
||||
fs.Close()
|
||||
Case 53 To 60
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Drivers/Printer.dri"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Drivers/Printer.dri")
|
||||
fs.Close()
|
||||
Case 61 To 68
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Languages/"
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/Shiftum42/Languages/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/Shiftum42/Languages/")
|
||||
Case 69 To 76
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/Languages/English.lang"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/Languages/English.lang")
|
||||
fs.Close()
|
||||
Case 77 To 84
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/HDAccess.sft"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/HDAccess.sft")
|
||||
fs.Close()
|
||||
Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False)
|
||||
objWriter.Write(actualshiftversion)
|
||||
objWriter.Close()
|
||||
Case 85 To 89
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/ShiftGUI.sft"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/ShiftGUI.sft")
|
||||
fs.Close()
|
||||
Case 90 To 93
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SKernal.sft"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/SKernal.sft")
|
||||
fs.Close()
|
||||
Case 94 To 97
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SRead.sft"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/SRead.sft")
|
||||
fs.Close()
|
||||
Case 98 To 101
|
||||
textgeninput.Text = textgeninput.Text & "C:/Shiftum42/SWrite.sft"
|
||||
fs = File.Create("C:/ShiftOS/Shiftum42/SWrite.sft")
|
||||
fs.Close()
|
||||
End Select
|
||||
|
||||
|
||||
Case 231
|
||||
textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "C:/Shiftum42/SWrite.sft"
|
||||
conversationtimer.Interval = 1000
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
Case 232
|
||||
textgeninput.Text = rtext & "100%" & Environment.NewLine & Environment.NewLine & "ShiftOS Installation Complete!"
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/")
|
||||
If (Not System.IO.Directory.Exists("C:/ShiftOS/SoftwareData/KnowledgeInput")) Then System.IO.Directory.CreateDirectory("C:/ShiftOS/SoftwareData/KnowledgeInput")
|
||||
fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Animals.lst")
|
||||
fs.Close()
|
||||
fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Fruits.lst")
|
||||
fs.Close()
|
||||
fs = File.Create("C:/ShiftOS/SoftwareData/KnowledgeInput/Countries.lst")
|
||||
fs.Close()
|
||||
Case 234
|
||||
ShiftOSDesktop.newgame = True
|
||||
ShiftOSDesktop.Show()
|
||||
Terminal.Show()
|
||||
Terminal.tmrfirstrun.Start()
|
||||
Me.Close()
|
||||
|
||||
End Select
|
||||
conversationcount = conversationcount + 1
|
||||
End Sub
|
||||
|
||||
Private Sub hackeffecttimer_Tick(sender As Object, e As EventArgs) Handles hackeffecttimer.Tick
|
||||
If hackeffect < 101 Then
|
||||
Select Case hackeffect
|
||||
Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95
|
||||
Me.BackColor = Color.Black
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
Case 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28
|
||||
Me.BackColor = Color.White
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
Case 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50
|
||||
Me.BackColor = Color.Gainsboro
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
Case 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76
|
||||
Me.BackColor = Color.Silver
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
Case 76, 78, 80, 82, 84, 86, 88, 90, 92, 94
|
||||
Me.BackColor = Color.DimGray
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
Case 96
|
||||
lblHijack.BackColor = Color.LightGray
|
||||
Case 97
|
||||
lblHijack.BackColor = Color.DarkGray
|
||||
Case 98
|
||||
lblHijack.BackColor = Color.DimGray
|
||||
Case 99
|
||||
lblHijack.BackColor = Color.Black
|
||||
lblHijack.ForeColor = Color.DimGray
|
||||
Case 100
|
||||
lblHijack.Hide()
|
||||
End Select
|
||||
Else
|
||||
hackeffecttimer.Stop()
|
||||
End If
|
||||
hackeffect = hackeffect + 1
|
||||
End Sub
|
||||
End Class
|
||||
1902
Icon Manager.Designer.vb
generated
Normal file
1902
Icon Manager.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load diff
129
Icon Manager.resx
Normal file
129
Icon Manager.resx
Normal 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="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1441, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1525, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
1048
Icon Manager.vb
Normal file
1048
Icon Manager.vb
Normal file
File diff suppressed because it is too large
Load diff
488
Knowledge Input.Designer.vb
generated
Normal file
488
Knowledge Input.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,488 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Knowledge_Input
|
||||
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(Knowledge_Input))
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.pnlintro = New System.Windows.Forms.Panel()
|
||||
Me.pnlcategorydisplay = New System.Windows.Forms.Panel()
|
||||
Me.lblnextreward = New System.Windows.Forms.Label()
|
||||
Me.guessbox = New System.Windows.Forms.TextBox()
|
||||
Me.lblcurrentlevel = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.listblistedstuff = New System.Windows.Forms.ListBox()
|
||||
Me.lbltillnextlevel = New System.Windows.Forms.Label()
|
||||
Me.lbltotal = New System.Windows.Forms.Label()
|
||||
Me.btnstart = New System.Windows.Forms.Button()
|
||||
Me.lblcatedescription = New System.Windows.Forms.Label()
|
||||
Me.lblcategory = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.decider = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.pnlintro.SuspendLayout()
|
||||
Me.pnlcategorydisplay.SuspendLayout()
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.ListBox1.BackColor = System.Drawing.Color.White
|
||||
Me.ListBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.ListBox1.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ListBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.ItemHeight = 24
|
||||
Me.ListBox1.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"})
|
||||
Me.ListBox1.Location = New System.Drawing.Point(9, 49)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(175, 216)
|
||||
Me.ListBox1.TabIndex = 0
|
||||
'
|
||||
'pnlintro
|
||||
'
|
||||
Me.pnlintro.Controls.Add(Me.pnlcategorydisplay)
|
||||
Me.pnlintro.Controls.Add(Me.Label4)
|
||||
Me.pnlintro.Controls.Add(Me.Label3)
|
||||
Me.pnlintro.Controls.Add(Me.Label2)
|
||||
Me.pnlintro.Controls.Add(Me.Label1)
|
||||
Me.pnlintro.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pnlintro.Location = New System.Drawing.Point(191, 0)
|
||||
Me.pnlintro.Name = "pnlintro"
|
||||
Me.pnlintro.Size = New System.Drawing.Size(478, 272)
|
||||
Me.pnlintro.TabIndex = 1
|
||||
'
|
||||
'pnlcategorydisplay
|
||||
'
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lblnextreward)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.guessbox)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lblcurrentlevel)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.Label5)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.listblistedstuff)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lbltillnextlevel)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lbltotal)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.btnstart)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lblcatedescription)
|
||||
Me.pnlcategorydisplay.Controls.Add(Me.lblcategory)
|
||||
Me.pnlcategorydisplay.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlcategorydisplay.ForeColor = System.Drawing.Color.Black
|
||||
Me.pnlcategorydisplay.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlcategorydisplay.Name = "pnlcategorydisplay"
|
||||
Me.pnlcategorydisplay.Size = New System.Drawing.Size(478, 272)
|
||||
Me.pnlcategorydisplay.TabIndex = 2
|
||||
'
|
||||
'lblnextreward
|
||||
'
|
||||
Me.lblnextreward.AutoSize = True
|
||||
Me.lblnextreward.Font = New System.Drawing.Font("Palatino Linotype", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblnextreward.Location = New System.Drawing.Point(36, 110)
|
||||
Me.lblnextreward.Name = "lblnextreward"
|
||||
Me.lblnextreward.Size = New System.Drawing.Size(244, 20)
|
||||
Me.lblnextreward.TabIndex = 11
|
||||
Me.lblnextreward.Text = "Reward for completing level 1: 5CP"
|
||||
Me.lblnextreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'guessbox
|
||||
'
|
||||
Me.guessbox.BackColor = System.Drawing.Color.White
|
||||
Me.guessbox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.guessbox.Font = New System.Drawing.Font("Century", 24.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.guessbox.ForeColor = System.Drawing.Color.Black
|
||||
Me.guessbox.Location = New System.Drawing.Point(11, 147)
|
||||
Me.guessbox.Multiline = True
|
||||
Me.guessbox.Name = "guessbox"
|
||||
Me.guessbox.Size = New System.Drawing.Size(297, 45)
|
||||
Me.guessbox.TabIndex = 9
|
||||
Me.guessbox.Text = "Enter Guess Here"
|
||||
Me.guessbox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'lblcurrentlevel
|
||||
'
|
||||
Me.lblcurrentlevel.Font = New System.Drawing.Font("Gill Sans Ultra Bold", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblcurrentlevel.Location = New System.Drawing.Point(-6, 77)
|
||||
Me.lblcurrentlevel.Name = "lblcurrentlevel"
|
||||
Me.lblcurrentlevel.Size = New System.Drawing.Size(331, 42)
|
||||
Me.lblcurrentlevel.TabIndex = 8
|
||||
Me.lblcurrentlevel.Text = "Current Level: 1"
|
||||
Me.lblcurrentlevel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(340, 12)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(123, 18)
|
||||
Me.Label5.TabIndex = 7
|
||||
Me.Label5.Text = "All Ready Done"
|
||||
'
|
||||
'listblistedstuff
|
||||
'
|
||||
Me.listblistedstuff.BackColor = System.Drawing.Color.Black
|
||||
Me.listblistedstuff.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.listblistedstuff.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.listblistedstuff.ForeColor = System.Drawing.Color.White
|
||||
Me.listblistedstuff.FormattingEnabled = True
|
||||
Me.listblistedstuff.Location = New System.Drawing.Point(340, 41)
|
||||
Me.listblistedstuff.Name = "listblistedstuff"
|
||||
Me.listblistedstuff.ScrollAlwaysVisible = True
|
||||
Me.listblistedstuff.Size = New System.Drawing.Size(129, 221)
|
||||
Me.listblistedstuff.TabIndex = 6
|
||||
'
|
||||
'lbltillnextlevel
|
||||
'
|
||||
Me.lbltillnextlevel.AutoSize = True
|
||||
Me.lbltillnextlevel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbltillnextlevel.Location = New System.Drawing.Point(8, 250)
|
||||
Me.lbltillnextlevel.Name = "lbltillnextlevel"
|
||||
Me.lbltillnextlevel.Size = New System.Drawing.Size(146, 16)
|
||||
Me.lbltillnextlevel.TabIndex = 5
|
||||
Me.lbltillnextlevel.Text = "Words Until Next Level:"
|
||||
'
|
||||
'lbltotal
|
||||
'
|
||||
Me.lbltotal.AutoSize = True
|
||||
Me.lbltotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbltotal.Location = New System.Drawing.Point(191, 250)
|
||||
Me.lbltotal.Name = "lbltotal"
|
||||
Me.lbltotal.Size = New System.Drawing.Size(66, 16)
|
||||
Me.lbltotal.TabIndex = 3
|
||||
Me.lbltotal.Text = "Guessed:"
|
||||
'
|
||||
'btnstart
|
||||
'
|
||||
Me.btnstart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnstart.Location = New System.Drawing.Point(11, 198)
|
||||
Me.btnstart.Name = "btnstart"
|
||||
Me.btnstart.Size = New System.Drawing.Size(297, 46)
|
||||
Me.btnstart.TabIndex = 2
|
||||
Me.btnstart.Text = "Submit Word"
|
||||
Me.btnstart.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblcatedescription
|
||||
'
|
||||
Me.lblcatedescription.Location = New System.Drawing.Point(11, 48)
|
||||
Me.lblcatedescription.Name = "lblcatedescription"
|
||||
Me.lblcatedescription.Size = New System.Drawing.Size(297, 26)
|
||||
Me.lblcatedescription.TabIndex = 1
|
||||
Me.lblcatedescription.Text = "There are many animals out there! Can you list them all? " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Note that this is a li" & _
|
||||
"st of common animals, not every animal!"
|
||||
Me.lblcatedescription.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblcategory
|
||||
'
|
||||
Me.lblcategory.Font = New System.Drawing.Font("Microsoft Sans Serif", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblcategory.Location = New System.Drawing.Point(11, 8)
|
||||
Me.lblcategory.Name = "lblcategory"
|
||||
Me.lblcategory.Size = New System.Drawing.Size(297, 39)
|
||||
Me.lblcategory.TabIndex = 0
|
||||
Me.lblcategory.Text = "Animals"
|
||||
Me.lblcategory.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(52, 235)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(382, 20)
|
||||
Me.Label4.TabIndex = 3
|
||||
Me.Label4.Text = "Select A Category On the Left To Start Playing"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(187, 72)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(112, 20)
|
||||
Me.Label3.TabIndex = 2
|
||||
Me.Label3.Text = "How To Play:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(61, 97)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(354, 96)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = resources.GetString("Label2.Text")
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label1.Location = New System.Drawing.Point(75, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(316, 25)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Welcome to Knowledge Input"
|
||||
'
|
||||
'decider
|
||||
'
|
||||
Me.decider.Interval = 500
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Cambria", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(30, 8)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(131, 29)
|
||||
Me.Label6.TabIndex = 8
|
||||
Me.Label6.Text = "Categories"
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.Controls.Add(Me.pnlintro)
|
||||
Me.pgcontents.Controls.Add(Me.Label6)
|
||||
Me.pgcontents.Controls.Add(Me.ListBox1)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(669, 272)
|
||||
Me.pgcontents.TabIndex = 10
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.Font = New System.Drawing.Font("Cambria", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(673, 30)
|
||||
Me.titlebar.TabIndex = 9
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(224, 5)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(252, 4)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(280, 4)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 19
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(170, 18)
|
||||
Me.lbtitletext.TabIndex = 18
|
||||
Me.lbtitletext.Text = "Knowledge Input"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(671, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 274)
|
||||
Me.pgleft.TabIndex = 11
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 272)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(671, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 274)
|
||||
Me.pgright.TabIndex = 12
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 272)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 302)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(669, 2)
|
||||
Me.pgbottom.TabIndex = 13
|
||||
'
|
||||
'Knowledge_Input
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(673, 304)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "Knowledge_Input"
|
||||
Me.Text = "Knowledge_Input"
|
||||
Me.TopMost = True
|
||||
Me.pnlintro.ResumeLayout(False)
|
||||
Me.pnlintro.PerformLayout()
|
||||
Me.pnlcategorydisplay.ResumeLayout(False)
|
||||
Me.pnlcategorydisplay.PerformLayout()
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pgcontents.PerformLayout()
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||
Friend WithEvents pnlintro As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlcategorydisplay As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblcategory As System.Windows.Forms.Label
|
||||
Friend WithEvents btnstart As System.Windows.Forms.Button
|
||||
Friend WithEvents lblcatedescription As System.Windows.Forms.Label
|
||||
Friend WithEvents lbltillnextlevel As System.Windows.Forms.Label
|
||||
Friend WithEvents lbltotal As System.Windows.Forms.Label
|
||||
Friend WithEvents listblistedstuff As System.Windows.Forms.ListBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents guessbox As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblcurrentlevel As System.Windows.Forms.Label
|
||||
Friend WithEvents decider As System.Windows.Forms.Timer
|
||||
Friend WithEvents lblnextreward As System.Windows.Forms.Label
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
End Class
|
||||
131
Knowledge Input.resx
Normal file
131
Knowledge Input.resx
Normal file
|
|
@ -0,0 +1,131 @@
|
|||
<?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="Label2.Text" xml:space="preserve">
|
||||
<value>Your goal in this game is to list as many words as possible
|
||||
from a certain category of objects such as "Animals".
|
||||
|
||||
You start off on level 1 and your goal is to list 10 words to
|
||||
reach the next level. Upon reaching each new level you will
|
||||
be rewarded with an increasing number of code points.</value>
|
||||
</data>
|
||||
<metadata name="decider.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>106, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
1662
Knowledge Input.vb
Normal file
1662
Knowledge Input.vb
Normal file
File diff suppressed because it is too large
Load diff
3
Module1.vb
Normal file
3
Module1.vb
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
Module Module1
|
||||
|
||||
End Module
|
||||
38
My Project/Application.Designer.vb
generated
Normal file
38
My Project/Application.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.17929
|
||||
'
|
||||
' 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 = true
|
||||
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.ShiftOS.HijackScreen
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
My Project/Application.myapp
Normal file
10
My Project/Application.myapp
Normal 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>HijackScreen</MainForm>
|
||||
<SingleInstance>true</SingleInstance>
|
||||
<ShutdownMode>1</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
My Project/AssemblyInfo.vb
Normal file
35
My Project/AssemblyInfo.vb
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
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("ShiftOS")>
|
||||
<Assembly: AssemblyDescription("Experience the thrills of evolving an experimental operating system named ShiftOS")>
|
||||
<Assembly: AssemblyCompany("Philip Adams")>
|
||||
<Assembly: AssemblyProduct("ShiftOS")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2014 Philip Adams")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("94aec2a7-7c85-4919-ad5a-79c3b34b3ec6")>
|
||||
|
||||
' 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.0.7.0")>
|
||||
<Assembly: AssemblyFileVersion("0.0.7.0")>
|
||||
2746
My Project/Resources.Designer.vb
generated
Normal file
2746
My Project/Resources.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load diff
928
My Project/Resources.resx
Normal file
928
My Project/Resources.resx
Normal file
|
|
@ -0,0 +1,928 @@
|
|||
<?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="dial_up_modem_02" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\dial-up-modem-02.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Symbolinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Symbolinfo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="test" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\test.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="typesound" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\typesound.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="upgradealclock" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradealshiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealshiftorium.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeamandpm" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeamandpm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeanycolourshade" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\anycolourshade.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeanycolourshade2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\anycolourshade2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeanycolourshade3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\anycolourshade3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeanycolourshade4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\anycolourshade4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeapplaunchermenu" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeapplaunchermenu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeapplaunchershutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeapplaunchershutdown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeautoscrollterminal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeautoscrollterminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeblue" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeblue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradebluecustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradebluecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeblueshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeblueshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeblueshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeblueshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradebrown" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradebrown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradebrowncustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradebrowncustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradebrownshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradebrownshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradebrownshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradebrownshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeclock" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeclosebutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeclosebutton.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradecustomusername" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradecustomusername.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradedesktoppanel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradedesktoppanel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradedesktoppanelclock" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradedesktoppanelclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradedraggablewindows" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradedraggablewindows.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegray" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegraycustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegraycustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegrayshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegrayshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegrayshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegrayshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegreen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegreen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegreencustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegreencustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegreenshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegreenshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradegreenshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradegreenshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradehoursssincemidnight" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradehoursssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradekiaddons" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradekiaddons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeknowledgeinput" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeknowledgeinput.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademinuteaccuracytime" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademinuteaccuracytime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademinutesssincemidnight" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademinutesssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademoveablewindows" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademoveablewindows.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademultitasking" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademultitasking.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeorange" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeorange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeorangecustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeorangecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeorangeshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeorangeshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeorangeshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeorangeshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepink" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepinkcustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepinkcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepinkshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepinkshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepinkshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepinkshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepurple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepurple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepurplecustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepurplecustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepurpleshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepurpleshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepurpleshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepurpleshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradered" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradered.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgraderedcustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgraderedcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgraderedshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgraderedshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgraderedshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgraderedshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradesecondssincemidnight" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradesecondssincemidnight.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradesgameconsoles" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradesgameconsoles.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeskicarbrands" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeskicarbrands.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradesplitsecondaccuracy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradesplitsecondaccuracy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeterminalscrollbar" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeterminalscrollbar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetitlebar" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetitlebar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetitletext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetitletext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradewindowborders" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradewindowborders.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradewindowedterminal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradewindowedterminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradewindowsanywhere" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradewindowsanywhere.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeyellow" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeyellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeyellowcustom" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeyellowcustom.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeyellowshades" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeyellowshades.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeyellowshadeset" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeyellowshadeset.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="writesound" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\writesound.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="infobox" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\infobox.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="rolldown" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\rolldown.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="rollup" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\rollup.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="upgradealshifter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealshifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgraderollupbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgraderollupbutton.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgraderollupcommand" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgraderollupcommand.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftapplauncher" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftapplauncher.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftborders" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftborders.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftbuttons" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftdesktop" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftdesktop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftdesktoppanel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftdesktoppanel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshifter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftpanelclock" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftpanelclock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshifttitlebar" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshifttitlebar.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshifttitletext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshifttitletext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconClock" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconClock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconKnowledgeInput" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconKnowledgeInput.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconPong" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconPong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconShifter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconShifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconShiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconShiftorium.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconTerminal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconTerminal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="newicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\newicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="openicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\openicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="saveicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\saveicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="deletefile" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="downarrow" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\downarrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="newfolder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\newfolder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="uparrow" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\uparrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="deletefolder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\deletefolder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconFileSkimmer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconFileSkimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconshutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconshutdown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconTextPad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconTextPad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconColourPicker" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconColourPicker.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconFileOpener" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconFileOpener.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconFileSaver" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconFileSaver.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconInfoBox" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconInfoBox.fw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradealfileskimmer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealfileskimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradealpong" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealpong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradealtextpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealtextpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeclockicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeclockicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradecolourpickericon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradecolourpickericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradefileskimmer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradefileskimmer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradefileskimmerdelete" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradefileskimmerdelete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradefileskimmericon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradefileskimmericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradefileskimmernew" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradefileskimmernew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeinfoboxicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeinfoboxicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradekielements" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradekielements.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeknowledgeinputicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeknowledgeinputicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepong" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepong.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepongicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepongicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftericon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftericon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftoriumicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftoriumicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshutdownicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshutdownicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeterminalicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeterminalicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetextpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetextpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetextpadicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetextpadicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetextpadnew" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetextpadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetextpadopen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetextpadopen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradetextpadsave" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradetextpadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconGraphicPicker" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\icongraphicpicker.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="centrebutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\centrebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="centrebuttonpressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\centrebuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="stretchbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\stretchbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="stretchbuttonpressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\stretchbuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="tilebutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\tilebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="tilebuttonpressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\tilebuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="zoombutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoombutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="zoombuttonpressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoombuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadpixelsetter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pixelsetter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconArtpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconArtpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadmagnify" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadmagnify.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadnew" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadopen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadopen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadpencil" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadpencil.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadpixelplacer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadpixelplacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadredo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadredo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadsave" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadundo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadundo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadfloodfill" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadfloodfill.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadOval" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadOval.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadRectangle" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadRectangle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadcirclerubberselected" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadcirclerubberselected.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPaderacer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPaderacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadsquarerubber" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadsquarerubber.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadsquarerubberselected" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadsquarerubberselected.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadlinetool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadlinetool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadpaintbrush" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadpaintbrush.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadtexttool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadtexttool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="updatecustomcolourpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\updatecustomcolourpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradealartpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradealartpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad128colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad128colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad16colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad16colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad32colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad32colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad4colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad4colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad64colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad64colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpad8colorpallets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpad8colorpallets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpaderaser" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpaderaser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadfilltool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadfilltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadicon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadicon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadlimitlesspixels" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadlimitlesspixels.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadlinetool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadlinetool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadload" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadload.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadnew" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadnew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadovaltool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadovaltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpaintbrushtool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpaintbrushtool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpenciltool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpenciltool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit1024" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit1024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit16" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit16384" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit16384.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit256" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit4096" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit4096.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit64" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit64.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit65536" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit65536.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixellimit8" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixellimit8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixelplacer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixelplacer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadpixelplacermovementmode" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadpixelplacermovementmode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadrectangletool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadrectangletool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadredo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadredo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadsave" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadsave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadtexttool" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadtexttool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeartpadundo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeartpadundo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademinimizebutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademinimizebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradepanelbuttons" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradepanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeshiftpanelbuttons" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeshiftpanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeskinning" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeskinning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeunitymode" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeunitymode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgradeusefulpanelbuttons" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgradeusefulpanelbuttons.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="upgrademinimizecommand" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\upgrademinimizecommand.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconSkinLoader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconSkinLoader.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="skinfile" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\skinfile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="loadbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\loadbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="nextbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\nextbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="playbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\playbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="previousbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\previousbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="stopbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\stopbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="webback" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\webback.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="webforward" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\webforward.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="webhome" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\webhome.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="pausebutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\pausebutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconAudioPlayer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconAudioPlayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconCalculator" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconCalculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconNameChanger" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconNameChanger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconVideoPlayer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconVideoPlayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconWebBrowser" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconWebBrowser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconIconManager" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconIconManager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="_3beepvirus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\3beepvirus.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="iconBitnoteDigger" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconBitnoteDigger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconBitnoteWallet" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconBitnoteWallet.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ReceiveClicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ReceiveClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ReceiveUnclicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Receive.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SendClicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SendClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SendUnclicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Send.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="TotalBalanceClicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TotalBalanceClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="TotalBalanceUnclicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\TotalBalanceUnclicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="transactionsClicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\transactionsClicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="transactionsUnclicked" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\transactionsUnclicked.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconSkinShifter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconSkinShifter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="skindownarrow" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\skindownarrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="skinuparrow" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\skinuparrow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArtPadcirclerubber" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArtPadcirclerubber.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconDownloader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconDownloader.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="iconShiftnet" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\iconShiftnet.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeaudioplayerbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeaudioplayerbox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeaudioplayerprice" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeaudioplayerprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapecalculator" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapecalculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapecalculatorprice" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapecalculatorprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapedepositnowbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapedepositnowbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapedownloadbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapedownloadbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfobutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfobutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapemoresoftware" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapemoresoftware.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapetitlebanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapetitlebanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeundefinedprice" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeundefinedprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapevideoplayer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapevideoplayer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapevideoplayerprice" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapevideoplayerprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapewebbrowser" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapewebbrowser.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapewebbrowserprice" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapewebbrowserprice.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapewelcometoappscape" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapewelcometoappscape.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeaudioplayerpricepressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeaudioplayerpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapecalculatorpricepressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapecalculatorpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfobuttonpressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfobuttonpressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeundefinedpricepressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeundefinedpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapevideoplayerpricepressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapevideoplayerpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapewebbrowserpricepressed" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapewebbrowserpricepressed.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfoaudioplayertext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfoaudioplayertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfoaudioplayervisualpreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfoaudioplayervisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfobackbutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfobackbutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfobuybutton" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfobuybutton.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfocalculatortext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfocalculatortext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfocalculatorvisualpreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfocalculatorvisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfovideoplayertext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfovideoplayertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfovideoplayervisualpreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfovideoplayervisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfowebbrowsertext" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfowebbrowsertext.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="appscapeinfowebbrowservisualpreview" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\appscapeinfowebbrowservisualpreview.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
73
My Project/Settings.Designer.vb
generated
Normal file
73
My Project/Settings.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,73 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.17929
|
||||
'
|
||||
' 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", "11.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
|
||||
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.ShiftOS.My.MySettings
|
||||
Get
|
||||
Return Global.ShiftOS.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
My Project/Settings.settings
Normal file
7
My Project/Settings.settings
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
52
My Project/app.manifest
Normal file
52
My Project/app.manifest
Normal file
|
|
@ -0,0 +1,52 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<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 node will disable file and registry virtualization.
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- A list of all Windows versions that this application is designed to work with.
|
||||
Windows will automatically select the most compatible environment.-->
|
||||
<!-- If your application is designed to work with Windows Vista, uncomment the following supportedOS node-->
|
||||
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
|
||||
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
<!-- If your application is designed to work with Windows 8, uncomment the following supportedOS node-->
|
||||
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- 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>-->
|
||||
</asmv1:assembly>
|
||||
8
MyPreviewToolStripRenderer.vb
Normal file
8
MyPreviewToolStripRenderer.vb
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
Imports ShiftOS.MyNamespace
|
||||
|
||||
Public Class MyPreviewToolStripRenderer
|
||||
Inherits ToolStripProfessionalRenderer
|
||||
Public Sub New()
|
||||
MyBase.New(New PreviewCustomColorTable())
|
||||
End Sub
|
||||
End Class
|
||||
8
MyToolStripRenderer.vb
Normal file
8
MyToolStripRenderer.vb
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
Imports ShiftOS.MyNamespace
|
||||
|
||||
Public Class MyToolStripRenderer
|
||||
Inherits ToolStripProfessionalRenderer
|
||||
Public Sub New()
|
||||
MyBase.New(New CustomColorTable())
|
||||
End Sub
|
||||
End Class
|
||||
1521
Name Changer.Designer.vb
generated
Normal file
1521
Name Changer.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load diff
129
Name Changer.resx
Normal file
129
Name Changer.resx
Normal 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="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1347, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1441, 18</value>
|
||||
</metadata>
|
||||
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>1525, 18</value>
|
||||
</metadata>
|
||||
</root>
|
||||
585
Name Changer.vb
Normal file
585
Name Changer.vb
Normal file
|
|
@ -0,0 +1,585 @@
|
|||
Public Class Name_Changer
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 300
|
||||
Public minimumsizeheight As Integer = 400
|
||||
|
||||
Public savelines(200) As String
|
||||
Public loadlines(200) As String
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonnamechanger.SendToBack() 'modfiy to proper name
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonnamechanger, ShiftOSDesktop.tbnamechangericon, ShiftOSDesktop.tbnamechangertext, True) 'modify to proper name
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
loadnames()
|
||||
loadicons()
|
||||
showboughtitems()
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(334, 450) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.namechangername 'Remember to change to name of program!!!!
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtknowledgeinputicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.namechangericontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub resettitlebar()
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
|
||||
Me.Width = Cursor.Position.X - Me.Location.X
|
||||
Me.Height = Cursor.Position.Y - Me.Location.Y
|
||||
resettitlebar()
|
||||
End Sub
|
||||
|
||||
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeWE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNS
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.SizeNWSE
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullside.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbottom.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Start()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
|
||||
If ShiftOSDesktop.boughtresizablewindows = True Then
|
||||
pullbs.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
Public Sub loadnames()
|
||||
txtknowledgeinputname.Text = ShiftOSDesktop.knowledgeinputname
|
||||
txtshiftoriumname.Text = ShiftOSDesktop.shiftoriumname
|
||||
txtclockname.Text = ShiftOSDesktop.clockname
|
||||
txtshiftername.Text = ShiftOSDesktop.shiftername
|
||||
txtcolourpickername.Text = ShiftOSDesktop.colourpickername
|
||||
txtpongname.Text = ShiftOSDesktop.pongname
|
||||
txtfileskimmername.Text = ShiftOSDesktop.fileskimmername
|
||||
txtfileopenername.Text = ShiftOSDesktop.fileopenername
|
||||
txtfilesavername.Text = ShiftOSDesktop.filesavername
|
||||
txttextpadname.Text = ShiftOSDesktop.textpadname
|
||||
txtgraphicpickername.Text = ShiftOSDesktop.graphicpickername
|
||||
txtskinloadername.Text = ShiftOSDesktop.skinloadername
|
||||
txtartpadname.Text = ShiftOSDesktop.artpadname
|
||||
txtcalculatorname.Text = ShiftOSDesktop.calculatorname
|
||||
txtaudioplayername.Text = ShiftOSDesktop.audioplayername
|
||||
txtwebbrowsername.Text = ShiftOSDesktop.webbrowsername
|
||||
txtvideoplayername.Text = ShiftOSDesktop.videoplayername
|
||||
txtnamechanger.Text = ShiftOSDesktop.namechangername
|
||||
txticonmanager.Text = ShiftOSDesktop.iconmanagername
|
||||
txtterminalname.Text = ShiftOSDesktop.terminalname
|
||||
End Sub
|
||||
|
||||
Public Sub loadicons()
|
||||
picknowledgeinputicon.BackgroundImage = ShiftOSDesktop.knowledgeinputicontitlebar
|
||||
picshiftoriumicon.BackgroundImage = ShiftOSDesktop.shiftoriumicontitlebar
|
||||
picclockicon.BackgroundImage = ShiftOSDesktop.clockicontitlebar
|
||||
picshiftericon.BackgroundImage = ShiftOSDesktop.shiftericontitlebar
|
||||
piccolourpickericon.BackgroundImage = ShiftOSDesktop.colourpickericontitlebar
|
||||
picpongicon.BackgroundImage = ShiftOSDesktop.pongicontitlebar
|
||||
picfileskimmericon.BackgroundImage = ShiftOSDesktop.fileskimmericontitlebar
|
||||
picfileopenericon.BackgroundImage = ShiftOSDesktop.fileopenericontitlebar
|
||||
picfilesavericon.BackgroundImage = ShiftOSDesktop.filesavericontitlebar
|
||||
pictextpadicon.BackgroundImage = ShiftOSDesktop.textpadicontitlebar
|
||||
picgraphicpickericon.BackgroundImage = ShiftOSDesktop.graphicpickericontitlebar
|
||||
picskinloadericon.BackgroundImage = ShiftOSDesktop.skinloadericontitlebar
|
||||
picartpadicon.BackgroundImage = ShiftOSDesktop.artpadicontitlebar
|
||||
piccalculatoricon.BackgroundImage = ShiftOSDesktop.calculatoricontitlebar
|
||||
picaudioplayericon.BackgroundImage = ShiftOSDesktop.audioplayericontitlebar
|
||||
picwebbrowsericon.BackgroundImage = ShiftOSDesktop.webbrowsericontitlebar
|
||||
picvideoplayericon.BackgroundImage = ShiftOSDesktop.videoplayericontitlebar
|
||||
picnamechangericon.BackgroundImage = ShiftOSDesktop.namechangericontitlebar
|
||||
piciconmanagericon.BackgroundImage = ShiftOSDesktop.iconmanagericontitlebar
|
||||
picterminalicon.BackgroundImage = ShiftOSDesktop.terminalicontitlebar
|
||||
End Sub
|
||||
|
||||
Private Sub btnApply_Click(sender As Object, e As EventArgs) Handles btnApply.Click
|
||||
applychanges()
|
||||
End Sub
|
||||
|
||||
Public Sub applychanges()
|
||||
ShiftOSDesktop.knowledgeinputname = txtknowledgeinputname.Text
|
||||
ShiftOSDesktop.shiftoriumname = txtshiftoriumname.Text
|
||||
ShiftOSDesktop.clockname = txtclockname.Text
|
||||
ShiftOSDesktop.shiftername = txtshiftername.Text
|
||||
ShiftOSDesktop.colourpickername = txtcolourpickername.Text
|
||||
ShiftOSDesktop.pongname = txtpongname.Text
|
||||
ShiftOSDesktop.fileskimmername = txtfileskimmername.Text
|
||||
ShiftOSDesktop.fileopenername = txtfileopenername.Text
|
||||
ShiftOSDesktop.filesavername = txtfilesavername.Text
|
||||
ShiftOSDesktop.textpadname = txttextpadname.Text
|
||||
ShiftOSDesktop.graphicpickername = txtgraphicpickername.Text
|
||||
ShiftOSDesktop.skinloadername = txtskinloadername.Text
|
||||
ShiftOSDesktop.artpadname = txtartpadname.Text
|
||||
ShiftOSDesktop.calculatorname = txtcalculatorname.Text
|
||||
ShiftOSDesktop.audioplayername = txtaudioplayername.Text
|
||||
ShiftOSDesktop.webbrowsername = txtwebbrowsername.Text
|
||||
ShiftOSDesktop.videoplayername = txtvideoplayername.Text
|
||||
ShiftOSDesktop.namechangername = txtnamechanger.Text
|
||||
ShiftOSDesktop.iconmanagername = txticonmanager.Text
|
||||
ShiftOSDesktop.terminalname = txtterminalname.Text
|
||||
|
||||
ShiftOSDesktop.setupalltitlebars()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setupdesktop()
|
||||
If Icon_Manager.Visible = True Then Icon_Manager.loadsettings()
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
savelines(0) = ShiftOSDesktop.artpadname
|
||||
savelines(1) = ShiftOSDesktop.audioplayername
|
||||
savelines(2) = ShiftOSDesktop.calculatorname
|
||||
savelines(3) = ShiftOSDesktop.clockname
|
||||
savelines(4) = ShiftOSDesktop.colourpickername
|
||||
savelines(5) = ShiftOSDesktop.fileopenername
|
||||
savelines(6) = ShiftOSDesktop.filesavername
|
||||
savelines(7) = ShiftOSDesktop.fileskimmername
|
||||
savelines(8) = ShiftOSDesktop.graphicpickername
|
||||
savelines(9) = ShiftOSDesktop.knowledgeinputname
|
||||
savelines(10) = ShiftOSDesktop.pongname
|
||||
savelines(11) = ShiftOSDesktop.shiftername
|
||||
savelines(12) = ShiftOSDesktop.shiftoriumname
|
||||
savelines(13) = ShiftOSDesktop.skinloadername
|
||||
savelines(14) = ShiftOSDesktop.terminalname
|
||||
savelines(15) = ShiftOSDesktop.textpadname
|
||||
savelines(16) = ShiftOSDesktop.videoplayername
|
||||
savelines(17) = ShiftOSDesktop.webbrowsername
|
||||
savelines(18) = ShiftOSDesktop.namechangername
|
||||
savelines(19) = ShiftOSDesktop.iconmanagername
|
||||
|
||||
File_Saver.savingprogram = "namechanger"
|
||||
File_Saver.saveextention = ".nls"
|
||||
File_Saver.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
|
||||
File_Opener.Show()
|
||||
File_Opener.openingprogram = "namechanger"
|
||||
File_Opener.openextention = ".nls"
|
||||
File_Opener.lbextention.Text = File_Opener.openextention
|
||||
File_Opener.showcontents()
|
||||
End Sub
|
||||
|
||||
Public Sub loadnamesfromfile()
|
||||
If loadlines(0) = "" Then Else ShiftOSDesktop.artpadname = loadlines(0)
|
||||
If loadlines(1) = "" Then Else ShiftOSDesktop.audioplayername = loadlines(1)
|
||||
If loadlines(2) = "" Then Else ShiftOSDesktop.calculatorname = loadlines(2)
|
||||
If loadlines(3) = "" Then Else ShiftOSDesktop.clockname = loadlines(3)
|
||||
If loadlines(4) = "" Then Else ShiftOSDesktop.colourpickername = loadlines(4)
|
||||
If loadlines(5) = "" Then Else ShiftOSDesktop.fileopenername = loadlines(5)
|
||||
If loadlines(6) = "" Then Else ShiftOSDesktop.filesavername = loadlines(6)
|
||||
If loadlines(7) = "" Then Else ShiftOSDesktop.fileskimmername = loadlines(7)
|
||||
If loadlines(8) = "" Then Else ShiftOSDesktop.graphicpickername = loadlines(8)
|
||||
If loadlines(9) = "" Then Else ShiftOSDesktop.knowledgeinputname = loadlines(9)
|
||||
If loadlines(10) = "" Then Else ShiftOSDesktop.pongname = loadlines(10)
|
||||
If loadlines(11) = "" Then Else ShiftOSDesktop.shiftername = loadlines(11)
|
||||
If loadlines(12) = "" Then Else ShiftOSDesktop.shiftoriumname = loadlines(12)
|
||||
If loadlines(13) = "" Then Else ShiftOSDesktop.skinloadername = loadlines(13)
|
||||
If loadlines(14) = "" Then Else ShiftOSDesktop.terminalname = loadlines(14)
|
||||
If loadlines(15) = "" Then Else ShiftOSDesktop.textpadname = loadlines(15)
|
||||
If loadlines(16) = "" Then Else ShiftOSDesktop.videoplayername = loadlines(16)
|
||||
If loadlines(17) = "" Then Else ShiftOSDesktop.webbrowsername = loadlines(17)
|
||||
If loadlines(18) = "" Then Else ShiftOSDesktop.namechangername = loadlines(18)
|
||||
If loadlines(19) = "" Then Else ShiftOSDesktop.iconmanagername = loadlines(19)
|
||||
loadnames()
|
||||
ShiftOSDesktop.setupalltitlebars()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setupdesktop()
|
||||
End Sub
|
||||
|
||||
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
||||
ShiftOSDesktop.artpadname = "Artpad"
|
||||
ShiftOSDesktop.audioplayername = "Audio Player"
|
||||
ShiftOSDesktop.calculatorname = "Calculator"
|
||||
ShiftOSDesktop.clockname = "Clock"
|
||||
ShiftOSDesktop.colourpickername = "Colour Picker"
|
||||
ShiftOSDesktop.fileopenername = "File Opener"
|
||||
ShiftOSDesktop.filesavername = "File Saver"
|
||||
ShiftOSDesktop.fileskimmername = "File Skimmer"
|
||||
ShiftOSDesktop.graphicpickername = "Graphic Picker"
|
||||
ShiftOSDesktop.knowledgeinputname = "Knowledge Input"
|
||||
ShiftOSDesktop.pongname = "Pong"
|
||||
ShiftOSDesktop.shiftername = "Shifter"
|
||||
ShiftOSDesktop.shiftoriumname = "Shiftorium"
|
||||
ShiftOSDesktop.skinloadername = "Skin Loader"
|
||||
ShiftOSDesktop.terminalname = "Terminal"
|
||||
ShiftOSDesktop.textpadname = "TextPad"
|
||||
ShiftOSDesktop.videoplayername = "Video Player"
|
||||
ShiftOSDesktop.webbrowsername = "Web Browser"
|
||||
ShiftOSDesktop.namechangername = "Name Changer"
|
||||
ShiftOSDesktop.iconmanagername = "Icon Manager"
|
||||
loadnames()
|
||||
loadicons()
|
||||
applychanges()
|
||||
End Sub
|
||||
|
||||
Private Sub showboughtitems()
|
||||
If ShiftOSDesktop.boughtclock = True Then pnlclocksettings.Show()
|
||||
If ShiftOSDesktop.boughtshifter = True Then pnlshiftersettings.Show()
|
||||
If ShiftOSDesktop.boughtshifter = True Then pnlcolourpickersettings.Show()
|
||||
If ShiftOSDesktop.boughtpong = True Then pnlpongsettings.Show()
|
||||
If ShiftOSDesktop.boughtfileskimmer = True Then pnlfileskimmersettings.Show()
|
||||
If ShiftOSDesktop.boughtfileskimmer = True Then pnlfileopenersettings.Show()
|
||||
If ShiftOSDesktop.boughtfileskimmer = True Then pnlfilesaversettings.Show()
|
||||
If ShiftOSDesktop.boughttextpad = True Then pnltextpadsettings.Show()
|
||||
If ShiftOSDesktop.boughtskinning = True Then pnlgraphicpickersettings.Show()
|
||||
If ShiftOSDesktop.boughtskinloader = True Then pnlskinloadersettings.Show()
|
||||
If ShiftOSDesktop.boughtartpad = True Then pnlartpadsettings.Show()
|
||||
If ShiftOSDesktop.boughtcalculator = True Then pnlcalculatorsettings.Show()
|
||||
If ShiftOSDesktop.boughtaudioplayer = True Then pnlaudioplayersettings.Show()
|
||||
If ShiftOSDesktop.boughtwebbrowser = True Then pnlwebbrowsersettings.Show()
|
||||
If ShiftOSDesktop.boughtvideoplayer = True Then pnlvideoplayersettings.Show()
|
||||
If ShiftOSDesktop.boughtnamechanger = True Then pnlnamechangersettings.Show()
|
||||
If ShiftOSDesktop.boughticonmanager = True Then pnliconmanagersettings.Show()
|
||||
End Sub
|
||||
End Class
|
||||
731
Pong.Designer.vb
generated
Normal file
731
Pong.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,731 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Pong
|
||||
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(Pong))
|
||||
Me.pgcontents = New System.Windows.Forms.Panel()
|
||||
Me.pnlintro = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.btnstartgame = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.pnllose = New System.Windows.Forms.Panel()
|
||||
Me.lblmissedout = New System.Windows.Forms.Label()
|
||||
Me.btnlosetryagain = New System.Windows.Forms.Button()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.pnlgamestats = New System.Windows.Forms.Panel()
|
||||
Me.lblnextstats = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.lblpreviousstats = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.btnplayon = New System.Windows.Forms.Button()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.btncashout = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.lbllevelreached = New System.Windows.Forms.Label()
|
||||
Me.pnlfinalstats = New System.Windows.Forms.Panel()
|
||||
Me.btnplayagain = New System.Windows.Forms.Button()
|
||||
Me.lblfinalcodepoints = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.lblfinalcomputerreward = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.lblfinallevelreward = New System.Windows.Forms.Label()
|
||||
Me.lblfinallevelreached = New System.Windows.Forms.Label()
|
||||
Me.lblfinalcodepointswithtext = New System.Windows.Forms.Label()
|
||||
Me.lblbeatai = New System.Windows.Forms.Label()
|
||||
Me.lblcountdown = New System.Windows.Forms.Label()
|
||||
Me.ball = New System.Windows.Forms.Panel()
|
||||
Me.paddleHuman = New System.Windows.Forms.PictureBox()
|
||||
Me.paddleComputer = New System.Windows.Forms.Panel()
|
||||
Me.lbllevelandtime = New System.Windows.Forms.Label()
|
||||
Me.lblstatscodepoints = New System.Windows.Forms.Label()
|
||||
Me.lblstatsY = New System.Windows.Forms.Label()
|
||||
Me.lblstatsX = New System.Windows.Forms.Label()
|
||||
Me.pgleft = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgright = New System.Windows.Forms.Panel()
|
||||
Me.pgbottomrcorner = New System.Windows.Forms.Panel()
|
||||
Me.titlebar = New System.Windows.Forms.Panel()
|
||||
Me.minimizebutton = New System.Windows.Forms.Panel()
|
||||
Me.pnlicon = New System.Windows.Forms.PictureBox()
|
||||
Me.rollupbutton = New System.Windows.Forms.Panel()
|
||||
Me.closebutton = New System.Windows.Forms.Panel()
|
||||
Me.lbtitletext = New System.Windows.Forms.Label()
|
||||
Me.pgtoplcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgtoprcorner = New System.Windows.Forms.Panel()
|
||||
Me.pgbottom = New System.Windows.Forms.Panel()
|
||||
Me.gameTimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.counter = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.tmrcountdown = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pgcontents.SuspendLayout()
|
||||
Me.pnlintro.SuspendLayout()
|
||||
Me.pnllose.SuspendLayout()
|
||||
Me.pnlgamestats.SuspendLayout()
|
||||
Me.pnlfinalstats.SuspendLayout()
|
||||
CType(Me.paddleHuman, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pgleft.SuspendLayout()
|
||||
Me.pgright.SuspendLayout()
|
||||
Me.titlebar.SuspendLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pgcontents
|
||||
'
|
||||
Me.pgcontents.BackColor = System.Drawing.Color.White
|
||||
Me.pgcontents.Controls.Add(Me.pnlintro)
|
||||
Me.pgcontents.Controls.Add(Me.pnllose)
|
||||
Me.pgcontents.Controls.Add(Me.pnlgamestats)
|
||||
Me.pgcontents.Controls.Add(Me.pnlfinalstats)
|
||||
Me.pgcontents.Controls.Add(Me.lblbeatai)
|
||||
Me.pgcontents.Controls.Add(Me.lblcountdown)
|
||||
Me.pgcontents.Controls.Add(Me.ball)
|
||||
Me.pgcontents.Controls.Add(Me.paddleHuman)
|
||||
Me.pgcontents.Controls.Add(Me.paddleComputer)
|
||||
Me.pgcontents.Controls.Add(Me.lbllevelandtime)
|
||||
Me.pgcontents.Controls.Add(Me.lblstatscodepoints)
|
||||
Me.pgcontents.Controls.Add(Me.lblstatsY)
|
||||
Me.pgcontents.Controls.Add(Me.lblstatsX)
|
||||
Me.pgcontents.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pgcontents.Location = New System.Drawing.Point(2, 30)
|
||||
Me.pgcontents.Name = "pgcontents"
|
||||
Me.pgcontents.Size = New System.Drawing.Size(696, 368)
|
||||
Me.pgcontents.TabIndex = 20
|
||||
'
|
||||
'pnlintro
|
||||
'
|
||||
Me.pnlintro.Controls.Add(Me.Label6)
|
||||
Me.pnlintro.Controls.Add(Me.btnstartgame)
|
||||
Me.pnlintro.Controls.Add(Me.Label8)
|
||||
Me.pnlintro.Location = New System.Drawing.Point(52, 29)
|
||||
Me.pnlintro.Name = "pnlintro"
|
||||
Me.pnlintro.Size = New System.Drawing.Size(595, 303)
|
||||
Me.pnlintro.TabIndex = 13
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(3, 39)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(589, 227)
|
||||
Me.Label6.TabIndex = 15
|
||||
Me.Label6.Text = resources.GetString("Label6.Text")
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
'
|
||||
'btnstartgame
|
||||
'
|
||||
Me.btnstartgame.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnstartgame.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnstartgame.Location = New System.Drawing.Point(186, 273)
|
||||
Me.btnstartgame.Name = "btnstartgame"
|
||||
Me.btnstartgame.Size = New System.Drawing.Size(242, 28)
|
||||
Me.btnstartgame.TabIndex = 15
|
||||
Me.btnstartgame.Text = "Click this button to play pong!"
|
||||
Me.btnstartgame.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label8.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label8.Location = New System.Drawing.Point(179, 5)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(250, 31)
|
||||
Me.Label8.TabIndex = 14
|
||||
Me.Label8.Text = "Welcome to Pong!"
|
||||
'
|
||||
'pnllose
|
||||
'
|
||||
Me.pnllose.Controls.Add(Me.lblmissedout)
|
||||
Me.pnllose.Controls.Add(Me.btnlosetryagain)
|
||||
Me.pnllose.Controls.Add(Me.Label5)
|
||||
Me.pnllose.Controls.Add(Me.Label1)
|
||||
Me.pnllose.Location = New System.Drawing.Point(209, 71)
|
||||
Me.pnllose.Name = "pnllose"
|
||||
Me.pnllose.Size = New System.Drawing.Size(266, 214)
|
||||
Me.pnllose.TabIndex = 10
|
||||
Me.pnllose.Visible = False
|
||||
'
|
||||
'lblmissedout
|
||||
'
|
||||
Me.lblmissedout.Font = New System.Drawing.Font("Bookman Old Style", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblmissedout.Location = New System.Drawing.Point(3, 175)
|
||||
Me.lblmissedout.Name = "lblmissedout"
|
||||
Me.lblmissedout.Size = New System.Drawing.Size(146, 35)
|
||||
Me.lblmissedout.TabIndex = 3
|
||||
Me.lblmissedout.Text = "You Missed Out On:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "500 Codepoints"
|
||||
Me.lblmissedout.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btnlosetryagain
|
||||
'
|
||||
Me.btnlosetryagain.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnlosetryagain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnlosetryagain.Location = New System.Drawing.Point(155, 176)
|
||||
Me.btnlosetryagain.Name = "btnlosetryagain"
|
||||
Me.btnlosetryagain.Size = New System.Drawing.Size(106, 35)
|
||||
Me.btnlosetryagain.TabIndex = 2
|
||||
Me.btnlosetryagain.Text = "Try Again"
|
||||
Me.btnlosetryagain.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(7, 26)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(260, 163)
|
||||
Me.Label5.TabIndex = 1
|
||||
Me.Label5.Text = resources.GetString("Label5.Text")
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(4, 4)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(265, 16)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Unfortunately you just lost the game..."
|
||||
'
|
||||
'pnlgamestats
|
||||
'
|
||||
Me.pnlgamestats.Controls.Add(Me.lblnextstats)
|
||||
Me.pnlgamestats.Controls.Add(Me.Label7)
|
||||
Me.pnlgamestats.Controls.Add(Me.lblpreviousstats)
|
||||
Me.pnlgamestats.Controls.Add(Me.Label4)
|
||||
Me.pnlgamestats.Controls.Add(Me.btnplayon)
|
||||
Me.pnlgamestats.Controls.Add(Me.Label3)
|
||||
Me.pnlgamestats.Controls.Add(Me.btncashout)
|
||||
Me.pnlgamestats.Controls.Add(Me.Label2)
|
||||
Me.pnlgamestats.Controls.Add(Me.lbllevelreached)
|
||||
Me.pnlgamestats.Location = New System.Drawing.Point(122, 84)
|
||||
Me.pnlgamestats.Name = "pnlgamestats"
|
||||
Me.pnlgamestats.Size = New System.Drawing.Size(466, 206)
|
||||
Me.pnlgamestats.TabIndex = 6
|
||||
Me.pnlgamestats.Visible = False
|
||||
'
|
||||
'lblnextstats
|
||||
'
|
||||
Me.lblnextstats.AutoSize = True
|
||||
Me.lblnextstats.Location = New System.Drawing.Point(278, 136)
|
||||
Me.lblnextstats.Name = "lblnextstats"
|
||||
Me.lblnextstats.Size = New System.Drawing.Size(119, 52)
|
||||
Me.lblnextstats.TabIndex = 8
|
||||
Me.lblnextstats.Text = "Initial Ball X Speed: 6" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Initial Ball Y Speed: 9" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increment X Speed: 0.5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increme" & _
|
||||
"nt Y Speed: 0.9"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(278, 119)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(124, 16)
|
||||
Me.Label7.TabIndex = 7
|
||||
Me.Label7.Text = "Next Level Stats:"
|
||||
'
|
||||
'lblpreviousstats
|
||||
'
|
||||
Me.lblpreviousstats.AutoSize = True
|
||||
Me.lblpreviousstats.Location = New System.Drawing.Point(278, 54)
|
||||
Me.lblpreviousstats.Name = "lblpreviousstats"
|
||||
Me.lblpreviousstats.Size = New System.Drawing.Size(119, 52)
|
||||
Me.lblpreviousstats.TabIndex = 6
|
||||
Me.lblpreviousstats.Text = "Initial Ball X Speed: 5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Initial Ball Y Speed: 7" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increment X Speed: 0.3" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Increme" & _
|
||||
"nt Y Speed: 0.6"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(278, 37)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(154, 16)
|
||||
Me.Label4.TabIndex = 5
|
||||
Me.Label4.Text = "Previous Level Stats:"
|
||||
'
|
||||
'btnplayon
|
||||
'
|
||||
Me.btnplayon.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnplayon.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnplayon.Location = New System.Drawing.Point(32, 162)
|
||||
Me.btnplayon.Name = "btnplayon"
|
||||
Me.btnplayon.Size = New System.Drawing.Size(191, 35)
|
||||
Me.btnplayon.TabIndex = 4
|
||||
Me.btnplayon.Text = "Play on for 3 codepoints!"
|
||||
Me.btnplayon.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(8, 126)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(245, 33)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "Or do you want to try your luck on the next level to increase your reward?"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'btncashout
|
||||
'
|
||||
Me.btncashout.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btncashout.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btncashout.Location = New System.Drawing.Point(32, 73)
|
||||
Me.btncashout.Name = "btncashout"
|
||||
Me.btncashout.Size = New System.Drawing.Size(191, 35)
|
||||
Me.btncashout.TabIndex = 2
|
||||
Me.btncashout.Text = "Cash out with 1 codepoint!"
|
||||
Me.btncashout.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(8, 37)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(245, 33)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Would you like the end the game now and cash out with your reward?"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lbllevelreached
|
||||
'
|
||||
Me.lbllevelreached.AutoSize = True
|
||||
Me.lbllevelreached.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbllevelreached.Location = New System.Drawing.Point(149, 6)
|
||||
Me.lbllevelreached.Name = "lbllevelreached"
|
||||
Me.lbllevelreached.Size = New System.Drawing.Size(185, 20)
|
||||
Me.lbllevelreached.TabIndex = 0
|
||||
Me.lbllevelreached.Text = "You Reached Level 2!"
|
||||
'
|
||||
'pnlfinalstats
|
||||
'
|
||||
Me.pnlfinalstats.Controls.Add(Me.btnplayagain)
|
||||
Me.pnlfinalstats.Controls.Add(Me.lblfinalcodepoints)
|
||||
Me.pnlfinalstats.Controls.Add(Me.Label11)
|
||||
Me.pnlfinalstats.Controls.Add(Me.lblfinalcomputerreward)
|
||||
Me.pnlfinalstats.Controls.Add(Me.Label9)
|
||||
Me.pnlfinalstats.Controls.Add(Me.lblfinallevelreward)
|
||||
Me.pnlfinalstats.Controls.Add(Me.lblfinallevelreached)
|
||||
Me.pnlfinalstats.Controls.Add(Me.lblfinalcodepointswithtext)
|
||||
Me.pnlfinalstats.Location = New System.Drawing.Point(172, 74)
|
||||
Me.pnlfinalstats.Name = "pnlfinalstats"
|
||||
Me.pnlfinalstats.Size = New System.Drawing.Size(362, 226)
|
||||
Me.pnlfinalstats.TabIndex = 9
|
||||
Me.pnlfinalstats.Visible = False
|
||||
'
|
||||
'btnplayagain
|
||||
'
|
||||
Me.btnplayagain.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnplayagain.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnplayagain.Location = New System.Drawing.Point(5, 194)
|
||||
Me.btnplayagain.Name = "btnplayagain"
|
||||
Me.btnplayagain.Size = New System.Drawing.Size(352, 29)
|
||||
Me.btnplayagain.TabIndex = 16
|
||||
Me.btnplayagain.Text = "Click this button to play again!"
|
||||
Me.btnplayagain.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblfinalcodepoints
|
||||
'
|
||||
Me.lblfinalcodepoints.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblfinalcodepoints.Location = New System.Drawing.Point(3, 124)
|
||||
Me.lblfinalcodepoints.Name = "lblfinalcodepoints"
|
||||
Me.lblfinalcodepoints.Size = New System.Drawing.Size(356, 73)
|
||||
Me.lblfinalcodepoints.TabIndex = 15
|
||||
Me.lblfinalcodepoints.Text = "134 CP"
|
||||
Me.lblfinalcodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label11.Location = New System.Drawing.Point(162, 82)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(33, 33)
|
||||
Me.Label11.TabIndex = 14
|
||||
Me.Label11.Text = "+"
|
||||
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblfinalcomputerreward
|
||||
'
|
||||
Me.lblfinalcomputerreward.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblfinalcomputerreward.Location = New System.Drawing.Point(193, 72)
|
||||
Me.lblfinalcomputerreward.Name = "lblfinalcomputerreward"
|
||||
Me.lblfinalcomputerreward.Size = New System.Drawing.Size(151, 52)
|
||||
Me.lblfinalcomputerreward.TabIndex = 12
|
||||
Me.lblfinalcomputerreward.Text = "34"
|
||||
Me.lblfinalcomputerreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(179, 31)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(180, 49)
|
||||
Me.Label9.TabIndex = 11
|
||||
Me.Label9.Text = "Codepoints rewarded for beating the Computer" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblfinallevelreward
|
||||
'
|
||||
Me.lblfinallevelreward.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblfinallevelreward.Location = New System.Drawing.Point(12, 72)
|
||||
Me.lblfinallevelreward.Name = "lblfinallevelreward"
|
||||
Me.lblfinallevelreward.Size = New System.Drawing.Size(151, 52)
|
||||
Me.lblfinallevelreward.TabIndex = 10
|
||||
Me.lblfinallevelreward.Text = "100"
|
||||
Me.lblfinallevelreward.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblfinallevelreached
|
||||
'
|
||||
Me.lblfinallevelreached.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblfinallevelreached.Location = New System.Drawing.Point(3, 31)
|
||||
Me.lblfinallevelreached.Name = "lblfinallevelreached"
|
||||
Me.lblfinallevelreached.Size = New System.Drawing.Size(170, 49)
|
||||
Me.lblfinallevelreached.TabIndex = 9
|
||||
Me.lblfinallevelreached.Text = "Codepoints rewarded for reaching level 10" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
Me.lblfinallevelreached.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblfinalcodepointswithtext
|
||||
'
|
||||
Me.lblfinalcodepointswithtext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblfinalcodepointswithtext.Location = New System.Drawing.Point(3, 2)
|
||||
Me.lblfinalcodepointswithtext.Name = "lblfinalcodepointswithtext"
|
||||
Me.lblfinalcodepointswithtext.Size = New System.Drawing.Size(356, 26)
|
||||
Me.lblfinalcodepointswithtext.TabIndex = 1
|
||||
Me.lblfinalcodepointswithtext.Text = "You cashed out with 134 codepoints!"
|
||||
Me.lblfinalcodepointswithtext.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblbeatai
|
||||
'
|
||||
Me.lblbeatai.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblbeatai.Location = New System.Drawing.Point(47, 41)
|
||||
Me.lblbeatai.Name = "lblbeatai"
|
||||
Me.lblbeatai.Size = New System.Drawing.Size(600, 30)
|
||||
Me.lblbeatai.TabIndex = 8
|
||||
Me.lblbeatai.Text = "You got 2 codepoints for beating the Computer!"
|
||||
Me.lblbeatai.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
Me.lblbeatai.Visible = False
|
||||
'
|
||||
'lblcountdown
|
||||
'
|
||||
Me.lblcountdown.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblcountdown.Location = New System.Drawing.Point(182, 152)
|
||||
Me.lblcountdown.Name = "lblcountdown"
|
||||
Me.lblcountdown.Size = New System.Drawing.Size(315, 49)
|
||||
Me.lblcountdown.TabIndex = 7
|
||||
Me.lblcountdown.Text = "3"
|
||||
Me.lblcountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
Me.lblcountdown.Visible = False
|
||||
'
|
||||
'ball
|
||||
'
|
||||
Me.ball.BackColor = System.Drawing.Color.Black
|
||||
Me.ball.Location = New System.Drawing.Point(300, 152)
|
||||
Me.ball.Name = "ball"
|
||||
Me.ball.Size = New System.Drawing.Size(20, 20)
|
||||
Me.ball.TabIndex = 2
|
||||
'
|
||||
'paddleHuman
|
||||
'
|
||||
Me.paddleHuman.BackColor = System.Drawing.Color.Black
|
||||
Me.paddleHuman.Location = New System.Drawing.Point(10, 134)
|
||||
Me.paddleHuman.Name = "paddleHuman"
|
||||
Me.paddleHuman.Size = New System.Drawing.Size(20, 100)
|
||||
Me.paddleHuman.TabIndex = 3
|
||||
Me.paddleHuman.TabStop = False
|
||||
'
|
||||
'paddleComputer
|
||||
'
|
||||
Me.paddleComputer.BackColor = System.Drawing.Color.Black
|
||||
Me.paddleComputer.Location = New System.Drawing.Point(666, 134)
|
||||
Me.paddleComputer.Name = "paddleComputer"
|
||||
Me.paddleComputer.Size = New System.Drawing.Size(20, 100)
|
||||
Me.paddleComputer.TabIndex = 1
|
||||
'
|
||||
'lbllevelandtime
|
||||
'
|
||||
Me.lbllevelandtime.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbllevelandtime.Location = New System.Drawing.Point(6, 3)
|
||||
Me.lbllevelandtime.Name = "lbllevelandtime"
|
||||
Me.lbllevelandtime.Size = New System.Drawing.Size(684, 22)
|
||||
Me.lbllevelandtime.TabIndex = 4
|
||||
Me.lbllevelandtime.Text = "Level: 1 - 58 Seconds Left"
|
||||
Me.lbllevelandtime.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblstatscodepoints
|
||||
'
|
||||
Me.lblstatscodepoints.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblstatscodepoints.Location = New System.Drawing.Point(237, 335)
|
||||
Me.lblstatscodepoints.Name = "lblstatscodepoints"
|
||||
Me.lblstatscodepoints.Size = New System.Drawing.Size(219, 35)
|
||||
Me.lblstatscodepoints.TabIndex = 12
|
||||
Me.lblstatscodepoints.Text = "Codepoints: "
|
||||
Me.lblstatscodepoints.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblstatsY
|
||||
'
|
||||
Me.lblstatsY.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblstatsY.Location = New System.Drawing.Point(541, 335)
|
||||
Me.lblstatsY.Name = "lblstatsY"
|
||||
Me.lblstatsY.Size = New System.Drawing.Size(144, 35)
|
||||
Me.lblstatsY.TabIndex = 11
|
||||
Me.lblstatsY.Text = "Yspeed:"
|
||||
Me.lblstatsY.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lblstatsX
|
||||
'
|
||||
Me.lblstatsX.Font = New System.Drawing.Font("Georgia", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblstatsX.Location = New System.Drawing.Point(6, 335)
|
||||
Me.lblstatsX.Name = "lblstatsX"
|
||||
Me.lblstatsX.Size = New System.Drawing.Size(144, 35)
|
||||
Me.lblstatsX.TabIndex = 5
|
||||
Me.lblstatsX.Text = "Xspeed: "
|
||||
Me.lblstatsX.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pgleft
|
||||
'
|
||||
Me.pgleft.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgleft.Controls.Add(Me.pgbottomlcorner)
|
||||
Me.pgleft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgleft.Location = New System.Drawing.Point(0, 30)
|
||||
Me.pgleft.Name = "pgleft"
|
||||
Me.pgleft.Size = New System.Drawing.Size(2, 370)
|
||||
Me.pgleft.TabIndex = 21
|
||||
'
|
||||
'pgbottomlcorner
|
||||
'
|
||||
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 368)
|
||||
Me.pgbottomlcorner.Name = "pgbottomlcorner"
|
||||
Me.pgbottomlcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomlcorner.TabIndex = 14
|
||||
'
|
||||
'pgright
|
||||
'
|
||||
Me.pgright.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgright.Controls.Add(Me.pgbottomrcorner)
|
||||
Me.pgright.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgright.Location = New System.Drawing.Point(698, 30)
|
||||
Me.pgright.Name = "pgright"
|
||||
Me.pgright.Size = New System.Drawing.Size(2, 370)
|
||||
Me.pgright.TabIndex = 22
|
||||
'
|
||||
'pgbottomrcorner
|
||||
'
|
||||
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 368)
|
||||
Me.pgbottomrcorner.Name = "pgbottomrcorner"
|
||||
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
|
||||
Me.pgbottomrcorner.TabIndex = 15
|
||||
'
|
||||
'titlebar
|
||||
'
|
||||
Me.titlebar.BackColor = System.Drawing.Color.Gray
|
||||
Me.titlebar.Controls.Add(Me.minimizebutton)
|
||||
Me.titlebar.Controls.Add(Me.pnlicon)
|
||||
Me.titlebar.Controls.Add(Me.rollupbutton)
|
||||
Me.titlebar.Controls.Add(Me.closebutton)
|
||||
Me.titlebar.Controls.Add(Me.lbtitletext)
|
||||
Me.titlebar.Controls.Add(Me.pgtoplcorner)
|
||||
Me.titlebar.Controls.Add(Me.pgtoprcorner)
|
||||
Me.titlebar.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.titlebar.ForeColor = System.Drawing.Color.White
|
||||
Me.titlebar.Location = New System.Drawing.Point(0, 0)
|
||||
Me.titlebar.Name = "titlebar"
|
||||
Me.titlebar.Size = New System.Drawing.Size(700, 30)
|
||||
Me.titlebar.TabIndex = 19
|
||||
'
|
||||
'minimizebutton
|
||||
'
|
||||
Me.minimizebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.minimizebutton.Location = New System.Drawing.Point(246, 3)
|
||||
Me.minimizebutton.Name = "minimizebutton"
|
||||
Me.minimizebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.minimizebutton.TabIndex = 24
|
||||
'
|
||||
'pnlicon
|
||||
'
|
||||
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pnlicon.Image = Global.ShiftOS.My.Resources.Resources.iconPong
|
||||
Me.pnlicon.Location = New System.Drawing.Point(8, 8)
|
||||
Me.pnlicon.Name = "pnlicon"
|
||||
Me.pnlicon.Size = New System.Drawing.Size(16, 16)
|
||||
Me.pnlicon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.pnlicon.TabIndex = 24
|
||||
Me.pnlicon.TabStop = False
|
||||
Me.pnlicon.Visible = False
|
||||
'
|
||||
'rollupbutton
|
||||
'
|
||||
Me.rollupbutton.BackColor = System.Drawing.Color.Black
|
||||
Me.rollupbutton.Location = New System.Drawing.Point(274, 3)
|
||||
Me.rollupbutton.Name = "rollupbutton"
|
||||
Me.rollupbutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.rollupbutton.TabIndex = 22
|
||||
'
|
||||
'closebutton
|
||||
'
|
||||
Me.closebutton.BackColor = System.Drawing.Color.Black
|
||||
Me.closebutton.Location = New System.Drawing.Point(302, 3)
|
||||
Me.closebutton.Name = "closebutton"
|
||||
Me.closebutton.Size = New System.Drawing.Size(22, 22)
|
||||
Me.closebutton.TabIndex = 20
|
||||
'
|
||||
'lbtitletext
|
||||
'
|
||||
Me.lbtitletext.AutoSize = True
|
||||
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbtitletext.Font = New System.Drawing.Font("Felix Titling", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbtitletext.Location = New System.Drawing.Point(26, 7)
|
||||
Me.lbtitletext.Name = "lbtitletext"
|
||||
Me.lbtitletext.Size = New System.Drawing.Size(55, 18)
|
||||
Me.lbtitletext.TabIndex = 19
|
||||
Me.lbtitletext.Text = "Pong"
|
||||
'
|
||||
'pgtoplcorner
|
||||
'
|
||||
Me.pgtoplcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoplcorner.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pgtoplcorner.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pgtoplcorner.Name = "pgtoplcorner"
|
||||
Me.pgtoplcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoplcorner.TabIndex = 17
|
||||
'
|
||||
'pgtoprcorner
|
||||
'
|
||||
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
|
||||
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pgtoprcorner.Location = New System.Drawing.Point(698, 0)
|
||||
Me.pgtoprcorner.Name = "pgtoprcorner"
|
||||
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
|
||||
Me.pgtoprcorner.TabIndex = 16
|
||||
'
|
||||
'pgbottom
|
||||
'
|
||||
Me.pgbottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.pgbottom.Location = New System.Drawing.Point(2, 398)
|
||||
Me.pgbottom.Name = "pgbottom"
|
||||
Me.pgbottom.Size = New System.Drawing.Size(696, 2)
|
||||
Me.pgbottom.TabIndex = 23
|
||||
'
|
||||
'gameTimer
|
||||
'
|
||||
Me.gameTimer.Interval = 30
|
||||
'
|
||||
'counter
|
||||
'
|
||||
Me.counter.Interval = 1000
|
||||
'
|
||||
'tmrcountdown
|
||||
'
|
||||
Me.tmrcountdown.Interval = 1000
|
||||
'
|
||||
'Pong
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(700, 400)
|
||||
Me.Controls.Add(Me.pgcontents)
|
||||
Me.Controls.Add(Me.pgbottom)
|
||||
Me.Controls.Add(Me.pgleft)
|
||||
Me.Controls.Add(Me.pgright)
|
||||
Me.Controls.Add(Me.titlebar)
|
||||
Me.DoubleBuffered = True
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Pong"
|
||||
Me.Text = "Pong"
|
||||
Me.TopMost = True
|
||||
Me.pgcontents.ResumeLayout(False)
|
||||
Me.pnlintro.ResumeLayout(False)
|
||||
Me.pnlintro.PerformLayout()
|
||||
Me.pnllose.ResumeLayout(False)
|
||||
Me.pnllose.PerformLayout()
|
||||
Me.pnlgamestats.ResumeLayout(False)
|
||||
Me.pnlgamestats.PerformLayout()
|
||||
Me.pnlfinalstats.ResumeLayout(False)
|
||||
Me.pnlfinalstats.PerformLayout()
|
||||
CType(Me.paddleHuman, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pgleft.ResumeLayout(False)
|
||||
Me.pgright.ResumeLayout(False)
|
||||
Me.titlebar.ResumeLayout(False)
|
||||
Me.titlebar.PerformLayout()
|
||||
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pgcontents As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgleft As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomlcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgright As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottomrcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents titlebar As System.Windows.Forms.Panel
|
||||
Friend WithEvents rollupbutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents closebutton As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbtitletext As System.Windows.Forms.Label
|
||||
Friend WithEvents pgtoplcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
|
||||
Friend WithEvents pgbottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents ball As System.Windows.Forms.Panel
|
||||
Friend WithEvents paddleComputer As System.Windows.Forms.Panel
|
||||
Friend WithEvents gameTimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents paddleHuman As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lbllevelandtime As System.Windows.Forms.Label
|
||||
Friend WithEvents lblstatsX As System.Windows.Forms.Label
|
||||
Friend WithEvents counter As System.Windows.Forms.Timer
|
||||
Friend WithEvents pnlgamestats As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblnextstats As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblpreviousstats As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnplayon As System.Windows.Forms.Button
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents btncashout As System.Windows.Forms.Button
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents lbllevelreached As System.Windows.Forms.Label
|
||||
Friend WithEvents lblcountdown As System.Windows.Forms.Label
|
||||
Friend WithEvents tmrcountdown As System.Windows.Forms.Timer
|
||||
Friend WithEvents lblbeatai As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlfinalstats As System.Windows.Forms.Panel
|
||||
Friend WithEvents btnplayagain As System.Windows.Forms.Button
|
||||
Friend WithEvents lblfinalcodepoints As System.Windows.Forms.Label
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblfinalcomputerreward As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblfinallevelreward As System.Windows.Forms.Label
|
||||
Friend WithEvents lblfinallevelreached As System.Windows.Forms.Label
|
||||
Friend WithEvents lblfinalcodepointswithtext As System.Windows.Forms.Label
|
||||
Friend WithEvents pnllose As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblmissedout As System.Windows.Forms.Label
|
||||
Friend WithEvents btnlosetryagain As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblstatscodepoints As System.Windows.Forms.Label
|
||||
Friend WithEvents lblstatsY As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlintro As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnstartgame As System.Windows.Forms.Button
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
|
||||
End Class
|
||||
146
Pong.resx
Normal file
146
Pong.resx
Normal file
|
|
@ -0,0 +1,146 @@
|
|||
<?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="Label6.Text" xml:space="preserve">
|
||||
<value>Pong was a very popular arcade game made back in 1972. It simulates a game of table tennis in which you must use your paddle as a shield to prevent the ball moving past it. At the same time a computer controlled paddle will attempt to prevent the ball from passing itself.
|
||||
|
||||
This ShiftOS version of Pong is similar but slightly different to the original version of Pong. In this game you start at level 1 and must survive a whole minute without letting the ball pass your paddle.
|
||||
|
||||
If you survive the minute you will earn some codepoints and be given the option to cash out with them or play on with the next level to earn more codepoints. You earn bonus codepoints if you manage to get the ball past the computer paddle. The higher the level the faster the ball will move!
|
||||
|
||||
The higher the level the more codepoints you will get for beating it. You must be careful though as you have no lives. If the ball passes your paddle you start all the way back at level 1 and lose all codepoints earned in that game of Pong. So don't forget to cash out when it gets too difficult!</value>
|
||||
</data>
|
||||
<data name="Label5.Text" xml:space="preserve">
|
||||
<value>You played on for as long as you could, took a risk, moved forward but sadly didn't know when to give up and safely cashout with a reward.
|
||||
|
||||
Remember you have no lives in this version of pong. This is a game of endurance and if you can't make it to the next level all codepoints earned since you started this game of pong are lost.
|
||||
|
||||
If you think you are ready to try again then click the button below. Don't blow it this time!
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="gameTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="counter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>130, 17</value>
|
||||
</metadata>
|
||||
<metadata name="tmrcountdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>223, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
639
Pong.vb
Normal file
639
Pong.vb
Normal file
|
|
@ -0,0 +1,639 @@
|
|||
Public Class Pong
|
||||
Public rolldownsize As Integer
|
||||
Public oldbordersize As Integer
|
||||
Public oldtitlebarheight As Integer
|
||||
Public justopened As Boolean = False
|
||||
Public needtorollback As Boolean = False
|
||||
Public minimumsizewidth As Integer = 0
|
||||
Public minimumsizeheight As Integer = 0
|
||||
|
||||
Dim rndInst As New Random() ' Random instance
|
||||
Dim xVel As Single = 7
|
||||
Dim yVel As Single = 8
|
||||
Dim computerspeed = 8
|
||||
Dim rand As New Random
|
||||
Dim level As Integer = 1
|
||||
Dim secondsleft As Integer = 60
|
||||
Dim casualposition As Integer
|
||||
Dim xveldec As Double = 3.0
|
||||
Dim yveldec As Double = 3.0
|
||||
Dim incrementx As Double = 0.4
|
||||
Dim incrementy As Double = 0.2
|
||||
Dim levelxspeed As Integer = 3
|
||||
Dim levelyspeed As Integer = 3
|
||||
Dim beatairewardtotal As Integer
|
||||
Dim beataireward As Integer = 1
|
||||
Dim levelrewards(50) As Integer
|
||||
Dim totalreward As Integer
|
||||
Dim countdown As Integer = 3
|
||||
Dim paused As Boolean = False
|
||||
|
||||
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
justopened = True
|
||||
setuptitlebar()
|
||||
setupborders()
|
||||
ShiftOSDesktop.setcolours()
|
||||
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
|
||||
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
|
||||
setskin()
|
||||
|
||||
ShiftOSDesktop.pnlpanelbuttonpong.SendToBack()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonpong, ShiftOSDesktop.tbpongicon, ShiftOSDesktop.tbpongtext, True)
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
|
||||
|
||||
setuplevelrewards()
|
||||
End Sub
|
||||
|
||||
Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Make terminal appear
|
||||
If e.KeyCode = Keys.T AndAlso e.Control Then
|
||||
Terminal.Show()
|
||||
Terminal.Visible = True
|
||||
Terminal.BringToFront()
|
||||
End If
|
||||
|
||||
'Movable Windows
|
||||
If ShiftOSDesktop.boughtmovablewindows = True Then
|
||||
If e.KeyCode = Keys.A AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.D AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
|
||||
End If
|
||||
If e.KeyCode = Keys.W AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
If e.KeyCode = Keys.S AndAlso e.Control Then
|
||||
e.Handled = True
|
||||
Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
|
||||
' Handle Draggable Windows
|
||||
If ShiftOSDesktop.boughtdraggablewindows = True Then
|
||||
If e.Button = MouseButtons.Left Then
|
||||
titlebar.Capture = False
|
||||
lbtitletext.Capture = False
|
||||
pnlicon.Capture = False
|
||||
pgtoplcorner.Capture = False
|
||||
pgtoprcorner.Capture = False
|
||||
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
||||
Const HTCAPTION As Integer = 2
|
||||
Dim msg As Message = _
|
||||
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
||||
New IntPtr(HTCAPTION), IntPtr.Zero)
|
||||
Me.DefWndProc(msg)
|
||||
End If
|
||||
ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setupborders()
|
||||
If ShiftOSDesktop.boughtwindowborders = False Then
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
|
||||
closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
|
||||
End Sub
|
||||
|
||||
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
|
||||
ShiftOSDesktop.minimizeprogram(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
|
||||
End Sub
|
||||
|
||||
Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
|
||||
If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
|
||||
rollupanddown()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(1)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
|
||||
rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
|
||||
End Sub
|
||||
|
||||
Public Sub setuptitlebar()
|
||||
|
||||
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
|
||||
pgleft.Width = ShiftOSDesktop.windowbordersize
|
||||
pgright.Width = ShiftOSDesktop.windowbordersize
|
||||
pgbottom.Height = ShiftOSDesktop.windowbordersize
|
||||
titlebar.Height = ShiftOSDesktop.titlebarheight
|
||||
|
||||
If justopened = True Then
|
||||
Me.Size = New Size(700, 400) 'put the default size of your window here
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
justopened = False
|
||||
Else
|
||||
If Me.Visible = True Then
|
||||
Me.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
|
||||
Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
|
||||
oldbordersize = ShiftOSDesktop.windowbordersize
|
||||
oldtitlebarheight = ShiftOSDesktop.titlebarheight
|
||||
Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
|
||||
Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
|
||||
rolldownsize = Me.Height
|
||||
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
|
||||
Me.Show()
|
||||
End If
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.showwindowcorners = True Then
|
||||
pgtoplcorner.Show()
|
||||
pgtoprcorner.Show()
|
||||
pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
|
||||
Else
|
||||
pgtoplcorner.Hide()
|
||||
pgtoprcorner.Hide()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitlebar = False Then
|
||||
titlebar.Hide()
|
||||
Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughttitletext = False Then
|
||||
lbtitletext.Hide()
|
||||
Else
|
||||
lbtitletext.Font = New Font(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
|
||||
lbtitletext.Text = ShiftOSDesktop.pongname
|
||||
lbtitletext.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtclosebutton = False Then
|
||||
closebutton.Hide()
|
||||
Else
|
||||
closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
|
||||
closebutton.Height = ShiftOSDesktop.closebuttonheight
|
||||
closebutton.Width = ShiftOSDesktop.closebuttonwidth
|
||||
closebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtrollupbutton = False Then
|
||||
rollupbutton.Hide()
|
||||
Else
|
||||
rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
|
||||
rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
|
||||
rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
|
||||
rollupbutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtminimizebutton = False Then
|
||||
minimizebutton.Hide()
|
||||
Else
|
||||
minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
|
||||
minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
|
||||
minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
|
||||
minimizebutton.Show()
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtwindowborders = True Then
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
Else
|
||||
closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
|
||||
rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
|
||||
minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
|
||||
Select Case ShiftOSDesktop.titletextposition
|
||||
Case "Left"
|
||||
lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
|
||||
Case "Centre"
|
||||
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
|
||||
End Select
|
||||
lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
|
||||
End If
|
||||
|
||||
If ShiftOSDesktop.boughtpongicon = True Then
|
||||
pnlicon.Visible = True
|
||||
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
|
||||
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
|
||||
pnlicon.Image = ShiftOSDesktop.pongicontitlebar 'Replace with the correct icon for the program.
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub rollupanddown()
|
||||
If Me.Height = Me.titlebar.Height Then
|
||||
pgleft.Show()
|
||||
pgbottom.Show()
|
||||
pgright.Show()
|
||||
Me.Height = rolldownsize
|
||||
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
|
||||
If paused = True Then paused = False
|
||||
gameTimer.Start()
|
||||
counter.Start()
|
||||
Else
|
||||
Me.MinimumSize = New Size(0, 0)
|
||||
pgleft.Hide()
|
||||
pgbottom.Hide()
|
||||
pgright.Hide()
|
||||
rolldownsize = Me.Height
|
||||
Me.Height = Me.titlebar.Height
|
||||
If paused = False Then paused = True
|
||||
gameTimer.Stop()
|
||||
counter.Stop()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub setskin()
|
||||
If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
|
||||
closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
|
||||
If ShiftOSDesktop.skintitlebar(0) Is Nothing Then Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
|
||||
titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
|
||||
If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
|
||||
rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
|
||||
If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
|
||||
pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
|
||||
If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
|
||||
pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
|
||||
If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
|
||||
minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle
|
||||
|
||||
'remove background colour when image is present
|
||||
If closebutton.BackgroundImage Is Nothing Then Else closebutton.BackColor = Color.Transparent
|
||||
If titlebar.BackgroundImage Is Nothing Then Else titlebar.BackColor = Color.Transparent
|
||||
If rollupbutton.BackgroundImage Is Nothing Then Else rollupbutton.BackColor = Color.Transparent
|
||||
If pgtoplcorner.BackgroundImage Is Nothing Then Else pgtoplcorner.BackColor = Color.Transparent
|
||||
If pgtoprcorner.BackgroundImage Is Nothing Then Else pgtoprcorner.BackColor = Color.Transparent
|
||||
If minimizebutton.BackgroundImage Is Nothing Then Else minimizebutton.BackColor = Color.Transparent
|
||||
|
||||
Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
|
||||
End Sub
|
||||
|
||||
Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
|
||||
Me.Hide()
|
||||
ShiftOSDesktop.setuppanelbuttons()
|
||||
End Sub
|
||||
|
||||
'end of general setup
|
||||
|
||||
' Move the paddle according to the mouse position.
|
||||
Private Sub pongMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, pgcontents.MouseMove, titlebar.MouseMove, ball.MouseMove, paddleComputer.MouseMove, paddleHuman.MouseMove, lblstatsX.MouseMove, lbllevelandtime.MouseMove, lblstatsY.MouseMove, lblstatscodepoints.MouseMove, pnlintro.MouseMove, Label6.MouseMove, Label8.MouseMove, btnstartgame.MouseMove
|
||||
paddleHuman.Location = New Point(paddleHuman.Location.X, (MousePosition.Y - Me.Location.Y - ShiftOSDesktop.titlebarheight - ShiftOSDesktop.windowbordersize) - (paddleHuman.Height / 2))
|
||||
End Sub
|
||||
|
||||
Private Sub gameTimer_Tick(sender As Object, e As EventArgs) Handles gameTimer.Tick
|
||||
|
||||
'Set the computer player to move according to the ball's position.
|
||||
If ball.Location.X > 500 - xVel * 10 AndAlso xVel > 0 Then
|
||||
If ball.Location.Y > paddleComputer.Location.Y + 50 Then
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y + computerspeed)
|
||||
End If
|
||||
If ball.Location.Y < paddleComputer.Location.Y + 50 Then
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y - computerspeed)
|
||||
End If
|
||||
casualposition = rand.Next(-150, 201)
|
||||
Else
|
||||
If paddleComputer.Location.Y > Me.Size.Height / 2 - paddleComputer.Height + casualposition Then 'used to be me.location.y
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y - computerspeed)
|
||||
End If
|
||||
If paddleComputer.Location.Y < Me.Size.Height / 2 - paddleComputer.Height + casualposition Then 'used to be me.location.y
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, paddleComputer.Location.Y + computerspeed)
|
||||
End If
|
||||
End If
|
||||
|
||||
'Set Xvel and Yvel speeds from decimal
|
||||
If xVel > 0 Then xVel = Math.Round(xveldec)
|
||||
If xVel < 0 Then xVel = -Math.Round(xveldec)
|
||||
If yVel > 0 Then yVel = Math.Round(yveldec)
|
||||
If yVel < 0 Then yVel = -Math.Round(yveldec)
|
||||
|
||||
' Move the game ball.
|
||||
ball.Location = New Point(ball.Location.X + xVel, ball.Location.Y + yVel)
|
||||
|
||||
' Check for top wall.
|
||||
If ball.Location.Y < 0 Then
|
||||
ball.Location = New Point(ball.Location.X, 0)
|
||||
yVel = -yVel
|
||||
End If
|
||||
|
||||
' Check for bottom wall.
|
||||
If ball.Location.Y > Me.Height - ball.Size.Height - titlebar.Height - pgbottom.Height Then
|
||||
ball.Location = New Point(ball.Location.X, Me.Height - ball.Size.Height - titlebar.Height - pgbottom.Height)
|
||||
yVel = -yVel
|
||||
End If
|
||||
|
||||
' Check for player paddle.
|
||||
If ball.Bounds.IntersectsWith(paddleHuman.Bounds) Then
|
||||
ball.Location = New Point(paddleHuman.Location.X + ball.Size.Width, ball.Location.Y)
|
||||
'randomly increase x or y speed of ball
|
||||
Select Case rand.Next(1, 3)
|
||||
Case 1
|
||||
xveldec = xveldec + incrementx
|
||||
Case 2
|
||||
If yveldec > 0 Then yveldec = yveldec + incrementy
|
||||
If yveldec < 0 Then yveldec = yveldec - incrementy
|
||||
End Select
|
||||
xVel = -xVel
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
End If
|
||||
|
||||
' Check for computer paddle.
|
||||
If ball.Bounds.IntersectsWith(paddleComputer.Bounds) Then
|
||||
ball.Location = New Point(paddleComputer.Location.X - paddleComputer.Size.Width + 1, ball.Location.Y)
|
||||
xveldec = xveldec + incrementx
|
||||
xVel = -xVel
|
||||
My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
|
||||
End If
|
||||
|
||||
' Check for left wall.
|
||||
If ball.Location.X < -100 Then
|
||||
ball.Location = New Point(Me.Size.Width / 2 + 200, Me.Size.Height / 2)
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, ball.Location.Y)
|
||||
If xVel > 0 Then xVel = -xVel
|
||||
pnllose.Show()
|
||||
gameTimer.Stop()
|
||||
counter.Stop()
|
||||
lblmissedout.Text = "You Missed Out On:" & Environment.NewLine & levelrewards(level - 1) + beatairewardtotal & " Codepoints"
|
||||
End If
|
||||
|
||||
' Check for right wall.
|
||||
If ball.Location.X > Me.Width - ball.Size.Width - paddleComputer.Width + 100 Then
|
||||
ball.Location = New Point(Me.Size.Width / 2 + 200, Me.Size.Height / 2)
|
||||
paddleComputer.Location = New Point(paddleComputer.Location.X, ball.Location.Y)
|
||||
If xVel > 0 Then xVel = -xVel
|
||||
beatairewardtotal = beatairewardtotal + beataireward
|
||||
lblbeatai.Show()
|
||||
lblbeatai.Text = "You got " & beataireward & " codepoints for beating the Computer!"
|
||||
tmrcountdown.Start()
|
||||
gameTimer.Stop()
|
||||
counter.Stop()
|
||||
End If
|
||||
|
||||
'lblstats.Text = "Xspeed: " & Math.Abs(xVel) & " Yspeed: " & Math.Abs(yVel) & " Human Location: " & paddleHuman.Location.ToString & " Computer Location: " & paddleComputer.Location.ToString & Environment.NewLine & " Ball Location: " & ball.Location.ToString & " Xdec: " & xveldec & " Ydec: " & yveldec & " Xinc: " & incrementx & " Yinc: " & incrementy
|
||||
lblstatsX.Text = "Xspeed: " & xveldec
|
||||
lblstatsY.Text = "Yspeed: " & yveldec
|
||||
lblstatscodepoints.Text = "Codepoints earned: " & levelrewards(level - 1) + beatairewardtotal
|
||||
|
||||
lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left"
|
||||
|
||||
If xVel > 20 OrElse xVel < -20 Then
|
||||
paddleHuman.Width = Math.Abs(xVel)
|
||||
paddleComputer.Width = Math.Abs(xVel)
|
||||
Else
|
||||
paddleHuman.Width = 20
|
||||
paddleComputer.Width = 20
|
||||
End If
|
||||
|
||||
computerspeed = Math.Abs(yVel)
|
||||
|
||||
' pgcontents.Refresh()
|
||||
' pgcontents.CreateGraphics.FillRectangle(Brushes.Black, ball.Location.X, ball.Location.Y, ball.Width, ball.Height)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub counter_Tick(sender As Object, e As EventArgs) Handles counter.Tick
|
||||
secondsleft = secondsleft - 1
|
||||
If secondsleft = -1 Then
|
||||
secondsleft = 60
|
||||
level = level + 1
|
||||
generatenextlevel()
|
||||
pnlgamestats.Show()
|
||||
counter.Stop()
|
||||
gameTimer.Stop()
|
||||
End If
|
||||
lblstatscodepoints.Text = "Codepoints earned: " & levelrewards(level - 1) + beatairewardtotal
|
||||
End Sub
|
||||
|
||||
Private Sub btnplayon_Click(sender As Object, e As EventArgs) Handles btnplayon.Click
|
||||
xveldec = levelxspeed
|
||||
yveldec = levelyspeed
|
||||
|
||||
tmrcountdown.Start()
|
||||
lblbeatai.Text = "Get " & beataireward & " codepoints for beating the Computer!"
|
||||
pnlgamestats.Hide()
|
||||
lblbeatai.Show()
|
||||
ball.Location = New Point(paddleHuman.Location.X + paddleHuman.Width + 50, paddleHuman.Location.Y + paddleHuman.Height / 2)
|
||||
If xVel < 0 Then xVel = Math.Abs(xVel)
|
||||
lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left"
|
||||
End Sub
|
||||
|
||||
'Increase the ball speed stats for the next level
|
||||
Private Sub generatenextlevel()
|
||||
lbllevelreached.Text = "You Reached Level " & level & "!"
|
||||
|
||||
lblpreviousstats.Text = "Initial Ball X Speed: " & levelxspeed & Environment.NewLine & _
|
||||
"Initial Ball Y Speed: " & levelyspeed & Environment.NewLine & _
|
||||
"Increment X Speed: " & incrementx & Environment.NewLine & _
|
||||
"Increment Y Speed: " & incrementy
|
||||
|
||||
Select Case rand.Next(1, 3)
|
||||
Case 1
|
||||
levelxspeed = levelxspeed + 1
|
||||
Case 2
|
||||
levelxspeed = levelxspeed + 2
|
||||
End Select
|
||||
|
||||
Select Case rand.Next(1, 3)
|
||||
Case 1
|
||||
levelyspeed = levelyspeed + 1
|
||||
Case 2
|
||||
levelyspeed = levelyspeed + 2
|
||||
End Select
|
||||
|
||||
Select Case rand.Next(1, 6)
|
||||
Case 1
|
||||
incrementx = incrementx + 0.1
|
||||
Case 2
|
||||
incrementx = incrementx + 0.2
|
||||
Case 3
|
||||
incrementy = incrementy + 0.1
|
||||
Case 4
|
||||
incrementy = incrementy + 0.2
|
||||
Case 5
|
||||
incrementy = incrementy + 0.3
|
||||
End Select
|
||||
|
||||
lblnextstats.Text = "Initial Ball X Speed: " & levelxspeed & Environment.NewLine & _
|
||||
"Initial Ball Y Speed: " & levelyspeed & Environment.NewLine & _
|
||||
"Increment X Speed: " & incrementx & Environment.NewLine & _
|
||||
"Increment Y Speed: " & incrementy
|
||||
|
||||
If level < 15 Then
|
||||
beataireward = level * 2
|
||||
Else
|
||||
beataireward = Math.Round(levelrewards(level) / 10)
|
||||
End If
|
||||
|
||||
totalreward = levelrewards(level - 1) + beatairewardtotal
|
||||
|
||||
btncashout.Text = "Cash out with " & totalreward & " codepoints!"
|
||||
btnplayon.Text = "Play on for " & levelrewards(level) + beatairewardtotal & " codepoints!"
|
||||
End Sub
|
||||
|
||||
Private Sub setuplevelrewards()
|
||||
levelrewards(0) = 0
|
||||
levelrewards(1) = 1
|
||||
levelrewards(2) = 3
|
||||
levelrewards(3) = 7
|
||||
levelrewards(4) = 13
|
||||
levelrewards(5) = 20
|
||||
levelrewards(6) = 30
|
||||
levelrewards(7) = 45
|
||||
levelrewards(8) = 60
|
||||
levelrewards(9) = 80
|
||||
levelrewards(10) = 100
|
||||
levelrewards(11) = 125
|
||||
levelrewards(12) = 150
|
||||
levelrewards(13) = 200
|
||||
levelrewards(14) = 250
|
||||
levelrewards(15) = 300
|
||||
levelrewards(16) = 400
|
||||
levelrewards(17) = 500
|
||||
levelrewards(18) = 650
|
||||
levelrewards(19) = 800
|
||||
levelrewards(20) = 1000
|
||||
levelrewards(21) = 1250
|
||||
levelrewards(22) = 1600
|
||||
levelrewards(23) = 2000
|
||||
levelrewards(24) = 2500
|
||||
levelrewards(25) = 3000
|
||||
levelrewards(26) = 3750
|
||||
levelrewards(27) = 4500
|
||||
levelrewards(28) = 5500
|
||||
levelrewards(29) = 7000
|
||||
levelrewards(30) = 9000
|
||||
levelrewards(31) = 11000
|
||||
levelrewards(32) = 13500
|
||||
levelrewards(33) = 16000
|
||||
levelrewards(34) = 20000
|
||||
levelrewards(35) = 25000
|
||||
levelrewards(36) = 32000
|
||||
levelrewards(37) = 40000
|
||||
levelrewards(38) = 50000
|
||||
levelrewards(39) = 75000
|
||||
levelrewards(40) = 100000
|
||||
End Sub
|
||||
|
||||
Private Sub countdown_Tick(sender As Object, e As EventArgs) Handles tmrcountdown.Tick
|
||||
Select Case countdown
|
||||
Case 0
|
||||
countdown = 3
|
||||
lblcountdown.Hide()
|
||||
lblbeatai.Hide()
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
gameTimer.Start()
|
||||
counter.Start()
|
||||
tmrcountdown.Stop()
|
||||
Case 1
|
||||
lblcountdown.Text = "1"
|
||||
countdown = countdown - 1
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
Case 2
|
||||
lblcountdown.Text = "2"
|
||||
countdown = countdown - 1
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
Case 3
|
||||
lblcountdown.Text = "3"
|
||||
countdown = countdown - 1
|
||||
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
|
||||
lblcountdown.Show()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub btncashout_Click(sender As Object, e As EventArgs) Handles btncashout.Click
|
||||
pnlgamestats.Hide()
|
||||
pnlfinalstats.Show()
|
||||
lblfinalcodepointswithtext.Text = "You cashed out with " & totalreward & " codepoints!"
|
||||
lblfinallevelreached.Text = "Codepoints rewarded for reaching level " & level - 1
|
||||
lblfinallevelreward.Text = levelrewards(level - 1)
|
||||
lblfinalcomputerreward.Text = beatairewardtotal
|
||||
lblfinalcodepoints.Text = totalreward & " CP"
|
||||
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + totalreward
|
||||
End Sub
|
||||
|
||||
Private Sub newgame()
|
||||
pnlfinalstats.Hide()
|
||||
pnllose.Hide()
|
||||
pnlintro.Hide()
|
||||
|
||||
level = 1
|
||||
totalreward = 0
|
||||
beataireward = 2
|
||||
beatairewardtotal = 0
|
||||
secondsleft = 60
|
||||
|
||||
levelxspeed = 3
|
||||
levelyspeed = 3
|
||||
|
||||
incrementx = 0.4
|
||||
incrementy = 0.2
|
||||
|
||||
xveldec = levelxspeed
|
||||
yveldec = levelyspeed
|
||||
|
||||
tmrcountdown.Start()
|
||||
lblbeatai.Text = "Get " & beataireward & " codepoints for beating the Computer!"
|
||||
pnlgamestats.Hide()
|
||||
lblbeatai.Show()
|
||||
ball.Location = New Point(paddleHuman.Location.X + paddleHuman.Width + 50, paddleHuman.Location.Y + paddleHuman.Height / 2)
|
||||
If xVel < 0 Then xVel = Math.Abs(xVel)
|
||||
lbllevelandtime.Text = "Level: " & level & " - " & secondsleft & " Seconds Left"
|
||||
End Sub
|
||||
|
||||
Private Sub btnplayagain_Click(sender As Object, e As EventArgs) Handles btnplayagain.Click
|
||||
newgame()
|
||||
End Sub
|
||||
|
||||
Private Sub btnlosetryagain_Click(sender As Object, e As EventArgs) Handles btnlosetryagain.Click
|
||||
newgame()
|
||||
End Sub
|
||||
|
||||
Private Sub btnstartgame_Click(sender As Object, e As EventArgs) Handles btnstartgame.Click
|
||||
newgame()
|
||||
End Sub
|
||||
|
||||
Private Sub rollupbutton_Paint(sender As Object, e As PaintEventArgs) Handles rollupbutton.Paint
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
330
PreviewCustomColorTable.vb
Normal file
330
PreviewCustomColorTable.vb
Normal file
|
|
@ -0,0 +1,330 @@
|
|||
' <auto-generated>
|
||||
' This code was generated by the .NET ToolStrip Customizer.
|
||||
' http://toolstripcustomizer.codeplex.com/
|
||||
' </auto-generated>
|
||||
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Namespace MyNamespace
|
||||
Class PreviewCustomColorTable
|
||||
Inherits ProfessionalColorTable
|
||||
Public Overrides ReadOnly Property ButtonSelectedHighlight() As Color
|
||||
Get
|
||||
Return ButtonSelectedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedHighlight() As Color
|
||||
Get
|
||||
Return ButtonPressedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonPressedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedHighlight() As Color
|
||||
Get
|
||||
Return ButtonCheckedGradientMiddle
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedHighlightBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedBorder() As Color
|
||||
Get
|
||||
Return ButtonSelectedBorder
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedBorder() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonCheckedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonSelectedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ButtonPressedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckSelectedBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property CheckPressedBackground() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property GripDark() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property GripLight() As Color
|
||||
Get
|
||||
Return Color.FromName("White")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ImageMarginRevealedGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuStripGradientBegin() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuStripGradientEnd() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelected() As Color
|
||||
Get
|
||||
Return Color.FromArgb(Shifter.applaunchermouseovercolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemBorder() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuBorder() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(1) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttoncolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientBegin() As Color
|
||||
Get
|
||||
'remember this is for clicking the button, the below must be changed in the future
|
||||
If Shifter.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color
|
||||
Get
|
||||
If Shifter.skinapplauncherbutton(2) Is Nothing Then
|
||||
Return Color.FromArgb(Shifter.applauncherbuttonclickedcolour.ToArgb)
|
||||
Else
|
||||
Return Color.Transparent
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property RaftingContainerGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property RaftingContainerGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property SeparatorDark() As Color
|
||||
Get
|
||||
Return Color.FromName("Black")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property SeparatorLight() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonHighlight")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property StatusStripGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property StatusStripGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripBorder() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color
|
||||
Get
|
||||
Return Color.FromArgb(Shifter.applauncherbackgroundcolour.ToArgb)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripContentPanelGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripContentPanelGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripPanelGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromName("ButtonFace")
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property ToolStripPanelGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 252, 252, 252)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientBegin() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 245, 245, 245)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientMiddle() As Color
|
||||
Get
|
||||
Return Color.FromArgb(255, 242, 242, 242)
|
||||
End Get
|
||||
End Property
|
||||
Public Overrides ReadOnly Property OverflowButtonGradientEnd() As Color
|
||||
Get
|
||||
Return Color.FromName("Gray")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
BIN
Resources/3beepvirus.wav
Normal file
BIN
Resources/3beepvirus.wav
Normal file
Binary file not shown.
BIN
Resources/ArtPadOval.png
Normal file
BIN
Resources/ArtPadOval.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 49 KiB |
BIN
Resources/ArtPadRectangle.png
Normal file
BIN
Resources/ArtPadRectangle.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadcirclerubber.png
Normal file
BIN
Resources/ArtPadcirclerubber.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 50 KiB |
BIN
Resources/ArtPadcirclerubberselected.png
Normal file
BIN
Resources/ArtPadcirclerubberselected.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 49 KiB |
BIN
Resources/ArtPaderacer.png
Normal file
BIN
Resources/ArtPaderacer.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 60 KiB |
BIN
Resources/ArtPadfloodfill.png
Normal file
BIN
Resources/ArtPadfloodfill.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadlinetool.png
Normal file
BIN
Resources/ArtPadlinetool.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/ArtPadmagnify.png
Normal file
BIN
Resources/ArtPadmagnify.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 50 KiB |
BIN
Resources/ArtPadnew.png
Normal file
BIN
Resources/ArtPadnew.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadopen.png
Normal file
BIN
Resources/ArtPadopen.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadpaintbrush.png
Normal file
BIN
Resources/ArtPadpaintbrush.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/ArtPadpencil.png
Normal file
BIN
Resources/ArtPadpencil.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadpixelplacer.png
Normal file
BIN
Resources/ArtPadpixelplacer.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/ArtPadredo.png
Normal file
BIN
Resources/ArtPadredo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 61 KiB |
BIN
Resources/ArtPadsave.png
Normal file
BIN
Resources/ArtPadsave.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 49 KiB |
BIN
Resources/ArtPadsquarerubber.png
Normal file
BIN
Resources/ArtPadsquarerubber.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 47 KiB |
BIN
Resources/ArtPadsquarerubberselected.png
Normal file
BIN
Resources/ArtPadsquarerubberselected.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 49 KiB |
BIN
Resources/ArtPadtexttool.png
Normal file
BIN
Resources/ArtPadtexttool.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
BIN
Resources/ArtPadundo.png
Normal file
BIN
Resources/ArtPadundo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 62 KiB |
BIN
Resources/DSC01042.JPG
Normal file
BIN
Resources/DSC01042.JPG
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 MiB |
BIN
Resources/Gray Shades.png
Normal file
BIN
Resources/Gray Shades.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 63 KiB |
BIN
Resources/Receive.png
Normal file
BIN
Resources/Receive.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 51 KiB |
BIN
Resources/ReceiveClicked.png
Normal file
BIN
Resources/ReceiveClicked.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/Send.png
Normal file
BIN
Resources/Send.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 51 KiB |
BIN
Resources/SendClicked.png
Normal file
BIN
Resources/SendClicked.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/Symbolinfo.png
Normal file
BIN
Resources/Symbolinfo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 55 KiB |
BIN
Resources/TotalBalanceClicked.png
Normal file
BIN
Resources/TotalBalanceClicked.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/TotalBalanceUnclicked.png
Normal file
BIN
Resources/TotalBalanceUnclicked.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 51 KiB |
BIN
Resources/anycolourshade.png
Normal file
BIN
Resources/anycolourshade.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/anycolourshade2.png
Normal file
BIN
Resources/anycolourshade2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
BIN
Resources/anycolourshade3.png
Normal file
BIN
Resources/anycolourshade3.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 48 KiB |
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue