Poweredby/ru

The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

│ English (en) │ français (fr) │ русский (ru) │

Компнент TPoweredBy

by minesadorada@charcodelvalle.com

Графика Windows

Графика Linux/macOS

Другие логотипы и баннеры

Logos and Banners

Описание

Это визуальный компонент (устанавливается на вкладку 'Additional'), который отображается в виде значка на форме и выветает через 1 секунду (или в Linux/MacOS отображается на 1 секунду).
Перетащите в событие form.create()

Загрузка

Загрузить можно из lazarus CCR отсюда

Установка

Создайте новую папку 'poweredby'
Распакуйте туда архив
В IDE Lazarus выберите пнкт меню 'Package' (Пакеты) --> 'Open Package File (*.lpk) (Открыть файл пакета) и откройте poweredby.lpk
На вопрос 'Open as a project' (Открыть как проект) ответьте 'yes'
Нажмите пункт Compile (Компилировать)
Нажмите пункт Use/Install (Использовать/Установить)
На вопрос 'would you like to compile Lazarus?' (Хотите пересобрать Lazarus?) ответьте 'yes'
После перезагрузки Lazarus'а нажмите на вкладку компонентов 'Additional', чтобы найти вновь установленный компонент 'poweredby'

Использование

Создайте проект нового приложения
Бросьте компонент 'poweredby' на форму
Дважды щелкните по форме, чтобы показать метод TForm1.Create
Добавьте в код poweredby1.showpoweredbyform
Запустите приложение

Вот и все!

Использование по-другому

Компонент PoweredBy хорошо подходит для добавления в качестве субкомпонента к существующему настраиваемому компоненту:

Uses uPoweredBy, Propedits, ..//другие модули

Type
TMyComponent = Class(TComponent)
private 
  fPoweredBy:TPoweredBy;
  //.... что-то подобное
public
  procedure ShowPoweredByLogo; // вызываем метод fPoweredBy.ShowPoweredByForm в этой процедуре
  //.... что-то подобное
published
  property PoweredBy:TPoweredBy read fPoweredBy write fPoweredBy;
  //.... что-то подобное
end;

procedure Register;
RegisterPropertyEditor(TypeInfo(TPoweredBy),
    TMyComponent, 'PoweredBy', TClassPropertyEditor);

Constructor TMyComponent.Create()
// Используем tPoweredBy акк субкомпонент
// Регистрируем TClassPropertyEditor для его правильного отображения
  fPoweredBy := TPoweredBy.Create(Self);
  fPoweredBy.SetSubComponent(true);  // велим IDE сохранить измененные свойства
  fPoweredBy.Name:='PoweredBy';

Лицензия

Лицензия LGPL

Платформа

Windows

PoweredBy появится в виде таящего изображения

Linux

PoweredBy отобразиться квадратного изображения
- Это связано с неспособностью набора виджетов GTK работать с экранами прозрачной формы.

macOS

PoweredBy отображает квадратный рисунок, аналогичный версии для Linux.

Проверено

Windows 7 32/64-bit Laz v1.x fpc 2.6.x Linux 32-bit Laz v0.9.x fpc 2.2.x

Версия

V1.0.1.2

Поддержка

Email автора для любых вопросов

См.также