TGRAPHICGAUGE C'EST PLUS BEAU

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 6 mai 2004 à 20:52
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 - 10 mai 2004 à 16:43
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/22572-tgraphicgauge-c-est-plus-beau

cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
10 mai 2004 à 16:43
Et re
En fait, ça ne devrait pas marcher, si on en croit l'aide Delphi sur la propriété Bitmap de TBrush. Seul l'image de 8 pixels sur 8 du haut gauche de l'image devrait être prise en compte pour le motif du pinceau , alors qu'en fait ... on peut utiliser n'importe quel format d'image.
Ceci n'est valable qu'avec la fonction FillRect, parce qu'avec la fonction Rectangle (qui dessine le contour en plus) on ne prend effectivement en compte que la région 8 x 8 pixels haut gauche du bitmap du pinceau !!!!
Quelqu'un a une explication ?
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
10 mai 2004 à 11:58
Oups !
En chassant le bug, j'ai trouvé un truc pas clair : l'utilisation dans le Create du composant de l'appel à la fonction AllocateHWnd
FWindowHandle := AllocateHWnd( WndProc);
De là, deux choses
1 - Ca sert à rien ! (et je ne sais plus pourquoi j'avais mis ça. En fait, ça sert à obtenir un Handle pour un contrôle "non-windowed")
2 - Pas d'appel à DeAllocateHWnd -> Probable source d'une Runtime error 216 à la fermeture de Delphi
En comparant avec de source de TGauge, je me suis aussi aperçu que j'avais rajouté des réponses aux messages WM_LBUTTONDOWN et WM_MOUSEMOVE (pour se servir de la Gauge comme d'un TrackBar) et un évennement OnChange
Je modifie le source et je mets à jour (avec de nouveaux bitmaps)

Kenavo
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
10 mai 2004 à 08:32
Salut,
Merci à tous !
Inekman, je vois pas pour ton erreur. Peux-tu préciser à quel moment ça t'arrive (localise en mode pas à pas si tu peux), il y a certainement une explication.
Kenavo
SiZiOUS Messages postés 69 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 29 novembre 2006
8 mai 2004 à 22:12
Magnifique !
Tout simplement.

Un beau 10/10 !
Inekman Messages postés 291 Date d'inscription dimanche 2 février 2003 Statut Membre Dernière intervention 30 juin 2006
7 mai 2004 à 17:10
C'est absolument génial. C'est de l'excellent travail ça Kenavo.
Cependant il y'a une violation d'accès à l'exécution d'un programme qui contient le composant....et comme par hasard, ça ne le fait pas avec le projet "Demo" que tu fournis :p.

Inekman. 10/10
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
6 mai 2004 à 20:52
Great job !
Un code propre clair et efficace comme on aimerait en voir à chaque fois.
10/10 sans hésitation.