Подскажите пожалуйста как запретить следующее действие: при вводе значения в textbox1 (на форме) и последующего нажатия клавиши ESC происходит очищение textbox1?

(читать всё…)

Подскажите пожалуйста, есть конструкция типа:

function TagCat($tags, $itemid){
    foreach($tags as $tag){
        if($tag->itemID == $itemid AND $tag->type == '8'){
            $taglink = urldecode(
              JRoute::_(K2HelperRoute::getTagRoute(urlencode($tag->name)))
            );
            return '<a href="'.$taglink.'" class="category">'.$tag->name.'</a>';
        }
    }
}

Которая отвечает за вывод тега определенного типа объекта.

Вопрос: как изменить функцию чтобы она выводила не один тег данного типа, а всё множество тегов соответствующего типа?

(читать всё…)

Покажите, пожалуйста, пример в коде.
Если страница загружена не по HTTPS, то отображаем текст «Войти, что бы получить или отравить файл», он же ссылка на загрузку страницы по HTTPS.
Если страница загружена по HTTPS, то отображаем форму с полями ввода.

(читать всё…)

нужна помощь. я далёк от программирования(30 лет назад изучал). если не трудно ответьте попроще.
копирую(тупо через блокнот в эксел) таблицы с сайта(одна и та же ежедневно обновляемая) . в одном столбце в ячейках текст, при наведении на который всплывает title с небольшим текстом. он мне нужен в виде ещё одного столбца таблицы или ещё как. то есть чтоб он был виден не только при наведении курсора. как быть?

(читать всё…)

Честно говоря, несколько ошарашен отсутствие в VBA подобных встроенных функций (push, pop, shift, unshift, sort и т.д.), без них становиться совсем грустно…
Нормального справочника с примерами по VBA тоже не могу найти. Кстати, может подскажите такой?

Как же, все-таки, наиболее быстро и грамотно сортировать массивы строк?

(читать всё…)

Никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)

Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.

Dim arr() As String
Redim arr(1)

затем, мне надо в цикле просмотреть все строки одной таблицы («Лист1»), на каждой итерации просмотреть колонку второй таблицы («Лист2») и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек «Лист1» в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.

Моя конструкция

arr(UBound(arr) + 1) = tb.Cells(j, "C").Value

не срабатывает, ругается, что «Subscript out of range»

Если не трудно, подскажите, как решаются такие задачи в VBA!

(читать всё…)

Идея следующая — есть таблица и связанная с ней форма. В форме combobox (данные берет из таблицы). Необходима фильтрация по мере того как вводишь в combobox текст, чтобы предлагались только те результаты, которые соответствуют вводу. В силу того что я только начинаю осваивать данный предмет (ACCESS), для меня эта задача без помощи, неподъемная. Нужен пример, ибо только описание решения не поможет…

(читать всё…)

кто подскажет хочу сделать танчик при помощи псевдографики
получается вроде не плохо но очень отличаются расстояния между символами горизонтальные и вертикальные.

получается как то так
а хочется
или

кто подскажет как рисовать такими квадратиками, (код и кодировку и как ее переключить)
и что бы размер по вертикали и горизонтали

(читать всё…)

Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:

uses
 Windows, ... jpeg, pngimage, GifImage,
  GDIPAPI, GDIPOBJ, GDIPUTIL;

procedure TForm1.Button3Click(Sender: TObject);
var
  encoderClsid: TGUID;
  Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
 if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');
  GetEncoderClsid('image/bmp', encoderClsid);
  image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
  image.Free;

  Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;

При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized

А затем вылазеет ошибка вот в таком окне:

—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module

‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————

Жму ОК, выскакивает окно:

Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas

Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.

(читать всё…)

Из спортивного интереса решил написать алгоритм для прецизионного поворота растрового изображения на произвольный угол относительно произвольной точки поворота. Но боюсь, что изобретаю велосипед…

Много видел сообщений о то, что такой алгоритм будет очень медленный и громоздкий, но самого алгоритма никто показать не может. Может здесь кто-нибудь встречал такой алгоритм?

(читать всё…)