AkelPad

KDJ · Joined: 06 Mar 2010 Posts: 1068 Location: Poland

Inserts date/time from calendar.

InsertDateFromCalendar.js

// Inserts date/time from calendar - 2011-04-07
//
// Call("Scripts::Main", 1, "InsertDateFromCalendar.js")
//
// In calendar window, press F1 for help, or press O(S) for options-settings

var oSys = AkelPad.SystemFunction();

if (oSys.Call("kernel32::GetUserDefaultLangID") == 0x0415) //Polish
{
var pHlpTxt = " Klawisze skrótów dostępne w kalendarzu:\n" +
" Left/Right - poprzedni/następny dzień\n" +
" Up/Down - poprzedni/następny tydzień\n" +
" PgUp/PgDn - poprzedni/następny miesiąc\n" +
" Ctrl+PgUp/Ctrl+PgDn - poprzedni/następny rok\n" +
" Home/End - pierwszy/ostatni dzień miesiąca\n" +
" Ctrl+Home/Ctrl+End - pierwszy/ostatni widoczny dzień\n" +
" BackSpace - przejdź do dnia dzisiejszego\n" +
"\n" +
" Shift+Alt+Left/Right - przesuń kalendarz w lewo/prawo\n" +
" Shift+Alt+Up/Down - przesuń kalendarz w górę/dół\n" +
" Shift+Alt+Home/End - przesuń do lewej/prawej krawędzi okna\n" +
" Shift+Alt+PgUp/PgDn - przesuń do górnej/dolnej krawędzi okna\n" +
" Shift+Alt+C - wyśrodkuj kalendarz\n" +
"\n" +
" +/- - dodaj/usun miesiąc z kalendarza\n" +
" O (S) - opcje (ustawnienia)\n" +
"\n" +
" Enter\n" +
" Shift+Enter\n" +
" Ctrl+Enter\n" +
" Ctrl+Shift+Enter - wstaw datę/czas do tekstu (patrz opcje)";

var pHlpTxtDF = " d - dzień miesiąca, cyfry bez wiodącego zera\n" +
" dd - dzień miesiąca, cyfry z wiodącym zerem\n" +
" ddd - dzień tygodnia, trzy-literowy skrót\n" +
" dddd - dzień tygodnia, pełna nazwa\n" +
" M - miesiąc, cyfry bez wiodącego zera\n" +
" MM - miesiąc, cyfry z wiodącym zerem\n" +
" MMM - miesiąc, trzy-literowy skrót\n" +
" MMMM - miesiąc, pełna nazwa\n" +
" y - rok, dwie cyfry bez wiodącego zera\n" +
" yy - rok, dwie cyfry z wiodącym zerem\n" +
" yyyy - rok, cztery cyfry";

var pHlpTxtTF = " h - godziny bez wiodącego zera, zegar 12h\n" +
" hh - godziny z wiodącym zerem, zegar 12h\n" +
" H - godziny bez wiodącego zera, zegar 24h\n" +
" HH - godziny z wiodącym zerem, zegar 24h\n" +
" m - minuty bez wiodącego zera\n" +
" mm - minuty z wiodącym zerem\n" +
" s - sekundy bez wiodącego zera\n" +
" ss - sekundy z wiodącym zerem\n" +
" t - znacznik czasu jednoznakowy, (A/P)\n" +
" tt - znacznik czasu wieloznakowy, (AM/PM)";

var pTxtHelp = "Pomoc";
var pTxtSettings = "Opcje - ustawienia";
var pTxtFormat = "Wstaw - format daty/czasu";
var pTxtSystem = "System";
var pTxtLongDate = "Data długa";
var pTxtDateForm = "Format daty";
var pTxtTimeForm = "Format czasu";
var pTxtKeyAssig = "Wstaw - przydzielone klawisze";
var pTxtDate = "Data";
var pTxtTime = "Czas";
var pTxtCalendar = "Kalendarz";
var pTxtMonths = "Liczba widocznych miesięcy";
var pTxtColor1 = "Tło kalendarza";
var pTxtColor2 = "Tekst dni miesiąca";
var pTxtColor3 = "Tło nagłówka miesiąca";
var pTxtColor4 = "Tekst nagłówka miesiąca";
var pTxtColor5 = "Początkowe i końcowe dni";
var pTxtReset = "R\n" +
"e\n" +
"s\n" +
"e\n" +
"t";
}
else
{
var pHlpTxt = " Shortcut keys in calendar:\n" +
" Left/Right - previous/next day\n" +
" Up/Down - previous/next week\n" +
" PgUp/PgDn - previous/next month\n" +
" Ctrl+PgUp/Ctrl+PgDn - previous/next year\n" +
" Home/End - first/last day of month\n" +
" Ctrl+Home/Ctrl+End - first/last day visible in calendar\n" +
" BackSpace - go to today\n" +
"\n" +
" Shift+Alt+Left/Right - move calendar left/right\n" +
" Shift+Alt+Up/Down - move calendar up/down\n" +
" Shift+Alt+Home/End - move to left/right window edge\n" +
" Shift+Alt+PgUp/PgDn - move to top/bottom window edge\n" +
" Shift+Alt+C - center calendar\n" +
"\n" +
" +/- - add/remove month from calendar\n" +
" O (S) - options (settings)\n" +
"\n" +
" Enter\n" +
" Shift+Enter\n" +
" Ctrl+Enter\n" +
" Ctrl+Shift+Enter - insert date/time in text (see options)";

var pHlpTxtDF = " d - day of month, digits without leading zero\n" +
" dd - day of month, digits with leading zero\n" +
" ddd - day of week, three-letter abbreviation\n" +
" dddd - day of week, full name\n" +
" M - month, digits without leading zero\n" +
" MM - month, digits with leading zero\n" +
" MMM - month, three-letter abbreviation\n" +
" MMMM - month, full name\n" +
" y - year, two digits without leading zero\n" +
" yy - year, two digits with leading zero\n" +
" yyyy - year, four digits";

var pHlpTxtTF = " h - hours without leading zero, 12-hour clock\n" +
" hh - hours with leading zero, 12-hour clock\n" +
" H - hours without leading zero, 24-hour clock\n" +
" HH - hours with leading zero, 24-hour clock\n" +
" m - minutes without leading zero\n" +
" mm - minutes with leading zero\n" +
" s - seconds without leading zero\n" +
" ss - seconds with leading zero\n" +
" t - one char time-marker, such as A or P\n" +
" tt - multichar time-marker, such as AM or PM";

var pTxtHelp = "Help";
var pTxtSettings = "Options - settings";
var pTxtFormat = "Insert - date/time format";
var pTxtSystem = "System";
var pTxtLongDate = "Long date";
var pTxtDateForm = "Date format";
var pTxtTimeForm = "Time format";
var pTxtKeyAssig = "Insert - key assignment";
var pTxtDate = "Date";
var pTxtTime = "Time";
var pTxtCalendar = "Calendar";
var pTxtMonths = "Count of visible months";
var pTxtColor1 = "Background within a month";
var pTxtColor2 = "Text within a month";
var pTxtColor3 = "Background calendar title";
var pTxtColor4 = "Text calendar title";
var pTxtColor5 = "Header day and trailing day";
var pTxtReset = "R\n" +
"e\n" +
"s\n" +
"e\n" +
"t";
}

var DT_DWORD = 3;
var DT_WORD = 4;

var hMainWnd = AkelPad.GetMainWnd();
var hEditWnd = AkelPad.GetEditWnd();
var hGuiFont = oSys.Call("gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);
var hInstanceDLL = AkelPad.GetInstanceDll();
var pClassName = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstanceDLL;

var bSystem = 1;
var bLongDate = 0;
var pDateForm = "yyyy-MM-dd";
var pTimeForm = "HH:mm:ss";
var aKeyAssign = [["Enter", 1], ["Shift+Enter", 0], ["Ctrl+Enter", 2], ["Ctrt+Shift+Enter", 3]];
var nMonthCount = 1;
var aColor;

ReadWriteIni(0);

var hWndDlgCal;
var hWndCal;
var lpBuffer;
var lpSysTime;
var hBrushColor;
var bResetColors;
var aWndCalPos;
var aWndSetPos;

var lpWnd = [];
var IDFORMAT = 1000;
var IDDATE = 1001;
var IDTIME = 1002;
var IDSYSTEM = 1003;
var IDLONGDATE = 1004;
var IDDF = 1005;
var IDDFHLP = 1006;
var IDDFDESCR = 1007;
var IDTF = 1008;
var IDTFHLP = 1009;
var IDTFDESCR = 1010;
var IDKEYASSIG = 1011;
var IDASSIG0 = 1012;
var IDASSIG1 = 1013;
var IDASSIG2 = 1014;
var IDASSIG3 = 1015;
var IDENTER = 1016;
var IDSHENTER = 1017;
var IDCTENTER = 1018;
var IDCTSHENTER = 1019;
var IDCALENDAR = 1020;
var IDMONTHCOUNT = 1021;
var IDMONTHDESCR = 1022;
var IDCOLOR1 = 1023;
var IDCOLOR2 = 1024;
var IDCOLOR3 = 1025;
var IDCOLOR4 = 1026;
var IDCOLOR5 = 1027;
var IDCOLOR1BUTT = 1028;
var IDCOLOR2BUTT = 1029;
var IDCOLOR3BUTT = 1030;
var IDCOLOR4BUTT = 1031;
var IDCOLOR5BUTT = 1032;
var IDRESET = 1033;
var IDDFHLPTXT = 1034;
var IDTFHLPTXT = 1035;

var WNDTYPE = 0;
var WND = 1;
var WNDEXSTY = 2;
var WNDSTY = 3;
var WNDX = 4;
var WNDY = 5;
var WNDW = 6;
var WNDH = 7;
var WNDTXT = 8;

if (hEditWnd)
{
if (AkelPad.WindowRegisterClass(pClassName))
{
if (lpBuffer = AkelPad.MemAlloc(256 * _TSIZE))
{
if (lpSysTime = AkelPad.MemAlloc(16))
{
do
{
//Create dialog
hWndDlgCal = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
0, //lpWindowName
0x90000000, //WS_VISIBLE|WS_POPUP
0, //x
0, //y
0, //nWidth
0, //nHeight
hMainWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallback); //Script function callback. To use it class must be registered by WindowRegisterClass.
if (hWndDlgCal)
{
//Disable main window, to make dialog modal
oSys.Call("user32::EnableWindow", hMainWnd, false);

//Message loop
AkelPad.WindowGetMessage();
}
}
while (bResetColors);

AkelPad.MemFree(lpSysTime);
}
AkelPad.MemFree(lpBuffer);
}
AkelPad.WindowUnregisterClass(pClassName);
}
}

////////
function DialogCallback(hWnd, uMsg, wParam, lParam)
{
if (uMsg == 1) //WM_CREATE
{
hWndCal = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
"SysMonthCal32", //lpClassName
0, //lpWindowName
0x50800004, //WS_VISIBLE|WS_CHILD|WS_BORDER|MCS_WEEKNUMBERS
0, //x
0, //y
0, //nWidth
0, //nHeight
hWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
0); //lpParam

AkelPad.SendMessage(hWndCal, 0x1014 /*MCM_SETMONTHDELTA*/, 1, 0);

//Set window size and position
SetWindowSize(hWnd);
MoveWindow(hMainWnd, hWnd, (bResetColors ? aWndCalPos : 0));

if (aColor)
{
for (var i = 1; i < 6; ++i)
AkelPad.SendMessage(hWndCal, 0x100A /*MCM_SETCOLOR*/, i, aColor[i]);
}
}

else if (uMsg == 7) //WM_SETFOCUS
oSys.Call("user32::SetFocus", hWndCal);

else if (uMsg == 0x0F) //WM_PAINT
{
if (bResetColors)
{
AkelPad.SendMessage(hWndCal, 0x1002 /*MCM_SETCURSEL*/, 0, lpSysTime);
AkelPad.SendMessage(hWnd, 256 /*WM_KEYDOWN*/, 0x4F /*O*/, 0);
}
}

