VERROUILLEUR D'APPLICATION

Commentaire de SOUMIA le 05/05/2006 21:32:42

tres bien
ce composant ma aide dans mon logiciel de cyber
merci

Commentaire de Emandhal le 06/05/2006 01:52:01

"ATTENTION !! Les verrous sont également fonctionnels dans le concepteur de fiches, et pas uniquement à l'execution." <<< personnellement je trouve que c'est un problème. Mais ca n'engage que moi ^^

J'ajouterai cette ligne au tout début de chaque procedures et fonctions qui créent ce vérrouillage :

If (csDesigning in ComponentState) Then Exit;

Normalement après les touches fonctionneront quand on est dans le concepteur et plus du tout à l'exécution.

Commentaire de f0xi le 06/05/2006 06:16:42 administrateur CS

il faut egalement tester et declancher des evenements :


par exemples :


private
  fLockers    : TKeyLockers;
  fLockAltEsc : boolean
  fLockAltTab : boolean

  procedure SetLocker(index : integer; value : boolean);

protected
  procedure ChangeLockers; virtual;

published
  property LockAltEsc : boolean index 0 read fLockAltEsc write SetLocker;
  property LockAltTab : boolean index 1 read fLockAltTad write SetLocker;


procedure TClasse.ChangeLockers;
begin
  ... traitements des verroux ...
end;

procedure TClasse.SetLocker(index : integer; value : boolean);
  procedure _Lock(lck : TLockers; Adding : boolean);
  begin
    if Adding then
       fLockers := fLockers + [lck]
    else
       fLockers := fLockers - [lck];
  end;
begin
  case Index of
    0 : if fLockAltEsc <> Value then
        fLockAltEsc := Value;
        _Lock(vAltEsc, fLockAltEsc);
        ChangeLockers;
    end;    
    1 : if fLockAltTab <> Value then
        _Lock(vAltTab, fLockAltTab);
        ChangeLockers;
    end;    
  end;
end;



et un dernier truc, bien verifier a la destruction qu'on restaure correctement l'etat du registre pour le taskmanager...
donc il faut sauvegarder son etat avant toute chose et restaurer cet etat tel qui doit l'etre quand on detruit le composant.

Commentaire de kam_2006 le 06/05/2006 11:59:04

Bonjour
je partage l'idée de Emandhal.Les verrous sont aussi fonctionnels dans le concepteur de fiches, ce qui est un problème.

Commentaire de f0xi le 07/05/2006 06:13:39 administrateur CS

hello!

ouai desolé pour les remarques, comme tu le dis, c'est surtout une histoire de conventions ...
tu as les tiennes ... c'est bien ... aprés tout pourquoi pas ... je ne te force en rien ... juste que c'est une mauvaise habitude que tu a pris ... toute proportions gardées. ^^

pour la methodologie hazardeuse, c'etait peut etre un bien grand mots pour definir ce que j'entend par la ... en fait ... il me semble que meme si le probleme est geré efficacement il manque un ... je ne sais quoi ... qui fait que ... peut etre ton indentation de code qui me donne cette inpression... je ne saurais l'expliquer clairement.

pour le registre oui, ça m'a sauter au yeux tout de suite, car j'ai du me demener plusieurs fois contre des virus et trojan qui utilisés cette valeur du registre... donc la connaissant bien et surtout connaissant son effet sur le systeme (blocage non seulement du taskmanager mais egalement de l'adminbox), j'ai tout de suite remarquer que tu n'avais fait aucun control dessus, point trés important qui me semblais urgent de signaler.

Pour les evenements alors, ok, je comprend mieux ton approche et pourquoi tu n'a pas choisi ce genre de methode qui en effet, sont totalement inutile car tout est definit en conception et non en execution (quoique un peu, au moins a la creation et destruction).

Pour la traduction, la on ne serat pas d'accord et il serait dommage de partir sur un troll sans fin avec la fameuse question "write your code in english or not ?"
Mais loin de moi l'idée de faire une apologie elitiste de la langue anglaise dans le code.
C'est jsute peut etre que pour moi l'internationalisation voulue par internet est importante donc j'essaye de traduire au mieux mes identifiant en anglais ... Et si la traduction pose probleme, j'ajoute des explication complete et une trad en commentaire dans les sources de toute façon ... ce qui resoud en partie le probleme des non-anglophones ...
c'est juste qu'on soit francais, allemand, russe ou quoi, l'anglais "de base" et/ou "informatique" est assé comprehensibleet simple...
Tu m'aurais vus sur une Doc TurboPascal sur le ModeX commentée en Allemand avec des identifiant en Allemand egalement ... Doc Rare, introuvable presque ... j'ai du me resigné a ne pas l'utilisée... comme quoi ... et c'est aussi que l'anglais est composé de mots court et simple a retenir qui permettent donc d'ecrire des identifiant court et facilement comprehensible, SetValue, GetValue, ReturnValue, AddItem etc... comme je le dis souvent, imagine en français ou en bielo-russe ... DefinirValeur, RecupererValeur, RenvoyerValeur, AjouterElement ... BERK!
en plus ça rend le code Long et fastidieux a taper et plus c'est long, plus ça augmente les chances de fautes de frappes. Bref que des désaventage d'ecrire des identifiant en une langue autre que l'anglais.
mais bon ... ça ... c'est un soucis personnel ... comme la religion ou le sexe.

Pour ton indentation de code ... ben ... oui ... c'est la tienne quoi ... ^^

Pour le type TVerrou et TVerrous (Set) la aussi c'est une histoire de convention ... libre aprés de suivre ou pas...
les deux methodes fonctionne ... mais n'offre pas le meme lot depossibilitée ...

TFontStyle = (fsBold,fsItalic,fsUnderline,fsStrikeOut);
TFontStyles = set of TFontStyle;

TAsyncStyle =(asRead,asWrite,asOOB,asAccept,asConnect,asClose);
TAsyncStyles = set of TAsyncStyle;

ce qui permet par exemple d'ecrire des methodes de ce genre :

methode(FST : TFontStyle)
methode(ASYN: TAsyncStyle)

un peu comme quand on ecrit :

TCharArray = array of char;
TCharMatrix= array of TCharArray;

et

TCharMatrix = array of array of char;

dans la premiere declaration on pourras utilise le type TCharArray pour traiter les donnée ... dans la deuxieme declaration ... on devras travailler sur toute la matrice.

tu comprend pourquoi j'essaye de te demontrer l'importance de cela (bien que je pense que tu le sache deja).

et donc l'erreur, qui n'est effectivement pas une erreur de compil ou d'execution mais une "erreur" de declaration de type qui oblige une certaine façon d'ecrire le code et de traiter les donnée qui serat donc peu souple...

bien sur, si je dis tout cela, c'est dans le but de mieux comprendre pourquoi tu as fait comme cela mais egalement te donner un avis exterieur qui pourrais te donner des idées ...
voila.

sinon, cela reste bien sur un trés bon code et c'est pour cela que je m'y interresse tant et donc que j'ecris autant de "conneries" sur cette page... ^^

Commentaire de Michele58 le 13/05/2006 23:08:38

C'est un bon composant pour travailler que sur une seul feuille (Form1).
Super et simple ce composant.
Je place des points au maximum.

Bizzz...
Michèle.

Commentaire de WhiteHippo le 25/05/2006 01:33:12

Merci SRAVERDY.

J'ai mis à jour le code du composant pour corriger le bug.

Cordialement.