UN LABEL ORIENTABLE À 360° ET ETIRABLE V3

Messages postés
216
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
- - Dernière réponse : speederman_ch
Messages postés
3
Date d'inscription
lundi 3 janvier 2005
Statut
Membre
Dernière intervention
22 novembre 2008
- 2 janv. 2010 à 01:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11890-un-label-orientable-a-360-et-etirable-v3

Afficher la suite 
cs_Gysmo
Messages postés
216
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
-
C'est cool comme composant!
Ca marche nikel sous W2000Pro.

PS : Je savais pas que l'on pouvais coder en assembleur avec Delphi! Trop balaise.
cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32 -
salut,

sur D4 super (à part quelques petites modifs obligé : SetAutoSize et OnContextPopup)

mais avec D9 si je met un composant orLabel sur la fiche il me met erreur : orLabel1 n'a pas de parent.
voilà je peut ouvrir l'exemple fourni avec le compiler etc. mais pas ajouter un nouveau orLabel :( Domage
speederman_ch
Messages postés
3
Date d'inscription
lundi 3 janvier 2005
Statut
Membre
Dernière intervention
22 novembre 2008
-
Salut, Bonne Année à Tous,

Pour ceux que cela intéresse On Peut Mettre un Composant orLabel sur D9 En Rajoutant une ligne Dans Constructor Create :

constructor TOrLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Parent := TForm(owner);<----
Bmp := TBitmap.Create;
ControlStyle := ControlStyle + [csReplicatable];
Width := 65;
Height := 17;
OrFont := TOrFont.Create; // Création de la fonte utilisée
OrFont.OnChange := OnOrFontChanged;
end;

Et ça Fonctionne