TÉMA:

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

Nikolas
Témaindító
Ú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 Adminisztrátor Hozzászólások: 506 Köszönetek: 86	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? -- Lazarus 3.0 -- FPC 3.2-- GNU/Linux 5.15.0 x86_64

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

Nikolas
Témaindító
Ú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;