home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cdplay2a / registry.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-23  |  3.2 KB  |  68 lines
  1. Attribute VB_Name = "RegistrySet"
  2.  
  3. Public Sub SaveWindowPos(ByVal frm As Form)
  4.     ' Save window position and size attributes to registry
  5.     SaveSetting App.Title, "Config", frm.Name + "_left", CStr(frm.Left)
  6.     SaveSetting App.Title, "Config", frm.Name + "_top", CStr(frm.Top)
  7.     SaveSetting App.Title, "Config", frm.Name + "_width", CStr(frm.Width)
  8.     SaveSetting App.Title, "Config", frm.Name + "_height", CStr(frm.Height)
  9. End Sub
  10.  
  11. Public Sub LoadWindowPos(ByVal frm As Form)
  12.     ' See if any settings are saved for this window
  13.     If GetSetting(App.Title, "Config", frm.Name + "_left", "") = "" Then
  14.         ' There aren't - so just centre the form on the screen
  15.         frm.Left = (Screen.Width - frm.Width) / 2
  16.         frm.Top = (Screen.Height - frm.Height) / 2
  17.         Exit Sub
  18.     End If
  19.     ' Load the form's attributes from the registry
  20.     frm.Left = CLng(GetSetting(App.Title, "Config", frm.Name + "_left", "0"))
  21.     frm.Top = CLng(GetSetting(App.Title, "Config", frm.Name + "_top", "0"))
  22.     frm.Width = CLng(GetSetting(App.Title, "Config", frm.Name + "_width", CStr(frm.Width)))
  23.     frm.Height = CLng(GetSetting(App.Title, "Config", frm.Name + "_height", CStr(frm.Height)))
  24.     ' Optional - if the form is opening with any part off the screen
  25.     '     then nudge it back on
  26.     If frm.Left < 0 Then frm.Left = 0
  27.     If frm.Top < 0 Then frm.Top = 0
  28.     If frm.Left + frm.Width > Screen.Width Then frm.Left = Screen.Width - frm.Width
  29.     If frm.Top + frm.Height > Screen.Height Then frm.Top = Screen.Height - frm.Height
  30. End Sub
  31.  
  32. Public Sub SaveColSet(ByVal frm As Form, dcol As Long)
  33.     'Save Program Color Setting. (This Works).
  34.     'SaveSetting App.Title, "BkgColor", "Color", DenColor
  35.     SaveSetting appname:=App.Title, section:="BackColor", Key:=frm.Name + "_Color", setting:=dcol
  36. End Sub
  37.  
  38. Public Sub LoadColSet(ByVal frm As Form)
  39.     If GetSetting(App.Title, "Backcolor", frm.Name + "_Color", "") = "" Then
  40.         'Default Program Color Setting. (This Works)
  41.         frm.TimeWindow.ForeColor = &HFF8080
  42.         frm.TotalPlay.ForeColor = &HFF8080
  43.         frm.TrackTime.ForeColor = &HFF8080
  44.         frm.cboTrack.ForeColor = &HFF8080
  45.         frm.Label1.ForeColor = &HFF8080
  46.         Exit Sub
  47.     End If
  48.     'Get Program Color Setting. (This Works)
  49.     frm.TimeWindow.ForeColor = GetSetting(App.Title, "BackColor", frm.Name + "_Color")
  50.     frm.TotalPlay.ForeColor = GetSetting(App.Title, "BackColor", frm.Name + "_Color")
  51.     frm.TrackTime.ForeColor = GetSetting(App.Title, "BackColor", frm.Name + "_Color")
  52.     frm.cboTrack.ForeColor = GetSetting(App.Title, "BackColor", frm.Name + "_Color")
  53.     frm.Label1.ForeColor = GetSetting(App.Title, "BackColor", frm.Name + "_Color")
  54. End Sub
  55.  
  56. Public Sub SaveSkinSet(ByVal frm As Form, Dskin As String)
  57.     'Save Program Skin Setting. (This Works).
  58.     SaveSetting appname:=App.Title, section:="Skin", Key:=frm.Name + "_Skin", setting:=Trim(Dskin)
  59. End Sub
  60.  
  61. Public Sub LoadSkinSet(ByVal frm As Form)
  62.     If GetSetting(App.Title, "Skin", frm.Name + "_Skin", "") = "" Then
  63.         Exit Sub
  64.     End If
  65.     frm.PicSourceImage.Picture = LoadPicture(Trim(GetSetting(App.Title, "Skin", frm.Name + "_Skin")))
  66. End Sub
  67.  
  68.