AkelPad

Posted: **Sun Aug 31, 2014 9:55 pm**

TextMarker.js
Added:
- markers list,
- current marks list,
- find marks.

Posted: **Mon Sep 01, 2014 2:35 pm**

KDJ
Great!

Few notes:
When I try to ignore text color or background color assigning 0, I get error "Incorrect background color code."

Code: Select all

    sTextColor = RGBToHex(lpMarkItem + (_X64 ? 44 : 28) /*offsetof(AEMARKTEXTITEMW,crText)*/);
    sBkColor   = RGBToHex(lpMarkItem + (_X64 ? 48 : 32) /*offsetof(AEMARKTEXTITEMW,crBk)*/);

crText and crBk could be -1 (see first note), but RGBToHex convert -1 to "#FFFFFF" (it should convert to 0 or "0").
Example:

Code: Select all

"Cyan" Call("Coder::HighLight", 2, 0, "#9BFFFF", 1, 0, 11)

When I mark selection with 0 in text color and try to find it with "Find up/down" button, script not found anything because it searches ["#FFFFFF", "#9BFFFF"] instead of [0, "#9BFFFF"].

Code: Select all

  if (nMarkID >= 1000001 /*MARKID_AUTOMIN*/)
    nMarkID = -1;

  AkelPad.Call("Coder::HighLight", 4, nMarkID, sTextColor, sBkColor, bUp);

When you know ID you can find mark directly by ID (and from Coder plugin v13.9 also marks with ID assigned automatically):

Code: Select all

  AkelPad.Call("Coder::HighLight", 4, nMarkID, 0, 0, bUp);

In "Current marks" tab unable to copy info from text fields. It could be useful making fields read-only instead of disabling them.

Posted: **Mon Sep 01, 2014 8:33 pm**

Instructor
Thank you for your notes.
It seems to me that I fixed everything: TextMarker.js

Posted: **Tue Sep 02, 2014 5:18 am**

KDJ
All is OK, thanks.

Code: Select all

  SendMessage(aDlg[IDTCOLORE].HWND, 0x00CF /*EM_SETREADONLY*/, nTab, 0);
  SendMessage(aDlg[IDTCOLORE].HWND, 1091 /*EM_SETBKGNDCOLOR*/, !nTab, oSys.Call("user32::GetSysColor", 15 /*COLOR_BTNFACE*/));
  SendMessage(aDlg[IDBCOLORE].HWND, 0x00CF /*EM_SETREADONLY*/, nTab, 0);
  SendMessage(aDlg[IDBCOLORE].HWND, 1091 /*EM_SETBKGNDCOLOR*/, !nTab, oSys.Call("user32::GetSysColor", 15 /*COLOR_BTNFACE*/));
  SendMessage(aDlg[IDTEXTE].HWND,   0x00CF /*EM_SETREADONLY*/, nTab, 0);
  SendMessage(aDlg[IDTEXTE].HWND, 1091 /*EM_SETBKGNDCOLOR*/, !nTab, oSys.Call("user32::GetSysColor", 15 /*COLOR_BTNFACE*/));

?

Posted: **Tue Sep 02, 2014 7:49 pm**

Instructor
Oh yes, so it looks better.

TextMarker.js
Changed: backgroud color in the read-only edit controls (in "Current marks" tab).

Posted: **Wed Sep 03, 2014 12:04 am**

Posted: **Thu Sep 04, 2014 6:10 pm**

KDJ
In "Current marks" tab "Font style:" not changed if mark has non-zero font style.

Posted: **Thu Sep 04, 2014 7:11 pm**

Instructor
Fixed: TextMarker.js

Posted: **Fri Sep 05, 2014 1:18 pm**

Подскажите как с помощью скрипта TabSwitch.js

Code: Select all

-"Список вкладок" Call("Scripts::Main", 1, "TabSwitch.js", `-Next=-1 -CtrlTab=false -RightLeft=true -MinTabs=1 -WindowLeft=%bl -WindowTop=%bb -FontStyle=1`)

