[TImage] Effectuer une transition

Version imprimable

02/03/2007, 09h52
Harry

[TImage] Effectuer une transition

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
02/03/2007, 10h01
korntex5

un blend de ton image vers une couleur suivit d'un autre blend de la couleur vers ton autre image, te conviendrait?
02/03/2007, 10h35
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.
02/03/2007, 12h49
andreditdd

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

André
02/03/2007, 14h01
Harry

Citation:

Envoyé par andreditdd

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.
02/03/2007, 16h15
tourlourou

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

efg library, sûrement aussi
02/03/2007, 18h28
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 :aie: je sais c'est bete mais je trouve pas comment faire sans effacer le contenu du TImage... bon, je verrais ça lundi ;)
02/03/2007, 18h56
tourlourou

Code:

TBitmap.Assign(TImage.Picture.Bitmap) ?
02/03/2007, 19h15
Harry

Citation:

Envoyé par tourlourou

Code:

TBitmap.Assign(TImage.Picture.Bitmap) ?

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

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:

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

05/03/2007, 11h33
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.
05/03/2007, 11h39
Harry

Citation:

Envoyé par 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.

:mur: 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 ?
05/03/2007, 13h35
tourlourou

BeginUpdate ?
05/03/2007, 13h54
Harry

Citation:

Envoyé par tourlourou

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 ! :king:

Merci