Poweredby

From Free Pascal wiki
Jump to navigationJump to search

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

TPoweredBy component

by minesadorada@charcodelvalle.com

Windows graphic

powered by graphic.png

Linux/macOS graphic

linux powered by graphic.jpg

Other 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