else if (uMsg == 256) //WM_KEYDOWN
{
if (wParam == 0x25) //VK_LEFT
SetDate(-1);
if (wParam == 0x27) //VK_RIGHT
SetDate(1);
if (wParam == 0x26) //VK_UP
SetDate(-7);
if (wParam == 0x28) //VK_DOWN
SetDate(7);
if (wParam == 0x08) //VK_BACK - today
SetDate(0);
else if (wParam == 13) //VK_RETURN
{
if ((oSys.Call("user32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/)) &&
(oSys.Call("user32::GetAsyncKeyState", 0x11 /*VK_CONTROL*/)))
InsertDateTime(aKeyAssign[3][1]);
else if (oSys.Call("user32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/))
InsertDateTime(aKeyAssign[1][1]);
else if (oSys.Call("user32::GetAsyncKeyState", 0x11 /*VK_CONTROL*/))
InsertDateTime(aKeyAssign[2][1]);
else
InsertDateTime(aKeyAssign[0][1]);
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}
else if (wParam == 27) //VK_ESCAPE
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
else if ((wParam == 109) || (wParam == 189)) //Num- or -
{
if (nMonthCount > 1)
{
--nMonthCount;
SetWindowSize(hWnd);
MoveWindow(hMainWnd, hWnd, "CV");
}
}
else if ((wParam == 107) || (wParam == 187)) //Num+ or +
{
if (nMonthCount < 5)
{
++nMonthCount;
SetWindowSize(hWnd);
MoveWindow(hMainWnd, hWnd, "CV");
}
}
else if (wParam == 112) //VK_F1
Help();
else if ((wParam == 0x4F) || (wParam == 0x53)) //O or S
{
Settings();
if (bResetColors)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}
}

else if (uMsg == 260) //WM_SYSKEYDOWN
{
if (oSys.Call("user32::GetAsyncKeyState", 0xA0 /*VK_LSHIFT*/))
{
if (wParam == 0x27) //VK_RIGHT
MoveWindow(0, hWnd, "R");
else if (wParam == 0x25) //VK_LEFT
MoveWindow(0, hWnd, "L");
else if (wParam == 0x28) //VK_DOWN
MoveWindow(0, hWnd, "D");
else if (wParam == 0x26) //VK_UP
MoveWindow(0, hWnd, "U");
else if (wParam == 0x23) //VK_END
MoveWindow(0, hWnd, "E");
else if (wParam == 0x24) //VK_HOME
MoveWindow(0, hWnd, "H");
else if (wParam == 0x22) //VK_NEXT
MoveWindow(0, hWnd, "B");
else if (wParam == 0x21) //VK_PRIOR
MoveWindow(0, hWnd, "T");
else if (wParam == 0x43) //C
MoveWindow(hEditWnd, hWnd, "C");
}
}

else if (uMsg == 16) //WM_CLOSE
{
ReadWriteIni(1);

//Enable main window
oSys.Call("user32::EnableWindow", hMainWnd, true);
//Destroy dialog
oSys.Call("user32::DestroyWindow", hWnd);

}
else if (uMsg == 2) //WM_DESTROY
{
//Exit message loop
oSys.Call("user32::PostQuitMessage", 0);
}

return 0;
}

function SetWndFontAndText(hWnd, hFont, pText)
{
var lpWndTxt;

AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);

if (lpWndTxt = AkelPad.MemAlloc((pText.length + 1) * _TSIZE))
{
AkelPad.MemCopy(lpWndTxt, pText, _TSTR);
oSys.Call("user32::SetWindowText" + _TCHAR, hWnd, lpWndTxt);
AkelPad.MemFree(lpWndTxt);
}
}

function SetWindowSize(hWnd)
{
var lpRect = AkelPad.MemAlloc(16); //sizeof(RECT)
var nW, nH, nW1;

AkelPad.SendMessage(hWndCal, 0x1009 /*MCM_GETMINREQRECT*/, 0, lpRect);

nW = AkelPad.MemRead(lpRect + 8, DT_DWORD);
nH = AkelPad.MemRead(lpRect + 12, DT_DWORD);
nW1 = AkelPad.SendMessage(hWndCal, 0x1015 /*MCM_GETMAXTODAYWIDTH*/, 0, 0);

if (nW1 > nW)
nW = nW1;

oSys.Call("user32::SetWindowPos", hWnd, 0, 0, 0, nW, nH * nMonthCount - 13 * (nMonthCount - 1),
0x16 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOMOVE*/);
oSys.Call("user32::SetWindowPos", hWndCal, 0, 0, 0, nW, nH * nMonthCount - 13 * (nMonthCount - 1),
0x16 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOMOVE*/);

AkelPad.MemFree(lpRect);
}

function MoveWindow(hWndParent, hWnd, Action)
{
var rcWndParent;
var rcWnd;
var lpPoint;
var nX;
var nY;
var nWndWidth;
var nWndHeight;
var nCharHeight;

if (! hWndParent)
hWndParent = oSys.Call("user32::GetDesktopWindow");

rcWndParent = GetWindowPos(hWndParent);
rcWnd = GetWindowPos(hWnd);

nX = rcWnd.left;
nY = rcWnd.top;

if (! Action) //to caret
{
if (lpPoint = AkelPad.MemAlloc(8)) //sizeof(POINT)
{
AkelPad.SendMessage(hEditWnd, 3190 /*AEM_GETCARETPOS*/, lpPoint, 0);
oSys.Call("user32::ClientToScreen", hEditWnd, lpPoint);
nX = AkelPad.MemRead(lpPoint, DT_DWORD);
nY = AkelPad.MemRead(lpPoint + 4, DT_DWORD);

nWndWidth = rcWnd.right - rcWnd.left;
nWndHeight = rcWnd.bottom - rcWnd.top;
nCharHeight = AkelPad.SendMessage(hEditWnd, 3188 /*AEM_GETCHARSIZE*/, 0 /*AECS_HEIGHT*/, 0);

if ((nX + nWndWidth) > rcWndParent.right)
nX = rcWndParent.right - nWndWidth - 10;

if ((nY + nCharHeight + nWndHeight) < rcWndParent.bottom)
nY = nY + nCharHeight;
else if ((nY - nWndHeight) > rcWndParent.top)
nY = nY - nWndHeight;
else
nY = rcWndParent.top + ((rcWndParent.bottom - rcWndParent.top) / 2 - (rcWnd.bottom - rcWnd.top) / 2);

AkelPad.MemFree(lpPoint);
}
}
else if (Action == "R") //Move right
nX = rcWnd.left + ((rcWnd.right < rcWndParent.right) ? 10: 0);
else if (Action == "L") //Move left
nX = rcWnd.left - ((rcWnd.left > rcWndParent.left) ? 10: 0);
else if (Action == "D") //Move down
nY = rcWnd.top + ((rcWnd.bottom < rcWndParent.bottom) ? 10: 0);
else if (Action == "U") //Move up
nY = rcWnd.top - ((rcWnd.top > rcWndParent.top) ? 10: 0);
else if (Action == "E") //Move end (right)
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
else if (Action == "H") //Move home (left)
nX = rcWnd.left + (rcWndParent.left - rcWnd.left);
else if (Action == "B") //Move bottom
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
else if (Action == "T") //Move top
nY = rcWnd.top + (rcWndParent.top - rcWnd.top);
else if (Action == "C") //Center window
{
nX = rcWndParent.left + ((rcWndParent.right - rcWndParent.left) / 2 - (rcWnd.right - rcWnd.left) / 2);
nY = rcWndParent.top + ((rcWndParent.bottom - rcWndParent.top) / 2 - (rcWnd.bottom - rcWnd.top) / 2);
}
else if (Action == "CV") //Center vertically
{
nY = rcWndParent.top + ((rcWndParent.bottom - rcWndParent.top) / 2 - (rcWnd.bottom - rcWnd.top) / 2);
}
else if (Action == "LT") //Move left top
{
nX = rcWndParent.left;
nY = rcWndParent.top;
}
else if (Action == "RT") //Move right top
{
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
nY = rcWndParent.top;
}
else if (Action == "LB") //Move left bottom
{
nX = rcWndParent.left;
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
}
else if (Action == "RB") //Move right bottom
{
nX = rcWnd.left + (rcWndParent.right - rcWnd.right);
nY = rcWnd.top + (rcWndParent.bottom - rcWnd.bottom);
}
else
{
nX = Action.left;
nY = Action.top;
}

oSys.Call("user32::SetWindowPos", hWnd, 0, nX, nY, 0, 0, 0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
}

function GetWindowPos(hWnd)
{
var lpRect = AkelPad.MemAlloc(16) //sizeof(RECT);
var rcRect = [];

oSys.Call("user32::GetWindowRect", hWnd, lpRect);

rcRect.left = AkelPad.MemRead(lpRect, DT_DWORD);
rcRect.top = AkelPad.MemRead(lpRect + 4, DT_DWORD);
rcRect.right = AkelPad.MemRead(lpRect + 8, DT_DWORD);
rcRect.bottom = AkelPad.MemRead(lpRect +12, DT_DWORD);
AkelPad.MemFree(lpRect);

return rcRect;
}

function LoWord(nParam)
{
return (nParam & 0xffff);
}

function HiWord(nParam)
{
return ((nParam >> 16) & 0xffff);
}

function ReadWriteIni(bWrite)
{
var oFSO = new ActiveXObject("Scripting.FileSystemObject");
var pIniName = WScript.ScriptFullName.substring(0, WScript.ScriptFullName.lastIndexOf(".")) + ".ini";
var nError;
var oFile;
var pTxtIni;
var i;

if (bWrite)
{
pTxtIni = 'bSystem=' + bSystem + ';\r\n' +
'bLongDate=' + bLongDate + ';\r\n' +
'pDateForm="' + pDateForm.replace(/[\\"]/g, "\\$&") + '";\r\n' +
'pTimeForm="' + pTimeForm.replace(/[\\"]/g, "\\$&") + '";\r\n' +
'aKeyAssign[0][1]=' + aKeyAssign[0][1] + ';\r\n' +
'aKeyAssign[1][1]=' + aKeyAssign[1][1] + ';\r\n' +
'aKeyAssign[2][1]=' + aKeyAssign[2][1] + ';\r\n' +
'aKeyAssign[3][1]=' + aKeyAssign[3][1] + ';\r\n' +
'nMonthCount=' + nMonthCount + ';\r\n' +
'aColor='

if (aColor)
pTxtIni += '[' + aColor + ']';
else
pTxtIni += aColor;

pTxtIni += ';';

oFile = oFSO.OpenTextFile(pIniName, 2, true, 0);
oFile.Write(pTxtIni);
oFile.Close();
}

else if (oFSO.FileExists(pIniName))
{
try
{
eval(AkelPad.ReadFile(pIniName));
}
catch (nError)
{
}
}
}

function SetDate(nShift)
{
var nYear, nMonth, nDay, dDate;

if (nShift)
{
AkelPad.SendMessage(hWndCal, 0x1001 /*MCM_GETCURSEL*/, 0, lpSysTime);

nYear = AkelPad.MemRead(lpSysTime, DT_WORD);
nMonth = AkelPad.MemRead(lpSysTime + 2, DT_WORD) - 1;
nDay = AkelPad.MemRead(lpSysTime + 6, DT_WORD);
dDate = new Date(nYear, nMonth, nDay);

dDate.setDate(nDay + nShift);

nYear = dDate.getFullYear();
nMonth = dDate.getMonth() + 1;
nDay = dDate.getDate();

AkelPad.MemCopy(lpSysTime, nYear, DT_WORD);
AkelPad.MemCopy(lpSysTime + 2, nMonth, DT_WORD);
AkelPad.MemCopy(lpSysTime + 6, nDay, DT_WORD);
}
else
AkelPad.SendMessage(hWndCal, 0x100D /*MCM_GETTODAY*/, 0, lpSysTime);

AkelPad.SendMessage(hWndCal, 0x1002 /*MCM_SETCURSEL*/, 0, lpSysTime);
}

function GetDate()
{
var lpString = AkelPad.MemAlloc(256 * _TSIZE);
var lpFormat = AkelPad.MemAlloc(256 * _TSIZE);
var nFlag;
var pDate;

AkelPad.SendMessage(hWndCal, 0x1001 /*MCM_GETCURSEL*/, 0, lpSysTime);

if (bSystem)
{
if (bLongDate)
nFlag = 0x2; //DATE_LONGDATE
else
nFlag = 0x1; //DATE_SHORTDATE
}
else
{
nFlag = 0;
AkelPad.MemCopy(lpFormat, pDateForm, _TSTR);
}

oSys.Call("kernel32::GetDateFormat" + _TCHAR,
0x400, //LOCALE_USER_DEFAULT
nFlag,
lpSysTime,
(bSystem ? 0 : lpFormat),
lpString,
256);
pDate = AkelPad.MemRead(lpString, _TSTR);

AkelPad.MemFree(lpString);
AkelPad.MemFree(lpFormat);

return pDate;
}

function GetTime()
{
var lpString = AkelPad.MemAlloc(256 * _TSIZE);
var lpFormat = AkelPad.MemAlloc(256 * _TSIZE);
var dDate = new Date();
var pTime;

AkelPad.MemCopy(lpSysTime + 8, dDate.getHours(), DT_WORD);
AkelPad.MemCopy(lpSysTime + 10, dDate.getMinutes(), DT_WORD);
AkelPad.MemCopy(lpSysTime + 12, dDate.getSeconds(), DT_WORD);
AkelPad.MemCopy(lpSysTime + 14, dDate.getMilliseconds(), DT_WORD);

if (! bSystem)
AkelPad.MemCopy(lpFormat, pTimeForm, _TSTR);

oSys.Call("kernel32::GetTimeFormat" + _TCHAR,
0x007F, //LOCALE_INVARIANT
0,
lpSysTime,
(bSystem ? 0 : lpFormat),
lpString,
256);
pTime = AkelPad.MemRead(lpString, _TSTR);

AkelPad.MemFree(lpString);
AkelPad.MemFree(lpFormat);

return pTime;
}

function InsertDateTime(What)
{
var bColSel = AkelPad.SendMessage(hEditWnd, 3127 /*AEM_GETCOLUMNSEL*/, 0, 0);
var pDateTime;
var nLines;
var aTxt;
var i;

if (What == 0)
pDateTime = GetDate();
else if (What == 1)
pDateTime = GetDate() + " " + GetTime();
else if (What == 2)
pDateTime = GetTime();
else
pDateTime = GetTime() + " " + GetDate();

if (bColSel)
{
nLines = AkelPad.SendMessage(hEditWnd, 3129 /*AEM_GETLINENUMBER*/, 2 /*AEGL_LASTSELLINE*/, 0) -
AkelPad.SendMessage(hEditWnd, 3129 /*AEM_GETLINENUMBER*/, 1 /*AEGL_FIRSTSELLINE*/, 0) + 1;
aTxt = new Array(nLines);

for (i = 0; i < nLines; ++i)
aTxt[i] = pDateTime;

pDateTime = aTxt.join("\r");
}

AkelPad.ReplaceSel(pDateTime, AkelPad.GetSelStart() != AkelPad.GetSelEnd());
AkelPad.SendMessage(hEditWnd, 3128 /*AEM_UPDATESEL*/, bColSel, 0);
}

function Help()
{
var rcWndDesk = GetWindowPos(oSys.Call("user32::GetDesktopWindow"));
var rcWnd = GetWindowPos(hWndDlgCal);
var nWidth = 350;
var nHeight = 350;
var nX = rcWnd.right;
var nY = rcWnd.top;
var hWndDlgHlp;

if ((nX + nWidth) > rcWndDesk.right)
nX = rcWnd.left - nWidth;
if ((nY + nHeight) > rcWndDesk.bottom)
nY = rcWnd.bottom - nHeight;

hWndDlgHlp = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
pTxtHelp, //lpWindowName
0x90C80000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU
nX, //x
nY, //y
nWidth, //nWidth
nHeight, //nHeight
hWndDlgCal, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallbackHlp); //Script function callback

if (hWndDlgHlp)
{
oSys.Call("user32::EnableWindow", hWndDlgCal, 0);
AkelPad.WindowGetMessage();
}
}

function DialogCallbackHlp(hWnd, uMsg, wParam, lParam)
{
if (uMsg == 1) //WM_CREATE
{
hWndHlp = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0x000, //dwExStyle
"STATIC", //lpClassName
0, //lpWindowName
0x50400000, //WS_VISIBLE|WS_CHILD|WS_DLGFRAME
10, //x
10, //y
325, //nWidth
300, //nHeight
hWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
0); //lpParam
SetWndFontAndText(hWndHlp, hGuiFont, pHlpTxt);
}

else if (uMsg == 256) //WM_KEYDOWN
{
if ((wParam == 27 /*VK_ESCAPE*/) || (wParam == 112 /*VK_F1*/))
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}

else if (uMsg == 16) //WM_CLOSE
{
oSys.Call("user32::EnableWindow", hWndDlgCal, 1);
oSys.Call("user32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
oSys.Call("user32::PostQuitMessage", 0);

return 0;
}

function Settings()
{
var nWidth = 265
var nHeight = 465;
var rcWndDesk;
var rcWnd;
var nX;
var nY;
var hWndDlgSet;
var i;

if (bResetColors)
{
nX = aWndSetPos.left;
nY = aWndSetPos.top;
}
else
{
rcWndDesk = GetWindowPos(oSys.Call("user32::GetDesktopWindow"));
rcWnd = GetWindowPos(hWndDlgCal);
nX = rcWnd.right;
nY = rcWnd.top;

if ((nX + nWidth) > rcWndDesk.right)
nX = rcWnd.left - nWidth;
if ((nY + nHeight) > rcWndDesk.bottom)
nY = rcWnd.bottom - nHeight;
}

if (! aColor)
{
//i=0 - MCSC_BACKGROUND (not used)
//i=4 - MCSC_MONTHBK
//i=1 - MCSC_TEXT
//i=2 - MCSC_TITLEBK
//i=3 - MCSC_TITLETEXT
//i=5 - MCSC_TRAILINGTEXT
aColor = [];
for (i = 1; i < 6; ++i)
aColor[i] = AkelPad.SendMessage(hWndCal, 0x100B /*MCM_GETCOLOR*/, i, 0);
}

//0x40400000 - WS_CHILD|WS_DLGFRAME (no visible)
//0x50000000 - WS_VISIBLE|WS_CHILD
//0x50000007 - WS_VISIBLE|WS_CHILD|BS_GROUPBOX
//0x50010000 - WS_VISIBLE|WS_CHILD|WS_TABSTOP
//0x50012000 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_MULTILINE
//0x50010003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_AUTOCHECKBOX
//0x50010003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|CBS_DROPDOWNLIST
//0x50010080 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|ES_AUTOHSCROLL
//0x50800000 - WS_VISIBLE|WS_CHILD|WS_BORDER
//Windows WNDTYPE, WND,WNDEXSTY, WNDSTY,WNDX,WNDY,WNDW,WNDH, WNDTXT
lpWnd[IDFORMAT ] = ["BUTTON", 0, 0, 0x50000007, 10, 10, 240, 130, pTxtFormat];
lpWnd[IDDATE ] = ["STATIC", 0, 0, 0x50000000, 20, 30, 220, 13, ""];
lpWnd[IDTIME ] = ["STATIC", 0, 0, 0x50000000, 20, 50, 220, 13, ""];
lpWnd[IDSYSTEM ] = ["BUTTON", 0, 0, 0x50010003, 20, 70, 80, 16, pTxtSystem];
lpWnd[IDLONGDATE ] = ["BUTTON", 0, 0, 0x50010003, 120, 70, 80, 16, pTxtLongDate];
lpWnd[IDDF ] = ["EDIT", 0, 0x200, 0x50010080, 20, 90, 135, 20, pDateForm];
lpWnd[IDDFHLP ] = ["BUTTON", 0, 0, 0x50010000, 155, 90, 15, 20, "?"];
lpWnd[IDDFDESCR ] = ["STATIC", 0, 0, 0x50000000, 175, 90, 70, 13, pTxtDateForm];
lpWnd[IDTF ] = ["EDIT", 0, 0x200, 0x50010080, 20, 110, 135, 20, pTimeForm];
lpWnd[IDTFHLP ] = ["BUTTON", 0, 0, 0x50010000, 155, 110, 15, 20, "?"];
lpWnd[IDTFDESCR ] = ["STATIC", 0, 0, 0x50000000, 175, 110, 70, 13, pTxtTimeForm];
lpWnd[IDKEYASSIG ] = ["BUTTON", 0, 0, 0x50000007, 10, 150, 240, 110, pTxtKeyAssig];
lpWnd[IDASSIG0 ] = ["COMBOBOX", 0, 0, 0x50010003, 20, 170, 100, 20, ""];
lpWnd[IDASSIG1 ] = ["COMBOBOX", 0, 0, 0x50010003, 20, 190, 100, 20, ""];
lpWnd[IDASSIG2 ] = ["COMBOBOX", 0, 0, 0x50010003, 20, 210, 100, 20, ""];
lpWnd[IDASSIG3 ] = ["COMBOBOX", 0, 0, 0x50010003, 20, 230, 100, 20, ""];
lpWnd[IDENTER ] = ["STATIC", 0, 0, 0x50000000, 125, 170, 80, 13, aKeyAssign[0][0]];
lpWnd[IDSHENTER ] = ["STATIC", 0, 0, 0x50000000, 125, 190, 80, 13, aKeyAssign[1][0]];
lpWnd[IDCTENTER ] = ["STATIC", 0, 0, 0x50000000, 125, 210, 80, 13, aKeyAssign[2][0]];
lpWnd[IDCTSHENTER ] = ["STATIC", 0, 0, 0x50000000, 125, 230, 80, 13, aKeyAssign[3][0]];
lpWnd[IDCALENDAR ] = ["BUTTON", 0, 0, 0x50000007, 10, 270, 240, 155, pTxtCalendar];
lpWnd[IDMONTHCOUNT] = ["COMBOBOX", 0, 0, 0x50010003, 20, 290, 40, 20, ""];
lpWnd[IDMONTHDESCR] = ["STATIC", 0, 0, 0x50000000, 65, 290, 180, 13, pTxtMonths];
lpWnd[IDCOLOR1 ] = ["STATIC", 0, 0, 0x50800000, 20, 320, 18, 18, ""];
lpWnd[IDCOLOR2 ] = ["STATIC", 0, 0, 0x50800000, 20, 340, 18, 18, ""];
lpWnd[IDCOLOR3 ] = ["STATIC", 0, 0, 0x50800000, 20, 360, 18, 18, ""];
lpWnd[IDCOLOR4 ] = ["STATIC", 0, 0, 0x50800000, 20, 380, 18, 18, ""];
lpWnd[IDCOLOR5 ] = ["STATIC", 0, 0, 0x50800000, 20, 400, 18, 18, ""];
lpWnd[IDCOLOR1BUTT] = ["BUTTON", 0, 0, 0x50010000, 45, 320, 170, 20, pTxtColor1];
lpWnd[IDCOLOR2BUTT] = ["BUTTON", 0, 0, 0x50010000, 45, 340, 170, 20, pTxtColor2];
lpWnd[IDCOLOR3BUTT] = ["BUTTON", 0, 0, 0x50010000, 45, 360, 170, 20, pTxtColor3];
lpWnd[IDCOLOR4BUTT] = ["BUTTON", 0, 0, 0x50010000, 45, 380, 170, 20, pTxtColor4];
lpWnd[IDCOLOR5BUTT] = ["BUTTON", 0, 0, 0x50010000, 45, 400, 170, 20, pTxtColor5];
lpWnd[IDRESET ] = ["BUTTON", 0, 0, 0x50012000, 220, 320, 20, 100, pTxtReset];
lpWnd[IDDFHLPTXT ] = ["STATIC", 0, 0, 0x40400000, 0, 110, 255, 155, pHlpTxtDF];
lpWnd[IDTFHLPTXT ] = ["STATIC", 0, 0, 0x40400000, 0, 130, 255, 140, pHlpTxtTF];

hWndDlgSet = oSys.Call("user32::CreateWindowEx" + _TCHAR,
0, //dwExStyle
pClassName, //lpClassName
pTxtSettings, //lpWindowName
0x90C80000, //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU
nX, //x
nY, //y
nWidth, //nWidth
nHeight, //nHeight
hWndDlgCal, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallbackSet); //Script function callback

if (hWndDlgSet)
{
oSys.Call("user32::EnableWindow", hWndDlgCal, 0);
AkelPad.WindowGetMessage();
oSys.Call("gdi32::DeleteObject", hBrushColor);
}
}

function DialogCallbackSet(hWnd, uMsg, wParam, lParam)
{
var i, nLowParam, nHiwParam;

if (uMsg == 1) //WM_CREATE
{
//Create windows
for (i = 1000; i < lpWnd.length; ++i)
{
lpWnd[i][WND] = oSys.Call("user32::CreateWindowEx" + _TCHAR,
lpWnd[i][WNDEXSTY],//dwExStyle
lpWnd[i][WNDTYPE], //lpClassName
0, //lpWindowName
lpWnd[i][WNDSTY], //dwStyle
lpWnd[i][WNDX], //x
lpWnd[i][WNDY], //y
lpWnd[i][WNDW], //nWidth
lpWnd[i][WNDH], //nHeight
hWnd, //hWndParent
i, //ID
hInstanceDLL, //hInstance
0); //lpParam
//Set font and text
SetWndFontAndText(lpWnd[i][WND], hGuiFont, lpWnd[i][WNDTXT]);
}

//Set limit edit text
AkelPad.SendMessage(lpWnd[IDDF][WND], 197 /*EM_SETLIMITTEXT*/, 24, 0);
AkelPad.SendMessage(lpWnd[IDTF][WND], 197 /*EM_SETLIMITTEXT*/, 24, 0);

//Fill comboboxes
for (i = 0; i < 4; ++i)
{
AkelPad.MemCopy(lpBuffer, pTxtDate, _TSTR);
AkelPad.SendMessage(lpWnd[eval("IDASSIG" + i)][WND], 0x143 /*CB_ADDSTRING*/, 0, lpBuffer);
AkelPad.MemCopy(lpBuffer, pTxtDate + " " + pTxtTime, _TSTR);
AkelPad.SendMessage(lpWnd[eval("IDASSIG" + i)][WND], 0x143 /*CB_ADDSTRING*/, 0, lpBuffer);
AkelPad.MemCopy(lpBuffer, pTxtTime, _TSTR);
AkelPad.SendMessage(lpWnd[eval("IDASSIG" + i)][WND], 0x143 /*CB_ADDSTRING*/, 0, lpBuffer);
AkelPad.MemCopy(lpBuffer, pTxtTime + " " + pTxtDate, _TSTR);
AkelPad.SendMessage(lpWnd[eval("IDASSIG" + i)][WND], 0x143 /*CB_ADDSTRING*/, 0, lpBuffer);
AkelPad.SendMessage(lpWnd[eval("IDASSIG" + i)][WND], 0x14E /*CB_SETCURSEL*/, aKeyAssign[i][1], 0);
}
for (i = 1; i < 6; ++i)
{
AkelPad.MemCopy(lpBuffer, " " + i + " ", _TSTR);
AkelPad.SendMessage(lpWnd[IDMONTHCOUNT][WND], 0x143 /*CB_ADDSTRING*/, 0, lpBuffer);
}
AkelPad.SendMessage(lpWnd[IDMONTHCOUNT][WND], 0x14E /*CB_SETCURSEL*/, nMonthCount - 1, 0);

//Check
CheckButtons();
}

else if (uMsg == 7) //WM_SETFOCUS
{
if (bResetColors)
{
bResetColors = false;
oSys.Call("user32::SetFocus", lpWnd[IDRESET][WND]);
oSys.Call("user32::DefDlgProc" + _TCHAR, hWnd, 1025 /*DM_SETDEFID*/, IDRESET, 0);
}
else
oSys.Call("user32::SetFocus", lpWnd[IDSYSTEM][WND]);
}

else if (uMsg == 256) //WM_KEYDOWN
{
if (wParam == 112) //VK_F1
{
if (oSys.Call("user32::GetFocus") == lpWnd[IDDF][WND])
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDDFHLP, 0);
else if (oSys.Call("user32::GetFocus") == lpWnd[IDTF][WND])
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 273 /*WM_COMMAND*/, IDTFHLP, 0);
}
else if ((wParam == 9 /*VK_TAB*/) || (wParam == 27 /*VK_ESCAPE*/))
{
if (oSys.Call("user32::IsWindowVisible", lpWnd[IDDFHLPTXT][WND]))
ShowFormatHelp(hWnd, lpWnd[IDDFHLPTXT][WND], 0);
else if (oSys.Call("user32::IsWindowVisible", lpWnd[IDTFHLPTXT][WND]))
ShowFormatHelp(hWnd, lpWnd[IDTFHLPTXT][WND], 0);
else if (wParam == 27 /*VK_ESCAPE*/)
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}
}

else if ((uMsg == 0x0201 /*WM_LBUTTONDOWN*/) || (uMsg == 0x0204 /*WM_RBUTTONDOWN*/) ||
(uMsg == 0x0207 /*WM_MBUTTONDOWN*/) || (uMsg == 0x020b /*WM_XBUTTONDOWN*/))
{
if (oSys.Call("user32::IsWindowVisible", lpWnd[IDDFHLPTXT][WND]))
ShowFormatHelp(hWnd, lpWnd[IDDFHLPTXT][WND], 0);
else if (oSys.Call("user32::IsWindowVisible", lpWnd[IDTFHLPTXT][WND]))
ShowFormatHelp(hWnd, lpWnd[IDTFHLPTXT][WND], 0);
}

else if (uMsg == 0x0138) //WM_CTLCOLORSTATIC
{
if ((lParam == lpWnd[IDDFHLPTXT][WND]) || (lParam == lpWnd[IDTFHLPTXT][WND]))
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
oSys.Call("gdi32::SetTextColor", wParam, 0x006000);
oSys.Call("gdi32::SetBkColor", wParam, 0xFFFFFF);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", 0xFFFFFF);
return hBrushColor;
}
if (lParam == lpWnd[IDCOLOR1][WND])
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", aColor[4]);
return hBrushColor;
}
if (lParam == lpWnd[IDCOLOR2][WND])
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", aColor[1]);
return hBrushColor;
}
if (lParam == lpWnd[IDCOLOR3][WND])
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", aColor[2]);
return hBrushColor;
}
if (lParam == lpWnd[IDCOLOR4][WND])
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", aColor[3]);
return hBrushColor;
}
if (lParam == lpWnd[IDCOLOR5][WND])
{
oSys.Call("gdi32::DeleteObject", hBrushColor);
hBrushColor = oSys.Call("gdi32::CreateSolidBrush", aColor[5]);
return hBrushColor;
}
}

else if (uMsg == 273) //WM_COMMAND
{
nLowParam = LoWord(wParam);
nHiwParam = HiWord(wParam);

if ((nLowParam == IDSYSTEM) || (nLowParam == IDLONGDATE))
{
CheckButtons(nLowParam);
}
else if ((nLowParam == IDDF) && (nHiwParam == 0x300 /*EN_CHANGE*/))
{
oSys.Call("user32::GetWindowText" + _TCHAR, lpWnd[IDDF][WND], lpBuffer, 256);
pDateForm = AkelPad.MemRead(lpBuffer, _TSTR);
SetWndFontAndText(lpWnd[IDDATE][WND], hGuiFont, GetDate());
}
else if ((nLowParam == IDTF) && (nHiwParam == 0x300 /*EN_CHANGE*/))
{
oSys.Call("user32::GetWindowText" + _TCHAR, lpWnd[IDTF][WND], lpBuffer, 256);
pTimeForm = AkelPad.MemRead(lpBuffer, _TSTR);
SetWndFontAndText(lpWnd[IDTIME][WND], hGuiFont, GetTime());
}
else if (nLowParam == IDDFHLP)
ShowFormatHelp(hWnd, lpWnd[IDDFHLPTXT][WND],
! oSys.Call("user32::IsWindowVisible", lpWnd[IDDFHLPTXT][WND]));
else if (nLowParam == IDTFHLP)
ShowFormatHelp(hWnd, lpWnd[IDTFHLPTXT][WND],
! oSys.Call("user32::IsWindowVisible", lpWnd[IDTFHLPTXT][WND]));
else if ((nLowParam >= IDASSIG0) && (nLowParam <= IDASSIG3) && (nHiwParam == 1 /*CBN_SELCHANGE*/))
aKeyAssign[nLowParam - IDASSIG0][1] = AkelPad.SendMessage(lpWnd[nLowParam][WND], 0x147 /*CB_GETCURSEL*/, 0, 0);
else if ((nLowParam == IDMONTHCOUNT) && (nHiwParam == 1 /*CBN_SELCHANGE*/))
{
nMonthCount = AkelPad.SendMessage(lpWnd[IDMONTHCOUNT][WND], 0x147 /*CB_GETCURSEL*/, 0, 0) + 1;
SetWindowSize(hWndDlgCal);
MoveWindow(hMainWnd, hWndDlgCal, "CV");
}
else if ((nLowParam >= IDCOLOR1BUTT) && (nLowParam <= IDCOLOR5BUTT))
ChangeColor(hWnd, nLowParam);
else if (nLowParam == IDRESET)
{
bResetColors = true;
aColor = undefined;
aWndCalPos = GetWindowPos(hWndCal);
aWndSetPos = GetWindowPos(hWnd);
AkelPad.SendMessage(hWndCal, 0x1001 /*MCM_GETCURSEL*/, 0, lpSysTime);
oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
}
}

else if (uMsg == 16) //WM_CLOSE
{
oSys.Call("user32::EnableWindow", hWndDlgCal, 1);
oSys.Call("user32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
oSys.Call("user32::PostQuitMessage", 0);

return 0;
}

function CheckButtons(nButton)
{
if (nButton == IDSYSTEM)
bSystem = ! bSystem;
else if (nButton == IDLONGDATE)
bLongDate = ! bLongDate;

AkelPad.SendMessage(lpWnd[IDSYSTEM][WND], 241 /*BM_SETCHECK*/, bSystem, 0);
AkelPad.SendMessage(lpWnd[IDLONGDATE][WND], 241 /*BM_SETCHECK*/, bLongDate, 0);

oSys.Call("user32::EnableWindow", lpWnd[IDLONGDATE][WND], bSystem);
oSys.Call("user32::EnableWindow", lpWnd[IDDF][WND], ! bSystem);
oSys.Call("user32::EnableWindow", lpWnd[IDTF][WND], ! bSystem);
oSys.Call("user32::EnableWindow", lpWnd[IDDFHLP][WND], ! bSystem);
oSys.Call("user32::EnableWindow", lpWnd[IDTFHLP][WND], ! bSystem);

SetWndFontAndText(lpWnd[IDDATE][WND], hGuiFont, GetDate());
SetWndFontAndText(lpWnd[IDTIME][WND], hGuiFont, GetTime());
}

function ShowFormatHelp(hWndDlg, hWndHlp, bShow)
{
if (bShow)
oSys.Call("user32::SetCapture", hWndDlg);
else
oSys.Call("user32::ReleaseCapture");

oSys.Call("user32::ShowWindow", hWndHlp, bShow);
}

function ChangeColor(hWnd, nButton)
{
var nCo = nButton - IDCOLOR1BUTT;
var lpChoCo = AkelPad.MemAlloc(4 * 9); //sizeof(CHOOSECOLOR)
var lpCusCo = AkelPad.MemAlloc(4 * 16); //sizeof(COLORREF) * 16
var hFocus = oSys.Call("user32::GetFocus");
var i;

if (nButton == IDCOLOR1BUTT)
nCo = 4;
else if (nButton == IDCOLOR5BUTT)
nCo = 5;

for(i = 0; i < 16; ++i)
AkelPad.MemCopy(lpCusCo + i * 4, 0, DT_DWORD);

AkelPad.MemCopy(lpChoCo , (4 * 9), DT_DWORD); //lStructSize
AkelPad.MemCopy(lpChoCo + 4, hWnd, DT_DWORD); //hWndOwner
AkelPad.MemCopy(lpChoCo + 8, 0, DT_DWORD); //hInstance
AkelPad.MemCopy(lpChoCo + 12, aColor[nCo], DT_DWORD); //rgbResult
AkelPad.MemCopy(lpChoCo + 16, lpCusCo, DT_DWORD); //lpCustColors
AkelPad.MemCopy(lpChoCo + 20, 0x103, DT_DWORD); //Flags - CC_ANYCOLOR|CC_FULLOPEN|CC_RGBINIT
AkelPad.MemCopy(lpChoCo + 24, 0, DT_DWORD); //lCustData
AkelPad.MemCopy(lpChoCo + 28, 0, DT_DWORD); //lpfnHook
AkelPad.MemCopy(lpChoCo + 32, 0, DT_DWORD); //lpTemplateName

if (oSys.Call("comdlg32::ChooseColor" + _TCHAR, lpChoCo))
{
aColor[nCo] = AkelPad.MemRead(lpChoCo + 12, DT_DWORD);
SetWndFontAndText(lpWnd[nButton - 5][WND], hGuiFont, lpWnd[nButton - 5][WNDTXT]);
AkelPad.SendMessage(hWndCal, 0x100A /*MCM_SETCOLOR*/, nCo, aColor[nCo]);
}

AkelPad.MemFree(lpChoCo);
AkelPad.MemFree(lpCusCo);
oSys.Call("user32::SetFocus", hFocus);
}

VladSh · Posted: Tue Mar 29, 2011 3:58 pm Post subject:

BlockSelect.js

BlockDeclose.js

N.B.: Оба скрипта используют selCompleteLine.js.

Last edited by VladSh on Thu Jul 21, 2011 3:46 pm; edited 1 time in total

FeyFre · Joined: 07 Aug 2007 Posts: 1893 Location: Vinnitsa, Ukraine

Microsoft Data Access - ActiveX Data Objects - constants and helpers set

ADODB.js

Code:

/*******************************************************************************
* Microsoft Data Access - ActiveX Data Objects - constants and helpers set
* v1.2
*
* Based on ADO Import Type Library v2.81
* Author: Panych Y.W. panych.y (bark) gmail.com
* Forum thread: http://akelpad.sourceforge.net/forum/viewtopic.php?p=12315#12315
* Download: http://outstanding.hmarka.net/akelpad/scripts/ADODB.js
******************************************************************************/
ADODB =
{
CursorTypeEnum: {
   adOpenUnspecified:             -1,
   adOpenForwardOnly:             0,
   adOpenKeyset:                1,
   adOpenDynamic:                2,
   adOpenStatic:                3
},
CursorOptionEnum: {
   adHoldRecords:                256,
   adMovePrevious:                512,
   adAddNew:                   16778240,
   adDelete:                   16779264,
   adUpdate:                   16809984,
   adBookmark:                   8192,
   adApproxPosition:             16384,
   adUpdateBatch:                65536,
   adResync:                   131072,
   adNotify:                   262144,
   adFind:                      524288,
   adSeek:                      4194304,
   adIndex:                   8388608
},
LockTypeEnum: {
   adLockUnspecified:             -1,
   adLockReadOnly:                1,
   adLockPessimistic:             2,
   adLockOptimistic:             3,
   adLockBatchOptimistic:          4
},
ExecuteOptionEnum: {
   adOptionUnspecified:          -1,
   adAsyncExecute:                16,
   adAsyncFetch:                32,
   adAsyncFetchNonBlocking:       64,
   adExecuteNoRecords:             128,
   adExecuteStream:             1024,
   adExecuteRecord:             2048
},
ConnectOptionEnum: {
   adConnectUnspecified:          -1,
   adAsyncConnect:                16
},
ObjectStateEnum: {
   adStateClosed:                0,
   adStateOpen:                1,
   adStateConnecting:             2,
   adStateExecuting:             4,
   adStateFetching:             8
},
CursorLocationEnum: {
   adUseNone:                   1,
   adUseServer:                2,
   adUseClient:                3,
   adUseClientBatch:             3
},
DataTypeEnum: {
   adEmpty:                   0,
   adTinyInt:                   16,
   adSmallInt:                   2,
   adInteger:                   3,
   adBigInt:                   20,
   adUnsignedTinyInt:             17,
   adUnsignedSmallInt:             18,
   adUnsignedInt:                19,
   adUnsignedBigInt:             21,
   adSingle:                   4,
   adDouble:                   5,
   adCurrency:                   6,
   adDecimal:                   14,
   adNumeric:                   131,
   adBoolean:                   11,
   adError:                   10,
   adUserDefined:                132,
   adVariant:                   12,
   adIDispatch:                9,
   adIUnknown:                   13,
   adGUID:                      72,
   adDate:                      7,
   adDBDate:                   133,
   adDBTime:                   134,
   adDBTimeStamp:                135,
   adBSTR:                      8,
   adChar:                      129,
   adVarChar:                   200,
   adLongVarChar:                201,
   adWChar:                   130,
   adVarWChar:                   202,
   adLongVarWChar:                203,
   adBinary:                   128,
   adVarBinary:                204,
   adLongVarBinary:             205,
   adChapter:                   136,
   adFileTime:                   64,
   adPropVariant:                138,
   adVarNumeric:                139,
   adArray:                   8192
},
FieldAttributeEnum: {
   adFldUnspecified:             -1,
   adFldMayDefer:                2,
   adFldUpdatable:                4,
   adFldUnknownUpdatable:          8,
   adFldFixed:                   16,
   adFldIsNullable:             32,
   adFldMayBeNull:                64,
   adFldLong:                   128,
   adFldRowID:                   256,
   adFldRowVersion:             512,
   adFldCacheDeferred:             4096,
   adFldIsChapter:                8192,
   adFldNegativeScale:             16384,
   adFldKeyColumn:                32768,
   adFldIsRowURL:                65536,
   adFldIsDefaultStream:          131072,
   adFldIsCollection:             262144
},
EditModeEnum: {
   adEditNone:                   0,
   adEditInProgress:             1,
   adEditAdd:                   2,
   adEditDelete:                4
},
RecordStatusEnum: {
   adRecOK:                   0,
   adRecNew:                   1,
   adRecModified:                2,
   adRecDeleted:                4,
   adRecUnmodified:             8,
   adRecInvalid:                16,
   adRecMultipleChanges:          64,
   adRecPendingChanges:          128,
   adRecCanceled:                256,
   adRecCantRelease:             1024,
   adRecConcurrencyViolation:       2048,
   adRecIntegrityViolation:       4096,
   adRecMaxChangesExceeded:       8192,
   adRecObjectOpen:             16384,
   adRecOutOfMemory:             32768,
   adRecPermissionDenied:          65536,
   adRecSchemaViolation:          131072,
   adRecDBDeleted:                262144
},
GetRowsOptionEnum: {
   adGetRowsRest:                -1
},
PositionEnum: {
   adPosUnknown:                -1,
   adPosBOF:                   -2,
   adPosEOF:                   -3
},
PositionEnum_Param: { //! Fully equal PositionEnum(typedef-ed in typelib)
   adPosUnknown:                -1,
   adPosBOF:                   -2,
   adPosEOF:                   -3
},
BookmarkEnum: {
   adBookmarkCurrent:             0,
   adBookmarkFirst:             1,
   adBookmarkLast:                2
},
MarshalOptionsEnum: {
   adMarshalAll:                0,
   adMarshalModifiedOnly:          1
},
AffectEnum: {
   adAffectCurrent:             1,
   adAffectGroup:                2,
   adAffectAll:                3,
   adAffectAllChapters:          4
},
ResyncEnum: {
   adResyncUnderlyingValues:       1,
   adResyncAllValues:             2
},
CompareEnum: {
   adCompareLessThan:             0,
   adCompareEqual:                1,
   adCompareGreaterThan:          2,
   adCompareNotEqual:             3,
   adCompareNotComparable:          4
},
FilterGroupEnum: {
   adFilterNone:                0,
   adFilterPendingRecords:          1,
   adFilterAffectedRecords:       2,
   adFilterFetchedRecords:          3,
   adFilterPredicate:             4,
   adFilterConflictingRecords:       5
},
SearchDirectionEnum: {
   adSearchForward:             1,
   adSearchBackward:             -1
},
SearchDirection: {
   adSearchForward:             1,
   adSearchBackward:             -1
},
PersistFormatEnum: {
   adPersistADTG:                0,
   adPersistXML:                1
},
StringFormatEnum: {
   adClipString:                2
},
ConnectPromptEnum: {
   adPromptAlways:                1,
   adPromptComplete:             2,
   adPromptCompleteRequired:       3,
   adPromptNever:                4
},
ConnectModeEnum: {
   adModeUnknown:                0,
   adModeRead:                   1,
   adModeWrite:                2,
   adModeReadWrite:             3,
   adModeShareDenyRead:          4,
   adModeShareDenyWrite:          8,
   adModeShareExclusive:          12,
   adModeShareDenyNone:          16,
   adModeRecursive:             4194304
},
RecordCreateOptionsEnum: {
   adCreateCollection:             8192,
   adCreateStructDoc:             -2147483648,
   adCreateNonCollection:          0,
   adOpenIfExists:                33554432,
   adCreateOverwrite:             67108864,
   adFailIfNotExists:             -1
},
RecordOpenOptionsEnum: {
   adOpenRecordUnspecified:       -1,
   adOpenSource:                8388608,
   adOpenOutput:                8388608,
   adOpenAsync:                4096,
   adDelayFetchStream:             16384,
   adDelayFetchFields:             32768,
   adOpenExecuteCommand:          65536
},
IsolationLevelEnum: {
   adXactUnspecified:             -1,
   adXactChaos:                16,
   adXactReadUncommitted:          256,
   adXactBrowse:                256,
   adXactCursorStability:          4096,
   adXactReadCommitted:          4096,
   adXactRepeatableRead:          65536,
   adXactSerializable:             1048576,
   adXactIsolated:                1048576
},
XactAttributeEnum: {
   adXactCommitRetaining:          131072,
   adXactAbortRetaining:          262144,
   adXactAsyncPhaseOne:          524288,
   adXactSyncPhaseOne:             1048576
},
PropertyAttributesEnum: {
   adPropNotSupported:             0,
   adPropRequired:                1,
   adPropOptional:                2,
   adPropRead:                   512,
   adPropWrite:                1024
},
ErrorValueEnum: {
   adErrProviderFailed:          3000,
   adErrInvalidArgument:          3001,
   adErrOpeningFile:             3002,
   adErrReadFile:                3003,
   adErrWriteFile:                3004,
   adErrNoCurrentRecord:          3021,
   adErrIllegalOperation:          3219,
   adErrCantChangeProvider:       3220,
   adErrInTransaction:             3246,
   adErrFeatureNotAvailable:       3251,
   adErrItemNotFound:             3265,
   adErrObjectInCollection:       3367,
   adErrObjectNotSet:             3420,
   adErrDataConversion:          3421,
   adErrObjectClosed:             3704,
   adErrObjectOpen:             3705,
   adErrProviderNotFound:          3706,
   adErrBoundToCommand:          3707,
   adErrInvalidParamInfo:          3708,
   adErrInvalidConnection:          3709,
   adErrNotReentrant:             3710,
   adErrStillExecuting:          3711,
   adErrOperationCancelled:       3712,
   adErrStillConnecting:          3713,
   adErrInvalidTransaction:       3714,
   adErrNotExecuting:             3715,
   adErrUnsafeOperation:          3716,
   adwrnSecurityDialog:          3717,
   adwrnSecurityDialogHeader:       3718,
   adErrIntegrityViolation:       3719,
   adErrPermissionDenied:          3720,
   adErrDataOverflow:             3721,
   adErrSchemaViolation:          3722,
   adErrSignMismatch:             3723,
   adErrCantConvertvalue:          3724,
   adErrCantCreate:             3725,
   adErrColumnNotOnThisRow:       3726,
   adErrURLDoesNotExist:          3727,
   adErrTreePermissionDenied:       3728,
   adErrInvalidURL:             3729,
   adErrResourceLocked:          3730,
   adErrResourceExists:          3731,
   adErrCannotComplete:          3732,
   adErrVolumeNotFound:          3733,
   adErrOutOfSpace:             3734,
   adErrResourceOutOfScope:       3735,
   adErrUnavailable:             3736,
   adErrURLNamedRowDoesNotExist:    3737,
   adErrDelResOutOfScope:          3738,
   adErrPropInvalidColumn:          3739,
   adErrPropInvalidOption:          3740,
   adErrPropInvalidValue:          3741,
   adErrPropConflicting:          3742,
   adErrPropNotAllSettable:       3743,
   adErrPropNotSet:             3744,
   adErrPropNotSettable:          3745,
   adErrPropNotSupported:          3746,
   adErrCatalogNotSet:             3747,
   adErrCantChangeConnection:       3748,
   adErrFieldsUpdateFailed:       3749,
   adErrDenyNotSupported:          3750,
   adErrDenyTypeNotSupported:       3751,
   adErrProviderNotSpecified:       3753,
   adErrConnectionStringTooLong:    3754
},
ParameterAttributesEnum: {
   adParamSigned:                16,
   adParamNullable:             64,
   adParamLong:                128
},
ParameterDirectionEnum: {
   adParamUnknown:                0,
   adParamInput:                1,
   adParamOutput:                2,
   adParamInputOutput:             3,
   adParamReturnValue:             4
},
CommandTypeEnum: {
   adCmdUnspecified:             -1,
   adCmdUnknown:                8,
   adCmdText:                   1,
   adCmdTable:                   2,
   adCmdStoredProc:             4,
   adCmdFile:                   256,
   adCmdTableDirect:             512
},
EventStatusEnum: {
   adStatusOK:                   1,
   adStatusErrorsOccurred:          2,
   adStatusCantDeny:             3,
   adStatusCancel:                4,
   adStatusUnwantedEvent:          5
},
EventReasonEnum: {
   adRsnAddNew:                1,
   adRsnDelete:                2,
   adRsnUpdate:                3,
   adRsnUndoUpdate:             4,
   adRsnUndoAddNew:             5,
   adRsnUndoDelete:             6,
   adRsnRequery:                7,
   adRsnResynch:                8,
   adRsnClose:                   9,
   adRsnMove:                   10,
   adRsnFirstChange:             11,
   adRsnMoveFirst:                12,
   adRsnMoveNext:                13,
   adRsnMovePrevious:             14,
   adRsnMoveLast:                15
},
SchemaEnum: {
   adSchemaProviderSpecific:       -1,
   adSchemaAsserts:             0,
   adSchemaCatalogs:             1,
   adSchemaCharacterSets:          2,
   adSchemaCollations:             3,
   adSchemaColumns:             4,
   adSchemaCheckConstraints:       5,
   adSchemaConstraintColumnUsage:    6,
   adSchemaConstraintTableUsage:    7,
   adSchemaKeyColumnUsage:          8,
   adSchemaReferentialContraints:    9,
   adSchemaReferentialConstraints:    9,
   adSchemaTableConstraints:       10,
   adSchemaColumnsDomainUsage:       11,
   adSchemaIndexes:             12,
   adSchemaColumnPrivileges:       13,
   adSchemaTablePrivileges:       14,
   adSchemaUsagePrivileges:       15,
   adSchemaProcedures:             16,
   adSchemaSchemata:             17,
   adSchemaSQLLanguages:          18,
   adSchemaStatistics:             19,
   adSchemaTables:                20,
   adSchemaTranslations:          21,
   adSchemaProviderTypes:          22,
   adSchemaViews:                23,
   adSchemaViewColumnUsage:       24,
   adSchemaViewTableUsage:          25,
   adSchemaProcedureParameters:    26,
   adSchemaForeignKeys:          27,
   adSchemaPrimaryKeys:          28,
   adSchemaProcedureColumns:       29,
   adSchemaDBInfoKeywords:          30,
   adSchemaDBInfoLiterals:          31,
   adSchemaCubes:                32,
   adSchemaDimensions:             33,
   adSchemaHierarchies:          34,
   adSchemaLevels:                35,
   adSchemaMeasures:             36,
   adSchemaProperties:             37,
   adSchemaMembers:             38,
   adSchemaTrustees:             39,
   adSchemaFunctions:             40,
   adSchemaActions:             41,
   adSchemaCommands:             42,
   adSchemaSets:                43
},
FieldStatusEnum: {
   adFieldOK:                   0,
   adFieldCantConvertValue:       2,
   adFieldIsNull:                3,
   adFieldTruncated:             4,
   adFieldSignMismatch:          5,
   adFieldDataOverflow:          6,
   adFieldCantCreate:             7,
   adFieldUnavailable:             8,
   adFieldPermissionDenied:       9,
   adFieldIntegrityViolation:       10,
   adFieldSchemaViolation:          11,
   adFieldBadStatus:             12,
   adFieldDefault:                13,
   adFieldIgnore:                15,
   adFieldDoesNotExist:          16,
   adFieldInvalidURL:             17,
   adFieldResourceLocked:          18,
   adFieldResourceExists:          19,
   adFieldCannotComplete:          20,
   adFieldVolumeNotFound:          21,
   adFieldOutOfSpace:             22,
   adFieldCannotDeleteSource:       23,
   adFieldReadOnly:             24,
   adFieldResourceOutOfScope:       25,
   adFieldAlreadyExists:          26,
   adFieldPendingInsert:          65536,
   adFieldPendingDelete:          131072,
   adFieldPendingChange:          262144,
   adFieldPendingUnknown:          524288,
   adFieldPendingUnknownDelete:    1048576
},
SeekEnum: {
   adSeekFirstEQ:                1,
   adSeekLastEQ:                2,
   adSeekAfterEQ:                4,
   adSeekAfter:                8,
   adSeekBeforeEQ:                16,
   adSeekBefore:                32
},
ADCPROP_UPDATECRITERIA_ENUM: {
   adCriteriaKey:                0,
   adCriteriaAllCols:             1,
   adCriteriaUpdCols:             2,
   adCriteriaTimeStamp:          3
},
ADCPROP_ASYNCTHREADPRIORITY_ENUM: {
   adPriorityLowest:             1,
   adPriorityBelowNormal:          2,
   adPriorityNormal:             3,
   adPriorityAboveNormal:          4,
   adPriorityHighest:             5
},
ADCPROP_AUTORECALC_ENUM: {
   adRecalcUpFront:             0,
   adRecalcAlways:                1
},
ADCPROP_UPDATERESYNC_ENUM: {
   adResyncNone:                0,
   adResyncAutoIncrement:          1,
   adResyncConflicts:             2,
   adResyncUpdates:             4,
   adResyncInserts:             8,
   adResyncAll:                15
},
MoveRecordOptionsEnum: {
   adMoveUnspecified:             -1,
   adMoveOverWrite:             1,
   adMoveDontUpdateLinks:          2,
   adMoveAllowEmulation:          4
},
CopyRecordOptionsEnum: {
   adCopyUnspecified:             -1,
   adCopyOverWrite:             1,
   adCopyAllowEmulation:          4,
   adCopyNonRecursive:             2
},
StreamTypeEnum: {
   adTypeBinary:                1,
   adTypeText:                   2
},
LineSeparatorEnum: {
   adLF:                      10,
   adCR:                      13,
   adCRLF:                      -1
},
StreamOpenOptionsEnum: {
   adOpenStreamUnspecified:       -1,
   adOpenStreamAsync:             1,
   adOpenStreamFromRecord:          4
},
StreamWriteEnum: {
   adWriteChar:                0,
   adWriteLine:                1,
   stWriteChar:                0,
   stWriteLine:                1
},
SaveOptionsEnum: {
   adSaveCreateNotExist:          1,
   adSaveCreateOverWrite:          2
},
FieldEnum: {
   adDefaultStream:             -1,
   adRecordURL:                -2
},
StreamReadEnum: {
   adReadAll:                   -1,
   adReadLine:                   -2
},
RecordTypeEnum: {
   adSimpleRecord:                0,
   adCollectionRecord:             1,
   adStructDoc:                2
},
Connection:       function(){return new ActiveXObject("ADODB.Connection");},
Record:          function(){return new ActiveXObject("ADODB.Record");},
Stream:          function(){return new ActiveXObject("ADODB.Stream");},
Command:       function(){return new ActiveXObject("ADODB.Command");},
Recordset:       function(){return new ActiveXObject("ADODB.Recordset");},
Parameter:       function(){return new ActiveXObject("ADODB.Parameter");}
};

DOWNLOAD
Usage sample

VladSh · Posted: Mon Apr 04, 2011 1:38 pm Post subject:

CaseUpperLower.js
CaseUpperLowerProper.js

N.B. В коде используется CaretSelect.js.

Last edited by VladSh on Thu Aug 23, 2012 10:48 am; edited 3 times in total

Instructor · Site Admin Joined: 06 Jul 2006 Posts: 4649

OpenSaveMask.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=12548#12548
// Version v1.5
//
//
//// Open/Convert files.
//
// Arguments:
// -OpenMask="C:\MyFolder\*.*" -Search any files in "C:\MyFolder".
// -OpenList="C:\files.lst" -Open files specified in "files.lst".
// -SubDir=true -Search recursively (default is false).
// -OpenCodepage=-1 -Open codepage, if -1 it will be autodetected (default is -1).
// -OpenBOM=-1 -File byte order mark, if -1 it will be autodetected (default is -1).
// -OpenBinary=-1 -Open binary file, 1 - open if binary, 0 - don't open if binary, -1 - prompt (default is 0).
// -SaveDir="" -Save directory, if "" files will be saved in place.
// -SaveCodepage=65001 -Save codepage, if -1 current codepage will be used (default is -1).
// -SaveBOM=1 -File byte order mark, 1 - exist, 2 - doesn't exist, -1 - current BOM will be used (default is -1).
// -Silent=true -Display no messages (default is false).
// -CloseNoFiles=false -Don't close program, if after script ending no files are opened (default is true).
//
// Remark:
// If SaveCodepage and SaveBOM not specified when no convertion operation will occur and files will be just opened.
//
// Usage (open):
// Call("Scripts::Main", 1, "OpenSaveMask.js", `-OpenMask="C:\MyFolder\*.txt" -SubDir=true`)
//
// Usage (convert by mask):
// Call("Scripts::Main", 1, "OpenSaveMask.js", `-OpenMask="C:\MyFolder\*.txt" -SubDir=true -SaveCodepage=65001 -SaveBOM=1`)

//Arguments
var pOpenMask=AkelPad.GetArgValue("OpenMask", "");
var pOpenList=AkelPad.GetArgValue("OpenList", "");
var bSubDir=AkelPad.GetArgValue("SubDir", false);
var nOpenCodepage=AkelPad.GetArgValue("OpenCodepage", -1);
var nOpenBOM=AkelPad.GetArgValue("OpenBOM", -1);
var nOpenBinary=AkelPad.GetArgValue("OpenBinary", 0);
var pSaveDir=AkelPad.GetArgValue("SaveDir", "");
var nSaveCodepage=AkelPad.GetArgValue("SaveCodepage", -1);
var nSaveBOM=AkelPad.GetArgValue("SaveBOM", -1);
var bSilent=AkelPad.GetArgValue("Silent", false);
var bCloseNoFiles=AkelPad.GetArgValue("CloseNoFiles", true);

var hMainWnd=AkelPad.GetMainWnd();
var oSys=AkelPad.SystemFunction();
var pFileList="";
var dwCmdOptions;
var nAllFiles=0;
var nDoneFiles=0;
var nErrors=0;

if (pOpenMask || pOpenList)
{
dwCmdOptions=AkelPad.SendMessage(hMainWnd, 1145 /*AKD_GETCMDLINEOPTIONS*/, 0, 0);
if (nOpenBinary == 1)
AkelPad.SendMessage(hMainWnd, 1146 /*AKD_SETCMDLINEOPTIONS*/, (dwCmdOptions | 0x10 /*CLO_MSGOPENBINARYYES*/) & ~0x20 /*CLO_MSGOPENBINARYNO*/, 0);
else if (nOpenBinary == 0)
AkelPad.SendMessage(hMainWnd, 1146 /*AKD_SETCMDLINEOPTIONS*/, (dwCmdOptions & ~0x10 /*CLO_MSGOPENBINARYYES*/) | 0x20 /*CLO_MSGOPENBINARYNO*/, 0);
else if (nOpenBinary == -1)
AkelPad.SendMessage(hMainWnd, 1146 /*AKD_SETCMDLINEOPTIONS*/, (dwCmdOptions & ~0x10 /*CLO_MSGOPENBINARYYES*/) & ~0x20 /*CLO_MSGOPENBINARYNO*/, 0);

if (pOpenMask)
{
Locate(pOpenMask, bSubDir);
}
if (pOpenList)
{
var pFilesText;
var pLinesArray;
var nIndex;

if (pFilesText=AkelPad.ReadFile(pOpenList))
{
pFilesText=pFilesText.replace(/\r\r\n|\r\n|\r|\n/g, "\n");
if (pLinesArray=pFilesText.split("\n"))
{
for (nIndex=0; nIndex < pLinesArray.length; ++nIndex)
{
if (pLinesArray[nIndex])
{
DoFile(pLinesArray[nIndex], pSaveDir);
}
}
}
}
}

AkelPad.SendMessage(hMainWnd, 1146 /*AKD_SETCMDLINEOPTIONS*/, dwCmdOptions, 0);

if (nSaveCodepage != -1 || nSaveBOM != -1)
{
if (nAllFiles && AkelPad.IsMDI())
AkelPad.Command(4325 /*IDM_WINDOW_FILEEXIT*/);
if (!bSilent)
WScript.Echo("Converted: " + nDoneFiles + " of " + nAllFiles + " files (" + nErrors + " errors)");
}
if (bCloseNoFiles)
{
if (AkelPad.SendMessage(hMainWnd, 1292 /*AKD_FRAMENOWINDOWS*/, 0, 0) ||
(AkelPad.IsMDI() == 1 && AkelPad.SendMessage(hMainWnd, 1291 /*AKD_FRAMESTATS*/, 0 /*FWS_COUNTALL*/, 0) == 1 &&
!AkelPad.GetEditFile(0) && !AkelPad.GetEditModified(0)))
{
AkelPad.Command(4109 /*IDM_FILE_EXIT*/);
}
}
}

function Locate(pSearchFor, bSubDir)
{
var lpFindData=AkelPad.MemAlloc(592 /*sizeof(WIN32_FIND_DATAW)*/);
var lpLocalFileTime=AkelPad.MemAlloc(8 /*sizeof(FILETIME)*/);
var lpSystemTime=AkelPad.MemAlloc(16 /*sizeof(SYSTEMTIME)*/);
var lpWriteTime=[];
var hSearch;
var pDir;
var pWildcard;
var pFileName;
var nSize;
var nFileSizeHigh;
var nFileSizeLow;
var dwAttributes;
var nOffset;
var bStop=false;

if ((nOffset=pSearchFor.lastIndexOf("\\")) != -1)
{
pDir=pSearchFor.substr(0, nOffset);
pWildcard=pSearchFor.substr(nOffset + 1);

//Enumerate directory
if ((hSearch=oSys.Call("kernel32::FindFirstFile" + _TCHAR, pSearchFor, lpFindData)) != -1 /*INVALID_HANDLE_VALUE*/)
{
do
{
pFileName=AkelPad.MemRead(lpFindData + 44 /*offsetof(WIN32_FIND_DATAW, cFileName)*/, _TSTR);
if (pFileName == "." || pFileName == "..") continue;
dwAttributes=AkelPad.MemRead(lpFindData /*offsetof(WIN32_FIND_DATAW, dwAttributes)*/, 3 /*DT_DWORD*/);

if (!(dwAttributes & 0x10 /*FILE_ATTRIBUTE_DIRECTORY*/))
{
//File size
nFileSizeHigh=AkelPad.MemRead(lpFindData + 28 /*offsetof(WIN32_FIND_DATAW, nFileSizeHigh)*/, 3 /*DT_DWORD*/);
nFileSizeLow=AkelPad.MemRead(lpFindData + 32 /*offsetof(WIN32_FIND_DATAW, nFileSizeLow)*/, 3 /*DT_DWORD*/);
nSize=(nFileSizeHigh * (0xFFFFFFFF + 1)) + nFileSizeLow;

//Get write time
oSys.Call("kernel32::FileTimeToLocalFileTime", lpFindData + 20 /*offsetof(WIN32_FIND_DATAW, ftLastWriteTime)*/, lpLocalFileTime);
oSys.Call("kernel32::FileTimeToSystemTime", lpLocalFileTime, lpSystemTime);
lpWriteTime.wYear=AkelPad.MemRead(lpSystemTime /*offsetof(SYSTEMTIME, wYear)*/, 4 /*DT_WORD*/);
lpWriteTime.wMonth=AkelPad.MemRead(lpSystemTime + 2 /*offsetof(SYSTEMTIME, wMonth)*/, 4 /*DT_WORD*/);
lpWriteTime.wDayOfWeek=AkelPad.MemRead(lpSystemTime + 4 /*offsetof(SYSTEMTIME, wDayOfWeek)*/, 4 /*DT_WORD*/);
lpWriteTime.wDay=AkelPad.MemRead(lpSystemTime + 6 /*offsetof(SYSTEMTIME, wDay)*/, 4 /*DT_WORD*/);
lpWriteTime.wHour=AkelPad.MemRead(lpSystemTime + 8 /*offsetof(SYSTEMTIME, wHour)*/, 4 /*DT_WORD*/);
lpWriteTime.wMinute=AkelPad.MemRead(lpSystemTime + 10 /*offsetof(SYSTEMTIME, wMinute)*/, 4 /*DT_WORD*/);
lpWriteTime.wSecond=AkelPad.MemRead(lpSystemTime + 12 /*offsetof(SYSTEMTIME, wSecond)*/, 4 /*DT_WORD*/);
lpWriteTime.wMilliseconds=AkelPad.MemRead(lpSystemTime + 14 /*offsetof(SYSTEMTIME, wMilliseconds)*/, 4 /*DT_WORD*/);

if (bStop=LocateCallback(pDir, pFileName, dwAttributes, nSize, lpWriteTime))
break;
}
}
while (oSys.Call("kernel32::FindNextFile" + _TCHAR, hSearch, lpFindData));

oSys.Call("kernel32::FindClose", hSearch);
}

//Go to subdirectory
if (!bStop && bSubDir)
{
if ((hSearch=oSys.Call("kernel32::FindFirstFile" + _TCHAR, pDir + "\\" + "*.*", lpFindData)) != -1 /*INVALID_HANDLE_VALUE*/)
{
do
{
pFileName=AkelPad.MemRead(lpFindData + 44 /*offsetof(WIN32_FIND_DATAW, cFileName)*/, _TSTR);
if (pFileName == "." || pFileName == "..") continue;
dwAttributes=AkelPad.MemRead(lpFindData /*offsetof(WIN32_FIND_DATAW, dwAttributes)*/, 3 /*DT_DWORD*/);

if (dwAttributes & 0x10 /*FILE_ATTRIBUTE_DIRECTORY*/)
{
if (bSubDir)
{
//Recursive call
if (bStop=Locate(pDir + "\\" + pFileName + "\\" + pWildcard, true))
break;
}
}
}
while (oSys.Call("kernel32::FindNextFile" + _TCHAR, hSearch, lpFindData));

oSys.Call("kernel32::FindClose", hSearch);
}
}
}

AkelPad.MemFree(lpFindData);
AkelPad.MemFree(lpLocalFileTime);
AkelPad.MemFree(lpSystemTime);
return bStop;
}

function LocateCallback(pDir, pFileName, dwAttributes, nSize, lpWriteTime)
{
DoFile(pDir + "\\" + pFileName, pSaveDir);

//WScript.Echo("Name:" + pDir + "\\" + pFileName + "\n" +
// "Attr:" + dwAttributes + "\n" +
// "Size:" + nSize + "\n" +
// "WriteTime:" + lpWriteTime.wYear + "." + lpWriteTime.wMonth + "." + lpWriteTime.wDay + " " +
// lpWriteTime.wHour + ":" + lpWriteTime.wMinute + ":" + lpWriteTime.wSecond + " " +
// lpWriteTime.wMilliseconds + "ms, DayOfWeek:" + lpWriteTime.wDayOfWeek);

//Stop?
return false;
}

function DoFile(pOpenFile, pSaveFile)
{
var nOpenResult;
var dwOpenFlags=0x1 /*OD_ADT_BINARY_ERROR*/;

if (nOpenCodepage == -1)
dwOpenFlags|=0x4 /*OD_ADT_DETECT_CODEPAGE*/;
if (nOpenBOM == -1)
dwOpenFlags|=0x8 /*OD_ADT_DETECT_BOM*/;

if (!(nOpenResult=AkelPad.OpenFile(pOpenFile, dwOpenFlags, nOpenCodepage, nOpenBOM)))
{
if (nSaveCodepage != -1 || nSaveBOM != -1)
{
if ((nSaveCodepage != -1 && AkelPad.GetEditCodePage(0) != nSaveCodepage) ||
(nSaveBOM != -1 && AkelPad.GetEditBOM(0) != nSaveBOM))
{
if (!pSaveFile)
pSaveFile=pOpenFile;
else if (oSys.Call("kernel32::GetFileAttributes" + _TCHAR, pSaveFile) & 0x10 /*FILE_ATTRIBUTE_DIRECTORY*/)
pSaveFile=pSaveFile + "\\" + GetFileName(pOpenFile);

if (!AkelPad.SaveFile(0, pSaveFile, nSaveCodepage, nSaveBOM))
++nDoneFiles;
else
++nErrors;
}
AkelPad.Command(4324 /*IDM_WINDOW_FILECLOSE*/);
}
}
else if (nOpenResult != -20 /*EOD_MSGNO*/)
{
++nErrors;
}
++nAllFiles;
}

function GetFileName(pFile)
{
var nOffset;

if ((nOffset=pFile.lastIndexOf("\\")) != -1)
pFile=pFile.substr(nOffset);
return pFile;
}

Infocatcher · Joined: 06 Aug 2007 Posts: 1433

unixTime.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=12600#12600
// http://infocatcher.ucoz.net/js/akelpad_scripts/unixTime.js

// (c) Infocatcher 2011-2012
// version 0.1.3 - 2012-12-03

var TU_AUTO = 0;
var TU_S = 1;
var TU_MS = 2;

var treatAsUTC = getArg("treatAsUTC", true);
var timeUnit = getArg("timeUnit", TU_AUTO);

var date = AkelPad.GetSelText().replace(/^\s+|\s+$/g, "");
if(/^(\d+|0x[0-9a-f]+)$/i.test(date)) {
date = Number(date);
if(timeUnit == TU_S || timeUnit == TU_AUTO && date < 3e9)
 date *= 1000;
}
else if(/^([0-3]?\d)\D([01]?\d)\D(\d{4})(\s+([0-2]?\d)\D([0-6]?\d)(\D([0-6]?\d))?)?$/.test(date)) {
// dd.MM.yyyy[ HH:mm[:ss]]
with(RegExp)
 date = new Date($3, $2 - 1, $1, $5, $6, $8);
}
else if(/^(\d{4})\D([01]?\d)\D([0-3]?\d)(\s+([0-2]?\d)\D([0-6]?\d)(\D([0-6]?\d))?)?$/.test(date)) {
// yyyy.MM.dd[ HH:mm[:ss]]
with(RegExp)
 date = new Date($1, $2 - 1, $3, $5, $6, $8);
}
else if(/^([0-2]?\d)\D([0-6]?\d)(\D([0-6]?\d))?\s+([0-3]?\d)\D([01]?\d)\D(\d{4})$/.test(date)) {
// HH:mm[:ss] dd.MM.yyyy
with(RegExp)
 date = new Date($7, $6 - 1, $5, $1, $2, $4);
}
if(!(date instanceof Date))
date = new Date(date);
else if(treatAsUTC) {
var tzo = date.getTimezoneOffset();
date.setMinutes(date.getMinutes() - tzo);
}
var tzo = date.getTimezoneOffset();
var ms = date.getTime();
var s = Math.round(ms/1000);
var tf = function(funcName) {
if(treatAsUTC)
 return funcName.substr(0, 3) + "UTC" + funcName.substr(3);
return funcName;
};
var dates = [
date.toLocaleString(),
date[tf("getFullYear")]() + "-" + padLeft(date[tf("getMonth")]() + 1) + "-" + padLeft(date[tf("getDate")]()) + " "
 + padLeft(date[tf("getHours")]()) + ":" + padLeft(date[tf("getMinutes")]()) + ":" + padLeft(date[tf("getSeconds")]())
 + " UTC" + (treatAsUTC ? "" : getTimezone(tzo)),
date.toUTCString(),
date.toString(),
ms,
s,
(s < 0 ? "-" : "") + "0x" + Math.abs(s).toString(16)
].join("\n");
AkelPad.MessageBox(AkelPad.GetMainWnd(), dates, WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);

function padLeft(n) {
var chr = "0";
var cnt = 2;
n = String(n);
var l = n.length;
return l < cnt
 ? new Array(cnt - n.length + 1).join(chr) + n
 : n;
}
function getTimezone(tzo) {
var m = Math.abs(tzo);
var h = Math.floor(m/60);
m = Math.floor(m - h*60);
return (tzo > 0 ? "-" : "+") + padLeft(h) + padLeft(m);
}
function getArg(argName, defaultVal) {
var args = {};
for(var i = 0, argsCount = WScript.Arguments.length; i < argsCount; i++)
 if(/^[-\/](\w+)(=(.+))?$/i.test(WScript.Arguments(i)))
 args[RegExp.$1.toLowerCase()] = RegExp.$3 ? eval(RegExp.$3) : true;
getArg = function(argName, defaultVal) {
 argName = argName.toLowerCase();
 return typeof args[argName] == "undefined" // argName in args
 ? defaultVal
 : args[argName];
};
return getArg(argName, defaultVal);
}

<download>
Convert Unix time.

Screenshot

VladSh · Posted: Fri Apr 29, 2011 12:24 pm Post subject:

TranslateWithGoogleAPI.js

Code:

///Translates selected text using the Google API
///Перевод текста используя Google-API
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=12612#12612
// Version: 2.6 (2012.09.11)
//
// -"Translate: Auto -> Ru (Google)" Call("Scripts::Main", 1, "TranslateWithGoogleAPI.js", `-lngT="ru" -Msg=1`) - autodetect source language + display the result in MessageBox
// -"Перевести: Ru -> En (Google)" Call("Scripts::Main", 1, "TranslateWithGoogleAPI.js", `-lngS="ru" -lngT="en"`) - translate ru -> en + source text is replaced by the translation

var resultText; //в эту переменную возвращается результат в виде текста, иначе undefined
var vn_resultObject = "resultObject";

var langSource = AkelPad.GetArgValue("lngS", "auto"); //autodetect source language
var langTarget = AkelPad.GetArgValue("lngT", "ru"); //target language [ru]
var nMsgBox = AkelPad.GetArgValue("Msg", 0); //show the result in MessageBox: [0] / 1
//resType values in arguments (does not make sense with Msg=1):
//0 - selected text is replaced by the translation
//1 - copy to clipboard
//2 - display the result in new tab
//3 - output to Log-plugin console
var nResultType = AkelPad.GetArgValue("resType", 0);

var req = createRequestObject();
if (req)
{
var selection;
if (selection = AkelPad.GetSelText(2 /*\n*/))
 selection = selection.replace(/\n/g, "<n>"); //для сохранения переводов строк
selection = encodeURIComponent(selection);

var url = "http://translate.google.com/translate_a/t?";
var params = "client=qlt&langpair=" + langSource + "|" + langTarget + "&q=" + selection + "&callback=" + vn_resultObject;

req.open("POST", url, false);
req.onreadystatechange = processReqChange;
req.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
req.send(params);

if (resultText)
{
 var nResultAction;

 if (nMsgBox == 1)
 {
 if (resultText != selection)
 {
 nResultAction = AkelPad.MessageBox(AkelPad.GetEditWnd(), "Result text:" + "\r\r" + resultText + "\r\r" + "Yes - replace selected (source) text" + "\r" + "No - copy to clipboard", WScript.ScriptName, 32 + 3);
 if (nResultAction == 2) WScript.Quit();
 }
 else
 {
 AkelPad.MessageBox(AkelPad.GetEditWnd(), "Translation for '" + selection + "' is missing.", WScript.ScriptName, 64);
 WScript.Quit();
 }
 }
 else
 {
 switch (nResultType)
 {
 case 2:
 AkelPad.Command(4101);
 break;
 case 3:
 AkelPad.Call("Log::Output", 5, resultText + "\r");
 WScript.Quit();
 }
 nResultAction = nResultType + 6;
 }

 switch (nResultAction)
 {
 case 6:
 AkelPad.ReplaceSel(resultText, true);
 break;
 default:
 AkelPad.SetClipboardText(resultText);
 break;
 }
}
}

function createRequestObject()
{
if (typeof(XMLHttpRequest) === 'undefined')
{
 XMLHttpRequest = function()
 {
// try { return new ActiveXObject("WinHttp.WinHttpRequest.5.1"); } //Выше генерируется ошибка "Объект не поддерживает свойство или метод"
// catch(e) {}
 try { return new ActiveXObject("Msxml2.XMLHTTP"); }
 catch(e) {}
 try { return new ActiveXObject("Microsoft.XMLHTTP"); }
 catch(e) {}
 throw new Error("Your system does not support XMLHttpRequest.");
 };
}
return new XMLHttpRequest();
}

function processReqChange()
{
try
{
 //только при состоянии "complete"
 if (req.readyState == 4)
 {
 //для статуса "OK"
 if (req.status == 200)
 {
 //обработка ответа
 var tmpText = (req.responseText.indexOf(vn_resultObject) != -1) ? req.responseText.replace(vn_resultObject, "var " + vn_resultObject + " = ") : "var " + vn_resultObject + " = " + req.responseText;
// WScript.Echo(tmpText); //test message
 eval(tmpText);

 if (!resultObject.sentences)
 {
 if (resultObject.error)
 showErrorMessage(resultObject.error.message + " (" + resultObject.error.code + ")", true);
 else
 showErrorMessage("There is no error output object, possibly changed API format.", true);
 }
 else
 {
 resultText = resultObject.sentences[0].trans;
 for (var i = 1; i < resultObject.sentences.length; ++i)
 resultText += resultObject.sentences[i].trans;
 }
 resultText = resultText.replace(/ {0,1}<n> {0,1}/g, "\n"); //восстановление переводов строк
 resultText = resultText.replace(/&/gm, '&');
 resultText = resultText.replace(/</gm, '<');
 resultText = resultText.replace(/>/gm, '>');
 resultText = resultText.replace(/"/gm, '"');
 }
 else
 showErrorMessage("Unable to retrieve data (" + req.statusText + ")!", true);
 }
}
catch( e )
 { showErrorMessage("Error: " + e, true); }
}

function showErrorMessage(pText, bQuit)
{
AkelPad.MessageBox(AkelPad.GetEditWnd(), pText, WScript.ScriptName, 16);
if (bQuit) WScript.Quit();
}

Last edited by VladSh on Tue Sep 11, 2012 3:22 pm; edited 10 times in total

KDJ · Joined: 06 Mar 2010 Posts: 1068 Location: Poland

Translates text via Google and MS Bing.
Script moved to another location.
Translator.js

Infocatcher · Joined: 06 Aug 2007 Posts: 1433

crypt.js <download>
Improved version of AESCrypt.js.
Encrypt/decrypt text using AES-256 or/and Blowfish.
It can be very slow, be careful.

Screenshots

Post size limit, here is packed file:
crypt.uue
Save as text file with .uue extension, unpack with Total Commander or WinRAR. And unpack .7z with WinRAR or 7-Zip.

VladSh · Posted: Thu May 19, 2011 9:24 am Post subject:

OpenSessionsDir.js

Code:

///Opens the directory where the files are stored sessions
///Открывает папку, в которой сохраняются файлы сессий
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=12937#12937
// Version: 1.2 (2011.10.20)
//
// -"Directory of sessions" Call("Scripts::Main", 1, "OpenSessionsDir.js")

if (! AkelPad.Include("Settings.js")) WScript.Quit();

var nSubDir = 4;
var pAkelPlugsDir = AkelPad.GetAkelDir(nSubDir) /*ADTYPE_PLUGS*/ + "\\";

var pPluginFileName = "Sessions";
var pParameterName = "SaveSessions";

nParameterValue = SettingsRead(nSubDir, pPluginFileName, pParameterName, 3 /*PO_STRING*/)

var WshShell = new ActiveXObject("WScript.Shell");
var pPluginDataDir;    //папка, которую мы собственно и будем открывать

switch (nParameterValue)
{
case "1":    //Дирректория программы
   pPluginDataDir = pAkelPlugsDir + pPluginFileName;
   break;
case "2":    //Дирректория пользователя
   pPluginDataDir = WshShell.ExpandEnvironmentStrings("%APPDATA%\\AkelPad\\" + pPluginFileName);
   break;
default:
   AkelPad.MessageBox(AkelPad.GetEditWnd(), "Unhandled value of parameter " + pParameterName + "=" + nParameterValue + "!", WScript.ScriptName, 48);
   WScript.Quit();
}

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

if (fso.FolderExists(pPluginDataDir) == false)
{
AkelPad.MessageBox(AkelPad.GetEditWnd(), "Directory of sessions '" + pPluginDataDir + "' not found!'", WScript.ScriptName, 48);
WScript.Quit();
}

var nResult = -1;

if (fso.FileExists(pAkelPlugsDir + "Explorer.dll") == true)    //пытаемся сначала открыть в Explorer-плагине
nResult = AkelPad.Call("Explorer::Main", 1, pPluginDataDir);

if (nResult == -1)
WshShell.Exec('rundll32.exe shell32, ShellExec_RunDLL "' + pPluginDataDir + '"');

N.B.: В коде используется Settings.js.

Last edited by VladSh on Thu Oct 20, 2011 9:39 am; edited 3 times in total

oyaebu · Joined: 11 Oct 2009 Posts: 15

Заменяет выделение его хешем.

md5sel.js

Code:

DV · Joined: 16 Nov 2006 Posts: 726 Location: Kyiv, Ukraine

Суровый скрипт на тему того, как я вижу запуск файлов из AkelPad (включая компиляцию).
My vision of running a file from within AkelPad (including compiling).
RunMe.js

Code:

/**********************************************************************
* RunMe.js v.2.0 *
* (C) DV, Dec 2012 *
**********************************************************************/
/*
* Simple usage:
* Call("Scripts::Main", 1, "RunMe.js")
* To specify command line manually:
* Call("Scripts::Main", 1, "RunMe.js", "1")
*
* Format of 'oCommands':
* var oCommands = {
* "extensions-1" :
* "command-1" ,
* "extensions-2" :
* "command-2" ,
* ...
* };
* where 'extensions' are space-separated extensions e.g. "cpp cxx hxx"
* and 'command' is a command to be executed.
* You can use empty command ("") to do nothing.
* You can use empty extension ("") in the end of 'oCommands' to match
* any file extension which was not matched by previous items.
*
* The command may include:
* %a - AkelPad directory: "C:\Program Files\AkelPad"
* %d - file directory: "C:", "C:\Program Files"
* %e - file extension: "txt", "js"
* %f - file full pathname: "C:\File.txt"
* %n - file name: "File"
*
* If a command is started with ':', this command should contain a name
* of internal function to be executed. For example:
* var oCommands = {
* ...
* "js" :
* ":run_js(\"%n.%e\")" ,
* ...
* };
* function run_js(fileName)
* {
* AkelPad.Call("Scripts::Main", 1, fileName);
* }
*
* Note:
* When using a compiler or an interpreter, you can specify a command
* in a form of "cmd /c your-command-here || pause".
* This makes the console window remain in case of error from the
* compiler/interpreter.
*
**********************************************************************/

// user-defined set of file extensions and commands
var oCommands = {
"ini txt nfo coder" :
"" /* do nothing */ ,
"js" :
":run_js(\"%d\", \"%n.%e\")" ,
"c" :
"cmd /c C:\\tools\\tcc\\tcc.exe -luser32 -run \"%f\" || pause" ,
"cpp cc cxx hxx hpp hh h" :
":run_cpp(\"%f\")" ,
"awk" :
"cmd /c C:\\tools\\gawk\\gawk.exe -f \"%f\" || pause" ,
"nsi nsis" :
":run_nsis(\"%f\")" ,
"py" :
"cmd /c python \"%f\" || pause" ,
"pas pp" :
":run_pas(\"%f\")" ,

/* Place new commands _before_ this line !!! */
"" /* apply to any remained extension */ :
":run_anyfile(\"%f\")"
};

// user-defined functions
function run_js(fileDir, fileName)
{
if (fileDir.toUpperCase() == getAkelPadDir(5).toUpperCase())
{
// script is under AkelPad's Scripts directory
AkelPad.Call("Scripts::Main", 1, fileName);
}
else
{
// call default js interpreter
runCommand("\"" + fileDir + "\\" + fileName + "\"", "", 0); // do not capture output
}
}

function run_pas(filePathName)
{
var sPath = envGetVar("PATH");
var sPathNew = sPath + ";C:\\FPC\\2.6.0\\bin\\i386-win32";
envSetVar("PATH", sPathNew); // adding path to fpc.exe
var cmd1 = "fpc.exe \"%f\""; // compile
var cmd2 = "\"%n.exe\""; // run the .exe in Log::Output
// var cmd2 = "rundll32.exe shell32,ShellExec_RunDLL \"%n.exe\""; // run the .exe
var cmd = "cmd /c " + cmd1 + " && " + cmd2;
cmd = prepareCommand(cmd, filePathName); // pre-process %f, %n etc.
setCurrentDir(getFileDir(filePathName));
runCommand(cmd); // run
envSetVar("PATH", sPath); // restoring original PATH
}

function run_cpp(filePathName)
{
var useMinGW = false;
if (useMinGW)
{
/* MinGW G++ */
var compilerExe = "C:\\MinGW\\bin\\g++.exe";
var compilerDir = getFileDir(compilerExe);
// cmd1: compile the source file (object file is created)
var cmd1 = compilerExe + " -c \"%f\" -o \"%d\\%n.o\"";
// cmd2: create the executable (from the object file)
var cmd2 = compilerExe + " \"%d\\%n.o\" -o \"%d\\%n.exe\"";
// cmd3: run the executable
var cmd3 = "\"%d\\%n.exe\"";
// cmd: the whole command line
var cmd = "cmd /c " + cmd1 + " && " + cmd2 + " && " + cmd3 + " || pause";
cmd = prepareCommand(cmd, filePathName);
//WScript.Echo(cmd);
runCommand(cmd, compilerDir);
}
else
{
/* Visual Studio 9 (2008) */
var sProgramFiles = envGetVar("ProgramFiles");
var sProgramFilesx86 = envGetVar("ProgramFiles(x86)");
if (sProgramFilesx86.length == 0)
sProgramFilesx86 = sProgramFiles;
else
sProgramFiles = sProgramFilesx86.substr(0, sProgramFilesx86.length - 6);
var sVcDir = sProgramFilesx86 + "\\Microsoft Visual Studio 9.0\\VC";
var sVsCommon = sProgramFilesx86 + "\\Microsoft Visual Studio 9.0\\Common7\\IDE";
var sMsSDK = sProgramFiles + "\\Microsoft SDKs\\Windows\\v6.0A";
// update PATH environment variable...
var sPath = envGetVar("PATH");
var sPathNew = sVcDir + "\\bin;" + sMsSDK + "\\bin;" + sVsCommon + ";" + sPath;
envSetVar("PATH", sPathNew); //WScript.Echo(envGetVar("PATH"));
// update INLUDE environment variable...
var sInclude = envGetVar("INCLUDE");
var sIncludeNew = sMsSDK + "\\include;" + sVcDir + "\\include;" + sInclude;
envSetVar("INCLUDE", sIncludeNew); //WScript.Echo(envGetVar("INCLUDE"));
// update LIB environment variable...
var sLib = envGetVar("LIB");
var sLibNew = sMsSDK + "\\lib;" + sVcDir + "\\lib;" + sLib;
envSetVar("LIB", sLibNew); //WScript.Echo(envGetVar("LIB"));
// compile...
var fileDir = getFileDir(filePathName);
var cmd1 = "cl /O1 \"%f\" /link kernel32.lib user32.lib comctl32.lib gdi32.lib Advapi32.lib ole32.lib Oleaut32.lib";
var cmd2 = "\"%d\\%n.exe\"";
var cmd = "cmd /c " + cmd1 + " && " + cmd2 + " || pause";
cmd = prepareCommand(cmd, filePathName);
//WScript.Echo(cmd);
runCommand(cmd, fileDir);
// restore original environment variables...
envSetVar("PATH", sPath);
envSetVar("INCLUDE", sInclude);
envSetVar("LIB", sLib);
}
}

function run_nsis(filePathName)
{
var sProgramFiles = getProgramFilesDir("x86");
var cmd = "\"" + sProgramFiles + "\\NSIS\\makensisw.exe\" \"" + filePathName + "\"";
runCommand(cmd, "", 0); // do not capture output
}

function run_anyfile(filePathName)
{
var cmd = "rundll32.exe shell32,ShellExec_RunDLL \"" + filePathName + "\"";
runCommand(cmd, "", 0); // do not capture output
}

///////////////////////////////////////////////////////////////////////
// script engine, do not modify...

AkelPad.ScriptNoMutex(4 /*ULT_LOCKMULTICOPY*/ );

if (!selfTest())
{
WScript.Quit();
}

var oSys = undefined;

var filePathName = AkelPad.GetEditFile(0);
if (filePathName.toUpperCase() == WScript.ScriptFullName.toUpperCase())
{
WScript.Echo("Don\'t want to execute self :)");
WScript.Quit();
}

var isModified = AkelPad.GetEditModified(0);
RunFile(filePathName, isModified);

function RunFile(filePathName, isModified)
{
var fileExt = getFileExt(filePathName).toLowerCase();
if (fileExt.length > 0)
{
var isProcessed = false;
for (var ext in oCommands)
{
ext = ext.toLowerCase();
if (ext.length == 0 || isOneOf(fileExt, ext))
{
var cmd = oCommands[ext];
if (cmd.length > 0)
{
if (isModified)
AkelPad.Command(4105); // save file

if (WScript.Arguments.length > 0)
{
if (WScript.Arguments(0) == "1")
{
var oSettings;
var cmd1;
var cmd2;

cmd1 = undefined;
oSettings = AkelPad.ScriptSettings();
if (oSettings.Begin(WScript.ScriptBaseName, 0x1 /*POB_READ*/))
{
cmd1 = oSettings.Read(ext, 3 /*PO_STRING*/);
oSettings.End();
}
if ((cmd1 == undefined) || (cmd1 == ""))
{
cmd1 = cmd;
}
cmd2 = AkelPad.InputBox(AkelPad.GetMainWnd(), WScript.ScriptName, "command:", cmd1);
if (cmd2 == undefined)
WScript.Quit();

if (cmd2 != cmd1)
{
if (oSettings.Begin(WScript.ScriptBaseName, 0x2 /*POB_SAVE*/))
{
oSettings.Write(ext, 3 /*PO_STRING*/, cmd2);
oSettings.End();
}
}
if (cmd2 == "")
WScript.Quit();

cmd = cmd2;
}
}

cmd = prepareCommand(cmd, filePathName);
if (cmd.charAt(0) == ':')
{
cmd = cmd.replace(/\\/g, "\\\\");
eval(cmd.substr(1));
}
else
{
runCommand(cmd, "");
}
}
isProcessed = true;
break;
}
}

if (!isProcessed)
WScript.Echo("No matched extension found!");
}
else
WScript.Echo("File extension is empty!");
}

function envGetVar(varName)
{
var varValue = "";
var lpBuffer;
if (lpBuffer = AkelPad.MemAlloc(8192*_TSIZE))
{
if (oSys == undefined)
oSys = AkelPad.SystemFunction();
oSys.Call("kernel32::GetEnvironmentVariable" + _TCHAR, varName, lpBuffer, 8192);
varValue = AkelPad.MemRead(lpBuffer, _TSTR);
AkelPad.MemFree(lpBuffer);
}
return varValue;
}

function envSetVar(varName, varValue)
{
if (oSys == undefined)
oSys = AkelPad.SystemFunction();
oSys.Call("kernel32::SetEnvironmentVariable" + _TCHAR, varName, varValue);
}

function getCurrentDir()
{
var dir = "";
var lpBuffer;
if (lpBuffer = AkelPad.MemAlloc(8192*_TSIZE))
{
if (oSys == undefined)
oSys = AkelPad.SystemFunction();
oSys.Call("kernel32::GetCurrentDirectory" + _TCHAR, 8192, lpBuffer);
dir = AkelPad.MemRead(lpBuffer, _TSTR);
AkelPad.MemFree(lpBuffer);
}
return dir;
}

function setCurrentDir(dir)
{
if (oSys == undefined)
oSys = AkelPad.SystemFunction();
oSys.Call("kernel32::SetCurrentDirectory" + _TCHAR, dir);
}

function getProgramFilesDir(bits)
{
var sProgramFiles = envGetVar("ProgramFiles");
var sProgramFilesx86 = envGetVar("ProgramFiles(x86)");
if (sProgramFilesx86.length == 0)
sProgramFilesx86 = sProgramFiles;
else if (sProgramFiles.length == 0)
sProgramFiles = sProgramFilesx86.substr(0, sProgramFilesx86.length - 6);

if (bits == undefined || bits != 32 || bits != "x86")
return sProgramFiles;
else
return sProgramFilesx86;
}

function getAkelPadDir(adtype)
{
var s = AkelPad.GetAkelDir(adtype);
return s;
}

function getFileExt(filePathName) // file extension w/o leading '.'
{
var n = filePathName.lastIndexOf(".");
return (n >= 0) ? filePathName.substr(n + 1) : "";
}

function getFileName(filePathName) // file name w/o extension
{
var n2 = filePathName.lastIndexOf(".");
var n1 = filePathName.lastIndexOf("\\");
var nn = filePathName.lastIndexOf("/");
if (nn > n1) n1 = nn;
var s = "";
if (n1 < 0 && n2 < 0)
s = filePathName;
else if (n1 < 0)
s = filePathName.substr(0, n2);
else if (n2 < 0)
s = filePathName.substr(n1 + 1);
else if (n2 > n1)
s = filePathName.substr(n1 + 1, n2 - n1 - 1);
return s;
}

function getFileDir(filePathName) // file directory w/o trailing '\'
{
var n = filePathName.lastIndexOf("\\");
var nn = filePathName.lastIndexOf("/");
if (nn > n) n = nn;
return (n >= 0) ? filePathName.substr(0, n) : filePathName;
}

function isOneOf(s, t) // t includes s
{
var s1 = " " + s + " ";
var t1 = " " + t + " ";
return (t1.indexOf(s1) >= 0);
}

function prepareCommand(cmd, filePathName)
{
if (cmd.indexOf("%a") >= 0)
{
cmd = cmd.replace(/%a/g, getAkelPadDir(0));
}
if (cmd.indexOf("%d") >= 0)
{
cmd = cmd.replace(/%d/g, getFileDir(filePathName));
}
if (cmd.indexOf("%e") >= 0)
{
cmd = cmd.replace(/%e/g, getFileExt(filePathName));
}
if (cmd.indexOf("%f") >= 0)
{
cmd = cmd.replace(/%f/g, filePathName);
}
if (cmd.indexOf("%n") >= 0)
{
cmd = cmd.replace(/%n/g, getFileName(filePathName));
}
return cmd;
}

function runCommand(cmd, dir, captureOutput)
{
if (captureOutput == undefined || captureOutput != 0)
{
// by default, capture output
if (/[ ]*\|\|[ ]*pause[ ]*$/.test(cmd))
{
// exclude trailing "|| pause" from 'cmd' if present
var n = cmd.lastIndexOf("||");
cmd = cmd.substr(0, n);
}
runLogOutputCmd(cmd, dir);
}
else
{
if (dir == undefined || dir == "")
{
var WshShell = new ActiveXObject("WScript.Shell");
try
{
WshShell.Run(cmd, 1, false);
}
catch (error)
{
var hMainWnd = AkelPad.GetMainWnd();
var s = "Failed to execute:\n " + cmd;
AkelPad.MessageBox(hMainWnd, s, WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/);
}
}
else
{
AkelPad.Exec(cmd, dir);
}
}
}

function runLogOutputCmd(cmd, dir)
{
var lpState;

// the command (child process) is about to be run...
AkelPad.Call("Log::Output", 1, cmd, dir);

// wait until the child process will actually be started...
lpState = AkelPad.MemAlloc(4 /*sizeof(DWORD)*/);
if (lpState)
{
var nState = -1;

while (nState != 0 && nState < 4)
{
AkelPad.Call("Log::Output", 3, lpState);
nState = AkelPad.MemRead(lpState, 3 /*DT_DWORD*/);
//AkelPad.Call("Log::Output", 5, "State: " + dwState + "\n");
WScript.Sleep(200);
}

AkelPad.MemFree(lpState);
}
else
{
// wait to be sure the process has been started
WScript.Sleep(2000);
}
}

function selfTest()
{
if (oCommands == undefined)
{
WScript.Echo("\'oCommands\' is undefined.\nNothing to do.");
return false;
}

var isEmpty = true;
var hasEmptyExt = false;
for (var ext in oCommands)
{
if (ext == undefined)
{
WScript.Echo("Undefined extension found.\nCan not proceed.");
return false;
}
if (oCommands[ext] == undefined)
{
WScript.Echo("oCommands[\"" + ext + "\"]: command is undefined.\nCan not proceed.");
return false;
}
if (hasEmptyExt)
{
WScript.Echo("Empty extension found while there are more items below.\nEmpty extension matches any remaining file extension, so such item\nshould be the last (otherwise all the further items will be ignored).");
return false;
}
if (ext.length == 0)
{
hasEmptyExt = true;
}
isEmpty = false;
}

if (isEmpty)
{
WScript.Echo("\'oCommands\' is empty.\nNothing to do.");
return false;
}

return true;
}

Чтобы выяснить пути к Visual C++:
detect_vc.bat

Code:

@echo off

set PathToProgramFiles=%ProgramFiles%
if "%ProgramFiles(x86)%" == "" (
set PathToProgramFilesx86=%ProgramFiles%
) else (
set PathToProgramFilesx86=%ProgramFiles(x86)%
)

echo.
echo Detecting VC...
for /D %%c in (
"%PathToProgramFilesx86%\Microsoft Visual Studio\VC98",
"%PathToProgramFilesx86%\Microsoft Visual Studio .NET\Vc7",
"%PathToProgramFilesx86%\Microsoft Visual Studio .NET 2003\Vc7",
"%PathToProgramFilesx86%\Microsoft Visual C++ Toolkit 2003",
"%PathToProgramFilesx86%\Microsoft Visual Studio 8\VC",
"%PathToProgramFilesx86%\Microsoft Visual Studio 9.0\VC",
"%PathToProgramFilesx86%\Microsoft Visual Studio 10.0\VC"
) do (
if exist %%c (
if exist "%%~c\bin" (
call :DetectDetails %%c
)
)
)
goto End

:DetectDetails
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio\VC98" (
if exist "%~1\..\Common\MSDev98" (
echo.
echo * VC6 /1998/ detected:
echo set VCDIR=%~1
echo set VSCOMMON=%%VCDIR%%\..\Common\MSDev98
echo set PATH=%%VCDIR%%\Bin;%%VSCOMMON%%\Bin;%%PATH%%
echo set INCLUDE=%%VCDIR%%\include;%%INCLUDE%%
echo set LIB=%%VCDIR%%\lib;%%LIB%%
)
goto End
)
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio .NET\Vc7" (
if exist "%~1\PlatformSDK" (
if exist "%~1\atlmfc" (
echo.
echo * VC7.0 /2002/ detected:
echo set VCDIR=%~1
echo set MSSDK=%%VCDIR%%\PlatformSDK
echo set ATLMFC=%%VCDIR%%\atlmfc
echo set PATH=%%VCDIR%%\bin;%%MSSDK%%\bin;%%PATH%%
echo set INCLUDE=%%MSSDK%%\include;%%VCDIR%%\include;%%ATLMFC%%\include;%%INCLUDE%%
echo set LIB=%%MSSDK%%\lib;%%VCDIR%%\lib;%%LIB%%
)
)
goto End
)
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio .NET 2003\Vc7" (
if exist "%~1\PlatformSDK" (
if exist "%~1\atlmfc" (
echo.
echo * VC7.1 /2003/ detected:
echo set VCDIR=%~1
echo set MSSDK=%%VCDIR%%\PlatformSDK
echo set ATLMFC=%%VCDIR%%\atlmfc
echo set PATH=%%VCDIR%%\bin;%%MSSDK%%\bin;%%PATH%%
echo set INCLUDE=%%MSSDK%%\include;%%VCDIR%%\include;%%ATLMFC%%\include;%%INCLUDE%%
echo set LIB=%%MSSDK%%\lib;%%VCDIR%%\lib;%%LIB%%
)
)
goto End
)
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual C++ Toolkit 2003" (
echo Microsoft Visual C++ Toolkit 2003 - no info yet...
goto End
)

if exist "%~1\..\Common7\IDE" (
echo.
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio 8\VC" (
echo * VC8 /2005/ detected:
goto DetectDetails_Proceed
)
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio 9.0\VC" (
echo * VC9 /2008/ detected:
goto DetectDetails_Proceed
)
if "%~1" == "%PathToProgramFilesx86%\Microsoft Visual Studio 10.0\VC" (
echo * VC10 /2010/ detected:
goto DetectDetails_Proceed
)
:DetectDetails_Proceed
echo set VCDIR=%~1
echo set VSCOMMON=%%VCDIR%%\..\Common7\IDE
if exist "%~1\PlatformSDK" (
echo set MSSDK=%%VCDIR%%\PlatformSDK
)
for /D %%s in (
"%PathToProgramFiles%\Microsoft Platform SDK for Windows Server 2003 R2",
"%PathToProgramFiles%\Microsoft Platform SDK",
"%PathToProgramFiles%\Microsoft SDKs\Windows\v6.0A",
"%PathToProgramFiles%\Microsoft SDKs\Windows\v7.0",
"%PathToProgramFiles%\Microsoft SDKs\Windows\v7.0A"
) do (
if exist %%s (
if exist "%%~s\bin" (
if exist "%%~s\lib" (
if exist "%%~s\include" (
echo set MSSDK=%%~s
)
)
)
)
)
echo set PATH=%%VCDIR%%\bin;%%MSSDK%%\bin;%%VSCOMMON%%;%%PATH%%
echo set INCLUDE=%%MSSDK%%\include;%%VCDIR%%\include;%%INCLUDE%%
echo set LIB=%%MSSDK%%\lib;%%VCDIR%%\lib;%%LIB%%
)
goto End

