![]() |
|
|
#1
|
||||
|
||||
|
такая задача на форме есть 5 чартов(tchart) ну и другие компоненты там кнопки итдитп. нужно сделать один скриншот всех чартов (и сохранить как один бмп файл) чтобы он не затрагивал остальные компоненты????
|
|
#2
|
||||
|
||||
|
Лучше в голову не чего не приходит. Просто делай скриншот по координатам (то есть только то, где есть чарты).
Код:
procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := form1.Width div 2;
bmp.Height := form1.Height div 2;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
GetDC(0), 0,0,SRCCOPY);
bmp.SaveToFile('mybmp.bmp');
bmp.Free;
end;Ну а вместо GetDC(0) пиши хендл своей формы (GetDC(Handle)). |