Скрипты для foo_uie_wsh_panel_mod

[kgena_ua]

AHAPXICT, у меня без d делает перенос:

gr.GdiDrawText и gr.DrawString по-разному выводят текст:

Безымянный2.png (2.46 КБ) Просмотров: 3531

а gr.CalcTextWidth правильно считает ширину только для gr.GdiDrawText
поэтому для gr.DrawString я немного увеличил считаемую ширину.

[seriousstas]

Вы ее доработали до этого (что значит как )

Вызов настроек таймера правым кликом
http://du22y.deviantart.com/
сделал , я по WSH так и остался в первом классе ,
зато по AHK перешёл во второй ...
Вобщем спасибо БОЛЬШОЕ! - Всё работает ! (пошёл клепать панели :) )
в моей сборке этот (fb.ProfilePath + "\\Emul\\Shift.exe ")
без проблем , а в той. что по ссылке у du22y только если путь такой :
(".\\Emul\\Shift.exe ") почему-то , загадка ...
Вызов панели по TAB требует другой путь (к папке settings) , тк внутри прописан SetWorkingDir %A_ScriptDir%
для прортабельности .

[AHAPXICT]

seriousstas, не спится? Доброе утро. (пока писал сообщение - не успел)
kgena_ua, спасибо за подробное объяснение, вы как всегда правы. У меня таки потом вылез перенос на другую строку(заметил по ... в конце строки)
Вернул всё как было, пока работает стабильно.

[seriousstas]

seriousstas, не спится? Доброе утро.

Доброе!
Да , ночью в тишине думалка в разы ускоряется...

[AHAPXICT]

seriousstas, это мне знакомо, поэтому и поздоровался! Сейчас пойду на прогулку, а потом в берлогу и спать.)))
Мне как kgena_ua подкинет идейку так у меня потом сутки мозговые бури

[seriousstas]

Так это здорово!!! - застоя не будет , я каждый день хочу делами заняться наконец - не выходит ,
тут кнопку подвинуть , там панельку приделать - не знаю как завязать с этим

[AHAPXICT]

Вот и я про что. Уже сутки не спал. То прокрутку сикбара на часы прицепил, то пытался прокрутку текста колёсиком мыши сделать(не выгорело). Сейчас моя сборка выглядит как палата №6, вся WSH со скриптами недоделанными)))))

[seriousstas]

)) Сегодня скачал-зашел-открыл (впервые) сборку kgena_ua - окрыл PSS скрипт - промотав_быстро закрыл
Много интересных решений и приятных сюрпризов .
Предложил-бы только немнго увеличить элементы управления (кнопки тоесть) . Нашел одну , которая , как разъём микро USB примерно,
которая, в свою очередь разделена на две (вперёд-назад , для смены фона) .
Ну хотя это наверное просто после автосборки такое восприятие, где кнопки под палец ...

[kgena_ua]

Всем привет.
Изменения в скрипте "свойства". Выложу весь, т.к. строки сдвинулись.
1. Изменил вывод текста ( добавил DT_SINGLELINE = 0x00000020; ).
2. Добавил отображение %genre% для ИРадио.
3. Изменил function on_size().
4. Заменил "%path%" на "$directory_path(%path%)".

Код: Выделить всё

// ==PREPROCESSOR==
// @name "properties"
// @author "kgena_ua"
// ==/PREPROCESSOR==

function RGB(r, g, b) {
    return (0xff000000 | (r << 16) | (g << 8) | (b));
}

var g_font = gdi.Font("Areal",12,0);
var g_font2 = gdi.Font("Tahoma",10,0);

DT_LEFT = 0x00000000;
DT_CENTER = 0x00000001;
DT_VCENTER = 0x00000004;
DT_RIGHT = 0x00000002;
DT_WORD_ELLIPSIS = 0x00040000;
DT_SINGLELINE = 0x00000020;
var ww, wh;

//var color1 = RGB(140,164,179);
var color1 = RGB(140,140,140);
var color2 = RGB(255,255,225);
var color3 = RGB(90,90,90);

var tfarray = [];
var widestring = [];

var g_tooltip = window.CreateTooltip();
var ttText = "";
g_tooltip.SetMaxWidth(300);

