Re: Custom Properties Panel v3.3.0 (31-07-08) [MM3]
Posted: Wed Jul 30, 2008 6:10 pm
I looked for the post but I guess you removed it , I am having a "Senior" moment, what does the yellow represent??
Nyn
Nyn
The Music Manager for Serious Collectors
http://www.mediamonkey.com/forum/
Code: Select all
Sub RemoveClick(Control)
Dim s : s = Mid(Control.Common.ControlName,7)
If IsNumeric(s) Then
Dim Form1 : Set Form1 = Control.Common.TopParent
Dim StartCount : StartCount = Int(s)
Dim LastVisibleContol : LastVisibleContol = StartCount - 1
For xCounter = StartCount to FormMaxRows - 1
If xCounter = FormMaxRows-1 Then
NextControl = False
Else
NextControl = Form1.Common.ChildControl("Field"&xCounter+1).Common.Visible
End If
If NextControl = True Then
Form1.Common.ChildControl("Field"&xCounter).ItemIndex = Form1.Common.ChildControl("Field"&xCounter+1).ItemIndex
Form1.Common.ChildControl("Row"&xCounter).Value = Form1.Common.ChildControl("Row"&xCounter+1).Value
Form1.Common.ChildControl("Column"&xCounter).Value = Form1.Common.ChildControl("Column"&xCounter+1).Value
Form1.Common.ChildControl("HeaderTop"&xCounter).Checked = Form1.Common.ChildControl("HeaderTop"&xCounter+1).Checked
Form1.Common.ChildControl("DropDown"&xCounter).Checked = Form1.Common.ChildControl("DropDown"&xCounter+1).Checked
Form1.Common.ChildControl("TAIntLines"&xCounter).Value = Form1.Common.ChildControl("TAIntLines"&xCounter+1).Value
Form1.Common.ChildControl("AAPixels"&xCounter).Value = Form1.Common.ChildControl("AAPixels"&xCounter+1).Value
Form1.Common.ChildControl("Remove"&xCounter).Common.Visible = Form1.Common.ChildControl("Remove"&xCounter+1).Common.Visible
Form1.Common.ChildControl("Remove"&xCounter).Common.Enabled = Form1.Common.ChildControl("Remove"&xCounter+1).Common.Enabled
Form1.Common.ChildControl("Button"&xCounter).Common.Visible = Form1.Common.ChildControl("Button"&xCounter+1).Common.Visible
Form1.Common.ChildControl("Button"&xCounter).Common.Enabled = Form1.Common.ChildControl("Button"&xCounter+1).Common.Enabled
LastVisibleContol = xCounter
Else
Form1.Common.ChildControl("Field"&xCounter).Common.Visible = False
Form1.Common.ChildControl("Row"&xCounter).Common.Visible = False
Form1.Common.ChildControl("Column"&xCounter).Common.Visible = False
Form1.Common.ChildControl("HeaderTop"&xCounter).Common.Visible = False
Form1.Common.ChildControl("DropDown"&xCounter).Common.Visible = False
Form1.Common.ChildControl("TAIntLines"&xCounter).Common.Visible = False
Form1.Common.ChildControl("AAPixels"&xCounter).Common.Visible = False
Form1.Common.ChildControl("Remove"&xCounter).Common.Visible = False
Form1.Common.ChildControl("Button"&xCounter).Common.Visible = False
Form1.Common.ChildControl("Field"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("Row"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("Column"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("HeaderTop"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("DropDown"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("TAIntLines"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("AAPixels"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("Remove"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("Button"&xCounter).Common.Enabled = False
Form1.Common.ChildControl("Field"&xCounter).ItemIndex = 0
Form1.Common.ChildControl("Column"&xCounter).Value = 1
Form1.Common.ChildControl("HeaderTop"&xCounter).Checked = False
Form1.Common.ChildControl("DropDown"&xCounter).Checked = False
Form1.Common.ChildControl("TAIntLines"&xCounter).Value = 10
Form1.Common.ChildControl("AAPixels"&xCounter).Value = 75
End If
Next
Form1.Common.ChildControl("Button"&LastVisibleContol).Common.Visible = True
Form1.Common.ChildControl("Button"&LastVisibleContol).Common.Enabled = True
End If
End Sub
Of course it is the one that I am working with that is not alphabetized, which is the Mood Classification.MoDementia wrote:All of them should be. Having trouble with any in particular?
Looking at the Lists Table in Sqlite Spy, how can I distinguish which values are MM prepopulated and which are ones which I've created?MoDementia wrote:Next version I will do a count on the preloaded values before adding the ---More---
The error must be from the data being added to the html page creating an invalid page.
I will need the panel ini and the track data that it is trying to display to find what is causing it.
Code: Select all
ThisOrderBy = "SortOrder"
Code: Select all
ThisOrderBy = "TextData"