TSdpoFastForm save as image
lazarus / 39-Graphics

----------------------------------------------------------------------
kodok.buncit · 2013-11-23 20:39

hello
i need to save the content of TSdpoFastForm as image?
anybody know how to?

----------------------------------------------------------------------
kodok.buncit · 2013-11-23 21:43

resolved, setting SdpoFastForm1.AlwaysOnTop := True; //this do the
trick 
Code: [Select]var
  MyBitmap: TLazIntfImage;
  ScreenDC: HDC;
begin
  MyBitmap :=
TLazIntfImage.Create(SdpoFastForm1.width,SdpoFastForm1.height);
  ScreenDC := GetDC(SdpoFastForm1.handle);
  MyBitmap.LoadFromDevice(ScreenDC);
  ReleaseDC(0,ScreenDC);
  MyBitmap.SaveToFile('/home/kodok/test.jpeg');