window.GetProperty("skip",0);
var name, value, measure, t_height;
var path = "", title;
var g_drag = false;
var g_drag_y = 0;
var s = 0;
var col1 = 10;
var col2 = 115;
var col3;

var metadb;
on_item_focus_change();

function on_paint(gr) {
    gr.FillSolidRect (0, 0, ww, wh, RGB(30,30,30));

    tfarray = [];
   
    for (j = 0; j < tfname.length; j++) {

        group = false;
//        if (tfname[j].search('group') >= 0 || tfname[j] == "\r\n" ) group = true;
        if (tfname[j].search('group') >= 0 || tfname[j] == "line" ) group = true;

        if ((path.substr(0,4) == "http" || path.substr(0,4) == "mms:") && tfname[j] != "%genre%") {
            value = fb.TitleFormat("[" + tfname[j] + "]").Eval();
        } else {
            if (metadb) value = fb.TitleFormat("[" + tfname[j] + "]").EvalWithMetadb(metadb);
        }
       
        if ( window.GetProperty("skip") == 1) {
            if (value || group) tfarray.push(tfname[j]);
        } else {
            tfarray.push(tfname[j]);
        }
    }

    t_height = gr.CalcTextHeight("text", g_font) + 2;

    widestring = [];

    for (i = 0; i < tfarray.length; i++) {
        line = false;
        group = false;
        measure = "";
       
        row =  i * t_height + s;
       
        if (tfarray[i].search('line') >= 0) line = true;
        if (tfarray[i].search('group') >= 0) group = true;

        name = tfarray[i].replace(/[%\$\(\)]|info|meta|group |line|lastfm/g,'').replace(/_/g,' ');

        if ((path.substr(0,4) == "http" || path.substr(0,4) == "mms:") && tfarray[i] != "%genre%") {
            value = fb.TitleFormat("[" + tfarray[i] + "]").Eval();
        } else {
            if (metadb) value = fb.TitleFormat("[" + tfarray[i] + "]").EvalWithMetadb(metadb);
        }
       
        if (name && value){
            if (tfarray[i] == "$info(bitrate)") measure = "  kbps";
            if (tfarray[i] == "$info(samplerate)") measure = "  Hz";
            if (tfarray[i] == "$info(bitspersample)") measure = "  bps";
            if (tfarray[i] == "$info(channels)") measure = "  ch";
            if (tfarray[i] == "$meta(rating)") measure = "  (tag)";
        }

        line_row = row + t_height / 2;
        if (line) gr.DrawLine(col1, line_row, ww - col1, line_row, 1, color3);
       
        gr.GdiDrawText(name, group ? g_font2 : g_font, group ? color3 : color1, col1, row, ww - col1 * 2, t_height, DT_LEFT | DT_SINGLELINE | DT_VCENTER | DT_WORD_ELLIPSIS);       

        t_width2 = gr.CalcTextWidth(value, g_font);
        col3 = col2 + t_width2;
       
        if (t_width2 > ww - col2 - col1) {   widestring.push(row,tfarray[i])};

        gr.GdiDrawText(value, g_font, color2, col2, row, ww - col2 - col1, t_height, DT_LEFT | DT_SINGLELINE | DT_VCENTER | DT_WORD_ELLIPSIS);       
        gr.GdiDrawText(measure, g_font, color1, col3, row, ww - col3 - col1, t_height, DT_LEFT | DT_SINGLELINE | DT_VCENTER | DT_WORD_ELLIPSIS);       
    }

    g_tooltip.Text = ttText;
    if (ttText) g_tooltip.Activate();
}

function on_mouse_lbtn_down(x, y) {
    g_drag = true;
    g_drag_y = (y - s);
}

function on_mouse_lbtn_up(x, y) {
    g_drag = false;
}

function on_mouse_move(x, y) {
    window.SetCursor(32649);
   
    ttText = "";

    for (i = 0; i < widestring.length; i = i + 2) {
        if (y > widestring[i] && y < widestring[i] + t_height && x > col2) {
            if (path.substr(0,4) == "http" || path.substr(0,4) == "mms:") {
                ttText = fb.TitleFormat("[" + widestring[i + 1] + "]").Eval();
            } else {
                if (metadb) ttText = fb.TitleFormat("[" + widestring[i + 1] + "]").EvalWithMetadb(metadb);
            }
            if (ttText) return;
        }
    }

    if (g_drag) {
        if (s <= 0 && (tfarray.length * t_height) >= wh) {s = y - g_drag_y};
        applyDelta();
    }
   
    if (s == 0 || s == wh - tfarray.length * t_height) g_drag_y = (y - s);
        window.Repaint();
}

