Lazarus 2.0.12 (2020.02.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Lazarus kép mentés hiba 2016 márc. 03 11:13 #1885

  • Nikolas
  • Nikolas profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 2
  • Köszönetek: 0
1.6, win8.1

Azóta nagynehezen megoldottam, felrakom a kódot hátva valakinek kellene.
var
  MyBitmap : Tbitmap;
  ScreenDC: HDC;
  FileName: string;
begin
try
  MyBitmap := TBitmap.Create;
  FileName:=zakaznik.text;
  ScreenDC := GetDC(GetForegroundWindow);
  MyBitmap.LoadFromDevice(ScreenDC);
  ReleaseDC(0, ScreenDC);
  Image1.Picture.Bitmap.Assign(MyBitmap);
  Image1.Picture.SaveToFile(Format('%s.bmp', [FileName]));
finally
  MyBitmap.free;
end;
end;

Lazarus kép mentés hiba 2016 márc. 02 14:04 #1884

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 459
  • Köszönetek: 76
Nem írtad meg, hogy melyik Lazarus változatot használod és milyen rendszeren...
Nálam működik: Lazarus 1.6 + Linux/XFCE
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- FPC 3.3.1 -- Lazarus 2.1.0 -- GNU/Linux 5.4.0 x86_64

Lazarus kép mentés hiba 2016 febr. 29 18:42 #1879

  • Nikolas
  • Nikolas profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 2
  • Köszönetek: 0
Üdv. mindenkinek!

Mellékeltem képet is a problémáról, de leírom röviden. A lazarus 'GetFormImage' lementi a képet, viszont a 'Label' komponensek lemaradnak a képről. Nem találtam megoldást sehol.

Köszönöm a segítséget előre is.

A rá vonatkozó kód:
var
   bmp : TBitmap;
   pic   : TPicture;
begin
   pic := TPicture.Create;
   bmp := TBitmap.Create;
  try
    bmp.PixelFormat:=pf16bit;
    bmp := Form1.GetFormImage;
    pic.Assign(bmp);
    image1.Picture.Assign(pic);
    pic.bitmap.Canvas.Draw(1,0,bmp);
    pic.SaveToFile('01.bmp');
  finally
    bmp.Free;
    pic.Free;
  end;
end;
Mellékletek:

  • Oldal:
  • 1