Discussion :

[orelien]

Bonjour,

J'aimerais créer un composant graphique sur lequel je puise dessiner (canvas) et qui puisse être focalisable. A priori je devrait utiliser la classe de base TCustomControl qui possède ces propriétés.

Au moment du dessin, j'ai besoin de dessiner avec un fond transparent (comme sur les composants TShape). Or, avec la classe TCustomControl j'obtient toujours un fond opaque.

Y a t'il un moyen de négliger le dessin de ce fond opaque (couleur grise ar défaut, comme les TPanel) pour ne laisser qu'une surface de dessin transparente ?

Merci

Orélien

[Clorish]

en faisant un fillrect avec la property Brush.style = bsClear il me semble.

[orelien]

Non, ça ne fonctionne pas.
A quel moment dois-je définir cette propriété ?

Le composant se dessine toujours avec un fond opaque de la couleur de son parent. Je ne vois pas comment faire.

Merci
Orelien

[Clorish]

Faut surcharger la methode paint de ton composant et dessinier dans cette methode.
Eventuelement eviter de faire un appel a Inherited, sinon on effectue le traitement de base.

Sinon tu as les regions mais dans le cadre de decoupages non polygonale, c'ets plutot hard .....

[orelien]

Merci de ta réponse.
J'ai déjà tenté de surcharger la méthode Paint mais en vain.

Aurais tu un exemple partant d'un composant TCustomControl par exemple ?
Je dois faire une erreur quelque part mais je ne sais pas où.

Merci
Orelien

[Clorish]

ok ... je tacherais de regarder ca demain des que j'ai 2 minutes

[sjrd]

Supprimer csOpaque de la propriété ensemble ControlStyle. A faire normalement dans le constructeur.

Code :

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

1
2
3
4
5
constructor TTonCompo.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle - [csOpaque];
end;

[orelien]

Bonjour,

Avec la propriété "ControlStyle" cela ne fonctionne pas non plus .

Si quelqu'un a un exemple... J'ai besoin que ce composant conserve sa transparence de fond lors de son déplacement également.

Merci

Orelien

[Kaféine]

Salut,

override WMEraseBkgnd du TCustomControl

Code :

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

1
2
3
4
5
 
procedure TMonComp.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
  message.Result := 0;
end;

devrais fonctionner.
Bonne chance.

[orelien]

Bonsoir,

Quelqu'un aurait-il un exemple ? Je ne vois pas ou je bloque, la transparence ne se fait pas et encore moins lorsque je déplace le composant à l'éxécution.

Merci
Orelien

[Clorish]

normalement tout se passe dans la methode paint surchargée .... c'est la cette methode qui est responsable du dessin du composant.
Je vais essayer deux ou trois trucs et si ca marche je t'enverrais le code.

[EDIT]
J'ai fait les tests et j'en suis arrive a la concusion suivante : Ca marche mais en fait la transparence joue uniquement sur le fond du parent, autrement dit si le composant est sur un TImage, la transparence reporte la couleur de la form "au travers du TImage".

J'approfondi ....

[EDIT 2]
Bon ca y est je suis arrive a quelque chose de correct.
En fait il faut deriver de TGraphicControl et non de TCustomControl.
Apres faudra chercher dans les sources de ces classes pour voir ce qui change ....

Sinon pour palier a un certain scintillement lors du deplacement, il faudra placer la property "doubleBuffered" du parent a true.

Voila pour l'instant ... en esperant que ca debloquera un peu le smilblick

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
 
type
  TMonCompo = class(TGRaphicControl)
  Protected
    Procedure Paint; Override;
  Public
    Constructor Create(AOwner : Tcomponent); Override;
  End;
 
 
Constructor TMonCOmpo.Create(AOwner : TComponent);
Begin
Inherited Create(AOwner);
Self.ControlStyle := Self.ControlStyle - [csOpaque];
End;
 
Procedure TMonCompo.Paint;
Begin
Inherited Paint;
Self.Canvas.Brush.Style := bsClear;
Self.Canvas.FillRect(Self.Canvas.ClipRect);
 
Self.Canvas.Brush.Style := bsSolid;
Self.Canvas.FillRect(Rect(50, 50, 150, 150));
 
End;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.DoubleBuffered := True;
Self.MC := TMonCompo.Create(Self);
Self.MC.Parent := Self;
Self.MC.SetBounds(100, 100, 200, 200);
End;

[Clint77]

Nikel ca faisait un mois que je cherchais !! et je tombe sur ce post oggi !! cool !! je n arrivais pas a choper la transparence avec mon TCUSTOMCONTROL !! et avec le TGRAPHICOCNTROL nikel !! Merki !! quelqu un sait il d ou ca vient j'aimerai comprendre !