image above of panels

[Ericktux]

hi my friends, How can i put an image on top of several panels ?

PD: Attached project and images

[howardpc]

It depends how your image is drawn.
If it is a TImage, then image.BringToFront;
should do it.

[balazsszekely]

@howardpc

TImage is inherited from TGraphicControl not TWinControl so it won't behave like a window. Calling BringToFront will have no effect, the Z order is not changed(see screenshot).
Personally I would go with a transparent panel. Implementing it is a non-trivial operation especially if it has to be cross platform.

[sky_khan]

I'm a genius!!!

[lainz]

I'm a genius!!!

well done! now animate this and replace it with a gif with key color transparency 

[balazsszekely]

This is particularly hard because of the panels. Anyway I attach a windows only solution. Lets hope somebody come up with a better idea.

[wp]

Here's a quick 2-liner in which the image is repainted in the Panels' OnPaint with an offset according to the image position.  (Can be refined with ClientToScreen etc...)

[Ericktux]

Thanks to all friends  , I tried the example of "wp" and works on windows and linux.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Panel2Paint(Sender: TObject);  // here link the panel1 y panel2 in Paint event
2. var
3.   P: TPoint;
4. begin
5.   P := Point(Image1.Left - TControl(Sender).Left, Image1.Top - TControl(Sender).Top);
6.   TPanel(Sender).Canvas.Draw(P.X, P.Y, Image1.Picture.Bitmap);
7. end;
8.  

For now work fine. thanks very much 

[balazsszekely]

@wp

Nice. Thanks for sharing it! I believe I overthink this problem