function on_mouse_wheel(step) {
    if (s <= 0 && tfarray.length * t_height >= wh) {s = s + step * t_height};
    applyDelta();
}

function applyDelta() {
    s = s > 0 ? 0 : s;
    s = s < (wh - tfarray.length * t_height) && s < 0 ? (wh - tfarray.length * t_height) : s;
    window.Repaint();
}

function on_mouse_leave() {   
    window.SetCursor(32512);
    g_tooltip.Deactivate();
    window.Repaint();
}

function on_metadb_changed() {
    path = fb.Titleformat("%path%").EvalWithMetadb(metadb);
//    title = fb.Titleformat("%title%").EvalWithMetadb(metadb);
//    artist = fb.Titleformat("%artist%").EvalWithMetadb(metadb);
}

function on_item_focus_change() {
    metadb = fb.IsPlaying ? fb.GetNowPlaying() : fb.GetFocusItem() ,true;
    if (metadb) on_metadb_changed();
    window.Repaint();
}

function on_playback_new_track(metadb) {     
    on_item_focus_change();
}

function on_playback_time(time){
    on_item_focus_change();
}

function on_selection_changed(metadb) {
    on_item_focus_change(); 
}

function on_playlist_switch() {
    on_item_focus_change(); 
}

function on_playback_stop() {
    window.Repaint();
}

var wh_old;

function on_size() {
    ww = window.Width;
    wh = window.Height;
    if (wh != wh_old  && s < 0) {
        s = wh >= wh_old ? s + 1 : s;
        wh_old = wh;
    }
}

function on_mouse_rbtn_up (x, y){     
    var _menu = window.CreatePopupMenu();
    var i = 1;

    MF_ENABLED = 0x00000000;
    MF_GRAYED = 0x00000001;
   
    _menu.AppendMenuItem(MF_ENABLED, 1, "skip if empty");
    _menu.CheckMenuItem(1, window.GetProperty("skip"));

    ShiftDown = utils.IsKeyPressed(0x10) ? true : false;
   
//    if (ShiftDown) {
        _menu.AppendMenuItem(0x00000800, 0, 0);
        _menu.AppendMenuItem(0x00000000, 10, "Reload");
        _menu.AppendMenuItem(0x00000800, 0, 0);
        _menu.AppendMenuItem(0x00000000, 20, "Properties");
        _menu.AppendMenuItem(0x00000000, 30, "Configure ...");
//    }

    ret = _menu.TrackPopupMenu(x,y);

    switch (ret) {
    case 1:   
        window.SetProperty("skip", window.GetProperty("skip") == 0 ? 1 : 0);
        if (s < 0) s = 0;
        break;
    case 10:
        window.Reload();
        break;
    case 20:
        window.ShowProperties();
        break;   
    case 30:
        window.ShowConfigure();      
        break;
   }
    _menu.Dispose();
    return true;
}

var tfname = new Array(
"%artist%",
"%title%",
"%album%",
"%date%",
"%genre%",
"%composer%",
"%performer%",
"%publisher%",
"%album artist%",
"%track number%",
"%totaltracks%",
"%discnumber%",
"%totaldiscs%",
"%comment%",
"%rating%",
"$meta(rating)",
"line",
"group G E N E R A L",
"$info(samplerate)",
"$info(channels)",
"$info(bitspersample)",
"$info(bitrate)",
"%codec%",
"$info(codec_profile)",
"$info(encoding)",
"%length%",
"$info(tool)",
"$info(cue_embedded)",
"line",
"group L O C A T I O N",
"%filename_ext%",
//"%path%",
"$directory_path(%path%)",
"%subsong%",
"%filesize_natural%",
"%last_modified%",
"%folder name%",
"line",
"group P L A Y B A C K   S T A T I S T I C S",
"%play_count%",
"%first_played%",
"%last_played%",
"%added%",
"line",
"group L A S T F M",
"%lastfm_bio%",
"%lastfm_similar_artist%",
"%lastfm_artist_playcount%",
"%lastfm_artist_listeners%",
"%lastfm_album_playcount%",
"%lastfm_album_listeners%",
"%lastfm_album_content%"
);

