TChart --> SaveToBitmapFile

← →
victor-s72 (2002-07-16 16:57) [0]

Добрый день!
Есть такая задача.

1. Создаю в runtime компонент TChart:
MyChart := TChart.Create(nil);
2. Задаю ему разные свойства (границы, цвета и т.д.)
3. Рисую на нем кучу разных серий типа TChartShape.
4. В нужный момент присваиваю его свойству Parent тот контрол, на котором я хочу видеть мой Chart.
5. По нажатию кнопочки: "Сохранить в файл" работает функция SaveToBitmapFile.

Все отлично работает.

НО !!! ЧТО НАДО МНЕ:Мне НЕ НАДО, чтобы в предыдущей схеме работал пункт номер 4. Нужно, строя сотни (и даже тысячи) чартов, сохранять их в файлах (желательно JPEG) БЕЗ визуального отображения ( Parent := nil). При таких условиях функция SaveToBitmapFile не работает и выдает сообщение, что родительское окно не задано.

Спасибо.

← →
Skier (2002-07-16 17:01) [1]

>victor-s72
MyChart.Visible := False;
MyChart.Parent := "контрол"

???

← →
victor-s72 (2002-07-16 17:05) [2]

Контролов НЕТУ вообще! Допустим это консольное приложение построения чартов и записи их в файлы, работающее в background.

← →
Skier (2002-07-16 17:07) [3]

>victor-s72

> Допустим это консольное приложение построения чартов

Это консольное приложение с использованием VCL !
Это НОНСЕНС !!

← →
victor-s72 (2002-07-16 17:57) [4]

Все!!!
Нашел решение!!!

TeeCreateBitmap(...)

← →
Eugene Lachinov (2002-07-16 18:07) [5]

>victor-s72
Интересно чем оно Вам помогло ?

Procedure TCustomTeePanel.SaveToBitmapFile(Const FileName:String; Const R:TRect);
{$ELSE}
Procedure TCustomTeePanel.SaveToBitmapFileRect(Const FileName:String; Const R:TRect);
{$ENDIF}
begin
With TeeCreateBitmap(clWhite,R) do
try
SaveToFile(FileName);
finally
Free;
end;
end;

TChart --> SaveToBitmapFile Найти похожие ветки