METTEZ DES FEUX TRICOLORES DANS VOS APPLICATIONS

carmenca Messages postés 2 Date d'inscription mercredi 11 juin 2003 Statut Membre Dernière intervention 19 juillet 2004 - 19 juil. 2004 à 00:35
 Ragdtabolous - 20 déc. 2013 à 18:03
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/24060-mettez-des-feux-tricolores-dans-vos-applications

Ragdtabolous
20 déc. 2013 à 18:03
Dommage qu'il ne soit pas "sizable", il devient inutile du coup...
solda39 Messages postés 5 Date d'inscription dimanche 9 mai 2010 Statut Membre Dernière intervention 10 mai 2010
19 mars 2009 à 09:59
pardent mon pic 16f84
solda39 Messages postés 5 Date d'inscription dimanche 9 mai 2010 Statut Membre Dernière intervention 10 mai 2010
19 mars 2009 à 09:54
salut, svp aide moi je suis un débutant dans l'etude de pic et il y a un projet de feux tricolores avec pic19f84 par langage assembleur avec mblab et merci a l'avance
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
24 juil. 2004 à 22:39
J'ai regardé la déclaration de NULL dans le fichier System.pas et on visualise:
> Null: Variant; { Null standard constant }

Par ailleurs, dans ma remarque pré-précédente, il faut supprimer le NOT. C'est une étourderie désormais corrigée. On ne vide pas une image, s'il n'y en a pas. Cependant avec le NULL (qui reste dans le ZIP), tout marche comme il faut.

Et même, je dirais: y'a pas besoin de condition. On vire le "if ... then". Delphi est bien fait...
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
20 juil. 2004 à 21:03
J'ai une remarque supplémentaire. Pour avoir un effet de transparence, il faudrait utiliser la fonction BltBtn, que je ne connais et pour cause car je ne l'ai jamais utilisé. Par ailleurs, il faut que le composant accepte d'être transparent. Si je me rappelle bien, il faut qu'il hérite de class(TGraphicControl) et qu'il ait une propriété dans ControlStyle initialisée dans l'évènement OnCreate. Voir l'aide de Delphi...

Je n'ai pas implémenté cette fonction, car pour l'usage que j'ai fait du composant, ce n'était pas nécessaire... voire inutile.
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
20 juil. 2004 à 20:57
Le NULL marchait dans Delphi 3. Admettons qu'on peut remplacer par: if not (FBmp.Handle>0) then ...

Je dis ça car j'ai un doute: Handle=0 ou Handle=-1. Je penserai plutôt à la première solution !

Je regarderai dans les sources ce que donne NULL...
carmenca Messages postés 2 Date d'inscription mercredi 11 juin 2003 Statut Membre Dernière intervention 19 juillet 2004
19 juil. 2004 à 00:35
Bonjour

G installé le code, il me met :
[Erreur] TrafficLight.pas(158): Identificateur non déclaré : 'NULL' à cette ligne :
//RECHARGEMENT DE LA RESSOURCE: on est obligé à cause de l'effet de transparence
if FBmp.Handle<>NULL then FBmp.ReleaseHandle;

je ne peux allé plus loin
Rejoignez-nous