ajouté fichier .CFG et .DOF version LIGHT pour les repertoires du projet

2 pouces ????!

ça te mets 2 pouces ou ?

alors 2 pouces = 5.08cm
soit la vitesse de la lumiere L=29 979 245 800 cm/s
ce qui nous donne donc  = 169 450.56036066124118439297095326 femtosecondes

ce qui est pas mal non ?

total des disques locaux : 53%
total local drive        : 52.7%


ah ça ça vient des arrondis ... faut que je modifie tout ça de toute façon, surtout que j'utilise le type currency qui n'est pas reputé pour sa fiabilitée contrairement a ce que dit l'aide delphi.

donc tout vas passer en Int64 (comme ça l'est deja en partie) et avec les modifs des calculs (y'en a partout) ça devrait etre plus stable, fiable, rapide et precis.

Coucou les gens :)

alors mmm ...

@cirec :
"F0xi en SP2" : oui, depuis un moment! tout ça a cause de ma carte graphique que ça venais même pas du fait que j'etais en SP1 d'abord.
la j'attend le retour des tests du SP3 ...

pour le CDRom je verais... car l'explorateur windows n'affiche pas cette erreur alors ça doit etre un truc comme ça je pense.

@cantador
"le message d'entrée est un peu chiant" ??! heu quel message d'entrée ?
y'a un message d'entrée ? j'ai rien codé de tel pourtant.

"c'est assez long à s'ouvrir" les performances dependent totalement des performances de ton PC, de tes disques dur, du fait des clef USB 1.0 branchée lors du lancement, des CD pourris dans le CD/DVDrom (ça ça te bouffe facile 30 a 60 secondes) ou encore des disques reseaux disponible sur un reseaux surchargé.
bref ... tout ça n'est pas dependant du programme.
chez moi j'ai deja fait des tests avec les 26 lecteurs remplis bilan plus de 2To de capa repartis sur disque dur de tout genre (SATA, SATA2, UDMA) et aucun probleme sur du reseaux 100Mbps.


pour le code justement, faut regarder par contre, y'a encore pas mal de reparation a faire et surtout y'a les changelog dans les sources du projet ...
et y'a quelques surprises a decouvrir... mais je vous laisser chercher.

tite amelioration pour les perf du paint :


procedure ClampPixCol(const iA,iB,iC:integer; var bA,bB,bC: byte);
begin
  if (iA and $80000000) = $80000000 then  bA := 0   else
  if (iA and $0FFFFF00) <> $00000000 then bA := 255 else
                                          bA := byte(iA);
  if (iB and $80000000) = $80000000 then  bB := 0   else
  if (iB and $0FFFFF00) <> $00000000 then bB := 255 else
                                          bB := byte(iB);
  if (iC and $80000000) = $80000000 then  bC := 0   else
  if (iC and $0FFFFF00) <> $00000000 then bC := 255 else
                                          bC := byte(iC);
end;

>>>>>> +35% de performances.



type
  TPixel32Color = (_R =0, _G=1, _B=2, _A=3);
  TPixel32 = array[TPixel32Color] of byte;

et au lieu des nombreux appels a Get?Value a la noix fait ceci :

var Pixel: TPixel32;
    Color: TColor;
...
  Pixel := TPixel32(Color);
  (traitement)
  ClampPixCol(cR,cG,cB, Pixel[_r], pixel[_g], pixel[_b]);
  Color := TColor(Pixel);


>>>>>> +90% de performances.


le mieux etant de travailler en 32bit avec pour le scan :

TScanLine = array[0..n] of TPixel;

vus le gain de performance on sera toujours mieux qu'en 24bits.


sinon tout le reste semble vraiment nickel.
j'essayerais de tester le compo quand j'aurais le temps :)

pour ceux qui ne veulent pas se prendre la tête a compiler "mon code"
l'executable est present dans le zip, dans le repertoire "exec"

il suffit de lire le fichier readme et de suivre les instructions ;)

si vous n'avez pas installer les composants Internet il vous faut importer le composant WebBrowser a la con ... oui j'ai eu un peu la flemme de faire mieux que ça :)
en plus il ne sert qu'a ceux qui sont observateur ... tetete j'en dis pas plus.

Ma unit
Overload component

tu t'exprime de façon bizarre :) t'as craké ou c'est la fatigue ?
hihihi

en tout cas, merci pour cette contribution,
j'y jetterais un oeuil.

Assé mal pensé ...
Aucun respect des conventions d'ecriture de code ...

au temps pour moi, c'est anterieur pas ulterieur :)
huhuhu

alors pour le Barre.Min, la VCL standard dispose d'un code propre qui empeche l'execution de tout une portion de code si une propriété se voit alouer toujours la même valeur :

procedure TProgressBar.SetMin(value: integer);
begin
  if Value <> fMin then
  begin
    fMin := Value;
    Change;
  end;
end;

ou un truc comme ça, mais c'est pas plus mal de le virer, on supprime ainsi un call, un cmp et un jump.


pour le registre :

pas besoin de gerer l'exception, et attention, tu ne librere plus l'instance du TRegistry, donc memory Leak!

au mieux, double bloc try :

with ...create do
try
  try
    ...
  except
    ...
  end;
finally
  Free;
end;

posterieur = precedente = ulterieure :)