GIF с прозрачным фоном в BMP (Delphi)

var
  gif:TGIFImage;
  i:Integer;
begin
  gif:=TGIFImage.Create;
  gif.Transparent:=True;
  gif.LoadFromFile('c:\1\2.gif');
  for i := 0 to gif.Images.Count-1 do
  begin
    with GIF.Images[i] do
      if (Transparent) then
      begin
        ActiveColorMap[GraphicControlExtension.TransparentColorIndex] := clWhite;
        GIF.Images[i].Bitmap.SaveToFile('c:\1\'+inttostr(i)+'.bmp');
      end;
  end;
  gif.Free;

анимированные изображения разбивает на кадры

Fast Dial 3.4 Mozilla 5.0

После обновления Mozill'ы до  5 версии, я обнаружил то к чему очень привык, великолепный аддон Fast Dial перестал работать в 5 версии. Уныло, досадно, но ладно. Решил немного подождать, ну мало ли не успел может переписать под новый браузер....
Прошло около 2 дней и вышла новая версия Fast Dial 3.4, установил, но не успел даже обрадоваться, как увидел, что он тоже не работает((. Поискал, что в инете пишут, поиски оказались тщетны. Потом вновь решил поискать и наткнулся на ветку в форуме мозилы в которой говорилось о том, что другой разработчик исправил Fast Dial 3.4 и теперь, он работает, но через попу (не стал рисковать, мало ли...) и зашел на офф сайт автора компонента и обнаружил там бета версию компонента Fast Dial 3.5b1, установил и все прекрасно работает без всяких танцев.

Так что у кого такая же проблема решение тут.

ps. Я использую Fast Dial потому, что в нем нет ни чего лишнего.

Бета тестирование Delphi с 64-битным компилятором.

Ура товарищи, УРА!!!!!! Открыта регистрация на бета тестирование Delphi  с 64-битным компилятором.
Регистрируемся тут

Прогресс бар в стиле 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;