Delphi→ Компонент QuickSlide
Окт 17, 2010
Ранее я уже говорил о шаблоне выезжающей панели. На этот раз шаблон был полностью переработан и переделан в отдельный компонент, подключаемый к любому проекту в одну строчку. О том как им пользоваться узнаете далее…
Поместите модуль qslide.pas и файл ресурсов qslib.dll в папку проекта, после необходимо прописать в раздел uses проекта(!) модуль QSlide. Для того, чтобы перейти в файл проекта, нажмите правой кнопкой по имени проекта в Project Manager и выберите View Source.
Поместите строку QuickSlide.Install до Application.Run.
Теперь можно запускать проект.
program NewProject;
uses
Forms,
QSlide, {подключаем qslide.pas}
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
QuickSlide.Install; {запуск модуля}
Application.Run;
end.
Компонент поддерживает свойства Speed и Resource.
QuickSlide.Speed задает скорость открытия панели (по умолчанию стоит 20).
QuickSlide.Resource имя файла с ресурсами для скинирования (по умолчанию qslib.dll).
Похожие статьи: