Accueil > Forum > > > > Y'a t'il un Bug ?! Car c'est vraiment bizarre - (Un Composant)
Y'a t'il un Bug ?! Car c'est vraiment bizarre - (Un Composant)
vendredi 23 juillet 2004 à 08:37:53 |
Y'a t'il un Bug ?! Car c'est vraiment bizarre - (Un Composant)

glt0732
|
Voila j'ai un gros big probléme, j'ai créer un composant qui fonctionne assez bien je doit dire, mais il se passe quelque chose de bizarre, Alors je voudrais vous demandez de me tester mon composant sur votre PC, parce que j'ai vraiment l'impréssion d'avoir un Bug sur le miens ! Alors si quelqu'un pourrait me le tester cela serait super sympa, je vous en Remerci par avance ! Pour résumé mon composant : C'est une grille dont on peut changer le pas de grille avec la propriété "Factor", il y a aussi 2 autres propriétés, 1 pour la couleur de la grille, et 1 autre pour la couleur du fond de la page. Maintenant voici le code, tout d'abord la déclaration de la Class, suivit de la procédure Register et du Constructeur redéfinis :
unit Grid;
interface
uses SysUtils, Classes, Controls, Graphics, Windows, ExtCtrls, Dialogs, Forms, Messages, StdCtrls;
type TGrid = class(TGraphicControl) private FBackGroundColor:TColor; FGridColor:TColor; FFactor:Integer; SavColor:TColor; Grd, Bck:Boolean; procedure SetBackGroundColor(BackGroundColor:TColor); procedure SetGridColor(GridColor:TColor); procedure SetFactor(Factor:Integer); protected procedure Paint; override; procedure TraceGrid(value:TColor); public constructor Create(AOwner:TComponent);override; published property BackGroundColor:TColor read FBackGroundColor write SetBackGroundColor; property GridColor:TColor read FGridColor write SetGridColor; property Factor:Integer read FFactor write SetFactor; property Width default 350; property Height default 200; property Align default alCustom; property Action nodefault; end;
procedure Register;
implementation
procedure Register; begin RegisterComponents('GLTPerso', [TGrid]); end;
constructor TGrid.Create(AOwner: TComponent); begin inherited Create(AOwner); Width:=350; Height:=200; Align:=alCustom; Enabled:=true; Visible:=true; FFactor:=10; FBackGroundColor:=clWhite; FGridColor:=clBlack; end; |
Maintenant voici la premiére procédure, celle du Facteur de la grille (Le pas de la grille), la seul valeur possible est entre 5 et 50, ensuite on lis la propriété "Factor", suivit d'un appel a la procédure "TraceGrid" avec en parametre l'ancienne couleur sauvegarder (Vous comprendrez plus tard) :
procedure TGrid.SetFactor(Factor:Integer); begin if (Factor>=5) and (Factor<=50) then begin FFactor:=Factor; TraceGrid(SavColor); end; end; |
Ici on a la procédure de la couleur de l'arriére plan, a la fin de la procédure on appel encore la procédure "TraceGrid", mais cette fois ci on met la couleur de l'arriére plan en parametre :
procedure TGrid.SetBackGroundColor(BackGroundColor:TColor); begin FBackGroundColor:=BackGroundColor; Bck:=true; Grd:=false; TraceGrid(BackGroundColor); end; |
Ici on a la procédure de la couleur de la grille, a la fin de la procédure on appel encore la procédure "TraceGrid", mais cette fois ci on met la couleur de la grille en parametre, les valeur booleénne sont présente pour savoir laquelle des 2 propriété appel "TraceGrid", Bck=BackGroundColor et Grd=GridColor :
procedure TGrid.SetGridColor(GridColor:TColor); begin FGridColor:=GridColor; Bck:=false; Grd:=true; TraceGrid(GridColor); end; |
Et maintenant voici la fameuse procedure "TraceGrid", vous voyez maintenant a quoi serve les 2 valeur boolénne Bck et Grd, seulement a donnée la couleur a la bonne propriété appelante. La variable nommé "SavColor" enregistre la dérniere couleur, comme ça quand la procédure "Factor" appel la procédure "TraceGrid" celle ci a la bonne couleur, et cela se passe de la même façon pour la procédure "Paint"(plus bas) qui elle s'occupe du rafraichissement de la grille, Maintenant si on regarde juste aprés l'affectation de "SaveColor" il y a le fameux Bug, a cette endroit je dessine un rectangle qui est en faite le contour de mon composant, et bien si je le dessine a cette endroit, la propriété "GridColor" ne fonctionne plus. Et si je le dessine au dessus des 2 condition "if then" et bien c'est la propriété "BackGroundColor" qui fonctionne plus, alors a vrais dire je ne comprend plus rien. Je ne vois vraiment aucun rapport pour que cela ne fonctionne pas :
procedure TGrid.TraceGrid(value:TColor); var DX, AX, DY, AY, i, j, l, h:Integer; begin L:=Width; H:=Height; L:=Round(L/Factor); H:=Round(H/Factor); DX:=0; DY:=0; AX:=1; AY:=1; if Grd then Canvas.Pen.Color:=GridColor; if Bck then Canvas.Brush.Color:=BackGroundColor; SavColor:=value; Canvas.Pen.Color:=RGB(0,0,0); Canvas.Rectangle(0,0,Width,Height); for j:=0 to H do begin DX:=0; AX:=1; for i:=0 to L do begin Canvas.MoveTo(DX,DY); Canvas.LineTo(AX,AY); if DX<Factor-1 then begin DX:=Factor-1; AX:=Factor; end else begin inc(DX,Factor); inc(AX,Factor); end; end; if DY<Factor-1 then begin DY:=Factor-1; AY:=Factor; end else begin inc(DY,Factor); inc(AY,Factor); end; end; end; |
[/size=1]Et ici nous avons la procédure de rafraichissement de la grille :[/size=1]
procedure TGrid.Paint; begin inherited; TraceGrid(SavColor); end; end. |
Voila ! alors si vous avez un peu de temps devant vous, essayer ce composant, il vous suffit de faire un copier coller et le tour est jouer. Comme vous pouvez le voir c'est un composant trés simple, et je ne voit vraiment pas pourquoi cela ne fonctionne pas. Etant donnée que je commence depuis 1 mois a peine a programmer sous Delphi, vous risquer surement de trouver cela un peu compliquer pour ce que c'est, mais je débute et je connais pas beaucoup le language, alors si vous avez une solution plus simple dite le moi ! Merci ...
|
|
vendredi 23 juillet 2004 à 09:18:42 |
Re : Y'a t'il un Bug ?! Car c'est vraiment bizarre - (Un Composant)

glt0732
|
Réponse acceptée !
C'est un gros Bug !
Et oui en écrivant le message précédent, j'ai trouver la solution, je dessine tout bêtement mon rectangle noir avant quand c'est la couleur de la grille, et je le dessine aprés quand c'est la couleur de l'arriere plan, pas mal non !
Pour un Delphiste debutant je suis content de moi !
A 2 fois que j'écrit sur ce forum, et a 2 fois que je me répond moi même, bon mais franchement je ne vois vraiment pas pourquoi le faite de dessiner un rectangle avant ou aprés me fasse des betise pareil enfin ! Sacré Delphi ...
|
|
Cette discussion est classée dans : end, code, begin, procédure, factor
Répondre à ce message
Sujets en rapport avec ce message
cacher, hide, process, application, xp [ par Den ]
voici un code trouvé sur le web, il devrait permettre de cacher le processus du gestionnaire des taches de XP, je ne sait pas l'utiliseret j'ai déposé
Composant et Message Windows - Comment ? [ par glt0732 ]
Voila j'ai un gros probléme, et même l'aide de Delphi ne m'a pas donnée la réponse, enfin si, mais ça marche pas ! Alors s'il vous plait Aidez-Moi. Un
pb sur delphi a la compilation need help !!! [ par shark1664 ]
voila mon code c'est une requete qui récupère dans une table une ligne compète quand le code est pareil que ce que l'utilisateur a siasie et au niveau
Comment gérer les exceptions sur un tdbgrid? [ par toutoughou ]
Bonjour; J'ai un TDBGRID lié à un TADOTABLE. Je savoir comment je peux gérer les champs non nuls lors de l'insertion des nouveaux enregistrements.Donc
RTTI et VMT [ par emge ]
J'ai un héritage de classe, et j'aimerai "simplifier du code". En effet, ma classe TInfoCol peut contenir plusieurs property, et à la longue, celà peu
comment désactiver les raccourcis clavier de TAcroPDF [ par beckerich ]
Bonsoir, un petit problème qui m'embête depuis un moment, malgré pas mal de recherche... Je visualise un document PDF avec le composant TAcroPDF. Acr
Actualiser/Refresh IconCache [ par AgentAmine ]
Salut tt, je cherche un code pour actualiser le IconCache, malheureusement, il n'existe pas un API, mé j'ai trouve un code que me permet de faire ca,
Effacer la dernière image dessinée [ par Jean_Jean ]
Bonjour à tous, Non je ne programme pas sur la plage mais au milieu de mes cartons! Mais si comme je le pense vous avez emmené votre pc sur la plage
Rafraichissement DBGrid [ par Juju1988 ]
Bonjour à tous, J'ai un petit soucis j'ai un DBGrid qui m'affiche des scanners via un OracleDataSet et qui me dessine des cases à cocher cochées ou n
Problemes the thread [ par DavKli ]
Bonjour, je n'ai jamais travaillé avec plus d'un thread, alors il est temps de ce lancer. J'ai une application qui utilise un IdHttp Composant pour c
Livres en rapport
|
Derniers Blogs
TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|