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

Вниз

GIF+Region=?   Найти похожие ветки 

 
Nikolay   (2002-02-10 18:30) [0]

Моя очередь теперь задавать вопрос :) Уважаемые такая проблема, как можно создать непрямоугольное окно по гиф изображению (маска не меняется. т.е. гиф имеет один и тот же образ), не на до предлагать делать по точкам. т.к. гифы могут менятся и все я не смогу забить ( я не знаю какие могут быть)... Наверно немного запутанно... если что скажите что не понятно.
Заранее спасибо.


 
savva   (2002-02-11 15:11) [1]

с bmp просто все, почитай http://null.wallst.ru/articles/transParents.htm

с гифами будет сложнее, как показал мой опыт, там один и тот же цвет (мы его одинаково зрительно воспринимаем) имеет разное значение RGB (колеблется не в больших диапазонах). можно ввести погрешность отклонения от заданного прозрачного цвета, но так как RGB характеризует 3 цвета то там придется поковыряться с их переводом в hex ... А так попробуй, за пару часов управишься :))


 
Nikolay   (2002-02-11 17:56) [2]

2 savva
да я с бмп уменю работать :) мне бы с гифом :)
извини ты не мог бы поподробнее с hex?



 
wicked   (2002-02-13 21:51) [3]

2 savva ©
а ты часом gif с jpeg не спутал?.... gif способен отобразить максимум 256 цветов из палитры... то есть в растре хранятся однобайтовые индекса из палитры, простым языком - цвета...


 
Ajax   (2002-02-14 18:15) [4]

function CreateRgnFromBitmap(rgnBitmap: TBitmap): HRGN;
var
transColor: TColor;
i, j: Integer;
width, height: Integer;
left, right: Integer;
rectRgn: HRGN;
begin
Result := 0;
width := rgnBitmap.Width;
height := rgnBitmap.Height;
transColor := rgnBitmap.Canvas.Pixels[width - 1, height - 1];
for i := 0 to height - 1 do
begin
left := -1;
for j := 0 to width - 1 do
begin
if left < 0 then
begin
if rgnBitmap.Canvas.Pixels[j, i] <> transColor then
left := j;
end
else
if rgnBitmap.Canvas.Pixels[j, i] = transColor then
begin
right := j;
rectRgn := CreateRectRgn(left, i, right, i + 1);
if Result = 0 then
Result := rectRgn
else
begin
CombineRgn(Result, Result, rectRgn, RGN_OR);
DeleteObject(rectRgn);
end;
left := -1;
end;
end;
if left >= 0 then
begin
rectRgn := CreateRectRgn(left, i, width, i + 1);
if Result = 0 then
Result := rectRgn
else
begin
CombineRgn(Result, Result, rectRgn, RGN_OR);
DeleteObject(rectRgn);
end;
end;
end;
end;


 
Nikolay   (2002-02-15 19:28) [5]

2 Ajax © (14.02.02 18:15)

мне гиф нужен был :))) а не бмп, бмп я умел теперь гиф научился:)



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

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

Наверх





Память: 0.45 MB
Время: 0.008 c
1-77363
Alex is Fecit
2002-06-10 19:33
2002.06.24
Съемный диск


14-77580
Moscower
2002-05-18 23:21
2002.06.24
Какая БД лучше?


1-77471
ASV2
2002-06-11 20:51
2002.06.24
Изменение parent


4-77671
AFROLOV
2002-04-25 17:24
2002.06.24
А можно ли без хуков перехватывать нажатие клавиш для своей проги


4-77690
ActiveX
2002-04-19 16:44
2002.06.24
ActiveX





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