Recent

Author Topic: TSdpoFastForm save as image  (Read 2076 times)

kodok.buncit

  • New Member
  • *
  • Posts: 35
TSdpoFastForm save as image
« on: November 23, 2013, 09:39:37 pm »
hello
i need to save the content of TSdpoFastForm as image?
anybody know how to?
kodok.buncit on github https://github.com/kodok-buncit/

Primary OS : Linux Ubuntu 12.04
fpc & laz      : always Trunk version

kodok.buncit

  • New Member
  • *
  • Posts: 35
Re: TSdpoFastForm save as image
« Reply #1 on: November 23, 2013, 10:43:18 pm »
resolved, setting SdpoFastForm1.AlwaysOnTop := True; //this do the trick  :D
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'); 
« Last Edit: November 23, 2013, 10:44:57 pm by kodok.buncit »
kodok.buncit on github https://github.com/kodok-buncit/

Primary OS : Linux Ubuntu 12.04
fpc & laz      : always Trunk version

 

TinyPortal © 2005-2018