Reply to thread

Message

<blockquote data-quote="jmhecker" data-source="post: 544130" data-attributes="member: 86959">I found the skin editor a few days ago, and have a good layout done with it, but it is missing one important thing....a graphic or 2.&nbsp; I suck at graphics...opened up Photoshop and tried to come up with something, but what turned out was something that looked like a bluish-green potatoe chip bag done in the style of Picasso...not really what I was aiming for, heh.Now, onto something that is really puzzling.[CODE]&nbsp; &nbsp; &nbsp; &nbsp; Protected Overloads Overrides Sub OnClicked(ByVal controlId As Integer, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal control As GUIControl, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ByVal actionType As MediaPortal.GUI.Library.Action.ActionType)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If controlId = catFacade.GetID Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;clicked&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; facadeClicked()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.OnClicked(controlId, control, actionType)&nbsp; &nbsp; &nbsp; &nbsp; End Sub[/CODE]That does exactly what you would expect...it pops up a lil message window for me saying &quot;clicked&quot;, and calls facadeClicked.&nbsp; This works for both the Keyboard AND Mouse (added emphasis to the word AND)Then, I do this:[CODE]&nbsp; &nbsp; &nbsp; &nbsp; Public Overloads Overrides Sub OnAction(ByVal action As MediaPortal.GUI.Library.Action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case action.wID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_DOWN, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_UP, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_LEFT, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_RIGHT, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_MOVE&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.OnAction(action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If catFacade.SelectedListItem.ItemId &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If catFacade.SelectedListItem.IsFolder = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DirectCast(catFacade.SelectedListItem, GUIItemListing).IsBackDots = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = &quot;Up a level&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = catFacade.SelectedListItem.Label&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = DirectCast(catFacade.SelectedListItem, GUIItemListing).item_desc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_PREVIOUS_MENU&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim db As New DataBase&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; prev_page = db.GetCategoryInfo(prev_page).category_parent_category_id&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCategories(prev_page)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetItems(prev_page)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.OnAction(action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; End Sub[/CODE]Before I mention what this breaks, I want to let you konw that ACTION_PREVIOUS_MENU works like a charm...again, thank you so much for that piece of knowledge <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" />Now, what is broken:&nbsp; Mouse clicking on the facade.&nbsp; I know it has to do with ACTION_MOUSE_MOVE in the first case statement, because if I remove it, mouse clicking goes back to being functional.&nbsp; This got me to thinking...perhaps I in order to catch the clicks via the mouse, I need to use ACTION_MOUSE_CLICK (even though I know I do not have to, as the OnClick method was picking it up prior to me adding the case statements)So, I changed it all to look like this:[CODE]&nbsp; &nbsp; &nbsp; &nbsp; Public Overloads Overrides Sub OnAction(ByVal action As MediaPortal.GUI.Library.Action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case action.wID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_DOWN, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_UP, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_LEFT, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_RIGHT, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_MOVE&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.OnAction(action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If catFacade.SelectedListItem.ItemId &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If catFacade.SelectedListItem.IsFolder = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DirectCast(catFacade.SelectedListItem, GUIItemListing).IsBackDots = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = &quot;Up a level&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = catFacade.SelectedListItem.Label&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScrollUpDesc.Label = DirectCast(catFacade.SelectedListItem, GUIItemListing).item_desc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_CLICK&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;click&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_PREVIOUS_MENU&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;esc&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim db As New DataBase&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCategories(db.GetCategoryInfo(prev_page).category_parent_category_id)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetItems(db.GetCategoryInfo(prev_page).category_parent_category_id)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; prev_page = db.GetCategoryInfo(prev_page).category_parent_category_id&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.OnAction(action)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'MyBase.OnAction(action)&nbsp; &nbsp; &nbsp; &nbsp; End Sub[/CODE]The only thing that changed, was the addition of:[CODE]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_CLICK&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;click&quot;)[/CODE]I added that, thinking (read: hoping) that it would catch the mouse click using ACTION_MOUSE_CLICK....boy, was I wrong.So, I am wondering if there is some sort of order of operations that needs to be in place with the case statements...or if perhaps I need to switch to an IF/THEN/ELSE setup here (I can't see why I would have to).&nbsp; Or if perhaps there is just that one random thing I am missing...I have been staring at this for a while now, trying different combination's and such.&nbsp; Any thoughts?I have tried looking at MovingPictures, as well as your sports thing, but I wasn't seeing ACTION_MOUSE_CLICK anywhere, so I think I am going about this the wrong way.</blockquote>

[QUOTE="jmhecker, post: 544130, member: 86959"] I found the skin editor a few days ago, and have a good layout done with it, but it is missing one important thing....a graphic or 2. I suck at graphics...opened up Photoshop and tried to come up with something, but what turned out was something that looked like a bluish-green potatoe chip bag done in the style of Picasso...not really what I was aiming for, heh. Now, onto something that is really puzzling. [CODE] Protected Overloads Overrides Sub OnClicked(ByVal controlId As Integer, _ ByVal control As GUIControl, _ ByVal actionType As MediaPortal.GUI.Library.Action.ActionType) If controlId = catFacade.GetID Then MsgBox("clicked") facadeClicked() End If MyBase.OnClicked(controlId, control, actionType) End Sub [/CODE] That does exactly what you would expect...it pops up a lil message window for me saying "clicked", and calls facadeClicked. This works for both the Keyboard [B][I][U]AND[/U][/I][/B] Mouse (added emphasis to the word AND) Then, I do this: [CODE] Public Overloads Overrides Sub OnAction(ByVal action As MediaPortal.GUI.Library.Action) Select Case action.wID Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_DOWN, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_UP, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_LEFT, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_RIGHT, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_MOVE MyBase.OnAction(action) If catFacade.SelectedListItem.ItemId > 0 Then If catFacade.SelectedListItem.IsFolder = True Then If DirectCast(catFacade.SelectedListItem, GUIItemListing).IsBackDots = True Then ScrollUpDesc.Label = "Up a level" ScrollUpDesc.Label = catFacade.SelectedListItem.Label End If Else ScrollUpDesc.Label = DirectCast(catFacade.SelectedListItem, GUIItemListing).item_desc End If End If Case MediaPortal.GUI.Library.Action.ActionType.ACTION_PREVIOUS_MENU Dim db As New DataBase prev_page = db.GetCategoryInfo(prev_page).category_parent_category_id GetCategories(prev_page) GetItems(prev_page) Case Else MyBase.OnAction(action) End Select End Sub [/CODE] Before I mention what this breaks, I want to let you konw that ACTION_PREVIOUS_MENU works like a charm...again, thank you so much for that piece of knowledge :) Now, what is broken: Mouse clicking on the facade. I know it has to do with ACTION_MOUSE_MOVE in the first case statement, because if I remove it, mouse clicking goes back to being functional. This got me to thinking...perhaps I in order to catch the clicks via the mouse, I need to use ACTION_MOUSE_CLICK (even though I know I do not have to, as the OnClick method was picking it up prior to me adding the case statements) So, I changed it all to look like this: [CODE] Public Overloads Overrides Sub OnAction(ByVal action As MediaPortal.GUI.Library.Action) Select Case action.wID Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_DOWN, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_UP, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_LEFT, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOVE_RIGHT, _ MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_MOVE MyBase.OnAction(action) If catFacade.SelectedListItem.ItemId > 0 Then If catFacade.SelectedListItem.IsFolder = True Then If DirectCast(catFacade.SelectedListItem, GUIItemListing).IsBackDots = True Then ScrollUpDesc.Label = "Up a level" ScrollUpDesc.Label = catFacade.SelectedListItem.Label End If Else ScrollUpDesc.Label = DirectCast(catFacade.SelectedListItem, GUIItemListing).item_desc End If End If Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_CLICK MsgBox("click") Case MediaPortal.GUI.Library.Action.ActionType.ACTION_PREVIOUS_MENU MsgBox("esc") Dim db As New DataBase GetCategories(db.GetCategoryInfo(prev_page).category_parent_category_id) GetItems(db.GetCategoryInfo(prev_page).category_parent_category_id) prev_page = db.GetCategoryInfo(prev_page).category_parent_category_id Case Else MyBase.OnAction(action) End Select 'MyBase.OnAction(action) End Sub [/CODE] The only thing that changed, was the addition of: [CODE] Case MediaPortal.GUI.Library.Action.ActionType.ACTION_MOUSE_CLICK MsgBox("click") [/CODE] I added that, thinking (read: hoping) that it would catch the mouse click using ACTION_MOUSE_CLICK....boy, was I wrong. So, I am wondering if there is some sort of order of operations that needs to be in place with the case statements...or if perhaps I need to switch to an IF/THEN/ELSE setup here (I can't see why I would have to). Or if perhaps there is just that one random thing I am missing...I have been staring at this for a while now, trying different combination's and such. Any thoughts? I have tried looking at MovingPictures, as well as your sports thing, but I wasn't seeing ACTION_MOUSE_CLICK anywhere, so I think I am going about this the wrong way. [/QUOTE]

Verification