aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS/Colour Picker.vb
diff options
context:
space:
mode:
authorpfgithub <[email protected]>2015-03-27 15:53:26 -0700
committerpfgithub <[email protected]>2015-03-27 15:53:26 -0700
commit96805596f9f0c2683d6c62e390ef0e2a806d2708 (patch)
treee67c1d1a5cd0d982d673527198ef7718f360c27e /ShiftOS/Colour Picker.vb
parentd556f57a1fd140362d19baea107d98524427a45e (diff)
parent965207dac55e9e1cfbfcab7d229eca417d41d118 (diff)
downloadshiftos-96805596f9f0c2683d6c62e390ef0e2a806d2708.tar.gz
shiftos-96805596f9f0c2683d6c62e390ef0e2a806d2708.tar.bz2
shiftos-96805596f9f0c2683d6c62e390ef0e2a806d2708.zip
Merge branch 'pr/18'
Conflicts: ShiftOS/File Skimmer.vb
Diffstat (limited to 'ShiftOS/Colour Picker.vb')
-rw-r--r--ShiftOS/Colour Picker.vb12
1 files changed, 8 insertions, 4 deletions
diff --git a/ShiftOS/Colour Picker.vb b/ShiftOS/Colour Picker.vb
index 238b719..78865e3 100644
--- a/ShiftOS/Colour Picker.vb
+++ b/ShiftOS/Colour Picker.vb
@@ -21,6 +21,8 @@
Public redlevel As Integer
Public pinklevel As Integer
+ Public sendToMod = False ' If true will output the rgb value for use of mod
+
#Region "Template Code"
Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -1648,6 +1650,12 @@
End Sub
Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click
+ If sendToMod = True Then
+ If Not My.Computer.FileSystem.DirectoryExists(NewAPI.modOutputPath) Then My.Computer.FileSystem.CreateDirectory(NewAPI.modOutputPath)
+ Dim sw As System.IO.StreamWriter = New IO.StreamWriter(NewAPI.modOutputPath & "\givecolour.srip") ' ShiftOS Request/Receive* Information Protocol (SRIP) *Depends on the direction
+ sw.WriteLine(pnlnewcolour.BackColor.ToArgb())
+ sw.Close()
+ End If
Select Case colourtochange
Case "Username Text Color"
Shifter.usernametextcolor = pnlnewcolour.BackColor
@@ -1906,10 +1914,6 @@
Case "OrcWrite highlight text colour dono"
OrcWrite.Button7.BackColor = pnlnewcolour.BackColor
OrcWrite.RichTextBox1.SelectionBackColor = pnlnewcolour.BackColor
- Case "mod dono"
- 'Dim sw As New System.IO.StreamWriter(NewAPI.varpath & "\colourpickeroutput")
- 'sw.WriteLine(pnlnewcolour.BackColor.ToArgb)
- 'sw.Close()
Case "artpallet1" : ArtPad.colourpallet1.BackColor = pnlnewcolour.BackColor
Case "artpallet2" : ArtPad.colourpallet2.BackColor = pnlnewcolour.BackColor
Case "artpallet3" : ArtPad.colourpallet3.BackColor = pnlnewcolour.BackColor