| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Chart -> JPEG
Val © (2001-12-20 18:11:00)Не подскажете ли, уважаемые, оптимальный путь для этой операции?
Поскольку я, как не особый мастер в работе с графикой :(, решаю этот вопрос так: Chart->ClipBoard->BitMap->JPEG. Но вот звено BitMap, думается, можно убрать. Создал я его только потому, что JPEG.Assign не принимает ClipBoard, поэтому я делаю BitMap1.Assign(ClipBoard), а затем JPEG.Assign(Bitmap1)-что несколько коряво по-моему :(, ведь можно наверное как-то считать из ClipBoard прямо в JPEGImage. Подскажите, если есть мысли по этому поводу...
Val (2001-12-21 11:20:00) [1]>Вячеслав © (20.12.01 19:04)
Uses TeeJPEG, TeePNG;
делфи не находит этих модулей
Вячеслав (2001-12-20 19:04:00) [2]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;
| |
