Lazarus 2.0.8 (2020.04.16.)
Letöltés

file Lazarus kép mentés hiba

  • Nikolas
  • Nikolas profilkép
  • Új fórumozó
  • Új fórumozó
  • Hozzászólások: 2
  • Köszönetek: 0

Nikolas válaszolt a témára: Lazarus kép mentés hiba

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;
#1885

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 432
  • Karma: 8
  • Köszönetek: 70

Gábor válaszolt a témára: Lazarus kép mentés hiba

Nem írtad meg, hogy melyik Lazarus változatot használod és milyen rendszeren...
Nálam működik: Lazarus 1.6 + Linux/XFCE
#1884

  • Nikolas
  • Nikolas profilkép
  • Új fórumozó
  • Új fórumozó
  • Hozzászólások: 2
  • Köszönetek: 0

Nikolas létrehozta a témát: Lazarus kép mentés hiba

Ü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;
#1879
Mellékletek: