ECRAN DE VEILLE CLUBINSCR V 2.1

Commentaire de f0xi le 06/12/2005 20:16:08 administrateur CS

Ah ... bien bien bien ...

bon deja, no comment sur les 36 timers present sur la fiche ^^

bon par ou commencer ... mmmm ...

deja, tu pourrais reduire la declaration pour quitter dans une procedure et appeler cette procedure dans les evenements de la fiche :

procedure QuitterScreen;
begin
  Application.Terminate;
  AnimateWindow(Form1.Handle,2000,AW_BLEND or AW_HIDE);
end;

et dans :
form1.keypress, form1.mousemove, form1.mousedown
appeler cette procedure.


pour l'animation du jpg, tu peu faire comme cela :

const
{$j+}
   MoveLeft : boolean = true;
   MoveUp   : boolean = true;
{$j-}

implementation

procedure TForm1.Form1Create(sender : tobject);
begin
  // evite le clignotement de l'image
  form1.doublebuffered := true;
  // empeche les click sur l'image
  image1.enabled := false;
  // possition l'image au milieu de la fiche
  image1.left := (form1.width div 2) - (image1.width div 2);
  image1.top  := (form1.height div 2) - (image1.height div 2);
  // demarre l'animation
  timer1.interval := 10;
  timer1.enabled := true;
end;

procedure TForm1.Timer1OnTimer(sender : tobject);
begin
  with image1 do begin
    if MoveLeft then left := left - 2 else left:= left + 2;
    if MoveUp   then top  := top - 2 else top := top + 2;

    if Left <= 0 then MoveLeft := false;
    if Left >= form1.ClientWidth-Width then MoveLeft := true;
    if top  <= 0 then MoveUp := false;
    if top  >= form1.ClientHeight-Height then MoveUp := true;
  end;
end;



voila, bon courage pour la suite.

Commentaire de Matt 261 le 07/12/2005 12:56:41

Oui...(hum) le code est un peu barbare comme je l'avait dit...
Merci pour les coms ...

Commentaire de f0xi le 08/12/2005 00:51:49 administrateur CS

pour cacher la barre de tache de windows il suffit juste d'aller dans les options :

demarre > parametres > panneau de conf > barre des taches et menu demarrer...

sinon en effet j'avais pas capter au depart mais ton ScreenSaver n'en est pas réellement un, car il genere un EXE et pas un SCR ... no comment.

Ton code n'est pas barbare, disont qu'il montre bien que tu debute. nous sommes tous passer par la. donc point honte a avoir. nous aussi nous avons deja créer des routines toute pourrite (j'aime "pourrite" et pas "pourrie", pourrite c'est marrant a prononcé), des boucles qui boucles   sur des boucles de routines pourrite ...
Meme parfois, avec le recule et l'experience on se demande comment ces "boulzors" de programme pouvait fonctionner et surtout comment on a pus croire a ce moment la que c'etait des programmes "whoaaaa trop d'la balle"...



