interface "Jef V.40" awards,series,connection, order, missing code

How to make Movienizer support new sites. Customize Movienizer.
User avatar
xbox80
Star
Posts: 462
Joined: Tue Sep 15, 2009 8:50 am
Location: Italy-Russian

Re: interface "Jef V.40" awards,series,connection, order, missing code

Post by xbox80 » Fri Dec 30, 2016 11:54 pm

I found this code in the script program modern_program_part3

it is possible add, the "Jef" script (jef_program_getperson.pas), for orders movie by year, title in actors tab?

Code: Select all

program modern_program_part3;

uses 'modern_program_variables.pas';

function GetSortIcons(sort_order: String; PersonCode: Integer; PersonType: String): String;
begin
	result := '';
	if (RegReadInteger('SortIcons', 0) = 1) then begin
		if (sort_order <> 'title asc') then
			result := result + format('&nbsp;<a class="picture" href="userref:131,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" src="%stitle-sort-ascend.png" align="absmiddle"></a>', [GetLangStr(1477), ImgPath]);
		if (sort_order <> 'title desc') then
			result := result + format('&nbsp;<a class="picture" href="userref:132,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" src="%stitle-sort-descend.png" align="absmiddle"></a>', [GetLangStr(1478), ImgPath]);
		if (sort_order <> 'year asc') then
			result := result + format('&nbsp;<a class="picture" href="userref:133,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" src="%syear-sort-ascend.png" align="absmiddle"></a>', [GetLangStr(1479), ImgPath]);
		if (sort_order <> 'year desc') then
			result := result + format('&nbsp;<a class="picture" href="userref:134,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" src="%syear-sort-descend.png" align="absmiddle"></a>', [GetLangStr(1480), ImgPath]);
		if RegReadInteger('ShowRating', 1) = 1 then begin
			if (sort_order <> 'rating asc') then
				result := result + format('&nbsp;<a class="pic" href="userref:161,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" border="0" src="%ssort-rating-asc.png" align="absmiddle"></a>', [GetLangStr(7007), ImgPath]);
			if (sort_order <> 'rating desc') then
				result := result + format('&nbsp;<a class="pic" href="userref:162,%s;%d">', [PersonType, PersonCode]) + format('<img alt="%s" border="0" src="%ssort-rating-desc.png" align="absmiddle"></a>', [GetLangStr(7008), ImgPath]);
		end;
	end;
end;

TerribleFloater
Superstar
Posts: 1868
Joined: Thu Feb 28, 2008 4:20 pm

Re: interface "Jef V.40" awards,series,connection, order, missing code

Post by TerribleFloater » Sat Dec 31, 2016 6:31 am

xbox80 wrote:I found this code in the script program modern_program_part3

it is possible add, the "Jef" script (jef_program_getperson.pas), for orders movie by year, title in actors tab?
There are not icons in JeF's interface. You must include them first. And you must read this first:
JeF wrote:////////////////////////////////////////////////////////////////////////////////
// JeF's Interface is released for free use but Not for free Full Copying. //
// I have spent many, many hours to build it and it should be understandable //
// i want to stay credited for special features introduced in this interface. //
// So, feel free to read code, and get ideas to build your own script, but //
// please don't publish full copy : ask me for new features instead... //
////////////////////////////////////////////////////////////////////////////////
Хочу: чёрные списки, пол людей, пользовательские поля изданий.
Кинопоиск: Image ПлюсКинопоиск: Image

Post Reply

Who is online

Users browsing this forum: No registered users and 4 guests