Poweredby/ru

From Lazarus wiki
Revision as of 13:40, 15 September 2020 by Zoltanleo (talk | contribs) (Компнент TPoweredBy)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

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

Компнент TPoweredBy

by minesadorada@charcodelvalle.com

Графика Windows

powered by graphic.png

Графика Linux/macOS

linux powered by graphic.jpg

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


Описание

  • Это визуальный компонент (устанавливается на вкладку '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 автора для любых вопросов

См.также