Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1218
Благодарности: 955

Профиль | Отправить PM | Цитировать


Цитата Johny777:
во время выката панель плавно появляется, но не обновляется (т.е. мемо пролога появляется в самом конце после анимации), что не есть красиво! »
Лады, переделаю.

Цитата Johny777:
под innocallback »
Johny777, зачем тебе вообще эта библиотека в Restools, когда там вместо нее можно использовать ф-ию CallbackAddr?

Цитата Johny777:
Хочу переделать запрет на кириллицу в пути »
Чтоб ты ничего не выдумывал, то вот функция:
IsStringCyrillic.iss

Код: Выделить весь код
function IsStringCyrillic(Str: String): Boolean;
var
    objRegExp: Variant;
begin
    try
        objRegExp := CreateOleObject('VBScript.RegExp');
    except
        ShowExceptionMessage;
    end;

    if objRegExp.Test(Str) then
    begin
        objRegExp.Pattern := '[\u0400-\u04FF,\u0500-\u052F,\u2DE0-\u2DFF,\uA640-\uA69F]';
        Result := objRegExp.Execute(Str).Count = 1;
    end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:22, 23-04-2012 | #1632