Skip to content

Commit

Permalink
Modernize initial setup screen
Browse files Browse the repository at this point in the history
  • Loading branch information
CodingWonders committed Nov 16, 2023
1 parent c96132d commit 3b5b32e
Show file tree
Hide file tree
Showing 9 changed files with 105 additions and 1 deletion.
3 changes: 3 additions & 0 deletions DISMTools.vbproj
Original file line number Diff line number Diff line change
Expand Up @@ -1043,6 +1043,9 @@
<None Include="Resources\split_img.png" />
<None Include="Resources\export_driver.png" />
<None Include="Resources\about\mdl_discussion.png" />
<None Include="Resources\FirstUse\backbox.png" />
<None Include="Resources\FirstUse\backbox_down.png" />
<None Include="Resources\FirstUse\backbox_focus.png" />
<Content Include="ThemeVS2012\Resources\Dockindicator_PaneDiamond_Hotspot.png" />
<Content Include="ThemeVS2012\Resources\DockIndicator_PaneDiamond_HotspotIndex.png" />
<Content Include="ThemeVS2012\Resources\MaskArrowBottom.png" />
Expand Down
Binary file modified Installer/Output/dt_setup.exe
Binary file not shown.
30 changes: 30 additions & 0 deletions My Project/Resources.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

9 changes: 9 additions & 0 deletions My Project/Resources.resx
Original file line number Diff line number Diff line change
Expand Up @@ -1117,4 +1117,13 @@ New features
<data name="mdl_discussion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about\mdl_discussion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="backbox" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FirstUse\backbox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="backbox_down" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FirstUse\backbox_down.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="backbox_focus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FirstUse\backbox_focus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
19 changes: 19 additions & 0 deletions Panels/FirstUse/PrgSetup.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

45 changes: 44 additions & 1 deletion Panels/FirstUse/PrgSetup.vb
Original file line number Diff line number Diff line change
Expand Up @@ -82,6 +82,39 @@ Public Class PrgSetup
End If
End Sub

Private Sub backBox_MouseEnter(sender As Object, e As EventArgs) Handles backBox.MouseEnter
backBox.Image = My.Resources.backbox_focus
End Sub

Private Sub backBox_MouseLeave(sender As Object, e As EventArgs) Handles backBox.MouseLeave
backBox.Image = My.Resources.backbox
End Sub

Private Sub backBox_MouseDown(sender As Object, e As MouseEventArgs) Handles backBox.MouseDown
backBox.Image = My.Resources.backbox_down
End Sub

Private Sub backBox_MouseUp(sender As Object, e As MouseEventArgs) Handles backBox.MouseUp
backBox.Image = My.Resources.backbox_focus
End Sub

Private Sub backBox_MouseHover(sender As Object, e As EventArgs) Handles backBox.MouseHover
Dim msg As String = ""
Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
Case "ENU", "ENG"
msg = "Go back"
Case "ESN"
msg = "Atrás"
Case "FRA"
msg = "Retourner"
End Select
btnToolTip.SetToolTip(sender, msg)
End Sub

'Private Sub backBox_Click(sender As Object, e As EventArgs) Handles backBox.Click
' Back_Button.PerformClick()
'End Sub

Private Sub wndControlPanel_MouseDown(sender As Object, e As MouseEventArgs) Handles wndControlPanel.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
' Get the new position
Expand Down Expand Up @@ -192,12 +225,16 @@ Public Class PrgSetup
End If
If pageInt = 0 Then
Back_Button.Enabled = False
backBox.Visible = False
Label1.Left = 8
Else
Back_Button.Enabled = True
backBox.Visible = True
Label1.Left = 54
End If
End Sub

Private Sub Back_Button_Click(sender As Object, e As EventArgs) Handles Back_Button.Click
Private Sub Back_Button_Click(sender As Object, e As EventArgs) Handles Back_Button.Click, backBox.Click
pageInt -= 1
Select Case pageInt
Case 0
Expand Down Expand Up @@ -263,8 +300,12 @@ Public Class PrgSetup
End If
If pageInt = 0 Then
Back_Button.Enabled = False
backBox.Visible = False
Label1.Left = 8
Else
Back_Button.Enabled = True
backBox.Visible = True
Label1.Left = 54
End If
End Sub

Expand All @@ -282,6 +323,8 @@ Public Class PrgSetup
TextBox2.Text = Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\Logs\DISM\DISM.log"
MainForm.LogFile = TextBox2.Text

Next_Button.Left = 998

' Set color modes
If MainForm.BackColor = Color.FromArgb(48, 48, 48) Then
BodyPanelContainer.BackColor = Color.FromArgb(48, 48, 48)
Expand Down
Binary file added Resources/FirstUse/backbox.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Resources/FirstUse/backbox_down.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Resources/FirstUse/backbox_focus.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.

0 comments on commit 3b5b32e

Please sign in to comment.