Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Chart -> JPEG 


Val   (2001-12-20 18:11) [0]

Не подскажете ли, уважаемые, оптимальный путь для этой операции?
Поскольку я, как не особый мастер в работе с графикой :(, решаю этот вопрос так: Chart->ClipBoard->BitMap->JPEG. Но вот звено BitMap, думается, можно убрать. Создал я его только потому, что JPEG.Assign не принимает ClipBoard, поэтому я делаю BitMap1.Assign(ClipBoard), а затем JPEG.Assign(Bitmap1)-что несколько коряво по-моему :(, ведь можно наверное как-то считать из ClipBoard прямо в JPEGImage. Подскажите, если есть мысли по этому поводу...



Вячеслав   (2001-12-20 19:04) [1]

Uses TeeJPEG, TeePNG;
..............................
Procedure TForm2.JPEG_Chart(Stream:TStream);
begin
With TJPEGExportFormat.Create do
try
Panel:=Self.Chart1;
SaveToStream(Stream);
finally
Free;
end;
end;

Procedure TForm2.PNG_Chart(Stream:TStream);
begin
With TPNGExportFormat.Create do
try
Panel:=Self.Chart1;
SaveToStream(Stream);
finally
Free;
end;
end;



Val   (2001-12-21 11:20) [2]

>Вячеслав © (20.12.01 19:04)
Uses TeeJPEG, TeePNG;
делфи не находит этих модулей




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.031 c
14-22406          VEG                   2001-11-10 12:56  2002.01.08  
Наслучалось тут со мной разного...


1-22074           Bb                    2001-12-17 21:28  2002.01.08  
HELP!!!!


1-22229           Man In Red            2001-12-16 14:31  2002.01.08  
Опять вопрос связаный с RichEdit!


4-22487           Rad                   2001-11-05 00:40  2002.01.08  
Создание макроса в Excel


3-21946           set                   2001-12-05 00:08  2002.01.08  
Ещё раз работа с базами