Witam. Forma: BorderStyle:=bsNone WindowState:=wsMaximized, na niej jest przycisk i obrazek
procedure TForm1.Button1Click(Sender: TObject);
var
Can: TCanvas;
B : TBitmap;
begin
try
Can := TCanvas.Create;
Can.Handle := Getwindowdc(Self.Handle);
B := TBitmap.Create;
B.Width := image1.Width;
B.Height := image1.Height;
B.Canvas.CopyRect(Rect(image1.Left, image1.Top, image1.Width+image1.Left, image1.Height+image1.Top), Can, Rect(0, 0, image1.Width, image1.Height));
try
B.SaveToFile('C:\plik.bmp');
except
raise Exception.Create('Bład w zapisie pliku...');
end;
finally
Can.Free;
B.Free;
end;
end;
Chodzi mi o to, żeby zawartość obrazka (który może znajdować się w dowolnym miejscu formy) została zapisana do pliku. Te moje wypociny niestety nie działają, obrazek nie jest identyczny.
Aha i jeszcze coś: wiem, że jest takie coś jak image1.picture.savetofile ale nie o to mi chodzi. Jeżeli na obrazku będą znajdować się jakieś komponenty (np inne obrazki) to ma być to widoczne w końcowym pliku.
Proszę o pomoc