begin process at 2010 03 20 15:02:07
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

 > GRILLE MAGNÉTIQUE SUR TIMAGE

GRILLE MAGNÉTIQUE SUR TIMAGE


 Information sur la source

Note :
9,33 / 10 - par 3 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Classé sous :grille, magnétique, magnétisme, timage, scanline Niveau :Initié Date de création :13/11/2005 Date de mise à jour :27/11/2005 18:40:01 Vu / téléchargé :8 379 / 1 400

Auteur : Slander

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Bonjour à tous et toutes...
Bon comme je ne trouvais aucune réponse à mon problème ni sur le forum
ni dans les sources, ben je me suis penché sur le sujet pendant 2 jours...
Et ca donne ce code...

Donc comme le dit le titre (très explicite, vous me l'accorderez), ce code créé
une grille sur un TImage et la rend "magnétique", cad que le curseur de la souris
ne se place QUE sur la grille et pas sur le reste du TImage...

J'ai commenté le code comme je le fais tout le temps donc j'espère que ça vous suffira...


 Conclusion

Pour finir j'aimerai souligner les pratique utilisées dans mon code:
- Création dynamique d'un TImage (en option)
- Utilisation du DoubleBuffered (pour ceux qui ne connaissent pas)
- Utilisation de la fonction mod de delphi (modulo)
- Utilisation des fonctions Shl et Shr de Delphi (Shift Left et Shift Right)
- Utilisation de TQuelqueChose(Sender) dans les appels de procedure par différentes sources
- Utilisation du Scanline
- Utilisation de la fonction Format() de Delphi (pour ceux qui ne connaissent pas)

Bonne prog' à tous !

Je ne sais pas dans quel niveau de difficulté situer mon code, mais je ne crois pas que ca soit débutant donc...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

27 novembre 2005 18:40:01 :
Héhé ! j'avais oublié 2 lignes de code ! La honte... bon en fait le bug était le suivant: Lorsqu'on approchait la souris des bords Gauche ou Haut du TImage, le curseur sortait du TImage avant d'afficher la croix sur les points d'origines de l'image... bon c'est peut-être pas clair pour tout le monde, mais vous n'avez qu'à retirer ces 2 lignes et vous comprendrez... Les 2 lignes en question (dans la procédure ImageMouseMove): // DEBUT CORRECTIF BUG ! X := X - (PR_TailleGrille div 2); // On recentre le curseur de la souris pour Y := Y - (PR_TailleGrille div 2); // pouvoir s'approcher des bords de l'image... // FIN CORRECTIF BUG ! Voilà ! Bonne prog' à tous et toutes...

 Sources de la même categorie

Source avec Zip Source avec une capture PCB DESIGN LOGICIEL DE CRÉATION DE CIRCUIT IMPRIMÉ ET ACCESS... par jfs59
Source avec Zip Source avec une capture EFFET VITRE ET THUMBNAILS SOUS VISTA par Bacterius
Source avec Zip Source avec une capture ANAGLYPHEUR OU COMMENT VOIR EN RELIEF LES STÉRÉOSCOPES ANCES... par jfs59
Source avec Zip Source avec une capture DÉFORMER UNE IMAGE AUX DIMENSIONS D'UN QUADRANGLE QUELCONQUE... par FFCAST
Source avec Zip Source avec une capture THREAD ET BITMAP (DESSIN AU CRAYON) par barbichette

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ANAGLYPHEUR OU COMMENT VOIR EN RELIEF LES STÉRÉOSCOPES ANCES... par jfs59
Source avec Zip Source avec une capture GESTION DE CASES À COCHER PERSONNALISÉES DANS UN STRINGGRID par Jean_Jean
Source avec Zip Source avec une capture ANIMATION AVEC PNG par Bacterius
Source avec Zip Source avec une capture ANIMATIONS [SCANLINE + ALGÈBRE] par Bacterius
Source avec Zip Source avec une capture BONNE ANNEE ! par cantador

Commentaires et avis

Commentaire de Slander le 13/11/2005 21:09:42

Salut...  merci pour le commentaire...

Disons que c'est vrai que j'aurais pu... mais en fait dans mon application pour laquelle j'ai cherché cette technique celà me convient très bien... donc je n'ai pas cherché plus...

En tout cas j'ai mis ce code parceque je n'en ai trouvé aucun sur les site de code delphi...
Maintenant si quelqu'un veut le modifier libre à lui...

Et puis je n'ai pas la prétention de le croire parfait ce code... lol ! ;)
Mais bon, moi je l'utilise comme ça alors...

Bonne prog' à tous et tourtes...

Commentaire de Slander le 13/11/2005 21:13:35

Arf ! Merci pour la note j'avais pô fait gaffe !

Et oui je vois la grille dont tu me parles... et si j'ai le temps après mon projet je ferai une MAJ incluant ton idée...

Bonne prog' ami(e)s delphistes !

Commentaire de mebni le 15/11/2005 08:32:45

je trouve que c'est tres bien fait. merci, comme moi je suis débutante en delphi, je ne peux pas faire des commentaires.

merci encore.

Commentaire de Slander le 15/11/2005 14:31:41

Salut Mebni, je te remercie pour ton post... Et si tu as besoin d'aide, n'hésites pas !

Bonne prog' à tous et toutes...

Commentaire de dofusss le 13/10/2007 16:58:08

bonjour est-il possible de faire aparaitre 2 curseur de souris différents sur un ordinateur avec 2 souris différentes branchés sur le meme ordinateur ! ?

:S    :S

contacter moi auusi sur : CcCooldu02@hotmail.fr

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Grille magnétique sur un TImage... [ par Slander ] Bonjour, bonsoir... Voilà je cherche à faire un effet de grille magnétique sur un TImage mais j n'arrive pas à placer la souris s Afficher fichier RAW [ par astrorico44 ] Bonjour, je cherche a afficher le contenu d'un fichier raw (image d'app num) dans un TBitmap ou  un Timage j'ai une DLL qui me permet de recuper Timage et les format jpeg et jpg [ par yvessimon ] Bonjour,Je souhaite charger une image jpeg ou jpg dans un Timage.J'ai trouvé un exemple mais il me demande le composant TJpegImage ??A la compile Changer un l'image d'un TImage au bout de quelques secondes [ par ewertheimer ] Bonjour, J'aimerais savoir si il est possible de changer l'image d'un TImage au bout de 5 sec. Merci beaucoup de votre aide! Deplacer un TImage sur une form [ par ewertheimer ] Comment deplacer un TImage sur une form simplement en appuyant sur les fleches directionelles. Merci de vos reponses!!!! Affichage des composants et de leur fils [ par anisb ] Salut tout le monde,Voilà je suis débutant en Delphi et j'ai forcément un petit probleme...J'ai une classe qui dérive de TCustomPa Comment afficher un PNG qui est dans une ressource dans un TImage (avec TPNGimage) ? [ par Squallou ] Hello tout le monde. J'ai le composant TPNGImage qui me permet de mettre des PNG dans un TImage. J'ai un fichier PNG se trouvant dans un fichier *.RE TImage + Texte [ par louiwahl ] Bjr Voila je fai sun composant bouton avec des images et je fais afficher un titre genre "Caption" mais le texte s'affiche sur un fond je n'arrive pa TImage + Texte encore [ par louiwahl ] Bjr voila dans mon composant bouton deriver de TImage j'ai mis la proprietee Caption que je voudrais voire afficher sur mon bouton a la creation de c Superposition [ par Nicolas___ ] Bonsoir - jour , Voila j ai un gros probleme et si je vous demande de m aider c est parce que je ne vois pas du tout comment on pourrait y remmedierVo


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
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 : 0,811 sec (3)

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