:End

Instructor · Site Admin Joined: 06 Jul 2006 Posts: 4649

Export highlighted text to HTML or BBCode.

CodePoster.js

Code:

// http://akelpad.sourceforge.net/forum/viewtopic.php?p=13021#13021
// Version v1.9
//
//
//// Export highlighted text to HTML or BBCode.
//
// Arguments:
// -Format="html" -Output highlighting in HTML format (default is "BBCode").
// -Enclose="[code]${result}[/code]" -Enclose result string (default is "<pre>${result}</pre>").
// -XHTML=false -use " " instead of " " (default is true).
// -Strict=true -use "<span style=" instead of "<font" (default is false).
// -Info=false -Don't add link to CodePoster.js script (default is true).
//
// Usage:
// Call("Scripts::Main", 1, "CodePoster.js", `-Format="BBCode" -Enclose="[code]${result}[/code]"`)

//Arguments
var pFormat=AkelPad.GetArgValue("Format", "BBCode");
var pEnclose=AkelPad.GetArgValue("Enclose", "<pre>${result}</pre>");
var bXHTML=AkelPad.GetArgValue("XHTML", true);
var bStrict=AkelPad.GetArgValue("Strict", false);
var bInfo=AkelPad.GetArgValue("Info", true);

//Variables
var hMainWnd=AkelPad.GetMainWnd();
var hWndEdit=AkelPad.GetEditWnd();
var oSys=AkelPad.SystemFunction();
var dwSystemTextColor=oSys.Call("user32::GetSysColor", 8 /*COLOR_WINDOWTEXT*/);
var lpGH;
var lpCallback;
var pText="";
var pColorBegin;
var pColorEnd;
var lpMemText=0;
var nMemTextBytes;
var bBBCode;
var pScriptURL="";

if (hWndEdit)
{
if (pFormat.toLowerCase() == "html")
bBBCode=false;
else
bBBCode=true;

if (bInfo)
pScriptURL="http://akelpad.sourceforge.net/forum/viewtopic.php?p=13021#13021";

if (lpGH=AkelPad.MemAlloc(_X64?80:40 /*sizeof(AEGETHIGHLIGHT)*/))
{
if (lpCallback=oSys.RegisterCallback("GetHighLightCallback"))
{
AkelPad.MemCopy(lpGH + (_X64?16:8) /*offsetof(AEGETHIGHLIGHT, lpCallback)*/, lpCallback, 2 /*DT_QWORD*/);
AkelPad.MemCopy(lpGH + (_X64?72:36) /*offsetof(AEGETHIGHLIGHT, dwFlags)*/, 0x7 /*AEGHF_NOSELECTION|AEGHF_NOACTIVELINETEXT|AEGHF_NOACTIVELINEBK*/, 3 /*DT_DWORD*/);

if (!AkelPad.SendMessage(hWndEdit, 3123 /*AEM_EXGETSEL*/, lpGH + (_X64?24:12) /*offsetof(AEGETHIGHLIGHT, crText.ciMin)*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/))
{
AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 1 /*AEGI_FIRSTCHAR*/, lpGH + (_X64?24:12) /*offsetof(AEGETHIGHLIGHT, crText.ciMin)*/);
AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 2 /*AEGI_LASTCHAR*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/);
}

//Calculate nMemTextBytes
nMemTextBytes=0;
AkelPad.SendMessage(hWndEdit, 3595 /*AEM_HLGETHIGHLIGHT*/, 0, lpGH);

if (lpMemText=AkelPad.MemAlloc(nMemTextBytes + _TSIZE))
{
//Fill lpMemText
nMemTextBytes=0;
AkelPad.SendMessage(hWndEdit, 3595 /*AEM_HLGETHIGHLIGHT*/, 0, lpGH);

pText=AkelPad.MemRead(lpMemText, _TSTR);
AkelPad.MemFree(lpMemText);
}
oSys.UnregisterCallback(lpCallback);
}
AkelPad.MemFree(lpGH);
}

if (pText)
{
pText=pEnclose.replace(/\$\{result\}/, pText);
if (bInfo)
{
if (bBBCode)
pText+="[color=Purple][size=1]* " + GetLangString(0) + " [URL=" + pScriptURL + "]CodePoster.js[/URL] " + GetLangString(1) + "[/size][/color]\r";
else
{
if (bStrict)
pText+="\r* " + GetLangString(0) + " <a href=\"" + pScriptURL + "\">CodePoster.js</a> " + GetLangString(1) + "\r";
else
pText+="\r* " + GetLangString(0) + " <a href=\"" + pScriptURL + "\">CodePoster.js</a> " + GetLangString(1) + "\r";
}
}
AkelPad.SetClipboardText(pText);
AkelPad.MessageBox(hMainWnd, GetLangString(2), WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
}
}

function GetHighLightCallback(dwCookie, crAkelRange, crRichRange, hlp)
{
var nRangeStart=AkelPad.MemRead(crRichRange + 0 /*offsetof(CHARRANGE64, crRichRange.cpMin)*/, 2 /*DT_QWORD*/);
var nRangeEnd=AkelPad.MemRead(crRichRange + (_X64?8:4) /*offsetof(CHARRANGE64, crRichRange.cpMax)*/, 2 /*DT_QWORD*/);
var pRangeText;
var dwFontStyle=AkelPad.MemRead(hlp + (_X64?16:16) /*offsetof(AEHLPAINT, dwFontStyle)*/, 3 /*DT_DWORD*/);
var dwActiveTextColor=AkelPad.MemRead(hlp + (_X64?8:8) /*offsetof(AEHLPAINT, dwActiveText)*/, 3 /*DT_DWORD*/);
var dwPaintType=AkelPad.MemRead(hlp + (_X64?20:20) /*offsetof(AEHLPAINT, dwPaintType)*/, 3 /*DT_DWORD*/);

if (pRangeText=AkelPad.GetTextRange(nRangeStart, nRangeEnd))
{
if (!bBBCode)
{
//pRangeText=pRangeText.replace(/[ ]{2,}/g, " ");
pRangeText=pRangeText.replace(/&/g, "&");
pRangeText=pRangeText.replace(/</g, "<");
pRangeText=pRangeText.replace(/>/g, ">");
pRangeText=pRangeText.replace(/"/g, """);
}

if (dwPaintType & 0x80 /*AEHPT_LINK*/)
{
if (bBBCode)
pRangeText="[url=" + pRangeText + "]" + pRangeText + "[/url]";
else
pRangeText="<a href=\"" + pRangeText + "\">" + pRangeText + "</a>";
}
if (dwFontStyle == 2 /*AEHLS_FONTBOLD*/)
{
if (bBBCode)
pRangeText="[b]" + pRangeText + "[/b]";
else
pRangeText="" + pRangeText + "";
}
else if (dwFontStyle == 3 /*AEHLS_FONTITALIC*/)
{
if (bBBCode)
pRangeText="[i]" + pRangeText + "[/i]";
else
pRangeText="" + pRangeText + "";
}
else if (dwFontStyle == 4 /*AEHLS_FONTBOLDITALIC*/)
{
if (bBBCode)
pRangeText="[b][i]" + pRangeText + "[/i][/b]";
else
pRangeText="" + pRangeText + "";
}

if (dwSystemTextColor != dwActiveTextColor)
{
if (bBBCode)
nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "[color=#" + rgb2hex(dwActiveTextColor) + "]" + pRangeText + "[/color]", _TSTR) - _TSIZE;
else
{
if (bStrict)
nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "" + pRangeText + "", _TSTR) - _TSIZE;
else
nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "" + pRangeText + "", _TSTR) - _TSIZE;
}
}
else nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, pRangeText, _TSTR) - _TSIZE;
}

if (IsLastCharInLine(crAkelRange + (_X64?24:12) /*offsetof(AECHARRANGE, ciMax)*/) && IndexCompare(crAkelRange + (_X64?24:12) /*offsetof(AECHARRANGE, ciMax)*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/))
{
if (bBBCode)
nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "\r", _TSTR) - _TSIZE;
else
nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "\r" + (bXHTML?" ":" "), _TSTR) - _TSIZE;
}
return 0;
}

function rgb2hex(dwColor)
{
var pHexColor;

pHexColor=dwColor.toString(16)
while (pHexColor.length < 6) pHexColor="0" + pHexColor;
return pHexColor.substr(4, 2) + pHexColor.substr(2, 2) + pHexColor.substr(0, 2);
}

function IsLastCharInLine(lpCharIndex)
{
var nCharInLine=AkelPad.MemRead(lpCharIndex + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
var lpLine=AkelPad.MemRead(lpCharIndex + (_X64?8:4) /*offsetof(AECHARINDEX, lpLine)*/, 2 /*DT_QWORD*/);
var nLineLen=AkelPad.MemRead(lpLine + (_X64?24:12) /*offsetof(AELINEDATA, nLineLen)*/, 3 /*DT_DWORD*/);
var nLineBreak=AkelPad.MemRead(lpLine + (_X64?28:16) /*offsetof(AELINEDATA, nLineBreak)*/, 3 /*DT_DWORD*/);

if (nCharInLine == nLineLen && nLineBreak != 9 /*AELB_WRAP*/)
return true;
return false;
}

function IndexCompare(lpCharIndex1, lpCharIndex2)
{
var nCharInLine1=AkelPad.MemRead(lpCharIndex1 + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
var nLine1=AkelPad.MemRead(lpCharIndex1 + 0 /*offsetof(AECHARINDEX, nLine)*/, 3 /*DT_DWORD*/);
var nCharInLine2=AkelPad.MemRead(lpCharIndex2 + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
var nLine2=AkelPad.MemRead(lpCharIndex2 + 0 /*offsetof(AECHARINDEX, nLine)*/, 3 /*DT_DWORD*/);

if (nLine1 == nLine2 && nCharInLine1 == nCharInLine2)
return 0;
if (nLine1 < nLine2 || (nLine1 == nLine2 && nCharInLine1 < nCharInLine2))
return -1;
return 1;
}

function GetLangString(nStringID)
{
var nLangID=AkelPad.GetLangId(1 /*LANGID_PRIMARY*/);

if (nLangID == 0x19) //LANG_RUSSIAN
{
if (nStringID == 0)
return "\u041F\u043E\u0434\u0441\u0432\u0435\u0447\u0435\u043D\u043E\u0020\u0441\u0020\u043F\u043E\u043C\u043E\u0449\u044C\u044E\u0020\u0441\u043A\u0440\u0438\u043F\u0442\u0430";
if (nStringID == 1)
return "\u0434\u043B\u044F AkelPad";
if (nStringID == 2)
return "\u041A\u043E\u0434\u0020\u043F\u043E\u043C\u0435\u0449\u0435\u043D\u0020\u0432\u0020\u0431\u0443\u0444\u0435\u0440\u0020\u043E\u0431\u043C\u0435\u043D\u0430\u002E";
}
else
{
if (nStringID == 0)
return "Highlighted with script";
if (nStringID == 1)
return "for AkelPad";
if (nStringID == 2)
return "Code has been placed in clipboard.";
}
return "";
}

Example

KDJ · Joined: 06 Mar 2010 Posts: 1068 Location: Poland

Translates text via Google, MS Bing and Yandex - Part One.
Part Two is in the next post. Both parts should be placed in one file.
In one file is here: KDJ.zip

I used some code from the script TranslateWithGoogleAPI.js, written by VladSh, thanks for translator idea.

Translator.js

Code:

// Translator.js - ver. 2013-05-03
//
// On line translator via Google, MS Bing and Yandex.
//
// Usage in AkelPad window:
// Call("Scripts::Main", 1, "Translator.js")
// Call("Scripts::Main", 1, "Translator.js", "en ru") - translates from English to Russian
// Call("Scripts::Main", 1, "Translator.js", "auto pl 1") - autodetect source language, translates to Polish, source text from Clipboard
//
// Usage in command line (required AkelEdit.dll and registration Scripts.dll):
// Wscript.exe Translator.js
//
// Shortcut keys in dialog box:
// Tab - change edit panel focus source <-> target (double-panel mode)
// Ctrl+Enter, - double-panel mode - translates entire text from source panel
// - single-panel mode - translates selected text from AkelPad window or text from Clipboard
// Alt+Enter - works as Ctrl+Enter, but translated text will be added at the end in target panel
// Shift+Enter - double-window mode - translates selected text from source panel;
// if is not selection - translates entire text
// - single-panel mode - translates selected text from AkelPad window or text from Clipboard
// Ctrl+L - listen entire text from active edit panel
// Ctrl+Shift+L - listen selected text from active edit panel
// Alt+U - switch languages
// Shift+Alt+U - switch languages and texts (double-panel mode only)
// Alt+F1 - choose translator
// Alt+1 - choose from language
// Alt+2 - choose to language
// Ctrl+F - switch font AkelPad/GUI/other
// Ctrl+U - switch wordwrap
// Ctrl+W - source panel on/off
// Alt+S - settings
// Alt+-+ - change opaque/transparency level of dialog box
// F4 - maximize/restore window
// Right click - context menu in edit panels

var oFSO = new ActiveXObject("Scripting.FileSystemObject");
var sIniFile = WScript.ScriptFullName.substring(0, WScript.ScriptFullName.lastIndexOf(".")) + ".ini";

var sTxtCaption;
var sTxtUse;
var sTxtFromLang;
var sTxtToLang;
var sTxtAutoDetect;
var sTxtTranslate;
var sTxtTranslateP;
var sTxtOptions;
var sTxtSource;
var sTxtTarget;
var sTxtSettings;
var sTxtUndo;
var sTxtRedo;
var sTxtCut;
var sTxtCopyCB;
var sTxtInsertAP;
var sTxtPasteCB;
var sTxtPasteAP;
var sTxtDelete;
var sTxtSelectAll;
var sTxtEntireText;
var sTxtInterface;
var sTxtSourceInCB;
var sTxtSourceWnd;
var sTxtLoadText;
var sTxtImmediate;
var sTxtFontAP;
var sTxtFontGUI;
var sTxtWordWrap;
var sTxtSortLang;
var sTxtSortCode;
var sTxtSortName;
var sTxtOwnKey;
var sTxtRegister;
var sTxtOK;
var sTxtCancel;
var sTxtError;
var sTxtNoText;
var sTxtNoSupport;
var sTxtNoInternet;
var sTxtWait;
var sTxtUndefined;
var sTxtRegScripts;
var sTxtNoLibrary;

var aLangs = [
["af" , "", 1, 0, 0, 1], /*1 - available in Google, 0 - not in Bing, 0 - not in Yandex, 1 - available Google TTS*/
["ar" , "", 1, 1, 0, 1],
["be" , "", 1, 0, 0, 0],
["bg" , "", 1, 1, 1, 0],
["ca" , "", 1, 1, 0, 1],
["cs" , "", 1, 1, 1, 1],
["cy" , "", 1, 0, 0, 1],
["da" , "", 1, 1, 0, 1],
["de" , "", 1, 1, 1, 1],
["el" , "", 1, 1, 0, 1],
["en" , "", 1, 1, 1, 1],
["eo" , "", 1, 0, 0, 1],
["es" , "", 1, 1, 1, 1],
["et" , "", 1, 1, 0, 0],
["fa" , "", 1, 1, 0, 0],
["fi" , "", 1, 1, 0, 1],
["fr" , "", 1, 1, 1, 1],
["ga" , "", 1, 0, 0, 0],
["gl" , "", 1, 0, 0, 0],
["hi" , "", 1, 1, 0, 1],
["hr" , "", 1, 0, 0, 1],
["ht" , "", 1, 1, 0, 1],
["hu" , "", 1, 1, 0, 1],
["id" , "", 1, 1, 0, 1],
["is" , "", 1, 0, 0, 1],
["it" , "", 1, 1, 1, 1],
["iw" , "", 1, 1, 0, 0],
["ja" , "", 1, 1, 0, 1],
["ko" , "", 1, 1, 0, 1],
["la" , "", 1, 0, 0, 1],
["lt" , "", 1, 1, 0, 0],
["lv" , "", 1, 1, 0, 1],
["mk" , "", 1, 0, 0, 1],
["ms" , "", 1, 1, 0, 0],
["mt" , "", 1, 0, 0, 0],
["nl" , "", 1, 1, 0, 1],
["no" , "", 1, 1, 0, 1],
["pl" , "", 1, 1, 1, 1],
["pt" , "", 1, 1, 0, 1],
["ro" , "", 1, 1, 1, 1],
["ru" , "", 1, 1, 1, 1],
["sk" , "", 1, 1, 0, 1],
["sl" , "", 1, 1, 0, 0],
["sq" , "", 1, 0, 0, 1],
["sr" , "", 1, 0, 1, 1],
["sv" , "", 1, 1, 0, 1],
["sw" , "", 1, 0, 0, 1],
["th" , "", 1, 1, 0, 1],
["tl" , "", 1, 0, 0, 0],
["tr" , "", 1, 1, 1, 1],
["uk" , "", 1, 1, 1, 0],
["ur" , "", 1, 1, 0, 0],
["vi" , "", 1, 1, 0, 1],
["yi" , "", 1, 0, 0, 0],
["zh" , "", 1, 0, 0, 1],
["zh-CN", "", 1, 1, 0, 1],
["zh-TW", "", 1, 1, 0, 1]];

var aAPIs = [{"Name": "Google",
"APIkey": "",
"APIkeyP": "",
"RegistrURL": "",
"AutoDetect": 1,
"TextLen": 48000},
{"Name": "MS Bing",
"APIkey": "49F91281913BE5C04C18F184C4A14ED6097F6AD3",
"APIkeyP": "",
"RegistrURL": "http://www.bing.com/developers",
"AutoDetect": 1,
"TextLen": 10000}, //POST method
//"TextLen": 3500}, //GET method
{"Name": "Yandex",
"APIkey": "",
"APIkeyP": "",
"RegistrURL": "",
"AutoDetect": 0,
"TextLen": 10000}];
var oSelect = {"API": 0,
"FromLang": 0,
"ToLang" : 0,
"Source1" : 0,
"Source2" : 0,
"Target1" : 0,
"Target2" : 0};
var oWndMin = {"W": 656,
"H": 200};
var oWndPos = {"X": 100,
"Y": 120,
"W": oWndMin.W,
"H": oWndMin.H,
"Max": 0};

var nOpaque = 255;
var bSourceInCB = 0;
var bSourceWnd = 1;
var bLoadText = 1;
var bImmediate = 0;
var bFontAP = 0;
var bFontGUI = 0;
var bWordWrap = 1;
var bSortCode = 0;
var nDetectLang = -1;
var sSource = "";
var sTarget = "";
var sLanguage = "";
var aFont;

ReadIniFile();
ReadInterfaceLang();
GetAkelPadObject();

var oSys = AkelPad.SystemFunction();
var hInstanceDLL = AkelPad.GetInstanceDll();
var sClassName = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstanceDLL;
var hWndDlg;

if (hWndDlg = oSys.Call("User32::FindWindowExW", 0, 0, sClassName, 0))
{
if (! oSys.Call("User32::IsWindowVisible", hWndDlg))
oSys.Call("User32::ShowWindow", hWndDlg, 8 /*SW_SHOWNA*/);
if (oSys.Call("User32::IsIconic", hWndDlg))
oSys.Call("User32::ShowWindow", hWndDlg, 9 /*SW_RESTORE*/);

oSys.Call("User32::SetForegroundWindow", hWndDlg);
}
else
{
var DT_UNICODE = 1;
var DT_DWORD = 3;
var DT_BYTE = 5;

var CB_ADDSTRING = 0x143;
var CB_GETCOUNT = 0x146;
var CB_GETCURSEL = 0x147;
var CB_SETCURSEL = 0x14E;
var CB_SHOWDROPDOWN = 0x14F;
var CB_GETITEMDATA = 0x150;
var CB_SETITEMDATA = 0x151;
var CB_RESETCONTENT = 0x14B;
var CBN_SELCHANGE = 1;
var CBN_SETFOCUS = 3;
var CBN_CLOSEUP = 8;

var hMainWnd = AkelPad.GetMainWnd();
var hEditWnd = AkelPad.GetEditWnd();
var hGuiFont = oSys.Call("gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);
var sEditLibName = "AkelEdit.dll";
var hEditLib;
var hFocus;
var hFocusSet;
var bCloseCB;
var nTimerCount;
var nSpeechLang;
var sSpeechText;
var sSpeechPart;
var uSpeechBody;

if (bSourceWnd && bLoadText)
{
if (bSourceInCB || (! hEditWnd) || ((WScript.Arguments.length > 2) && (WScript.Arguments(2) == "1")))
{
if (oSys.Call("User32::IsClipboardFormatAvailable", 13 /*CF_UNICODETEXT*/))
{
sSource = AkelPad.GetClipboardText().substr(0, aAPIs[oSelect.API].TextLen);
oSelect.Source1 = oSelect.Source2 = 0;
}
}
else if (AkelPad.SendMessage(hEditWnd, 3125 /*AEM_GETSEL*/, 0, 0))
{
sSource = AkelPad.GetSelText(3 /*"\r\n"*/).substr(0, aAPIs[oSelect.API].TextLen);
oSelect.Source1 = oSelect.Source2 = 0;
}
}

if (oWndPos.H < oWndMin.H)
oWndPos.H = oWndMin.H;
if (oWndPos.W < oWndMin.W)
oWndPos.W = oWndMin.W;
if (hEditWnd && bFontAP && bFontGUI)
bFontGUI = 0;
if (! aFont)
aFont = ConvertFontFormat(hGuiFont, 2, 3);

//Main dialog
var aSubClassHand = [];
var aWnd = [];
var IDUSE = 1000;
var IDAPICB = 1001;
var IDDETECTLANG = 1002;
var IDFROMLANG = 1003;
var IDFROMLANGCB = 1004;
var IDTOLANG = 1005;
var IDTOLANGCB = 1006;
var IDSWITCHLANG = 1007;
var IDSWITCHALL = 1008;
var IDLISTEN1 = 1009;
var IDLISTEN2 = 1010;
var IDOPAQMINUS = 1011;
var IDOPAQPLUS = 1012;
var IDTRANSLATE = 1013;
var IDOPTIONS = 1014;
var IDTXTSOURCE = 1015;
var IDTXTTARGET = 1016;
var IDTIMER = 1017;
var nListenID = IDLISTEN1;

//Settings dialog
var aWndSet = [];
var IDINTERFACECB = 1100;
var IDINTERFACE = 1101;
var IDEDITOPTIONS = 1102;
var IDSOURCEINCB = 1103;
var IDSOURCEWND = 1104;
var IDLOADTEXT = 1105;
var IDIMMEDIATE = 1106;
var IDWORDWRAP = 1107;
var IDFONTAP = 1108;
var IDFONTGUI = 1109;
var IDFONT = 1110;
var IDSORTLANG = 1111;
var IDSORTCODE = 1112;
var IDSORTNAME = 1113;
var IDAPINAME1 = 1114;
var IDAPIKEYS1 = 1115;
var IDAPIKEY1 = 1116;
var IDREGIST1 = 1117;
var IDREGURL1 = 1118;
var IDOK = 1119;
var IDCANCEL = 1120;

var WNDCLASS = 0;
var WND = 1;
var WNDSTY = 2;
var WNDX = 3;
var WNDY = 4;
var WNDW = 5;
var WNDH = 6;
var WNDTXT = 7;

//0x50000000 - WS_VISIBLE|WS_CHILD
//0x50000007 - WS_VISIBLE|WS_CHILD|BS_GROUPBOX
//0x50000009 - WS_VISIBLE|WS_CHILD|BS_AUTORADIOBUTTON
//0x50010000 - WS_VISIBLE|WS_CHILD|WS_TABSTOP
//0x50010001 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON
//0x50010003 - WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_AUTOCHECKBOX
//0x50200003 - WS_VISIBLE|WS_CHILD|WS_VSCROLL|CBS_DROPDOWNLIST
//0x50200103 - WS_VISIBLE|WS_CHILD|WS_VSCROLL|CBS_SORT|CBS_DROPDOWNLIST
//0x50210103 - WS_VISIBLE|WS_CHILD|WS_VSCROLL|WS_TABSTOP|CBS_SORT|CBS_DROPDOWNLIST
//0x50810080 - WS_VISIBLE|WS_CHILD|WS_BORDER|WS_TABSTOP|ES_AUTOHSCROLL
//0x50810880 - WS_VISIBLE|WS_CHILD|WS_BORDER|WS_TABSTOP|ES_READONLY|ES_AUTOHSCROLL
//0x50311104 - WS_VISIBLE|WS_CHILD|WS_HSCROLL|WS_VSCROLL|WS_TABSTOP|ES_WANTRETURN|ES_NOHIDESEL|ES_MULTILINE
//0x50B11104 - WS_VISIBLE|WS_CHILD|WS_BORDER|WS_HSCROLL|WS_VSCROLL|WS_TABSTOP|ES_WANTRETURN|ES_NOHIDESEL|ES_MULTILINE
//Windows WNDCLASS, WND, WNDSTY,WNDX,WNDY,WNDW,WNDH, WNDTXT
aWnd[IDUSE ] = ["STATIC", 0, 0x50000000, 10, 10, 80, 13];
aWnd[IDAPICB ] = ["COMBOBOX", 0, 0x50200003, 10, 25, 80, 100, ""];
aWnd[IDDETECTLANG ] = ["STATIC", 0, 0x50000000, 10, 60, 210, 13, ""];
aWnd[IDFROMLANG ] = ["STATIC", 0, 0x50000000, 110, 10, 200, 13];
aWnd[IDFROMLANGCB ] = ["COMBOBOX", 0, 0x50200103, 110, 25, 200, 420, ""];
aWnd[IDTOLANG ] = ["STATIC", 0, 0x50000000, 340, 10, 200, 13];
aWnd[IDTOLANGCB ] = ["COMBOBOX", 0, 0x50200103, 340, 25, 200, 420, ""];
aWnd[IDSWITCHLANG ] = ["BUTTON", 0, 0x50000000, 310, 25, 30, 21, "<->"];
aWnd[IDSWITCHALL ] = ["BUTTON", 0, 0x50000000, 310, 50, 30, 21, "<=>"];
aWnd[IDLISTEN1 ] = ["BUTTON", 0, 0x50000000, 225, 50, 80, 21, sTxtListen];
aWnd[IDLISTEN2 ] = ["BUTTON", 0, 0x50000000, 345, 50, 80, 21, sTxtListen];
aWnd[IDOPAQMINUS ] = ["BUTTON", 0, 0x50000000, 617, 0, 15, 16, "-"];
aWnd[IDOPAQPLUS ] = ["BUTTON", 0, 0x50000000, 632, 0, 15, 16, "+"];
aWnd[IDTRANSLATE ] = ["BUTTON", 0, 0x50000000, 560, 25, 80, 21];
aWnd[IDOPTIONS ] = ["BUTTON", 0, 0x50000000, 560, 50, 80, 21];
aWnd[IDTXTSOURCE ] = ["AkelEditW", 0, 0x50311104, 10, 75, 310, 80, sSource];
aWnd[IDTXTTARGET ] = ["AkelEditW", 0, 0x50311104, 330, 75, 310, 80, sTarget];

aWndSet[IDINTERFACECB] = ["COMBOBOX", 0, 0x50210103, 10, 10, 150, 150, ""];
aWndSet[IDINTERFACE ] = ["STATIC", 0, 0x50000000, 165, 13, 120, 13];
aWndSet[IDEDITOPTIONS] = ["BUTTON", 0, 0x50000007, 10, 40, 285, 185, ""];
aWndSet[IDSOURCEINCB ] = ["BUTTON", 0, 0x50010003, 20, 55, 270, 16];
aWndSet[IDSOURCEWND ] = ["BUTTON", 0, 0x50010003, 20, 75, 270, 16];
aWndSet[IDLOADTEXT ] = ["BUTTON", 0, 0x50010003, 20, 95, 270, 16];
aWndSet[IDIMMEDIATE ] = ["BUTTON", 0, 0x50010003, 20, 115, 270, 16];
aWndSet[IDWORDWRAP ] = ["BUTTON", 0, 0x50010003, 20, 135, 270, 16];
aWndSet[IDFONTAP ] = ["BUTTON", 0, 0x50010003, 20, 155, 270, 16];
aWndSet[IDFONTGUI ] = ["BUTTON", 0, 0x50010003, 20, 175, 270, 16];
aWndSet[IDFONT ] = ["BUTTON", 0, 0x50010000, 20, 195, 170, 20, aFont.toString()];
aWndSet[IDSORTLANG ] = ["BUTTON", 0, 0x50000007, 305, 160, 120, 65];
aWndSet[IDSORTCODE ] = ["BUTTON", 0, 0x50000009, 315, 180, 90, 16];
aWndSet[IDSORTNAME ] = ["BUTTON", 0, 0x50000009, 315, 200, 90, 16];
aWndSet[IDAPINAME1 ] = ["BUTTON", 0, 0x50000007, 10, 235, 415, 75];
aWndSet[IDAPIKEYS1 ] = ["STATIC", 0, 0x50000000, 20, 255, 70, 13, "AppID:"];
aWndSet[IDAPIKEY1 ] = ["EDIT", 0, 0x50810080, 90, 255, 325, 20, ""];
aWndSet[IDREGIST1 ] = ["STATIC", 0, 0x50000000, 20, 280, 70, 13];
aWndSet[IDREGURL1 ] = ["EDIT", 0, 0x50810880, 90, 280, 325, 20, aAPIs[1].RegistrURL];
aWndSet[IDOK ] = ["BUTTON", 0, 0x50010001, 345, 10, 80, 23];
aWndSet[IDCANCEL ] = ["BUTTON", 0, 0x50010000, 345, 35, 80, 23];

SetInterfaceLangToWndDef();

if (! hMainWnd)
{
hEditLib = oSys.Call("kernel32::LoadLibraryW", sEditLibName);
if (! hEditLib)
{
WScript.Echo(sTxtNoLibrary + sEditLibName);
WScript.Quit();
}
}

var hIcon = oSys.Call("User32::LoadImageW",
hInstanceDLL, //hinst
101, //lpszName
1, //uType=IMAGE_ICON
0, //cxDesired
0, //cyDesired
0x00000040); //fuLoad=LR_DEFAULTSIZE
var nBufSize = 0xFFFF;
var lpBuffer = AkelPad.MemAlloc(nBufSize * 2);

AkelPad.WindowRegisterClass(sClassName);

hWndDlg = oSys.Call("User32::CreateWindowExW",
0, //dwExStyle
sClassName, //lpClassName
sTxtCaption, //lpWindowName
0x80CF0000, //dwStyle=WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MAXIMIZEBOX|WS_MINIMIZEBOX|WS_THICKFRAME
oWndPos.X, //x
oWndPos.Y, //y
oWndPos.W, //nWidth
oWndPos.H, //nHeight
hMainWnd, //hWndParent
0, //ID
hInstanceDLL, //hInstance
DialogCallback); //Script function callback. To use it class must be registered by WindowRegisterClass.

oSys.Call("User32::ShowWindow", hWndDlg, oWndPos.Max ? 3 /*SW_MAXIMIZE*/ : 1 /*SW_SHOWNORMAL*/);

//Allow other scripts running
AkelPad.ScriptNoMutex();

//Message loop
AkelPad.WindowGetMessage();

AkelPad.WindowUnregisterClass(sClassName);
AkelPad.MemFree(lpBuffer);
oSys.Call("user32::DestroyIcon", hIcon);
if (hEditLib)
oSys.Call("kernel32::FreeLibrary", hEditLib);
}

function SetInterfaceLangToWndDef()
{
aWnd[IDUSE ][WNDTXT] = sTxtUse;
aWnd[IDFROMLANG ][WNDTXT] = sTxtFromLang;
aWnd[IDTOLANG ][WNDTXT] = sTxtToLang;
aWnd[IDLISTEN1 ][WNDTXT] = sTxtListen;
aWnd[IDLISTEN2 ][WNDTXT] = sTxtListen;
aWnd[IDTRANSLATE][WNDTXT] = sTxtTranslate;
aWnd[IDOPTIONS ][WNDTXT] = sTxtOptions;

aWndSet[IDINTERFACE ][WNDTXT] = sTxtInterface;
aWndSet[IDSOURCEINCB][WNDTXT] = sTxtSourceInCB;
aWndSet[IDSOURCEWND ][WNDTXT] = sTxtSourceWnd + " (Ctrl+W)";
aWndSet[IDLOADTEXT ][WNDTXT] = sTxtLoadText;
aWndSet[IDIMMEDIATE ][WNDTXT] = sTxtImmediate;
aWndSet[IDWORDWRAP ][WNDTXT] = sTxtWordWrap + " (Ctrl+U)";
aWndSet[IDFONTAP ][WNDTXT] = sTxtFontAP + " (Ctrl+F)";
aWndSet[IDFONTGUI ][WNDTXT] = sTxtFontGUI + " (Ctrl+F)";
aWndSet[IDSORTLANG ][WNDTXT] = sTxtSortLang;
aWndSet[IDSORTCODE ][WNDTXT] = sTxtSortCode;
aWndSet[IDSORTNAME ][WNDTXT] = sTxtSortName;
aWndSet[IDAPINAME1 ][WNDTXT] = aAPIs[1].Name + " - " + sTxtOwnKey;
aWndSet[IDREGIST1 ][WNDTXT] = sTxtRegister;
aWndSet[IDOK ][WNDTXT] = sTxtOK;
aWndSet[IDCANCEL ][WNDTXT] = sTxtCancel;
}

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
if (uMsg == 1) //WM_CREATE
{
var oError;
var i;

for (i = IDUSE; i < aWnd.length; ++i)
{
aWnd[i][WND] = oSys.Call("User32::CreateWindowExW",
0, //dwExStyle
aWnd[i][WNDCLASS], //lpClassName
0, //lpWindowName
aWnd[i][WNDSTY], //dwStyle
aWnd[i][WNDX], //x
aWnd[i][WNDY], //y
aWnd[i][WNDW], //nWidth
aWnd[i][WNDH], //nHeight
hWnd, //hWndParent
i, //ID
hInstanceDLL, //hInstance
0); //lpParam
//Set font and text
SetWndFontAndText(aWnd[i][WND], hGuiFont, aWnd[i][WNDTXT]);
}

AkelPad.SendMessage(hWnd, 0x0080 /*WM_SETICON*/, 0 /*ICON_SMALL*/, hIcon);

SetEditWordWrap();
SetEditFont();

for (i = IDTXTSOURCE; i <= IDTXTTARGET; ++i)
{
AkelPad.SendMessage(aWnd[i][WND], 1093 /*EM_SETEVENTMASK*/, 0, 0x00080001 /*ENM_CHANGE|ENM_SELCHANGE*/);
aSubClassHand[i] = AkelPad.WindowSubClass(aWnd[i][WND], EditCallback, 256 /*WM_KEYDOWN*/, 258 /*WM_CHAR*/);
}

AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 197 /*EM_SETLIMITTEXT*/, aAPIs[oSelect.API].TextLen, 0);
AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 197 /*EM_SETLIMITTEXT*/, nBufSize - 1, 0);

AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 0x00B1 /*EM_SETSEL*/, oSelect.Source1, oSelect.Source2);
AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 0x00B1 /*EM_SETSEL*/, oSelect.Target1, oSelect.Target2);

//Fill combobox APIs
for (i = 0; i < aAPIs.length; ++i)
{
AkelPad.MemCopy(lpBuffer, aAPIs[i].Name, DT_UNICODE);
AkelPad.SendMessage(aWnd[IDAPICB][WND], CB_ADDSTRING, 0, lpBuffer);
}
AkelPad.SendMessage(aWnd[IDAPICB][WND], CB_SETCURSEL, oSelect.API, 0);

FillComboLangs();
ShowDetectLang(true);

if (nOpaque < 255)
SetOpaqueLevel(hWnd, nOpaque);

ShowSourceWindow();

if (((! bSourceWnd) || (bSourceWnd && bLoadText)) && (bImmediate))
{
try
{
new ActiveXObject("htmlfile").parentWindow.setTimeout(function()
{
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDTRANSLATE, 0);
}, 0);
}
catch (oError)
{
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDTRANSLATE, 0);
}
}
}

else if (uMsg == 7) //WM_SETFOCUS
{
hEditWnd = AkelPad.GetEditWnd();
oSys.Call("User32::SetFocus", hFocus);
}

else if (uMsg == 36) //WM_GETMINMAXINFO
{
AkelPad.MemCopy(lParam + 24, oWndMin.W, DT_DWORD); //ptMinTrackSize_x
AkelPad.MemCopy(lParam + 28, oWndMin.H, DT_DWORD); //ptMinTrackSize_y
}

else if (uMsg == 3) //WM_MOVE
{
if (! oSys.Call("User32::IsZoomed", hWnd))
GetWindowPos(hWnd, oWndPos);
}

else if (uMsg == 5) //WM_SIZE
{
if (wParam != 2) //SIZE_MAXIMIZED
GetWindowPos(hWnd, oWndPos);

ResizeWindow(hWnd);
}

else if (uMsg == 15) //WM_PAINT
PaintSizeGrip(hWnd);

else if (uMsg == 256) //WM_KEYDOWN
{
if (wParam == 13 /*VK_RETURN*/)
{
if ((Ctrl() || Shift()) &&
((oSys.Call("User32::GetFocus") == aWnd[IDTXTSOURCE][WND]) ||
(oSys.Call("User32::GetFocus") == aWnd[IDTXTTARGET][WND])))
Translate(Shift());
}
else if ((wParam == 0x4C /*L key*/) && Ctrl() && (! Alt()))
Listen(hFocus, Number(Shift()));
else if ((wParam == 0x43 /*C key*/) && Ctrl() && Shift())
InsertTextToAP(hFocus, 0);
else if ((wParam == 0x56 /*V key*/) && Ctrl() && Shift())
PasteTextFromAP(hFocus, 0);
else if ((wParam == 0x46 /*F key*/) && Ctrl())
{
if (hEditWnd)
{
if (bFontAP)
{
bFontAP = 0;
bFontGUI = 1;
}
else if (bFontGUI)
bFontGUI = 0;
else
bFontAP = 1;
}
else
bFontGUI = ! bFontGUI;

SetEditFont();
oSys.Call("User32::InvalidateRect", hWnd, 0, 0);
}
else if ((wParam == 0x55 /*U key*/) && Ctrl())
{
bWordWrap = ! bWordWrap;
SetEditWordWrap();
}
else if ((wParam == 0x57 /*W key*/) && Ctrl())
{
bSourceWnd = ! bSourceWnd;
ShowSourceWindow();
}
else if (wParam == 0x73 /*VK_F4*/)
oSys.Call("User32::ShowWindow", hWnd, oSys.Call("User32::IsZoomed", hWnd) ? 9 /*SW_RESTORE*/ : 3 /*SW_MAXIMIZE*/);
else if ((wParam == 27 /*VK_ESCAPE*/) && bCloseCB)
oSys.Call("User32::PostMessageW", hWnd, 16 /*WM_CLOSE*/, 0, 0);
}

else if (uMsg == 260) //WM_SYSKEYDOWN
{
if (wParam == 13) //VK_RETURN
{
oSys.Call("User32::SetFocus", hFocus);
Translate(Shift(), 1);
}
else if (wParam == 0x58) //X key
{
CopyEntireTextToCB(hFocus);
DeleteEntireText(hFocus);
}
else if (wParam == 0x43) //C key
{
if (Shift())
InsertTextToAP(hFocus, 1);
else
CopyEntireTextToCB(hFocus);
}
else if (wParam == 0x56) //V key
{
if (Shift())
PasteTextFromAP(hFocus, 1);
else
PasteEntireTextFromCB(hFocus);
}
else if (wParam == 0x2E) //VK_DELETE
DeleteEntireText(hFocus);
else if (wParam == 0x55) //U key
{
if (Shift())
{
if (bSourceWnd)
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDSWITCHALL, 0);
}
else
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDSWITCHLANG, 0);
}
else if (wParam == 0x70) //VK_F1
oSys.Call("User32::SetFocus", aWnd[IDAPICB][WND]);
else if (wParam == 0x31) //1 key
oSys.Call("User32::SetFocus", aWnd[IDFROMLANGCB][WND]);
else if (wParam == 0x32) //2 key
oSys.Call("User32::SetFocus", aWnd[IDTOLANGCB][WND]);
else if ((wParam == 109) || (wParam == 189)) //Num- or -
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDOPAQMINUS, 0);
else if ((wParam == 107) || (wParam == 187)) //Num+ or +
oSys.Call("User32::PostMessageW", hWnd, 273 /*WM_COMMAND*/, IDOPAQPLUS, 0);
else if (wParam == 0x53) //S key
Settings();
}

else if (uMsg == 123) //WM_CONTEXTMENU
{
if ((wParam == aWnd[IDTXTSOURCE][WND]) || (wParam == aWnd[IDTXTTARGET][WND]))
ContextMenu(wParam, lParam);
}

else if (uMsg == 0x004E) //WM_NOTIFY
{
if (AkelPad.MemRead(lParam + 8, DT_DWORD) == 0x0702 /*EN_SELCHANGE*/)
{
if (wParam == IDTXTSOURCE)
{
oSelect.Source1 = AkelPad.MemRead(lParam + 12, DT_DWORD);
oSelect.Source2 = AkelPad.MemRead(lParam + 16, DT_DWORD);
}
else if (wParam == IDTXTTARGET)
{
oSelect.Target1 = AkelPad.MemRead(lParam + 12, DT_DWORD);
oSelect.Target2 = AkelPad.MemRead(lParam + 16, DT_DWORD);
}
}
}

else if (uMsg == 0x3B9) //MM_MCINOTIFY
{
if (wParam == 1 /*MCI_NOTIFY_SUCCESSFUL*/)
{
oSys.Call("Winmm::mciSendStringW", "close TTS wait", 0, 0, 0);
PlayTextToSpeech();
}
}

else if (uMsg == 0x0113) //WM_TIMER
SetWndFontAndText(aWnd[nListenID][WND], hGuiFont, (nTimerCount++ % 2) ? sTxtListen : "");

