Comment obtenir l'effet grisé de l'écran "Arrêter/Redémarrer" ?

**jambonstar** · 07/03/2007, 16h02

Bonjour,

J'aimerai savoir comment reproduire l'effet produit par la fenetre Arreter/Redemarrer de Windows XP.
Et je ne vais pas être chiant, je me fou un peu de l'éffet progressif.

En fait, c'est pour mettre en valeur une sorte de boite de progression.

C'est un peu 'too much', mais c'est tellement classe.

**edisson81** · 07/03/2007, 16h16

Tu peux utiliser une fenêtre transparente sans bordure et jouer sur le taux de transparence et la couleur.
voir http://www.vclcomponents.com/Delphi/...Form-info.html

**Pedro** · 07/03/2007, 16h23

Ce n'est pas un effet de transparence mais un rendu en noir et blanc

Ce qu'il faudrait faire, je pense, c'est capturer l'image de l'écran puis régler la palette de l'image pour tout passer en noir et blanc...
Voila une piste

**jambonstar** · 07/03/2007, 16h31

Re,

Alors la piste d'édisson n'est pas mal du tout :
Voilà ce que j'ai fait :

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
procedure TForm1.Button3Click(Sender: TObject);
begin
  formFond := TForm.Create(nil);
  try
    formFond.BorderStyle := bsNone;
    formfond.Height := Screen.Height;
    formFond.Width := Screen.Width;
    formfond.Color := clBlack;
    formFond.AlphaBlend := True;
    formFond.AlphaBlendValue := 0;
    formFond.Show;
  except
  //
  end;
  Self.BringToFront;
  Timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);  // Timer à 200ms
begin
  if Assigned(formFond) then
  begin
    formFond.AlphaBlendValue := formFond.AlphaBlendValue + 5 ;
    if formFond.AlphaBlendValue >= 150 then
      Timer1.Enabled := False;
  end
  else
    Timer1.Enabled := False;
 
end;

Ca donne un super effet.

Par contre, Pedro, si tu sait modifier une palette, je suis preneur également, je veux le mieux pour mes clients chéri

Ah moins que se soit juste parce qu'il fait un temps pourri, que les bugs me gonfle et que je me change les idées...

**ebastien** · 08/03/2007, 09h58

Bonjour,
J'ai trouvé en fouillant un peu un moyen pour créer cet effet.
J'ai fait une fiche avec 2 boutons : 1 pour créer la fenêtre de fond en noir et blanc et l'autre pour la détruire :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
/ Création de la fenêtre de fond en noir et blanc
procedure TForm1.Button1Click(Sender: TObject);
var aBitmap: TBitmap;
begin
  formFond := TForm.Create(nil);
  try
    formFond.BorderStyle := bsNone;
    formfond.Height := Screen.Height;
    formFond.Width := Screen.Width;
    aBitmap := GetDesktopBitmap;
    try
      ConvertToGray(aBitmap);
      formFond.Show;
      formFond.Canvas.Draw(0,0,abitmap);
    finally
      aBitmap.Free;
    end;
  except
  //
  end;
  Self.BringToFront;
end;
 
// Destruction de la fenêtre :
procedure TForm1.Button2Click(Sender: TObject);
begin
  FormFond.Hide;
  FormFond.Release;
end;
 
// Conversion d'un Bitmap pf24bit en noir et blanc :
// (Merci à Earl F. Glynn : http://www.efg2.com/Lab/ImageProcessing/Scanline.htm)
Procedure TForm1.ConvertToGray(var BitmapRgb : TBitmap);
type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array [Byte] of TRGBTriple;
var
  Gray   :  INTEGER;
  i      :  INTEGER;
  j      :  INTEGER;
  rowRGB :  pRGBTripleArray;
  rowGray:  pRGBTripleArray;
begin
  for j := BitmapRGB.Height-1 Downto 0 do
  begin
    rowRGB := BitmapRGB.Scanline[j];
    for i := BitmapRGB.Width-1 downto 0 do
    begin
      // Intensité = (R + G + B) div 3
      with rowRGB[i] do
      begin
        Gray := (rgbtRed + rgbtGreen + rgbtBlue) div 3;
        rgbtRed   := Gray;
        rgbtGreen := Gray;
        rgbtBlue  := Gray
      end;
    end;
  end;
end;
 
// Création d'un bitmap pf24bit contenant l'image du desktop
function TForm1.GetDesktopBitmap : TBitmap;
var DeskTopBitmap : TBitMap;
begin
  DesktopBitmap := TBitmap.Create;
  DesktopBitmap.PixelFormat := pf24bit;
  with DesktopBitmap do begin
    Width := Screen.Width;
    Height := Screen.Height;
  end;
  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Screen.Width,Screen.Height,
         GetDC(GetDesktopWindow),0,0,SrcCopy);
  result := DesktopBitmap;
end;

L'idéal maintenant serait de trouver une méthode pour rendre progressif l'effet noir et blanc ....
Bonne journée
Eb.

**LadyWasky** · 08/03/2007, 10h37

A priori, je passerais par le code HSL des couleurs

**jambonstar** · 08/03/2007, 10h57

eBastien, merci pour la fonction GetBitmapDesktop, je vais essayer tout ça..

Ensuite pour le dégradé progressif, c'est effectivement un bonne idée waskol, d'utiliser les couleur HSV (ou TSL en french)
Car faire désendre la Saturation à 0 et baisser un peu la luminosité en même temps permet d'obtenir la mise en noir et blanc progressive.

Maintenant, il reste à trouver comment agir sur la palette des couleurs.

J'ai trouvé un très joli cours sur le HSV chez EGF mais son code ne permet que de convertir qu'une couleur à la fois.

**jambonstar** · 08/03/2007, 11h12

Pour l'effet progressif :

Avant d'afficher formFond :

Code :

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

1
2
formFond.AlphaBlendValue := 0;
formFond.AlphaBlend := True;

Pour l'effet progressif :

Code :

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

1
2
3
4
for i := 0 to 10 do
begin
  formFond.AlphaBlendValue := round((255/10)*i);
end;

Mais le resultat, n'est pas assez sombre.

**jambonstar** · 08/03/2007, 11h41

Pour foncer l'image en Niveau de gris,
j'ai juste modifier la valeur Gray obtenue par la formule RxGxB div 3 :

Code :

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

1
2
3
        Gray := (rgbtRed + rgbtGreen + rgbtBlue) div 3;
        Gray := gray-80;
        if Gray <0 then Gray := 0;

Je trouve le resultat excellent.
Reste à en faire un composant simple..

**LadyWasky** · 08/03/2007, 11h55

Pour le dégradé progressif

//Une fiche, 2 boutons (bouton 1 pour griser, bouton2 pour coloriser

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
    OriginalBitmap,BitmapToDraw: TBitmap;
    function GetDesktopBitmap : TBitmap;
    Procedure ConvertToGray(var Original,New : TBitmap;PercentGrayed:integer);
    procedure Grise;
    procedure Colorise;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  formFond:tform;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  grise;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  colorise;
end;
 
Procedure TForm1.ConvertToGray(var Original,New : TBitmap;PercentGrayed:integer);
type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array [Byte] of TRGBTriple;
var
  Gray   :  INTEGER;
  i      :  INTEGER;
  j      :  INTEGER;
  rowRGB :  pRGBTripleArray;
  rowGray:  pRGBTripleArray;
  k1,k2:double;
begin
  k2:=PercentGrayed/100;
  k1:=1-k2;
  for j := Original.Height-1 Downto 0 do
  begin
    rowRGB := Original.Scanline[j];
    rowGray:= New.Scanline[j];
    for i := Original.Width-1 downto 0 do
    begin
      // Intensité = (R + G + B) div 3
      with rowRGB[i] do
      begin
        Gray := (rgbtRed + rgbtGreen + rgbtBlue) div 3;
        rowGray[i].rgbtRed   := round(k1*rgbtRed+k2*Gray);
        rowGray[i].rgbtGreen := round(k1*rgbtGreen+k2*Gray);
        rowGray[i].rgbtBlue  := round(k1*rgbtBlue+k2*Gray);
      end;
    end;
  end;
end;
 
// Création d'un bitmap pf24bit contenant l'image du desktop
function TForm1.GetDesktopBitmap : TBitmap;
var DeskTopBitmap : TBitMap;
begin
  DesktopBitmap := TBitmap.Create;
  DesktopBitmap.PixelFormat := pf24bit;
  with DesktopBitmap do begin
    Width := Screen.Width;
    Height := Screen.Height;
  end;
  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Screen.Width,Screen.Height,
         GetDC(GetDesktopWindow),0,0,SrcCopy);
  result := DesktopBitmap;
end;
 
procedure TForm1.Grise;
var i:integer;
begin
  formFond.Show;
  Self.BringToFront;
 
  for i:=10 downto 0 do
  begin
    ConvertToGray(OriginalBitmap,BitmapToDraw,i*10);
    formFond.Canvas.Draw(0,0,BitmapToDraw);
    Application.ProcessMessages;
    Sleep(200);
  end; 
end;
 
procedure TForm1.Colorise;
var i:integer;
begin
    //Si on veut aussi coloriser la fiche de l'application
   Self.BringToFront;
   for i:=0 to 10 do
   begin
     ConvertToGray(OriginalBitmap,BitmapToDraw,i*10);
     formFond.Canvas.Draw(0,0,BitmapToDraw);
     Application.ProcessMessages;
     Sleep(200);
   end;
   formFond.hide;
   Self.BringToFront;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  formFond := TForm.Create(Application);
  formFond.BorderStyle := bsNone;
  formfond.Height := Screen.Height;
  formFond.Width := Screen.Width;
  //Si on veut aussi griser la fiche de l'application, placer ces 2 lignes dans le OnActivate, parce qu'ici, Form1 n'est pas encore affichée donc pas prise en photo
  OriginalBitmap := GetDesktopBitmap;
  BitmapToDraw:=GetDesktopBitmap;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  OriginalBitmap.Free;
  BitmapToDraw.Free;
end;
 
end.

Et voici une sortie d'application sympa

(Juste une fiche, il s'agit de cliquer sur la croix de fermeture)

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
    OriginalAvecFiche,OriginalSansFiche,OriginalAvecFicheGris,OriginalSansFicheGris,BitmapToDraw: TBitmap;
    function GetDesktopBitmap : TBitmap;
    Procedure ConvertToGray(var Original,New : TBitmap;PercentGrayed:integer);
    Procedure Transition(var Depart,Arrivee,Intermediaire : TBitmap;Percent:integer);
    procedure Grise;
    procedure Colorise;
    procedure Cache;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  formFond:tform;
implementation
 
{$R *.dfm}
 
Procedure TForm1.ConvertToGray(var Original,New : TBitmap;PercentGrayed:integer);
type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array [Byte] of TRGBTriple;
var
  Gray   :  INTEGER;
  i      :  INTEGER;
  j      :  INTEGER;
  rowRGB :  pRGBTripleArray;
  rowGray:  pRGBTripleArray;
  k1,k2:double;
begin
  k2:=PercentGrayed/100;
  k1:=1-k2;
  for j := Original.Height-1 Downto 0 do
  begin
    rowRGB := Original.Scanline[j];
    rowGray:= New.Scanline[j];
    for i := Original.Width-1 downto 0 do
    begin
      // Intensité = (R + G + B) div 3
      with rowRGB[i] do
      begin
        Gray := (rgbtRed + rgbtGreen + rgbtBlue) div 3;
        rowGray[i].rgbtRed   := round(k1*rgbtRed+k2*Gray);
        rowGray[i].rgbtGreen := round(k1*rgbtGreen+k2*Gray);
        rowGray[i].rgbtBlue  := round(k1*rgbtBlue+k2*Gray);
      end;
    end;
  end;
end;
 
Procedure TForm1.Transition(var Depart,Arrivee,Intermediaire : TBitmap;Percent:integer);
type
  PRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array [Byte] of TRGBTriple;
var
  i      :  INTEGER;
  j      :  INTEGER;
  rowRGB1,rowRGB2 :  pRGBTripleArray;
  rowGray:  pRGBTripleArray;
  k1,k2:double;
begin
  k2:=Percent/100;
  k1:=1-k2;
  for j := Depart.Height-1 Downto 0 do
  begin
    rowRGB1 := Depart.Scanline[j];
    rowRGB2 := Arrivee.Scanline[j];
    rowGray:= Intermediaire.Scanline[j];
    for i := Depart.Width-1 downto 0 do
    begin
      // Intensité = (R + G + B) div 3
        rowGray[i].rgbtRed   := round(k1*rowRGB1[i].rgbtRed+k2*rowRGB2[i].rgbtRed);
        rowGray[i].rgbtGreen := round(k1*rowRGB1[i].rgbtGreen+k2*rowRGB2[i].rgbtGreen);
        rowGray[i].rgbtBlue  := round(k1*rowRGB1[i].rgbtBlue+k2*rowRGB2[i].rgbtBlue);
    end;
  end;
end;
 
// Création d'un bitmap pf24bit contenant l'image du desktop
function TForm1.GetDesktopBitmap : TBitmap;
var DeskTopBitmap : TBitMap;
begin
  DesktopBitmap := TBitmap.Create;
  DesktopBitmap.PixelFormat := pf24bit;
  with DesktopBitmap do begin
    Width := Screen.Width;
    Height := Screen.Height;
  end;
  BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Screen.Width,Screen.Height,
         GetDC(GetDesktopWindow),0,0,SrcCopy);
  result := DesktopBitmap;
