WebSVN – mdb – Diff – /AMX/MDB/MDB_UI.axs

  * and are protected by trade secret or copyright law.
  * Dissemination of this information or reproduction of this material
  * is strictly forbidden unless prior written permission is obtained
  * from Andreas Theofilu.
  */
-MODULE_NAME='MDB_UI'	(dev dvTPs[], dev vdvMDB)
+MODULE_NAME='MDB_UI'	(dev dvTPs[], dev vdvMDB, char IP[], char path[])
 #include 'mSNAPI'
 DEFINE_TYPE
 	struct ST_SONG
 	constant char sPopupDetail[] = 		'MFp_MDB_detail';
 	constant char sPopupMenu[] = 		'MFp_MDB_menu';
 	constant char sPopupUsers[] =		'MFp_MDB_users';
 	constant char sPopupSelUser[] =		'MFp_MDB_select_user';
+	constant integer BTN_SCROLLBAR =	256;
 	constant integer BTN_SAVE =			340;
 	constant integer BTN_DELETE =		341;
 	constant integer BTN_NOW_PLAYING =	342;
+	constant integer BTN_QUEUE =		349;
 	constant integer BTN_TITLE = 		350;
 	constant integer BTN_ARTIST =		351;
 	constant integer BTN_GENRE =		352;
 	constant integer BTN_ALBUM =		353;
 	constant integer BTN_PLAYLIST =		354;
+	constant integer BTN_RETURN =		355;
 	constant integer BTN_LINE1_PIC =	301;
 	constant integer BTN_LINE1_LINE =	321;
 	constant integer BTN_LINE2_PIC =	302;
 	constant integer BTN_LINE2_LINE =	322;
 	constant integer BTN_MENU7 =		267;
 	constant integer BTN_MENU8 =		268;
 	constant integer BTN_MENU9 =		269;
 	constant integer BTN_MENU10 =		270;
+	constant integer BTN_DETAIL_BACK =	400;
+	constant integer BTN_USER_OK =		401;
+	constant integer BTN_USER_CANCEL =	402;
 	constant integer TEXT_TITLE =		1001;
 	constant integer TEXT_PROGRES =		1002;
 	constant integer TEXT_MENU_TITLE =	1003;
 	constant integer TEXT_DETAIL_TITLE =	1011;
 	constant integer TEXT_DETAIL_TIME_TOTAL=1016;
 	constant integer TEXT_INPUT_UNAME =		1021;
 	constant integer TEXT_INPUT_PLAYLIST =	1022;
-	constant char TOK_TXT_NONE[] =		'NONE';
-	constant char TOK_TXT_TITLE[] =		'TITLE';
-	constant char TOK_TXT_ARTIST[] =	'ARTIST';
-	constant char TOK_TXT_ALBUM[] =		'ALBUM';
-	constant char TOK_TXT_GENRE[] =		'GENRE';
-	constant char TOK_TXT_QUEUE[] =		'QUEUE';
-	constant char TOK_TXT_PLAYLIST[] =	'PLAYLIST';
-	constant integer TOK_NONE =			0;
-	constant integer TOK_TITLE =		1;
-	constant integer TOK_ARTIST =		2;
-	constant integer TOK_ALBUM =		3;
+	constant integer LVL_SCROLLBAR =		7;
-	constant integer TOK_GENRE =		4;
-	constant integer TOK_QUEUE =		5;
-	constant integer TOK_PLAYLIST =		6;
+	constant char TOK_TXT_NONE[] =			'NONE';
+	constant char TOK_TXT_TITLE[] =			'TITLE';
+	constant char TOK_TXT_ARTIST[] =		'ARTIST';
+	constant char TOK_TXT_ALBUM[] =			'ALBUM';
+	constant char TOK_TXT_GENRE[] =			'GENRE';
+	constant char TOK_TXT_QUEUE[] =			'QUEUE';
+	constant char TOK_TXT_PLAYLIST[] =		'PLAYLIST';
+	constant integer TOK_NONE =				0;
+	constant integer TOK_TITLE =			1;
+	constant integer TOK_ARTIST =			2;
+	constant integer TOK_ALBUM =			3;
+	constant integer TOK_GENRE =			4;
+	constant integer TOK_QUEUE =			5;
+	constant integer TOK_PLAYLIST =			6;
+	constant integer TODO_USER_SELECT = 		1;		// select a user
+	constant integer TODO_USER_LIST_PLAYLIST =	2;		// List the playlist
+	constant integer TODO_USER_SAVE_PLAYLIST =	3;		// Save queue to playlist
+	constant integer TODO_USER_PLAYLIST_QUEUE = 4;		// Move a playlist to the queue
 	constant integer nNavigation[] =
+	{
 		BTN_SAVE,
 		BTN_DELETE,
 		BTN_NOW_PLAYING,
+		BTN_QUEUE,
 		BTN_TITLE,
 		BTN_ARTIST,
 		BTN_GENRE,
 		BTN_ALBUM,
 		BTN_PLAYLIST
 		SFWD,						// Skip forward
 		MENU_THUMBS_DN,
 		MENU_THUMBS_UP,
 		MEDIA_RANDOM,
 		MEDIA_REPEAT,
-		MENU_BACK
+		MENU_BACK,
+		BTN_RETURN
+	};
+	constant integer nBtnUser[] =
+	{
+		BTN_DETAIL_BACK,
+		BTN_USER_OK,
+		BTN_USER_CANCEL,
+		TEXT_INPUT_UNAME,
+		TEXT_INPUT_PLAYLIST
 	};
 	constant integer nLines[] =
+	{
 		BTN_LINE1_PIC,
 		sIconPlaylist
 	};
 DEFINE_VARIABLE
 	volatile integer nStart;				// Index position of current position in list.
+	volatile integer nOldStart;				// Saves the previous value of nStart if a folder is opened
 	volatile integer nTotal;				// Total number of data
 	volatile integer nPage;					// The type of the page: TOK_TITLE, ...
 	volatile integer nPlayStatus;			// Status of the player
 	volatile ST_SONG stSong[MAX_LINES];		// The register of currently showed songs
 	volatile integer nSongIdx;				// The index of the song pointer
-	volatile char sActPlaylist[128];		// The name of the actual playlist
+	volatile char    sActPlaylist[128];		// The name of the actual playlist
 	volatile integer nLastPressedLine;		// The number of the line pressed last
 	volatile integer nLastPressedMenu;		// The number of the menu line pressed last
 	volatile integer nKeyboard[50];			// 1 = Keyboard active
-	volatile integer sActUser[128];			// The name of the actual loaded user
+	volatile char    sActUser[128];			// The name of the actual loaded user
+	volatile char    sInputUser[128];		// Username in user dialog popup
+	volatile char    sInputPlaylist[128];	// Name of playlist in user dialog popup
 	volatile integer nFolder;				// 0 = Top level of list, 1 = Folder opened
-	volatile integer sActFolder[128];		// The name of the actual selected folder
+	volatile char    sActFolder[128];		// The name of the actual selected folder
+	volatile integer nScrollbarPressed[50];	// 1 = User is sliding the scrollbar
+	volatile integer nScrollbarLvl;			// The level of the scrollbar when user releases the scrollbar
+	volatile integer nRepeat;				// 1 = repeat on, 0 = repeat off
-	volatile integer nSaveToFolder;			// 1 = Flag for keyboard to save to entered folder
+	volatile integer nRandom;				// 1 = random on, 0 = random off
+	volatile integer nToDo;					// What to do next
 	volatile char _strTok[10][256];
 // DecodeURL: Undo URL encoding on a data segment as necessary for CLI protocol
 //	(Note: Distructive for input; copy str before call if needed)
+}
 define_function char[1024] EncodeURL(char oldStr[])
+{
 stack_var char str[1024];
+stack_var char replace[64];
 stack_var integer len;
 stack_var integer i;
+stack_var integer j;
+stack_var integer flag;
+	replace = "':;<>"% ',$27";
 	len = length_string(oldStr);
 	str = '';
 	for (i = 1; i <= len; i++)
+	{
+		flag = false;
+		for (j = 1; j <= length_string(replace); j++)
+		{
-		if (oldStr[i] == ':' || oldStr[i] == ';')
+			if (oldStr[i] == replace[j])
+			{
-			str = "str,'%',format('%02X', oldStr[i])";
+				str = "str,'%',format('%02X', oldStr[i])";
+				flag = true;
+				break;
-		else
+			}
+		}
+		if (!flag)
 			str = "str,mid_string(oldStr, i, 1)";
+	}
 	return str;
+}
 define_function integer strtok(char str[], char tok[])
