Difference between revisions of "Poweredby"

Latest revision as of 08:46, 23 February 2020

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

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

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:

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

@@ Line 1: / Line 1: @@
+{{Poweredby}}
+<br/>
 ==TPoweredBy component==
 ===by minesadorada@charcodelvalle.com===
+====Windows graphic====
 [[File:powered_by_graphic.png]]
-*A visual component (installed on the 'Additional' tab) that fades in above shaped graphic image for 1 second
+=====Linux/macOS graphic=====
+[[File:linux_powered_by_graphic.jpg]]
+===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 source zip archive from [http://www.charcodelvalle.com/poweredby/poweredby_component.zip from here]
+Download from the lazarus CCR [https://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/ here]
 ===Install===
-#Make a new folder 'poweredby' in your <lazarus>/components folder
+#Make a new folder 'poweredby'
 #Unzip the archive into the folder
 #In the Lazarus IDE choose 'Open' poweredby.lpk
@@ Line 16: / Line 36: @@
 #Click Compile
 #Click Use/Install
-#When asked 'would you like to compile lazarus?' answer 'yes'
+#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
@@ Line 27: / Line 48: @@
 That's it!
+====Other uses====
+The PoweredBy component lends itself well to adding as a subcomponent to an existing custom component:
+<syntaxhighlight lang=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';
+</syntaxhighlight>
 ===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
-====Mac OS X====
+====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 ====
 [mailto:minesadorada@charcodelvalle.com Email the author] with any queries
-----
 ===See Also===
-* [[SplashAbout|SplashAbout component]]
+* [[Logos_and_Banners]]
 * [[ScrollText|Standalone Scrolling Text component]]
 * [[Components_and_Code_examples|Components and code examples]]
-[[Category:Components]]
-[[Category:Artwork]]
-[[Category:Promotion]]