Показать сообщение отдельно
  #2  
Старый 13.04.2009, 00:04
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

Вот вам в качестве решения временный вариант. Пока не предложат чего получше...
Код:
procedure TForm1.SaveChartfxBmp(const FileName: TFileName);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Chartfx1.Width;
    bmp.Height := Chartfx1.Height;
    bmp.Canvas.CopyRect(Rect(0, 0, bmp.Width, bmp.Height), Canvas,
                        Rect(Chartfx1.Left, Chartfx1.Top,
                             Chartfx1.Left + Chartfx1.Width,
                             Chartfx1.Top + Chartfx1.Height));
    bmp.SaveToFile(FileName);
  finally
    bmp.Free;
  end;
end;
Ответить с цитированием