Для удобства тестирования используйте foo_dockable_panels, очень удобно.

[seriousstas]

kgena_ua
Привет !
Вопросик
Для быстрой промотки длинных плейлистов на клавиатуре удобно листать постранично
PgUp PgDn и ещё быстрее удерживая эти клавиши .
Может есть способ создать WSH кнопку ,которая работала-бы так-же (посысылала PgUp или PgDn многократно через секунду удержания,фокус им не нужен , тоесть использовать AHK или autoit не обязательно) ?
Либо (fb.ProfilePath + "\\Emul\\AHK.exe ") зациклить ?

[kgena_ua]

seriousstas,
Вот пример увеличения и уменьшения переменной ttt при нажатии (или удерживая) PgUp или PgDn:

Код: Выделить всё

var VK_PGUP = 0x21;
var VK_PGDN = 0x22;

var ttt = 0;

function on_key_down(vkey) {
    switch (true) {
    case (vkey == VK_PGUP):
        ttt = ttt + 1;
        break;
    case (vkey == VK_PGDN):
        ttt = ttt - 1;
        break;
    }
    window.Repaint();
}

а вообще нужно смотреть Ваш скрипт WSH playlist в скроллинге. Только я сегодня думать уже не буду - я пиво пью. И в планах у меня скрипт "поиск".

Добавлено спустя 5 часов 39 минут:
Скрипт "change file attributes" read only - read write.
Повтор. Только теперь и для выбранных файлов.

Код: Выделить всё

// ==PREPROCESSOR==
// @name "change file attributes"
// @author "kgena_ua"
// ==/PREPROCESSOR==

function RGB(r,g,b) { return (0xff000000|(r<<16)|(g<<8)|(b)); }
var font = gdi.Font("Arial",12,1);
var ww,wh;

DT_LEFT = 0x00000000;
DT_RIGHT = 0x00000002;
DT_CENTER = 0x00000001;
DT_VCENTER = 0x00000004;
DT_SINGLELINE = 0x00000020;
DT_WORD_ELLIPSIS = 0x00040000;

var color = {
    0:RGB(255,255,220),
    1:RGB(102,255,102)
};

var file_path, file_name, file_n = [],attributes, verify;;
var txt1, txt2;
var count;

var fso = new ActiveXObject("Scripting.FileSystemObject");

var metadb;
on_item_focus_change();

function on_paint(gr){
    gr.FillSolidRect (0, 0, ww, wh, RGB(50,50,50));
    gr.GdiDrawText("change file attributes", font, RGB(100,100,100), 0, 0, ww, wh, DT_SINGLELINE | DT_CENTER | DT_VCENTER | DT_WORD_ELLIPSIS );
}

function on_item_focus_change() {
    txt1 = "";
    txt2 = "";
    file_n = [];
    verify = 0;
    metadb =  fb.GetSelections().Count > 1 ? fb.GetSelections() : fb.GetFocusItem();   
    if (metadb) on_metadb_changed();
}

var v;

function on_metadb_changed() {
    count = fb.GetSelections().Count;

    if (metadb.Count == null){         
        file_path = fb.Titleformat("%path%").EvalWithMetadb(metadb);
        file_name = fb.Titleformat("%filename_ext%").EvalWithMetadb(metadb);
        file_n.push(file_name);
        try {
            file = fso.GetFile(file_path);
            attributes = file.Attributes;
            verify = attributes;
            txt1 = "file is ";
        } catch(e) {};
    } else {
        for (var i = 0; i < count; i++) {
            item = fb.GetSelections().Item(i);

            file_path = fb.Titleformat("%path%").EvalWithMetadb(item);
            file_name = fb.Titleformat("%filename_ext%").EvalWithMetadb(item);
            try {
                file = fso.GetFile(file_path);
                attributes = file.Attributes;
                verify = verify + file.Attributes;

                file_n.push(file_name);
            } catch(e) {};
        }
        file_n = file_n.join("\r\n");
        txt1 = "files are ";
        verify = Math.round(verify / count);
    }
    switch (verify) {
    case 32:   
        txt2 = "READ - WRITE"; break;     
    case 33:   
        txt2 = "READ - ONLY"; break;     
    }   
    window.Repaint();
}

