Главная страница
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.02 c
1-22148
Delphimun
2001-12-20 12:10
2002.01.08
Как послать системе сообщение, что нажата клавиша?


1-22170
AVALLOGIGS
2001-12-20 19:37
2002.01.08
ПОМОГИТЕ!


3-21912
Сергей Н.
2001-12-04 06:23
2002.01.08
Обработка даты из IB в Delphi и обратно


1-22017
Builder
2001-12-17 19:45
2002.01.08
Как ставить свою строку в текущий едит?


4-22502
Alexander
2001-11-06 11:00
2002.01.08
Как получить иконку для зарегистрированного расширения в системе