@Florenth :
tu sais ce qu'elles te disent mes constantes typées affectables!?! (hihihi)
moi gn'aime bien les CTA, je trouve ça pratique, comme les types record et object ... desolé c'est du code focile que je me traine depuis pascal 4.0 ...
et de plus c'est egalement l'abus de php, javascript et c++ ou on peu affecter la valeur d'une variable directement dans la declaration de cette derniere ... ce qui est plus pratique que d'aller 150 lignes plus bas pour l'initialisée. maintenant cela n'a pas réelement d'effet positif ou negatif sur le programme, du moins je n'ai jamais rencontrer de disfonctionnement innerants a l'utilisation massive des constantes typées affectable.
J'ai vus un tuto de GrandVizir a ce sujet, je vais surrement le relire, j'y trouverais peut etre une explication qui me convainquerais du contraire.
Mais je te fait confiance Florenth, juste que pour une fois tu a legerement oublié d'argumenter ton propos (etonant meme) ... et tu sais maintenant que j'apprecie grandement tes demonstrations qui permettent toujours de mieux ecrire un code propre, leger et performant.
Pour moi les constantes typées affectables permettent de gagner du temps dans les declaration/initialisation (tu noteras tout de meme que je n'oublis pas la directive $J- pour cloturé la zone)...
Alors je n'attend plus qu'une chose de ta part : convains moi que les constantes typées affectable ne sont plus d'actualitée dans delphi.


bon courage a toi Matt pour ton apprentissage et bienvenus dans le monde merveilleux de Delphi.

Commentaire de Matt 261 le 08/12/2005 20:17:07

Voila la mise a jour de mon "super" écran de veille.
J'ai viré les Timers inutiles et en effet ca ne compilait pas en scr donc ca c'est corrigé. Reste l'animation "qui sert à rien", VIRée, le prog s'ouvre et se ferme beaucoup plus rapidement a mon avis. je vais faire une boite pour la configuration de l'écran avec sauvegarde dans fichier ini.

A Florenth

En fait ça ne fait qu'un mois que je suis sur Codes Sources mais ça fait 1 ans et demi que je programme. Certe je n'ai pas beaucoup de gros progs serieux à "mon actif" (seulement 2) mais j'en ai 1 en projet qui j'espère va bientôt voir le jour:

http://www.delphifr.com/forum.v2.aspx?ID=614195#4

@+ et bonnes remarques (lol)...

Commentaire de Matt 261 le 09/12/2005 08:01:15

Je suis allé voir en effet le site que tu m'avait indiqué. Il va falloir que j'y retourne pour voir tout ce qu'il me reste à faire...
Sinon Florenth je n'avais pas pris ton com pour une sous-estimation de mon expérience même s'il me reste encore beaucoup de chose à découvrir.
Grâce aux 6 tiemr de moins et aux effet de fermeture j'ai gagné 1 ko sur mon application, elle ne fait plus 532ko mais 531ko...
Je vais refaire une mise a jour sous peu, je me suis apreçu que j'avais oublié d'enlever une animation...(formClose).

@ f0xi

Quand je parlais de cacher la barre des taches c'etait la recouvrir avec mon application...
désolé si je me suis mal exprimé.

Commentaire de Matt 261 le 09/12/2005 19:15:47

... en fait c'est déja fait (j'ai oublié de relire ma source...) et ca ne cache pas la barre des taches. D'ou la capture d'écran(on voit la barre des taches...)

Commentaire de Matt 261 le 19/12/2005 10:42:34

Y'a une mise à jour qui pousse...

Commentaire de Matt 261 le 19/12/2005 11:32:53

Je voulais savoir un petit truc sinon, ça n'a rien a voir avec ça mais c'est pas grave...
Est-ce que l'on peut faire payer des images que l'on a fait avec un logiciel de photo payé style PhotoShop? Si oui combien???

Commentaire de Matt 261 le 12/03/2006 20:37:32

Merci beaucoup Florenth ça me fait super plaisir.
Je vais faire une autre mise à jour j'ai vu 2 tout p'tits bug et j'ai ajouté une fonctionnalité.
En fait ce projet avait "dormi" pendant ces 3 mois je mis suis remis avant hier

Commentaire de Matt 261 le 15/03/2006 19:25:36

Une p'tite erreur c'est produite la source n'est pas au niveau expert mais débutant... Autant pour moi.

Matt

Commentaire de f0xi le 07/04/2006 03:24:54 administrateur CS

holala ...

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  OpenPictureDialog1.InitialDir := ExtractFilePath(Edit1.Text);
  if OpenPictureDialog1.Execute then
     Edit1.Text := OpenPictureDialog1.FileName
  else
     Edit1.clear;
end;



procedure TForm3.Button2Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Edit2.Text);
  if OpenDialog1.Execute then
     Edit2.Text := OpenDialog1.FileName;
end;



procedure TForm3.Button1Click(Sender: TObject);
begin
  if not Timer1.Enabled then begin
     Button1.Caption := '&Stop test';  
     Timer1.Interval := SpinEdit1.Value;
  end else begin                        
     Button1.Caption := 'Te&st timer';    
  end;
  Timer1.Enabled := not Timer1.Enabled;            
end;



procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FichierIni := TIniFile.Create(Chemin+'ClubinCfg.ini');
  with FichierIni do begin
    WriteString('Timer','Value',SpinEdit1.Text);
    WriteString('Picture','Value',Edit1.Text);
    WriteInteger('Color','Value',ColorBox1.Selected);
    WriteInteger('AlphaBlend','Value',TrackBar1.Position);
    WriteString('MusicFile','Value',Edit2.Text);
    WriteString('BackgroundPicture','Value',Edit3.Text);
    WriteBool('Beep','Value',CheckBox1.Checked);
    WriteBool('Music','Value',CheckBox2.Checked);
    WriteBool('Effects','Value',RadioButton1.Checked)
  end;
  FichierIni.Free;
end;



