PRÉ-COMPOSANT D'AFFICHAGE DE TEXTE PROGRESSIF...

Commentaire de f0xi le 06/05/2009 20:52:10 administrateur CS

j'aime toujours bien tes codes, très obscure au premier abord, mais facilement compréhensible. ton originalité est rafraichissante.

ton seul defaut : tu ne respecte pas encore tout a fait les convention d'ecriture du code :

les variable private/protected sont a nommées "f" et non "_" nous ne faisons pas du C/C++!

un petit espace aprés les ":" entre l'identifiant et le type

les published avant les public override
les public avant les public override
les override aprés les nouvelles methodes etc

voila un exemple de ce que ça donne :

type
  TThreadOfTextFader = class(TThread)
  private
    fActuals   : TStringList;
    fLastDo    : TDateTime;
    fTextFader : TTextFader;
    function GetActuals: TStringList;
    function GetLastDo: TDateTime;
    function GetTextFader: TTextFader;

  protected
    procedure Execute; override;

  protected
    function GetDelay: Cardinal; virtual;
    procedure PleaseDo; virtual;
    property Actuals: TStringList read GetActuals;

  published
    property LastDo   : TDateTime  read GetLastDo;
    property TextFader: TTextFader read GetTextFader;

  public
    constructor Create(AObject: TTextFader); { reintroduce; }
    destructor Destroy; override;

  end;


si tu te resoud a faire ça, ce sera encore mieux!

tu peux faire un tours ici : http://www.delphifr.com/tutoriaux/CONVENTIONS-ECRITURE-IDENTIFIANTS-VARIABLES-METHODES-DELPHI_413.aspx

sinon, le reste est trés bien, un peu trop aéré mais ça reste parfaitement lisible.
l'Ascii art est toujours sympa, je regarderais plus en details demain.

Commentaire de blueperfect le 06/05/2009 23:49:03

Ce n'est qu'un avant goût...  

On peut en faire en HUD pour gameplay rapidement...

>>Bacterius
ça rame ?
T'as quelle config ?

Commentaire de blueperfect le 07/05/2009 20:03:56

>>Bactérius :
C pas normal....

Si tu rajoutes dans le FormCreate un doublebuffered = true ?

Commentaire de Bacterius le 08/05/2009 10:06:55

Oui c'est bon mon VIEUX PC (n'est pas un vieux PC, il a juste un ventilateur en moins, donc je dois baisser la vitesse du CPU à "basse" ou "moyenne" pour éviter qu'il s'éteigne, mais je vais le réparer dans le courant de la semaine prochaine) fonctionne maintenant :D plus de saccadé.

Cordialement, Bacterius !

PS : vire les fichiers inutiles, en particulier les fichier .dsk, .dof, .cfg. Ils enregistrent les options de Delphi (position de la fenêtre, répertoire de travail), et c'est avec cette gourde que je connais ton nom de famille ^^

Commentaire de nethacker le 09/05/2009 22:37:36

J'arrive pas à compiler moi,j'ai Delphi 6, et il n'arrive pas à créer le dcu, si tu peux l'uploader sur ton serveur si t'en as ou quelque part ailleurs ça serait bien sympa.

Commentaire de nethacker le 09/05/2009 22:56:27

Je m'excuse pour avoir écrit trop de commentaires à la suite, mais comme je ne peux éditer ...
C'est vraiment bizarre parceque, je voulais faire exactement la même chose ce matin, à la manière d'un noob plusieurs Tedit et un autre pour entrer une chaîne et non un fichier comme votre source, ne connaissant pas les threads je procède lettre par lettre comme votre "write", finalement je me bloque là :

var
alphabet : string;
length,i,j : integer;
begin
i := 1;
j := 1;
alphabet := 'abcdefghijklmnopqrstuvwxyzZBCDEFGHIJKLMNOPQRSTUVWXYZ';
length := edit22.GetTextLen;
while ( i <= length) do begin
if copy(edit22.Text,i,1) <> copy(alphabet,j,1)
then begin inc(j); edit1.Text := copy(alphabet,j,1); edit1.Refresh; sleep(120);   end
else begin inc(i); end;
end;

Je n'arrivais pas à passer au deuxième edit, impossible de faire un edit"i", pourtant c'est ce que je voulais faire, vous avez une idée ? du code on runtime ?

Commentaire de nethacker le 09/05/2009 23:45:05

Merci beaucoup !