Отображать в менюшке только имена файлов (без полного пути)?

Posted: **Fri Sep 05, 2014 2:39 pm**

Andrey_A_A
TabSwitch.js

Posted: **Fri Sep 05, 2014 5:45 pm**

Instructor
Спасибо

Posted: **Sat Sep 06, 2014 2:09 pm**

LineBoardBookmarks.js
Fixed: show menu on caret position.

Posted: **Sat Sep 06, 2014 7:04 pm**

KDJ
Can you please add to SortLines.js ability to take signs of set count not from beginning, but from end of line?
Не могли бы вы добавить возможность отсчета символов с конца строк?

Posted: **Sat Sep 06, 2014 7:46 pm**

KDJ
For the Russian language in LineBoardBookmarks.js not missing two lines:

Code: Select all

    sTxtShowPanel     = "Show panel";
    sTxtShowRuler     = "Show ruler";

Code: Select all

  else if (AkelPad.GetLangId(0 /*LANGID_FULL*/) == 1049 /*Russian*/)
  {
    sTxtInvalidArg    = "Неверный параметр: ";
    sTxtCut           = "Вырезать строки";
    sTxtCopy          = "Копировать строки";
    sTxtOpenInTab     = "Открыть в новой вкладке";
    sTxtPasteTo       = "Вставить в (переписать) строки";
    sTxtReplace       = "Заменить строки";
    sTxtDelete        = "Удалить строки";
    sTxtSelection     = "Выделенные строки";
    sTxtBookmarkLines = "Снабдить строки закладками";
    sTxtUnmarkLines   = "Убрать закладки";
    sTxtInverseBooks  = "Инвертировать закладки";
    sTxtGoTo          = "Перейти к";
    sTxtNext          = "Следующая";
    sTxtPrevious      = "Предыдущая";
    sTxtShowPanel     = "Показать панель";
    sTxtShowRuler     = "Показать линейку";
    sTxtLBSettings    = "Настройки плагина LineBoard...";
    sTxtBookLinesAll  = "С закладками";
    sTxtUnLinesAll    = "Без закладок";
    sTxtBookLinesSel  = "С закладками в выделенном";
    sTxtUnLinesSel    = "Без закладок в выделенном";
    sTxtExpand        = "Расширить к ближайшей закладке";
    sTxtExpandTop     = "Расширить вверх к предыдущей закладке";
    sTxtExpandBottom  = "Расширить вниз к следующей закладке";
    sTxtReduce        = "Уменьшить к ближайшей закладке";
    sTxtReduceTop     = "Уменьшить сверху к следующей закладке";
    sTxtReduceBottom  = "Уменьшить снизу к предыдущей закладке";
    sTxtAll           = "Все";
    sTxtInSel         = "В выделенном";
    sTxtReplaceWith   = "заменить на:";
  }

В параллельной теме есть проблема со скриптом сохранения/восстановления закладок BookmarksPlus.vbs от Andrey_A_A: после сохранения закладок файл с этими самыми закладками открывается в новой вкладке, так понимаю, дело в функции
Не совсем понимаю, что происходит: если файл есть, то при сохранении закладок он удаляется и создается новый? Т.е. нельзя без открытия файла в окне AkelPad грохнуть его содержимое и записать содержимое переменной? И остается только заменить

Code: Select all

    Call .SendMessage(.GetMainWnd(), 273, 4104, 0)
  на
    Call .SendMessage(.GetMainWnd(), 273, 4324, 0)

чтобы его закрыть?

Posted: **Sat Sep 06, 2014 8:37 pm**

Lenchik wrote:KDJ
Can you please add to SortLines.js ability to take signs of set count not from beginning, but from end of line?
Не могли бы вы добавить возможность отсчета символов с конца строк?

I don't understand your request. Can you describe it in more detail. Give an example of how it should work.

AkelPad

Scripts discussion (3)