| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TChart --> SaveToBitmapFile [D6, NT4, Win2k]

victor-s72 ©   (2002-07-16 16:57:00) 

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

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

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

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

Спасибо.

---

Eugene Lachinov   (2002-07-16 18:07:00) [1]

>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;

---

victor-s72   (2002-07-16 17:57:00) [2]

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

TeeCreateBitmap(...)

---

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

>victor-s72

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


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

---

victor-s72   (2002-07-16 17:05:00) [4]

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

---

Skier   (2002-07-16 17:01:00) [5]

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

???

---

Наверх