Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.04 c
1-95447
dimanew
2002-07-17 04:45
2002.07.29
Как создать динамич. массив TEditов?


3-95272
tatiana
2002-07-09 14:01
2002.07.29
Объединение запросов TQuery


1-95434
ZEE
2002-07-16 02:47
2002.07.29
SelectDirectory в XP


14-95556
.: Joiro :.
2002-06-30 14:58
2002.07.29
Блокировка мозгов.


1-95284
Michael2000
2002-07-17 12:12
2002.07.29
Запись в IStream





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский