begin process at 2012 02 09 02:34:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Composants

 > COMPO LED TRANSPARENTE AVEC OU SANS BITMAP ET 3 ETATS: ON/OFF/DISABLED!

COMPO LED TRANSPARENTE AVEC OU SANS BITMAP ET 3 ETATS: ON/OFF/DISABLED!


 Information sur la source

Note :
Aucune note
Catégorie :Composants Classé sous :led, composant, bitmap Niveau :Initié Date de création :08/04/2005 Date de mise à jour :06/06/2005 17:55:58 Vu / téléchargé :4 659 / 404

Auteur : MAURICIO

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
Vous trouverez tout le pack ici:
http://www.delphifr.com/code.aspx?ID=30296



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • cyLed.dcrTélécharger ce fichier [Réservé aux membres club]1 716 octets
  • cyLed.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier9 886 octets

Télécharger le zip


 Historique

06 juin 2005 17:55:58 :
Update expliqué en ici: http://www.delphifr.com/ajoutcode.aspx?ID=30296

 Sources du même auteur

Source avec Zip Source avec une capture PROJETS DÉMO DU PACK DE COMPOSANTS CINDY V4.30
Source avec Zip Source avec une capture PACKAGE DE COMPOSANTS CINDY V4.41
Source avec Zip Source avec une capture EVALUATION D' EXPRESSIONS MATHÉMATIQUE (MÉTHODE RPN)
Source avec Zip Source avec une capture DEMO DE LA TCYDBADVGRID (DBGRID AVANCÉE, EXE INCLUS)
ACTUALISER UNE TABLE SANS QUE LA DBGRID MODIFIE SON VISUEL E...

 Sources de la même categorie

Source avec Zip MOVCONTROL par abmed1963
Source avec Zip Source avec une capture PACKAGE DE COMPOSANTS CINDY V4.41 par MAURICIO
Source avec Zip Source avec une capture DBNAVIGATORPLUS par pascal1541
Source avec Zip Source avec une capture EVALUATION D' EXPRESSIONS MATHÉMATIQUE (MÉTHODE RPN) par MAURICIO
Source avec Zip Source avec une capture COMPOSANT TQPROGRESSBAR UNE BARRE DE PROGRESSION... par yanb

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture PROJETS DÉMO DU PACK DE COMPOSANTS CINDY V4.30 par MAURICIO
Source avec Zip Source avec une capture COMPOSANT TQPROGRESSBAR UNE BARRE DE PROGRESSION... par yanb
Source avec Zip TGPS COMPOSANT DE GESTION DES TRAMES NMEA 0185 par ILP
Source avec Zip Source avec une capture COMPOSANT TSWITCHLED (UNE LED) par Bacterius
Source avec Zip Source avec une capture COMPOSANTS TCYDBLED ET TCYDBADVLED! par MAURICIO

Commentaires et avis

Commentaire de Kenavo le 08/04/2005 16:44:04

Salut Mauricio,

Finalement, écrire des composants, c'est pas si mal ! non ? Tu  ne vas plus t'arrêter !
Quelques remarques sur celui-ci :
1 - J'aurais aimé que la propriété Caption y soit, pour avoir un texte en face de la led (avec la propriété Alignment comme pour un TRadioButton), plutôt que de coller un label à coté.
2 - Sans bitmap, c'est pas très zoli ! J'avais écrit ça (sans gestion de bitmap) et avec Caption pour faire des leds rondes :
---------------------------------------------
procedure TCustomLed.Paint;
var
  W, H, X, Y : integer;
begin
  W:=Width;
  H:=Height;
  if FAlignment = taRightJustify then
    x:=W-H
  else
    x:=0;
  y:=0;
  with canvas do
    begin
      pen.color:=clBlack;
      pen.style:=psSolid;
      case FState of
        ldOn : Brush.color:=OnColor;
        ldOff : Brush.Color:=OffColor;
        ldGrayed : Brush.Color:=clGray;
      end;
      pen.color:=Brush.Color;
      pie(X+1,Y+1,X+H-1,Y+H-1,X,Y,X,Y);
      pen.Color:=clgray;
      arc(X,Y,X+H,Y+H,X,Y,X,Y);
      pen.Color:=clWhite;
      arc(X+1,Y+1,X+H-1,Y+H-1,X,Y,X,Y);
      pen.Color:=clGray;
      arc(X+1,Y+1,X+H-1,Y+H-1,X,Y+H,X+H,Y);
      pen.color:=clWhite;
      arc(X+4,Y+4,X+H-4,Y+H-4,X+H,Y,X,Y+H);
      arc(X+5,Y+5,X+H-5,Y+H-5,X+H,Y,X,Y+H);
   end;
  if FAlignment = taLeftJustify then
    x:=H+8
  else
    x:=0;
  y:=(height+canvas.font.Height) div 2;
  Canvas.Font:=Font;
  with Canvas do
    begin
      Brush.Color := color;
      TextOut(x,y,Caption);
    end;
end;
---------------------------------------------
Pour des leds de 10 à 20 pixels, ça rend pas mal.

A +

Ken@vo

Commentaire de MAURICIO le 08/04/2005 17:19:35 administrateur CS

Ça me plait pour 2 raisons:
- J' utilise des units (divisées par type ex. obj/graph/sys/div etc...) pour regrouper les fonctions que je crées et ainsi, pouvoir les utiliser dans diverses programmes. Le problème c' est que ça gonfle les executables juste à cause d' une fonction qu' on a voulu utiliser. De plus, bem on peut pas faire des compos visuels:(
- Ça elimine le mauvais point cité plus haut! C' est bien plus visuel (même pour les compos non visuels, on voit tout de suite sur la TForm ce qu' on utilise).

Désolé mais pour le caption, ce sera pas possible!
Non pas que ton idée ne soit pas bonne, mais je pourrais plus créer des Leds (sans bitmaps) rectangulaires (avec la largeur désirée en fait).
par contre, des Leds rondes (toujours sans Bitmaps) j' y ai pensé et ovales aussi selon la taille du compo (c' est pour ça que je peux pas avoir de caption).
J' ai voulu posté comme ça pour avoir l' opinion du public. Mais je vais utiliser ton code pour y implementer les rondeurs (on aime tous ça, les rondeurs! oups, je m' égarre).

Sinon, bem c' est pas evident du tout. Je pense que j' ai bien fait de m' y mettre tard! Ça a evité de foutre des compos de m... plein de bugs partout!
D' ailleurs, j' ai un petit bug sur le compo TcyLabel/TcyActiveLabel!!!

Commentaire de tartave le 13/06/2008 16:49:09

bonjour Mauricio,
ton composant est t'il compatible pour delphi 2005 ??

Commentaire de tartave le 13/06/2008 16:56:02

lors de l'instalation du coposant il lui manque un fichier : Types.dcu

Commentaire de MAURICIO le 13/06/2008 17:10:14 administrateur CS

Salut tartave,

Tu trouveras le pack de tous mes compos ici:
http://www.delphifr.com/code.aspx?ID=30296

En ce qui concerne le fichier manquant, celui-ci appartient à Borland. Ce que tu dois faire c' est savoir quelle est le nom de la nouvelle unité car celle-ci n' existe pas dans ta version de Delphi: enlève l' unité "Types" dans les "Uses" de mes unités. Ensuite, Delphi devrait te donner une erreur sur une fonction qu' il ne conait pas (elle était dans l' untié Types, tu suit?)! Tu fais F1 sur la fonction pour voir dans quelle unité elle est passée gràce au fichier d' aide. Tu la déclare dans les "Uses" de l' unité.

Voilà
A+

A+

Commentaire de MAURICIO le 02/04/2009 21:32:21 administrateur CS

Bonjour À tous !!!

Sortie de TcyComponents pack 2.0:
http://www.delphifr.com/code.aspx?ID=49709

A+

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Insertion d'une bitmap dans le composant GmPrintPreview [ par ethan_decoster ] Bonjour, J'ai un report qui est generer par un compsant appelle Gmprintpreview de la suite gmprintsuite. Pour la generation du report y a pas de probl Procédure de rotation d'un bitmap ne fonctionne pas dans un composant [ par informatixo ] Bonsoir le forum,Je me suis inspiré du code de Cirec disponible à cette adresse http://www.delphifr.com/codes/ROTATION-RAPIDE-BITMA Icône associé à un composant dans la palette d'outils [ par informatixo ] Bonjour le forum,J'ai une question à propos de l'icône qui peut être associé à un composant lorsqu'il est dans la palette d'outils.L'aide de Delphi di composant tchart [ par algerian001 ] salutj'ai besoin d'afficher le resultat d'un calcul de taux (pourcentage) dans un tchartpouvez vous m'expliquer commentmerci Probleme utilisation d'un composant après son installation dans Delphi2009 [ par grandyaka54 ] Bonjour à tous !Travaillant avec Delphi 2009, j'ai installé le composant TurboPower Abbrevia sur ce site : http://www.songbeamer.com/delphi/Pour l'ins Enregistrer un TObjectList sur un fichier ? [ par Bacterius ] Bonjour, alors voilà mon problème : pour Noël, je voudrais offrir à mon père un logiciel. Alors ce logiciel est supposé gérer une liste de guitares, a Enregistrement d'un bitmap parmi d'autres variables dans un fichier [ par Bacterius ] Bonjour,voici mon problème - il est lié au problème du TObjectList - en fait, je voudrais pouvoir, dans un record, enregistrer dans un fichier un bitm localisation composant. [ par saimslim ] salut tous le mondejai chercher le composant 'dbdatetimepiker' sur le delphi6 et 7 mais j'ai rien trouver;est ce qu'il ya une possibilite de l'install Création composant visuel [ par bad_dark_spirit ] Bonjour à tous, J'ai un examen à faire chez moi, et le but de cet examen est de créer un composant visuel en Delphi. Bien évidemment, pas quelque chos Options Copier/Coller dans un composant [ par Francky23012301 ] Salut à tous,Je suis entrain de faire un composant qui devra permettre d'ajouter, redimensionner, supprimer, copier, coller des carrées : Rien de bien


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales