Discussion :

[Harry]

Bonjour,

Pour bien marquer le passage d'une image à l'autre j'aimerais faire une transition avec par exemple un passage au noir (ou à la couleur du fond) pour ensuite venir sur la nouvelle image.

Le composant Image à une taille définie mais pas les jpeg que je met dedans grâce à un 'LoadFromFile'.

Une idée toute simple ? Ca pourrais être un fade de l'image en cours avant le chargement d'une autre, un remplacement bloc par bloc etc... Le plus important c'est de marquer la fin de l'image en cours plus que le chargement de la nouvelle image.

Merci

[korntex5]

un blend de ton image vers une couleur suivit d'un autre blend de la couleur vers ton autre image, te conviendrait?

[Harry]

Tout à fait !

Edit : meme un blend vers une couleur puis je recharge normalement l'image d'après irait. Par contre pour faire un blend proprement avec une TImage je ne sais pas trop (pas de multicouche ni de transparance).

edit : et pour pas faire simple les images affichés sont étirés mais pas déformés. (proportional et strech à true). Donc faudrait jouer avec le TBitmap je pense.

[andreditdd]

Bonjour,
est ce que la fonction "AnimateWindow" que l'on peut appliquer par exemple aux splashscreen ne fonctionnerait pas dans ce cas ?

André

[Harry]

Bonjour,
est ce que la fonction "AnimateWindow" que l'on peut appliquer par exemple aux splashscreen ne fonctionnerait pas dans ce cas ?

André

C'est une très bonne idée, je l'ai essayé vite fait mais malheureusement toutes les animations concernent la fenêtre entière, nécessitent de la masquer et donc affichent brièvement ce qu'il y à derrière (les autres fenêtres de l'appli, bureau windows etc..) en fait il s'agit d'une fenêtre qui sera mis en vitrine pour faire un diaporama.

[tourlourou]

un compo avec des transitions : http://www.torry.ru/pages.php?id=500

efg library, sûrement aussi

[Harry]

hmm, il y à des idées pas mal dans ces composants. Je pense que je vais diminuer la luminosité progressivement, ca fera un effet sympa.

Pour l'instant je butte juste sur un truc... vraiment bête : copier le contenu de mon TImage (qui contiens un jpg) dans un bmp je sais c'est bete mais je trouve pas comment faire sans effacer le contenu du TImage... bon, je verrais ça lundi

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TBitmap.Assign(TImage.Picture.Bitmap) ?

[Harry]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TBitmap.Assign(TImage.Picture.Bitmap) ?

J'ai essayé et ca m'efface le TImage !

[Harry]

Finalement je suis passé par des composants jpeg puis deux bmp au lieu de faire mes traitements directement sur le composant TImage.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
      value := 0;
      jpg.Assign(Image1.Picture);
      for k := 1 to 8 do begin
        //reduire luminosité
        value := value - (k * 5);
 
        bmp := TBitmap.Create;
        bmp.PixelFormat := pf24bit;
        bmp2 := TBitmap.Create;
        bmp2.PixelFormat := pf24bit;
        bmp.Width:=Image1.Picture.Width;
        bmp.Height:=Image1.Picture.Height;
        bmp2.Width:=Image1.Picture.Width;
        bmp2.Height:=Image1.Picture.Height;
        bmp.Canvas.Draw(0,0,jpg);
        bmp.PixelFormat := pf24bit;
        bmp2.Canvas.Draw(0,0,jpg);
        bmp2.PixelFormat := pf24bit;
 
        for i := 0 to bmp.Height -1 do begin
          OrigRow := bmp.ScanLine[i];
          DestRow := bmp2.ScanLine[i];
 
          for j := 0 to bmp.Width - 1 do begin
                // modifie luminosité
              if value > 0 then
              begin
                DestRow[j].rgbtRed := Min(255, OrigRow[j].rgbtRed + value);
                DestRow[j].rgbtGreen := Min(255, OrigRow[j].rgbtGreen + value);
                DestRow[j].rgbtBlue := Min(255, OrigRow[j].rgbtBlue + value);
              end else begin
                DestRow[j].rgbtRed := Max(0, OrigRow[j].rgbtRed + value);
                DestRow[j].rgbtGreen := Max(0, OrigRow[j].rgbtGreen + value);
                DestRow[j].rgbtBlue := Max(0, OrigRow[j].rgbtBlue + value);
              end;
          end;
        end;
        Image1.Picture.Bitmap := bmp2;
        Image1.Repaint;
        bmp.Free;
        bmp2.Free;
        Application.ProcessMessages;
        sleep(50);
      end;

Bien, cela fonctionne mais lors du ProcessMessages l'image disparait (laissant voir le fond) et se redessine de haut en bas très rapidement d'ou un effet de clignotement (balayage) désagréable.

Quelqu'un à une idée pour éviter cet effet ?

Merci

[Linkin]

Quand on charge un JPEG, le bitmap de Picture est vide, par contre avec un BMP pas de souci. Du coup le Assign ne fonctionne pas pour un jpeg.

[Harry]

Quand on charge un JPEG, le bitmap de Picture est vide, par contre avec un BMP pas de souci. Du coup le Assign ne fonctionne pas pour un jpeg.

pas pensé que dans un TImage bmp et jpg étaient séparés, ca explique bien des choses.

Pas d'idées pour le rafraichissement (repaint) pour eviter le balayage ?

[tourlourou]

BeginUpdate ?

[Harry]

BeginUpdate ?

Begin Update ca n'existe pas avec les TImage !

Mais j'ai trouvé, c'est mon ProcessMessage qui pose le problème, faut faire un repaint sans ProcessMessage et c'est bon !

Merci