Poweredby/ru

==Компнент TPoweredBy==

by minesadorada@charcodelvalle.com

Графика Windows

Графика Linux/macOS

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

• Logos and Banners

Описание

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

Загрузка

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

Установка

1. Создайте новую папку 'poweredby'
2. Распакуйте туда архив
3. В IDE Lazarus выберите пнкт меню 'Package' (Пакеты) --> 'Open Package File (*.lpk) (Открыть файл пакета) и откройте poweredby.lpk
4. На вопрос 'Open as a project' (Открыть как проект) ответьте 'yes'
5. Нажмите пункт Compile (Компилировать)
6. Нажмите пункт Use/Install (Использовать/Установить)
7. На вопрос 'would you like to compile Lazarus?' (Хотите пересобрать Lazarus?) ответьте 'yes'
8. После перезагрузки 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 автора для любых вопросов

См.также

• Logos and Banners
• Standalone Scrolling Text component
• Components and code examples

From the Free Pascal wiki, page "Poweredby/ru", as it stood on 2020-09-15 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.