Title: grab/capture each control/object with ease
Question: How can I grab a visible object (as a bitmap) with only a few lines of code?
Answer:
It is as easy as this:
procedure ............
var DC: HDC;
begin
//have image1`as big as the the control to be grabbed
// here as big as DBCtrlGrid1 which will be grabbed
DC := GetDC (DBCtrlGrid1.Handle);
try
BitBlt(image1.Canvas.Handle,
0, 0, image1.Width,image1.Height,
DC, 0, 0, SRCCOPY);
ImageEnView1.Repaint;
finally
ReleaseDC(DBCtrlGrid1.Handle,DC);
end;
............
end;
mer Yasar Can omercan@home.nl