Revision 1 of 2, by Trev on 2-23-2020. The page as it is now.

Poweredby

==TPoweredBy component==

by minesadorada@charcodelvalle.com

Windows graphic

<figure> <img src="powered_by_graphic.png" title="powered_by_graphic.png" /> <figcaption>powered_by_graphic.png</figcaption> </figure>

Linux/macOS graphic

<figure> <img src="linux_powered_by_graphic.jpg" title="linux_powered_by_graphic.jpg" /> <figcaption>linux_powered_by_graphic.jpg</figcaption> </figure>

Other logos and banners

Logos and Banners

Summary

A visual component (installed on the 'Additional' tab) that fades in above shaped graphic image for 1 second (or in Linux/MacOS displays it for 1 second)
Drop into your form.create() event

Download

Download from the lazarus CCR here

Install

Make a new folder 'poweredby'
Unzip the archive into the folder
In the Lazarus IDE choose 'Open' poweredby.lpk
When asked 'Open as a project' answer 'yes'
Click Compile
Click Use/Install
When asked 'would you like to compile Lazarus?'m answer 'yes'
After Lazarus has restarted, check the 'Additional' component tab/palette for the new 'poweredby' component

Use

Start a new project application
Drop a 'poweredby' component onto the form
Double-click the empty form to show the TForm1.Create method
Add poweredby1.showpoweredbyform
Run the application

That's it!

Other uses

The PoweredBy component lends itself well to adding as a subcomponent to an existing custom component:

pascal

Uses uPoweredBy, Propedits, ..other units

Type
TMyComponent = Class(TComponent)
private 
  fPoweredBy:TPoweredBy;
  ..other stuff
public
  procedure ShowPoweredByLogo; // Call fPoweredBy.ShowPoweredByForm method in this proc.
  ..other stuff
published
  property PoweredBy:TPoweredBy read fPoweredBy write fPoweredBy;
  ..other stuff
end;

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

Constructor TMyComponent.Create()
// Use tPoweredBy as a subcomponent
// Register a TClassPropertyEditor in order to display it correctly
  fPoweredBy := TPoweredBy.Create(Self);
  fPoweredBy.SetSubComponent(true);  // Tell the IDE to store the modified properties
  fPoweredBy.Name:='PoweredBy';

License

LGPL license

Platform

Windows

PoweredBy will fade-in a shaped graphic

Linux

PoweredBy will display a square graphic
- This is due to the inability of GTK widgetset to deal with transparent shaped screens

macOS

PoweredBy displays a square graphic, similar to the Linux version.

Tested

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

Version

V1.0.1.2

Support

Email the author with any queries