+{
 stack_var integer i;
 stack_var integer idx;
-	idx = 0;
+	idx = 1;
+	for (i = 1; i <= 10; i++)
+		_strTok[i] = '';
 	i = find_string(str, tok, 1);
 	while (i && idx <= 10)
+	{
-		idx++;
+		if (i > 1)
-		_strTok[idx] = left_string(str, i - length_string(tok));
+			_strTok[idx] = left_string(str, i - length_string(tok));
+		else
+			_strTok[idx] = '';
 		remove_string(str, tok, 1);
+		i = find_string(str, tok, 1);
+		idx++;
+	}
+	if (idx <= 10)
+		_strTok[idx] = str;
 	return idx;
+}
 define_function char[256] getStrTok(integer idx)
+{
 	if (pos > MAX_LINES)
 		return;
 	sHost = IP;
-	sPath = 'mdb';
+	sPath = path;
 	nType = 0;			// 0 = HTTP, 1 = FTP
 	send_command dvTPs,"'^SHO-',itoa(300+pos),',1'";
 	if (!length_string(sFile))
+	{
+}
 define_function clearPage()
+{
 	clearAllLogos();
-	send_command dvTPs,"'^TXT-',itoa(BTN_LINE1_LINE),'.',itoa(BTN_LINE1_LINE+MAX_LINES-1)',0,'";
+	send_command dvTPs,"'^TXT-',itoa(BTN_LINE1_LINE),'.',itoa(BTN_LINE1_LINE+MAX_LINES-1),',0,'";
+}
 define_function char[32] requestActualPage()
+{
 stack_var char sPage[32];
 		bis = st + MAX_LINES - 1;
 		send_command dvTPs, "'^TXT-',itoa(TEXT_PROGRES),',0,',itoa(st),' to ',itoa(bis),' of ',itoa(tot)";
+	}
 	else
 		send_command dvTPs, "'^TXT-',itoa(TEXT_PROGRES),',0,'";
+	// Scrollbar initialisieren
+	if (tot && st <= tot)
+		bis = type_cast(100.0 / tot * st);
+	else
+		bis = 0;
+	send_level dvTPs, LVL_SCROLLBAR, bis;
+}
 define_function displaySong(integer idx)
+{
 	if (!idx || idx > MAX_LINES)
 		return;
-	send_command dvTPs, "'^TXT-',itoa(BTN_LINE1_LINE+idx-1),',0,',stSong[idx].sTitle,$0d$0a,stSong[idx].sArtist";
+	send_command dvTPs, "'^TXT-',itoa(BTN_LINE1_LINE+idx-1),',0,',stSong[idx].sTitle,$0d,$0a,stSong[idx].sArtist";
+}
 define_function askMenuList()
+{
 	switch(nPage)
 			pan = get_last(dvTPs);
 			switch(nPage)
+			{
 				case TOK_TITLE:
+				case TOK_PLAYLIST:
+					send_command dvTPs[pan], "'@PPN-',sPopupAudio";
+					send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+				break;
 				case TOK_ALBUM:
 				case TOK_ARTIST:
 				case TOK_GENRE:
-				case TOK_PLAYLIST:
 					send_command dvTPs[pan], "'@PPN-',sPopupAudio";
-					send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+					send_command vdvMDB, "'FOLDER:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
 				break;
 				case TOK_QUEUE:
 					send_command dvTPs[pan], "'@PPN-',sPopupList";
 					send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
 				break;
+				default:
+					send_command dvTPs[pan], "'@PPN-',sPopupAudio";
+					nStart = 1;
+					send_command vdvMDB, "'LIST:TITLE:',itoa(nStart),':',itoa(MAX_LINES),';'";
+			}
+		}
+	}
 	/*
 	 */
 	button_event[dvTPs, nNavigation]
+	{
 		push:
+		{
+		stack_var integer pan;
+			pan = get_last(dvTPs);
 			switch(BUTTON.INPUT.CHANNEL)
+			{
+				case BTN_TITLE:
-				case BTN_TITLE:		send_command vdvMDB, "'LIST:TITLE:1:',itoa(MAX_LINES),';'"; nFolder = 0; break;
+					send_command vdvMDB, "'LIST:TITLE:1:',itoa(MAX_LINES),';'";
+					nFolder = 0;
+					nStart = 1;
+					nPage = TOK_TITLE;
+				break;
+				case BTN_ARTIST:
-				case BTN_ARTIST:	send_command vdvMDB, "'LIST:ARTIST:1:',itoa(MAX_LINES),';'"; nFolder = 0; break;
+					send_command vdvMDB, "'FOLDER:ARTIST:1:',itoa(MAX_LINES),';'";
+					nFolder = 0;
+					nStart = 1;
+					nPage = TOK_ARTIST;
+				break;
+				case BTN_ALBUM:
-				case BTN_ALBUM:		send_command vdvMDB, "'LIST:ALBUM:1:',itoa(MAX_LINES),';'"; nFolder = 0; break;
+					send_command vdvMDB, "'FOLDER:ALBUM:1:',itoa(MAX_LINES),';'";
+					nFolder = 0;
+					nStart = 1;
+					nPage = TOK_ALBUM;
+				break;
+				case BTN_GENRE:
-				case BTN_GENRE:		send_command vdvMDB, "'LIST:GENRE:1:',itoa(MAX_LINES),';'"; nFolder = 0; break;
+					send_command vdvMDB, "'FOLDER:GENRE:1:',itoa(MAX_LINES),';'";
+					nFolder = 0;
+					nStart = 1;
+					nPage = TOK_GENRE;
+				break;
+				case BTN_QUEUE:
-				case BTN_NOW_PLAYING: send_command vdvMDB, "'LIST:QUEUE:1:',itoa(MAX_LINES),';'"; nFolder = 0; break;
+					send_command vdvMDB, "'LIST:QUEUE:1:',itoa(MAX_LINES),';'";
+					nFolder = 0;
+					nStart = 1;
+					nPage = TOK_QUEUE;
+				break;
+				case BTN_PLAYLIST:
+					if (!length_string(sActUser))
+					{
+						send_command dvTPs[pan], "'@PPN-',sPopupSelUser";
+						send_command dvTPs[pan], "'@AKB-',sActUser,';Enter name of user'";
+						nKeyboard[pan] = TEXT_INPUT_UNAME;
+						nToDo = TODO_USER_SELECT;
+					}
+					else
+					{
+						nFolder = 0;
+						nStart = 1;
+						nPage = TOK_PLAYLIST;
+						send_command vdvMDB, "'LIST:PLAYLIST:1:',itoa(MAX_LINES),';'";
+					}
+				break;
+				case BTN_NOW_PLAYING:
+					if (nPlayStatus == PLAYER_PLAY || nPlayStatus == PLAYER_PAUSE)
+						send_command dvTPs, "'@PPN-',sPopupDetail";
+				break;
+				case BTN_SAVE:
+					send_command dvTPs[pan], "'@PPN-',sPopupSelUser";
+					sInputUser = sActUser;
+					sInputPlaylist = '';
+					send_command dvTPs[pan], "'^TXT-',itoa(TEXT_INPUT_UNAME),',0,',sActUser";
+					send_command dvTPs[pan], "'^TXT-',itoa(TEXT_INPUT_UNAME),',0,'";
+					send_command dvTPs[pan], "'@AKB-',sActPlaylist,';Enter name of playlist'";
+					nToDo = TODO_USER_SAVE_PLAYLIST;
+					nKeyboard[pan] = TEXT_INPUT_PLAYLIST;
+				break;
+				case BTN_DELETE:
+					send_command vdvMDB, "'DELETE:QUEUE:-1;'";
+				break;
+			}
+		}
+	}
 	/*
 		push:
+		{
 			switch(BUTTON.INPUT.CHANNEL)
+			{
 				case PLAY:			send_command vdvMDB, 'PLAY;';
-				case PAUSE:			send_command vdvMDB, 'PAUSE;';
+				case PAUSE:			send_command vdvMDB, 'PLAYPAUSE;';
 				case STOP:			send_command vdvMDB, 'STOP;';
 				case FFWD:			send_command vdvMDB, 'FORWARD;';
 				case REW:			send_command vdvMDB, 'REWIND;';
 				case SREV:			send_command vdvMDB, 'SKIPREW;';
 				case SFWD:			send_command vdvMDB, 'SKIPFWD;';
 				case MEDIA_RANDOM:	send_command vdvMDB, 'RANDOM;';
 				case MEDIA_REPEAT:	send_command vdvMDB, 'REPEAT;';
-				case MENU_THUMBS_DN:
+				case MENU_THUMBS_UP:
 					if (nStart > MAX_LINES)
+					{
 						nStart = nStart - MAX_LINES;
+						if (nPage == TOK_TITLE || nPage == TOK_QUEUE || nPage == TOK_PLAYLIST)
-						send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+							send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+						else
+							send_command vdvMDB, "'FOLDER:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+					}
 				break;
-				case MENU_THUMBS_UP:
+				case MENU_THUMBS_DN:
 					if (nTotal && (nStart+MAX_LINES) <= nTotal)
+					{
 						nStart = nStart + MAX_LINES;
+						if (nPage == TOK_TITLE || nPage == TOK_QUEUE || nPage == TOK_PLAYLIST)
-						send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+							send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+						else
+							send_command vdvMDB, "'FOLDER:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+					}
 				break;
 				case MENU_BACK:
+				case BTN_RETURN:
 					if (nFolder)
+					{
+						nStart = nOldStart;
+						nFolder = 0;
+					}
+					if (nPage == TOK_TITLE || nPage == TOK_QUEUE || nPage == TOK_PLAYLIST)
 						send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+					else
+						send_command vdvMDB, "'FOLDER:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
 				break;
+			}
+		}
 		hold[2,repeat]:
+					{
 						if (nPlayStatus == PLAYER_PLAY || nPlayStatus == PLAYER_PAUSE)
 							send_command vdvMDB, 'STOP;';
 						send_command vdvMDB, 'DELETE:QUEUE:-1;';
+						if (nPage == TOK_TITLE)
+							send_command vdvMDB, "'PLAY:ID:',itoa(stSong[nLastPressedLine].nID),';'";
+						else
-						send_command vdvMDB, "'PLAY:',requestActualPage(),':',getPageLine(nLastPressedLine),';'";
+							send_command vdvMDB, "'PLAY:',requestActualPage(),':',stSong[nLastPressedLine].sTitle,';'";
+					}
 					else if (nPage == TOK_PLAYLIST)
+					{
 						if (length_string(sActUser) && length_string(sActPlaylist))
+						{
 						send_command vdvMDB, "'PLAY:QUEUE:',itoa(nStart+nLastPressedLine-1),';'";
 				break;
 				case BTN_MENU2:
 					if (nPage != TOK_PLAYLIST && nPage != TOK_QUEUE)	// Add to queue
+					{
+						if (nPage == TOK_TITLE)
+							send_command vdvMDB, "'ADD:ID:',itoa(stSong[nLastPressedLine].nID),';'";
+						else
-						send_command vdvMDB, "'ADD:',requestActualPage(),':',EncodeURL(getPageLine(nLastPressedLine)),';'";
+							send_command vdvMDB, "'ADD:',requestActualPage(),':',stSong[nLastPressedLine].sTitle,';'";
+					}
 					else if (nPage == TOK_PLAYLIST)
 						send_command vdvMDB, "'ADD:PLAYLIST:',EncodeURL(sActPlaylist),';'";
 					else if (nPage == TOK_QUEUE)
+					{
 						send_command dvTPs[pan], "'@PPN-',sPopupSelUser";
+						sInputUser = sActUser;
+						sInputPlaylist = '';
 						send_command dvTPs[pan], "'^TXT-',itoa(TEXT_INPUT_UNAME),',0,',sActUser";
 						send_command dvTPs[pan], "'@AKB-',sActPlaylist,';Enter name of playlist'";
-						nSaveToFolder = nLastPressedLine;
+						nToDo = TODO_USER_PLAYLIST_QUEUE;
 						nKeyboard[pan] = TEXT_INPUT_PLAYLIST;
+					}
 				break;
 				case BTN_MENU3:
 					if (nPage != TOK_PLAYLIST && nPage != TOK_QUEUE)	// Open folder
+					{
-						sActFolder = getPageLine(nLastPressedLine);
+						sActFolder = stSong[nLastPressedLine].sTitle;	// Get name of folder
-						nFolder = true;
+						nFolder = true;									// Set marker for folder
+						nOldStart = nStart;								// Save current position
+						nStart = 1;										// Reset start position
-						send_command vdvMDB, "'LISTFOLDER:',requestActualPage(),':',EncodeURL(getPageLine(nLastPressedLine)),':1:',itoa(MAX_LINES),';'";
+						send_command vdvMDB, "'LISTFOLDER:',requestActualPage(),':',stSong[nLastPressedLine].sTitle,':1:',itoa(MAX_LINES),';'";
+					}
 					else if (nPage == TOK_PLAYLIST)
+					{
+						nOldStart = nStart;
+						nFolder = 1;
+						nStart = 1;
+						send_command vdvMDB, "'PLIST:',EncodeURL(sActUser),':',EncodeURL(stSong[nLastPressedLine].sTitle),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+					}
 					else if (nPage == TOK_QUEUE)
 						send_command vdvMDB, "'DELETE:QUEUE:',itoa(stSong[nLastPressedLine].nID),';'";
 				break;
+			}
+			if (nPage != TOK_QUEUE)
+				send_command dvTPs, "'@PPN-',sPopupAudio";
+			else
+				send_command dvTPs, "'@PPN-',sPopupList";
+		}
+	}
-	button_event[dvTPs,TEXT_INPUT_UNAME]
+	button_event[dvTPs,nBtnUser]
+	{
 		push:
+		{
 			stack_var integer pan;
 			pan = get_last(dvTPs);
-			if (!nKeyboard[pan])
+			switch(BUTTON.INPUT.CHANNEL)
+			{
+				case TEXT_INPUT_UNAME:
+					if (!nKeyboard[pan])
+					{
-				nKeyboard[pan] = TEXT_INPUT_UNAME;
+						nKeyboard[pan] = TEXT_INPUT_UNAME;
-				send_command dvTPs[pan],"'@AKB-',sActUser,';Enter user name'";
+						send_command dvTPs[pan],"'@AKB-',sActUser,';Enter user name'";
-			}
+					}
-		}
+				break;
-	}
-	button_event[dvTPs,TEXT_INPUT_PLAYLIST]
+				case TEXT_INPUT_PLAYLIST:
-	{
+					if (!nKeyboard[pan])
-		push:
+					{
+						nKeyboard[pan] = TEXT_INPUT_PLAYLIST;
+						send_command dvTPs[pan],"'@AKB-',sActPlaylist,';Enter name of playlist'";
-		{
+					}
-			stack_var integer pan;
+				break;
-			pan = get_last(dvTPs);
+				case BTN_USER_OK:
+					send_command dvTPs[pan],"'@PPF-',sPopupSelUser";
-			if (!nKeyboard[pan])
+					switch(nToDo)
-			{
+					{
+						case TODO_USER_SELECT:
+							sActUser = sInputUser;
+							send_command vdvMDB, "'USER:',EncodeURL(sInputUser),':;'";
+						break;
-				nKeyboard[pan] = TEXT_INPUT_PLAYLIST;
+						case TODO_USER_LIST_PLAYLIST:
+							sActPlaylist = sInputPlaylist;
+							nOldStart = nStart;
+							nFolder = 1;
+							nStart = 1;
+							send_command vdvMDB, "'PLIST:',EncodeURL(sActUser),':',EncodeURL(stSong[nLastPressedLine].sTitle),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+						break;
+						case TODO_USER_SAVE_PLAYLIST:
+							sActUser = sInputUser;
+							sActPlaylist = sInputPlaylist;
+							if (length_string(sActUser) && length_string(sActPlaylist))
+								send_command vdvMDB, "'SAVEQUEUE:',EncodeURL(sActUser),':',EncodeURL(sActPlaylist),';'";
+						break;
+						case TODO_USER_PLAYLIST_QUEUE:
+							sActUser = sInputUser;
+							sActPlaylist = sInputPlaylist;
+							if (length_string(sActUser) && length_string(sActPlaylist))
+								send_command vdvMDB, "'ADD:PLAYLIST:',EncodeURL(sActPlaylist),';'";
+						break;
+					}
+					nToDo = 0;
+				break;
+				case BTN_USER_CANCEL:
+					nToDo = 0;
-				send_command dvTPs[pan],"'@AKB-',sActPlaylist,';Enter name of playlist'";
+					send_command dvTPs[pan],"'@PPF-',sPopupSelUser";
+				break;
+				case BTN_DETAIL_BACK:
+					if (nPage == TOK_QUEUE)
+						send_command dvTPs,"'@PPN-',sPopupAudio";
+					else
+						send_command dvTPs,"'@PPN-',sPopupList";
+				break;
+			}
+		}
+	}
 	/*
 					 * This is send by the player whenever the UI should
 					 * display a list with song details.
 					 * The correct popup must be displayed and the contents
 					 * should be filled with the data from the player.
 					 */
-					active(find_string(buf, 'LIST:', 1)):
+					active(find_string(buf, 'LINE:', 1)):
+					{
 					stack_var char sPg[32];
 					stack_var integer nSongID;
 					stack_var integer nLine;
 					stack_var integer anz;
 					stack_var integer i;
-						remove_string(buf, 'LIST:', 1);
+						remove_string(buf, 'LINE:', 1);
 						anz = strtok(buf, ':');
 						for (i = 1; i <= anz; i++)
+						{
 							switch (i)
+							{
 								case 1: sPg = getStrTok(i);
 								case 2: nSongID = atoi(getStrTok(i));
 								case 3: nLine = atoi(getStrTok(i));
-								case 4: stSong[nLine].sTitle = getStrTok(i);
+								case 4: stSong[nLine].sTitle = DecodeURL(getStrTok(i));
-								case 5: stSong[nLine].sArtist = getStrTok(i);
+								case 5: stSong[nLine].sArtist = DecodeURL(getStrTok(i));
-								case 6: stSong[nLine].sAlbum = getStrTok(i);
+								case 6: stSong[nLine].sAlbum = DecodeURL(getStrTok(i));
-								case 7: stSong[nLine].sGenre = getStrTok(i);
+								case 7: stSong[nLine].sGenre = DecodeURL(getStrTok(i));
-								case 8: stSong[nLine].sCover = getStrTok(i);
+								case 8: stSong[nLine].sCover = DecodeURL(getStrTok(i));
+							}
+						}
 						stSong[nLine].nID = nSongID;
+						}
 						displaySong(nLine);
