Splashscreen sous delphi : comment l'animer ? - Delphi/Pascal - Programmation
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
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
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:
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 !