DELPHI AREA Forum

Hello:

Is there a way to put an timage over Tpicshow?

Thank you,
Claudiu

Hello,

If you mean content picture of a TImage instance,
I think "Assign" procedure can be used.

PicShow1.Picture.Assign(image1.Picture);

else if you mean placemet TImage instance,

first You can add a TPanel over TPicshow obj.,
then add an TImage into the TPanel.

if I use a tpanel then is not transparent anymore, I wish to make a frame using png images with shadow and stuff, thats why i ask if i can place a timage over TPicShow.
Thank you for your reply

Claudiu

You cannot put a TImage on TPicShow. Generally, you cannot bring a non-windowed control on top of a windowed control.

However, you can draw an image on TPicShow control. Use OnAfterNewFrame event and draw the image on Screen bitmap.

Thank you for your answer, I manage to work around I made an aditional property to TPicShow like so:

TOnAnimate = procedure(Sender: TObject; Display: TBitmap) of object;
property OnAnimate: TOnAnimate read FOnAnimate write FOnAnimate;

and on updatedisplay procedure:


if Assigned(fOnAfterNewFrame) then
fOnAfterNewFrame(Self, Pic, Display);

if Assigned(FOnAnimate) then
begin
FOnAnimate(Self, Display);
end;
It seems i did what you already made, lol, let me try it. I dint notice your property... damit

Cheers,
Claudiu