CHANGEUR DE FOND D'ÉCRAN

Commentaire de Bacterius le 20/08/2009 20:40:05

Il manque :
- TTrayIcon (dans un élan de bonheur j'ai cru qu'il s'agissait de mon composant, de telle façon que j'aurai pu compiler, mais non ^^).
Le fichier .res n'est pas compatible D6 (pas testé D7), mais ça n'entrave pas la compilation.

Une fois après avoir inhibé tout ce qui touchait au TrayIcon, je compile.

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet AWC.exe a provoqué une classe d'exception EStringListError avec le message 'Indice de liste hors limites (0)'.  Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK   Aide  
---------------------------

Ceci est valable pour Delphi 6 (personal) et Delphi 7 (personal) sous Vista.

Je ne vais pas plus loin, j'attends déjà l'unité TTrayIcon.

Cordialement, Bacterius !

Commentaire de Bacterius le 20/08/2009 20:57:48

...
Bon ben tu as deux milles euros à me préter pour que j'achète D2006 ? Ou n'existe-t-il pas un autre moyen pour permettre à cette source d'être accessible aux personnes ne disposant pas du dernier Delphi sorti ?
Pour le EStringListError, ça vient peut-être du fait que je suis sous Vista et que je lui ai pas encore montré qui est le maître et que l'UAC n'en fait qu'à sa tête ... :'<

Cordialement, Bacterius !

Commentaire de Bacterius le 20/08/2009 21:08:03

Oui tu prends Paint et tu dessines l'icône à côté de l'horloge ^^

Cordialement, Bacterius !

Commentaire de cirec le 21/08/2009 10:51:07 administrateur CS

@John Dogget:

vu que tu dev sous D2006 je te conseille d'ajouter ceci dans le OnCreate de ta fiche principale :
  ReportMemoryLeaksOnShutDown := True;
au moins pendant la phase de testes ;)
ça te permettra déjà de voir que tu as des fuites de mémoires ... ;)

Commentaire de cirec le 21/08/2009 13:05:59 administrateur CS

il faut installer les pré-requis avant ... j'avais bien dit de télécharger la version ISO ... c'est la seule qui soit complète.

après si c'est sous Vista ... me semble qu'il y a une manip à faire pour installer le FrameWork :D
mais développer sous Vista ... y a comme un non sens ... :-#

Commentaire de Bacterius le 21/08/2009 13:53:38

Sinon petite amélioration : Au démarrage du logiciel, si aucune préférence n'a été mise à jour, permettre à l'utilisateur de choisir son dossier images ? (chez moi "D:\Images" pointe sur mon DD externe qui ne contient pas ce genre de données). Je vais changer à la main pour tester :)

Cordialement, Bacterius !

Commentaire de John Dogget le 21/08/2009 15:49:53

Je vais creuser cette histoire d'erreur au lancement.
Sinon, j'ai oublié de préciser que par defaut, il faut des images en jpg et rien d'autre, c'est une des limitations dont je parlais dans la présentation du code.

Je pense faire une MAJ dans le week-end pour arranger tout ça.

Commentaire de Bacterius le 23/08/2009 13:24:31

@Cantador : j'ai D7 aussi ;)

Cordialement, Bacterius !

Commentaire de Bacterius le 23/08/2009 15:39:34

Chose bizarre, j'utilise plus Delphi 6 que D7, car sur Delphi 6, quand on passe le curseur par-dessus une variable/constante/n'importe-quoi sur le code, une bulle d'aide s'affiche qui donne l'unité dans laquelle cet objet est déclaré, les paramètres si c'est une fonction/procédure, le type ... chose absente dans Delphi 7 ... mais peut-être qu'un réglage des options ??

Cordialement, Bacterius !

Commentaire de cantador le 23/08/2009 18:31:50 administrateur CS

une bulle d'aide s'affiche qui donne l'unité dans laquelle cet objet est déclaré, les paramètres si c'est une fonction/procédure, le type ... chose absente dans
Delphi 7 ...

cela fonctionne aussi sous D7..

qui est certainement une des version de delphi la plus stable.
D2009 semble être encore plus rapide et possède des fonctions avancées supplémentaires..

bon va falloir que l'on casse la tirelire..

cantador

Commentaire de cantador le 23/08/2009 19:28:48 administrateur CS

ben chez moi, j'ai tellement de plantages que finalement le fond d'écran je le change à la main..
au boulot John Dogget !

Commentaire de John Dogget le 23/08/2009 20:23:05

J'ai fais une petite mise à jour qui devrait résoudre le EStringListError.
Par contre, j'ai toujours des ennuis avec la réduction au démarrage qui semble vraiment se comporter de manière aléatoire.

Par ailleurs Foxy m'a contacté en me disant qu'il avait fait une grosse modif du code sans donner plus de précisions.
Il ne m'as rien envoyé pour l'instant, peut être qu'il a trouvé une solution.

Commentaire de cantador le 23/08/2009 21:23:03 administrateur CS

désolé John Dogget, j'ai répondu un peu vite..
en fait, j'ai les mêmes soucis signalés par Bacterius mais
dès que pour une source, il faut faire ci il faut ça..
ça m'ennuie un peu..
Pour ma part, un programme déposé doit fonctionner ou alors il faut vraiment bien préciser le contexte dans lequel celui-ci doit tourner.

Commentaire de cantador le 23/08/2009 23:12:21 administrateur CS

je viens de tester à nouveau.
sous D7, le trayIcon n'est pas reconnu.

Commentaire de cantador le 24/08/2009 10:03:20 administrateur CS

j'aime pas inhiber des trucs mais ça marche..
reste le souci du format des images..dès que le choix tombe sur un .bmp paf ça plante..
ce souci doit pouvoir se régler rapidement..
il faut donc une version réglant ce problème +
une compilation qui tienne compte de la version de delphi
(av D7 et ap D7)

Commentaire de Bacterius le 24/08/2009 17:39:01

Tu peux pas simplement utiliser un composant qui existe déjà sur le site pour le TTrayIcon ? Pas grand chose à changer si ce n'est le nom des propriétés, etc ...

Cordialement, Bacterius !

Commentaire de Bacterius le 24/08/2009 17:54:15

Arghh ! Tu peux pas t'en empêcher hein ...

Cordialement, Bacterius !

Commentaire de Bacterius le 24/08/2009 18:02:30

Ok ben ça sera donc sans moi :/
Pourquoi ne pas utiliser mon composant TTrayIcon ? Il convient parfaitement à ce que tu cherches à faire ... et les propriétés sont Title, Active, PopupMenu, Icon, et tu peux appeller une bulle d'aide avec BalloonHint ...

Cordialement, Bacterius !

Commentaire de Bacterius le 24/08/2009 18:13:35

Tu mets le problème à l'envers là. Pour le confort des gens, il est, je sais pas, logique de permettre une compilation aisée. Déjà, si il faut télécharger un pack de 20 Mo pour un seul composant ... après rien ne t'empeche de faire une version "pour toi", avec la JVCL, offrant + de possibilités, puis une version "CS", n'utilisant que des compos facilement récupérables.
Enfin bon, moi je peux pas installer la JVCL parce que ça marche pas, que veux-tu. Il y a sûrement un moyen, mais me débattre pour un composant dont j'ai déjà codé mon propre compo qui fait presque pareil, c'est frustrant quoi ...

"à cause de toi" => excuse-moi d'essayer de compiler hein ...

Enfin bon, restons dans l'amiable o0"

Cordialement, Bacterius !

Commentaire de Bacterius le 24/08/2009 19:56:28

"le programme n'est pas censé voir les fichiers en bmp"
C'est quand même un comble pour le fichier image natif de Windows :]
Peut-être un support Bmp/Jpeg serait intéressant, particulièrement pour ceux dont la qualité des JPEG pique les yeux ...

Cordialement, Bacterius !

Commentaire de cantador le 24/08/2009 22:23:14 administrateur CS

Toujours la même chose..
et si on choisit un dossier ne contenant pas de fichier à extension d'image valide-->>plantage
ce qui pourrait être eviter avec un Try Except End
pour les autres extensions, il faut soit convertir, soit tester.
et la fonction de notre cher japee fonctionne avec un fichier .bmp :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses ShlObj, ComObj, Jpeg;

procedure ApplyWallPaper(const FileName: string; wpStyle: DWORD = WPSTYLE_CENTER);
const
  GUID: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ComObj       : IUnknown;
  Buffer       : PWideChar;
  WallPaperOpt : TWallPaperOpt;
begin
  if not FileExists(FileName) then Exit;
  Buffer := AllocMem(MAX_PATH);
  StringToWideChar(FileName, Buffer, MAX_PATH);
  WallPaperOpt.dwStyle := wpStyle;
  WallPaperOpt.dwSize := SizeOf(WallPaperOpt);
  ComObj := CreateComObject(GUID);
  with ComObj as IActiveDesktop do
  begin
    SetWallpaperOptions(WallPaperOpt, 0);
    SetWallpaper(Buffer, 0);
    ApplyChanges(AD_APPLY_ALL); //(AD_APPLY_ALL or AD_APPLY_FORCE);
  end;
  FreeMem(Buffer);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ApplyWallPaper('c:\essai\Aquarium.bmp',0);
end;

end.

Commentaire de John Dogget le 25/08/2009 23:21:05

Mise a jour !

Le bug de la liste vide est en principe corrigé, je dis en principe parce qu'en fait je suis pas arrivé à le reproduire ^^

Le TrayIcon est codé "en dur" dans l'appli, c'etait moins compliqué que je ne pensais.

Par contre, le démarrage en mode reduit réagit toujours bizaremment ...