COMPO TCYGAUGE, 1 GAUGE CONFIGURABLE/PERSONALISABLE ET INTERACTIVE!
cs_MAURICIO
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
-
8 août 2005 à 19:00
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 24 oct. 2005 à 13:27
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 - 24 oct. 2005 à 13:27
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/33125-compo-tcygauge-1-gauge-configurable-personalisable-et-interactive
https://codes-sources.commentcamarche.net/source/33125-compo-tcygauge-1-gauge-configurable-personalisable-et-interactive
24 oct. 2005 à 13:27
Je ne sais pas encore si je vais "distribuer" la TcyDBGauge (gauge liée à un champ de table) ...
La TcyGauge a quand même gagné en option:
-> Propriété ReadOnly: permet de modifier la position ou non de la gauge (sans code cette fois)
-> Événement OnChange
-> Quelques Optimisations
EnJoY !
19 sept. 2005 à 11:09
18 sept. 2005 à 01:08
A propos du PtInRect., finalement j'ai pas inclu l'instruction ScreenToClient, je le gère extérieurement.
Encore une fois, un compo tres sympa.
12 sept. 2005 à 17:12
cyGauge.ItemActive:=clRed;
cyGauge.ItemLastActive:=clRed;
Application.ProcessMessages;
Sleep(200);
cyGauge.ItemActive:=clLime;
cyGauge.ItemLastActive:=clLime;
Cela est dû à l' utilisation de la méthode Invalidate comme par exemple ici:
procedure TcyGauge.SetItemInactive(const Value: TColor);
begin
if Value <> FItemInactive
then begin
FItemInactive := Value;
Invalidate;
end;
end;
Même si on execute 56 fois le Invalidate, ça ne provoquera qu' une seule fois la méthode paint à moins que, évidemment, on ne force l' execution avec processMessage. C' est donc dans un soucis d' optimisation!!!
12 sept. 2005 à 17:05
J' ai cherché PtInRect mais je ne connaissait pas le nom de la fonction.
Normalement il devrait repeindre, je vais jeter un oeil...
29 août 2005 à 16:43
Donc, je vous informe que je répondrai à toutes vos questions à partir du 12 spetembre.
Ne m' en voulez pas mais les vacances c' est sacré !!!!
A+
28 août 2005 à 19:58
J'ai changé dans la function GetValue le test.
if (fromPoint.X >= ItemsRect.Left)
and (fromPoint.X <= ItemsRect.Right)
and (fromPoint.Y >= ItemsRect.Top)
and (fromPoint.Y <= ItemsRect.Bottom)
devient :
if PtInRect(ItemsRect, ScreenToClient(fromPoint))
pour pouvoir appeler GetValue à partir du tpoint résultat d'un GetCursorPos, et simplifier le test. (sinon, il faut disposer des x et y comme dans mousedown, par ex)
DOnc un click dans la gauge je l'écris :
procedure TForm1.cyGaugeClick(Sender: TObject);
var NewPos: int64;
ClickImpact : TPoint;
begin
GetCursorPos(ClickImpact);
if Playing then
begin
if cyGauge.GetValue(ClickImpact,NewPos) then
begin
MediaPlayerMP3.Position:= MediaPlayerMP3.length*
(NewPos) div 100;
MediaPlayerMP3.play;
end;
end;
end;
Je suis sous delphi 7.
28 août 2005 à 18:58
Si je fais ca
cyGauge.ItemActive:=clRed;
cyGauge.ItemLastActive:=clRed;
Sleep(2000);
cyGauge.ItemActive:=clLime;
cyGauge.ItemLastActive:=clLime;
Les couleurs ne changent pas.
Là, ca marche.
cyGauge.ItemActive:=clRed;
cyGauge.ItemLastActive:=clRed;
Application.ProcessMessages;
Sleep(200);
cyGauge.ItemActive:=clLime;
cyGauge.ItemLastActive:=clLime;
il ne repeint pas automatiquement ou bien ?
28 août 2005 à 17:31
J'aimerais m'en servir comme d'une scrollbar (cursor en forme de petite croix pour positionnement précis) mais dans l'evenement onclick, tu es sur que la position de souris dans le compo au moment du click modifie la valeur de position ? J'ai installé cygauge de ton pack de compo, il est à jour ?
10 août 2005 à 10:41
jette un oeil sur mon pack, il y plein de compos utiles :)
10 août 2005 à 08:04
ca fait plaisir de savoir que tu t'est mis a la realisation de composants
comme ca plus tu en saura plus on aura besoin de toi ... lol
bon courage ...
9 août 2005 à 10:18
mais je vais laisser Delphi où il est pour pouvoir me reposer un peu et faire ce que j' adore plus que tout: dormir ... D' ailleurs, ce compo était pour la rentrée seulement. Je vais devoir trouver autre chose maintenant, c' est malin! En tout cas, merci pour la note, venant de toi c' est encore mieux! À ce propos, je voudrais te rendre hommage pour le temps que tu as 'perdu' à me montrer ce qu' est la création de compo. Merci pour ton dévouement.
A+ Mauricio::en vacance dans 4 jours :)
8 août 2005 à 21:33
Décidément, il n'est pas facile d'arrêter un train en marche :o)
Pas mal ce compo signé "Made in Mauricio". Tu vas t'ennuyer pendant tes vacances. A moins que tu emmènes Delphi sous le bras, lol.
8 août 2005 à 19:00
A+