else if (uMsg == 273) //WM_COMMAND
{
var nLowParam = LoWord(wParam);
var nHiwParam = HiWord(wParam);
bCloseCB = 1;

if (nLowParam == IDAPICB)
{
if (nHiwParam == CBN_SETFOCUS)
oSys.Call("User32::PostMessageW", lParam, CB_SHOWDROPDOWN, 1, 0);
if (nHiwParam == CBN_SELCHANGE)
{
var nSel1 = oSelect.Source1;
var nSel2 = oSelect.Source2;

oSelect.API = AkelPad.SendMessage(aWnd[IDAPICB][WND], CB_GETCURSEL, 0, 0);
AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 197 /*EM_SETLIMITTEXT*/, aAPIs[oSelect.API].TextLen, 0);

oSys.Call("User32::GetWindowTextW", aWnd[IDTXTSOURCE][WND], lpBuffer, nBufSize);
SetWndFontAndText(aWnd[IDTXTSOURCE][WND], 0, AkelPad.MemRead(lpBuffer, DT_UNICODE).substr(0, aAPIs[oSelect.API].TextLen));
AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 0x00B1 /*EM_SETSEL*/, nSel1, nSel2);

ShowDetectLang(false);

FillComboLangs(AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETITEMDATA, oSelect.FromLang, 0),
AkelPad.SendMessage(aWnd[IDTOLANGCB ][WND], CB_GETITEMDATA, oSelect.ToLang, 0));
}
else if (nHiwParam == CBN_CLOSEUP)
{
if (oSys.Call("User32::GetFocus") == lParam)
oSys.Call("User32::SetFocus", hFocus);

bCloseCB = 0;
}
}
else if ((nLowParam == IDFROMLANGCB) || (nLowParam == IDTOLANGCB))
{
if (nHiwParam == CBN_SETFOCUS)
oSys.Call("User32::PostMessageW", lParam, CB_SHOWDROPDOWN, 1, 0);
else if (nHiwParam == CBN_SELCHANGE)
{
ShowDetectLang(false);
if (nLowParam == IDFROMLANGCB)
oSelect.FromLang = AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETCURSEL, 0, 0);
else
oSelect.ToLang = AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETCURSEL, 0, 0);
}
else if (nHiwParam == CBN_CLOSEUP)
{
if (oSys.Call("User32::GetFocus") == lParam)
oSys.Call("User32::SetFocus", hFocus);

bCloseCB = 0;
}
}
else if (nLowParam == IDTXTSOURCE)
{
if (nHiwParam == 0x0100) //EN_SETFOCUS
{
hFocus = lParam;
SetEditStyle(lParam, aWnd[IDTXTTARGET][WND]);
}
else if (nHiwParam == 0x0300) //EN_CHANGE
ShowDetectLang(false);
}
else if (nLowParam == IDTXTTARGET)
{
if (nHiwParam == 0x0100) //EN_SETFOCUS
{
hFocus = lParam;
SetEditStyle(lParam, aWnd[IDTXTSOURCE][WND]);
}
}
else if ((nLowParam >= IDSWITCHLANG) && (nLowParam <= IDOPTIONS))
{
oSys.Call("User32::DefDlgProcW", hWnd, 1025 /*DM_SETDEFID*/, nLowParam, 0);
oSys.Call("User32::DefDlgProcW", hWnd, 1025 /*DM_SETDEFID*/, IDUSE, 0);

if (nLowParam == IDSWITCHLANG)
SwitchLang();
else if (nLowParam == IDSWITCHALL)
SwitchLang(1);
else if (nLowParam == IDLISTEN1)
Listen(aWnd[IDTXTSOURCE][WND], -1);
else if (nLowParam == IDLISTEN2)
Listen(aWnd[IDTXTTARGET][WND], -1);
else if (nLowParam == IDOPAQMINUS)
{
if (nOpaque > 55)
SetOpaqueLevel(hWnd, -2);
}
else if (nLowParam == IDOPAQPLUS)
{
if (nOpaque < 255)
SetOpaqueLevel(hWnd, -1);
}
else if (nLowParam == IDTRANSLATE)
Translate();
else if (nLowParam == IDOPTIONS)
ContextMenu(lParam, -2);

oSys.Call("User32::SetFocus", hFocus);
}
}

else if (uMsg == 16) //WM_CLOSE
{
oSys.Call("Winmm::mciSendStringW", "close TTS", 0, 0, 0);
KillTimer();
AkelPad.WindowUnsubClass(aWnd[IDTXTSOURCE][WND]);
AkelPad.WindowUnsubClass(aWnd[IDTXTTARGET][WND]);
WriteIniFile();
//Destroy dialog
oSys.Call("User32::DestroyWindow", hWnd);
}

else if (uMsg == 2) //WM_DESTROY
{
//Exit message loop
oSys.Call("User32::PostQuitMessage", 0);
}

return 0;
}

function EditCallback(hWnd, uMsg, wParam, lParam)
{
if (uMsg == 256) //WM_KEYDOWN
{
if ((wParam == 0x56 /*V key*/) && Ctrl() && Shift())
{
AkelPad.WindowNoNextProc(aSubClassHand[oSys.Call("User32::GetDlgCtrlID", hWnd)]);
return 1;
}
}
else if (uMsg == 258) //WM_CHAR
{
if ((wParam == 13 /*VK_RETURN*/) && (Ctrl() || Shift()))
{
AkelPad.WindowNoNextProc(aSubClassHand[oSys.Call("User32::GetDlgCtrlID", hWnd)]);
return 1;
}
}

return 0;
}

function LoWord(nParam)
{
return (nParam & 0xffff);
}

function HiWord(nParam)
{
return ((nParam >> 16) & 0xffff);
}

function Shift()
{
return Boolean(oSys.Call("User32::GetKeyState", 0x10 /*VK_SHIFT*/) & 0x8000);
}

function Ctrl()
{
return Boolean(oSys.Call("User32::GetKeyState", 0x11 /*VK_CONTROL*/) & 0x8000);
}

function Alt()
{
return Boolean(oSys.Call("User32::GetKeyState", 0x12 /*VK_MENU*/) & 0x8000);
}

function SetWndFontAndText(hWnd, hFont, sText)
{
if (hFont)
AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);

AkelPad.MemCopy(lpBuffer, sText.substr(0, nBufSize - 1).replace(/\r$/, ""), DT_UNICODE);
oSys.Call("User32::SetWindowTextW", hWnd, lpBuffer);
}

function GetWindowPos(hWnd, oRect)
{
var lpRect = AkelPad.MemAlloc(16) //sizeof(RECT);

oSys.Call("User32::GetWindowRect", hWnd, lpRect);

oRect.X = AkelPad.MemRead(lpRect, DT_DWORD);
oRect.Y = AkelPad.MemRead(lpRect + 4, DT_DWORD);
oRect.W = AkelPad.MemRead(lpRect + 8, DT_DWORD) - oRect.X;
oRect.H = AkelPad.MemRead(lpRect + 12, DT_DWORD) - oRect.Y;

AkelPad.MemFree(lpRect);
}

function ResizeWindow(hWnd)
{
var oRect = {};

GetWindowPos(hWnd, oRect);

for (i = IDFROMLANG; i <= IDLISTEN2; ++i)
oSys.Call("User32::SetWindowPos", aWnd[i][WND], 0,
aWnd[i][WNDX] + (oRect.W - oWndMin.W) / 2,
aWnd[i][WNDY],
0,
0,
0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
for (i = IDOPAQMINUS; i <= IDOPTIONS; ++i)
oSys.Call("User32::SetWindowPos", aWnd[i][WND], 0,
aWnd[i][WNDX] + oRect.W - oWndMin.W,
aWnd[i][WNDY],
0,
0,
0x15 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOSIZE*/);
oSys.Call("User32::SetWindowPos", aWnd[IDTXTSOURCE][WND], 0,
0,
0,
aWnd[IDTXTSOURCE][WNDW] + (oRect.W - oWndMin.W) / 2,
aWnd[IDTXTSOURCE][WNDH] + oRect.H - oWndMin.H,
0x16 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOMOVE*/);
if (bSourceWnd)
oSys.Call("User32::SetWindowPos", aWnd[IDTXTTARGET][WND], 0,
aWnd[IDTXTTARGET][WNDX] + (oRect.W - oWndMin.W) / 2,
aWnd[IDTXTTARGET][WNDY],
aWnd[IDTXTTARGET][WNDW] + (oRect.W - oWndMin.W) / 2,
aWnd[IDTXTTARGET][WNDH] + oRect.H - oWndMin.H,
0x14 /*SWP_NOZORDER|SWP_NOACTIVATE*/);
else
oSys.Call("User32::SetWindowPos", aWnd[IDTXTTARGET][WND], 0,
aWnd[IDTXTTARGET][WNDX],
aWnd[IDTXTTARGET][WNDY],
aWnd[IDTXTTARGET][WNDW] + oRect.W - oWndMin.W,
aWnd[IDTXTTARGET][WNDH] + oRect.H - oWndMin.H,
0x14 /*SWP_NOZORDER|SWP_NOACTIVATE*/);
}

function PaintSizeGrip(hWnd)
{
var lpPaint = AkelPad.MemAlloc(64); //sizeof(PAINTSTRUCT)
var lpRect = AkelPad.MemAlloc(16); //sizeof(RECT)
var hDC;

if (hDC = oSys.Call("User32::BeginPaint", hWnd, lpPaint))
{
oSys.Call("User32::GetClientRect", hWnd, lpRect);

AkelPad.MemCopy(lpRect, AkelPad.MemRead(lpRect + 8, DT_DWORD) - oSys.Call("User32::GetSystemMetrics", 2 /*SM_CXVSCROLL*/), DT_DWORD);
AkelPad.MemCopy(lpRect + 4, AkelPad.MemRead(lpRect + 12, DT_DWORD) - oSys.Call("User32::GetSystemMetrics", 20 /*SM_CYVSCROLL*/), DT_DWORD);

oSys.Call("User32::DrawFrameControl", hDC, lpRect, 3 /*DFC_SCROLL*/, 0x8 /*DFCS_SCROLLSIZEGRIP*/);
oSys.Call("User32::EndPaint", hWnd, lpPaint);
}

AkelPad.MemFree(lpPaint);
AkelPad.MemFree(lpRect);
}

function FillComboLangs(nFromLang, nToLang)
{
var nPos;
var i;

AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_RESETCONTENT, 0, 0);
AkelPad.SendMessage(aWnd[IDTOLANGCB ][WND], CB_RESETCONTENT, 0, 0);

if (aAPIs[oSelect.API].AutoDetect)
{
AkelPad.MemCopy(lpBuffer, " " + sTxtAutoDetect, DT_UNICODE);
nPos = AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_ADDSTRING, 0, lpBuffer);
AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_SETITEMDATA, nPos, -1);
}

for (i = 0; i < aLangs.length; ++i)
{
if (aLangs[i][oSelect.API + 2])
{
if (bSortCode) //sort by code
AkelPad.MemCopy(lpBuffer, aLangs[i][0] + " - " + aLangs[i][1], DT_UNICODE);
else //sort by name
AkelPad.MemCopy(lpBuffer, aLangs[i][1] + " - " + aLangs[i][0], DT_UNICODE);

nPos = AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_ADDSTRING, 0, lpBuffer);
AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_SETITEMDATA, nPos, i);

nPos = AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_ADDSTRING, 0, lpBuffer);
AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_SETITEMDATA, nPos, i);
}
}

if ((typeof nFromLang == "undefined") && (typeof nToLang == "undefined"))
{
if (WScript.Arguments.length > 0)
{
if (WScript.Arguments(0).toLowerCase() == "auto")
{
if (aAPIs[oSelect.API].AutoDetect)
oSelect.FromLang = 0;
}
else
{
for (i = aAPIs[oSelect.API].AutoDetect; i < AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (WScript.Arguments(0) == aLangs[AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETITEMDATA, i, 0)][0])
{
oSelect.FromLang = i;
break;
}
}
}

if (WScript.Arguments.length > 1)
{
for (i = 0; i < AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (WScript.Arguments(1) == aLangs[AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETITEMDATA, i, 0)][0])
{
oSelect.ToLang = i;
break;
}
}
}
}
}
else
{
if (typeof nFromLang != "undefined")
{
oSelect.FromLang = 0;
for (i = 0; i < AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (nFromLang == AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETITEMDATA, i, 0))
{
oSelect.FromLang = i;
break;
}
}
}

if (typeof nToLang != "undefined")
{
oSelect.ToLang = 0;
for (i = 0; i < AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (nToLang == AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETITEMDATA, i, 0))
{
oSelect.ToLang = i;
break;
}
}
}
}

AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_SETCURSEL, oSelect.FromLang, 0);
AkelPad.SendMessage(aWnd[IDTOLANGCB ][WND], CB_SETCURSEL, oSelect.ToLang, 0);
}

function SwitchLang(bSwitchText)
{
var nFromLang = AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETITEMDATA, oSelect.FromLang, 0);
var nToLang = AkelPad.SendMessage(aWnd[IDTOLANGCB ][WND], CB_GETITEMDATA, oSelect.ToLang, 0);
var nSelTarget;
var nSelSource;
var i;

for (i = 0; i < AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (nToLang == AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_GETITEMDATA, i, 0))
{
oSelect.FromLang = i;
break;
}
}

if (nFromLang == -1) //Auto detect
{
oSelect.ToLang = 0;
if (nDetectLang >= 0)
{
for (i = 0; i < AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (nDetectLang == AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETITEMDATA, i, 0))
{
oSelect.ToLang = i;
break;
}
}
}
}
else
{
for (i = 0; i < AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETCOUNT, 0, 0); ++i)
{
if (nFromLang == AkelPad.SendMessage(aWnd[IDTOLANGCB][WND], CB_GETITEMDATA, i, 0))
{
oSelect.ToLang = i;
break;
}
}
}

AkelPad.SendMessage(aWnd[IDFROMLANGCB][WND], CB_SETCURSEL, oSelect.FromLang, 0);
AkelPad.SendMessage(aWnd[IDTOLANGCB ][WND], CB_SETCURSEL, oSelect.ToLang, 0);

ShowDetectLang(false);

if (bSwitchText)
{
oSys.Call("User32::GetWindowTextW", aWnd[IDTXTSOURCE][WND], lpBuffer, nBufSize);
sTarget = AkelPad.MemRead(lpBuffer, DT_UNICODE);
oSys.Call("User32::GetWindowTextW", aWnd[IDTXTTARGET][WND], lpBuffer, nBufSize);
sSource = AkelPad.MemRead(lpBuffer, DT_UNICODE).substr(0, aAPIs[oSelect.API].TextLen);

nSelTarget = AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 0x00B0 /*EM_GETSEL*/, 0, 0);
nSelSource = AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 0x00B0 /*EM_GETSEL*/, 0, 0);

SetWndFontAndText(aWnd[IDTXTSOURCE][WND], 0, sSource);
SetWndFontAndText(aWnd[IDTXTTARGET][WND], 0, sTarget);

AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 0x00B1 /*EM_SETSEL*/, LoWord(nSelSource), HiWord(nSelSource));
AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 0x00B1 /*EM_SETSEL*/, LoWord(nSelTarget), HiWord(nSelTarget));
}
}

function ShowDetectLang(bShow)
{
if (bShow)
{
if (nDetectLang >= 0)
SetWndFontAndText(aWnd[IDDETECTLANG][WND], 0, sTxtAutoDetect + ": " + aLangs[nDetectLang][1]);
}
else
{
nDetectLang = -1;
SetWndFontAndText(aWnd[IDDETECTLANG][WND], 0, "");
}
}

function SetEditWordWrap()
{
AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 0x0CAA /*AEM_SETWORDWRAP*/, bWordWrap ? 1 /*AEWW_WORD*/ : 0 /*AEWW_NONE*/, 0);
AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 0x0CAA /*AEM_SETWORDWRAP*/, bWordWrap ? 1 /*AEWW_WORD*/ : 0 /*AEWW_NONE*/, 0);
}

function SetEditFont()
{
var hFont;

if (hEditWnd && bFontAP)
hFont = AkelPad.SendMessage(hEditWnd, 49 /*WM_GETFONT*/, 0, 0);
else if (bFontGUI)
hFont = hGuiFont;
else
hFont = ConvertFontFormat(aFont, 3, 2);

AkelPad.SendMessage(aWnd[IDTXTSOURCE][WND], 48 /*WM_SETFONT*/, hFont, 1);
AkelPad.SendMessage(aWnd[IDTXTTARGET][WND], 48 /*WM_SETFONT*/, hFont, 1);
}

function SetEditStyle(hWnd1, hWnd2)
{
AkelPad.SendMessage(hWndDlg, 11 /*WM_SETREDRAW*/, 0, 0);

oSys.Call("User32::SetWindowLongW", hWnd1, -20 /*GWL_EXSTYLE*/, 0);
oSys.Call("User32::SetWindowLongW", hWnd1, -16 /*GWL_STYLE*/, 0x50B11104);
oSys.Call("User32::SetWindowPos", hWnd1, 0, 0, 0, 0, 0, 0x37 /*SWP_FRAMECHANGED|SWP_NOACTIVATE|SWP_NOZORDER|SWP_NOMOVE|SWP_NOSIZE*/);

if (bSourceWnd)
{
oSys.Call("User32::SetWindowLongW", hWnd2, -20 /*GWL_EXSTYLE*/, 0x20000 /*WS_EX_STATICEDGE*/);
oSys.Call("User32::SetWindowLongW", hWnd2, -16 /*GWL_STYLE*/, 0x50311104);
oSys.Call("User32::SetWindowPos", hWnd2, 0, 0, 0, 0, 0, 0x37 /*SWP_FRAMECHANGED|SWP_NOACTIVATE|SWP_NOZORDER|SWP_NOMOVE|SWP_NOSIZE*/);
}

AkelPad.SendMessage(hWndDlg, 11 /*WM_SETREDRAW*/, 1, 0);

oSys.Call("User32::InvalidateRect", hWndDlg, 0, 0);
}

function ShowSourceWindow()
{
if (bSourceWnd)
{
aWnd[IDTXTTARGET][WNDX] = aWnd[IDTXTTARGET][WNDX] + aWnd[IDTXTTARGET][WNDW] - aWnd[IDTXTSOURCE][WNDW];
aWnd[IDTXTTARGET][WNDW] = aWnd[IDTXTSOURCE][WNDW];
hFocus = aWnd[IDTXTSOURCE][WND];
}
else
{
aWnd[IDTXTTARGET][WNDW] = aWnd[IDTXTTARGET][WNDX] + aWnd[IDTXTTARGET][WNDW] - aWnd[IDTXTSOURCE][WNDX];
aWnd[IDTXTTARGET][WNDX] = aWnd[IDTXTSOURCE][WNDX];
hFocus = aWnd[IDTXTTARGET][WND];
}

oSys.Call("User32::ShowWindow", aWnd[IDSWITCHALL][WND], bSourceWnd);
oSys.Call("User32::ShowWindow", aWnd[IDLISTEN1 ][WND], bSourceWnd);
oSys.Call("User32::ShowWindow", aWnd[IDTXTSOURCE][WND], bSourceWnd);
oSys.Call("User32::SetFocus", hFocus);
ResizeWindow(hWndDlg)
}

function SetOpaqueLevel(hWnd, nLevel)
{
var lpBuf;
var nStyle;

if (nLevel < 0)
{
lpBuf = AkelPad.MemAlloc(1);
if (oSys.Call("User32::GetLayeredWindowAttributes", hWnd, 0, lpBuf, 0))
nOpaque = AkelPad.MemRead(lpBuf, DT_BYTE);
else
nOpaque = 255;
nOpaque += (nLevel == -1) ? 20 : -20;
AkelPad.MemFree(lpBuf);
}

if (nOpaque > 255)
nOpaque = 255;
else if (nOpaque < 55)
nOpaque = 55;

//WS_EX_LAYERED style
nStyle = oSys.Call("User32::GetWindowLongW", hWnd, -20 /*GWL_EXSTYLE*/);

if (! (nStyle & 0x00080000 /*WS_EX_LAYERED*/))
{
nStyle |= 0x00080000 /*WS_EX_LAYERED*/;
oSys.Call("User32::SetWindowLongW", hWnd, -20 /*GWL_EXSTYLE*/, nStyle);
}

oSys.Call("User32::SetLayeredWindowAttributes", hWnd, 0, nOpaque, 2 /*LWA_ALPHA*/);
}

function InsertTextToAP(hWnd, bEntireText)
{
if (hEditWnd)
{
var nTextLen;

if (bEntireText)
nTextLen = oSys.Call("User32::GetWindowTextW", hWnd, lpBuffer, nBufSize);
else
nTextLen = AkelPad.SendMessage(hWnd, 0x043E /*EM_GETSELTEXT*/, 0, lpBuffer);

if (nTextLen)
AkelPad.ReplaceSel(AkelPad.MemRead(lpBuffer, DT_UNICODE), 1);
}
}

function PasteTextFromAP(hWnd, bEntireText)
{
if (hEditWnd && (AkelPad.GetSelStart() != AkelPad.GetSelEnd()))
{
AkelPad.MemCopy(lpBuffer, AkelPad.GetSelText(3 /*"\r\n"*/).substr(0, nBufSize - 1).replace(/\r$/, ""), DT_UNICODE);

if (bEntireText)
AkelPad.SendMessage(hWnd, 0x00B1 /*EM_SETSEL*/, 0, -1);

AkelPad.SendMessage(hWnd, 0x00C2 /*EM_REPLACESEL*/, 1, lpBuffer);
}
}

function CopyEntireTextToCB(hWnd)
{
if (oSys.Call("User32::GetWindowTextW", hWnd, lpBuffer, nBufSize))
AkelPad.SetClipboardText(AkelPad.MemRead(lpBuffer, DT_UNICODE));
}

function PasteEntireTextFromCB(hWnd)
{
if (AkelPad.GetClipboardText())
{
AkelPad.SendMessage(hWnd, 0x00B1 /*EM_SETSEL*/, 0, -1);
AkelPad.SendMessage(hWnd, 0x0302 /*WM_PASTE*/, 0, 0);
}
}

function DeleteEntireText(hWnd)
{
AkelPad.SendMessage(hWnd, 0x00B1 /*EM_SETSEL*/, 0, -1);
AkelPad.SendMessage(hWnd, 0x0303 /*WM_CLEAR*/, 0, 0);
}

KDJ · Joined: 06 Mar 2010 Posts: 1068 Location: Poland

Translates text via Google, MS Bing and Yandex - Part Two.
In the next post are the files with the translated interface.

Translator_part2.js

Code: