Discussion :

[the_magik_mushroom]

bonjour,

question toute simple :

je voudrai afficher une image devant un TPanel.

j'ai essayé 36 méthodes différentes, BringToFront, dessiner directement sur canvas de la form, dessiner dans un TPaintbox....

mais rien y fait, mon TPanel est toujours en premier plan

si vous avez une idée ...

[/dev/null]

Il faudt que ton image fasse partie du TPanel

[rsc]

je voudrai afficher une image devant un TPanel.

Tu as une raison spéciale de ne pas mettre ton image dans le panel ?

[yoghisan]

Il faut que le parent de ton image soit le panel en question.

Mais le résultat ne doit pas repondre a tes attentes, n'est ce pas ! Parce que ce que l'on dit la tu dois deja le savoir.

[Rayek]

bonjour,

question toute simple :

je voudrai afficher une image devant un TPanel.

j'ai essayé 36 méthodes différentes, BringToFront, dessiner directement sur canvas de la form, dessiner dans un TPaintbox....

mais rien y fait, mon TPanel est toujours en premier plan

si vous avez une idée ...

Si tu veux mettre ton image devant le panel, c'est que tu veux qu'il ne soit plus visible, alors pourquoi ne pas rendre invisible le panel au lieu de faire passer l'image devant ?

[bjl]

Je suppose que l'image ne recouvre qu'une partie du Tpanel en question mais en dépasse.

pourquoi ne pas mettre l'image dans un autre Tpanel (sans border) placé au dessus de l'autre ?

[yoghisan]

Il existe aussi des panels transparents voir me semble t il Jedi VCL (JVCL)

[TicTacToe]

sinon, si tu en as la possibilité (moi c'est ce que j'ai fais pour effectuer des panels avec fond, cyclique etc...), tu peux creer ton propre composant et atteindre ainsi le canvas du panel (qui n'est pas publique, c'est pour ca que tu peux pas dessiner dedans).

Donc tu te fais une classe TMonPanel qui descend de TPanel, et tu surcharge la méthode paint pour dessiner dans le canvas.

Bon courage !


je te donne un bout de mon code pour te mettre sur la piste

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
type
  TPanelGraphique = class(TPanel)
  private
    FBitMap : TBitmap;
    FBitmapEnabled : Boolean;
    FBitmapPosition : TBitmapPosition;
    procedure SetBitMap(Value : TBitMap);
  protected
    procedure Paint; override;
    procedure PaintDelphi;
  public
    constructor create(AOwner: TComponent); override;
    destructor  Destroy; override;
  published
    property BitMap : TBitMap read FBitMap write SetBitMap;
    property BitMapEnabled : Boolean read FBitmapEnabled write FBitmapEnabled default False;
    property BitmapPosition : TBitmapPosition read FBitmapPosition write FBitmapPosition default bpForm;
  end;

dans PaintDelphi je reprend texto le code du paint des sources officielles

[the_magik_mushroom]

merci à tous pour vos réponse.

Je précise que je ne veux pas dessiner dans mon TPanel ni le rendre invisible, je veux seulement afficher mon image par dessus

Il existe aussi des panels transparents voir me semble t il Jedi VCL (JVCL)

ça à l'air magnifique se compo, je vais fouiller


edit : une fois transparent, le JvPanel ne reste pas au premier plan :/

alors comment fait le TPanel 'classic' pour rester toujours au premier plan?
et comment dessinier par dessus ?

[Lung]

La solution de bjl me parait être la plus simple.
Tu as testé ?

[/dev/null]

+1

Essait avec un autre TPanle qui ne contient qu'un TImage

[the_magik_mushroom]

non mon image à des contoures irréguliers, je veux qu'elle recouvre partiellement mon TPanel...

[[Silk]]

et tu ne peux pas utiliser un TBevel à la place d'un TPanel ?

[the_magik_mushroom]

non je veux pas utiliser autre chose (jsuis chiant ouai)

voilà ce que j'ai réussi à bidouiller :

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
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ACanvas: TCanvas;
  dc: THandle;
begin
  dc:= GetDc(0);
  ACanvas:= TCanvas.Create;
  try
  ACanvas.Handle:= dc;
  ACanvas.Draw(form1.Top+Panel1.Top,form1.Left+panel1.Left,Image1.Picture.Graphic);
  finally
    ACanvas.Free;
    ReleaseDC(0, dc);
  end;
End;

[edam]

autre solution un peut
si tu as pas de composant où l'utilisateur insert des cara, alors utlise paintto des composant dans un Tbitmap et bien sur affiche ton bitmap sur ta forme..n'oublie pas de mettre tes omposant invisible

[the_magik_mushroom]

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
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ACanvas: TCanvas;
  dc: THandle;
begin
  dc:= GetDc(0);
  ACanvas:= TCanvas.Create;
  try
  ACanvas.Handle:= dc;
  ACanvas.Draw(form1.Top+Panel1.Top,form1.Left+panel1.Left,Image1.Picture.Graphic);
  finally
    ACanvas.Free;
    ReleaseDC(0, dc);
  end;
End;

en faite mon code n'est pas si mauvais

le seul truc qui me gène, c'est le le canvas "s'efface" dès qu'une autre fenêtre passe au dessus...

alors comment empécher le canvas de s'effacer ?

[edam]

report votre code dans onpaint

[edam]

alors