UN LABEL ORIENTABLE À 360° ET ETIRABLE V3
cs_Gysmo
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002
-
27 avril 2002 à 17:38
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
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
https://codes-sources.commentcamarche.net/source/11890-un-label-orientable-a-360-et-etirable-v3
2 janv. 2010 à 01:11
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
22 déc. 2005 à 15:53
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
27 avril 2002 à 17:38
Ca marche nikel sous W2000Pro.
PS : Je savais pas que l'on pouvais coder en assembleur avec Delphi! Trop balaise.