1

Topic: Screenshot of the form with olecontainer... How it is correct?!

Day kind!
There is a form - on which lies olecontainer. In the container the document is opened an ex-fur-tree. At screenshot creation, I do so

var
tBM: TBitmap;
begin
tBM: = TBitmap. Create;
tBM.Width: = frTMnT.Width;
tBM.Height: = frTMnT.Height;
BitBlt (
tBM.Canvas. Handle;
0;
0;
Screen. Width;
Screen. Height;
GetDC (frTMnT.Handle);
0;
0;
srcCopy
);
frTMnT.img. Picture. Assign (tBM);
tBM.Free;

I receive a picture at a rate of the form, but completely flooded by black color.
Prompt, where it is not right?!

2

Re: Screenshot of the form with olecontainer... How it is correct?!

If who faces - we take here http://delphiworld.narod.ru/base/copy_screen.html!
This variant perfectly works with OleContainer

3

Re: Screenshot of the form with olecontainer... How it is correct?!

KonstF;
GetDC (frTMnT.Handle) try to replace on GetDC (0) - and at you should earn.