Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: 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 вся ветка

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-95308
Cosinus
2002-07-15 17:10
2002.07.29
Не подскажите, как сделать так, чтобы после компиляции программы


4-95621
Nubie
2002-05-21 02:59
2002.07.29
???Запуск прграммы???


14-95532
Alx2
2002-07-03 12:08
2002.07.29
Задачка :)


14-95525
[NIKEL]
2002-07-02 14:58
2002.07.29
Народ! Посоветуйте хороший инет магазин, плиз!


3-95234
Akhmadey
2002-07-08 21:04
2002.07.29
EhLib