Poweredby/fr

From Free Pascal wiki
Jump to navigationJump to search

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

Composant TPoweredBy

par minesadorada@charcodelvalle.com

Graphique Windows graphic

powered by graphic.png

Graphique Linux/macOS

linux powered by graphic.jpg

Autres logos et bannières


Résumé

  • Un composant visuel (placé dans l'onglet 'Additional') qui s'efface dans l'image graphique au-dessus de la forme après 1 seconde (ou l'affiche pendant 1 seconde dans Linux / MacOS)
  • Plongez dans votre événement Form.create() (Drop into your form.create() event)

Téléchargez

Téléchargez depuis le Lazarus-CCR ici.

Installation

  1. Créez un nouveau dossier 'poweredby'
  2. Dézippez l'archive dans le dossier
  3. Dans l'EDI Lazarus ouvrez le paquet poweredby.lpk.
  4. Répondez 'Oui' à la question 'Ouvrir comme un projet ?'
  5. Compilez
  6. Cliquez sur Installer
  7. Répondez 'Oui' à la question 'Voulez-vous compiler Lazarus ?'
  8. Après que Lazarus ait redémarré, contrôlez le nouveau composant 'Poweredby' dans la palette 'Additional'.

Utilisation

  • Commencez un nouveau projet d'application
  • Posez un composant 'Poweredby' sur la fiche.
  • Double-cliquez sur la fiche vide pour accéder à l'évenement TForm1.Create
  • Ajoutez l'appel poweredby1.showpoweredbyform
  • Exécutez l'appication

C'est tout !!

Autres utilisations

Le composant PoweredBy se prête bien à l'ajout comme sous-composant à un composant personnalisé existant :

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';

Licence

Licence LGPL.

Plate-forme

Windows

  • PoweredBy s'estompera dans un graphique de forme spécifiée (shaped graphic)

Linux

  • PoweredBy s'affichera dans un carré graphique (cela est dû à l'impossibilité pour GTK de traiter avec les écrans à forme spécifiée)

macOS

  • PoweredBy s'affiche dans un carré graphique, comme dans la version pour Linux.

Testé sur

  • 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

Adresser un courrier à l'auteur pour toute requête.


Voir aussi