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

Вниз

Как не зависеть от кол. цветов Descktop а ?   Найти похожие ветки 

 
Ascan_   (2002-09-18 14:30) [0]

Есть код:

bmp:= TBitmap.Create;
jpg := TJpegImage.Create;
jpg.LoadFromFile("file.jpg");
bmp.Assign(jpg);
jpg.free;

bmp.Canvas.Pixels[1,1]:= $707070;


Так вот: если у тебя выставлено Hicolor (16bit) на экране, то по адресу [1,1] будет лежать действительно $707070.
А если у тебя стоит 256 цветов, то и мечтать не стоит о том, что вычитаешь записаное. В данном случае вычитаешь $777777...
Что порекомендуете?


 
MBo   (2002-09-18 14:43) [1]

создать в bitmap свою 256-цветную палитру, например, с помощью SetDIBColorTable


 
Ascan_   (2002-09-18 14:55) [2]

MBo,
А как сделать так, чтобы работать с палитрой, записанной в файле "file.jpg"? Дело в том, что я хочу рабоать с оригинальными цветами картинки.
А то получается, что картинка 16мил. цв., а загружаю ее, а она уже с палитрой в 256 цветов.


 
MBo   (2002-09-18 15:14) [3]

bitmap.pixelformat:=pf24bit;
после этого вставляй туда Jpeg

procedure TForm1.Button1Click(Sender: TObject);
var
j:tjpegimage;
b:tbitmap;
begin
j:=tjpegimage.create;
b:=tbitmap.create;
j.loadfromfile("e:\4.jpg");
b.assign(j);
b.pixelformat:=pf24bit;/// если это убрать, то
//в 256-цветном режиме в label1 будет 3, т.е. pf8bit -
image1.picture.assign(b);
label1.caption:=IntToStr(integer(b.pixelformat));
end;


 
Ascan_   (2002-09-18 15:27) [4]

MBo,
Работает... Почему-то я не удевлен.
Но зато, если бы все читали литературу, не было этого Форума! :-)
Спасибо.



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

Форум: "Media";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
3-14910
Stas
2002-12-13 11:43
2003.01.06
Кодировка таблицы в BDE


3-14965
VID
2002-12-15 13:32
2003.01.06
FIBDataSet не записывает блоб-поля в файл...


3-14934
Lifestyler.XL
2002-12-12 16:50
2003.01.06
Помогите! Как подружить MS FoxPro 2.6 for Dos c Delphi


3-14920
b_baranov
2002-12-13 15:50
2003.01.06
FoxPro s browse for one-to-many relationship. Can delphi it?


1-15037
Speaker
2002-12-22 00:15
2003.01.06
Проблема с TComboBoxEx+TCoolBar





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский