Splashscreen sous delphi : comment l'animer ?

Splashscreen sous delphi : comment l'animer ? - Delphi/Pascal - Programmation

Marsh Posté le 26-08-2003 à 22:22:50    

J'ai fait un splashscreen tout simple, en déclarant une form lambda nommée TSplashForm , en mettant une image GIF animée dedans.
 
Je veut qu'elle s'initialise au démarrage, alors je fais exactement ca dans le fichier project1.dpr:
 

Citation :


var
 SplashForm : TSplashForm;
begin
  Application.Initialize;
  SplashForm := TsplashForm.create(application);
  SplashForm.Show; // affichage de la fiche
  SplashForm.Update; // force la fiche à se dessiner complètement
  try
    Application.CreateForm(TForm1, Form1);
  SplashForm.close;
  finally
    SplashForm.Release;// libération de la mémoire  
  end;
  Application.Title := 'OCCT';
  Application.Run;
end;


 
mais le blem c'est que ca s'affiche OK, mais pas comme je le voudrais, c'est a dire que le contenu ne réagit pas :(
 
j'ai donc essayé de faire un thread appelé depuis le .dpr qui va repainter le splashscreen toutes les X secondes, mais ca marche pas :( erreurs en cascade, alors que ca marche parfaitement une fois l'appli initialisée :(
 
Une idée ?


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
Reply

Marsh Posté le 26-08-2003 à 22:22:50   

Reply

Marsh Posté le 26-08-2003 à 22:26:33    

Ah oui, pour animer le gif, j'utilise un TJvGifAnimator de la jvcl ...
 
C'est ptet lui le souci :??:


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
Reply

Marsh Posté le 26-08-2003 à 23:00:15    

Non spa lui, en fait il faut lancer le splashscreen dans un thread, y a un code source chez Borland, mais codecentral est désactivé, je peux pas y avoir acces, ouin :cry:


---------------
L'ingénieur chipset nortiaux : Une iFricandelle svp ! "Spa du pâté, hin!" ©®Janfynette | "La plus grosse collec vivante de bans abusifs sur pattes" | OCCT v12 OUT !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed