Прогресс бар в стиле Vista. VistaProBar 1.5 (Delphi)

Прогресс бар, как в Vist'e

• Возможность регулировки размытости
• Возможность регулировки скорости
• Вставка суффикса
• Вставка префикса
• Отображение прогресса текстом
• Показ процентов

Проверял в Delphi 2010 все нормально устанавливается, но для работы компонента необходим другой компонент этого же автора. На сайте у него скачал последнюю версию необходимого компонента rkSmartPath23, но архив битый пришлось скачать на одну версию по младше rkSmartPath22.

Распространяется по лицензии MPL 1.1

Блог автора компонента
Klever on Delphi

Скачать компонент VistaProBar 1.5+rkSmartPath22  можно отсюда Download 
Запаковал их вместе для удобства

SmartPath v2.3 (Delphi)

От автора компонента:
Компонент позволяющий перемещаться по файловой системе компьютера, как в проводнике Vista.
Путь к папке представляется, как кнопки и стрелки. Нажатие на кнопку позволит вам установить этот путь, нажатие на стрелку позволит вам выбрать папки в этой папке.

Дополнительные возможности 

• Отключение редактирования пути
• Добавлено событие  draw
• Использование отображаемого имени для папок
• Добавлен поиск событий.
• Тонкие настройки и исправления
• Стрелка отображается если в папке есть еще папки

Скриншот SmartPath версии 2

Добавлено новое свойство NetDiskWait проверять готовность сетевых дисков или нет по дефолту значение False. Просто иногда на этом этапе тратиться много времени особенно когда сетевой диск недоступен.

SmartPath версия 2.2

• Теперь можно перемещаться по каталогам используя только клавиатуру
• У Ownerdraw теперь есть свое собственное свойство, установите его при использовании ownerdraw события.
• Добавлен ParentFont
• Новое свойство ClickSetPath установит путь автоматически, когда кнопка на пути будет нажата так не нужно теперь использовать событие OnClickEvent.
• Изменен AllowEdit теперь по дефолту True
• OnMouseLeaveEvent
• Тонкие настройки и исправления

Блог автора компонента
Klever on Delphi

Скачать компонент можно отсюда Download

Стеклянная кнопка rkGlassButton (Delphi)

Компонент стеклянная кнопка для Delphi (устанавливал в Delphi XE версию 2 при перемещении бывают глюки, но это не беда компонент идет в исходниках в виде одного pas файла. Так что если есть желание и время можно это глюк пофиксить)

Скрин  rkGlassButton 2

История развития компонента rkGlassButton 1.5

• Стал лучше рендеринг
• Теперь компонент может отбрасывать тени
• Можно изменить цвет тени
• Регулируется уровень глянцевости
• Изменение позиции изображения и разрыва текста
• Работает как кнопки в Windows 7

История развития компонента rkGlassButton 1.75

• Добавлена обработка клавиатуры
• Добавлена стрелочка при нажатии которой появляется Pop up Menu
• Новый фокус рендеринга
• Добавлено состояние нажата
• Пофиксены некоторые ошибки

История развития компонента rkGlassButton 2

• Добавлено позиционирование текста (слева, по центру, справа)
• Кнопка может быть плоской (Flat)
• Альтернативный рендеринг стиль
• Появилась возможность отключения кнопки

Распространяется по лицензии MPL 1.1

Блог автора компонента
Klever on Delphi

Скачать компонент можно отсюда Download

DSpack 2.3.3 (Delphi)

Компонент для написания мультимедиа приложений использующих MS Direct Show и DirectX технологии. С DSpack вы можете создать все, что вы хотите: DVD, захвата, сжатие, фильтры, ТВ, веб-камера, DV... 
Корректно работает в Delphi XE, для работы примеров необходимо переименовать в uses DSUtil.pas на DSUtils.pas (в Delphi 2009 появился другой модуль с таким именем)
Запустил пример который поток видео с веб-камеры сохраняет на диск в формате avi, после чего открыл файл и в нем было действительно видео с веб-камеры, а не просто пустой файл. 

 

Установка

Добавляем в переменные среды Delphi
       - (DSPackDir)\src\Directx9
       - (DSPackDir)\src\DSPack
Компилируем DirectX 9 Package (DirectX9_Dx.dpk) из папки packagesD2010.
Компилируем  DSPack Package (DSPack_Dx.dpk) из папки packagesD2010.
Устанавливаем Design Package (DSPackDesign_Dx.dpk) из папки packagesD2010.

И не забываем в примерах в случае если возникает ошибка
[DCC Error] main.pas(34): E2003 Undeclared identifier: 'TSysDevEnum'
переименовывать модуль DSUtil.pas на DSUtils.pas

Скачать DSpack можно отсюда Download

JSON – SuperObject (Delphi)

 JSON – SuperObject библиотека для работы с JSON в Delphi, данная библиотека была проверена в Delphi 2010, всё прекрасно работает! Недавно был пост посвященный подобной библиотеке, но по функционалу и стабильности работы, она не показала себя с хорошей стороны в отличие от этой библиотеки.

Особенности:

• Быстрота анализа
• XML в JSON
• Простота использования
• Проверка валидности JSON
• JSON-RPC (Remote Procedure Call (вызов удалённых процедур)).
• Возможность написания JSON в удобной для человека форме.

Лицензия:
MPL или LGPL

Сайт автора компонента:
Delphi & Free Pascal ressources by Henri Gourvest


SVN:
http://superobject.googlecode.com/svn/trunk/


Скачать архив от 29.03.2010 отсюда Download

WordUnit 1.0 Программа для сбора поисковой выдачи

Утилита для поиска сайтов по ключевым словам в поисковых системах GOOGLE, YANDEX, RAMBLER (хотя последним даже и не пользуюсь ни когда)) ну и бог с ним) и сохранения их в таблицу, из таблицы в файл, а дальше куда душа пожелает!
Программа получает выдачу поисковиков по запросам, которые можно сделать в конструкторе, форма конструктора идентична их онлайн версиям, так, что проблем возникнуть не должно с построением запроса.

"Липкая" форма (Delphi)

Как заставить форму приложения "прилипать" к краям экрана?

Оказывается очень просто))
Необходимо в  свойствах формы ScreenSnap сделать равным True и SnapBuffer числу пикселей между краем формы и краем экрана (по дефолту 10) после чего форма должна "прилипать" к краю экрана.
 ScreenSnap:=True;
 SnapBuffer:=10;

Функция получения PageRank (Delphi)

Ни так давно захотел определить PR блога без SEO сервисов с помощью Delphi.
Все оказалось ни так просто, как на Yandex'e при определении ТИЦ'а. Чтобы получить ТИЦ для тех, кто не знает или просто ни когда об этом, ни задумывался, необходимо выполнить запрос такого вида:
http://search.yaca.yandex.ru/yca/cy/ch/[URL сайта без http:\\]/

Пример:
http://search.yaca.yandex.ru/yca/cy/ch/nmdsoft.blogspot.com/
 

и немного распарсить страницу и получим искомый нами ТИЦ

Класс для работы с JSON в Delphi

JSON (англ. JavaScript Object Notation) — текстовый формат обмена данными, основанный на JavaScript и обычно используемый именно с этим языком. Как и многие другие текстовые форматы, JSON легко читается людьми.

Класс lkJSON для работы с  универсальными структурами данных (JSON ) в среде Delphi. Проверял на работоспособность в среде Delphi 2010, все прекрасно работает, в комплекте с классом идут примеры, посмотрев которые можно легко понять, что к чему, так же класс идет в исходном коде и  его можно доработать для своих целей.

Бот для Haddan

Новая версия бота с исправленными недочетами предыдущей версии, выявленными в результате бета-тестирования 2 игроками (ники и имена в секрете).

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

Вкладка "Главная"

1. Время  до  завершения  поиска руды.
2. Сколько  раз  копали  в  шахте.
3. Количество  ресурсов  в  инвентаре.
4. Количество  добытых  ботом  ресурсов  за  одну  сессию.