Poweredby

==TPoweredBy component==

by minesadorada@charcodelvalle.com

Windows graphic

Linux/macOS graphic

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

1. Make a new folder 'poweredby'
2. Unzip the archive into the folder
3. In the Lazarus IDE choose 'Open' poweredby.lpk
4. When asked 'Open as a project' answer 'yes'
5. Click Compile
6. Click Use/Install
7. When asked 'would you like to compile Lazarus?'m answer 'yes'
8. 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:

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

See Also

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

From the Free Pascal wiki, page "Poweredby", as it stood on 2020-02-23 after a change by Trev, 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.