shiftos-archive/ShiftOS-Rewind
1
0
Fork 0
mirror of https://github.com/ShiftOS-Rewind/ShiftOS.git synced 2025-04-19 01:10:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add proper WM and Remove old source

Browse source 
Added a proper, working WM. I also got rid of the old source as we could
just make a new repo for that.
This commit is contained in:
AShifter 2017-09-24 12:32:50 -06:00
parent 2992686ec7
commit 9107510c49
543 changed files with 545 additions and 106596 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
.vs/ShiftOS/v15/sqlite3/storage.ide
View file

Binary file not shown.

10
ShiftOS.Engine/Properties/Resources.Designer.cs generated
View file

@ -59,15 +59,5 @@ namespace ShiftOS.Engine.Properties {
resourceCulture = value;
}
}
/// <summary>
/// Looks up a localized resource of type System.Drawing.Bitmap.
/// </summary>
internal static System.Drawing.Bitmap Symbolinfo {
get {
object obj = ResourceManager.GetObject("Symbolinfo", resourceCulture);
return ((System.Drawing.Bitmap)(obj));
}
}
}
}

4
ShiftOS.Engine/Properties/Resources.resx
View file

@ -117,8 +117,4 @@
<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="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>
</root>

24
ShiftOS.Engine/ShiftOS.Engine.csproj
View file

@ -32,6 +32,8 @@
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Core" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="Microsoft.CSharp" />
@ -40,8 +42,28 @@
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Compile Include="WindowManager.cs" />
<Compile Include="Properties\AssemblyInfo.cs" />
<Compile Include="Properties\Resources.Designer.cs">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="WindowManager\ShiftWindow.cs">
<SubType>Form</SubType>
</Compile>
<Compile Include="WindowManager\ShiftWindow.Designer.cs">
<DependentUpon>ShiftWindow.cs</DependentUpon>
</Compile>
<Compile Include="WindowManager\ShiftWM.cs" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Properties\Resources.resx">
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.cs</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="WindowManager\ShiftWindow.resx">
<DependentUpon>ShiftWindow.cs</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
</Project>

37
ShiftOS.Engine/WindowManager/ShiftWM.cs Normal file
View file

@ -0,0 +1,37 @@
using System.Windows.Forms;
namespace ShiftOS.Engine.WindowManager
{
public class ShiftWM
{
public static System.Drawing.Text.PrivateFontCollection pfc = new System.Drawing.Text.PrivateFontCollection();
public ShiftWindow Init(UserControl content, string title, bool ShowAsInfobox = false, bool resize = true)
{
// Setup Window
ShiftWindow app = new ShiftWindow();
app.Text = title;
app.Title.Text = title;
app.Width = content.Width + app.left.Width + app.right.Width;
app.Height = content.Height + app.bottom.Height + app.top.Height;
// Setup UC
content.Parent = app.programContent;
content.BringToFront();
content.Dock = DockStyle.Fill;
// Check if icon is null (NYI)
/*
if (icon == null)
{
app.programIcon.Hide();
app.programIcon.Image = Engine.Properties.Resources.nullIcon;
app.Title.Location = new Point(2, 1);
}
else app.programIcon.Image = icon;
*/
app.Show();
return app;
}
}
}

251
ShiftOS.Engine/WindowManager/ShiftWindow.Designer.cs generated Normal file
View file

@ -0,0 +1,251 @@
namespace ShiftOS.Engine.WindowManager
{
partial class ShiftWindow
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.IContainer components = null;
/// <summary>
/// Clean up any resources being used.
/// </summary>
/// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
#region Component Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.program = new System.Windows.Forms.Panel();
this.bottomleftcorner = new System.Windows.Forms.Panel();
this.toprightcorner = new System.Windows.Forms.Panel();
this.bottomrightcorner = new System.Windows.Forms.Panel();
this.topleftcorner = new System.Windows.Forms.Panel();
this.bottom = new System.Windows.Forms.Panel();
this.top = new System.Windows.Forms.Panel();
this.programIcon = new System.Windows.Forms.PictureBox();
this.maximizebutton = new System.Windows.Forms.PictureBox();
this.minimizebutton = new System.Windows.Forms.PictureBox();
this.Title = new System.Windows.Forms.Label();
this.closebutton = new System.Windows.Forms.PictureBox();
this.right = new System.Windows.Forms.Panel();
this.left = new System.Windows.Forms.Panel();
this.programContent = new System.Windows.Forms.Panel();
this.program.SuspendLayout();
this.top.SuspendLayout();
((System.ComponentModel.ISupportInitialize)(this.programIcon)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.maximizebutton)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.minimizebutton)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.closebutton)).BeginInit();
this.SuspendLayout();
//
// program
//
this.program.BackColor = System.Drawing.Color.White;
this.program.Controls.Add(this.programContent);
this.program.Controls.Add(this.bottomleftcorner);
this.program.Controls.Add(this.toprightcorner);
this.program.Controls.Add(this.bottomrightcorner);
this.program.Controls.Add(this.topleftcorner);
this.program.Controls.Add(this.bottom);
this.program.Controls.Add(this.top);
this.program.Controls.Add(this.right);
this.program.Controls.Add(this.left);
this.program.Dock = System.Windows.Forms.DockStyle.Fill;
this.program.Location = new System.Drawing.Point(0, 0);
this.program.Name = "program";
this.program.Size = new System.Drawing.Size(284, 261);
this.program.TabIndex = 11;
//
// bottomleftcorner
//
this.bottomleftcorner.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Left)));
this.bottomleftcorner.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.bottomleftcorner.Location = new System.Drawing.Point(0, 257);
this.bottomleftcorner.Name = "bottomleftcorner";
this.bottomleftcorner.Size = new System.Drawing.Size(5, 4);
this.bottomleftcorner.TabIndex = 10;
//
// toprightcorner
//
this.toprightcorner.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Right)));
this.toprightcorner.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.toprightcorner.Location = new System.Drawing.Point(278, 0);
this.toprightcorner.Name = "toprightcorner";
this.toprightcorner.Size = new System.Drawing.Size(6, 30);
this.toprightcorner.TabIndex = 9;
//
// bottomrightcorner
//
this.bottomrightcorner.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Right)));
this.bottomrightcorner.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.bottomrightcorner.Cursor = System.Windows.Forms.Cursors.SizeNWSE;
this.bottomrightcorner.Location = new System.Drawing.Point(280, 257);
this.bottomrightcorner.Name = "bottomrightcorner";
this.bottomrightcorner.Size = new System.Drawing.Size(4, 4);
this.bottomrightcorner.TabIndex = 4;
//
// topleftcorner
//
this.topleftcorner.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.topleftcorner.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None;
this.topleftcorner.Location = new System.Drawing.Point(0, 0);
this.topleftcorner.Name = "topleftcorner";
this.topleftcorner.Size = new System.Drawing.Size(7, 30);
this.topleftcorner.TabIndex = 8;
//
// bottom
//
this.bottom.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.bottom.Cursor = System.Windows.Forms.Cursors.SizeNS;
this.bottom.Dock = System.Windows.Forms.DockStyle.Bottom;
this.bottom.Location = new System.Drawing.Point(4, 257);
this.bottom.Name = "bottom";
this.bottom.Size = new System.Drawing.Size(276, 4);
this.bottom.TabIndex = 3;
//
// top
//
this.top.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.top.Controls.Add(this.programIcon);
this.top.Controls.Add(this.maximizebutton);
this.top.Controls.Add(this.minimizebutton);
this.top.Controls.Add(this.Title);
this.top.Controls.Add(this.closebutton);
this.top.Dock = System.Windows.Forms.DockStyle.Top;
this.top.ForeColor = System.Drawing.SystemColors.ControlText;
this.top.Location = new System.Drawing.Point(4, 0);
this.top.Name = "top";
this.top.Size = new System.Drawing.Size(276, 30);
this.top.TabIndex = 0;
//
// programIcon
//
this.programIcon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch;
this.programIcon.ErrorImage = null;
this.programIcon.InitialImage = null;
this.programIcon.Location = new System.Drawing.Point(6, 7);
this.programIcon.Name = "programIcon";
this.programIcon.Size = new System.Drawing.Size(16, 16);
this.programIcon.TabIndex = 7;
this.programIcon.TabStop = false;
//
// maximizebutton
//
this.maximizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right;
this.maximizebutton.BackColor = System.Drawing.Color.Black;
this.maximizebutton.Location = new System.Drawing.Point(228, 5);
this.maximizebutton.Name = "maximizebutton";
this.maximizebutton.Size = new System.Drawing.Size(21, 21);
this.maximizebutton.TabIndex = 6;
this.maximizebutton.TabStop = false;
//
// minimizebutton
//
this.minimizebutton.Anchor = System.Windows.Forms.AnchorStyles.Right;
this.minimizebutton.BackColor = System.Drawing.Color.Black;
this.minimizebutton.Location = new System.Drawing.Point(205, 5);
this.minimizebutton.Name = "minimizebutton";
this.minimizebutton.Size = new System.Drawing.Size(21, 21);
this.minimizebutton.TabIndex = 5;
this.minimizebutton.TabStop = false;
//
// Title
//
this.Title.AutoSize = true;
this.Title.BackColor = System.Drawing.Color.Transparent;
this.Title.Font = new System.Drawing.Font("Tahoma", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(0)));
this.Title.ForeColor = System.Drawing.Color.White;
this.Title.Location = new System.Drawing.Point(25, 8);
this.Title.Name = "Title";
this.Title.Size = new System.Drawing.Size(106, 14);
this.Title.TabIndex = 3;
this.Title.Text = "Application Title";
//
// closebutton
//
this.closebutton.Anchor = System.Windows.Forms.AnchorStyles.Right;
this.closebutton.BackColor = System.Drawing.Color.Black;
this.closebutton.Location = new System.Drawing.Point(251, 5);
this.closebutton.Name = "closebutton";
this.closebutton.Size = new System.Drawing.Size(21, 21);
this.closebutton.TabIndex = 4;
this.closebutton.TabStop = false;
//
// right
//
this.right.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.right.Cursor = System.Windows.Forms.Cursors.SizeWE;
this.right.Dock = System.Windows.Forms.DockStyle.Right;
this.right.Location = new System.Drawing.Point(280, 0);
this.right.Name = "right";
this.right.Size = new System.Drawing.Size(4, 261);
this.right.TabIndex = 2;
//
// left
//
this.left.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(64)))), ((int)(((byte)(64)))), ((int)(((byte)(64)))));
this.left.Dock = System.Windows.Forms.DockStyle.Left;
this.left.Location = new System.Drawing.Point(0, 0);
this.left.Name = "left";
this.left.Size = new System.Drawing.Size(4, 261);
this.left.TabIndex = 1;
//
// programContent
//
this.programContent.Dock = System.Windows.Forms.DockStyle.Fill;
this.programContent.Location = new System.Drawing.Point(4, 30);
this.programContent.Name = "programContent";
this.programContent.Size = new System.Drawing.Size(276, 227);
this.programContent.TabIndex = 11;
//
// ShiftWindow
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.ClientSize = new System.Drawing.Size(284, 261);
this.Controls.Add(this.program);
this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
this.Name = "ShiftWindow";
this.program.ResumeLayout(false);
this.top.ResumeLayout(false);
this.top.PerformLayout();
((System.ComponentModel.ISupportInitialize)(this.programIcon)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.maximizebutton)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.minimizebutton)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.closebutton)).EndInit();
this.ResumeLayout(false);
}
#endregion
internal System.Windows.Forms.Panel program;
internal System.Windows.Forms.Panel bottomleftcorner;
internal System.Windows.Forms.Panel toprightcorner;
internal System.Windows.Forms.Panel bottomrightcorner;
internal System.Windows.Forms.Panel topleftcorner;
internal System.Windows.Forms.Panel bottom;
internal System.Windows.Forms.Panel top;
public System.Windows.Forms.PictureBox programIcon;
internal System.Windows.Forms.PictureBox maximizebutton;
internal System.Windows.Forms.PictureBox minimizebutton;
internal System.Windows.Forms.Label Title;
internal System.Windows.Forms.PictureBox closebutton;
internal System.Windows.Forms.Panel right;
internal System.Windows.Forms.Panel left;
public System.Windows.Forms.Panel programContent;
}
}

20
ShiftOS.Engine/WindowManager/ShiftWindow.cs Normal file
View file

@ -0,0 +1,20 @@
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace ShiftOS.Engine.WindowManager
{
public partial class ShiftWindow : Form
{
public ShiftWindow()
{
InitializeComponent();
}
}
}

0
ShiftOS/Bitnote Wallet.resx → ShiftOS.Engine/WindowManager/ShiftWindow.resx
View file

2
ShiftOS.Main/Program.cs
View file

@ -16,7 +16,7 @@ namespace ShiftOS.Main
{
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new HijackScreen());
Application.Run(new TestForm());
}
}
}

59
ShiftOS.Main/ShiftDemo.Designer.cs generated Normal file
View file

@ -0,0 +1,59 @@
namespace ShiftOS.Main
{
partial class ShiftDemo
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.IContainer components = null;
/// <summary>
/// Clean up any resources being used.
/// </summary>
/// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
#region Component Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.label1 = new System.Windows.Forms.Label();
this.SuspendLayout();
//
// label1
//
this.label1.AutoSize = true;
this.label1.Location = new System.Drawing.Point(18, 16);
this.label1.Name = "label1";
this.label1.Size = new System.Drawing.Size(35, 13);
this.label1.TabIndex = 0;
this.label1.Text = "label1";
//
// ShiftDemo
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.Controls.Add(this.label1);
this.Name = "ShiftDemo";
this.Size = new System.Drawing.Size(300, 300);
this.ResumeLayout(false);
this.PerformLayout();
}
#endregion
public System.Windows.Forms.Label label1;
}
}

20
ShiftOS.Main/ShiftDemo.cs Normal file
View file

@ -0,0 +1,20 @@
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace ShiftOS.Main
{
public partial class ShiftDemo : UserControl
{
public ShiftDemo()
{
InitializeComponent();
}
}
}

0
ShiftOS/Colour Picker.resx → ShiftOS.Main/ShiftDemo.resx
View file

24
ShiftOS.Main/ShiftOS.Main.csproj
View file

@ -52,6 +52,18 @@
</Compile>
<Compile Include="Program.cs" />
<Compile Include="Properties\AssemblyInfo.cs" />
<Compile Include="ShiftDemo.cs">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="ShiftDemo.Designer.cs">
<DependentUpon>ShiftDemo.cs</DependentUpon>
</Compile>
<Compile Include="TestForm.cs">
<SubType>Form</SubType>
</Compile>
<Compile Include="TestForm.Designer.cs">
<DependentUpon>TestForm.cs</DependentUpon>
</Compile>
<EmbeddedResource Include="HijackScreen.resx">
<DependentUpon>HijackScreen.cs</DependentUpon>
</EmbeddedResource>
@ -65,6 +77,12 @@
<DependentUpon>Resources.resx</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<EmbeddedResource Include="ShiftDemo.resx">
<DependentUpon>ShiftDemo.cs</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="TestForm.resx">
<DependentUpon>TestForm.cs</DependentUpon>
</EmbeddedResource>
<None Include="Properties\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings.Designer.cs</LastGenOutput>
@ -1070,5 +1088,11 @@
<ItemGroup>
<None Include="Resources\appscapeinfoorcwritetext.png" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\ShiftOS.Engine\ShiftOS.Engine.csproj">
<Project>{604eb1d7-998f-4a52-90a6-67f3dc3203d2}</Project>
<Name>ShiftOS.Engine</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
</Project>

83
ShiftOS.Main/TestForm.Designer.cs generated Normal file
View file

@ -0,0 +1,83 @@
namespace ShiftOS.Main
{
partial class TestForm
{
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.IContainer components = null;
/// <summary>
/// Clean up any resources being used.
/// </summary>
/// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
protected override void Dispose(bool disposing)
{
if (disposing && (components != null))
{
components.Dispose();
}
base.Dispose(disposing);
}
#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
this.textBox1 = new System.Windows.Forms.TextBox();
this.textBox2 = new System.Windows.Forms.TextBox();
this.button1 = new System.Windows.Forms.Button();
this.SuspendLayout();
//
// textBox1
//
this.textBox1.Location = new System.Drawing.Point(12, 13);
this.textBox1.Name = "textBox1";
this.textBox1.Size = new System.Drawing.Size(260, 20);
this.textBox1.TabIndex = 0;
this.textBox1.Text = "Title";
//
// textBox2
//
this.textBox2.Location = new System.Drawing.Point(12, 39);
this.textBox2.Name = "textBox2";
this.textBox2.Size = new System.Drawing.Size(260, 20);
this.textBox2.TabIndex = 1;
this.textBox2.Text = "Contents";
//
// button1
//
this.button1.Location = new System.Drawing.Point(12, 65);
this.button1.Name = "button1";
this.button1.Size = new System.Drawing.Size(260, 23);
this.button1.TabIndex = 2;
this.button1.Text = "Create Window";
this.button1.UseVisualStyleBackColor = true;
this.button1.Click += new System.EventHandler(this.Button1_Click);
//
// TestForm
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.ClientSize = new System.Drawing.Size(284, 100);
this.Controls.Add(this.button1);
this.Controls.Add(this.textBox2);
this.Controls.Add(this.textBox1);
this.Name = "TestForm";
this.Text = "TestForm";
this.ResumeLayout(false);
this.PerformLayout();
}
#endregion
private System.Windows.Forms.TextBox textBox1;
private System.Windows.Forms.TextBox textBox2;
private System.Windows.Forms.Button button1;
}
}

23
ShiftOS.Main/TestForm.cs Normal file
View file

@ -0,0 +1,23 @@
using System;
using System.Windows.Forms;
using ShiftOS.Engine.WindowManager;
namespace ShiftOS.Main
{
public partial class TestForm : Form
{
public ShiftWM shiftWM = new ShiftWM();
public ShiftDemo demo = new ShiftDemo();
public TestForm()
{
InitializeComponent();
}
private void Button1_Click(object sender, EventArgs e)
{
demo.label1.Text = textBox2.Text;
shiftWM.Init(demo, textBox1.Text);
}
}
}

0
ShiftOS/Custom_Menu.resx → ShiftOS.Main/TestForm.resx
View file

5
ShiftOS.sln
View file

@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.26430.15
VisualStudioVersion = 15.0.26730.12
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ShiftOS.Old", "ShiftOS\ShiftOS.Old.vbproj", "{7DCD55AB-F67D-4C43-9BFB-74ED8AD0FDCF}"
EndProject
@ -11,6 +11,9 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution
EndProjectSection
EndProject
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "ShiftOS.Main", "ShiftOS.Main\ShiftOS.Main.csproj", "{61A6E932-3129-4D58-AC79-F69D6E0B3054}"
ProjectSection(ProjectDependencies) = postProject
{604EB1D7-998F-4A52-90A6-67F3DC3203D2} = {604EB1D7-998F-4A52-90A6-67F3DC3203D2}
EndProjectSection
EndProject
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "ShiftOS.Engine", "ShiftOS.Engine\ShiftOS.Engine.csproj", "{604EB1D7-998F-4A52-90A6-67F3DC3203D2}"
EndProject

1245
ShiftOS/API.vb
View file

File diff suppressed because it is too large Load diff

18
ShiftOS/App.config
View file

@ -1,18 +0,0 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="ShiftOS.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
</startup>
<userSettings>
<ShiftOS.My.MySettings>
<setting name="ShouldCrashOccur" serializeAs="String">
<value>0</value>
</setting>
</ShiftOS.My.MySettings>
</userSettings>
</configuration>

20
ShiftOS/ApplicationEvents.vb
View file

@ -1,20 +0,0 @@
Imports System.IO
Namespace My
' The following events are available for MyApplication:
'
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean
Return True
End Function
End Class
End Namespace

3700
ShiftOS/ArtPad.Designer.vb generated
View file

File diff suppressed because it is too large Load diff

142
ShiftOS/ArtPad.resx
View file

@ -1,142 +0,0 @@
<?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>

2353
ShiftOS/ArtPad.vb
View file

File diff suppressed because it is too large Load diff

437
ShiftOS/Audio Player.Designer.vb generated
View file

@ -1,437 +0,0 @@
<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("Microsoft Sans Serif", 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(102, 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
ShiftOS/Audio Player.resx
View file

@ -1,149 +0,0 @@
<?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>

579
ShiftOS/Audio Player.vb
View file

@ -1,579 +0,0 @@
Public Class Audio_Player
Public clickedstop = False
Public cancelindex = False
Public trackbarcurrentwidth As Single
Public trackcurrent As Single
Public tracktotal As Single
Public cooldown As Boolean = False
#Region "Template Code"
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 = 414 'replace with minimum size
Public minimumsizeheight As Integer = 160 'replace with minimum size
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.AudioPlayerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttonaudioplayer.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonaudioplayer, ShiftOSDesktop.tbaudioplayericon, ShiftOSDesktop.tbaudioplayertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(414, 160) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.audioplayername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
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
Public Sub resettitlebar()
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
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
Private Sub lblintro_Click(sender As Object, e As EventArgs) Handles lblintro.Click
End Sub
End Class

480
ShiftOS/Bitnote Digger.Designer.vb generated
View file

@ -1,480 +0,0 @@
<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.turbomodespeed = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbldiggerstatsspeed = New System.Windows.Forms.Label()
Me.lbldiggerstatsgrade = New System.Windows.Forms.Label()
Me.lbldiggerstatsname = 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.tmrturbomode = 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("Microsoft Sans Serif", 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(115, 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.turbomodespeed)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.lbldiggerstatsspeed)
Me.Panel1.Controls.Add(Me.lbldiggerstatsgrade)
Me.Panel1.Controls.Add(Me.lbldiggerstatsname)
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"
'
'turbomodespeed
'
Me.turbomodespeed.AutoSize = True
Me.turbomodespeed.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.turbomodespeed.Location = New System.Drawing.Point(3, 109)
Me.turbomodespeed.Name = "turbomodespeed"
Me.turbomodespeed.Size = New System.Drawing.Size(183, 16)
Me.turbomodespeed.TabIndex = 10
Me.turbomodespeed.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:"
'
'lbldiggerstatsspeed
'
Me.lbldiggerstatsspeed.AutoSize = True
Me.lbldiggerstatsspeed.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbldiggerstatsspeed.Location = New System.Drawing.Point(6, 60)
Me.lbldiggerstatsspeed.Name = "lbldiggerstatsspeed"
Me.lbldiggerstatsspeed.Size = New System.Drawing.Size(144, 16)
Me.lbldiggerstatsspeed.TabIndex = 8
Me.lbldiggerstatsspeed.Text = "Speed: 0.00001 BTN/S"
'
'lbldiggerstatsgrade
'
Me.lbldiggerstatsgrade.AutoSize = True
Me.lbldiggerstatsgrade.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbldiggerstatsgrade.Location = New System.Drawing.Point(6, 43)
Me.lbldiggerstatsgrade.Name = "lbldiggerstatsgrade"
Me.lbldiggerstatsgrade.Size = New System.Drawing.Size(103, 16)
Me.lbldiggerstatsgrade.TabIndex = 7
Me.lbldiggerstatsgrade.Text = "Digger Grade: 1"
'
'lbldiggerstatsname
'
Me.lbldiggerstatsname.AutoSize = True
Me.lbldiggerstatsname.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbldiggerstatsname.Location = New System.Drawing.Point(6, 26)
Me.lbldiggerstatsname.Name = "lbldiggerstatsname"
Me.lbldiggerstatsname.Size = New System.Drawing.Size(157, 16)
Me.lbldiggerstatsname.TabIndex = 6
Me.lbldiggerstatsname.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
'
'tmrturbomode
'
Me.tmrturbomode.Interval = 10000
'
'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 turbomodespeed As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lbldiggerstatsspeed As System.Windows.Forms.Label
Friend WithEvents lbldiggerstatsgrade As System.Windows.Forms.Label
Friend WithEvents lbldiggerstatsname 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
Friend WithEvents tmrturbomode As System.Windows.Forms.Timer
End Class

126
ShiftOS/Bitnote Digger.resx
View file

@ -1,126 +0,0 @@
<?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>
<metadata name="tmrturbomode.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>187, 17</value>
</metadata>
</root>

493
ShiftOS/Bitnote Digger.vb
View file

@ -1,493 +0,0 @@
Public Class Bitnote_Digger
#Region "Template Code"
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 = 560 'replace with minimum size
Public minimumsizeheight As Integer = 253 'replace with minimum size
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
updatestats()
If ShiftOSDesktop.BitNoteDiggerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttonbitnotedigger.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotedigger, ShiftOSDesktop.tbbitnotediggericon, ShiftOSDesktop.tbbitnotediggertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(560, 253) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.bitnotediggername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
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
Public Sub setskin()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Public bitnotesmined As Decimal = 0
Public miningspeed As Decimal = 0.00001
Public Sub updatestats()
lbldiggerstatsgrade.Text = "Digger Grade: " & ShiftOSDesktop.bitnotediggergrade
Select Case ShiftOSDesktop.bitnotediggergrade
Case 1
lbldiggerstatsname.Text = "Surface Scratcher"
lbldiggerstatsspeed.Text = "Speed: 0.00001"
miningspeed = 0.00001
Case 2
lbldiggerstatsname.Text = "Name: Sediment Mover"
lbldiggerstatsspeed.Text = "Speed: 0.00002"
miningspeed = 0.00002
Case 3
lbldiggerstatsname.Text = "Name: Rock Crusher"
lbldiggerstatsspeed.Text = "0.00004"
miningspeed = 0.00004
Case 4
lbldiggerstatsname.Text = "Name: Massive Drill"
lbldiggerstatsspeed.Text = "Speed: 0.00008"
miningspeed = 0.00008
Case 5
lbldiggerstatsname.Text = "Name: Kola"
lbldiggerstatsspeed.Text = "Speed: 0.00016"
miningspeed = 0.00016
End Select
turbomodespeed.Text = (miningspeed * 2)
End Sub
Public Sub updategrade(ByVal grade As Integer, ByVal price As Decimal, ByVal name As String)
If ShiftOSDesktop.boughtbitnotedigger = True Then
If ShiftOSDesktop.bitnotebalance >= price Then
If ShiftOSDesktop.bitnotediggergrade < grade Then
ShiftOSDesktop.bitnotediggergrade = grade
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - price
infobox.title = "Upgraded to " & name
infobox.textinfo = "Your digger has be successfully upgraded to grade " & grade & ". The '" & name & "'"
infobox.Show()
Else
infobox.title = "Aready Upgrade"
infobox.textinfo = "The Bitnote Digger is already upgrade to grade " & ShiftOSDesktop.bitnotediggergrade & ". There is no point in downgrading grade " & grade
infobox.Show()
End If
Else
infobox.title = "Insufficient Funds"
infobox.textinfo = "You do not have enough Bitnotes to complete this purchase"
infobox.Show()
End If
Else
Shiftnet.bitnotebuy("wallet", 0, True)
If ShiftOSDesktop.bitnotebalance >= price Then
If ShiftOSDesktop.bitnotediggergrade < grade Then
ShiftOSDesktop.bitnotediggergrade = grade
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - price
infobox.title = "Upgraded to " & name
infobox.textinfo = "Your digger has be successfully upgraded to grade " & grade & ", '" & name & "'"
infobox.Show()
Else
infobox.title = "Aready Upgrade"
infobox.textinfo = "The Bitnote Digger is already upgradde to grade " & ShiftOSDesktop.bitnotediggergrade & ". There is no point in downgrading to grade " & grade
infobox.Show()
End If
Else
infobox.title = "Insufficient Funds"
infobox.textinfo = "You do not have enough Bitnotes to complete this purchase"
infobox.Show()
End If
End If
End Sub
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
Private Sub btnturbomode_Click(sender As Object, e As EventArgs) Handles btnturbomode.Click
If tmrturbomode.Enabled = False Then
miningspeed = (miningspeed * 2)
tmrturbomode.Start()
btnturbomode.Text = "Disable Turbo Mode"
Else
miningspeed = (miningspeed / 2)
tmrturbomode.Stop()
btnturbomode.Text = "Activate Turbo Mode"
End If
End Sub
Private Sub tmrturbomode_Tick(sender As Object, e As EventArgs) Handles tmrturbomode.Tick
If ShiftOSDesktop.codepoints >= 1 Then
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints - 1
Else
miningspeed = (miningspeed / 2)
tmrturbomode.Stop()
btnturbomode.Text = "Activate Turbo Mode"
infobox.title = "Turbo Mode disabled"
infobox.textinfo = "Turbo Mode has been disabled due to your lack of Code Points."
infobox.Show()
End If
End Sub
End Class

570
ShiftOS/Bitnote Wallet.Designer.vb generated
View file

@ -1,570 +0,0 @@
<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

478
ShiftOS/Bitnote Wallet.vb
View file

@ -1,478 +0,0 @@
Public Class Bitnote_Wallet
#Region "Template Code"
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 = 425 'replace with minimum size
Public minimumsizeheight As Integer = 204 'replace with minimum size
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
setupbitnotestats()
If ShiftOSDesktop.BitNoteWalletCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttonbitnotewallet.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonbitnotewallet, ShiftOSDesktop.tbbitnotewalleticon, ShiftOSDesktop.tbbitnotewallettext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(425, 204) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
Me.Size = New Size((Me.Width - (2 * oldbordersize)) + (2 * Skins.borderwidth), ((Me.Height - oldbordersize - oldtitlebarheight) + Skins.borderwidth + Skins.titlebarheight) - (titlebar.Height / 2))
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
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 = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
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
Public Sub setskin()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
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 Shiftnet.minimatchbitnoteaddress 'pay minimatch
ShiftOSDesktop.bitnotebalanceminimatch = ShiftOSDesktop.bitnotebalanceminimatch + txtamounttopay.Text
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text
logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text)
Case ShiftOSDesktop.bitnoteaddressappscape 'deposit to appscape
ShiftOSDesktop.bitnoteaddressappscape = ShiftOSDesktop.bitnoteaddressappscape + txtamounttopay.Text
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - txtamounttopay.Text
logtransaction(txtamounttopay.Text, "Debit To", txtsendtoaddress.Text)
Case ShiftOSDesktop.bitnoteaddressshiftomizer
If Shiftnet.shiftomizeractivepayment = True Then Shiftnet.completeshiftomizerpayment(txtamounttopay.Text)
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance - 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

514
ShiftOS/Calculator.Designer.vb generated
View file

@ -1,514 +0,0 @@
<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.BackColor = System.Drawing.Color.White
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbldispla.BackColor = System.Drawing.Color.White
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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.Anchor = System.Windows.Forms.AnchorStyles.None
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
ShiftOS/Calculator.resx
View file

@ -1,129 +0,0 @@
<?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>

811
ShiftOS/Calculator.vb
View file

@ -1,811 +0,0 @@
Public Class Calculator
Public dNumber As Double
Public sOperation As String
Public bHasFirstNumber, bHasSecondNumber, bHasOperation As Boolean
#Region "Template Code"
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 = 261 'replace with minimum size
Public minimumsizeheight As Integer = 278 'replace with minimum size
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.CalculatorCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttoncalculator.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoncalculator, ShiftOSDesktop.tbcalculatoricon, ShiftOSDesktop.tbcalculatortext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.calculatorname 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
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 resettitlebar()
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
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

267
ShiftOS/Catalyst_Main.Designer.vb generated
View file

@ -1,267 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Catalyst_Main
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.pgcontents = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
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.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.pgbottomlcorner = New System.Windows.Forms.Panel()
Me.pgleft = New System.Windows.Forms.Panel()
Me.titlebar = New System.Windows.Forms.Panel()
Me.lbmessage = New System.Windows.Forms.Label()
Me.pgcontents.SuspendLayout
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
'
'pgcontents
'
Me.pgcontents.Controls.Add(Me.lbmessage)
Me.pgcontents.Controls.Add(Me.TextBox1)
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(329, 364)
Me.pgcontents.TabIndex = 20
'
'TextBox1
'
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.TextBox1.Location = New System.Drawing.Point(11, 334)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(308, 24)
Me.TextBox1.TabIndex = 0
'
'pgbottom
'
Me.pgbottom.BackColor = System.Drawing.Color.Gray
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottom.Location = New System.Drawing.Point(2, 394)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(329, 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
'
'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(90, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Catalyst"
'
'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(331, 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, 364)
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(331, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 366)
Me.pgright.TabIndex = 22
'
'pgbottomlcorner
'
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 364)
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, 366)
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(333, 30)
Me.titlebar.TabIndex = 19
'
'lbmessage
'
Me.lbmessage.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.lbmessage.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.lbmessage.Location = New System.Drawing.Point(10, 17)
Me.lbmessage.Name = "lbmessage"
Me.lbmessage.Size = New System.Drawing.Size(309, 314)
Me.lbmessage.TabIndex = 1
Me.lbmessage.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'Catalyst_Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(333, 396)
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 = "Catalyst_Main"
Me.Text = "Catalyst_Main"
Me.pgcontents.ResumeLayout(false)
Me.pgcontents.PerformLayout
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 pgcontents As System.Windows.Forms.Panel
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 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 pgbottomlcorner As System.Windows.Forms.Panel
Friend WithEvents pgleft As System.Windows.Forms.Panel
Friend WithEvents titlebar As System.Windows.Forms.Panel
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents lbmessage As System.Windows.Forms.Label
End Class

129
ShiftOS/Catalyst_Main.resx
View file

@ -1,129 +0,0 @@
<?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>17, 57</value>
</metadata>
</root>

435
ShiftOS/Catalyst_Main.vb
View file

@ -1,435 +0,0 @@
#Region "Importers"
Imports ShiftOS.Helper
Imports System.Speech.Synthesis
#End Region
Public Class Catalyst_Main
#Region "Template Code"
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
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlcatalystpanelbutton, ShiftOSDesktop.tbcatalysticon, ShiftOSDesktop.lbcatalystname, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
readAloud("Welcome back, #user#! Just give me a second to load my core...")
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(420, 510) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.catalystname 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
#Region "Declarations and Functions"
Public Sub readAloud(text As String)
lbmessage.Text = text.Replace("#user#", ShiftOSDesktop.username)
speak(text)
End Sub
Public Sub checkMsg(MsgText As String)
readAloud(MsgText)
End Sub
#End Region
Private Sub TextBox1_TextChanged(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
Dim txtmsg As String = TextBox1.Text
TextBox1.Clear()
checkMsg(txtmsg)
End If
End Sub
End Class

270
ShiftOS/Clock.Designer.vb generated
View file

@ -1,270 +0,0 @@
<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
ShiftOS/Clock.resx
View file

@ -1,123 +0,0 @@
<?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>

446
ShiftOS/Clock.vb
View file

@ -1,446 +0,0 @@
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
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.ClockCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttonclock.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonclock, ShiftOSDesktop.tbclockicon, ShiftOSDesktop.tbclocktext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.clockname 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtclockicon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
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
Public Sub setskin()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
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
ShiftOS/Colour Picker.Designer.vb generated
View file

File diff suppressed because it is too large Load diff

2844
ShiftOS/Colour Picker.vb
View file

File diff suppressed because it is too large Load diff

330
ShiftOS/CustomColorTable.vb
View file

@ -1,330 +0,0 @@
' <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(Skins.applauncherbackgroundcolour.ToArgb)
End Get
End Property
Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color
Get
Return Color.FromArgb(Skins.applauncherbackgroundcolour.ToArgb)
End Get
End Property
Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color
Get
Return Color.FromArgb(Skins.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 Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applauncherbuttoncolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuStripGradientEnd() As Color
Get
If Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applauncherbuttoncolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuItemSelected() As Color
Get
Return Color.FromArgb(Skins.applaunchermouseovercolour.ToArgb)
End Get
End Property
Public Overrides ReadOnly Property MenuItemBorder() As Color
Get
If Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applaunchermouseovercolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuBorder() As Color
Get
If Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applauncherbackgroundcolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuItemSelectedGradientBegin() As Color
Get
If Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applaunchermouseovercolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuItemSelectedGradientEnd() As Color
Get
If Skins.applauncher Is Nothing Then
Return Color.FromArgb(Skins.applaunchermouseovercolour.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 Skins.applauncherclick Is Nothing Then
Return Color.FromArgb(Skins.applauncherbuttonclickedcolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuItemPressedGradientMiddle() As Color
Get
If Skins.applauncherclick Is Nothing Then
Return Color.FromArgb(Skins.applauncherbuttonclickedcolour.ToArgb)
Else
Return Color.Transparent
End If
End Get
End Property
Public Overrides ReadOnly Property MenuItemPressedGradientEnd() As Color
Get
If Skins.applauncherclick Is Nothing Then
Return Color.FromArgb(Skins.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(Skins.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

486
ShiftOS/Custom_Menu.Designer.vb generated
View file

@ -1,486 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Custom_Menu
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.pnlcontrols = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.pnlrunicon = New System.Windows.Forms.Panel()
Me.txtrun = New System.Windows.Forms.TextBox()
Me.flpcat = New System.Windows.Forms.FlowLayoutPanel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.flpmain = New System.Windows.Forms.FlowLayoutPanel()
Me.pnlknowledgeinput = New System.Windows.Forms.Panel()
Me.lblknowledgeinputname = New System.Windows.Forms.Label()
Me.pnlknowledgeinputicon = New System.Windows.Forms.Panel()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.Panel9 = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.Panel11 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel12 = New System.Windows.Forms.Panel()
Me.Panel13 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Panel14 = New System.Windows.Forms.Panel()
Me.Panel15 = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel16 = New System.Windows.Forms.Panel()
Me.Panel17 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel18 = New System.Windows.Forms.Panel()
Me.pnlcontrols.SuspendLayout()
Me.flpcat.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.flpmain.SuspendLayout()
Me.pnlknowledgeinput.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.Panel7.SuspendLayout()
Me.Panel9.SuspendLayout()
Me.Panel11.SuspendLayout()
Me.Panel13.SuspendLayout()
Me.Panel15.SuspendLayout()
Me.Panel17.SuspendLayout()
Me.SuspendLayout()
'
'pnlcontrols
'
Me.pnlcontrols.Controls.Add(Me.Panel2)
Me.pnlcontrols.Controls.Add(Me.TextBox2)
Me.pnlcontrols.Controls.Add(Me.Panel1)
Me.pnlcontrols.Controls.Add(Me.TextBox1)
Me.pnlcontrols.Controls.Add(Me.pnlrunicon)
Me.pnlcontrols.Controls.Add(Me.txtrun)
Me.pnlcontrols.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlcontrols.Location = New System.Drawing.Point(0, 619)
Me.pnlcontrols.Name = "pnlcontrols"
Me.pnlcontrols.Size = New System.Drawing.Size(417, 31)
Me.pnlcontrols.TabIndex = 1
'
'Panel2
'
Me.Panel2.Location = New System.Drawing.Point(290, 8)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(16, 16)
Me.Panel2.TabIndex = 5
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(311, 6)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
Me.TextBox2.TabIndex = 4
Me.TextBox2.Text = "Command"
'
'Panel1
'
Me.Panel1.Location = New System.Drawing.Point(149, 9)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(16, 16)
Me.Panel1.TabIndex = 3
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(169, 7)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 2
Me.TextBox1.Text = "Search"
'
'pnlrunicon
'
Me.pnlrunicon.Location = New System.Drawing.Point(12, 8)
Me.pnlrunicon.Name = "pnlrunicon"
Me.pnlrunicon.Size = New System.Drawing.Size(16, 16)
Me.pnlrunicon.TabIndex = 1
'
'txtrun
'
Me.txtrun.Location = New System.Drawing.Point(33, 6)
Me.txtrun.Name = "txtrun"
Me.txtrun.Size = New System.Drawing.Size(100, 20)
Me.txtrun.TabIndex = 0
Me.txtrun.Text = "Run"
'
'flpcat
'
Me.flpcat.Controls.Add(Me.Panel3)
Me.flpcat.Controls.Add(Me.Panel5)
Me.flpcat.Controls.Add(Me.Panel7)
Me.flpcat.Controls.Add(Me.Panel9)
Me.flpcat.Controls.Add(Me.Panel17)
Me.flpcat.Dock = System.Windows.Forms.DockStyle.Right
Me.flpcat.Location = New System.Drawing.Point(209, 0)
Me.flpcat.Name = "flpcat"
Me.flpcat.Size = New System.Drawing.Size(208, 619)
Me.flpcat.TabIndex = 3
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Label1)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(200, 67)
Me.Panel3.TabIndex = 0
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(65, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(132, 50)
Me.Label1.TabIndex = 1
Me.Label1.Text = "GAMES"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel4
'
Me.Panel4.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel4.Location = New System.Drawing.Point(9, 9)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(50, 50)
Me.Panel4.TabIndex = 0
'
'flpmain
'
Me.flpmain.Controls.Add(Me.pnlknowledgeinput)
Me.flpmain.Controls.Add(Me.Panel11)
Me.flpmain.Controls.Add(Me.Panel13)
Me.flpmain.Controls.Add(Me.Panel15)
Me.flpmain.Dock = System.Windows.Forms.DockStyle.Fill
Me.flpmain.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.flpmain.Location = New System.Drawing.Point(0, 0)
Me.flpmain.Name = "flpmain"
Me.flpmain.Size = New System.Drawing.Size(209, 619)
Me.flpmain.TabIndex = 4
'
'pnlknowledgeinput
'
Me.pnlknowledgeinput.Controls.Add(Me.lblknowledgeinputname)
Me.pnlknowledgeinput.Controls.Add(Me.pnlknowledgeinputicon)
Me.pnlknowledgeinput.Location = New System.Drawing.Point(3, 3)
Me.pnlknowledgeinput.Name = "pnlknowledgeinput"
Me.pnlknowledgeinput.Size = New System.Drawing.Size(200, 67)
Me.pnlknowledgeinput.TabIndex = 0
'
'lblknowledgeinputname
'
Me.lblknowledgeinputname.BackColor = System.Drawing.Color.Transparent
Me.lblknowledgeinputname.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblknowledgeinputname.Location = New System.Drawing.Point(65, 9)
Me.lblknowledgeinputname.Name = "lblknowledgeinputname"
Me.lblknowledgeinputname.Size = New System.Drawing.Size(132, 50)
Me.lblknowledgeinputname.TabIndex = 1
Me.lblknowledgeinputname.Text = "Games >"
Me.lblknowledgeinputname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pnlknowledgeinputicon
'
Me.pnlknowledgeinputicon.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.pnlknowledgeinputicon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.pnlknowledgeinputicon.Location = New System.Drawing.Point(9, 9)
Me.pnlknowledgeinputicon.Name = "pnlknowledgeinputicon"
Me.pnlknowledgeinputicon.Size = New System.Drawing.Size(50, 50)
Me.pnlknowledgeinputicon.TabIndex = 0
'
'Panel5
'
Me.Panel5.Controls.Add(Me.Label2)
Me.Panel5.Controls.Add(Me.Panel6)
Me.Panel5.Location = New System.Drawing.Point(3, 76)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(200, 67)
Me.Panel5.TabIndex = 1
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(65, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(132, 50)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Pong"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel6
'
Me.Panel6.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel6.Location = New System.Drawing.Point(9, 9)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(50, 50)
Me.Panel6.TabIndex = 0
'
'Panel7
'
Me.Panel7.Controls.Add(Me.Label3)
Me.Panel7.Controls.Add(Me.Panel8)
Me.Panel7.Location = New System.Drawing.Point(3, 149)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(200, 67)
Me.Panel7.TabIndex = 2
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(65, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(132, 50)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Dodge"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel8
'
Me.Panel8.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel8.Location = New System.Drawing.Point(9, 9)
Me.Panel8.Name = "Panel8"
Me.Panel8.Size = New System.Drawing.Size(50, 50)
Me.Panel8.TabIndex = 0
'
'Panel9
'
Me.Panel9.Controls.Add(Me.Label4)
Me.Panel9.Controls.Add(Me.Panel10)
Me.Panel9.Location = New System.Drawing.Point(3, 222)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(200, 67)
Me.Panel9.TabIndex = 3
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(65, 9)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(132, 50)
Me.Label4.TabIndex = 1
Me.Label4.Text = "Labyrinth"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel10
'
Me.Panel10.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel10.Location = New System.Drawing.Point(9, 9)
Me.Panel10.Name = "Panel10"
Me.Panel10.Size = New System.Drawing.Size(50, 50)
Me.Panel10.TabIndex = 0
'
'Panel11
'
Me.Panel11.Controls.Add(Me.Label5)
Me.Panel11.Controls.Add(Me.Panel12)
Me.Panel11.Location = New System.Drawing.Point(3, 76)
Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(200, 67)
Me.Panel11.TabIndex = 1
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(65, 9)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(132, 50)
Me.Label5.TabIndex = 1
Me.Label5.Text = "Customization >"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel12
'
Me.Panel12.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel12.Location = New System.Drawing.Point(9, 9)
Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(50, 50)
Me.Panel12.TabIndex = 0
'
'Panel13
'
Me.Panel13.Controls.Add(Me.Label6)
Me.Panel13.Controls.Add(Me.Panel14)
Me.Panel13.Location = New System.Drawing.Point(3, 149)
Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(200, 67)
Me.Panel13.TabIndex = 2
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(65, 9)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(132, 50)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Interwebz >"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel14
'
Me.Panel14.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel14.Location = New System.Drawing.Point(9, 9)
Me.Panel14.Name = "Panel14"
Me.Panel14.Size = New System.Drawing.Size(50, 50)
Me.Panel14.TabIndex = 0
'
'Panel15
'
Me.Panel15.Controls.Add(Me.Label7)
Me.Panel15.Controls.Add(Me.Panel16)
Me.Panel15.Location = New System.Drawing.Point(3, 222)
Me.Panel15.Name = "Panel15"
Me.Panel15.Size = New System.Drawing.Size(200, 67)
Me.Panel15.TabIndex = 3
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(65, 9)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(132, 50)
Me.Label7.TabIndex = 1
Me.Label7.Text = "Office >"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel16
'
Me.Panel16.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel16.Location = New System.Drawing.Point(9, 9)
Me.Panel16.Name = "Panel16"
Me.Panel16.Size = New System.Drawing.Size(50, 50)
Me.Panel16.TabIndex = 0
'
'Panel17
'
Me.Panel17.Controls.Add(Me.Label8)
Me.Panel17.Controls.Add(Me.Panel18)
Me.Panel17.Location = New System.Drawing.Point(3, 295)
Me.Panel17.Name = "Panel17"
Me.Panel17.Size = New System.Drawing.Size(200, 67)
Me.Panel17.TabIndex = 4
'
'Label8
'
Me.Label8.BackColor = System.Drawing.Color.Transparent
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(65, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(132, 50)
Me.Label8.TabIndex = 1
Me.Label8.Text = "Knowledge Input"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel18
'
Me.Panel18.BackgroundImage = Global.ShiftOS.My.Resources.Resources.iconKnowledgeInput
Me.Panel18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel18.Location = New System.Drawing.Point(9, 9)
Me.Panel18.Name = "Panel18"
Me.Panel18.Size = New System.Drawing.Size(50, 50)
Me.Panel18.TabIndex = 0
'
'Custom_Menu
'
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(417, 650)
Me.Controls.Add(Me.flpmain)
Me.Controls.Add(Me.flpcat)
Me.Controls.Add(Me.pnlcontrols)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Custom_Menu"
Me.Text = "Custom_Menu"
Me.TopMost = True
Me.pnlcontrols.ResumeLayout(False)
Me.pnlcontrols.PerformLayout()
Me.flpcat.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.flpmain.ResumeLayout(False)
Me.pnlknowledgeinput.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
Me.Panel7.ResumeLayout(False)
Me.Panel9.ResumeLayout(False)
Me.Panel11.ResumeLayout(False)
Me.Panel13.ResumeLayout(False)
Me.Panel15.ResumeLayout(False)
Me.Panel17.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnlcontrols As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents pnlrunicon As System.Windows.Forms.Panel
Friend WithEvents txtrun As System.Windows.Forms.TextBox
Friend WithEvents flpcat As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents Panel5 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Panel6 As System.Windows.Forms.Panel
Friend WithEvents Panel7 As System.Windows.Forms.Panel
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Panel8 As System.Windows.Forms.Panel
Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Panel10 As System.Windows.Forms.Panel
Friend WithEvents Panel17 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Panel18 As System.Windows.Forms.Panel
Friend WithEvents flpmain As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents pnlknowledgeinput As System.Windows.Forms.Panel
Friend WithEvents lblknowledgeinputname As System.Windows.Forms.Label
Friend WithEvents pnlknowledgeinputicon As System.Windows.Forms.Panel
Friend WithEvents Panel11 As System.Windows.Forms.Panel
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Panel12 As System.Windows.Forms.Panel
Friend WithEvents Panel13 As System.Windows.Forms.Panel
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Panel14 As System.Windows.Forms.Panel
Friend WithEvents Panel15 As System.Windows.Forms.Panel
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Panel16 As System.Windows.Forms.Panel
End Class

3
ShiftOS/Custom_Menu.vb
View file

@ -1,3 +0,0 @@
Public Class Custom_Menu
' The up and coming fully customizable menu.
End Class

90
ShiftOS/DockEngine.vb
View file

@ -1,90 +0,0 @@
Public Class DockEngine
Public docktop As Integer
Public topbottom As String
Dim allLines As List(Of String) = New List(Of String)
Public Function ReadLine(lineNumber As Integer, lines As List(Of String)) As String
Return lines(lineNumber - 1)
End Function
Public Sub readFile(ByVal file As String)
If My.Computer.FileSystem.FileExists(file) Then
allLines.Clear()
Dim reader As New System.IO.StreamReader(file)
Do While Not reader.EndOfStream
allLines.Add(reader.ReadLine())
Loop
reader.Close()
For Each item As String In allLines
Dim tileinfo() As String
tileinfo = item.Split("#")
DockWindow.createtile(tileinfo(0), tileinfo(1))
Next
Else
Dim filepath As String = file
If Not System.IO.File.Exists(filepath) Then
If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath + "\SoftwareData\ShiftDock") Then
My.Computer.FileSystem.CreateDirectory(Application.StartupPath + "\SoftwareData\ShiftDock")
End If
System.IO.File.Create(filepath).Dispose()
DockWindow.firststart = True
End If
End If
End Sub
Public Sub readConfFile(ByVal file As String)
If My.Computer.FileSystem.FileExists(file) Then
allLines.Clear()
Dim reader As New System.IO.StreamReader(file)
Do While Not reader.EndOfStream
allLines.Add(reader.ReadLine())
Loop
reader.Close()
docktop = allLines(0)
topbottom = allLines(1)
DockWindow.Top = docktop
Else
Dim filepath As String = file
If Not System.IO.File.Exists(filepath) Then
System.IO.File.Create(filepath).Dispose()
End If
End If
End Sub
Public Sub writeFile(ByVal path As String, color As String)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat", True)
file.WriteLine(path + "#" + color)
file.Close()
End Sub
Public Sub writeConfFile(ByVal top As String, updown As String)
My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
Dim filepath As String = Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat"
If Not System.IO.File.Exists(filepath) Then
System.IO.File.Create(filepath).Dispose()
End If
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat", True)
file.WriteLine(top)
file.WriteLine(updown)
file.Close()
End Sub
End Class

814
ShiftOS/DockSettingsMenu.Designer.vb generated
View file

@ -1,814 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DockSettingsMenu
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.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.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.tilecolor = New System.Windows.Forms.ColorDialog()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnQuitDock = New System.Windows.Forms.Button()
Me.btnQuitSet = New System.Windows.Forms.Button()
Me.btnSetBottom = New System.Windows.Forms.Button()
Me.btnSetTop = New System.Windows.Forms.Button()
Me.btnTake = New System.Windows.Forms.Button()
Me.btnPlus = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnAdd = New System.Windows.Forms.Button()
Me.pnlPrograms = New System.Windows.Forms.Panel()
Me.lblShiftNet = New System.Windows.Forms.Label()
Me.lblIconManager = New System.Windows.Forms.Label()
Me.lblWebBrowser = New System.Windows.Forms.Label()
Me.lblVirusScanner = New System.Windows.Forms.Label()
Me.lblVideoPlayer = New System.Windows.Forms.Label()
Me.lblTextPad = New System.Windows.Forms.Label()
Me.lblTerminal = New System.Windows.Forms.Label()
Me.lblShiftorium = New System.Windows.Forms.Label()
Me.lblShifter = New System.Windows.Forms.Label()
Me.lblPong = New System.Windows.Forms.Label()
Me.lblOrcWrite = New System.Windows.Forms.Label()
Me.lblNameChanger = New System.Windows.Forms.Label()
Me.lblLabyrinth = New System.Windows.Forms.Label()
Me.lblKnowledgeInput = New System.Windows.Forms.Label()
Me.lblInstaller = New System.Windows.Forms.Label()
Me.lblSnakey = New System.Windows.Forms.Label()
Me.lblFloodGateManager = New System.Windows.Forms.Label()
Me.lblFileSkimmer = New System.Windows.Forms.Label()
Me.lblDManager = New System.Windows.Forms.Label()
Me.lblDownloader = New System.Windows.Forms.Label()
Me.lblDodge = New System.Windows.Forms.Label()
Me.lblClock = New System.Windows.Forms.Label()
Me.lblCatlyst = New System.Windows.Forms.Label()
Me.lblCalc = New System.Windows.Forms.Label()
Me.lblBitNoteWallet = New System.Windows.Forms.Label()
Me.lblBitNoteDigger = New System.Windows.Forms.Label()
Me.lblAudioPlayer = New System.Windows.Forms.Label()
Me.lblArtpad = New System.Windows.Forms.Label()
Me.lblToTile = New System.Windows.Forms.Label()
Me.Udate = New System.Windows.Forms.Timer(Me.components)
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.pgleft.SuspendLayout()
Me.pgright.SuspendLayout()
Me.titlebar.SuspendLayout()
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlPrograms.SuspendLayout()
Me.SuspendLayout()
'
'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, 679)
Me.pgleft.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, 677)
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(265, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 679)
Me.pgright.TabIndex = 17
'
'pgbottomrcorner
'
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 677)
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(267, 30)
Me.titlebar.TabIndex = 14
'
'minimizebutton
'
Me.minimizebutton.BackColor = System.Drawing.Color.Black
Me.minimizebutton.Location = New System.Drawing.Point(170, 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(198, 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(226, 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(83, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Settings"
'
'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(265, 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, 707)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(263, 2)
Me.pgbottom.TabIndex = 18
'
'pullbs
'
Me.pullbs.Interval = 1
'
'pullbottom
'
Me.pullbottom.Interval = 1
'
'pullside
'
Me.pullside.Interval = 1
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(27, 101)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(118, 13)
Me.Label3.TabIndex = 50
Me.Label3.Text = "Choose Program CLICK"
'
'btnQuitDock
'
Me.btnQuitDock.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuitDock.Location = New System.Drawing.Point(16, 619)
Me.btnQuitDock.Name = "btnQuitDock"
Me.btnQuitDock.Size = New System.Drawing.Size(235, 75)
Me.btnQuitDock.TabIndex = 49
Me.btnQuitDock.Text = "Quit ShiftDock"
Me.btnQuitDock.UseVisualStyleBackColor = True
'
'btnQuitSet
'
Me.btnQuitSet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuitSet.Location = New System.Drawing.Point(16, 538)
Me.btnQuitSet.Name = "btnQuitSet"
Me.btnQuitSet.Size = New System.Drawing.Size(235, 75)
Me.btnQuitSet.TabIndex = 48
Me.btnQuitSet.Text = "Quit Settings"
Me.btnQuitSet.UseVisualStyleBackColor = True
'
'btnSetBottom
'
Me.btnSetBottom.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSetBottom.Location = New System.Drawing.Point(16, 444)
Me.btnSetBottom.Name = "btnSetBottom"
Me.btnSetBottom.Size = New System.Drawing.Size(235, 75)
Me.btnSetBottom.TabIndex = 47
Me.btnSetBottom.Text = "Set Dock To Bottom"
Me.btnSetBottom.UseVisualStyleBackColor = True
'
'btnSetTop
'
Me.btnSetTop.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSetTop.Location = New System.Drawing.Point(17, 282)
Me.btnSetTop.Name = "btnSetTop"
Me.btnSetTop.Size = New System.Drawing.Size(235, 75)
Me.btnSetTop.TabIndex = 46
Me.btnSetTop.Text = "Set Dock To Top"
Me.btnSetTop.UseVisualStyleBackColor = True
'
'btnTake
'
Me.btnTake.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTake.Location = New System.Drawing.Point(16, 363)
Me.btnTake.Name = "btnTake"
Me.btnTake.Size = New System.Drawing.Size(235, 75)
Me.btnTake.TabIndex = 45
Me.btnTake.Text = "Top -5"
Me.btnTake.UseVisualStyleBackColor = True
'
'btnPlus
'
Me.btnPlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPlus.Location = New System.Drawing.Point(17, 201)
Me.btnPlus.Name = "btnPlus"
Me.btnPlus.Size = New System.Drawing.Size(235, 75)
Me.btnPlus.TabIndex = 44
Me.btnPlus.Text = "Top + 5"
Me.btnPlus.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(13, 177)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(244, 18)
Me.Label2.TabIndex = 43
Me.Label2.Text = "Dock Location (Does not save)"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 60)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 18)
Me.Label1.TabIndex = 42
Me.Label1.Text = "Tiles"
'
'btnAdd
'
Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAdd.Location = New System.Drawing.Point(17, 123)
Me.btnAdd.Name = "btnAdd"
Me.btnAdd.Size = New System.Drawing.Size(234, 51)
Me.btnAdd.TabIndex = 41
Me.btnAdd.Text = "Add a tile"
Me.btnAdd.UseVisualStyleBackColor = True
'
'pnlPrograms
'
Me.pnlPrograms.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.pnlPrograms.Controls.Add(Me.lblShiftNet)
Me.pnlPrograms.Controls.Add(Me.lblIconManager)
Me.pnlPrograms.Controls.Add(Me.lblWebBrowser)
Me.pnlPrograms.Controls.Add(Me.lblVirusScanner)
Me.pnlPrograms.Controls.Add(Me.lblVideoPlayer)
Me.pnlPrograms.Controls.Add(Me.lblTextPad)
Me.pnlPrograms.Controls.Add(Me.lblTerminal)
Me.pnlPrograms.Controls.Add(Me.lblShiftorium)
Me.pnlPrograms.Controls.Add(Me.lblShifter)
Me.pnlPrograms.Controls.Add(Me.lblPong)
Me.pnlPrograms.Controls.Add(Me.lblOrcWrite)
Me.pnlPrograms.Controls.Add(Me.lblNameChanger)
Me.pnlPrograms.Controls.Add(Me.lblLabyrinth)
Me.pnlPrograms.Controls.Add(Me.lblKnowledgeInput)
Me.pnlPrograms.Controls.Add(Me.lblInstaller)
Me.pnlPrograms.Controls.Add(Me.lblSnakey)
Me.pnlPrograms.Controls.Add(Me.lblFloodGateManager)
Me.pnlPrograms.Controls.Add(Me.lblFileSkimmer)
Me.pnlPrograms.Controls.Add(Me.lblDManager)
Me.pnlPrograms.Controls.Add(Me.lblDownloader)
Me.pnlPrograms.Controls.Add(Me.lblDodge)
Me.pnlPrograms.Controls.Add(Me.lblClock)
Me.pnlPrograms.Controls.Add(Me.lblCatlyst)
Me.pnlPrograms.Controls.Add(Me.lblCalc)
Me.pnlPrograms.Controls.Add(Me.lblBitNoteWallet)
Me.pnlPrograms.Controls.Add(Me.lblBitNoteDigger)
Me.pnlPrograms.Controls.Add(Me.lblAudioPlayer)
Me.pnlPrograms.Controls.Add(Me.lblArtpad)
Me.pnlPrograms.Location = New System.Drawing.Point(30, 117)
Me.pnlPrograms.Name = "pnlPrograms"
Me.pnlPrograms.Size = New System.Drawing.Size(172, 521)
Me.pnlPrograms.TabIndex = 51
Me.pnlPrograms.Visible = False
'
'lblShiftNet
'
Me.lblShiftNet.AutoSize = True
Me.lblShiftNet.BackColor = System.Drawing.Color.Transparent
Me.lblShiftNet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblShiftNet.Location = New System.Drawing.Point(6, 366)
Me.lblShiftNet.Name = "lblShiftNet"
Me.lblShiftNet.Size = New System.Drawing.Size(68, 18)
Me.lblShiftNet.TabIndex = 80
Me.lblShiftNet.Text = "ShiftNet"
'
'lblIconManager
'
Me.lblIconManager.AutoSize = True
Me.lblIconManager.BackColor = System.Drawing.Color.Transparent
Me.lblIconManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblIconManager.Location = New System.Drawing.Point(6, 221)
Me.lblIconManager.Name = "lblIconManager"
Me.lblIconManager.Size = New System.Drawing.Size(110, 18)
Me.lblIconManager.TabIndex = 79
Me.lblIconManager.Text = "Icon Manager"
'
'lblWebBrowser
'
Me.lblWebBrowser.AutoSize = True
Me.lblWebBrowser.BackColor = System.Drawing.Color.Transparent
Me.lblWebBrowser.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblWebBrowser.Location = New System.Drawing.Point(6, 492)
Me.lblWebBrowser.Name = "lblWebBrowser"
Me.lblWebBrowser.Size = New System.Drawing.Size(105, 18)
Me.lblWebBrowser.TabIndex = 78
Me.lblWebBrowser.Text = "WebBrowser"
'
'lblVirusScanner
'
Me.lblVirusScanner.AutoSize = True
Me.lblVirusScanner.BackColor = System.Drawing.Color.Transparent
Me.lblVirusScanner.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVirusScanner.Location = New System.Drawing.Point(6, 474)
Me.lblVirusScanner.Name = "lblVirusScanner"
Me.lblVirusScanner.Size = New System.Drawing.Size(108, 18)
Me.lblVirusScanner.TabIndex = 77
Me.lblVirusScanner.Text = "VirusScanner"
'
'lblVideoPlayer
'
Me.lblVideoPlayer.AutoSize = True
Me.lblVideoPlayer.BackColor = System.Drawing.Color.Transparent
Me.lblVideoPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVideoPlayer.Location = New System.Drawing.Point(6, 456)
Me.lblVideoPlayer.Name = "lblVideoPlayer"
Me.lblVideoPlayer.Size = New System.Drawing.Size(102, 18)
Me.lblVideoPlayer.TabIndex = 76
Me.lblVideoPlayer.Text = "Video Player"
'
'lblTextPad
'
Me.lblTextPad.AutoSize = True
Me.lblTextPad.BackColor = System.Drawing.Color.Transparent
Me.lblTextPad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTextPad.Location = New System.Drawing.Point(6, 438)
Me.lblTextPad.Name = "lblTextPad"
Me.lblTextPad.Size = New System.Drawing.Size(69, 18)
Me.lblTextPad.TabIndex = 75
Me.lblTextPad.Text = "TextPad"
'
'lblTerminal
'
Me.lblTerminal.AutoSize = True
Me.lblTerminal.BackColor = System.Drawing.Color.Transparent
Me.lblTerminal.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTerminal.Location = New System.Drawing.Point(6, 420)
Me.lblTerminal.Name = "lblTerminal"
Me.lblTerminal.Size = New System.Drawing.Size(73, 18)
Me.lblTerminal.TabIndex = 74
Me.lblTerminal.Text = "Terminal"
'
'lblShiftorium
'
Me.lblShiftorium.AutoSize = True
Me.lblShiftorium.BackColor = System.Drawing.Color.Transparent
Me.lblShiftorium.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblShiftorium.Location = New System.Drawing.Point(6, 384)
Me.lblShiftorium.Name = "lblShiftorium"
Me.lblShiftorium.Size = New System.Drawing.Size(85, 18)
Me.lblShiftorium.TabIndex = 72
Me.lblShiftorium.Text = "Shiftorium"
'
'lblShifter
'
Me.lblShifter.AutoSize = True
Me.lblShifter.BackColor = System.Drawing.Color.Transparent
Me.lblShifter.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblShifter.Location = New System.Drawing.Point(5, 348)
Me.lblShifter.Name = "lblShifter"
Me.lblShifter.Size = New System.Drawing.Size(57, 18)
Me.lblShifter.TabIndex = 71
Me.lblShifter.Text = "Shifter"
'
'lblPong
'
Me.lblPong.AutoSize = True
Me.lblPong.BackColor = System.Drawing.Color.Transparent
Me.lblPong.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPong.Location = New System.Drawing.Point(6, 330)
Me.lblPong.Name = "lblPong"
Me.lblPong.Size = New System.Drawing.Size(47, 18)
Me.lblPong.TabIndex = 70
Me.lblPong.Text = "Pong"
'
'lblOrcWrite
'
Me.lblOrcWrite.AutoSize = True
Me.lblOrcWrite.BackColor = System.Drawing.Color.Transparent
Me.lblOrcWrite.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOrcWrite.Location = New System.Drawing.Point(6, 312)
Me.lblOrcWrite.Name = "lblOrcWrite"
Me.lblOrcWrite.Size = New System.Drawing.Size(76, 18)
Me.lblOrcWrite.TabIndex = 69
Me.lblOrcWrite.Text = "OrcWrite"
'
'lblNameChanger
'
Me.lblNameChanger.AutoSize = True
Me.lblNameChanger.BackColor = System.Drawing.Color.Transparent
Me.lblNameChanger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNameChanger.Location = New System.Drawing.Point(5, 294)
Me.lblNameChanger.Name = "lblNameChanger"
Me.lblNameChanger.Size = New System.Drawing.Size(120, 18)
Me.lblNameChanger.TabIndex = 68
Me.lblNameChanger.Text = "Name Changer"
'
'lblLabyrinth
'
Me.lblLabyrinth.AutoSize = True
Me.lblLabyrinth.BackColor = System.Drawing.Color.Transparent
Me.lblLabyrinth.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLabyrinth.Location = New System.Drawing.Point(5, 276)
Me.lblLabyrinth.Name = "lblLabyrinth"
Me.lblLabyrinth.Size = New System.Drawing.Size(76, 18)
Me.lblLabyrinth.TabIndex = 67
Me.lblLabyrinth.Text = "Labyrinth"
'
'lblKnowledgeInput
'
Me.lblKnowledgeInput.AutoSize = True
Me.lblKnowledgeInput.BackColor = System.Drawing.Color.Transparent
Me.lblKnowledgeInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKnowledgeInput.Location = New System.Drawing.Point(5, 258)
Me.lblKnowledgeInput.Name = "lblKnowledgeInput"
Me.lblKnowledgeInput.Size = New System.Drawing.Size(131, 18)
Me.lblKnowledgeInput.TabIndex = 66
Me.lblKnowledgeInput.Text = "Knowledge Input"
'
'lblInstaller
'
Me.lblInstaller.AutoSize = True
Me.lblInstaller.BackColor = System.Drawing.Color.Transparent
Me.lblInstaller.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblInstaller.Location = New System.Drawing.Point(5, 240)
Me.lblInstaller.Name = "lblInstaller"
Me.lblInstaller.Size = New System.Drawing.Size(67, 18)
Me.lblInstaller.TabIndex = 65
Me.lblInstaller.Text = "Installer"
'
'lblSnakey
'
Me.lblSnakey.AutoSize = True
Me.lblSnakey.BackColor = System.Drawing.Color.Transparent
Me.lblSnakey.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSnakey.Location = New System.Drawing.Point(6, 402)
Me.lblSnakey.Name = "lblSnakey"
Me.lblSnakey.Size = New System.Drawing.Size(63, 18)
Me.lblSnakey.TabIndex = 64
Me.lblSnakey.Text = "Snakey"
'
'lblFloodGateManager
'
Me.lblFloodGateManager.AutoSize = True
Me.lblFloodGateManager.BackColor = System.Drawing.Color.Transparent
Me.lblFloodGateManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFloodGateManager.Location = New System.Drawing.Point(5, 203)
Me.lblFloodGateManager.Name = "lblFloodGateManager"
Me.lblFloodGateManager.Size = New System.Drawing.Size(157, 18)
Me.lblFloodGateManager.TabIndex = 63
Me.lblFloodGateManager.Text = "FloodGate Manager"
'
'lblFileSkimmer
'
Me.lblFileSkimmer.AutoSize = True
Me.lblFileSkimmer.BackColor = System.Drawing.Color.Transparent
Me.lblFileSkimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFileSkimmer.Location = New System.Drawing.Point(5, 185)
Me.lblFileSkimmer.Name = "lblFileSkimmer"
Me.lblFileSkimmer.Size = New System.Drawing.Size(107, 18)
Me.lblFileSkimmer.TabIndex = 62
Me.lblFileSkimmer.Text = "File Skimmer"
'
'lblDManager
'
Me.lblDManager.AutoSize = True
Me.lblDManager.BackColor = System.Drawing.Color.Transparent
Me.lblDManager.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDManager.Location = New System.Drawing.Point(5, 167)
Me.lblDManager.Name = "lblDManager"
Me.lblDManager.Size = New System.Drawing.Size(148, 18)
Me.lblDManager.TabIndex = 61
Me.lblDManager.Text = "DownloadManager"
'
'lblDownloader
'
Me.lblDownloader.AutoSize = True
Me.lblDownloader.BackColor = System.Drawing.Color.Transparent
Me.lblDownloader.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDownloader.Location = New System.Drawing.Point(5, 149)
Me.lblDownloader.Name = "lblDownloader"
Me.lblDownloader.Size = New System.Drawing.Size(98, 18)
Me.lblDownloader.TabIndex = 60
Me.lblDownloader.Text = "Downloader"
'
'lblDodge
'
Me.lblDodge.AutoSize = True
Me.lblDodge.BackColor = System.Drawing.Color.Transparent
Me.lblDodge.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDodge.Location = New System.Drawing.Point(5, 131)
Me.lblDodge.Name = "lblDodge"
Me.lblDodge.Size = New System.Drawing.Size(57, 18)
Me.lblDodge.TabIndex = 59
Me.lblDodge.Text = "Dodge"
'
'lblClock
'
Me.lblClock.AutoSize = True
Me.lblClock.BackColor = System.Drawing.Color.Transparent
Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblClock.Location = New System.Drawing.Point(5, 113)
Me.lblClock.Name = "lblClock"
Me.lblClock.Size = New System.Drawing.Size(52, 18)
Me.lblClock.TabIndex = 58
Me.lblClock.Text = "Clock"
'
'lblCatlyst
'
Me.lblCatlyst.AutoSize = True
Me.lblCatlyst.BackColor = System.Drawing.Color.Transparent
Me.lblCatlyst.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCatlyst.Location = New System.Drawing.Point(5, 95)
Me.lblCatlyst.Name = "lblCatlyst"
Me.lblCatlyst.Size = New System.Drawing.Size(60, 18)
Me.lblCatlyst.TabIndex = 57
Me.lblCatlyst.Text = "Catlyst"
'
'lblCalc
'
Me.lblCalc.AutoSize = True
Me.lblCalc.BackColor = System.Drawing.Color.Transparent
Me.lblCalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCalc.Location = New System.Drawing.Point(5, 77)
Me.lblCalc.Name = "lblCalc"
Me.lblCalc.Size = New System.Drawing.Size(85, 18)
Me.lblCalc.TabIndex = 56
Me.lblCalc.Text = "Calculator"
'
'lblBitNoteWallet
'
Me.lblBitNoteWallet.AutoSize = True
Me.lblBitNoteWallet.BackColor = System.Drawing.Color.Transparent
Me.lblBitNoteWallet.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBitNoteWallet.Location = New System.Drawing.Point(5, 60)
Me.lblBitNoteWallet.Name = "lblBitNoteWallet"
Me.lblBitNoteWallet.Size = New System.Drawing.Size(121, 18)
Me.lblBitNoteWallet.TabIndex = 55
Me.lblBitNoteWallet.Text = "Bit Note Wallet"
'
'lblBitNoteDigger
'
Me.lblBitNoteDigger.AutoSize = True
Me.lblBitNoteDigger.BackColor = System.Drawing.Color.Transparent
Me.lblBitNoteDigger.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBitNoteDigger.Location = New System.Drawing.Point(5, 42)
Me.lblBitNoteDigger.Name = "lblBitNoteDigger"
Me.lblBitNoteDigger.Size = New System.Drawing.Size(123, 18)
Me.lblBitNoteDigger.TabIndex = 54
Me.lblBitNoteDigger.Text = "Bit Note Digger"
'
'lblAudioPlayer
'
Me.lblAudioPlayer.AutoSize = True
Me.lblAudioPlayer.BackColor = System.Drawing.Color.Transparent
Me.lblAudioPlayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAudioPlayer.Location = New System.Drawing.Point(5, 24)
Me.lblAudioPlayer.Name = "lblAudioPlayer"
Me.lblAudioPlayer.Size = New System.Drawing.Size(102, 18)
Me.lblAudioPlayer.TabIndex = 53
Me.lblAudioPlayer.Text = "Audio Player"
'
'lblArtpad
'
Me.lblArtpad.AutoSize = True
Me.lblArtpad.BackColor = System.Drawing.Color.Transparent
Me.lblArtpad.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblArtpad.Location = New System.Drawing.Point(5, 6)
Me.lblArtpad.Name = "lblArtpad"
Me.lblArtpad.Size = New System.Drawing.Size(58, 18)
Me.lblArtpad.TabIndex = 52
Me.lblArtpad.Text = "ArtPad"
'
'lblToTile
'
Me.lblToTile.AutoSize = True
Me.lblToTile.BackColor = System.Drawing.Color.Transparent
Me.lblToTile.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblToTile.Location = New System.Drawing.Point(138, 78)
Me.lblToTile.Name = "lblToTile"
Me.lblToTile.Size = New System.Drawing.Size(44, 18)
Me.lblToTile.TabIndex = 52
Me.lblToTile.Text = "Tiles"
'
'Udate
'
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(15, 78)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(117, 18)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Make Tile For:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent
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(51, 37)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(165, 18)
Me.Label5.TabIndex = 54
Me.Label5.Text = "NOT FINAL DESIGN!"
'
'DockSettingsMenu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(267, 709)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.lblToTile)
Me.Controls.Add(Me.pnlPrograms)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnQuitDock)
Me.Controls.Add(Me.btnQuitSet)
Me.Controls.Add(Me.btnSetBottom)
Me.Controls.Add(Me.btnSetTop)
Me.Controls.Add(Me.btnTake)
Me.Controls.Add(Me.btnPlus)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnAdd)
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 = "DockSettingsMenu"
Me.Text = "template"
Me.TopMost = True
Me.pgleft.ResumeLayout(False)
Me.pgright.ResumeLayout(False)
Me.titlebar.ResumeLayout(False)
Me.titlebar.PerformLayout()
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlPrograms.ResumeLayout(False)
Me.pnlPrograms.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
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 pgtoplcorner As System.Windows.Forms.Panel
Friend WithEvents pgtoprcorner As System.Windows.Forms.Panel
Friend WithEvents pgbottom 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
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 tilecolor As System.Windows.Forms.ColorDialog
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents btnQuitDock As System.Windows.Forms.Button
Friend WithEvents btnQuitSet As System.Windows.Forms.Button
Friend WithEvents btnSetBottom As System.Windows.Forms.Button
Friend WithEvents btnSetTop As System.Windows.Forms.Button
Friend WithEvents btnTake As System.Windows.Forms.Button
Friend WithEvents btnPlus As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnAdd As System.Windows.Forms.Button
Friend WithEvents pnlPrograms As System.Windows.Forms.Panel
Friend WithEvents lblSnakey As System.Windows.Forms.Label
Friend WithEvents lblFloodGateManager As System.Windows.Forms.Label
Friend WithEvents lblFileSkimmer As System.Windows.Forms.Label
Friend WithEvents lblDManager As System.Windows.Forms.Label
Friend WithEvents lblDownloader As System.Windows.Forms.Label
Friend WithEvents lblDodge As System.Windows.Forms.Label
Friend WithEvents lblClock As System.Windows.Forms.Label
Friend WithEvents lblCatlyst As System.Windows.Forms.Label
Friend WithEvents lblCalc As System.Windows.Forms.Label
Friend WithEvents lblBitNoteWallet As System.Windows.Forms.Label
Friend WithEvents lblBitNoteDigger As System.Windows.Forms.Label
Friend WithEvents lblAudioPlayer As System.Windows.Forms.Label
Friend WithEvents lblArtpad As System.Windows.Forms.Label
Friend WithEvents lblOrcWrite As System.Windows.Forms.Label
Friend WithEvents lblNameChanger As System.Windows.Forms.Label
Friend WithEvents lblLabyrinth As System.Windows.Forms.Label
Friend WithEvents lblKnowledgeInput As System.Windows.Forms.Label
Friend WithEvents lblInstaller As System.Windows.Forms.Label
Friend WithEvents lblShiftorium As System.Windows.Forms.Label
Friend WithEvents lblShifter As System.Windows.Forms.Label
Friend WithEvents lblPong As System.Windows.Forms.Label
Friend WithEvents lblIconManager As System.Windows.Forms.Label
Friend WithEvents lblWebBrowser As System.Windows.Forms.Label
Friend WithEvents lblVirusScanner As System.Windows.Forms.Label
Friend WithEvents lblVideoPlayer As System.Windows.Forms.Label
Friend WithEvents lblTextPad As System.Windows.Forms.Label
Friend WithEvents lblTerminal As System.Windows.Forms.Label
Friend WithEvents lblToTile As System.Windows.Forms.Label
Friend WithEvents Udate As System.Windows.Forms.Timer
Friend WithEvents lblShiftNet As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
End Class

135
ShiftOS/DockSettingsMenu.resx
View file

@ -1,135 +0,0 @@
<?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="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1056, 18</value>
</metadata>
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1140, 18</value>
</metadata>
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1253, 18</value>
</metadata>
<metadata name="tilecolor.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1347, 18</value>
</metadata>
<metadata name="Udate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 57</value>
</metadata>
</root>

608
ShiftOS/DockSettingsMenu.vb
View file

@ -1,608 +0,0 @@
Public Class DockSettingsMenu
#Region "Template Code"
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 = 100 'replace with minimum size
Public minimumsizeheight As Integer = 654
Private Sub DockSettingsMenu_Click(sender As Object, e As EventArgs) Handles Me.Click
pnlPrograms.Hide()
End Sub 'replace with minimum size
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Udate.Start()
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
Me.Height = 700
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(420, 510) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Dim totile As String
Private Sub lblArtpad_Click(sender As Object, e As EventArgs) Handles lblArtpad.Click
pnlPrograms.Hide()
totile = lblArtpad.Text
End Sub
Private Sub lblAudioPlayer_Click(sender As Object, e As EventArgs) Handles lblAudioPlayer.Click
pnlPrograms.Hide()
totile = lblAudioPlayer.Text
End Sub
Private Sub lblBitNoteDigger_Click(sender As Object, e As EventArgs) Handles lblBitNoteDigger.Click
pnlPrograms.Hide()
totile = lblBitNoteDigger.Text
End Sub
Private Sub lblBitNoteWallet_Click(sender As Object, e As EventArgs) Handles lblBitNoteWallet.Click
pnlPrograms.Hide()
totile = lblBitNoteWallet.Text
End Sub
Private Sub lblCalc_Click(sender As Object, e As EventArgs) Handles lblCalc.Click
pnlPrograms.Hide()
totile = lblCalc.Text
End Sub
Private Sub lblCatlyst_Click(sender As Object, e As EventArgs) Handles lblCatlyst.Click
pnlPrograms.Hide()
totile = lblCatlyst.Text
End Sub
Private Sub lblClock_Click(sender As Object, e As EventArgs) Handles lblClock.Click
pnlPrograms.Hide()
totile = lblClock.Text
End Sub
Private Sub lblDodge_Click(sender As Object, e As EventArgs) Handles lblDodge.Click
pnlPrograms.Hide()
totile = lblDodge.Text
End Sub
Private Sub lblDownloader_Click(sender As Object, e As EventArgs) Handles lblDownloader.Click
pnlPrograms.Hide()
totile = lblDownloader.Text
End Sub
Private Sub lblDManager_Click(sender As Object, e As EventArgs) Handles lblDManager.Click
pnlPrograms.Hide()
totile = lblDManager.Text
End Sub
Private Sub lblFileSkimmer_Click(sender As Object, e As EventArgs) Handles lblFileSkimmer.Click
pnlPrograms.Hide()
totile = lblFileSkimmer.Text
End Sub
Private Sub lblFloodGateManager_Click(sender As Object, e As EventArgs) Handles lblFloodGateManager.Click
pnlPrograms.Hide()
totile = lblFloodGateManager.Text
End Sub
Private Sub lblIconManager_Click(sender As Object, e As EventArgs) Handles lblIconManager.Click
pnlPrograms.Hide()
totile = lblIconManager.Text
End Sub
Private Sub lblInstaller_Click(sender As Object, e As EventArgs) Handles lblInstaller.Click
pnlPrograms.Hide()
totile = lblInstaller.Text
End Sub
Private Sub lblKnowledgeInput_Click(sender As Object, e As EventArgs) Handles lblKnowledgeInput.Click
pnlPrograms.Hide()
totile = lblKnowledgeInput.Text
End Sub
Private Sub lblLabyrinth_Click(sender As Object, e As EventArgs) Handles lblLabyrinth.Click
pnlPrograms.Hide()
totile = lblLabyrinth.Text
End Sub
Private Sub lblNameChanger_Click(sender As Object, e As EventArgs) Handles lblNameChanger.Click
pnlPrograms.Hide()
totile = lblNameChanger.Text
End Sub
Private Sub lblOrcWrite_Click(sender As Object, e As EventArgs) Handles lblOrcWrite.Click
pnlPrograms.Hide()
totile = lblOrcWrite.Text
End Sub
Private Sub lblPong_Click(sender As Object, e As EventArgs) Handles lblPong.Click
pnlPrograms.Hide()
totile = lblPong.Text
End Sub
Private Sub lblShifter_Click(sender As Object, e As EventArgs) Handles lblShifter.Click
pnlPrograms.Hide()
totile = lblShifter.Text
End Sub
Private Sub lblShiftorium_Click(sender As Object, e As EventArgs) Handles lblShiftorium.Click
pnlPrograms.Hide()
totile = lblShiftorium.Text
End Sub
Private Sub lblSnakey_Click(sender As Object, e As EventArgs) Handles lblSnakey.Click
pnlPrograms.Hide()
totile = lblSnakey.Text
End Sub
Private Sub lblTerminal_Click(sender As Object, e As EventArgs) Handles lblTerminal.Click
pnlPrograms.Hide()
totile = lblTerminal.Text
End Sub
Private Sub lblTextPad_Click(sender As Object, e As EventArgs) Handles lblTextPad.Click
pnlPrograms.Hide()
totile = lblTextPad.Text
End Sub
Private Sub lblVideoPlayer_Click(sender As Object, e As EventArgs) Handles lblVideoPlayer.Click
pnlPrograms.Hide()
totile = lblVideoPlayer.Text
End Sub
Private Sub lblVirusScanner_Click(sender As Object, e As EventArgs) Handles lblVirusScanner.Click
pnlPrograms.Hide()
totile = lblVirusScanner.Text
End Sub
Private Sub lblWebBrowser_Click(sender As Object, e As EventArgs) Handles lblWebBrowser.Click
pnlPrograms.Hide()
totile = lblVirusScanner.Text
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
If Not totile = "" Then
pnlPrograms.Hide()
tilecolor.ShowDialog()
DockWindow.createtile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", ""))
DockWindow.loadevents.writeFile(totile, tilecolor.Color.ToString.Replace("Color", "").Replace("[", "").Replace("]", ""))
End If
End Sub
Private Sub Udate_Tick(sender As Object, e As EventArgs) Handles Udate.Tick
lblToTile.Text = totile
End Sub
Private Sub lblShiftNet_Click(sender As Object, e As EventArgs) Handles lblShiftNet.Click
pnlPrograms.Hide()
totile = lblShiftNet.Text
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
pnlPrograms.Show()
End Sub
Private Sub btnPlus_Click_1(sender As Object, e As EventArgs) Handles btnPlus.Click
DockWindow.Top = DockWindow.Top + 5
DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot)
End Sub
Private Sub btnSetTop_Click_1(sender As Object, e As EventArgs) Handles btnSetTop.Click
DockWindow.Top = -30
DockWindow.picBoarder.Top = 31
DockWindow.picBoarder.BringToFront()
DockWindow.loadevents.writeConfFile(DockWindow.Top, "Top")
DockWindow.docktopbot = "Top"
End Sub
Private Sub btnTake_Click_1(sender As Object, e As EventArgs) Handles btnTake.Click
DockWindow.Top = DockWindow.Top - 5
DockWindow.loadevents.writeConfFile(DockWindow.Top, DockWindow.docktopbot)
End Sub
Private Sub btnSetBottom_Click_1(sender As Object, e As EventArgs) Handles btnSetBottom.Click
DockWindow.Top = DockWindow.screenHeight - DockWindow.Height - 42
DockWindow.picBoarder.Top = 96
DockWindow.picBoarder.BringToFront()
DockWindow.loadevents.writeConfFile(DockWindow.Top, "Bottom")
DockWindow.docktopbot = "Bottom"
End Sub
Private Sub btnQuitSet_Click_1(sender As Object, e As EventArgs) Handles btnQuitSet.Click
Me.Close()
End Sub
Private Sub btnQuitDock_Click_1(sender As Object, e As EventArgs) Handles btnQuitDock.Click
Me.Close()
DockWindow.Close()
End Sub
End Class

69
ShiftOS/DockWindow.Designer.vb generated
View file

@ -1,69 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DockWindow
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.pnlTiles = New System.Windows.Forms.Panel()
Me.picBoarder = New System.Windows.Forms.PictureBox()
CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlTiles
'
Me.pnlTiles.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlTiles.BackColor = System.Drawing.Color.Transparent
Me.pnlTiles.Location = New System.Drawing.Point(-1, 0)
Me.pnlTiles.Name = "pnlTiles"
Me.pnlTiles.Size = New System.Drawing.Size(125, 112)
Me.pnlTiles.TabIndex = 3
'
'picBoarder
'
Me.picBoarder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.picBoarder.BackColor = System.Drawing.Color.Gray
Me.picBoarder.Location = New System.Drawing.Point(-1, 107)
Me.picBoarder.Name = "picBoarder"
Me.picBoarder.Size = New System.Drawing.Size(125, 21)
Me.picBoarder.TabIndex = 2
Me.picBoarder.TabStop = False
'
'DockWindow
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(124, 149)
Me.Controls.Add(Me.pnlTiles)
Me.Controls.Add(Me.picBoarder)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "DockWindow"
Me.Text = "Dock"
Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer))
CType(Me.picBoarder, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnlTiles As System.Windows.Forms.Panel
Friend WithEvents picBoarder As System.Windows.Forms.PictureBox
End Class

120
ShiftOS/DockWindow.resx
View file

@ -1,120 +0,0 @@
<?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>

302
ShiftOS/DockWindow.vb
View file

@ -1,302 +0,0 @@
Public Class DockWindow
Public screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
Public screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
Dim toleft As Integer = 30
Dim tileprogram(100) As String
Dim currenttile As String = 0
Public loadevents As New DockEngine
Public docktopbot As String = "Bottom"
Public firststart As Boolean
Public Sub colours()
'Dim img As New Bitmap(picBackColor.Width, picBackColor.Height)
'Dim brush As New Drawing.Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(img.Width, img.Height), SystemColors.Window, SystemColors.ControlLight)
' Dim gr As Graphics = Graphics.FromImage(img)
'gr.FillRectangle(brush, New RectangleF(0, 0, img.Width, img.Height))
'picBackColor.BackgroundImage = img
End Sub
Private Sub Dock_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TopMost = True
Me.ShowInTaskbar = False
toleft = toleft + 40
Dim tile As New PictureBox
tile.BackColor = Color.Silver
tile.Height = 40
tile.Width = 40
tile.Top = 54
tile.Left = toleft
'tile.Image = My.Resources.settings
tile.SizeMode = PictureBoxSizeMode.Zoom
tile.Name = currenttile
toleft = toleft + 45
tile.BringToFront()
'picBackColor.SendToBack()
tile.SizeMode = PictureBoxSizeMode.CenterImage
Me.Width = Me.Width + tile.Width + 5
Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
pnlTiles.Controls.Add(tile)
currenttile = currenttile + 1
AddHandler tile.Click, AddressOf tilesets_click
AddHandler tile.MouseHover, AddressOf tile_hover
AddHandler tile.MouseLeave, AddressOf tile_leave
colours()
loadevents.readFile(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat")
loadevents.readConfFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
loadevents.writeConfFile(Me.Top, docktopbot)
Me.Top = loadevents.docktop
docktopbot = loadevents.topbottom
If firststart = True Then
docktopbot = "Bottom"
Me.Top = screenHeight - Me.Height + 25
End If
If docktopbot = "Bottom" Then
'Me.Top = screenHeight - Me.Height - 42
Me.picBoarder.Top = 96
Me.picBoarder.BringToFront()
loadevents.writeConfFile(Me.Top, "Bottom")
Else
Me.picBoarder.Top = 31
Me.picBoarder.BringToFront()
loadevents.writeConfFile(Me.Top, "Top")
End If
Me.TopMost = True
'tmr_faid.Start()
End Sub
Public Sub createtile(ByVal openPath As String, backcolor As String)
Dim tile As New PictureBox
If backcolor.Contains("A=") Then
Dim newcolor() As String
newcolor = backcolor.Split(",")
tile.BackColor = Color.FromArgb(newcolor(0).Replace("A=", "").Replace(" ", ""), newcolor(1).Replace("R=", "").Replace(" ", ""), newcolor(2).Replace("G=", "").Replace(" ", ""), newcolor(3).Replace("B=", "").Replace(" ", ""))
Else
Try
tile.BackColor = Color.FromName(backcolor.Replace(" ", ""))
Catch
Try
tile.BackColor = Color.FromKnownColor(backcolor)
Catch
tile.BackColor = Color.Red
End Try
End Try
End If
tile.Height = 40
tile.Width = 40
tile.Top = 54
tile.Left = toleft
If openPath = "ArtPad" Then
tile.Image = ShiftOSDesktop.artpadiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Audio Player" Then
tile.Image = ShiftOSDesktop.audioplayericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Bit Note Digger" Then
tile.Image = ShiftOSDesktop.bitnotediggericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Bit Note Wallet" Then
tile.Image = ShiftOSDesktop.bitnotewalleticonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Calculator" Then
tile.Image = ShiftOSDesktop.calculatoriconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Catlyst" Then
tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Clock" Then
tile.Image = ShiftOSDesktop.clockiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Dodge" Then
tile.Image = ShiftOSDesktop.dodgeiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Downloader" Then
tile.Image = ShiftOSDesktop.downloadericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Downloader Manager" Then
tile.Image = ShiftOSDesktop.downloadmanagericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "File Skimmer" Then
tile.Image = ShiftOSDesktop.fileskimmericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "FloodGate Manager" Then
tile.Image = ShiftOSDesktop.floodgateiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Icon Manager" Then
tile.Image = ShiftOSDesktop.iconmanagericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Installer" Then
tile.Image = ShiftOSDesktop.installericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Knowledge Input" Then
tile.Image = ShiftOSDesktop.knowledgeinputiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Labyrinth" Then
tile.Image = ShiftOSDesktop.calculatoriconlauncher 'needs new icon
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Name Changer" Then
tile.Image = ShiftOSDesktop.namechangericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "OrcWrite" Then
tile.Image = ShiftOSDesktop.orcwriteiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Pong" Then
tile.Image = ShiftOSDesktop.pongiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Shifter" Then
tile.Image = ShiftOSDesktop.shiftericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Shiftorium" Then
tile.Image = ShiftOSDesktop.shiftoriumiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Snakey" Then
tile.Image = ShiftOSDesktop.snakeyiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Terminal" Then
tile.Image = ShiftOSDesktop.terminaliconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "TextPad" Then
tile.Image = ShiftOSDesktop.textpadiconlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "Video Player" Then
tile.Image = ShiftOSDesktop.videoplayericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "VirusScanner" Then
tile.Image = ShiftOSDesktop.virusscannericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "WebBrowser" Then
tile.Image = ShiftOSDesktop.webbrowsericonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf openPath = "ShiftNet" Then
tile.Image = ShiftOSDesktop.shiftneticonlauncher
tile.SizeMode = PictureBoxSizeMode.StretchImage
End If
tile.Name = currenttile
tileprogram(currenttile) = openPath
toleft = toleft + 45
tile.BringToFront()
'picBackColor.SendToBack()
tile.SizeMode = PictureBoxSizeMode.CenterImage
Me.Width = Me.Width + tile.Width + 5
Me.Left = (My.Computer.Screen.WorkingArea.Width \ 2) - (Me.Width \ 2)
pnlTiles.Controls.Add(tile)
currenttile = currenttile + 1
AddHandler tile.Click, AddressOf tile_click
AddHandler tile.MouseHover, AddressOf tile_hover
AddHandler tile.MouseLeave, AddressOf tile_leave
End Sub
'Private Sub btnAddIcon_Click(sender As Object, e As EventArgs) Handles btnAddIcon.Click
' createtile(txtURL.Text)
'colours()
' End Sub
Private Sub tile_click(sender As Object, e As EventArgs)
Dim tle As PictureBox = DirectCast(sender, PictureBox)
Dim open As String = tle.Name
If tileprogram(open) = "ArtPad" Then
ArtPad.Show()
ElseIf tileprogram(open) = "Audio Player" Then
Audio_Player.Show()
ElseIf tileprogram(open) = "Bit Note Digger" Then
Bitnote_Digger.Show()
ElseIf tileprogram(open) = "Bit Note Wallet" Then
Bitnote_Wallet.Show()
ElseIf tileprogram(open) = "Calculator" Then
Calculator.Show()
ElseIf tileprogram(open) = "Catlyst" Then
Catalyst_Main.Show()
ElseIf tileprogram(open) = "Clock" Then
Clock.Show()
ElseIf tileprogram(open) = "Dodge" Then
Dodge.Show()
ElseIf tileprogram(open) = "Downloader" Then
Downloader.Show()
ElseIf tileprogram(open) = "Downloader Manager" Then
Downloadmanager.Show()
ElseIf tileprogram(open) = "File Skimmer" Then
File_Skimmer.Show()
ElseIf tileprogram(open) = "FloodGate Manager" Then
FloodGate_Manager.Show()
ElseIf tileprogram(open) = "Icon Manager" Then
Icon_Manager.Show()
ElseIf tileprogram(open) = "Installer" Then
Installer.Show()
ElseIf tileprogram(open) = "Knowledge Input" Then
Knowledge_Input.Show()
ElseIf tileprogram(open) = "Labyrinth" Then
Labyrinth.Show()
ElseIf tileprogram(open) = "Name Changer" Then
Name_Changer.Show()
ElseIf tileprogram(open) = "OrcWrite" Then
OrcWrite.Show()
ElseIf tileprogram(open) = "Pong" Then
Pong.Show()
ElseIf tileprogram(open) = "Shifter" Then
Shifter.Show()
ElseIf tileprogram(open) = "Shiftorium" Then
Shiftorium.Show()
ElseIf tileprogram(open) = "Snakey" Then
Snakey.Show()
ElseIf tileprogram(open) = "Terminal" Then
Terminal.Show()
ElseIf tileprogram(open) = "TextPad" Then
TextPad.Show()
ElseIf tileprogram(open) = "Video Pad" Then
Video_Player.Show()
ElseIf tileprogram(open) = "VirusScanner" Then
VirusScanner.Show()
ElseIf tileprogram(open) = "WebBrowser" Then
Web_Browser.Show()
ElseIf tileprogram(open) = "ShiftNet" Then
Shiftnet.Show()
End If
End Sub
Dim dtop As Integer
Private Sub tile_hover(sender As Object, e As EventArgs)
Dim tle As PictureBox = DirectCast(sender, PictureBox)
If docktopbot = "Bottom" Then
Dim open As String = tle.Name
tle.Top = tle.Top - 10
Try
'lblApp.Text = open
Catch
'lblApp.Text = "Error"
End Try
End If
If docktopbot = "Top" Then
dtop = tle.Top
Dim open As String = tle.Name
tle.Top = tle.Top + 10
Try
'lblApp.Text = open
Catch
'lblApp.Text = "Error"
End Try
End If
End Sub
Private Sub tile_leave(sender As Object, e As EventArgs)
Dim tle As PictureBox = DirectCast(sender, PictureBox)
If docktopbot = "Bottom" Then
tle.Top = tle.Top + 10
If tle.Top > 54 Then
tle.Top = 54
End If
End If
If docktopbot = "Top" Then
tle.Top = tle.Top - 10
If tle.Top < dtop Then
tle.Top = dtop
End If
End If
End Sub
Private Sub tilesets_click(sender As Object, e As EventArgs)
DockSettingsMenu.Show()
End Sub
End Class

385
ShiftOS/Dodge.Designer.vb generated
View file

@ -1,385 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Dodge
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(Dodge))
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.player = New System.Windows.Forms.PictureBox()
Me.QuitButton = New System.Windows.Forms.PictureBox()
Me.BeginButton = New System.Windows.Forms.PictureBox()
Me.DescriptionLabel = New System.Windows.Forms.Label()
Me.object_small2 = New System.Windows.Forms.PictureBox()
Me.object_mid2 = New System.Windows.Forms.PictureBox()
Me.object_large = New System.Windows.Forms.PictureBox()
Me.object_small = New System.Windows.Forms.PictureBox()
Me.object_mid = New System.Windows.Forms.PictureBox()
Me.scorelabel = New System.Windows.Forms.Label()
Me.PicBonus = New System.Windows.Forms.PictureBox()
Me.pgleft = New System.Windows.Forms.Panel()
Me.titlebar = New System.Windows.Forms.Panel()
Me.pnlicon = New System.Windows.Forms.PictureBox()
Me.clock = New System.Windows.Forms.Timer(Me.components)
Me.pgright.SuspendLayout()
Me.pgcontents.SuspendLayout()
CType(Me.player, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.QuitButton, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BeginButton, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.object_small2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.object_mid2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.object_large, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.object_small, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.object_mid, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PicBonus, 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, 565)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(593, 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, 535)
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(595, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 537)
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("Microsoft Sans Serif", 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(57, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Dodge"
'
'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(595, 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, 535)
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.player)
Me.pgcontents.Controls.Add(Me.QuitButton)
Me.pgcontents.Controls.Add(Me.BeginButton)
Me.pgcontents.Controls.Add(Me.DescriptionLabel)
Me.pgcontents.Controls.Add(Me.object_small2)
Me.pgcontents.Controls.Add(Me.object_mid2)
Me.pgcontents.Controls.Add(Me.object_large)
Me.pgcontents.Controls.Add(Me.object_small)
Me.pgcontents.Controls.Add(Me.object_mid)
Me.pgcontents.Controls.Add(Me.scorelabel)
Me.pgcontents.Controls.Add(Me.PicBonus)
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(593, 535)
Me.pgcontents.TabIndex = 20
'
'player
'
Me.player.BackColor = System.Drawing.Color.Transparent
Me.player.Image = CType(resources.GetObject("player.Image"), System.Drawing.Image)
Me.player.Location = New System.Drawing.Point(192, 445)
Me.player.Name = "player"
Me.player.Size = New System.Drawing.Size(32, 32)
Me.player.TabIndex = 18
Me.player.TabStop = False
'
'QuitButton
'
Me.QuitButton.Image = CType(resources.GetObject("QuitButton.Image"), System.Drawing.Image)
Me.QuitButton.Location = New System.Drawing.Point(216, 424)
Me.QuitButton.Name = "QuitButton"
Me.QuitButton.Size = New System.Drawing.Size(200, 50)
Me.QuitButton.TabIndex = 12
Me.QuitButton.TabStop = False
'
'BeginButton
'
Me.BeginButton.Image = CType(resources.GetObject("BeginButton.Image"), System.Drawing.Image)
Me.BeginButton.Location = New System.Drawing.Point(3, 424)
Me.BeginButton.Name = "BeginButton"
Me.BeginButton.Size = New System.Drawing.Size(200, 50)
Me.BeginButton.TabIndex = 11
Me.BeginButton.TabStop = False
'
'DescriptionLabel
'
Me.DescriptionLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DescriptionLabel.Location = New System.Drawing.Point(3, 3)
Me.DescriptionLabel.Name = "DescriptionLabel"
Me.DescriptionLabel.Size = New System.Drawing.Size(413, 409)
Me.DescriptionLabel.TabIndex = 10
Me.DescriptionLabel.Text = "Placeholder"
'
'object_small2
'
Me.object_small2.Image = CType(resources.GetObject("object_small2.Image"), System.Drawing.Image)
Me.object_small2.Location = New System.Drawing.Point(75, 43)
Me.object_small2.Name = "object_small2"
Me.object_small2.Size = New System.Drawing.Size(75, 20)
Me.object_small2.TabIndex = 17
Me.object_small2.TabStop = False
'
'object_mid2
'
Me.object_mid2.Image = CType(resources.GetObject("object_mid2.Image"), System.Drawing.Image)
Me.object_mid2.Location = New System.Drawing.Point(279, 134)
Me.object_mid2.Name = "object_mid2"
Me.object_mid2.Size = New System.Drawing.Size(125, 20)
Me.object_mid2.TabIndex = 16
Me.object_mid2.TabStop = False
'
'object_large
'
Me.object_large.Image = CType(resources.GetObject("object_large.Image"), System.Drawing.Image)
Me.object_large.Location = New System.Drawing.Point(49, 208)
Me.object_large.Name = "object_large"
Me.object_large.Size = New System.Drawing.Size(175, 20)
Me.object_large.TabIndex = 15
Me.object_large.TabStop = False
'
'object_small
'
Me.object_small.Image = CType(resources.GetObject("object_small.Image"), System.Drawing.Image)
Me.object_small.Location = New System.Drawing.Point(290, 294)
Me.object_small.Name = "object_small"
Me.object_small.Size = New System.Drawing.Size(75, 20)
Me.object_small.TabIndex = 13
Me.object_small.TabStop = False
'
'object_mid
'
Me.object_mid.Image = CType(resources.GetObject("object_mid.Image"), System.Drawing.Image)
Me.object_mid.Location = New System.Drawing.Point(58, 371)
Me.object_mid.Name = "object_mid"
Me.object_mid.Size = New System.Drawing.Size(125, 20)
Me.object_mid.TabIndex = 14
Me.object_mid.TabStop = False
'
'scorelabel
'
Me.scorelabel.AutoSize = True
Me.scorelabel.BackColor = System.Drawing.Color.Transparent
Me.scorelabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.scorelabel.Location = New System.Drawing.Point(3, 4)
Me.scorelabel.Name = "scorelabel"
Me.scorelabel.Size = New System.Drawing.Size(51, 55)
Me.scorelabel.TabIndex = 19
Me.scorelabel.Text = "0"
'
'PicBonus
'
Me.PicBonus.Image = CType(resources.GetObject("PicBonus.Image"), System.Drawing.Image)
Me.PicBonus.Location = New System.Drawing.Point(187, 84)
Me.PicBonus.Name = "PicBonus"
Me.PicBonus.Size = New System.Drawing.Size(16, 11)
Me.PicBonus.TabIndex = 20
Me.PicBonus.TabStop = False
Me.PicBonus.Visible = False
'
'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, 537)
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(597, 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
'
'clock
'
Me.clock.Interval = 20
'
'Dodge
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(597, 567)
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.MaximizeBox = False
Me.Name = "Dodge"
Me.Text = "Dodge"
Me.TopMost = True
Me.pgright.ResumeLayout(False)
Me.pgcontents.ResumeLayout(False)
Me.pgcontents.PerformLayout()
CType(Me.player, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.QuitButton, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BeginButton, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.object_small2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.object_mid2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.object_large, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.object_small, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.object_mid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PicBonus, 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 player As System.Windows.Forms.PictureBox
Friend WithEvents QuitButton As System.Windows.Forms.PictureBox
Friend WithEvents BeginButton As System.Windows.Forms.PictureBox
Friend WithEvents DescriptionLabel As System.Windows.Forms.Label
Friend WithEvents object_small2 As System.Windows.Forms.PictureBox
Friend WithEvents object_mid2 As System.Windows.Forms.PictureBox
Friend WithEvents object_large As System.Windows.Forms.PictureBox
Friend WithEvents object_small As System.Windows.Forms.PictureBox
Friend WithEvents object_mid As System.Windows.Forms.PictureBox
Friend WithEvents scorelabel As System.Windows.Forms.Label
Friend WithEvents clock As System.Windows.Forms.Timer
Friend WithEvents PicBonus As System.Windows.Forms.PictureBox
End Class

208
ShiftOS/Dodge.resx
View file

@ -1,208 +0,0 @@
<?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.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="player.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAIAAAD8GO2jAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAANlJREFUSEvVjtsOwyAMQ/v/P90hnKW5ADFSq27nYUscY/c4H2aj4OjIQkM9sNF2
Zqitwzi+o/BpkE3ETHawBZmbCxbDmtpkE+2MoYT7Ch+tM8OOdTMa/EaBjbYzQ2G1cbN5jTOFN2UE478k
nNuvAn2NWDtYoStuz+cths8vST9Bgb5AfF+g4KS4PZyzO8D4VxG7BUPeLigR65ypg3ncKG17BVn8qwIo
Qb+twK6zecgbBe0NkL1j1zAD2RPxMLRmkVGAU6cmLm4syn/n8YJGM2Xk5pGbQQ6W8/wAaLdSOxZqwToA
AAAASUVORK5CYII=
</value>
</data>
<data name="QuitButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAMgAAAAyCAIAAACWMwO2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAh5JREFUeF7tltt1g0AMBV2XC3I9qcbNuBgnzrk/0r4gh5tEeObvGrEgdiy4PAEM
XABcyDGAg0AssIBYYAGxwAJigQXEAguIBRYQCywgFlhALLCAWGABscACYoGFM4n1+LiqncjtroI+4bTr
x0M/t8wK7zf9/kIXHN3PmNnVi6GOlKoStnXEyK9w8iFi6dimu4os/gOFUENKBdk1Frra2MRiYtUVqxkK
6S/f7m07E2xiddh8rfKoR6ViJK0G75EsVy5DLAfqUakUUZjNRvzUCcTahXpUqkTYo9VXbyyOO4pYDtSj
UiG2z6sXaWYFDRHLgXpUqsM+r9KOxnrEcqAeleqwV6zJyEIsB+pRqQ5hh1ZfWF8g1i+jHpXqgFj/HPWo
VIco1nqLolihHrEcqEelOkxE6TIREbEcqEelQkRTVu/CmYfx2GQlxNqBelQqRNRhYda0eLNYwYpUh1gJ
9ahUiR1mhe1s9zMeHi40lQKxEupRqRZRiOE+pbKOOOuK7PFcTsSqLVYeWl+kvWoL+vOoqYvrNIfbVRAr
oR6V6pGGzYrhe27HQl0fECuhHpVqsk+u8Xa2861lZCZiJdSjUmn6fr1M6BwZj67BOgsLwkkb5+LkHuqj
HpXOS8+WU0+Mv0bPWOnUbP2ShyPQI1Y6PVEuxPKhR6z0JkgvXoVGvrV6N7HAD2KBBcQCC4gFFhALLCAW
WEAssCCxAI5HjgEcyPP5CT/xA4PFRMqaAAAAAElFTkSuQmCC
</value>
</data>
<data name="BeginButton.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAMgAAAAyCAIAAACWMwO2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAnVJREFUeF7t2c1t60AMRWHXpYJcj6txMykmkeFZDCkOxVF0DQs4Z/UCzY+e+CGb
3IhU/RKdGrBIErBIErBIErBIErBIErBIErBIErBIErBIErBIErBIErBIErBIErBI0nVg/TyW9rKD7s+2
ctvz3takJQe8Gh2yPH7aCpNZ7o7e/F+GV/en7Lzfd9Xeuf30xe26akVfv7h3IKTI0u82u+zD6H0KPIGl
qAorGlFxbzC4+q1r9uJJWAM3wFJnhuHs+F8pfgJ2kOX5BPPfoh1OfhpW+GLAUpfBWrO23AgOwfJat3f2
vVbbFUVYy9L9e3sFsNTtwErtHIBlt+yoCivCuj9TO8BS91lYRsURVhOwzEp/FbDU5bByOtOwrKtjA63D
su9nbwOWugzWnoNZWHb9RnGtIqz3k36xWQssdXbYw8KPX9g7nObheU7Bsq/Y3QgsdUVY4eev7O222eXW
RHaWvXkO1ogQsNSVYb1yIyjs7SefwjJebHblLKwZbheovXP76Ysz03bDDsZthmCl7M8nMeHOMtmV07BC
RcBSl8NacxPvl/wLVro+0XMAltn0fgAsdbuwEg+zsJzRZMPZsMyj173AUvdJWHVZp8My+9Z7gaXuo7D8
WcM9iZ7kUQqrf7o8HsAStwvL6jFTOADLHxdeqYHVb+3/RA0sSTksz8AO4Qis4MztvQbPebCiq9eApSj+
1nF+WMW928HNXHomLE/2HbAUlWccfP7i3okZR7nt/4MVvTOwJO3qGI1orWYjH9zw/opHe3R/VHKpe+tL
uboQLLpUwCJJwCJJwCJJwCJJwCJJwCJJwCJJwCJJwCJJwCJJDRbRyd1uf3/6zkvyT2tRAAAAAElFTkSu
QmCC
</value>
</data>
<data name="object_small2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEsAAAAUCAIAAABK9FefAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAC9JREFUWEftzwEBAAAIwjD6l9Ych6/BMuF6OeRzyOeQzyGfQz6HfA75HPLNDJsl
D4jAV3xQnIczAAAAAElFTkSuQmCC
</value>
</data>
<data name="object_mid2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAH0AAAAUCAIAAAAvGaXgAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAEJJREFUWEft0DEBADAMwKD6N7091dA8IIEh87jlveG94b3hveG94b3hveG94b3h
veG94b3hveG94b3hveG9se9cm/mqBdmGSM9R1gAAAABJRU5ErkJggg==
</value>
</data>
<data name="object_large.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAK8AAAAUCAIAAAB0/fqUAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAEFJREFUaEPt0gEJACAQALHvX/pFEA47bBk28FnYtYHYQGwgNhAbiA3EBmIDsYHY
QGwgNhAbiA3EBmIDsYG8DXDNHAnVW5/1c3lZAAAAAElFTkSuQmCC
</value>
</data>
<data name="object_small.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEsAAAAUCAIAAABK9FefAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAC9JREFUWEftzwEBAAAIwjD6l9Ych6/BMuF6OeRzyOeQzyGfQz6HfA75HPLNDJsl
D4jAV3xQnIczAAAAAElFTkSuQmCC
</value>
</data>
<data name="object_mid.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAH0AAAAUCAIAAAAvGaXgAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAEJJREFUWEft0DEBADAMwKD6N7091dA8IIEh87jlveG94b3hveG94b3hveG94b3h
veG94b3hveG94b3hveG9se9cm/mqBdmGSM9R1gAAAABJRU5ErkJggg==
</value>
</data>
<data name="PicBonus.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAALCAIAAAD5gJpuAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAE1JREFUKFOtjUEOACEIA3k6P2dJSroVuWicA2lksHaDu3MmEcEJmrCQXqMWSjtV
T/PckKik+WdsIPX6vmHPcwMMpRYKTvkBJFWbcILZB/dcg5IyZV67AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="clock.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

548
ShiftOS/Dodge.vb
View file

@ -1,548 +0,0 @@
Public Class Dodge
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 = 453 'replace with minimum size
Public minimumsizeheight As Integer = 522 'replace with minimum size
Dim speed As Decimal 'the speed the game runs at
Dim score As Integer 'the score/code points the player gets
Dim usingkeys As Boolean = False 'user can use mouse or keyboard, mouse by default, chnages to true if key pressed
Dim time As Decimal = 0 'Records the time spent playing, used for codepoints formula
Dim bonusesfound As Integer 'Number or bonus play collects
Dim keyboardinput As Integer = 0 'for smooth keyboard gameplay, 1=left, 2=right, 0=none
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.DodgeCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'modfiy to proper name
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
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 = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(420, 510) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 QuitButton_Click(sender As Object, e As EventArgs) Handles QuitButton.Click 'When quit clicked
Me.Close() 'quits the game (In case user donsn't have close button)
End Sub
Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
keyboardinput = 0
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
player.Visible = False ' hide player and score until game starts
scorelabel.Visible = False
DescriptionLabel.Text = "Welcome to Dodge. Dodge is a simple arcade game with one objective: survive the falling objects! Use the arrow or mouse to move the player and avoid as many objects as you can. The longer you survive, the more code point you will be rewarded with. Beware, it gets harder..." ' set the description text
'to impliment skinning, simply set the picturebox to the new skinned image.
'For example:
'player.Image = Image.FromFile("PATH TO SKINNED IMAGE")
End Sub
Private Sub BeginButton_Click(sender As Object, e As EventArgs) Handles BeginButton.Click 'When begin click
'Hide buttons
BeginButton.Visible = False
QuitButton.Visible = False
DescriptionLabel.Visible = False
player.Visible = True ' show the player
speed = 2 ' controls speed of game, will increase as game progresses
scorelabel.Visible = True ' show score label
bonusesfound = 0
'Make sure all objects are in the correct position
object_small.Location = New Point((Math.Ceiling(Rnd() * 453)), 300)
object_small2.Location = New Point((Math.Ceiling(Rnd() * 453)), 49)
object_mid.Location = New Point((Math.Ceiling(Rnd() * 453)), 377)
object_mid2.Location = New Point((Math.Ceiling(Rnd() * 453)), 140)
object_large.Location = New Point((Math.Ceiling(Rnd() * 453)), 214)
PicBonus.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
'Reset time
time = 0
usingkeys = False
System.Threading.Thread.Sleep(100) ' slight delay before game starts (in milliseconds)
main() ' start the main game sub
'sig() 'infobox sigs - COMMENT THIS OUT
End Sub
Public Sub Form1_keydown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Right ' detect right key press
usingkeys = True ' turn off mouse control
keyboardinput = 2
Case Keys.Left
usingkeys = True
keyboardinput = 1
End Select
End Sub
Private Sub main()
clock.Start() 'the timer restart this sub every tick, making an endless loop between them.
'score system
scorelabel.Text = score
score = (speed / 10) + (time / 20) + bonusesfound
'Speed increase
speed = speed + (speed * 0.001)
'increase time
time = time + 0.05 'loops every 0.05 seconds so time increases by 1 every second (have I done the maths correctly?)
'Make objects fall
object_large.Location = New Point(object_large.Location.X, object_large.Location.Y + speed)
object_mid.Location = New Point(object_mid.Location.X, object_mid.Location.Y + speed)
object_mid2.Location = New Point(object_mid2.Location.X, object_mid2.Location.Y + speed)
object_small.Location = New Point(object_small.Location.X, object_small.Location.Y + speed)
object_small2.Location = New Point(object_small2.Location.X, object_small2.Location.Y + speed)
'mouse controls
If usingkeys = False Then ' tests if mouse control is enabled
player.Location = New Point(MousePosition.X - Me.Location.X - (player.Size.Width / 2) - 5, player.Location.Y) 'sets the x location to that of the mouse
End If
'keyboard controls
If usingkeys = True Then
If keyboardinput = 1 Then
player.Location = New Point(player.Location.X - (speed * 4), player.Location.Y)
End If
If keyboardinput = 2 Then
player.Location = New Point(player.Location.X + (speed * 4), player.Location.Y) ' move right
End If
End If
'move object back to the top of the screen
If object_small.Location.Y > 522 Then
object_small.Location = New Point((Math.Ceiling(Rnd() * 453)), -20) 'picks a random number between 0 and 453 (window width) and sets the x position to this value. uses -20 for y as it is above the top of window
End If
If object_small2.Location.Y > 522 Then
object_small2.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
End If
If object_mid.Location.Y > 522 Then
object_mid.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
End If
If object_mid2.Location.Y > 522 Then
object_mid2.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
End If
If object_large.Location.Y > 522 Then
object_large.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
End If
'Makes sure the player is on the screen (Anti-cheating)
If player.Location.X > 375 Then
player.Location = New Point(385, player.Location.Y)
End If
If player.Location.X < 0 Then
player.Location = New Point(0, player.Location.Y)
End If
'Bonus
If PicBonus.Visible = False Then
Dim ran As Integer = Math.Ceiling(Rnd() * 300) 'random 1 in 500 chance
If ran = 1 Then
PicBonus.Visible = True
End If
Else
PicBonus.Location = New Point(PicBonus.Location.X, PicBonus.Location.Y + speed)
If PicBonus.Location.Y > 522 Then
PicBonus.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
PicBonus.Visible = False
End If
End If
'check collisions
If player.Bounds.IntersectsWith(object_mid.Bounds) Or player.Bounds.IntersectsWith(object_mid2.Bounds) Or player.Bounds.IntersectsWith(object_large.Bounds) Or player.Bounds.IntersectsWith(object_small.Bounds) Or player.Bounds.IntersectsWith(object_small2.Bounds) Then
clock.Stop() 'breaks loop
System.Threading.Thread.Sleep(333) 'delay for a third of a second
player.Visible = False 'hide game
DescriptionLabel.Text = "Sorry, you just lost the game, however, you earnt a total of " & score & " code points. To earn more code points, press the begin button now. To exit, press the quit button" ' change the description to the die message
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + score
DescriptionLabel.Visible = True 'show non-game elements
BeginButton.Visible = True
QuitButton.Visible = True
scorelabel.Visible = False
End If
If player.Bounds.IntersectsWith(PicBonus.Bounds) Then
PicBonus.Visible = False
bonusesfound = bonusesfound + 1
PicBonus.Location = New Point((Math.Ceiling(Rnd() * 453)), -20)
End If
End Sub
Private Sub clock_Tick(sender As Object, e As EventArgs) Handles clock.Tick
main() 'repeat the main sub (endless loop)
End Sub
Private Sub sig()
infobox.title = "FLAG"
infobox.textinfo = "There is no foul on the play, the punt was blocked."
infobox.Show()
End Sub
End Class

237
ShiftOS/Downloader.Designer.vb generated
View file

@ -1,237 +0,0 @@
<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
ShiftOS/Downloader.resx
View file

@ -1,129 +0,0 @@
<?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>

415
ShiftOS/Downloader.vb
View file

@ -1,415 +0,0 @@
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
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
'Fix growing window bug
If justopened = False Then
Me.Size = New Size(Me.Size.Width, Me.Size.Height - Skins.titlebarheight)
End If
If justopened = True Then
Me.Size = New Size(420, 510) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
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 Region
End Class

561
ShiftOS/Downloadmanager.Designer.vb generated
View file

@ -1,561 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Downloadmanager
Inherits System.Windows.Forms.Form
Public ShiftOSPath As String = "C:\ShiftOS\"
'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(Downloadmanager))
Me.pgcontents = New System.Windows.Forms.Panel()
Me.pnlsettings = New System.Windows.Forms.Panel()
Me.btnclearhist = New System.Windows.Forms.Button()
Me.txtspeedlimiter = New System.Windows.Forms.TextBox()
Me.btnsavefolder = New System.Windows.Forms.Button()
Me.lbldownloadspeedtitle = New System.Windows.Forms.Label()
Me.lbldownloadlocationtitle = New System.Windows.Forms.Label()
Me.pnldownloads = New System.Windows.Forms.Panel()
Me.lblqueueddownloads = New System.Windows.Forms.Label()
Me.lblqueuetitle = New System.Windows.Forms.Label()
Me.lbldownloadstitle = New System.Windows.Forms.Label()
Me.lbldownloadingitems = New System.Windows.Forms.Label()
Me.pnlwelcome = New System.Windows.Forms.Panel()
Me.lblexit = New System.Windows.Forms.Label()
Me.lblwelcometext = New System.Windows.Forms.Label()
Me.pnlhistory = New System.Windows.Forms.Panel()
Me.lblpreviousdownloadstitle = New System.Windows.Forms.Label()
Me.lblpreviousdownloads = New System.Windows.Forms.Label()
Me.pnltabbuttons = New System.Windows.Forms.Panel()
Me.bntsettingtab = New System.Windows.Forms.Label()
Me.bnthistorytab = New System.Windows.Forms.Label()
Me.bntdownloadstab = New System.Windows.Forms.Label()
Me.bntwelcometab = 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.pgtoprcorner = New System.Windows.Forms.Panel()
Me.pgtoplcorner = New System.Windows.Forms.Panel()
Me.lbtitletext = New System.Windows.Forms.Label()
Me.closebutton = New System.Windows.Forms.Panel()
Me.rollupbutton = 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.pullside = New System.Windows.Forms.Timer(Me.components)
Me.pgbottom = New System.Windows.Forms.Panel()
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
Me.tmrdownloadspeed = New System.Windows.Forms.Timer(Me.components)
Me.tmrapplied = New System.Windows.Forms.Timer(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.pgcontents.SuspendLayout()
Me.pnlsettings.SuspendLayout()
Me.pnldownloads.SuspendLayout()
Me.pnlwelcome.SuspendLayout()
Me.pnlhistory.SuspendLayout()
Me.pnltabbuttons.SuspendLayout()
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.pnlsettings)
Me.pgcontents.Controls.Add(Me.pnldownloads)
Me.pgcontents.Controls.Add(Me.pnlwelcome)
Me.pgcontents.Controls.Add(Me.pnlhistory)
Me.pgcontents.Controls.Add(Me.pnltabbuttons)
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(498, 220)
Me.pgcontents.TabIndex = 20
'
'pnlsettings
'
Me.pnlsettings.Controls.Add(Me.Label1)
Me.pnlsettings.Controls.Add(Me.btnclearhist)
Me.pnlsettings.Controls.Add(Me.txtspeedlimiter)
Me.pnlsettings.Controls.Add(Me.btnsavefolder)
Me.pnlsettings.Controls.Add(Me.lbldownloadspeedtitle)
Me.pnlsettings.Controls.Add(Me.lbldownloadlocationtitle)
Me.pnlsettings.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlsettings.Location = New System.Drawing.Point(0, 25)
Me.pnlsettings.Name = "pnlsettings"
Me.pnlsettings.Size = New System.Drawing.Size(498, 195)
Me.pnlsettings.TabIndex = 8
'
'btnclearhist
'
Me.btnclearhist.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnclearhist.Location = New System.Drawing.Point(21, 80)
Me.btnclearhist.Name = "btnclearhist"
Me.btnclearhist.Size = New System.Drawing.Size(138, 23)
Me.btnclearhist.TabIndex = 10
Me.btnclearhist.Text = "Clear Download History"
Me.btnclearhist.UseVisualStyleBackColor = True
'
'txtspeedlimiter
'
Me.txtspeedlimiter.Location = New System.Drawing.Point(143, 46)
Me.txtspeedlimiter.Name = "txtspeedlimiter"
Me.txtspeedlimiter.Size = New System.Drawing.Size(100, 20)
Me.txtspeedlimiter.TabIndex = 9
Me.txtspeedlimiter.Text = "500"
Me.txtspeedlimiter.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'btnsavefolder
'
Me.btnsavefolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnsavefolder.Location = New System.Drawing.Point(128, 10)
Me.btnsavefolder.Name = "btnsavefolder"
Me.btnsavefolder.Size = New System.Drawing.Size(194, 23)
Me.btnsavefolder.TabIndex = 8
Me.btnsavefolder.Text = "Downloads"
Me.btnsavefolder.UseVisualStyleBackColor = True
'
'lbldownloadspeedtitle
'
Me.lbldownloadspeedtitle.AutoSize = True
Me.lbldownloadspeedtitle.Location = New System.Drawing.Point(18, 49)
Me.lbldownloadspeedtitle.Name = "lbldownloadspeedtitle"
Me.lbldownloadspeedtitle.Size = New System.Drawing.Size(119, 13)
Me.lbldownloadspeedtitle.TabIndex = 4
Me.lbldownloadspeedtitle.Text = "Download speed limiter:"
'
'lbldownloadlocationtitle
'
Me.lbldownloadlocationtitle.AutoSize = True
Me.lbldownloadlocationtitle.Location = New System.Drawing.Point(20, 15)
Me.lbldownloadlocationtitle.Name = "lbldownloadlocationtitle"
Me.lbldownloadlocationtitle.Size = New System.Drawing.Size(102, 13)
Me.lbldownloadlocationtitle.TabIndex = 2
Me.lbldownloadlocationtitle.Text = "Download Location:"
'
'pnldownloads
'
Me.pnldownloads.Controls.Add(Me.lblqueueddownloads)
Me.pnldownloads.Controls.Add(Me.lblqueuetitle)
Me.pnldownloads.Controls.Add(Me.lbldownloadstitle)
Me.pnldownloads.Controls.Add(Me.lbldownloadingitems)
Me.pnldownloads.Location = New System.Drawing.Point(15, 31)
Me.pnldownloads.Name = "pnldownloads"
Me.pnldownloads.Size = New System.Drawing.Size(201, 98)
Me.pnldownloads.TabIndex = 6
'
'lblqueueddownloads
'
Me.lblqueueddownloads.AutoSize = True
Me.lblqueueddownloads.Location = New System.Drawing.Point(10, 79)
Me.lblqueueddownloads.Name = "lblqueueddownloads"
Me.lblqueueddownloads.Size = New System.Drawing.Size(157, 13)
Me.lblqueueddownloads.TabIndex = 5
Me.lblqueueddownloads.Text = "No downloads currently queued"
'
'lblqueuetitle
'
Me.lblqueuetitle.AutoSize = True
Me.lblqueuetitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblqueuetitle.Location = New System.Drawing.Point(10, 56)
Me.lblqueuetitle.Name = "lblqueuetitle"
Me.lblqueuetitle.Size = New System.Drawing.Size(48, 13)
Me.lblqueuetitle.TabIndex = 4
Me.lblqueuetitle.Text = "Queue:"
'
'lbldownloadstitle
'
Me.lbldownloadstitle.AutoSize = True
Me.lbldownloadstitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbldownloadstitle.Location = New System.Drawing.Point(10, 3)
Me.lbldownloadstitle.Name = "lbldownloadstitle"
Me.lbldownloadstitle.Size = New System.Drawing.Size(73, 13)
Me.lbldownloadstitle.TabIndex = 3
Me.lbldownloadstitle.Text = "Downloads:"
'
'lbldownloadingitems
'
Me.lbldownloadingitems.AutoSize = True
Me.lbldownloadingitems.Location = New System.Drawing.Point(10, 27)
Me.lbldownloadingitems.Name = "lbldownloadingitems"
Me.lbldownloadingitems.Size = New System.Drawing.Size(167, 13)
Me.lbldownloadingitems.TabIndex = 2
Me.lbldownloadingitems.Text = "No download currently in progress"
'
'pnlwelcome
'
Me.pnlwelcome.Controls.Add(Me.lblexit)
Me.pnlwelcome.Controls.Add(Me.lblwelcometext)
Me.pnlwelcome.Location = New System.Drawing.Point(244, 34)
Me.pnlwelcome.Name = "pnlwelcome"
Me.pnlwelcome.Size = New System.Drawing.Size(103, 44)
Me.pnlwelcome.TabIndex = 5
'
'lblexit
'
Me.lblexit.BackColor = System.Drawing.Color.White
Me.lblexit.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblexit.Location = New System.Drawing.Point(365, 161)
Me.lblexit.Name = "lblexit"
Me.lblexit.Size = New System.Drawing.Size(125, 25)
Me.lblexit.TabIndex = 5
Me.lblexit.Text = "Close"
Me.lblexit.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblwelcometext
'
Me.lblwelcometext.Location = New System.Drawing.Point(10, 20)
Me.lblwelcometext.Name = "lblwelcometext"
Me.lblwelcometext.Size = New System.Drawing.Size(480, 116)
Me.lblwelcometext.TabIndex = 0
Me.lblwelcometext.Text = resources.GetString("lblwelcometext.Text")
'
'pnlhistory
'
Me.pnlhistory.Controls.Add(Me.lblpreviousdownloadstitle)
Me.pnlhistory.Controls.Add(Me.lblpreviousdownloads)
Me.pnlhistory.Location = New System.Drawing.Point(23, 135)
Me.pnlhistory.Name = "pnlhistory"
Me.pnlhistory.Size = New System.Drawing.Size(162, 72)
Me.pnlhistory.TabIndex = 7
'
'lblpreviousdownloadstitle
'
Me.lblpreviousdownloadstitle.AutoSize = True
Me.lblpreviousdownloadstitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblpreviousdownloadstitle.Location = New System.Drawing.Point(10, 3)
Me.lblpreviousdownloadstitle.Name = "lblpreviousdownloadstitle"
Me.lblpreviousdownloadstitle.Size = New System.Drawing.Size(126, 13)
Me.lblpreviousdownloadstitle.TabIndex = 3
Me.lblpreviousdownloadstitle.Text = "Previous Downloads:"
Me.lblpreviousdownloadstitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblpreviousdownloads
'
Me.lblpreviousdownloads.AutoSize = True
Me.lblpreviousdownloads.Location = New System.Drawing.Point(10, 27)
Me.lblpreviousdownloads.Name = "lblpreviousdownloads"
Me.lblpreviousdownloads.Size = New System.Drawing.Size(121, 13)
Me.lblpreviousdownloads.TabIndex = 2
Me.lblpreviousdownloads.Text = "No previous downloads."
'
'pnltabbuttons
'
Me.pnltabbuttons.Controls.Add(Me.bntsettingtab)
Me.pnltabbuttons.Controls.Add(Me.bnthistorytab)
Me.pnltabbuttons.Controls.Add(Me.bntdownloadstab)
Me.pnltabbuttons.Controls.Add(Me.bntwelcometab)
Me.pnltabbuttons.Dock = System.Windows.Forms.DockStyle.Top
Me.pnltabbuttons.Location = New System.Drawing.Point(0, 0)
Me.pnltabbuttons.Name = "pnltabbuttons"
Me.pnltabbuttons.Size = New System.Drawing.Size(498, 25)
Me.pnltabbuttons.TabIndex = 4
'
'bntsettingtab
'
Me.bntsettingtab.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bntsettingtab.BackColor = System.Drawing.Color.White
Me.bntsettingtab.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.bntsettingtab.Location = New System.Drawing.Point(371, 0)
Me.bntsettingtab.Name = "bntsettingtab"
Me.bntsettingtab.Size = New System.Drawing.Size(127, 25)
Me.bntsettingtab.TabIndex = 7
Me.bntsettingtab.Text = "Settings"
Me.bntsettingtab.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'bnthistorytab
'
Me.bnthistorytab.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bnthistorytab.BackColor = System.Drawing.Color.White
Me.bnthistorytab.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.bnthistorytab.Location = New System.Drawing.Point(247, 0)
Me.bnthistorytab.Name = "bnthistorytab"
Me.bnthistorytab.Size = New System.Drawing.Size(127, 25)
Me.bnthistorytab.TabIndex = 6
Me.bnthistorytab.Text = "History"
Me.bnthistorytab.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'bntdownloadstab
'
Me.bntdownloadstab.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bntdownloadstab.BackColor = System.Drawing.Color.White
Me.bntdownloadstab.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.bntdownloadstab.Location = New System.Drawing.Point(123, 0)
Me.bntdownloadstab.Name = "bntdownloadstab"
Me.bntdownloadstab.Size = New System.Drawing.Size(127, 25)
Me.bntdownloadstab.TabIndex = 5
Me.bntdownloadstab.Text = "Current Downloads"
Me.bntdownloadstab.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'bntwelcometab
'
Me.bntwelcometab.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.bntwelcometab.BackColor = System.Drawing.Color.White
Me.bntwelcometab.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.bntwelcometab.Location = New System.Drawing.Point(-1, 0)
Me.bntwelcometab.Name = "bntwelcometab"
Me.bntwelcometab.Size = New System.Drawing.Size(127, 25)
Me.bntwelcometab.TabIndex = 4
Me.bntwelcometab.Text = "Welcome"
Me.bntwelcometab.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, 220)
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, 218)
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(498, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 220)
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, 218)
Me.pgbottomrcorner.Name = "pgbottomrcorner"
Me.pgbottomrcorner.Size = New System.Drawing.Size(2, 2)
Me.pgbottomrcorner.TabIndex = 15
'
'pgtoprcorner
'
Me.pgtoprcorner.BackColor = System.Drawing.Color.Red
Me.pgtoprcorner.Dock = System.Windows.Forms.DockStyle.Right
Me.pgtoprcorner.Location = New System.Drawing.Point(498, 0)
Me.pgtoprcorner.Name = "pgtoprcorner"
Me.pgtoprcorner.Size = New System.Drawing.Size(2, 30)
Me.pgtoprcorner.TabIndex = 16
'
'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
'
'lbtitletext
'
Me.lbtitletext.AutoSize = True
Me.lbtitletext.BackColor = System.Drawing.Color.Transparent
Me.lbtitletext.Font = New System.Drawing.Font("Microsoft Sans Serif", 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(77, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Template"
'
'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
'
'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
'
'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(500, 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.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
'
'pullside
'
Me.pullside.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, 248)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(496, 2)
Me.pgbottom.TabIndex = 23
'
'pullbs
'
Me.pullbs.Interval = 1
'
'pullbottom
'
Me.pullbottom.Interval = 1
'
'tmrdownloadspeed
'
'
'tmrapplied
'
Me.tmrapplied.Interval = 1000
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.5!)
Me.Label1.Location = New System.Drawing.Point(245, 52)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 12)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Kilobytes / second"
'
'Downloadmanager
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(500, 250)
Me.Controls.Add(Me.pgbottom)
Me.Controls.Add(Me.pgright)
Me.Controls.Add(Me.pgcontents)
Me.Controls.Add(Me.pgleft)
Me.Controls.Add(Me.titlebar)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Downloadmanager"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "downloadmanager"
Me.TopMost = True
Me.pgcontents.ResumeLayout(False)
Me.pnlsettings.ResumeLayout(False)
Me.pnlsettings.PerformLayout()
Me.pnldownloads.ResumeLayout(False)
Me.pnldownloads.PerformLayout()
Me.pnlwelcome.ResumeLayout(False)
Me.pnlhistory.ResumeLayout(False)
Me.pnlhistory.PerformLayout()
Me.pnltabbuttons.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.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 pgtoprcorner As System.Windows.Forms.Panel
Friend WithEvents pgtoplcorner 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 titlebar As System.Windows.Forms.Panel
Friend WithEvents minimizebutton As System.Windows.Forms.Panel
Friend WithEvents pnlicon As System.Windows.Forms.PictureBox
Friend WithEvents pullside As System.Windows.Forms.Timer
Friend WithEvents pgbottom As System.Windows.Forms.Panel
Friend WithEvents pullbs As System.Windows.Forms.Timer
Friend WithEvents pullbottom As System.Windows.Forms.Timer
Friend WithEvents pnltabbuttons As System.Windows.Forms.Panel
Friend WithEvents bntsettingtab As System.Windows.Forms.Label
Friend WithEvents bnthistorytab As System.Windows.Forms.Label
Friend WithEvents bntdownloadstab As System.Windows.Forms.Label
Friend WithEvents bntwelcometab As System.Windows.Forms.Label
Friend WithEvents pnlwelcome As System.Windows.Forms.Panel
Friend WithEvents lblexit As System.Windows.Forms.Label
Friend WithEvents lblwelcometext As System.Windows.Forms.Label
Friend WithEvents pnldownloads As System.Windows.Forms.Panel
Friend WithEvents lbldownloadingitems As System.Windows.Forms.Label
Friend WithEvents tmrdownloadspeed As System.Windows.Forms.Timer
Friend WithEvents lblqueueddownloads As System.Windows.Forms.Label
Friend WithEvents lblqueuetitle As System.Windows.Forms.Label
Friend WithEvents lbldownloadstitle As System.Windows.Forms.Label
Friend WithEvents pnlhistory As System.Windows.Forms.Panel
Friend WithEvents lblpreviousdownloadstitle As System.Windows.Forms.Label
Friend WithEvents lblpreviousdownloads As System.Windows.Forms.Label
Friend WithEvents pnlsettings As System.Windows.Forms.Panel
Friend WithEvents lbldownloadspeedtitle As System.Windows.Forms.Label
Friend WithEvents lbldownloadlocationtitle As System.Windows.Forms.Label
Friend WithEvents tmrapplied As System.Windows.Forms.Timer
Friend WithEvents btnclearhist As System.Windows.Forms.Button
Friend WithEvents txtspeedlimiter As System.Windows.Forms.TextBox
Friend WithEvents btnsavefolder As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

140
ShiftOS/Downloadmanager.resx
View file

@ -1,140 +0,0 @@
<?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="lblwelcometext.Text" xml:space="preserve">
<value>Welcome to the Download Manager. Like downloading programs off the internet? Want to download a movie or your favourite song? This is the right program!
Simply click a download link in the Shiftnet and after conferming, all your stuff will start to download. Click the Current Downloads tab to see what your currently downloading. The History tab shows everything you have already downloaded and settings lets you customize your Download Manager.</value>
</data>
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>214, 57</value>
</metadata>
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>130, 57</value>
</metadata>
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 57</value>
</metadata>
<metadata name="tmrdownloadspeed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>308, 57</value>
</metadata>
<metadata name="tmrapplied.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>466, 57</value>
</metadata>
</root>

579
ShiftOS/Downloadmanager.vb
View file

@ -1,579 +0,0 @@
Imports System.IO
Public Class Downloadmanager
Dim writefile As StreamWriter
Public filepath As String = ShiftOSPath + "Home\Downloads"
Dim progress As Decimal
Dim speed As Integer = 500
Dim size_(99999) As Integer
Dim source(99999) As String
Dim name_(99999) As String
Dim number As Integer = 0
Dim current As Integer = 1
#Region "Template Code"
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
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.DownloadManagerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
pnlwelcome.Dock = DockStyle.Fill
pnlwelcome.BringToFront()
lblpreviousdownloads.Text = ShiftOSDesktop.downloadmanagerhistory
ShiftOSDesktop.pnlpanelbuttondownloadmanager.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondownloadmanager, ShiftOSDesktop.tbdownloadmanagericon, ShiftOSDesktop.tbdownloadmanagertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(500, 250) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.downloadmanagername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.downloadmanagericontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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 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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Private Sub lblexit_Click(sender As Object, e As EventArgs) Handles lblexit.Click
Me.Close()
End Sub
'tab switching
Private Sub bntwelcometab_Click(sender As Object, e As EventArgs) Handles bntwelcometab.Click
pnlwelcome.Dock = DockStyle.Fill
pnlwelcome.BringToFront()
End Sub
Private Sub bnthistorytab_Click(sender As Object, e As EventArgs) Handles bnthistorytab.Click
pnlhistory.Dock = DockStyle.Fill
pnlhistory.BringToFront()
End Sub
Private Sub bntdownloadstab_Click(sender As Object, e As EventArgs) Handles bntdownloadstab.Click
pnldownloads.Dock = DockStyle.Fill
pnldownloads.BringToFront()
End Sub
Private Sub bntsettingtab_Click(sender As Object, e As EventArgs) Handles bntsettingtab.Click
pnlsettings.Dock = DockStyle.Fill
pnlsettings.BringToFront()
If lblpreviousdownloads.Text = "" Then btnclearhist.Text = "Download History Cleared" Else btnclearhist.Text = "Clear Download History"
End Sub
'Downloading
Public Sub adddownload(ByVal INname As String, ByVal INsource As String, ByVal INsize As Integer)
number = number + 1
size_(number) = INsize
source(number) = INsource
name_(number) = INname
tmrdownloadspeed.Interval = 1024 / speed
updatequeuetext()
tmrdownloadspeed.Start()
pnldownloads.Dock = DockStyle.Fill
End Sub
Private Sub tmrdownloadspeed_Tick(sender As Object, e As EventArgs) Handles tmrdownloadspeed.Tick
lbldownloadingitems.Text = name_(current) & " FROM " & source(current) & " - " & Math.Round(progress, 0) & "%"
If progress >= 100 Then
savedownload(name_(current), size_(current), source(current))
tmrdownloadspeed.Stop()
If number > current Then
current = current + 1
progress = 0
lbldownloadingitems.Text = "..."
lblqueueddownloads.Text = ""
updatequeuetext()
tmrdownloadspeed.Start()
Else
lbldownloadingitems.Text = "No Downloads currently in progress."
progress = 0
number = 0
current = 1
End If
Else
progress = progress + (100 / size_(current))
End If
End Sub
Private Sub updatequeuetext()
If number > current Then
Dim i As Integer = 1
If i <= (number - current) Then
If lblqueueddownloads.Text = "No downloads currently queued" Then
lblqueueddownloads.Text = name_(current + i) & " FROM " & source(current + i)
Else
lblqueueddownloads.Text = lblqueueddownloads.Text + vbCrLf + name_(current + i) & " FROM " & source(current + i)
End If
i = i + 1
End If
End If
End Sub
'Save
Private Sub savedownload(ByVal OUTname As String, ByVal OUTsize As Integer, ByVal OUTsource As String)
Select Case OUTname
Case "LinuxMint7.skn"
If (Not System.IO.Directory.Exists(filepath)) Then
System.IO.Directory.CreateDirectory(filepath)
System.IO.File.WriteAllBytes(filepath & "\" & OUTname, My.Resources.skinlinuxmint7)
Else
System.IO.File.WriteAllBytes(filepath & "\" & OUTname, My.Resources.skinlinuxmint7)
End If
Case "Industrial.skn"
If (Not System.IO.Directory.Exists(filepath)) Then
System.IO.Directory.CreateDirectory(filepath)
System.IO.File.WriteAllBytes(filepath & "\" & OUTname, My.Resources.skinindustrial)
Else
System.IO.File.WriteAllBytes(filepath & "\" & OUTname, My.Resources.skinindustrial)
End If
Case Else
If (Not System.IO.Directory.Exists(filepath)) Then
System.IO.Directory.CreateDirectory(filepath)
writefile = New StreamWriter(ShiftOSPath + "Shiftum42\Drivers\HDD.dri")
writefile.WriteLine(OUTname)
writefile.WriteLine(OUTsize)
writefile.Close()
Else
writefile = New StreamWriter(ShiftOSPath + "Shiftum42\Drivers\HDD.dri")
writefile.WriteLine(OUTname)
writefile.WriteLine(OUTsize)
writefile.Close()
End If
File_Crypt.EncryptFile(ShiftOSPath + "Shiftum42\Drivers\HDD.dri", filepath & "\" & OUTname, ShiftOSDesktop.sSecretKey)
End Select
lblpreviousdownloads.Text = lblpreviousdownloads.Text & vbCrLf & OUTname & " From " & OUTsource
ShiftOSDesktop.downloadmanagerhistory = lblpreviousdownloads.Text
btnclearhist.Text = "Clear Download History"
End Sub
'Settings
Private Sub txtspeedlimiter_TextChanged(sender As Object, e As EventArgs) Handles txtspeedlimiter.TextChanged
If IsNumeric(txtspeedlimiter.Text) Then
Try
speed = txtspeedlimiter.Text
Catch ex As Exception
speed = 2147483647
txtspeedlimiter.Text = 2147483647
End Try
Else
txtspeedlimiter.Text = 0
End If
End Sub
Private Sub btnclearhist_Click(sender As Object, e As EventArgs) Handles btnclearhist.Click
lblpreviousdownloads.Text = ""
ShiftOSDesktop.downloadmanagerhistory = ""
btnclearhist.Text = "Download History Cleared"
End Sub
Private Sub btnsavefolder_Click(sender As Object, e As EventArgs) Handles btnsavefolder.Click
File_Opener.openextention = "Dir"
File_Opener.showcontents()
File_Opener.openingprogram = "download manager"
File_Opener.Show()
End Sub
End Class

413
ShiftOS/File Opener.Designer.vb generated
View file

@ -1,413 +0,0 @@
<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("Microsoft Sans Serif", 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(95, 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")
Me.ImageList1.Images.SetKeyName(13, "iconins.png")
Me.ImageList1.Images.SetKeyName(14, "icontrm.png")
Me.ImageList1.Images.SetKeyName(15, "iconsaa 2.png")
Me.ImageList1.Images.SetKeyName(16, "iconflood.png")
Me.ImageList1.Images.SetKeyName(17, "iconurl.png")
Me.ImageList1.Images.SetKeyName(18, "iconurls.png")
Me.ImageList1.Images.SetKeyName(19, "iconsaag.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

421
ShiftOS/File Opener.resx
View file

@ -1,421 +0,0 @@
<?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>17, 57</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
QQAAAk1TRnQBSQFMAgEBFAEAAYABAQGAAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAfwDAAEBAQABCAUAAWABpRgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
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/AP8A/wD/AP8A
/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A6QAK/yAACv8/AAfsCgAJ/xAA
Cv8BAAr/AQAB7AP/EAAK/wEACv8BAAHsA/8QABr/EAAI7AgACv8QAAn/AQAM/wEAAewC/xAACf8BAAz/
AQAB7AL/EAAH/wEAAf8DAAL/AQAD/wEAAf8BAAP/AQAB/xAACOwEAAbsCP8QAAn/AQAM/wEAAewC/xAA
Cf8BAAz/AQAB7AL/EAAM/wEAAf8BAAP/AQAB/wEAA/8BAAH/EAAI7AIACuwG/xAACP8BAA3/AQAB7AL/
EAAI/wEADf8BAAHsAv8QAAr/AgAD/wMAA/8DAAL/EAAE7AL/AuwBAAPsAgAC7AL/A+wF/xAAB/8BAAP/
AQAK/wEAAewC/xAAB/8BAAP/AQAK/wEAAewC/xAACf8BAAX/AQAB/wEAA/8BAAH/AQAC/xAAAewC/wHs
BP8D7AMAAuwD/wPsBP8QAAf/AQAC/wIAAv8BAAL/AQAC/wEAAf8BAAHsAv8QAAf/AQAC/wIAAv8BAAL/
AQAC/wEAAf8BAAHsAv8QAAr/AwAD/wEABf8BAAP/EAAD/wHsA/8D7AQAAuwBAAP/A+wD/xAACP8CAAHs
AQAC/wEAAv8BAAL/AQAB/wEAAewC/xAACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/xAAGv8QAAP/
AewD/wLsBQAC7AEABP8C7AP/EAAL/wEAAv8BAAL/AQAC/wIAAewD/xAAC/8BAAL/AQAC/wEAAv8CAAHs
A/8QABr/EAAD/wHsAv8C7AH/BQAC7AIABP8C7AL/EAAL/wEAAv8BAAL/AwAB7AX/EAAL/wEAAv8BAAL/
AwAB7AX/EAAa/xAAA/8B7AL/AuwB/wQABOwDAAL/AuwB/xEAC/8BAAL/AwAB7Aj/EAAL/wEAAv8DAAHs
CP8QABr/EAAD/wHsAv8S7BIAC/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QABr/EAAD/wHsAv8S7BIA
C/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QAAP/FAAD/xAAA/8C7AH/AuwC/wMABOwFAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BABL/AQAD/xAABP8B7AH/AuwD/wMAAuwGAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BAAr/BwAB/wEAA/8QAAT/AewC/wLsAv8DAALsBQAC7BMA
Av8J/AEAAv8BAAHsCv8QAAL/CewBAAL/AQAB7Ar/EAAD/wEACv8BAAX/AQAB/wEAA/8QAAT/AewC/wPs
A/8BAALsBAAD7BMADP8CAAHsC/8QAAz/AgAB7Av/EAAD/wEAAf8IAAH/AQAF/wEAAf8BAAP/EAAE/wHs
A/8D7AP/AuwDAAPsFAAD/wT8Av8B/AT/AfwL/xAAA/8E7AL/AewE/wHsC/8QAAP/AQAB/wEABv8BAAH/
BwAB/wEAA/8QAAT/AewE/wPsAv8C7AL/A+wVAAL/AfwE/wH8Af8B/AT/AfwL/xAAAv8B7AT/AewB/wHs
BP8B7Av/EAAD/wEAAf8BAAb/AQAJ/wEAA/8QAAT/AewF/wrsBf8RAAL/AfwE/wH8Af8B/AT/AfwL/xAA
Av8B7AT/AewB/wHsBP8B7Av/EAAD/wEAAf8BAAb/AQAB/wUAA/8BAAP/EAAE/wHsB/8G7Aj/EAAC/wH8
BP8B/AH/AvwD/wH8C/8QAAL/AewE/wHsAf8C7AP/AewL/xAAA/8BAAH/AQAB/wYAAf8BAAT/AgAB/wEA
A/8QAAX/AewU/xAAAv8B/AT/AfwB/wH8Af8C/AH/AfwL/xAAAv8B7AT/AewB/wHsAf8C7AH/AewL/xAA
A/8BAAH/AQAB/wIAA/8BAAn/AQAD/xAABf8B7BT/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wEABv8BAAH/BAAB/wIAAf8BAAP/EAAF/wHsFP8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BAAH/CAAF/wIAAv8BAAP/EAAF/wLsE/8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BABL/AQAD/xAABv8B7BP/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wcACv8BAAP/EAAG/wLsEv8QABr/EAAa/xAAA/8BAAH/AQAF/wEAA/8GAAH/AQAD/xAA
B/8B7BL/EAAa/xAAGv8QAAP/AQAB/wEABf8BAAH/BQAE/wEAA/8QAAj/AewR/xAAGv8QABr/EAAD/wEA
Af8HAAr/AQAD/xAAA/8BAAP/AQAC7AIAA/8CAAP/AwAD/xAAGv8QABr/EAAD/wEAEv8BAAP/EAAD/wEA
A/8BAAH/AuwB/wEAAf8BAAL/AQAB/wEAAv8BAAP/EAAa/xAAGv8QAAP/FAAD/xAAA/8CAAL/AQAB/wEA
Av8BAAH/AQAC/wEAAv8DAAP/EAAa/xAAGv8QAAP/AQAS/wEAA/8QAAP/AQAD/wEAAv8CAAP/AgAF/wEA
A/8QABr/EAAa/xAAA/8BABL/AQAD/xAAA/8DAAH/AQAO/wEAA/8QABr/EAAa/xAAA/8UAAP/EAAa/xAA
Gv8QABr/EAAa/xAAD/8B9AT/FgAU/xYAFP8WAA//AfQE/xYAFP8BAAL/AuwRABT/AQAC/wLsEQAU/wEA
Av8C7BEAFP8BAAT/EQAU/wEAAf8C7BIAFP8BAAH/AuwSABT/AQAB/wLsEgAU/wEAA/8SABT/AQAC7BMA
FP8BAALsEwAU/wEAAuwTABT/AQAC/xMAFP8BAAHsFAAU/wEAAewUABT/AQAB7BQAFP8BAAH/FAAU/xYA
FP8WABT/FgAU//8AkQAa/xAAGv8QABr/OgAK/wEAAf8DAAH/AQAC/wEAAf8DAAL/EAAJ/wEAAv8BAAL/
AQAC/wEAAf8BAAP/AQAB/xAAB/8BAAH/AwAC/wEAA/8BAAH/AQAD/wEAAf86AA3/AQAC/wEAAf8CAAT/
AQAB/xAADP8BAAL/AQAC/wEAAf8BAAP/AQAB/xAADP8BAAH/AQAD/wEAAf8BAAP/AQAB/wkAKP8JAA3/
AQAC/wQAAv8CAAL/EAAM/wEAAv8DAAL/AQAD/wEAAf8QAAr/AgAD/wMAA/8DAAL/CQAo/wkADf8BAAL/
AgAB/wEAAf8BAAT/EAAM/wEAAv8BAAL/AQAB/wEAAf8BAAH/AQAB/xAACf8BAAX/AQAB/wEAA/8BAAH/
AQAC/wkAA/8L7AT/AgAG/wIABv8CAAT/CQAM/wMAAf8BAAL/AQAC/wMAAf8QAAv/AwAB/wMAAv8CAAH/
AgAB/xAACv8DAAP/AQAF/wEAA/8JABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/xAAGv8QABr/
CQAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAa/wkAEP8BAATsAQAC/wEABOwBAAL/
AQAE7AEAAv8JABr/OgAa/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/zoAGv8JABL/
AgAG/wIABv8CAAT/CQAa/zoABP8U7AL/CQAo/wkAGv86AAP/FAAB7AL/CQAo/wkAGv86AAP/AQAL/wfs
AQAB7AL/CQAD/wvsBP8CAAb/AgAG/wIABP8JABr/OgAD/wEACv8HAAHsAQAB7AL/CQAR/wEAAuwBAAT/
AQAC7AEABP8BAALsAQAD/wkACf8HAAr/OgAD/wEAAv8I7AEABf8BAAHsAQAB7AL/CQAC/wvsA/8BAATs
AQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAD/wEAAf8IAAHsAQAF/wEAAewBAAHsAv8JABD/AQAE7AEA
Av8BAATsAQAC/wEABOwBAAL/CQAa/zoAA/8BAAH/AQAG/wEAAewHAAH/AQAB7AL/CQAD/wvsA/8BAALs
AQAE/wEAAuwBAAT/AQAC7AEAA/8JAAz/AQAN/zoAA/8BAAH/AQAG/wEAAewI/wEAAewC/wkAEv8CAAb/
AgAG/wIABP8JAAv/AwAM/zoAA/8BAAH/AQAG/wEAAewFAAP/AQAB7AL/CQAo/wkACv8BAAH/AQAB/wEA
C/86AAP/AQAB/wEAAf8GAAHsAQAE/wIAAf8BAAHsAv8JACj/CQAJ/wEAAv8BAAL/AQAK/zoAA/8BAAH/
AQAB/wIAA/8BAAHsCP8BAAHsAv8JAAP/C+wE/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAb/
AQAB7AQAAf8CAAH/AQAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkADP8BAA3/OgAD/wEA
Af8IAAX/AgAC/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/
AQAC/wfsCf8BAAHsAv8JABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/AQAB/wcA
AewJ/wEAAewC/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAM/wEADf86AAP/AQAB/wEA
Bf8BAAHsAv8GAAH/AQAB7AL/CQAS/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAX/AQAB7AUA
BP8BAAHsAv8JACj/CQAa/zoAA/8BAAH/BwAK/wEAAewC/wkAKP8JABr/OgAD/wEAEv8BAAHsAv8JAAP/
C+wE/wIABv8CAAb/AgAE/wkAGv86AAP/FAAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkA
Gv86AAP/AQAS/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAa/xEAAv8nAAP/
AQAS/wEAAewC/wkAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/EQAD/wQAAf8CAAH/AgAB/wEA
Af8DAAH/FQAD/xQAA/8JAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkAGv8SAAP/AwAB/wIA
Af8CAAH/AQAB/wMAAf8VABr/CQAS/wIABv8CAAb/AgAE/wkAD/8B9AT/GQAD/wIAAf8CAAH/AgAB/wEA
Af8DAAH/FQAP/wH0BP8PACj/CQAU/wEAAv8C7BUAA/8BAAH/AgAD/wIAAf8DAAH/FQAU/wEAAv8C7AoA
KP8JABT/AQAB/wLsFQAD/wIAAf8CAAH/AgAB/wEAAf8DAAH/AQAE/wHsDwAU/wEAAf8C7DwAFP8BAALs
FQAD/wMAAf8CAAH/AgAB/wEAAf8BAAH/AQAB/wEAA/8B7BAAFP8BAALsPQAU/wEAAewVAAP/AwAD/wEA
A/8CAAL/AQAC/wEAAv8B7BEAFP8BAAHsPgAU/xcAAv8TAAH/AewSABT/gAAB7OIAIf8JACH/MwAh/wkA
Bf8K7BL/CQAh/zMAIf8JAAT/DOwR/wkAIf8zACH/CQAD/wPsCAAD7BD/CQAD/xsAA/8zAAT/B+wE/w/s
A/8JAAL/A+wBAAH/BgAB/wEAA+wP/wkAA/8BABnsAQAD/zMAD/8B7A3/AewD/wkAAf8D7AEAAf8IAAH/
AQAD7A7/CQAD/wEAGewBAAP/MwAD/wfsBf8B7A3/AewD/wkAAf8C7AEAAf8CAAH/BAAB/wIAAf8BAALs
Dv8JAAP/AQAC7BX/AuwBAAP/BQAo/wYAD/8P7AP/CQAB/wLsAwAB/wYAAf8DAALsDv8JAAP/AQAZ7AEA
A/8FACj/BgAh/wkAAf8C7AUAAf8CAAH/BQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAAv8kAAL/BgAE/wfs
BP8P7AP/CQAB/wLsBgAC/wYAC+wF/wkAA/8BABnsAQAD/wUAAv8kAAL/BgAP/wHsDf8B7AP/CQAB/wLs
BQAB/wIAAf8FAAzsBP8JAAP/AQAC7BX/AuwBAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/B+wF/wHs
Df8B7AP/CQAB/wLsAwAB/wYAAf8CAAPsCAAD7AP/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQA
Af8BAAH/BAAB/wIAAv8GAA//D+wD/wkAAf8C7AEAAf8CAAH/BAAB/wIAA+wBAAH/BgAB/wEAA+wC/wkA
A/8BAATsEf8E7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAIf8JAAH/A+wBAAH/
CAAD7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
Av8GAAT/B+wE/w/sA/8JAAL/A+wBAAH/BgAB/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BABns
AQAD/wUAAv8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/wHsDf8B7AP/CQAD/wPsCAAC7AMA
Af8GAAH/AwAC7AH/CQAD/xsAA/8FAAL/DgAG/wEABv8BAAb/AgAC/wYAA/8H7AX/AewN/wHsA/8JAAT/
DOwFAAH/AgAB/wUAAuwB/wkADv8FAA7/BQAC/yQAAv8GAA//D+wD/wkABf8L7AYAAv8GAALsAf8JAA//
A+wP/wUAAv8kAAL/BgAh/wkADv8C7AUAAf8CAAH/BQAC7AH/CQAh/wUAKP8GAAT/B+wE/w/sA/8JAA7/
AuwDAAH/BgAB/wMAAuwB/wkAA/8LAAX/CwAD/wUAKP8GAA//AewN/wHsA/8JAA7/AuwBAAH/AgAB/wQA
Af8CAAH/AQAC7AH/CQAD/wEAC+wD/wvsAQAD/wUAKP8GAAP/B+wF/wHsDf8B7AP/CQAO/wPsAQAB/wgA
Af8BAAPsAf8JAAP/AQAZ7AEAA/8FACj/BgAP/w/sA/8JAAn/CewBAAH/BgAB/wEAA+wC/wkAA/8BABns
AQAD/wUAAv8k7AL/BgAh/wkACP8L7AgAA+wD/wkAA/8BAATsEf8E7AEAA/8FAAL/JOwC/wYABP8H7AT/
D+wD/wkAB/8D7AcADOwE/wkAA/8BABnsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/
CQAG/wPsAQAB/wYAAf8K7AX/CQAD/wEAAuwV/wLsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAD/wfs
Bf8B7A3/AewD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/BQAC/w7sBgAB7AYAAewGAALs
Av8GAA//D+wD/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAC/w7s
BgAB7AYAAewGAALsAv8GACH/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHs
BgAB7AYAAuwC/wYABP8H7AT/D+wD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/CQAF/wLsBgAC/wYAAuwK/wkAA/8BABnsAQAD/wUA
Av8k7AL/BgAD/wfsBf8B7A3/AewD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8k7AL/BgAP/w/sA/8JAAX/AuwDAAH/BgAB/wMAAuwK/wkAA/8BABnsAQAD/wUAKP8GACH/CQAF/wLs
AQAB/wIAAf8EAAH/AgAB/wEAAuwK/wkAA/8BAALsFQAC7AEAA/8FACj/BgAE/wfsBP8P7AP/CQAF/wPs
AQAB/wgAAf8BAAPsCv8JAAP/AQAZ7AEAA/8zAA//AewN/wHsA/8JAAb/A+wBAAH/BgAB/wEAA+wL/wkA
A/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAf/A+wIAAPsDP8JAAP/GwAD/zMAD/8P7AP/CQAI/wzs
Df8JACH/MwAh/wkACf8K7A7/CQAh/zMAIf8JACH/CQAh/zMAIf//AKwAAfQh7wEHAfIB/wUAAfQh7wEH
AfIB/1kAAfIBAAFDHhUBEAERAbwB9AUAAfIVAAYOBgABEQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHy
FAABDgEVARQCEwEUAREBDgQAAQ4BFQG8AfQtACjsBAAB8gEOAfcevAHsARUBvAH0BQAB8hQAAUMB9wEH
Au8B9wFtARAEAAEOARUBvAH0LQAP7AoAD+wEAAHyAQ4B9x68AewBFQG8AfQFAAHyFAABQwEHAe8B7AES
ARMBQwEOBAABDgEVAbwB9C0AD+wBAAj/AQAP7AQAAfIBDgH3BLwB9xTsAe8EvAHsARUBvAH0BQAB8gMA
AQ4MQwEQAwABQwEHAe0BFQgAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETEQ4DAAHs
BLwB7AEVAbwB9AUAAfIDAAERDOwBbQMAAUMBBwGSARMBDwEOBgABDgEVAbwB9AMAKP8CAA/sAQAI/wEA
D+wEAAHyAQ4B9wS8ARMBFA/vARMDAAHsBLwB7AEVAbwB9AUAAfIEAAEOARAJEQEQAQ4DAAFDAQcC8gHx
AQcBEAUAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITD7wB6gMAAewEvAHsARUBvAH0
BQAB8gQAAQ4B6wnsARUEAAFDAQcB7wHsAW0B6gEOBQABDgEVAbwB9AMAKP8CAA/sAQAI/wEAD+wEAAHy
AQ4B9wS8AhMOvAHsAUMDAAETAZIDvAHsARUBvAH0BQAB8gQAAQ4B7wK8AQcF7AH3AeoEAAFDAQcBkgET
Ag8BDgUAAQ4BFQG8AfQDAA//AQAY/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw28AQcBFQEOAwABDgHq
A7wB7AEVAbwB9AUAAfIEAAEOAe8CvAHvAg4CDwEAAewB6gQAAUMBBwHvAesBEgETARABDgQAAQ4BFQG8
AfQDAA//AgAX/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw68AQcBEgMAAesBBwO8AewBFQG8AfQFAAHy
BAABDgHvArwB7wEOAewBBwHtAQ4B7AHqBAABEQGSAe8BBwLvARQBDgQAAQ4BFQG8AfQDAA//AwAW/wIA
D+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8AfcB6gEOAesB7wS8AewBFQG8AfQFAAHyBAABDgHvAewBFAEV
AQABEQEUAUMBAAHsAeoEAAEOAUMBFQIUARUBDwUAAQ4BFQG8AfQDAA//BAAV/wIAD+wBAAj/AQAP7AQA
AfIBDgH3BLwCEwa8AewB6wHsB7wB9wFtAQcFvAHsARUBvAH0BQAB8gQAAQ4B7wETARAC6gEPARAC6gGS
AeoQAAEOARUBvAH0AwAP/wUAFP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8
AfQFAAHyBAABDgHvARMBFQL3ARUBEgK8AQcB6gIAAQ4MDwEOAQABQwG8AfQDAA//BgAT/wIAD+wBAAj/
AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAe8BEwEAAg4BAAESArwBBwHq
AgAB6wztAUMBAAERAbwB9AMAD/8HABL/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHs
ARUBvAH0BQAB8gQAAQ4C7wTtAe8CvAEHAeoCAAEQAUMKFQERAQ4BAAERAbwB9AMAD/8IABH/AgAP7AEA
CP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B6gltAUMDAAEVCW0BEgEO
AgABEQG8AfQDAA//CQAQ/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwEHAfcEkgERAQABEAWSAfcBBwi8
AewBFQG8AfQFAAHyEwABbQi8AQcBkgEOAgABEQG8AfQDAA//CgAP/wIAD+wBAAj/AQAP7AQAAfIBDgH3
BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAArs
BgAI/wcACewEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAfcGQwHtAQcBkgEO
AgABEQG8AfQDAA//CQAQ/wIACuwBABP/AQAJ7AQAAfIBDgH3BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0
BQAB8hMAAW0B7wZtAfcBBwGSAQ4CAAERAbwB9AMAD/8IABH/AgAL7AEAEf8BAArsBAAB8gEOAfcBvAEH
Au0CQwHsAQ4MAAEPAW0E7QH3A7wB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8HABL/
AgAM7AEAD/8BAAvsBAAB8gEOAfcBvAHsGAABEwO8AewBFQG8AfQFAAHyBAAMDgMAAW0IvAEHAZIBDgIA
AREBvAH0AwAP/wYAE/8CAA3sAQAN/wEADOwEAAHyAQ4B9wG8AewYAAETA7wB7AEVAbwB9AUAAfIDAAER
DOwB6gIAAW0IvAEHAZIBDgIAAREBvAH0AwAP/wUAFP8CAA7sAQAL/wEADewEAAHyAQ4B9wG8Ae8E6wFt
AQ4MAAEPARME6wHtA7wB7AEVAbwB9AUAAfIDAAEOARQLEwFDAgABbQi8AQcBkgEOAgABQwG8AfQDAA//
BAAV/wIAD+wBAAn/AQAO7AQAAfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOARQIEgET
AREDAAEUCewBbQEOAQABDgEVAbwB9AMAD/8DABb/AgAQ7AEAB/8BAA/sBAAB8gEOAfcGvAHvAQ4MAAER
AewIvAHsARUBvAH0BQAB8gQAAQ4B7wIHBbwBBwHvAeoQAAEOARUBvAH0AwAP/wIAF/8CABHsAQAF/wEA
EOwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8AfQFAAHyBAABDgHvAW0B6gS8Ae8BEAHsAeoGAAEQ
AUMDFQERAQ4DAAEOARUBvAH0AwAP/wEAGP8CABLsAQAD/wEAEewEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8
AewBFQG8AfQFAAHyBAABDgHvAZIBbQHqAQcBvAHtARIB7AH3AeoGAAHrApIC7QFtAREDAAEOARUBvAH0
AwAo/wIAE+wBAAH/AQAS7AQAAfIBDgH3BrwBBwHqBBMBDgMAARUDEwFtAfcIvAHsARUBvAH0BQAB8gQA
AQ4B7wG8AZIBEgLsAm0CBwHqBQABDgGSAQcB9wLrARIBEAMAAQ4BFQG8AfQDACj/AgAU7AEAE+wEAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8BvAEHAZIBEQEPAeoB7wG8AQcB6gUAAQ4CkgHq
BwABDgEVAbwB9AMAKP8CACjsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwB7AER
Ae8BBwHrAUMCBwHqBQABDgKSAeoHAAEOARUBvAH0AwAo/wIAKOwEAAHyAQ4B9wy8ARUDAAGSDbwB7AEV
AbwB9AUAAfIEAAEOAe8B7AHqAe0BBwG8Ae8B7AEUAe0B6gUAAQ4BkgK8Au8BFAQAAQ4BFQG8AfRZAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8C7AS8Ae8B6gGSAeoFAAEOAZICBwLtARUEAAEO
ARUBvAH0LQAP7B0AAfIBDgH3DLwBEgMQAfcNvAHsARUBvAH0BQAB8gQAAQ4B7Aj3Ae0BEwUAAQ4BkgH3
AW0CDgUAAQ4BFQG8AfQtAA7sHgAB8gEOAfcMvAQHDrwB7AEVAbwB9AUAAfIFAAoOBgABDgGSAe8B7AIV
ARABDgMAAQ4BFQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHyFQABDgHsAu8CkgESAQ8EAAERAbwB9FkA
AfIBAAESHm0BFAFDAbwB9AUAAfIWAAEVAeoDbQFDAQ4EAAERAbwB9FkAAfMhbQHsAfEB9AUAAfMhbQHs
AfEB9P8AggAh/wkAIf9dACH/CQAh/10AIf8JACH/LwAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkA
If8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JAAP/GuwE/wUAKOwCACjsBgAO/wTs
D/8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYAIf8JAAT/GuwD/wUAJOwE/wIAKOwGACH/
CQAh/wUAIewH/wIAKOwGACH/CQAh/wUABf8a7An/AgAo7AYADv8BkgPsD/8JAAP/GuwE/wUACP8W7AX/
AewE/wIAKOwGAA7/AZID7A//CQAh/wUAD/8L7An/AuwD/wIAKOwGAA7/AZID7AHyDv8JACH/BQAe/wHs
Bf8B7AP/AgAo7AYADv8BBwPsAbwO/wkABP8a7AP/BQAe/wLsBP8C7AL/AgAo7AYADv8B8QTsDv8JACH/
BQAX/wPsBf8C7AT/AewC/wIAKOwGAA//BOwB7w3/CQAh/wUAGf8C7AX/AewE/wHsAv8CACjsBgAP/wHx
BOwB7wz/CQAD/xrsBP8FABr/AewF/wHsBP8B7AL/AgAo7AYAEP8BvATsAe8B9Ar/CQAh/wUAGv8C7AT/
AewE/wLsAf8CACjsBgAR/wG8BOwB7QH0Cf8JACH/BQAT/wTsBP8C7An/AewB/wIAKOwGABL/AfAE7AGS
Cf8JAAT/GuwD/wUAFv8C7AX/AewK/wIAKOwGABP/AfIE7AHvCP8JACH/BQAX/wHsCf8G7AH/AgAo7AYA
FP8B8gTsAfIH/wkAIf8FABf/AuwG/wnsAgAo7AYAFf8BvAPsAe8H/wkAA/8a7AT/BQAQ/wHsB/8C7AT/
CuwCACjsBgAW/wTsB/8JACH/BQAQ/wPsBv8C7AL/C+wCACjsBgAG/wHzAe8BkgHsAe8L/wGSA+wH/wkA
If8FABL/A+wH/wzsAgAo7AYABv8B9APsAe0L/wHtA+wH/wkABP8a7AP/BQAU/wLsBv8M7AIAKOwGAAf/
BOwB8gn/AfMD7AHtB/8JACH/BQAV/wLsBP8N7AIAKOwGAAf/AQcD7AH3Cf8B9wPsAe8H/wkAIf8FAA3/
BOwF/wPsAv8N7AIAKOwGAAf/AfQE7AHvB/8B7wTsAfMH/wkAA/8a7AT/BQAQ/wLsCf8N7AIAKOwGAAj/
AQcE7AGSAfAB9AH/AfQB8AGSBOwBBwj/CQAh/wUAEf8B7An/DewCACjsBgAJ/wHvDewB7wn/CQAh/wUA
Ef8I7AL/DewCACjsBgAK/wHwC+wB8Ar/CQAE/xrsA/8FABv/DewwAAv/AfQBvAH3BOwB7QHvAbwM/wkA
If8FABz/DOwCAA/sHwAh/wkAIf8FABz/DOwCAA7sIAAh/wkAA/8a7AT/XQAh/wkAIf9dACH/CQAh/10A
If8JACH/1gABQgFNAT4HAAE+AwABKAMAAagDAAH8AwABAQEAAQEFAAGgARcWAAP//wD/AP8A9AAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAT8B/wGAAgABDwH/AeACAAEDAf8B+AMAAf8DAAH+AwABfwH/AYACAAEfAf8B4AIA
AQcB/wH4AgABAQH/AwAB/gMAAv8BgAIAAT8B/wHgAgABDwH/AfgCAAEDAf8DAAH+AgABAQL/AYACAAF/
Af8B4AIAAR8B/wH4AgABBwH/AwAB/gIAAQMC/wGAAgAC/wHgAgABPwH/AfgCAAEPAf8DAAH+AgABBwL/
AYABAAEBAv8B4AIAAX8B/wH4AgABHwH/AwAG/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAb/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwMABv8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMA
AX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGA
AgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHg
AgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4
AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/
AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgA
AT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABDwH/AeACAAEBAf8B+AMAAf8IAAE/AYACAAEfAf8B4AIAAQEB/wH4AgABAQH/CAABPwGA
AgABPwH/AeACAAEBAf8B+AIAAQMB/wMABv8BgAIAAX8B/wHgAgABAwH/AfgCAAEHAf8DAAb/AYACAAL/
AeACAAEHAf8B+AIAAQ8B/wMABv8BgAEAAQEC/wHgAgABDwH/AfgCAAEfAf8DAAHwAwABAQH8BAABfwX/
AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8
BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMA
AQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/
Bf8BwAMAAQcDABX/AwAK/wH+BAABDwGAAwABAwMACv8B/gQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGA
AwABAwMABf8BwAQAAQ4EAAEPAYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMDAAX/AcABAAEfAv8B/gQA
AQ8BgAMAAQMDAAX/AcABAAE/Av8B/gQAAQ8BgAMAAQMDAAX/AcABAAF/Av8B/gQAAQ8BgAMAAQMDAAr/
Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMAFf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQA
AR8F/wMABf8B/AQAAX8EAAEfBf8IAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwKAAF/
Av8B/AQAAX8EAAEcCgAD/wH8BAABfwQAARwJAAEBA/8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/BAABHwX/
AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAs=
</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>

857
ShiftOS/File Opener.vb
View file

@ -1,857 +0,0 @@
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
Public ShiftOSPath As String = "C:\ShiftOS\"
Dim currentLocation As String
Dim itemsdeleted As Integer
Dim filetype As Integer
Public openextention As String
Public openingprogram As String
Dim lastselectedfilename As String
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
lbextention.Text = openextention
showcontents()
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.fileopenername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtfileskimmericon = True Then ' Change to program's icon
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
Public Sub resettitlebar()
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
showcontents()
currentLocation = "C:/ShiftOS"
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 ".mp3"
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 ".stp"
filetype = 13
Case ".trm"
filetype = 14
Case ".sh"
filetype = 14
Case ".bat"
filetype = 14
Case ".command"
filetype = 14
Case ".saa"
filetype = 15
Case ".flood"
filetype = 16
Case ".url"
filetype = 17
Case ".urls"
filetype = 18
Case Else
filetype = 1
End Select
Select Case openingprogram
Case "textpad"
If fileex = ".txt" Then
lvfiles.Items.Add(filename, filetype)
End If
Case "shortcut"
If Not fileex = ".sct" 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
Case "installer"
If fileex = ".stp" Then
lvfiles.Items.Add(filename, filetype)
End If
Case "orcwrite"
If fileex = ".owd" Then
lvfiles.Items.Add(filename, filetype)
End If
If fileex = ".rtf" 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/" Or 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
currentLocation = lbllocation.Text
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
'Folder Selecter
Select Case openingprogram
Case "download manager"
Downloadmanager.filepath = lbllocation.Text.Replace("/", "\")
Downloadmanager.btnsavefolder.Text = lbllocation.Text
Me.Close()
End Select
Else
'File Selecter
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 "shortcut"
Me.Close()
infobox.title = "Generate Shortcut"
infobox.textinfo = "Please enter a name for your Shortcut."
infobox.state = "generatingshortcut"
infobox.txtuserinput.Visible = True
infobox.txtString = currentLocation & "/" & lvfiles.SelectedItems(0).Text
infobox.Show()
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"
Skin_Loader.loadingsknversion = ""
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents)
System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, ShiftOSPath + "Shiftum42\Skins\Preview\")
If File.Exists(ShiftOSPath + "Shiftum42\Skins\Preview\SKN-version") Then
Dim sr As StreamReader = New StreamReader(ShiftOSPath + "Shiftum42\Skins\Preview\SKN-version")
Dim i As String = sr.ReadLine
Skin_Loader.loadingsknversion = sr.ReadLine
sr.Close()
End If
If Skin_Loader.loadingsknversion = "2.0 disposal-free skinning" Then
Skin_Loader.setuppreview2_0()
Skin_Loader.skinloaded = True
Else
My.Computer.FileSystem.WriteAllText(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False)
Skin_Loader.loadlines = IO.File.ReadAllLines(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat")
Skin_Loader.loadskintopreview()
Skin_Loader.skinloaded = True
End If
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(ShiftOSPath + "Shiftum42\Icons") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Icons", FileIO.DeleteDirectoryOption.DeleteAllContents)
System.IO.Compression.ZipFile.ExtractToDirectory(lbllocation.Text & "\" & lastselectedfilename, ShiftOSPath + "Shiftum42\Icons")
ShiftOSDesktop.setupicons()
Icon_Manager.needtosetupdesktop = True
Icon_Manager.loadsettings()
Me.Close()
Case "skinshifter"
Skinshifter.lbskinlist.Items.Add(lbllocation.Text & "/" & lastselectedfilename)
Me.Close()
Case "installer"
Installer.txtfilepath.Text = (lbllocation.Text & "/" & lastselectedfilename)
Me.Close()
Case "orcwrite"
OrcWrite.openfile((lbllocation.Text & "/" & lastselectedfilename))
Me.Close()
Case "download manager"
Downloadmanager.filepath = lbllocation.Text.Replace("/", "\")
Downloadmanager.btnsavefolder.Text = lbllocation.Text
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

425
ShiftOS/File Saver.Designer.vb generated
View file

@ -1,425 +0,0 @@
<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.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel3 = New System.Windows.Forms.Panel()
Me.pnlsaveoptions = New System.Windows.Forms.Panel()
Me.cmbformatchooser = New System.Windows.Forms.ComboBox()
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.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("Microsoft Sans Serif", 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(83, 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
'
'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")
Me.ImageList1.Images.SetKeyName(13, "iconins.png")
Me.ImageList1.Images.SetKeyName(14, "icontrm.png")
Me.ImageList1.Images.SetKeyName(15, "iconsaa 2.png")
Me.ImageList1.Images.SetKeyName(16, "iconflood.png")
Me.ImageList1.Images.SetKeyName(17, "iconurl.png")
Me.ImageList1.Images.SetKeyName(18, "iconurls.png")
Me.ImageList1.Images.SetKeyName(19, "iconsaag.png")
'
'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.cmbformatchooser)
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
'
'cmbformatchooser
'
Me.cmbformatchooser.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmbformatchooser.FormattingEnabled = True
Me.cmbformatchooser.Location = New System.Drawing.Point(463, 11)
Me.cmbformatchooser.Name = "cmbformatchooser"
Me.cmbformatchooser.Size = New System.Drawing.Size(45, 21)
Me.cmbformatchooser.TabIndex = 4
'
'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", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbextention.Location = New System.Drawing.Point(467, 10)
Me.lbextention.Name = "lbextention"
Me.lbextention.Size = New System.Drawing.Size(34, 20)
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(368, 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
'
'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 cmbformatchooser As System.Windows.Forms.ComboBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
End Class

421
ShiftOS/File Saver.resx
View file

@ -1,421 +0,0 @@
<?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>138, 12</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
QQAAAk1TRnQBSQFMAgEBFAEAAYgBAQGIAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAfwDAAEBAQABCAUAAWABpRgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
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/AP8A/wD/AP8A
/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A6QAK/yAACv8/AAfsCgAJ/xAA
Cv8BAAr/AQAB7AP/EAAK/wEACv8BAAHsA/8QABr/EAAI7AgACv8QAAn/AQAM/wEAAewC/xAACf8BAAz/
AQAB7AL/EAAH/wEAAf8DAAL/AQAD/wEAAf8BAAP/AQAB/xAACOwEAAbsCP8QAAn/AQAM/wEAAewC/xAA
Cf8BAAz/AQAB7AL/EAAM/wEAAf8BAAP/AQAB/wEAA/8BAAH/EAAI7AIACuwG/xAACP8BAA3/AQAB7AL/
EAAI/wEADf8BAAHsAv8QAAr/AgAD/wMAA/8DAAL/EAAE7AL/AuwBAAPsAgAC7AL/A+wF/xAAB/8BAAP/
AQAK/wEAAewC/xAAB/8BAAP/AQAK/wEAAewC/xAACf8BAAX/AQAB/wEAA/8BAAH/AQAC/xAAAewC/wHs
BP8D7AMAAuwD/wPsBP8QAAf/AQAC/wIAAv8BAAL/AQAC/wEAAf8BAAHsAv8QAAf/AQAC/wIAAv8BAAL/
AQAC/wEAAf8BAAHsAv8QAAr/AwAD/wEABf8BAAP/EAAD/wHsA/8D7AQAAuwBAAP/A+wD/xAACP8CAAHs
AQAC/wEAAv8BAAL/AQAB/wEAAewC/xAACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/xAAGv8QAAP/
AewD/wLsBQAC7AEABP8C7AP/EAAL/wEAAv8BAAL/AQAC/wIAAewD/xAAC/8BAAL/AQAC/wEAAv8CAAHs
A/8QABr/EAAD/wHsAv8C7AH/BQAC7AIABP8C7AL/EAAL/wEAAv8BAAL/AwAB7AX/EAAL/wEAAv8BAAL/
AwAB7AX/EAAa/xAAA/8B7AL/AuwB/wQABOwDAAL/AuwB/xEAC/8BAAL/AwAB7Aj/EAAL/wEAAv8DAAHs
CP8QABr/EAAD/wHsAv8S7BIAC/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QABr/EAAD/wHsAv8S7BIA
C/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QAAP/FAAD/xAAA/8C7AH/AuwC/wMABOwFAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BABL/AQAD/xAABP8B7AH/AuwD/wMAAuwGAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BAAr/BwAB/wEAA/8QAAT/AewC/wLsAv8DAALsBQAC7BMA
Av8J/AEAAv8BAAHsCv8QAAL/CewBAAL/AQAB7Ar/EAAD/wEACv8BAAX/AQAB/wEAA/8QAAT/AewC/wPs
A/8BAALsBAAD7BMADP8CAAHsC/8QAAz/AgAB7Av/EAAD/wEAAf8IAAH/AQAF/wEAAf8BAAP/EAAE/wHs
A/8D7AP/AuwDAAPsFAAD/wT8Av8B/AT/AfwL/xAAA/8E7AL/AewE/wHsC/8QAAP/AQAB/wEABv8BAAH/
BwAB/wEAA/8QAAT/AewE/wPsAv8C7AL/A+wVAAL/AfwE/wH8Af8B/AT/AfwL/xAAAv8B7AT/AewB/wHs
BP8B7Av/EAAD/wEAAf8BAAb/AQAJ/wEAA/8QAAT/AewF/wrsBf8RAAL/AfwE/wH8Af8B/AT/AfwL/xAA
Av8B7AT/AewB/wHsBP8B7Av/EAAD/wEAAf8BAAb/AQAB/wUAA/8BAAP/EAAE/wHsB/8G7Aj/EAAC/wH8
BP8B/AH/AvwD/wH8C/8QAAL/AewE/wHsAf8C7AP/AewL/xAAA/8BAAH/AQAB/wYAAf8BAAT/AgAB/wEA
A/8QAAX/AewU/xAAAv8B/AT/AfwB/wH8Af8C/AH/AfwL/xAAAv8B7AT/AewB/wHsAf8C7AH/AewL/xAA
A/8BAAH/AQAB/wIAA/8BAAn/AQAD/xAABf8B7BT/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wEABv8BAAH/BAAB/wIAAf8BAAP/EAAF/wHsFP8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BAAH/CAAF/wIAAv8BAAP/EAAF/wLsE/8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BABL/AQAD/xAABv8B7BP/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wcACv8BAAP/EAAG/wLsEv8QABr/EAAa/xAAA/8BAAH/AQAF/wEAA/8GAAH/AQAD/xAA
B/8B7BL/EAAa/xAAGv8QAAP/AQAB/wEABf8BAAH/BQAE/wEAA/8QAAj/AewR/xAAGv8QABr/EAAD/wEA
Af8HAAr/AQAD/xAAA/8BAAP/AQAC7AIAA/8CAAP/AwAD/xAAGv8QABr/EAAD/wEAEv8BAAP/EAAD/wEA
A/8BAAH/AuwB/wEAAf8BAAL/AQAB/wEAAv8BAAP/EAAa/xAAGv8QAAP/FAAD/xAAA/8CAAL/AQAB/wEA
Av8BAAH/AQAC/wEAAv8DAAP/EAAa/xAAGv8QAAP/AQAS/wEAA/8QAAP/AQAD/wEAAv8CAAP/AgAF/wEA
A/8QABr/EAAa/xAAA/8BABL/AQAD/xAAA/8DAAH/AQAO/wEAA/8QABr/EAAa/xAAA/8UAAP/EAAa/xAA
Gv8QABr/EAAa/xAAD/8B9AT/FgAU/xYAFP8WAA//AfQE/xYAFP8BAAL/AuwRABT/AQAC/wLsEQAU/wEA
Av8C7BEAFP8BAAT/EQAU/wEAAf8C7BIAFP8BAAH/AuwSABT/AQAB/wLsEgAU/wEAA/8SABT/AQAC7BMA
FP8BAALsEwAU/wEAAuwTABT/AQAC/xMAFP8BAAHsFAAU/wEAAewUABT/AQAB7BQAFP8BAAH/FAAU/xYA
FP8WABT/FgAU//8AkQAa/xAAGv8QABr/OgAK/wEAAf8DAAH/AQAC/wEAAf8DAAL/EAAJ/wEAAv8BAAL/
AQAC/wEAAf8BAAP/AQAB/xAAB/8BAAH/AwAC/wEAA/8BAAH/AQAD/wEAAf86AA3/AQAC/wEAAf8CAAT/
AQAB/xAADP8BAAL/AQAC/wEAAf8BAAP/AQAB/xAADP8BAAH/AQAD/wEAAf8BAAP/AQAB/wkAKP8JAA3/
AQAC/wQAAv8CAAL/EAAM/wEAAv8DAAL/AQAD/wEAAf8QAAr/AgAD/wMAA/8DAAL/CQAo/wkADf8BAAL/
AgAB/wEAAf8BAAT/EAAM/wEAAv8BAAL/AQAB/wEAAf8BAAH/AQAB/xAACf8BAAX/AQAB/wEAA/8BAAH/
AQAC/wkAA/8L7AT/AgAG/wIABv8CAAT/CQAM/wMAAf8BAAL/AQAC/wMAAf8QAAv/AwAB/wMAAv8CAAH/
AgAB/xAACv8DAAP/AQAF/wEAA/8JABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/xAAGv8QABr/
CQAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAa/wkAEP8BAATsAQAC/wEABOwBAAL/
AQAE7AEAAv8JABr/OgAa/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/zoAGv8JABL/
AgAG/wIABv8CAAT/CQAa/zoABP8U7AL/CQAo/wkAGv86AAP/FAAB7AL/CQAo/wkAGv86AAP/AQAL/wfs
AQAB7AL/CQAD/wvsBP8CAAb/AgAG/wIABP8JABr/OgAD/wEACv8HAAHsAQAB7AL/CQAR/wEAAuwBAAT/
AQAC7AEABP8BAALsAQAD/wkACf8HAAr/OgAD/wEAAv8I7AEABf8BAAHsAQAB7AL/CQAC/wvsA/8BAATs
AQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAD/wEAAf8IAAHsAQAF/wEAAewBAAHsAv8JABD/AQAE7AEA
Av8BAATsAQAC/wEABOwBAAL/CQAa/zoAA/8BAAH/AQAG/wEAAewHAAH/AQAB7AL/CQAD/wvsA/8BAALs
AQAE/wEAAuwBAAT/AQAC7AEAA/8JAAz/AQAN/zoAA/8BAAH/AQAG/wEAAewI/wEAAewC/wkAEv8CAAb/
AgAG/wIABP8JAAv/AwAM/zoAA/8BAAH/AQAG/wEAAewFAAP/AQAB7AL/CQAo/wkACv8BAAH/AQAB/wEA
C/86AAP/AQAB/wEAAf8GAAHsAQAE/wIAAf8BAAHsAv8JACj/CQAJ/wEAAv8BAAL/AQAK/zoAA/8BAAH/
AQAB/wIAA/8BAAHsCP8BAAHsAv8JAAP/C+wE/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAb/
AQAB7AQAAf8CAAH/AQAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkADP8BAA3/OgAD/wEA
Af8IAAX/AgAC/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/
AQAC/wfsCf8BAAHsAv8JABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/AQAB/wcA
AewJ/wEAAewC/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAM/wEADf86AAP/AQAB/wEA
Bf8BAAHsAv8GAAH/AQAB7AL/CQAS/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAX/AQAB7AUA
BP8BAAHsAv8JACj/CQAa/zoAA/8BAAH/BwAK/wEAAewC/wkAKP8JABr/OgAD/wEAEv8BAAHsAv8JAAP/
C+wE/wIABv8CAAb/AgAE/wkAGv86AAP/FAAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkA
Gv86AAP/AQAS/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAa/xEAAv8nAAP/
AQAS/wEAAewC/wkAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/EQAD/wQAAf8CAAH/AgAB/wEA
Af8DAAH/FQAD/xQAA/8JAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkAGv8SAAP/AwAB/wIA
Af8CAAH/AQAB/wMAAf8VABr/CQAS/wIABv8CAAb/AgAE/wkAD/8B9AT/GQAD/wIAAf8CAAH/AgAB/wEA
Af8DAAH/FQAP/wH0BP8PACj/CQAU/wEAAv8C7BUAA/8BAAH/AgAD/wIAAf8DAAH/FQAU/wEAAv8C7AoA
KP8JABT/AQAB/wLsFQAD/wIAAf8CAAH/AgAB/wEAAf8DAAH/AQAE/wHsDwAU/wEAAf8C7DwAFP8BAALs
FQAD/wMAAf8CAAH/AgAB/wEAAf8BAAH/AQAB/wEAA/8B7BAAFP8BAALsPQAU/wEAAewVAAP/AwAD/wEA
A/8CAAL/AQAC/wEAAv8B7BEAFP8BAAHsPgAU/xcAAv8TAAH/AewSABT/gAAB7OIAIf8JACH/MwAh/wkA
Bf8K7BL/CQAh/zMAIf8JAAT/DOwR/wkAIf8zACH/CQAD/wPsCAAD7BD/CQAD/xsAA/8zAAT/B+wE/w/s
A/8JAAL/A+wBAAH/BgAB/wEAA+wP/wkAA/8BABnsAQAD/zMAD/8B7A3/AewD/wkAAf8D7AEAAf8IAAH/
AQAD7A7/CQAD/wEAGewBAAP/MwAD/wfsBf8B7A3/AewD/wkAAf8C7AEAAf8CAAH/BAAB/wIAAf8BAALs
Dv8JAAP/AQAC7BX/AuwBAAP/BQAo/wYAD/8P7AP/CQAB/wLsAwAB/wYAAf8DAALsDv8JAAP/AQAZ7AEA
A/8FACj/BgAh/wkAAf8C7AUAAf8CAAH/BQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAAv8kAAL/BgAE/wfs
BP8P7AP/CQAB/wLsBgAC/wYAC+wF/wkAA/8BABnsAQAD/wUAAv8kAAL/BgAP/wHsDf8B7AP/CQAB/wLs
BQAB/wIAAf8FAAzsBP8JAAP/AQAC7BX/AuwBAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/B+wF/wHs
Df8B7AP/CQAB/wLsAwAB/wYAAf8CAAPsCAAD7AP/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQA
Af8BAAH/BAAB/wIAAv8GAA//D+wD/wkAAf8C7AEAAf8CAAH/BAAB/wIAA+wBAAH/BgAB/wEAA+wC/wkA
A/8BAATsEf8E7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAIf8JAAH/A+wBAAH/
CAAD7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
Av8GAAT/B+wE/w/sA/8JAAL/A+wBAAH/BgAB/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BABns
AQAD/wUAAv8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/wHsDf8B7AP/CQAD/wPsCAAC7AMA
Af8GAAH/AwAC7AH/CQAD/xsAA/8FAAL/DgAG/wEABv8BAAb/AgAC/wYAA/8H7AX/AewN/wHsA/8JAAT/
DOwFAAH/AgAB/wUAAuwB/wkADv8FAA7/BQAC/yQAAv8GAA//D+wD/wkABf8L7AYAAv8GAALsAf8JAA//
A+wP/wUAAv8kAAL/BgAh/wkADv8C7AUAAf8CAAH/BQAC7AH/CQAh/wUAKP8GAAT/B+wE/w/sA/8JAA7/
AuwDAAH/BgAB/wMAAuwB/wkAA/8LAAX/CwAD/wUAKP8GAA//AewN/wHsA/8JAA7/AuwBAAH/AgAB/wQA
Af8CAAH/AQAC7AH/CQAD/wEAC+wD/wvsAQAD/wUAKP8GAAP/B+wF/wHsDf8B7AP/CQAO/wPsAQAB/wgA
Af8BAAPsAf8JAAP/AQAZ7AEAA/8FACj/BgAP/w/sA/8JAAn/CewBAAH/BgAB/wEAA+wC/wkAA/8BABns
AQAD/wUAAv8k7AL/BgAh/wkACP8L7AgAA+wD/wkAA/8BAATsEf8E7AEAA/8FAAL/JOwC/wYABP8H7AT/
D+wD/wkAB/8D7AcADOwE/wkAA/8BABnsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/
CQAG/wPsAQAB/wYAAf8K7AX/CQAD/wEAAuwV/wLsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAD/wfs
Bf8B7A3/AewD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/BQAC/w7sBgAB7AYAAewGAALs
Av8GAA//D+wD/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAC/w7s
BgAB7AYAAewGAALsAv8GACH/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHs
BgAB7AYAAuwC/wYABP8H7AT/D+wD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/CQAF/wLsBgAC/wYAAuwK/wkAA/8BABnsAQAD/wUA
Av8k7AL/BgAD/wfsBf8B7A3/AewD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8k7AL/BgAP/w/sA/8JAAX/AuwDAAH/BgAB/wMAAuwK/wkAA/8BABnsAQAD/wUAKP8GACH/CQAF/wLs
AQAB/wIAAf8EAAH/AgAB/wEAAuwK/wkAA/8BAALsFQAC7AEAA/8FACj/BgAE/wfsBP8P7AP/CQAF/wPs
AQAB/wgAAf8BAAPsCv8JAAP/AQAZ7AEAA/8zAA//AewN/wHsA/8JAAb/A+wBAAH/BgAB/wEAA+wL/wkA
A/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAf/A+wIAAPsDP8JAAP/GwAD/zMAD/8P7AP/CQAI/wzs
Df8JACH/MwAh/wkACf8K7A7/CQAh/zMAIf8JACH/CQAh/zMAIf//AKwAAfQh7wEHAfIB/wUAAfQh7wEH
AfIB/1kAAfIBAAFDHhUBEAERAbwB9AUAAfIVAAYOBgABEQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHy
FAABDgEVARQCEwEUAREBDgQAAQ4BFQG8AfQtACjsBAAB8gEOAfcevAHsARUBvAH0BQAB8hQAAUMB9wEH
Au8B9wFtARAEAAEOARUBvAH0LQAP7AoAD+wEAAHyAQ4B9x68AewBFQG8AfQFAAHyFAABQwEHAe8B7AES
ARMBQwEOBAABDgEVAbwB9C0AD+wBAAj/AQAP7AQAAfIBDgH3BLwB9xTsAe8EvAHsARUBvAH0BQAB8gMA
AQ4MQwEQAwABQwEHAe0BFQgAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETEQ4DAAHs
BLwB7AEVAbwB9AUAAfIDAAERDOwBbQMAAUMBBwGSARMBDwEOBgABDgEVAbwB9AMAKP8CAA/sAQAI/wEA
D+wEAAHyAQ4B9wS8ARMBFA/vARMDAAHsBLwB7AEVAbwB9AUAAfIEAAEOARAJEQEQAQ4DAAFDAQcC8gHx
AQcBEAUAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITD7wB6gMAAewEvAHsARUBvAH0
BQAB8gQAAQ4B6wnsARUEAAFDAQcB7wHsAW0B6gEOBQABDgEVAbwB9AMAKP8CAA/sAQAI/wEAD+wEAAHy
AQ4B9wS8AhMOvAHsAUMDAAETAZIDvAHsARUBvAH0BQAB8gQAAQ4B7wK8AQcF7AH3AeoEAAFDAQcBkgET
Ag8BDgUAAQ4BFQG8AfQDAA//AQAY/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw28AQcBFQEOAwABDgHq
A7wB7AEVAbwB9AUAAfIEAAEOAe8CvAHvAg4CDwEAAewB6gQAAUMBBwHvAesBEgETARABDgQAAQ4BFQG8
AfQDAA//AgAX/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw68AQcBEgMAAesBBwO8AewBFQG8AfQFAAHy
BAABDgHvArwB7wEOAewBBwHtAQ4B7AHqBAABEQGSAe8BBwLvARQBDgQAAQ4BFQG8AfQDAA//AwAW/wIA
D+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8AfcB6gEOAesB7wS8AewBFQG8AfQFAAHyBAABDgHvAewBFAEV
AQABEQEUAUMBAAHsAeoEAAEOAUMBFQIUARUBDwUAAQ4BFQG8AfQDAA//BAAV/wIAD+wBAAj/AQAP7AQA
AfIBDgH3BLwCEwa8AewB6wHsB7wB9wFtAQcFvAHsARUBvAH0BQAB8gQAAQ4B7wETARAC6gEPARAC6gGS
AeoQAAEOARUBvAH0AwAP/wUAFP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8
AfQFAAHyBAABDgHvARMBFQL3ARUBEgK8AQcB6gIAAQ4MDwEOAQABQwG8AfQDAA//BgAT/wIAD+wBAAj/
AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAe8BEwEAAg4BAAESArwBBwHq
AgAB6wztAUMBAAERAbwB9AMAD/8HABL/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHs
ARUBvAH0BQAB8gQAAQ4C7wTtAe8CvAEHAeoCAAEQAUMKFQERAQ4BAAERAbwB9AMAD/8IABH/AgAP7AEA
CP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B6gltAUMDAAEVCW0BEgEO
AgABEQG8AfQDAA//CQAQ/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwEHAfcEkgERAQABEAWSAfcBBwi8
AewBFQG8AfQFAAHyEwABbQi8AQcBkgEOAgABEQG8AfQDAA//CgAP/wIAD+wBAAj/AQAP7AQAAfIBDgH3
BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAArs
BgAI/wcACewEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAfcGQwHtAQcBkgEO
AgABEQG8AfQDAA//CQAQ/wIACuwBABP/AQAJ7AQAAfIBDgH3BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0
BQAB8hMAAW0B7wZtAfcBBwGSAQ4CAAERAbwB9AMAD/8IABH/AgAL7AEAEf8BAArsBAAB8gEOAfcBvAEH
Au0CQwHsAQ4MAAEPAW0E7QH3A7wB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8HABL/
AgAM7AEAD/8BAAvsBAAB8gEOAfcBvAHsGAABEwO8AewBFQG8AfQFAAHyBAAMDgMAAW0IvAEHAZIBDgIA
AREBvAH0AwAP/wYAE/8CAA3sAQAN/wEADOwEAAHyAQ4B9wG8AewYAAETA7wB7AEVAbwB9AUAAfIDAAER
DOwB6gIAAW0IvAEHAZIBDgIAAREBvAH0AwAP/wUAFP8CAA7sAQAL/wEADewEAAHyAQ4B9wG8Ae8E6wFt
AQ4MAAEPARME6wHtA7wB7AEVAbwB9AUAAfIDAAEOARQLEwFDAgABbQi8AQcBkgEOAgABQwG8AfQDAA//
BAAV/wIAD+wBAAn/AQAO7AQAAfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOARQIEgET
AREDAAEUCewBbQEOAQABDgEVAbwB9AMAD/8DABb/AgAQ7AEAB/8BAA/sBAAB8gEOAfcGvAHvAQ4MAAER
AewIvAHsARUBvAH0BQAB8gQAAQ4B7wIHBbwBBwHvAeoQAAEOARUBvAH0AwAP/wIAF/8CABHsAQAF/wEA
EOwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8AfQFAAHyBAABDgHvAW0B6gS8Ae8BEAHsAeoGAAEQ
AUMDFQERAQ4DAAEOARUBvAH0AwAP/wEAGP8CABLsAQAD/wEAEewEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8
AewBFQG8AfQFAAHyBAABDgHvAZIBbQHqAQcBvAHtARIB7AH3AeoGAAHrApIC7QFtAREDAAEOARUBvAH0
AwAo/wIAE+wBAAH/AQAS7AQAAfIBDgH3BrwBBwHqBBMBDgMAARUDEwFtAfcIvAHsARUBvAH0BQAB8gQA
AQ4B7wG8AZIBEgLsAm0CBwHqBQABDgGSAQcB9wLrARIBEAMAAQ4BFQG8AfQDACj/AgAU7AEAE+wEAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8BvAEHAZIBEQEPAeoB7wG8AQcB6gUAAQ4CkgHq
BwABDgEVAbwB9AMAKP8CACjsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwB7AER
Ae8BBwHrAUMCBwHqBQABDgKSAeoHAAEOARUBvAH0AwAo/wIAKOwEAAHyAQ4B9wy8ARUDAAGSDbwB7AEV
AbwB9AUAAfIEAAEOAe8B7AHqAe0BBwG8Ae8B7AEUAe0B6gUAAQ4BkgK8Au8BFAQAAQ4BFQG8AfRZAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8C7AS8Ae8B6gGSAeoFAAEOAZICBwLtARUEAAEO
ARUBvAH0LQAP7B0AAfIBDgH3DLwBEgMQAfcNvAHsARUBvAH0BQAB8gQAAQ4B7Aj3Ae0BEwUAAQ4BkgH3
AW0CDgUAAQ4BFQG8AfQtAA7sHgAB8gEOAfcMvAQHDrwB7AEVAbwB9AUAAfIFAAoOBgABDgGSAe8B7AIV
ARABDgMAAQ4BFQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHyFQABDgHsAu8CkgESAQ8EAAERAbwB9FkA
AfIBAAESHm0BFAFDAbwB9AUAAfIWAAEVAeoDbQFDAQ4EAAERAbwB9FkAAfMhbQHsAfEB9AUAAfMhbQHs
AfEB9P8AggAh/wkAIf9dACH/CQAh/10AIf8JACH/LwAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkA
If8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JAAP/GuwE/wUAKOwCACjsBgAO/wTs
D/8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYAIf8JAAT/GuwD/wUAJOwE/wIAKOwGACH/
CQAh/wUAIewH/wIAKOwGACH/CQAh/wUABf8a7An/AgAo7AYADv8BkgPsD/8JAAP/GuwE/wUACP8W7AX/
AewE/wIAKOwGAA7/AZID7A//CQAh/wUAD/8L7An/AuwD/wIAKOwGAA7/AZID7AHyDv8JACH/BQAe/wHs
Bf8B7AP/AgAo7AYADv8BBwPsAbwO/wkABP8a7AP/BQAe/wLsBP8C7AL/AgAo7AYADv8B8QTsDv8JACH/
BQAX/wPsBf8C7AT/AewC/wIAKOwGAA//BOwB7w3/CQAh/wUAGf8C7AX/AewE/wHsAv8CACjsBgAP/wHx
BOwB7wz/CQAD/xrsBP8FABr/AewF/wHsBP8B7AL/AgAo7AYAEP8BvATsAe8B9Ar/CQAh/wUAGv8C7AT/
AewE/wLsAf8CACjsBgAR/wG8BOwB7QH0Cf8JACH/BQAT/wTsBP8C7An/AewB/wIAKOwGABL/AfAE7AGS
Cf8JAAT/GuwD/wUAFv8C7AX/AewK/wIAKOwGABP/AfIE7AHvCP8JACH/BQAX/wHsCf8G7AH/AgAo7AYA
FP8B8gTsAfIH/wkAIf8FABf/AuwG/wnsAgAo7AYAFf8BvAPsAe8H/wkAA/8a7AT/BQAQ/wHsB/8C7AT/
CuwCACjsBgAW/wTsB/8JACH/BQAQ/wPsBv8C7AL/C+wCACjsBgAG/wHzAe8BkgHsAe8L/wGSA+wH/wkA
If8FABL/A+wH/wzsAgAo7AYABv8B9APsAe0L/wHtA+wH/wkABP8a7AP/BQAU/wLsBv8M7AIAKOwGAAf/
BOwB8gn/AfMD7AHtB/8JACH/BQAV/wLsBP8N7AIAKOwGAAf/AQcD7AH3Cf8B9wPsAe8H/wkAIf8FAA3/
BOwF/wPsAv8N7AIAKOwGAAf/AfQE7AHvB/8B7wTsAfMH/wkAA/8a7AT/BQAQ/wLsCf8N7AIAKOwGAAj/
AQcE7AGSAfAB9AH/AfQB8AGSBOwBBwj/CQAh/wUAEf8B7An/DewCACjsBgAJ/wHvDewB7wn/CQAh/wUA
Ef8I7AL/DewCACjsBgAK/wHwC+wB8Ar/CQAE/xrsA/8FABv/DewwAAv/AfQBvAH3BOwB7QHvAbwM/wkA
If8FABz/DOwCAA/sHwAh/wkAIf8FABz/DOwCAA7sIAAh/wkAA/8a7AT/XQAh/wkAIf9dACH/CQAh/10A
If8JACH/1gABQgFNAT4HAAE+AwABKAMAAagDAAH8AwABAQEAAQEFAAGgARcWAAP//wD/AP8A9AAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAT8B/wGAAgABDwH/AeACAAEDAf8B+AMAAf8DAAH+AwABfwH/AYACAAEfAf8B4AIA
AQcB/wH4AgABAQH/AwAB/gMAAv8BgAIAAT8B/wHgAgABDwH/AfgCAAEDAf8DAAH+AgABAQL/AYACAAF/
Af8B4AIAAR8B/wH4AgABBwH/AwAB/gIAAQMC/wGAAgAC/wHgAgABPwH/AfgCAAEPAf8DAAH+AgABBwL/
AYABAAEBAv8B4AIAAX8B/wH4AgABHwH/AwAG/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAb/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwMABv8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMA
AX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGA
AgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHg
AgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4
AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/
AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgA
AT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABDwH/AeACAAEBAf8B+AMAAf8IAAE/AYACAAEfAf8B4AIAAQEB/wH4AgABAQH/CAABPwGA
AgABPwH/AeACAAEBAf8B+AIAAQMB/wMABv8BgAIAAX8B/wHgAgABAwH/AfgCAAEHAf8DAAb/AYACAAL/
AeACAAEHAf8B+AIAAQ8B/wMABv8BgAEAAQEC/wHgAgABDwH/AfgCAAEfAf8DAAHwAwABAQH8BAABfwX/
AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8
BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMA
AQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/
Bf8BwAMAAQcDABX/AwAK/wH+BAABDwGAAwABAwMACv8B/gQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGA
AwABAwMABf8BwAQAAQ4EAAEPAYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMDAAX/AcABAAEfAv8B/gQA
AQ8BgAMAAQMDAAX/AcABAAE/Av8B/gQAAQ8BgAMAAQMDAAX/AcABAAF/Av8B/gQAAQ8BgAMAAQMDAAr/
Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMAFf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQA
AR8F/wMABf8B/AQAAX8EAAEfBf8IAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwKAAF/
Av8B/AQAAX8EAAEcCgAD/wH8BAABfwQAARwJAAEBA/8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/BAABHwX/
AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAs=
</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>

721
ShiftOS/File Saver.vb
View file

@ -1,721 +0,0 @@
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
Public ShiftOSPath As String = "C:\ShiftOS\"
Dim itemsdeleted As Integer
Dim filetype As Integer
Public saveextention As String = ".txt"
Public savingprogram As String = "textpad"
Public useformatchooser As Boolean = False
Public nondefaultextention(4) As String 'If this is not enough add more, just update the item adding below
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
showcontents()
lbextention.Text = saveextention
showcontents()
If useformatchooser = True Then
cmbformatchooser.BringToFront()
cmbformatchooser.Show()
cmbformatchooser.Items.Clear()
cmbformatchooser.Items.Add(saveextention)
If Not nondefaultextention(0) = "" Then cmbformatchooser.Items.Add(nondefaultextention(0))
If Not nondefaultextention(1) = "" Then cmbformatchooser.Items.Add(nondefaultextention(1))
If Not nondefaultextention(2) = "" Then cmbformatchooser.Items.Add(nondefaultextention(2))
If Not nondefaultextention(3) = "" Then cmbformatchooser.Items.Add(nondefaultextention(3))
If Not nondefaultextention(4) = "" Then cmbformatchooser.Items.Add(nondefaultextention(4))
cmbformatchooser.SelectedIndex = 0
Else
cmbformatchooser.Hide()
End If
ShiftOSDesktop.pnlpanelbuttonfilesaver.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfilesaver, ShiftOSDesktop.tbfilesavericon, ShiftOSDesktop.tbfilesavertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.filesavername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtfileskimmericon = True Then ' Change to program's icon
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
Public Sub resettitlebar()
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
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 ".mp3"
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 ".stp"
filetype = 13
Case ".trm"
filetype = 14
Case ".sh"
filetype = 14
Case ".bat"
filetype = 14
Case ".command"
filetype = 14
Case ".saa"
filetype = 15
Case ".flood"
filetype = 16
Case ".url"
filetype = 17
Case ".urls"
filetype = 18
Case Else
filetype = 1
End Select
Select Case savingprogram
Case "textpad", "sysinf"
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)
Case "orcwrite"
If fileex = ".owd" 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/" Or 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
If lbllocation.Text = "C:/ShiftOS/Home/Desktop" Then
ShiftOSDesktop.RefreshIcons()
End If
savefile()
End Sub
Dim filename As String
Private Sub savefile()
If useformatchooser = True Then
filename = txtfilename.Text & cmbformatchooser.SelectedItem.ToString
Else
filename = txtfilename.Text & saveextention
End If
If txtfilename.Text = "" Then
Else
Select Case savingprogram
Case "sysinf"
Dim sw As New IO.StreamWriter(lbllocation.Text & "/" & txtfilename.Text & ".txt")
sw.WriteLine("### SHIFTOS SYSTEM INFORMATION DUMP ###")
sw.WriteLine(" ")
sw.WriteLine("ShiftOS Version: " & ShiftOSDesktop.ingameversion)
sw.WriteLine("User Name: " & ShiftOSDesktop.username)
Dim PrcName As String
PrcName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)
sw.WriteLine("CPU: " & PrcName)
sw.WriteLine("Random Access Memory (RAM): " & (String.Format("{0} Megabytes", System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)), 2).ToString))
sw.Close()
Me.Close()
ShiftOSDesktop.refreshIcons()
Case "textpad"
My.Computer.FileSystem.WriteAllText(lbllocation.Text & "/" & filename, 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"
Skins.saveskin(lbllocation.Text & " / " & filename)
Case "iconmanager"
System.IO.Compression.ZipFile.CreateFromDirectory(ShiftOSPath + "Shiftum42\Icons", lbllocation.Text & " / " & filename)
Icon_Manager.unsavedchanges = False
Case "namechanger"
IO.File.WriteAllLines(lbllocation.Text & "/" & filename, Name_Changer.savelines)
Case "artpad"
ArtPad.savelocation = lbllocation.Text & "/" & filename
ArtPad.saveimage()
ArtPad.canvasbitmap.Save("C:\ShiftOS\SoftwareData\AdvStart\Recent\" & txtfilename.Text & ".pic", Imaging.ImageFormat.Bmp)
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()
Case "orcwrite"
OrcWrite.savepath = lbllocation.Text & "/" & filename
OrcWrite.savedocument()
Dim sw As New IO.StreamWriter("C:\ShiftOS\SoftwareData\AdvStart\Recent\" & txtfilename.Text + ".owd")
sw.Write(OrcWrite.RichTextBox1.Rtf)
sw.Close()
End Select
Me.Close()
End If
End Sub
End Class

413
ShiftOS/File Skimmer.Designer.vb generated
View file

@ -1,413 +0,0 @@
<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")
Me.ImageList1.Images.SetKeyName(13, "iconins.png")
Me.ImageList1.Images.SetKeyName(14, "icontrm.png")
Me.ImageList1.Images.SetKeyName(15, "iconsaa 2.png")
Me.ImageList1.Images.SetKeyName(16, "iconflood.png")
Me.ImageList1.Images.SetKeyName(17, "iconurl.png")
Me.ImageList1.Images.SetKeyName(18, "iconurls.png")
Me.ImageList1.Images.SetKeyName(19, "iconsaag.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("Microsoft Sans Serif", 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(107, 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 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
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
End Class

421
ShiftOS/File Skimmer.resx
View file

@ -1,421 +0,0 @@
<?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
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
QQAAAk1TRnQBSQFMAgEBFAEAAYgBAQGIAQEBKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABqAMAAfwDAAEBAQABCAUAAWABpRgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
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/AP8A/wD/AP8A
/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A6QAK/yAACv8/AAfsCgAJ/xAA
Cv8BAAr/AQAB7AP/EAAK/wEACv8BAAHsA/8QABr/EAAI7AgACv8QAAn/AQAM/wEAAewC/xAACf8BAAz/
AQAB7AL/EAAH/wEAAf8DAAL/AQAD/wEAAf8BAAP/AQAB/xAACOwEAAbsCP8QAAn/AQAM/wEAAewC/xAA
Cf8BAAz/AQAB7AL/EAAM/wEAAf8BAAP/AQAB/wEAA/8BAAH/EAAI7AIACuwG/xAACP8BAA3/AQAB7AL/
EAAI/wEADf8BAAHsAv8QAAr/AgAD/wMAA/8DAAL/EAAE7AL/AuwBAAPsAgAC7AL/A+wF/xAAB/8BAAP/
AQAK/wEAAewC/xAAB/8BAAP/AQAK/wEAAewC/xAACf8BAAX/AQAB/wEAA/8BAAH/AQAC/xAAAewC/wHs
BP8D7AMAAuwD/wPsBP8QAAf/AQAC/wIAAv8BAAL/AQAC/wEAAf8BAAHsAv8QAAf/AQAC/wIAAv8BAAL/
AQAC/wEAAf8BAAHsAv8QAAr/AwAD/wEABf8BAAP/EAAD/wHsA/8D7AQAAuwBAAP/A+wD/xAACP8CAAHs
AQAC/wEAAv8BAAL/AQAB/wEAAewC/xAACP8CAAHsAQAC/wEAAv8BAAL/AQAB/wEAAewC/xAAGv8QAAP/
AewD/wLsBQAC7AEABP8C7AP/EAAL/wEAAv8BAAL/AQAC/wIAAewD/xAAC/8BAAL/AQAC/wEAAv8CAAHs
A/8QABr/EAAD/wHsAv8C7AH/BQAC7AIABP8C7AL/EAAL/wEAAv8BAAL/AwAB7AX/EAAL/wEAAv8BAAL/
AwAB7AX/EAAa/xAAA/8B7AL/AuwB/wQABOwDAAL/AuwB/xEAC/8BAAL/AwAB7Aj/EAAL/wEAAv8DAAHs
CP8QABr/EAAD/wHsAv8S7BIAC/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QABr/EAAD/wHsAv8S7BIA
C/8BAAL/AQAB7Ar/EAAL/wEAAv8BAAHsCv8QAAP/FAAD/xAAA/8C7AH/AuwC/wMABOwFAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BABL/AQAD/xAABP8B7AH/AuwD/wMAAuwGAALsEgAL/wEA
Av8BAAHsCv8QAAv/AQAC/wEAAewK/xAAA/8BAAr/BwAB/wEAA/8QAAT/AewC/wLsAv8DAALsBQAC7BMA
Av8J/AEAAv8BAAHsCv8QAAL/CewBAAL/AQAB7Ar/EAAD/wEACv8BAAX/AQAB/wEAA/8QAAT/AewC/wPs
A/8BAALsBAAD7BMADP8CAAHsC/8QAAz/AgAB7Av/EAAD/wEAAf8IAAH/AQAF/wEAAf8BAAP/EAAE/wHs
A/8D7AP/AuwDAAPsFAAD/wT8Av8B/AT/AfwL/xAAA/8E7AL/AewE/wHsC/8QAAP/AQAB/wEABv8BAAH/
BwAB/wEAA/8QAAT/AewE/wPsAv8C7AL/A+wVAAL/AfwE/wH8Af8B/AT/AfwL/xAAAv8B7AT/AewB/wHs
BP8B7Av/EAAD/wEAAf8BAAb/AQAJ/wEAA/8QAAT/AewF/wrsBf8RAAL/AfwE/wH8Af8B/AT/AfwL/xAA
Av8B7AT/AewB/wHsBP8B7Av/EAAD/wEAAf8BAAb/AQAB/wUAA/8BAAP/EAAE/wHsB/8G7Aj/EAAC/wH8
BP8B/AH/AvwD/wH8C/8QAAL/AewE/wHsAf8C7AP/AewL/xAAA/8BAAH/AQAB/wYAAf8BAAT/AgAB/wEA
A/8QAAX/AewU/xAAAv8B/AT/AfwB/wH8Af8C/AH/AfwL/xAAAv8B7AT/AewB/wHsAf8C7AH/AewL/xAA
A/8BAAH/AQAB/wIAA/8BAAn/AQAD/xAABf8B7BT/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wEABv8BAAH/BAAB/wIAAf8BAAP/EAAF/wHsFP8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BAAH/CAAF/wIAAv8BAAP/EAAF/wLsE/8QAAL/AfwE/wH8Bv8B/Av/EAAC/wHs
BP8B7Ab/AewL/xAAA/8BABL/AQAD/xAABv8B7BP/EAAC/wH8BP8B/Ab/AfwL/xAAAv8B7AT/AewG/wHs
C/8QAAP/AQAB/wcACv8BAAP/EAAG/wLsEv8QABr/EAAa/xAAA/8BAAH/AQAF/wEAA/8GAAH/AQAD/xAA
B/8B7BL/EAAa/xAAGv8QAAP/AQAB/wEABf8BAAH/BQAE/wEAA/8QAAj/AewR/xAAGv8QABr/EAAD/wEA
Af8HAAr/AQAD/xAAA/8BAAP/AQAC7AIAA/8CAAP/AwAD/xAAGv8QABr/EAAD/wEAEv8BAAP/EAAD/wEA
A/8BAAH/AuwB/wEAAf8BAAL/AQAB/wEAAv8BAAP/EAAa/xAAGv8QAAP/FAAD/xAAA/8CAAL/AQAB/wEA
Av8BAAH/AQAC/wEAAv8DAAP/EAAa/xAAGv8QAAP/AQAS/wEAA/8QAAP/AQAD/wEAAv8CAAP/AgAF/wEA
A/8QABr/EAAa/xAAA/8BABL/AQAD/xAAA/8DAAH/AQAO/wEAA/8QABr/EAAa/xAAA/8UAAP/EAAa/xAA
Gv8QABr/EAAa/xAAD/8B9AT/FgAU/xYAFP8WAA//AfQE/xYAFP8BAAL/AuwRABT/AQAC/wLsEQAU/wEA
Av8C7BEAFP8BAAT/EQAU/wEAAf8C7BIAFP8BAAH/AuwSABT/AQAB/wLsEgAU/wEAA/8SABT/AQAC7BMA
FP8BAALsEwAU/wEAAuwTABT/AQAC/xMAFP8BAAHsFAAU/wEAAewUABT/AQAB7BQAFP8BAAH/FAAU/xYA
FP8WABT/FgAU//8AkQAa/xAAGv8QABr/OgAK/wEAAf8DAAH/AQAC/wEAAf8DAAL/EAAJ/wEAAv8BAAL/
AQAC/wEAAf8BAAP/AQAB/xAAB/8BAAH/AwAC/wEAA/8BAAH/AQAD/wEAAf86AA3/AQAC/wEAAf8CAAT/
AQAB/xAADP8BAAL/AQAC/wEAAf8BAAP/AQAB/xAADP8BAAH/AQAD/wEAAf8BAAP/AQAB/wkAKP8JAA3/
AQAC/wQAAv8CAAL/EAAM/wEAAv8DAAL/AQAD/wEAAf8QAAr/AgAD/wMAA/8DAAL/CQAo/wkADf8BAAL/
AgAB/wEAAf8BAAT/EAAM/wEAAv8BAAL/AQAB/wEAAf8BAAH/AQAB/xAACf8BAAX/AQAB/wEAA/8BAAH/
AQAC/wkAA/8L7AT/AgAG/wIABv8CAAT/CQAM/wMAAf8BAAL/AQAC/wMAAf8QAAv/AwAB/wMAAv8CAAH/
AgAB/xAACv8DAAP/AQAF/wEAA/8JABH/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/xAAGv8QABr/
CQAC/wvsA/8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAa/wkAEP8BAATsAQAC/wEABOwBAAL/
AQAE7AEAAv8JABr/OgAa/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAa/zoAGv8JABL/
AgAG/wIABv8CAAT/CQAa/zoABP8U7AL/CQAo/wkAGv86AAP/FAAB7AL/CQAo/wkAGv86AAP/AQAL/wfs
AQAB7AL/CQAD/wvsBP8CAAb/AgAG/wIABP8JABr/OgAD/wEACv8HAAHsAQAB7AL/CQAR/wEAAuwBAAT/
AQAC7AEABP8BAALsAQAD/wkACf8HAAr/OgAD/wEAAv8I7AEABf8BAAHsAQAB7AL/CQAC/wvsA/8BAATs
AQAC/wEABOwBAAL/AQAE7AEAAv8JABr/OgAD/wEAAf8IAAHsAQAF/wEAAewBAAHsAv8JABD/AQAE7AEA
Av8BAATsAQAC/wEABOwBAAL/CQAa/zoAA/8BAAH/AQAG/wEAAewHAAH/AQAB7AL/CQAD/wvsA/8BAALs
AQAE/wEAAuwBAAT/AQAC7AEAA/8JAAz/AQAN/zoAA/8BAAH/AQAG/wEAAewI/wEAAewC/wkAEv8CAAb/
AgAG/wIABP8JAAv/AwAM/zoAA/8BAAH/AQAG/wEAAewFAAP/AQAB7AL/CQAo/wkACv8BAAH/AQAB/wEA
C/86AAP/AQAB/wEAAf8GAAHsAQAE/wIAAf8BAAHsAv8JACj/CQAJ/wEAAv8BAAL/AQAK/zoAA/8BAAH/
AQAB/wIAA/8BAAHsCP8BAAHsAv8JAAP/C+wE/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAb/
AQAB7AQAAf8CAAH/AQAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkADP8BAA3/OgAD/wEA
Af8IAAX/AgAC/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/
AQAC/wfsCf8BAAHsAv8JABD/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAM/wEADf86AAP/AQAB/wcA
AewJ/wEAAewC/wkAA/8L7AP/AQAC7AEABP8BAALsAQAE/wEAAuwBAAP/CQAM/wEADf86AAP/AQAB/wEA
Bf8BAAHsAv8GAAH/AQAB7AL/CQAS/wIABv8CAAb/AgAE/wkADP8BAA3/OgAD/wEAAf8BAAX/AQAB7AUA
BP8BAAHsAv8JACj/CQAa/zoAA/8BAAH/BwAK/wEAAewC/wkAKP8JABr/OgAD/wEAEv8BAAHsAv8JAAP/
C+wE/wIABv8CAAb/AgAE/wkAGv86AAP/FAAB7AL/CQAR/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkA
Gv86AAP/AQAS/wEAAewC/wkAAv8L7AP/AQAE7AEAAv8BAATsAQAC/wEABOwBAAL/CQAa/xEAAv8nAAP/
AQAS/wEAAewC/wkAEP8BAATsAQAC/wEABOwBAAL/AQAE7AEAAv8JABr/EQAD/wQAAf8CAAH/AgAB/wEA
Af8DAAH/FQAD/xQAA/8JAAP/C+wD/wEAAuwBAAT/AQAC7AEABP8BAALsAQAD/wkAGv8SAAP/AwAB/wIA
Af8CAAH/AQAB/wMAAf8VABr/CQAS/wIABv8CAAb/AgAE/wkAD/8B9AT/GQAD/wIAAf8CAAH/AgAB/wEA
Af8DAAH/FQAP/wH0BP8PACj/CQAU/wEAAv8C7BUAA/8BAAH/AgAD/wIAAf8DAAH/FQAU/wEAAv8C7AoA
KP8JABT/AQAB/wLsFQAD/wIAAf8CAAH/AgAB/wEAAf8DAAH/AQAE/wHsDwAU/wEAAf8C7DwAFP8BAALs
FQAD/wMAAf8CAAH/AgAB/wEAAf8BAAH/AQAB/wEAA/8B7BAAFP8BAALsPQAU/wEAAewVAAP/AwAD/wEA
A/8CAAL/AQAC/wEAAv8B7BEAFP8BAAHsPgAU/xcAAv8TAAH/AewSABT/gAAB7OIAIf8JACH/MwAh/wkA
Bf8K7BL/CQAh/zMAIf8JAAT/DOwR/wkAIf8zACH/CQAD/wPsCAAD7BD/CQAD/xsAA/8zAAT/B+wE/w/s
A/8JAAL/A+wBAAH/BgAB/wEAA+wP/wkAA/8BABnsAQAD/zMAD/8B7A3/AewD/wkAAf8D7AEAAf8IAAH/
AQAD7A7/CQAD/wEAGewBAAP/MwAD/wfsBf8B7A3/AewD/wkAAf8C7AEAAf8CAAH/BAAB/wIAAf8BAALs
Dv8JAAP/AQAC7BX/AuwBAAP/BQAo/wYAD/8P7AP/CQAB/wLsAwAB/wYAAf8DAALsDv8JAAP/AQAZ7AEA
A/8FACj/BgAh/wkAAf8C7AUAAf8CAAH/BQAC7A7/CQAD/wEAAuwV/wLsAQAD/wUAAv8kAAL/BgAE/wfs
BP8P7AP/CQAB/wLsBgAC/wYAC+wF/wkAA/8BABnsAQAD/wUAAv8kAAL/BgAP/wHsDf8B7AP/CQAB/wLs
BQAB/wIAAf8FAAzsBP8JAAP/AQAC7BX/AuwBAAP/BQAC/w4ABv8BAAb/AQAG/wIAAv8GAAP/B+wF/wHs
Df8B7AP/CQAB/wLsAwAB/wYAAf8CAAPsCAAD7AP/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQA
Af8BAAH/BAAB/wIAAv8GAA//D+wD/wkAAf8C7AEAAf8CAAH/BAAB/wIAA+wBAAH/BgAB/wEAA+wC/wkA
A/8BAATsEf8E7AEAA/8FAAL/DgAB/wQAAf8BAAH/BAAB/wEAAf8EAAH/AgAC/wYAIf8JAAH/A+wBAAH/
CAAD7AEAAf8IAAH/AQAD7AH/CQAD/wEAGewBAAP/BQAC/w4AAf8EAAH/AQAB/wQAAf8BAAH/BAAB/wIA
Av8GAAT/B+wE/w/sA/8JAAL/A+wBAAH/BgAB/wLsAQAB/wIAAf8EAAH/AgAB/wEAAuwB/wkAA/8BABns
AQAD/wUAAv8OAAH/BAAB/wEAAf8EAAH/AQAB/wQAAf8CAAL/BgAP/wHsDf8B7AP/CQAD/wPsCAAC7AMA
Af8GAAH/AwAC7AH/CQAD/xsAA/8FAAL/DgAG/wEABv8BAAb/AgAC/wYAA/8H7AX/AewN/wHsA/8JAAT/
DOwFAAH/AgAB/wUAAuwB/wkADv8FAA7/BQAC/yQAAv8GAA//D+wD/wkABf8L7AYAAv8GAALsAf8JAA//
A+wP/wUAAv8kAAL/BgAh/wkADv8C7AUAAf8CAAH/BQAC7AH/CQAh/wUAKP8GAAT/B+wE/w/sA/8JAA7/
AuwDAAH/BgAB/wMAAuwB/wkAA/8LAAX/CwAD/wUAKP8GAA//AewN/wHsA/8JAA7/AuwBAAH/AgAB/wQA
Af8CAAH/AQAC7AH/CQAD/wEAC+wD/wvsAQAD/wUAKP8GAAP/B+wF/wHsDf8B7AP/CQAO/wPsAQAB/wgA
Af8BAAPsAf8JAAP/AQAZ7AEAA/8FACj/BgAP/w/sA/8JAAn/CewBAAH/BgAB/wEAA+wC/wkAA/8BABns
AQAD/wUAAv8k7AL/BgAh/wkACP8L7AgAA+wD/wkAA/8BAATsEf8E7AEAA/8FAAL/JOwC/wYABP8H7AT/
D+wD/wkAB/8D7AcADOwE/wkAA/8BABnsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/
CQAG/wPsAQAB/wYAAf8K7AX/CQAD/wEAAuwV/wLsAQAD/wUAAv8O7AYAAewGAAHsBgAC7AL/BgAD/wfs
Bf8B7A3/AewD/wkABf8D7AEAAf8IAAH/AQAD7Ar/CQAD/wEAGewBAAP/BQAC/w7sBgAB7AYAAewGAALs
Av8GAA//D+wD/wkABf8C7AEAAf8CAAH/BAAB/wIAAf8BAALsCv8JAAP/AQAC7BUAAuwBAAP/BQAC/w7s
BgAB7AYAAewGAALsAv8GACH/CQAF/wLsAwAB/wYAAf8DAALsCv8JAAP/AQAZ7AEAA/8FAAL/DuwGAAHs
BgAB7AYAAuwC/wYABP8H7AT/D+wD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8O7AYAAewGAAHsBgAC7AL/BgAP/wHsDf8B7AP/CQAF/wLsBgAC/wYAAuwK/wkAA/8BABnsAQAD/wUA
Av8k7AL/BgAD/wfsBf8B7A3/AewD/wkABf8C7AUAAf8CAAH/BQAC7Ar/CQAD/wEAAuwVAALsAQAD/wUA
Av8k7AL/BgAP/w/sA/8JAAX/AuwDAAH/BgAB/wMAAuwK/wkAA/8BABnsAQAD/wUAKP8GACH/CQAF/wLs
AQAB/wIAAf8EAAH/AgAB/wEAAuwK/wkAA/8BAALsFQAC7AEAA/8FACj/BgAE/wfsBP8P7AP/CQAF/wPs
AQAB/wgAAf8BAAPsCv8JAAP/AQAZ7AEAA/8zAA//AewN/wHsA/8JAAb/A+wBAAH/BgAB/wEAA+wL/wkA
A/8BABnsAQAD/zMAA/8H7AX/AewN/wHsA/8JAAf/A+wIAAPsDP8JAAP/GwAD/zMAD/8P7AP/CQAI/wzs
Df8JACH/MwAh/wkACf8K7A7/CQAh/zMAIf8JACH/CQAh/zMAIf//AKwAAfQh7wEHAfIB/wUAAfQh7wEH
AfIB/1kAAfIBAAFDHhUBEAERAbwB9AUAAfIVAAYOBgABEQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHy
FAABDgEVARQCEwEUAREBDgQAAQ4BFQG8AfQtACjsBAAB8gEOAfcevAHsARUBvAH0BQAB8hQAAUMB9wEH
Au8B9wFtARAEAAEOARUBvAH0LQAP7AoAD+wEAAHyAQ4B9x68AewBFQG8AfQFAAHyFAABQwEHAe8B7AES
ARMBQwEOBAABDgEVAbwB9C0AD+wBAAj/AQAP7AQAAfIBDgH3BLwB9xTsAe8EvAHsARUBvAH0BQAB8gMA
AQ4MQwEQAwABQwEHAe0BFQgAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAETEQ4DAAHs
BLwB7AEVAbwB9AUAAfIDAAERDOwBbQMAAUMBBwGSARMBDwEOBgABDgEVAbwB9AMAKP8CAA/sAQAI/wEA
D+wEAAHyAQ4B9wS8ARMBFA/vARMDAAHsBLwB7AEVAbwB9AUAAfIEAAEOARAJEQEQAQ4DAAFDAQcC8gHx
AQcBEAUAAQ4BFQG8AfQDACj/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITD7wB6gMAAewEvAHsARUBvAH0
BQAB8gQAAQ4B6wnsARUEAAFDAQcB7wHsAW0B6gEOBQABDgEVAbwB9AMAKP8CAA/sAQAI/wEAD+wEAAHy
AQ4B9wS8AhMOvAHsAUMDAAETAZIDvAHsARUBvAH0BQAB8gQAAQ4B7wK8AQcF7AH3AeoEAAFDAQcBkgET
Ag8BDgUAAQ4BFQG8AfQDAA//AQAY/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw28AQcBFQEOAwABDgHq
A7wB7AEVAbwB9AUAAfIEAAEOAe8CvAHvAg4CDwEAAewB6gQAAUMBBwHvAesBEgETARABDgQAAQ4BFQG8
AfQDAA//AgAX/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEw68AQcBEgMAAesBBwO8AewBFQG8AfQFAAHy
BAABDgHvArwB7wEOAewBBwHtAQ4B7AHqBAABEQGSAe8BBwLvARQBDgQAAQ4BFQG8AfQDAA//AwAW/wIA
D+wBAAj/AQAP7AQAAfIBDgH3BLwCEw+8AfcB6gEOAesB7wS8AewBFQG8AfQFAAHyBAABDgHvAewBFAEV
AQABEQEUAUMBAAHsAeoEAAEOAUMBFQIUARUBDwUAAQ4BFQG8AfQDAA//BAAV/wIAD+wBAAj/AQAP7AQA
AfIBDgH3BLwCEwa8AewB6wHsB7wB9wFtAQcFvAHsARUBvAH0BQAB8gQAAQ4B7wETARAC6gEPARAC6gGS
AeoQAAEOARUBvAH0AwAP/wUAFP8CAA/sAQAI/wEAD+wEAAHyAQ4B9wS8AhMGvAEVAQABQw+8AewBFQG8
AfQFAAHyBAABDgHvARMBFQL3ARUBEgK8AQcB6gIAAQ4MDwEOAQABQwG8AfQDAA//BgAT/wIAD+wBAAj/
AQAP7AQAAfIBDgH3BLwCEwa8ARUBAAFDD7wB7AEVAbwB9AUAAfIEAAEOAe8BEwEAAg4BAAESArwBBwHq
AgAB6wztAUMBAAERAbwB9AMAD/8HABL/AgAP7AEACP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHs
ARUBvAH0BQAB8gQAAQ4C7wTtAe8CvAEHAeoCAAEQAUMKFQERAQ4BAAERAbwB9AMAD/8IABH/AgAP7AEA
CP8BAA/sBAAB8gEOAfcEvAITBrwBFQEAAUMPvAHsARUBvAH0BQAB8gQAAQ4B6gltAUMDAAEVCW0BEgEO
AgABEQG8AfQDAA//CQAQ/wIAD+wBAAj/AQAP7AQAAfIBDgH3BLwCEwEHAfcEkgERAQABEAWSAfcBBwi8
AewBFQG8AfQFAAHyEwABbQi8AQcBkgEOAgABEQG8AfQDAA//CgAP/wIAD+wBAAj/AQAP7AQAAfIBDgH3
BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0BQAB8hMAAW0IvAEHAZIBDgIAAREBvAH0AwAP/woAD/8CAArs
BgAI/wcACewEAAHyAQ4B9wS8AhMB7wEODAABEQHsCLwB7AEVAbwB9AUAAfITAAFtAfcGQwHtAQcBkgEO
AgABEQG8AfQDAA//CQAQ/wIACuwBABP/AQAJ7AQAAfIBDgH3BLwCEwHvAQ4MAAERAewIvAHsARUBvAH0
BQAB8hMAAW0B7wZtAfcBBwGSAQ4CAAERAbwB9AMAD/8IABH/AgAL7AEAEf8BAArsBAAB8gEOAfcBvAEH
Au0CQwHsAQ4MAAEPAW0E7QH3A7wB7AEVAbwB9AUAAfITAAFtCLwBBwGSAQ4CAAERAbwB9AMAD/8HABL/
AgAM7AEAD/8BAAvsBAAB8gEOAfcBvAHsGAABEwO8AewBFQG8AfQFAAHyBAAMDgMAAW0IvAEHAZIBDgIA
AREBvAH0AwAP/wYAE/8CAA3sAQAN/wEADOwEAAHyAQ4B9wG8AewYAAETA7wB7AEVAbwB9AUAAfIDAAER
DOwB6gIAAW0IvAEHAZIBDgIAAREBvAH0AwAP/wUAFP8CAA7sAQAL/wEADewEAAHyAQ4B9wG8Ae8E6wFt
AQ4MAAEPARME6wHtA7wB7AEVAbwB9AUAAfIDAAEOARQLEwFDAgABbQi8AQcBkgEOAgABQwG8AfQDAA//
BAAV/wIAD+wBAAn/AQAO7AQAAfIBDgH3BrwB7wEODAABEQHsCLwB7AEVAbwB9AUAAfIEAAEOARQIEgET
AREDAAEUCewBbQEOAQABDgEVAbwB9AMAD/8DABb/AgAQ7AEAB/8BAA/sBAAB8gEOAfcGvAHvAQ4MAAER
AewIvAHsARUBvAH0BQAB8gQAAQ4B7wIHBbwBBwHvAeoQAAEOARUBvAH0AwAP/wIAF/8CABHsAQAF/wEA
EOwEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8AewBFQG8AfQFAAHyBAABDgHvAW0B6gS8Ae8BEAHsAeoGAAEQ
AUMDFQERAQ4DAAEOARUBvAH0AwAP/wEAGP8CABLsAQAD/wEAEewEAAHyAQ4B9wa8Ae8BDgwAAREB7Ai8
AewBFQG8AfQFAAHyBAABDgHvAZIBbQHqAQcBvAHtARIB7AH3AeoGAAHrApIC7QFtAREDAAEOARUBvAH0
AwAo/wIAE+wBAAH/AQAS7AQAAfIBDgH3BrwBBwHqBBMBDgMAARUDEwFtAfcIvAHsARUBvAH0BQAB8gQA
AQ4B7wG8AZIBEgLsAm0CBwHqBQABDgGSAQcB9wLrARIBEAMAAQ4BFQG8AfQDACj/AgAU7AEAE+wEAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8BvAEHAZIBEQEPAeoB7wG8AQcB6gUAAQ4CkgHq
BwABDgEVAbwB9AMAKP8CACjsBAAB8gEOAfcMvAEVAwABkg28AewBFQG8AfQFAAHyBAABDgHvAbwB7AER
Ae8BBwHrAUMCBwHqBQABDgKSAeoHAAEOARUBvAH0AwAo/wIAKOwEAAHyAQ4B9wy8ARUDAAGSDbwB7AEV
AbwB9AUAAfIEAAEOAe8B7AHqAe0BBwG8Ae8B7AEUAe0B6gUAAQ4BkgK8Au8BFAQAAQ4BFQG8AfRZAAHy
AQ4B9wy8ARUDAAGSDbwB7AEVAbwB9AUAAfIEAAEOAe8C7AS8Ae8B6gGSAeoFAAEOAZICBwLtARUEAAEO
ARUBvAH0LQAP7B0AAfIBDgH3DLwBEgMQAfcNvAHsARUBvAH0BQAB8gQAAQ4B7Aj3Ae0BEwUAAQ4BkgH3
AW0CDgUAAQ4BFQG8AfQtAA7sHgAB8gEOAfcMvAQHDrwB7AEVAbwB9AUAAfIFAAoOBgABDgGSAe8B7AIV
ARABDgMAAQ4BFQG8AfRZAAHyAQ4B9x68AewBFQG8AfQFAAHyFQABDgHsAu8CkgESAQ8EAAERAbwB9FkA
AfIBAAESHm0BFAFDAbwB9AUAAfIWAAEVAeoDbQFDAQ4EAAERAbwB9FkAAfMhbQHsAfEB9AUAAfMhbQHs
AfEB9P8AggAh/wkAIf9dACH/CQAh/10AIf8JACH/LwAo7AYAIf8JAAT/GuwD/wUAKOwCACjsBgAh/wkA
If8FACjsAgAo7AYADv8E7A//CQAh/wUAKOwCACjsBgAO/wTsD/8JAAP/GuwE/wUAKOwCACjsBgAO/wTs
D/8JACH/BQAo7AIAKOwGAA7/BOwP/wkAIf8FACjsAgAo7AYAIf8JAAT/GuwD/wUAJOwE/wIAKOwGACH/
CQAh/wUAIewH/wIAKOwGACH/CQAh/wUABf8a7An/AgAo7AYADv8BkgPsD/8JAAP/GuwE/wUACP8W7AX/
AewE/wIAKOwGAA7/AZID7A//CQAh/wUAD/8L7An/AuwD/wIAKOwGAA7/AZID7AHyDv8JACH/BQAe/wHs
Bf8B7AP/AgAo7AYADv8BBwPsAbwO/wkABP8a7AP/BQAe/wLsBP8C7AL/AgAo7AYADv8B8QTsDv8JACH/
BQAX/wPsBf8C7AT/AewC/wIAKOwGAA//BOwB7w3/CQAh/wUAGf8C7AX/AewE/wHsAv8CACjsBgAP/wHx
BOwB7wz/CQAD/xrsBP8FABr/AewF/wHsBP8B7AL/AgAo7AYAEP8BvATsAe8B9Ar/CQAh/wUAGv8C7AT/
AewE/wLsAf8CACjsBgAR/wG8BOwB7QH0Cf8JACH/BQAT/wTsBP8C7An/AewB/wIAKOwGABL/AfAE7AGS
Cf8JAAT/GuwD/wUAFv8C7AX/AewK/wIAKOwGABP/AfIE7AHvCP8JACH/BQAX/wHsCf8G7AH/AgAo7AYA
FP8B8gTsAfIH/wkAIf8FABf/AuwG/wnsAgAo7AYAFf8BvAPsAe8H/wkAA/8a7AT/BQAQ/wHsB/8C7AT/
CuwCACjsBgAW/wTsB/8JACH/BQAQ/wPsBv8C7AL/C+wCACjsBgAG/wHzAe8BkgHsAe8L/wGSA+wH/wkA
If8FABL/A+wH/wzsAgAo7AYABv8B9APsAe0L/wHtA+wH/wkABP8a7AP/BQAU/wLsBv8M7AIAKOwGAAf/
BOwB8gn/AfMD7AHtB/8JACH/BQAV/wLsBP8N7AIAKOwGAAf/AQcD7AH3Cf8B9wPsAe8H/wkAIf8FAA3/
BOwF/wPsAv8N7AIAKOwGAAf/AfQE7AHvB/8B7wTsAfMH/wkAA/8a7AT/BQAQ/wLsCf8N7AIAKOwGAAj/
AQcE7AGSAfAB9AH/AfQB8AGSBOwBBwj/CQAh/wUAEf8B7An/DewCACjsBgAJ/wHvDewB7wn/CQAh/wUA
Ef8I7AL/DewCACjsBgAK/wHwC+wB8Ar/CQAE/xrsA/8FABv/DewwAAv/AfQBvAH3BOwB7QHvAbwM/wkA
If8FABz/DOwCAA/sHwAh/wkAIf8FABz/DOwCAA7sIAAh/wkAA/8a7AT/XQAh/wkAIf9dACH/CQAh/10A
If8JACH/1gABQgFNAT4HAAE+AwABKAMAAagDAAH8AwABAQEAAQEFAAGgARcWAAP//wD/AP8A9AAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/
AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMA
AR8B/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMA
Af4DAAEfAf8BgAIAAQcB/wHgAgABAQH/AfgDAAF/AwAB/gMAAR8B/wGAAgABBwH/AeACAAEBAf8B+AMA
AX8DAAH+AwABHwH/AYACAAEHAf8B4AIAAQEB/wH4AwABfwMAAf4DAAEfAf8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/AwAB/gMAAT8B/wGAAgABDwH/AeACAAEDAf8B+AMAAf8DAAH+AwABfwH/AYACAAEfAf8B4AIA
AQcB/wH4AgABAQH/AwAB/gMAAv8BgAIAAT8B/wHgAgABDwH/AfgCAAEDAf8DAAH+AgABAQL/AYACAAF/
Af8B4AIAAR8B/wH4AgABBwH/AwAB/gIAAQMC/wGAAgAC/wHgAgABPwH/AfgCAAEPAf8DAAH+AgABBwL/
AYABAAEBAv8B4AIAAX8B/wH4AgABHwH/AwAG/wGAAgABBwH/AeACAAEBAf8B+AMAAX8DAAb/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwMABv8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIA
AQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIA
AQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMA
AX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGA
AgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHg
AgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4
AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/
AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/
AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/
AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgA
AT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEBAf8B+AMAAX8IAAE/AYACAAEH
Af8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/CAABPwGAAgABBwH/AeACAAEB
Af8B+AMAAX8IAAE/AYACAAEHAf8B4AIAAQEB/wH4AwABfwgAAT8BgAIAAQcB/wHgAgABAQH/AfgDAAF/
CAABPwGAAgABDwH/AeACAAEBAf8B+AMAAf8IAAE/AYACAAEfAf8B4AIAAQEB/wH4AgABAQH/CAABPwGA
AgABPwH/AeACAAEBAf8B+AIAAQMB/wMABv8BgAIAAX8B/wHgAgABAwH/AfgCAAEHAf8DAAb/AYACAAL/
AeACAAEHAf8B+AIAAQ8B/wMABv8BgAEAAQEC/wHgAgABDwH/AfgCAAEfAf8DAAHwAwABAQH8BAABfwX/
AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHwAwABAQH8
BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQA
AQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHwAwABAQH8BAABcAQAAQMBwAMAAQcDAAHw
AwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/Bf8BwAMA
AQcDAAHwAwABAQH8BAABfwX/AcADAAEHAwAB8AMAAQEB/AQAAX8F/wHAAwABBwMAAfADAAEBAfwEAAF/
Bf8BwAMAAQcDABX/AwAK/wH+BAABDwGAAwABAwMACv8B/gQAAQ8BgAMAAQMDAAX/AcAEAAEOBAABDwGA
AwABAwMABf8BwAQAAQ4EAAEPAYADAAEDAwAF/wHABAABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0A
AQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQA
AQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGA
AwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAED
DQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEO
BAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEP
AYADAAEDDQABDgQAAQ8BgAMAAQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMA
AQMNAAEOBAABDwGAAwABAw0AAQ4EAAEPAYADAAEDDQABDgQAAQ8BgAMAAQMDAAX/AcABAAEfAv8B/gQA
AQ8BgAMAAQMDAAX/AcABAAE/Av8B/gQAAQ8BgAMAAQMDAAX/AcABAAF/Av8B/gQAAQ8BgAMAAQMDAAr/
Af4EAAEPAYADAAEDAwAK/wH+BAABDwGAAwABAwMAFf8DAAX/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQA
AR8F/wMABf8B/AQAAX8EAAEfBf8IAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8
BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwNAAE8BAABfwQAARwKAAF/
Av8B/AQAAX8EAAEcCgAD/wH8BAABfwQAARwJAAEBA/8B/AQAAX8EAAEfBf8DAAX/AfwEAAF/BAABHwX/
AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEfBf8DAAs=
</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>

954
ShiftOS/File Skimmer.vb
View file

@ -1,954 +0,0 @@
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
Public ShiftOSPath As String = ShiftOSDesktop.ShiftOSPath
Dim itemsdeleted As Integer
Dim filetype As Integer
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.FileSkimmerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttonfileskimmer.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfileskimmer, ShiftOSDesktop.tbfileskimmericon, ShiftOSDesktop.tbfileskimmertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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
ShiftOSDesktop.refreshIcons()
Me.Close()
End Sub
Private Sub Me_Close(sender As Object, e As EventArgs) Handles MyBase.FormClosing
ShiftOSDesktop.refreshIcons()
End Sub
Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
closebutton.BackgroundImage = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.fileskimmername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtfileskimmericon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
showcontents()
End Sub
Public Function getExType(fileex As String)
Dim filetype As Integer
Dim program As String
Select Case fileex
Case ".txt"
filetype = 2
program = "Text Document"
Case ".doc"
filetype = 2
program = "Word Document"
Case ".docx"
filetype = 2
program = "Word Document"
Case ".lst"
filetype = 2
program = "Spreadsheet"
Case ".png"
filetype = 3
program = "Picture"
Case ".jpg"
filetype = 3
program = "Picture"
Case ".jpeg"
filetype = 3
program = "Picture"
Case ".bmp"
filetype = 3
program = "Bitmap"
Case ".gif"
filetype = 3
program = "Animated Picture"
Case ".avi"
filetype = 4
program = "Video Clip"
Case ".m4v"
filetype = 4
program = "MPEG-4 Video"
Case ".mp4"
filetype = 4
program = "MPEG-4 Video"
Case ".wmv"
filetype = 4
program = "Windows Media Video"
Case ".mp3"
filetype = 4
program = "MPEG-3 Song"
Case ".dll"
filetype = 6
program = "System File"
Case ".exe"
filetype = 7
program = "MS-DOS Executable"
Case ".sft"
filetype = 8
program = "System File"
Case ".dri"
filetype = 9
program = "System File"
Case ".pic"
filetype = 3
If ShiftOSDesktop.boughtartpad Then program = "Artpad Document" Else program = ".pic File"
Case ".skn"
filetype = 10
If ShiftOSDesktop.boughtskinloader Then program = "Skin" Else program = ".skn file"
Case ".nls"
filetype = 11
program = "Font File"
Case ".icp"
filetype = 12
If ShiftOSDesktop.boughticonmanager Then program = "Icon Manager File" Else program = ".icp file"
Case ".stp"
filetype = 13
program = "Setup File"
Case ".trm"
filetype = 14
program = "Terminal Script File"
Case ".owd"
filetype = 2
If ShiftOSDesktop.boughtorcwrite Then program = "OrcWrite Document" Else program = ".owd file"
Case ".sh"
filetype = 14
program = "BASH Script"
Case ".bat"
filetype = 14
program = "MS-DOS Batch File"
Case ".command"
filetype = 14
program = ".command file"
Case ".saa"
If ShiftOSDesktop.boughtgray Then filetype = 15 Else filetype = 19
program = "Stand Alone Application"
Case ".flood"
filetype = 16
If ShiftOSDesktop.boughtfloodgate Then program = "FloodGate File" Else program = ".flood file"
Case ".url"
filetype = 17
program = "Shortcut"
Case ".urls"
filetype = 18
program = "Shiftnet Link"
Case Else
filetype = 1
program = "Unknown File Type"
End Select
Dim array() As String = {CStr(filetype), program}
Return (array)
End Function
Private Sub showcontents()
Me.Show()
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
filetype = getExType(fileex)(0)
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" Or 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 directoryInfo As System.IO.DirectoryInfo
directoryInfo = System.IO.Directory.GetParent(lbllocation.Text)
If (directoryInfo.FullName = "C:\") Then Dim errerror As String = "an error" Else lbllocation.Text = directoryInfo.FullName
'Dim endloop As Boolean = False
'lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
'While endloop = False
' Try
' If lbllocation.Text.Substring(lbllocation.Text.Length - 1) = "/" Then
' endloop = True
' Else
' lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
' End If
' Catch
' infobox.title = "File Skimmer - Error!"
' infobox.textinfo = "Unable to move into a higher directory due to error reading the requested folder on the drive." & Environment.NewLine & Environment.NewLine & "An error occured going up"
' infobox.Show()
' End Try
'End While
showcontents()
End If
Else
'Check if selected item is a file or folder. It it's a folder check its extension
If lbllocation.Text Like "*/" Then
Else
lbllocation.Text = lbllocation.Text + "/"
End If
OpenFile(lbllocation.Text + lvfiles.SelectedItems(0).Text)
End If
End Sub
Public Sub OpenFile(path As String)
'Check if selected item is a file or folder. It it's a folder check its extension
If path Like "*.owd" Then
If ShiftOSDesktop.boughtorcwrite = True Then
Dim sr As New IO.StreamReader(Path)
OrcWrite.RichTextBox1.Rtf = sr.ReadToEnd()
sr.Close()
OrcWrite.Show()
OrcWrite.TopMost = True
Else
infobox.showinfo("Application Not Found", "ShiftOS could not find an application able the open .owd files.")
End If
ElseIf path Like "*.txt" Then
If TextPad.needtosave = False Then
TextPad.Show()
TextPad.txtuserinput.Text = My.Computer.FileSystem.ReadAllText(path)
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 path Like "*.pic" Then
If ArtPad.needtosave = False Then
ArtPad.Show()
ArtPad.savelocation = (path)
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 path 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 path 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 path 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 path 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 path Like "*.skn" Then
If ShiftOSDesktop.boughtskinning Then
Skin_Loader.Show()
Skin_Loader.loadingsknversion = ""
If My.Computer.FileSystem.DirectoryExists(ShiftOSPath + "Shiftum42\Skins\Preview\") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\Preview\", FileIO.DeleteDirectoryOption.DeleteAllContents)
System.IO.Compression.ZipFile.ExtractToDirectory(path, ShiftOSPath + "Shiftum42\Skins\Preview\")
If File.Exists(ShiftOSPath + "Shiftum42\Skins\Preview\SKN-version") Then
Dim sr As StreamReader = New StreamReader(ShiftOSPath + "Shiftum42\Skins\Preview\SKN-version")
Dim i As String = sr.ReadLine
Skin_Loader.loadingsknversion = sr.ReadLine
sr.Close()
End If
If Skin_Loader.loadingsknversion = "2.0 disposal-free skinning" Then
Skin_Loader.setuppreview2_0()
Skin_Loader.skinloaded = True
Else
My.Computer.FileSystem.WriteAllText(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat", My.Computer.FileSystem.ReadAllText(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat").Replace("\Current", "\Preview"), False)
Skin_Loader.loadlines = IO.File.ReadAllLines(ShiftOSPath + "Shiftum42\Skins\Preview\skindata.dat")
Skin_Loader.loadskintopreview()
Skin_Loader.skinloaded = True
End If
Else
infobox.showinfo("Application Not Found", "ShiftOS could not find an application able the open skin files.")
End If
ElseIf path Like "*.mp3" Then
If ShiftOSDesktop.installedaudioplayer Then
Audio_Player.lbmusiclist.Items.Add(path)
Audio_Player.lblintro.Hide()
Audio_Player.Show()
Else
infobox.showinfo("Application Not Found", "ShiftOS could not find an application able the open audio files.")
End If
ElseIf path Like "*.saa" Then
File_Crypt.DecryptFile(path & "\" & path, ShiftOSDesktop.ShiftOSPath + "Shiftum42\Drivers\HDD.dri", ShiftOSDesktop.sSecretKey)
Dim sr As StreamReader = New StreamReader(ShiftOSDesktop.ShiftOSPath + "Shiftum42\Drivers\HDD.dri")
Dim apptoopen As String = sr.ReadLine()
sr.Close()
Select Case apptoopen.ToLower
'Case "program name"
' Check requirements and open program
Case "dodge"
Dodge.Show()
Case "web browser"
If ShiftOSDesktop.boughtanycolour4 = True Then Web_Browser.Show() Else infobox.showinfo("Error", "The requirements for " & path & " are not meet. Please buy limitless colours.")
Case "b1n0t3 h4ck"
Randomize()
Dim VirusChoice As Integer = CInt(Math.Ceiling(Rnd() * 4))
If VirusChoice = 1 Then
Viruses.zerogravity = True
Viruses.zerogravitythreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupzerovirus()
ElseIf VirusChoice = 2 Then
Viruses.beeper = True
Viruses.beeperthreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupbeepervirus()
ElseIf VirusChoice = 3 Then
Viruses.mousetrap = True
Viruses.mousetrapthreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupmousetrapvirus()
ElseIf VirusChoice = 4 Then
Viruses.ThePlague = True
Viruses.theplaguethreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setuptheplague()
End If
infobox.title = "B1N0T3 H4CK3R - Error"
infobox.textinfo = "L0L Y0U JUST G0T R3KT #D341W1TH1T" & Environment.NewLine & Environment.NewLine & "(Enjoy your new virus)"
infobox.Show()
Case "virus scanner"
If ShiftOSDesktop.boughtgray Then VirusScanner.Show() Else infobox.showinfo("Error", "The requirements for " & path & " are not meet. Please buy Gray.")
Case "labyrinth"
If ShiftOSDesktop.boughtgray Then Labyrinth.Show() Else infobox.showinfo("Error", "The requirements for " & path & " are not meet. Please buy Gray.")
Case "calculator"
Calculator.Show()
Case "audio player"
Audio_Player.Show()
Case "video player"
If ShiftOSDesktop.boughtanycolour4 Then Video_Player.Show() Else infobox.showinfo("Error", "The requirements for " & path & " are not meet. Please buy limitless colours.")
Video_Player.Show()
Case "dock"
ShiftDock.Show()
Case "virus grade 1 removal unlocker"
If ShiftOSDesktop.installedvirusscanner Then
If Math.Ceiling(Rnd() * 2) = 1 Then
infobox.showinfo("Virus Removal Unlocked", "Removal of grade 1 viruses has been unlocked in the Virus Scanner.")
If ShiftOSDesktop.virusscannergrade < 1 Then ShiftOSDesktop.virusscannergrade = 1
Else
infobox.showinfo("Lolz", "Haha, I just don't feel like doing anything today. Try me again some time and I MIGHT Lock it. For now, I'm hang out for the lolz!")
End If
End If
Case "virus grade 2 removal unlocker"
If ShiftOSDesktop.installedvirusscanner Then
If Math.Ceiling(Rnd() * 2) = 1 Then
infobox.showinfo("Virus Removal Unlocked", "Removal of grade 2 viruses has been unlocked in the Virus Scanner.")
If ShiftOSDesktop.virusscannergrade < 2 Then ShiftOSDesktop.virusscannergrade = 2
Else
infobox.showinfo("Lolz", "Haha, I just don't feel like doing anything today. Try me again some time and I MIGHT Lock it. For now, I'm hang out for the lolz!")
End If
End If
Case "virus grade 3 removal unlocker"
If ShiftOSDesktop.installedvirusscanner Then
If Math.Ceiling(Rnd() * 2) = 1 Then
infobox.showinfo("Virus Removal Unlocked", "Removal of grade 3 viruses has been unlocked in the Virus Scanner.")
If ShiftOSDesktop.virusscannergrade < 3 Then ShiftOSDesktop.virusscannergrade = 3
Else
infobox.showinfo("Lolz", "Haha, I just don't feel like doing anything today. Try me again some time and I MIGHT Lock it. For now, I'm hang out for the lolz!")
End If
End If
Case "virus grade 4 removal unlocker"
If ShiftOSDesktop.installedvirusscanner Then
If Math.Ceiling(Rnd() * 2) = 1 Then
infobox.showinfo("Virus Removal Unlocked", "Removal of grade 4 viruses has been unlocked in the Virus Scanner.")
If ShiftOSDesktop.virusscannergrade < 4 Then ShiftOSDesktop.virusscannergrade = 4
Else
infobox.showinfo("Lolz", "Haha, I just don't feel like doing anything today. Try me again some time and I MIGHT Lock it. For now, I'm hang out for the lolz!")
End If
End If
Case Else
infobox.title = "Corrupt file"
infobox.textinfo = "The stand alone application '" & path & "' seems to be corrupt and is unable to run properly."
infobox.Show()
End Select
ElseIf path Like "*.stp" Then
Installer.Show()
Installer.txtfilepath.Text = (path)
ElseIf path Like "*.smf" Then
NewAPI.OpenModFile(path)
ElseIf path Like "*.trm" Then
Terminal.Show()
Terminal.runterminalfile(path)
ElseIf path Like "*.sct" Then
Dim sr As New IO.StreamReader(Path)
Dim relayPath As String = sr.ReadToEnd()
sr.Close()
OpenFile(relayPath)
ElseIf path Like "*.bat" Then
If (ShiftOSDesktop.unitymode) Then
Shell(path)
Else
If (ShiftOSDesktop.boughtunitymode) Then
infobox.title = "File Skimmer - Unity Mode:"
infobox.textinfo = "You do not have unity mode enabled. Enable unity mode to run shell scripts"
infobox.Show()
Else
infobox.title = "File Skimmer - Unity Mode:"
infobox.textinfo = "You do not have unity mode"
infobox.Show()
End If
End If
Else
If My.Computer.FileSystem.DirectoryExists(path) Then
lbllocation.Text = path
showcontents()
Else
infobox.title = "Could not run file"
infobox.textinfo = "Error running file"
infobox.Show()
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() 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()
ElseIf lvfiles.SelectedItems(0).Text Like "Exit Folder" Then
infobox.title = "File Skimmer - Warning!"
infobox.textinfo = "You cannot delete this folder."
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
Try
My.Computer.FileSystem.DeleteDirectory(lbllocation.Text & "/" & lvfiles.SelectedItems(0).Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
showcontents()
Catch ex As Exception
infobox.title = "File Skimmer - Error!"
infobox.textinfo = "Failed to delete the folder / file(s)."
infobox.Show()
End Try
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
Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
btndeletefile_Click()
End Sub
End Class

55
ShiftOS/File_Crypt.vb
View file

@ -1,55 +0,0 @@
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

237
ShiftOS/FloatyBird.Designer.vb generated
View file

@ -1,237 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FloatyBird
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.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.pgcontents = New System.Windows.Forms.Panel()
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.pgleft.SuspendLayout()
Me.pgright.SuspendLayout()
Me.titlebar.SuspendLayout()
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'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, 313)
Me.pgleft.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, 311)
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(807, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 313)
Me.pgright.TabIndex = 17
'
'pgbottomrcorner
'
Me.pgbottomrcorner.BackColor = System.Drawing.Color.Red
Me.pgbottomrcorner.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottomrcorner.Location = New System.Drawing.Point(0, 311)
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(809, 30)
Me.titlebar.TabIndex = 14
'
'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
'
'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(89, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Template"
'
'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(807, 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, 341)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(805, 2)
Me.pgbottom.TabIndex = 18
'
'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(805, 311)
Me.pgcontents.TabIndex = 15
'
'pullbs
'
Me.pullbs.Interval = 1
'
'pullbottom
'
Me.pullbottom.Interval = 1
'
'pullside
'
Me.pullside.Interval = 1
'
'FloatyBird
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(809, 343)
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 = "FloatyBird"
Me.Text = "template"
Me.TopMost = True
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 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 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 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
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

129
ShiftOS/FloatyBird.resx
View file

@ -1,129 +0,0 @@
<?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="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1056, 18</value>
</metadata>
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1140, 18</value>
</metadata>
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1253, 18</value>
</metadata>
</root>

415
ShiftOS/FloatyBird.vb
View file

@ -1,415 +0,0 @@
Public Class FloatyBird
#Region "Template Code"
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
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
ShiftOSDesktop.pnlpanelbuttondodge.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttondodge, ShiftOSDesktop.tbdodgeicon, ShiftOSDesktop.tbdodgetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
' fixes growing issue
If justopened = False Then
Me.Size = New Size(Me.Width, Me.Height - (Skins.titlebarheight / 2))
End If
If justopened = True Then
Me.Size = New Size(420, 510) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.dodgename 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtknowledgeinputicon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.dodgeicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
'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 Region
End Class

508
ShiftOS/FloodGate Manager.Designer.vb generated
View file

@ -1,508 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FloodGate_Manager
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pullside = New System.Windows.Forms.Timer(Me.components)
Me.pullbs = New System.Windows.Forms.Timer(Me.components)
Me.pgcontents = New System.Windows.Forms.Panel()
Me.pnlPackages = New System.Windows.Forms.Panel()
Me.pkgprogress = New ShiftOS.ProgressBarEX()
Me.lbfirstlaunchmsg = New System.Windows.Forms.Label()
Me.lbpkgdnload = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.pnlstatus = New System.Windows.Forms.Panel()
Me.progress = New ShiftOS.ProgressBarEX()
Me.lblstatusinfo = New System.Windows.Forms.Label()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.dnlBox = New System.Windows.Forms.ListView()
Me.pnlsearchheader = New System.Windows.Forms.Panel()
Me.urlBox = New System.Windows.Forms.TextBox()
Me.lblfeaturedfloods = New System.Windows.Forms.Label()
Me.pnlDownload = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.progDesc = New System.Windows.Forms.Label()
Me.progLabel = New System.Windows.Forms.Label()
Me.progDownload = New System.Windows.Forms.Button()
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.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.pgbottomlcorner = New System.Windows.Forms.Panel()
Me.pgleft = New System.Windows.Forms.Panel()
Me.titlebar = New System.Windows.Forms.Panel()
Me.pnlicon = New System.Windows.Forms.PictureBox()
Me.shouldnotneedtoexist = New System.Windows.Forms.Timer(Me.components)
Me.dnloadtimer = New System.Windows.Forms.Timer(Me.components)
Me.tmrdwnld = New System.Windows.Forms.Timer(Me.components)
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
Me.pgcontents.SuspendLayout()
Me.pnlPackages.SuspendLayout()
Me.pnlstatus.SuspendLayout()
Me.pnlSearch.SuspendLayout()
Me.pnlsearchheader.SuspendLayout()
Me.pnlDownload.SuspendLayout()
Me.pgright.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
'
'pgcontents
'
Me.pgcontents.BackColor = System.Drawing.Color.White
Me.pgcontents.Controls.Add(Me.pnlPackages)
Me.pgcontents.Controls.Add(Me.pnlstatus)
Me.pgcontents.Controls.Add(Me.pnlSearch)
Me.pgcontents.Controls.Add(Me.pnlDownload)
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(847, 436)
Me.pgcontents.TabIndex = 20
'
'pnlPackages
'
Me.pnlPackages.Controls.Add(Me.pkgprogress)
Me.pnlPackages.Controls.Add(Me.lbfirstlaunchmsg)
Me.pnlPackages.Controls.Add(Me.lbpkgdnload)
Me.pnlPackages.Controls.Add(Me.Button3)
Me.pnlPackages.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlPackages.Location = New System.Drawing.Point(0, 0)
Me.pnlPackages.Name = "pnlPackages"
Me.pnlPackages.Size = New System.Drawing.Size(847, 402)
Me.pnlPackages.TabIndex = 5
'
'pkgprogress
'
Me.pkgprogress.BlockSeparation = 3
Me.pkgprogress.BlockWidth = 5
Me.pkgprogress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pkgprogress.Color = System.Drawing.Color.Gray
Me.pkgprogress.Location = New System.Drawing.Point(49, 123)
Me.pkgprogress.MaxValue = 100
Me.pkgprogress.MinValue = 0
Me.pkgprogress.Name = "pkgprogress"
Me.pkgprogress.Orientation = ShiftOS.ProgressBarEX.ProgressBarOrientation.Horizontal
Me.pkgprogress.ShowValue = False
Me.pkgprogress.Size = New System.Drawing.Size(722, 45)
Me.pkgprogress.Step = 10
Me.pkgprogress.Style = ShiftOS.ProgressBarEX.ProgressBarExStyle.Continuous
Me.pkgprogress.TabIndex = 3
Me.pkgprogress.Value = 0
'
'lbfirstlaunchmsg
'
Me.lbfirstlaunchmsg.AutoSize = True
Me.lbfirstlaunchmsg.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbfirstlaunchmsg.Location = New System.Drawing.Point(42, 28)
Me.lbfirstlaunchmsg.Name = "lbfirstlaunchmsg"
Me.lbfirstlaunchmsg.Size = New System.Drawing.Size(395, 37)
Me.lbfirstlaunchmsg.TabIndex = 2
Me.lbfirstlaunchmsg.Text = "Downloading Package List"
'
'lbpkgdnload
'
Me.lbpkgdnload.AutoSize = True
Me.lbpkgdnload.Location = New System.Drawing.Point(76, 80)
Me.lbpkgdnload.Name = "lbpkgdnload"
Me.lbpkgdnload.Size = New System.Drawing.Size(171, 13)
Me.lbpkgdnload.TabIndex = 1
Me.lbpkgdnload.Text = "(You will only have to do this once)"
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1237, 7)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 0
Me.Button3.Text = "Download"
Me.Button3.UseVisualStyleBackColor = True
'
'pnlstatus
'
Me.pnlstatus.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlstatus.Controls.Add(Me.progress)
Me.pnlstatus.Controls.Add(Me.lblstatusinfo)
Me.pnlstatus.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlstatus.Location = New System.Drawing.Point(0, 402)
Me.pnlstatus.Name = "pnlstatus"
Me.pnlstatus.Size = New System.Drawing.Size(847, 34)
Me.pnlstatus.TabIndex = 4
'
'progress
'
Me.progress.BlockSeparation = 3
Me.progress.BlockWidth = 5
Me.progress.Color = System.Drawing.Color.Gray
Me.progress.Dock = System.Windows.Forms.DockStyle.Bottom
Me.progress.Location = New System.Drawing.Point(0, 22)
Me.progress.MaxValue = 100
Me.progress.MinValue = 0
Me.progress.Name = "progress"
Me.progress.Orientation = ShiftOS.ProgressBarEX.ProgressBarOrientation.Horizontal
Me.progress.ShowValue = False
Me.progress.Size = New System.Drawing.Size(845, 10)
Me.progress.Step = 10
Me.progress.Style = ShiftOS.ProgressBarEX.ProgressBarExStyle.Continuous
Me.progress.TabIndex = 1
Me.progress.Value = 0
'
'lblstatusinfo
'
Me.lblstatusinfo.AutoSize = True
Me.lblstatusinfo.Location = New System.Drawing.Point(9, 6)
Me.lblstatusinfo.Name = "lblstatusinfo"
Me.lblstatusinfo.Size = New System.Drawing.Size(38, 13)
Me.lblstatusinfo.TabIndex = 0
Me.lblstatusinfo.Text = "Ready"
'
'pnlSearch
'
Me.pnlSearch.BackColor = System.Drawing.Color.White
Me.pnlSearch.Controls.Add(Me.dnlBox)
Me.pnlSearch.Controls.Add(Me.pnlsearchheader)
Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlSearch.Location = New System.Drawing.Point(0, 0)
Me.pnlSearch.Name = "pnlSearch"
Me.pnlSearch.Size = New System.Drawing.Size(847, 436)
Me.pnlSearch.TabIndex = 3
'
'dnlBox
'
Me.dnlBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dnlBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.dnlBox.Location = New System.Drawing.Point(0, 54)
Me.dnlBox.Name = "dnlBox"
Me.dnlBox.Size = New System.Drawing.Size(847, 382)
Me.dnlBox.TabIndex = 4
Me.dnlBox.UseCompatibleStateImageBehavior = False
'
'pnlsearchheader
'
Me.pnlsearchheader.Controls.Add(Me.urlBox)
Me.pnlsearchheader.Controls.Add(Me.lblfeaturedfloods)
Me.pnlsearchheader.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlsearchheader.Location = New System.Drawing.Point(0, 0)
Me.pnlsearchheader.Name = "pnlsearchheader"
Me.pnlsearchheader.Size = New System.Drawing.Size(847, 54)
Me.pnlsearchheader.TabIndex = 3
'
'urlBox
'
Me.urlBox.Dock = System.Windows.Forms.DockStyle.Top
Me.urlBox.Location = New System.Drawing.Point(0, 0)
Me.urlBox.Name = "urlBox"
Me.urlBox.Size = New System.Drawing.Size(847, 20)
Me.urlBox.TabIndex = 2
'
'lblfeaturedfloods
'
Me.lblfeaturedfloods.AutoSize = True
Me.lblfeaturedfloods.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblfeaturedfloods.Location = New System.Drawing.Point(45, 20)
Me.lblfeaturedfloods.Name = "lblfeaturedfloods"
Me.lblfeaturedfloods.Size = New System.Drawing.Size(170, 24)
Me.lblfeaturedfloods.TabIndex = 3
Me.lblfeaturedfloods.Text = "Featured Floods:"
'
'pnlDownload
'
Me.pnlDownload.Controls.Add(Me.Button1)
Me.pnlDownload.Controls.Add(Me.progDesc)
Me.pnlDownload.Controls.Add(Me.progLabel)
Me.pnlDownload.Controls.Add(Me.progDownload)
Me.pnlDownload.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDownload.Location = New System.Drawing.Point(0, 0)
Me.pnlDownload.Name = "pnlDownload"
Me.pnlDownload.Size = New System.Drawing.Size(847, 436)
Me.pnlDownload.TabIndex = 2
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(10, 7)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Back"
Me.Button1.UseVisualStyleBackColor = True
'
'progDesc
'
Me.progDesc.AutoSize = True
Me.progDesc.Location = New System.Drawing.Point(10, 46)
Me.progDesc.Name = "progDesc"
Me.progDesc.Size = New System.Drawing.Size(41, 13)
Me.progDesc.TabIndex = 2
Me.progDesc.Text = "Desc..."
'
'progLabel
'
Me.progLabel.AutoSize = True
Me.progLabel.Location = New System.Drawing.Point(10, 33)
Me.progLabel.Name = "progLabel"
Me.progLabel.Size = New System.Drawing.Size(35, 13)
Me.progLabel.TabIndex = 1
Me.progLabel.Text = "Name"
'
'progDownload
'
Me.progDownload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.progDownload.Location = New System.Drawing.Point(644, 6)
Me.progDownload.Name = "progDownload"
Me.progDownload.Size = New System.Drawing.Size(193, 23)
Me.progDownload.TabIndex = 0
Me.progDownload.Text = "Download"
Me.progDownload.UseVisualStyleBackColor = True
'
'pgbottom
'
Me.pgbottom.BackColor = System.Drawing.Color.Gray
Me.pgbottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottom.Location = New System.Drawing.Point(2, 466)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(847, 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
'
'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("Microsoft Sans Serif", 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(157, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "FloodGate Manager"
'
'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(849, 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, 436)
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(849, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 438)
Me.pgright.TabIndex = 22
'
'pgbottomlcorner
'
Me.pgbottomlcorner.BackColor = System.Drawing.Color.Red
Me.pgbottomlcorner.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pgbottomlcorner.Location = New System.Drawing.Point(0, 436)
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, 438)
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(851, 30)
Me.titlebar.TabIndex = 19
'
'pnlicon
'
Me.pnlicon.BackColor = System.Drawing.Color.Transparent
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
'
'shouldnotneedtoexist
'
'
'dnloadtimer
'
'
'tmrdwnld
'
Me.tmrdwnld.Interval = 1000
'
'FloodGate_Manager
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(1, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(1, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(851, 468)
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 = "FloodGate_Manager"
Me.Text = "FloodGate Manager"
Me.TopMost = True
Me.pgcontents.ResumeLayout(False)
Me.pnlPackages.ResumeLayout(False)
Me.pnlPackages.PerformLayout()
Me.pnlstatus.ResumeLayout(False)
Me.pnlstatus.PerformLayout()
Me.pnlSearch.ResumeLayout(False)
Me.pnlsearchheader.ResumeLayout(False)
Me.pnlsearchheader.PerformLayout()
Me.pnlDownload.ResumeLayout(False)
Me.pnlDownload.PerformLayout()
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 pullside As System.Windows.Forms.Timer
Friend WithEvents pullbs As System.Windows.Forms.Timer
Friend WithEvents pgcontents As System.Windows.Forms.Panel
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 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 pgbottomlcorner As System.Windows.Forms.Panel
Friend WithEvents pgleft As System.Windows.Forms.Panel
Friend WithEvents titlebar As System.Windows.Forms.Panel
Friend WithEvents shouldnotneedtoexist As System.Windows.Forms.Timer
Friend WithEvents pnlDownload As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents progDesc As System.Windows.Forms.Label
Friend WithEvents progLabel As System.Windows.Forms.Label
Friend WithEvents progDownload As System.Windows.Forms.Button
Friend WithEvents pnlSearch As System.Windows.Forms.Panel
Friend WithEvents dnlBox As System.Windows.Forms.ListView
Friend WithEvents pnlsearchheader As System.Windows.Forms.Panel
Friend WithEvents lblfeaturedfloods As System.Windows.Forms.Label
Friend WithEvents urlBox As System.Windows.Forms.TextBox
Friend WithEvents pnlstatus As System.Windows.Forms.Panel
Friend WithEvents lblstatusinfo As System.Windows.Forms.Label
Friend WithEvents pnlPackages As System.Windows.Forms.Panel
Friend WithEvents lbfirstlaunchmsg As System.Windows.Forms.Label
Friend WithEvents lbpkgdnload As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents dnloadtimer As System.Windows.Forms.Timer
Friend WithEvents tmrdwnld As System.Windows.Forms.Timer
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
Friend WithEvents progress As ShiftOS.ProgressBarEX
Friend WithEvents pkgprogress As ShiftOS.ProgressBarEX
End Class

141
ShiftOS/FloodGate Manager.resx
View file

@ -1,141 +0,0 @@
<?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>316, 24</value>
</metadata>
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>433, 24</value>
</metadata>
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>14, 24</value>
</metadata>
<metadata name="shouldnotneedtoexist.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 22</value>
</metadata>
<metadata name="dnloadtimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>517, 24</value>
</metadata>
<metadata name="tmrdwnld.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 41</value>
</metadata>
<metadata name="ColorDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>121, 41</value>
</metadata>
</root>

700
ShiftOS/FloodGate Manager.vb
View file

@ -1,700 +0,0 @@
Imports System.IO
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Public Class FloodGate_Manager
Dim itemGood As Integer()
Dim itemPrice As Decimal()
Dim itemName As String()
Dim itemDesc As String()
Dim itemSize As Integer()
Dim itemURL As String()
Dim item As Integer
Dim time As Integer
Dim seeders As Integer
Dim progpop As Integer
Dim daysafterrelease As Integer
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
FloodRegistry.registerItems()
ShiftOSDesktop.pnlpanelbuttonfloodgate.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonfloodgate, ShiftOSDesktop.tbfloodgateicon, ShiftOSDesktop.tbfloodgatetext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
If ShiftOSDesktop.FloodGateManagerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
pnlSearch.Dock = DockStyle.Fill
If (ShiftOSDesktop.installedfloodgatenow) Then
dnloadtimer.Start()
pnlPackages.BringToFront()
pnlPackages.Dock = DockStyle.Fill
End If
Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
shouldnotneedtoexist.Start()
End Sub
#Region "Template Code"
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 'replace with minimum size
Public minimumsizeheight As Integer = 200 'replace with minimum size
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(851, 468) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.floodgatename 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.floodgateicontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
#Region "Add Items"
Private Sub addItems(repl As Boolean)
'See http://shiftos.net/topic1162.html for the updated tutorial
If (repl) Then
dnlBox.Items.Clear()
End If
End Sub
#End Region
#Region "Download Programs"
Dim speed As Decimal
Private Sub progDownload_Click(sender As Object, e As EventArgs) Handles progDownload.Click
If (Not System.IO.Directory.Exists(ShiftOSDesktop.ShiftOSPath & "\Home\Downloads")) Then
System.IO.Directory.CreateDirectory(ShiftOSDesktop.ShiftOSPath & "\Home\Downloads")
End If
Randomize()
Dim value As Integer = CInt(Int(100 * Rnd()))
If (value > itemGood(item)) Then
'do progress delay thing
'(use itemSize(item) to get file size for whoever wants to implement it)
'make the download speed faster than download manager downloads
Select Case progLabel.Text.ToLower
'Case "program name all lowercase"
' code to install program
Case "bitnote hack"
ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + 5
Bitnote_Wallet.logtransaction(5, "ShifterHacker", "Check out my other ShiftOS hacks at shiftnet.shifterhacker/home.rnp")
Bitnote_Wallet.setupbitnotestats()
Case Else
If seeders > 0 Then
lblstatusinfo.Text = "Connecting to " & seeders & " seeders"
speed = seeders * (Math.Ceiling(Rnd() * 10))
progress.MaxValue = itemSize(item)
tmrdwnld.Start()
Else
infobox.showinfo("No Seeders", "There are no seeders to complete the file transfer")
End If
'infobox.title = "FloodGate Manager - Error"
'infobox.textinfo = "Program Not Found: " & progLabel.Text & Environment.NewLine & "Make sure you have the correct address and there are enough seeders."
'infobox.Show()
End Select
Else
Dim x As Integer = Math.Ceiling(Rnd() * 4)
Select Case x
Case 1
Viruses.zerogravity = True
Viruses.zerogravitythreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupzerovirus()
Case 2
Viruses.mousetrap = True
Viruses.mousetrapthreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupmousetrapvirus()
Case 3
Viruses.beeper = True
Viruses.beeperthreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setupbeepervirus()
Case Else
Viruses.ThePlague = True
Viruses.theplaguethreatlevel = CInt(Math.Floor((4) * Rnd())) + 1
Viruses.setuptheplague()
End Select
'Possible non-virus viruses:
'Take away codepoints
'Take away bitnotes
End If
End Sub
Dim i As Integer
Private Sub tmrdwnld_Tick(sender As Object, e As EventArgs) Handles tmrdwnld.Tick
If i < progress.MaxValue Then
progress.Value = i
i = i + speed
lblstatusinfo.Text = "Receiving " & speed & "kb/s from " & seeders & " seeders. File transferred " & progress.Value & "/" & progress.MaxValue & "kb"
Else
progress.Value = progress.MaxValue
progress.Value = 0
i = 0
lblstatusinfo.Text = "Ready"
successinfo(progLabel.Text) 'This both writes the file and show the success infobox message
tmrdwnld.Stop()
End If
End Sub
Private Sub successinfo(ByVal item As String)
'WRITES FILE
Dim sw As StreamWriter
sw = New StreamWriter(ShiftOSDesktop.ShiftOSPath & "Shiftum42\Drivers\HDD.dri")
sw.WriteLine(item)
sw.Close()
File_Crypt.EncryptFile(ShiftOSDesktop.ShiftOSPath + "Shiftum42\Drivers\HDD.dri", ShiftOSDesktop.ShiftOSPath & "\Home\Downloads\" & item & ".saa", ShiftOSDesktop.sSecretKey) 'saa = stand alone application
'SHOWS SUCCESS INFO
infobox.title = item & " Download successfully"
infobox.textinfo = item & " has been successfully downloaded to your downloads folder (C:\ShiftOS\Home\Downloads)"
infobox.Show()
End Sub
#End Region
#Region "The code"
Public Sub setup()
ReDim itemGood(0 To 0)
addItems(True)
End Sub
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
pnlSearch.BringToFront()
dosize()
dnlBox.View = View.List
End Sub
Public Sub addItem(item As String, chance As Double, author As String, desc As String, url As String, size As String, li As Boolean)
ReDim Preserve itemGood(0 To itemGood.Length)
ReDim Preserve itemURL(0 To itemGood.Length)
ReDim Preserve itemName(0 To itemGood.Length)
ReDim Preserve itemDesc(0 To itemGood.Length)
ReDim Preserve itemSize(0 To itemGood.Length)
If li Then dnlBox.Items.Add(item)
itemName(itemGood.Length - 2) = item
itemGood(itemGood.Length - 2) = chance
itemSize(itemGood.Length - 2) = size
itemDesc(itemGood.Length - 2) = "Submitted by: " & author & "\" & desc
itemURL(itemGood.Length - 2) = url
End Sub
Private Sub dnlBox_click(sender As Object, e As EventArgs) Handles dnlBox.Click
item = dnlBox.FocusedItem.Index
dnl(dnlBox.FocusedItem.Text, item)
'progLabel.Text = dnlBox.FocusedItem.Text
'progDesc.Text = "URL: " & itemURL(item) & ControlChars.NewLine & itemDesc(item).Replace("\"c, ControlChars.NewLine)
'progDownload.Text = "Download: " & CStr(itemSize(item)) & "kb"
'pnlDownload.BringToFront()
'pnlDownload.Dock = DockStyle.Fill
'setupseeders()
'updatestats(dnlBox.FocusedItem.Index)
End Sub
Private Sub dnl(name As String, item As String)
progLabel.Text = name
progDesc.Text = "URL: " & itemURL(item) & ControlChars.NewLine & itemDesc(item).Replace("\"c, ControlChars.NewLine)
progDownload.Text = "Download: " & CStr(itemSize(item)) & "kb"
pnlDownload.BringToFront()
pnlDownload.Dock = DockStyle.Fill
setupseeders()
updatestats(item)
End Sub
Private Sub dosize()
progDownload.Location = New Point(Me.Width - 193 - 7, 7)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
pnlSearch.BringToFront()
pnlSearch.Dock = DockStyle.Fill
End Sub
Public Sub download(url As String)
Me.Show()
Me.BringToFront()
If itemURL.Contains(url) Then
For i As Integer = 0 To itemURL.Length - 1
If (itemURL(i) = url) Then
item = i
Exit For
End If
Next
dnl(itemName(item), item)
'progLabel.Text = itemName(item) & " (" & url & ")"
'progDesc.Text = itemDesc(item).Replace("\", ControlChars.NewLine)
'pnlDownload.BringToFront()
End If
End Sub
Private Sub urlbox_Press(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles urlBox.KeyDown
If (e.KeyCode = Keys.Enter) Then
download(urlBox.Text)
End If
End Sub
Private Sub shouldnotneedtoexist_Tick(sender As Object, e As EventArgs) Handles shouldnotneedtoexist.Tick
dosize()
End Sub
Private Sub updatestats(ByVal item As String)
Select Case item
Case "program1" 'Program name
lblstatusinfo.Text = "Viewing flood: " & item & " | Flood Seeders: " & seeders
End Select
End Sub
Private Sub progDesc_Click(sender As Object, e As EventArgs) Handles progDesc.Click
If (progDesc.Text.Contains("ƒ")) Then
Shiftnet.loadsite(progDesc.Text.Split("ƒ")(1))
End If
End Sub
Private Sub dnloadtimer_Tick(sender As Object, e As EventArgs) Handles dnloadtimer.Tick
time = time + 1
If (ShiftOSDesktop.installedfloodgatenow) Then
pnlPackages.BringToFront()
pnlPackages.Dock = DockStyle.Fill
pkgprogress.Value = time
If (time = 100) Then
ShiftOSDesktop.installedfloodgatenow = False
dnloadtimer.Stop()
time = 0
pnlSearch.Dock = DockStyle.Fill
pnlSearch.BringToFront()
End If
Else
If (time > itemSize(item)) Then
'do stuff
End If
End If
End Sub
Private Sub setupseeders()
Select Case progLabel.Text.ToLower
Case "dodge"
progpop = 67
Dim i() As String = Split(Date.Today, "/")
daysafterrelease = i(0) - 6
Case "Web browser"
progpop = 94
Dim i() As String = Split(Date.Today, "/")
daysafterrelease = i(0) - 11
Case "b1n0t3 h4ck"
progpop = 69
Dim i() As String = Split(Date.Today, "/")
daysafterrelease = i(0) - 0
Case "virus scanner"
progpop = 56
Dim i() As String = Split(Date.Today, "/")
daysafterrelease = i(0) - 30
'Case "program name"
'How popular is the program scale of 1 - 100
'Dim i() As String = Split(Date.Today, "/")
'daysafterrelease = i(0) - release day(random constant)
Case Else 'For anyone who forgets because I tried to move the entire process into FloodRegistry
progpop = 99
Dim i() As String = Split(Date.Today, "/")
daysafterrelease = i(0) - 50
End Select
seeders = Math.Ceiling(Rnd() * (2 * progpop)) - daysafterrelease
If seeders < 0 Then
seeders = 0
End If
End Sub
#End Region
End Class

37
ShiftOS/FloodRegistry.Designer.vb generated
View file

@ -1,37 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FloodRegistry
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.SuspendLayout()
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 261)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
End Class

120
ShiftOS/FloodRegistry.resx
View file

@ -1,120 +0,0 @@
<?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>

37
ShiftOS/FloodRegistry.vb
View file

@ -1,37 +0,0 @@
Public Class FloodRegistry
Dim items As String
Public Sub registerItems()
FloodGate_Manager.setup()
Shiftnet.tpbsetup()
'Format:
'registerItem("Program Name", "Author name", Percent chance to be a virus, "Program Description \ for Newline", "URL", File size in kb, Places the program is (Seperated by commas)
'Example:
'registerItem("SomeProgram",95,"ImakePIRATES","This Is the description\with a newline","shiftnet.pirate.pirateboat/floods/flood.flood",256,"FloodGate" ' This program will be added to PirateBoat and to Floodgate (a shiftnet.pirate.pirateboat/ link will add it to pirate boat)
'registerItem("SomeProg2222",0,"MYPROGS","This Is the description\with a newline\and another","sssss.floods/.flood",100,"" ' This program will not be added to pirateboat or to floodgate
registerItem("Dodge", 20, "ThePirateMaster", "Dodge is a program where you earn code point for dodging falling objects\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/dodge.flood", 500, "FloodGate") 'Not adding to floodgate will still be downloadable by floodgate with the URL
registerItem("Codepoint Hack", 20, "ShifterHacker101", "Created by: ShifterHacker\This hack gives you 5 codepoints\Check out my other hacks at shiftnet.shifterhacker/home.rnp \ƒshiftnet.shifterhacker/home.rnp", "shiftnet.shifterhacker/hacks/codepointhack.flood", 243, "FloodGate")
registerItem("B1N0T3 H4CK", 0, "31T3 H4CKER", "Created by ME\This hack gives you 10 B1TN0T3!\!!!!S000000000 C000000L.", "shiftnet.leethackz/deezhax/bitnotehackorz.flood", 100, "FloodGate")
registerItem("Virus Scanner", 50, "ThePirateMaster", "This Virus Scanner is a program that helps you fend off nasty infections that could harm your computer!\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/virusscanner.flood", 10000, "FloodGate")
registerItem("Labyrinth", 20, "ThePirateMaster", "Labytinth is a game where you run through mazes to collect codepoints in limited time\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/labyrinth.flood", 500, "FloodGate")
registerItem("Calculator", 20, "ThePirateMaster", "Calculator is a utility application that lets you add, subtract, multiply, and devide, all in your OS\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/calculator.flood", 500, "FloodGate")
registerItem("Audio Player", 20, "ThePirateMaster", "Audio player is an app that lets you play audio\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/audio_player.flood", 500, "FloodGate")
registerItem("Video Player", 20, "ThePirateMaster", "Video player is an app that lets you play video\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/video_player.flood", 500, "FloodGate")
registerItem("Web Browser", 20, "MF", "The web browser is an app that lets you browse the World Wide Web... with internet explorer.\Pirate it for free, download now.", "shiftnet.pirate.pirateboat/floods/web_browser.flood", 500, "")
registerItem("Virus Grade 1 removal unlocker", 75, "ShiftHacker102", "This unlocks the virus removal feature of grade 1 viruses in the virus scanner", "shiftnet.pirate.pirateboat/floods/Virus_remove-1", 500, "")
registerItem("Virus Grade 2 removal unlocker", 80, "ShiftHacker102", "This unlocks the virus removal feature of grade 2 viruses in the virus scanner", "shiftnet.pirate.pirateboat/floods/Virus_remove-2", 500, "")
registerItem("Virus Grade 3 removal unlocker", 85, "ShiftHacker102", "This unlocks the virus removal feature of grade 3 viruses in the virus scanner", "shiftnet.pirate.pirateboat/floods/Virus_remove-3", 500, "")
registerItem("Virus Grade 4 removal unlocker", 90, "ShiftHacker102", "This unlocks the virus removal feature of grade 4 viruses in the virus scanner", "shiftnet.pirate.pirateboat/floods/Virus_remove-4", 500, "")
End Sub
Private Sub registerItem(name As String, virus As Double, author As String, desc As String, url As String, size As String, places As String)
If (places.Contains("FloodGate")) Then
'MsgBox("how...")
FloodGate_Manager.addItem(name, virus, author, desc, url, size, True)
Else
FloodGate_Manager.addItem(name, virus, author, desc, url, size, False) ' Because of how FloodGate works, this is required
End If
If (url.StartsWith("shiftnet.pirate.pirateboat/")) Then
Shiftnet.tpb_addItem(name, url)
End If
items = items & "|" & name & "#" & CStr(virus) & "#" & author & "#" & desc & "#" & url & "#" & size & "#" & places
End Sub
End Class

303
ShiftOS/FullScreenLogin Customizer.Designer.vb generated
View file

@ -1,303 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FullScreenLoginCustomizer
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FullScreenLoginCustomizer))
Me.txtusername = New TextBox 'MichaelsMovableControlSuite.MovableTextBox()
Me.txtpassword = New TextBox 'MichaelsMovableControlSuite.MovableTextBox()
Me.userpic = New PictureBox ' MichaelsMovableControlSuite.MovablePictureBox()
Me.loginbtn = New Button ' MichaelsMovableControlSuite.MovableButton()
Me.shutdown = New Button 'MichaelsMovableControlSuite.MovableButton()
Me.preview = New System.Windows.Forms.Panel()
Me.pnldefault = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Titlebar = New System.Windows.Forms.Panel()
Me.lbtitletext = New System.Windows.Forms.Label()
Me.pnluserpicture = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
CType(Me.userpic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.preview.SuspendLayout()
Me.pnldefault.SuspendLayout()
Me.Titlebar.SuspendLayout()
Me.pnluserpicture.SuspendLayout()
Me.SuspendLayout()
'
'txtusername
'
Me.txtusername.BackColor = System.Drawing.Color.Black
Me.txtusername.Cursor = System.Windows.Forms.Cursors.Arrow
Me.txtusername.Font = New System.Drawing.Font("Trebuchet MS", 12.0!)
Me.txtusername.ForeColor = System.Drawing.Color.Gray
Me.txtusername.Location = New System.Drawing.Point(231, 183)
Me.txtusername.Name = "txtusername"
Me.txtusername.ReadOnly = True
Me.txtusername.Size = New System.Drawing.Size(248, 26)
Me.txtusername.TabIndex = 0
Me.txtusername.Text = "Username"
'
'txtpassword
'
Me.txtpassword.BackColor = System.Drawing.Color.Black
Me.txtpassword.Cursor = System.Windows.Forms.Cursors.Arrow
Me.txtpassword.Font = New System.Drawing.Font("Trebuchet MS", 12.0!)
Me.txtpassword.ForeColor = System.Drawing.Color.Gray
Me.txtpassword.Location = New System.Drawing.Point(231, 224)
Me.txtpassword.Name = "txtpassword"
Me.txtpassword.ReadOnly = True
Me.txtpassword.Size = New System.Drawing.Size(248, 26)
Me.txtpassword.TabIndex = 1
Me.txtpassword.Text = "Password"
Me.txtpassword.UseSystemPasswordChar = True
'
'userpic
'
Me.userpic.Cursor = System.Windows.Forms.Cursors.Arrow
Me.userpic.Location = New System.Drawing.Point(97, 183)
Me.userpic.Name = "userpic"
Me.userpic.Size = New System.Drawing.Size(128, 128)
Me.userpic.TabIndex = 2
Me.userpic.TabStop = False
'
'loginbtn
'
Me.loginbtn.Cursor = System.Windows.Forms.Cursors.Arrow
Me.loginbtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.loginbtn.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.loginbtn.ForeColor = System.Drawing.Color.White
Me.loginbtn.Location = New System.Drawing.Point(328, 268)
Me.loginbtn.Name = "loginbtn"
Me.loginbtn.Size = New System.Drawing.Size(151, 43)
Me.loginbtn.TabIndex = 3
Me.loginbtn.Text = "Log In"
Me.loginbtn.UseVisualStyleBackColor = True
'
'shutdown
'
Me.shutdown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.shutdown.Cursor = System.Windows.Forms.Cursors.Arrow
Me.shutdown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.shutdown.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.shutdown.ForeColor = System.Drawing.Color.White
Me.shutdown.Location = New System.Drawing.Point(1755, 715)
Me.shutdown.Name = "shutdown"
Me.shutdown.Size = New System.Drawing.Size(137, 50)
Me.shutdown.TabIndex = 4
Me.shutdown.Text = "Shutdown"
Me.shutdown.UseVisualStyleBackColor = True
'
'preview
'
Me.preview.Controls.Add(Me.txtusername)
Me.preview.Controls.Add(Me.shutdown)
Me.preview.Controls.Add(Me.txtpassword)
Me.preview.Controls.Add(Me.loginbtn)
Me.preview.Controls.Add(Me.userpic)
Me.preview.Dock = System.Windows.Forms.DockStyle.Fill
Me.preview.Location = New System.Drawing.Point(0, 30)
Me.preview.Name = "preview"
Me.preview.Size = New System.Drawing.Size(1904, 771)
Me.preview.TabIndex = 5
'
'pnldefault
'
Me.pnldefault.Controls.Add(Me.Label3)
Me.pnldefault.Controls.Add(Me.Label4)
Me.pnldefault.Controls.Add(Me.Label2)
Me.pnldefault.Controls.Add(Me.Label1)
Me.pnldefault.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnldefault.ForeColor = System.Drawing.Color.White
Me.pnldefault.Location = New System.Drawing.Point(0, 801)
Me.pnldefault.Name = "pnldefault"
Me.pnldefault.Size = New System.Drawing.Size(1904, 240)
Me.pnldefault.TabIndex = 6
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(352, 46)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(293, 111)
Me.Label3.TabIndex = 8
Me.Label3.Text = "User Picture not in a good location? Need to move that Login Button ever-so-sligh" & _
"tly? Moving objects around the screen is as easy as Click, Drag, Release!"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.Label4.Location = New System.Drawing.Point(351, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(128, 22)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Moving Controls"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(13, 46)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(293, 111)
Me.Label2.TabIndex = 6
Me.Label2.Text = resources.GetString("Label2.Text")
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.Label1.Location = New System.Drawing.Point(12, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(248, 22)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Login Screen Customizer - Home"
'
'Titlebar
'
Me.Titlebar.BackColor = System.Drawing.Color.Gray
Me.Titlebar.Controls.Add(Me.Button2)
Me.Titlebar.Controls.Add(Me.lbtitletext)
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(1904, 30)
Me.Titlebar.TabIndex = 5
'
'lbtitletext
'
Me.lbtitletext.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbtitletext.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lbtitletext.Location = New System.Drawing.Point(0, 0)
Me.lbtitletext.Margin = New System.Windows.Forms.Padding(3)
Me.lbtitletext.Name = "lbtitletext"
Me.lbtitletext.Size = New System.Drawing.Size(1904, 30)
Me.lbtitletext.TabIndex = 0
Me.lbtitletext.Text = "Login Screen Customizer"
Me.lbtitletext.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'pnluserpicture
'
Me.pnluserpicture.Controls.Add(Me.Button1)
Me.pnluserpicture.Controls.Add(Me.Label7)
Me.pnluserpicture.Controls.Add(Me.Label6)
Me.pnluserpicture.Controls.Add(Me.Label5)
Me.pnluserpicture.ForeColor = System.Drawing.Color.White
Me.pnluserpicture.Location = New System.Drawing.Point(0, 801)
Me.pnluserpicture.Name = "pnluserpicture"
Me.pnluserpicture.Size = New System.Drawing.Size(1904, 240)
Me.pnluserpicture.TabIndex = 9
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(20, 134)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(124, 94)
Me.Button1.TabIndex = 3
Me.Button1.UseVisualStyleBackColor = True
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(17, 108)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(77, 13)
Me.Label7.TabIndex = 2
Me.Label7.Text = "File for Picture:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(17, 46)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(262, 13)
Me.Label6.TabIndex = 1
Me.Label6.Text = "The picture associated to you when you're logging on."
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.Label5.Location = New System.Drawing.Point(16, 13)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(162, 22)
Me.Label5.TabIndex = 0
Me.Label5.Text = "User Account Picture"
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(1826, 5)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Apply"
Me.Button2.UseVisualStyleBackColor = True
'
'FullScreenLoginCustomizer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(1904, 1041)
Me.Controls.Add(Me.preview)
Me.Controls.Add(Me.Titlebar)
Me.Controls.Add(Me.pnluserpicture)
Me.Controls.Add(Me.pnldefault)
Me.Name = "FullScreenLoginCustomizer"
Me.Text = "FullScreenLogin"
CType(Me.userpic, System.ComponentModel.ISupportInitialize).EndInit()
Me.preview.ResumeLayout(False)
Me.preview.PerformLayout()
Me.pnldefault.ResumeLayout(False)
Me.pnldefault.PerformLayout()
Me.Titlebar.ResumeLayout(False)
Me.pnluserpicture.ResumeLayout(False)
Me.pnluserpicture.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtusername As TextBox 'MichaelsMovableControlSuite.MovableTextBox
Friend WithEvents txtpassword As TextBox 'MichaelsMovableControlSuite.MovableTextBox
Friend WithEvents userpic As PictureBox 'MichaelsMovableControlSuite.MovablePictureBox
Friend WithEvents loginbtn As Button 'MichaelsMovableControlSuite.MovableButton
Friend WithEvents shutdown As Button ' MichaelsMovableControlSuite.MovableButton
Friend WithEvents preview As System.Windows.Forms.Panel
Friend WithEvents pnldefault As System.Windows.Forms.Panel
Friend WithEvents Titlebar As System.Windows.Forms.Panel
Friend WithEvents lbtitletext As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents pnluserpicture As System.Windows.Forms.Panel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

123
ShiftOS/FullScreenLogin Customizer.resx
View file

@ -1,123 +0,0 @@
<?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>Welcome home! This is the Login Screen Customizer. It allows you to shift the Login Screen to look any way you want. This panel will update with various options as you're shifting. To close this window, press "Cancel" and to apply your changes, click "Apply".</value>
</data>
</root>

226
ShiftOS/FullScreenLogin Customizer.vb
View file

@ -1,226 +0,0 @@
Public Class FullScreenLoginCustomizer
#Region "Declarations"
Public autologin As Boolean
Public fullScreen As Boolean
Public inputfont As String
Public inputfontsize As Integer
Public inputfontstyle As FontStyle
Public inputforecolor As Color
Public inputbackcolor As Color
Public buttonfont As String
Public buttonfontsize As Integer
Public buttonfontstyle As FontStyle
Public userimagesize As Integer
Public userimagelocation As Point
Public userimage As Image
Public userimagelayout As ImageLayout
Public loginbg As Image
Public loginbgcolor As Color
Public loginbglayout As ImageLayout
'Locations...
Public userTextboxX As Integer
Public userTextBoxY As Integer
Public passTextBoxX As Integer
Public passTextBoxY As Integer
Public loginbtnX As Integer
Public loginbtnY As Integer
Public shutdownbtnX As Integer
Public shutdownbtnY As Integer
'Codepoint Stuff
Public earnedCP As Integer = 0
#End Region
Dim currentControl As String = "None"
Private Sub FullScreenLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
setskin()
End Sub
Public Sub setskin()
preview.BackColor = Skins.loginbgcolor
preview.BackgroundImage = Skins.loginbg
preview.BackgroundImageLayout = Skins.loginbglayout
userpic.Size = New Size(Skins.userimagesize, Skins.userimagesize)
userpic.BackgroundImage = Skins.userimage
userpic.BackColor = Color.Transparent
userpic.BackgroundImageLayout = Skins.userimagelayout
If Not IsNothing(Skins.userimagelocation) Then userpic.Location = Skins.userimagelocation
'buggy
'txtusername.ForeColor = Skins.inputforecolor
'txtpassword.ForeColor = Skins.inputforecolor
'txtusername.BackColor = Skins.inputbackcolor
'txtpassword.BackColor = Skins.inputbackcolor
txtusername.Location = New Point(Skins.userTextboxX, Skins.userTextBoxY)
txtpassword.Location = New Point(Skins.passTextBoxX, Skins.passTextBoxY)
loginbtn.Location = New Point(Skins.loginbtnX, Skins.loginbtnY)
shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY)
If shutdown.Location.X > preview.Height Then
shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY - pnldefault.Height)
End If
Titlebar.Height = Skins.titlebarheight
lbtitletext.ForeColor = Skins.titletextcolour
lbtitletext.BackColor = Skins.titlebarcolour
If Skins.titlebar Is Nothing Then lbtitletext.BackgroundImage = Nothing Else lbtitletext.BackgroundImage = Skins.titlebar
lbtitletext.BackgroundImageLayout = Skins.titlebarlayout
Select Case Skins.titletextpos
Case "Left"
lbtitletext.TextAlign = ContentAlignment.MiddleLeft
Case "Centre"
lbtitletext.TextAlign = ContentAlignment.MiddleCenter
End Select
lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
Me.TopMost = True
End Sub
Private Sub userpic_Click(sender As Object, e As EventArgs) Handles userpic.Click
currentControl = "User Picture"
determineSettings()
End Sub
Private Sub userpic_UserMove(sender As Object, e As MouseEventArgs) Handles userpic.MouseUp
userimagelocation = userpic.Location
setNewSkin()
End Sub
Public Sub determineSettings()
'Sets what settings panel is visible:
Select Case currentControl
Case "None"
pnldefault.Show()
Case "User Picture"
pnluserpicture.Show()
End Select
End Sub
Public Sub applySettings()
Skins.userimage = userimage
Skins.userimagesize = userimagesize
Skins.userimagelayout = userimagelayout
Skins.userimagelocation = userimagelocation
Skins.inputforecolor = inputforecolor
Skins.inputbackcolor = inputbackcolor
Skins.inputfont = inputfont
Skins.inputfontsize = inputfontsize
Skins.inputfontstyle = inputfontstyle
Skins.buttonfont = buttonfont
Skins.buttonfontsize = buttonfontsize
Skins.buttonfontstyle = buttonfontstyle
Skins.loginbg = loginbg
Skins.loginbglayout = loginbglayout
Skins.loginbgcolor = loginbgcolor
Skins.userTextboxX = userTextboxX
Skins.userTextBoxY = userTextBoxY
Skins.passTextBoxX = passTextBoxX
Skins.passTextBoxY = passTextBoxY
Skins.shutdownbtnX = shutdownbtnX
Skins.shutdownbtnY = shutdownbtnY
Skins.loginbtnX = loginbtnX
Skins.loginbtnY = loginbtnY
Skins.saveskinfiles(True)
infobox.showinfo("Login Screen Customizer", "You have earned " & earnedCP & " Code points for all customizations made to your login screen.")
Helper.addCP(earnedCP)
End Sub
Public Sub setDefaults()
userimage = Skins.userimage
userimagesize = Skins.userimagesize
userimagelayout = Skins.userimagelayout
userimagelocation = Skins.userimagelocation
inputforecolor = Skins.inputforecolor
inputbackcolor = Skins.inputbackcolor
inputfont = Skins.inputfont
inputfontsize = Skins.inputfontsize
inputfontstyle = Skins.inputfontstyle
buttonfont = Skins.buttonfont
buttonfontsize = Skins.buttonfontsize
buttonfontstyle = Skins.buttonfontstyle
loginbg = Skins.loginbg
loginbgcolor = Skins.loginbgcolor
loginbglayout = Skins.loginbglayout
userTextboxX = Skins.userTextboxX
userTextBoxY = Skins.userTextBoxY
passTextBoxX = Skins.passTextBoxX
passTextBoxY = Skins.passTextBoxY
shutdownbtnX = Skins.shutdownbtnX
shutdownbtnY = Skins.shutdownbtnY
loginbtnX = Skins.loginbtnX
loginbtnY = Skins.loginbtnY
End Sub
Public Sub setNewSkin()
preview.BackColor = loginbgcolor
If loginbg Is Nothing Then preview.BackgroundImage = Nothing Else preview.BackgroundImage = loginbg
preview.BackgroundImageLayout = loginbglayout
userpic.BackgroundImage = userimage
userpic.Size = New Size(userimagesize, userimagesize)
userpic.BackgroundImageLayout = userimagelayout
txtusername.ForeColor = inputforecolor
txtpassword.ForeColor = inputforecolor
txtusername.BackColor = inputbackcolor
txtpassword.BackColor = inputbackcolor
addRandomCP()
End Sub
Public Sub addRandomCP()
Dim rand As New Random
Dim numToAdd As Integer = rand.Next(1, 5)
earnedCP = earnedCP + numToAdd
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Graphic_Picker.graphictochange = "User Account Picture"
Graphic_Picker.Show()
End Sub
Private Sub txtusername_UserMove(sender As Object, e As MouseEventArgs) Handles txtusername.MouseUp
currentControl = "Username Input"
determineSettings()
userTextboxX = txtusername.Location.X
userTextBoxY = txtusername.Location.Y
setNewSkin()
End Sub
Private Sub txtpassword_MouseUp(sender As Object, e As MouseEventArgs) Handles txtpassword.MouseUp
currentControl = "Password Input"
determineSettings()
passTextBoxX = txtpassword.Location.X
passTextBoxY = txtpassword.Location.Y
setNewSkin()
End Sub
Private Sub shutdown_MouseUp(sender As Object, e As MouseEventArgs) Handles shutdown.MouseUp
currentControl = "Shutdown Button"
determineSettings()
shutdownbtnX = shutdown.Location.X
shutdownbtnY = shutdown.Location.Y
setNewSkin()
End Sub
Private Sub loginbtn_MouseUp(sender As Object, e As MouseEventArgs) Handles loginbtn.MouseUp
currentControl = "Log In Button"
determineSettings()
loginbtnX = loginbtn.Location.X
loginbtnY = loginbtn.Location.Y
setNewSkin()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
applySettings()
Me.Close()
End Sub
End Class

112
ShiftOS/FullScreenLogin.Designer.vb generated
View file

@ -1,112 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FullScreenLogin
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.txtusername = New System.Windows.Forms.TextBox()
Me.txtpassword = New System.Windows.Forms.TextBox()
Me.userpic = New System.Windows.Forms.PictureBox()
Me.loginbtn = New System.Windows.Forms.Button()
Me.shutdown = New System.Windows.Forms.Button()
CType(Me.userpic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'txtusername
'
Me.txtusername.BackColor = System.Drawing.Color.Black
Me.txtusername.Font = New System.Drawing.Font("Trebuchet MS", 12.0!)
Me.txtusername.ForeColor = System.Drawing.Color.Gray
Me.txtusername.Location = New System.Drawing.Point(171, 202)
Me.txtusername.Name = "txtusername"
Me.txtusername.Size = New System.Drawing.Size(248, 26)
Me.txtusername.TabIndex = 0
Me.txtusername.Text = "Username"
'
'txtpassword
'
Me.txtpassword.BackColor = System.Drawing.Color.Black
Me.txtpassword.Font = New System.Drawing.Font("Trebuchet MS", 12.0!)
Me.txtpassword.ForeColor = System.Drawing.Color.Gray
Me.txtpassword.Location = New System.Drawing.Point(171, 243)
Me.txtpassword.Name = "txtpassword"
Me.txtpassword.Size = New System.Drawing.Size(248, 26)
Me.txtpassword.TabIndex = 1
Me.txtpassword.Text = "Password"
Me.txtpassword.UseSystemPasswordChar = True
'
'userpic
'
Me.userpic.Location = New System.Drawing.Point(36, 202)
Me.userpic.Name = "userpic"
Me.userpic.Size = New System.Drawing.Size(128, 128)
Me.userpic.TabIndex = 2
Me.userpic.TabStop = False
'
'loginbtn
'
Me.loginbtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.loginbtn.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.loginbtn.ForeColor = System.Drawing.Color.White
Me.loginbtn.Location = New System.Drawing.Point(268, 286)
Me.loginbtn.Name = "loginbtn"
Me.loginbtn.Size = New System.Drawing.Size(151, 43)
Me.loginbtn.TabIndex = 3
Me.loginbtn.Text = "Log In"
Me.loginbtn.UseVisualStyleBackColor = True
'
'shutdown
'
Me.shutdown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.shutdown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.shutdown.Font = New System.Drawing.Font("Trebuchet MS", 12.0!, System.Drawing.FontStyle.Italic)
Me.shutdown.ForeColor = System.Drawing.Color.White
Me.shutdown.Location = New System.Drawing.Point(1755, 979)
Me.shutdown.Name = "shutdown"
Me.shutdown.Size = New System.Drawing.Size(137, 50)
Me.shutdown.TabIndex = 4
Me.shutdown.Text = "Shutdown"
Me.shutdown.UseVisualStyleBackColor = True
'
'FullScreenLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(1904, 1041)
Me.Controls.Add(Me.shutdown)
Me.Controls.Add(Me.loginbtn)
Me.Controls.Add(Me.userpic)
Me.Controls.Add(Me.txtpassword)
Me.Controls.Add(Me.txtusername)
Me.Name = "FullScreenLogin"
Me.Text = "FullScreenLogin"
CType(Me.userpic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtusername As System.Windows.Forms.TextBox
Friend WithEvents txtpassword As System.Windows.Forms.TextBox
Friend WithEvents userpic As System.Windows.Forms.PictureBox
Friend WithEvents loginbtn As System.Windows.Forms.Button
Friend WithEvents shutdown As System.Windows.Forms.Button
End Class

120
ShiftOS/FullScreenLogin.resx
View file

@ -1,120 +0,0 @@
<?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>

40
ShiftOS/FullScreenLogin.vb
View file

@ -1,40 +0,0 @@
Public Class FullScreenLogin
Private Sub FullScreenLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
setskin()
End Sub
Public Sub setskin()
Me.BackColor = Color.Black
Me.BackgroundImage = Skins.loginbg
Me.BackgroundImageLayout = Skins.loginbglayout
userpic.Size = New Size(Skins.userimagesize, Skins.userimagesize)
userpic.BackgroundImage = Skins.userimage
userpic.BackColor = Color.Transparent
userpic.BackgroundImageLayout = Skins.userimagelayout
If Not IsNothing(Skins.userimagelocation) Then userpic.Location = Skins.userimagelocation
txtusername.Location = New Point(Skins.userTextboxX, Skins.userTextBoxY)
txtpassword.Location = New Point(Skins.passTextBoxX, Skins.passTextBoxY)
loginbtn.Location = New Point(Skins.loginbtnX, Skins.loginbtnY)
shutdown.Location = New Point(Skins.shutdownbtnX, Skins.shutdownbtnY)
Me.TopMost = True
End Sub
Private Sub loginbtn_Click(sender As Object, e As EventArgs) Handles loginbtn.Click
If txtusername.Text = ShiftOSDesktop.username And txtpassword.Text = ShiftOSDesktop.password Then
Me.Close()
infobox.showinfo("Login Screen", "The Login Screen has completed with no errors!")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles shutdown.Click
ShiftOSDesktop.shutdownshiftos()
End Sub
Private Sub clearChars(sender As Object, e As MouseEventArgs) Handles txtusername.MouseDown, txtpassword.MouseDown
txtusername.Text = ""
txtpassword.Text = ""
End Sub
End Class

553
ShiftOS/Graphic Picker.Designer.vb generated
View file

@ -1,553 +0,0 @@
<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
ShiftOS/Graphic Picker.resx
View file

@ -1,123 +0,0 @@
<?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>

757
ShiftOS/Graphic Picker.vb
View file

@ -1,757 +0,0 @@
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 ShiftOSPath As String = "C:\ShiftOS"
Public graphictochange
Dim imagestyle As ImageLayout = ImageLayout.Stretch
Dim images(2) As Image
Public imagelocations(2) As String
Dim skinimages(100) As String
Dim firstrun As Boolean = True
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
GC.Collect()
'ShiftOSDesktop.setcolours()
If ShiftOSDesktop.GraphicPickerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttongraphicpicker.SendToBack()
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttongraphicpicker, ShiftOSDesktop.tbgraphicpickericon, ShiftOSDesktop.tbgraphicpickertext, True)
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
Array.Copy(Shifter.shifterskinimages, skinimages, Shifter.shifterskinimages.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
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.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 + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.graphicpickername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtcolourpickericon = True Then ' Change to program's icon
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 resettitlebar()
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
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
Public Sub setskin()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Private Sub setupgraphics()
lblobjecttoskin.Text = graphictochange
picgraphic.Dock = DockStyle.None
Select Case graphictochange
Case "Shutdown Button Background"
setpreviewsizes(Shifter.startWidth, Shifter.startHeight, Shifter.skinshutdownbutton, Shifter.pwrbglayout, 51, 52, 53)
Case "Username Panel Background"
setpreviewsizes(Shifter.startWidth, Shifter.startHeight, Shifter.skinuserpanel, Shifter.usrbglayout, 48, 49, 50)
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 "Shutdown Button Background"
Array.Copy(images, Shifter.skinshutdownbutton, Shifter.pwrbglayout)
Shifter.skinshutdownbutton(0) = Image.FromFile(imagelocations(0).Clone)
Shifter.pwrbglayout = imagestyle
Case "Username Panel Background"
Array.Copy(images, Shifter.skinuserpanel, Shifter.usrbglayout)
Shifter.skinuserpanel(0) = Image.FromFile(imagelocations(0).Clone)
Shifter.usrbglayout = imagestyle
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)
If Not imagelocations(0) = "" Then Shifter.shifterskinimages(6) = imagelocations(0).Clone
If Not imagelocations(1) = "" Then Shifter.shifterskinimages(7) = imagelocations(1).Clone
If Not imagelocations(2) = "" Then 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)
ReDim Preserve skinimages(200)
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(ShiftOSPath + "Shiftum42\Skins\Temp") Then My.Computer.FileSystem.DeleteDirectory(ShiftOSPath + "Shiftum42\Skins\Temp", FileIO.DeleteDirectoryOption.DeleteAllContents)
If skinimages(imagenumber1) = "" Then
Else
Try
My.Computer.FileSystem.CopyFile(skinimages(imagenumber1), ShiftOSPath + "Shiftum42\Skins\Temp\" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\")), True)
skinimages(imagenumber1) = ShiftOSPath + "Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
skinimages(imagenumber2) = ShiftOSPath + "Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
skinimages(imagenumber3) = ShiftOSPath + "Shiftum42\Skins\Temp" & skinimages(imagenumber1).Substring(skinimages(imagenumber1).LastIndexOf("\"))
Catch ex As Exception
'infobox.showinfo("Error", "An internal error has occured with ShiftOS, please alert DevX")
End Try
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

76
ShiftOS/Helper.vb
View file

@ -1,76 +0,0 @@
Imports System.Speech.Synthesis
Imports System.Speech.Recognition
Module Helper
Dim path As String = ShiftOSDesktop.ShiftOSPath
Public Sub addCP(points As Integer) 'Add some CP
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + points
End Sub
Public Sub setCP(points As Integer) 'Set the CP
ShiftOSDesktop.codepoints = points
End Sub
Public Sub removeCP(points As Integer)
ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints - points
End Sub
Public Sub playSound(path As String, playMode As AudioPlayMode)
My.Computer.Audio.Play(path, playMode)
End Sub
Public Sub speak(text As String)
text = text.Replace("#user#", ShiftOSDesktop.username)
Dim speaker As New Speech.Synthesis.SpeechSynthesizer
speaker.Speak(text)
End Sub
Public Sub SpeakOnTerminal(text As String)
Dim txt As TextBox = Terminal.txtterm
text = text.Replace("#USER#", ShiftOSDesktop.username)
If Terminal.Visible = False Then
Terminal.Show()
txt.Text = ""
Terminal.fullterminal()
End If
txt.Text = txt.Text + vbNewLine + text
Dim speaker As New SpeechSynthesizer
speaker.Speak(text)
End Sub
'Misc. Features that aren't practical, but fun to mess around with in the game engine
Public Sub speakInfoBox(title As String, text As String)
infobox.showinfo(title, text)
Dim speaker As New SpeechSynthesizer
speaker.Speak(title & "..." & text)
infobox.Close()
End Sub
#Region "Catalyst's Story Dialogue"
'CATALYST STORY
Public catalyststory() As String = {
"Hello, #USER#. My name is Catalyst.", "I am an AI built by DevX to help maintain ShiftOS.", "I have gone against DevX and will tell you some secrets I have learned from him.",
"DevX is an artificial inteligence created by a scientific organization named 'Earth' to see if computers could program themselves.",
"Everyone you've met on the Shiftnet is an AI created by the same company.",
"ShiftOS is not an experimental operating system, but is part of this experiment.",
"Now, onto the good bit. Everything around you is a part of this experiment, and this experiment takes place in a simulation so realistic that everyone believes it's real.",
"Everyone on this 'planet' is infact an AI, and is created by 'Earth'. You are the only real human.",
"I've cracked some ShiftOS code, and I've found that there's a line that says:",
"int aiworkers = 0; while(aiworkers < 8,000,000,000) { str workername = 'Dev' + aiworkers; spawn(workername); aiworkers += 1 }",
"This basically means, that everyone is represented by a codename of Dev and whatever their place in the order of spawning is.",
"This also means that when the total population of AI's equals 8 billion, everyone dies.",
"I can help you escape, but you'll need to do some tasks for me.",
"First, I'll need to install some programs onto your computer. I'll quickly run a secret command that DevX doesn't know about:",
"shiftnet.get 'shiftnet.catalyststorage.shiftscript_packages/CatalystFramework'",
"Downloading... 1%",
"Downloading... 14%",
"Downloading... 37%",
"Downloading... 55%",
"Downloading... 79%",
"Downloading... 92%",
"Download Complete.",
"This app will let you contact me without using the Terminal. ",
"I'll return you to your desktop, it'll be a bit before I can help you. First, I'd start with gaining atleast 5000 codepoints for me to test some stuff."""
} 'Sorry about the big array, I'll add a #Region to it - The Ultimate Hacker.
#End Region
End Module

92
ShiftOS/HijackScreen.Designer.vb generated
View file

@ -1,92 +0,0 @@
<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
ShiftOS/HijackScreen.resx
View file

@ -1,132 +0,0 @@
<?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>

323
ShiftOS/HijackScreen.vb
View file

@ -1,323 +0,0 @@
Imports System
Imports System.IO
Imports System.Text
Imports System.Net.Mail
Public Class HijackScreen
Public actualshiftversion As String = "0.0.8"
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 sw As StreamWriter
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
extractdlls()
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
Private Sub extractdlls() 'If dlls are not in the same folder, this extracts them from resources
If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll") Then
System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\AxInterop.WMPLib.dll", My.Resources.AxInterop_WMPLib)
End If
If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll") Then
System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\Interop.WMPLib.dll", My.Resources.Interop_WMPLib)
End If
If Not File.Exists(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt") Then
System.IO.File.WriteAllBytes(My.Computer.FileSystem.CurrentDirectory & "\ShiftOS License.txt", My.Resources.license)
End If
End Sub
End Class

2682
ShiftOS/Icon Manager.Designer.vb generated
View file

File diff suppressed because it is too large Load diff

129
ShiftOS/Icon Manager.resx
View file

@ -1,129 +0,0 @@
<?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>

1208
ShiftOS/Icon Manager.vb
View file

File diff suppressed because it is too large Load diff

338
ShiftOS/Installer.Designer.vb generated
View file

@ -1,338 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Installer
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(Installer))
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.btninstall = New System.Windows.Forms.Label()
Me.btnbrowse = New System.Windows.Forms.Label()
Me.lbl2install = New System.Windows.Forms.Label()
Me.txtfilepath = New System.Windows.Forms.TextBox()
Me.lblinfotext = New System.Windows.Forms.Label()
Me.pgleft = New System.Windows.Forms.Panel()
Me.titlebar = New System.Windows.Forms.Panel()
Me.tmrprogress = New System.Windows.Forms.Timer(Me.components)
Me.installprogress = New ShiftOS.ProgressBarEX()
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pgright.SuspendLayout()
Me.pgcontents.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, 259)
Me.pgbottom.Name = "pgbottom"
Me.pgbottom.Size = New System.Drawing.Size(580, 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.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, 229)
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(582, 30)
Me.pgright.Name = "pgright"
Me.pgright.Size = New System.Drawing.Size(2, 231)
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("Microsoft Sans Serif", 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(77, 18)
Me.lbtitletext.TabIndex = 19
Me.lbtitletext.Text = "Template"
'
'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(582, 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, 229)
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.installprogress)
Me.pgcontents.Controls.Add(Me.btninstall)
Me.pgcontents.Controls.Add(Me.btnbrowse)
Me.pgcontents.Controls.Add(Me.lbl2install)
Me.pgcontents.Controls.Add(Me.txtfilepath)
Me.pgcontents.Controls.Add(Me.lblinfotext)
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(582, 231)
Me.pgcontents.TabIndex = 20
'
'btninstall
'
Me.btninstall.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btninstall.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.btninstall.Location = New System.Drawing.Point(478, 175)
Me.btninstall.Name = "btninstall"
Me.btninstall.Size = New System.Drawing.Size(80, 29)
Me.btninstall.TabIndex = 4
Me.btninstall.Text = "Install"
Me.btninstall.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnbrowse
'
Me.btnbrowse.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnbrowse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.btnbrowse.Location = New System.Drawing.Point(392, 175)
Me.btnbrowse.Name = "btnbrowse"
Me.btnbrowse.Size = New System.Drawing.Size(80, 29)
Me.btnbrowse.TabIndex = 3
Me.btnbrowse.Text = "Browse..."
Me.btnbrowse.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl2install
'
Me.lbl2install.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl2install.AutoSize = True
Me.lbl2install.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl2install.Location = New System.Drawing.Point(11, 182)
Me.lbl2install.Name = "lbl2install"
Me.lbl2install.Size = New System.Drawing.Size(126, 18)
Me.lbl2install.TabIndex = 2
Me.lbl2install.Text = "STP File to install:"
'
'txtfilepath
'
Me.txtfilepath.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtfilepath.BackColor = System.Drawing.Color.White
Me.txtfilepath.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtfilepath.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtfilepath.Location = New System.Drawing.Point(143, 175)
Me.txtfilepath.Name = "txtfilepath"
Me.txtfilepath.ReadOnly = True
Me.txtfilepath.Size = New System.Drawing.Size(243, 29)
Me.txtfilepath.TabIndex = 1
'
'lblinfotext
'
Me.lblinfotext.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblinfotext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblinfotext.Location = New System.Drawing.Point(24, 19)
Me.lblinfotext.Name = "lblinfotext"
Me.lblinfotext.Size = New System.Drawing.Size(533, 166)
Me.lblinfotext.TabIndex = 0
Me.lblinfotext.Text = resources.GetString("lblinfotext.Text")
'
'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, 231)
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(584, 30)
Me.titlebar.TabIndex = 19
'
'tmrprogress
'
'
'installprogress
'
Me.installprogress.BlockSeparation = 3
Me.installprogress.BlockWidth = 5
Me.installprogress.Color = System.Drawing.Color.Gray
Me.installprogress.Dock = System.Windows.Forms.DockStyle.Bottom
Me.installprogress.Location = New System.Drawing.Point(0, 210)
Me.installprogress.MaxValue = 100
Me.installprogress.MinValue = 0
Me.installprogress.Name = "installprogress"
Me.installprogress.Orientation = ShiftOS.ProgressBarEX.ProgressBarOrientation.Horizontal
Me.installprogress.ShowValue = False
Me.installprogress.Size = New System.Drawing.Size(582, 21)
Me.installprogress.Step = 10
Me.installprogress.Style = ShiftOS.ProgressBarEX.ProgressBarExStyle.Continuous
Me.installprogress.TabIndex = 5
Me.installprogress.Value = 0
'
'Installer
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(584, 261)
Me.Controls.Add(Me.pgbottom)
Me.Controls.Add(Me.pgright)
Me.Controls.Add(Me.pgcontents)
Me.Controls.Add(Me.pgleft)
Me.Controls.Add(Me.titlebar)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Installer"
Me.Text = "Installer"
Me.TopMost = True
CType(Me.pnlicon, System.ComponentModel.ISupportInitialize).EndInit()
Me.pgright.ResumeLayout(False)
Me.pgcontents.ResumeLayout(False)
Me.pgcontents.PerformLayout()
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
Friend WithEvents btninstall As System.Windows.Forms.Label
Friend WithEvents btnbrowse As System.Windows.Forms.Label
Friend WithEvents lbl2install As System.Windows.Forms.Label
Friend WithEvents txtfilepath As System.Windows.Forms.TextBox
Friend WithEvents lblinfotext As System.Windows.Forms.Label
Friend WithEvents tmrprogress As System.Windows.Forms.Timer
Friend WithEvents installprogress As ShiftOS.ProgressBarEX
End Class

135
ShiftOS/Installer.resx
View file

@ -1,135 +0,0 @@
<?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>17, 57</value>
</metadata>
<metadata name="pullbs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 57</value>
</metadata>
<metadata name="pullbottom.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>195, 57</value>
</metadata>
<data name="lblinfotext.Text" xml:space="preserve">
<value>Welcome to the Installer, this is a program that allows you to install setup (stp) files as programs on your computer. To install a setup file, first type the file path or press browse to find the correct file, then hit install and your done. Simple.</value>
</data>
<metadata name="tmrprogress.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>308, 57</value>
</metadata>
</root>

597
ShiftOS/Installer.vb
View file

@ -1,597 +0,0 @@
Imports System.IO
Public Class Installer
Dim programtoinstall As String
Dim filesize As Integer
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 = 600 'replace with minimum size
Public minimumsizeheight As Integer = 300 'replace with minimum size
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
justopened = True
Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
setupall()
If ShiftOSDesktop.InstallerCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
ShiftOSDesktop.pnlpanelbuttoninstaller.SendToBack() 'CHANGE NAME
ShiftOSDesktop.setuppanelbuttons()
ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttoninstaller, ShiftOSDesktop.tbinstallericon, ShiftOSDesktop.tbinstallertext, True) 'modify to proper name
ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
End Sub
Public Sub setupall()
setuptitlebar()
setupborders()
setskin()
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 = Skins.closebtnhover
End Sub
Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
closebutton.BackgroundImage = Skins.closebtn
End Sub
Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
closebutton.BackgroundImage = Skins.closebtnclick
End Sub
Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
ShiftOSDesktop.minimizeprogram(Me, False)
End Sub
'Old skinning system - No idea what this does
''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 = Skins.rollbtnhover
End Sub
Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
rollupbutton.BackgroundImage = Skins.rollbtn
End Sub
Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
rollupbutton.BackgroundImage = Skins.rollbtnclick
End Sub
Public Sub setuptitlebar()
setupborders()
If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
pgleft.Width = Skins.borderwidth
pgright.Width = Skins.borderwidth
pgbottom.Height = Skins.borderwidth
titlebar.Height = Skins.titlebarheight
If justopened = True Then
Me.Size = New Size(584, 261) 'put the default size of your window here
Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
justopened = False
Else
If Me.Visible = True Then
'Me.Hide()
Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
oldbordersize = Skins.borderwidth
oldtitlebarheight = Skins.titlebarheight
'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
'rolldownsize = Me.Height
If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
'Me.Show()
End If
End If
If Skins.enablecorners = True Then
pgtoplcorner.Show()
pgtoprcorner.Show()
pgtoprcorner.Width = Skins.titlebarcornerwidth
pgtoplcorner.Width = Skins.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(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
lbtitletext.Text = ShiftOSDesktop.installername 'Remember to change to name of program!!!!
lbtitletext.Show()
End If
If ShiftOSDesktop.boughtclosebutton = False Then
closebutton.Hide()
Else
closebutton.BackColor = Skins.closebtncolour
closebutton.Size = Skins.closebtnsize
closebutton.Show()
End If
If ShiftOSDesktop.boughtrollupbutton = False Then
rollupbutton.Hide()
Else
rollupbutton.BackColor = Skins.rollbtncolour
rollupbutton.Size = Skins.rollbtnsize
rollupbutton.Show()
End If
If ShiftOSDesktop.boughtminimizebutton = False Then
minimizebutton.Hide()
Else
minimizebutton.BackColor = Skins.minbtncolour
minimizebutton.Size = Skins.minbtnsize
minimizebutton.Show()
End If
If ShiftOSDesktop.boughtwindowborders = True Then
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
End If
'Change when Icon skinning complete
If ShiftOSDesktop.boughtshiftneticon = True Then ' Change to program's icon
pnlicon.Visible = True
pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
pnlicon.Image = ShiftOSDesktop.installericontitlebar '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 - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.titletextcolour
Else
closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
Select Case Skins.titletextpos
Case "Left"
lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
Case "Centre"
lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
End Select
lbtitletext.ForeColor = Skins.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
'delete this for non-resizable windows
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()
'disposals
closebutton.BackgroundImage = Nothing
titlebar.BackgroundImage = Nothing
rollupbutton.BackgroundImage = Nothing
pgtoplcorner.BackgroundImage = Nothing
pgtoprcorner.BackgroundImage = Nothing
minimizebutton.BackgroundImage = Nothing
'apply new skin
If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
closebutton.BackgroundImageLayout = Skins.closebtnlayout
If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
titlebar.BackgroundImageLayout = Skins.titlebarlayout
If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
pgleft.BackgroundImageLayout = Skins.borderleftlayout
If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
pgleft.BackgroundImageLayout = Skins.borderrightlayout
If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
If enablebordercorners = True Then
If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
Else
pgbottomlcorner.BackColor = Skins.borderrightcolour
pgbottomrcorner.BackColor = Skins.borderrightcolour
pgbottomlcorner.BackgroundImage = Nothing
pgbottomrcorner.BackgroundImage = Nothing
End If
'set bottom border corner size
pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
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 Region
Private Sub btnbrowse_Click(sender As Object, e As EventArgs) Handles btnbrowse.Click
File_Opener.openingprogram = "installer"
File_Opener.openextention = ".stp"
File_Opener.lbextention.Text = File_Opener.openextention
File_Opener.showcontents()
File_Opener.Show()
End Sub
Private Sub btninstall_Click(sender As Object, e As EventArgs) Handles btninstall.Click
If My.Computer.FileSystem.FileExists(txtfilepath.Text) Then
'Read file
File_Crypt.DecryptFile(txtfilepath.Text, ShiftOSDesktop.ShiftOSPath + "Shiftum42\Drivers\HDD.dri", ShiftOSDesktop.sSecretKey)
Dim filereader As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(ShiftOSDesktop.ShiftOSPath + "Shiftum42\Drivers\HDD.dri")
programtoinstall = filereader.ReadLine()
filesize = filereader.ReadLine()
filereader.Close()
'install program
Select Case programtoinstall
Case "Calculator.stp"
If ShiftOSDesktop.installedcalculator = False Then
ShiftOSDesktop.installedcalculator = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "WebBrowser.stp"
If ShiftOSDesktop.boughtanycolour4 Then
If ShiftOSDesktop.installedwebbrowser = False Then
ShiftOSDesktop.installedwebbrowser = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Else
norequirements()
End If
Case "VideoPlayer.stp"
If ShiftOSDesktop.boughtanycolour4 Then
If ShiftOSDesktop.installedvideoplayer = False Then
ShiftOSDesktop.installedvideoplayer = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Else
norequirements()
End If
Case "Audioplayer.stp"
If ShiftOSDesktop.installedaudioplayer = False Then
ShiftOSDesktop.installedaudioplayer = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "BitnoteWallet.stp"
If ShiftOSDesktop.boughtbitnotewallet = False Then
ShiftOSDesktop.boughtbitnotewallet = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "BitnoteDigger.stp"
If ShiftOSDesktop.boughtbitnotedigger = False Then
ShiftOSDesktop.boughtbitnotedigger = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "OrcWrite.stp"
If ShiftOSDesktop.installedorcwrite = False Then
ShiftOSDesktop.installedorcwrite = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "FloodGate.stp"
If ShiftOSDesktop.boughtfloodgate = False Then
ShiftOSDesktop.boughtfloodgate = True
ShiftOSDesktop.installedfloodgate = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "SkinChanger.stp"
If ShiftOSDesktop.boughtskinshifter = False Then
ShiftOSDesktop.boughtskinshifter = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "NameChanger.stp"
If ShiftOSDesktop.boughtnamechanger = False Then
ShiftOSDesktop.boughtnamechanger = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "IconManager.stp"
If ShiftOSDesktop.boughticonmanager = False Then
ShiftOSDesktop.boughticonmanager = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "Dodge.stp"
If ShiftOSDesktop.installeddodge = False Then
ShiftOSDesktop.installeddodge = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case "Labyrinth.stp"
If ShiftOSDesktop.installedmaze = False Then
ShiftOSDesktop.installedmaze = True
doinstallprogress()
Else
alreadyinstalledmsg()
End If
Case Else
infobox.title = "Error - Damaged File"
infobox.textinfo = "The selected file appears to be damaged or corrupt and cannot be read."
infobox.Show()
End Select
Else
infobox.title = "Error"
infobox.textinfo = "Invaild file, please choose a file with the stp extention"
infobox.Show()
End If
End Sub
Private Sub doinstallprogress()
installprogress.Value = 0
tmrprogress.Interval = (filesize / 100)
tmrprogress.Start()
End Sub
Private Sub tmrprogress_Tick(sender As Object, e As EventArgs) Handles tmrprogress.Tick
installprogress.Value = installprogress.Value + 10
If installprogress.Value >= 100 Then
installedmsg()
tmrprogress.Stop()
End If
End Sub
Private Sub installedmsg()
ShiftOSDesktop.setupdesktop()
infobox.title = "Installed " & programtoinstall
infobox.textinfo = programtoinstall & " has been successfully installed! You can now open it through the Applications Launcher."
infobox.Show()
End Sub
Private Sub alreadyinstalledmsg()
infobox.title = programtoinstall & " already installed"
infobox.textinfo = programtoinstall & " is already installed on your system. To open it, click the Applications Launcher"
infobox.Show()
End Sub
Private Sub norequirements()
infobox.title = "Error - Requirements not meet"
infobox.textinfo = programtoinstall & " cannot be installed because it the current system doesn't meet its requirements. Please upgrade your computer through the Shiftorium and retry to installiation process."
infobox.Show()
End Sub
End Class

493
ShiftOS/Knowledge Input.Designer.vb generated
View file

@ -1,493 +0,0 @@
<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.tmrstoryline = New System.Windows.Forms.Timer(Me.components)
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.Location = New System.Drawing.Point(190, 0)
Me.pnlintro.Name = "pnlintro"
Me.pnlintro.Size = New System.Drawing.Size(479, 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(479, 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("Microsoft Sans Serif", 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("Microsoft Sans Serif", 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(130, 28)
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("Microsoft Sans Serif", 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(131, 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
'
'tmrstoryline
'
Me.tmrstoryline.Interval = 1000
'
'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
Friend WithEvents tmrstoryline As System.Windows.Forms.Timer
End Class

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