Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c