end;
 
procedure TForm1.Grise;
var i:integer;
begin
  formFond.Show;
  FormFond.Canvas.Draw(0,0,OriginalAvecFiche);
  for i:=0 to 10 do
  begin
    ConvertToGray(OriginalAvecFiche,BitmapToDraw,i*10);
    formFond.Canvas.Draw(0,0,BitmapToDraw);
    Application.ProcessMessages;
    Sleep(200);
  end;
end;
 
procedure TForm1.Colorise;
var i:integer;
begin
 
   for i:=10 downto 0 do
   begin
     ConvertToGray(OriginalSansFiche,BitmapToDraw,i*10);
     formFond.Canvas.Draw(0,0,BitmapToDraw);
     Application.ProcessMessages;
     Sleep(200);
   end;
end;
 
procedure TForm1.Cache;
var i:integer;
begin
   for i:=0 to 10 do
   begin
     Transition(OriginalAvecFicheGris,OriginalSansFicheGris,BitmapToDraw,i*10);
     formFond.Canvas.Draw(0,0,BitmapToDraw);
     Application.ProcessMessages;
     Sleep(200);
   end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  formFond := TForm.Create(Application);
  formFond.BorderStyle := bsNone;
  formfond.Height := Screen.Height;
  formFond.Width := Screen.Width;
  OriginalSansFiche := GetDesktopBitmap;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 
  OriginalSansFiche.Free;
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  OriginalAvecFiche := GetDesktopBitmap;
  BitmapToDraw:=GetDesktopBitmap;
  OriginalAvecFicheGris:=GetDesktopBitmap;
  OriginalSansFicheGris:=GetDesktopBitmap;
  try
  ConvertToGray(OriginalAvecFiche,OriginalAvecFicheGris,100);
  ConvertToGray(OriginalSansFiche,OriginalSansFicheGris,100);
  grise;
  cache;
  colorise;
  finally
  OriginalAvecFicheGris.Free;
  OriginalSansFicheGris.Free;
  OriginalAvecFiche.Free;
  BitmapToDraw.Free;
  end;
end;
 
 
 
end.

[Code amélioré grace à ebastien ]

**ebastien** · 08/03/2007, 12h38

Très fort Waskol ! Je suis impressionné !!

L'effet est saisissant !
Juste un truc, en le testant j'ai un petit saut au moment de l'affichage de la FormFond. Je me suis humblement permis d'ajouter une ligne de code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Grise;
var i:integer;
begin
  formFond.Show;
  FormFond.Canvas.Draw(0,0,OriginalAvecFiche);
  for ...
  ....
  
end;

Ca evite juste le petit saut du début...
Encore bravo !
Eb.

**jambonstar** · 08/03/2007, 12h46

Super waskol !

Par contre, et oui il fallait bien un bémol, j'ai essayé ton 2° code... et rien... pas de super truc génial... la fenetre se ferme, et au revoir.

Enfin, sinon, c'est un effet des plus splendide tout ça.. Ca donne un effet bling-bling à l'application, j'aime beaucoup. Et puis ca permet de faire des fenetres de parametrages ou des boites de progressions non bloquantes sans pour autant permettre à l'utilisateur de faire autre chose.

Merci encore à vous deux pour votre aide.

**LadyWasky** · 08/03/2007, 13h35

Envoyé par jambonstar

Super waskol !

Par contre, et oui il fallait bien un bémol, j'ai essayé ton 2° code... et rien... pas de super truc génial... la fenetre se ferme, et au revoir.

Enfin, sinon, c'est un effet des plus splendide tout ça.. Ca donne un effet bling-bling à l'application, j'aime beaucoup. Et puis ca permet de faire des fenetres de parametrages ou des boites de progressions non bloquantes sans pour autant permettre à l'utilisateur de faire autre chose.

Merci encore à vous deux pour votre aide.

Je t'assures que sur mon PC celà fonctionne nickel chrome, dans le doute j'ai réessayé avec le code que je vous ai fourni en pature

Tu as bien reliés les évènement de ta fiche avec les méthodes qui vont bien au moins (OnClose/OnCreate/OnDestroy) ???

**LadyWasky** · 08/03/2007, 13h37

Envoyé par ebastien