function change_attributes(k) {
    for (var i = 0; i < count; i++) {
        item = fb.GetSelections().Item(i);
        file_path = fb.Titleformat("%path%").EvalWithMetadb(item);
        try {
            file = fso.GetFile(file_path);
            file.Attributes = k;
        } catch(e) {};
    }   
}

function on_playback_new_track(metadb) {     
    on_item_focus_change();   
}

function on_selection_changed(metadb) {
    on_item_focus_change(); 
}

function on_playlist_switch() {
    on_item_focus_change(); 
}

function on_mouse_lbtn_up (x, y){     
    var _menu = window.CreatePopupMenu();
    var i = 1;
   
    MF_ENABLED = 0x00000000;
    MF_GRAYED = 0x00000001;
    RO = verify == 33 ? MF_ENABLED : MF_GRAYED;
    RW = verify == 32 ? MF_ENABLED : MF_GRAYED;

    _menu.AppendMenuItem(RO, i++, "read write");
    _menu.AppendMenuItem(RW, i++, "read only");

    ret = _menu.TrackPopupMenu(x,y);
    if (ret == 0) return;

    switch (ret) {
    case 1:
        if (metadb) change_attributes(32);
        on_item_focus_change();
        break;
    case 2:
        if (metadb) change_attributes(33);
        on_item_focus_change();
        break;
    }
    _menu.Dispose();
}

function on_size(){
    ww = window.Width;   
    wh = window.Height;
}

[seriousstas]

kgena_ua

а вообще нужно смотреть Ваш скрипт WSH playlist в скроллинге

Плавного скрола добится не получается мотает минимум по одной строчке (из-за этого небольшие рывки) и значения в
SYSTEM.Playlist Scroll Step 
SYSTEM.Playlist Touch Step 
минимум 1 , нельзя задать 0.1 например . Автор говорит , что иначе не выйдет ...
du22y
добавил два настроечных параметра , которые немного улучшают ситуацию :
Mouse_delta_timer
Mouse_scroll_timer
При PgDn проматыватся ровно страница .

И в планах у меня скрипт "поиск"

Интересно ... речь про тот, что делался под тач , или что-то "с нуля" ?
Если будет модернизация прошлого , то два пожелания(возможно не реалистичны) :
1. Ищу например The Byrds и как по Ctrl+F - вижу результаты (треки), выбирая нужный попадаю в основной плейлист ,
без создания Search
2. Возможность (переключения) использовать имеющуюся клавиатуру и для ввода текста . В JS есть возможность искать прямым вводом ,
правда только Артиста .
пиво пью
Приятного отдыха !!!

Добавлено спустя 15 минут 42 секунды:
Вспомнил , вроде-бы у Onv было интересное решение :
плейлист был разбит на два условных экрана, одна часть которого обеспечивала быструю перемотку .

[kgena_ua]

Скрипт на тестирование.
Отображение логотипа станции при проигрывании ИРадио.
В архиве тестовый плейлист и папка с логотипами (положить в корень).

test.rar

(127.44 КБ) Скачиваний: 405

Код: Выделить всё

function RGB(r,g,b) { return (0xff000000|(r<<16)|(g<<8)|(b)); }

var font = gdi.Font("Arial",11,1);
var ww,wh;

DT_LEFT = 0x00000000;
DT_WORD_ELLIPSIS = 0x00040000;

var path;
var dir_name = fb.FoobarPath + "\\Logos\\";         
var fso = new ActiveXObject("Scripting.FileSystemObject");   
var file_name, g_img;
var g_img_default = gdi.Image(dir_name + "no_pic.png");
//var ext = Array ("jpg","jpeg","png","gif","bmp","tiff");
var files = [];

var metadb;   
on_item_focus_change();   