+					}
+					active(find_string(buf, 'FOLDER:', 1)):
+					{
+					stack_var char sPg[32];
+					stack_var integer nLine;
+					stack_var integer anz;
+					stack_var integer i;
+						remove_string(buf, 'FOLDER:', 1);
+						anz = strtok(buf, ':');
+						for (i = 1; i <= anz; i++)
+						{
+							switch(i)
+							{
+								case 1: sPg = getStrTok(i);
+								case 2: nLine = atoi(getStrTok(i));
+								case 3: stSong[nLine].sTitle = DecodeURL(getStrTok(i));
+								case 4: stSong[nLine].sCover = DecodeURL(getStrTok(i));
+							}
+						}
+						stSong[nLine].nID = 0;
+						stSong[nLine].sAlbum = '';
+						stSong[nLine].sArtist = '';
+						stSong[nLine].sGenre = '';
+						if (nLine == 1)
+						{
+							setActualPage(sPg);
+							clearPage();
+						}
+						displaySong(nLine);
+					}
+					active(find_string(buf, 'PLAYLIST:', 1)):
+					{
+					stack_var integer nLine;
+					stack_var integer anz;
+					stack_var integer i;
+						remove_string(buf, 'PLAYLIST:', 1);
+						anz = strtok(buf, ':');
+						for (i = 1; i <= anz; i++)
+						{
+							switch(i)
+							{
+								case 1: nLine = atoi(getStrTok(i));
+								case 2: sActUser = DecodeURL(getStrTok(i));
+								case 3: stSong[nLine].sTitle = DecodeURL(getStrTok(i));
+							}
+						}
+						stSong[nLine].nID = 0;
+						stSong[nLine].sAlbum = '';
+						stSong[nLine].sArtist = '';
+						stSong[nLine].sGenre = '';
+						if (nLine == 1)
+						{
+							setActualPage('PLAYLIST');
+							clearPage();
+						}
+						displaySong(nLine);
+					}
+					active(find_string(buf, 'FOLDERNAME:', 1)):
+					{
+						remove_string(buf, 'FOLDERNAME:', 1);
+						sActFolder = buf;
+						nFolder = 1;
+					}
 					active(find_string(buf, 'PLAYING:', 1)):