Très fort Waskol ! Je suis impressionné !!

L'effet est saisissant !
Juste un truc, en le testant j'ai un petit saut au moment de l'affichage de la FormFond. Je me suis humblement permis d'ajouter une ligne de code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Grise;
var i:integer;
begin
  formFond.Show;
  FormFond.Canvas.Draw(0,0,OriginalAvecFiche);
  for ...
  ....
  
end;

Ca evite juste le petit saut du début...
Encore bravo !
Eb.

Bien joué

**jambonstar** · 08/03/2007, 14h04

Tu as bien reliés les évènement de ta fiche avec les méthodes qui vont bien au moins (OnClose/OnCreate/OnDestroy) ???

Désolé

**jambonstar** · 08/03/2007, 14h08

Super sympa. En tout cas, je dois avoir une machine de dév pourrie, car l'effet est agréable uniquement si je retire les "sleep".

D'ailleurs comment faire pour s'adapter aux differents PC...

**Thierry Laborde** · 08/03/2007, 14h08

Pour info il y a peu j'avais déjà répondu à un topic sur comment griser une Form et j'avais proposer un fichier source qui permettait de faire (Soit griser, soit assombrir) :

http://www.developpez.net/forums/sho...d.php?t=191085

**jambonstar** · 08/03/2007, 14h35

Très beau travail Thierry.
Par contre ce code, me dérange un peu dans le fait que c'est uniquement fait pour du ShowModal.
Dans mon application, c'est pour mettre en évidence un boite de progression. Et qui dit boite de progression, dit, traitement de fond.

En tout cas ton code mérite le coup d'oeil. Merci.

**Thierry Laborde** · 08/03/2007, 14h56

Envoyé par jambonstar

Très beau travail Thierry.
Par contre ce code, me dérange un peu dans le fait que c'est uniquement fait pour du ShowModal.
Dans mon application, c'est pour mettre en évidence un boite de progression. Et qui dit boite de progression, dit, traitement de fond.

En tout cas ton code mérite le coup d'oeil. Merci.

Merci. Oui en effet c'est prévu que pour le showmodal car c'était la demande initiale pouvoir griser les fenêtres qui n'étaient plus active de manière à faire ressortir celle qu'on a affiché avec le showmodal. Mais ceci dit le code peut s'adapter assez facilement. Et puis sinon le code de Waskol est très bien aussi, c'était juste pour amener un peu plus d'infos sur le sujet.

**LadyWasky** · 08/03/2007, 15h33

Envoyé par jambonstar

Super sympa.

Merci

Envoyé par jambonstar

En tout cas, je dois avoir une machine de dév pourrie,

Pour info, à mon bureau, j'ai un P4 2,2GHz avec une carte Graphique Intel intégrée.

Envoyé par jambonstar

car l'effet est agréable uniquement si je retire les "sleep".

ça le fait à tous le monde quand elles sont belles

Envoyé par jambonstar

D'ailleurs comment faire pour s'adapter aux differents PC...

Pour adapter automatiquement le délais du sleep, je pense qu'il faudrait détecter le type de processeur, et sa fréquence, ou même un calcul un peu compliqué assorti d'un "GetTickCount" pour mesurer la performance du PC... Et de là, avec un savant calcul, adapter ce temps de pause.

Mais sinon tu peux aussi jouer sur le nombre d'étapes (j'en utilise 10 (ou plutot 11 mais on ne va pas chipoter)) pour passer d'une image à une autre :

Code :

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

1
2
3
4
5
6
7
for i:=0 to 10 do
  begin
    ConvertToGray(OriginalAvecFiche,BitmapToDraw,i*10);
    formFond.Canvas.Draw(0,0,BitmapToDraw);
    Application.ProcessMessages;
    Sleep(200);
  end;

Pour avoir un effet en 25 (26 en fait) images (et non plus 10 (oui, je sais, 11

) ) :

Code :

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

1
2
3
4
5
6
7
for i:=0 to 25 do
  begin
    ConvertToGray(OriginalAvecFiche,BitmapToDraw,i*4); //4*25=100
    formFond.Canvas.Draw(0,0,BitmapToDraw);
    Application.ProcessMessages;
    Sleep(200);
  end;

En augmentant, tu auras moins l'impression de saccade, mais celà mettra plus de temps à s'exécuter.

Enfin sinon, je crois que c'est surtout une affaire de gout

Comment obtenir l'effet grisé de l'écran "Arrêter/Redémarrer" ?

Langage Delphi

Discussions similaires

Partager

Partager