mirror of
https://github.com/TheUltimateHacker/shiftos-next.git
synced 2025-01-22 16:42:14 +00:00
424931951b
Alright, I've added the Draggable Windows upgrade to the Shiftorium, as well as fixed a quick bug causing "No Items Available" to display when there were items clearly available. I've also fixed a positioning bug with BWM windows causing them to start in the center of the screen, relative to the titlebar, rather than the form. I've also re-arranged the code a bit, organizing files in folders. APIs are in the APIs folder, Desktop Environments are in the Desktop Environments folder, etc. The shiftorium still doesn't have draggable window functionality yet...
76 lines
No EOL
3 KiB
VB.net
76 lines
No EOL
3 KiB
VB.net
Public Class TextPad
|
|
|
|
|
|
Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
|
|
file_skimmer.mode = "open"
|
|
file_skimmer.application = "textpad"
|
|
file_skimmer.Show()
|
|
End Sub
|
|
|
|
Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click
|
|
file_skimmer.mode = "save"
|
|
file_skimmer.application = "textpad"
|
|
file_skimmer.Show()
|
|
End Sub
|
|
|
|
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click
|
|
txtfilebody.Text = ""
|
|
End Sub
|
|
|
|
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
|
|
txtfilebody.Cut()
|
|
End Sub
|
|
|
|
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
|
|
txtfilebody.Copy()
|
|
End Sub
|
|
|
|
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
|
|
txtfilebody.Paste()
|
|
End Sub
|
|
|
|
Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click
|
|
txtfilebody.Undo()
|
|
End Sub
|
|
|
|
Private Sub RedoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RedoToolStripMenuItem.Click
|
|
txtfilebody.Redo()
|
|
End Sub
|
|
|
|
Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click
|
|
txtfilebody.SelectAll()
|
|
End Sub
|
|
|
|
Private Sub FindToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FindToolStripMenuItem.Click
|
|
basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
|
|
txtfilebody.Find(basicwm_infobox.userinput)
|
|
End Sub
|
|
|
|
Private Sub ReplaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReplaceToolStripMenuItem.Click
|
|
basicwm_infobox.showinfo("Find", "Please specify a phrase to find:", True)
|
|
Dim whattofind As String = basicwm_infobox.userinput
|
|
basicwm_infobox.showinfo("Replace", "What shall we replace """ & whattofind & """ with?", True)
|
|
txtfilebody.Text = txtfilebody.Text.Replace(whattofind, basicwm_infobox.userinput)
|
|
End Sub
|
|
|
|
Private Sub TextPad_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
MenuStrip1.Renderer = New basicwm_renderer()
|
|
setupmenufonts()
|
|
pnltop.DetermineMyVisibility()
|
|
End Sub
|
|
|
|
Public Sub setupmenufonts()
|
|
For Each item In MenuStrip1.Items
|
|
item.ForeColor = Color.White
|
|
item.Font = New Font("Courier New", 8.25)
|
|
For Each SubItem In item.DropDownItems
|
|
SubItem.ForeColor = Color.White
|
|
SubItem.font = New Font("Courier New", 8.25)
|
|
Next
|
|
Next
|
|
End Sub
|
|
End Class |