function on_paint(gr){
    g_img = gdi.Image(fb.FoobarPath + "\\Logos\\" + file_name);   

    if (path.substr(0,4) == "http" || path.substr(0,4) == "mms:") {

        if (!g_img) g_img = g_img_default;

        var scale_w = ww / g_img.Width;
        var scale_h = wh / g_img.Height;
        var scale = Math.min(scale_w, scale_h);
        var pos_x = 0;
        var pos_y = 0;

        if (scale_w < scale_h) pos_y = (wh - g_img.Height * scale) / 2;
        else if (scale_w > scale_h) pos_x = (ww - g_img.Width * scale) / 2;
   
//      g_img = g_img.CreateRawBitmap();
//      gr.GdiDrawBitmap(g_img, pos_x, pos_y, g_img.Width * scale, g_img.Height * scale, 0, 0, g_img.Width, g_img.Height);
        gr.DrawImage(g_img, pos_x, pos_y, g_img.Width * scale, g_img.Height * scale, 0, 0, g_img.Width, g_img.Height);
    }

//    gr.GdiDrawText(files, font, RGB(20,20,20), 10, 10, ww - 20, wh, DT_LEFT | DT_WORD_ELLIPSIS );
//    gr.GdiDrawText(path, font, RGB(20,20,20), 10, 20, ww - 20, wh, DT_LEFT | DT_WORD_ELLIPSIS );
//    gr.GdiDrawText(" - " + file_name + " - ", font, RGB(20,20,20), 10, 30, ww - 20, wh, DT_LEFT | DT_WORD_ELLIPSIS );
//    gr.GdiDrawText(title, font, RGB(20,20,20), 10, 40, ww - 20, wh, DT_LEFT | DT_WORD_ELLIPSIS );
}

function on_item_focus_change() {      
   metadb = fb.IsPlaying ? fb.GetNowPlaying() : fb.GetFocusItem();
    if (metadb) on_metadb_changed();   
}   

function on_playback_new_track(metadb) { 
    on_item_focus_change();
}

function on_selection_changed(metadb) {
    on_item_focus_change();
}

function on_playlist_switch() {
    on_item_focus_change();
}

function on_playback_stop() {
    window.Repaint();
}

function on_metadb_changed() {
    path = fb.Titleformat("$directory_path(%path%)").EvalWithMetadb(metadb);
    title = fb.Titleformat("%title%").EvalWithMetadb(metadb);
   
    file_name = "";
    get_files();
   
    for (var i = 0; i < files.length; i++){
        var file = files[i].replace(/.jpg|.jpeg|.png|".gif"|.bmp|.tiff/g,'');
//        if (path.toLowerCase(path).search(file) > 0) file_name = files[i];
        if (title.toLowerCase(title).match(file) != null) file_name = files[i];
    }
    window.Repaint();         
}         
      
function get_files() {
    var e = new Enumerator( fso.GetFolder(dir_name).Files );   
    while( !e.atEnd() ) {   
        var name = e.item().Name;
        name = name.toLowerCase(name);
        files.push( name );         
        e.moveNext();
    }
}      

function on_size(){
    ww = window.Width;   
    wh = window.Height;   
}   



[MC Web]

kgena_ua, если плейлист не загружен, выдает ошибку:

Код: Выделить всё

Microsoft JScript:
'path' -  есть null или не является объектом
File: <main>
Ln: 23, Col: 5
<source text only available at compile time>

[Yurnikos]

Отображение логотипа станции при проигрывании ИРадио.

"Scripting Engine Initialization Failed ({5103221B-D8DA-4A08-8050-B289628F5E03}, CODE: 0x80020101)
Check the console for more information (Always caused by unexcepted script error)."

[kgena_ua]

MC Web,
Попробуйте
стр. 9 заменить на var path = "", title = "";

[MC Web]

kgena_ua, да, так без ошибок.
Я так понимаю, для отображения логотипа радиостанции, необходимо иметь библиотеку изображений в папке Logos.
Вот еще бы брал (думаю не совсем реально) изображение с сайта радиостанции.
Была раньше мысль по радиостанциям брать также изображения жанра трека (если есть).

[kgena_ua]

необходимо иметь библиотеку изображений в папке Logos

MC Web, да, я просто вытащил из ИНета парочку изображений.

изображение с сайта радиостанции.

Да, это наверное сложно, если вообще реально.

[MC Web]

Да, это наверное сложно, если вообще реально.

В принципе может и реально.
Посмотрел несколько сайтов Интернет радиостанций, в основном логотипы загружены файлами, в имени которых содержится (в разных вариантах) слово logo, как я и предполагал.
Остается написать поисковик и загрузчик этих файлов.

[seriousstas]

Скрипт на тестирование.

Респект !!!
Скрипт работает , осталось как-то объединить с WSH плейлистом .