Transparence d'un composant

Version imprimable

Bonjour.

Dans le cadre du développement d'un moteur graphique, je suis amené à trouver une solution pour avoir un composant transparent recouvrant ma fenètre graphique. Ce composant me permettra de dessiner des curseurs spéciaux sans altérer le contenu de la fenètre openGL.

Ainsi, je me suis intéressé à la propriété de transparence des TForm. Mais en procédant comme suit, la transparence ne semble pas fonctionner, pourquoi?
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 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } OverLayer : TForm; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin OverLayer := TForm.CreateNew(nil); OverLayer.Parent := Self; OverLayer.BorderStyle := bsNone; OverLayer.Color := clWhite; OverLayer.Show; OverLayer.TransparentColor := TRUE; OverLayer.TransparentColorValue := clWhite; OverLayer.AlphaBlend := TRUE; OverLayer.AlphaBlendValue := 0; end; end.
Merci d'avance pour votre contribution.
Cordialement,
Benjamin

04/01/2007, 14h01
Pedro

Salut :)

Citation:

Envoyé par Grosbenji

Ainsi, je me suis intéressé à la propriété de transparence des TForm. Mais en procédant comme suit, la transparence ne semble pas fonctionner, pourquoi?

Je ne pense pas que ce soit la bonne méthode ;)
En effet, ce serait beaucoup plus efficace si tu dessinais toi-même ce panel. Pour ma part, c'est ce que je fais en DirectX et cela marche très bien et permet de dessiner à peu près n'importe quoi ;)
04/01/2007, 14h13
Grosbenji

Re,
Merci pour ta réponse!
Je m'en doutai... Mais vu que la TForm possédait déjà une propriété de transparence, j'ai voulu tester l'affaire...
Ce que tu me proposes c'est de construire un panel en passant dans les paramètres de construction WS_EX_TRANSPARENT, c'est bien ça?
Cordialement,
Benjamin
04/01/2007, 14h20
Pedro

Citation:

Envoyé par Grosbenji

Ce que tu me proposes c'est de construire un panel en passant dans les paramètres de construction WS_EX_TRANSPARENT, c'est bien ça?

Je ne sais pas, je ne connais pas les paramètres/fonction de OpenGL.
Ce que je te propose c'est de dessiner un rectangle sur la surface directement avec les fonctions de OpenGL pour avoir une forme similaire à un panel. Il est parfaitement possible de refaire les contrôles de la VCL directement avec DirectX.
Per exemple, voila ce que j'avais commencé pour un jeu en DirectX avec les composants Asphyre:
http://orbedutemps.developpez.com/si...es/screenshots
(la 3ème image)

Ok, merci, c'est sympa.

Mais dans mon cas, je voulai pouvoir modifier le contenu du composant transparant sans avoir à redisser ma fenètre OpenGL (plusieurs millions de triangles à dessiner, donc temps du refresh trop long).

Voici ce que j'ai fait:

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
unit SFK_OverLayer;
 
interface
 
uses ExtCtrls, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
     StdCtrls;
 
type
  TSFKOverLayer = class(TPanel)
  private
  procedure   CreateParams(var Params: TCreateParams); override;
  procedure   WndProc( var Message: TMessage); override;
  constructor Create(AOwner: TComponent); override;
  public
  property  Canvas;
  end;
 
implementation
 
procedure TSFKOverLayer.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle
                    or WS_EX_TRANSPARENT;
end;
 
constructor TSFKOverLayer.Create(AOwner: TComponent);
begin
  inherited;
  canvas.Pen.color := clWhite;
end;
 
procedure TSFKOverLayer.WndProc( var Message: TMessage);
begin
  if (Message.Msg = WM_MOUSEMOVE) and Assigned(Parent) then
    PostMessage(Parent.Handle,Message.Msg,Message.WParam,Message.LParam);
  inherited;
end;
 
end.

Je peux donc modifier comme je veux le canvas de mon composant sans avoir besoin de faire un refresh pour ma fenètre graphique.

Cordialement,
Benjamin