procedure TForm3.FormCreate(Sender: TObject);
begin
  Chemin     := ExtractFilePath(Application.ExeName);
  FichierIni := TIniFile.Create(Chemin+'ClubinCfg.ini');
  with FichierIni do begin
    if not SectionExists('Timer')             then WriteString('Timer','Value','90');
    if not SectionExists('Picture')           then WriteString('Picture','Value','');
    if not SectionExists('BackgroundPicture') then WriteString('BackgroundPicture','Value','');
    if not SectionExists('Color')             then WriteInteger('Color','Value',clBlack);
    if not SectionExists('AlphaBlend')        then WriteInteger('AlphaBlend','Value',255);
    if not SectionExists('Beep')              then WriteBool('Beep','Value',false);
    if not SectionExists('Music')             then WriteBool('Music','Value',False);
    if not SectionExists('MusicFile')         then WriteString('MusicFile','Value','');
    if not SectionExists('Effects')           then WriteBool('Effects','Value',false);

    SpinEdit1.Text       := ReadString('Timer','Value','90')
    Edit1.Text           := ReadString('Picture','Value','')
    Edit3.Text           := ReadString('BackgroundPicture','Value','')
    ColorBox1.Selected   := ReadInteger('Color','Value',$000000)
    TrackBar1.Position   := ReadInteger('AlphaBlend','Value',255)
    CheckBox1.Checked    := ReadBool('Beep','Value',False)
    CheckBox2.Checked    := ReadBool('Music','Value',False)
    Edit2.Enabled        := CheckBox2.Checked;
    Button2.Enabled      := CheckBox2.Checked;
    Edit2.Text           := ReadString('MusicFile','Value','')
    RadioButton1.Checked := ReadBool('Effects','Value',False);
  end;
end;

Commentaire de cirec le 07/04/2006 12:17:46 administrateur CS

Salut,
pour les buttonClick oui mais pour le FormCreate la je dis non.

Les testes sur SectionExists sont inutiles. En fait quand on cherche à lire une valeur dans un fichier Ini et que Section où Ident n'existe pas c'est la valeur par défaut qui est renvoyé (SpinEdit1.Text := ReadString('Timer','Value','90')) ici c'est 90 qui est par défaut.

C'est juste du code pour rien et même si le fichier Ini n'éxistait pas les valeurs par défaut seraient quand même transmises. Et le fichier Ini est écris seulement si l'utilisateur à cliqué sur Ok.

Mais bon Matt pourras s'en rendre compte avec la version modifier ...

@+
Cirec

Commentaire de cirec le 07/04/2006 15:21:23 administrateur CS

Pour les unités manquantes tu peux les trouver ici :
http://www.delphifr.com/codes/COMPOSANTS-TCY-COMPONENT-PACK-V5-60_30296.aspx
Mais il faut les installer
Comme il n'y en a que deux boutons (RBbutton) si tu les mets en TButton tout le monde pourra compiler ta source.

@+
Cirec

Commentaire de Matt 261 le 13/04/2006 18:20:22

Voila la petite mise à jour attendue...

Commentaire de Matt 261 le 15/04/2006 19:49:02

Oui je sais sauf que je n'arrive pas à mettre le mot de passe pour mon écran. Quand je coche la case pour le mot de passe j'applique, je lance mon écran et rien ne ce passe avec le MdP.
Je viens re troquer le fichier ini pour la suvegarde dans la base de registre donc je ne vais pas tarder à remettre à jour.

Commentaire de Matt 261 le 16/04/2006 08:15:22

Oui merci Florenth, c'est là où j'été allé en premier et je crois que je vais y retourné. Je n'y avait pas pensé.

Commentaire de Matt 261 le 23/04/2006 09:50:38

Oui en fait j'utilise normalement un installateur (InnoSetup) qui peut me créer ou supprimer les valeurs dans le registre mais là il faut les virer à la main. Les valeurs se trouvent ici:
HKEY_LOCAL_MACHINE \ SoftWare \ ClubinScr .

@+
  Matt

Commentaire de Matt 261 le 23/04/2006 11:52:11

Oui je donnais juste ça pour les gens qui ne savaient pas ou les données se trouvaient.
Merci pour l'explication quand-même.
@+
Matt

Commentaire de Matt 261 le 01/05/2006 17:57:26

merci Idefix,

Les premiers commentaires ne sont plus d'actualité si je puis dire puisqeu mon écran de veille à évolué depuis mais je me suis apreçu d'un bug au niveau de la lecture des fichiers audios. Je vais corriger ça au plus vite...

@+
  Matt