+					{
 					stack_var integer nSongID;
 					stack_var char sTitle[256];
 					stack_var char sArtist[256];
 								case 6: sCover = DecodeURL(getStrTok(i));
+							}
+						}
 						// Initialize detail fields
-						send_command vdvMDB, "'^TXT-',itoa(TEXT_DETAIL_TITLE),',0,',sTitle";
+						send_command dvTPs, "'^TXT-',itoa(TEXT_DETAIL_TITLE),',0,',sTitle";
-						send_command vdvMDB, "'^TXT-',itoa(TEXT_DETAIL_ARTIST),',0,',sArtist";
+						send_command dvTPs, "'^TXT-',itoa(TEXT_DETAIL_ARTIST),',0,',sArtist";
-						send_command vdvMDB, "'^TXT-',itoa(TEXT_DETAIL_ALBUM),',0,',sAlbum";
+						send_command dvTPs, "'^TXT-',itoa(TEXT_DETAIL_ALBUM),',0,',sAlbum";
-						send_command vdvMDB, "'^TXT-',itoa(TEXT_DETAIL_GENRE),',0,',sGenre";
+						send_command dvTPs, "'^TXT-',itoa(TEXT_DETAIL_GENRE),',0,',sGenre";
 						setLogo(sCover, 0);
+					}
+					active(find_string(buf, 'USER:', 1)):
+					{
+						remove_string(buf, 'USER:', 1);
+						sActUser = DecodeURL(buf);
+					}
 					active(find_string(buf, 'TOTAL:', 1)):
+					{
 						remove_string(buf, 'TOTAL:', 1);
 						nTotal = atoi(buf);
 						displayPageInfo(nStart, nTotal);
 						remove_string(buf, 'PAGE:', 1);
 						setActualPage(buf);
 						displayPageInfo(nStart, nTotal);
+					}
-					active(find_string(buf, 'PLAYER:')):
+					active(find_string(buf, 'PLAYER:', 1)):
+					{
 						remove_string(buf, 'PLAYER:', 1);
 						if (buf == 'PLAY')
+						{
 							off[dvTPs,STOP];
 							off[dvTPs,PAUSE];
+						}
+					}
+					active(find_string(buf, 'RANDOM:', 1)):
+					{
+						remove_string(buf, 'RANDOM:', 1);
+						if (buf == 'TRUE')
+							nRandom = 1;
+						else
+							nRandom = 0;
+					}
+					active(find_string(buf, 'REPEAT:', 1)):
+					{
+						remove_string(buf, 'REPEAT:', 1);
+						if (buf == 'TRUE')
+							nRepeat = 1;
+						else
+							nRepeat = 0;
+					}
+					active(find_string(buf, 'ERROR:PLAYLIST:No user selected', 1)):
+					{
+						sActUser = '';
+						nKeyboard[get_last(dvTPs)] = TEXT_INPUT_UNAME;
+						send_command dvTPs[get_last(dvTPs)],"'@AKB-',sActUser,';Enter user name'";
+					}
 					active(find_string(buf, 'KEYBOARD:', 1)):
+					{
 					stack_var integer pan;
 						remove_string(buf, 'KEYBOARD:', 1);
 						pan = atoi(buf);
 						remove_string(buf, ':', 1);
 						if (nKeyboard[pan] == TEXT_INPUT_UNAME)
+						{
-							sActUser = left_string(buf, length_string(buf) - 1);
+							sInputUser = buf;
-							send_command dvTPs[pan], "'@PPF-',sPopupSelUser";
+							send_command dvTPs[pan], "'^TXT-',itoa(TEXT_INPUT_UNAME),',0,',sInputUser";
-							send_command vdvMDB, "'USER:',EncodeURL(sActUser),':;'";
 							nKeyboard[pan] = 0;
+						}
 						else if (nKeyboard[pan] == TEXT_INPUT_PLAYLIST)
+						{
-							if (!nSaveToFolder)
-							{
-								sActPlaylist = left_string(buf, length_string(buf) - 1);
-								send_command vdvMDB, "'USER:',EncodeURL(sActUser),':',EncodeURL(sActPlaylist),';'";
-							}
-							else
-							{
-								stack_var char sPlaylist[128];
+							sInputPlaylist = buf;
-								sPlaylist = left_string(buf, length_string(buf) - 1);
-								send_command vdvMDB, "'SAVEQUEUE:',EncodeURL(sActUser),':',EncodeURL(sPlaylist),';'";
+							send_command dvTPs, "'^TXT-',itoa(TEXT_INPUT_PLAYLIST),',0,',sInputPlaylist";
-								nSaveToFolder = 0;
-							}
-							send_command dvTPs[pan], "'@PPF-',sPopupSelUser";
 							nKeyboard[pan] = 0;
+						}
+					}
+				}
+			}
+		}
+	}
+	button_event[dvTPs,BTN_SCROLLBAR]
+	{
+		push:
+		{
+		stack_var integer pan;
+			pan = get_last(dvTPs)
+			nScrollbarPressed[pan] = 1;
+		}
+		release:
+		{
+		stack_var integer pan;
+			pan = get_last(dvTPs)
+			nScrollbarPressed[pan] = 0;
+			if (nTotal)
+			{
+				nStart = type_cast(nTotal / 100.0 * nScrollbarLvl);
+				send_command vdvMDB, "'LIST:',requestActualPage(),':',itoa(nStart),':',itoa(MAX_LINES),';'";
+			}
+		}
+	}
+	level_event[dvTPs,LVL_SCROLLBAR]
+	{
+	stack_var integer pan;
+		pan = get_last(dvTPs);
+		if (nScrollbarPressed[pan])
+			nScrollbarLvl = LEVEL.VALUE;
+	}
+DEFINE_PROGRAM
+	[dvTPs,MEDIA_RANDOM] = nRandom;
+	[dvTPs,MEDIA_REPEAT] = nRepeat;

Subversion Repositories mdb

(root)/AMX/MDB/MDB_UI.axs – Rev 24 → 25