From bb6492c6085f10570ae5087b667aaaa1e8fa3d01 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 19:10:16 +0000 Subject: Make .gitignore work. Fixes #15 Thanks to @kenzierocks and http://stackoverflow.com/questions/19663093/apply-gitignore-on-an-existing-repository-already-tracking-large-number-of-files --- Backup/windows 95/formDisplayproperties.vb | 285 ----------------------------- 1 file changed, 285 deletions(-) delete mode 100755 Backup/windows 95/formDisplayproperties.vb (limited to 'Backup/windows 95/formDisplayproperties.vb') diff --git a/Backup/windows 95/formDisplayproperties.vb b/Backup/windows 95/formDisplayproperties.vb deleted file mode 100755 index 322ad14..0000000 --- a/Backup/windows 95/formDisplayproperties.vb +++ /dev/null @@ -1,285 +0,0 @@ -Public Class formDisplayproperties - - - Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - Me.Close() - End Sub - - Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged - If ComboBox5.SelectedItem = "Small Fonts" Then - fontsizeinfo.Text = "Normal size (96 dpi)" - End If - If ComboBox5.SelectedItem = "Large Fonts" Then - fontsizeinfo.Text = "125% Normal size (120 dpi)" - End If - End Sub - Private Sub TrackBarscreenres_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarscreenres.Scroll - If TrackBarscreenres.Value = 1 Then - screenreslabel.Text = "640 by 480 pixels" - End If - If TrackBarscreenres.Value = 2 Then - screenreslabel.Text = "800 by 512 pixels" - End If - If TrackBarscreenres.Value = 3 Then - screenreslabel.Text = "800 by 600 pixels" - End If - If TrackBarscreenres.Value = 4 Then - screenreslabel.Text = "896 by 600 pixels" - End If - If TrackBarscreenres.Value = 5 Then - screenreslabel.Text = "912 by 642 pixels" - End If - If TrackBarscreenres.Value = 6 Then - screenreslabel.Text = "1024 by 768 pixels" - End If - If TrackBarscreenres.Value = 7 Then - screenreslabel.Text = "1152 by 768 pixels" - End If - If TrackBarscreenres.Value = 8 Then - screenreslabel.Text = "1152 by 864 pixels" - End If - If TrackBarscreenres.Value = 9 Then - screenreslabel.Text = "1280 by 1024 pixels" - End If - If TrackBarscreenres.Value = 10 Then - screenreslabel.Text = "1440 by 900 pixels" - End If - If TrackBarscreenres.Value = 11 Then - screenreslabel.Text = "1600 by 1024 pixels" - End If - If TrackBarscreenres.Value = 12 Then - screenreslabel.Text = "1600 by 1200 pixels" - End If - End Sub - - Private Sub colorpalettecbox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colorpalettecbox.SelectedIndexChanged - If colorpalettecbox.SelectedItem = "16 Color" Then - colourpaletepicturebox.Image = My.Resources._16_color - End If - If colorpalettecbox.SelectedItem = "256 Color" Then - colourpaletepicturebox.Image = My.Resources._256_color - End If - If colorpalettecbox.SelectedItem = "High Color (16 bit)" Then - colourpaletepicturebox.Image = My.Resources.high_color - End If - If colorpalettecbox.SelectedItem = "True Color (32 bit)" Then - colourpaletepicturebox.Image = My.Resources.true_color - End If - End Sub - Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles form1.Click - colourselectorexample.Hide() - End Sub - - Private Sub Whitecs_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Whitecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.White - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.White - End If - End Sub - - Private Sub blackcs_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles blackcs.MouseClick - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Black - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Black - End If - End Sub - - Private Sub lightgreycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lightgreycs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.LightGray - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.LightGray - End If - End Sub - - Private Sub greycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles greycs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Gray - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Gray - End If - End Sub - - Private Sub redcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles redcs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Red - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Red - End If - End Sub - - Private Sub darkredcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkredcs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.DarkRed - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.DarkRed - End If - End Sub - - Private Sub yellowcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yellowcs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Yellow - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Yellow - End If - End Sub - - Private Sub olivecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olivecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Olive - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Olive - End If - End Sub - - Private Sub limecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Lime - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Lime - End If - End Sub - - Private Sub forestgreencs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles forestgreencs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.ForestGreen - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.ForestGreen - End If - End Sub - - Private Sub cyancs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cyancs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Cyan - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Cyan - End If - End Sub - - Private Sub tealcs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tealcs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Teal - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Teal - End If - End Sub - - Private Sub bluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bluecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Blue - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Blue - End If - End Sub - - Private Sub darkbluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkbluecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.DarkBlue - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.DarkBlue - End If - End Sub - - Private Sub DarkMagentacs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DarkMagentacs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.DarkMagenta - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.DarkMagenta - End If - End Sub - - Private Sub palegreencs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles palegreencs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.PaleGreen - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.PaleGreen - End If - End Sub - - Private Sub lightbluecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lightbluecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.LightBlue - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.LightBlue - End If - End Sub - - Private Sub whitesmokecs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles whitesmokecs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.WhiteSmoke - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.WhiteSmoke - End If - End Sub - - Private Sub darkgraycs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles darkgraycs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.DarkGray - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.DarkGray - End If - End Sub - - Private Sub magentacs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles magentacs.Click - If cboxitemselect.SelectedItem = "Desktop" Then - appearencesettingspanel.BackColor = Color.Magenta - End If - If cboxitemselect.SelectedItem = "Active Title Bar" Then - exampletopbaractivewindow.BackColor = Color.Magenta - End If - End Sub - - Private Sub applysettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles applysettings.Click - Windows95.BackColor = appearencesettingspanel.BackColor - Windows95.exampleprogramtopbar.BackColor = exampletopbaractivewindow.BackColor - Me.programtopbar.BackColor = exampletopbaractivewindow.BackColor - End Sub - - Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click - colourselectorexample.Show() - End Sub - - Private Sub formDisplayproperties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - look.Start() - End Sub - - Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown - If e.Button = MouseButtons.Left Then - programtopbar.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 - End Sub - - Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick - Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor - Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage - Me.programname.BackColor = Windows95.exampleprogramtext.BackColor - End Sub -End Class \ No newline at end of file -- cgit v1.2.3