Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

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;
делфи не находит этих модулей



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.011 c
7-22436
Serg2
2001-09-26 18:23
2002.01.08
Сворачивание всех окон


4-22486
Pantero
2001-11-03 23:59
2002.01.08
Handle


7-22449
Schummi
2001-09-15 07:45
2002.01.08
Избранное в Windows


7-22450
fsp
2001-09-21 22:32
2002.01.08
СВоарчивание проги в систем трей.


1-22026
Romualds Stashans
2001-12-18 11:07
2002.01.08
Каким образом через Delphi можно запустить *.exe с ....