Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];

Вниз

Сохранение Image   Найти похожие ветки 

 
E_   (2005-01-01 18:08) [0]

Добрый вечер.
Скажите, как сохранить черно-белое изобр., после
исп. кода
var
 Temp: Boolean;
begin
 Temp := Image1.Picture.Graphic is TJPEGImage;
 if Temp then
   with TJPEGImage(Image1.Picture.Graphic) do
   begin
   Grayscale := boolean(blwhite.Checked);
     end;

////Image1.Picture.SaveToFile(***.***)
Изображение изм. на черно-белое, а при сохранении - все равно
цветное.


 
KilkennyCat ©   (2005-01-01 22:52) [1]

создать временный TBitMap, с ним и работать.



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

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

Наверх




Память: 0.44 MB
Время: 0.04 c
14-1104083485
shade
2004-12-26 20:51
2005.01.16
Новый форум для программистов


14-1104239846
syte_ser78
2004-12-28 16:17
2005.01.16
вопрос по treeview


3-1103000716
rosl
2004-12-14 08:05
2005.01.16
index


1-1104133498
hgd
2004-12-27 10:44
2005.01.16
тип Extended


14-1104130044
Чеширский_Кот
2004-12-27 09:47
2005.01.16
Как вы полагаете?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский