Форум: "Основная";
Поиск по всему сайту: 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.75 MB
Время: 0.03 c
1-22163           Марина                2001-12-20 16:29  2002.01.08  
Названия месяцев


6-22271           Victor                2001-10-04 20:15  2002.01.08  
при конекте не появлялось удаленное соединение????


14-22338          Dima-k17              2001-11-05 10:57  2002.01.08  
ОС Petros


1-22020           Leo^Sun               2001-12-18 07:08  2002.01.08  
TMemo


14-22320          Alexandr              2001-11-14 14:13  2002.01.08  
Wow